commit 8b3579aab4bf7b8a2eacbc3d5011ef4afb387a3a
Author: historicalsource <historicalsoftware@textfiles.com>
Date:   Tue Apr 16 09:52:54 2019 -0400

    Release 296

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..2af701f
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# zorkzero
diff --git a/castle.zabstr b/castle.zabstr
new file mode 100644
index 0000000..d23159f
--- /dev/null
+++ b/castle.zabstr
@@ -0,0 +1,1062 @@
+
+<BEGIN-SEGMENT CASTLE> 
+<ROOM GREAT-HALL (LOC ROOMS) (REGION "Flatheadia") (DESC "Great Hall") (LDESC
+"This is the huge central chamber of Dimwit's castle. The ceiling was
+lowered at some point in the past, which helped reduce the frequency of
+storm clouds forming in the upper regions of the hall. Arched openings
+lead off in the four cardinal directions. A wide stair leads up to the
+balcony, and an equally wide but ominously dark stair leads downward.") (NORTH
+TO ENTRANCE-HALL) (SOUTH TO AUDIENCE-CHAMBER) (EAST TO COURTYARD) (WEST TO
+FORMAL-GARDEN) (UP TO BALCONY) (DOWN PER LOWER-HALL-ENTER-F) (FLAGS RLANDBIT
+ONBIT) (GLOBAL STAIRS BANNER) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4
+MAP-GEN-X-5>)> 
+<DEFINE-ROUTINE LOWER-HALL-ENTER-F> 
+<OBJECT CALENDAR (DESC "calendar") (LDESC
+"A calendar for 883 GUE is lying here.") (SYNONYM CALENDAR) (FLAGS READBIT
+TAKEBIT) (SIZE 3) (TEXT
+"[This is the \"Lives of the Twelve Flatheads Calendar\" which you can find
+in your Zork Zero package.]")> 
+<OBJECT CALENDAR-ITEMS (LOC GENERIC-OBJECTS) (DESC "it") (SYNONYM POISON AX AXE
+COBRA SKULL KNIFE DAGGER TROPHY STICK BALL HELMET EPAULET EPAULETTE MEDAL
+TEMPLATE PENCIL TRIANGLE CRAYON COMPASS ELEPHANT VOLCANO BRUSH AVOCADO INKWELL
+RAVEN STAMP CIGAR BURNER CELERY MATCH BOWTIE) (ADJECTIVE HOCKEY RUBBER BUNSEN)>
+
+<OBJECT LOCKET-MOOSE (LOC GENERIC-OBJECTS) (DESC "it") (SYNONYM LOCKET MOOSE)> 
+<OBJECT PROCLAMATION (DESC "proclamation") (FDESC
+"A proclamation hangs on the wall.") (OWNER WALL) (SYNONYM PROCLAMATION DECREE)
+(FLAGS READBIT TAKEBIT BURNBIT TRYTAKEBIT) (SIZE 2) (TEXT
+"\"The one who can stop the Curse of Megaboz, and save the land from
+destruction, shall be rewarded with half the wealth of the Empire.|
+   (signed) Wurb Flathead|
+            King of Quendor|
+	    Protector of the Empire|
+            Ruler of all the Known Lands\"") (ACTION PROCLAMATION-F)> 
+<DEFINE-ROUTINE PROCLAMATION-F> 
+<ROOM ENTRANCE-HALL (LOC ROOMS) (REGION "Flatheadia") (DESC "Entrance Hall") (
+NORTH TO INNER-BAILEY IF PORTCULLIS IS OPEN ELSE
+"The closed portcullis covers the doorway.") (SOUTH TO GREAT-HALL) (EAST TO
+BANQUET-HALL) (WEST TO PARLOR) (FLAGS RLANDBIT ONBIT) (GLOBAL PORTCULLIS) (
+RIDDLE "Some say I fly, but I'm not a bird; I'm often wasted, or so I've heard.
+Though I go on endlessly, there's never enough of me! What am I?\"") (MAP-LOC <
+PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>) (ACTION ENTRANCE-HALL-F)> 
+<DEFINE-ROUTINE ENTRANCE-HALL-F> 
+<OBJECT TIME-OBJECT (LOC GLOBAL-OBJECTS) (DESC "time") (SYNONYM TIME) (FLAGS
+NARTICLEBIT)> 
+<OBJECT DOORBELL (LOC ENTRANCE-HALL) (DESC "doorbell") (SYNONYM DOORBELL BELL)
+(ADJECTIVE DOOR) (FLAGS NDESCBIT) (GENERIC G-HAT-F) (ACTION DOORBELL-F)> 
+<DEFINE-ROUTINE DOORBELL-F> 
+<OBJECT PORTCULLIS (LOC LOCAL-GLOBALS) (DESC "portcullis") (SYNONYM PORTCULLIS)
+(ADJECTIVE STURDY HEAVY IRON) (FLAGS DOORBIT) (ACTION PORTCULLIS-F)> 
+<DEFINE-ROUTINE PORTCULLIS-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT VILLAGE> 
+<OBJECT MOAT (LOC LOCAL-GLOBALS) (DESC "moat") (SYNONYM MOAT) (FLAGS WATERBIT)
+(ACTION MOAT-F)> 
+<DEFINE-ROUTINE MOAT-F> 
+<ROOM INNER-BAILEY (LOC ROOMS) (REGION "Flatheadia") (DESC "Inner Bailey") (
+LDESC "You are on a narrow grassy strip between the castle (which can be entered
+to the south) and the moat. A young elm grows by the side of the moat. A
+causeway leads out into the moat to the northwest.") (SOUTH TO ENTRANCE-HALL IF
+PORTCULLIS IS OPEN) (NW TO CAUSEWAY) (FLAGS RLANDBIT OUTSIDEBIT ONBIT) (SYNONYM
+BAILEY) (ADJECTIVE INNER) (GLOBAL PORTCULLIS MOAT CAUSEWAY) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-6>) (ICON INNER-BAILEY-ICON) (ACTION
+INNER-BAILEY-F)> 
+<DEFINE-ROUTINE INNER-BAILEY-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT WORM (LOC INNER-BAILEY) (DESC "worm") (FDESC
+"A common earthworm is wriggling through the grass.") (SYNONYM WORM EARTHWORM
+PIECE RUBBER) (ADJECTIVE COMMON) (FLAGS TAKEBIT ANIMATEDBIT) (INANIMATE-DESC
+"piece of rubber") (WAND-TEXT "Instantly, the worm stops wriggling.") (
+ANIMATE-ROUTINE I-W-WORM) (SIZE 1) (ACTION WORM-F)> 
+<DEFINE-ROUTINE WORM-F> 
+<DEFINE-ROUTINE I-W-WORM> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT VILLAGE> 
+<OBJECT SMALL-ELM (LOC INNER-BAILEY) (DESC "small elm tree") (SYNONYM TREE ELM)
+(ADJECTIVE YOUNG SMALL ELM) (FLAGS NDESCBIT PLANTBIT) (ACTION TREE-F)> 
+<DEFINE-ROUTINE TREE-F> 
+<ROOM CAUSEWAY (LOC ROOMS) (REGION "Flatheadia") (DESC "Causeway") (LDESC
+"You are on a peninsula of dirt and gravel which extends into the moat from
+the southeast. A tall barbican towers over the end of the causeway, to the
+northwest.") (SE TO INNER-BAILEY) (NW TO BARBICAN) (FLAGS RLANDBIT OUTSIDEBIT
+ONBIT) (SYNONYM CAUSEWAY) (GLOBAL MOAT BARBICAN) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>) (ICON CAUSEWAY-ICON)> 
+<ROOM BARBICAN (LOC ROOMS) (REGION "Flatheadia") (DESC "Barbican") (NW TO
+DRAWBRIDGE IF DRAWBRIDGE IS OPEN) (SE TO CAUSEWAY) (UP TO UPPER-BARBICAN) (
+FLAGS RLANDBIT ONBIT) (SYNONYM BARBICAN TOWER GATE-TOWER) (ADJECTIVE TALL LOWER
+) (GLOBAL MOAT DRAWBRIDGE FIXED-LADDER UPPER-BARBICAN) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>) (ICON BARBICAN-ICON) (ACTION
+BARBICAN-F)> 
+<DEFINE-ROUTINE BARBICAN-F> 
+<ROOM UPPER-BARBICAN (LOC ROOMS) (REGION "Flatheadia") (DESC "Upper Barbican")
+(LDESC "This upper level is key to defending the outer perimeter of the castle, with
+its commanding view of the causeway, moat and baileys. The floor is filled
+with \"murder holes\" for dropping heavy cannonballs onto unwanted visitors
+who penetrate as far as the barbican's lower level, just below. A large cast
+iron wheel is mounted in the center of the room. The only exit is a ladder
+leading down.") (DOWN TO BARBICAN) (FLAGS RLANDBIT ONBIT) (SYNONYM BARBICAN
+TOWER) (ADJECTIVE UPPER) (GLOBAL FIXED-LADDER MOAT) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON UPPER-BARBICAN-ICON)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT CANNONBALL (LOC UPPER-BARBICAN) (DESC "cannonball") (SYNONYM CANNONBALL
+BALL) (ADJECTIVE HEAVY) (FLAGS TAKEBIT) (SIZE 50) (ACTION CANNONBALL-F)> 
+<DEFINE-ROUTINE CANNONBALL-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT VILLAGE> 
+<OBJECT MURDER-HOLE (LOC UPPER-BARBICAN) (DESC "murder hole") (SYNONYM HOLE) (
+ADJECTIVE MURDER) (FLAGS NDESCBIT) (ACTION MURDER-HOLE-F)> 
+<DEFINE-ROUTINE MURDER-HOLE-F> 
+<OBJECT WHEEL (LOC UPPER-BARBICAN) (DESC "wheel") (SYNONYM WHEEL) (ADJECTIVE
+LARGE CAST IRON) (FLAGS NDESCBIT) (ACTION WHEEL-F)> 
+<DEFINE-ROUTINE WHEEL-F> 
+<ROOM DRAWBRIDGE (LOC ROOMS) (REGION "Flatheadia") (DESC "Drawbridge") (SE TO
+BARBICAN) (NW TO OUTER-BAILEY) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (SYNONYM
+BRIDGE DRAWBRIDGE) (ADJECTIVE DRAW STURDY WOODEN) (GLOBAL DRAWBRIDGE MOAT) (
+MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-3>) (ICON DRAWBRIDGE-ICON
+) (ACTION DRAWBRIDGE-F)> 
+<DEFINE-ROUTINE DRAWBRIDGE-F> 
+<END-SEGMENT> 
+\ 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM PARLOR (LOC ROOMS) (REGION "Flatheadia") (DESC "Parlor") (LDESC
+"This is where many of Dimwit's guests would come and sit after dinner,
+for wine, conversation, and any other whim that might pop into Dimwit's
+head. There are doorways to the east, west and south.") (EAST TO ENTRANCE-HALL)
+(SOUTH TO FORMAL-GARDEN) (WEST TO TORCH-ROOM) (FLAGS RLANDBIT ONBIT) (SYNONYM
+PARLOR) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-4>) (ICON
+PARLOR-ICON) (ACTION PARLOR-F)> 
+<DEFINE-ROUTINE PARLOR-F> 
+<OBJECT FISH-TANK (LOC PARLOR) (DESC "fish tank") (SYNONYM TANK AQUARIUM) (
+ADJECTIVE FISH) (CAPACITY 50) (FLAGS CONTBIT SEARCHBIT OPENBIT TRYTAKEBIT
+WATERBIT) (ACTION FISH-TANK-F)> 
+<GLOBAL DESCRIBED-TANK-AS-LARGE <>> 
+<GLOBAL DESCRIBED-TANK-AS-SMALL <>> 
+<DEFINE-ROUTINE FISH-TANK-F> 
+<OBJECT SPENSEWEED (OWNER SPENSEWEED) (LOC FISH-TANK) (DESC
+"clump of spenseweed") (SYNONYM CLUMP SPENSEWEED WEED) (ADJECTIVE SPENSE) (
+FLAGS TRYTAKEBIT PLANTBIT) (RESEARCH
+"\"A deep-rooting underwater plant. Once established, it can usually only be
+removed by using certain spells of wilting. The misconception that spenseweed
+is a common roadside weed has been perpetuated by grossly inaccurate entries
+in the last several editions of THE LORE AND LEGENDS OF QUENDOR.\"") (ACTION
+SPENSEWEED-F)> 
+<DEFINE-ROUTINE SPENSEWEED-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT LOBSTER (LOC FISH-TANK) (DESC "lobster") (SYNONYM LOBSTER NUTCRACKER
+CRACKER) (ADJECTIVE NUT) (FLAGS TRYTAKEBIT TAKEBIT ANIMATEDBIT) (INANIMATE-DESC
+"nutcracker") (WAND-TEXT
+"The lobster stops moving. Frozen as it is, with pincers outstretched, it looks
+like nothing less than a large nutcracker. In fact, it IS a nutcracker!") (
+ANIMATE-ROUTINE I-W-LOBSTER) (ACTION LOBSTER-F)> 
+<DEFINE-ROUTINE LOBSTER-F> 
+<DEFINE-ROUTINE I-W-LOBSTER> 
+<DEFINE-ROUTINE I-LOBSTER-PINCH> 
+<OBJECT STARFISH (LOC FISH-TANK) (DESC "starfish") (PLURAL "starfish") (SYNONYM
+STARFISH FISH STAR) (ADJECTIVE STAR) (FLAGS TAKEBIT ANIMATEDBIT) (
+INANIMATE-DESC "star") (WAND-TEXT
+"The starfish, as still as it was before, becomes even more still.") (
+ANIMATE-ROUTINE I-W-STARFISH) (ACTION STARFISH-F)> 
+<DEFINE-ROUTINE STARFISH-F> 
+<DEFINE-ROUTINE I-W-STARFISH> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM TORCH-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Torch Room") (LDESC
+"This is a small room for the storage of torches. The torches kept here
+are generally short-lived, for the purpose of brief forays into the
+darker regions of the castle. To the east is the lone exit.") (EAST TO PARLOR)
+(OUT TO PARLOR) (FLAGS RLANDBIT ONBIT) (MAP-LOC <PTABLE MAIN-MAP-NUM
+MAP-GEN-Y-3 MAP-GEN-X-3>) (ICON TORCH-ROOM-ICON)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT BICKERING-TORCH (LOC TORCH-ROOM) (DESC "bickering torch") (PLURAL
+"torches") (SYNONYM TORCH TORCHES) (ADJECTIVE BICKERING) (FLAGS TAKEBIT
+TRYTAKEBIT) (ACTION BICKERING-TORCH-F)> 
+<DEFINE-ROUTINE BICKERING-TORCH-F> 
+<DEFINE-ROUTINE BURNED-OUT> 
+<DEFINE-ROUTINE I-BICKERING-TORCH> 
+<CONSTANT BITCHES <LTABLE 0 "All the other torches were picking on me."
+"Everyone likes the flickering torch better than me."
+"I saw the guttering torch wasting oil!"
+"How come I didn't get made out of top-quality wood like
+the other torches?"
+"The muttering torch was talking about burning down the castle.">> 
+<OBJECT FLICKERING-TORCH (LOC TORCH-ROOM) (SDESC "flickering torch") (PLURAL
+"torches") (SYNONYM TORCH TORCHES) (ADJECTIVE FLICKERING) (FLAGS TAKEBIT
+TRYTAKEBIT FLAMEBIT ONBIT) (ACTION FLICKERING-TORCH-F)> 
+<DEFINE-ROUTINE FLICKERING-TORCH-F> 
+<GLOBAL FLICKERING-TORCH-COUNT 0> 
+<DEFINE-ROUTINE I-FLICKERING-TORCH> 
+<DEFINE-ROUTINE IN-THE-SKY> 
+<OBJECT MUTTERING-TORCH (LOC TORCH-ROOM) (DESC "muttering torch") (PLURAL
+"torches") (SYNONYM TORCH TORCHES) (ADJECTIVE MUTTERING) (FLAGS TAKEBIT
+TRYTAKEBIT) (ACTION MUTTERING-TORCH-F)> 
+<DEFINE-ROUTINE MUTTERING-TORCH-F> 
+<DEFINE-ROUTINE I-MUTTERING-TORCH> 
+<CONSTANT MUTTERS <LTABLE 0 "human palm odors"
+"the unfairness of existence as a torch" "being held too tightly"
+"the callous discarding of burned-out torches"
+"the uncomfortableness of most sconces">> 
+<OBJECT GUTTERING-TORCH (LOC TORCH-ROOM) (SDESC "guttering torch") (PLURAL
+"torches") (SYNONYM TORCH TORCHES) (ADJECTIVE GUTTERING) (FLAGS TAKEBIT
+TRYTAKEBIT ONBIT FLAMEBIT) (ACTION GUTTERING-TORCH-F)> 
+<DEFINE-ROUTINE GUTTERING-TORCH-F> 
+<GLOBAL GUTTERING-TORCH-COUNT 0> 
+<DEFINE-ROUTINE I-GUTTERING-TORCH> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM FORMAL-GARDEN (LOC ROOMS) (REGION "Flatheadia") (DESC "Formal Garden") (
+LDESC "Dimwit designed this garden to match a fairy tale he enjoyed as a child,
+and subsequent kings added their own touches, creating a hugely confusing
+maze of flowers and shrubbery and statuary and trees and fountains and pools
+and bridges and gazebos. Now somewhat overgrown, the garden is seemingly
+endless, but you recall that the primary exits lie to the north, east, and
+southwest.") (NORTH TO PARLOR) (EAST TO GREAT-HALL) (SW TO WEST-HALL) (FLAGS
+RLANDBIT ONBIT OUTSIDEBIT) (SYNONYM GARDEN) (ADJECTIVE FORMAL) (MAP-LOC <PTABLE
+MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON FORMAL-GARDEN-ICON) (THINGS <>
+FLOWER GARDEN-FLOWER-PS)> 
+<DEFINE-ROUTINE GARDEN-FLOWER-PS> 
+<OBJECT FLORA (LOC FORMAL-GARDEN) (DESC "flora") (SYNONYM SHRUB SHRUBS
+SHRUBBERY TREE FLORA PLANT PLANTS) (FLAGS PLANTBIT NDESCBIT NARTICLEBIT
+PLURALBIT) (ACTION FLORA-F)> 
+<DEFINE-ROUTINE FLORA-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT FLAMINGO (LOC FORMAL-GARDEN) (DESC "flamingo") (FDESC
+"You spot a flash of pink amongst the flora. It's a flamingo!") (SYNONYM
+FLAMINGO BIRD ORNAMENT) (ADJECTIVE LAWN) (FLAGS TRYTAKEBIT TAKEBIT ANIMATEDBIT)
+(INANIMATE-DESC "lawn ornament") (WAND-TEXT "The flamingo becomes motionless.")
+(ANIMATE-ROUTINE I-W-FLAMINGO) (SIZE 10) (ACTION FLAMINGO-F)> 
+<DEFINE-ROUTINE FLAMINGO-F> 
+<DEFINE-ROUTINE I-W-FLAMINGO> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM COURTYARD (LOC ROOMS) (REGION "Flatheadia") (DESC "Courtyard") (NORTH TO
+BANQUET-HALL) (WEST TO GREAT-HALL) (SE TO EAST-HALL) (FLAGS RLANDBIT ONBIT
+OUTSIDEBIT) (SYNONYM COURTYARD) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4
+MAP-GEN-X-6>) (ACTION COURTYARD-F)> 
+<DEFINE-ROUTINE COURTYARD-F> 
+<ROOM BALCONY (LOC ROOMS) (REGION "Flatheadia") (DESC "Balcony") (LDESC
+"This wide balcony, itself larger than most castles, overlooks the Great
+Hall. Banners and pennants are draped from the railing into the hall below,
+which can be reached via the wide stair. A passage leads off to the south.") (
+DOWN TO GREAT-HALL) (SOUTH TO GALLERY) (FLAGS RLANDBIT ONBIT) (SYNONYM BALCONY)
+(GLOBAL STAIRS BANNER) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>)
+(ICON BALCONY-ICON)> 
+<OBJECT BANNER (LOC LOCAL-GLOBALS) (DESC "banner") (SYNONYM BANNER BANNERS
+PENNANT PENNANTS) (ADJECTIVE COLORFUL) (ACTION BANNER-F)> 
+<DEFINE-ROUTINE BANNER-F> 
+<ROOM GALLERY (LOC ROOMS) (REGION "Flatheadia") (DESC "Gallery") (LDESC
+"Twelve large paintings cover the walls of this long, tall room. The main
+exit is north, but there's also a small opening to the south.") (NORTH TO
+BALCONY) (SOUTH TO CLOSET) (FLAGS RLANDBIT ONBIT) (SYNONYM GALLERY) (MAP-LOC <
+PTABLE MAIN-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>) (ICON GALLERY-ICON)> 
+<OBJECT REBUS (LOC GALLERY) (DESC "rebus") (DESCFCN REBUS-F) (SYNONYM REBUS) (
+ADJECTIVE LARGE FRAMED) (FLAGS READBIT SEARCHBIT CONTBIT SURFACEBIT OPENBIT) (
+OWNER WALL) (RESEARCH
+"\"A rebus is an illustration whose component pictures spell out a word
+or words, usually through the addition and subtraction of sounds or letters.
+The most famous creator of rebuses was Frobesius Fublius.\"") (ACTION REBUS-F)>
+
+<DEFINE-ROUTINE REBUS-F> 
+<OBJECT REBUS-CAMEL (LOC REBUS) (DESC "flattened camel") (SYNONYM CAMEL ANIMAL
+REPRESENTATION) (ADJECTIVE FLATTENED LAYERED) (FLAGS NDESCBIT) (OWNER REBUS) (
+GENERIC G-CAMEL-F) (ACTION REBUS-ANIMAL-F)> 
+<OBJECT REBUS-MOUSE (LOC REBUS) (DESC "flattened mouse") (SYNONYM MOUSE ANIMAL
+REPRESENTATION) (ADJECTIVE FLATTENED LAYERED) (FLAGS NDESCBIT) (OWNER REBUS) (
+ACTION REBUS-ANIMAL-F)> 
+<OBJECT REBUS-SNAKE (LOC REBUS) (DESC "flattened snake") (SYNONYM SNAKE ANIMAL
+REPRESENTATION) (ADJECTIVE FLATTENED LAYERED) (FLAGS NDESCBIT) (OWNER REBUS) (
+ACTION REBUS-ANIMAL-F)> 
+<OBJECT REBUS-GOOSE (LOC REBUS) (DESC "flattened goose") (SYNONYM GOOSE ANIMAL
+REPRESENTATION) (ADJECTIVE FLATTENED LAYERED) (FLAGS NDESCBIT) (OWNER REBUS) (
+ACTION REBUS-ANIMAL-F)> 
+<OBJECT REBUS-FISH (LOC REBUS) (DESC "flattened fish") (SYNONYM FISH ANIMAL
+REPRESENTATION) (ADJECTIVE FLATTENED LAYERED) (FLAGS NDESCBIT) (OWNER REBUS) (
+ACTION REBUS-ANIMAL-F)> 
+<OBJECT REBUS-SLIME-MONSTER (LOC REBUS) (DESC "flattened slime monster") (
+SYNONYM MONSTER ANIMAL REPRESENTATION) (ADJECTIVE SLIME FLATTENED LAYERED) (
+FLAGS NDESCBIT) (OWNER REBUS) (ACTION REBUS-ANIMAL-F)> 
+<DEFINE-ROUTINE REBUS-ANIMAL-F> 
+<OBJECT PAINTINGS (LOC GALLERY) (DESC "twelve paintings") (SYNONYM PAINTINGS
+PORTRAITS) (ADJECTIVE TWELVE FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH
+EIGHTH NINTH TENTH ELEVENTH TWELVTH) (FLAGS NDESCBIT NARTICLEBIT TRYTAKEBIT) (
+GENERIC G-PAINTING-F) (OWNER WALL) (ACTION PAINTINGS-F)> 
+<DEFINE-ROUTINE PAINTINGS-F> 
+<OBJECT BABE-PORTRAIT (LOC GALLERY) (DESC "portrait of Babe Flathead") (SYNONYM
+PAINTING PORTRAIT BABE FLATHEAD) (ADJECTIVE BABE) (FLAGS NDESCBIT) (OWNER <
+TABLE (PURE LENGTH) WALL BABE-PORTRAIT>) (ACTION PAINTING-F)> 
+<OBJECT FRANK-LLOYD-PORTRAIT (LOC GALLERY) (DESC
+"portrait of Frank Lloyd Flathead") (SYNONYM PAINTING PORTRAIT FRANK LLOYD
+FLATHEAD) (ADJECTIVE FRANK LLOYD) (FLAGS NDESCBIT) (OWNER <TABLE (PURE LENGTH)
+WALL FRANK-LLOYD-PORTRAIT>) (ACTION PAINTING-F)> 
+<OBJECT JOHN-PAUL-PORTRAIT (LOC GALLERY) (DESC "portrait of John Paul Flathead"
+) (SYNONYM PAINTING PORTRAIT JOHN PAUL FLATHEAD) (ADJECTIVE JOHN PAUL) (FLAGS
+NDESCBIT) (OWNER <TABLE (PURE LENGTH) WALL JOHN-PAUL-PORTRAIT>) (ACTION
+PAINTING-F)> 
+<OBJECT RALPH-WALDO-PORTRAIT (LOC GALLERY) (DESC
+"portrait of Ralph Waldo Flathead") (SYNONYM PAINTING PORTRAIT RALPH WALDO
+FLATHEAD) (ADJECTIVE RALPH WALDO) (FLAGS NDESCBIT) (OWNER <TABLE (PURE LENGTH)
+WALL RALPH-WALDO-PORTRAIT>) (ACTION PAINTING-F)> 
+<OBJECT LUCREZIA-PORTRAIT (LOC GALLERY) (DESC "portrait of Lucrezia Flathead")
+(SYNONYM PAINTING PORTRAIT LUCREZIA FLATHEAD) (ADJECTIVE LUCREZIA) (FLAGS
+NDESCBIT) (OWNER <TABLE (PURE LENGTH) WALL LUCREZIA-PORTRAIT>) (ACTION
+PAINTING-F)> 
+<OBJECT LEONARDO-PORTRAIT (LOC GALLERY) (DESC "portrait of Leonardo Flathead")
+(SYNONYM PAINTING PORTRAIT SELF-PORTRAIT LEONARDO FLATHEAD) (ADJECTIVE LEONARDO
+) (FLAGS NDESCBIT) (OWNER <TABLE (PURE LENGTH) WALL LEONARDO-PORTRAIT>) (ACTION
+PAINTING-F)> 
+<OBJECT THOMAS-ALVA-PORTRAIT (LOC GALLERY) (DESC
+"portrait of Thomas Alva Flathead") (SYNONYM PAINTING PORTRAIT THOMAS ALVA
+FLATHEAD) (ADJECTIVE THOMAS ALVA) (FLAGS NDESCBIT) (OWNER <TABLE (PURE LENGTH)
+WALL THOMAS-ALVA-PORTRAIT>) (ACTION PAINTING-F)> 
+<OBJECT JOHN-D-PORTRAIT (LOC GALLERY) (DESC "portrait of John D. Flathead") (
+SYNONYM PAINTING PORTRAIT JOHN DAVISON FLATHEAD DOWN) (ADJECTIVE JOHN DAVISON
+DOWN) (FLAGS NDESCBIT) (OWNER <TABLE (PURE LENGTH) WALL JOHN-D-PORTRAIT>) (
+ACTION PAINTING-F)> 
+<OBJECT JOHANN-SEBASTIAN-PORTRAIT (LOC GALLERY) (DESC
+"portrait of Johann Sebastian Flathead") (SYNONYM PAINTING PORTRAIT JOHANN
+SEBASTIAN FLATHEAD) (ADJECTIVE JOHANN SEBASTIAN) (FLAGS NDESCBIT) (OWNER <TABLE
+(PURE LENGTH) WALL JOHANN-SEBASTIAN-PORTRAIT>) (ACTION PAINTING-F)> 
+<OBJECT STONEWALL-PORTRAIT (LOC GALLERY) (DESC "portrait of Stonewall Flathead"
+) (SYNONYM PAINTING PORTRAIT STONEWALL FLATHEAD) (ADJECTIVE STONEWALL) (FLAGS
+NDESCBIT) (OWNER <TABLE (PURE LENGTH) WALL STONEWALL-PORTRAIT>) (ACTION
+PAINTING-F)> 
+<OBJECT J-PIERPONT-PORTRAIT (LOC GALLERY) (OWNER <TABLE (PURE LENGTH) WALL
+J-PIERPONT-PORTRAIT>) (DESC "portrait of J. Pierpont Flathead") (SYNONYM
+PAINTING PORTRAIT J PIERPONT FLATHEAD) (ADJECTIVE J PIERPONT) (FLAGS NDESCBIT)
+(ACTION PAINTING-F)> 
+<OBJECT DIMWIT-PORTRAIT (LOC GALLERY) (DESC "portrait of Dimwit Flathead") (
+SYNONYM PAINTING PORTRAIT DIMWIT FLATHEAD) (ADJECTIVE DIMWIT LORD) (FLAGS
+NDESCBIT) (GENERIC G-DIMWIT-F) (OWNER <TABLE (PURE LENGTH) WALL DIMWIT-PORTRAIT
+>) (ACTION PAINTING-F)> 
+<DEFINE-ROUTINE PAINTING-F> 
+<ROOM CLOSET (LOC ROOMS) (REGION "Flatheadia") (DESC "Closet") (LDESC
+"You are in some sort of storage closet, which opens to the north. A ladder
+leads upward.") (NORTH TO GALLERY) (UP TO ROOF) (FLAGS RLANDBIT ONBIT) (SYNONYM
+CLOSET) (GLOBAL FIXED-LADDER) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-7
+MAP-GEN-X-4>) (THINGS <> SHADOW PHIL-SHADOW-PS)> 
+<OBJECT CLOSET-REBUS-BUTTON (LOC CLOSET) (SDESC "blinking key-shaped button") (
+FDESC "In the shadow of one of the shelves is a key-shaped button, which is blinking
+rhythmically.") (SYNONYM BUTTON) (ADJECTIVE KEY-SHAPED BLINKING) (ACTION
+REBUS-BUTTON-F)> 
+<BEGIN-SEGMENT ORACLE> 
+<BEGIN-SEGMENT LAKE> 
+<BEGIN-SEGMENT VILLAGE> 
+<DEFINE-ROUTINE REBUS-BUTTON-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<OBJECT BAG (LOC CLOSET) (DESC "bag") (FDESC
+"The shelves are all dusty and bare -- except for one small bag with some
+printing on it.") (SYNONYM BAG PRINTING) (ADJECTIVE SMALL) (FLAGS TAKEBIT
+CONTBIT SEARCHBIT READBIT) (SIZE 2) (TEXT
+"\"Hello, Flamingo Owner! The enclosed food provides a balanced, nutritious
+diet for your flamingo. Our food is specially formulated for the finicky
+flamingo. WARNING: Poisonous to humans. Another fine product of the Frobozz
+Magic Flamingo Food Company.\"") (ACTION BAG-F)> 
+<DEFINE-ROUTINE BAG-F> 
+<OBJECT BAR-OF-FOOD (LOC BAG) (OWNER BAR-OF-FOOD) (DESC "bar of food") (PLURAL
+"bars of food") (SYNONYM BAR FOOD) (FLAGS TAKEBIT) (SIZE 3) (ACTION
+BAR-OF-FOOD-F)> 
+<DEFINE-ROUTINE BAR-OF-FOOD-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM ROOF (LOC ROOMS) (REGION "Flatheadia") (DESC "Roof") (LDESC
+"You stand atop the main building of the castle. A tall tower is visible to
+the south, but can't be reached from here. The only exit is down a ladder.") (
+DOWN TO CLOSET) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL FIXED-LADDER) (
+MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-3>) (ICON ROOF-ICON) (THINGS
+TALL TOWER TOWER-PS)> 
+<DEFINE-ROUTINE TOWER-PS> 
+<ROOM AUDIENCE-CHAMBER (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Audience Chamber") (LDESC
+"This is a tremendous meeting room where thousands of visitors would queue up
+every day for an audience with Dimwit or one of his successors. Such visitors
+were usually wasting their time; Dimwit rarely had the patience to see even
+one person a day. A plush red carpet leads from the main doorway on the north
+wall to the golden throne, fringed with red tassels, which towers above the
+floor. Behind the throne, a smaller doorway leads south.") (NORTH TO GREAT-HALL
+) (SOUTH TO THRONE-ROOM) (FLAGS RLANDBIT ONBIT) (SYNONYM CHAMBER) (ADJECTIVE
+AUDIENCE) (GLOBAL CARPET) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5
+>)> 
+<OBJECT LARGE-THRONE (LOC AUDIENCE-CHAMBER) (DESC "large golden throne") (
+SYNONYM THRONE TASSLES) (ADJECTIVE GOLDEN LARGE TOWERING RED) (CAPACITY 50) (
+FLAGS NDESCBIT VEHBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT) (ACTION THRONE-F)> 
+<ROOM THRONE-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Throne Room") (NORTH
+TO AUDIENCE-CHAMBER) (SOUTH TO SECRET-PASSAGE IF SECRET-PASSAGE-OPEN) (FLAGS
+RLANDBIT ONBIT) (SYNONYM ROOM) (ADJECTIVE THRONE) (MAP-LOC <PTABLE MAIN-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-5>) (ICON THRONE-ROOM-ICON) (ACTION THRONE-ROOM-F)> 
+<DEFINE-ROUTINE THRONE-ROOM-F> 
+<OBJECT SCEPTRE (LOC THRONE-ROOM) (DESC "sceptre") (FDESC
+"An overdone sceptre, ornamented with colored enamel and tapering to a sharp
+point, is lying by the throne.") (SYNONYM SCEPTRE SCEPTER) (ADJECTIVE SHARP
+ENAMELED ORNAMENTED OVERDONE) (FLAGS TAKEBIT MAGICBIT) (SIZE 5) (VALUE 12)> 
+<OBJECT SMALL-THRONE (LOC THRONE-ROOM) (DESC "small throne") (SYNONYM THRONE) (
+ADJECTIVE GAUDY SMALL COMFORTABLE) (CAPACITY 25) (FLAGS NDESCBIT VEHBIT
+SURFACEBIT CONTBIT OPENBIT SEARCHBIT) (ACTION THRONE-F)> 
+<DEFINE-ROUTINE THRONE-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<GLOBAL SECRET-PASSAGE-DISCOVERED <>> 
+<GLOBAL SECRET-PASSAGE-OPEN <>> 
+<GLOBAL SECRET-PASSAGE-SCORE 18> 
+<ROOM SECRET-PASSAGE (LOC ROOMS) (REGION "Flatheadia") (DESC "Secret Passage")
+(LDESC "You are in a secret passage running north and south.") (NORTH TO
+THRONE-ROOM IF SECRET-PASSAGE-OPEN ELSE "The passage ends at a blank wall!") (
+SOUTH TO TEE) (FLAGS RLANDBIT) (ICON SECRET-PASSAGE-ICON) (MAP-LOC <PTABLE
+SECRET-WING-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>) (THINGS <> SHADOW PHIL-SHADOW-PS)
+(ACTION SECRET-PASSAGE-F)> 
+<DEFINE-ROUTINE SECRET-PASSAGE-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT CANDLE (LOC SECRET-PASSAGE) (DESC "candle") (FDESC
+"Although no one has entered this secret passage in years, a lit candle is
+mounted here, its flame casting dancing shadows across the uneven walls.") (
+SYNONYM CANDLE) (FLAGS LIGHTBIT FLAMEBIT ONBIT TAKEBIT) (ACTION CANDLE-F)> 
+<DEFINE-ROUTINE CANDLE-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<ROOM TEE (LOC ROOMS) (REGION "Flatheadia") (DESC "Tee") (LDESC
+"A secret passage from the north ends here at this east-west corridor.") (NORTH
+TO SECRET-PASSAGE) (EAST TO TOP-OF-STAIR) (WEST TO FOREBLDG) (FLAGS RLANDBIT) (
+ICON TEE-ICON) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)> 
+<ROOM FOREBLDG (LOC ROOMS) (REGION "Flatheadia") (DESC "Forebuilding") (LDESC
+"The secret passage from the east ends here. An easily defensible hallway
+rises into the keep, to the southwest.") (EAST TO TEE) (SW TO DONJON) (UP TO
+DONJON) (FLAGS RLANDBIT) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-6>)> 
+<ROOM DONJON (LOC ROOMS) (REGION "Flatheadia") (DESC "Donjon") (LDESC
+"You are in the lowest level of the castle's keep. A stone stair winds
+up into the keep, and a sloping passage leads northeast.") (NE TO FOREBLDG) (
+DOWN TO FOREBLDG) (UP TO SOLAR) (FLAGS RLANDBIT) (GLOBAL STAIRS) (MAP-LOC <
+PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>)> 
+<ROOM SOLAR (LOC ROOMS) (REGION "Flatheadia") (DESC "Solar") (LDESC
+"This is the king's solar, where he would bathe and dress and meet his
+most trusted advisors and intimate guests. Dim light enters through narrow,
+slitted windows. The solar has obviously lain unused for many decades. The
+circular stair continues up and down, and a doorway leads west.") (UP TO
+BASTION) (DOWN TO DONJON) (WEST TO DIMWITS-ROOM) (FLAGS RLANDBIT ONBIT) (
+SYNONYM SOLAR) (GLOBAL STAIRS WINDOW) (RIDDLE
+"You can find me at the beginning of youth, in the center of every eye,
+and at the end of eternity. What am I?\"") (MAP-LOC <PTABLE SECRET-WING-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-5>) (ACTION SOLAR-F)> 
+<DEFINE-ROUTINE SOLAR-F> 
+<OBJECT LETTER-Y (LOC GLOBAL-OBJECTS) (DESC "the letter y") (SYNONYM Y) (
+ADJECTIVE LETTER) (FLAGS NARTICLEBIT)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT EAST-KEY (LOC SOLAR) (DESC "iron key") (FDESC
+"Sitting on a cushioned window seat, illuminated by a shaft of sunlight, rests
+an ancient iron key.") (SYNONYM KEY) (ADJECTIVE ANCIENT IRON) (FLAGS KEYBIT
+TAKEBIT TRYTAKEBIT VOWELBIT) (SIZE 2) (ACTION EAST-KEY-F)> 
+<DEFINE-ROUTINE EAST-KEY-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<ROOM DIMWITS-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Dimwit's Room") (
+LDESC "You stare around in awe as you realize that you are within the private
+bedroom of Lord Dimwit Flathead. The canopied bed alone is larger than most
+of the farms in your home province. Light seeps in through slitted windows,
+and doorways lead east and south.") (EAST TO SOLAR) (SOUTH TO CLOTHES-CLOSET) (
+FLAGS RLANDBIT) (SYNONYM ROOM) (OWNER DIMWIT) (GLOBAL WINDOW) (ICON
+DIMWITS-ROOM-ICON) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4
+>)> 
+<OBJECT DIMWITS-BED (LOC DIMWITS-ROOM) (DESC "Dimwit's bed") (SYNONYM BED) (
+ADJECTIVE LARGE CANOPIED) (OWNER DIMWIT) (CAPACITY 250) (FLAGS NARTICLEBIT
+SEARCHBIT VEHBIT DROPBIT NDESCBIT CONTBIT OPENBIT SURFACEBIT)> 
+<ROOM CLOTHES-CLOSET (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Magic Clothes Closet") (LDESC
+"This is a small closet. Well, it's small by the standards of this castle;
+in a pinch, it could probably sleep a few regiments. The only exit is north.")
+(NORTH TO DIMWITS-ROOM) (FLAGS RLANDBIT) (SYNONYM CLOSET) (ADJECTIVE MAGIC
+CLOTHES) (ICON MAGIC-CLOSET-ICON) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-4>)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT CLOAK (LOC CLOTHES-CLOSET) (DESC "cloak") (SYNONYM CLOAK LABEL WRITING)
+(ADJECTIVE MAGIC) (FLAGS WEARBIT TAKEBIT) (OWNER CLOAK) (ACTION CLOAK-F)> 
+<GLOBAL CLOAK-LOC <>> 
+<DEFINE-ROUTINE CLOAK-F> 
+<OBJECT GLOVE (LOC CLOTHES-CLOSET) (DESC "glove") (SYNONYM GLOVE WRITING
+EMBROIDER) (ADJECTIVE TINY EMBROIDER) (SIZE 3) (FLAGS TAKEBIT WEARBIT READBIT)
+(OWNER GLOVE) (ACTION GLOVE-F)> 
+<DEFINE-ROUTINE GLOVE-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<ROOM BASTION (LOC ROOMS) (REGION "Flatheadia") (DESC "Bastion") (LDESC
+"This room occupies a taller tower rising from the corner of the keep.
+The slitted windows are wider here, presumably to accomodate the weaponry
+of the period. The stair winds up and down from here.") (UP TO PARAPET) (DOWN
+TO SOLAR) (FLAGS RLANDBIT ONBIT) (SYNONYM BASTION) (GLOBAL STAIRS WINDOW) (ICON
+BASTION-ICON) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-5>)> 
+<ROOM PARAPET (LOC ROOMS) (REGION "Flatheadia") (DESC "Parapet") (LDESC
+"You are on the roof of the tower, a virtual museum of state-of-the-art
+castle defense from the eighth century. A fortified parapet, resting on
+stone corbels, rims the roof. Machicolations, holes between the corbels,
+allow massive weights to be dropped on invaders below. (More often, they
+were dropped rather painfully on the soldier's own toe.) Crenellations
+are spaced around the parapet, providing openings for armaments and
+offering a commanding view of the castle grounds: the main castle just
+below, and beyond the moat, the castle's village and garrison. The sole
+exit is the stairway down.") (DOWN TO BASTION) (FLAGS RLANDBIT OUTSIDEBIT ONBIT
+) (SYNONYM PARAPET TOWER) (GLOBAL STAIRS MOAT VILLAGE) (ICON PARAPET-ICON) (
+MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>) (ACTION
+FLY-ROOM-F)> 
+<OBJECT MACHICOLATION (LOC PARAPET) (DESC "machicolation") (SYNONYM
+MACHICOLATION HOLE) (FLAGS NDESCBIT) (ACTION MACHICOLATION-F)> 
+<DEFINE-ROUTINE MACHICOLATION-F> 
+<ROOM TOP-OF-STAIR (LOC ROOMS) (REGION "Flatheadia") (DESC "Top of Stair") (
+LDESC "A secret passage from the west ends here, at the top of these dark,
+cobwebby stairs.") (WEST TO TEE) (DOWN TO BOTTOM-OF-STAIR) (FLAGS RLANDBIT) (
+GLOBAL STAIRS) (ICON TOP-OF-STAIR-ICON) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-8>)> 
+<ROOM BOTTOM-OF-STAIR (LOC ROOMS) (REGION "Flatheadia") (DESC "Bottom of Stair"
+) (LDESC "You are in the center of a gloomy, north-south passage. A crude
+stairway leads upward.") (NORTH TO OUTSIDE-CRYPT) (SOUTH TO DUNGEON) (UP TO
+TOP-OF-STAIR) (FLAGS RLANDBIT) (GLOBAL STAIRS) (ICON BOTTOM-OF-STAIR-ICON) (
+MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)> 
+<ROOM OUTSIDE-CRYPT (LOC ROOMS) (REGION "Flatheadia") (DESC "Outside Crypt") (
+LDESC "A hall from the south ends here at the entrance to a spooky crypt.") (
+SOUTH TO BOTTOM-OF-STAIR) (NORTH TO CRYPT) (IN TO CRYPT) (FLAGS RLANDBIT) (
+GLOBAL CRYPT) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-9>)> 
+<ROOM CRYPT (LOC ROOMS) (REGION "Flatheadia") (DESC "Crypt") (UP TO CHAPEL IF
+TRAP-DOOR IS OPEN) (DOWN PER ORACLE-ENTER-F) (SOUTH TO OUTSIDE-CRYPT) (OUT TO
+OUTSIDE-CRYPT) (FLAGS RLANDBIT) (SYNONYM CRYPT TOMB) (ADJECTIVE SPOOKY
+UNDERGROUND) (GLOBAL TRAP-DOOR SLIME BODIES) (MAP-LOC <PTABLE
+SECRET-WING-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-9>) (ACTION CRYPT-F)> 
+<DEFINE-ROUTINE CRYPT-F> 
+<OBJECT BODIES (LOC LOCAL-GLOBALS) (DESC "bodies") (SYNONYM BODIES REMAINS) (
+FLAGS PLURALBIT NDESCBIT NARTICLEBIT) (ACTION BODIES-F)> 
+<DEFINE-ROUTINE BODIES-F> 
+<DEFINE-ROUTINE ORACLE-ENTER-F> 
+<OBJECT FLATTEST-SLAB (LOC CRYPT) (DESC "flattest slab") (SYNONYM SLAB) (
+ADJECTIVE FLATTEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<OBJECT SHORTEST-SLAB (LOC CRYPT) (DESC "shortest slab") (SYNONYM SLAB) (
+ADJECTIVE SHORTEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<OBJECT LONGEST-SLAB (LOC CRYPT) (DESC "longest slab") (SYNONYM SLAB) (
+ADJECTIVE LONGEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<OBJECT DUSTIEST-SLAB (LOC CRYPT) (DESC "dustiest slab") (SYNONYM SLAB) (
+ADJECTIVE DUSTIEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<OBJECT DARKEST-SLAB (LOC CRYPT) (DESC "darkest slab") (SYNONYM SLAB) (
+ADJECTIVE DARKEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<OBJECT OLDEST-SLAB (LOC CRYPT) (DESC "oldest slab") (SYNONYM SLAB) (ADJECTIVE
+OLDEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<OBJECT NEWEST-SLAB (LOC CRYPT) (DESC "newest slab") (SYNONYM SLAB) (ADJECTIVE
+NEWEST) (FLAGS NDESCBIT) (ACTION SLAB-F)> 
+<DEFINE-ROUTINE SLAB-F> 
+<GLOBAL HOLEY-SLAB <>> 
+<CONSTANT SLAB-TABLE <PTABLE FLATTEST-SLAB SHORTEST-SLAB LONGEST-SLAB
+DUSTIEST-SLAB DARKEST-SLAB OLDEST-SLAB NEWEST-SLAB>> 
+<OBJECT TRAP-DOOR (LOC LOCAL-GLOBALS) (DESC "trap door") (SYNONYM DOOR TRAPDOOR
+) (ADJECTIVE SMALL TRAP) (FLAGS DOORBIT) (ACTION TRAP-DOOR-F)> 
+<DEFINE-ROUTINE TRAP-DOOR-F> 
+<ROOM DUNGEON (LOC ROOMS) (REGION "Flatheadia") (DESC "Dungeon") (LDESC
+"A century's worth of prisoners have languished in this dismal prison.
+In addition to a hole in the floor, passages lead north, southeast, and
+southwest.") (NORTH TO BOTTOM-OF-STAIR) (DOWN TO OUBLIETTE) (SE TO CELL) (SW TO
+TORTURE-CHAMBER) (FLAGS RLANDBIT) (SYNONYM DUNGEON) (ICON DUNGEON-ICON) (
+MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-9>)> 
+<OBJECT DUNGEON-HOLE (LOC DUNGEON) (DESC "hole") (SYNONYM HOLE) (ADJECTIVE
+SMALL) (FLAGS NDESCBIT) (OWNER GROUND) (ACTION DUNGEON-HOLE-F)> 
+<DEFINE-ROUTINE DUNGEON-HOLE-F> 
+<ROOM OUBLIETTE (LOC ROOMS) (REGION "Flatheadia") (DESC "Oubliette") (UP SORRY
+"You're trapped.") (OUT SORRY "You're trapped.") (FLAGS RLANDBIT) (SYNONYM
+OUBLIETTE) (RIDDLE
+"I look just like my brother; we have the same father and mother! We're
+identical in every way; we were born on the very same day. I'm younger
+by seconds, but as everyone reckons, I'm not a twin, and never have been.
+What am I?\"") (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-9>) (
+ACTION OUBLIETTE-F)> 
+<GLOBAL OUBLIETTE-SCORE 20> 
+<DEFINE-ROUTINE OUBLIETTE-F> 
+<OBJECT TRIPLET (LOC GLOBAL-OBJECTS) (DESC "triplet") (SYNONYM TRIPLET TRIPLETS
+QUADRUPLET QUINTUPLET)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT SEAMANS-CAP (LOC OUBLIETTE) (DESC "seaman's cap") (FDESC
+"The last prisoner in the oubliette must have been a sailor; an old seaman's
+cap lies discarded in the corner.") (SYNONYM CAP HAT) (ADJECTIVE OLD SEAMAN\'S
+SEAMAN) (FLAGS TAKEBIT WEARBIT MAGICBIT) (GENERIC G-HAT-F) (VALUE 12)> 
+<DEFINE-ROUTINE G-HAT-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<ROOM CELL (LOC ROOMS) (REGION "Flatheadia") (DESC "Cell") (NW TO DUNGEON) (OUT
+TO DUNGEON) (FLAGS RLANDBIT) (SYNONYM CELL) (ICON CELL-ICON) (MAP-LOC <PTABLE
+SECRET-WING-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-10>) (ACTION CELL-F)> 
+<DEFINE-ROUTINE CELL-F> 
+<OBJECT GIANT-SPIDERS (LOC CELL) (DESC "giant spider") (SYNONYM SPIDER SPIDERS)
+(ADJECTIVE LARGE) (FLAGS NDESCBIT) (ACTION GIANT-SPIDERS-F)> 
+<DEFINE-ROUTINE GIANT-SPIDERS-F> 
+<OBJECT COBWEBS (LOC CELL) (DESC "cobwebs") (SYNONYM COBWEBS WEB COBWEB WEBS) (
+ADJECTIVE THICK) (FLAGS NDESCBIT NARTICLEBIT PLURALBIT) (ACTION COBWEBS-F)> 
+<DEFINE-ROUTINE COBWEBS-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT FLASK (DESC "stoppered glass flask filled with liquid") (LDESC
+"A stoppered glass flask with a skull-and-crossbones marking is here.
+The flask is filled with some clear liquid.") (SYNONYM FLASK) (ADJECTIVE GLASS)
+(FLAGS TAKEBIT TRANSBIT READBIT MAGICBIT SEARCHBIT) (CAPACITY 5) (SIZE 5) (
+VALUE 0) (TEXT "There is a skull-and-crossbones engraved on the glass.") (
+ACTION FLASK-F)> 
+<DEFINE-ROUTINE FLASK-F> 
+<OBJECT LIQUID (LOC FLASK) (DESC "clear liquid") (SYNONYM LIQUID) (ADJECTIVE
+CLEAR) (FLAGS NDESCBIT) (ACTION LIQUID-F)> 
+<DEFINE-ROUTINE LIQUID-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<ROOM TORTURE-CHAMBER (LOC ROOMS) (REGION "Flatheadia") (DESC "Torture Chamber"
+) (LDESC "This room contains all your standard torture devices: an iron maiden,
+a water chamber, a snake pit, a comfy chair, and so forth. The only
+obvious exit is northeast.") (NE TO DUNGEON) (OUT TO DUNGEON) (FLAGS RLANDBIT)
+(SYNONYM CHAMBER) (ADJECTIVE TORTURE) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM
+MAP-GEN-Y-7 MAP-GEN-X-8>) (ACTION TORTURE-CHAMBER-F)> 
+<DEFINE-ROUTINE TORTURE-CHAMBER-F> 
+<DEFINE-ROUTINE METRONOME-TORTURE> 
+<BEGIN-SEGMENT 0> 
+<GLOBAL METRONOME-LOC <>> 
+<GLOBAL METRONOME-COUNTER 0> 
+<GLOBAL METRONOME-ON <>> 
+<OBJECT METRONOME (DESC "metronome") (SYNONYM METRONOME) (FLAGS TAKEBIT
+TRYTAKEBIT MAGICBIT) (VALUE 0) (ACTION METRONOME-F)> 
+<DEFINE-ROUTINE METRONOME-F> 
+<DEFINE-ROUTINE I-METRONOME> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<OBJECT COMFY-CHAIR (LOC TORTURE-CHAMBER) (DESC "comfy chair") (SYNONYM CHAIR)
+(ADJECTIVE COMFY) (FLAGS NDESCBIT CONTBIT INBIT SEARCHBIT VEHBIT SURFACEBIT
+OPENBIT) (ACTION TORTURE-DEVICE-F)> 
+<OBJECT IRON-MAIDEN (LOC TORTURE-CHAMBER) (DESC "iron maiden") (SYNONYM MAIDEN)
+(ADJECTIVE IRON) (FLAGS NDESCBIT VOWELBIT INBIT CONTBIT SEARCHBIT VEHBIT) (
+ACTION TORTURE-DEVICE-F)> 
+<OBJECT WATER-CHAMBER (LOC TORTURE-CHAMBER) (DESC "water chamber") (SYNONYM
+CHAMBER) (ADJECTIVE WATER) (FLAGS NDESCBIT CONTBIT INBIT SEARCHBIT VEHBIT) (
+ACTION TORTURE-DEVICE-F)> 
+<OBJECT SNAKE-PIT (LOC TORTURE-CHAMBER) (DESC "snake pit") (SYNONYM PIT LID) (
+ADJECTIVE SNAKE) (FLAGS NDESCBIT CONTBIT INBIT SEARCHBIT VEHBIT) (ACTION
+TORTURE-DEVICE-F)> 
+<OBJECT THOUSANDS-OF-SNAKES (LOC SNAKE-PIT) (DESC "writhing mass of snakes") (
+SYNONYM SNAKE MASS) (ADJECTIVE WRITHING)> 
+<DEFINE-ROUTINE TORTURE-DEVICE-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM WEST-HALL (LOC ROOMS) (REGION "Flatheadia") (DESC "West Hall") (WEST TO
+WEST-WING IF WEST-DOOR IS OPEN) (NE TO FORMAL-GARDEN) (FLAGS RLANDBIT ONBIT) (
+GLOBAL WEST-DOOR LOCK-OBJECT) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-3>) (ACTION WEST-HALL-F)> 
+<DEFINE-ROUTINE WEST-HALL-F> 
+<OBJECT WEST-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (ADJECTIVE
+LARGE OAK) (FLAGS DOORBIT LOCKEDBIT) (ACTION WEST-DOOR-F)> 
+<DEFINE-ROUTINE WEST-DOOR-F> 
+<ROOM WEST-WING (LOC ROOMS) (REGION "Flatheadia") (DESC "West Wing") (EAST TO
+WEST-HALL IF WEST-DOOR IS OPEN) (WEST PER DIRIGIBLE-HANGAR-ENTER-F) (NORTH TO
+PEG-ROOM) (SOUTH TO GYM) (FLAGS RLANDBIT ONBIT) (GLOBAL WEST-DOOR LOCK-OBJECT)
+(VALUE 8) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-2>) (ICON
+WEST-WING-ICON) (ACTION WEST-WING-F)> 
+<DEFINE-ROUTINE WEST-WING-F> 
+<GLOBAL NUT-OPENED <>> 
+<GLOBAL NUT-SHOWN <>> 
+<GLOBAL NUT-EATEN <>> 
+<GLOBAL J-DISPOSED 0> 
+<DEFINE-ROUTINE DIRIGIBLE-HANGAR-ENTER-F> 
+\ 
+<ROOM PEG-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Peg Room") (OUT TO
+WEST-WING) (SOUTH TO WEST-WING) (NORTH TO GAMING-ROOM IF PEG-PASSAGE-OPENED) (
+FLAGS RLANDBIT ONBIT) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>) (
+ICON PEG-ROOM-ICON) (ACTION PEG-ROOM-F)> 
+<DEFINE-ROUTINE PEG-ROOM-F> 
+<OBJECT PBOZ-OBJECT (LOC GLOBAL-OBJECTS) (DESC "Peggleboz") (SYNONYM PEGGLEBOZ)
+(ADJECTIVE GUSTAV) (RESEARCH
+"\"Peggleboz, a popular game of jumping pegs, is named after its creator,
+Gustav Peggleboz (399 - 456 GUE).\"") (ACTION PBOZ-OBJECT-F)> 
+<DEFINE-ROUTINE PBOZ-OBJECT-F> 
+<OBJECT PEGBOARD (LOC PEG-ROOM) (DESC "pegboard") (SYNONYM BOARD PEGBOARD) (
+ADJECTIVE PEG) (FLAGS NDESCBIT TRYTAKEBIT) (ACTION PEGBOARD-F)> 
+<DEFINE-ROUTINE PEGBOARD-F> 
+<OBJECT PEGBOARD-PEGS (LOC PEG-ROOM) (DESC "peg") (SYNONYM PEG) (FLAGS NDESCBIT
+TRYTAKEBIT) (ACTION PEGBOARD-PEGS-F)> 
+<DEFINE-ROUTINE PEGBOARD-PEGS-F> 
+<OBJECT SET-OF-INSTRUCTIONS (LOC PEG-ROOM) (OWNER SET-OF-INSTRUCTIONS) (DESC
+"set of instructions") (SYNONYM SET INSTRUCTIONS RULES) (FLAGS NDESCBIT READBIT
+) (TEXT "\"Rules for PEGGLEBOZ:|
+1. Pegs can only move by jumping another peg.|
+2. Pegs can only jump one peg per move.|
+3. Pegs jumped are removed.|
+4. Your goal is to end up with one peg in the starting hole.|
+5. To begin, simply type PLAY PEGGLEBOZ!\"")> 
+<CONSTANT PBOZ-PICSET-TBL <TABLE UNHL-PEG HL-PEG BG-A BG-B BG-C BG-D BG-E BG-F
+BG-G BG-H BG-I BG-J BG-K BG-L BG-M BG-N BG-O BG-P BG-Q BG-R BG-S BG-T BG-U
+RESTART-BOX EXIT-BOX SHOW-MOVES-BOX DIM-RESTART-BOX DIM-SHOW-MOVES-BOX 0>> 
+<DEFINE-ROUTINE PEG-GAME> 
+<DEFINE-ROUTINE PBOZ-CLICK> 
+<DEFINE-ROUTINE SETUP-PBOZ> 
+<CONSTANT PBOZ-PIC-TABLE <PTABLE ,PBOZ-A-LOC ,PBOZ-B-LOC ,PBOZ-C-LOC ,
+PBOZ-D-LOC ,PBOZ-E-LOC ,PBOZ-F-LOC ,PBOZ-G-LOC ,PBOZ-H-LOC ,PBOZ-I-LOC ,
+PBOZ-J-LOC ,PBOZ-K-LOC ,PBOZ-L-LOC ,PBOZ-M-LOC ,PBOZ-N-LOC ,PBOZ-O-LOC ,
+PBOZ-P-LOC ,PBOZ-Q-LOC ,PBOZ-R-LOC ,PBOZ-S-LOC ,PBOZ-T-LOC ,PBOZ-U-LOC>> 
+<CONSTANT BOARD-TABLE <ITABLE 44 0>> 
+<DEFINE-ROUTINE DRAW-PEGS> 
+<CONSTANT PEG-BG-PIC-TBL <PLTABLE BG-A BG-B BG-C BG-D BG-E BG-F BG-G BG-H BG-I
+BG-J BG-K BG-L BG-M BG-N BG-O BG-P BG-Q BG-R BG-S BG-T BG-U>> 
+<DEFINE-ROUTINE RESET-PEGBOARD> 
+<CONSTANT PEG-TABLE <TABLE 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1>> 
+<DEFINE-ROUTINE LEGAL-MOVE> 
+<CONSTANT LEGAL-MOVE-TABLE <PTABLE <PTABLE 0 0> <PTABLE 5 3 0 0 0 0 0 0> <
+PTABLE 4 3 0 0 0 0 0 0> <PTABLE 6 4 8 5 0 0 0 0> <PTABLE 2 3 9 6 11 7 0 0> <
+PTABLE 1 3 10 7 12 8 0 0> <PTABLE 3 4 8 7 14 9 16 10> <PTABLE 15 10 17 11 0 0 0
+0> <PTABLE 3 5 6 7 16 11 18 12> <PTABLE 4 6 11 10 20 14 0 0> <PTABLE 5 7 12 11
+0 0 0 0> <PTABLE 4 7 9 10 0 0 0 0> <PTABLE 5 8 10 11 21 18 0 0> <PTABLE 15 14 0
+0 0 0 0 0> <PTABLE 6 9 16 15 0 0 0 0> <PTABLE 7 10 13 14 17 16 0 0> <PTABLE 6
+10 8 11 14 15 18 17> <PTABLE 7 11 15 16 19 18 0 0> <PTABLE 8 12 16 17 0 0 0 0>
+<PTABLE 17 18 0 0 0 0 0 0> <PTABLE 9 14 0 0 0 0 0 0> <PTABLE 12 18 0 0 0 0 0 0>
+>> 
+<DEFINE-ROUTINE PBOZ-WIN-CHECK> 
+<DEFINE-ROUTINE PEG-COUNT> 
+<CONSTANT PEG-MOVE-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>> 
+<CONSTANT LETTER-OFFSET <- <ASCII !\A> 1>> 
+<GLOBAL PEG-MOVE-NUMBER 0> 
+<GLOBAL PEG-PASSAGE-OPENED <>> 
+<DEFINE-ROUTINE DISPLAY-MOVES> 
+<ROOM GAMING-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Gaming Room") (LDESC
+"This is a plushly carpeted room draped in deeply hued velvets and satins.
+The sole exit is south.") (SOUTH TO PEG-ROOM) (OUT TO WEST-WING) (FLAGS ONBIT
+RLANDBIT) (GLOBAL CARPET) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-2
+>) (ACTION GAMING-ROOM-F)> 
+<DEFINE-ROUTINE GAMING-ROOM-F> 
+<OBJECT CARPET (LOC LOCAL-GLOBALS) (DESC "carpet") (SYNONYM CARPET CARPETING) (
+ADJECTIVE PLUSH RED) (ACTION CARPET-F)> 
+<DEFINE-ROUTINE CARPET-F> 
+<ROOM GYM (LOC ROOMS) (REGION "Flatheadia") (DESC "Gym") (LDESC
+"Dimwit despised all forms of exercise; this room must have been a later
+addition by one of his successors. Doorways lead north and southwest.") (NORTH
+TO WEST-WING) (SW TO STEAM-BATH) (FLAGS RLANDBIT ONBIT) (SYNONYM GYM) (MAP-LOC
+<PTABLE MAIN-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-2>) (ICON GYM-ICON)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT DUMBBELL (LOC GYM) (DESC "dumbbell") (LDESC
+"A 100-ugh dumbbell is sitting here, looking heavy.") (SYNONYM DUMBBELL WEIGHTS
+SET) (ADJECTIVE HEAVY 100-UGH) (FLAGS TAKEBIT MAGICBIT) (SIZE 99) (VALUE 12) (
+ACTION DUMBELL-F)> 
+<DEFINE-ROUTINE DUMBELL-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM STEAM-BATH (LOC ROOMS) (REGION "Flatheadia") (DESC "Steam Bath") (LDESC
+"For generations, the Kings of Quendor have come here to sweat off excess
+pounds (which, given their excessive infatuation with chocolate truffles,
+was plenty often). The only exit is northeast.") (NE TO GYM) (OUT TO GYM) (
+FLAGS RLANDBIT ONBIT) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-1>)> 
+<ROOM EAST-HALL (LOC ROOMS) (REGION "Flatheadia") (DESC "East Hall") (EAST TO
+EAST-WING IF EAST-DOOR IS OPEN) (NW TO COURTYARD) (FLAGS RLANDBIT ONBIT) (
+GLOBAL EAST-DOOR LOCK-OBJECT) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-7>) (ACTION EAST-HALL-F)> 
+<DEFINE-ROUTINE EAST-HALL-F> 
+<OBJECT EAST-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (ADJECTIVE
+LARGE HEAVY OAK OAKEN) (FLAGS LOCKEDBIT DOORBIT) (ACTION EAST-DOOR-F)> 
+<DEFINE-ROUTINE EAST-DOOR-F> 
+<ROOM EAST-WING (LOC ROOMS) (REGION "Flatheadia") (DESC "East Wing") (LDESC
+"This wide corridor runs the length of the east wing of the castle. The
+corridor ends at a large door to the west. There are openings to the north,
+south and east.") (WEST TO EAST-HALL IF EAST-DOOR IS OPEN) (SOUTH TO CHAPEL) (
+NORTH TO LIBRARY) (EAST TO GUEST-ROOMS) (GLOBAL EAST-DOOR LOCK-OBJECT) (FLAGS
+RLANDBIT ONBIT) (VALUE 8) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8
+>) (ICON EAST-WING-ICON)> 
+<ROOM GUEST-ROOMS (LOC ROOMS) (REGION "Flatheadia") (DESC "Guest Rooms") (LDESC
+"This is where visitors to the castle would stay. Many stayed for decades.
+Passages lead east and west.") (EAST TO SERVANTS-QUARTERS) (WEST TO EAST-WING)
+(FLAGS RLANDBIT ONBIT) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)>
+
+<BEGIN-SEGMENT 0> 
+<OBJECT WAND (LOC GUEST-ROOMS) (DESC "wand") (FDESC
+"It seems that a wizard must have been a recent guest at the castle, since
+a rather typical wizardly wand is lying here.") (SYNONYM WAND WANDS) (ADJECTIVE
+TYPICAL WIZARDLY INANIMATION MAGIC) (FLAGS TAKEBIT READBIT) (RESEARCH
+"\"Wands are among the most useful forms of magic; the wand is merely
+pointed at the object to be ensorcelled.\"") (SIZE 3) (ACTION WAND-F)> 
+<GLOBAL WAND-LIFE 5> 
+<DEFINE-ROUTINE WAND-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM SERVANTS-QUARTERS (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Servants' Quarters") (LDESC
+"These are the spartan rooms where the servants lived (if you can actually call
+this \"living\"). A passage leads west and a narrow stair spirals upward.") (
+WEST TO GUEST-ROOMS) (UP TO JESTERS-QUARTERS) (FLAGS RLANDBIT) (SYNONYM
+QUARTERS) (ADJECTIVE SERVANT\'S) (GLOBAL STAIRS) (MAP-LOC <PTABLE MAIN-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-10>)> 
+<ROOM CHAPEL (LOC ROOMS) (REGION "Flatheadia") (DESC "Chapel") (LDESC
+"None of the Flatheads were particularly religious, but that didn't stop
+Dimwit from building the biggest chapel in all of Quendor. The exit is north,
+at the rear of the chapel. Just below the altar is a small trap door.") (NORTH
+TO EAST-WING) (DOWN TO CRYPT IF TRAP-DOOR IS OPEN) (SYNONYM CHAPEL) (GLOBAL
+TRAP-DOOR) (FLAGS RLANDBIT ONBIT) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-6
+MAP-GEN-X-8>) (ICON CHAPEL-ICON)> 
+<OBJECT CHAPEL-ALTAR (LOC CHAPEL) (DESC "altar") (SYNONYM ALTAR) (FLAGS
+NDESCBIT VOWELBIT SURFACEBIT SEARCHBIT CONTBIT OPENBIT)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM LOWER-HALL (LOC ROOMS) (REGION "Flatheadia") (DESC "Lower Hall") (LDESC
+"This large hall, barely illuminated by your light, has seen its better
+days; based on the dust and debris, the lower levels of the castle probably
+haven't been maintained since Dimwit's death. Stairs lead up and down; the
+latter stair looks particularly forbidding. Passages head off to the north,
+south, southeast, and southwest.") (NORTH TO LABORATORY) (SOUTH TO KENNELS) (SW
+TO G-U-HIGHWAY) (SE TO ROYAL-ZOO) (DOWN TO LOWEST-HALL) (UP TO GREAT-HALL) (
+FLAGS RLANDBIT) (GLOBAL STAIRS) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-6>)> 
+<ROOM LABORATORY (LOC ROOMS) (REGION "Flatheadia") (DESC "Laboratory") (LDESC
+"You have entered the lab that was affectionately known as Froblo Park.
+The main exit is south, but there's a narrow doorway on the north wall.") (
+SOUTH TO LOWER-HALL) (NORTH TO TESTING-ROOM) (FLAGS RLANDBIT) (SYNONYM
+LABORATORY) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>) (
+ICON LABORATORY-ICON)> 
+<OBJECT SCREWDRIVER (LOC LABORATORY) (DESC "screwdriver") (FDESC
+"Sitting on the lab bench is an old screwdriver.") (SYNONYM SCREWDRIVER DRIVER)
+(ADJECTIVE SCREW OLD) (FLAGS TAKEBIT MAGICBIT) (VALUE 12)> 
+<ROOM TESTING-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Testing Room") (
+LDESC "This is where certain dangerous experiments would take place. There
+are two large booths, one on the left side of the room, the other on
+the right side. The only exit is south.") (SOUTH TO LABORATORY) (OUT TO
+LABORATORY) (FLAGS RLANDBIT) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-6>)> 
+<OBJECT LEFT-BOOTH (LOC TESTING-ROOM) (DESC "left booth") (SYNONYM BOOTH) (
+ADJECTIVE LEFT) (FLAGS NDESCBIT VEHBIT INBIT DROPBIT CONTBIT OPENBIT SEARCHBIT)
+(GENERIC G-BOOTH-F) (CAPACITY 60) (ACTION BOOTH-F)> 
+<OBJECT RIGHT-BOOTH (LOC TESTING-ROOM) (DESC "right booth") (SYNONYM BOOTH) (
+ADJECTIVE RIGHT) (FLAGS NDESCBIT VEHBIT INBIT DROPBIT CONTBIT OPENBIT SEARCHBIT
+) (GENERIC G-BOOTH-F) (CAPACITY 60) (ACTION BOOTH-F)> 
+<DEFINE-ROUTINE G-BOOTH-F> 
+<DEFINE-ROUTINE BOOTH-F> 
+<OBJECT LEFT-BOOTH-BUTTON (LOC LEFT-BOOTH) (DESC "ominous black button") (
+SYNONYM BUTTON) (ADJECTIVE OMINOUS BLACK) (FLAGS NDESCBIT) (GENERIC G-BUTTON-F)
+(ACTION BOOTH-BUTTON-F)> 
+<OBJECT RIGHT-BOOTH-BUTTON (LOC RIGHT-BOOTH) (DESC "ominous black button") (
+SYNONYM BUTTON) (ADJECTIVE OMINOUS BLACK) (GENERIC G-BUTTON-F) (FLAGS NDESCBIT)
+(ACTION BOOTH-BUTTON-F)> 
+<DEFINE-ROUTINE G-BUTTON-F> 
+<GLOBAL TURNED-INTO <>> 
+<DEFINE-ROUTINE BOOTH-BUTTON-F> 
+<DEFINE-ROUTINE I-UNTURN> 
+<DEFINE-ROUTINE TO-SPEAK-OF> 
+<DEFINE-ROUTINE GOOD-MEAL> 
+<ROOM KENNELS (LOC ROOMS) (REGION "Flatheadia") (DESC "Kennels") (LDESC
+"This was once where the royal bloodhounds lived. Considering the size
+of the leash and collar fragments scattered around, the royal bloodhounds
+were BIG. Passages lead east and north.") (NORTH TO LOWER-HALL) (EAST TO
+ROYAL-ZOO) (FLAGS RLANDBIT) (SYNONYM KENNEL KENNELS) (MAP-LOC <PTABLE
+LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>) (ICON KENNELS-ICON)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT TOBOGGAN (LOC KENNELS) (DESC "toboggan") (SYNONYM TOBOGGAN SLED
+INSCRIPTION) (FLAGS TAKEBIT READBIT VEHBIT CONTBIT OPENBIT SEARCHBIT SURFACEBIT
+) (CAPACITY 30) (SIZE 20) (ACTION TOBOGGAN-F) (TEXT
+"A large inscription says, \"Made by the Frobozz Magic Toboggan Company.\"
+Below that is a faded image of a blooming morgia plant, with the name
+\"Morgiabud.\" It's possible that this sled may have once belonged to
+publishing giant William Randolph Flathead (a.k.a. \"Citizen Flathead\").")> 
+<DEFINE-ROUTINE TOBOGGAN-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM ROYAL-ZOO (LOC ROOMS) (REGION "Flatheadia") (DESC "Royal Zoo") (LDESC
+"Dimwit loved zoos, because he loved imprisonment of any kind -- if the
+dungeons were full of prisoners he could at least get some joy from
+throwing a couple of minxes behind bars. This zoo, with 69,105 cages,
+is easily the largest in Quendor. There are passages to the west and
+northwest, and a wide tunnel leads east.") (NW TO LOWER-HALL) (WEST TO KENNELS)
+(EAST TO WEST-SHORE) (FLAGS RLANDBIT) (SYNONYM ZOO) (ADJECTIVE ROYAL) (MAP-LOC
+<PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>) (ICON ROYAL-ZOO-ICON)> 
+<OBJECT CAGE (LOC ROYAL-ZOO) (DESC "cage") (FDESC
+"The zoo has been extensively looted; only one of the many nearby cages
+still seems to be occupied.") (SYNONYM CAGE) (FLAGS CONTBIT SEARCHBIT TRANSBIT)
+(ACTION CAGE-F)> 
+<DEFINE-ROUTINE CAGE-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT SNAKE (LOC CAGE) (DESC "snake") (SYNONYM SNAKE ROPE) (FLAGS TAKEBIT
+ANIMATEDBIT) (INANIMATE-DESC "rope") (WAND-TEXT
+"The snake shivers and shimmers and is then still. Too still. You approach,
+tentatively at first, then with more conviction. The snake is gone, replaced
+by (or turned into!) a good, heavy rope.") (ANIMATE-ROUTINE I-W-SNAKE) (ACTION
+SNAKE-F)> 
+<DEFINE-ROUTINE SNAKE-F> 
+<DEFINE-ROUTINE I-W-SNAKE> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM LOWEST-HALL (LOC ROOMS) (REGION "Flatheadia") (DESC "Lowest Hall") (LDESC
+"You get the feeling that no ray of light has touched these walls in ages.
+Few have even ventured down here since the Curse was laid upon the castle
+those many years ago. A decrepit stair leads upward, and there's an opening
+to the north. The bottom of a steep, gravelly passage is visible to the
+east. To the south is the most massively reinforced door you've ever seen.
+A rickety ladder can take you down to even lower domains.") (NORTH TO
+PASSAGE-STORAGE-ROOM) (SOUTH TO VAULT IF VAULT-DOOR IS OPEN) (EAST SORRY
+"You can't get a footing on the steep, gravelly passage.") (UP TO LOWER-HALL) (
+FLAGS RLANDBIT) (DOWN TO PITS) (GLOBAL VAULT VAULT-DOOR LOCK-OBJECT
+FIXED-LADDER STAIRS) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-4>)> 
+<OBJECT VAULT-DOOR (LOC LOCAL-GLOBALS) (DESC "vault door") (SYNONYM DOOR) (
+ADJECTIVE VAULT) (FLAGS DOORBIT LOCKEDBIT) (ACTION VAULT-DOOR-F)> 
+<DEFINE-ROUTINE VAULT-DOOR-F> 
+<OBJECT DIAL (LOC LOWEST-HALL) (DESC "dial") (SYNONYM DIAL) (ADJECTIVE LARGE) (
+FLAGS NDESCBIT) (OWNER VAULT-DOOR) (ACTION DIAL-F)> 
+<GLOBAL DIAL-NUMBER 0> 
+<DEFINE-ROUTINE DIAL-F> 
+<ROOM VAULT (LOC ROOMS) (REGION "Flatheadia") (DESC "Vault") (LDESC
+"This was just the vault where Dimwit stored his trifles; his valuables
+were stored in a hidden vault buried seven miles under the Flathead
+Mountains, accessible only by a chain of sixty-three secret teleportation
+spells. The only exit is north.") (NORTH TO LOWEST-HALL IF VAULT-DOOR IS OPEN)
+(OUT TO LOWEST-HALL IF VAULT-DOOR IS OPEN) (FLAGS RLANDBIT) (GLOBAL VAULT-DOOR)
+(SYNONYM VAULT) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>)
+(ICON VAULT-ICON) (ACTION VAULT-F)> 
+<DEFINE-ROUTINE VAULT-F> 
+<OBJECT STOCK-CERTIFICATE (LOC VAULT) (DESC "stock certificate") (SYNONYM
+CERTIFICATE STOCK) (ADJECTIVE STOCK RARE) (FLAGS TAKEBIT BURNBIT READBIT
+MAGICBIT) (VALUE 12) (SIZE 2) (TEXT
+"The certificate reads \"FrobozzCo International -- 923,130,877 shares.\"")> 
+<ROOM PASSAGE-STORAGE-ROOM (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Passage Storage Room") (LDESC
+"This is a tremendous warehouse where passageways and tunnels would be stored
+before being installed as part of the Great Underground Empire. The only exit
+is south.") (SOUTH TO LOWEST-HALL) (OUT TO LOWEST-HALL) (FLAGS RLANDBIT) (
+MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON
+PASSAGE-STORAGE-ICON)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT NW-SE-PASSAGE (LOC PASSAGE-STORAGE-ROOM) (DESC
+"northwest-southeast passage") (SYNONYM PASSAGE PASSAGEWAY) (ADJECTIVE MAGIC NW
+NW-SE SLIGHTLY IRREGULAR) (FLAGS TAKEBIT TRYTAKEBIT) (DESCFCN NW-SE-PASSAGE-F)
+(OWNER <>) (SIZE 25) (ACTION PASSAGE-F)> 
+<DEFINE-ROUTINE NW-SE-PASSAGE-F> 
+<OBJECT N-S-PASSAGE (LOC PASSAGE-STORAGE-ROOM) (DESC "north-south passage") (
+SYNONYM PASSAGE PASSAGEWAY) (ADJECTIVE MAGIC NORTH-SOUTH N-S SLIGHTLY DAMAGED)
+(FLAGS TAKEBIT TRYTAKEBIT) (DESCFCN N-S-PASSAGE-F) (OWNER <>) (SIZE 25) (ACTION
+PASSAGE-F)> 
+<DEFINE-ROUTINE N-S-PASSAGE-F> 
+<DEFINE-ROUTINE PASSAGE-F> 
+<DEFINE-ROUTINE D-PASSAGE> 
+<GLOBAL N-S-PASSAGE-DIR <>> 
+<GLOBAL NW-SE-PASSAGE-DIR <>> 
+<GLOBAL N-S-PASSAGE-LOC <>> 
+<GLOBAL NW-SE-PASSAGE-LOC <>> 
+<OBJECT NOTICE (DESC "notice") (SYNONYM NOTICE) (FLAGS TAKEBIT BURNBIT READBIT)
+(SIZE 2) (TEXT "\"Hello, Builder!|
+   Your Magic Passage should last you for many useful years. To install,
+simply INSTALL THE PASSAGE IN THE _____ WALL. Remember, your Magic Passage,
+once installed, is not removable! Please contact your dealer with any
+questions or problems!|
+   Another fine product of the Frobozz Magic Passage Company.\"")> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM PITS (LOC ROOMS) (DESC "Pits") (REGION "Flatheadia") (UP TO LOWEST-HALL)
+(DOWN PER PIT-ENTER-F) (FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL FIXED-LADDER
+PITS-OBJECT) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>) (
+THINGS <> SHADOW PHIL-SHADOW-PS) (ACTION PITS-F)> 
+<DEFINE-ROUTINE PITS-F> 
+<DEFINE-ROUTINE D-PITS-FLOOR> 
+<DEFINE-ROUTINE PIT-ENTER-F> 
+<OBJECT PITS-OBJECT (LOC LOCAL-GLOBALS) (DESC "bottomless pit") (SYNONYM PIT
+PITS) (ADJECTIVE BOTTOMLESS) (ACTION PITS-OBJECT-F)> 
+<DEFINE-ROUTINE PITS-OBJECT-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT LANTERN (LOC PITS) (DESC "brass lantern") (FDESC
+"At the far end of the cavern sits an ancient battery-powered brass
+lantern.") (SYNONYM LAMP LANTERN LIGHT MONOGRAM) (ADJECTIVE ANCIENT BRASS
+BATTERY-POWERED) (FLAGS TRYTAKEBIT TAKEBIT LIGHTBIT MAGICBIT READBIT) (SIZE 15)
+(VALUE 0) (TEXT "You can barely read the worn letters: \"T. A. F.\"") (ACTION
+LANTERN-F)> 
+<DEFINE-ROUTINE LANTERN-F> 
+<GLOBAL LANTERN-COUNTER 500> 
+<DEFINE-ROUTINE I-LANTERN> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM LEDGE-IN-PIT (LOC ROOMS) (DESC "Ledge in Bottomless Pit") (REGION
+"Region:  Unknown") (LDESC
+"This is a wide, irregular ledge, far below the lip of the pit. The ledge
+is strewn with the bones of creatures (including a few luckless humans)
+who fell into the pit and landed here, to be devoured by grues. Rough
+handholds, possibly natural, lead upward and downward.") (UP TO PITS) (DOWN TO
+MOUTH-OF-CAVE) (FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL BONES PITS-OBJECT) (
+MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-2>) (ICON
+LEDGE-IN-PIT-ICON) (THINGS WIDE LEDGE LEDGE-IN-PIT-PS)> 
+<DEFINE-ROUTINE LEDGE-IN-PIT-PS> 
+<ROOM MOUTH-OF-CAVE (LOC ROOMS) (DESC "Mouth of Cave") (REGION
+"Region:  Unknown") (LDESC
+"A narrow, slimy cave connects here with the bottomless pit, leading
+roughly northeast. The handholds in the rock walls of the pit, which have
+been fairly dependable down to here, seem to peter out just below you.") (UP TO
+LEDGE-IN-PIT) (DOWN SORRY "There are no more handholds!") (NE TO SLOPING-CAVE)
+(FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL PITS-OBJECT) (MAP-LOC <PTABLE
+LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-1>) (ICON MOUTH-OF-CAVE-ICON)> 
+<ROOM SLOPING-CAVE (LOC ROOMS) (DESC "Sloping Cave") (REGION "Region:  Unknown"
+) (LDESC "You are in a cramped cave with disgustingly sticky walls which press
+in against you. The cave drops sharply to the northeast, and rises
+sharply to the southwest.") (NE TO TOP-OF-WELL) (DOWN TO TOP-OF-WELL) (SW TO
+MOUTH-OF-CAVE) (UP TO MOUTH-OF-CAVE) (FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <
+PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>)> 
+<ROOM TOP-OF-WELL (LOC ROOMS) (DESC "Top of Well") (REGION "Region:  Unknown")
+(LDESC "The cave ends here at the opening of a natural well. The walls of the
+well look irregular enough to climb down. The sensation of being deep
+within the bowels of the earth is overpowering here; you feel as though
+you are farther down than anyone has ever been before.") (SW TO SLOPING-CAVE) (
+UP TO SLOPING-CAVE) (DOWN TO UNDER-THE-WORLD) (FLAGS RLANDBIT UNDERGROUNDBIT) (
+MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>)> 
+<ROOM UNDER-THE-WORLD (LOC ROOMS) (DESC "Under the World") (REGION
+"Region:  Unknown") (LDESC
+"This is surely the most incredible sight that any pair of eyes has ever
+gazed upon: You have reached the underside of the world, which hangs above
+you, an enormous slab of dirt and rock which stretches as far as you can see
+in all directions! A glowing white haze stretches below you.|
+   To the west, you can see the head and shoulders of a muscular brogmoid;
+the rest of his body seems to be lost in the haze. As your mind adjusts to the
+scale of this place, you realize that the brogmoid is tremendous beyond
+description, and that he is holding the world upon his shoulder and upper
+back.|
+   Thanks to some hardy roots which hang below the world, it looks like you
+could swing over to the shoulder of the brogmoid. Above you, a hole leads
+up into the world.") (UP TO TOP-OF-WELL) (DOWN SORRY
+"There's nothing there -- literally.") (WEST TO HANGING-FROM-ROOTS) (FLAGS
+RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL BROGMOID ROOTS) (MAP-LOC <PTABLE
+LOWER-LEVEL-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>) (ACTION UNDER-THE-WORLD-F)> 
+<DEFINE-ROUTINE UNDER-THE-WORLD-F> 
+<ROOM HANGING-FROM-ROOTS (LOC ROOMS) (DESC "Hanging From Roots") (REGION
+"Region:  Unknown") (LDESC
+"You are clutching some hardy tree roots, between a seemingly infinite plane
+of earth above you, and a seemingly infinite haze below. To the east, a tiny
+black spot indicates the opening of a well leading upward. To the west, part
+of the shoulder, neck, and ear of an incredibly gigantic brogmoid fills your
+view.") (UP SORRY "The world is in the way.") (DOWN SORRY
+"There's nothing there -- literally.") (WEST TO SHOULDER) (EAST TO
+UNDER-THE-WORLD) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL BROGMOID ROOTS) (
+MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-2>) (ICON ROOTS-ICON)
+> 
+<OBJECT ROOTS (LOC LOCAL-GLOBALS) (DESC "root") (SYNONYM ROOTS ROOT) (ADJECTIVE
+HARDY TREE) (ACTION ROOTS-F)> 
+<DEFINE-ROUTINE ROOTS-F> 
+<ROOM SHOULDER (LOC ROOMS) (DESC "Shoulder") (REGION "Region:  Unknown") (LDESC
+"You have landed on a shoulder of mind-numbing dimension. The hairs of the
+shoulder are like mighty trees, the pores like deep craters. Thanks to the
+thickness of the hair/trees, you could probably climb up the neck to the
+ear which looms above you. A series of underhanging roots make it possible
+to swing off to the east.") (EAST TO HANGING-FROM-ROOTS) (UP TO EAR) (FLAGS
+RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL BROGMOID ROOTS) (MAP-LOC <PTABLE
+LOWER-LEVEL-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-1>)> 
+<ROOM EAR (LOC ROOMS) (DESC "Ear") (REGION "Region:  Unknown") (IN TO INNER-EAR
+IF EAR-PASSAGE-OPEN ELSE "The mound of ear fungus blocks entry into the ear.")
+(DOWN TO SHOULDER) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL BROGMOID) (MAP-LOC
+<PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-1>) (ICON EAR-ICON) (ACTION
+EAR-F)> 
+<DEFINE-ROUTINE EAR-F> 
+<GLOBAL EAR-PASSAGE-OPEN <>> 
+<OBJECT EAR-FUNGUS (LOC EAR) (DESC "ear fungus") (SYNONYM FUNGUS FUNGI) (
+ADJECTIVE EAR) (FLAGS VOWELBIT NDESCBIT PLANTBIT) (GENERIC G-FUNGUS-F) (
+RESEARCH "\"A class of saprophytic parasitical plants which lack chlorophyll and are
+frequently found in the less hygienic cavities of brogmoids.\"") (ACTION
+EAR-FUNGUS-F)> 
+<DEFINE-ROUTINE EAR-FUNGUS-F> 
+<DEFINE-ROUTINE G-FUNGUS-F> 
+<GLOBAL FUNGUS-NUMBER 12> 
+<CONSTANT FUNGUS-TABLE <PTABLE "Seymour" "Sherman" "Irving" "Sammy" "Myron"
+"Boris" "Melvin" "Lester" "Julius" "Ricardo" "Omar" "Barnaby">> 
+<CONSTANT FUNGUS-WORDS <PTABLE <VOC "SEYMOUR" <>> <VOC "SHERMAN" <>> <VOC
+"IRVING" <>> <VOC "SAMMY" <>> <VOC "MYRON" <>> <VOC "BORIS" <>> <VOC "MELVIN" <
+>> <VOC "LESTER" <>> <VOC "JULIUS" <>> <VOC "RICARDO" <>> <VOC "OMAR" <>> <VOC
+"BARNABY" <>>>> 
+<OBJECT BROGMOID (LOC LOCAL-GLOBALS) (DESC "giant brogmoid") (SYNONYM BROGMOID
+BROGMOIDS SHOULDER EAR TOE) (ADJECTIVE LARGE) (ACTION BROGMOID-F)> 
+<DEFINE-ROUTINE BROGMOID-F> 
+<ROOM INNER-EAR (LOC ROOMS) (DESC "Inner Ear") (REGION "Region:  Unknown") (
+LDESC "You have reached the brogmoid's eardrum, which prevents any farther travel
+inward. A passage through a forest of fungus leads back out.") (IN SORRY
+"The membrane of the eardrum is tougher than most walls.") (OUT TO EAR) (FLAGS
+RLANDBIT OUTSIDEBIT) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-1
+EAR-ICON-LOC>)> 
+<OBJECT EARWAX (LOC INNER-EAR) (OWNER EARWAX) (DESC "hunk of brogmoid ear wax")
+(SYNONYM HUNK WAX EARWAX) (ADJECTIVE BROGMOID EAR) (FLAGS TAKEBIT)> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/castle.zap b/castle.zap
new file mode 100644
index 0000000..c0280eb
--- /dev/null
+++ b/castle.zap
@@ -0,0 +1,2732 @@
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	LOWER-HALL-ENTER-F,RARG
+	FSET?	OUTER-GATE,OPENBIT /?CTR2
+	ZERO?	TIME-STOPPED /?CCL3
+?CTR2:	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"Near the bottom of the flight, the steps are blocked by newly-fallen rubble!"
+	CRLF	
+	RFALSE	
+?CCL3:	RETURN	LOWER-HALL
+
+
+	.FUNCT	PROCLAMATION-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	PROCLAMATION,TRYTAKEBIT \FALSE
+	CALL2	ITAKE,TRUE-VALUE
+	EQUAL?	STACK,M-FATAL /TRUE
+	PUTP	PROCLAMATION,P?ACTION,FALSE-VALUE
+	PUTP	PROCLAMATION,P?OWNER,FALSE-VALUE
+	FCLEAR	PROCLAMATION,TRYTAKEBIT
+	PRINTR	"You rip the decree from the wall."
+
+
+	.FUNCT	ENTRANCE-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This is where visitors enter the castle proper, through the wide doorway to the north. "
+	FSET?	PORTCULLIS,OPENBIT /?CND4
+	PRINTI	"The doorway is currently blocked by a sturdy portcullis. "
+?CND4:	PRINTI	"Oddly, there is a doorbell on the inside of the doorway. Other doorways lead east, west, and south."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	IN?	JESTER,HERE \FALSE
+	FSET?	PORTCULLIS,OPENBIT /FALSE
+	CALL2	SETUP-ORPHAN,STR?44
+	RSTACK	
+
+
+	.FUNCT	DOORBELL-F
+	EQUAL?	PRSA,V?TOUCH,V?PUSH \FALSE
+	PRINTI	"""Ding, dong!"""
+	CRLF	
+	IN?	JESTER,HERE /TRUE
+	SET	'DO-J,TRUE-VALUE
+	ICALL2	I-JESTER,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	PORTCULLIS-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The portcullis, which is a heavy iron latticework used to block this entrance doorway, is "
+	ICALL2	OPEN-CLOSED,PORTCULLIS
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL5
+	FSET?	PORTCULLIS,OPENBIT /?CCL5
+	PRINTR	"You try to lift the portcullis, but with no effect (aside from nearly breaking your back)."
+?CCL5:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	PORTCULLIS,OPENBIT \FALSE
+	PRINT	WONT-BUDGE
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	MOAT-F
+	CALL2	TOUCHING?,MOAT
+	ZERO?	STACK /FALSE
+	EQUAL?	HERE,PARAPET,UPPER-BARBICAN \FALSE
+	CALL2	CANT-REACH,MOAT
+	RSTACK	
+
+
+	.FUNCT	INNER-BAILEY-F,RARG
+	ZERO?	DEMO-VERSION? /FALSE
+	EQUAL?	RARG,M-END \FALSE
+	CALL1	END-DEMO
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	WORM-F
+	EQUAL?	PRSA,V?EAT \?CCL3
+	EQUAL?	TURNED-INTO,ROOSTER \?CCL6
+	CALL2	GOOD-MEAL,WORM
+	RSTACK	
+?CCL6:	PRINTR	"Yukko!"
+?CCL3:	EQUAL?	PRSA,V?RESEARCH \FALSE
+	CALL	NOUN-USED?,WORM,W?WORM,W?EARTHWORM
+	ZERO?	STACK /FALSE
+	PRINTR	"""A low form of ground-dwelling animal life."""
+
+
+	.FUNCT	I-W-WORM,L
+	LOC	WORM >L
+	FSET	WORM,ANIMATEDBIT
+	IN?	WORM,LAKE-BOTTOM \?CCL3
+	REMOVE	WORM
+	RTRUE	
+?CCL3:	CALL2	META-LOC,WORM
+	EQUAL?	STACK,HERE \?CCL5
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The worm "
+	EQUAL?	L,PROTAGONIST,HERE /?CCL8
+	FSET?	L,DROPBIT /?CCL8
+	MOVE	WORM,HERE
+	FSET	L,OPENBIT
+	PRINTI	"wriggles out of"
+	ICALL2	TPRINT,L
+	JUMP	?CND6
+?CCL8:	PRINTI	"has resumed wriggling"
+?CND6:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL5:	CALL2	META-LOC,WORM
+	MOVE	WORM,STACK
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	TREE-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?GET-NEAR \?CCL5
+	PRINTR	"You are now standing at the base of the tree."
+?CCL5:	EQUAL?	PRSA,V?LISTEN \?CCL7
+	ZERO?	PLANT-TALKER /?CCL7
+	EQUAL?	PRSO,MIGHTY-ELM \?CCL12
+	PRINTR	"The mighty elm rumbles in a voice that bespeaks great age and weariness. It seems to be pining for its simple, happier, younger days. Most particularly, it seems to be fondly recalling a playful squirrel named ""Rosebud."""
+?CCL12:	EQUAL?	PRSO,SMALL-ELM \?CCL14
+	PRINTR	"The little elm's roots have, apparently, just reached down to a particularly yummy patch of decayed mulch, and the young elm is humming rhapsodically about the yumminess of the minerals therein."
+?CCL14:	PRINTR	"The two elms are exchanging off-color jokes, most of which seem to involve various methods of pollen transfer."
+?CCL7:	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB \?CCL16
+	EQUAL?	PRSO,SMALL-ELM \?CCL19
+	PRINTR	"Your weight is too much for this little tree."
+?CCL19:	PRINT	POORLY-CONFIGURED
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?LISTEN \?CCL21
+	ZERO?	PLANT-TALKER /?CCL21
+	PRINTR	"The tree's speech is very childlike and difficult to understand, but it seems to be fantasizing about the day when it will be tall enough to see over the castle walls."
+?CCL21:	EQUAL?	PRSA,V?MEASURE \FALSE
+	PRINTI	"You can"
+	EQUAL?	PRSO,MIGHTY-ELM \?CCL28
+	PRINTI	"'t come close to getting"
+	JUMP	?CND26
+?CCL28:	EQUAL?	PRSO,SMALL-ELM \?CCL31
+	PRINTI	" easily"
+	JUMP	?CND29
+?CCL31:	PRINTI	" just barely"
+?CND29:	PRINTI	" get"
+?CND26:	PRINTR	" your arms around the tree."
+
+
+	.FUNCT	BARBICAN-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This dimly lit room is the bottom level of the gate-tower which guards the castle's drawbridge. It lies at the tip of a peninsula into the moat; the rest of the peninsula is to the southeast. A drawbridge to the northwest is "
+	ICALL2	OPEN-CLOSED,DRAWBRIDGE
+	PRINTI	", and a ladder leads to an upper level."
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	CANNONBALL-F
+	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	P-PRSA-WORD,W?DROP \FALSE
+	EQUAL?	PRSO,CANNONBALL \FALSE
+	MOVE	CANNONBALL,HERE
+	FSET?	PRSI,PARTBIT \?CCL9
+	PRINTR	"Ouch!!!"
+?CCL9:	GETP	PRSI,P?SIZE
+	GRTR?	STACK,10 \?CCL11
+	PRINTR	"This has no effect."
+?CCL11:	PRINTI	"Miraculously,"
+	ICALL1	TPRINT-PRSI
+	PRINTR	" survives."
+
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	MURDER-HOLE-F,TAKER
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	PRINTR	"You can just make out the barbican below."
+?CCL3:	EQUAL?	PRSA,V?REACH-IN \?CCL5
+	PRINT	NOTHING-IN-REACH
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?PUT-THROUGH,V?PUT \FALSE
+	EQUAL?	PRSI,MURDER-HOLE \FALSE
+	EQUAL?	PRSO,CANNONBALL \?CCL12
+	CALL2	VISIBLE?,CANDLE
+	ZERO?	STACK /?CCL12
+	FSET?	CANDLE,ONBIT \?CCL12
+	CALL2	ULTIMATELY-IN?,CANDLE
+	ZERO?	STACK \?CND16
+	MOVE	CANDLE,PROTAGONIST
+?CND16:	PRINTI	"As you drop the cannonball through the murder hole, you hear a sickening ""splat,"" followed by a woman's scream!
+   ""Emily, what is it!""
+   ""It's Victor -- he's been murdered!""
+   ""I'll summon the Inspector! Ah, here he is now!"" You hear whispered questions and answers from the room below, followed by footsteps on the stairs. The jester enters, wearing a trenchcoat and smoking a large pipe.
+   ""I'm afraid I'm going to have to order Sgt. Duffy to place you under arrest, sir."" You grow dizzy with confusion, and your surroundings swirl wildly about you"
+	PRINT	ELLIPSIS
+	ICALL2	GOTO,DUNGEON
+	JUMP	?CND10
+?CCL12:	PRINTI	"You hear a ""thunk"" from down below."
+	CRLF	
+?CND10:	CALL	FIND-IN,BARBICAN,WHITEBIT >TAKER
+	ZERO?	TAKER \?CTR19
+	CALL	FIND-IN,BARBICAN,BLACKBIT >TAKER
+	ZERO?	TAKER /?CCL20
+?CTR19:	MOVE	PRSO,TAKER
+	EQUAL?	PRSO,PIGEON \TRUE
+	ICALL2	MOVE-TO-PERCH,TAKER
+	RTRUE	
+?CCL20:	MOVE	PRSO,BARBICAN
+	RTRUE	
+
+
+	.FUNCT	WHEEL-F
+	EQUAL?	PRSA,V?SET-DIR,V?SET \FALSE
+	FSET?	DRAWBRIDGE,OPENBIT \?CCL6
+	FCLEAR	DRAWBRIDGE,OPENBIT
+	JUMP	?CND4
+?CCL6:	FSET	DRAWBRIDGE,OPENBIT
+?CND4:	FSET	BARBICAN,REDESCBIT
+	PRINTI	"You hear a clattering clanking noise from below."
+	CRLF	
+	ICALL	ROB,DRAWBRIDGE,BARBICAN
+	RTRUE	
+
+
+	.FUNCT	DRAWBRIDGE-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You are standing on a sturdy wooden drawbridge across a moat. "
+	ZERO?	TIME-STOPPED \?CND4
+	PRINTI	"The surface of the moat roils from the thrashing of countless ravenous beasts. "
+?CND4:	PRINTI	"The drawbridge runs from a tall barbican at the southeast to a wide meadow at the northwest."
+	RTRUE	
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?CCL9
+	PRINTI	"The drawbridge is "
+	ICALL2	OPEN-CLOSED,DRAWBRIDGE
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?LOWER,V?OPEN \?PRD13
+	FSET?	DRAWBRIDGE,OPENBIT \?CCL11
+?PRD13:	EQUAL?	PRSA,V?RAISE,V?CLOSE \FALSE
+	FSET?	DRAWBRIDGE,OPENBIT \FALSE
+?CCL11:	PRINTR	"There's no apparent way to do that."
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	PARLOR-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	MOVE	SPENSEWEED,FISH-TANK
+	FCLEAR	SPENSEWEED,NDESCBIT
+	RTRUE	
+
+
+	.FUNCT	FISH-TANK-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	EQUAL?	PRSO,FISH-TANK \?CCL3
+	ZERO?	DESCRIBED-TANK-AS-SMALL /?CCL8
+	PRINTR	"The fish tank is much too large to carry! [Okay, I was exaggerating when I called the tank ""itsy-bitsy.""]"
+?CCL8:	SET	'DESCRIBED-TANK-AS-LARGE,TRUE-VALUE
+	PRINTR	"This tank is bigger than a lot of swimming pools!"
+?CCL3:	EQUAL?	PRSO,FLAMINGO,ROOSTER,FOX \FALSE
+	FSET?	PRSO,ANIMATEDBIT \FALSE
+	PRINTI	"The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" raises such a fuss that it becomes impossible."
+
+
+	.FUNCT	SPENSEWEED-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	IN?	PROTAGONIST,DB \?CCL5
+	CALL2	TOUCHING?,SPENSEWEED
+	ZERO?	STACK /?CCL5
+	CALL2	CANT-REACH,SPENSEWEED
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?DIG,V?TAKE \?CCL9
+	EQUAL?	PRSO,SPENSEWEED \?CCL9
+	PRINT	DEEPLY-ROOTED
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	PRINTR	"It's difficult to interpret the gurgly voice of the spenseweed, but it seems to be fretting about the possibility of plant-eating fish being introduced into the aquarium."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	LOBSTER-F
+	EQUAL?	PRSA,V?RESEARCH \?CCL3
+	CALL	NOUN-USED?,LOBSTER,W?LOBSTER
+	ZERO?	STACK /?CCL3
+	PRINT	STR?304
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL7
+	FSET?	LOBSTER,ANIMATEDBIT \?CCL7
+	ZERO?	TIME-STOPPED /?CCL12
+	ICALL	QUEUE,I-LOBSTER-PINCH,-1
+	RFALSE	
+?CCL12:	FSET?	GLOVE,WORNBIT \?CCL14
+	ICALL	QUEUE,I-LOBSTER-PINCH,2
+	MOVE	LOBSTER,PROTAGONIST
+	PRINTR	"Your gloved hand moves with blazing speed, lifting the lobster and avoiding its snapping pincers."
+?CCL14:	PRINTR	"The lobster snaps its pincers at you. You snatch your hand away just in time."
+?CCL7:	EQUAL?	PRSA,V?MUNG,V?KILL \?CCL16
+	EQUAL?	PRSI,HAMMER,CANNONBALL \?CCL16
+	PRINTR	"You pulverize the lobster into invisible jelly. Heartless; but then again, I understand there are a large group of people who release boiling these creatures alive."
+?CCL16:	EQUAL?	PRSA,V?EAT \FALSE
+	FSET?	LOBSTER,ANIMATEDBIT \FALSE
+	PRINTR	"1) It's not cooked. 2) It would probably bite your nose off if you tried. 3) You don't have any tableware. 4) You don't have any melted butter. 5) It isn't kosher."
+
+
+	.FUNCT	I-W-LOBSTER
+	ZERO?	TIME-STOPPED /?CND1
+	ICALL	QUEUE,I-W-LOBSTER,3
+	RFALSE	
+?CND1:	FSET	LOBSTER,ANIMATEDBIT
+	IN?	LOBSTER,LAKE-BOTTOM \?CCL5
+	REMOVE	LOBSTER
+	RTRUE	
+?CCL5:	IN?	LOBSTER,PROTAGONIST \?CCL7
+	IN?	LOBSTER,WALDO /?CCL7
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   Youch! The nutcracker just pinched you! As you drop it, you realize that it has turned back into a lobster."
+	EQUAL?	HERE,HANGING-FROM-ROOTS,UNDER-THE-WORLD \?CCL12
+	REMOVE	LOBSTER
+	PRINTR	" The poor creature plunges into the void."
+?CCL12:	MOVE	LOBSTER,HERE
+	CRLF	
+	RTRUE	
+?CCL7:	CALL2	VISIBLE?,LOBSTER
+	ZERO?	STACK /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   You notice the nutcracker waving its pincers. It seems that the nutcracker is once again a lobster."
+
+
+	.FUNCT	I-LOBSTER-PINCH
+	ZERO?	TIME-STOPPED \FALSE
+	FSET?	LOBSTER,ANIMATEDBIT \FALSE
+	ICALL2	DEQUEUE,I-LOBSTER-PINCH
+	CALL2	ULTIMATELY-IN?,LOBSTER
+	ZERO?	STACK /FALSE
+	IN?	LOBSTER,WALDO /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   Youch! The lobster gives you a painful nip, and you drop it like a hot potato."
+	EQUAL?	HERE,HANGING-FROM-ROOTS,UNDER-THE-WORLD \?CCL12
+	REMOVE	LOBSTER
+	PRINTR	" The poor creature plunges into the void."
+?CCL12:	MOVE	LOBSTER,HERE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	STARFISH-F
+	EQUAL?	PRSA,V?RESEARCH \FALSE
+	CALL	NOUN-USED?,STARFISH,W?STARFISH
+	ZERO?	STACK /FALSE
+	PRINT	STR?304
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-W-STARFISH
+	ZERO?	TIME-STOPPED /?CND1
+	ICALL	QUEUE,I-W-STARFISH,3
+	RFALSE	
+?CND1:	FSET	STARFISH,ANIMATEDBIT
+	IN?	STARFISH,LAKE-BOTTOM \?CCL5
+	REMOVE	STARFISH
+	RTRUE	
+?CCL5:	CALL2	VISIBLE?,STARFISH
+	ZERO?	STACK /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   With the tiniest wiggle, the star gives evidence that it is once again a starfish."
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	BICKERING-TORCH-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	ICALL	QUEUE,I-BICKERING-TORCH,-1
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?BURN,V?ON,V?EXAMINE \FALSE
+	CALL2	BURNED-OUT,BICKERING-TORCH
+	RSTACK	
+
+
+	.FUNCT	BURNED-OUT,OBJ
+	PRINTI	"The "
+	ICALL2	DPRINT,OBJ
+	PRINTR	" has burned out and cannot be rekindled."
+
+
+	.FUNCT	I-BICKERING-TORCH
+	ZERO?	TIME-STOPPED \FALSE
+	CALL2	ULTIMATELY-IN?,BICKERING-TORCH
+	ZERO?	STACK \?CCL5
+	ICALL2	DEQUEUE,I-BICKERING-TORCH
+	RFALSE	
+?CCL5:	RANDOM	100
+	LESS?	30,STACK /FALSE
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /FALSE
+	PRINTI	"   The bickering torch says, """
+	CALL2	PICK-ONE,BITCHES
+	PRINT	STACK
+	PRINTR	""""
+
+
+	.FUNCT	FLICKERING-TORCH-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	FLICKERING-TORCH,ONBIT \?CCL3
+	ZERO?	FLICKERING-TORCH-COUNT \?CCL3
+	RANDOM	3
+	ADD	STACK,9 >FLICKERING-TORCH-COUNT
+	ICALL	QUEUE,I-FLICKERING-TORCH,-1
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?OFF \?CCL8
+	FSET?	FLICKERING-TORCH,ONBIT \?CCL8
+	FCLEAR	FLICKERING-TORCH,ONBIT
+	FCLEAR	FLICKERING-TORCH,FLAMEBIT
+	ICALL2	DEQUEUE,I-FLICKERING-TORCH
+	PRINTI	"""Pffft."""
+	CRLF	
+	CALL1	NOW-DARK?
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?OFF,V?ON,V?EXAMINE /?PRD14
+	EQUAL?	PRSA,V?BURN \FALSE
+?PRD14:	FSET?	FLICKERING-TORCH,ONBIT /FALSE
+	CALL2	BURNED-OUT,FLICKERING-TORCH
+	RSTACK	
+
+
+	.FUNCT	I-FLICKERING-TORCH
+	DEC	'FLICKERING-TORCH-COUNT
+	FSET?	FLICKERING-TORCH,ONBIT /?CCL3
+	PUTP	FLICKERING-TORCH,P?SDESC,STR?316
+	ICALL2	DEQUEUE,I-FLICKERING-TORCH
+	RFALSE	
+?CCL3:	ZERO?	FLICKERING-TORCH-COUNT \?CND1
+	PUTP	FLICKERING-TORCH,P?SDESC,STR?316
+	FCLEAR	FLICKERING-TORCH,ONBIT
+	FCLEAR	FLICKERING-TORCH,FLAMEBIT
+	ICALL2	DEQUEUE,I-FLICKERING-TORCH
+?CND1:	CALL2	VISIBLE?,FLICKERING-TORCH
+	ZERO?	STACK /FALSE
+	FSET?	FLICKERING-TORCH,ONBIT /?CCL9
+	ICALL1	RETURN-FROM-MAP
+	CALL2	IN-THE-SKY,STR?317
+	RSTACK	
+?CCL9:	RANDOM	100
+	LESS?	40,STACK /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The flame of the flickering torch dances wildly on the brink of extinction."
+
+
+	.FUNCT	IN-THE-SKY,STRING
+	PRINTI	"   The "
+	PRINT	STRING
+	PRINTI	"ering torch gives its last "
+	PRINT	STRING
+	PRINTI	"er before going to that great Torch Room in the sky."
+	CRLF	
+	CALL1	NOW-DARK?
+	RSTACK	
+
+
+	.FUNCT	MUTTERING-TORCH-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	ICALL	QUEUE,I-MUTTERING-TORCH,-1
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?BURN,V?ON,V?EXAMINE \FALSE
+	CALL2	BURNED-OUT,MUTTERING-TORCH
+	RSTACK	
+
+
+	.FUNCT	I-MUTTERING-TORCH
+	ZERO?	TIME-STOPPED \FALSE
+	CALL2	ULTIMATELY-IN?,MUTTERING-TORCH
+	ZERO?	STACK \?CCL5
+	ICALL2	DEQUEUE,I-MUTTERING-TORCH
+	RFALSE	
+?CCL5:	RANDOM	100
+	LESS?	30,STACK /FALSE
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /FALSE
+	PRINTI	"   The muttering torch mutters something about "
+	CALL2	PICK-ONE,MUTTERS
+	PRINT	STACK
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	GUTTERING-TORCH-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	GUTTERING-TORCH,ONBIT \?CCL3
+	ZERO?	GUTTERING-TORCH-COUNT \?CCL3
+	RANDOM	3
+	ADD	STACK,9 >GUTTERING-TORCH-COUNT
+	ICALL	QUEUE,I-GUTTERING-TORCH,-1
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?OFF \?CCL8
+	FSET?	GUTTERING-TORCH,ONBIT \?CCL8
+	FCLEAR	GUTTERING-TORCH,ONBIT
+	FCLEAR	GUTTERING-TORCH,FLAMEBIT
+	ICALL2	DEQUEUE,I-GUTTERING-TORCH
+	PRINTI	"""Pffft."""
+	CRLF	
+	CALL1	NOW-DARK?
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?OFF,V?ON,V?EXAMINE /?PRD14
+	EQUAL?	PRSA,V?BURN \FALSE
+?PRD14:	FSET?	GUTTERING-TORCH,ONBIT /FALSE
+	CALL2	BURNED-OUT,GUTTERING-TORCH
+	RSTACK	
+
+
+	.FUNCT	I-GUTTERING-TORCH
+	DEC	'GUTTERING-TORCH-COUNT
+	FSET?	GUTTERING-TORCH,ONBIT /?CCL3
+	PUTP	GUTTERING-TORCH,P?SDESC,STR?324
+	ICALL2	DEQUEUE,I-GUTTERING-TORCH
+	RFALSE	
+?CCL3:	ZERO?	GUTTERING-TORCH-COUNT \?CND1
+	PUTP	GUTTERING-TORCH,P?SDESC,STR?324
+	FCLEAR	GUTTERING-TORCH,ONBIT
+	FCLEAR	GUTTERING-TORCH,FLAMEBIT
+	ICALL2	DEQUEUE,I-GUTTERING-TORCH
+?CND1:	CALL2	VISIBLE?,GUTTERING-TORCH
+	ZERO?	STACK /FALSE
+	FSET?	GUTTERING-TORCH,ONBIT /?CCL9
+	ICALL1	RETURN-FROM-MAP
+	CALL2	IN-THE-SKY,STR?325
+	RSTACK	
+?CCL9:	RANDOM	100
+	LESS?	40,STACK /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The guttering torch sputters on the verge of burning out, but then decides to keep burning for at least another minute."
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	GARDEN-FLOWER-PS
+	EQUAL?	PRSA,V?PICK \?CCL3
+	PRINTR	"Ouch! Thorns!"
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTR	"Breathtakingly beautiful."
+?CCL5:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	CALL2	PERFORM-PRSA,FLORA
+	RSTACK	
+
+
+	.FUNCT	FLORA-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTR	"Breathtakingly beautiful."
+?CCL5:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	PRINTR	"The many shrub and trees and flowers create a cacophony of plant-talk that makes it impossible to understand any of it!"
+
+	.SEGMENT "0"
+
+
+	.FUNCT	FLAMINGO-F,ARG
+	FSET?	FLAMINGO,ANIMATEDBIT \FALSE
+	EQUAL?	PRSA,V?RESEARCH \?CCL5
+	CALL	NOUN-USED?,FLAMINGO,W?FLAMINGO
+	ZERO?	STACK /?CCL5
+	PRINTR	"""A common garden animal."""
+?CCL5:	EQUAL?	PRSA,V?FEED \?CCL9
+	CALL2	ULTIMATELY-IN?,BAR-OF-FOOD
+	ZERO?	STACK /?CCL9
+	ICALL	PERFORM,V?GIVE,BAR-OF-FOOD,FLAMINGO
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?SHOW \?CCL13
+	EQUAL?	PRSO,BAR-OF-FOOD \?CCL13
+	PRINTR	"The flamingo feigns disinterest, but vast volumes of drool betray its true feelings."
+?CCL13:	EQUAL?	PRSA,V?GIVE \?CCL17
+	EQUAL?	PRSO,BAR-OF-FOOD \?CCL17
+	REMOVE	BAR-OF-FOOD
+	PRINTI	"The flamingo greedily snatches"
+	ICALL2	TPRINT,BAR-OF-FOOD
+	PRINTR	" in its beak and gulps it down."
+?CCL17:	ZERO?	TIME-STOPPED \FALSE
+	EQUAL?	PRSA,V?CATCH,V?TAKE \?CCL23
+	PRINTR	"The flamingo prances away, leaving you clutching at air."
+?CCL23:	EQUAL?	PRSA,V?TOUCH \FALSE
+	PRINTR	"The bird nearly nips off a finger."
+
+
+	.FUNCT	I-W-FLAMINGO,L
+	LOC	FLAMINGO >L
+	ZERO?	TIME-STOPPED /?CND1
+	ICALL	QUEUE,I-W-FLAMINGO,3
+	RFALSE	
+?CND1:	FSET	FLAMINGO,ANIMATEDBIT
+	IN?	FLAMINGO,LAKE-BOTTOM \?CCL5
+	REMOVE	FLAMINGO
+	RTRUE	
+?CCL5:	CALL2	META-LOC,FLAMINGO
+	EQUAL?	STACK,HERE \?CCL7
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   Based on its angry squawks, the lawn ornament has returned to its former state"
+	IN?	FLAMINGO,FISH-TANK \?CCL10
+	PRINTI	". The flamingo sprays you with water as it leaps out of the fish tank"
+	JUMP	?CND8
+?CCL10:	EQUAL?	L,PROTAGONIST,HERE /?CCL12
+	FSET?	L,DROPBIT /?CCL12
+	MOVE	FLAMINGO,HERE
+	FSET	L,OPENBIT
+	PRINTI	" and popped out of"
+	ICALL2	TPRINT,L
+	JUMP	?CND8
+?CCL12:	CALL2	ULTIMATELY-IN?,FLAMINGO
+	ZERO?	STACK /?CND8
+	IN?	FLAMINGO,WALDO /?CND8
+	PRINTI	". The flamingo gives you a vicious peck and hops to the ground"
+?CND8:	CALL2	ULTIMATELY-IN?,FLAMINGO
+	ZERO?	STACK /?CCL20
+	LOC	PROTAGONIST
+	FSET?	STACK,DROPBIT \?CCL20
+	LOC	PROTAGONIST
+	MOVE	FLAMINGO,STACK
+	JUMP	?CND18
+?CCL20:	LOC	FLAMINGO
+	FSET?	STACK,DROPBIT /?CND18
+	MOVE	FLAMINGO,HERE
+?CND18:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL7:	CALL2	ULTIMATELY-IN?,FLAMINGO
+	ZERO?	STACK /?CCL26
+	LOC	PROTAGONIST
+	FSET?	STACK,DROPBIT \?CCL26
+	LOC	PROTAGONIST
+	MOVE	FLAMINGO,STACK
+	RFALSE	
+?CCL26:	LOC	FLAMINGO
+	FSET?	STACK,DROPBIT /FALSE
+	CALL2	META-LOC,FLAMINGO
+	MOVE	FLAMINGO,STACK
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	COURTYARD-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This open area is paved with marble and surrounded by imposing stone walls. "
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK /?CCL6
+	PRINTI	"Servants are cleaning up after a tremendous carnival"
+	JUMP	?CND4
+?CCL6:	PRINTI	"Dimwit would occasionally order carnivals to be set up in this court, on totally cloudless days"
+?CND4:	PRINTI	". At the distant edges of the courtyard, you can see exits to the north, west, and southeast."
+	RTRUE	
+
+
+	.FUNCT	BANNER-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \?CCL3
+	PRINTR	"These colorful banners display various royal crests and insignias."
+?CCL3:	EQUAL?	PRSA,V?CLIMB-DOWN \FALSE
+	PRINTI	"Okay, but for future reference, the stairs are easier"
+	PRINT	ELLIPSIS
+	CALL2	GOTO,GREAT-HALL
+	RSTACK	
+
+
+	.FUNCT	REBUS-F,OARG,CNT
+	CALL2	CCOUNT,REBUS >CNT
+	ZERO?	OARG /?CCL3
+	EQUAL?	OARG,M-OBJDESC? /TRUE
+	PRINTI	"   A large framed rebus occupies a central position at the far end of the gallery. It appears to have been recently hung."
+	GRTR?	CNT,0 \TRUE
+	PRINTI	" The rebus is "
+	GRTR?	CNT,3 \?CCL10
+	PRINTI	"mostly"
+	JUMP	?CND8
+?CCL10:	PRINTI	"partially"
+?CND8:	PRINTI	" obscured by a"
+	EQUAL?	CNT,1 \?CCL13
+	PRINTI	"n animal -- or a representation of an animal"
+	JUMP	?CND11
+?CCL13:	PRINTI	" number of animals -- or representations of animals"
+?CND11:	PRINTI	" -- which appear"
+	EQUAL?	CNT,1 \?CND14
+	PRINTC	115
+?CND14:	PRINTI	" to be magically layered onto its surface:"
+	FCLEAR	REBUS-CAMEL,NDESCBIT
+	FCLEAR	REBUS-MOUSE,NDESCBIT
+	FCLEAR	REBUS-GOOSE,NDESCBIT
+	FCLEAR	REBUS-SNAKE,NDESCBIT
+	FCLEAR	REBUS-FISH,NDESCBIT
+	FCLEAR	REBUS-SLIME-MONSTER,NDESCBIT
+	ICALL	D-CONTENTS,REBUS,2
+	FSET	REBUS-CAMEL,NDESCBIT
+	FSET	REBUS-MOUSE,NDESCBIT
+	FSET	REBUS-GOOSE,NDESCBIT
+	FSET	REBUS-SNAKE,NDESCBIT
+	FSET	REBUS-FISH,NDESCBIT
+	FSET	REBUS-SLIME-MONSTER,NDESCBIT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL17
+	PRINT	HUH
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?PUT-ON,V?PUT \?CCL19
+	EQUAL?	PRSI,REBUS \?CCL19
+	PRINT	HUH
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	CLEAR	-1
+	SCREEN	S-FULL
+	IN?	REBUS-MOUSE,REBUS \?CCL26
+	PUSH	REBUS-6
+	JUMP	?CND24
+?CCL26:	IN?	REBUS-GOOSE,REBUS \?CCL28
+	PUSH	REBUS-5
+	JUMP	?CND24
+?CCL28:	IN?	REBUS-SLIME-MONSTER,REBUS \?CCL30
+	PUSH	REBUS-4
+	JUMP	?CND24
+?CCL30:	IN?	REBUS-CAMEL,REBUS \?CCL32
+	PUSH	REBUS-3
+	JUMP	?CND24
+?CCL32:	IN?	REBUS-SNAKE,REBUS \?CCL34
+	PUSH	REBUS-2
+	JUMP	?CND24
+?CCL34:	IN?	REBUS-FISH,REBUS \?CCL36
+	PUSH	REBUS-1
+	JUMP	?CND24
+?CCL36:	PUSH	REBUS-0
+?CND24:	DISPLAY	STACK,1,1
+	ZERO?	DEMO-VERSION? /?CCL39
+	ICALL2	INPUT-DEMO,1
+	JUMP	?CND37
+?CCL39:	INPUT	1
+?CND37:	ICALL1	MOUSE-INPUT?
+	ICALL1	V-$REFRESH
+	RTRUE	
+
+
+	.FUNCT	REBUS-ANIMAL-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" seems to be magically flattened upon the rebus surface."
+?CCL3:	EQUAL?	PRSA,V?MOVE,V?TAKE \?CCL5
+	PRINT	WONT-BUDGE
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?TOUCH \FALSE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" feels cold to the touch."
+
+
+	.FUNCT	PAINTINGS-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"These are Leonardo Flathead's famous portraits of the Twelve Flatheads, including his own self-portrait, which been have reproduced in many places [such as the ""Lives of the Twelve Flatheads Calendar"" which you'll find in your Zork Zero package]."
+?CCL3:	EQUAL?	PRSA,V?MOVE,V?TAKE \?CCL5
+	PRINTR	"The portraits are all securely fastened to the wall."
+?CCL5:	EQUAL?	PRSA,V?COUNT \FALSE
+	PRINTR	"12."
+
+
+	.FUNCT	PAINTING-F
+	EQUAL?	PRSA,V?MOVE,V?TAKE,V?EXAMINE \?CCL3
+	CALL2	PERFORM-PRSA,PAINTINGS
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?RESEARCH \FALSE
+	PRINTR	"""One of the Twelve Flatheads. For more information, we recommend Boswell Barwell's 'The Lives of the Twelve Flatheads.'"" [Excerpts of which can be found in the calendar from your Zork Zero package.]"
+
+	.SEGMENT "VILLAGE"
+
+	.SEGMENT "LAKE"
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	REBUS-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	FSET?	PRSO,TOUCHBIT /?CTR5
+	ZERO?	TIME-STOPPED /?CCL6
+?CTR5:	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL6:	FSET	PRSO,TOUCHBIT
+	PUTP	PRSO,P?SDESC,STR?270
+	PRINTI	"The button produces a "
+	IN?	REBUS-MOUSE,REBUS \?CCL11
+	REMOVE	REBUS-MOUSE
+	PRINTI	"squeak"
+	JUMP	?CND9
+?CCL11:	IN?	REBUS-GOOSE,REBUS \?CCL13
+	REMOVE	REBUS-GOOSE
+	PRINTI	"honk"
+	JUMP	?CND9
+?CCL13:	IN?	REBUS-SLIME-MONSTER,REBUS \?CCL15
+	REMOVE	REBUS-SLIME-MONSTER
+	PRINTI	"squish"
+	JUMP	?CND9
+?CCL15:	IN?	REBUS-CAMEL,REBUS \?CCL17
+	REMOVE	REBUS-CAMEL
+	PRINTI	"bray"
+	JUMP	?CND9
+?CCL17:	IN?	REBUS-SNAKE,REBUS \?CCL19
+	REMOVE	REBUS-SNAKE
+	PRINTI	"hiss"
+	JUMP	?CND9
+?CCL19:	REMOVE	REBUS-FISH
+	PRINTI	"splash"
+?CND9:	PRINTR	"ing noise and stops blinking."
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	BAG-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"There's writing on the outside of the bag. "
+	RFALSE	
+
+
+	.FUNCT	BAR-OF-FOOD-F
+	EQUAL?	PRSA,V?EAT \FALSE
+	EQUAL?	TURNED-INTO,FLAMINGO \?CCL6
+	CALL2	GOOD-MEAL,BAR-OF-FOOD
+	RSTACK	
+?CCL6:	CALL2	JIGS-UP,STR?339
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	TOWER-PS
+	CALL2	TOUCHING?,PSEUDO-OBJECT
+	ZERO?	STACK /FALSE
+	CALL2	CANT-REACH,PSEUDO-OBJECT
+	RSTACK	
+
+
+	.FUNCT	THRONE-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a smaller version of the room to the north, meaning that a person can walk all the way across it without stopping to rest. The throne, though smaller and more comfortable looking, is just as gaudy. It is in this chamber that Dimwit would meet with his ""advisors,"" raising taxes and plotting grandiose schemes. A doorway leads north"
+	ZERO?	SECRET-PASSAGE-OPEN /?CND4
+	PRINTI	", and a secret passage is open to the south"
+?CND4:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	THRONE-F,VARG
+	ZERO?	DEMO-VERSION? /?CCL3
+	EQUAL?	VARG,M-ENTER \?CCL3
+	EQUAL?	PRSO,SMALL-THRONE \?CCL3
+	PRINTC	32
+	ICALL1	OPEN-SECRET-PASSAGE?
+	RETURN	2
+?CCL3:	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?CLIMB-UP \?CCL12
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?LOOK-BEHIND \FALSE
+	PRINTI	"Behind the throne"
+	EQUAL?	HERE,AUDIENCE-CHAMBER \?CCL17
+	PRINTR	", a doorway leads south."
+?CCL17:	ZERO?	SECRET-PASSAGE-OPEN /?CCL19
+	PRINTR	", a secret passage beckons to the south!"
+?CCL19:	PRINTR	" is nothing but a blank wall."
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	SECRET-PASSAGE-F,RARG
+	ZERO?	DEMO-VERSION? /FALSE
+	EQUAL?	RARG,M-END \FALSE
+	CALL1	END-DEMO
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	CANDLE-F,FLAME
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	FSET?	CANDLE,ONBIT \?CCL6
+	PRINTR	"The flame burns tall and bright."
+?CCL6:	PRINTR	"The candle has been snuffed."
+?CCL3:	EQUAL?	PRSA,V?ON \FALSE
+	FSET?	CANDLE,FLAMEBIT /FALSE
+	CALL	FIND-IN,HERE,FLAMEBIT,STR?202 >FLAME
+	ZERO?	FLAME /?CCL13
+	FSET	CANDLE,FLAMEBIT
+	FSET	CANDLE,ONBIT
+	PRINTR	"You re-light the candle."
+?CCL13:	PRINTR	"You have no flame to light the candle."
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	SOLAR-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	IN?	EAST-KEY,JESTER \FALSE
+	IN?	JESTER,HERE \FALSE
+	CALL2	SETUP-ORPHAN,STR?44
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	EAST-KEY-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	EAST-KEY,TRYTAKEBIT \FALSE
+	IN?	EAST-KEY,JESTER \?CCL8
+	PRINT	ANSWER-MY-RIDDLE
+	RTRUE	
+?CCL8:	PRINTI	"You begin reaching for the key..."
+	CRLF	
+	SET	'DO-J,TRUE-VALUE
+	CALL1	I-JESTER
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	CLOAK-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	CALL	NOUN-USED?,CLOAK,W?CLOAK
+	ZERO?	STACK /?CCL6
+	PRINTR	"The colors of the cloak seem to shimmer like a Mithican chameleon. There's a small label with writing on it."
+?CCL6:	ICALL	PERFORM,V?READ,CLOAK
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?READ \?CCL8
+	PRINTR	"""Frobozz Magic Cloak Company."""
+?CCL8:	EQUAL?	HERE,OUBLIETTE \?CCL10
+	EQUAL?	PRSA,V?TAKE-OFF,V?WEAR \?CCL10
+	PRINTR	"There's not enough elbow room here."
+?CCL10:	EQUAL?	PRSA,V?WEAR \?CCL14
+	EQUAL?	HERE,PLAIN /?CCL14
+	FSET?	CLOAK,WORNBIT /?CCL14
+	FSET?	OUTER-GATE,OPENBIT /?CCL14
+	IN?	CLOAK,WALDO /?CCL14
+	ZERO?	TIME-STOPPED \?CCL14
+	EQUAL?	HERE,CONSTRUCTION \?CCL23
+	ICALL	STORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC,CONSTRUCTION
+	JUMP	?CND21
+?CCL23:	EQUAL?	HERE,FR-OFFICES \?CCL25
+	ICALL	STORE,OFFICES-OFFSET,FLOOR-NUMBER,FR-OFFICES
+	JUMP	?CND21
+?CCL25:	EQUAL?	HERE,OFFICES-NORTH \?CCL27
+	ICALL	STORE,OFFICES-N-OFFSET,FLOOR-NUMBER,OFFICES-NORTH
+	JUMP	?CND21
+?CCL27:	EQUAL?	HERE,OFFICES-SOUTH \?CCL29
+	ICALL	STORE,OFFICES-S-OFFSET,FLOOR-NUMBER,OFFICES-SOUTH
+	JUMP	?CND21
+?CCL29:	EQUAL?	HERE,OFFICES-EAST \?CCL31
+	ICALL	STORE,OFFICES-E-OFFSET,FLOOR-NUMBER,OFFICES-EAST
+	JUMP	?CND21
+?CCL31:	EQUAL?	HERE,OFFICES-WEST \?CND21
+	ICALL	STORE,OFFICES-W-OFFSET,FLOOR-NUMBER,OFFICES-WEST
+?CND21:	FSET	CLOAK,WORNBIT
+	LOC	PROTAGONIST
+	FSET?	STACK,TAKEBIT \?CCL35
+	SET	'CLOAK-LOC,HERE
+	JUMP	?CND33
+?CCL35:	LOC	PROTAGONIST >CLOAK-LOC
+?CND33:	MOVE	PROTAGONIST,HERE
+	DIV	PLAIN-LOC,8
+	ADD	STACK,1 >RANK
+	MOD	PLAIN-LOC,8
+	ADD	STACK,1 >FILE
+	ICALL1	CAST-HUNGER-SPELL
+	PRINTI	"As you wrap the cloak around you, the world changes"
+	PRINT	ELLIPSIS
+	ICALL	UNSTORE,PLAIN-OFFSET,PLAIN-LOC,PLAIN
+	CALL2	GOTO,PLAIN
+	RSTACK	
+?CCL14:	EQUAL?	PRSA,V?TAKE-OFF \FALSE
+	FSET?	CLOAK,WORNBIT \FALSE
+	EQUAL?	HERE,PLAIN \FALSE
+	FCLEAR	CLOAK,WORNBIT
+	ICALL	STORE,PLAIN-OFFSET,PLAIN-LOC,PLAIN
+	PRINTI	"As the cloak is removed, the world changes again"
+	PRINT	ELLIPSIS
+	EQUAL?	CLOAK-LOC,CONSTRUCTION \?CCL43
+	DIV	CONSTRUCTION-LOC,8
+	ADD	STACK,1 >RANK
+	MOD	CONSTRUCTION-LOC,8
+	ADD	STACK,1 >FILE
+	ICALL	UNSTORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC,CLOAK-LOC
+	JUMP	?CND41
+?CCL43:	EQUAL?	CLOAK-LOC,FR-OFFICES,OFFICES-NORTH,OFFICES-SOUTH /?CCL44
+	EQUAL?	CLOAK-LOC,OFFICES-EAST,OFFICES-WEST \?CND41
+?CCL44:	ICALL2	OFFICE-UNSTORE,FLOOR-NUMBER
+?CND41:	ICALL2	GOTO,CLOAK-LOC
+	EQUAL?	CLOAK-LOC,ORACLE-OBJECT \TRUE
+	IN?	RUBY,DEPRESSION \TRUE
+	PRINTI	"   You have only a moment to take in your surroundings. "
+	ICALL	PERFORM,V?ENTER,ORACLE-OBJECT
+	RTRUE	
+
+
+	.FUNCT	GLOVE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	FSET?	GOGGLES,WORNBIT \?CCL6
+	FSET?	GLOVE,WORNBIT \?CCL6
+	ICALL1	DISCOVER-X-RAY
+	PRINTR	"You can see your hand within the glove."
+?CCL6:	CALL	NOUN-USED?,GLOVE,W?GLOVE
+	ZERO?	STACK /?CCL10
+	PRINTR	"Tiny writing is embroidered at the edge of the glove."
+?CCL10:	ICALL	PERFORM,V?READ,GLOVE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?READ \FALSE
+	PRINTR	"""Frobozz Magic Glove Company."""
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	MACHICOLATION-F
+	EQUAL?	PRSA,V?PUT-THROUGH,V?PUT \?CCL3
+	EQUAL?	PRSI,MACHICOLATION \?CCL3
+	REMOVE	PRSO
+	EQUAL?	PRSO,PERCH /?CCL7
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND6
+?CCL7:	SET	'REMOVED-PERCH-LOC,GROUND
+?CND6:	PRINTI	"You hear a distant ""thunk,"" as"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" imbeds itself into the ground. The lack of an accompanying distant ""ouch!"" would seem to indicate that there are no invaders below."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL11
+	PRINT	YOU-SEE
+	PRINTR	" light at the bottom of the hole."
+?CCL11:	EQUAL?	PRSA,V?REACH-IN \FALSE
+	PRINT	NOTHING-IN-REACH
+	RTRUE	
+
+
+	.FUNCT	CRYPT-F,RARG
+	ZERO?	DEMO-VERSION? /?CCL3
+	EQUAL?	RARG,M-END \?CCL3
+	CALL1	END-DEMO
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The remains of generations of royalty lie arranged on slabs through this underground tomb. A passage leads off to the south. In the center of the low ceiling is a small trap door, which is "
+	ICALL2	OPEN-CLOSED,TRAP-DOOR
+	FSET?	HOLEY-SLAB,TOUCHBIT \?CND8
+	PRINTI	". Barely visible beneath one of the slabs, a dark moist opening leads downward"
+?CND8:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	BODIES-F
+	CALL2	TOUCHING?,BODIES
+	ZERO?	STACK /FALSE
+	CALL2	PERFORM-PRSA,BONES
+	RSTACK	
+
+
+	.FUNCT	ORACLE-ENTER-F,RARG
+	FSET?	OUTER-GATE,OPENBIT /?CTR2
+	ZERO?	TIME-STOPPED /?CCL3
+?CTR2:	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"The hole under the slab has vanished!"
+	CRLF	
+	RFALSE	
+?CCL3:	FSET?	HOLEY-SLAB,TOUCHBIT \?CCL9
+	RETURN	ORACLE
+?CCL9:	ZERO?	RARG \FALSE
+	ICALL1	CANT-GO
+	RFALSE	
+
+
+	.FUNCT	SLAB-F
+	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	EQUAL?	PRSO,HOLEY-SLAB \FALSE
+	FSET?	OUTER-GATE,OPENBIT /?CTR7
+	ZERO?	TIME-STOPPED /?CCL8
+?CTR7:	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL8:	FSET	HOLEY-SLAB,TOUCHBIT
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTR	"Under the slab is a craggy hole, dripping with slime, leading downward. It looks just barely large enough to enter."
+
+
+	.FUNCT	TRAP-DOOR-F
+	EQUAL?	PRSA,V?OPEN \FALSE
+	FSET?	TRAP-DOOR,OPENBIT /FALSE
+	EQUAL?	HERE,CRYPT \FALSE
+	PRINTR	"The trap door can't be opened from this side."
+
+
+	.FUNCT	DUNGEON-HOLE-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	CALL2	LIT?,OUBLIETTE
+	ZERO?	STACK /?CCL6
+	PRINT	SOME-LIGHT
+	RTRUE	
+?CCL6:	PRINT	ONLY-BLACKNESS
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PUT \?CCL8
+	GETP	PRSO,P?SIZE
+	GRTR?	STACK,4 \?CCL11
+	EQUAL?	PRSO,PERCH /?CCL13
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND12
+?CCL13:	SET	'REMOVED-PERCH-LOC,OUBLIETTE
+?CND12:	REMOVE	PRSO
+	JUMP	?CND9
+?CCL11:	MOVE	PRSO,OUBLIETTE
+?CND9:	PRINTR	"Done."
+?CCL8:	EQUAL?	PRSA,V?EXAMINE \?CCL17
+	PRINTR	"It's big enough to drop through, but a return trip doesn't look at all assured."
+?CCL17:	EQUAL?	PRSA,V?REACH-IN \?CCL19
+	PRINT	NOTHING-IN-REACH
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	OUBLIETTE-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You're trapped in a narrow prison cell accessible only from above. The upper portion of the cell is lost in gloom. The floor is muddy, and you sink almost to your "
+	ZERO?	ALLIGATOR /?CCL6
+	PRINTI	"alligatorish nostrils."
+	RTRUE	
+?CCL6:	PRINTI	"knees."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-ENTER \?CCL8
+	ZERO?	TIME-STOPPED \?CCL8
+	SET	'DO-J,TRUE-VALUE
+	CALL	QUEUE,I-JESTER,3
+	RSTACK	
+?CCL8:	EQUAL?	RARG,M-END \FALSE
+	IN?	JESTER,HERE \FALSE
+	CALL2	SETUP-ORPHAN,STR?44
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	G-HAT-F,TBL,LEN,?TMP1
+	ADD	TBL,8 >?TMP1
+	GET	TBL,1
+	INTBL?	DOORBELL,?TMP1,STACK \?CCL3
+	RETURN	DOORBELL
+?CCL3:	EQUAL?	PRSA,V?REMOVE,V?TAKE-OFF \?CCL5
+	FSET?	HARDHAT,WORNBIT \?CCL8
+	FSET?	SEAMANS-CAP,WORNBIT /FALSE
+?CCL8:	FSET?	HARDHAT,WORNBIT \?CCL12
+	RETURN	HARDHAT
+?CCL12:	FSET?	SEAMANS-CAP,WORNBIT \FALSE
+	RETURN	SEAMANS-CAP
+?CCL5:	ADD	TBL,8 >?TMP1
+	GET	TBL,1
+	INTBL?	J-HAT,?TMP1,STACK \FALSE
+	EQUAL?	HERE,GAMING-ROOM \FALSE
+	RETURN	J-HAT
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	CELL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This cell is the height of luxury for this dungeon -- the floor isn't covered with spikes, and there are actually a few corners which aren't dominated by giant spiders."
+	IN?	COBWEBS,HERE \?CND4
+	PRINTC	32
+	PRINT	CELL-WALL-DESC
+?CND4:	PRINTI	" The only exit is northwest."
+	RTRUE	
+
+
+	.FUNCT	GIANT-SPIDERS-F
+	CALL2	TOUCHING?,GIANT-SPIDERS
+	ZERO?	STACK /FALSE
+	PRINTR	"There's only one thing you need to remember in connection with giant spiders: You leave them alone, they'll leave you alone."
+
+
+	.FUNCT	COBWEBS-F
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	PRINTR	"Walk face first into a thick wall of yukko cobwebs? Mucho disgusto! Maybe if you cleared them away, first..."
+?CCL3:	EQUAL?	PRSA,V?CLEAN,V?TAKE-WITH,V?REMOVE /?CCL5
+	EQUAL?	PRSA,V?MOVE \FALSE
+?CCL5:	ZERO?	PRSI \?CND8
+	CALL2	ULTIMATELY-IN?,BROOM
+	ZERO?	STACK /?CND8
+	SET	'PRSI,BROOM
+?CND8:	ZERO?	PRSI \?CCL14
+	PRINTI	"Yuk! Bleh! Ukky-poo! T"
+	FSET?	GLOVE,WORNBIT /?CND15
+	PRINTI	"hese cobwebs are way too gross to touch with your bare hands. Furthermore, t"
+?CND15:	PRINTR	"here are way too many to clean away without some kind of cleaning accessory."
+?CCL14:	EQUAL?	PRSI,BROOM /?CCL18
+	PRINTR	"Don't bother to apply for any jobs as a maid."
+?CCL18:	REMOVE	COBWEBS
+	ICALL2	THIS-IS-IT,FLASK
+	MOVE	FLASK,HERE
+	PRINTI	"It's a dirty job, but someone's gotta do it. You clear away most of the cobwebs, revealing a blank wall. Sitting at the base of the wall is a "
+	PRINTD	FLASK
+	PRINTC	33
+	CRLF	
+	CALL2	INC-SCORE,12
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	FLASK-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	PRINTR	"You notice that objects behind the flask appear to be magnified."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	EQUAL?	PRSI,FLASK \?CCL5
+	PRINTI	"The flask distorts and magnifies the "
+	ICALL2	DPRINT,PRSO
+	PRINTI	", showing details not noticed earlier."
+	CRLF	
+	PRINTI	"   "
+	RFALSE	
+?CCL5:	EQUAL?	PRSA,V?DRINK-FROM \?CCL9
+	CALL	DO-FIRST,STR?140,FLASK
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?THROW,V?MUNG,V?OPEN \FALSE
+	EQUAL?	PRSA,V?OPEN /?CCL14
+	PRINTI	"The flask breaks into pieces. "
+	JUMP	?CND12
+?CCL14:	PRINTI	"You remove the stopper. "
+?CND12:	PRINTI	"As you pass out, you realize that the vapors from the flask's contents are "
+	FSET?	CLOWN-NOSE,WORNBIT \?CND15
+	PRINTI	"potent enough to get past your clown nose, and are also quite "
+?CND15:	CALL2	JIGS-UP,STR?365
+	RSTACK	
+
+
+	.FUNCT	LIQUID-F
+	EQUAL?	PRSA,V?DRINK \FALSE
+	CALL	DO-FIRST,STR?140,FLASK
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	TORTURE-CHAMBER-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	ZERO?	METRONOME-LOC \?CND4
+	RANDOM	100
+	LESS?	33,STACK /?CCL8
+	SET	'METRONOME-LOC,IRON-MAIDEN
+	JUMP	?CND4
+?CCL8:	RANDOM	100
+	LESS?	50,STACK /?CCL10
+	SET	'METRONOME-LOC,SNAKE-PIT
+	JUMP	?CND4
+?CCL10:	SET	'METRONOME-LOC,WATER-CHAMBER
+?CND4:	SET	'METRONOME-COUNTER,0
+	RETURN	METRONOME-COUNTER
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	FSET?	METRONOME,TRYTAKEBIT \FALSE
+	CALL2	METRONOME-TORTURE,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	METRONOME-TORTURE,INDENT
+	INC	'METRONOME-COUNTER
+	EQUAL?	METRONOME-COUNTER,1 /FALSE
+	ICALL1	RETURN-FROM-MAP
+	ZERO?	INDENT /?CND3
+	PRINTI	"   "
+?CND3:	EQUAL?	METRONOME-COUNTER,2 \?CCL7
+	PRINTR	"You hear a ticking sound."
+?CCL7:	EQUAL?	METRONOME-COUNTER,3 \?CCL9
+	PRINTR	"The ticking grows louder."
+?CCL9:	EQUAL?	METRONOME-COUNTER,4 \?CCL11
+	PRINTR	"The ticking is really getting to you. It seems to be controlling your heartbeat!"
+?CCL11:	PRINTI	"The ticking is unbearably deafening! You run screaming from the Torture Chamber!"
+	CRLF	
+	CRLF	
+	CALL2	GOTO,DUNGEON
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	METRONOME-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The metronome is"
+	ZERO?	METRONOME-ON /?CCL6
+	PRINTR	" ticking insistently."
+?CCL6:	PRINTR	"n't on."
+?CCL3:	EQUAL?	PRSA,V?ON \?CCL8
+	ZERO?	METRONOME-ON /?CCL11
+	PRINTR	"It is!"
+?CCL11:	SET	'METRONOME-ON,TRUE-VALUE
+	ICALL	QUEUE,I-METRONOME,-1
+	PRINTR	"The metronome begins to tick."
+?CCL8:	EQUAL?	PRSA,V?OFF \FALSE
+	ZERO?	METRONOME-ON /?CCL16
+	SET	'METRONOME-ON,FALSE-VALUE
+	ICALL2	DEQUEUE,I-METRONOME
+	PRINTR	"The metronome stops ticking."
+?CCL16:	PRINTR	"It is!"
+
+
+	.FUNCT	I-METRONOME,CALLED-BY-LISTEN,CNT
+	LOC	METRONOME
+	EQUAL?	STACK,FALSE-VALUE \?CND1
+	ICALL2	DEQUEUE,I-METRONOME
+?CND1:	CALL2	VISIBLE?,METRONOME
+	ZERO?	STACK /FALSE
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /FALSE
+	RANDOM	30
+	ADD	3,STACK >CNT
+	ZERO?	CALLED-BY-LISTEN \?CND8
+	PRINTI	"   "
+?CND8:	PRINTI	"The metronome insistently declares, ""Tick"
+?PRG10:	PRINTI	", tick"
+	DEC	'CNT
+	ZERO?	CNT \?PRG10
+	PRINTR	"."""
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	TORTURE-DEVICE-F
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	EQUAL?	PRSO,COMFY-CHAIR /?CND4
+	FSET?	PRSO,OPENBIT /?CND4
+	ICALL	DO-FIRST,STR?140,PRSO
+	RTRUE	
+?CND4:	PRINTI	"You climb into the "
+	PRINTD	PRSO
+	PRINTI	". "
+	EQUAL?	PRSO,COMFY-CHAIR \?CCL10
+	CALL2	JIGS-UP,STR?367
+	RSTACK	
+?CCL10:	EQUAL?	PRSO,IRON-MAIDEN \?CCL12
+	CALL2	JIGS-UP,STR?368
+	RSTACK	
+?CCL12:	EQUAL?	PRSO,WATER-CHAMBER \?CCL14
+	CALL2	JIGS-UP,STR?369
+	RSTACK	
+?CCL14:	CALL2	JIGS-UP,STR?370
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL16
+	EQUAL?	PRSO,COMFY-CHAIR \?CCL19
+	PRINTR	"It sure looks comfortable!"
+?CCL19:	EQUAL?	PRSO,WATER-CHAMBER \?CCL21
+	PRINTI	"It's a small chamber where water is slowly dripped onto the victim's head until he or she goes mad."
+	JUMP	?CND17
+?CCL21:	EQUAL?	PRSO,IRON-MAIDEN \?CCL23
+	PRINTI	"It's similar to a suit of armor, except that the inside is lined with sharp spikes."
+	JUMP	?CND17
+?CCL23:	FSET?	SNAKE-PIT,OPENBIT /?CCL26
+	PRINTI	"Beneath the lid of the snake pit y"
+	JUMP	?CND24
+?CCL26:	PRINTC	89
+?CND24:	PRINTI	"ou hear the hissing of a thousand hungry snakes."
+?CND17:	PRINTI	" The "
+	PRINTD	PRSO
+	PRINTI	" is "
+	ICALL2	OPEN-CLOSED,PRSO
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL28
+	FSET?	METRONOME,TRYTAKEBIT \?CCL28
+	EQUAL?	PRSO,METRONOME-LOC \?CCL33
+	ICALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+?CCL33:	EQUAL?	PRSO,COMFY-CHAIR \?CCL35
+	PRINTR	"There's no one in the chair."
+?CCL35:	FSET	PRSO,OPENBIT
+	PRINTI	"You open"
+	ICALL1	TPRINT-PRSO
+	PRINTR	", and find no one within."
+?CCL28:	EQUAL?	PRSA,V?OPEN \?CCL37
+	EQUAL?	PRSO,METRONOME-LOC \?CCL37
+	FSET?	METRONOME,TRYTAKEBIT \?CCL37
+	FCLEAR	METRONOME,TRYTAKEBIT
+	MOVE	METRONOME,HERE
+	FSET	PRSO,OPENBIT
+	PRINTI	"As you open the "
+	PRINTD	PRSO
+	PRINTI	", a metronome falls from the shadowy recesses of the ceiling and lands with a muffled thud in the center of the room."
+	GRTR?	METRONOME-COUNTER,1 \?CND41
+	PRINTI	" Thankfully, the fall seems to have shut it off."
+?CND41:	CRLF	
+	CALL2	INC-SCORE,12
+	RSTACK	
+?CCL37:	EQUAL?	PRSA,V?OPEN \FALSE
+	ZERO?	TIME-STOPPED /FALSE
+	PRINT	WONT-BUDGE
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	WEST-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The castle's newest wing can be found beyond the huge oak door which lies "
+	ICALL2	OPEN-CLOSED,WEST-DOOR
+	PRINTI	" to the west. The only other exit is northeast."
+	RTRUE	
+
+
+	.FUNCT	WEST-DOOR-F
+	EQUAL?	PRSA,V?UNLOCK \?CCL3
+	FSET?	WEST-DOOR,LOCKEDBIT \?CCL3
+	EQUAL?	PRSI,WEST-KEY \?CCL3
+	FCLEAR	WEST-DOOR,LOCKEDBIT
+	CALL	LOCKED-UNLOCKED,WEST-DOOR,TRUE-VALUE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LOCK \FALSE
+	FSET?	WEST-DOOR,LOCKEDBIT /FALSE
+	EQUAL?	PRSI,WEST-KEY \FALSE
+	FSET	WEST-DOOR,LOCKEDBIT
+	CALL2	LOCKED-UNLOCKED,WEST-DOOR
+	RSTACK	
+
+
+	.FUNCT	WEST-WING-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This wing exhibits more recent styling: smoothly dressed stone inlaid with marble patterns. Through the "
+	ICALL2	OPEN-CLOSED,WEST-DOOR
+	PRINTI	" oak door to the east lie the primary halls of the castle. Other exits lead north, west, and south. "
+	PRINT	FUDGE
+	RTRUE	
+
+
+	.FUNCT	DIRIGIBLE-HANGAR-ENTER-F,RARG
+	ZERO?	NUT-EATEN /?CCL3
+	RETURN	DIRIGIBLE-HANGAR
+?CCL3:	ZERO?	RARG \FALSE
+	IN?	JESTER,HERE /?CCL7
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"An invisible hand seems to stop you"
+	SUB	MOVES,J-DISPOSED
+	LESS?	STACK,4 \?CCL10
+	PRINTI	", and a familiar voice says, ""Surely you didn't think you'd be rid of me so easily!"""
+	CRLF	
+	JUMP	?CND8
+?CCL10:	PRINT	PERIOD-CR
+?CND8:	SET	'DO-J,TRUE-VALUE
+	ICALL1	I-JESTER
+	RFALSE	
+?CCL7:	ICALL1	RETURN-FROM-MAP
+	PRINT	ERE-YOU-PASS
+	RFALSE	
+
+
+	.FUNCT	PEG-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You're in a nondescript room with an exit to the south. "
+	ZERO?	PEG-PASSAGE-OPENED /?CND4
+	PRINTI	"A previously hidden passage leads north. "
+?CND4:	PRINTI	"In the center of the room is a pegboard. Hanging on the wall are a set of instructions."
+	RTRUE	
+
+
+	.FUNCT	PBOZ-OBJECT-F
+	EQUAL?	PRSA,V?PLAY \FALSE
+	EQUAL?	HERE,PEG-ROOM \?CCL6
+	ICALL1	PEG-GAME
+	RTRUE	
+?CCL6:	PRINT	YOU-CANT
+	PRINTR	"play Peggleboz without a pegboard!"
+
+
+	.FUNCT	PEGBOARD-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The board has 21 holes, 20 of them filled with pegs. The holes are arranged in a roughly triangular shape."
+?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"The pegboard is an unmovable feature of the room."
+
+
+	.FUNCT	PEGBOARD-PEGS-F
+	EQUAL?	PRSA,V?TAKE,V?MOVE \FALSE
+	PRINTR	"It would behoove you to read the instructions that are posted on the wall here."
+
+
+	.FUNCT	PEG-GAME,FIRST-MOVE,PEG-SELECTED,CHAR,JUMPED-PEG,DONT-CLEAR,WON,CNT,?TMP2,?TMP1
+	SET	'FIRST-MOVE,TRUE-VALUE
+	CLEAR	S-FULL
+	ICALL	SPLIT-BY-PICTURE,PBOZ-SPLIT,TRUE-VALUE
+	ICALL2	ADJUST-TEXT-WINDOW,PBOZ-BOTTOM
+	ICALL1	SETUP-PBOZ
+?PRG1:	ZERO?	WON \?CND3
+	ZERO?	PEG-SELECTED /?CCL7
+	ZERO?	DONT-CLEAR \?CCL10
+	CLEAR	S-TEXT
+	JUMP	?CND8
+?CCL10:	SET	'DONT-CLEAR,FALSE-VALUE
+?CND8:	PRINTI	"You are moving the peg at letter "
+	HLIGHT	H-BOLD
+	ADD	LETTER-OFFSET,PEG-SELECTED
+	PRINTC	STACK
+	HLIGHT	H-NORMAL
+	PRINTI	". Select the letter for the destination point of that peg, or hit "
+	HLIGHT	H-BOLD
+	ADD	LETTER-OFFSET,PEG-SELECTED
+	PRINTC	STACK
+	HLIGHT	H-NORMAL
+	PRINTI	" again to ""unselect"" that peg."
+	JUMP	?CND3
+?CCL7:	ZERO?	FIRST-MOVE \?CND11
+	ZERO?	DONT-CLEAR \?CND11
+	CLEAR	S-TEXT
+?CND11:	ZERO?	DONT-CLEAR \?CND3
+	CALL1	PEG-COUNT
+	EQUAL?	STACK,1 \?CCL19
+	PRINTI	"Type X to exit, Y to display your moves, and Z to start again"
+	ZERO?	ACTIVE-MOUSE /?CND20
+	PRINTI	" (or simply click on the appropriate spot with your mouse)"
+?CND20:	PRINTC	46
+	JUMP	?CND3
+?CCL19:	PRINTI	"Type the letter corresponding to the peg you'd like to move"
+	ZERO?	ACTIVE-MOUSE /?CND22
+	PRINTI	", or use your mouse to click on it"
+?CND22:	PRINTC	46
+	ZERO?	FIRST-MOVE /?CND3
+	SET	'FIRST-MOVE,FALSE-VALUE
+	PRINTI	" Type X to exit Peggleboz, Y to display your moves so far, Z to reset the board"
+	ZERO?	ACTIVE-MOUSE /?CND26
+	PRINTI	" (or you can use your mouse to click on the appropriate spot)"
+?CND26:	PRINTC	46
+?CND3:	SET	'DONT-CLEAR,FALSE-VALUE
+	ZERO?	PEG-SELECTED /?CCL30
+	MUL	PEG-SELECTED,2
+	GET	BOARD-TABLE,STACK >?TMP1
+	MUL	PEG-SELECTED,2
+	ADD	STACK,1
+	GET	BOARD-TABLE,STACK
+	CALL	BLINK,UNHL-PEG,HL-PEG,?TMP1,STACK,S-WINDOW >CHAR
+	JUMP	?CND28
+?CCL30:	ZERO?	DEMO-VERSION? /?CCL33
+	CALL2	INPUT-DEMO,1 >CHAR
+	JUMP	?CND28
+?CCL33:	INPUT	1 >CHAR
+?CND28:	ICALL1	MOUSE-INPUT?
+	EQUAL?	CHAR,CLICK1,CLICK2 \?CND34
+	CALL1	PBOZ-CLICK >CHAR
+?CND34:	GRTR?	CHAR,96 \?CND36
+	LESS?	CHAR,123 \?CND36
+	SUB	CHAR,32 >CHAR
+?CND36:	EQUAL?	CHAR,88 \?CCL42
+	ICALL1	RESET-PEGBOARD
+	ICALL2	INIT-SL-WITH-SPLIT,TEXT-WINDOW-PIC-LOC
+	CLEAR	S-TEXT
+	RTRUE	
+?CCL42:	EQUAL?	CHAR,89 \?CCL44
+	SET	'DONT-CLEAR,TRUE-VALUE
+	ICALL1	DISPLAY-MOVES
+	JUMP	?PRG1
+?CCL44:	EQUAL?	CHAR,90 \?CCL46
+	ICALL1	RESET-PEGBOARD
+	SET	'WON,FALSE-VALUE
+	SET	'CNT,4
+	SCREEN	S-WINDOW
+	ICALL1	DRAW-PEGS
+	SCREEN	S-TEXT
+	CLEAR	S-TEXT
+	SET	'PEG-SELECTED,FALSE-VALUE
+	JUMP	?PRG1
+?CCL46:	ZERO?	PEG-SELECTED \?CCL48
+	SUB	CHAR,64 >PEG-SELECTED
+	GRTR?	PEG-SELECTED,21 /?CTR50
+	LESS?	PEG-SELECTED,1 \?CCL51
+?CTR50:	CLEAR	S-TEXT
+	SOUND	1
+	SET	'PEG-SELECTED,FALSE-VALUE
+	SET	'DONT-CLEAR,TRUE-VALUE
+	PRINTI	"Illegal choice. Type a letter from A thru U to select a peg. Or, type X to exit, Y to display your moves, or Z to reset the board."
+	JUMP	?PRG1
+?CCL51:	GET	PEG-TABLE,PEG-SELECTED
+	ZERO?	STACK \?PRG1
+	CLEAR	S-TEXT
+	SOUND	1
+	SET	'DONT-CLEAR,TRUE-VALUE
+	PRINTI	"There's no peg at point "
+	ADD	LETTER-OFFSET,PEG-SELECTED
+	PRINTC	STACK
+	PRINTC	46
+	SET	'PEG-SELECTED,FALSE-VALUE
+	JUMP	?PRG1
+?CCL48:	SUB	CHAR,64
+	EQUAL?	PEG-SELECTED,STACK \?CCL56
+	SET	'DONT-CLEAR,TRUE-VALUE
+	SET	'PEG-SELECTED,FALSE-VALUE
+	CLEAR	S-TEXT
+	PRINTI	"Unselected."
+	JUMP	?PRG1
+?CCL56:	CALL	LEGAL-MOVE,PEG-SELECTED,CHAR >JUMPED-PEG
+	ZERO?	JUMPED-PEG /?CCL58
+	PUT	PEG-MOVE-TABLE,PEG-MOVE-NUMBER,PEG-SELECTED
+	ADD	PEG-MOVE-NUMBER,1 >?TMP1
+	SUB	CHAR,64
+	PUT	PEG-MOVE-TABLE,?TMP1,STACK
+	ADD	PEG-MOVE-NUMBER,2 >PEG-MOVE-NUMBER
+	PUT	PEG-TABLE,JUMPED-PEG,0
+	PUT	PEG-TABLE,PEG-SELECTED,0
+	SUB	CHAR,64
+	PUT	PEG-TABLE,STACK,1
+	SCREEN	S-WINDOW
+	GET	PEG-BG-PIC-TBL,PEG-SELECTED >?TMP2
+	MUL	PEG-SELECTED,2
+	GET	BOARD-TABLE,STACK >?TMP1
+	MUL	PEG-SELECTED,2
+	ADD	STACK,1
+	GET	BOARD-TABLE,STACK
+	DISPLAY	?TMP2,?TMP1,STACK
+	GET	PEG-BG-PIC-TBL,JUMPED-PEG >?TMP2
+	MUL	JUMPED-PEG,2
+	GET	BOARD-TABLE,STACK >?TMP1
+	MUL	JUMPED-PEG,2
+	ADD	STACK,1
+	GET	BOARD-TABLE,STACK
+	DISPLAY	?TMP2,?TMP1,STACK
+	SUB	CHAR,64
+	MUL	STACK,2
+	GET	BOARD-TABLE,STACK >?TMP1
+	SUB	CHAR,64
+	MUL	STACK,2
+	ADD	STACK,1
+	GET	BOARD-TABLE,STACK
+	DISPLAY	UNHL-PEG,?TMP1,STACK
+	EQUAL?	PEG-MOVE-NUMBER,2 \?CND59
+	ZERO?	ACTIVE-MOUSE /?CND59
+	ICALL2	PICINF-PLUS-ONE,PBOZ-RESTART-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	RESTART-BOX,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,PBOZ-SHOW-MOVES-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	SHOW-MOVES-BOX,?TMP1,STACK
+?CND59:	SET	'PEG-SELECTED,FALSE-VALUE
+	SCREEN	S-TEXT
+	CLEAR	S-TEXT
+	CALL1	PBOZ-WIN-CHECK
+	ZERO?	STACK /?PRG1
+	SET	'WON,TRUE-VALUE
+	SET	'PEG-PASSAGE-OPENED,TRUE-VALUE
+	SOUND	1
+	SOUND	1
+	SOUND	1
+	PRINTI	"A secret doorway to the north slides open. (Hit X to exit)."
+	CRLF	
+	ICALL2	INC-SCORE,16
+	JUMP	?PRG1
+?CCL58:	SET	'DONT-CLEAR,TRUE-VALUE
+	JUMP	?PRG1
+
+
+	.FUNCT	PBOZ-CLICK,TL-X,TL-Y,BR-X,BR-Y,CNT,PEG-WIDTH,PEG-HEIGHT,EXPAND-X,EXPAND-Y
+	SET	'CNT,2
+	ICALL2	PICINF-PLUS-ONE,PBOZ-RESTART-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	RESTART-BOX,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND2
+	RETURN	90
+?CND2:	ICALL2	PICINF-PLUS-ONE,PBOZ-SHOW-MOVES-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	SHOW-MOVES-BOX,PICINF-TBL /?BOGUS4
+?BOGUS4:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND5
+	RETURN	89
+?CND5:	ICALL2	PICINF-PLUS-ONE,PBOZ-EXIT-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	EXIT-BOX,PICINF-TBL /?BOGUS7
+?BOGUS7:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND8
+	RETURN	88
+?CND8:	PICINF	EXPAND-HOT-SPOT,PICINF-TBL /?BOGUS10
+?BOGUS10:	GET	PICINF-TBL,0 >EXPAND-Y
+	GET	PICINF-TBL,1 >EXPAND-X
+	PICINF	UNHL-PEG,PICINF-TBL /?BOGUS11
+?BOGUS11:	GET	PICINF-TBL,0 >PEG-HEIGHT
+	GET	PICINF-TBL,1 >PEG-WIDTH
+?PRG12:	GET	BOARD-TABLE,CNT >TL-Y
+	ADD	CNT,1
+	GET	BOARD-TABLE,STACK >TL-X
+	ADD	TL-Y,PEG-HEIGHT >BR-Y
+	ADD	TL-X,PEG-WIDTH >BR-X
+	SUB	TL-X,EXPAND-X >TL-X
+	ADD	BR-X,EXPAND-X >BR-X
+	ADD	BR-Y,EXPAND-Y >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK \?REP13
+	ADD	CNT,2 >CNT
+	GRTR?	CNT,43 \?PRG12
+	SOUND	1
+?REP13:	GRTR?	CNT,43 \?CCL20
+	RETURN	CLICK1
+?CCL20:	DIV	CNT,2
+	ADD	STACK,64
+	RSTACK	
+
+
+	.FUNCT	SETUP-PBOZ,I,TT,?TMP1
+	SET	'I,2
+	FSET	PBOZ-OBJECT,TOUCHBIT
+	SET	'TT,PBOZ-PIC-TABLE
+?PRG1:	GET	TT,0
+	ICALL2	PICINF-PLUS-ONE,STACK
+	GET	PICINF-TBL,0
+	PUT	BOARD-TABLE,I,STACK
+	ADD	I,1 >?TMP1
+	GET	PICINF-TBL,1
+	PUT	BOARD-TABLE,?TMP1,STACK
+	ADD	I,2 >I
+	GRTR?	I,43 /?REP2
+	ADD	TT,2 >TT
+	JUMP	?PRG1
+?REP2:	SCREEN	S-FULL
+	DISPLAY	PBOZ-BORDER,1,1
+	SCREEN	S-WINDOW
+	PICSET	PBOZ-PICSET-TBL
+	ICALL1	DRAW-PEGS
+	ZERO?	ACTIVE-MOUSE /?CND5
+	ICALL2	PICINF-PLUS-ONE,PBOZ-RESTART-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	DIM-RESTART-BOX,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,PBOZ-SHOW-MOVES-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	DIM-SHOW-MOVES-BOX,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,PBOZ-EXIT-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	EXIT-BOX,?TMP1,STACK
+?CND5:	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	DRAW-PEGS,NUM,?TMP2,?TMP1
+	SET	'NUM,1
+?PRG1:	GET	PEG-TABLE,NUM
+	EQUAL?	STACK,1 \?CCL5
+	MUL	NUM,2
+	GET	BOARD-TABLE,STACK >?TMP1
+	MUL	NUM,2
+	ADD	STACK,1
+	GET	BOARD-TABLE,STACK
+	DISPLAY	UNHL-PEG,?TMP1,STACK
+	JUMP	?CND3
+?CCL5:	GET	PEG-BG-PIC-TBL,NUM >?TMP2
+	MUL	NUM,2
+	GET	BOARD-TABLE,STACK >?TMP1
+	MUL	NUM,2
+	ADD	STACK,1
+	GET	BOARD-TABLE,STACK
+	DISPLAY	?TMP2,?TMP1,STACK
+?CND3:	IGRTR?	'NUM,21 \?PRG1
+	RTRUE	
+
+
+	.FUNCT	RESET-PEGBOARD,CNT,?TMP1
+	ZERO?	ACTIVE-MOUSE /?CND1
+	SCREEN	S-WINDOW
+	ICALL2	PICINF-PLUS-ONE,PBOZ-RESTART-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	DIM-RESTART-BOX,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,PBOZ-SHOW-MOVES-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	DIM-SHOW-MOVES-BOX,?TMP1,STACK
+	SCREEN	S-TEXT
+?CND1:	SET	'PEG-MOVE-NUMBER,0
+	PUT	PEG-TABLE,1,1
+	ADD	PEG-TABLE,2 >?TMP1
+	ADD	PEG-TABLE,4
+	COPYT	?TMP1,STACK,-40
+	PUT	PEG-TABLE,7,0
+	COPYT	PEG-MOVE-TABLE,0,80
+	RTRUE	
+
+
+	.FUNCT	LEGAL-MOVE,SELECTED-PEG,CHAR,TBL,TBL-SPOT,JUMPED-PEG
+	SUB	CHAR,64 >CHAR
+	GET	LEGAL-MOVE-TABLE,SELECTED-PEG >TBL
+	GET	TBL,0
+	EQUAL?	STACK,CHAR \?CCL3
+	SET	'TBL-SPOT,0
+	JUMP	?CND1
+?CCL3:	GET	TBL,2
+	EQUAL?	STACK,CHAR \?CCL5
+	SET	'TBL-SPOT,2
+	JUMP	?CND1
+?CCL5:	GET	TBL,4
+	EQUAL?	STACK,CHAR \?CCL7
+	SET	'TBL-SPOT,4
+	JUMP	?CND1
+?CCL7:	GET	TBL,6
+	EQUAL?	STACK,CHAR \?CCL9
+	SET	'TBL-SPOT,6
+?CND1:	ADD	TBL-SPOT,1
+	GET	TBL,STACK >JUMPED-PEG
+	GET	PEG-TABLE,CHAR
+	EQUAL?	STACK,1 \?CCL12
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"Illegal move. There's already a peg at spot "
+	ADD	LETTER-OFFSET,CHAR
+	PRINTC	STACK
+	PRINTC	46
+	RFALSE	
+?CCL9:	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"Illegal move. You can jump a peg only to a spot which is two spots away."
+	RFALSE	
+?CCL12:	GET	PEG-TABLE,JUMPED-PEG
+	ZERO?	STACK /?CCL13
+	RETURN	JUMPED-PEG
+?CCL13:	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"Illegal move. There's no peg at spot "
+	ADD	LETTER-OFFSET,JUMPED-PEG
+	PRINTC	STACK
+	PRINTI	" to jump."
+	RFALSE	
+
+
+	.FUNCT	PBOZ-WIN-CHECK,CNT,PEG-NUM
+	SET	'CNT,1
+	ZERO?	PEG-PASSAGE-OPENED \FALSE
+?PRG3:	EQUAL?	CNT,22 /?REP4
+	GET	PEG-TABLE,CNT
+	EQUAL?	STACK,1 \?CND7
+	INC	'PEG-NUM
+?CND7:	INC	'CNT
+	JUMP	?PRG3
+?REP4:	EQUAL?	PEG-NUM,1 \FALSE
+	GET	PEG-TABLE,7
+	EQUAL?	STACK,1 /TRUE
+	RFALSE	
+
+
+	.FUNCT	PEG-COUNT,CNT,PEG-NUM
+	SET	'CNT,1
+?PRG1:	EQUAL?	CNT,22 /?REP2
+	GET	PEG-TABLE,CNT
+	EQUAL?	STACK,1 \?CND5
+	INC	'PEG-NUM
+?CND5:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	RETURN	PEG-NUM
+
+
+	.FUNCT	DISPLAY-MOVES,X,Y,CNT
+	CLEAR	S-TEXT
+	ZERO?	PEG-MOVE-NUMBER \?CND1
+	PRINTI	"You haven't moved yet!"
+	RTRUE	
+?CND1:	FONT	4
+?PRG3:	MOD	CNT,10
+	DIV	STACK,2
+	ADD	STACK,1 >Y
+	DIV	CNT,10
+	MUL	STACK,12
+	ADD	STACK,1 >X
+	ICALL	CCURSET,Y,X
+	DIV	CNT,2
+	ADD	STACK,1
+	PRINTN	STACK
+	PRINTI	") "
+	GET	PEG-MOVE-TABLE,CNT
+	ADD	LETTER-OFFSET,STACK
+	PRINTC	STACK
+	PRINTI	" -> "
+	ADD	CNT,1
+	GET	PEG-MOVE-TABLE,STACK
+	ADD	LETTER-OFFSET,STACK
+	PRINTC	STACK
+	SUB	PEG-MOVE-NUMBER,2
+	EQUAL?	CNT,STACK /?REP4
+	ADD	CNT,2 >CNT
+	JUMP	?PRG3
+?REP4:	FONT	1
+	RSTACK	
+
+
+	.FUNCT	GAMING-ROOM-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	ZORKMID-BILL,TOUCHBIT /FALSE
+	SET	'DO-J,TRUE-VALUE
+	CALL	QUEUE,I-JESTER,1
+	RSTACK	
+
+
+	.FUNCT	CARPET-F
+	EQUAL?	PRSA,V?RAISE,V?LOOK-UNDER,V?MOVE /?CCL3
+	EQUAL?	PRSA,V?ROLL \FALSE
+?CCL3:	PRINTR	"The carpet is quite well attached to the floor."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	DUMBELL-F
+	EQUAL?	PRSA,V?RAISE \?CCL3
+	PRINTR	"You can barely get them off the ground, let alone press them."
+?CCL3:	EQUAL?	PRSA,V?PUSH-DIR \?CCL5
+	ICALL	PERFORM,V?ROLL-DIR,PRSO,PRSI
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's a set of 100-ugh weights, small enough to hold in one hand (but unless you a pretty awesome athleter, not nearly light enough to hold in one hand)."
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	EAST-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The castle's east wing lies through a massive door to the east, which is "
+	ICALL2	OPEN-CLOSED,EAST-DOOR
+	PRINTI	". The only other exit from the hall is northwest."
+	RTRUE	
+
+
+	.FUNCT	EAST-DOOR-F
+	EQUAL?	PRSA,V?UNLOCK \?CCL3
+	FSET?	EAST-DOOR,LOCKEDBIT \?CCL3
+	EQUAL?	PRSI,EAST-KEY \?CCL3
+	FCLEAR	EAST-DOOR,LOCKEDBIT
+	CALL	LOCKED-UNLOCKED,EAST-DOOR,TRUE-VALUE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LOCK \FALSE
+	FSET?	EAST-DOOR,LOCKEDBIT /FALSE
+	EQUAL?	PRSI,EAST-KEY \FALSE
+	FSET	EAST-DOOR,LOCKEDBIT
+	CALL2	LOCKED-UNLOCKED,EAST-DOOR
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	WAND-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \?CCL3
+	PRINTR	"The name ""Fisha"" is engraved on the wand in tiny script, followed by the phrase ""16 minute model."""
+?CCL3:	EQUAL?	PRSA,V?POINT \FALSE
+	EQUAL?	PRSO,WAND \FALSE
+	MOVE	WAND,PROTAGONIST
+	EQUAL?	PRSI,WAND \?CCL10
+	PRINTR	"Point the wand at itself!?! It isn't made of rubber!"
+?CCL10:	ZERO?	TIME-STOPPED /?CCL12
+	PRINTR	"The wand's magic seems as frozen as time itself."
+?CCL12:	ZERO?	WAND-LIFE \?CND8
+	PRINTR	"Nothing. The wand seems to be used up."
+?CND8:	DEC	'WAND-LIFE
+	GETP	PRSI,P?INANIMATE-DESC
+	ZERO?	STACK /?CCL16
+	FSET?	PRSI,ANIMATEDBIT \?CCL16
+	EQUAL?	PRSI,FOX \?CND19
+	FSET	PRSI,WEARBIT
+?CND19:	GETP	PRSI,P?ANIMATE-ROUTINE
+	ICALL	QUEUE,STACK,17
+	FCLEAR	PRSI,ANIMATEDBIT
+	FCLEAR	PRSI,ACTORBIT
+	FSET	PRSI,TOUCHBIT
+	ICALL2	THIS-IS-IT,PRSI
+	GETP	PRSI,P?WAND-TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL16:	FSET?	PRSI,BLACKBIT /?CTR21
+	FSET?	PRSI,WHITEBIT \?CCL22
+?CTR21:	PRINTI	"The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" seems to grow sluggish for a moment, but there is no other effect."
+?CCL22:	EQUAL?	PRSA,V?POINT \?CCL26
+	EQUAL?	PRSI,JESTER \?CCL26
+	PRINTI	"The jester's expression turns stony. In fact, the jester himself turns stony, as he becomes a statue! After a moment, hairline cracks begin forming across the statue. The cracks widen and multiply, and the entire statue collapses into a cloud of dust! You hear an echo of laughter as the dust disperses."
+	IN?	SHELL-TABLE,HERE \?CND29
+	PRINTI	" The table and shells disappear as well."
+?CND29:	CRLF	
+	ICALL1	REMOVE-J
+	SET	'J-DISPOSED,MOVES
+	RTRUE	
+?CCL26:	EQUAL?	PRSI,BEDBUG \?CCL32
+	REMOVE	BEDBUG
+	PRINTR	"The bedbug freezes, becoming a small armored tank. You are surrounded by raucous laughter from an invisible source, and the bedbug/tank disappears!"
+?CCL32:	EQUAL?	PRSI,EVEN-LARGER-FLY,LARGER-FLY,LARGE-FLY /?CTR33
+	EQUAL?	PRSI,LARGEST-FLY \?CCL34
+?CTR33:	PRINTR	"Zap! A bolt of magic just misses the fly. Oh, well. It seems that even though it's large for a fly, it's small for a magic wand target."
+?CCL34:	EQUAL?	PRSI,OTTO \?CCL38
+	REMOVE	OTTO
+	ICALL	QUEUE,I-STONE-TO-OTTO,17
+	PRINTI	"Otto "
+	FSET?	SPYGLASS,TRYTAKEBIT \?CND39
+	IN?	SPYGLASS,OTTO /?CND39
+	MOVE	SPYGLASS,OTTO
+	PRINTI	"grabs the spyglass just before he "
+?CND39:	PRINTR	"transforms into a massive stone toad, just like the ones that flank the Flatheadia Courthouse. His weight is now too much for even the largest of lily pads to bear, and he sinks into the swamp with a sickening slurp."
+?CCL38:	EQUAL?	PRSI,BROGMOID \?CCL44
+	PRINTR	"A few of the brogmoid's cells may have frozen; if the wand were twenty bloits long, it might have a chance of affecting this enormous brogmoid."
+?CCL44:	EQUAL?	PRSI,PRICKLY-WITCH,SICKLY-WITCH \?CCL46
+	PRINTR	"A magical shield springs up around the witch. ""Your weak powers are useless against us, simple adventurer!"" cackles the crone."
+?CCL46:	FSET?	PRSI,PLANTBIT \?CCL48
+	PRINTI	"No effect;"
+	ICALL1	TPRINT-PRSI
+	PRINTR	" wasn't all that animate to begin with."
+?CCL48:	EQUAL?	PRSI,UNICORNS \?CCL50
+	CALL2	JIGS-UP,STR?381
+	RSTACK	
+?CCL50:	EQUAL?	PRSI,THOUSANDS-OF-SNAKES \?CCL52
+	PRINTR	"One of the snakes stops moving, but is instantly swallowed up by the writhing mass."
+?CCL52:	EQUAL?	PRSI,ME \?CCL54
+	CALL2	JIGS-UP,STR?382
+	RSTACK	
+?CCL54:	EQUAL?	PRSI,EXECUTIONER \?CCL56
+	CALL2	JIGS-UP,STR?383
+	RSTACK	
+?CCL56:	PRINTI	"You feel a crackle of magical energy, but there doesn't seem to be any effect on"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	G-BOOTH-F,TBL,LEN
+	IN?	PROTAGONIST,LEFT-BOOTH \?CCL3
+	RETURN	LEFT-BOOTH
+?CCL3:	IN?	PROTAGONIST,RIGHT-BOOTH \FALSE
+	RETURN	RIGHT-BOOTH
+
+
+	.FUNCT	BOOTH-F,VARG
+	ZERO?	VARG /?CCL3
+	EQUAL?	VARG,M-ENTER \FALSE
+?CCL3:	ZERO?	VARG /?CCL7
+	FSET?	PRSO,TOUCHBIT /FALSE
+	PRINTC	32
+	ICALL	PERFORM,V?EXAMINE,PRSO
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The only feature of the booth is an ominous black button."
+
+
+	.FUNCT	G-BUTTON-F,TBL,LEN
+	IN?	PROTAGONIST,RIGHT-BOOTH \?CCL3
+	RETURN	RIGHT-BOOTH-BUTTON
+?CCL3:	IN?	PROTAGONIST,LEFT-BOOTH \?CCL5
+	RETURN	LEFT-BOOTH-BUTTON
+?CCL5:	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	BOOTH-BUTTON-F,OTHER-BOOTH,THE-FLY
+	EQUAL?	PRSA,V?PUSH \FALSE
+	ZERO?	ALLIGATOR /?CND4
+	PRINTR	"Impossible, in your current state."
+?CND4:	REMOVE	LEFT-BOOTH-BUTTON
+	REMOVE	RIGHT-BOOTH-BUTTON
+	IN?	PROTAGONIST,RIGHT-BOOTH \?CCL8
+	SET	'OTHER-BOOTH,LEFT-BOOTH
+	JUMP	?CND6
+?CCL8:	SET	'OTHER-BOOTH,RIGHT-BOOTH
+?CND6:	FIRST?	OTHER-BOOTH >THE-FLY /?BOGUS9
+?BOGUS9:	ZERO?	THE-FLY /?CTR11
+	NEXT?	THE-FLY \?CCL12
+?CTR11:	PRINT	NOTHING-HAPPENS
+	JUMP	?CND10
+?CCL12:	ICALL	QUEUE,I-UNTURN,5
+	SET	'TURNED-INTO,THE-FLY
+	ICALL2	DEQUEUE,I-UNALLIGATOR
+	PRINTI	"You turn into"
+	ICALL2	APRINT,THE-FLY
+	EQUAL?	THE-FLY,WORM \?CCL17
+	CALL2	VISIBLE?,ROOSTER
+	ZERO?	STACK /?CCL17
+	FSET?	ROOSTER,ANIMATEDBIT \?CCL17
+	ICALL2	JIGS-UP,STR?390
+	JUMP	?CND15
+?CCL17:	EQUAL?	THE-FLY,ROOSTER \?CCL22
+	CALL2	VISIBLE?,FOX
+	ZERO?	STACK /?CCL22
+	FSET?	FOX,ANIMATEDBIT \?CCL22
+	ICALL2	JIGS-UP,STR?391
+	JUMP	?CND15
+?CCL22:	FIRST?	PROTAGONIST \?CCL27
+	PRINTI	", dropping your possessions."
+	LOC	PROTAGONIST
+	ICALL	ROB,PROTAGONIST,STACK
+	JUMP	?CND15
+?CCL27:	PRINTC	46
+?CND15:	CRLF	
+?CND10:	MOVE	LEFT-BOOTH-BUTTON,LEFT-BOOTH
+	MOVE	RIGHT-BOOTH-BUTTON,RIGHT-BOOTH
+	RTRUE	
+
+
+	.FUNCT	I-UNTURN
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   Waves of relief. You're no longer"
+	ICALL2	ARPRINT,TURNED-INTO
+	SET	'TURNED-INTO,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	TO-SPEAK-OF,STRING
+	PRINTI	"Ummm..."
+	ICALL2	APRINT,TURNED-INTO
+	PRINTI	" has no "
+	PRINT	STRING
+	PRINTR	" to speak of."
+
+
+	.FUNCT	GOOD-MEAL,OBJ
+	REMOVE	OBJ
+	PRINTI	"Yum!"
+	GRTR?	HUNGER-COUNT,0 \?CCL3
+	PRINTI	" Your hunger fades."
+	CRLF	
+	ICALL2	DEQUEUE,I-HUNGER
+	SET	'HUNGER-COUNT,0
+	CALL2	INC-SCORE,20
+	RSTACK	
+?CCL3:	CRLF	
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	TOBOGGAN-F,VARG
+	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	CALL	NOUN-USED?,TOBOGGAN,W?INSCRIPTION
+	ZERO?	STACK /?CCL8
+	ICALL	PERFORM,V?READ,TOBOGGAN
+	RTRUE	
+?CCL8:	PRINTI	"This one-person sled bears a small inscription. "
+	RFALSE	
+?CCL5:	EQUAL?	PRSA,V?ENTER \FALSE
+	EQUAL?	HERE,GLACIER \FALSE
+	MOVE	TOBOGGAN,MIRROR-LAKE
+	ZERO?	ENCHANTED-ORB \?CND13
+	RANDOM	100
+	LESS?	25,STACK /?CCL17
+	SET	'ENCHANTED-ORB,MILKY-ORB
+	JUMP	?CND13
+?CCL17:	RANDOM	100
+	LESS?	33,STACK /?CCL19
+	SET	'ENCHANTED-ORB,SMOKY-ORB
+	JUMP	?CND13
+?CCL19:	RANDOM	100
+	LESS?	50,STACK /?CCL21
+	SET	'ENCHANTED-ORB,FIERY-ORB
+	JUMP	?CND13
+?CCL21:	SET	'ENCHANTED-ORB,GLITTERY-ORB
+?CND13:	PRINTI	"As you sit on the toboggan, it begins to slide down the mountain, gathering speed as it goes. The passing landscape begins to blur, and then even the blur is gone as the icy wind forces your eyes shut. Suddenly, with a jolt like a mighty hand grabbing you, you are still! You open your eyes"
+	PRINT	ELLIPSIS
+	CALL2	GOTO,TOBOGGAN
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	CAGE-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	IN?	SNAKE,CAGE \?CCL6
+	FSET?	SNAKE,ANIMATEDBIT \?CCL6
+	CALL2	JIGS-UP,STR?396
+	RSTACK	
+?CCL6:	FSET	CAGE,TOUCHBIT
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?COUNT \?CCL10
+	PRINTR	"Thousands."
+?CCL10:	EQUAL?	PRSA,V?ENTER \FALSE
+	PRINTR	"The cage is too small for a human."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	SNAKE-F
+	EQUAL?	PRSA,V?RESEARCH \?CCL3
+	CALL	NOUN-USED?,SNAKE,W?SNAKE
+	ZERO?	STACK /?CCL3
+	PRINTR	"""A common animal, best kept caged."""
+?CCL3:	FSET?	SNAKE,ANIMATEDBIT \?CCL7
+	EQUAL?	PRSA,V?LET-OUT \?CCL10
+	ICALL	PERFORM,V?OPEN,CAGE
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?MEASURE,V?EXAMINE \FALSE
+	PRINTR	"The snake is thin and perhaps as much as twenty feet long."
+?CCL7:	EQUAL?	PRSA,V?TIE \?CCL14
+	EQUAL?	PRSO,SNAKE \?CCL14
+	EQUAL?	PRSI,SPIRE \?CCL19
+	SET	'ROPE-PLACED,TRUE-VALUE
+	MOVE	SNAKE,HERE
+	PRINTR	"You tie the rope to the spire, dropping the other end down the cliff face. It reaches most of the way toward the lower ledge."
+?CCL19:	FSET?	PRSI,PLANTBIT \?CCL21
+	CALL1	WASTES
+	RSTACK	
+?CCL21:	PRINT	YOU-CANT
+	PRINTI	"tie the rope to"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+?CCL14:	EQUAL?	PRSA,V?UNTIE \?CCL23
+	ZERO?	ROPE-PLACED /?CCL23
+	SET	'ROPE-PLACED,FALSE-VALUE
+	PRINTR	"You untie the rope from the spire."
+?CCL23:	EQUAL?	PRSA,V?CLIMB-DOWN \?CCL27
+	ZERO?	ROPE-PLACED /?CCL27
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL27:	EQUAL?	PRSA,V?MEASURE,V?EXAMINE \FALSE
+	PRINTR	"The rope is about twenty feet long."
+
+
+	.FUNCT	I-W-SNAKE,TOLD
+	FSET	SNAKE,ANIMATEDBIT
+	IN?	SNAKE,LAKE-BOTTOM \?CCL3
+	REMOVE	SNAKE
+	JUMP	?CND1
+?CCL3:	CALL2	VISIBLE?,SNAKE
+	ZERO?	STACK /?CCL5
+	ICALL1	RETURN-FROM-MAP
+	SET	'TOLD,TRUE-VALUE
+	PRINTI	"   The rope ripples with increasing force. It has returned to the form of a snake! The snake squirms with anger"
+	EQUAL?	HERE,UPPER-LEDGE \?CCL8
+	ZERO?	ROPE-PLACED /?CCL8
+	PRINTI	", uncurls from the spire, and drops out of sight!"
+	CRLF	
+	JUMP	?CND1
+?CCL8:	IN?	SNAKE,CAGE \?CCL12
+	FSET?	CAGE,OPENBIT /?CCL12
+	PRINT	PERIOD-CR
+	JUMP	?CND1
+?CCL12:	CALL2	ULTIMATELY-IN?,SNAKE
+	ZERO?	STACK /?CCL16
+	IN?	SNAKE,WALDO /?CCL16
+	ICALL2	JIGS-UP,STR?399
+	JUMP	?CND1
+?CCL16:	LOC	SNAKE
+	FSET?	STACK,ACTORBIT \?CND19
+	PRINTI	", nearly bites"
+	LOC	SNAKE
+	ICALL2	TPRINT,STACK
+	PRINTI	" on the wrist, drops to the ground,"
+?CND19:	PRINTI	" and wriggles quickly out of sight."
+	CRLF	
+	JUMP	?CND1
+?CCL5:	EQUAL?	HERE,LOWER-LEDGE \?CND1
+	ZERO?	ROPE-PLACED /?CND1
+	ICALL1	RETURN-FROM-MAP
+	SET	'TOLD,TRUE-VALUE
+	PRINTI	"   A writhing snake drops from above! It strikes out at you but, fortunately, misses. Hissing angrily, it disappears into a narrow crack."
+	CRLF	
+?CND1:	SET	'ROPE-PLACED,FALSE-VALUE
+	IN?	SNAKE,CAGE \?CCL25
+	FSET?	CAGE,OPENBIT \?CND24
+?CCL25:	REMOVE	SNAKE
+?CND24:	ZERO?	TOLD \TRUE
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	VAULT-DOOR-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	EQUAL?	HERE,LOWEST-HALL \?CCL3
+	PRINTI	"A large dial is set into the center of the door. "
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?LOCK \?CCL7
+	EQUAL?	PRSO,VAULT-DOOR \?CCL7
+	FSET?	VAULT-DOOR,OPENBIT \?CCL12
+	CALL	DO-FIRST,STR?402,VAULT-DOOR
+	RSTACK	
+?CCL12:	FSET?	VAULT-DOOR,LOCKEDBIT \?CCL14
+	PRINTR	"It is!"
+?CCL14:	RANDOM	2570 >P-NUMBER
+	ICALL	PERFORM,V?SET,DIAL,INTNUM
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?UNLOCK \FALSE
+	FSET?	PRSI,KEYBIT \FALSE
+	PRINTR	"This is a combination lock, not a key lock."
+
+
+	.FUNCT	DIAL-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The dial is currently turned to "
+	PRINTN	DIAL-NUMBER
+	PRINTR	". It can be set to any number between 1 and 2570."
+?CCL3:	EQUAL?	PRSA,V?SET-DIR \?CCL5
+	EQUAL?	PRSI,LEFT-RIGHT \?CCL5
+	ICALL	PERFORM,V?SET,DIAL
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?SET \FALSE
+	ZERO?	PRSI \?CCL12
+	PRINTR	"[You must say what number to turn the dial to, as in TURN DIAL TO 920.]"
+?CCL12:	EQUAL?	PRSI,INTNUM /?CCL14
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL14:	GRTR?	P-NUMBER,2570 /?CTR15
+	LESS?	P-NUMBER,1 \?CCL16
+?CTR15:	PRINTR	"That's not one of the numbers on the dial."
+?CCL16:	EQUAL?	DIAL-NUMBER,P-NUMBER \?CCL20
+	PRINTI	"The dial is already set to "
+	PRINTN	P-NUMBER
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL20:	FSET?	VAULT-DOOR,OPENBIT /?CCL22
+	FSET?	VAULT-DOOR,LOCKEDBIT /?CCL22
+	SET	'DIAL-NUMBER,P-NUMBER
+	FSET	VAULT-DOOR,LOCKEDBIT
+	PRINTR	"The tumblers tumble as the vault door re-locks."
+?CCL22:	FSET?	GLOVE,WORNBIT \?CCL26
+	FSET?	VAULT-DOOR,LOCKEDBIT \?CCL26
+	RANDOM	2570 >DIAL-NUMBER
+	FCLEAR	VAULT-DOOR,LOCKEDBIT
+	PRINTI	"As you turn the dial with your gloved hand, you can almost feel the tumblers turning as though they were an extension of your own fingers! Fascinated, you keep spinning, and as you pass "
+	PRINTN	DIAL-NUMBER
+	PRINTR	", you feel a sense of tactile perfection, and stop. A faint click ripples up your arm."
+?CCL26:	SET	'DIAL-NUMBER,P-NUMBER
+	PRINTI	"The dial is now set to "
+	PRINTN	DIAL-NUMBER
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	VAULT-F,RARG
+	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?LOCK,V?CLOSE,V?OPEN /?PRD7
+	EQUAL?	PRSA,V?UNLOCK \FALSE
+?PRD7:	EQUAL?	PRSO,GLOBAL-HERE,VAULT \FALSE
+	CALL	PERFORM-PRSA,VAULT-DOOR,PRSI
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	NW-SE-PASSAGE-F,OARG
+	EQUAL?	OARG,M-OBJDESC? /TRUE
+	PRINTI	"   "
+	CALL2	D-PASSAGE,NW-SE-PASSAGE
+	RSTACK	
+
+
+	.FUNCT	N-S-PASSAGE-F,OARG
+	EQUAL?	OARG,M-OBJDESC? /TRUE
+	PRINTI	"   "
+	CALL2	D-PASSAGE,N-S-PASSAGE
+	RSTACK	
+
+
+	.FUNCT	PASSAGE-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	PRSO,TRYTAKEBIT \?CCL3
+	MOVE	PRSO,PROTAGONIST
+	MOVE	NOTICE,HERE
+	FCLEAR	N-S-PASSAGE,TRYTAKEBIT
+	FCLEAR	NW-SE-PASSAGE,TRYTAKEBIT
+	FSET	PRSO,TOUCHBIT
+	PRINTI	"As you take"
+	ICALL1	TPRINT-PRSO
+	PRINTR	", a notice flutters to the ground."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	FSET?	PRSO,TAKEBIT \?CCL10
+	PRINTR	"The passage is made out of the same material as donut holes. Once installed, it should be wide enough to walk through, and it's probably about a hundredth of a bloit long."
+?CCL10:	ICALL2	D-PASSAGE,PRSO
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?ENTER \FALSE
+	FSET?	PRSO,TAKEBIT \?CCL15
+	PRINTR	"The passage hasn't been installed yet!"
+?CCL15:	EQUAL?	PRSO,N-S-PASSAGE \?CCL17
+	CALL2	DO-WALK,N-S-PASSAGE-DIR
+	RSTACK	
+?CCL17:	CALL2	DO-WALK,NW-SE-PASSAGE-DIR
+	RSTACK	
+
+
+	.FUNCT	D-PASSAGE,PASSAGE,?TMP1
+	FSET?	PASSAGE,TOUCHBIT /?CCL3
+	EQUAL?	PASSAGE,N-S-PASSAGE \?CCL6
+	PRINTI	"Discarded in the corner is a north-south passage, slightly damaged but perfectly usable."
+	RTRUE	
+?CCL6:	PRINTI	"A northwest-southeast passage is lying here. It is marked as being slightly irregular, but nobody other than one of the bureaucratic Passage Inspectors would ever notice."
+	RTRUE	
+?CCL3:	FSET?	PASSAGE,TAKEBIT \?CCL8
+	PRINTI	"A magic "
+	ICALL2	DPRINT,PASSAGE
+	PRINTI	" is just lying around in the middle of the room, uninstalled."
+	RTRUE	
+?CCL8:	PRINTI	"A magic "
+	ICALL2	DPRINT,PASSAGE
+	PRINTI	" has been installed in the "
+	EQUAL?	PASSAGE,N-S-PASSAGE \?CCL11
+	EQUAL?	HERE,CONSTRUCTION \?CCL14
+	GET	NORTH-EXITS,0 >?TMP1
+	ADD	CONSTRUCTION-LOC,100
+	EQUAL?	?TMP1,STACK \?CCL17
+	PRINTI	"north"
+	JUMP	?CND9
+?CCL17:	PRINTI	"south"
+	JUMP	?CND9
+?CCL14:	EQUAL?	N-S-PASSAGE-DIR,P?NORTH \?CCL19
+	PRINTI	"north"
+	JUMP	?CND9
+?CCL19:	PRINTI	"south"
+	JUMP	?CND9
+?CCL11:	EQUAL?	HERE,CONSTRUCTION \?CCL22
+	GET	SE-EXITS,0 >?TMP1
+	ADD	CONSTRUCTION-LOC,100
+	EQUAL?	?TMP1,STACK \?CCL25
+	PRINTI	"southeast"
+	JUMP	?CND9
+?CCL25:	PRINTI	"northwest"
+	JUMP	?CND9
+?CCL22:	EQUAL?	NW-SE-PASSAGE-DIR,P?NW \?CCL27
+	PRINTI	"northwest"
+	JUMP	?CND9
+?CCL27:	PRINTI	"southeast"
+?CND9:	PRINTI	" wall."
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	PITS-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This cavern, deep in the bowels of the Great Underground Empire, "
+	ICALL1	D-PITS-FLOOR
+	PRINTI	". A rickety ladder leads upward."
+	RTRUE	
+
+
+	.FUNCT	D-PITS-FLOOR
+	FSET?	LANTERN,TRYTAKEBIT \?CCL3
+	PRINTI	"is spotted with an incredible quantity of pits. Judging from the closest of them, the pits are bottomless"
+	RTRUE	
+?CCL3:	PRINTI	"has a large number of bottomless pits, all of which have been filled in"
+	FSET?	HERE,TOUCHBIT \?CCL6
+	PRINTI	", except one."
+	JUMP	?CND4
+?CCL6:	PRINTI	" -- no, wait! It seems that one pit did not become filled in!"
+?CND4:	PRINTI	" The open pit seems to have handholds leading downward"
+	RTRUE	
+
+
+	.FUNCT	PIT-ENTER-F,RARG
+	FSET?	LANTERN,TRYTAKEBIT \?CCL3
+	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"Entering a bottomless pit means certain death!"
+	CRLF	
+	RFALSE	
+?CCL3:	RETURN	LEDGE-IN-PIT
+
+
+	.FUNCT	PITS-OBJECT-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	EQUAL?	HERE,PITS \?CCL3
+	PRINTI	"The floor "
+	ICALL1	D-PITS-FLOOR
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL7
+	PRINTR	"The pit looks bottomless."
+?CCL7:	EQUAL?	PRSA,V?PUT,V?THROW \?CCL9
+	EQUAL?	P-PRSA-WORD,W?THROW,W?HURL,W?TOSS /?PRD12
+	EQUAL?	P-PRSA-WORD,W?CAST \?CCL9
+?PRD12:	EQUAL?	PRSO,PIT-BOMB \?CCL9
+	ICALL	PERFORM,V?THROW,PIT-BOMB,FALSE-VALUE
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?PUT,V?THROW \?CCL16
+	EQUAL?	PRSI,PITS-OBJECT \?CCL16
+	REMOVE	PRSO
+	EQUAL?	PRSO,PERCH /?CCL20
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND19
+?CCL20:	SET	'REMOVED-PERCH-LOC,BROGMOID
+?CND19:	PRINTI	"Bottomless or not, the pit swallows"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" forever."
+?CCL16:	EQUAL?	PRSA,V?LEAP /?CTR23
+	EQUAL?	PRSA,V?ENTER \?CCL24
+	EQUAL?	P-PRSA-WORD,W?JUMP,W?LEAP \?CCL24
+?CTR23:	CALL2	JIGS-UP,STR?407
+	RSTACK	
+?CCL24:	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	LANTERN-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	FSET?	LANTERN,TRYTAKEBIT \?CCL6
+	PRINTR	"You can't see much from this distance."
+?CCL6:	CALL	NOUN-USED?,LANTERN,W?MONOGRAM
+	ZERO?	STACK /?CCL8
+	ICALL	PERFORM,V?READ,LANTERN
+	RTRUE	
+?CCL8:	FSET?	LANTERN,LIGHTBIT /?CCL10
+	PRINTR	"The lamp is either broken or burned out."
+?CCL10:	PRINTI	"There seems to be a faint monogram engraved on it. "
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?READ \?CCL12
+	FSET?	LANTERN,TRYTAKEBIT \?CCL12
+	ICALL	PERFORM,V?EXAMINE,LANTERN
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?WALK-TO,V?TAKE \?CCL16
+	FSET?	LANTERN,TRYTAKEBIT \?CCL16
+	PRINTR	"The pits make the cavern uncrossable; ergo, you can't reach the lantern."
+?CCL16:	EQUAL?	PRSA,V?THROW-TO,V?THROW \?CCL20
+	EQUAL?	PRSI,LANTERN \?CCL20
+	FSET?	LANTERN,TRYTAKEBIT \?CCL20
+	REMOVE	PRSO
+	EQUAL?	PRSO,PERCH /?CCL25
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND24
+?CCL25:	SET	'REMOVED-PERCH-LOC,BROGMOID
+?CND24:	PRINTI	"Sigh. Your throw is just short of the lamp, and"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" disappears into one of the pits."
+?CCL20:	EQUAL?	PRSA,V?THROW \?CCL29
+	EQUAL?	PRSO,LANTERN \?CCL29
+	ICALL2	DEQUEUE,I-LANTERN
+	FCLEAR	LANTERN,ONBIT
+	FCLEAR	LANTERN,LIGHTBIT
+	PRINTI	"The lamp smashes into the floor, breaking it."
+	CRLF	
+	CALL1	NOW-DARK?
+	RSTACK	
+?CCL29:	EQUAL?	PRSA,V?ON \FALSE
+	FSET?	LANTERN,LIGHTBIT \?CCL36
+	ICALL	QUEUE,I-LANTERN,-1
+	RFALSE	
+?CCL36:	PRINTR	"The lamp refuses to light."
+
+
+	.FUNCT	I-LANTERN
+	FSET?	LANTERN,ONBIT /?CND1
+	ICALL2	DEQUEUE,I-LANTERN
+	RFALSE	
+?CND1:	DEC	'LANTERN-COUNTER
+	ZERO?	LANTERN-COUNTER \?CND3
+	FCLEAR	LANTERN,ONBIT
+	FCLEAR	LANTERN,LIGHTBIT
+?CND3:	EQUAL?	LANTERN-COUNTER,200,100,50 /?PRD9
+	EQUAL?	LANTERN-COUNTER,25,0 \FALSE
+?PRD9:	CALL2	VISIBLE?,LANTERN
+	ZERO?	STACK /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+	EQUAL?	LANTERN-COUNTER,200 \?CCL14
+	PRINTR	"The lamp appears a bit dimmer."
+?CCL14:	EQUAL?	LANTERN-COUNTER,100 \?CCL16
+	PRINTR	"The lamp is definitely dimmer now."
+?CCL16:	EQUAL?	LANTERN-COUNTER,50 \?CCL18
+	PRINTR	"The lamp is nearly out."
+?CCL18:	EQUAL?	LANTERN-COUNTER,25 \?CCL20
+	PRINTI	"You'd better have more light than from the "
+	ICALL2	DPRINT,LANTERN
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL20:	PRINTI	"The lantern flickers and dies."
+	CRLF	
+	CALL1	NOW-DARK?
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	LEDGE-IN-PIT-PS
+	EQUAL?	PRSA,V?EXIT \FALSE
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	UNDER-THE-WORLD-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	ZERO?	ALLIGATOR /?CCL6
+	ICALL1	RETURN-FROM-MAP
+	CALL2	JIGS-UP,STR?418
+	RSTACK	
+?CCL6:	FSET?	UNDER-THE-WORLD,TOUCHBIT /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"The well suddenly opens onto a vast abyss! You grab onto a few protruding roots, preventing a terrible fall..."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	ROOTS-F
+	EQUAL?	HERE,OUTER-BAILEY \?CCL3
+	CALL2	PERFORM-PRSA,TREE-STUMP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TELL,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	PRINTR	"It is as unlikely for these roots to speak as it is for your toes to begin conversing with each other."
+
+
+	.FUNCT	EAR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are sitting in one of the folds of a giant ear belonging to the giant brogmoid who is holding up the world. A wide channel leading deeper into the ear is blocked by a virtual forest of ear fungus"
+	ZERO?	EAR-PASSAGE-OPEN /?CND4
+	PRINTI	", except for a small tunnel through the fungus which leads farther in"
+?CND4:	PRINTI	". The only exit is down."
+	RTRUE	
+
+
+	.FUNCT	EAR-FUNGUS-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUSH,V?CLEAN,V?MOVE /?CTR4
+	EQUAL?	PRSA,V?MUNG,V?KICK \?CCL5
+?CTR4:	PRINTR	"The fungi wall doesn't budge."
+?CCL5:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	EQUAL?	FUNGUS-NUMBER,12 \?CND12
+	RANDOM	12
+	SUB	STACK,1 >FUNGUS-NUMBER
+?CND12:	PRINTI	"You hear a vast murmur of fungi, discussing such topics as the woeful lack of moisture within this ear"
+	ZERO?	EAR-PASSAGE-OPEN \?CND14
+	PRINTI	". One conversation catches your attention: a family of fungi bewailing their long lost cousin, "
+	GET	FUNGUS-TABLE,FUNGUS-NUMBER
+	PRINT	STACK
+?CND14:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	G-FUNGUS-F,STR,LEN
+	EQUAL?	PRSA,V?RESEARCH \FALSE
+	RETURN	EAR-FUNGUS
+
+
+	.FUNCT	BROGMOID-F
+	EQUAL?	PRSA,V?WALK-TO,V?ENTER \?CCL3
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS \?CCL6
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL6:	EQUAL?	HERE,SHOULDER \?CCL8
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL8:	CALL2	DO-WALK,P?IN
+	RSTACK	
+?CCL3:	CALL2	TOUCHING?,BROGMOID
+	ZERO?	STACK /?CCL10
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS \?CCL10
+	CALL2	CANT-REACH,BROGMOID
+	RSTACK	
+?CCL10:	EQUAL?	PRSA,V?EXAMINE \?CCL14
+	EQUAL?	HERE,ON-TOP-OF-THE-WORLD \?CCL17
+	PRINTR	"Most of the brogmoid is lost in the mists which stretch above the world."
+?CCL17:	PRINTR	"The brogmoid is fairly ordinary, other than the fact that it's about a zillion times as large as any brogmoid you've ever seen before."
+?CCL14:	EQUAL?	PRSA,V?CLEAN \?CCL19
+	CALL	NOUN-USED?,BROGMOID,W?EAR
+	ZERO?	STACK /?CCL19
+	ICALL	PERFORM,V?CLEAN,EAR-FUNGUS
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?RESEARCH \FALSE
+	CALL	NOUN-USED?,BROGMOID,W?BROGMOID,W?BROGMOIDS
+	ZERO?	STACK /FALSE
+	PRINTR	"""In rare cases, these squat creatures can achieve the intelligence levels of a three-year-old human. Domesticated brogmoids are tame and can even be taught to perform simple tasks. In the wild, they can be seen in huge packs sorting through rock piles for edible rocks. (See also BROGMOIDISM.)"""
+
+	.ENDSEG
+
+	.ENDI
diff --git a/castle.zil b/castle.zil
new file mode 100644
index 0000000..53a62bf
--- /dev/null
+++ b/castle.zil
@@ -0,0 +1,4823 @@
+"CASTLE for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM GREAT-HALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Great Hall")
+      (LDESC
+"This is the huge central chamber of Dimwit's castle. The ceiling was
+lowered at some point in the past, which helped reduce the frequency of
+storm clouds forming in the upper regions of the hall. Arched openings
+lead off in the four cardinal directions. A wide stair leads up to the
+balcony, and an equally wide but ominously dark stair leads downward.")
+      (NORTH TO ENTRANCE-HALL)
+      (SOUTH TO AUDIENCE-CHAMBER)
+      (EAST TO COURTYARD)
+      (WEST TO FORMAL-GARDEN)
+      (UP TO BALCONY)
+      (DOWN PER LOWER-HALL-ENTER-F)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STAIRS BANNER)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-5>)>
+
+<ROUTINE LOWER-HALL-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<OR <FSET? ,OUTER-GATE ,OPENBIT>
+		    ,TIME-STOPPED>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"Near the bottom of the flight, the steps are blocked by
+newly-fallen rubble!" CR>)>
+		<RFALSE>)
+	       (T
+		,LOWER-HALL)>>
+
+<OBJECT CALENDAR
+	(DESC "calendar")
+	(LDESC "A calendar for 883 GUE is lying here.")
+	(SYNONYM CALENDAR)
+	(FLAGS READBIT TAKEBIT)
+	(SIZE 3)
+	(TEXT
+"[This is the \"Lives of the Twelve Flatheads Calendar\" which you can find
+in your Zork Zero package.]")>
+
+<OBJECT CALENDAR-ITEMS ;"vocab. for items in calendar pics but not in game"
+	(LOC GENERIC-OBJECTS)
+	(DESC "it")
+	(SYNONYM POISON AX AXE COBRA SKULL KNIFE DAGGER TROPHY
+	 	 STICK BALL HELMET EPAULET EPAULETTE MEDAL TEMPLATE PENCIL
+		 TRIANGLE CRAYON COMPASS ELEPHANT VOLCANO BRUSH AVOCADO INKWELL
+		 RAVEN STAMP CIGAR BURNER CELERY MATCH BOWTIE)
+	(ADJECTIVE HOCKEY RUBBER BUNSEN)>
+
+<OBJECT LOCKET-MOOSE
+	(LOC GENERIC-OBJECTS)
+	(DESC "it")
+	(SYNONYM LOCKET MOOSE)>
+
+<OBJECT PROCLAMATION
+	(DESC "proclamation")
+	(FDESC "A proclamation hangs on the wall.")
+	(OWNER WALL)
+	(SYNONYM PROCLAMATION DECREE)
+	(FLAGS READBIT TAKEBIT BURNBIT TRYTAKEBIT)
+	(SIZE 2)
+	(TEXT
+"\"The one who can stop the Curse of Megaboz, and save the land from
+destruction, shall be rewarded with half the wealth of the Empire.|
+   (signed) Wurb Flathead|
+            King of Quendor|
+	    Protector of the Empire|
+            Ruler of all the Known Lands\"")
+	(ACTION PROCLAMATION-F)>
+
+;<BEGIN-SEGMENT 0>
+
+<ROUTINE PROCLAMATION-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,PROCLAMATION ,TRYTAKEBIT>>
+		<COND (<EQUAL? <ITAKE T> ,M-FATAL>
+		       <RTRUE>)
+		      (T
+		       <PUTP ,PROCLAMATION ,P?ACTION <>>
+		       <PUTP ,PROCLAMATION ,P?OWNER <>>
+		       <FCLEAR ,PROCLAMATION ,TRYTAKEBIT>
+		       <TELL "You rip the decree from the wall." CR>)>)>>
+
+;<END-SEGMENT>
+
+;<BEGIN-SEGMENT CASTLE>
+
+<ROOM ENTRANCE-HALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Entrance Hall")
+      (NORTH TO INNER-BAILEY IF PORTCULLIS IS OPEN ELSE
+      		"The closed portcullis covers the doorway.")
+      (SOUTH TO GREAT-HALL)
+      (EAST TO BANQUET-HALL)
+      (WEST TO PARLOR)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL PORTCULLIS)
+      (RIDDLE
+"Some say I fly, but I'm not a bird; I'm often wasted, or so I've heard.
+Though I go on endlessly, there's never enough of me! What am I?\"")
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>)
+      (ACTION ENTRANCE-HALL-F)>
+
+<ROUTINE ENTRANCE-HALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is where visitors enter the castle proper, through the wide
+doorway to the north. ">
+		<COND (<NOT <FSET? ,PORTCULLIS ,OPENBIT>>
+		       <TELL
+"The doorway is currently blocked by a sturdy portcullis. ">)>
+		<TELL
+"Oddly, there is a doorbell on the inside of the doorway. Other doorways
+lead east, west, and south.">)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,JESTER ,HERE>
+		     <NOT <FSET? ,PORTCULLIS ,OPENBIT>>>
+		<SETUP-ORPHAN "answer">)>>
+
+<OBJECT TIME-OBJECT
+	(LOC GLOBAL-OBJECTS)
+	(DESC "time")
+	(SYNONYM TIME)
+	(FLAGS NARTICLEBIT)>
+
+<OBJECT DOORBELL
+	(LOC ENTRANCE-HALL)
+	(DESC "doorbell")
+	(SYNONYM DOORBELL BELL)
+	(ADJECTIVE DOOR)
+	(FLAGS NDESCBIT)
+	(GENERIC G-HAT-F) ;"jester's hat has synonym BELL"
+	(ACTION DOORBELL-F)>
+
+<ROUTINE DOORBELL-F ()
+	 <COND (<VERB? PUSH TOUCH>
+		<TELL "\"Ding, dong!\"" CR>
+		<COND (<NOT <IN? ,JESTER ,HERE>>
+		       <SETG DO-J T>
+		       <I-JESTER T>)>
+		<RTRUE>)>>
+
+<OBJECT PORTCULLIS
+	(LOC LOCAL-GLOBALS)
+	(DESC "portcullis")
+	(SYNONYM PORTCULLIS)
+	(ADJECTIVE STURDY HEAVY IRON)
+	(FLAGS DOORBIT)
+	(ACTION PORTCULLIS-F)>
+
+<ROUTINE PORTCULLIS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The portcullis, which is a heavy iron latticework used to block this
+entrance doorway, is ">
+		<OPEN-CLOSED ,PORTCULLIS>
+		<TELL ,PERIOD-CR>)
+	       (<AND <VERB? OPEN>
+		     <NOT <FSET? ,PORTCULLIS ,OPENBIT>>>
+		<TELL
+"You try to lift the portcullis, but with no effect (aside from nearly
+breaking your back)." CR>)
+	       (<AND <VERB? CLOSE>
+		     <FSET? ,PORTCULLIS ,OPENBIT>>
+		<TELL ,WONT-BUDGE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT VILLAGE>
+
+<OBJECT MOAT
+	(LOC LOCAL-GLOBALS)
+	(DESC "moat")
+	(SYNONYM MOAT)
+	(FLAGS WATERBIT)
+	(ACTION MOAT-F)>
+
+<ROUTINE MOAT-F ()
+	 <COND (<AND <TOUCHING? ,MOAT>
+		     <EQUAL? ,HERE ,PARAPET ,UPPER-BARBICAN>>
+		<CANT-REACH ,MOAT>)>>
+
+<ROOM INNER-BAILEY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Inner Bailey")
+      (LDESC
+"You are on a narrow grassy strip between the castle (which can be entered
+to the south) and the moat. A young elm grows by the side of the moat. A
+causeway leads out into the moat to the northwest.")
+      (SOUTH TO ENTRANCE-HALL IF PORTCULLIS IS OPEN)
+      (NW TO CAUSEWAY)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (SYNONYM BAILEY)
+      (ADJECTIVE INNER)
+      (GLOBAL PORTCULLIS MOAT CAUSEWAY)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-6>)
+      (ICON INNER-BAILEY-ICON)
+      (ACTION INNER-BAILEY-F)>
+
+<ROUTINE INNER-BAILEY-F ("OPT" (RARG <>))
+	 <COND (<AND ,DEMO-VERSION? <EQUAL? .RARG ,M-END>>
+		<END-DEMO>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT WORM
+	(LOC INNER-BAILEY)
+	(DESC "worm")
+	(FDESC "A common earthworm is wriggling through the grass.")
+	(SYNONYM WORM EARTHWORM PIECE RUBBER)
+	(ADJECTIVE COMMON)
+	(FLAGS TAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "piece of rubber")
+	(WAND-TEXT "Instantly, the worm stops wriggling.")
+	(ANIMATE-ROUTINE I-W-WORM)
+	(SIZE 1)
+	(ACTION WORM-F)>
+
+<ROUTINE WORM-F ()
+	 <COND (<VERB? EAT>
+		<COND (<EQUAL? ,TURNED-INTO ,ROOSTER>
+		       <GOOD-MEAL ,WORM>)
+		      (T
+		       <TELL "Yukko!" CR>)>)
+	       (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,WORM ,W?WORM ,W?EARTHWORM>>
+		<TELL "\"A low form of ground-dwelling animal life.\"" CR>)>>
+
+<ROUTINE I-W-WORM ("AUX" (L <LOC ,WORM>))
+	 <FSET ,WORM ,ANIMATEDBIT>
+	 <COND (<IN? ,WORM ,LAKE-BOTTOM>
+		<REMOVE ,WORM>)
+	       (<EQUAL? <META-LOC ,WORM> ,HERE>
+		<RETURN-FROM-MAP>
+		<TELL "   The worm ">
+		<COND (<AND <NOT <EQUAL? .L ,PROTAGONIST ,HERE>>
+			    <NOT <FSET? .L ,DROPBIT>>>
+		       <MOVE ,WORM ,HERE>
+		       <FSET .L ,OPENBIT>
+		       <TELL "wriggles out of" T .L>)
+		      (T
+		       <TELL "has resumed wriggling">)>
+		<TELL ,PERIOD-CR>)
+	       (T
+		<MOVE ,WORM <META-LOC ,WORM>>
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT VILLAGE>
+
+<OBJECT SMALL-ELM
+	(LOC INNER-BAILEY)
+	(DESC "small elm tree")
+	(SYNONYM TREE ELM)
+	(ADJECTIVE YOUNG SMALL ELM)
+	(FLAGS NDESCBIT PLANTBIT)
+	(ACTION TREE-F)>
+
+<ROUTINE TREE-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<VERB? GET-NEAR>
+		<TELL "You are now standing at the base of the tree." CR>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<COND (<PRSO? ,MIGHTY-ELM>
+		       <TELL
+"The mighty elm rumbles in a voice that bespeaks great age and weariness. It
+seems to be pining for its simple, happier, younger days. Most particularly,
+it seems to be fondly recalling a playful squirrel named \"Rosebud.\"" CR>)
+		      (<PRSO? ,SMALL-ELM>
+		       <TELL
+"The little elm's roots have, apparently, just reached down to a particularly
+yummy patch of decayed mulch, and the young elm is humming rhapsodically about
+the yumminess of the minerals therein." CR>)
+		      (T
+		       <TELL
+"The two elms are exchanging off-color jokes, most of which seem to involve
+various methods of pollen transfer." CR>)>)
+	       (<VERB? CLIMB CLIMB-UP>
+		<COND (<PRSO? ,SMALL-ELM>
+		       <TELL
+"Your weight is too much for this little tree." CR>)
+		      (T
+		       <TELL ,POORLY-CONFIGURED>)>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"The tree's speech is very childlike and difficult to understand, but it
+seems to be fantasizing about the day when it will be tall enough to see
+over the castle walls." CR>)
+	       (<VERB? MEASURE>
+		<TELL "You can">
+		<COND (<PRSO? ,MIGHTY-ELM>
+		       <TELL "'t come close to getting">)
+		      (T
+		       <COND (<PRSO? ,SMALL-ELM>
+			      <TELL " easily">)
+			     (T
+			      <TELL " just barely">)>
+		       <TELL " get">)>
+		<TELL " your arms around the tree." CR>)>>
+
+<ROOM CAUSEWAY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Causeway")
+      (LDESC
+"You are on a peninsula of dirt and gravel which extends into the moat from
+the southeast. A tall barbican towers over the end of the causeway, to the
+northwest.")
+      (SE TO INNER-BAILEY)
+      (NW TO BARBICAN)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (SYNONYM CAUSEWAY)
+      (GLOBAL MOAT BARBICAN)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>)
+      (ICON CAUSEWAY-ICON)>
+
+<ROOM BARBICAN
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Barbican")
+      (NW TO DRAWBRIDGE IF DRAWBRIDGE IS OPEN)
+      (SE TO CAUSEWAY)
+      (UP TO UPPER-BARBICAN)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM BARBICAN TOWER GATE-TOWER)
+      (ADJECTIVE TALL LOWER)
+      (GLOBAL MOAT DRAWBRIDGE FIXED-LADDER UPPER-BARBICAN)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>)
+      (ICON BARBICAN-ICON)
+      (ACTION BARBICAN-F)>
+
+<ROUTINE BARBICAN-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This dimly lit room is the bottom level of the gate-tower which guards the
+castle's drawbridge. It lies at the tip of a peninsula into the moat; the rest
+of the peninsula is to the southeast. A drawbridge to the northwest is ">
+		<OPEN-CLOSED ,DRAWBRIDGE>
+		<TELL ", and a ladder leads to an upper level.">)>>
+
+<ROOM UPPER-BARBICAN
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Upper Barbican")
+      (LDESC
+"This upper level is key to defending the outer perimeter of the castle, with
+its commanding view of the causeway, moat and baileys. The floor is filled
+with \"murder holes\" for dropping heavy cannonballs onto unwanted visitors
+who penetrate as far as the barbican's lower level, just below. A large cast
+iron wheel is mounted in the center of the room. The only exit is a ladder
+leading down.")
+      (DOWN TO BARBICAN)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM BARBICAN TOWER)
+      (ADJECTIVE UPPER)
+      (GLOBAL FIXED-LADDER MOAT)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+      (ICON UPPER-BARBICAN-ICON)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT CANNONBALL
+	(LOC UPPER-BARBICAN)
+	(DESC "cannonball")
+	(SYNONYM CANNONBALL BALL)
+	(ADJECTIVE HEAVY)
+	(FLAGS TAKEBIT)
+	(SIZE 50)
+	(ACTION CANNONBALL-F)>
+
+<ROUTINE CANNONBALL-F ()
+	 <COND (<AND <VERB? PUT-ON>
+		     <EQUAL? ,P-PRSA-WORD ,W?DROP>
+		     <PRSO? ,CANNONBALL>>
+		<MOVE ,CANNONBALL ,HERE>
+		<COND (<FSET? ,PRSI ,PARTBIT>
+		       <TELL "Ouch!!!" CR>)
+		      (<G? <GETP ,PRSI ,P?SIZE> 10>
+		       <TELL "This has no effect." CR>)
+		      (T
+		       <TELL "Miraculously," T ,PRSI " survives." CR>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT VILLAGE>
+
+<OBJECT MURDER-HOLE
+	(LOC UPPER-BARBICAN)
+	(DESC "murder hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE MURDER)
+	(FLAGS NDESCBIT)
+	(ACTION MURDER-HOLE-F)>
+
+<ROUTINE MURDER-HOLE-F ("AUX" TAKER)
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL "You can just make out the barbican below." CR>)
+	       (<VERB? REACH-IN>
+		<TELL ,NOTHING-IN-REACH>)
+	       (<AND <VERB? PUT PUT-THROUGH>
+		     <PRSI? ,MURDER-HOLE>>
+		<COND (<AND <PRSO? ,CANNONBALL>
+			    <VISIBLE? ,CANDLE>
+			    <FSET? ,CANDLE ,ONBIT>>
+		       <COND (<NOT <ULTIMATELY-IN? ,CANDLE>>
+			      <MOVE ,CANDLE ,PROTAGONIST>)>
+		       <TELL
+"As you drop the cannonball through the murder hole, you hear a sickening
+\"splat,\" followed by a woman's scream!|
+   \"Emily, what is it!\"|
+   \"It's Victor -- he's been murdered!\"|
+   \"I'll summon the Inspector! Ah, here he is now!\" You hear whispered
+questions and answers from the room below, followed by footsteps on the
+stairs. The jester enters, wearing a trenchcoat and smoking a large pipe.|
+   \"I'm afraid I'm going to have to order Sgt. Duffy to place you under
+arrest, sir.\" You grow dizzy with confusion, and your surroundings swirl
+wildly about you" ,ELLIPSIS>
+		       <GOTO ,DUNGEON>)
+		      (T
+		       <TELL "You hear a \"thunk\" from down below." CR>)>
+		<COND (<OR <SET TAKER <FIND-IN ,BARBICAN ,WHITEBIT>>
+			   <SET TAKER <FIND-IN ,BARBICAN ,BLACKBIT>>>
+		       <MOVE ,PRSO .TAKER>
+		       <COND (<PRSO? ,PIGEON>
+			      <MOVE-TO-PERCH .TAKER>)>)
+		      (T
+		       <MOVE ,PRSO ,BARBICAN>)>
+		<RTRUE>)>>
+
+<OBJECT WHEEL
+	(LOC UPPER-BARBICAN)
+	(DESC "wheel")
+	(SYNONYM WHEEL)
+	(ADJECTIVE LARGE CAST IRON)
+	(FLAGS NDESCBIT)
+	(ACTION WHEEL-F)>
+
+<ROUTINE WHEEL-F ()
+	 <COND (<VERB? SET SET-DIR>
+		<COND (<FSET? ,DRAWBRIDGE ,OPENBIT>
+		       <FCLEAR ,DRAWBRIDGE ,OPENBIT>)
+		      (T
+		       <FSET ,DRAWBRIDGE ,OPENBIT>)>
+		<FSET ,BARBICAN ,REDESCBIT>
+		<TELL "You hear a clattering clanking noise from below." CR>
+		<ROB ,DRAWBRIDGE ,BARBICAN>
+		<RTRUE>)>>
+
+<ROOM DRAWBRIDGE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Drawbridge")
+      (SE TO BARBICAN)
+      (NW TO OUTER-BAILEY)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM BRIDGE DRAWBRIDGE)
+      (ADJECTIVE DRAW STURDY WOODEN)
+      (GLOBAL DRAWBRIDGE MOAT)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-3>)
+      (ICON DRAWBRIDGE-ICON)
+      (ACTION DRAWBRIDGE-F)>
+
+<ROUTINE DRAWBRIDGE-F ("OPTIONAL" RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are standing on a sturdy wooden drawbridge across a moat. ">
+		<COND (<NOT ,TIME-STOPPED>
+		       <TELL
+"The surface of the moat roils from the thrashing of countless
+ravenous beasts. ">)>
+		<TELL
+"The drawbridge runs from a tall barbican at the southeast to a wide meadow
+at the northwest.">)
+	       (.RARG
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<TELL "The drawbridge is ">
+		<OPEN-CLOSED ,DRAWBRIDGE>
+		<TELL ,PERIOD-CR>)
+	       (<OR <AND <VERB? OPEN LOWER>
+			 <NOT <FSET? ,DRAWBRIDGE ,OPENBIT>>>
+		    <AND <VERB? CLOSE RAISE>
+			 <FSET? ,DRAWBRIDGE ,OPENBIT>>>
+		<TELL "There's no apparent way to do that." CR>)>>
+
+<END-SEGMENT>
+\
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM PARLOR
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Parlor")
+      (LDESC
+"This is where many of Dimwit's guests would come and sit after dinner,
+for wine, conversation, and any other whim that might pop into Dimwit's
+head. There are doorways to the east, west and south.")
+      (EAST TO ENTRANCE-HALL)
+      (SOUTH TO FORMAL-GARDEN)
+      (WEST TO TORCH-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM PARLOR)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-4>)
+      (ICON PARLOR-ICON)
+      (ACTION PARLOR-F)>
+
+<ROUTINE PARLOR-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER> ;"spenseweed shared with Lake Bottom"
+		<MOVE ,SPENSEWEED ,FISH-TANK>
+		<FCLEAR ,SPENSEWEED ,NDESCBIT>)>> 
+
+<OBJECT FISH-TANK
+	(LOC PARLOR)
+	(DESC "fish tank")
+	(SYNONYM TANK AQUARIUM)
+	(ADJECTIVE FISH)
+	(CAPACITY 50)
+	(FLAGS CONTBIT SEARCHBIT OPENBIT TRYTAKEBIT WATERBIT)
+	(ACTION FISH-TANK-F)>
+
+<GLOBAL DESCRIBED-TANK-AS-LARGE <>>
+
+<GLOBAL DESCRIBED-TANK-AS-SMALL <>>
+
+<ROUTINE FISH-TANK-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <PRSO? ,FISH-TANK>>
+		<COND (,DESCRIBED-TANK-AS-SMALL
+		       <TELL
+"The fish tank is much too large to carry! [Okay, I was exaggerating
+when I called the tank \"itsy-bitsy.\"]" CR>)
+		      (T
+		       <SETG DESCRIBED-TANK-AS-LARGE T>
+		       <TELL
+"This tank is bigger than a lot of swimming pools!" CR>)>)
+	       (<AND <PRSO? ,FOX ,ROOSTER ,FLAMINGO>
+		     <FSET? ,PRSO ,ANIMATEDBIT>>
+		<TELL
+"The " D ,PRSO " raises such a fuss that it becomes impossible." CR>)>>
+
+<OBJECT SPENSEWEED
+	(OWNER SPENSEWEED)
+	(LOC FISH-TANK)
+	(DESC "clump of spenseweed")
+	(SYNONYM CLUMP SPENSEWEED WEED)
+	(ADJECTIVE SPENSE)
+	(FLAGS TRYTAKEBIT PLANTBIT)
+	(RESEARCH
+"\"A deep-rooting underwater plant. Once established, it can usually only be
+removed by using certain spells of wilting. The misconception that spenseweed
+is a common roadside weed has been perpetuated by grossly inaccurate entries
+in the last several editions of THE LORE AND LEGENDS OF QUENDOR.\"")
+	(ACTION SPENSEWEED-F)>
+
+<ROUTINE SPENSEWEED-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<AND <IN? ,PROTAGONIST ,DB>
+		     <TOUCHING? ,SPENSEWEED>>
+		<CANT-REACH ,SPENSEWEED>)
+	       (<AND <VERB? TAKE DIG>
+		     <PRSO? ,SPENSEWEED>>
+		<TELL ,DEEPLY-ROOTED>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"It's difficult to interpret the gurgly voice of the spenseweed, but it seems
+to be fretting about the possibility of plant-eating fish being introduced into
+the aquarium." CR>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT LOBSTER
+	(LOC FISH-TANK)
+	(DESC "lobster")
+	(SYNONYM LOBSTER NUTCRACKER CRACKER)
+	(ADJECTIVE NUT)
+	(FLAGS TRYTAKEBIT TAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "nutcracker")
+	(WAND-TEXT
+"The lobster stops moving. Frozen as it is, with pincers outstretched, it looks
+like nothing less than a large nutcracker. In fact, it IS a nutcracker!")
+	(ANIMATE-ROUTINE I-W-LOBSTER)
+	(ACTION LOBSTER-F)>
+
+<ROUTINE LOBSTER-F ()
+	 <COND (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,LOBSTER ,W?LOBSTER>>
+		<PRINT "\"A common aquarium pet.\"">
+		<CRLF>)
+	       (<AND <VERB? TAKE>
+		     <FSET? ,LOBSTER ,ANIMATEDBIT>>
+		<COND (,TIME-STOPPED
+		       <QUEUE I-LOBSTER-PINCH -1>
+		       <RFALSE>)
+		      (<FSET? ,GLOVE ,WORNBIT>
+		       <QUEUE I-LOBSTER-PINCH 2>
+		       <MOVE ,LOBSTER ,PROTAGONIST>
+		       <TELL
+"Your gloved hand moves with blazing speed, lifting the lobster and
+avoiding its snapping pincers." CR>)
+		      (T
+		       <TELL
+"The lobster snaps its pincers at you. You snatch your hand away
+just in time." CR>)>)
+	       (<AND <VERB? KILL MUNG>
+		     <PRSI? ,CANNONBALL ,HAMMER>>
+		<TELL
+"You pulverize the lobster into invisible jelly. Heartless; but then again,
+I understand there are a large group of people who release boiling these
+creatures alive." CR>)
+	       (<AND <VERB? EAT>
+		     <FSET? ,LOBSTER ,ANIMATEDBIT>>
+		<TELL
+"1) It's not cooked. 2) It would probably bite your nose off if you tried. 3)
+You don't have any tableware. 4) You don't have any melted butter. 5) It isn't
+kosher." CR>)>>
+
+<ROUTINE I-W-LOBSTER ()
+	 <COND (,TIME-STOPPED
+		<QUEUE I-W-LOBSTER 3>
+		<RFALSE>)>
+	 <FSET ,LOBSTER ,ANIMATEDBIT>
+	 <COND (<IN? ,LOBSTER ,LAKE-BOTTOM>
+		<REMOVE ,LOBSTER>)
+	       (<AND <IN? ,LOBSTER ,PROTAGONIST>
+		     <NOT <IN? ,LOBSTER ,WALDO>>>
+		<RETURN-FROM-MAP>
+		<TELL
+"   Youch! The nutcracker just pinched you! As you drop it, you realize that it
+has turned back into a lobster.">
+		<COND (<EQUAL? ,HERE ,HANGING-FROM-ROOTS ,UNDER-THE-WORLD>
+		       <REMOVE ,LOBSTER>
+		       <TELL " The poor creature plunges into the void.">)
+		      (T
+		       <MOVE ,LOBSTER ,HERE>)>
+		<CRLF>)
+	       (<VISIBLE? ,LOBSTER>
+		<RETURN-FROM-MAP>
+		<TELL
+"   You notice the nutcracker waving its pincers. It seems that the
+nutcracker is once again a lobster." CR>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE I-LOBSTER-PINCH ()
+	 <COND (,TIME-STOPPED
+		<RFALSE>)
+	       (<NOT <FSET? ,LOBSTER ,ANIMATEDBIT>>
+		<RFALSE>)>
+	 <DEQUEUE I-LOBSTER-PINCH>
+	 <COND (<AND <ULTIMATELY-IN? ,LOBSTER>
+		     <NOT <IN? ,LOBSTER ,WALDO>>>
+		<RETURN-FROM-MAP>
+		<TELL
+"   Youch! The lobster gives you a painful nip, and you drop it
+like a hot potato.">
+		<COND (<EQUAL? ,HERE ,HANGING-FROM-ROOTS ,UNDER-THE-WORLD>
+		       <REMOVE ,LOBSTER>
+		       <TELL " The poor creature plunges into the void.">)
+		      (T
+		       <MOVE ,LOBSTER ,HERE>)>
+		<CRLF>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT STARFISH
+	(LOC FISH-TANK)
+	(DESC "starfish")
+	(PLURAL "starfish")
+	(SYNONYM STARFISH FISH STAR)
+	(ADJECTIVE STAR)
+	(FLAGS TAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "star")
+	(WAND-TEXT
+"The starfish, as still as it was before, becomes even more still.")
+	(ANIMATE-ROUTINE I-W-STARFISH)
+	(ACTION STARFISH-F)>
+
+<ROUTINE STARFISH-F ()
+	 <COND (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,STARFISH ,W?STARFISH>>
+		<PRINT "\"A common aquarium pet.\"">
+		<CRLF>)>>
+
+<ROUTINE I-W-STARFISH ()
+	 <COND (,TIME-STOPPED
+		<QUEUE I-W-STARFISH 3>
+		<RFALSE>)>
+	 <FSET ,STARFISH ,ANIMATEDBIT>
+	 <COND (<IN? ,STARFISH ,LAKE-BOTTOM>
+		<REMOVE ,STARFISH>)
+	       (<VISIBLE? ,STARFISH>
+		<RETURN-FROM-MAP>
+		<TELL
+"   With the tiniest wiggle, the star gives evidence that it is once again
+a starfish." CR>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM TORCH-ROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Torch Room")
+      (LDESC
+"This is a small room for the storage of torches. The torches kept here
+are generally short-lived, for the purpose of brief forays into the
+darker regions of the castle. To the east is the lone exit.")
+      (EAST TO PARLOR)
+      (OUT TO PARLOR)
+      (FLAGS RLANDBIT ONBIT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>)
+      (ICON TORCH-ROOM-ICON)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT BICKERING-TORCH
+	(LOC TORCH-ROOM)
+	(DESC "bickering torch")
+	(PLURAL "torches")
+	(SYNONYM TORCH TORCHES)
+	(ADJECTIVE BICKERING)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(ACTION BICKERING-TORCH-F)>
+
+<ROUTINE BICKERING-TORCH-F ()
+	 <COND (<VERB? TAKE>
+		<QUEUE I-BICKERING-TORCH -1>
+		<RFALSE>)
+	       (<VERB? EXAMINE ON BURN>
+		<BURNED-OUT ,BICKERING-TORCH>)>>
+
+<ROUTINE BURNED-OUT (OBJ)
+	 <TELL "The " D .OBJ " has burned out and cannot be rekindled." CR>>
+
+<ROUTINE I-BICKERING-TORCH ()
+	 <COND (,TIME-STOPPED
+		<RFALSE>)
+	       (<NOT <ULTIMATELY-IN? ,BICKERING-TORCH>>
+		<DEQUEUE I-BICKERING-TORCH>
+		<RFALSE>)
+	       (<AND <PROB 30>
+		     <NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>>
+		<TELL
+"   The bickering torch says, \"" <PICK-ONE ,BITCHES> "\"" CR>)
+	       (T
+		<RFALSE>)>>
+
+<CONSTANT BITCHES
+	<LTABLE
+	 0
+	 "All the other torches were picking on me."
+	 "Everyone likes the flickering torch better than me."
+	 "I saw the guttering torch wasting oil!"
+	 "How come I didn't get made out of top-quality wood like
+the other torches?"
+	 "The muttering torch was talking about burning down the castle.">>
+
+<OBJECT FLICKERING-TORCH
+	(LOC TORCH-ROOM)
+	(SDESC "flickering torch")
+	(PLURAL "torches")
+	(SYNONYM TORCH TORCHES)
+	(ADJECTIVE FLICKERING)
+	(FLAGS TAKEBIT TRYTAKEBIT FLAMEBIT ONBIT)
+	(ACTION FLICKERING-TORCH-F)>
+
+<ROUTINE FLICKERING-TORCH-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,FLICKERING-TORCH ,ONBIT>
+		     <EQUAL? ,FLICKERING-TORCH-COUNT 0>>
+		<SETG FLICKERING-TORCH-COUNT <+ <RANDOM 3> 9>>
+		<QUEUE I-FLICKERING-TORCH -1>
+		<RFALSE>)
+	       (<AND <VERB? OFF>
+		     <FSET? ,FLICKERING-TORCH ,ONBIT>>
+		<FCLEAR ,FLICKERING-TORCH ,ONBIT>
+		<FCLEAR ,FLICKERING-TORCH ,FLAMEBIT>
+		<DEQUEUE I-FLICKERING-TORCH>
+		<TELL "\"Pffft.\"" CR>
+		<NOW-DARK?>)
+	       (<AND <VERB? EXAMINE ON OFF BURN>
+		     <NOT <FSET? ,FLICKERING-TORCH ,ONBIT>>>
+		<BURNED-OUT ,FLICKERING-TORCH>)>>
+
+<GLOBAL FLICKERING-TORCH-COUNT 0>
+
+<ROUTINE I-FLICKERING-TORCH ()
+	 <SETG FLICKERING-TORCH-COUNT <- ,FLICKERING-TORCH-COUNT 1>>
+	 <COND (<NOT <FSET? ,FLICKERING-TORCH ,ONBIT>> ;"e.g. dunked in water"
+		<PUTP ,FLICKERING-TORCH ,P?SDESC "formerly flickering torch">
+		<DEQUEUE I-FLICKERING-TORCH>
+		<RFALSE>)
+	       (<EQUAL? ,FLICKERING-TORCH-COUNT 0>
+		<PUTP ,FLICKERING-TORCH ,P?SDESC "formerly flickering torch">
+		<FCLEAR ,FLICKERING-TORCH ,ONBIT>
+		<FCLEAR ,FLICKERING-TORCH ,FLAMEBIT>
+		<DEQUEUE I-FLICKERING-TORCH>)>
+	 <COND (<NOT <VISIBLE? ,FLICKERING-TORCH>>
+		<RFALSE>)
+	       (<NOT <FSET? ,FLICKERING-TORCH ,ONBIT>>
+		<RETURN-FROM-MAP>
+		<IN-THE-SKY "flick">)
+	       (<PROB 40>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The flame of the flickering torch dances wildly on the
+brink of extinction." CR>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE IN-THE-SKY (STRING)
+	 <TELL
+"   The " .STRING "ering torch gives its last " .STRING "er before going to
+that great Torch Room in the sky." CR>
+	 <NOW-DARK?>>
+
+<OBJECT MUTTERING-TORCH
+	(LOC TORCH-ROOM)
+	(DESC "muttering torch")
+	(PLURAL "torches")
+	(SYNONYM TORCH TORCHES)
+	(ADJECTIVE MUTTERING)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(ACTION MUTTERING-TORCH-F)>
+
+<ROUTINE MUTTERING-TORCH-F ()
+	 <COND (<VERB? TAKE>
+		<QUEUE I-MUTTERING-TORCH -1>
+		<RFALSE>)		
+	       (<VERB? EXAMINE ON BURN>
+		<BURNED-OUT ,MUTTERING-TORCH>)>>
+
+<ROUTINE I-MUTTERING-TORCH ()
+	 <COND (,TIME-STOPPED
+		<RFALSE>)
+	       (<NOT <ULTIMATELY-IN? ,MUTTERING-TORCH>>
+		<DEQUEUE I-MUTTERING-TORCH>
+		<RFALSE>)
+	       (<AND <PROB 30>
+		     <NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>>
+		<TELL
+"   The muttering torch mutters something about "
+<PICK-ONE ,MUTTERS> ,PERIOD-CR>)
+	       (T
+		<RFALSE>)>>
+
+<CONSTANT MUTTERS
+	<LTABLE
+	 0
+	 "human palm odors"
+	 "the unfairness of existence as a torch"
+	 "being held too tightly"
+	 "the callous discarding of burned-out torches"
+	 "the uncomfortableness of most sconces">>
+
+<OBJECT GUTTERING-TORCH
+	(LOC TORCH-ROOM)
+	(SDESC "guttering torch")
+	(PLURAL "torches")
+	(SYNONYM TORCH TORCHES)
+	(ADJECTIVE GUTTERING)
+	(FLAGS TAKEBIT TRYTAKEBIT ONBIT FLAMEBIT)
+	(ACTION GUTTERING-TORCH-F)>
+
+<ROUTINE GUTTERING-TORCH-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,GUTTERING-TORCH ,ONBIT>
+		     <EQUAL? ,GUTTERING-TORCH-COUNT 0>>
+		<SETG GUTTERING-TORCH-COUNT <+ <RANDOM 3> 9>>
+		<QUEUE I-GUTTERING-TORCH -1>
+		<RFALSE>)
+	       (<AND <VERB? OFF>
+		     <FSET? ,GUTTERING-TORCH ,ONBIT>>
+		<FCLEAR ,GUTTERING-TORCH ,ONBIT>
+		<FCLEAR ,GUTTERING-TORCH ,FLAMEBIT>
+		<DEQUEUE I-GUTTERING-TORCH>
+		<TELL "\"Pffft.\"" CR>
+		<NOW-DARK?>)
+	       (<AND <VERB? EXAMINE ON OFF BURN>
+		     <NOT <FSET? ,GUTTERING-TORCH ,ONBIT>>>
+		<BURNED-OUT ,GUTTERING-TORCH>)>>
+
+<GLOBAL GUTTERING-TORCH-COUNT 0>
+
+<ROUTINE I-GUTTERING-TORCH ()
+	 <SETG GUTTERING-TORCH-COUNT <- ,GUTTERING-TORCH-COUNT 1>>
+	 <COND (<NOT <FSET? ,GUTTERING-TORCH ,ONBIT>> ;"e.g. dunked in water"
+		<PUTP ,GUTTERING-TORCH ,P?SDESC "formerly guttering torch">
+		<DEQUEUE I-GUTTERING-TORCH>
+		<RFALSE>)
+	       (<EQUAL? ,GUTTERING-TORCH-COUNT 0>
+		<PUTP ,GUTTERING-TORCH ,P?SDESC "formerly guttering torch">
+		<FCLEAR ,GUTTERING-TORCH ,ONBIT>
+		<FCLEAR ,GUTTERING-TORCH ,FLAMEBIT>
+		<DEQUEUE I-GUTTERING-TORCH>)>
+	 <COND (<NOT <VISIBLE? ,GUTTERING-TORCH>>
+		<RFALSE>)
+	       (<NOT <FSET? ,GUTTERING-TORCH ,ONBIT>>
+		<RETURN-FROM-MAP>
+		<IN-THE-SKY "gutt">)
+	       (<PROB 40>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The guttering torch sputters on the verge of burning out, but
+then decides to keep burning for at least another minute." CR>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM FORMAL-GARDEN
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Formal Garden")
+      (LDESC
+"Dimwit designed this garden to match a fairy tale he enjoyed as a child,
+and subsequent kings added their own touches, creating a hugely confusing
+maze of flowers and shrubbery and statuary and trees and fountains and pools
+and bridges and gazebos. Now somewhat overgrown, the garden is seemingly
+endless, but you recall that the primary exits lie to the north, east, and
+southwest.")
+      (NORTH TO PARLOR)
+      (EAST TO GREAT-HALL)
+      (SW TO WEST-HALL)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM GARDEN)
+      (ADJECTIVE FORMAL)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+      (ICON FORMAL-GARDEN-ICON)
+      (THINGS <> FLOWER GARDEN-FLOWER-PS)>
+
+<ROUTINE GARDEN-FLOWER-PS ()
+	 <COND (<VERB? PICK>
+		<TELL "Ouch! Thorns!" CR>)
+	       (<VERB? EXAMINE>
+		<TELL "Breathtakingly beautiful." CR>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<PERFORM-PRSA ,FLORA>)>>
+
+<OBJECT FLORA
+	(LOC FORMAL-GARDEN)
+	(DESC "flora")
+	(SYNONYM SHRUB SHRUBS SHRUBBERY TREE FLORA PLANT PLANTS)
+	(FLAGS PLANTBIT NDESCBIT NARTICLEBIT PLURALBIT)
+	(ACTION FLORA-F)>
+
+<ROUTINE FLORA-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<VERB? EXAMINE>
+		<TELL "Breathtakingly beautiful." CR>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"The many shrub and trees and flowers create a cacophony of plant-talk
+that makes it impossible to understand any of it!" CR>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT FLAMINGO
+	(LOC FORMAL-GARDEN)
+	(DESC "flamingo")
+	(FDESC
+"You spot a flash of pink amongst the flora. It's a flamingo!")
+	(SYNONYM FLAMINGO BIRD ORNAMENT)
+	(ADJECTIVE LAWN)
+	(FLAGS TRYTAKEBIT TAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "lawn ornament")
+	(WAND-TEXT "The flamingo becomes motionless.")
+	(ANIMATE-ROUTINE I-W-FLAMINGO)
+	(SIZE 10)
+	(ACTION FLAMINGO-F)>
+
+<ROUTINE FLAMINGO-F ("OPT" (ARG <>))
+	 <COND (<NOT <FSET? ,FLAMINGO ,ANIMATEDBIT>>
+		<RFALSE>)
+	       (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,FLAMINGO ,W?FLAMINGO>>
+		<TELL "\"A common garden animal.\"" CR>)
+	       (<AND <VERB? FEED>
+		     <ULTIMATELY-IN? ,BAR-OF-FOOD>>
+		<PERFORM ,V?GIVE ,BAR-OF-FOOD ,FLAMINGO>
+		<RTRUE>)
+	       (<AND <VERB? SHOW>
+		     <PRSO? ,BAR-OF-FOOD>>
+		<TELL
+"The flamingo feigns disinterest, but vast volumes of drool betray its
+true feelings." CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,BAR-OF-FOOD>>
+		<REMOVE ,BAR-OF-FOOD>
+		<TELL
+"The flamingo greedily snatches" T ,BAR-OF-FOOD " in its beak and
+gulps it down." CR>)
+	       (,TIME-STOPPED
+		<RFALSE>)
+	       (<VERB? TAKE CATCH>
+		<TELL
+"The flamingo prances away, leaving you clutching at air." CR>)
+	       (<VERB? TOUCH>
+		<TELL "The bird nearly nips off a finger." CR>)>>
+
+<ROUTINE I-W-FLAMINGO ("AUX" (L <LOC ,FLAMINGO>))
+	 <COND (,TIME-STOPPED
+		<QUEUE I-W-FLAMINGO 3>
+		<RFALSE>)>
+	 <FSET ,FLAMINGO ,ANIMATEDBIT>
+	 <COND (<IN? ,FLAMINGO ,LAKE-BOTTOM>
+		<REMOVE ,FLAMINGO>)
+	       (<EQUAL? <META-LOC ,FLAMINGO> ,HERE>
+		<RETURN-FROM-MAP>
+		<TELL
+"   Based on its angry squawks, the lawn ornament has returned to
+its former state">
+		<COND (<IN? ,FLAMINGO ,FISH-TANK>
+		       <TELL
+". The flamingo sprays you with water as it leaps out of the fish tank">)
+		      (<AND <NOT <EQUAL? .L ,PROTAGONIST ,HERE>>
+			    <NOT <FSET? .L ,DROPBIT>>>
+		       <MOVE ,FLAMINGO ,HERE>
+		       <FSET .L ,OPENBIT>
+		       <TELL " and popped out of" T .L>)
+		      (<AND <ULTIMATELY-IN? ,FLAMINGO>
+			    <NOT <IN? ,FLAMINGO ,WALDO>>>
+		       <TELL
+". The flamingo gives you a vicious peck and hops to the ground">)>
+		<COND (<AND <ULTIMATELY-IN? ,FLAMINGO>
+			    <FSET? <LOC ,PROTAGONIST> ,DROPBIT>>
+		       <MOVE ,FLAMINGO <LOC ,PROTAGONIST>>)
+		      (<NOT <FSET? <LOC ,FLAMINGO> ,DROPBIT>>
+		       <MOVE ,FLAMINGO ,HERE>)>
+		<TELL ,PERIOD-CR>)
+	       (T
+		<COND (<AND <ULTIMATELY-IN? ,FLAMINGO>
+			    <FSET? <LOC ,PROTAGONIST> ,DROPBIT>>
+		       <MOVE ,FLAMINGO <LOC ,PROTAGONIST>>)
+		      (<NOT <FSET? <LOC ,FLAMINGO> ,DROPBIT>>
+		       <MOVE ,FLAMINGO <META-LOC ,FLAMINGO>>)>
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE> 
+
+<ROOM COURTYARD
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Courtyard")
+      (NORTH TO BANQUET-HALL)
+      (WEST TO GREAT-HALL)
+      (SE TO EAST-HALL)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM COURTYARD)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>)
+      (ACTION COURTYARD-F)>
+
+<ROUTINE COURTYARD-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This open area is paved with marble and surrounded by imposing stone walls. ">
+		<COND (<RUNNING? ,I-PROLOGUE>
+		       <TELL
+"Servants are cleaning up after a tremendous carnival">)
+		      (T
+		       <TELL
+"Dimwit would occasionally order carnivals to be set up in this court,
+on totally cloudless days">)>
+		<TELL
+". At the distant edges of the courtyard, you can see exits to the north,
+west, and southeast.">)>>
+
+<ROOM BALCONY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Balcony")
+      (LDESC
+"This wide balcony, itself larger than most castles, overlooks the Great
+Hall. Banners and pennants are draped from the railing into the hall below,
+which can be reached via the wide stair. A passage leads off to the south.")
+      (DOWN TO GREAT-HALL)
+      (SOUTH TO GALLERY)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM BALCONY)
+      (GLOBAL STAIRS BANNER)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>)
+      (ICON BALCONY-ICON)>
+
+<OBJECT BANNER
+	 (LOC LOCAL-GLOBALS)
+	 (DESC "banner")
+	 (SYNONYM BANNER BANNERS PENNANT PENNANTS)
+	 (ADJECTIVE COLORFUL)
+	 (ACTION BANNER-F)>
+
+<ROUTINE BANNER-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL
+"These colorful banners display various royal crests and insignias." CR>)
+	       (<VERB? CLIMB-DOWN>
+		<TELL
+"Okay, but for future reference, the stairs are easier" ,ELLIPSIS>
+		<GOTO ,GREAT-HALL>)>>
+
+<ROOM GALLERY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Gallery")
+      (LDESC
+"Twelve large paintings cover the walls of this long, tall room. The main
+exit is north, but there's also a small opening to the south.")
+      (NORTH TO BALCONY)
+      (SOUTH TO CLOSET)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM GALLERY)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>)
+      (ICON GALLERY-ICON)>
+
+<OBJECT REBUS
+	(LOC GALLERY)
+	(DESC "rebus")
+	(DESCFCN REBUS-F)
+	(SYNONYM REBUS)
+	(ADJECTIVE LARGE FRAMED)
+	(FLAGS READBIT SEARCHBIT CONTBIT SURFACEBIT OPENBIT)
+	(OWNER WALL)
+	(RESEARCH
+"\"A rebus is an illustration whose component pictures spell out a word
+or words, usually through the addition and subtraction of sounds or letters.
+The most famous creator of rebuses was Frobesius Fublius.\"")
+	(ACTION REBUS-F)>
+
+<ROUTINE REBUS-F ("OPTIONAL" (OARG <>) "AUX" CNT)
+	 <SET CNT <CCOUNT ,REBUS>>
+	 <COND (.OARG
+		<COND (<EQUAL? .OARG ,M-OBJDESC?>
+		       <RTRUE>)>
+		<TELL
+"   A large framed rebus occupies a central position at the far end of
+the gallery. It appears to have been recently hung.">
+		<COND (<G? .CNT 0>
+		       <TELL " The rebus is ">
+		       <COND (<G? .CNT 3>
+			      <TELL "mostly">)
+			     (T
+			      <TELL "partially">)>
+		       <TELL " obscured by a">
+		       <COND (<EQUAL? .CNT 1>
+			      <TELL
+"n animal -- or a representation of an animal">)
+			     (T
+			      <TELL
+" number of animals -- or representations of animals">)>
+		       <TELL " -- which appear">
+		       <COND (<EQUAL? .CNT 1>
+			      <TELL "s">)>
+		       <TELL " to be magically layered onto its surface:">
+		       <FCLEAR ,REBUS-CAMEL ,NDESCBIT>
+		       <FCLEAR ,REBUS-MOUSE ,NDESCBIT>
+		       <FCLEAR ,REBUS-GOOSE ,NDESCBIT>
+		       <FCLEAR ,REBUS-SNAKE ,NDESCBIT>
+		       <FCLEAR ,REBUS-FISH ,NDESCBIT>
+		       <FCLEAR ,REBUS-SLIME-MONSTER ,NDESCBIT>
+		       <D-CONTENTS ,REBUS 2>
+		       <FSET ,REBUS-CAMEL ,NDESCBIT>
+		       <FSET ,REBUS-MOUSE ,NDESCBIT>
+		       <FSET ,REBUS-GOOSE ,NDESCBIT>
+		       <FSET ,REBUS-SNAKE ,NDESCBIT>
+		       <FSET ,REBUS-FISH ,NDESCBIT>
+		       <FSET ,REBUS-SLIME-MONSTER ,NDESCBIT>)>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<TELL ,HUH>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,REBUS>>
+		<TELL ,HUH>)
+	       (<VERB? READ EXAMINE>
+		<CLEAR -1>
+		<SCREEN ,S-FULL>
+		<DISPLAY <COND (<IN? ,REBUS-MOUSE ,REBUS> ,REBUS-6)
+			       (<IN? ,REBUS-GOOSE ,REBUS> ,REBUS-5)
+			       (<IN? ,REBUS-SLIME-MONSTER ,REBUS> ,REBUS-4)
+			       (<IN? ,REBUS-CAMEL ,REBUS> ,REBUS-3)
+			       (<IN? ,REBUS-SNAKE ,REBUS> ,REBUS-2)
+			       (<IN? ,REBUS-FISH ,REBUS> ,REBUS-1)
+			       (T ,REBUS-0)> 1 1>
+		<COND (,DEMO-VERSION?
+		       <INPUT-DEMO 1>)
+		      (T
+		       <INPUT 1>)>
+		<MOUSE-INPUT?>
+		<V-$REFRESH>
+		<RTRUE>)>>
+
+<OBJECT REBUS-CAMEL
+	(LOC REBUS)
+	(DESC "flattened camel")
+	(SYNONYM CAMEL ANIMAL REPRESENTATION)
+	(ADJECTIVE FLATTENED LAYERED)
+	(FLAGS NDESCBIT)
+	(OWNER REBUS)
+	(GENERIC G-CAMEL-F)
+	(ACTION REBUS-ANIMAL-F)>
+
+<OBJECT REBUS-MOUSE
+	(LOC REBUS)
+	(DESC "flattened mouse")
+	(SYNONYM MOUSE ANIMAL REPRESENTATION)
+	(ADJECTIVE FLATTENED LAYERED)
+	(FLAGS NDESCBIT)
+	(OWNER REBUS)
+	(ACTION REBUS-ANIMAL-F)>
+
+<OBJECT REBUS-SNAKE
+	(LOC REBUS)
+	(DESC "flattened snake")
+	(SYNONYM SNAKE ANIMAL REPRESENTATION)
+	(ADJECTIVE FLATTENED LAYERED)
+	(FLAGS NDESCBIT)
+	(OWNER REBUS)
+	(ACTION REBUS-ANIMAL-F)>
+
+<OBJECT REBUS-GOOSE
+	(LOC REBUS)
+	(DESC "flattened goose")
+	(SYNONYM GOOSE ANIMAL REPRESENTATION)
+	(ADJECTIVE FLATTENED LAYERED)
+	(FLAGS NDESCBIT)
+	(OWNER REBUS)
+	(ACTION REBUS-ANIMAL-F)>
+
+<OBJECT REBUS-FISH
+	(LOC REBUS)
+	(DESC "flattened fish")
+	(SYNONYM FISH ANIMAL REPRESENTATION)
+	(ADJECTIVE FLATTENED LAYERED)
+	(FLAGS NDESCBIT)
+	(OWNER REBUS)
+	(ACTION REBUS-ANIMAL-F)>
+
+<OBJECT REBUS-SLIME-MONSTER
+	(LOC REBUS)
+	(DESC "flattened slime monster")
+	(SYNONYM MONSTER ANIMAL REPRESENTATION)
+	(ADJECTIVE SLIME FLATTENED LAYERED)
+	(FLAGS NDESCBIT)
+	(OWNER REBUS)
+	(ACTION REBUS-ANIMAL-F)>
+
+<ROUTINE REBUS-ANIMAL-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The " 'PRSO " seems to be magically flattened upon the rebus surface." CR>)
+	       (<VERB? TAKE MOVE>
+		<TELL ,WONT-BUDGE>)
+	       (<VERB? TOUCH>
+		<TELL "The " 'PRSO " feels cold to the touch." CR>)>>
+
+<OBJECT PAINTINGS
+	(LOC GALLERY)
+	(DESC "twelve paintings")
+	(SYNONYM PAINTINGS PORTRAITS)
+	(ADJECTIVE TWELVE FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH
+	 	   NINTH TENTH ELEVENTH TWELVTH)
+	(FLAGS NDESCBIT NARTICLEBIT TRYTAKEBIT)
+	(GENERIC G-PAINTING-F)
+	(OWNER WALL)
+	(ACTION PAINTINGS-F)>
+
+<ROUTINE PAINTINGS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"These are Leonardo Flathead's famous portraits of the Twelve Flatheads,
+including his own self-portrait, which been have reproduced in many places
+[such as the \"Lives of the Twelve Flatheads Calendar\" which you'll find
+in your Zork Zero package]." CR>)
+	       (<VERB? TAKE MOVE>
+		<TELL
+"The portraits are all securely fastened to the wall." CR>)
+	       (<VERB? COUNT>
+		<TELL "12." CR>)>>
+
+<OBJECT BABE-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Babe Flathead")
+	(SYNONYM PAINTING PORTRAIT BABE FLATHEAD)
+	(ADJECTIVE BABE)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL BABE-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT FRANK-LLOYD-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Frank Lloyd Flathead")
+	(SYNONYM PAINTING PORTRAIT FRANK LLOYD FLATHEAD)
+	(ADJECTIVE FRANK LLOYD)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL FRANK-LLOYD-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT JOHN-PAUL-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of John Paul Flathead")
+	(SYNONYM PAINTING PORTRAIT JOHN PAUL FLATHEAD)
+	(ADJECTIVE JOHN PAUL)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL JOHN-PAUL-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT RALPH-WALDO-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Ralph Waldo Flathead")
+	(SYNONYM PAINTING PORTRAIT RALPH WALDO FLATHEAD)
+	(ADJECTIVE RALPH WALDO)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL RALPH-WALDO-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT LUCREZIA-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Lucrezia Flathead")
+	(SYNONYM PAINTING PORTRAIT LUCREZIA FLATHEAD)
+	(ADJECTIVE LUCREZIA)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL LUCREZIA-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT LEONARDO-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Leonardo Flathead")
+	(SYNONYM PAINTING PORTRAIT SELF-PORTRAIT LEONARDO FLATHEAD)
+	(ADJECTIVE LEONARDO)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL LEONARDO-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT THOMAS-ALVA-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Thomas Alva Flathead")
+	(SYNONYM PAINTING PORTRAIT THOMAS ALVA FLATHEAD)
+	(ADJECTIVE THOMAS ALVA)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL THOMAS-ALVA-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT JOHN-D-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of John D. Flathead")
+	(SYNONYM PAINTING PORTRAIT JOHN DAVISON FLATHEAD DOWN)
+	(ADJECTIVE JOHN DAVISON DOWN ;"for middle initial")
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL JOHN-D-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT JOHANN-SEBASTIAN-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Johann Sebastian Flathead")
+	(SYNONYM PAINTING PORTRAIT JOHANN SEBASTIAN FLATHEAD)
+	(ADJECTIVE JOHANN SEBASTIAN)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL JOHANN-SEBASTIAN-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT STONEWALL-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Stonewall Flathead")
+	(SYNONYM PAINTING PORTRAIT STONEWALL FLATHEAD)
+	(ADJECTIVE STONEWALL)
+	(FLAGS NDESCBIT)
+	(OWNER <TABLE (PURE LENGTH) WALL STONEWALL-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<OBJECT J-PIERPONT-PORTRAIT
+	(LOC GALLERY)
+	(OWNER <TABLE (PURE LENGTH) WALL J-PIERPONT-PORTRAIT>)
+	(DESC "portrait of J. Pierpont Flathead")
+	(SYNONYM PAINTING PORTRAIT J PIERPONT FLATHEAD)
+	(ADJECTIVE J PIERPONT)
+	(FLAGS NDESCBIT)
+	(ACTION PAINTING-F)>
+
+<OBJECT DIMWIT-PORTRAIT
+	(LOC GALLERY)
+	(DESC "portrait of Dimwit Flathead")
+	(SYNONYM PAINTING PORTRAIT DIMWIT FLATHEAD)
+	(ADJECTIVE DIMWIT LORD)
+	(FLAGS NDESCBIT)
+	(GENERIC G-DIMWIT-F)
+	(OWNER <TABLE (PURE LENGTH) WALL DIMWIT-PORTRAIT>)
+	(ACTION PAINTING-F)>
+
+<ROUTINE PAINTING-F ()
+	 <COND (<VERB? EXAMINE TAKE MOVE>
+		<PERFORM-PRSA ,PAINTINGS>)
+	       (<VERB? RESEARCH>
+		<TELL
+"\"One of the Twelve Flatheads. For more information, we recommend Boswell
+Barwell's 'The Lives of the Twelve Flatheads.'\" [Excerpts of which can be
+found in the calendar from your Zork Zero package.]" CR>)>>
+
+<ROOM CLOSET
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Closet")
+      (LDESC
+"You are in some sort of storage closet, which opens to the north. A ladder
+leads upward.")
+      (NORTH TO GALLERY)
+      (UP TO ROOF)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CLOSET)
+      (GLOBAL FIXED-LADDER)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-4>)
+      (THINGS <> SHADOW PHIL-SHADOW-PS)>
+
+<OBJECT CLOSET-REBUS-BUTTON
+	(LOC CLOSET)
+	(SDESC "blinking key-shaped button")
+	(FDESC
+"In the shadow of one of the shelves is a key-shaped button, which is blinking
+rhythmically.")
+	(SYNONYM BUTTON)
+	(ADJECTIVE KEY-SHAPED BLINKING)
+	(ACTION REBUS-BUTTON-F)>
+
+;<BEGIN-SEGMENT 0>
+<BEGIN-SEGMENT ORACLE>
+<BEGIN-SEGMENT LAKE>
+<BEGIN-SEGMENT VILLAGE>
+
+<ROUTINE REBUS-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<OR <FSET? ,PRSO ,TOUCHBIT>
+			   ,TIME-STOPPED>
+		       <TELL ,NOTHING-HAPPENS>)
+		      (T
+		       <FSET ,PRSO ,TOUCHBIT>
+		       <PUTP ,PRSO ,P?SDESC "key-shaped button">
+		       <TELL "The button produces a ">
+		       <COND (<IN? ,REBUS-MOUSE ,REBUS>
+			      <REMOVE ,REBUS-MOUSE>
+			      <TELL "squeak">)
+			     (<IN? ,REBUS-GOOSE ,REBUS>
+			      <REMOVE ,REBUS-GOOSE>
+			      <TELL "honk">)
+			     (<IN? ,REBUS-SLIME-MONSTER ,REBUS>
+			      <REMOVE ,REBUS-SLIME-MONSTER>
+			      <TELL "squish">)
+			     (<IN? ,REBUS-CAMEL ,REBUS>
+			      <REMOVE ,REBUS-CAMEL>
+			      <TELL "bray">)
+			     (<IN? ,REBUS-SNAKE ,REBUS>
+			      <REMOVE ,REBUS-SNAKE>
+			      <TELL "hiss">)
+			     (T
+			      <REMOVE ,REBUS-FISH>
+			      <TELL "splash">)>
+		       <TELL "ing noise and stops blinking." CR>)>)>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<OBJECT BAG
+	(LOC CLOSET)
+	(DESC "bag")
+	(FDESC
+"The shelves are all dusty and bare -- except for one small bag with some
+printing on it.")
+	(SYNONYM BAG PRINTING)
+	(ADJECTIVE SMALL)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT READBIT)
+	(SIZE 2)
+	(TEXT
+"\"Hello, Flamingo Owner! The enclosed food provides a balanced, nutritious
+diet for your flamingo. Our food is specially formulated for the finicky
+flamingo. WARNING: Poisonous to humans. Another fine product of the Frobozz
+Magic Flamingo Food Company.\"")
+	(ACTION BAG-F)>
+
+<ROUTINE BAG-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "There's writing on the outside of the bag. ">
+		<RFALSE> ;"open-closed")>>
+
+<OBJECT BAR-OF-FOOD
+	(LOC BAG)
+	(OWNER BAR-OF-FOOD)
+	(DESC "bar of food")
+	(PLURAL "bars of food")
+	(SYNONYM BAR FOOD)
+	(FLAGS TAKEBIT)
+	(SIZE 3)
+	(ACTION BAR-OF-FOOD-F)>
+
+<ROUTINE BAR-OF-FOOD-F ()
+	 <COND (<VERB? EAT>
+		<COND (<EQUAL? ,TURNED-INTO ,FLAMINGO>
+		       <GOOD-MEAL ,BAR-OF-FOOD>)
+		      (T
+		       <JIGS-UP "Aarrgghh! Poison!">)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM ROOF
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Roof")
+      (LDESC
+"You stand atop the main building of the castle. A tall tower is visible to
+the south, but can't be reached from here. The only exit is down a ladder.")
+      (DOWN TO CLOSET)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL FIXED-LADDER)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-3>)
+      (ICON ROOF-ICON)
+      (THINGS TALL TOWER TOWER-PS)>
+
+<ROUTINE TOWER-PS ()
+	 <COND (<TOUCHING? ,PSEUDO-OBJECT>
+		<CANT-REACH ,PSEUDO-OBJECT>)>>
+
+<ROOM AUDIENCE-CHAMBER
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Audience Chamber")
+      (LDESC
+"This is a tremendous meeting room where thousands of visitors would queue up
+every day for an audience with Dimwit or one of his successors. Such visitors
+were usually wasting their time; Dimwit rarely had the patience to see even
+one person a day. A plush red carpet leads from the main doorway on the north
+wall to the golden throne, fringed with red tassels, which towers above the
+floor. Behind the throne, a smaller doorway leads south.")
+      (NORTH TO GREAT-HALL)
+      (SOUTH TO THRONE-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CHAMBER)
+      (ADJECTIVE AUDIENCE)
+      (GLOBAL CARPET)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5>)>
+
+<OBJECT LARGE-THRONE
+	(LOC AUDIENCE-CHAMBER)
+	(DESC "large golden throne")
+	(SYNONYM THRONE TASSLES)
+	(ADJECTIVE GOLDEN LARGE TOWERING RED)
+	(CAPACITY 50)
+	(FLAGS NDESCBIT VEHBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION THRONE-F)>
+
+<ROOM THRONE-ROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Throne Room")
+      (NORTH TO AUDIENCE-CHAMBER)
+      (SOUTH TO SECRET-PASSAGE IF SECRET-PASSAGE-OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM ROOM)
+      (ADJECTIVE THRONE)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>)
+      (ICON THRONE-ROOM-ICON)
+      (ACTION THRONE-ROOM-F)>
+
+<ROUTINE THRONE-ROOM-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a smaller version of the room to the north, meaning that a person
+can walk all the way across it without stopping to rest. The throne, though
+smaller and more comfortable looking, is just as gaudy. It is in this chamber
+that Dimwit would meet with his \"advisors,\" raising taxes and plotting
+grandiose schemes. A doorway leads north">
+		<COND (,SECRET-PASSAGE-OPEN
+		       <TELL ", and a secret passage is open to the south">)>
+		<TELL ".">)>>
+
+<OBJECT SCEPTRE
+	(LOC THRONE-ROOM)
+	(DESC "sceptre")
+	(FDESC
+"An overdone sceptre, ornamented with colored enamel and tapering to a sharp
+point, is lying by the throne.")
+	(SYNONYM SCEPTRE SCEPTER)
+	(ADJECTIVE SHARP ENAMELED ORNAMENTED OVERDONE)
+	(FLAGS TAKEBIT MAGICBIT)
+	(SIZE 5)
+	(VALUE 12)>
+
+<OBJECT SMALL-THRONE
+	(LOC THRONE-ROOM)
+	(DESC "small throne")
+	(SYNONYM THRONE)
+	(ADJECTIVE GAUDY SMALL COMFORTABLE)
+	(CAPACITY 25)
+	(FLAGS NDESCBIT VEHBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION THRONE-F)>
+
+<ROUTINE THRONE-F ("OPTIONAL" (VARG <>))
+	 <COND (<AND ,DEMO-VERSION?
+		     <EQUAL? .VARG ,M-ENTER>
+		     <EQUAL? ,PRSO ,SMALL-THRONE>>
+		<TELL !\ >
+		<OPEN-SECRET-PASSAGE?>
+		<RFATAL>)
+	       (.VARG
+		<RFALSE>)
+	       (<VERB? CLIMB-UP> ;"for CLIMB UP ON THRONE"
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<VERB? LOOK-BEHIND>
+		<TELL "Behind the throne">
+		<COND (<EQUAL? ,HERE ,AUDIENCE-CHAMBER>
+		       <TELL ", a doorway leads south." CR>)
+		      (,SECRET-PASSAGE-OPEN
+		       <TELL ", a secret passage beckons to the south!" CR>)
+		      (T
+		       <TELL " is nothing but a blank wall." CR>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+;"secret passage and beyond"
+
+<GLOBAL SECRET-PASSAGE-DISCOVERED <>>
+
+<GLOBAL SECRET-PASSAGE-OPEN <>>
+
+<GLOBAL SECRET-PASSAGE-SCORE 18>
+
+<ROOM SECRET-PASSAGE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Secret Passage")
+      (LDESC "You are in a secret passage running north and south.")
+      (NORTH TO THRONE-ROOM IF SECRET-PASSAGE-OPEN ELSE
+       "The passage ends at a blank wall!")
+      (SOUTH TO TEE)
+      (FLAGS RLANDBIT)
+      (ICON SECRET-PASSAGE-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>)
+      (THINGS <> SHADOW PHIL-SHADOW-PS)
+      (ACTION SECRET-PASSAGE-F)>
+
+<ROUTINE SECRET-PASSAGE-F ("OPT" (RARG <>))
+	 <COND (<AND ,DEMO-VERSION? <EQUAL? .RARG ,M-END>>
+		<END-DEMO>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT CANDLE
+	(LOC SECRET-PASSAGE)
+	(DESC "candle")
+	(FDESC
+"Although no one has entered this secret passage in years, a lit candle is
+mounted here, its flame casting dancing shadows across the uneven walls.")
+	(SYNONYM CANDLE)
+	(FLAGS LIGHTBIT FLAMEBIT ONBIT TAKEBIT)
+	(ACTION CANDLE-F)>
+
+<ROUTINE CANDLE-F ("AUX" FLAME)
+	 <COND (<VERB? EXAMINE>
+		<COND (<FSET? ,CANDLE ,ONBIT>
+		       <TELL "The flame burns tall and bright." CR>)
+		      (T
+		       <TELL "The candle has been snuffed." CR>)>)
+	       (<AND <VERB? ON>
+		     <NOT <FSET? ,CANDLE ,FLAMEBIT>>>
+		<COND (<SET FLAME <FIND-IN ,HERE ,FLAMEBIT "with">>
+		       <FSET ,CANDLE ,FLAMEBIT>
+		       <FSET ,CANDLE ,ONBIT>
+		       <TELL "You re-light the candle." CR>)
+		      (T
+		       <TELL "You have no flame to light the candle." CR>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+<ROOM TEE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Tee")
+      (LDESC
+"A secret passage from the north ends here at this east-west corridor.")
+      (NORTH TO SECRET-PASSAGE)
+      (EAST TO TOP-OF-STAIR)
+      (WEST TO FOREBLDG)
+      (FLAGS RLANDBIT)
+      (ICON TEE-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)>
+
+<ROOM FOREBLDG
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Forebuilding")
+      (LDESC
+"The secret passage from the east ends here. An easily defensible hallway
+rises into the keep, to the southwest.")
+      (EAST TO TEE)
+      (SW TO DONJON)
+      (UP TO DONJON)
+      (FLAGS RLANDBIT)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)>
+
+<ROOM DONJON
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Donjon")
+      (LDESC
+"You are in the lowest level of the castle's keep. A stone stair winds
+up into the keep, and a sloping passage leads northeast.")
+      (NE TO FOREBLDG)
+      (DOWN TO FOREBLDG)
+      (UP TO SOLAR)
+      (FLAGS RLANDBIT)
+      (GLOBAL STAIRS)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>)>
+
+<ROOM SOLAR
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Solar")
+      (LDESC
+"This is the king's solar, where he would bathe and dress and meet his
+most trusted advisors and intimate guests. Dim light enters through narrow,
+slitted windows. The solar has obviously lain unused for many decades. The
+circular stair continues up and down, and a doorway leads west.")
+      (UP TO BASTION)
+      (DOWN TO DONJON)
+      (WEST TO DIMWITS-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM SOLAR)
+      (GLOBAL STAIRS WINDOW) 
+      (RIDDLE
+"You can find me at the beginning of youth, in the center of every eye,
+and at the end of eternity. What am I?\"")
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5>)
+      (ACTION SOLAR-F)>
+
+<ROUTINE SOLAR-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,EAST-KEY ,JESTER>
+		     <IN? ,JESTER ,HERE>>
+		<SETUP-ORPHAN "answer">)>>
+
+<OBJECT LETTER-Y
+	(LOC GLOBAL-OBJECTS)
+	(DESC "the letter y")
+	(SYNONYM Y)
+	(ADJECTIVE LETTER)
+	(FLAGS NARTICLEBIT)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT EAST-KEY
+	(LOC SOLAR)
+	(DESC "iron key")
+	(FDESC
+"Sitting on a cushioned window seat, illuminated by a shaft of sunlight, rests
+an ancient iron key.")
+	(SYNONYM KEY)
+	(ADJECTIVE ANCIENT IRON)
+	(FLAGS KEYBIT TAKEBIT TRYTAKEBIT VOWELBIT)
+	(SIZE 2)
+	(ACTION EAST-KEY-F)>
+
+<ROUTINE EAST-KEY-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,EAST-KEY ,TRYTAKEBIT>>
+		<COND (<IN? ,EAST-KEY ,JESTER>
+		       <TELL ,ANSWER-MY-RIDDLE>)
+		      (T
+		       <TELL "You begin reaching for the key..." CR>
+		       <SETG DO-J T>
+		       <I-JESTER>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+<ROOM DIMWITS-ROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Dimwit's Room")
+      (LDESC
+"You stare around in awe as you realize that you are within the private
+bedroom of Lord Dimwit Flathead. The canopied bed alone is larger than most
+of the farms in your home province. Light seeps in through slitted windows,
+and doorways lead east and south.")
+      (EAST TO SOLAR)
+      (SOUTH TO CLOTHES-CLOSET)
+      (FLAGS RLANDBIT)
+      (SYNONYM ROOM)
+      (OWNER DIMWIT)
+      (GLOBAL WINDOW)
+      (ICON DIMWITS-ROOM-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>)>
+
+<OBJECT DIMWITS-BED
+	(LOC DIMWITS-ROOM)
+	(DESC "Dimwit's bed")
+	(SYNONYM BED)
+	(ADJECTIVE LARGE CANOPIED)
+	(OWNER DIMWIT)
+	(CAPACITY 250)
+	(FLAGS NARTICLEBIT SEARCHBIT VEHBIT DROPBIT NDESCBIT CONTBIT
+	       OPENBIT SURFACEBIT)>
+
+<ROOM CLOTHES-CLOSET
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Magic Clothes Closet")
+      (LDESC
+"This is a small closet. Well, it's small by the standards of this castle;
+in a pinch, it could probably sleep a few regiments. The only exit is north.")
+      (NORTH TO DIMWITS-ROOM)
+      (FLAGS RLANDBIT)
+      (SYNONYM CLOSET)
+      (ADJECTIVE MAGIC CLOTHES)
+      (ICON MAGIC-CLOSET-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT CLOAK
+	(LOC CLOTHES-CLOSET)
+	(DESC "cloak")
+	(SYNONYM CLOAK LABEL WRITING)
+	(ADJECTIVE MAGIC)
+	(FLAGS WEARBIT TAKEBIT)
+	(OWNER CLOAK) ;"read writing on cloak"
+	(ACTION CLOAK-F)>
+
+<GLOBAL CLOAK-LOC <>> ;"set to CLOTHES-CLOSET in GO as a default"
+
+<ROUTINE CLOAK-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<NOUN-USED? ,CLOAK ,W?CLOAK>
+		       <TELL
+"The colors of the cloak seem to shimmer like a Mithican chameleon. There's
+a small label with writing on it." CR>)
+		      (T
+		       <PERFORM ,V?READ ,CLOAK>
+		       <RTRUE>)>)
+	       (<VERB? READ>
+		<TELL "\"Frobozz Magic Cloak Company.\"" CR>)
+	       (<AND <EQUAL? ,HERE ,OUBLIETTE>
+		     <VERB? WEAR TAKE-OFF>>
+		<TELL "There's not enough elbow room here." CR>)
+	       (<AND <VERB? WEAR>
+		     <NOT <EQUAL? ,HERE ,PLAIN>>
+		     <NOT <FSET? ,CLOAK ,WORNBIT>>
+		     <NOT <FSET? ,OUTER-GATE ,OPENBIT>>
+		     <NOT <IN? ,CLOAK ,WALDO>>
+		     <NOT ,TIME-STOPPED>>
+		<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <STORE ,CONSTRUCTION-OFFSET
+			      ,CONSTRUCTION-LOC ,CONSTRUCTION>)
+		      (<EQUAL? ,HERE ,FR-OFFICES>
+		       <STORE ,OFFICES-OFFSET ,FLOOR-NUMBER ,FR-OFFICES>)
+		      (<EQUAL? ,HERE ,OFFICES-NORTH>
+		       <STORE ,OFFICES-N-OFFSET ,FLOOR-NUMBER ,OFFICES-NORTH>)
+		      (<EQUAL? ,HERE ,OFFICES-SOUTH>
+		       <STORE ,OFFICES-S-OFFSET ,FLOOR-NUMBER ,OFFICES-SOUTH>)
+		      (<EQUAL? ,HERE ,OFFICES-EAST>
+		       <STORE ,OFFICES-E-OFFSET ,FLOOR-NUMBER ,OFFICES-EAST>)
+		      (<EQUAL? ,HERE ,OFFICES-WEST>
+		       <STORE ,OFFICES-W-OFFSET ,FLOOR-NUMBER ,OFFICES-WEST>)>
+		<FSET ,CLOAK ,WORNBIT>
+		<SETG CLOAK-LOC
+		      <COND (<FSET? <LOC ,PROTAGONIST> ,TAKEBIT> ,HERE)
+			    (T <LOC ,PROTAGONIST>)>>
+		;"otherwise you can end up (for example) in toboggan in knight"
+		<MOVE ,PROTAGONIST ,HERE>
+		<SETG RANK <+ </ ,PLAIN-LOC 8> 1>>
+		<SETG FILE <+ <MOD ,PLAIN-LOC 8> 1>>
+		<CAST-HUNGER-SPELL>
+		<TELL
+"As you wrap the cloak around you, the world changes" ,ELLIPSIS>
+		<UNSTORE ,PLAIN-OFFSET ,PLAIN-LOC ,PLAIN>
+		<GOTO ,PLAIN>)
+	       (<AND <VERB? TAKE-OFF>
+		     <FSET? ,CLOAK ,WORNBIT>
+		     <EQUAL? ,HERE ,PLAIN>>
+		<FCLEAR ,CLOAK ,WORNBIT>
+		<STORE ,PLAIN-OFFSET ,PLAIN-LOC ,PLAIN>
+		<TELL
+"As the cloak is removed, the world changes again" ,ELLIPSIS>
+		;<COND (<AND <EQUAL? ,CLOAK-LOC ,DRAWBRIDGE>
+			    <NOT <FSET? ,DRAWBRIDGE ,OPENBIT>>>
+			;"no longer possible"
+		       <JIGS-UP
+"You appear in midair, a few feet above a moat, just about where a drawbridge
+might be if it were open. You thrash about (in a manner that in some later
+era would make animated cartoonists jealous), but despite your best effort,
+you plunge into the moat and are devoured by ravenous alligators.">)>
+		<COND (<EQUAL? ,CLOAK-LOC ,CONSTRUCTION>
+		       <SETG RANK <+ </ ,CONSTRUCTION-LOC 8> 1>>
+	 	       <SETG FILE <+ <MOD ,CONSTRUCTION-LOC 8> 1>>
+		       <UNSTORE ,CONSTRUCTION-OFFSET
+				,CONSTRUCTION-LOC ,CLOAK-LOC>)
+		      (<OR <EQUAL? ,CLOAK-LOC ,FR-OFFICES
+				   	      ,OFFICES-NORTH ,OFFICES-SOUTH>
+			   <EQUAL? ,CLOAK-LOC ,OFFICES-EAST ,OFFICES-WEST>>
+		       <OFFICE-UNSTORE ,FLOOR-NUMBER>)>
+		<GOTO ,CLOAK-LOC>
+		<COND (<AND <EQUAL? ,CLOAK-LOC ,ORACLE-OBJECT>
+			    <IN? ,RUBY ,DEPRESSION>> ;"yes, this is possible"
+		       <TELL
+"   You have only a moment to take in your surroundings. ">
+		       <PERFORM ,V?ENTER ,ORACLE-OBJECT>)>
+		<RTRUE>)>>
+
+<OBJECT GLOVE
+	(LOC CLOTHES-CLOSET)
+	(DESC "glove")
+	(SYNONYM GLOVE WRITING EMBROIDER)
+	(ADJECTIVE TINY EMBROIDER)
+	(SIZE 3)
+	(FLAGS TAKEBIT WEARBIT READBIT)
+	(OWNER GLOVE) ;"read writing on glove"
+	(ACTION GLOVE-F)>
+
+<ROUTINE GLOVE-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<AND <FSET? ,GOGGLES ,WORNBIT>
+			    <FSET? ,GLOVE ,WORNBIT>>
+		       <DISCOVER-X-RAY>
+		       <TELL "You can see your hand within the glove." CR>)
+		      (<NOUN-USED? ,GLOVE ,W?GLOVE>
+		       <TELL
+"Tiny writing is embroidered at the edge of the glove." CR>)
+		      (T
+		       <PERFORM ,V?READ ,GLOVE>
+		       <RTRUE>)>)
+	       (<VERB? READ>
+		<TELL "\"Frobozz Magic Glove Company.\"" CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+<ROOM BASTION
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Bastion")
+      (LDESC
+"This room occupies a taller tower rising from the corner of the keep.
+The slitted windows are wider here, presumably to accomodate the weaponry
+of the period. The stair winds up and down from here.")
+      (UP TO PARAPET)
+      (DOWN TO SOLAR)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM BASTION)
+      (GLOBAL STAIRS WINDOW)
+      (ICON BASTION-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-5>)>
+
+<ROOM PARAPET
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Parapet")
+      (LDESC
+"You are on the roof of the tower, a virtual museum of state-of-the-art
+castle defense from the eighth century. A fortified parapet, resting on
+stone corbels, rims the roof. Machicolations, holes between the corbels,
+allow massive weights to be dropped on invaders below. (More often, they
+were dropped rather painfully on the soldier's own toe.) Crenellations
+are spaced around the parapet, providing openings for armaments and
+offering a commanding view of the castle grounds: the main castle just
+below, and beyond the moat, the castle's village and garrison. The sole
+exit is the stairway down.")
+      (DOWN TO BASTION)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (SYNONYM PARAPET TOWER)
+      (GLOBAL STAIRS MOAT VILLAGE)
+      (ICON PARAPET-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>)
+      (ACTION FLY-ROOM-F)>
+
+<OBJECT MACHICOLATION
+	(LOC PARAPET)
+	(DESC "machicolation")
+	(SYNONYM MACHICOLATION HOLE)
+	(FLAGS NDESCBIT)
+	(ACTION MACHICOLATION-F)>
+
+<ROUTINE MACHICOLATION-F ()
+	 <COND (<AND <VERB? PUT PUT-THROUGH>
+		     <PRSI? ,MACHICOLATION>>
+		<REMOVE ,PRSO>
+		<COND (<OR <PRSO? ,PERCH>
+			   <ULTIMATELY-IN? ,PERCH ,PRSO>>
+		       <SETG REMOVED-PERCH-LOC ,GROUND>)>
+		<TELL
+"You hear a distant \"thunk,\" as" T ,PRSO " imbeds itself into the ground.
+The lack of an accompanying distant \"ouch!\" would seem to indicate that
+there are no invaders below." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL ,YOU-SEE " light at the bottom of the hole." CR>)
+	       (<VERB? REACH-IN>
+		<TELL ,NOTHING-IN-REACH>)>>
+
+<ROOM TOP-OF-STAIR
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Top of Stair")
+      (LDESC
+"A secret passage from the west ends here, at the top of these dark,
+cobwebby stairs.")
+      (WEST TO TEE)
+      (DOWN TO BOTTOM-OF-STAIR)
+      (FLAGS RLANDBIT)
+      (GLOBAL STAIRS)
+      (ICON TOP-OF-STAIR-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>)>
+
+<ROOM BOTTOM-OF-STAIR
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Bottom of Stair")
+      (LDESC
+"You are in the center of a gloomy, north-south passage. A crude
+stairway leads upward.")
+      (NORTH TO OUTSIDE-CRYPT)
+      (SOUTH TO DUNGEON)
+      (UP TO TOP-OF-STAIR)
+      (FLAGS RLANDBIT)
+      (GLOBAL STAIRS)
+      (ICON BOTTOM-OF-STAIR-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)>
+
+<ROOM OUTSIDE-CRYPT
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Outside Crypt")
+      (LDESC
+"A hall from the south ends here at the entrance to a spooky crypt.")
+      (SOUTH TO BOTTOM-OF-STAIR)
+      (NORTH TO CRYPT)
+      (IN TO CRYPT)
+      (FLAGS RLANDBIT)
+      (GLOBAL CRYPT)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-9>)>
+
+<ROOM CRYPT
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Crypt")
+      (UP TO CHAPEL IF TRAP-DOOR IS OPEN)
+      (DOWN PER ORACLE-ENTER-F)
+      (SOUTH TO OUTSIDE-CRYPT)
+      (OUT TO OUTSIDE-CRYPT)
+      (FLAGS RLANDBIT)
+      (SYNONYM CRYPT TOMB)
+      (ADJECTIVE SPOOKY UNDERGROUND)
+      (GLOBAL TRAP-DOOR SLIME BODIES)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-9>)
+      (ACTION CRYPT-F)>
+
+<ROUTINE CRYPT-F ("OPT" (RARG <>))
+	 <COND (<AND ,DEMO-VERSION? <EQUAL? .RARG ,M-END>>
+		<END-DEMO>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The remains of generations of royalty lie arranged on slabs through this
+underground tomb. A passage leads off to the south. In the center of the
+low ceiling is a small trap door, which is ">
+		<OPEN-CLOSED ,TRAP-DOOR>
+		<COND (<FSET? ,HOLEY-SLAB ,TOUCHBIT>
+		       <TELL
+". Barely visible beneath one of the slabs, a dark moist opening
+leads downward">)>
+		<TELL ".">)>>
+
+<OBJECT BODIES
+	(LOC LOCAL-GLOBALS)
+	(DESC "bodies")
+	(SYNONYM BODIES REMAINS)
+	(FLAGS PLURALBIT NDESCBIT NARTICLEBIT)
+	(ACTION BODIES-F)>
+
+<ROUTINE BODIES-F ()
+	 <COND (<TOUCHING? ,BODIES>
+		<PERFORM-PRSA ,BONES>)>>
+
+<ROUTINE ORACLE-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<OR <FSET? ,OUTER-GATE ,OPENBIT>
+		    ,TIME-STOPPED>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <TELL "The hole under the slab has vanished!" CR>)>
+		<RFALSE>)
+	       (<FSET? ,HOLEY-SLAB ,TOUCHBIT>
+		,ORACLE)
+	       (T
+		<COND (<NOT .RARG>
+		       <CANT-GO>)>
+		<RFALSE>)>>
+
+<OBJECT FLATTEST-SLAB
+	(LOC CRYPT)
+	(DESC "flattest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE FLATTEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<OBJECT SHORTEST-SLAB
+	(LOC CRYPT)
+	(DESC "shortest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE SHORTEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<OBJECT LONGEST-SLAB
+	(LOC CRYPT)
+	(DESC "longest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE LONGEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<OBJECT DUSTIEST-SLAB
+	(LOC CRYPT)
+	(DESC "dustiest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE DUSTIEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<OBJECT DARKEST-SLAB
+	(LOC CRYPT)
+	(DESC "darkest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE DARKEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<OBJECT OLDEST-SLAB
+	(LOC CRYPT)
+	(DESC "oldest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE OLDEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<OBJECT NEWEST-SLAB
+	(LOC CRYPT)
+	(DESC "newest slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE NEWEST)
+	(FLAGS NDESCBIT)
+	(ACTION SLAB-F)>
+
+<ROUTINE SLAB-F ()
+	 <COND (<AND <VERB? LOOK-UNDER>
+		     <PRSO? ,HOLEY-SLAB>>
+		<COND (<OR <FSET? ,OUTER-GATE ,OPENBIT>
+			   ,TIME-STOPPED>
+		       <DO-WALK ,P?DOWN>)
+		      (T
+		       <FSET ,HOLEY-SLAB ,TOUCHBIT>
+		       <SETG COMPASS-CHANGED T>
+		       <TELL
+"Under the slab is a craggy hole, dripping with slime, leading
+downward. It looks just barely large enough to enter." CR>)>)>>
+
+<GLOBAL HOLEY-SLAB <>>
+
+<CONSTANT SLAB-TABLE
+	<PTABLE FLATTEST-SLAB
+	       SHORTEST-SLAB
+	       LONGEST-SLAB
+	       DUSTIEST-SLAB
+	       DARKEST-SLAB
+	       OLDEST-SLAB
+	       NEWEST-SLAB>>
+
+<OBJECT TRAP-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "trap door")
+	(SYNONYM DOOR TRAPDOOR)
+	(ADJECTIVE SMALL TRAP)
+	(FLAGS DOORBIT)
+	(ACTION TRAP-DOOR-F)>
+
+<ROUTINE TRAP-DOOR-F ()
+	 <COND (<AND <VERB? OPEN>
+		     <NOT <FSET? ,TRAP-DOOR ,OPENBIT>>
+		     <EQUAL? ,HERE ,CRYPT>>
+		<TELL "The trap door can't be opened from this side." CR>)>>
+
+<ROOM DUNGEON
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Dungeon")
+      (LDESC
+"A century's worth of prisoners have languished in this dismal prison.
+In addition to a hole in the floor, passages lead north, southeast, and
+southwest.")
+      (NORTH TO BOTTOM-OF-STAIR)
+      (DOWN TO OUBLIETTE)
+      (SE TO CELL)
+      (SW TO TORTURE-CHAMBER)
+      (FLAGS RLANDBIT)
+      (SYNONYM DUNGEON)
+      (ICON DUNGEON-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-9>)>
+
+<OBJECT DUNGEON-HOLE
+	(LOC DUNGEON)
+	(DESC "hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE SMALL)
+	(FLAGS NDESCBIT)
+	(OWNER GROUND)
+	(ACTION DUNGEON-HOLE-F)>
+
+<ROUTINE DUNGEON-HOLE-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<COND (<LIT? ,OUBLIETTE>
+		       <TELL ,SOME-LIGHT>)
+		      (T
+		       <TELL ,ONLY-BLACKNESS>)>)
+	       (<VERB? PUT>
+		<COND (<G? <GETP ,PRSO ,P?SIZE> 4>
+		       <COND (<OR <PRSO? ,PERCH>
+				  <ULTIMATELY-IN? ,PERCH ,PRSO>>
+			      <SETG REMOVED-PERCH-LOC ,OUBLIETTE>)>
+		       <REMOVE ,PRSO>)
+		      (T
+		       <MOVE ,PRSO ,OUBLIETTE>)>
+		<TELL "Done." CR>)	
+	       (<VERB? EXAMINE>
+		<TELL
+"It's big enough to drop through, but a return trip doesn't look
+at all assured." CR>)
+	       (<VERB? REACH-IN>
+		<TELL ,NOTHING-IN-REACH>)
+	       (<VERB? ENTER>
+		<DO-WALK ,P?DOWN>)>>
+
+<ROOM OUBLIETTE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Oubliette")
+      (UP SORRY "You're trapped.")
+      (OUT SORRY "You're trapped.")
+      (FLAGS RLANDBIT)
+      (SYNONYM OUBLIETTE)
+      (RIDDLE
+"I look just like my brother; we have the same father and mother! We're
+identical in every way; we were born on the very same day. I'm younger
+by seconds, but as everyone reckons, I'm not a twin, and never have been.
+What am I?\"")
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-9>)
+      (ACTION OUBLIETTE-F)>
+
+<GLOBAL OUBLIETTE-SCORE 20>
+
+<ROUTINE OUBLIETTE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You're trapped in a narrow prison cell accessible only from above. The
+upper portion of the cell is lost in gloom. The floor is muddy, and you
+sink almost to your ">
+		<COND (,ALLIGATOR
+		       <TELL "alligatorish nostrils.">)
+		      (T
+		       <TELL "knees.">)>)
+	       (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT ,TIME-STOPPED>>
+		<SETG DO-J T>
+		<QUEUE I-JESTER 3>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,JESTER ,HERE>>
+		<SETUP-ORPHAN "answer">)>>
+
+<OBJECT TRIPLET
+	(LOC GLOBAL-OBJECTS)
+	(DESC "triplet")
+	(SYNONYM TRIPLET TRIPLETS QUADRUPLET QUINTUPLET)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT SEAMANS-CAP
+	(LOC OUBLIETTE)
+	(DESC "seaman's cap")
+	(FDESC
+"The last prisoner in the oubliette must have been a sailor; an old seaman's
+cap lies discarded in the corner.")
+	(SYNONYM CAP HAT)
+	(ADJECTIVE OLD SEAMAN\'S SEAMAN)
+	(FLAGS TAKEBIT WEARBIT MAGICBIT)
+	(GENERIC G-HAT-F)
+	(VALUE 12)>
+
+<ROUTINE G-HAT-F (TBL LEN)
+	 <COND (<INTBL? ,DOORBELL <REST-TO-SLOT .TBL FIND-RES-OBJ1>
+				  <FIND-RES-COUNT .TBL>>
+		;"confusion was between door bell and bell on jester's hat"
+		,DOORBELL)
+	       (<VERB? TAKE-OFF REMOVE>
+		<COND (<AND <FSET? ,HARDHAT ,WORNBIT>
+			    <FSET? ,SEAMANS-CAP ,WORNBIT>>
+		       <RFALSE>)
+		      (<FSET? ,HARDHAT ,WORNBIT>
+		       ,HARDHAT)
+		      (<FSET? ,SEAMANS-CAP ,WORNBIT>
+		       ,SEAMANS-CAP)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <INTBL? ,J-HAT <REST-TO-SLOT .TBL FIND-RES-OBJ1>
+					 <FIND-RES-COUNT .TBL>>
+		     <EQUAL? ,HERE ,GAMING-ROOM>>
+		,J-HAT)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+<ROOM CELL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Cell")
+      (NW TO DUNGEON)
+      (OUT TO DUNGEON)
+      (FLAGS RLANDBIT)
+      (SYNONYM CELL)
+      (ICON CELL-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-10>)
+      (ACTION CELL-F)>
+
+<ROUTINE CELL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This cell is the height of luxury for this dungeon -- the floor isn't
+covered with spikes, and there are actually a few corners which aren't
+dominated by giant spiders.">
+		<COND (<IN? ,COBWEBS ,HERE>
+		       <TELL " " ,CELL-WALL-DESC>)>
+		<TELL " The only exit is northwest.">)>>
+
+<OBJECT GIANT-SPIDERS
+	(LOC CELL)
+	(DESC "giant spider")
+	(SYNONYM SPIDER SPIDERS)
+	(ADJECTIVE LARGE)
+	(FLAGS NDESCBIT)
+	(ACTION GIANT-SPIDERS-F)>
+
+<ROUTINE GIANT-SPIDERS-F ()
+	 <COND (<TOUCHING? ,GIANT-SPIDERS>
+		<TELL
+"There's only one thing you need to remember in connection with giant spiders:
+You leave them alone, they'll leave you alone." CR>)>>
+
+<OBJECT COBWEBS
+	(LOC CELL)
+	(DESC "cobwebs")
+	(SYNONYM COBWEBS WEB COBWEB WEBS)
+	(ADJECTIVE THICK)
+	(FLAGS NDESCBIT NARTICLEBIT PLURALBIT)
+	(ACTION COBWEBS-F)>
+
+<ROUTINE COBWEBS-F ()
+	 <COND (<VERB? ENTER>
+		<TELL
+"Walk face first into a thick wall of yukko cobwebs? Mucho disgusto! Maybe if
+you cleared them away, first..." CR>)
+	       (<VERB? REMOVE TAKE-WITH CLEAN MOVE>
+		<COND (<AND <NOT ,PRSI>
+			    <ULTIMATELY-IN? ,BROOM>>
+		       <SETG PRSI ,BROOM>)>
+		<COND (<NOT ,PRSI>
+		       <TELL "Yuk! Bleh! Ukky-poo! T">
+		       <COND (<NOT <FSET? ,GLOVE ,WORNBIT>>
+			      <TELL
+"hese cobwebs are way too gross to touch with your
+bare hands. Furthermore, t">)>
+		       <TELL
+"here are way too many to clean away without some
+kind of cleaning accessory." CR>)
+		      (<NOT <PRSI? ,BROOM>>
+		       <TELL
+"Don't bother to apply for any jobs as a maid." CR>)
+		      (T
+		       <REMOVE ,COBWEBS>
+		       <THIS-IS-IT ,FLASK>
+		       <MOVE ,FLASK ,HERE>
+		       <TELL
+"It's a dirty job, but someone's gotta do it. You clear away most
+of the cobwebs, revealing a blank wall. Sitting at the base of the
+wall is a " 'FLASK "!" CR>
+		       <INC-SCORE 12>)>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT FLASK
+	(DESC "stoppered glass flask filled with liquid")
+	(LDESC
+"A stoppered glass flask with a skull-and-crossbones marking is here.
+The flask is filled with some clear liquid.")
+	(SYNONYM FLASK)
+	(ADJECTIVE GLASS)
+	(FLAGS TAKEBIT TRANSBIT READBIT MAGICBIT SEARCHBIT)
+	(CAPACITY 5)
+	(SIZE 5)
+	(VALUE 0) ;"12 points given elsewhere"
+	(TEXT "There is a skull-and-crossbones engraved on the glass.")
+	(ACTION FLASK-F)>
+
+<ROUTINE FLASK-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL
+"You notice that objects behind the flask appear to be magnified." CR>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,PRSI ,FLASK>>
+		<TELL
+"The flask distorts and magnifies the " D ,PRSO ", showing details
+not noticed earlier." CR "   ">
+		<RFALSE>)
+	       (<VERB? DRINK-FROM>
+		<DO-FIRST "open" ,FLASK>)
+	       (<VERB? OPEN MUNG THROW>
+		<COND (<NOT <VERB? OPEN>>
+		       <TELL "The flask breaks into pieces. ">)
+		      (T
+		       <TELL "You remove the stopper. ">)>
+		<TELL
+"As you pass out, you realize that the vapors from the
+flask's contents are ">
+		<COND (<FSET? ,CLOWN-NOSE ,WORNBIT>
+		       <TELL
+"potent enough to get past your clown nose, and are also quite ">)>
+		<JIGS-UP "fatal.">)>>
+
+<OBJECT LIQUID
+	(LOC FLASK)
+	(DESC "clear liquid")
+	(SYNONYM LIQUID)
+	(ADJECTIVE CLEAR)
+	(FLAGS NDESCBIT)
+	(ACTION LIQUID-F)>
+
+<ROUTINE LIQUID-F ()
+	 <COND (<VERB? DRINK>
+		<DO-FIRST "open" ,FLASK>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+<ROOM TORTURE-CHAMBER
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Torture Chamber")
+      (LDESC
+"This room contains all your standard torture devices: an iron maiden,
+a water chamber, a snake pit, a comfy chair, and so forth. The only
+obvious exit is northeast.")
+      (NE TO DUNGEON)
+      (OUT TO DUNGEON)
+      (FLAGS RLANDBIT)
+      (SYNONYM CHAMBER)
+      (ADJECTIVE TORTURE)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-8>)
+      (ACTION TORTURE-CHAMBER-F)>
+
+<ROUTINE TORTURE-CHAMBER-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<NOT ,METRONOME-LOC>
+		       <SETG METRONOME-LOC <COND (<PROB 33> ,IRON-MAIDEN)
+						 (<PROB 50> ,SNAKE-PIT)
+						 (T ,WATER-CHAMBER)>>)>
+		<SETG METRONOME-COUNTER 0>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,METRONOME ,TRYTAKEBIT>>
+		<METRONOME-TORTURE T>)>>
+
+<ROUTINE METRONOME-TORTURE ("OPTIONAL" (INDENT <>))
+	 <SETG METRONOME-COUNTER <+ ,METRONOME-COUNTER 1>>
+	 <COND (<EQUAL? ,METRONOME-COUNTER 1>
+		<RFALSE>)>
+	 <RETURN-FROM-MAP>
+	 <COND (.INDENT
+		<TELL "   ">)>
+	 <COND (<EQUAL? ,METRONOME-COUNTER 2>
+		<TELL "You hear a ticking sound." CR>)
+	       (<EQUAL? ,METRONOME-COUNTER 3>
+		<TELL "The ticking grows louder." CR>)
+	       (<EQUAL? ,METRONOME-COUNTER 4>
+		<TELL
+"The ticking is really getting to you. It seems to be
+controlling your heartbeat!" CR>)
+	       (T
+		<TELL
+"The ticking is unbearably deafening! You run screaming from
+the Torture Chamber!" CR CR>
+		<GOTO ,DUNGEON>)>>
+
+<BEGIN-SEGMENT 0>
+
+<GLOBAL METRONOME-LOC <>>
+
+<GLOBAL METRONOME-COUNTER 0>
+
+<GLOBAL METRONOME-ON <>>
+
+<OBJECT METRONOME
+	(DESC "metronome")
+	(SYNONYM METRONOME)
+	(FLAGS TAKEBIT TRYTAKEBIT MAGICBIT)
+	(VALUE 0) ;"12 points given elsewhere"
+	(ACTION METRONOME-F)>
+
+<ROUTINE METRONOME-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The metronome is">
+		<COND (,METRONOME-ON
+		       <TELL " ticking insistently." CR>)
+		      (T
+		       <TELL "n't on." CR>)>)
+	       (<VERB? ON>
+		<COND (,METRONOME-ON
+		       <TELL "It is!" CR>)
+		      (T
+		       <SETG METRONOME-ON T>
+		       <QUEUE I-METRONOME -1>
+		       <TELL "The metronome begins to tick." CR>)>)
+	       (<VERB? OFF>
+		<COND (,METRONOME-ON
+		       <SETG METRONOME-ON <>>
+		       <DEQUEUE I-METRONOME>
+		       <TELL "The metronome stops ticking." CR>)
+		      (T
+		       <TELL "It is!" CR>)>)>>
+
+<ROUTINE I-METRONOME ("OPTIONAL" (CALLED-BY-LISTEN <>) "AUX" CNT)
+	 <COND (<EQUAL? <LOC ,METRONOME> <>>
+		<DEQUEUE I-METRONOME>)>
+	 <COND (<AND <VISIBLE? ,METRONOME>
+		     <NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>>
+		<SET CNT <+ 3 <RANDOM 30>>>
+		<COND (<NOT .CALLED-BY-LISTEN>
+		       <TELL "   ">)>
+		<TELL "The metronome insistently declares, \"Tick">
+		<REPEAT ()
+			<TELL ", tick">
+			<SET CNT <- .CNT 1>>
+			<COND (<EQUAL? .CNT 0>
+			       <RETURN>)>>
+		<TELL ".\"" CR>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT SECRET>
+
+<OBJECT COMFY-CHAIR
+	(LOC TORTURE-CHAMBER)
+	(DESC "comfy chair")
+	(SYNONYM CHAIR)
+	(ADJECTIVE COMFY)
+	(FLAGS NDESCBIT CONTBIT INBIT SEARCHBIT VEHBIT SURFACEBIT OPENBIT)
+	(ACTION TORTURE-DEVICE-F)>
+
+<OBJECT IRON-MAIDEN
+	(LOC TORTURE-CHAMBER)
+	(DESC "iron maiden")
+	(SYNONYM MAIDEN)
+	(ADJECTIVE IRON)
+	(FLAGS NDESCBIT VOWELBIT INBIT CONTBIT SEARCHBIT VEHBIT)
+	(ACTION TORTURE-DEVICE-F)>
+
+<OBJECT WATER-CHAMBER
+	(LOC TORTURE-CHAMBER)
+	(DESC "water chamber")
+	(SYNONYM CHAMBER)
+	(ADJECTIVE WATER)
+	(FLAGS NDESCBIT CONTBIT INBIT SEARCHBIT VEHBIT)
+	(ACTION TORTURE-DEVICE-F)>
+
+<OBJECT SNAKE-PIT
+	(LOC TORTURE-CHAMBER)
+	(DESC "snake pit")
+	(SYNONYM PIT LID)
+	(ADJECTIVE SNAKE)
+	(FLAGS NDESCBIT CONTBIT INBIT SEARCHBIT VEHBIT)
+	(ACTION TORTURE-DEVICE-F)>
+
+<OBJECT THOUSANDS-OF-SNAKES
+	(LOC SNAKE-PIT)
+	(DESC "writhing mass of snakes")
+	(SYNONYM SNAKE MASS)
+	(ADJECTIVE WRITHING)>
+
+<ROUTINE TORTURE-DEVICE-F ()
+	 <COND (<VERB? ENTER>
+		<COND (<AND <NOT <PRSO? ,COMFY-CHAIR>>
+			    <NOT <FSET? ,PRSO ,OPENBIT>>>
+		       <DO-FIRST "open" ,PRSO>
+		       <RTRUE>)>
+		<TELL "You climb into the " 'PRSO ". ">
+		<COND (<PRSO? ,COMFY-CHAIR>
+		       <JIGS-UP
+"It's so, so comfy that you can't get up, and you sit there comfortably
+until you starve to death.">)
+		      (<PRSO? ,IRON-MAIDEN>
+		       <JIGS-UP
+"It shuts around you, piercing you with its sharp spikes.">)
+		      (<PRSO? ,WATER-CHAMBER>
+		       <JIGS-UP
+"Immediately, the chamber locks behind you, and water begins
+rhythmically dripping onto your head. Sometime later you go mad,
+and rip yourself into small pieces.">)
+		      (T
+		       <JIGS-UP
+"A thousand snakes converge on you. In their overeagerness to dine,
+they skip right over the part where they kill you, and instead get
+right to the part where they eat you.">)>)
+	       (<VERB? EXAMINE>
+		<COND (<PRSO? ,COMFY-CHAIR>
+		       <TELL "It sure looks comfortable!" CR>
+		       <RTRUE>)
+		      (<PRSO? ,WATER-CHAMBER>
+		       <TELL
+"It's a small chamber where water is slowly dripped onto the victim's head
+until he or she goes mad.">)
+		      (<PRSO? ,IRON-MAIDEN>
+		       <TELL
+"It's similar to a suit of armor, except that the inside is
+lined with sharp spikes.">)
+		      (T
+		       <COND (<NOT <FSET? ,SNAKE-PIT ,OPENBIT>>
+			      <TELL "Beneath the lid of the snake pit y">)
+			     (T
+			      <TELL "Y">)>
+		       <TELL
+"ou hear the hissing of a thousand hungry snakes.">)>
+		<TELL " The " 'PRSO " is ">
+		<OPEN-CLOSED ,PRSO>
+		<TELL ,PERIOD-CR>)
+	       (<AND <VERB? LOOK-INSIDE>
+		     <FSET? ,METRONOME ,TRYTAKEBIT>>
+		<COND (<PRSO? ,METRONOME-LOC>
+		       <PERFORM ,V?OPEN ,PRSO>
+		       <RTRUE>)
+		      (<PRSO? ,COMFY-CHAIR>
+		       <TELL "There's no one in the chair." CR>)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <TELL
+"You open" T ,PRSO ", and find no one within." CR>)>) 
+	       (<AND <VERB? OPEN>
+		     <PRSO? ,METRONOME-LOC>
+		     <FSET? ,METRONOME ,TRYTAKEBIT>>
+		<FCLEAR ,METRONOME ,TRYTAKEBIT>
+		<MOVE ,METRONOME ,HERE>
+		<FSET ,PRSO ,OPENBIT>
+		<TELL
+"As you open the " 'PRSO ", a metronome falls from the shadowy recesses
+of the ceiling and lands with a muffled thud in the center of the room.">
+		<COND (<G? ,METRONOME-COUNTER 1>
+		       <TELL
+" Thankfully, the fall seems to have shut it off.">)>
+		<CRLF>
+		<INC-SCORE 12>)
+	       (<AND <VERB? OPEN>
+		     ,TIME-STOPPED>
+		<TELL ,WONT-BUDGE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+;"west wing"
+
+<ROOM WEST-HALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "West Hall")
+      (WEST TO WEST-WING IF WEST-DOOR IS OPEN)
+      (NE TO FORMAL-GARDEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL WEST-DOOR LOCK-OBJECT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)
+      (ACTION WEST-HALL-F)>
+
+<ROUTINE WEST-HALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The castle's newest wing can be found beyond the huge oak door which lies ">
+		<OPEN-CLOSED ,WEST-DOOR>
+		<TELL " to the west. The only other exit is northeast.">)>>
+
+<OBJECT WEST-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(ADJECTIVE LARGE OAK)
+	(FLAGS DOORBIT LOCKEDBIT)
+	(ACTION WEST-DOOR-F)>
+
+<ROUTINE WEST-DOOR-F ()
+	 <COND (<AND <VERB? UNLOCK>
+		     <FSET? ,WEST-DOOR ,LOCKEDBIT>
+		     <PRSI? ,WEST-KEY>>
+		<FCLEAR ,WEST-DOOR ,LOCKEDBIT>
+		<LOCKED-UNLOCKED ,WEST-DOOR T>)
+	       (<AND <VERB? LOCK>
+		     <NOT <FSET? ,WEST-DOOR ,LOCKEDBIT>>
+		     <PRSI? ,WEST-KEY>>
+		<FSET ,WEST-DOOR ,LOCKEDBIT>
+		<LOCKED-UNLOCKED ,WEST-DOOR>)>>
+
+<ROOM WEST-WING
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "West Wing")
+      (EAST TO WEST-HALL IF WEST-DOOR IS OPEN)
+      (WEST PER DIRIGIBLE-HANGAR-ENTER-F)
+      (NORTH TO PEG-ROOM)
+      (SOUTH TO GYM)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL WEST-DOOR LOCK-OBJECT)
+      (VALUE 8)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-2>)
+      (ICON WEST-WING-ICON)
+      (ACTION WEST-WING-F)>
+
+<ROUTINE WEST-WING-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This wing exhibits more recent styling: smoothly dressed stone inlaid with
+marble patterns. Through the ">
+		<OPEN-CLOSED ,WEST-DOOR>
+		<TELL
+" oak door to the east lie the primary halls of the castle. Other exits lead
+north, west, and south. " ,FUDGE>)>>
+
+<GLOBAL NUT-OPENED <>>
+
+<GLOBAL NUT-SHOWN <>>
+
+<GLOBAL NUT-EATEN <>>
+
+<GLOBAL J-DISPOSED 0>
+
+<ROUTINE DIRIGIBLE-HANGAR-ENTER-F ("OPT" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (,NUT-EATEN
+		,DIRIGIBLE-HANGAR)
+	       (.RARG
+		<RFALSE>)
+	       (<NOT <IN? ,JESTER ,HERE>>
+		<RETURN-FROM-MAP>
+		<TELL "An invisible hand seems to stop you">
+		<COND (<L? <- ,MOVES ,J-DISPOSED> 4>
+		       <TELL
+", and a familiar voice says, \"Surely you didn't think you'd
+be rid of me so easily!\"" CR>)
+		      (T
+		       <TELL ,PERIOD-CR>)>
+		<SETG DO-J T>
+		<I-JESTER>
+		<RFALSE>)
+	       (T
+		<RETURN-FROM-MAP>
+		<TELL ,ERE-YOU-PASS>
+		<RFALSE>)>>
+\ 
+;"peggleboz"
+
+<ROOM PEG-ROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Peg Room")
+      (OUT TO WEST-WING)
+      (SOUTH TO WEST-WING)
+      (NORTH TO GAMING-ROOM IF PEG-PASSAGE-OPENED)
+      (FLAGS RLANDBIT ONBIT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>)
+      (ICON PEG-ROOM-ICON)
+      (ACTION PEG-ROOM-F)>
+
+<ROUTINE PEG-ROOM-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You're in a nondescript room with an exit to the south. ">
+		<COND (,PEG-PASSAGE-OPENED
+		       <TELL "A previously hidden passage leads north. ">)>
+		<TELL
+"In the center of the room is a pegboard. Hanging on the wall are a set of
+instructions.">)>>
+
+<OBJECT PBOZ-OBJECT
+	(LOC GLOBAL-OBJECTS)
+	(DESC "Peggleboz")
+	(SYNONYM PEGGLEBOZ)
+	(ADJECTIVE GUSTAV)
+	(RESEARCH
+"\"Peggleboz, a popular game of jumping pegs, is named after its creator,
+Gustav Peggleboz (399 - 456 GUE).\"")
+	(ACTION PBOZ-OBJECT-F)>
+
+<ROUTINE PBOZ-OBJECT-F ()
+	 <COND (<VERB? PLAY>
+		<COND (<EQUAL? ,HERE ,PEG-ROOM>
+		       <PEG-GAME>
+		       <RTRUE>)
+		      (T
+		       <TELL
+,YOU-CANT "play Peggleboz without a pegboard!" CR>)>)>>
+
+<OBJECT PEGBOARD
+	(LOC PEG-ROOM)
+	(DESC "pegboard")
+	(SYNONYM BOARD PEGBOARD)
+	(ADJECTIVE PEG)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(ACTION PEGBOARD-F)>
+
+<ROUTINE PEGBOARD-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The board has 21 holes, 20 of them filled with pegs. The holes are
+arranged in a roughly triangular shape." CR>)
+	       (<VERB? TAKE>
+		<TELL
+"The pegboard is an unmovable feature of the room." CR>)>>
+
+<OBJECT PEGBOARD-PEGS
+	(LOC PEG-ROOM)
+	(DESC "peg")
+	(SYNONYM PEG)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(ACTION PEGBOARD-PEGS-F)>
+
+<ROUTINE PEGBOARD-PEGS-F ()
+	 <COND (<VERB? MOVE TAKE>
+		<TELL
+"It would behoove you to read the instructions that are posted on the wall
+here." CR>)>>
+
+<OBJECT SET-OF-INSTRUCTIONS
+	(LOC PEG-ROOM)
+	(OWNER SET-OF-INSTRUCTIONS)
+	(DESC "set of instructions")
+	(SYNONYM SET INSTRUCTIONS RULES)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT
+"\"Rules for PEGGLEBOZ:|
+1. Pegs can only move by jumping another peg.|
+2. Pegs can only jump one peg per move.|
+3. Pegs jumped are removed.|
+4. Your goal is to end up with one peg in the starting hole.|
+5. To begin, simply type PLAY PEGGLEBOZ!\"")>
+
+<CONSTANT PBOZ-PICSET-TBL
+	  <TABLE UNHL-PEG
+		 HL-PEG
+		 BG-A
+		 BG-B
+		 BG-C
+		 BG-D
+		 BG-E
+		 BG-F
+		 BG-G
+		 BG-H
+		 BG-I
+		 BG-J
+		 BG-K
+		 BG-L
+		 BG-M
+		 BG-N
+		 BG-O
+		 BG-P
+		 BG-Q
+		 BG-R
+		 BG-S
+		 BG-T
+		 BG-U
+		 RESTART-BOX
+		 EXIT-BOX
+		 SHOW-MOVES-BOX
+		 DIM-RESTART-BOX
+		 DIM-SHOW-MOVES-BOX
+		 0>>
+
+<ROUTINE PEG-GAME ("AUX" (FIRST-MOVE T) (PEG-SELECTED <>) CHAR JUMPED-PEG
+		         (DONT-CLEAR <>) (WON <>) CNT)
+	 <CLEAR ,S-FULL>
+	 <SPLIT-BY-PICTURE ,PBOZ-SPLIT T>
+	 <ADJUST-TEXT-WINDOW ,PBOZ-BOTTOM>
+	 <SETUP-PBOZ>
+	 <REPEAT ()
+		 <COND (.WON T)
+		       (.PEG-SELECTED
+			<COND (<NOT .DONT-CLEAR>
+			       <CLEAR ,S-TEXT>)
+			      (T
+			       <SET DONT-CLEAR <>>)>
+			<TELL "You are moving the peg at letter ">
+			<HLIGHT ,H-BOLD>
+			<TELL C <+ ,LETTER-OFFSET .PEG-SELECTED>>
+			<HLIGHT ,H-NORMAL>
+			<TELL
+". Select the letter for the destination point of that peg, or hit ">
+			<HLIGHT ,H-BOLD>
+			<TELL C <+ ,LETTER-OFFSET .PEG-SELECTED>>
+			<HLIGHT ,H-NORMAL>
+			<TELL " again to \"unselect\" that peg.">)
+		       (T
+			<COND (<AND <NOT .FIRST-MOVE>
+				    <NOT .DONT-CLEAR>>
+			       <CLEAR ,S-TEXT>)>
+			<COND (<NOT .DONT-CLEAR>
+			       <COND (<EQUAL? <PEG-COUNT> 1>
+				      <TELL
+"Type X to exit, Y to display your moves, and Z to start again">
+				      <COND (,ACTIVE-MOUSE
+					     <TELL
+" (or simply click on the appropriate spot with your mouse)">)>
+				      <TELL ".">)
+				     (T
+				      <TELL
+"Type the letter corresponding to the peg you'd like to move">
+				      <COND (,ACTIVE-MOUSE
+					     <TELL
+", or use your mouse to click on it">)>
+				      <TELL ".">
+				      <COND (.FIRST-MOVE
+					     <SET FIRST-MOVE <>>
+					     <TELL
+" Type X to exit Peggleboz, Y to display your moves so far, Z to reset the
+board">
+					     <COND (,ACTIVE-MOUSE
+						    <TELL
+" (or you can use your mouse to click on the appropriate spot)">)>
+					     <TELL ".">)>)>)>)>
+		 <SET DONT-CLEAR <>>
+		 <SET CHAR
+		      <COND (.PEG-SELECTED
+			     <BLINK ,UNHL-PEG ,HL-PEG
+				   <GET ,BOARD-TABLE <* .PEG-SELECTED 2>>
+				   <GET ,BOARD-TABLE <+ <* .PEG-SELECTED 2> 1>>
+				  ,S-WINDOW>)
+			    (T
+			     <COND (,DEMO-VERSION?
+				    <INPUT-DEMO 1>)
+				   (T
+				    <INPUT 1>)>)>>
+		 <MOUSE-INPUT?>
+		 <COND (<EQUAL? .CHAR ,CLICK1 ,CLICK2>
+			<SET CHAR <PBOZ-CLICK>>)>
+		 <COND (<AND <G? .CHAR 96>
+			     <L? .CHAR 123>> ;"convert lower to upper case"
+			<SET CHAR <- .CHAR 32>>)>
+		 <COND (<EQUAL? .CHAR !\X>
+			<RESET-PEGBOARD>
+			<INIT-SL-WITH-SPLIT ,TEXT-WINDOW-PIC-LOC>
+			<CLEAR ,S-TEXT>
+			<RETURN>)
+		       (<EQUAL? .CHAR !\Y>
+			<SET DONT-CLEAR T>
+			<DISPLAY-MOVES>)
+		       (<EQUAL? .CHAR !\Z>
+			<RESET-PEGBOARD>
+			<SET WON <>>
+			<SET CNT 4>
+			<SCREEN ,S-WINDOW>
+			<DRAW-PEGS>
+			<SCREEN ,S-TEXT>
+			<CLEAR ,S-TEXT>
+			<SET PEG-SELECTED <>>)
+		       (<NOT .PEG-SELECTED>
+			<SET PEG-SELECTED <- .CHAR 64>>
+			<COND (<OR <G? .PEG-SELECTED 21>
+				   <L? .PEG-SELECTED 1>>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <SET PEG-SELECTED <>>
+			       <SET DONT-CLEAR T>
+			       <TELL
+"Illegal choice. Type a letter from A thru U to select a peg. Or, type X
+to exit, Y to display your moves, or Z to reset the board.">)
+			      (<EQUAL? <GET ,PEG-TABLE .PEG-SELECTED> 0>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <SET DONT-CLEAR T>
+			       <TELL
+"There's no peg at point " C <+ ,LETTER-OFFSET .PEG-SELECTED> ".">
+			       <SET PEG-SELECTED <>>)>)	
+		       (<EQUAL? .PEG-SELECTED <- .CHAR 64>>
+			<SET DONT-CLEAR T>
+			<SET PEG-SELECTED <>>
+			<CLEAR ,S-TEXT>
+			<TELL "Unselected.">)
+		       (<SET JUMPED-PEG <LEGAL-MOVE .PEG-SELECTED .CHAR>>
+			;"record move for later display"
+			<PUT ,PEG-MOVE-TABLE ,PEG-MOVE-NUMBER .PEG-SELECTED>
+			<PUT ,PEG-MOVE-TABLE <+ ,PEG-MOVE-NUMBER 1>
+					     <- .CHAR 64>>
+			<SETG PEG-MOVE-NUMBER <+ ,PEG-MOVE-NUMBER 2>>
+			;"record move in storage tables"
+			<PUT ,PEG-TABLE .JUMPED-PEG 0>
+			<PUT ,PEG-TABLE .PEG-SELECTED 0>
+			<PUT ,PEG-TABLE <- .CHAR 64> 1>
+			<SCREEN ,S-WINDOW>
+			<DISPLAY <GET ,PEG-BG-PIC-TBL .PEG-SELECTED>
+				 <GET ,BOARD-TABLE <* .PEG-SELECTED 2>>
+				 <GET ,BOARD-TABLE <+ <* .PEG-SELECTED 2> 1>>>
+			<DISPLAY <GET ,PEG-BG-PIC-TBL .JUMPED-PEG>
+				 <GET ,BOARD-TABLE <* .JUMPED-PEG 2>>
+				 <GET ,BOARD-TABLE <+ <* .JUMPED-PEG 2> 1>>>
+			<DISPLAY ,UNHL-PEG
+				 <GET ,BOARD-TABLE <* <- .CHAR 64> 2>>
+				 <GET ,BOARD-TABLE <+ <* <- .CHAR 64> 2> 1>>>
+			<COND (<AND <EQUAL? ,PEG-MOVE-NUMBER 2>
+				    ,ACTIVE-MOUSE>
+			       <PICINF-PLUS-ONE ,PBOZ-RESTART-BOX-LOC>
+	 		       <DISPLAY ,RESTART-BOX
+				   <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+			       <PICINF-PLUS-ONE ,PBOZ-SHOW-MOVES-BOX-LOC>
+			       <DISPLAY ,SHOW-MOVES-BOX
+				   <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>)>
+			<SET PEG-SELECTED <>>
+			<SCREEN ,S-TEXT>
+			<CLEAR ,S-TEXT>
+			<COND (<PBOZ-WIN-CHECK>
+			       <SET WON T>
+			       <SETG PEG-PASSAGE-OPENED T>
+			       <SOUND 1> <SOUND 1> <SOUND 1>
+			       <TELL
+"A secret doorway to the north slides open. (Hit X to exit)." CR>
+			       <INC-SCORE 16>)>)
+		       (T ;"LEGAL-MOVE printed and RFALSEd"
+			<SET DONT-CLEAR T>)>>>
+
+<ROUTINE PBOZ-CLICK
+     ("AUX" TL-X TL-Y BR-X BR-Y (CNT 2) PEG-WIDTH PEG-HEIGHT EXPAND-X EXPAND-Y)
+         <PICINF-PLUS-ONE ,PBOZ-RESTART-BOX-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <PICINF ,RESTART-BOX ,PICINF-TBL>
+	 <SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+	 <SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\Z>)>
+	 <PICINF-PLUS-ONE ,PBOZ-SHOW-MOVES-BOX-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <PICINF ,SHOW-MOVES-BOX ,PICINF-TBL>
+	 <SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+	 <SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\Y>)>
+	 <PICINF-PLUS-ONE ,PBOZ-EXIT-BOX-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <PICINF ,EXIT-BOX ,PICINF-TBL>
+	 <SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+	 <SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\X>)>
+	 <PICINF ,EXPAND-HOT-SPOT ,PICINF-TBL>
+         <SET EXPAND-Y <GET ,PICINF-TBL 0>>
+	 <SET EXPAND-X <GET ,PICINF-TBL 1>>
+	 <PICINF ,UNHL-PEG ,PICINF-TBL>
+	 <SET PEG-HEIGHT <GET ,PICINF-TBL 0>>
+	 <SET PEG-WIDTH <GET ,PICINF-TBL 1>>
+	 <REPEAT ()
+		 <SET TL-Y <GET ,BOARD-TABLE .CNT>>
+		 <SET TL-X <GET ,BOARD-TABLE <+ .CNT 1>>>
+		 <SET BR-Y <+ .TL-Y .PEG-HEIGHT>>
+		 <SET BR-X <+ .TL-X .PEG-WIDTH>>
+		 ;"expand the hot spot"
+		 <SET TL-X <- .TL-X .EXPAND-X>>
+		 <SET BR-X <+ .BR-X .EXPAND-X>>
+		 <SET BR-Y <+ .BR-Y .EXPAND-Y>>
+		 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+			<RETURN>)>
+		 <SET CNT <+ .CNT 2>>
+		 <COND (<G? .CNT 43>
+			<SOUND 1>
+			<RETURN>)>>
+	 <COND (<G? .CNT 43>
+		<RETURN ,CLICK1>)
+	       (T ;"divide in half and convert to ASCII"
+		<RETURN <+ </ .CNT 2> 64>>)>>
+
+<ROUTINE SETUP-PBOZ ("AUX" (I 2))
+	 <FSET ,PBOZ-OBJECT ,TOUCHBIT>
+	 <REPEAT ((TT ,PBOZ-PIC-TABLE))
+		 <PICINF-PLUS-ONE <ZGET .TT 0>>
+		 <ZPUT ,BOARD-TABLE .I <ZGET ,PICINF-TBL 0>>
+		 <ZPUT ,BOARD-TABLE <+ .I 1> <ZGET ,PICINF-TBL 1>>
+		 <SET I <+ .I 2>>
+		 <COND (<G? .I 43>
+			<RETURN>)>
+		 <SET TT <ZREST .TT 2>>>
+	 <SCREEN ,S-FULL>
+	 <DISPLAY ,PBOZ-BORDER 1 1>
+	 <SCREEN ,S-WINDOW>
+	 <PICSET ,PBOZ-PICSET-TBL>
+	 <DRAW-PEGS>
+	 <COND (,ACTIVE-MOUSE
+		<PICINF-PLUS-ONE ,PBOZ-RESTART-BOX-LOC>
+		<DISPLAY ,DIM-RESTART-BOX
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,PBOZ-SHOW-MOVES-BOX-LOC>
+		<DISPLAY ,DIM-SHOW-MOVES-BOX
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,PBOZ-EXIT-BOX-LOC>
+		<DISPLAY ,EXIT-BOX <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>)>
+	 <SCREEN ,S-TEXT>>
+
+<CONSTANT PBOZ-PIC-TABLE
+	  <PTABLE ,PBOZ-A-LOC
+		  ,PBOZ-B-LOC
+		  ,PBOZ-C-LOC
+		  ,PBOZ-D-LOC
+		  ,PBOZ-E-LOC
+		  ,PBOZ-F-LOC
+		  ,PBOZ-G-LOC
+		  ,PBOZ-H-LOC
+		  ,PBOZ-I-LOC
+		  ,PBOZ-J-LOC
+		  ,PBOZ-K-LOC
+		  ,PBOZ-L-LOC
+		  ,PBOZ-M-LOC
+		  ,PBOZ-N-LOC
+		  ,PBOZ-O-LOC
+		  ,PBOZ-P-LOC
+		  ,PBOZ-Q-LOC
+		  ,PBOZ-R-LOC
+		  ,PBOZ-S-LOC
+		  ,PBOZ-T-LOC
+		  ,PBOZ-U-LOC>>
+
+<CONSTANT BOARD-TABLE ;"Y and X locations of each peg spot"
+	<ITABLE 44 0>>
+
+<ROUTINE DRAW-PEGS ("AUX" (NUM 1))
+	 <REPEAT ()
+		 <COND (<EQUAL? <GET ,PEG-TABLE .NUM> 1>
+			<DISPLAY ,UNHL-PEG
+				 <GET ,BOARD-TABLE <* .NUM 2>>
+				 <GET ,BOARD-TABLE <+ <* .NUM 2> 1>>>)
+		       (T
+			<DISPLAY <GET ,PEG-BG-PIC-TBL .NUM>
+				 <GET ,BOARD-TABLE <* .NUM 2>>
+				 <GET ,BOARD-TABLE <+ <* .NUM 2> 1>>>)>
+		 <COND (<G? <SET NUM <+ .NUM 1>> 21>
+			<RETURN>)>>>
+
+<CONSTANT PEG-BG-PIC-TBL
+	  <PLTABLE BG-A
+		   BG-B
+		   BG-C
+		   BG-D
+		   BG-E
+		   BG-F
+		   BG-G
+		   BG-H
+		   BG-I
+		   BG-J
+		   BG-K
+		   BG-L
+		   BG-M
+		   BG-N
+		   BG-O
+		   BG-P
+		   BG-Q
+		   BG-R
+		   BG-S
+		   BG-T
+		   BG-U>>
+
+<ROUTINE RESET-PEGBOARD ("AUX" CNT)
+	 <COND (,ACTIVE-MOUSE
+		<SCREEN ,S-WINDOW>
+		<PICINF-PLUS-ONE ,PBOZ-RESTART-BOX-LOC>
+		<DISPLAY ,DIM-RESTART-BOX
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,PBOZ-SHOW-MOVES-BOX-LOC>
+		<DISPLAY ,DIM-SHOW-MOVES-BOX
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<SCREEN ,S-TEXT>)>
+	 <SETG PEG-MOVE-NUMBER 0>
+	 <PUT ,PEG-TABLE 1 1>
+	 <COPYT <REST ,PEG-TABLE 2> <REST ,PEG-TABLE 4> -40>
+	 <PUT ,PEG-TABLE 7 0>
+	 <COPYT ,PEG-MOVE-TABLE 0 80>>
+
+<CONSTANT PEG-TABLE
+	<TABLE 0 ;"zeroth element not used"
+	       1 1 1 1 1 1 0
+	       1 1 1 1 1 1 1
+	       1 1 1 1 1 1 1>>
+
+<ROUTINE LEGAL-MOVE (SELECTED-PEG CHAR "AUX" TBL TBL-SPOT JUMPED-PEG)
+	 <SET CHAR <- .CHAR 64>>
+	 <SET TBL <GET ,LEGAL-MOVE-TABLE .SELECTED-PEG>>
+         <COND (<EQUAL? <GET .TBL 0> .CHAR>
+		<SET TBL-SPOT 0>)
+	       (<EQUAL? <GET .TBL 2> .CHAR>
+		<SET TBL-SPOT 2>)
+	       (<EQUAL? <GET .TBL 4> .CHAR>
+		<SET TBL-SPOT 4>)
+	       (<EQUAL? <GET .TBL 6> .CHAR>
+		<SET TBL-SPOT 6>)
+	       (T
+		<CLEAR ,S-TEXT>
+		<SOUND 1>
+		<TELL
+"Illegal move. You can jump a peg only to a spot which is two spots away.">
+		<RFALSE>)>
+	 <SET JUMPED-PEG <GET .TBL <+ .TBL-SPOT 1>>>
+	 <COND (<EQUAL? <GET ,PEG-TABLE .CHAR> 1> ;"already peg in destination"
+		<CLEAR ,S-TEXT>
+		<SOUND 1>
+		<TELL
+"Illegal move. There's already a peg at spot " C <+ ,LETTER-OFFSET .CHAR> ".">
+		<RFALSE>)
+	       (<EQUAL? <GET ,PEG-TABLE .JUMPED-PEG> 0>
+		<CLEAR ,S-TEXT>
+		<SOUND 1>
+		<TELL
+"Illegal move. There's no peg at spot "
+C <+ ,LETTER-OFFSET .JUMPED-PEG> " to jump.">
+		<RFALSE>)>
+	 <RETURN .JUMPED-PEG>>
+
+<CONSTANT LEGAL-MOVE-TABLE
+	<PTABLE ;"0"     <PTABLE 0 0> ;"not used"
+	        ;"1 = A" <PTABLE 5 3 0 0 0 0 0 0>
+	        ;"2 = B" <PTABLE 4 3 0 0 0 0 0 0>
+	        ;"3 = C" <PTABLE 6 4 8 5 0 0 0 0>
+	        ;"4 = D" <PTABLE 2 3 9 6 11 7 0 0>
+	        ;"5 = E" <PTABLE 1 3 10 7 12 8 0 0>
+	        ;"6 = F" <PTABLE 3 4 8 7 14 9 16 10>
+	        ;"7 = G" <PTABLE 15 10 17 11 0 0 0 0>
+	        ;"8 = H" <PTABLE 3 5 6 7 16 11 18 12>
+	        ;"9 = I" <PTABLE 4 6 11 10 20 14 0 0>
+	       ;"10 = J" <PTABLE 5 7 12 11 0 0 0 0>
+	       ;"11 = K" <PTABLE 4 7 9 10 0 0 0 0>
+	       ;"12 = L" <PTABLE 5 8 10 11 21 18 0 0>
+	       ;"13 = M" <PTABLE 15 14 0 0 0 0 0 0>
+	       ;"14 = N" <PTABLE 6 9 16 15 0 0 0 0>
+	       ;"15 = O" <PTABLE 7 10 13 14 17 16 0 0>
+	       ;"16 = P" <PTABLE 6 10 8 11 14 15 18 17>
+	       ;"17 = Q" <PTABLE 7 11 15 16 19 18 0 0>
+	       ;"18 = R" <PTABLE 8 12 16 17 0 0 0 0>
+	       ;"19 = S" <PTABLE 17 18 0 0 0 0 0 0>
+	       ;"20 = T" <PTABLE 9 14 0 0 0 0 0 0>
+	       ;"21 = U" <PTABLE 12 18 0 0 0 0 0 0>>>
+
+<ROUTINE PBOZ-WIN-CHECK ("AUX" (CNT 1) (PEG-NUM 0))
+	 <COND (,PEG-PASSAGE-OPENED ;"since you can play it even after winning"
+		<RFALSE>)>
+	 <REPEAT ()
+		 <COND (<EQUAL? .CNT 22>
+			<RETURN>)>
+		 <COND (<EQUAL? <GET ,PEG-TABLE .CNT> 1>
+			<SET PEG-NUM <+ .PEG-NUM 1>>)>
+		 <SET CNT <+ .CNT 1>>>
+	 <COND (<AND <EQUAL? .PEG-NUM 1>
+		     <EQUAL? <GET ,PEG-TABLE 7> 1>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE PEG-COUNT ("AUX" (CNT 1) (PEG-NUM 0))
+	 <REPEAT ()
+		 <COND (<EQUAL? .CNT 22>
+			<RETURN>)>
+		 <COND (<EQUAL? <GET ,PEG-TABLE .CNT> 1>
+			<SET PEG-NUM <+ .PEG-NUM 1>>)>
+		 <SET CNT <+ .CNT 1>>>
+	 <RETURN .PEG-NUM>>
+
+<CONSTANT PEG-MOVE-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>>
+
+<CONSTANT LETTER-OFFSET <- <ASCII !\A> 1>>
+
+<GLOBAL PEG-MOVE-NUMBER 0>
+
+<GLOBAL PEG-PASSAGE-OPENED <>>
+
+<ROUTINE DISPLAY-MOVES ("AUX" X Y (CNT 0))
+	 <CLEAR ,S-TEXT>
+	 <COND (<EQUAL? ,PEG-MOVE-NUMBER 0>
+		<TELL "You haven't moved yet!">
+		<RTRUE>)>
+	 <FONT 4> ;"non-proportional spacing"
+	 <REPEAT ()
+		 <SET Y <+ </ <MOD .CNT 10> 2> 1>>
+		 <SET X <+ <* </ .CNT 10> 12> 1>>
+		 <CCURSET .Y .X>
+		 <TELL
+N <+ </ .CNT 2> 1> ") " C <+ ,LETTER-OFFSET <GET ,PEG-MOVE-TABLE .CNT>> " -> "
+C <+ ,LETTER-OFFSET <GET ,PEG-MOVE-TABLE <+ .CNT 1>>>>
+		 <COND (<EQUAL? .CNT <- ,PEG-MOVE-NUMBER 2>>
+			<RETURN>)
+		       (T
+			<SET CNT <+ .CNT 2>>)>>
+	 <FONT 1> ;"proportional spacing">
+
+<ROOM GAMING-ROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Gaming Room")
+      (LDESC
+"This is a plushly carpeted room draped in deeply hued velvets and satins.
+The sole exit is south.")
+      (SOUTH TO PEG-ROOM)
+      (OUT TO WEST-WING)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL CARPET)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-2>)
+      (ACTION GAMING-ROOM-F)>
+
+<ROUTINE GAMING-ROOM-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,ZORKMID-BILL ,TOUCHBIT>>>
+		<SETG DO-J T>
+		<QUEUE I-JESTER 1>)>>
+
+<OBJECT CARPET
+	(LOC LOCAL-GLOBALS) ;"Audience Chamber and Gaming Room"
+	(DESC "carpet")
+	(SYNONYM CARPET CARPETING)
+	(ADJECTIVE PLUSH RED)
+	(ACTION CARPET-F)>
+
+<ROUTINE CARPET-F ()
+	 <COND (<VERB? MOVE LOOK-UNDER RAISE ROLL>
+		<TELL
+"The carpet is quite well attached to the floor." CR>)>>
+
+<ROOM GYM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Gym")
+      (LDESC
+"Dimwit despised all forms of exercise; this room must have been a later
+addition by one of his successors. Doorways lead north and southwest.")
+      (NORTH TO WEST-WING)
+      (SW TO STEAM-BATH)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM GYM)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-2>)
+      (ICON GYM-ICON)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT DUMBBELL
+	(LOC GYM)
+	(DESC "dumbbell")
+	(LDESC
+"A 100-ugh dumbbell is sitting here, looking heavy.")
+	(SYNONYM DUMBBELL WEIGHTS SET)
+	(ADJECTIVE HEAVY 100-UGH)
+	(FLAGS ;PLURALBIT TAKEBIT MAGICBIT)
+	(SIZE 99)
+	(VALUE 12)
+	(ACTION DUMBELL-F)>
+
+<ROUTINE DUMBELL-F ()
+	 <COND (<VERB? RAISE> ;"lift"
+		<TELL
+"You can barely get them off the ground, let alone press them." CR>)
+	       (<VERB? PUSH-DIR>
+		<PERFORM ,V?ROLL-DIR ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL
+"It's a set of 100-ugh weights, small enough to hold in one hand (but
+unless you a pretty awesome athleter, not nearly light enough to hold
+in one hand)." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM STEAM-BATH
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Steam Bath")
+      (LDESC
+"For generations, the Kings of Quendor have come here to sweat off excess
+pounds (which, given their excessive infatuation with chocolate truffles,
+was plenty often). The only exit is northeast.")
+      (NE TO GYM)
+      (OUT TO GYM)
+      (FLAGS RLANDBIT ONBIT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-1>)>
+
+;"east wing"
+
+<ROOM EAST-HALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "East Hall")
+      (EAST TO EAST-WING IF EAST-DOOR IS OPEN)
+      (NW TO COURTYARD)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL EAST-DOOR LOCK-OBJECT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)
+      (ACTION EAST-HALL-F)>
+
+<ROUTINE EAST-HALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The castle's east wing lies through a massive door to the east, which is ">
+		<OPEN-CLOSED ,EAST-DOOR>
+		<TELL ". The only other exit from the hall is northwest.">)>>
+
+<OBJECT EAST-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(ADJECTIVE LARGE HEAVY OAK OAKEN)
+	(FLAGS LOCKEDBIT DOORBIT)
+	(ACTION EAST-DOOR-F)>
+
+<ROUTINE EAST-DOOR-F ()
+	 <COND (<AND <VERB? UNLOCK>
+		     <FSET? ,EAST-DOOR ,LOCKEDBIT>
+		     <PRSI? ,EAST-KEY>>
+		<FCLEAR ,EAST-DOOR ,LOCKEDBIT>
+		<LOCKED-UNLOCKED ,EAST-DOOR T>)
+	       (<AND <VERB? LOCK>
+		     <NOT <FSET? ,EAST-DOOR ,LOCKEDBIT>>
+		     <PRSI? ,EAST-KEY>>
+		<FSET ,EAST-DOOR ,LOCKEDBIT>
+		<LOCKED-UNLOCKED ,EAST-DOOR>)>>
+
+<ROOM EAST-WING
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "East Wing")
+      (LDESC
+"This wide corridor runs the length of the east wing of the castle. The
+corridor ends at a large door to the west. There are openings to the north,
+south and east.")
+      (WEST TO EAST-HALL IF EAST-DOOR IS OPEN)
+      (SOUTH TO CHAPEL)
+      (NORTH TO LIBRARY)
+      (EAST TO GUEST-ROOMS)
+      (GLOBAL EAST-DOOR LOCK-OBJECT)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 8)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>)
+      (ICON EAST-WING-ICON)>
+
+<ROOM GUEST-ROOMS
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Guest Rooms")
+      (LDESC
+"This is where visitors to the castle would stay. Many stayed for decades.
+Passages lead east and west.")
+      (EAST TO SERVANTS-QUARTERS)
+      (WEST TO EAST-WING)
+      (FLAGS RLANDBIT ONBIT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT WAND
+	(LOC GUEST-ROOMS)
+	(DESC "wand")
+	(FDESC
+"It seems that a wizard must have been a recent guest at the castle, since
+a rather typical wizardly wand is lying here.")
+	(SYNONYM WAND WANDS)
+	(ADJECTIVE TYPICAL WIZARDLY INANIMATION MAGIC)
+	(FLAGS TAKEBIT READBIT)
+	(RESEARCH
+"\"Wands are among the most useful forms of magic; the wand is merely
+pointed at the object to be ensorcelled.\"")
+	(SIZE 3)
+	(ACTION WAND-F)>
+
+<GLOBAL WAND-LIFE 5>
+
+<ROUTINE WAND-F ()
+	 <COND (<VERB? EXAMINE READ>
+		<TELL
+"The name \"Fisha\" is engraved on the wand in tiny script, followed
+by the phrase \"16 minute model.\"" CR>)
+	       (<AND <VERB? POINT>
+		     <PRSO? ,WAND>>
+		<MOVE ,WAND ,PROTAGONIST> ;"in case it's in a container"
+		<COND (<PRSI? ,WAND>
+		       <TELL
+"Point the wand at itself!?! It isn't made of rubber!" CR>
+		       <RTRUE>)
+		      (,TIME-STOPPED
+		       <TELL
+"The wand's magic seems as frozen as time itself." CR>
+		       <RTRUE>)
+		      (<EQUAL? ,WAND-LIFE 0>
+		       <TELL "Nothing. The wand seems to be used up." CR>
+		       <RTRUE>)>
+		<SETG WAND-LIFE <- ,WAND-LIFE 1>>
+		<COND (<AND <GETP ,PRSI ,P?INANIMATE-DESC>
+			    <FSET? ,PRSI ,ANIMATEDBIT>>
+		       <COND (<PRSI? ,FOX>
+			      <FSET ,PRSI ,WEARBIT>)>
+		       <QUEUE <GETP ,PRSI ,P?ANIMATE-ROUTINE> 17>
+		       <FCLEAR ,PRSI ,ANIMATEDBIT>
+		       <FCLEAR ,PRSI ,ACTORBIT>
+		       <FSET ,PRSI ,TOUCHBIT>
+		       <THIS-IS-IT ,PRSI>
+		       <TELL <GETP ,PRSI ,P?WAND-TEXT> CR>)
+		      (<OR <FSET? ,PRSI ,BLACKBIT>
+			   <FSET? ,PRSI ,WHITEBIT>>
+		       <TELL
+"The " D ,PRSO " seems to grow sluggish for a moment, but
+there is no other effect." CR>)
+		      (<AND <VERB? POINT>
+			    <PRSI? ,JESTER>>
+		       <TELL
+"The jester's expression turns stony. In fact, the jester himself turns stony,
+as he becomes a statue! After a moment, hairline cracks begin forming across
+the statue. The cracks widen and multiply, and the entire statue collapses into
+a cloud of dust! You hear an echo of laughter as the dust disperses.">
+		       <COND (<IN? ,SHELL-TABLE ,HERE>
+			      <TELL
+" The table and shells disappear as well.">)>
+		       <CRLF>
+		       <REMOVE-J>
+		       <SETG J-DISPOSED ,MOVES>
+		       <RTRUE>)
+		      (<PRSI? ,BEDBUG>
+		       <REMOVE ,BEDBUG>
+		       <TELL
+"The bedbug freezes, becoming a small armored tank. You are
+surrounded by raucous laughter from an invisible source, and
+the bedbug/tank disappears!" CR>)
+		      (<PRSI? ,LARGE-FLY ,LARGER-FLY ,EVEN-LARGER-FLY
+			      ,LARGEST-FLY>
+		       <TELL
+"Zap! A bolt of magic just misses the fly. Oh, well. It seems that even
+though it's large for a fly, it's small for a magic wand target." CR>)
+		      (<PRSI? ,OTTO>
+		       <REMOVE ,OTTO>
+		       <QUEUE I-STONE-TO-OTTO 17>
+		       <TELL "Otto ">
+		       <COND (<AND <FSET? ,SPYGLASS ,TRYTAKEBIT>
+				   <NOT <IN? ,SPYGLASS ,OTTO>>>
+			      <MOVE ,SPYGLASS ,OTTO>
+			      <TELL "grabs the spyglass just before he ">)>
+		       <TELL
+"transforms into a massive stone toad, just like the ones that flank the
+Flatheadia Courthouse. His weight is now too much for even the largest of
+lily pads to bear, and he sinks into the swamp with a sickening slurp." CR>)
+		      (<PRSI? ,BROGMOID>
+		       <TELL
+"A few of the brogmoid's cells may have frozen; if the wand were twenty
+bloits long, it might have a chance of affecting this enormous brogmoid." CR>)
+		      (<PRSI? ,SICKLY-WITCH ,PRICKLY-WITCH>
+		       <TELL
+"A magical shield springs up around the witch. \"Your weak powers are
+useless against us, simple adventurer!\" cackles the crone." CR>)
+		      (<FSET? ,PRSI ,PLANTBIT>
+		       <TELL
+"No effect;" T ,PRSI " wasn't all that animate to begin with." CR>)
+		      (<PRSI? ,UNICORNS>
+		       <JIGS-UP
+"One of the unicorns stiffens; its mate is understandably disturbed and, in an
+un-unicorn-like display of temper, impales you on the tip of a pointy horn.">)
+		      (<PRSI? ,THOUSANDS-OF-SNAKES>
+		       <TELL
+"One of the snakes stops moving, but is instantly swallowed up
+by the writhing mass." CR>)
+		      (<PRSI? ,ME>
+		       <JIGS-UP
+"You turn into a handsome statue of yourself. A pigeon swoops down, lands on
+your head, and gives a pigeony whistle which translates roughly to, \"Hey,
+guys, I've found a really great new statue for shitting on!\" Several thousand
+additional pigeons swoop down, and you're crushed to dust under the resultant
+tonnage of excrement.">)
+		      (<PRSI? ,EXECUTIONER>
+		       <JIGS-UP
+"The executioner solidifies into a stone statue of himself! After a pair
+of grunting guards finish dragging him away and a replacement executioner
+arrives, you are led into a back room, where people who deserve something
+even worse than hanging are taken.">)
+		      (T
+		       <TELL
+"You feel a crackle of magical energy, but there doesn't seem to be any
+effect on" TR ,PRSI>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM SERVANTS-QUARTERS
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Servants' Quarters")
+      (LDESC
+"These are the spartan rooms where the servants lived (if you can actually call
+this \"living\"). A passage leads west and a narrow stair spirals upward.")
+      (WEST TO GUEST-ROOMS)
+      (UP TO JESTERS-QUARTERS)
+      (FLAGS RLANDBIT)
+      (SYNONYM QUARTERS)
+      (ADJECTIVE SERVANT\'S)
+      (GLOBAL STAIRS)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-10>)>
+
+<ROOM CHAPEL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Chapel")
+      (LDESC
+"None of the Flatheads were particularly religious, but that didn't stop
+Dimwit from building the biggest chapel in all of Quendor. The exit is north,
+at the rear of the chapel. Just below the altar is a small trap door.")
+      (NORTH TO EAST-WING)
+      (DOWN TO CRYPT IF TRAP-DOOR IS OPEN)
+      (SYNONYM CHAPEL)
+      (GLOBAL TRAP-DOOR)
+      (FLAGS RLANDBIT ONBIT)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>)
+      (ICON CHAPEL-ICON)>
+
+<OBJECT CHAPEL-ALTAR
+	(LOC CHAPEL)
+	(DESC "altar")
+	(SYNONYM ALTAR)
+	(FLAGS NDESCBIT VOWELBIT SURFACEBIT SEARCHBIT CONTBIT OPENBIT)>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+"lower level"
+
+<ROOM LOWER-HALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Lower Hall")
+      (LDESC
+"This large hall, barely illuminated by your light, has seen its better
+days; based on the dust and debris, the lower levels of the castle probably
+haven't been maintained since Dimwit's death. Stairs lead up and down; the
+latter stair looks particularly forbidding. Passages head off to the north,
+south, southeast, and southwest.")
+      (NORTH TO LABORATORY)
+      (SOUTH TO KENNELS)
+      (SW TO G-U-HIGHWAY)
+      (SE TO ROYAL-ZOO)
+      (DOWN TO LOWEST-HALL)
+      (UP TO GREAT-HALL)
+      (FLAGS RLANDBIT)
+      (GLOBAL STAIRS)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)>
+
+<ROOM LABORATORY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Laboratory")
+      (LDESC
+"You have entered the lab that was affectionately known as Froblo Park.
+The main exit is south, but there's a narrow doorway on the north wall.")
+      (SOUTH TO LOWER-HALL)
+      (NORTH TO TESTING-ROOM)
+      (FLAGS RLANDBIT)
+      (SYNONYM LABORATORY)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>)
+      (ICON LABORATORY-ICON)>
+
+<OBJECT SCREWDRIVER
+	(LOC LABORATORY)
+	(DESC "screwdriver")
+	(FDESC "Sitting on the lab bench is an old screwdriver.")
+	(SYNONYM SCREWDRIVER DRIVER)
+	(ADJECTIVE SCREW OLD)
+	(FLAGS TAKEBIT MAGICBIT)
+	(VALUE 12)>
+
+<ROOM TESTING-ROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Testing Room")
+      (LDESC
+"This is where certain dangerous experiments would take place. There
+are two large booths, one on the left side of the room, the other on
+the right side. The only exit is south.")
+      (SOUTH TO LABORATORY)
+      (OUT TO LABORATORY)
+      (FLAGS RLANDBIT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>)>
+
+<OBJECT LEFT-BOOTH
+	(LOC TESTING-ROOM)
+	(DESC "left booth")
+	(SYNONYM BOOTH)
+	(ADJECTIVE LEFT)
+	(FLAGS NDESCBIT VEHBIT INBIT DROPBIT CONTBIT OPENBIT SEARCHBIT)
+	(GENERIC G-BOOTH-F)
+	(CAPACITY 60)
+	(ACTION BOOTH-F)>
+
+<OBJECT RIGHT-BOOTH
+	(LOC TESTING-ROOM)
+	(DESC "right booth")
+	(SYNONYM BOOTH)
+	(ADJECTIVE RIGHT)
+	(FLAGS NDESCBIT VEHBIT INBIT DROPBIT CONTBIT OPENBIT SEARCHBIT)
+	(GENERIC G-BOOTH-F)
+	(CAPACITY 60)
+	(ACTION BOOTH-F)>
+
+<ROUTINE G-BOOTH-F (TBL LEN)
+	 <COND (<IN? ,PROTAGONIST ,LEFT-BOOTH>
+		,LEFT-BOOTH)
+	       (<IN? ,PROTAGONIST ,RIGHT-BOOTH>
+		,RIGHT-BOOTH)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE BOOTH-F ("OPTIONAL" (VARG <>))
+	 <COND (<AND .VARG
+		     <NOT <EQUAL? .VARG ,M-ENTER>>>
+		<RFALSE>)
+	       (.VARG
+		<COND (<FSET? ,PRSO ,TOUCHBIT>
+		       <RFALSE>)
+		      (T
+		       <TELL " ">
+		       <PERFORM ,V?EXAMINE ,PRSO>
+		       <RTRUE>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The only feature of the booth is an ominous black button." CR>)>>
+
+<OBJECT LEFT-BOOTH-BUTTON
+	(LOC LEFT-BOOTH)
+	(DESC "ominous black button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE OMINOUS BLACK)
+	(FLAGS NDESCBIT)
+	(GENERIC G-BUTTON-F)
+	(ACTION BOOTH-BUTTON-F)>
+
+<OBJECT RIGHT-BOOTH-BUTTON
+	(LOC RIGHT-BOOTH)
+	(DESC "ominous black button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE OMINOUS BLACK)
+	(GENERIC G-BUTTON-F)
+	(FLAGS NDESCBIT)
+	(ACTION BOOTH-BUTTON-F)>
+
+<ROUTINE G-BUTTON-F (TBL LEN)
+	 <COND (<IN? ,PROTAGONIST ,RIGHT-BOOTH>
+		,RIGHT-BOOTH-BUTTON)
+	       (<IN? ,PROTAGONIST ,LEFT-BOOTH>
+		,LEFT-BOOTH-BUTTON)
+	       (T
+		;<TELL ,YOU-CANT-SEE-ANY "button here.]" CR>
+		,NOT-HERE-OBJECT ;,ROOMS)>>
+
+<GLOBAL TURNED-INTO <>>
+
+<ROUTINE BOOTH-BUTTON-F ("AUX" OTHER-BOOTH THE-FLY)
+	<COND (<VERB? PUSH>
+	       <COND (,ALLIGATOR
+		      <TELL "Impossible, in your current state." CR>
+		      <RTRUE>)>
+	       <REMOVE ,LEFT-BOOTH-BUTTON>
+	       <REMOVE ,RIGHT-BOOTH-BUTTON>
+	       <SET OTHER-BOOTH <COND (<IN? ,PROTAGONIST ,RIGHT-BOOTH>
+				       ,LEFT-BOOTH)
+				      (T
+				       ,RIGHT-BOOTH)>>
+	       <SET THE-FLY <FIRST? .OTHER-BOOTH>>
+	       <COND (<OR <NOT .THE-FLY> ;"other booth is empty"
+			  <NEXT? .THE-FLY>> ;"two things in other booth"
+		      <TELL ,NOTHING-HAPPENS>)
+		     (T
+		      <QUEUE I-UNTURN 5>
+		      <SETG TURNED-INTO .THE-FLY>
+		      <DEQUEUE I-UNALLIGATOR>
+		      <TELL "You turn into" A .THE-FLY>
+		      <COND (<AND <EQUAL? .THE-FLY ,WORM>
+				  <VISIBLE? ,ROOSTER>
+				  <FSET? ,ROOSTER ,ANIMATEDBIT>>
+			     <JIGS-UP
+". The rooster happily nibbles you up for a snack.">)
+			    (<AND <EQUAL? .THE-FLY ,ROOSTER>
+				  <VISIBLE? ,FOX>
+				  <FSET? ,FOX ,ANIMATEDBIT>>
+			     <JIGS-UP
+". The fox is only too glad to make you its dinner.">)
+			    (<FIRST? ,PROTAGONIST>
+			     <TELL ", dropping your possessions.">
+			     <ROB ,PROTAGONIST <LOC ,PROTAGONIST>>)
+			    (T
+			     <TELL ".">)>
+		      <CRLF>)> 
+	       <MOVE ,LEFT-BOOTH-BUTTON ,LEFT-BOOTH>
+	       <MOVE ,RIGHT-BOOTH-BUTTON ,RIGHT-BOOTH>)>>
+
+<ROUTINE I-UNTURN ()
+	 <RETURN-FROM-MAP>
+	 <TELL
+"   Waves of relief. You're no longer" AR ,TURNED-INTO>
+	 <SETG TURNED-INTO <>>
+	 <RTRUE>>
+
+<ROUTINE TO-SPEAK-OF (STRING)
+	 <TELL "Ummm..." A ,TURNED-INTO " has no " .STRING " to speak of." CR>>
+
+<ROUTINE GOOD-MEAL (OBJ)
+	 <REMOVE .OBJ>
+	 <TELL "Yum!">
+	 <COND (<G? ,HUNGER-COUNT 0>
+		<TELL " Your hunger fades." CR>
+		<DEQUEUE I-HUNGER>
+		<SETG HUNGER-COUNT 0>
+		<INC-SCORE 20>)
+	       (T
+		<CRLF>)>>
+
+<ROOM KENNELS
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Kennels")
+      (LDESC
+"This was once where the royal bloodhounds lived. Considering the size
+of the leash and collar fragments scattered around, the royal bloodhounds
+were BIG. Passages lead east and north.")
+      (NORTH TO LOWER-HALL)
+      (EAST TO ROYAL-ZOO)
+      (FLAGS RLANDBIT)
+      (SYNONYM KENNEL KENNELS)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>)
+      (ICON KENNELS-ICON)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT TOBOGGAN
+	(LOC KENNELS)
+	(DESC "toboggan")
+	(SYNONYM TOBOGGAN SLED INSCRIPTION)
+	(FLAGS TAKEBIT READBIT VEHBIT CONTBIT OPENBIT SEARCHBIT SURFACEBIT)
+	(CAPACITY 30)
+	(SIZE 20)
+	(ACTION TOBOGGAN-F)
+	(TEXT
+"A large inscription says, \"Made by the Frobozz Magic Toboggan Company.\"
+Below that is a faded image of a blooming morgia plant, with the name
+\"Morgiabud.\" It's possible that this sled may have once belonged to
+publishing giant William Randolph Flathead (a.k.a. \"Citizen Flathead\").")>
+
+<ROUTINE TOBOGGAN-F ("OPTIONAL" VARG)
+	 <COND (.VARG
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<COND (<NOUN-USED? ,TOBOGGAN ,W?INSCRIPTION>
+		       <PERFORM ,V?READ ,TOBOGGAN>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"This one-person sled bears a small inscription. ">
+		       <RFALSE> ;"there's no one on the toboggan, etc.")>)
+	       (<AND <VERB? ENTER>
+		     <EQUAL? ,HERE ,GLACIER>>
+		<MOVE ,TOBOGGAN ,MIRROR-LAKE>
+		<COND (<NOT ,ENCHANTED-ORB>
+		       <SETG ENCHANTED-ORB <COND (<PROB 25> ,MILKY-ORB)
+						 (<PROB 33> ,SMOKY-ORB)
+						 (<PROB 50> ,FIERY-ORB)
+						 (T ,GLITTERY-ORB)>>)>
+		<TELL
+"As you sit on the toboggan, it begins to slide down the mountain, gathering
+speed as it goes. The passing landscape begins to blur, and then even the blur
+is gone as the icy wind forces your eyes shut. Suddenly, with a jolt like a
+mighty hand grabbing you, you are still! You open your eyes" ,ELLIPSIS>
+		<GOTO ,TOBOGGAN>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM ROYAL-ZOO
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Royal Zoo")
+      (LDESC
+"Dimwit loved zoos, because he loved imprisonment of any kind -- if the
+dungeons were full of prisoners he could at least get some joy from
+throwing a couple of minxes behind bars. This zoo, with 69,105 cages,
+is easily the largest in Quendor. There are passages to the west and
+northwest, and a wide tunnel leads east.")
+      (NW TO LOWER-HALL)
+      (WEST TO KENNELS)
+      (EAST TO WEST-SHORE)
+      (FLAGS RLANDBIT)
+      (SYNONYM ZOO)
+      (ADJECTIVE ROYAL)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)
+      (ICON ROYAL-ZOO-ICON)>
+
+<OBJECT CAGE
+	(LOC ROYAL-ZOO)
+	(DESC "cage")
+	(FDESC
+"The zoo has been extensively looted; only one of the many nearby cages
+still seems to be occupied.")
+	(SYNONYM CAGE)
+	(FLAGS CONTBIT SEARCHBIT TRANSBIT)
+	(ACTION CAGE-F)>
+
+<ROUTINE CAGE-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<AND <IN? ,SNAKE ,CAGE>
+			    <FSET? ,SNAKE ,ANIMATEDBIT>>
+		       <JIGS-UP
+"As you open the door, the snake, with blurring speed, strikes at your hand.
+Tendrils of poison reach through your veins and grab your heart...">)
+		      (T
+		       <FSET ,CAGE ,TOUCHBIT>
+		       <RFALSE>)>)
+	       (<VERB? COUNT>
+		<TELL "Thousands." CR>)
+	       (<VERB? ENTER>
+		<TELL "The cage is too small for a human." CR>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT SNAKE
+	(LOC CAGE)
+	(DESC "snake")
+	(SYNONYM SNAKE ROPE)
+	(FLAGS TAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "rope")
+	(WAND-TEXT
+"The snake shivers and shimmers and is then still. Too still. You approach,
+tentatively at first, then with more conviction. The snake is gone, replaced
+by (or turned into!) a good, heavy rope.")
+	(ANIMATE-ROUTINE I-W-SNAKE)
+	(ACTION SNAKE-F)>
+
+<ROUTINE SNAKE-F ()
+	 <COND (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,SNAKE ,W?SNAKE>>
+		<TELL "\"A common animal, best kept caged.\"" CR>)
+	       (<FSET? ,SNAKE ,ANIMATEDBIT>
+		<COND (<VERB? LET-OUT>
+		       <PERFORM ,V?OPEN ,CAGE>
+		       <RTRUE>)
+		      (<VERB? EXAMINE MEASURE>
+		       <TELL
+"The snake is thin and perhaps as much as twenty feet long." CR>)>)
+	       ;"clause from here on down are for the rope"
+	       (<AND <VERB? TIE>
+		     <PRSO? ,SNAKE>>
+		<COND (<PRSI? ,SPIRE>
+		       <SETG ROPE-PLACED T>
+		       <MOVE ,SNAKE ,HERE>
+		       <TELL
+"You tie the rope to the spire, dropping the other end down the cliff face.
+It reaches most of the way toward the lower ledge." CR>)
+		      (<FSET? ,PRSI ,PLANTBIT> ;"trees"
+		       <WASTES>)
+		      (T
+		       <TELL ,YOU-CANT "tie the rope to" TR ,PRSI>)>)
+	       (<AND <VERB? UNTIE>
+		     ,ROPE-PLACED>
+		<SETG ROPE-PLACED <>>
+		<TELL "You untie the rope from the spire." CR>)
+	       (<AND <VERB? CLIMB-DOWN>
+		     ,ROPE-PLACED>
+		<DO-WALK ,P?DOWN>)
+	       (<VERB? EXAMINE MEASURE>
+		<TELL "The rope is about twenty feet long." CR>)>>
+
+<ROUTINE I-W-SNAKE ("AUX" (TOLD <>))
+	 <FSET ,SNAKE ,ANIMATEDBIT>
+	 <COND (<IN? ,SNAKE ,LAKE-BOTTOM>
+		<REMOVE ,SNAKE>)
+	       (<VISIBLE? ,SNAKE>
+		<RETURN-FROM-MAP>
+	 	<SET TOLD T>
+		<TELL
+"   The rope ripples with increasing force. It has returned to the form of
+a snake! The snake squirms with anger">
+	 	<COND (<AND <EQUAL? ,HERE ,UPPER-LEDGE>
+			    ,ROPE-PLACED>
+		       <TELL
+", uncurls from the spire, and drops out of sight!" CR>)
+		      (<AND <IN? ,SNAKE ,CAGE>
+			    <NOT <FSET? ,CAGE ,OPENBIT>>>
+		       <TELL ,PERIOD-CR>)
+	       	      (<AND <ULTIMATELY-IN? ,SNAKE>
+			    <NOT <IN? ,SNAKE ,WALDO>>>
+		       <JIGS-UP " and bites you viciously on the wrist.">)
+		      (T
+		       <COND (<FSET? <LOC ,SNAKE> ,ACTORBIT>
+			      <TELL
+", nearly bites" T <LOC ,SNAKE> " on the wrist, drops to the ground,">)>
+		       <TELL " and wriggles quickly out of sight." CR>)>)
+	       (<AND <EQUAL? ,HERE ,LOWER-LEDGE>
+		     ,ROPE-PLACED>
+		<RETURN-FROM-MAP>
+		<SET TOLD T>
+		<TELL
+"   A writhing snake drops from above! It strikes out at you but, fortunately,
+misses. Hissing angrily, it disappears into a narrow crack." CR>)>
+	 <SETG ROPE-PLACED <>>
+	 <COND (<OR <NOT <IN? ,SNAKE ,CAGE>>
+		    <FSET? ,CAGE ,OPENBIT>>
+		<REMOVE ,SNAKE>)>
+	 <COND (.TOLD
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM LOWEST-HALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Lowest Hall")
+      (LDESC
+"You get the feeling that no ray of light has touched these walls in ages.
+Few have even ventured down here since the Curse was laid upon the castle
+those many years ago. A decrepit stair leads upward, and there's an opening
+to the north. The bottom of a steep, gravelly passage is visible to the
+east. To the south is the most massively reinforced door you've ever seen.
+A rickety ladder can take you down to even lower domains.")
+      (NORTH TO PASSAGE-STORAGE-ROOM)
+      (SOUTH TO VAULT IF VAULT-DOOR IS OPEN)
+      (EAST SORRY "You can't get a footing on the steep, gravelly passage.")
+      (UP TO LOWER-HALL)
+      (FLAGS RLANDBIT)
+      (DOWN TO PITS)
+      (GLOBAL VAULT VAULT-DOOR LOCK-OBJECT FIXED-LADDER STAIRS)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>)>
+
+<OBJECT VAULT-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "vault door")
+	(SYNONYM DOOR)
+	(ADJECTIVE VAULT)
+	(FLAGS DOORBIT LOCKEDBIT)
+	(ACTION VAULT-DOOR-F)>
+
+<ROUTINE VAULT-DOOR-F ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,LOWEST-HALL>>
+		<TELL "A large dial is set into the center of the door. ">
+		<RFALSE>)
+	       (<AND <VERB? LOCK>
+		     <PRSO? ,VAULT-DOOR>>
+		<COND (<FSET? ,VAULT-DOOR ,OPENBIT>
+		       <DO-FIRST "close" ,VAULT-DOOR>)
+		      (<FSET? ,VAULT-DOOR ,LOCKEDBIT>
+		       <TELL "It is!" CR>)
+		      (T
+		       <SETG P-NUMBER <RANDOM 2570>>
+		       <PERFORM ,V?SET ,DIAL ,INTNUM>
+		       <RTRUE>)>)
+	       (<AND <VERB? UNLOCK>
+		     <FSET? ,PRSI ,KEYBIT>>
+		<TELL "This is a combination lock, not a key lock." CR>)>>
+
+<OBJECT DIAL
+	(LOC LOWEST-HALL)
+	(DESC "dial")
+	(SYNONYM DIAL)
+	(ADJECTIVE LARGE)
+	(FLAGS NDESCBIT)
+	(OWNER VAULT-DOOR)
+	(ACTION DIAL-F)>
+
+<GLOBAL DIAL-NUMBER 0>
+
+<ROUTINE DIAL-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The dial is currently turned to " N ,DIAL-NUMBER ". It can be set to any
+number between 1 and 2570." CR>)
+	       (<AND <VERB? SET-DIR>
+		     <PRSI? ,LEFT-RIGHT>>
+		<PERFORM ,V?SET ,DIAL>
+		<RTRUE>)
+	       (<VERB? SET>
+		<COND (<NOT ,PRSI>
+		       <TELL
+"[You must say what number to turn the dial to, as in TURN DIAL TO 920.]" CR>)
+		      (<NOT <PRSI? ,INTNUM>>
+		       <IMPOSSIBLES>)
+		      (<OR <G? ,P-NUMBER 2570>
+			   <L? ,P-NUMBER 1>>
+		       <TELL "That's not one of the numbers on the dial." CR>)
+		      (<EQUAL? ,DIAL-NUMBER ,P-NUMBER>
+		       <TELL
+"The dial is already set to " N ,P-NUMBER ,PERIOD-CR>)
+		      (<AND <NOT <FSET? ,VAULT-DOOR ,OPENBIT>>
+			    <NOT <FSET? ,VAULT-DOOR ,LOCKEDBIT>>>
+		       <SETG DIAL-NUMBER ,P-NUMBER>
+		       <FSET ,VAULT-DOOR ,LOCKEDBIT>
+		       <TELL
+"The tumblers tumble as the vault door re-locks." CR>)
+		      (<AND <FSET? ,GLOVE ,WORNBIT>
+			    <FSET? ,VAULT-DOOR ,LOCKEDBIT>>
+		       <SETG DIAL-NUMBER <RANDOM 2570>>
+		       <FCLEAR ,VAULT-DOOR ,LOCKEDBIT>
+		       <TELL
+"As you turn the dial with your gloved hand, you can almost feel the tumblers
+turning as though they were an extension of your own fingers! Fascinated, you
+keep spinning, and as you pass " N ,DIAL-NUMBER ", you feel a sense of tactile
+perfection, and stop. A faint click ripples up your arm." CR>) 
+		      (T
+		       <SETG DIAL-NUMBER ,P-NUMBER>
+		       <TELL
+"The dial is now set to " N ,DIAL-NUMBER ,PERIOD-CR>)>)>>
+
+<ROOM VAULT
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Vault")
+      (LDESC
+"This was just the vault where Dimwit stored his trifles; his valuables
+were stored in a hidden vault buried seven miles under the Flathead
+Mountains, accessible only by a chain of sixty-three secret teleportation
+spells. The only exit is north.")
+      (NORTH TO LOWEST-HALL IF VAULT-DOOR IS OPEN)
+      (OUT TO LOWEST-HALL IF VAULT-DOOR IS OPEN)
+      (FLAGS RLANDBIT)
+      (GLOBAL VAULT-DOOR)
+      (SYNONYM VAULT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>)
+      (ICON VAULT-ICON)
+      (ACTION VAULT-F)>
+
+<ROUTINE VAULT-F ("OPT" (RARG <>))
+	 <COND (.RARG
+		<RFALSE>)
+	       (<AND <VERB? OPEN CLOSE LOCK UNLOCK>
+		     <PRSO? ,VAULT ,GLOBAL-HERE>>
+		<PERFORM-PRSA ,VAULT-DOOR ,PRSI>)>>
+
+<OBJECT STOCK-CERTIFICATE
+	(LOC VAULT)
+	(DESC "stock certificate")
+	(SYNONYM CERTIFICATE STOCK)
+	(ADJECTIVE STOCK RARE)
+	(FLAGS TAKEBIT BURNBIT READBIT MAGICBIT)
+	(VALUE 12)
+	(SIZE 2)
+	(TEXT
+"The certificate reads \"FrobozzCo International -- 923,130,877 shares.\"")>
+
+<ROOM PASSAGE-STORAGE-ROOM
+	(LOC ROOMS)
+        (REGION "Flatheadia")
+	(DESC "Passage Storage Room")
+	(LDESC
+"This is a tremendous warehouse where passageways and tunnels would be stored
+before being installed as part of the Great Underground Empire. The only exit
+is south.")
+	(SOUTH TO LOWEST-HALL)
+	(OUT TO LOWEST-HALL)
+	(FLAGS RLANDBIT)
+	(MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+	(ICON PASSAGE-STORAGE-ICON)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT NW-SE-PASSAGE
+	(LOC PASSAGE-STORAGE-ROOM)
+	(DESC "northwest-southeast passage")
+	(SYNONYM PASSAGE PASSAGEWAY)
+	(ADJECTIVE MAGIC NW ;NORTHWEST NW-SE SLIGHTLY IRREGULAR)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(DESCFCN NW-SE-PASSAGE-F)
+	(OWNER <>)
+	(SIZE 25)
+	(ACTION PASSAGE-F)>
+
+<ROUTINE NW-SE-PASSAGE-F (OARG)
+	 <COND (<EQUAL? .OARG ,M-OBJDESC?>
+		<RTRUE>)>
+	 <TELL "   ">
+	 <D-PASSAGE ,NW-SE-PASSAGE>>
+
+<OBJECT N-S-PASSAGE
+	(LOC PASSAGE-STORAGE-ROOM)
+	(DESC "north-south passage")
+	(SYNONYM PASSAGE PASSAGEWAY)
+	(ADJECTIVE MAGIC NORTH-SOUTH N-S SLIGHTLY DAMAGED)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(DESCFCN N-S-PASSAGE-F)
+	(OWNER <>)
+	(SIZE 25)
+	(ACTION PASSAGE-F)>
+
+<ROUTINE N-S-PASSAGE-F (OARG)
+	 <COND (<EQUAL? .OARG ,M-OBJDESC?>
+		<RTRUE>)>
+	 <TELL "   ">
+	 <D-PASSAGE ,N-S-PASSAGE>>
+
+<ROUTINE PASSAGE-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,PRSO ,TRYTAKEBIT>>
+		<MOVE ,PRSO ,PROTAGONIST>
+		<MOVE ,NOTICE ,HERE>
+		<FCLEAR ,N-S-PASSAGE ,TRYTAKEBIT>
+		<FCLEAR ,NW-SE-PASSAGE ,TRYTAKEBIT>
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL
+"As you take" T ,PRSO ", a notice flutters to the ground." CR>)
+	       (<VERB? EXAMINE>
+		<COND (<FSET? ,PRSO ,TAKEBIT>
+		       <TELL
+"The passage is made out of the same material as donut holes.
+Once installed, it should be wide enough to walk through, and
+it's probably about a hundredth of a bloit long." CR>)
+		      (T
+		       <D-PASSAGE ,PRSO>
+		       <CRLF>)>)
+	       (<VERB? ENTER>
+		<COND (<FSET? ,PRSO ,TAKEBIT>
+		       <TELL "The passage hasn't been installed yet!" CR>)
+		      (<PRSO? ,N-S-PASSAGE>
+		       <DO-WALK ,N-S-PASSAGE-DIR>)
+		      (T
+		       <DO-WALK ,NW-SE-PASSAGE-DIR>)>)>>
+
+<ROUTINE D-PASSAGE (PASSAGE)
+	 <COND (<NOT <FSET? .PASSAGE ,TOUCHBIT>>
+		<COND (<EQUAL? .PASSAGE ,N-S-PASSAGE>
+		       <TELL
+"Discarded in the corner is a north-south passage, slightly
+damaged but perfectly usable.">)
+		      (T
+		       <TELL
+"A northwest-southeast passage is lying here. It is marked as being
+slightly irregular, but nobody other than one of the bureaucratic
+Passage Inspectors would ever notice.">)>)
+	       (<FSET? .PASSAGE ,TAKEBIT>
+		<TELL
+"A magic " D .PASSAGE " is just lying around in the middle
+of the room, uninstalled.">)
+	       (T
+		<TELL "A magic " D .PASSAGE " has been installed in the ">
+		<COND (<EQUAL? .PASSAGE ,N-S-PASSAGE>
+		       <COND (<EQUAL? ,HERE ,CONSTRUCTION>
+			      <COND (<EQUAL? <GET ,NORTH-EXITS 0>
+					     <+ ,CONSTRUCTION-LOC 100>>
+				     <TELL "north">)
+				    (T
+				     <TELL "south">)>)
+			     (<EQUAL? ,N-S-PASSAGE-DIR ,P?NORTH>
+			      <TELL "north">)
+			     (T
+			      <TELL "south">)>)
+		      (T
+		       <COND (<EQUAL? ,HERE ,CONSTRUCTION>
+			      <COND (<EQUAL? <GET ,SE-EXITS 0>
+					     <+ ,CONSTRUCTION-LOC 100>>
+				     <TELL "southeast">)
+				    (T
+				     <TELL "northwest">)>)
+			     (<EQUAL? ,NW-SE-PASSAGE-DIR ,P?NW>
+			      <TELL "northwest">)
+			     (T
+			      <TELL "southeast">)>)>
+		<TELL " wall.">)>>
+
+<GLOBAL N-S-PASSAGE-DIR <>>
+
+<GLOBAL NW-SE-PASSAGE-DIR <>>
+
+<GLOBAL N-S-PASSAGE-LOC <>>
+
+<GLOBAL NW-SE-PASSAGE-LOC <>>
+
+<OBJECT NOTICE
+	(DESC "notice")
+	(SYNONYM NOTICE)
+	(FLAGS TAKEBIT BURNBIT READBIT)
+	(SIZE 2)
+	(TEXT
+"\"Hello, Builder!|
+   Your Magic Passage should last you for many useful years. To install,
+simply INSTALL THE PASSAGE IN THE _____ WALL. Remember, your Magic Passage,
+once installed, is not removable! Please contact your dealer with any
+questions or problems!|
+   Another fine product of the Frobozz Magic Passage Company.\"")>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM PITS
+      (LOC ROOMS)
+      (DESC "Pits")
+      (REGION "Flatheadia")
+      (UP TO LOWEST-HALL)
+      (DOWN PER PIT-ENTER-F)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL FIXED-LADDER PITS-OBJECT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)
+      (THINGS <> SHADOW PHIL-SHADOW-PS)
+      (ACTION PITS-F)>
+
+<ROUTINE PITS-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This cavern, deep in the bowels of the Great Underground Empire, ">
+		<D-PITS-FLOOR>
+		<TELL ". A rickety ladder leads upward.">)>>
+
+<ROUTINE D-PITS-FLOOR ()
+	 <COND (<FSET? ,LANTERN ,TRYTAKEBIT>
+		<TELL
+"is spotted with an incredible quantity of pits. Judging from the closest of
+them, the pits are bottomless">)
+	       (T
+		<TELL
+"has a large number of bottomless pits, all of which have been filled in">
+		<COND (<FSET? ,HERE ,TOUCHBIT>
+		       <TELL ", except one.">)
+		      (T
+		       <TELL
+" -- no, wait! It seems that one pit did not become filled in!">)>
+		<TELL
+" The open pit seems to have handholds leading downward">)>>
+
+<ROUTINE PIT-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<FSET? ,LANTERN ,TRYTAKEBIT>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"Entering a bottomless pit means certain death!" CR>)>
+		<RFALSE>)
+	       (T
+		,LEDGE-IN-PIT)>>
+
+<OBJECT PITS-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "bottomless pit")
+	(SYNONYM PIT PITS)
+	(ADJECTIVE BOTTOMLESS)
+	(ACTION PITS-OBJECT-F)>
+
+<ROUTINE PITS-OBJECT-F ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,PITS>>
+		<TELL "The floor ">
+		<D-PITS-FLOOR>
+		<TELL ,PERIOD-CR>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL "The pit looks bottomless." CR>)
+	       (<AND <VERB? THROW PUT>
+		     <EQUAL? ,P-PRSA-WORD ,W?THROW ,W?HURL ,W?TOSS ,W?CAST>
+		     <PRSO? ,PIT-BOMB>>
+		<PERFORM ,V?THROW ,PIT-BOMB <>>
+		<RTRUE>)
+	       (<AND <VERB? THROW PUT>
+		     <PRSI? ,PITS-OBJECT>>
+		<REMOVE ,PRSO>
+		<COND (<OR <PRSO? ,PERCH>
+			   <ULTIMATELY-IN? ,PERCH ,PRSO>>
+		       <SETG REMOVED-PERCH-LOC ,BROGMOID>)>
+		<TELL
+"Bottomless or not, the pit swallows"  T ,PRSO " forever." CR>)
+	       (<OR <VERB? LEAP>
+		    <AND <VERB? ENTER>
+			 <EQUAL? ,P-PRSA-WORD ,W?JUMP ,W?LEAP>>>
+		<JIGS-UP
+"As you plunge down the bottomless pit, you smash against the irregular walls.
+The result isn't...shall we say...pretty.">)
+	       (<VERB? ENTER>
+		<DO-WALK ,P?DOWN>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT LANTERN
+	(LOC PITS)
+	(DESC "brass lantern")
+	(FDESC
+"At the far end of the cavern sits an ancient battery-powered brass
+lantern.")
+	(SYNONYM LAMP LANTERN LIGHT MONOGRAM)
+	(ADJECTIVE ANCIENT BRASS BATTERY-POWERED)
+	(FLAGS TRYTAKEBIT TAKEBIT LIGHTBIT MAGICBIT READBIT)
+	(SIZE 15)
+	(VALUE 0) ;"12 points given elsewhere"
+	(TEXT "You can barely read the worn letters: \"T. A. F.\"")
+	(ACTION LANTERN-F)>
+
+<ROUTINE LANTERN-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<FSET? ,LANTERN ,TRYTAKEBIT>
+		       <TELL "You can't see much from this distance." CR>)
+		      (<NOUN-USED? ,LANTERN ,W?MONOGRAM>
+		       <PERFORM ,V?READ ,LANTERN>
+		       <RTRUE>)
+		      (<NOT <FSET? ,LANTERN ,LIGHTBIT>>
+		       <TELL "The lamp is either broken or burned out." CR>)
+		      (T
+		       <TELL
+"There seems to be a faint monogram engraved on it. ">
+		       <RFALSE>)>)
+	       (<AND <VERB? READ>
+		     <FSET? ,LANTERN ,TRYTAKEBIT>>
+		<PERFORM ,V?EXAMINE ,LANTERN>
+		<RTRUE>)
+	       (<AND <VERB? TAKE WALK-TO>
+		     <FSET? ,LANTERN ,TRYTAKEBIT>>
+		<TELL
+"The pits make the cavern uncrossable; ergo, you can't reach the lantern." CR>)
+	       (<AND <VERB? THROW THROW-TO>
+		     <PRSI? ,LANTERN>
+		     <FSET? ,LANTERN ,TRYTAKEBIT>>
+		<REMOVE ,PRSO>
+		<COND (<OR <PRSO? ,PERCH>
+			   <ULTIMATELY-IN? ,PERCH ,PRSO>>
+		       <SETG REMOVED-PERCH-LOC ,BROGMOID>)>
+		<TELL
+"Sigh. Your throw is just short of the lamp, and" T ,PRSO " disappears into
+one of the pits." CR>)
+	       (<AND <VERB? THROW>
+		     <PRSO? ,LANTERN>>
+		<DEQUEUE I-LANTERN>
+		<FCLEAR ,LANTERN ,ONBIT>
+		<FCLEAR ,LANTERN ,LIGHTBIT>
+		<TELL "The lamp smashes into the floor, breaking it." CR>
+		<NOW-DARK?>)
+	       (<VERB? ON>
+		<COND (<FSET? ,LANTERN ,LIGHTBIT>
+		       <QUEUE I-LANTERN -1>
+		       <RFALSE>)
+		      (T
+		       <TELL "The lamp refuses to light." CR>)>)>>
+
+<GLOBAL LANTERN-COUNTER 500>
+
+<ROUTINE I-LANTERN ()
+	 <COND (<NOT <FSET? ,LANTERN ,ONBIT>>
+		<DEQUEUE I-LANTERN>
+		<RFALSE>)>
+	 <SETG LANTERN-COUNTER <- ,LANTERN-COUNTER 1>>
+	 <COND (<EQUAL? ,LANTERN-COUNTER 0>
+		<FCLEAR ,LANTERN ,ONBIT>
+		<FCLEAR ,LANTERN ,LIGHTBIT>)>
+	 <COND (<AND <EQUAL? ,LANTERN-COUNTER 200 100 50 25 0>
+		     <VISIBLE? ,LANTERN>>
+		<RETURN-FROM-MAP>
+		<TELL "   ">
+		<COND (<EQUAL? ,LANTERN-COUNTER 200>
+		       <TELL "The lamp appears a bit dimmer." CR>)
+		      (<EQUAL? ,LANTERN-COUNTER 100>
+		       <TELL "The lamp is definitely dimmer now." CR>)
+		      (<EQUAL? ,LANTERN-COUNTER 50>
+		       <TELL "The lamp is nearly out." CR>)
+		      (<EQUAL? ,LANTERN-COUNTER 25>
+		       <TELL
+"You'd better have more light than from the " D ,LANTERN ,PERIOD-CR>)
+		      (T
+		       <TELL "The lantern flickers and dies." CR>
+		       <NOW-DARK?>)>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM LEDGE-IN-PIT
+      (LOC ROOMS)
+      (DESC "Ledge in Bottomless Pit")
+      (REGION "Region:  Unknown")
+      (LDESC
+"This is a wide, irregular ledge, far below the lip of the pit. The ledge
+is strewn with the bones of creatures (including a few luckless humans)
+who fell into the pit and landed here, to be devoured by grues. Rough
+handholds, possibly natural, lead upward and downward.")
+      (UP TO PITS)
+      (DOWN TO MOUTH-OF-CAVE)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL BONES PITS-OBJECT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-2>)
+      (ICON LEDGE-IN-PIT-ICON)
+      (THINGS WIDE LEDGE LEDGE-IN-PIT-PS)>
+
+<ROUTINE LEDGE-IN-PIT-PS ()
+	 <COND (<VERB? EXIT>
+		<V-WALK-AROUND>)>>
+
+<ROOM MOUTH-OF-CAVE
+      (LOC ROOMS)
+      (DESC "Mouth of Cave")
+      (REGION "Region:  Unknown")
+      (LDESC
+"A narrow, slimy cave connects here with the bottomless pit, leading
+roughly northeast. The handholds in the rock walls of the pit, which have
+been fairly dependable down to here, seem to peter out just below you.")
+      (UP TO LEDGE-IN-PIT)
+      (DOWN SORRY "There are no more handholds!")
+      (NE TO SLOPING-CAVE)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL PITS-OBJECT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-1>)
+      (ICON MOUTH-OF-CAVE-ICON)>
+
+<ROOM SLOPING-CAVE
+      (LOC ROOMS)
+      (DESC "Sloping Cave")
+      (REGION "Region:  Unknown")
+      (LDESC
+"You are in a cramped cave with disgustingly sticky walls which press
+in against you. The cave drops sharply to the northeast, and rises
+sharply to the southwest.")
+      (NE TO TOP-OF-WELL)
+      (DOWN TO TOP-OF-WELL)
+      (SW TO MOUTH-OF-CAVE)
+      (UP TO MOUTH-OF-CAVE)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>)>
+
+<ROOM TOP-OF-WELL
+      (LOC ROOMS)
+      (DESC "Top of Well")
+      (REGION "Region:  Unknown")
+      (LDESC
+"The cave ends here at the opening of a natural well. The walls of the
+well look irregular enough to climb down. The sensation of being deep
+within the bowels of the earth is overpowering here; you feel as though
+you are farther down than anyone has ever been before.")
+      (SW TO SLOPING-CAVE)
+      (UP TO SLOPING-CAVE)
+      (DOWN TO UNDER-THE-WORLD)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>)>
+
+<ROOM UNDER-THE-WORLD
+      (LOC ROOMS)
+      (DESC "Under the World")
+      (REGION "Region:  Unknown")
+      (LDESC
+"This is surely the most incredible sight that any pair of eyes has ever
+gazed upon: You have reached the underside of the world, which hangs above
+you, an enormous slab of dirt and rock which stretches as far as you can see
+in all directions! A glowing white haze stretches below you.|
+   To the west, you can see the head and shoulders of a muscular brogmoid;
+the rest of his body seems to be lost in the haze. As your mind adjusts to the
+scale of this place, you realize that the brogmoid is tremendous beyond
+description, and that he is holding the world upon his shoulder and upper
+back.|
+   Thanks to some hardy roots which hang below the world, it looks like you
+could swing over to the shoulder of the brogmoid. Above you, a hole leads
+up into the world.")
+      (UP TO TOP-OF-WELL)
+      (DOWN SORRY "There's nothing there -- literally.")
+      (WEST TO HANGING-FROM-ROOTS)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL BROGMOID ROOTS)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>)
+      (ACTION UNDER-THE-WORLD-F)>
+
+<ROUTINE UNDER-THE-WORLD-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (,ALLIGATOR
+		       <RETURN-FROM-MAP>
+		       <JIGS-UP
+"The well opens into a vast nothingness. You grab at a few protruding
+roots, but being currently equipped with paws instead of hands, you
+fail. You plunge into an abyss.">)
+		      (<NOT <FSET? ,UNDER-THE-WORLD ,TOUCHBIT>>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"The well suddenly opens onto a vast abyss! You grab onto a few protruding
+roots, preventing a terrible fall..." CR CR>)>)>>
+
+<ROOM HANGING-FROM-ROOTS
+      (LOC ROOMS)
+      (DESC "Hanging From Roots")
+      (REGION "Region:  Unknown")
+      (LDESC
+"You are clutching some hardy tree roots, between a seemingly infinite plane
+of earth above you, and a seemingly infinite haze below. To the east, a tiny
+black spot indicates the opening of a well leading upward. To the west, part
+of the shoulder, neck, and ear of an incredibly gigantic brogmoid fills your
+view.")
+      (UP SORRY "The world is in the way.")
+      (DOWN SORRY "There's nothing there -- literally.")
+      (WEST TO SHOULDER)
+      (EAST TO UNDER-THE-WORLD)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL BROGMOID ROOTS)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-2>)
+      (ICON ROOTS-ICON)>
+
+<OBJECT ROOTS
+	(LOC LOCAL-GLOBALS)
+	(DESC "root")
+	(SYNONYM ROOTS ROOT)
+	(ADJECTIVE HARDY TREE)
+	(ACTION ROOTS-F)>
+
+<ROUTINE ROOTS-F ()
+	 <COND (<EQUAL? ,HERE ,OUTER-BAILEY>
+		<PERFORM-PRSA ,TREE-STUMP>)
+	       (<AND <VERB? LISTEN TELL>
+		     ,PLANT-TALKER>
+		<TELL
+"It is as unlikely for these roots to speak as it is for your toes
+to begin conversing with each other." CR>)>> 
+
+<ROOM SHOULDER
+      (LOC ROOMS)
+      (DESC "Shoulder")
+      (REGION "Region:  Unknown")
+      (LDESC
+"You have landed on a shoulder of mind-numbing dimension. The hairs of the
+shoulder are like mighty trees, the pores like deep craters. Thanks to the
+thickness of the hair/trees, you could probably climb up the neck to the
+ear which looms above you. A series of underhanging roots make it possible
+to swing off to the east.")
+      (EAST TO HANGING-FROM-ROOTS)
+      (UP TO EAR)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL BROGMOID ROOTS)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-1>)>
+
+<ROOM EAR
+      (LOC ROOMS)
+      (DESC "Ear")
+      (REGION "Region:  Unknown")
+      (IN TO INNER-EAR IF EAR-PASSAGE-OPEN ELSE
+       "The mound of ear fungus blocks entry into the ear.")
+      (DOWN TO SHOULDER)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL BROGMOID)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-1>)
+      (ICON EAR-ICON)
+      (ACTION EAR-F)>
+
+<ROUTINE EAR-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are sitting in one of the folds of a giant ear belonging to the giant
+brogmoid who is holding up the world. A wide channel leading deeper into the
+ear is blocked by a virtual forest of ear fungus">
+		<COND (,EAR-PASSAGE-OPEN
+		       <TELL
+", except for a small tunnel through the fungus which leads farther in">)>
+		<TELL ". The only exit is down.">)>>
+
+<GLOBAL EAR-PASSAGE-OPEN <>>
+
+<OBJECT EAR-FUNGUS
+	(LOC EAR)
+	(DESC "ear fungus")
+	(SYNONYM FUNGUS FUNGI)
+	(ADJECTIVE EAR)
+	(FLAGS VOWELBIT NDESCBIT PLANTBIT)
+	(GENERIC G-FUNGUS-F)
+	(RESEARCH
+"\"A class of saprophytic parasitical plants which lack chlorophyll and are
+frequently found in the less hygienic cavities of brogmoids.\"")
+	(ACTION EAR-FUNGUS-F)>
+
+<ROUTINE EAR-FUNGUS-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<VERB? MOVE CLEAN PUSH KICK MUNG>
+		<TELL "The fungi wall doesn't budge." CR>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<COND (<EQUAL? ,FUNGUS-NUMBER 12>
+		       <SETG FUNGUS-NUMBER <- <RANDOM 12> 1>>)>
+		<TELL
+"You hear a vast murmur of fungi, discussing such topics as the woeful lack
+of moisture within this ear">
+		<COND (<NOT ,EAR-PASSAGE-OPEN>
+		       <TELL
+". One conversation catches your attention: a family of fungi bewailing their
+long lost cousin, " <GET ,FUNGUS-TABLE ,FUNGUS-NUMBER>>)>
+		<TELL ,PERIOD-CR>)>>
+
+<ROUTINE G-FUNGUS-F (STR LEN)
+	 <COND (<VERB? RESEARCH>
+		,EAR-FUNGUS)>>
+
+<GLOBAL FUNGUS-NUMBER 12>
+
+<CONSTANT FUNGUS-TABLE
+	<PTABLE "Seymour"
+	       "Sherman"
+	       "Irving"
+	       "Sammy"
+	       "Myron"
+	       "Boris"
+	       "Melvin"
+	       "Lester"
+	       "Julius"
+	       "Ricardo"
+	       "Omar"
+	       "Barnaby">>
+
+<CONSTANT FUNGUS-WORDS
+	<PTABLE <VOC "SEYMOUR" <>>
+	       <VOC "SHERMAN" <>>
+	       <VOC "IRVING" <>>
+	       <VOC "SAMMY" <>>
+	       <VOC "MYRON" <>>
+	       <VOC "BORIS" <>>
+	       <VOC "MELVIN" <>>
+	       <VOC "LESTER" <>>
+	       <VOC "JULIUS" <>>
+	       <VOC "RICARDO" <>>
+	       <VOC "OMAR" <>>
+	       <VOC "BARNABY" <>>>>
+
+<OBJECT BROGMOID
+	(LOC LOCAL-GLOBALS)
+	(DESC "giant brogmoid")
+	(SYNONYM BROGMOID BROGMOIDS SHOULDER EAR TOE)
+	(ADJECTIVE LARGE)
+        (ACTION BROGMOID-F)>
+
+<ROUTINE BROGMOID-F ()
+	 <COND (<VERB? ENTER WALK-TO>
+		<COND (<EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS>
+		       <DO-WALK ,P?EAST>)
+		      (<EQUAL? ,HERE ,SHOULDER>
+		       <DO-WALK ,P?UP>)
+		      (T
+		       <DO-WALK ,P?IN>)>)
+	       (<AND <TOUCHING? ,BROGMOID>
+		     <EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS>>
+		<CANT-REACH ,BROGMOID>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,ON-TOP-OF-THE-WORLD>
+		       <TELL
+"Most of the brogmoid is lost in the mists which stretch above the world." CR>)
+		      (T
+		       <TELL
+"The brogmoid is fairly ordinary, other than the fact that it's about
+a zillion times as large as any brogmoid you've ever seen before." CR>)>)
+	       (<AND <VERB? CLEAN>
+		     <NOUN-USED? ,BROGMOID ,W?EAR>>
+		<PERFORM ,V?CLEAN ,EAR-FUNGUS>
+		<RTRUE>)
+	       (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,BROGMOID ,W?BROGMOID ,W?BROGMOIDS>>
+		<TELL
+"\"In rare cases, these squat creatures can achieve the intelligence levels of
+a three-year-old human. Domesticated brogmoids are tame and can even be taught
+to perform simple tasks. In the wild, they can be seen in huge packs sorting
+through rock piles for edible rocks. (See also BROGMOIDISM.)\"" CR>)>>
+
+<ROOM INNER-EAR
+      (LOC ROOMS)
+      (DESC "Inner Ear")
+      (REGION "Region:  Unknown")
+      (LDESC
+"You have reached the brogmoid's eardrum, which prevents any farther travel
+inward. A passage through a forest of fungus leads back out.")
+      (IN SORRY "The membrane of the eardrum is tougher than most walls.")
+      (OUT TO EAR)
+      (FLAGS RLANDBIT OUTSIDEBIT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-1 EAR-ICON-LOC>)>
+
+<OBJECT EARWAX
+	(LOC INNER-EAR)
+	(OWNER EARWAX)
+	(DESC "hunk of brogmoid ear wax")
+	(SYNONYM HUNK WAX EARWAX)
+	(ADJECTIVE BROGMOID EAR)
+	(FLAGS TAKEBIT)>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/chess.zabstr b/chess.zabstr
new file mode 100644
index 0000000..e590f76
--- /dev/null
+++ b/chess.zabstr
@@ -0,0 +1,144 @@
+
+<BEGIN-SEGMENT FENSHIRE> 
+<GLOBAL RANK 2> 
+<GLOBAL FILE 5> 
+<GLOBAL PLAIN-LOC 12> 
+<ROOM PLAIN (LOC ROOMS) (REGION "Region:  Unknown") (DESC "Plain") (NORTH PER
+PLAIN-MOVEMENT-F) (NE PER PLAIN-MOVEMENT-F) (EAST PER PLAIN-MOVEMENT-F) (SE PER
+PLAIN-MOVEMENT-F) (SOUTH PER PLAIN-MOVEMENT-F) (SW PER PLAIN-MOVEMENT-F) (WEST
+PER PLAIN-MOVEMENT-F) (NW PER PLAIN-MOVEMENT-F) (FLAGS RLANDBIT OUTSIDEBIT
+ONBIT) (VALUE 16) (ACTION PLAIN-F)> 
+<DEFINE-ROUTINE PLAIN-F> 
+<DEFINE-ROUTINE PLAIN-MOVEMENT-F> 
+<OBJECT BLACK-KNIGHT (DESC "mounted soldier") (LDESC
+"There is a soldier on horseback here. His armor is made of the dullest
+metals, and his steed is darker than the night.") (SYNONYM SOLDIER KNIGHT HORSE
+MAN) (ADJECTIVE MOUNTED BLACK) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT
+BLACKBIT) (ACTION PIECE-F)> 
+<OBJECT WHITE-KNIGHT (DESC "mounted soldier") (LDESC
+"There is a soldier on horseback here. His armor is made of the shiniest
+metals, and his steed is lighter than drifted snow.") (SYNONYM SOLDIER KNIGHT
+HORSE MAN) (ADJECTIVE MOUNTED WHITE) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT
+WHITEBIT) (ACTION PIECE-F)> 
+<OBJECT BLACK-PAWN (DESC "foot soldier") (LDESC
+"You spot a solitary, bored-looking foot soldier. His face is smudged with
+coal dust, his uniform is sewn from deeply dyed wool, and the handle of his
+sword is solid obsidian.") (SYNONYM SOLDIER PAWN MAN) (ADJECTIVE FOOT BLACK) (
+FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT) (ACTION PIECE-F)> 
+<OBJECT BLACK-QUEEN (DESC "queen") (LDESC
+"A regal woman proudly surveys the landscape in all directions. Her skin
+is dark; her royal garments even darker.") (SYNONYM QUEEN WOMAN) (ADJECTIVE
+REGAL PROUD DARK BLACK) (FLAGS ACTORBIT FEMALEBIT CONTBIT OPENBIT SEARCHBIT
+BLACKBIT) (ACTION PIECE-F)> 
+<OBJECT WHITE-CASTLE (DESC "man atop a castle tower") (LDESC
+"Nearby rises a small tower keep, made of creamy marble. Between the
+crenellations of the parapet you spot a man, dressed in an ivory chain
+mail and carrying a crossbow made of birch.") (SYNONYM MAN TOWER CASTLE ROOK) (
+ADJECTIVE CASTLE WHITE) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT) (
+ACTION PIECE-F)> 
+<OBJECT BLACK-BISHOP (DESC "high priest") (LDESC
+"You hear a sing-song prayer chant and turn to see a high priest of some sort.
+His tall, ebony headpiece bears a religious cipher, and his vestments seem to
+soak up all light.") (SYNONYM PRIEST BISHOP MAN) (ADJECTIVE HIGH BLACK) (FLAGS
+ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT) (ACTION PIECE-F)> 
+<OBJECT WHITE-PAWN (DESC "foot soldier") (LDESC
+"You spot a solitary, bored-looking foot soldier. His face is smudged with
+flour, his uniform is sewn from pure undyed cotton, and the handle of his
+sword is solid quartz.") (SYNONYM SOLDIER PAWN MAN) (ADJECTIVE WHITE FOOT) (
+FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT) (ACTION PIECE-F)> 
+<OBJECT WHITE-QUEEN (DESC "queen") (LDESC
+"A regal woman proudly surveys the landscape in all directions. Her royal
+garments are as white as her pale complexion.") (SYNONYM QUEEN WOMAN) (
+ADJECTIVE REGAL PROUD WHITE) (FLAGS ACTORBIT FEMALEBIT CONTBIT OPENBIT
+SEARCHBIT WHITEBIT) (ACTION PIECE-F)> 
+<OBJECT WHITE-KING (DESC "royal leader") (LDESC
+"A tall man wearing princely robes stands nearby. His bearing indicates that
+this is a man accustomed to command. His linen robes are trimmed with ermine,
+and his crown is studded with diamonds and opals.") (SYNONYM LEADER KING MAN) (
+ADJECTIVE ROYAL WHITE TALL) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
+(ACTION PIECE-F)> 
+<OBJECT WHITE-KING-CROWN (LOC WHITE-KING) (DESC "crown") (SYNONYM CROWN) (FLAGS
+NDESCBIT)> 
+<OBJECT WHITE-KING-ROBE (LOC WHITE-KING) (DESC "robe") (SYNONYM ROBE) (FLAGS
+NDESCBIT)> 
+<OBJECT BLACK-KING (DESC "royal leader") (LDESC
+"A tall man wearing princely robes stands nearby. His bearing indicates that
+this is a man accustomed to command. His velvet robes are trimmed with mink,
+and his crown is studded with polished onyx.") (SYNONYM LEADER KING MAN) (
+ADJECTIVE ROYAL BLACK TALL) (FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
+(ACTION PIECE-F)> 
+<OBJECT BLACK-KING-ROBE (LOC BLACK-KING) (DESC "robe") (SYNONYM ROBE) (FLAGS
+NDESCBIT)> 
+<OBJECT BLACK-KING-CROWN (LOC BLACK-KING) (DESC "crown") (SYNONYM CROWN) (FLAGS
+NDESCBIT)> 
+<BEGIN-SEGMENT 0> 
+<GLOBAL DIR-CNT 0> 
+<DEFINE-ROUTINE PIECE-F> 
+<DEFINE-ROUTINE PIECE-TAKES-PIGEON> 
+<CONSTANT PIECE-MOVE-TABLE <TABLE 0 0 0 0 0 0 0 0>> 
+<DEFINE-ROUTINE MOVE-PIECE> 
+<DEFINE-ROUTINE DIR-TO-STRING> 
+<DEFINE-ROUTINE PIECE-SNARF> 
+<DEFINE-ROUTINE TAKE-PIECE?> 
+<DEFINE-ROUTINE ILLEGAL-MOVE?> 
+<DEFINE-ROUTINE PIECE-AT-NEW-LOC?> 
+<DEFINE-ROUTINE OBSTRUCTION> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM FIELD-OFFICE (LOC ROOMS) (DESC "Field Office") (REGION "Flatheadia") (
+LDESC "This is a temporary headquarters for a construction site to the west.
+Another exit leads east.") (EAST TO EXIT) (WEST PER CONSTRUCTION-ENTER-F) (
+FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-7
+MAP-GEN-X-4>)> 
+<DEFINE-ROUTINE CONSTRUCTION-ENTER-F> 
+<OBJECT BLUEPRINT (LOC FIELD-OFFICE) (DESC "blueprint") (SYNONYM BLUEPRINT) (
+FLAGS TAKEBIT BURNBIT READBIT) (SIZE 2) (TEXT
+"[This is the blueprint from your ZORK ZERO package.]")> 
+<BEGIN-SEGMENT 0> 
+<OBJECT HAMMER (DESC "hammer") (SYNONYM HAMMER) (FLAGS TAKEBIT) (SIZE 16) (
+ACTION HAMMER-F)> 
+<DEFINE-ROUTINE HAMMER-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<ROOM CONSTRUCTION (LOC ROOMS) (DESC "Construction") (REGION "Flatheadia") (
+NORTH PER CONSTRUCTION-MOVEMENT-F) (NE PER CONSTRUCTION-MOVEMENT-F) (EAST PER
+CONSTRUCTION-MOVEMENT-F) (SE PER CONSTRUCTION-MOVEMENT-F) (SOUTH PER
+CONSTRUCTION-MOVEMENT-F) (SW PER CONSTRUCTION-MOVEMENT-F) (WEST PER
+CONSTRUCTION-MOVEMENT-F) (NW PER CONSTRUCTION-MOVEMENT-F) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (ACTION CONSTRUCTION-F)> 
+<DEFINE-ROUTINE CONSTRUCTION-F> 
+<DEFINE-ROUTINE AND-OR-COMMA> 
+<DEFINE-ROUTINE CONSTRUCTION-MOVEMENT-F> 
+<GLOBAL CONSTRUCTION-LOC 47> 
+<CONSTANT NORTH-EXITS <TABLE 99 20 33 37 40 46 48 50 55 59 61>> 
+<CONSTANT NE-EXITS <TABLE 12 13 14 20 22 27 28 29 33 36 41 43 46 49 50 53 54>> 
+<CONSTANT EAST-EXITS <TABLE 5 6 12 22 26 30 34 38 42 44 51 56 57 61 62>> 
+<CONSTANT SE-EXITS <TABLE 99 17 40 43 48 51 54>> 
+<OBJECT HARDHAT (DESC "hardhat") (SYNONYM HARDHAT HAT) (ADJECTIVE HARD) (FLAGS
+TAKEBIT WEARBIT) (GENERIC G-HAT-F) (VALUE 25)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE REMOVE-ANY-PIECE> 
+<CONSTANT STORAGE-TABLE <TABLE 301 BLACK-KNIGHT 314 BLACK-PAWN 315 WHITE-KNIGHT
+328 BLACK-BISHOP 337 BLACK-KING 349 WHITE-PAWN 357 WHITE-KING 363 WHITE-CASTLE
+400 HARDHAT 461 HAMMER 1004 MEMO 3019 T-SQUARE 4193 INSTRUCTION-BOOKLET 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0>> 
+<CONSTANT PLAIN-OFFSET 300> 
+<CONSTANT CONSTRUCTION-OFFSET 400> 
+<CONSTANT OFFICES-OFFSET 1000> 
+<CONSTANT OFFICES-N-OFFSET 2000> 
+<CONSTANT OFFICES-S-OFFSET 3000> 
+<CONSTANT OFFICES-E-OFFSET 4000> 
+<CONSTANT OFFICES-W-OFFSET 5000> 
+<CONSTANT STORAGE-TABLE-LENGTH 200> 
+<DEFINE-ROUTINE PUT-IN-STORAGE> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LOWER> 
+<BEGIN-SEGMENT FENSHIRE> 
+<BEGIN-SEGMENT VILLAGE> 
+<DEFINE-ROUTINE STORE> 
+<DEFINE-ROUTINE UNSTORE> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/chess.zap b/chess.zap
new file mode 100644
index 0000000..a6e5c87
--- /dev/null
+++ b/chess.zap
@@ -0,0 +1,753 @@
+
+	.SEGMENT "FENSHIRE"
+
+
+	.FUNCT	PLAIN-F,RARG,PIECE
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You are on an amazingly flat plain of "
+	ADD	RANK,FILE
+	MOD	STACK,2
+	ZERO?	STACK \?CCL6
+	PRINTI	"sun-bleached sand"
+	JUMP	?CND4
+?CCL6:	PRINTI	"deep, rich loam"
+?CND4:	PRINTI	". The plain seems to stretch endlessly in all directions"
+	EQUAL?	RANK,1,8 /?CCL8
+	EQUAL?	FILE,1,8 \?CND7
+?CCL8:	PRINTI	", except to the "
+	EQUAL?	RANK,1 \?CCL13
+	PRINTI	"north"
+	EQUAL?	FILE,1 \?CCL16
+	PRINTI	" and west"
+	JUMP	?CND11
+?CCL16:	EQUAL?	FILE,8 \?CND11
+	PRINTI	" and east"
+	JUMP	?CND11
+?CCL13:	EQUAL?	RANK,8 \?CCL19
+	PRINTI	"south"
+	EQUAL?	FILE,1 \?CCL22
+	PRINTI	" and west"
+	JUMP	?CND11
+?CCL22:	EQUAL?	FILE,8 \?CND11
+	PRINTI	" and east"
+	JUMP	?CND11
+?CCL19:	EQUAL?	FILE,1 \?CCL25
+	PRINTI	"west"
+	JUMP	?CND11
+?CCL25:	PRINTI	"east"
+?CND11:	PRINTI	", where the world seems to end in a gray void"
+?CND7:	PRINTC	46
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	CALL	FIND-IN,HERE,BLACKBIT >PIECE
+	ZERO?	PIECE \?PEN31
+	CALL	FIND-IN,HERE,WHITEBIT >PIECE
+?PEN31:	ZERO?	PIECE /FALSE
+	FSET?	PIECE,TOUCHBIT /FALSE
+	FSET	PIECE,TOUCHBIT
+	RANDOM	100
+	LESS?	30,STACK /FALSE
+	PRINTI	"   The "
+	ICALL2	DPRINT,PIECE
+	PRINTR	" notices your cloak and bows gracefully. ""Greetings, Lordship. It's been a long time between moves -- I'll bet you've got a great one planned!"""
+
+
+	.FUNCT	PLAIN-MOVEMENT-F,RARG
+	ZERO?	RARG \FALSE
+	EQUAL?	RANK,1 \?PRD6
+	EQUAL?	PRSO,P?NW,P?NE,P?NORTH /?CCL4
+?PRD6:	EQUAL?	RANK,8 \?PRD9
+	EQUAL?	PRSO,P?SW,P?SE,P?SOUTH /?CCL4
+?PRD9:	EQUAL?	FILE,8 \?PRD12
+	EQUAL?	PRSO,P?SE,P?NE,P?EAST /?CCL4
+?PRD12:	EQUAL?	FILE,1 \?CND1
+	EQUAL?	PRSO,P?SW,P?NW,P?WEST \?CND1
+?CCL4:	PRINTI	"The world ends at a gray void in that direction."
+	CRLF	
+	RFALSE	
+?CND1:	EQUAL?	PRSO,P?NW,P?NE,P?NORTH \?CND17
+	DEC	'RANK
+?CND17:	EQUAL?	PRSO,P?SW,P?SE,P?SOUTH \?CND19
+	INC	'RANK
+?CND19:	EQUAL?	PRSO,P?NE,P?SE,P?EAST \?CND21
+	INC	'FILE
+?CND21:	EQUAL?	PRSO,P?NW,P?SW,P?WEST \?CND23
+	DEC	'FILE
+?CND23:	ICALL	STORE,PLAIN-OFFSET,PLAIN-LOC
+	SUB	RANK,1
+	MUL	STACK,8
+	ADD	STACK,FILE
+	SUB	STACK,1 >PLAIN-LOC
+	ICALL	UNSTORE,PLAIN-OFFSET,PLAIN-LOC
+	RETURN	PLAIN
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PIECE-F,ARG,CNT
+	FSET?	WINNER,BLACKBIT /?CTR2
+	FSET?	WINNER,WHITEBIT \?CCL3
+?CTR2:	ZERO?	TIME-STOPPED /?CCL8
+	SET	'P-CONT,-1
+	PRINTI	"Seemingly frozen,"
+	ICALL2	TPRINT,WINNER
+	PRINTR	" is unresponsive."
+?CCL8:	EQUAL?	PRSA,V?WALK \?CCL10
+	EQUAL?	PRSO,P?UP,P?OUT,P?IN /?CTR9
+	EQUAL?	PRSO,P?DOWN \?CCL10
+?CTR9:	SET	'DIR-CNT,0
+	PRINT	CANNOT-TRAVEL
+	ICALL1	STOP
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?WALK \?PRD18
+	ZERO?	P-WALK-DIR \?CCL16
+?PRD18:	EQUAL?	PRSA,V?MOVE \?CTR15
+	EQUAL?	PRSO,INTDIR /?CCL16
+?CTR15:	SET	'DIR-CNT,0
+	EQUAL?	PRSA,V?WALK \?CCL25
+	CALL	NOUN-USED?,PRSO,W?ONE
+	ZERO?	STACK /?CCL25
+	PRINTI	"[The proper way to ask"
+	ICALL2	TPRINT,WINNER
+	PRINTR	" to move is simply to tell the direction(s), as in >CHARACTER, NW.NW]"
+?CCL25:	SET	'P-CONT,-1
+	PRINTR	"""You can tell me directions. That's it."""
+?CCL16:	EQUAL?	HERE,PLAIN,CONSTRUCTION /?CCL29
+	SET	'P-CONT,-1
+	PRINTR	"""The terrain is strange and unfamiliar; I am too terrified to move!"""
+?CCL29:	EQUAL?	DIR-CNT,7 \?CCL31
+	SET	'DIR-CNT,0
+	SET	'P-CONT,-1
+	PRINTR	"""Too many directions!"""
+?CCL31:	EQUAL?	PRSA,V?MOVE \?CND32
+	CALL1	DIRECTION-CONVERSION >PRSO
+?CND32:	PUT	PIECE-MOVE-TABLE,DIR-CNT,PRSO
+	IGRTR?	'DIR-CNT,1 \?CCL36
+	EQUAL?	WINNER,WHITE-KNIGHT,BLACK-KNIGHT /?CCL36
+	SUB	DIR-CNT,2
+	GET	PIECE-MOVE-TABLE,STACK
+	EQUAL?	PRSO,STACK /?CCL36
+	SET	'DIR-CNT,0
+	COPYT	PIECE-MOVE-TABLE,0,16
+	PRINT	CANNOT-TRAVEL
+	ICALL1	STOP
+	RTRUE	
+?CCL36:	ZERO?	P-CONT \?CTR40
+	ZERO?	M-PTR /?CCL41
+?CTR40:	SET	'CLOCK-WAIT,TRUE-VALUE
+	RTRUE	
+?CCL41:	SET	'DIR-CNT,0
+	ICALL1	MOVE-PIECE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?ENTER \?CCL45
+	EQUAL?	PRSO,WHITE-CASTLE \?CCL45
+	CALL	NOUN-USED?,WHITE-CASTLE,W?MAN
+	ZERO?	STACK \?CCL45
+	PRINTR	"Oddly, there doesn't seem to be any entrance."
+?CCL45:	EQUAL?	PRSA,V?ENTER \?CCL50
+	EQUAL?	PRSO,BLACK-KNIGHT,WHITE-KNIGHT \?CCL50
+	CALL	NOUN-USED?,PRSO,W?HORSE
+	ZERO?	STACK /?CCL50
+	PRINTR	"The horse isn't large enough for two riders."
+?CCL50:	EQUAL?	PRSA,V?MOVE \?CCL55
+	PRINTI	"Perhaps you should tell"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" the direction(s)."
+?CCL55:	EQUAL?	PRSA,V?GIVE \?CCL57
+	FSET?	PRSO,TRYTAKEBIT /?CCL57
+	CALL	FIND-IN,PRSO,TRYTAKEBIT
+	ZERO?	STACK \?CCL57
+	FSET?	PRSI,WHITEBIT /?CTR56
+	FSET?	PRSI,BLACKBIT \?CCL57
+?CTR56:	ZERO?	TIME-STOPPED /?CND64
+	ICALL	PERFORM,V?TELL,PRSI
+	RTRUE	
+?CND64:	MOVE	PRSO,PRSI
+	PRINTI	"The "
+	ICALL2	DPRINT,PRSI
+	PRINTI	" takes"
+	ICALL1	TPRINT-PRSO
+	PRINTC	46
+	EQUAL?	PRSO,PIGEON \?CCL68
+	CALL2	META-LOC,PERCH
+	EQUAL?	HERE,STACK /?CCL68
+	EQUAL?	HERE,OUBLIETTE \?CTR67
+	EQUAL?	REMOVED-PERCH-LOC,OUBLIETTE /?CCL68
+?CTR67:	CALL2	PIECE-TAKES-PIGEON,PRSI
+	RSTACK	
+?CCL68:	PRINTR	" ""Your graciousness is not unappreciated, your Lordship."""
+?CCL57:	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	LOC	PRSI
+	FSET?	STACK,WHITEBIT /?CCL75
+	LOC	PRSI
+	FSET?	STACK,BLACKBIT \FALSE
+?CCL75:	ICALL	PERFORM,V?TAKE,PRSI
+	RTRUE	
+
+
+	.FUNCT	PIECE-TAKES-PIGEON,PIECE,DO-CR
+	ASSIGNED?	'DO-CR /?CND1
+	SET	'DO-CR,TRUE-VALUE
+?CND1:	ICALL2	MOVE-TO-PERCH,PIECE
+	PRINTI	" Instantly,"
+	EQUAL?	PIECE,WHITE-CASTLE \?CCL5
+	PRINTI	" the tower"
+	JUMP	?CND3
+?CCL5:	ICALL2	TPRINT,PIECE
+?CND3:	PRINTI	" seems to grow more distant without moving. Within seconds,"
+	EQUAL?	PIECE,WHITE-CASTLE \?CCL8
+	PRINTI	" the tower"
+	JUMP	?CND6
+?CCL8:	ICALL2	TPRINT,PIECE
+?CND6:	PRINTI	" is gone."
+	ZERO?	DO-CR /TRUE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	MOVE-PIECE,CNT,DIR,NEW-RANK,NEW-FILE,NEW-LOC,X,OFFSET,BLOCK,?TMP1
+	SET	'NEW-RANK,RANK
+	SET	'NEW-FILE,FILE
+	SUB	NEW-RANK,1
+	MUL	STACK,8 >?TMP1
+	SUB	NEW-FILE,1
+	ADD	?TMP1,STACK >NEW-LOC
+	SET	'CNT,0
+?PRG1:	GET	PIECE-MOVE-TABLE,CNT >DIR
+	EQUAL?	DIR,FALSE-VALUE /?REP2
+	EQUAL?	DIR,P?NORTH,P?NE,P?NW \?CND5
+	DEC	'NEW-RANK
+?CND5:	EQUAL?	DIR,P?EAST,P?NE,P?SE \?CND7
+	INC	'NEW-FILE
+?CND7:	EQUAL?	DIR,P?SOUTH,P?SE,P?SW \?CND9
+	INC	'NEW-RANK
+?CND9:	EQUAL?	DIR,P?WEST,P?SW,P?NW \?CND11
+	DEC	'NEW-FILE
+?CND11:	INC	'CNT
+	EQUAL?	HERE,CONSTRUCTION \?CND13
+	EQUAL?	WINNER,BLACK-KNIGHT,WHITE-KNIGHT /?CND13
+	CALL	OBSTRUCTION,NEW-LOC,DIR
+	ZERO?	STACK /?CND13
+	SET	'BLOCK,TRUE-VALUE
+	EQUAL?	DIR,P?EAST \?CCL20
+	EQUAL?	NEW-LOC,47 \?CCL20
+	PRINTI	"""Appearances deceive you -- such a move would send me off the edge of the world!"""
+	CRLF	
+	JUMP	?REP2
+?CCL20:	PRINTI	"""My word! There appears to be a wall in the way!"""
+	CRLF	
+	JUMP	?REP2
+?CND13:	SUB	NEW-RANK,1
+	MUL	STACK,8 >?TMP1
+	SUB	NEW-FILE,1
+	ADD	?TMP1,STACK >NEW-LOC
+	GET	PIECE-MOVE-TABLE,CNT
+	ZERO?	STACK /?PRG1
+	EQUAL?	WINNER,BLACK-KNIGHT,WHITE-KNIGHT /?PRG1
+	CALL2	PIECE-AT-NEW-LOC?,NEW-LOC
+	ZERO?	STACK /?PRG1
+	SET	'BLOCK,TRUE-VALUE
+	PRINTI	"""Alas, the path between here and there is not unobstructed."""
+	CRLF	
+?REP2:	GET	PIECE-MOVE-TABLE,0
+	CALL2	DIR-TO-STRING,STACK >DIR
+	COPYT	PIECE-MOVE-TABLE,0,16
+	ZERO?	BLOCK \TRUE
+	CALL	ILLEGAL-MOVE?,NEW-LOC,NEW-RANK,NEW-FILE >X
+	EQUAL?	X,M-FATAL \?CCL32
+	PRINTR	"""That land is occupied!"""
+?CCL32:	ZERO?	X /?CCL34
+	PRINT	CANNOT-TRAVEL
+	CALL1	STOP
+	RSTACK	
+?CCL34:	GRTR?	NEW-RANK,8 /?CTR35
+	GRTR?	NEW-FILE,8 /?CTR35
+	LESS?	NEW-RANK,1 /?CTR35
+	LESS?	NEW-FILE,1 \?CCL36
+?CTR35:	PRINTI	"""You would have me plunge off the end of the world"
+	EQUAL?	HERE,CONSTRUCTION \?CND41
+	PRINTI	" -- or whatever passes for the end of the world in this forsaken badland"
+?CND41:	PRINTR	"!"""
+?CCL36:	CALL2	TAKE-PIECE?,NEW-LOC
+	ZERO?	STACK \FALSE
+	REMOVE	WINNER
+	PRINTI	"""I'm off!"" The "
+	PRINTD	WINNER
+	EQUAL?	WINNER,WHITE-KNIGHT,BLACK-KNIGHT \?CCL47
+	PRINTI	" and his steed jump high into the air and vanish! A moment later, you hear a proud whinny in the distance."
+	JUMP	?CND45
+?CCL47:	PRINTI	" moves out of sight to the "
+	PRINT	DIR
+	PRINTC	46
+?CND45:	CRLF	
+	EQUAL?	WINNER,WHITE-PAWN \?CCL50
+	EQUAL?	HERE,PLAIN \?CCL50
+	LESS?	NEW-LOC,8 \?CCL50
+	ICALL	ROB,WHITE-PAWN,WHITE-QUEEN
+	SET	'WINNER,WHITE-QUEEN
+	JUMP	?CND48
+?CCL50:	EQUAL?	WINNER,BLACK-PAWN \?CND48
+	EQUAL?	HERE,PLAIN \?CND48
+	GRTR?	NEW-LOC,55 \?CND48
+	ICALL	ROB,BLACK-PAWN,BLACK-QUEEN
+	SET	'WINNER,BLACK-QUEEN
+?CND48:	EQUAL?	HERE,PLAIN \?CCL60
+	SET	'OFFSET,PLAIN-OFFSET
+	JUMP	?CND58
+?CCL60:	SET	'OFFSET,CONSTRUCTION-OFFSET
+?CND58:	ADD	NEW-LOC,OFFSET
+	ICALL	PIECE-SNARF,STACK,WINNER
+	CALL	PUT-IN-STORAGE,OFFSET,WINNER,NEW-LOC
+	RSTACK	
+
+
+	.FUNCT	DIR-TO-STRING,DIR
+	EQUAL?	DIR,P?UP \?CCL3
+	RETURN	STR?912
+?CCL3:	EQUAL?	DIR,P?DOWN \?CCL5
+	RETURN	STR?913
+?CCL5:	EQUAL?	DIR,P?NORTH \?CCL7
+	RETURN	STR?198
+?CCL7:	EQUAL?	DIR,P?NE \?CCL9
+	RETURN	STR?828
+?CCL9:	EQUAL?	DIR,P?EAST \?CCL11
+	RETURN	STR?827
+?CCL11:	EQUAL?	DIR,P?SE \?CCL13
+	RETURN	STR?263
+?CCL13:	EQUAL?	DIR,P?SOUTH \?CCL15
+	RETURN	STR?199
+?CCL15:	EQUAL?	DIR,P?SW \?CCL17
+	RETURN	STR?826
+?CCL17:	EQUAL?	DIR,P?WEST \?CCL19
+	RETURN	STR?824
+?CCL19:	EQUAL?	DIR,P?NW \FALSE
+	RETURN	STR?825
+
+
+	.FUNCT	PIECE-SNARF,NEW-LOC,SNARFER,OBJ,CNT,TOOK-PIGEON
+?PRG1:	LESS?	CNT,STORAGE-TABLE-LENGTH \?REP2
+	GET	STORAGE-TABLE,CNT
+	EQUAL?	STACK,NEW-LOC \?CND3
+	ADD	CNT,1
+	GET	STORAGE-TABLE,STACK >OBJ
+	FSET?	OBJ,TAKEBIT \?CND3
+	FSET?	OBJ,TRYTAKEBIT /?CND3
+	CALL	FIND-IN,OBJ,TRYTAKEBIT
+	ZERO?	STACK \?CND3
+	EQUAL?	OBJ,PIGEON \?CND12
+	SET	'TOOK-PIGEON,TRUE-VALUE
+?CND12:	MOVE	OBJ,SNARFER
+	PUT	STORAGE-TABLE,CNT,0
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,0
+?CND3:	ADD	CNT,2 >CNT
+	JUMP	?PRG1
+?REP2:	ZERO?	TOOK-PIGEON /FALSE
+	CALL2	MOVE-TO-PERCH,SNARFER
+	RSTACK	
+
+
+	.FUNCT	TAKE-PIECE?,NEW-LOC,TAKEE,VAL
+	CALL2	PIECE-AT-NEW-LOC?,NEW-LOC >TAKEE
+	ZERO?	TAKEE \?CCL3
+	RETURN	VAL
+?CCL3:	FSET?	TAKEE,WHITEBIT \?PRD7
+	FSET?	WINNER,WHITEBIT /?CTR4
+?PRD7:	FSET?	TAKEE,BLACKBIT \?CCL5
+	FSET?	WINNER,BLACKBIT \?CCL5
+?CTR4:	PRINTI	"""I cannot attack one of my own side!"""
+	CRLF	
+	SET	'VAL,TRUE-VALUE
+	RETURN	VAL
+?CCL5:	ICALL	PIECE-AT-NEW-LOC?,NEW-LOC,TRUE-VALUE
+	RETURN	VAL
+
+
+	.FUNCT	ILLEGAL-MOVE?,NEW-LOC,NEW-RANK,NEW-FILE,TAKEE,OLD-LOC
+	EQUAL?	HERE,PLAIN \?CCL3
+	SET	'OLD-LOC,PLAIN-LOC
+	JUMP	?CND1
+?CCL3:	SET	'OLD-LOC,CONSTRUCTION-LOC
+?CND1:	EQUAL?	WINNER,WHITE-KNIGHT,BLACK-KNIGHT \?CCL6
+	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,6,10,15 /FALSE
+	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,17,-6,-10 /FALSE
+	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,-15,-17 /FALSE
+	RTRUE	
+?CCL6:	EQUAL?	WINNER,WHITE-KING,BLACK-KING \?CCL14
+	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,1,7,8 /FALSE
+	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,9,-1,-7 /FALSE
+	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,-8,-9 /FALSE
+	RTRUE	
+?CCL14:	EQUAL?	WINNER,BLACK-BISHOP \?CCL22
+	GRTR?	OLD-LOC,NEW-LOC \?CCL25
+	SUB	OLD-LOC,NEW-LOC
+	MOD	STACK,7
+	ZERO?	STACK /FALSE
+	SUB	OLD-LOC,NEW-LOC
+	MOD	STACK,9
+	ZERO?	STACK /FALSE
+	RTRUE	
+?CCL25:	SUB	NEW-LOC,OLD-LOC
+	MOD	STACK,7
+	ZERO?	STACK /FALSE
+	SUB	NEW-LOC,OLD-LOC
+	MOD	STACK,9
+	ZERO?	STACK /FALSE
+	RTRUE	
+?CCL22:	EQUAL?	WINNER,WHITE-CASTLE \?CCL37
+	EQUAL?	RANK,NEW-RANK /FALSE
+	EQUAL?	FILE,NEW-FILE /FALSE
+	RTRUE	
+?CCL37:	EQUAL?	WINNER,WHITE-QUEEN,BLACK-QUEEN \?CCL44
+	EQUAL?	RANK,NEW-RANK /FALSE
+	EQUAL?	FILE,NEW-FILE /FALSE
+	GRTR?	NEW-LOC,OLD-LOC \?CCL51
+	SUB	NEW-LOC,OLD-LOC
+	MOD	STACK,7
+	ZERO?	STACK /FALSE
+	SUB	NEW-LOC,OLD-LOC
+	MOD	STACK,9
+	ZERO?	STACK /FALSE
+?CCL51:	GRTR?	OLD-LOC,NEW-LOC \TRUE
+	SUB	OLD-LOC,NEW-LOC
+	MOD	STACK,7
+	ZERO?	STACK /FALSE
+	SUB	OLD-LOC,NEW-LOC
+	MOD	STACK,9
+	ZERO?	STACK /FALSE
+	RTRUE	
+?CCL44:	EQUAL?	WINNER,BLACK-PAWN \?CCL63
+	CALL2	PIECE-AT-NEW-LOC?,NEW-LOC >TAKEE
+	EQUAL?	OLD-LOC,14 \?CCL66
+	EQUAL?	NEW-LOC,30 \?CCL66
+	ZERO?	TAKEE /FALSE
+	RETURN	2
+?CCL66:	SUB	NEW-LOC,OLD-LOC
+	EQUAL?	STACK,7,9 \?CCL75
+	ZERO?	TAKEE \FALSE
+	RTRUE	
+?CCL75:	SUB	NEW-LOC,OLD-LOC
+	EQUAL?	STACK,8 \TRUE
+	ZERO?	TAKEE /FALSE
+	RETURN	2
+?CCL63:	EQUAL?	WINNER,WHITE-PAWN \?CCL87
+	CALL2	PIECE-AT-NEW-LOC?,NEW-LOC >TAKEE
+	EQUAL?	OLD-LOC,49 \?CCL90
+	EQUAL?	NEW-LOC,33 \?CCL90
+	ZERO?	TAKEE /FALSE
+	RETURN	2
+?CCL90:	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,7,9 \?CCL99
+	ZERO?	TAKEE \FALSE
+	RTRUE	
+?CCL99:	SUB	OLD-LOC,NEW-LOC
+	EQUAL?	STACK,8 \TRUE
+	ZERO?	TAKEE /FALSE
+	RETURN	2
+?CCL87:	PRINTR	"Bug7"
+
+
+	.FUNCT	PIECE-AT-NEW-LOC?,NEW-LOC,TAKE-PIECE,CNT,TAKEE
+	EQUAL?	HERE,CONSTRUCTION \?CCL3
+	PUSH	CONSTRUCTION-OFFSET
+	JUMP	?CND1
+?CCL3:	PUSH	PLAIN-OFFSET
+?CND1:	ADD	NEW-LOC,STACK >NEW-LOC
+?PRG4:	GET	STORAGE-TABLE,CNT
+	EQUAL?	NEW-LOC,STACK \?CND6
+	ADD	CNT,1
+	GET	STORAGE-TABLE,STACK >TAKEE
+	FSET?	TAKEE,WHITEBIT /?CCL9
+	FSET?	TAKEE,BLACKBIT \?CND6
+?CCL9:	ZERO?	TAKE-PIECE /?REP5
+	ICALL	ROB,TAKEE,WINNER
+	PUT	STORAGE-TABLE,CNT,0
+	JUMP	?REP5
+?CND6:	ADD	CNT,2 >CNT
+	LESS?	CNT,STORAGE-TABLE-LENGTH /?PRG4
+?REP5:	ZERO?	TAKEE /FALSE
+	FSET?	TAKEE,WHITEBIT /?CTR19
+	FSET?	TAKEE,BLACKBIT \FALSE
+?CTR19:	RETURN	TAKEE
+
+
+	.FUNCT	OBSTRUCTION,L,DIR,CALLED-BY-EXIT-F,CHANGE
+	EQUAL?	DIR,P?NORTH \?CCL3
+	INTBL?	L,NORTH-EXITS,11 /?CTR2
+	ADD	L,100
+	INTBL?	STACK,NORTH-EXITS,11 \?CCL3
+?CTR2:	SET	'CHANGE,-8
+	JUMP	?CND1
+?CCL3:	EQUAL?	DIR,P?NE \?CCL9
+	INTBL?	L,NE-EXITS,17 \?CCL9
+	SET	'CHANGE,-7
+	JUMP	?CND1
+?CCL9:	EQUAL?	DIR,P?EAST \?CCL13
+	EQUAL?	L,47 \?CCL16
+	ZERO?	CALLED-BY-EXIT-F /?CCL16
+	SET	'CHANGE,100
+	JUMP	?CND1
+?CCL16:	INTBL?	L,EAST-EXITS,15 \?CND1
+	SET	'CHANGE,1
+	JUMP	?CND1
+?CCL13:	EQUAL?	DIR,P?SE \?CCL21
+	INTBL?	L,SE-EXITS,7 /?CTR20
+	ADD	L,100
+	INTBL?	STACK,SE-EXITS,7 \?CCL21
+?CTR20:	SET	'CHANGE,9
+	JUMP	?CND1
+?CCL21:	EQUAL?	DIR,P?SOUTH \?CCL27
+	ADD	L,8
+	INTBL?	STACK,NORTH-EXITS,11 /?CTR26
+	ADD	L,108
+	INTBL?	STACK,NORTH-EXITS,11 \?CCL27
+?CTR26:	SET	'CHANGE,8
+	JUMP	?CND1
+?CCL27:	EQUAL?	DIR,P?SW \?CCL33
+	ADD	L,7
+	INTBL?	STACK,NE-EXITS,17 \?CCL33
+	SET	'CHANGE,7
+	JUMP	?CND1
+?CCL33:	EQUAL?	DIR,P?WEST \?CCL37
+	SUB	L,1
+	INTBL?	STACK,EAST-EXITS,15 \?CCL37
+	SET	'CHANGE,-1
+	JUMP	?CND1
+?CCL37:	EQUAL?	DIR,P?NW \?CND1
+	SUB	L,9
+	INTBL?	STACK,SE-EXITS,7 /?CCL40
+	ADD	L,91
+	INTBL?	STACK,SE-EXITS,7 \?CND1
+?CCL40:	SET	'CHANGE,-9
+?CND1:	ZERO?	CALLED-BY-EXIT-F /?CCL47
+	RETURN	CHANGE
+?CCL47:	ZERO?	CHANGE /TRUE
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	CONSTRUCTION-ENTER-F,RARG
+	ZERO?	RARG \FALSE
+	SET	'CONSTRUCTION-LOC,47
+	RETURN	CONSTRUCTION
+
+	.SEGMENT "0"
+
+
+	.FUNCT	HAMMER-F
+	EQUAL?	PRSA,V?KILL \?CCL3
+	EQUAL?	PRSI,HAMMER \?CCL3
+	ICALL	PERFORM,V?MUNG,PRSO,HAMMER
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?MUNG \FALSE
+	EQUAL?	PRSI,HAMMER \FALSE
+	FSET?	PRSO,ANIMATEDBIT \FALSE
+	PRINTI	"Fortunately,"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" evades your blow."
+
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	CONSTRUCTION-F,RARG,CNT
+	EQUAL?	RARG,M-LOOK \?CCL3
+	INTBL?	CONSTRUCTION-LOC,NORTH-EXITS,11 \?CND4
+	INC	'CNT
+?CND4:	INTBL?	CONSTRUCTION-LOC,NE-EXITS,17 \?CND6
+	INC	'CNT
+?CND6:	INTBL?	CONSTRUCTION-LOC,EAST-EXITS,15 \?CND8
+	INC	'CNT
+?CND8:	INTBL?	CONSTRUCTION-LOC,SE-EXITS,7 \?CND10
+	INC	'CNT
+?CND10:	ADD	CONSTRUCTION-LOC,8
+	INTBL?	STACK,NORTH-EXITS,11 \?CND12
+	INC	'CNT
+?CND12:	ADD	CONSTRUCTION-LOC,7
+	INTBL?	STACK,NE-EXITS,17 \?CND14
+	INC	'CNT
+?CND14:	SUB	CONSTRUCTION-LOC,1
+	INTBL?	STACK,EAST-EXITS,15 \?CND16
+	INC	'CNT
+?CND16:	SUB	CONSTRUCTION-LOC,9
+	INTBL?	STACK,SE-EXITS,7 \?CND18
+	INC	'CNT
+?CND18:	PRINTI	"You are in an abandoned underground construction site, roughly octagonal in shape. "
+	GRTR?	CNT,0 \?CND20
+	PRINTI	"There "
+	EQUAL?	CNT,1 \?CCL24
+	PRINTI	"is an exit"
+	JUMP	?CND22
+?CCL24:	PRINTI	"are exits"
+?CND22:	PRINTI	" to the "
+	INTBL?	CONSTRUCTION-LOC,NORTH-EXITS,11 \?CND25
+	PRINTI	"north"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND25:	INTBL?	CONSTRUCTION-LOC,NE-EXITS,17 \?CND27
+	PRINTI	"northeast"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND27:	INTBL?	CONSTRUCTION-LOC,EAST-EXITS,15 \?CND29
+	PRINTI	"east"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND29:	INTBL?	CONSTRUCTION-LOC,SE-EXITS,7 \?CND31
+	PRINTI	"southeast"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND31:	ADD	CONSTRUCTION-LOC,8
+	INTBL?	STACK,NORTH-EXITS,11 \?CND33
+	PRINTI	"south"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND33:	ADD	CONSTRUCTION-LOC,7
+	INTBL?	STACK,NE-EXITS,17 \?CND35
+	PRINTI	"southwest"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND35:	SUB	CONSTRUCTION-LOC,1
+	INTBL?	STACK,EAST-EXITS,15 \?CND37
+	PRINTI	"west"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND37:	SUB	CONSTRUCTION-LOC,9
+	INTBL?	STACK,SE-EXITS,7 \?CND39
+	PRINTI	"northwest"
+	DEC	'CNT
+	ICALL2	AND-OR-COMMA,CNT
+?CND39:	PRINTI	". "
+?CND20:	EQUAL?	CONSTRUCTION-LOC,47 \?CND41
+	PRINTI	"Also, a heavily used passage leads east. "
+?CND41:	PRINTI	"Engraved on the wall is the number "
+	PRINTN	CONSTRUCTION-LOC
+	PRINTC	46
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-ENTER \FALSE
+	DIV	CONSTRUCTION-LOC,8
+	ADD	STACK,1 >RANK
+	MOD	CONSTRUCTION-LOC,8
+	ADD	STACK,1 >FILE
+	CALL	UNSTORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC
+	RSTACK	
+
+
+	.FUNCT	AND-OR-COMMA,CNT
+	EQUAL?	CNT,1 \?CCL3
+	PRINTI	" and "
+	RTRUE	
+?CCL3:	GRTR?	CNT,1 \FALSE
+	PRINTI	", "
+	RTRUE	
+
+
+	.FUNCT	CONSTRUCTION-MOVEMENT-F,RARG,CHANGE
+	ZERO?	RARG \FALSE
+	ICALL	STORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC
+	CALL	OBSTRUCTION,CONSTRUCTION-LOC,PRSO,TRUE-VALUE >CHANGE
+	EQUAL?	CHANGE,100 \?CND3
+	RETURN	FIELD-OFFICE
+?CND3:	DIV	CONSTRUCTION-LOC,8
+	ADD	STACK,1 >RANK
+	MOD	CONSTRUCTION-LOC,8
+	ADD	STACK,1 >FILE
+	ZERO?	CHANGE \?CCL7
+	ICALL	UNSTORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC
+	ICALL1	CANT-GO
+	RFALSE	
+?CCL7:	ADD	CONSTRUCTION-LOC,CHANGE >CONSTRUCTION-LOC
+	ICALL	UNSTORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC
+	RETURN	CONSTRUCTION
+
+	.SEGMENT "0"
+
+
+	.FUNCT	REMOVE-ANY-PIECE,L,TAKER,TAKEE,CNT
+?PRG1:	LESS?	CNT,STORAGE-TABLE-LENGTH \TRUE
+	GET	STORAGE-TABLE,CNT
+	EQUAL?	STACK,L \?CND3
+	ADD	CNT,1
+	GET	STORAGE-TABLE,STACK >TAKEE
+	FSET?	TAKEE,WHITEBIT /?CCL8
+	FSET?	TAKEE,BLACKBIT \?CND3
+?CCL8:	ICALL	ROB,TAKEE,TAKER
+	PUT	STORAGE-TABLE,CNT,0
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,0
+?CND3:	ADD	CNT,2 >CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	PUT-IN-STORAGE,OFFSET,OBJ,L,CNT
+?PRG1:	GET	STORAGE-TABLE,CNT
+	ZERO?	STACK \?CCL5
+	ADD	L,OFFSET
+	PUT	STORAGE-TABLE,CNT,STACK
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,OBJ
+	RTRUE	
+?CCL5:	ADD	CNT,2 >CNT
+	JUMP	?PRG1
+
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+	.SEGMENT "FENSHIRE"
+
+	.SEGMENT "LOWER"
+
+
+	.FUNCT	STORE,OFFSET,L,RM,CNT,F,N
+	ASSIGNED?	'RM /?CND1
+	SET	'RM,HERE
+?CND1:	FIRST?	RM >F /?PRG4
+?PRG4:	ZERO?	F /TRUE
+	NEXT?	F >N /?CND6
+?CND6:	EQUAL?	F,PROTAGONIST /?CND10
+?PRG12:	EQUAL?	F,JESTER \?CCL16
+	ICALL1	REMOVE-J
+	JUMP	?CND10
+?CCL16:	GET	STORAGE-TABLE,CNT
+	ZERO?	STACK \?CCL18
+	ADD	L,OFFSET
+	PUT	STORAGE-TABLE,CNT,STACK
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,F
+	ADD	CNT,2 >CNT
+	REMOVE	F
+?CND10:	SET	'F,N
+	JUMP	?PRG4
+?CCL18:	ADD	CNT,2 >CNT
+	JUMP	?PRG12
+
+
+	.FUNCT	UNSTORE,OFFSET,L,RM,CNT,?TMP1
+	ASSIGNED?	'RM /?PRG3
+	SET	'RM,HERE
+?PRG3:	LESS?	CNT,STORAGE-TABLE-LENGTH \TRUE
+	GET	STORAGE-TABLE,CNT >?TMP1
+	ADD	L,OFFSET
+	EQUAL?	?TMP1,STACK \?CND5
+	ADD	CNT,1
+	GET	STORAGE-TABLE,STACK
+	MOVE	STACK,RM
+	PUT	STORAGE-TABLE,CNT,0
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,0
+?CND5:	ADD	CNT,2 >CNT
+	JUMP	?PRG3
+
+	.ENDSEG
+
+	.ENDI
diff --git a/chess.zil b/chess.zil
new file mode 100644
index 0000000..309d52b
--- /dev/null
+++ b/chess.zil
@@ -0,0 +1,937 @@
+"CHESS for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT FENSHIRE>
+
+<GLOBAL RANK 2> ;"used for both Plain and Construction"
+
+<GLOBAL FILE 5> ;"used for both Plain and Construction"
+
+<GLOBAL PLAIN-LOC 12>
+
+<ROOM PLAIN
+      (LOC ROOMS)
+      (REGION "Region:  Unknown")
+      (DESC "Plain")
+      (NORTH PER PLAIN-MOVEMENT-F)
+      (NE PER PLAIN-MOVEMENT-F)
+      (EAST PER PLAIN-MOVEMENT-F)
+      (SE PER PLAIN-MOVEMENT-F)
+      (SOUTH PER PLAIN-MOVEMENT-F)
+      (SW PER PLAIN-MOVEMENT-F)
+      (WEST PER PLAIN-MOVEMENT-F)
+      (NW PER PLAIN-MOVEMENT-F)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (VALUE 16)
+      (ACTION PLAIN-F)>
+
+;"if the sum of RANK and FILE is even, you're on a white square. If the sum
+is odd, you're on a black square."
+
+<ROUTINE PLAIN-F ("OPT" (RARG <>) "AUX" PIECE)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL "You are on an amazingly flat plain of ">
+		<COND (<EQUAL? <MOD <+ ,RANK ,FILE> 2> 0>
+		       <TELL "sun-bleached sand">)
+		      (T
+		       <TELL "deep, rich loam">)>
+		<TELL
+". The plain seems to stretch endlessly in all directions">
+		<COND (<OR <EQUAL? ,RANK 1 8>
+			   <EQUAL? ,FILE 1 8>>
+		       <TELL ", except to the ">
+		       <COND (<EQUAL? ,RANK 1>
+			      <TELL "north">
+			      <COND (<EQUAL? ,FILE 1>
+				     <TELL " and west">)
+				    (<EQUAL? ,FILE 8>
+				     <TELL " and east">)>)
+			     (<EQUAL? ,RANK 8>
+			      <TELL "south">
+			      <COND (<EQUAL? ,FILE 1>
+				     <TELL " and west">)
+				    (<EQUAL? ,FILE 8>
+				     <TELL " and east">)>)
+			     (<EQUAL? ,FILE 1>
+			      <TELL "west">)
+			     (T
+			      <TELL "east">)>
+		       <TELL ", where the world seems to end in a gray void">)>
+		<TELL ".">)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <SET PIECE <OR <FIND-IN ,HERE ,BLACKBIT>
+			      	    <FIND-IN ,HERE ,WHITEBIT>>>
+		     <NOT <FSET? .PIECE ,TOUCHBIT>>>
+		<FSET .PIECE ,TOUCHBIT>
+		<COND (<PROB 30>
+		       <TELL
+"   The " D .PIECE " notices your cloak and bows gracefully. \"Greetings,
+Lordship. It's been a long time between moves -- I'll bet you've got a great
+one planned!\"" CR>)>)>>
+
+<ROUTINE PLAIN-MOVEMENT-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RFALSE>)
+	       (<OR <AND <EQUAL? ,RANK 1>
+			 <PRSO? ,P?NORTH ,P?NE ,P?NW>>
+		    <AND <EQUAL? ,RANK 8>
+			 <PRSO? ,P?SOUTH ,P?SE ,P?SW>>
+		    <AND <EQUAL? ,FILE 8>
+			 <PRSO? ,P?EAST ,P?NE ,P?SE>>
+		    <AND <EQUAL? ,FILE 1>
+			 <PRSO? ,P?WEST ,P?NW ,P?SW>>>
+		<TELL "The world ends at a gray void in that direction." CR>
+		<RFALSE>)>
+	 <COND (<PRSO? ,P?NORTH ,P?NE ,P?NW>
+		<SETG RANK <- ,RANK 1>>)>
+	 <COND (<PRSO? ,P?SOUTH ,P?SE ,P?SW>
+		<SETG RANK <+ ,RANK 1>>)>
+	 <COND (<PRSO? ,P?EAST ,P?SE ,P?NE>
+		<SETG FILE <+ ,FILE 1>>)>
+	 <COND (<PRSO? ,P?WEST ,P?SW ,P?NW>
+		<SETG FILE <- ,FILE 1>>)>
+	 <STORE ,PLAIN-OFFSET ,PLAIN-LOC>
+	 <SETG PLAIN-LOC <- <+ <* <- ,RANK 1> 8> ,FILE> 1>>
+	 <UNSTORE ,PLAIN-OFFSET ,PLAIN-LOC>
+	 ,PLAIN>
+
+<OBJECT BLACK-KNIGHT
+	(DESC "mounted soldier")
+	(LDESC
+"There is a soldier on horseback here. His armor is made of the dullest
+metals, and his steed is darker than the night.")
+	(SYNONYM SOLDIER KNIGHT HORSE MAN)
+	(ADJECTIVE MOUNTED BLACK)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT WHITE-KNIGHT
+	(DESC "mounted soldier")
+	(LDESC
+"There is a soldier on horseback here. His armor is made of the shiniest
+metals, and his steed is lighter than drifted snow.")
+	(SYNONYM SOLDIER KNIGHT HORSE MAN)
+	(ADJECTIVE MOUNTED WHITE)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT BLACK-PAWN
+	(DESC "foot soldier")
+	(LDESC
+"You spot a solitary, bored-looking foot soldier. His face is smudged with
+coal dust, his uniform is sewn from deeply dyed wool, and the handle of his
+sword is solid obsidian.")
+	(SYNONYM SOLDIER PAWN MAN)
+	(ADJECTIVE FOOT BLACK)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT BLACK-QUEEN
+	(DESC "queen")
+	(LDESC
+"A regal woman proudly surveys the landscape in all directions. Her skin
+is dark; her royal garments even darker.")
+	(SYNONYM QUEEN WOMAN)
+	(ADJECTIVE REGAL PROUD DARK BLACK)
+	(FLAGS ACTORBIT FEMALEBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT WHITE-CASTLE
+	(DESC "man atop a castle tower")
+	(LDESC
+"Nearby rises a small tower keep, made of creamy marble. Between the
+crenellations of the parapet you spot a man, dressed in an ivory chain
+mail and carrying a crossbow made of birch.")
+	(SYNONYM MAN TOWER CASTLE ROOK)
+	(ADJECTIVE CASTLE WHITE)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT BLACK-BISHOP
+	(DESC "high priest")
+	(LDESC
+"You hear a sing-song prayer chant and turn to see a high priest of some sort.
+His tall, ebony headpiece bears a religious cipher, and his vestments seem to
+soak up all light.")
+	(SYNONYM PRIEST BISHOP MAN)
+	(ADJECTIVE HIGH BLACK)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT WHITE-PAWN
+	(DESC "foot soldier")
+	(LDESC
+"You spot a solitary, bored-looking foot soldier. His face is smudged with
+flour, his uniform is sewn from pure undyed cotton, and the handle of his
+sword is solid quartz.")
+	(SYNONYM SOLDIER PAWN MAN)
+	(ADJECTIVE WHITE FOOT)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT WHITE-QUEEN
+	(DESC "queen")
+	(LDESC
+"A regal woman proudly surveys the landscape in all directions. Her royal
+garments are as white as her pale complexion.")
+	(SYNONYM QUEEN WOMAN)
+	(ADJECTIVE REGAL PROUD WHITE)
+	(FLAGS ACTORBIT FEMALEBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT WHITE-KING
+	(DESC "royal leader")
+	(LDESC
+"A tall man wearing princely robes stands nearby. His bearing indicates that
+this is a man accustomed to command. His linen robes are trimmed with ermine,
+and his crown is studded with diamonds and opals.")
+	(SYNONYM LEADER KING MAN)
+	(ADJECTIVE ROYAL WHITE TALL)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT WHITEBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT WHITE-KING-CROWN
+	(LOC WHITE-KING)
+	(DESC "crown")
+	(SYNONYM CROWN)
+	(FLAGS NDESCBIT)>
+
+<OBJECT WHITE-KING-ROBE
+	(LOC WHITE-KING)
+	(DESC "robe")
+	(SYNONYM ROBE)
+	(FLAGS NDESCBIT)>
+
+<OBJECT BLACK-KING
+	(DESC "royal leader")
+	(LDESC
+"A tall man wearing princely robes stands nearby. His bearing indicates that
+this is a man accustomed to command. His velvet robes are trimmed with mink,
+and his crown is studded with polished onyx.")
+	(SYNONYM LEADER KING MAN)
+	(ADJECTIVE ROYAL BLACK TALL)
+	(FLAGS ACTORBIT CONTBIT OPENBIT SEARCHBIT BLACKBIT)
+	(ACTION PIECE-F)>
+
+<OBJECT BLACK-KING-ROBE
+	(LOC BLACK-KING)
+	(DESC "robe")
+	(SYNONYM ROBE)
+	(FLAGS NDESCBIT)>
+
+<OBJECT BLACK-KING-CROWN
+	(LOC BLACK-KING)
+	(DESC "crown")
+	(SYNONYM CROWN)
+	(FLAGS NDESCBIT)>
+
+<BEGIN-SEGMENT 0>
+;<BEGIN-SEGMENT VILLAGE>
+;<BEGIN-SEGMENT LOWER>
+
+<GLOBAL DIR-CNT 0>
+
+<ROUTINE PIECE-F ("OPT" (ARG <>) "AUX" CNT)
+	 <COND (<OR <FSET? ,WINNER ,BLACKBIT>
+		    <FSET? ,WINNER ,WHITEBIT>>
+		<COND (,TIME-STOPPED
+		       <SETG P-CONT -1>
+		       <TELL
+"Seemingly frozen," T ,WINNER " is unresponsive." CR>)
+		      (<AND <VERB? WALK>
+			    <PRSO? ,P?IN ,P?OUT ,P?UP ,P?DOWN>>
+		       <SETG DIR-CNT 0>
+		       <TELL ,CANNOT-TRAVEL>
+		       <STOP>)
+		      (<AND <NOT <AND <VERB? WALK>
+				      <T? ,P-WALK-DIR>>>
+			    <NOT <AND <VERB? MOVE>
+				      <PRSO? ,INTDIR>>>>
+		       <SETG DIR-CNT 0>
+		       <COND (<AND <VERB? WALK> ;"as in >ROOK, GO SOUTH ONE"
+				   ;<PRSO? ,WALL>
+				   <NOUN-USED? ,PRSO ,W?ONE>>
+			      <TELL
+"[The proper way to ask" T ,WINNER " to move is simply to tell
+the direction(s), as in >CHARACTER, NW.NW]" CR>)
+			     (T
+		       	      <SETG P-CONT -1>
+			      <TELL
+"\"You can tell me directions. That's it.\"" CR>)>)
+		      (<NOT <EQUAL? ,HERE ,PLAIN ,CONSTRUCTION>>
+		       <SETG P-CONT -1>
+		       <TELL
+"\"The terrain is strange and unfamiliar; I am too terrified to move!\"" CR>)
+		      (<EQUAL? ,DIR-CNT 7>
+		       <SETG DIR-CNT 0>
+		       <SETG P-CONT -1>
+		       <TELL "\"Too many directions!\"" CR>)
+		      (T
+		       <COND (<VERB? MOVE>
+			      <SETG PRSO <DIRECTION-CONVERSION>>)>
+		       <PUT ,PIECE-MOVE-TABLE ,DIR-CNT ,PRSO>
+		       <SETG DIR-CNT <+ ,DIR-CNT 1>>
+		       <COND (<AND <G? ,DIR-CNT 1>
+			       	   <NOT <EQUAL? ,WINNER
+						,WHITE-KNIGHT
+						,BLACK-KNIGHT>>
+				   <NOT <EQUAL? ,PRSO
+						<GET ,PIECE-MOVE-TABLE
+						     <- ,DIR-CNT 2>>>>>
+			      ;"checks to make sure that all directions given
+				are the same, except in the case of knights"
+			      <SETG DIR-CNT 0>
+			      <COPYT ,PIECE-MOVE-TABLE 0 16>
+			      <TELL ,CANNOT-TRAVEL>
+			      <STOP>)
+			     (<OR ,P-CONT ,M-PTR>
+			      <SETG CLOCK-WAIT T>)
+			     (T
+			      <SETG DIR-CNT 0>
+			      <MOVE-PIECE>)>)>
+		<RTRUE>)
+	       (<AND <VERB? ENTER>
+		     <PRSO? ,WHITE-CASTLE>
+		     <NOT <NOUN-USED? ,WHITE-CASTLE ,W?MAN>>>
+		<TELL "Oddly, there doesn't seem to be any entrance." CR>)
+	       (<AND <VERB? ENTER>
+		     <PRSO? ,WHITE-KNIGHT ,BLACK-KNIGHT>
+		     <NOUN-USED? ,PRSO ,W?HORSE>>
+		<TELL "The horse isn't large enough for two riders." CR>)
+	       (<VERB? MOVE>
+		<TELL
+"Perhaps you should tell" T ,PRSO " the direction(s)." CR>)
+	       (<AND <VERB? GIVE>
+		     <NOT <FSET? ,PRSO ,TRYTAKEBIT>>
+		     <NOT <FIND-IN ,PRSO ,TRYTAKEBIT>>
+		     <OR <FSET? ,PRSI ,WHITEBIT>
+			 <FSET? ,PRSI ,BLACKBIT>>>
+		<COND (,TIME-STOPPED
+		       <PERFORM ,V?TELL ,PRSI>
+		       <RTRUE>)>
+		<MOVE ,PRSO ,PRSI>
+		<TELL "The " D ,PRSI " takes" T ,PRSO ".">
+		<COND (<AND <PRSO? ,PIGEON>
+			    <NOT <EQUAL? ,HERE <META-LOC ,PERCH>>>
+			    <OR <NOT <EQUAL? ,HERE ,OUBLIETTE>>
+				<NOT <EQUAL? ,REMOVED-PERCH-LOC ,OUBLIETTE>>>>
+		       <PIECE-TAKES-PIGEON ,PRSI>)
+		      (T
+		       <TELL
+" \"Your graciousness is not unappreciated, your Lordship.\"" CR>)>)
+	       (<AND <VERB? ASK-FOR>
+		     <OR <FSET? <LOC ,PRSI> ,WHITEBIT>
+		     	 <FSET? <LOC ,PRSI> ,BLACKBIT>>>
+		<PERFORM ,V?TAKE ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE PIECE-TAKES-PIGEON (PIECE "OPTIONAL" (DO-CR T))
+	 <MOVE-TO-PERCH .PIECE>
+	 <TELL " Instantly,">
+	 <COND (<EQUAL? .PIECE ,WHITE-CASTLE>
+		<TELL " the tower">)
+	       (T
+		<TELL T .PIECE>)>
+	 <TELL " seems to grow more distant without moving. Within seconds,">
+	 <COND (<EQUAL? .PIECE ,WHITE-CASTLE>
+		<TELL " the tower">)
+	       (T
+		<TELL T .PIECE>)>
+	 <TELL " is gone.">
+	 <COND (.DO-CR
+		<CRLF>)>
+	 <RTRUE>>
+
+<CONSTANT PIECE-MOVE-TABLE
+	<TABLE 0 0 0 0 0 0 0 0>>
+
+<ROUTINE MOVE-PIECE
+	 ("AUX" CNT DIR NEW-RANK NEW-FILE NEW-LOC X OFFSET BLOCK)
+	 <SET NEW-RANK ,RANK>
+	 <SET NEW-FILE ,FILE>
+	 <SET NEW-LOC <+ <* <- .NEW-RANK 1> 8> <- .NEW-FILE 1>>>
+	 <SET CNT 0>
+	 <REPEAT ()
+		 <SET DIR <GET ,PIECE-MOVE-TABLE .CNT>>
+		 <COND (<EQUAL? .DIR <>>
+			<RETURN>)>
+		 <COND (<EQUAL? .DIR ,P?NORTH ,P?NE ,P?NW>
+			<SET NEW-RANK <- .NEW-RANK 1>>)>
+		 <COND (<EQUAL? .DIR ,P?EAST ,P?NE ,P?SE>
+			<SET NEW-FILE <+ .NEW-FILE 1>>)>
+		 <COND (<EQUAL? .DIR ,P?SOUTH ,P?SE ,P?SW>
+			<SET NEW-RANK <+ .NEW-RANK 1>>)>
+		 <COND (<EQUAL? .DIR ,P?WEST ,P?SW ,P?NW>
+			<SET NEW-FILE <- .NEW-FILE 1>>)>
+		 <SET CNT <+ .CNT 1>>
+		 <COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+			     <NOT <EQUAL? ,WINNER ,BLACK-KNIGHT ,WHITE-KNIGHT>>
+			     <OBSTRUCTION .NEW-LOC .DIR>>
+			<SET BLOCK T>
+			<COND (<AND <EQUAL? .DIR ,P?EAST>
+				    <EQUAL? .NEW-LOC 47>>
+			       <TELL
+"\"Appearances deceive you -- such a move would send me
+off the edge of the world!\"" CR>)
+			      (T
+			       <TELL
+"\"My word! There appears to be a wall in the way!\"" CR>)>
+			<RETURN>)>
+ 		 <SET NEW-LOC <+ <* <- .NEW-RANK 1> 8> <- .NEW-FILE 1>>>
+		 <COND (<AND <GET ,PIECE-MOVE-TABLE .CNT>
+			     <NOT <EQUAL? ,WINNER ,BLACK-KNIGHT ,WHITE-KNIGHT>>
+			     <PIECE-AT-NEW-LOC? .NEW-LOC>>
+			<SET BLOCK T>
+			<TELL
+"\"Alas, the path between here and there is not unobstructed.\"" CR>
+			<RETURN>)>>
+	 <SET DIR <DIR-TO-STRING <GET ,PIECE-MOVE-TABLE 0>>>
+	 ;"for later use, after chess piece says 'I'm off!'"
+	 <COPYT ,PIECE-MOVE-TABLE 0 16>
+	 <COND (.BLOCK ;"obstructed path to new square"
+		<RTRUE>)>
+	 <SET X <ILLEGAL-MOVE? .NEW-LOC .NEW-RANK .NEW-FILE>>
+	 <COND (<EQUAL? .X ,M-FATAL> ;"pawn blocked by another piece"
+		<TELL "\"That land is occupied!\"" CR>
+		<RTRUE>)
+	       (.X
+		<TELL ,CANNOT-TRAVEL>
+		<STOP>)
+	       (<OR <G? .NEW-RANK 8>
+		    <G? .NEW-FILE 8>
+		    <L? .NEW-RANK 1>
+		    <L? .NEW-FILE 1>>
+		<TELL
+"\"You would have me plunge off the end of the world">
+		<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <TELL
+" -- or whatever passes for the end of the world in this forsaken badland">)>
+		<TELL "!\"" CR>)
+	       (<NOT <TAKE-PIECE? .NEW-LOC>>
+		<REMOVE ,WINNER>
+		<TELL "\"I'm off!\" The " 'WINNER>
+		<COND (<EQUAL? ,WINNER ,WHITE-KNIGHT ,BLACK-KNIGHT>
+		       <TELL
+" and his steed jump high into the air and vanish! A moment later, you hear
+a proud whinny in the distance.">)
+		      (T
+		       <TELL " moves out of sight to the " .DIR ".">)>
+		<CRLF>
+		<COND (<AND <EQUAL? ,WINNER ,WHITE-PAWN>
+			    <EQUAL? ,HERE ,PLAIN>
+			    <L? .NEW-LOC 8>> ;"promote pawn to queen"
+		       <ROB ,WHITE-PAWN ,WHITE-QUEEN>
+		       <SETG WINNER ,WHITE-QUEEN>)
+		      (<AND <EQUAL? ,WINNER ,BLACK-PAWN>
+			    <EQUAL? ,HERE ,PLAIN>
+			    <G? .NEW-LOC 55>> ;"promote pawn to queen"
+		       <ROB ,BLACK-PAWN ,BLACK-QUEEN>
+		       <SETG WINNER ,BLACK-QUEEN>)>
+		<COND (<EQUAL? ,HERE ,PLAIN>
+		       <SET OFFSET ,PLAIN-OFFSET>)
+		      (T
+		       <SET OFFSET ,CONSTRUCTION-OFFSET>)>
+		<PIECE-SNARF <+ .NEW-LOC .OFFSET> ,WINNER>
+		<PUT-IN-STORAGE .OFFSET ,WINNER .NEW-LOC>)>>
+
+<ROUTINE DIR-TO-STRING (DIR)
+	 <COND (<EQUAL? .DIR ,P?UP>
+		<RETURN "up">)
+	       (<EQUAL? .DIR ,P?DOWN>
+		<RETURN "down">)
+	       (<EQUAL? .DIR ,P?NORTH>
+		<RETURN "north">)
+	       (<EQUAL? .DIR ,P?NE>
+		<RETURN "northeast">)
+	       (<EQUAL? .DIR ,P?EAST>
+		<RETURN "east">)
+	       (<EQUAL? .DIR ,P?SE>
+		<RETURN "southeast">)
+	       (<EQUAL? .DIR ,P?SOUTH>
+		<RETURN "south">)
+	       (<EQUAL? .DIR ,P?SW>
+		<RETURN "southwest">)
+	       (<EQUAL? .DIR ,P?WEST>
+		<RETURN "west">)
+	       (<EQUAL? .DIR ,P?NW>
+		<RETURN "northwest">)>>
+
+<ROUTINE PIECE-SNARF (NEW-LOC SNARFER "AUX" OBJ (CNT 0) (TOOK-PIGEON <>))
+	 <REPEAT ()
+		 <COND (<NOT <L? .CNT ,STORAGE-TABLE-LENGTH>>
+			<RETURN>)
+		       (<EQUAL? <GET ,STORAGE-TABLE .CNT> .NEW-LOC>
+			<SET OBJ <GET ,STORAGE-TABLE <+ .CNT 1>>>
+			<COND (<AND <FSET? .OBJ ,TAKEBIT>
+				    <NOT <FSET? .OBJ ,TRYTAKEBIT>>
+				    <NOT <FIND-IN .OBJ ,TRYTAKEBIT>>>
+			       <COND (<EQUAL? .OBJ ,PIGEON>
+				      <SET TOOK-PIGEON T>)>
+			       <MOVE .OBJ .SNARFER>
+			       <PUT ,STORAGE-TABLE .CNT 0>
+			       <PUT ,STORAGE-TABLE <+ .CNT 1> 0>)>)>
+		 <SET CNT <+ .CNT 2>>>
+	 <COND (.TOOK-PIGEON
+		<MOVE-TO-PERCH .SNARFER>)>>
+
+<ROUTINE TAKE-PIECE? (NEW-LOC "AUX" (TAKEE <>) (VAL <>))
+	 <SET TAKEE <PIECE-AT-NEW-LOC? .NEW-LOC>>
+	 <COND (<NOT .TAKEE>
+		T)
+	       (<OR <AND <FSET? .TAKEE ,WHITEBIT>
+			 <FSET? ,WINNER ,WHITEBIT>>
+		    <AND <FSET? .TAKEE ,BLACKBIT>
+			 <FSET? ,WINNER ,BLACKBIT>>>
+		<TELL "\"I cannot attack one of my own side!\"" CR>
+		<SET VAL T>)
+	       (T ;"take the TAKEE"
+		<PIECE-AT-NEW-LOC? .NEW-LOC T>)>
+	 <RETURN .VAL> ;"this routine is called by a predicate">
+
+<ROUTINE ILLEGAL-MOVE? (NEW-LOC NEW-RANK NEW-FILE "AUX" (TAKEE <>) OLD-LOC)
+	 <SET OLD-LOC <COND (<EQUAL? ,HERE ,PLAIN>
+			     ,PLAIN-LOC)
+			    (T
+			     ,CONSTRUCTION-LOC)>>
+	 <COND (<EQUAL? ,WINNER ,WHITE-KNIGHT ,BLACK-KNIGHT>
+		<COND (<EQUAL? <- .OLD-LOC .NEW-LOC>
+			       6 10 15 17 -6 -10 -15 -17>
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)
+	       (<EQUAL? ,WINNER ,WHITE-KING ,BLACK-KING>
+		<COND (<EQUAL? <- .OLD-LOC .NEW-LOC>
+			       1 7 8 9 -1 -7 -8 -9>
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)
+	       (<EQUAL? ,WINNER ,BLACK-BISHOP>
+		<COND (<G? .OLD-LOC .NEW-LOC>
+		       <COND (<EQUAL? <MOD <- .OLD-LOC .NEW-LOC> 7> 0>
+			      <RFALSE>)
+			     (<EQUAL? <MOD <- .OLD-LOC .NEW-LOC> 9> 0>
+			      <RFALSE>)
+			     (T
+			      <RTRUE>)>)
+		      (T
+		       <COND (<EQUAL? <MOD <- .NEW-LOC .OLD-LOC> 7> 0>
+			      <RFALSE>)
+			     (<EQUAL? <MOD <- .NEW-LOC .OLD-LOC> 9> 0>
+			      <RFALSE>)
+			     (T
+			      <RTRUE>)>)>)
+	       (<EQUAL? ,WINNER ,WHITE-CASTLE>
+		<COND (<AND <NOT <EQUAL? ,RANK .NEW-RANK>>
+		     	    <NOT <EQUAL? ,FILE .NEW-FILE>>>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (<EQUAL? ,WINNER ,WHITE-QUEEN ,BLACK-QUEEN>
+		<COND (<OR <EQUAL? ,RANK .NEW-RANK>
+			   <EQUAL? ,FILE .NEW-FILE>>
+		       <RFALSE>)
+		      (<AND <G? .NEW-LOC .OLD-LOC>
+			    <OR <EQUAL? <MOD <- .NEW-LOC .OLD-LOC> 7> 0>
+				<EQUAL? <MOD <- .NEW-LOC .OLD-LOC> 9> 0>>>
+		       <RFALSE>)
+		      (<AND <G? .OLD-LOC .NEW-LOC>
+			    <OR <EQUAL? <MOD <- .OLD-LOC .NEW-LOC> 7> 0>
+				<EQUAL? <MOD <- .OLD-LOC .NEW-LOC> 9> 0>>>
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)
+	       (<EQUAL? ,WINNER ,BLACK-PAWN>
+		<SET TAKEE <PIECE-AT-NEW-LOC? .NEW-LOC>>
+		<COND (<AND <EQUAL? .OLD-LOC 14>
+			    <EQUAL? .NEW-LOC 30>>
+		       ;"pawn can move two spaces on first move"
+		       <COND (.TAKEE
+			      <RFATAL>)
+			     (T
+			      <RFALSE>)>)
+		      (<EQUAL? <- .NEW-LOC .OLD-LOC> 7 9>
+		       <COND (<NOT .TAKEE>
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (<EQUAL? <- .NEW-LOC .OLD-LOC> 8>
+		       <COND (.TAKEE
+			      <RFATAL>)
+			     (T
+			      <RFALSE>)>)
+		      (T
+		       <RTRUE>)>)
+	       (<EQUAL? ,WINNER ,WHITE-PAWN>
+		<SET TAKEE <PIECE-AT-NEW-LOC? .NEW-LOC>>
+		<COND (<AND <EQUAL? .OLD-LOC 49>
+			    <EQUAL? .NEW-LOC 33>>
+		       ;"pawn can move two spaces on first move"
+		       <COND (.TAKEE
+			      <RFATAL>)
+			     (T
+			      <RFALSE>)>)
+		      (<EQUAL? <- .OLD-LOC .NEW-LOC> 7 9>
+		       <COND (.TAKEE
+			      <RFALSE>)
+			     (T
+			      <RTRUE>)>)
+		      (<EQUAL? <- .OLD-LOC .NEW-LOC> 8>
+		       <COND (.TAKEE
+			      <RFATAL>)
+			     (T
+			      <RFALSE>)>)
+		      (T
+		       <RTRUE>)>)
+	       (T
+		<TELL "Bug7" CR>)>>
+
+<ROUTINE PIECE-AT-NEW-LOC?
+	 (NEW-LOC "OPTIONAL" (TAKE-PIECE <>) "AUX" (CNT 0) (TAKEE <>))
+	 <SET NEW-LOC <+ .NEW-LOC <COND (<EQUAL? ,HERE ,CONSTRUCTION>
+					 ,CONSTRUCTION-OFFSET)
+					(T
+					 ,PLAIN-OFFSET)>>>
+	 <REPEAT ()
+		<COND (<EQUAL? .NEW-LOC <GET ,STORAGE-TABLE .CNT>>
+		       <SET TAKEE <GET ,STORAGE-TABLE <+ .CNT 1>>>
+		       <COND (<OR <FSET? .TAKEE ,WHITEBIT>
+				  <FSET? .TAKEE ,BLACKBIT>>
+			      <COND (.TAKE-PIECE
+				     <ROB .TAKEE ,WINNER>
+				     <PUT ,STORAGE-TABLE .CNT 0>)>
+			      <RETURN>)>)>
+		 <SET CNT <+ .CNT 2>>
+		 <COND (<NOT <L? .CNT ,STORAGE-TABLE-LENGTH>>
+			<RETURN>)>>
+	 <COND (<NOT .TAKEE>
+		<RFALSE>) 
+	       (<OR <FSET? .TAKEE ,WHITEBIT>
+		    <FSET? .TAKEE ,BLACKBIT>>
+		<RETURN .TAKEE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE OBSTRUCTION (L DIR "OPT" (CALLED-BY-EXIT-F <>) "AUX" (CHANGE 0))
+	 <COND (<AND <EQUAL? .DIR ,P?NORTH>
+		     <OR <INTBL? .L ,NORTH-EXITS 11>
+			 <INTBL? <+ .L 100> ,NORTH-EXITS 11>>>
+		<SET CHANGE -8>)
+	       (<AND <EQUAL? .DIR ,P?NE>
+		     <INTBL? .L ,NE-EXITS 17>>
+		<SET CHANGE -7>)
+	       (<EQUAL? .DIR ,P?EAST>
+		<COND (<AND <EQUAL? .L 47>
+			    .CALLED-BY-EXIT-F>
+		       <SET CHANGE 100> ;"kludge")
+		      (<INTBL? .L ,EAST-EXITS 15>
+		       <SET CHANGE 1>)>)
+	       (<AND <EQUAL? .DIR ,P?SE>
+		     <OR <INTBL? .L ,SE-EXITS 7>
+		     	 <INTBL? <+ .L 100> ,SE-EXITS 7>>>
+		<SET CHANGE 9>)
+	       (<AND <EQUAL? .DIR ,P?SOUTH>
+		     <OR <INTBL? <+ .L 8> ,NORTH-EXITS 11>
+			 <INTBL? <+ .L 108> ,NORTH-EXITS 11>>>
+		<SET CHANGE 8>)
+	       (<AND <EQUAL? .DIR ,P?SW>
+		     <INTBL? <+ .L 7> ,NE-EXITS 17>>
+		<SET CHANGE 7>)
+	       (<AND <EQUAL? .DIR ,P?WEST>
+		     <INTBL? <- .L 1> ,EAST-EXITS 15>>
+		<SET CHANGE -1>)
+	       (<AND <EQUAL? .DIR ,P?NW>
+		     <OR <INTBL? <- .L 9> ,SE-EXITS 7>
+		     	 <INTBL? <+ .L 91> ,SE-EXITS 7>>>
+		<SET CHANGE -9>)>
+	 <COND (.CALLED-BY-EXIT-F
+		<RETURN .CHANGE>)
+	       (<EQUAL? .CHANGE 0>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM FIELD-OFFICE
+      (LOC ROOMS)
+      (DESC "Field Office")
+      (REGION "Flatheadia")
+      (LDESC
+"This is a temporary headquarters for a construction site to the west.
+Another exit leads east.")
+      (EAST TO EXIT)
+      (WEST PER CONSTRUCTION-ENTER-F)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-4>)>
+
+<ROUTINE CONSTRUCTION-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RFALSE>)>
+	 <SETG CONSTRUCTION-LOC 47>
+	 ,CONSTRUCTION>
+
+<OBJECT BLUEPRINT
+	(LOC FIELD-OFFICE)
+	(DESC "blueprint")
+	(SYNONYM BLUEPRINT)
+	(FLAGS TAKEBIT BURNBIT READBIT)
+	(SIZE 2)
+	(TEXT "[This is the blueprint from your ZORK ZERO package.]")>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT HAMMER ;"in table, at Construction room #61"
+	(DESC "hammer")
+	(SYNONYM HAMMER)
+	(FLAGS TAKEBIT)
+	(SIZE 16)
+	(ACTION HAMMER-F)>
+
+<ROUTINE HAMMER-F ()
+	 <COND (<AND <VERB? KILL>
+		     <PRSI? ,HAMMER>> ;"hit object with hammer"
+		<PERFORM ,V?MUNG ,PRSO ,HAMMER>
+		<RTRUE>)
+	       (<AND <VERB? MUNG>
+		     <PRSI? ,HAMMER>
+		     <FSET? ,PRSO ,ANIMATEDBIT>>
+		<TELL "Fortunately," T ,PRSO " evades your blow." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM CONSTRUCTION
+      (LOC ROOMS)
+      (DESC "Construction")
+      (REGION "Flatheadia")
+      (NORTH PER CONSTRUCTION-MOVEMENT-F)
+      (NE PER CONSTRUCTION-MOVEMENT-F)
+      (EAST PER CONSTRUCTION-MOVEMENT-F)
+      (SE PER CONSTRUCTION-MOVEMENT-F)
+      (SOUTH PER CONSTRUCTION-MOVEMENT-F)
+      (SW PER CONSTRUCTION-MOVEMENT-F)
+      (WEST PER CONSTRUCTION-MOVEMENT-F)
+      (NW PER CONSTRUCTION-MOVEMENT-F)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (ACTION CONSTRUCTION-F)>
+
+<ROUTINE CONSTRUCTION-F ("OPT" (RARG <>) "AUX" (CNT 0))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<INTBL? ,CONSTRUCTION-LOC ,NORTH-EXITS 11>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? ,CONSTRUCTION-LOC ,NE-EXITS 17>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? ,CONSTRUCTION-LOC ,EAST-EXITS 15>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? ,CONSTRUCTION-LOC ,SE-EXITS 7>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? <+ ,CONSTRUCTION-LOC 8> ,NORTH-EXITS 11>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? <+ ,CONSTRUCTION-LOC 7> ,NE-EXITS 17>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? <- ,CONSTRUCTION-LOC 1> ,EAST-EXITS 15>
+		       <SET CNT <+ .CNT 1>>)>
+		<COND (<INTBL? <- ,CONSTRUCTION-LOC 9> ,SE-EXITS 7>
+		       <SET CNT <+ .CNT 1>>)>
+		<TELL
+"You are in an abandoned underground construction site, roughly
+octagonal in shape. ">
+		<COND (<G? .CNT 0>
+		       <TELL "There ">
+		       <COND (<EQUAL? .CNT 1>
+			      <TELL "is an exit">)
+			     (T
+			      <TELL "are exits">)>
+		       <TELL " to the ">
+		       <COND (<INTBL? ,CONSTRUCTION-LOC ,NORTH-EXITS 11>
+			      <TELL "north">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? ,CONSTRUCTION-LOC ,NE-EXITS 17>
+			      <TELL "northeast">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? ,CONSTRUCTION-LOC ,EAST-EXITS 15>
+			      <TELL "east">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? ,CONSTRUCTION-LOC ,SE-EXITS 7>
+			      <TELL "southeast">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? <+ ,CONSTRUCTION-LOC 8> ,NORTH-EXITS 11>
+			      <TELL "south">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? <+ ,CONSTRUCTION-LOC 7> ,NE-EXITS 17>
+			      <TELL "southwest">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? <- ,CONSTRUCTION-LOC 1> ,EAST-EXITS 15>
+			      <TELL "west">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <COND (<INTBL? <- ,CONSTRUCTION-LOC 9> ,SE-EXITS 7>
+			      <TELL "northwest">
+			      <SET CNT <- .CNT 1>>
+			      <AND-OR-COMMA .CNT>)>
+		       <TELL ". ">)>
+		<COND (<EQUAL? ,CONSTRUCTION-LOC 47>
+		       <TELL "Also, a heavily used passage leads east. ">)>
+		<TELL
+"Engraved on the wall is the number " N ,CONSTRUCTION-LOC ".">)
+	       (<EQUAL? .RARG ,M-ENTER>
+		<SETG RANK <+ </ ,CONSTRUCTION-LOC 8> 1>>
+	 	<SETG FILE <+ <MOD ,CONSTRUCTION-LOC 8> 1>>
+		<UNSTORE ,CONSTRUCTION-OFFSET ,CONSTRUCTION-LOC>)>>
+
+<ROUTINE AND-OR-COMMA (CNT)
+	 <COND (<EQUAL? .CNT 1>
+		<TELL " and ">)
+	       (<G? .CNT 1>
+		<TELL ", ">)>>
+
+<ROUTINE CONSTRUCTION-MOVEMENT-F ("OPT" (RARG <>) "AUX" (CHANGE 0))
+	 <COND (.RARG
+		<RFALSE>)>
+	 <STORE ,CONSTRUCTION-OFFSET ,CONSTRUCTION-LOC>
+	 <SET CHANGE <OBSTRUCTION ,CONSTRUCTION-LOC ,PRSO T>>
+	 <COND (<EQUAL? .CHANGE 100>
+		<RETURN ,FIELD-OFFICE>)>
+	 <SETG RANK <+ </ ,CONSTRUCTION-LOC 8> 1>>
+	 <SETG FILE <+ <MOD ,CONSTRUCTION-LOC 8> 1>>
+	 <COND (<EQUAL? .CHANGE 0>
+		<UNSTORE ,CONSTRUCTION-OFFSET ,CONSTRUCTION-LOC>
+		<CANT-GO>
+		<RFALSE>)
+	       (T
+		<SETG CONSTRUCTION-LOC <+ ,CONSTRUCTION-LOC .CHANGE>>
+		<UNSTORE ,CONSTRUCTION-OFFSET ,CONSTRUCTION-LOC>
+		,CONSTRUCTION)>>
+
+<GLOBAL CONSTRUCTION-LOC 47>
+
+<CONSTANT NORTH-EXITS ;"10 rooms plus placeholder for FM passage = 11 entries"
+	<TABLE 99 ;"placeholder" 20 33 37 40 46 48 50 55 59 61>>
+
+<CONSTANT NE-EXITS ;"17 rooms"
+	<TABLE 12 13 14 20 22 27 28 29 33 36 41 43 46 49 50 53 54>>
+
+<CONSTANT EAST-EXITS ;"15 rooms"
+	<TABLE 5 6 12 22 26 30 34 38 42 44 51 56 57 61 62>>
+
+<CONSTANT SE-EXITS ;"6 rooms plus one placeholder = 7 entries"
+	<TABLE 99 ;"placeholder" 17 40 43 48 51 54>>
+
+<OBJECT HARDHAT ;"in table, at Construction room #0"
+	(DESC "hardhat")
+	(SYNONYM HARDHAT HAT)
+	(ADJECTIVE HARD)
+	(FLAGS TAKEBIT WEARBIT)
+	(GENERIC G-HAT-F)
+	(VALUE 25)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE REMOVE-ANY-PIECE (L TAKER "AUX" TAKEE (CNT 0))
+	 <REPEAT ()
+		 <COND (<NOT <L? .CNT ,STORAGE-TABLE-LENGTH>>
+			<RETURN>)
+		       (<EQUAL? <GET ,STORAGE-TABLE .CNT> .L>
+			<SET TAKEE <GET ,STORAGE-TABLE <+ .CNT 1>>>
+			<COND (<OR <FSET? .TAKEE ,WHITEBIT>
+				   <FSET? .TAKEE ,BLACKBIT>>
+			       <ROB .TAKEE .TAKER>
+			       <PUT ,STORAGE-TABLE .CNT 0>
+			       <PUT ,STORAGE-TABLE <+ .CNT 1> 0>)>)>
+		 <SET CNT <+ .CNT 2>>>>
+
+;"codes for putting items in storage in fake rooms, shared by Plain,
+Construction, and all five FrobozzCo Building fake rooms"
+
+<CONSTANT STORAGE-TABLE
+	  <TABLE 301 BLACK-KNIGHT
+	         314 BLACK-PAWN
+	         315 WHITE-KNIGHT
+	         328 BLACK-BISHOP
+	         337 BLACK-KING
+	         349 WHITE-PAWN
+	         357 WHITE-KING
+	         363 WHITE-CASTLE
+		 400 HARDHAT
+	         461 HAMMER
+		1004 MEMO
+		3019 T-SQUARE
+		4193 INSTRUCTION-BOOKLET
+			    0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+		0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>>
+
+<CONSTANT PLAIN-OFFSET 300>
+<CONSTANT CONSTRUCTION-OFFSET 400>
+<CONSTANT OFFICES-OFFSET 1000>
+<CONSTANT OFFICES-N-OFFSET 2000>
+<CONSTANT OFFICES-S-OFFSET 3000>
+<CONSTANT OFFICES-E-OFFSET 4000>
+<CONSTANT OFFICES-W-OFFSET 5000>
+
+<CONSTANT STORAGE-TABLE-LENGTH 200>
+
+<ROUTINE PUT-IN-STORAGE (OFFSET OBJ L "AUX" (CNT 0))
+	 <REPEAT ()
+		 <COND (<EQUAL? <GET ,STORAGE-TABLE .CNT> 0>
+			<PUT ,STORAGE-TABLE .CNT <+ .L .OFFSET>>
+			<PUT ,STORAGE-TABLE <+ .CNT 1> .OBJ>
+			<RETURN>)
+		       (T
+			<SET CNT <+ .CNT 2>>)>>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT LOWER>
+<BEGIN-SEGMENT FENSHIRE>
+<BEGIN-SEGMENT VILLAGE>
+
+<ROUTINE STORE (OFFSET L "OPT" (RM ,HERE) "AUX" (CNT 0) F N)
+	 <SET F <FIRST? .RM>>
+	 <REPEAT ()
+	       <COND (.F
+		      <SET N <NEXT? .F>>)
+		     (T
+		      <RETURN>)>
+	       <COND (<NOT <EQUAL? .F ,PROTAGONIST>>
+		      <REPEAT ()
+			    <COND (<EQUAL? .F ,JESTER>
+			      	   <REMOVE-J>
+				   <RETURN>)
+				  (<EQUAL? <GET ,STORAGE-TABLE .CNT> 0>
+				   <PUT ,STORAGE-TABLE .CNT <+ .L .OFFSET>>
+				   <PUT ,STORAGE-TABLE <+ .CNT 1> .F>
+				   <SET CNT <+ .CNT 2>>
+				   <REMOVE .F>
+				   <RETURN>)
+				  (T
+				   <SET CNT <+ .CNT 2>>)>>)>
+	       <SET F .N>>>
+
+<ROUTINE UNSTORE (OFFSET L "OPT" (RM ,HERE) "AUX" (CNT 0))
+	 <REPEAT ()
+		 <COND (<NOT <L? .CNT ,STORAGE-TABLE-LENGTH>>
+			<RETURN>)
+		       (<EQUAL? <GET ,STORAGE-TABLE .CNT> <+ .L .OFFSET>>
+			<MOVE <GET ,STORAGE-TABLE <+ .CNT 1>> .RM>
+			<PUT ,STORAGE-TABLE .CNT 0>
+			<PUT ,STORAGE-TABLE <+ .CNT 1> 0>)>
+		 <SET CNT <+ .CNT 2>>>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/clues.zap b/clues.zap
new file mode 100644
index 0000000..5c3f00f
--- /dev/null
+++ b/clues.zap
@@ -0,0 +1,505 @@
+
+	.SEGMENT "HINTS"
+
+
+	.FUNCT	DO-HINTS,Q,WIN,FCLR,WCLR,CHR,TMP,MAXC,?TMP1
+	HLIGHT	H-NORMAL
+	CALL1	INIT-HINT-SCREEN >WIN
+	WINGET	-3,WFSIZE
+	SHIFT	STACK,-8 >Q
+	WINGET	-3,WTOP
+	SUB	STACK,1
+	DIV	STACK,Q
+	ADD	1,STACK >TOP-HINT-LINE
+	WINGET	-3,WHIGH
+	DIV	STACK,Q
+	SUB	STACK,1 >BOTTOM-HINT-NUM
+	WINGET	-3,WFSIZE
+	BAND	STACK,255 >Q
+	WINGET	-3,WLEFT
+	SUB	STACK,1
+	DIV	STACK,Q
+	ADD	2,STACK >LEFT-HINT-COLUMN
+?PRG1:	CLEAR	S-TEXT
+	SCREEN	WIN
+	WINGET	WIN,WCOLOR >WCLR
+	GET	0,0
+	BTST	STACK,1 \?CCL5
+	ICALL	CCURSET,2,9
+	COLOR	1,-1
+	JUMP	?CND3
+?CCL5:	COLOR	1,1
+?CND3:	ICALL	HINT-TITLE,INVISICLUES,WIN
+	SCREEN	S-FULL
+	WINGET	S-FULL,WCOLOR >FCLR
+	WINGET	S-TEXT,WCOLOR
+	BAND	STACK,255 >?TMP1
+	WINGET	S-TEXT,WCOLOR
+	SHIFT	STACK,-8
+	COLOR	?TMP1,STACK
+	DIROUT	D-TABLE-ON,SLINE
+	DIROUT	D-TABLE-OFF
+	SET	'GET-HINT-ROUTINE,H-CHAPT-NAME
+	GET	HINTS,0
+	ICALL2	H-PUT-UP-FROBS,STACK
+	ICALL2	H-NEW-CURSOR,H-CHAPT-NUM
+	GET	HINTS,0 >MAXC
+?PRG6:	ZERO?	DEMO-VERSION? /?CCL10
+	CALL2	INPUT-DEMO,1 >CHR
+	JUMP	?CND8
+?CCL10:	INPUT	1 >CHR
+?CND8:	EQUAL?	CHR,CLICK1,CLICK2 \?CND11
+	CALL1	SELECT-HINT-BY-MOUSE >TMP
+	GRTR?	TMP,0 /?CND11
+	EQUAL?	TMP,-1 \?CCL17
+	SET	'CHR,78
+	JUMP	?CND11
+?CCL17:	EQUAL?	TMP,-2 \?CCL19
+	SET	'CHR,80
+	JUMP	?CND11
+?CCL19:	EQUAL?	TMP,-3 \?CCL21
+	SET	'CHR,13
+	JUMP	?CND11
+?CCL21:	EQUAL?	TMP,-4 \?CCL23
+	SET	'CHR,81
+?CND11:	EQUAL?	CHR,77,109,81 /?CTR25
+	EQUAL?	CHR,113 \?CCL26
+?CTR25:	SET	'Q,TRUE-VALUE
+	JUMP	?REP7
+?CCL23:	SOUND	S-BEEP
+	JUMP	?PRG6
+?CCL26:	EQUAL?	CHR,78,110,DOWN-ARROW \?CCL30
+	ICALL	H-NEW-CURSOR,H-CHAPT-NUM,TRUE-VALUE
+	EQUAL?	H-CHAPT-NUM,MAXC \?CCL33
+	SET	'H-CHAPT-NUM,1
+	JUMP	?CND31
+?CCL33:	INC	'H-CHAPT-NUM
+?CND31:	SET	'H-QUEST-NUM,1
+	ICALL2	H-NEW-CURSOR,H-CHAPT-NUM
+	JUMP	?PRG6
+?CCL30:	EQUAL?	CHR,80,112,UP-ARROW \?CCL35
+	ICALL	H-NEW-CURSOR,H-CHAPT-NUM,TRUE-VALUE
+	EQUAL?	H-CHAPT-NUM,1 \?CCL38
+	SET	'H-CHAPT-NUM,MAXC
+	JUMP	?CND36
+?CCL38:	DEC	'H-CHAPT-NUM
+?CND36:	SET	'H-QUEST-NUM,1
+	ICALL2	H-NEW-CURSOR,H-CHAPT-NUM
+	JUMP	?PRG6
+?CCL35:	EQUAL?	CHR,13,10,32 \?CCL40
+	CALL1	H-PICK-QUESTION >Q
+	JUMP	?REP7
+?CCL40:	EQUAL?	CHR,CLICK1,CLICK2 \?CCL42
+	GRTR?	TMP,MAXC \?CCL45
+	SOUND	S-BEEP
+	JUMP	?PRG6
+?CCL45:	ICALL	H-NEW-CURSOR,H-CHAPT-NUM,TRUE-VALUE
+	SET	'H-CHAPT-NUM,TMP
+	SET	'H-QUEST-NUM,1
+	ICALL2	H-NEW-CURSOR,H-CHAPT-NUM
+	EQUAL?	CHR,CLICK2 \?PRG6
+	CALL1	H-PICK-QUESTION >Q
+?REP7:	ZERO?	Q /?PRG1
+	CLEAR	-1
+	SCREEN	WIN
+	BAND	WCLR,255 >?TMP1
+	SHIFT	WCLR,-8
+	COLOR	?TMP1,STACK
+	SCREEN	S-FULL
+	BAND	FCLR,255 >?TMP1
+	SHIFT	FCLR,-8
+	COLOR	?TMP1,STACK
+	SCREEN	S-TEXT
+	HLIGHT	H-NORMAL
+	ICALL1	INIT-STATUS-LINE
+	PRINTI	"Back to the story..."
+	CRLF	
+	RETURN	2
+?CCL42:	SOUND	S-BEEP
+	JUMP	?PRG6
+
+
+	.FUNCT	H-PICK-QUESTION,CHR,MAXQ,Q,WID,TMP
+?FCN:	CATCH	 >PARSE-SENTENCE-ACTIVATION
+	HLIGHT	H-NORMAL
+	CLEAR	S-TEXT
+	GET	HINTS,H-CHAPT-NUM
+	GET	STACK,1
+	ICALL	HINT-TITLE,STACK,S-WINDOW
+	CALL	CENTER-LINE,M-MAIN-HINT-MENU,2 >WID
+	GET	HINTS,H-CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MAXQ
+	SCREEN	S-FULL
+	SET	'GET-HINT-ROUTINE,H-GET-QUEST
+	GET	HINTS,H-CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1
+	ICALL2	H-PUT-UP-FROBS,STACK
+	ICALL2	H-NEW-CURSOR,H-QUEST-NUM
+?PRG1:	ZERO?	DEMO-VERSION? /?CCL5
+	CALL2	INPUT-DEMO,1 >CHR
+	JUMP	?CND3
+?CCL5:	INPUT	1 >CHR
+?CND3:	EQUAL?	CHR,CLICK1,CLICK2 \?CND6
+	CALL2	SELECT-HINT-BY-MOUSE,WID >TMP
+	GRTR?	TMP,0 /?CND6
+	EQUAL?	TMP,-1 \?CCL12
+	SET	'CHR,78
+	JUMP	?CND6
+?CCL12:	EQUAL?	TMP,-2 \?CCL14
+	SET	'CHR,80
+	JUMP	?CND6
+?CCL14:	EQUAL?	TMP,-3 \?CCL16
+	SET	'CHR,13
+	JUMP	?CND6
+?CCL16:	EQUAL?	TMP,-4 \?CCL18
+	SET	'CHR,81
+	JUMP	?CND6
+?CCL18:	EQUAL?	TMP,-5 \?CCL20
+	SET	'CHR,77
+?CND6:	EQUAL?	CHR,81,113 /TRUE
+	EQUAL?	CHR,77,109 \?CCL25
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP2
+?CCL20:	SOUND	S-BEEP
+	JUMP	?PRG1
+?CCL25:	EQUAL?	CHR,78,110,DOWN-ARROW \?CCL27
+	ICALL	H-NEW-CURSOR,H-QUEST-NUM,TRUE-VALUE
+	EQUAL?	H-QUEST-NUM,MAXQ \?CCL30
+	SET	'H-QUEST-NUM,1
+	JUMP	?CND28
+?CCL30:	INC	'H-QUEST-NUM
+?CND28:	ICALL2	H-NEW-CURSOR,H-QUEST-NUM
+	JUMP	?PRG1
+?CCL27:	EQUAL?	CHR,80,112,UP-ARROW \?CCL32
+	ICALL	H-NEW-CURSOR,H-QUEST-NUM,TRUE-VALUE
+	EQUAL?	H-QUEST-NUM,1 \?CCL35
+	SET	'H-QUEST-NUM,MAXQ
+	JUMP	?CND33
+?CCL35:	DEC	'H-QUEST-NUM
+?CND33:	ICALL2	H-NEW-CURSOR,H-QUEST-NUM
+	JUMP	?PRG1
+?CCL32:	EQUAL?	CHR,CLICK1,CLICK2 \?CCL37
+	GRTR?	TMP,MAXQ \?CCL40
+	SOUND	S-BEEP
+	JUMP	?PRG1
+?CCL40:	ICALL	H-NEW-CURSOR,H-QUEST-NUM,TRUE-VALUE
+	SET	'H-QUEST-NUM,TMP
+	ICALL2	H-NEW-CURSOR,H-QUEST-NUM
+	EQUAL?	CHR,CLICK2 \?PRG1
+	ICALL1	DISPLAY-HINT
+	JUMP	?REP2
+?CCL37:	EQUAL?	CHR,13,10,32 \?CCL44
+	ICALL1	DISPLAY-HINT
+?REP2:	ZERO?	Q /?FCN
+	RFALSE	
+?CCL44:	SOUND	S-BEEP
+	JUMP	?PRG1
+
+
+	.FUNCT	H-NEW-CURSOR,POS,OFF?,Y,X
+	ADD	TOP-HINT-LINE,POS >Y
+	SET	'X,LEFT-HINT-COLUMN
+	GRTR?	POS,BOTTOM-HINT-NUM \?CND1
+	SUB	Y,BOTTOM-HINT-NUM >Y
+	GETB	0,33
+	DIV	STACK,2 >X
+?CND1:	ICALL	CCURSET,Y,X
+	ZERO?	OFF? \?CCL5
+	HLIGHT	H-INVERSE
+	JUMP	?CND3
+?CCL5:	HLIGHT	H-NORMAL
+?CND3:	CALL	GET-HINT-ROUTINE,POS
+	PRINT	STACK
+	PRINTC	32
+	ZERO?	OFF? \FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	SELECT-HINT-BY-MOUSE,WID,VAL,MID,X,Y,?TMP1
+	WINGET	-3,WFSIZE
+	SHIFT	STACK,-8 >VAL
+	GET	0,27
+	GET	STACK,2 >Y
+	GET	0,27
+	GET	STACK,1 >X
+	SUB	Y,1
+	DIV	STACK,VAL >VAL
+	GETB	0,33 >?TMP1
+	WINGET	-3,WFSIZE
+	BAND	STACK,255
+	MUL	?TMP1,STACK
+	DIV	STACK,2 >MID
+	SUB	TOP-HINT-LINE,1
+	LESS?	VAL,STACK \?CCL3
+	EQUAL?	VAL,1 \?CCL6
+	DIV	WID,2 >VAL
+	ZERO?	VAL /?CCL9
+	SUB	MID,VAL
+	GRTR?	X,STACK \?CCL9
+	ADD	MID,VAL
+	LESS?	X,STACK \?CCL9
+	RETURN	-5
+?CCL9:	GRTR?	X,MID /?CCL14
+	RETURN	-1
+?CCL14:	RETURN	-3
+?CCL6:	EQUAL?	VAL,2 \FALSE
+	GRTR?	X,MID /?CCL19
+	RETURN	-2
+?CCL19:	RETURN	-4
+?CCL3:	ADD	1,VAL
+	SUB	STACK,TOP-HINT-LINE >VAL
+	GRTR?	X,MID \?CND21
+	ADD	VAL,BOTTOM-HINT-NUM >VAL
+?CND21:	RETURN	VAL
+
+
+	.FUNCT	INVERSE-LINE,LN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,H-INVERSE
+?CND1:	ZERO?	LN /?CND3
+	ICALL	CCURSET,LN,1
+?CND3:	HLIGHT	INV
+	ZERO?	INV \?CCL7
+	ERASE	1
+	RTRUE	
+?CCL7:	FONT	4
+	GETB	0,39 >LN
+	WINGET	-3,WWIDE
+	ADD	LN,STACK
+	DIV	STACK,LN
+	ICALL2	PRINT-SPACES,STACK
+	FONT	1
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	DISPLAY-HINT,H,MX,CNT,CV,SHIFT?,COUNT-OFFS,WID,CURCX,CURC,FLG,?TMP1
+	SET	'CNT,2
+	HLIGHT	H-NORMAL
+	CLEAR	S-TEXT
+	SCREEN	S-WINDOW
+	ICALL	INVERSE-LINE,3,H-NORMAL
+	ICALL	RIGHT-LINE,Q-RESUME-STORY,3
+	ICALL	INVERSE-LINE,2,H-NORMAL
+	ICALL	RIGHT-LINE,RETURN-SEE-NEW-HINT,2
+	GET	0,8
+	BTST	STACK,32 \?CND1
+	ICALL	CENTER-LINE,H-OR-USE-MOUSE,3
+?CND1:	ICALL	INVERSE-LINE,1,H-NORMAL
+	HLIGHT	H-BOLD
+	GET	HINTS,H-CHAPT-NUM >?TMP1
+	ADD	H-QUEST-NUM,1
+	GET	?TMP1,STACK >H
+	SUB	H-CHAPT-NUM,1
+	GET	HINT-COUNTS,STACK >CV
+	GET	H,1
+	ICALL	CENTER-LINE,STACK,1,H-INVERSE
+	HLIGHT	H-NORMAL
+	CALL	CENTER-LINE,M-SEE-HINT-MENU,2 >WID
+	GET	H,0 >MX
+	SCREEN	S-TEXT
+	CURSET	1,1
+	MOD	H-QUEST-NUM,2 >SHIFT?
+	SUB	H-QUEST-NUM,1
+	DIV	STACK,2 >COUNT-OFFS
+	GETB	CV,COUNT-OFFS >CURCX
+	ZERO?	SHIFT? /?CCL5
+	SHIFT	CURCX,-4
+	JUMP	?CND3
+?CCL5:	PUSH	CURCX
+?CND3:	BAND	STACK,15
+	ADD	2,STACK >CURC
+?PRG6:	EQUAL?	CNT,CURC /?REP7
+	PRINTC	9
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	INC	'CNT
+	JUMP	?PRG6
+?REP7:	SET	'FLG,TRUE-VALUE
+?PRG11:	ZERO?	FLG /?CND13
+	SET	'FLG,FALSE-VALUE
+	GRTR?	CNT,MX \?CCL17
+	PRINT	NO-MORE-HINTS
+	CRLF	
+	SCREEN	S-WINDOW
+	ICALL	INVERSE-LINE,2,H-NORMAL
+	ICALL	CENTER-LINE,M-SEE-HINT-MENU,2
+	SCREEN	S-TEXT
+	JUMP	?CND13
+?CCL17:	SUB	MX,CNT
+	ADD	STACK,1
+	PRINTN	STACK
+	PRINTI	"> "
+?CND13:	ZERO?	DEMO-VERSION? /?CCL20
+	CALL2	INPUT-DEMO,1 >CURC
+	JUMP	?CND18
+?CCL20:	INPUT	1 >CURC
+?CND18:	EQUAL?	CURC,CLICK1,CLICK2 \?CND21
+	CALL2	SELECT-HINT-BY-MOUSE,WID >CURCX
+	GRTR?	CURCX,0 /?CND21
+	EQUAL?	CURCX,-3 \?CCL27
+	SET	'CURC,13
+	JUMP	?CND21
+?CCL27:	EQUAL?	CURCX,-4 \?CCL29
+	SET	'CURC,81
+	JUMP	?CND21
+?CCL29:	EQUAL?	CURCX,-5 \?CCL31
+	SET	'CURC,77
+?CND21:	EQUAL?	CURC,77,109,81 /?CTR33
+	EQUAL?	CURC,113 \?CCL34
+?CTR33:	ZERO?	SHIFT? /?CCL39
+	GETB	CV,COUNT-OFFS
+	BAND	STACK,15 >?TMP1
+	SUB	CNT,2
+	SHIFT	STACK,4
+	BOR	?TMP1,STACK
+	PUTB	CV,COUNT-OFFS,STACK
+	JUMP	?CND37
+?CCL31:	SOUND	S-BEEP
+	JUMP	?PRG11
+?CCL39:	GETB	CV,COUNT-OFFS
+	BAND	STACK,240 >?TMP1
+	SUB	CNT,2
+	BOR	?TMP1,STACK
+	PUTB	CV,COUNT-OFFS,STACK
+?CND37:	EQUAL?	CURC,81,113 \TRUE
+	THROW	TRUE-VALUE,PARSE-SENTENCE-ACTIVATION
+	JUMP	?PRG11
+?CCL34:	EQUAL?	CURC,13,10 \?CCL44
+	GRTR?	CNT,MX /?CCL47
+	SET	'FLG,TRUE-VALUE
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	IGRTR?	'CNT,MX \?PRG11
+	SET	'FLG,FALSE-VALUE
+	PRINT	NO-MORE-HINTS
+	CRLF	
+	SCREEN	S-WINDOW
+	ICALL	INVERSE-LINE,2,H-NORMAL
+	ICALL	CENTER-LINE,M-SEE-HINT-MENU,2
+	SCREEN	S-TEXT
+	JUMP	?PRG11
+?CCL47:	SOUND	S-BEEP
+	JUMP	?PRG11
+?CCL44:	SOUND	S-BEEP
+	JUMP	?PRG11
+
+
+	.FUNCT	H-CHAPT-NAME,N
+	GET	HINTS,N
+	GET	STACK,1
+	RSTACK	
+
+
+	.FUNCT	H-GET-QUEST,N,?TMP1
+	GET	HINTS,H-CHAPT-NUM >?TMP1
+	ADD	N,1
+	GET	?TMP1,STACK
+	GET	STACK,1
+	RSTACK	
+
+
+	.FUNCT	H-PUT-UP-FROBS,MX,ST,X,Y
+	HLIGHT	H-NORMAL
+	SET	'X,LEFT-HINT-COLUMN
+	SET	'Y,TOP-HINT-LINE
+?PRG1:	IGRTR?	'ST,MX /TRUE
+	INC	'Y
+	ICALL	CCURSET,Y,X
+	CALL	GET-HINT-ROUTINE,ST
+	PRINT	STACK
+	EQUAL?	ST,BOTTOM-HINT-NUM \?PRG1
+	SET	'Y,TOP-HINT-LINE
+	GETB	0,33
+	DIV	STACK,2 >X
+	JUMP	?PRG1
+
+
+	.FUNCT	INIT-HINT-SCREEN
+	CLEAR	-1
+	SCREEN	S-FULL
+	ZERO?	BORDER-ON /?CND1
+	DISPLAY	HINT-BORDER,1,1
+?CND1:	ICALL2	SPLIT-BY-PICTURE,TEXT-WINDOW-PIC-LOC
+	SCREEN	S-TEXT
+	RETURN	S-WINDOW
+
+
+	.FUNCT	HINT-TITLE,TITLE,WIN,THIRD
+	ASSIGNED?	'THIRD /?CND1
+	SET	'THIRD,TRUE-VALUE
+?CND1:	SCREEN	WIN
+	ICALL	INVERSE-LINE,1,H-NORMAL
+	ICALL	INVERSE-LINE,2,H-NORMAL
+	ICALL	INVERSE-LINE,3,H-NORMAL
+	HLIGHT	H-BOLD
+	ICALL	CENTER-LINE,TITLE,1,H-INVERSE
+	HLIGHT	H-NORMAL
+	ICALL	LEFT-LINE,2,NEXT-HINT
+	GET	0,8
+	BTST	STACK,32 \?CND3
+	ICALL	CENTER-LINE,H-OR-USE-MOUSE,3
+?CND3:	ICALL	LEFT-LINE,3,PREVIOUS-HINT
+	ZERO?	THIRD /FALSE
+	ICALL	RIGHT-LINE,RETURN-SEE-HINT,2
+	CALL	RIGHT-LINE,Q-RESUME-STORY,3
+	RSTACK	
+
+
+	.FUNCT	LEFT-LINE,LN,STR,INV
+	ICALL	CCURSET,LN,1
+	ZERO?	INV /?CND1
+	HLIGHT	INV
+?CND1:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	RIGHT-LINE,STR,LN,INV,LEN
+	CALL	JUSTIFIED-LINE,STR,LN,INV,LEN,1
+	RSTACK	
+
+
+	.FUNCT	CENTER-LINE,STR,LN,INV,LEN
+	CALL	JUSTIFIED-LINE,STR,LN,INV,LEN,2
+	RSTACK	
+
+
+	.FUNCT	JUSTIFIED-LINE,STR,LN,INV,LEN,CTR
+	ZERO?	LN \?CCL3
+	CURGET	SLINE
+	GET	SLINE,0 >LN
+	JUMP	?CND1
+?CCL3:	DEC	'LN
+	WINGET	-3,WFSIZE
+	SHIFT	STACK,-8
+	MUL	LN,STACK
+	ADD	1,STACK >LN
+?CND1:	ZERO?	LEN \?CND4
+	DIROUT	D-TABLE-ON,SLINE
+	PRINT	STR
+	PRINTC	32
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+?CND4:	WINGET	-3,WWIDE
+	SUB	STACK,LEN
+	DIV	STACK,CTR
+	CURSET	LN,STACK
+	ZERO?	INV /?CND6
+	HLIGHT	INV
+?CND6:	PRINT	STR
+	PRINTC	32
+	ZERO?	INV \?CCL9
+	RETURN	LEN
+?CCL9:	HLIGHT	H-NORMAL
+	RETURN	LEN
+
+	.ENDSEG
+
+	.ENDI
diff --git a/clues.zil b/clues.zil
new file mode 100644
index 0000000..3c8a9b7
--- /dev/null
+++ b/clues.zil
@@ -0,0 +1,538 @@
+"CLUES for LIBRARY
+(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+"To install:
+Add <XFLOAD <ZILLIB>CLUES> to your GAME.ZIL file.
+Modify ROUTINE FINISH in VERBS to include Hint.
+Add HINT syntaxes (be careful -- you might already have some variety).
+Add verb routines for V-HINT and V-HINTS-OFF.
+Add HINT to list of verbs in CLOCKER-VERB (a.k.a. GAME-VERB?).
+Make sure flag in V-HINTS-OFF syntax is correct (RLANDBIT, KLUDGEBIT, etc.)."
+
+<FILE-FLAGS CLEAN-STACK? MDL-ZIL? ;ZAP-TO-SOURCE-DIRECTORY?>
+
+<DEFAULTS-DEFINED
+	FIRST-HINT-POS
+	INIT-HINT-SCREEN>
+
+<BEGIN-SEGMENT HINTS>
+
+<CONSTANT RETURN-SEE-HINT	"Hit Return to see hints.">
+<CONSTANT RETURN-SEE-NEW-HINT	"Hit Return to see a hint.">
+<CONSTANT INVISICLUES		"InvisiClues (tm)">
+<CONSTANT M-MAIN-HINT-MENU	"Hit M to see main menu.">
+<CONSTANT M-SEE-HINT-MENU	"Hit M to see hint menu.">
+<CONSTANT PREVIOUS-HINT		"Hit P for previous item.">
+<CONSTANT NEXT-HINT		"Hit N for next item.">
+<CONSTANT Q-RESUME-STORY	"Hit Q to resume story.">
+<CONSTANT H-OR-USE-MOUSE	"(Or use your mouse.)">
+<CONSTANT NO-MORE-HINTS		"[No more hints.]">
+
+"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"
+	      <COND (<L? 17 <LENGTH .V>>
+		     <WARN!-ZILCH!-PACKAGE!- "Too many answers for: " <1 .V>>)>
+	      <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 and longest question can be one line, unless it shares
+a line with another such in the other column. Each question can have up to
+16 answers but no more."
+
+;<CONSTANT HINTS
+  <CONSTRUCT-HINTS HINT-COUNTS ;"Put topics in Quotes - followed by PLTABLEs
+				 of Questions and Answers in quotes"
+	;"17 character wide"
+	;"this set of quotes is 36 chars. wide"
+	"Topic/Chapter"
+	<PLTABLE "Question"
+		 "Hint 1"
+		 "Hint 2">>>
+
+<GLOBAL H-QUEST-NUM 1>	"shows in HINTS LTABLE which question it's on"
+
+<GLOBAL H-CHAPT-NUM 1>	"shows in HINTS LTABLE which chapter it's on"
+
+<DEFAULT-DEFINITION FIRST-HINT-POS
+<CONSTANT FIRST-HINT-LINE 5>
+<CONSTANT FIRST-HINT-COLUMN 4>>
+
+<GLOBAL BOTTOM-HINT-NUM:NUMBER 0>
+<GLOBAL TOP-HINT-LINE:NUMBER 0>
+<GLOBAL LEFT-HINT-COLUMN:NUMBER 0>
+
+<GLOBAL GET-HINT-ROUTINE 0>	"APPLY this to get pointer to text"
+
+<DEFINE DO-HINTS ("AUX" Q WIN FCLR WCLR)
+  <IF-SOUND <SETG SOUND-QUEUED? <>>
+	    <KILL-SOUNDS>>
+  <HLIGHT ,H-NORMAL>
+  <SET WIN <INIT-HINT-SCREEN>>
+  ;<WINATTR -3 ,A-SCRIPT ,O-CLEAR>
+  <SET Q <SHIFT <WINGET -3 ,WFSIZE> -8>>	;"height"
+  <SETG TOP-HINT-LINE		<+ 1 </ <- <WINGET -3 ,WTOP> 1> .Q>>>
+  <SETG BOTTOM-HINT-NUM <- </ <WINGET -3 ,WHIGH> .Q> 1>>
+  <SET Q <BAND <WINGET -3 ,WFSIZE> *377*>>
+  <SETG LEFT-HINT-COLUMN	<+ 2 </ <- <WINGET -3 ,WLEFT> 1> .Q>>>
+ <PROG ()
+  <CLEAR ,S-TEXT>
+  <SCREEN .WIN>
+  <SET WCLR <WINGET .WIN ,WCOLOR>>
+  <COND (<BAND 1 <LOWCORE ZVERSION>>	;"colors visible?"
+	 <CCURSET 2 9>	;<CURSET 1 1>
+	 <COLOR 1 -1>)
+	(T
+	 <COLOR 1 1>)>
+  <HINT-TITLE ,INVISICLUES .WIN>
+  <SCREEN ,S-FULL>
+  <SET FCLR <WINGET ,S-FULL ,WCOLOR>>
+  <COLOR <BAND <WINGET ,S-TEXT ,WCOLOR> *377*>;"Match colors with text screen."
+	 <SHIFT <WINGET ,S-TEXT ,WCOLOR> -8>>
+  <DIROUT ,D-TABLE-ON ,SLINE ;-80>
+  <DIROUT ,D-TABLE-OFF>		;"flush TWID"
+  <SETG GET-HINT-ROUTINE ,H-CHAPT-NAME>
+  <H-PUT-UP-FROBS <GET ,HINTS 0>>
+  <H-NEW-CURSOR ,H-CHAPT-NUM>
+  <REPEAT (CHR TMP (MAXC <GET ,HINTS 0>))
+	  <COND (,DEMO-VERSION?
+		 <SET CHR <INPUT-DEMO 1>>)
+		(T
+		 <SET CHR <INPUT 1>>)>
+	  <COND (<EQUAL? .CHR ,CLICK1 ,CLICK2>
+		 <SET TMP <SELECT-HINT-BY-MOUSE>>
+		 <COND (<L=? .TMP 0>
+			<COND (<EQUAL? .TMP -1>
+			       <SET CHR !\N>)
+			      (<EQUAL? .TMP -2>
+			       <SET CHR !\P>)
+			      (<EQUAL? .TMP -3>
+			       <SET CHR 13>)
+			      (<EQUAL? .TMP -4>
+			       <SET CHR !\Q>)
+			      (T
+			       <SOUND ,S-BEEP>
+			       <AGAIN>)>)>)
+		;(T
+		 <CCURSET ,BOTTOM-HINT-NUM 1>
+		 <TELL "[CHR=" N .CHR "]">)>
+	  <COND (<EQUAL? .CHR !\M !\m !\Q !\q ;,ESCAPE-KEY>
+		 <SET Q T>
+		 <RETURN>)
+		(<EQUAL? .CHR !\N !\n ,DOWN-ARROW>
+		 <H-NEW-CURSOR ,H-CHAPT-NUM T>
+		 <COND (<EQUAL? ,H-CHAPT-NUM .MAXC>
+			<SETG H-CHAPT-NUM 1>)
+		       (T
+			<SETG H-CHAPT-NUM <+ ,H-CHAPT-NUM 1>>)>
+		 <SETG H-QUEST-NUM 1>
+		 <H-NEW-CURSOR ,H-CHAPT-NUM>)
+		(<EQUAL? .CHR !\P !\p ,UP-ARROW>
+		 <H-NEW-CURSOR ,H-CHAPT-NUM T>
+		 <COND (<EQUAL? ,H-CHAPT-NUM 1>
+			<SETG H-CHAPT-NUM .MAXC>)
+		       (T
+			<SETG H-CHAPT-NUM <- ,H-CHAPT-NUM 1>>)>
+		 <SETG H-QUEST-NUM 1>
+		 <H-NEW-CURSOR ,H-CHAPT-NUM>)
+		(<EQUAL? .CHR 13 10 32>
+		 <SET Q <H-PICK-QUESTION>>
+		 <RETURN>)
+		(<EQUAL? .CHR ,CLICK1 ,CLICK2>
+		 <COND (<G? .TMP .MAXC>
+			<SOUND ,S-BEEP>)
+		       ;(<EQUAL? ,H-CHAPT-NUM .TMP>
+			<SET Q <H-PICK-QUESTION>>
+			<RETURN>)	;"not like Mac"
+		       (T
+			<H-NEW-CURSOR ,H-CHAPT-NUM T>
+			<SETG H-CHAPT-NUM .TMP>
+			<SETG H-QUEST-NUM 1>
+			<H-NEW-CURSOR ,H-CHAPT-NUM>
+			<COND (<EQUAL? .CHR ,CLICK2>
+			       <SET Q <H-PICK-QUESTION>>
+			       <RETURN>)>)>)
+		(T
+		 <SOUND ,S-BEEP>)>>
+  <COND (<NOT .Q>
+	 <AGAIN>)>>
+  <CLEAR -1>
+  <SCREEN .WIN>
+  <COLOR <BAND .WCLR 255> <SHIFT .WCLR -8>>
+  <SCREEN ,S-FULL>
+  <COLOR <BAND .FCLR 255> <SHIFT .FCLR -8>>
+  <SCREEN ,S-TEXT>
+  <HLIGHT ,H-NORMAL>
+  ;<WINATTR -3 ,A-SCRIPT ,O-SET>
+  <INIT-STATUS-LINE>
+  <TELL "Back to the story..." CR>
+  <IF-SOUND <COND (,SOUND-ON?
+		   <CHECK-LOOPING>)>>
+  <RFATAL>>
+
+<DEFINE H-PICK-QUESTION ("AUX" CHR MAXQ (Q <>) ;WIN WID)
+  <SETG PARSE-SENTENCE-ACTIVATION <CATCH>>	;"for Q command"
+  <HLIGHT ,H-NORMAL>
+  <CLEAR ,S-TEXT>
+  ;<SET WIN <INIT-HINT-SCREEN>>
+  <HINT-TITLE <GET <GET ,HINTS ,H-CHAPT-NUM> 1> ,S-WINDOW ;.WIN>
+  <SET WID <CENTER-LINE ,M-MAIN-HINT-MENU 2 ;,H-INVERSE>>
+  <SET MAXQ <- <GET <GET ,HINTS ,H-CHAPT-NUM> 0> 1>>
+  <SCREEN ,S-FULL>
+  <SETG GET-HINT-ROUTINE ,H-GET-QUEST>
+  <H-PUT-UP-FROBS <- <GET <GET ,HINTS ,H-CHAPT-NUM> 0> 1>>
+  <H-NEW-CURSOR ,H-QUEST-NUM>
+  <REPEAT (TMP)
+	  <COND (,DEMO-VERSION?
+		 <SET CHR <INPUT-DEMO 1>>)
+		(T
+		 <SET CHR <INPUT 1>>)>
+	  <COND (<EQUAL? .CHR ,CLICK1 ,CLICK2>
+		 <SET TMP <SELECT-HINT-BY-MOUSE .WID>>
+		 <COND (<L=? .TMP 0>
+			<COND (<EQUAL? .TMP -1>
+			       <SET CHR !\N>)
+			      (<EQUAL? .TMP -2>
+			       <SET CHR !\P>)
+			      (<EQUAL? .TMP -3>
+			       <SET CHR 13>)
+			      (<EQUAL? .TMP -4>
+			       <SET CHR !\Q>)
+			      (<EQUAL? .TMP -5>
+			       <SET CHR !\M>)
+			      (T
+			       <SOUND ,S-BEEP>
+			       <AGAIN>)>)>)
+		;(T
+		 <CCURSET ,BOTTOM-HINT-NUM 1>
+		 <TELL "[CHR=" N .CHR "]">)>
+	  <COND (<EQUAL? .CHR !\Q !\q ;,ESCAPE-KEY>
+		 <RTRUE>)
+		(<EQUAL? .CHR !\M !\m>
+		 <SET Q T>
+		 <RETURN>)
+		(<EQUAL? .CHR !\N !\n ,DOWN-ARROW>
+		 <H-NEW-CURSOR ,H-QUEST-NUM T>
+		 <COND (<EQUAL? ,H-QUEST-NUM .MAXQ>
+			<SETG H-QUEST-NUM 1>)
+		       (T
+			<SETG H-QUEST-NUM <+ ,H-QUEST-NUM 1>>)>
+		 <H-NEW-CURSOR ,H-QUEST-NUM>)
+		(<EQUAL? .CHR !\P !\p ,UP-ARROW>
+		 <H-NEW-CURSOR ,H-QUEST-NUM T>
+		 <COND (<EQUAL? ,H-QUEST-NUM 1>
+			<SETG H-QUEST-NUM .MAXQ>)
+		       (T
+			<SETG H-QUEST-NUM <- ,H-QUEST-NUM 1>>)>
+		 <H-NEW-CURSOR ,H-QUEST-NUM>)
+		(<EQUAL? .CHR ,CLICK1 ,CLICK2>
+		 <COND (<G? .TMP .MAXQ>
+			<SOUND ,S-BEEP>)
+		       ;(<EQUAL? ,H-QUEST-NUM .TMP>
+			<DISPLAY-HINT>
+			<RETURN>)		;"not like Mac"
+		       (T
+			<H-NEW-CURSOR ,H-QUEST-NUM T>
+			<SETG H-QUEST-NUM .TMP>
+			<H-NEW-CURSOR ,H-QUEST-NUM>
+			<COND (<EQUAL? .CHR ,CLICK2>
+			       <DISPLAY-HINT>
+			       <RETURN>)>)>)
+		(<EQUAL? .CHR 13 10 32>
+		 <DISPLAY-HINT>
+		 <RETURN>)
+		(T
+		 <SOUND ,S-BEEP>)>>
+  <COND (<NOT .Q>
+	 <AGAIN>)>>
+
+<DEFINE H-NEW-CURSOR (POS "OPT" (OFF? <>) "AUX" Y X)
+	<SET Y <+ ,TOP-HINT-LINE .POS>>
+	<SET X ,LEFT-HINT-COLUMN>
+	<COND (<G? .POS ,BOTTOM-HINT-NUM>
+	       <SET Y <- .Y ,BOTTOM-HINT-NUM>>
+	       <SET X </ <LOWCORE SCRH> ;<WINGET -3 ,WWIDE> 2>>)>
+	<CCURSET .Y .X>
+	<COND (<NOT .OFF?>
+	       <HLIGHT ,H-INVERSE>)
+	      (T
+	       <HLIGHT ,H-NORMAL>)>
+	<TELL <ZAPPLY ,GET-HINT-ROUTINE .POS> !\ >
+	<COND (<NOT .OFF?>
+	       <HLIGHT ,H-NORMAL>)>>
+
+<DEFINE SELECT-HINT-BY-MOUSE ("OPT" (WID 0) "AUX" VAL MID X Y)
+	<SET VAL <SHIFT <WINGET -3 ,WFSIZE> -8>>
+	<SET Y <LOWCORE MSLOCY>>
+	<SET X <LOWCORE MSLOCX>>
+	;<CCURSET ,BOTTOM-HINT-NUM 1>
+	;<TELL "[">
+	<SET VAL </ <- .Y 1> .VAL>>
+	<SET MID </ <* <LOWCORE SCRH> <BAND <WINGET -3 ,WFSIZE> *377*>>
+		    ;<WINGET -3 ,WWIDE>
+		    2>>
+	;<TELL "LN=" N .VAL " FHL=" N ,TOP-HINT-LINE " X=" N .X " MID=" N .MID " TWID=" N .WID>
+	<COND (<L? .VAL <- ,TOP-HINT-LINE 1>>
+	       <COND (<EQUAL? .VAL 1>
+		      <COND (<AND <SET VAL </ .WID 2>>
+				  <G? .X <- .MID .VAL>>
+				  <L? .X <+ .MID .VAL>>>
+			     ;<TELL " VAL=-5">
+			     <RETURN -5>)
+			    (<L=? .X .MID>
+			     ;<TELL " VAL=-1">
+			     <RETURN -1>)
+			    (T
+			     ;<TELL " VAL=-3">
+			     <RETURN -3>)>)
+		     (<EQUAL? .VAL 2>
+		      <COND (<L=? .X .MID>
+			     ;<TELL " VAL=-2">
+			     <RETURN -2>)
+			    (T
+			     ;<TELL " VAL=-4">
+			     <RETURN -4>)>)
+		     (T
+		      <COND (T
+			     ;<TELL " VAL=0">
+			     <RETURN 0>)>)>)
+	      (T
+	       <SET VAL <- <+ 1 .VAL> ,TOP-HINT-LINE>>
+	       ;<TELL " VAL=" N .VAL>
+	       <COND (<G? .X .MID>
+		      <SET VAL <+ .VAL ,BOTTOM-HINT-NUM>>
+		      ;<TELL " -> " N .VAL>)>
+	       ;<TELL "]|">
+	       .VAL)>>
+
+<DEFINE INVERSE-LINE ("OPT" (LN 0) (INV ,H-INVERSE))
+	<COND (<T? .LN>
+	       <CCURSET .LN 1>)>
+	<HLIGHT .INV>
+	<COND (<EQUAL? .INV ,H-NORMAL>
+	       <ERASE 1>)
+	      (T
+	       <FONT 4>
+	       <SET LN <LOWCORE (FWRD 1)>>
+	       <PRINT-SPACES </ <+ .LN <WINGET -3 ,WWIDE>> .LN>>
+	       <FONT 1>
+	       <HLIGHT ,H-NORMAL>)>>
+
+<DEFINE DISPLAY-HINT ("AUX" H MX (CNT 2) CV SHIFT? COUNT-OFFS ;WIN WID)
+  <HLIGHT ,H-NORMAL>
+  <CLEAR ,S-TEXT>
+  ;<SET WIN <INIT-HINT-SCREEN>>
+  <SCREEN ,S-WINDOW ;.WIN>
+  <INVERSE-LINE 3 ,H-NORMAL>
+  <RIGHT-LINE ,Q-RESUME-STORY 3 ;,H-INVERSE>
+  <INVERSE-LINE 2 ,H-NORMAL>
+  <RIGHT-LINE ,RETURN-SEE-NEW-HINT 2 ;,H-INVERSE>
+  <COND (<NOT <EQUAL? <BAND <LOWCORE FLAGS> 32> 0>>
+	 <CENTER-LINE ,H-OR-USE-MOUSE 3 ;,H-INVERSE>)>
+  <INVERSE-LINE 1 ,H-NORMAL>
+  <HLIGHT ,H-BOLD>
+  <SET H <GET <GET ,HINTS ,H-CHAPT-NUM> <+ ,H-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
+    H-QUEST-NUM odd; the low four bits are for H-QUEST-NUM even.  See SHIFT?
+    and COUNT-OFFS."
+  <SET CV <GET ,HINT-COUNTS <- ,H-CHAPT-NUM 1>>>
+  <CENTER-LINE <GET .H 1> 1 ,H-INVERSE>
+  <HLIGHT ,H-NORMAL>
+  <SET WID <CENTER-LINE ,M-SEE-HINT-MENU 2 ;,H-INVERSE>>
+  <SET MX <GET .H 0>>
+  <SCREEN ,S-TEXT>
+  <CURSET 1 1>
+  ;<WINATTR -3 ,A-SCRIPT ,O-SET>
+  ;<PRINT <GET .H 1>>
+  ;<CRLF>
+  <SET SHIFT? <MOD ,H-QUEST-NUM 2>>
+  <SET COUNT-OFFS </ <- ,H-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 C 9 <GET .H .CNT> CR>
+	   <SET CNT <+ .CNT 1>>)>>
+  <REPEAT (CHR ;N TMP (FLG T))
+     <COND (.FLG
+	    <SET FLG <>>
+	    <COND (<G? .CNT .MX>
+		   <PRINT ,NO-MORE-HINTS>
+		   <CRLF>
+		   <SCREEN ,S-WINDOW ;.WIN>
+		   <INVERSE-LINE 2 ,H-NORMAL>
+		   <CENTER-LINE ,M-SEE-HINT-MENU 2 ;,H-INVERSE>
+		   <SCREEN ,S-TEXT>)
+		  (T
+		   <TELL ;"[" N <+ <- .MX .CNT> 1> ;" hint">
+		   ;<COND (<NOT <EQUAL? .N 1>>
+			  <TELL "s">)>
+		   <TELL ;" left.] -" "> ">)>)>
+     <COND (,DEMO-VERSION?
+	    <SET CHR <INPUT-DEMO 1>>)
+	   (T
+	    <SET CHR <INPUT 1>>)>
+     <COND (<EQUAL? .CHR ,CLICK1 ,CLICK2>
+		 <SET TMP <SELECT-HINT-BY-MOUSE .WID>>
+		 <COND (<L=? .TMP 0>
+			<COND (<EQUAL? .TMP -3>
+			       <SET CHR 13>)
+			      (<EQUAL? .TMP -4>
+			       <SET CHR !\Q>)
+			      (<EQUAL? .TMP -5>
+			       <SET CHR !\M>)
+			      (T
+			       <SOUND ,S-BEEP>
+			       <AGAIN>)>)>)
+		;(T
+		 <CCURSET ,BOTTOM-HINT-NUM 1>
+		 <TELL "[CHR=" N .CHR "]">)>
+     <COND (<EQUAL? .CHR !\M !\m !\Q !\q ;,ESCAPE-KEY>
+	    <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>>>)>
+	    <COND (<EQUAL? .CHR !\Q !\q ;,ESCAPE-KEY>
+		   <THROW T ,PARSE-SENTENCE-ACTIVATION>)
+		  (T
+		   ;<WINATTR -3 ,A-SCRIPT ,O-CLEAR>
+		   <RETURN>)>)
+	   (<EQUAL? .CHR 13 10 ;"32 ,CLICK1 ,CLICK2">
+	    <COND (<L=? .CNT .MX>
+		   <SET FLG T>	;"CNT starts as 2"
+		   <TELL <GET .H .CNT> CR>
+		   ;"3rd = line 7, 4th = line 9, etc."
+		   <COND (<G? <SET CNT <+ .CNT 1>> .MX>
+			  <SET FLG <>>
+			  <PRINT ,NO-MORE-HINTS>
+			  <CRLF>
+			  <SCREEN ,S-WINDOW ;.WIN>
+			  <INVERSE-LINE 2 ,H-NORMAL>
+			  <CENTER-LINE ,M-SEE-HINT-MENU 2 ;,H-INVERSE>
+			  <SCREEN ,S-TEXT>)>)
+		  (T
+		   <SOUND ,S-BEEP>)>)
+	   (T
+	    <SOUND ,S-BEEP>)>>>
+
+<DEFINE H-CHAPT-NAME (N)
+	<GET <GET ,HINTS .N> 1>>
+
+<DEFINE H-GET-QUEST (N)
+	<GET <GET <GET ,HINTS ,H-CHAPT-NUM> <+ .N 1>> 1>>
+
+<DEFINE H-PUT-UP-FROBS (MX)
+  <HLIGHT ,H-NORMAL>
+  <REPEAT ((ST 0) (X ,LEFT-HINT-COLUMN) (Y ,TOP-HINT-LINE))
+	<COND (<G? <SET ST <+ .ST 1>> .MX>
+	       <RETURN>)>
+	<SET Y <+ 1 .Y>>
+	<CCURSET .Y .X>
+	<TELL <ZAPPLY ,GET-HINT-ROUTINE .ST>>
+	<COND (<EQUAL? .ST ,BOTTOM-HINT-NUM>
+	       <SET Y ,TOP-HINT-LINE>
+	       <SET X </ <LOWCORE SCRH> ;<WINGET -3 ,WWIDE> 2>>)>>>
+
+<DEFAULT-DEFINITION INIT-HINT-SCREEN
+<DEFINE INIT-HINT-SCREEN ()
+  <CLEAR -1>
+  <CSPLIT 4>
+  <SCREEN ,S-TEXT>
+  ,S-WINDOW>>
+
+<DEFINE HINT-TITLE (TITLE WIN "OPTIONAL" (THIRD T))
+  <SCREEN .WIN>
+  <INVERSE-LINE 1 ,H-NORMAL>
+  <INVERSE-LINE 2 ,H-NORMAL>
+  <INVERSE-LINE 3 ,H-NORMAL>
+  <HLIGHT ,H-BOLD>
+  <CENTER-LINE .TITLE 1 ,H-INVERSE>
+  <HLIGHT ,H-NORMAL>
+  <LEFT-LINE 2 ,NEXT-HINT ;,H-INVERSE>
+  <COND (<NOT <EQUAL? <BAND <LOWCORE FLAGS> 32> 0>>
+	 <CENTER-LINE ,H-OR-USE-MOUSE 3 ;,H-INVERSE>)>
+  <LEFT-LINE 3 ,PREVIOUS-HINT ;,H-INVERSE>
+  <COND (.THIRD
+	 <RIGHT-LINE ,RETURN-SEE-HINT 2 ;,H-INVERSE>
+	 <RIGHT-LINE ,Q-RESUME-STORY 3 ;,H-INVERSE>)>>
+
+<DEFINE LEFT-LINE (LN STR "OPTIONAL" (INV <>))
+	<CCURSET .LN 1>
+	<COND (.INV
+	       <HLIGHT .INV>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,H-NORMAL>)>>
+
+<DEFINE RIGHT-LINE (STR "OPTIONAL" (LN 0) (INV <>) (LEN 0))
+	<JUSTIFIED-LINE .STR .LN .INV .LEN 1>>
+
+<DEFINE CENTER-LINE (STR "OPTIONAL" (LN 0) (INV <>) (LEN 0))
+	<JUSTIFIED-LINE .STR .LN .INV .LEN 2>>
+
+<DEFINE JUSTIFIED-LINE (STR LN INV LEN CTR)
+  <COND (<ZERO? .LN>
+	 <CURGET ,SLINE>
+	 <SET LN <GET ,SLINE 0>>)
+	(T
+	 <SET LN <- .LN 1>>
+	 <SET LN <+ 1 <* .LN <SHIFT <WINGET -3 ,WFSIZE> -8>>>>)>
+  <COND (<ZERO? .LEN>
+	 <DIROUT ,D-TABLE-ON ,SLINE ;-80>
+	 <TELL .STR !\ >
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>)>
+  <CURSET .LN </ <- <WINGET -3 ,WWIDE> .LEN> .CTR>>
+  <COND (.INV
+	 <HLIGHT .INV>)>
+  <TELL .STR !\ >
+  <COND (.INV
+	 <HLIGHT ,H-NORMAL>)>
+  .LEN>
+
+<END-SEGMENT>
diff --git a/constants.zil b/constants.zil
new file mode 100644
index 0000000..25c0ead
--- /dev/null
+++ b/constants.zil
@@ -0,0 +1,208 @@
+"CONSTANTS for
+				Library
+	 Copyright (C)1988 Infocom, Inc. All rights reserved."
+
+"what rfatal returns"
+
+<CONSTANT M-FATAL 2>
+
+"context names"
+
+<CONSTANT M-BEG 1>
+<CONSTANT M-END 2>
+<CONSTANT M-ENTER 3>
+<CONSTANT M-LEAVE 4>
+<CONSTANT M-LOOK 5>
+<CONSTANT M-FLASH 6>
+<CONSTANT M-OBJDESC 7>
+<CONSTANT M-CONTAINER 8>
+<CONSTANT M-OBJDESC? 9>
+<CONSTANT M-SCENE-SETUP 10>
+<CONSTANT M-WINNER 11>
+<CONSTANT M-SUBJ 12>
+
+"machines"
+
+<CONSTANT DEC-20 1>
+<CONSTANT APPLE-2E 2>
+<CONSTANT MACINTOSH 3>
+<CONSTANT AMIGA 4>
+<CONSTANT ATARI-ST 5>
+<CONSTANT IBM 6>
+<CONSTANT C128 7>
+<CONSTANT C64 8>
+<CONSTANT APPLE-2C 9>
+<CONSTANT APPLE-2GS 10>
+
+"fonts"
+
+<CONSTANT F-OLD 0>
+<CONSTANT F-DEFAULT 1>
+<CONSTANT F-PICTURES 2>
+<CONSTANT F-NEWFONT 3>
+
+"screens"
+
+<CONSTANT S-TEXT 0>
+<CONSTANT S-WINDOW 1>
+
+"yzip screen attribute offsets"
+
+<CONSTANT WTOP 0>
+<CONSTANT WLEFT 1>
+<CONSTANT WHIGH 2>
+<CONSTANT WWIDE 3>
+<CONSTANT WYPOS 4>
+<CONSTANT WXPOS 5>
+<CONSTANT WLMARGIN 6>
+<CONSTANT WRMARGIN 7>
+<CONSTANT WCRFUNC 8>
+<CONSTANT WCRCNT 9>
+<CONSTANT WHLIGHT 10>
+<CONSTANT WCOLOR 11>
+<CONSTANT WFONT 12>
+<CONSTANT WFSIZE 13>
+<CONSTANT WATTRS 14>
+<CONSTANT WLCNT 15>
+
+"screen attribute bits"
+
+<CONSTANT A-WRAP 1>	;"screen wrapping attribute"
+<CONSTANT A-SCROLL 2>	;"screen scrolling attribute"
+<CONSTANT A-SCRIPT 4>	;"screen scripting attribute"
+<CONSTANT A-BUFFER 8>	;"screen buffereing attribute"
+
+"screen attribute operations"
+
+<CONSTANT O-MOVE 0>	;"change all attributes"
+<CONSTANT O-SET 1>	;"set selected attributes"
+<CONSTANT O-CLEAR 2>	;"clear selected attributes"
+<CONSTANT O-COMP 3>	;"complement selected attributes"
+
+"sounds"
+
+<CONSTANT S-BEEP 1>
+<CONSTANT S-BOOP 2>
+
+"sound operations"
+
+<CONSTANT S-INIT 1>
+<CONSTANT S-START 2>
+<CONSTANT S-STOP 3>
+<CONSTANT S-CLEANUP 4>
+
+"highlighting modes"
+
+<CONSTANT H-NORMAL 0>
+<CONSTANT H-INVERSE 1>
+<CONSTANT H-BOLD 2>
+<CONSTANT H-ITALIC 4>
+   <CONSTANT H-UNDER 4>
+<CONSTANT H-MONO 8>
+
+"device control"
+
+<CONSTANT D-KEYBOARD 0>
+<CONSTANT D-COMMAND-FILE 1>
+
+<CONSTANT D-SCREEN 1>
+<CONSTANT D-SCREEN-ON 1>
+<CONSTANT D-SCREEN-OFF -1>
+<CONSTANT D-PRINTER 2>
+<CONSTANT D-PRINTER-ON 2>
+<CONSTANT D-PRINTER-OFF -2>
+<CONSTANT D-TABLE 3>
+<CONSTANT D-TABLE-ON 3>
+<CONSTANT D-TABLE-OFF -3>
+<CONSTANT D-RECORD 4>
+<CONSTANT D-RECORD-ON 4>
+<CONSTANT D-RECORD-OFF -4>
+
+"colors"
+
+<CONSTANT C-HERE -1>
+<CONSTANT C-SAME 0>
+<CONSTANT C-DEFAULT 1>
+<CONSTANT C-BLACK 2>
+<CONSTANT C-RED 3>
+<CONSTANT C-GREEN 4>
+<CONSTANT C-YELLOW 5>
+<CONSTANT C-BLUE 6>
+<CONSTANT C-MAGENTA 7>
+<CONSTANT C-CYAN 8>
+<CONSTANT C-WHITE 9>
+
+"function keys"
+
+<CONSTANT UP-ARROW 129>
+<CONSTANT DOWN-ARROW 130>
+<CONSTANT LEFT-ARROW 131>
+<CONSTANT RIGHT-ARROW 132>
+
+<CONSTANT F1 133>
+<CONSTANT F2 134>
+<CONSTANT F3 135>
+<CONSTANT F4 136>
+<CONSTANT F5 137>
+<CONSTANT F6 138>
+<CONSTANT F7 139>
+<CONSTANT F8 140>
+<CONSTANT F9 141>
+<CONSTANT F10 142>
+<CONSTANT F11 143>
+<CONSTANT F12 144>
+
+<CONSTANT PAD0 145>
+<CONSTANT PAD1 146>
+<CONSTANT PAD2 147>
+<CONSTANT PAD3 148>
+<CONSTANT PAD4 149>
+<CONSTANT PAD5 150>
+<CONSTANT PAD6 151>
+<CONSTANT PAD7 152>
+<CONSTANT PAD8 153>
+<CONSTANT PAD9 154>
+
+<CONSTANT CLICKM 252>	;"mouse clicked on a menu item"
+<CONSTANT CLICK2 253>	;"mouse second/double click"
+<CONSTANT CLICK1 254>	;"mouse first/single click"
+
+"MODE byte bits"
+
+<CONSTANT M-COLOR 1>
+<CONSTANT M-DISPLAY 2>
+<CONSTANT M-BOLD 4>
+<CONSTANT M-UNDERLINE 8>
+<CONSTANT M-MONOSPACE 16>
+<CONSTANT M-SOUND 32>
+
+<DEFMAC MODE-ON? ('F)
+	<FORM NOT <FORM ZERO? <FORM BAND <FORM LOWCORE MODE> .F>>>>
+
+"FLAGS word bits"
+
+<CONSTANT F-SCRIPT 1>
+<CONSTANT F-FIXED 2>
+<CONSTANT F-STATUS 4>
+   <CONSTANT F-REFRESH 4>
+<CONSTANT F-DISPLAY 8>
+<CONSTANT F-UNDO 16>
+<CONSTANT F-MOUSE 32>
+<CONSTANT F-COLOR 64>
+<CONSTANT F-SOUND 128>
+<CONSTANT F-MENU 256>
+
+<DEFMAC FLAG-ON? ('F)
+	<FORM NOT <FORM ZERO? <FORM BAND <FORM LOWCORE FLAGS> .F>>>>
+
+<DEFMAC HIGH-BYTE ('W)
+	<FORM SHIFT .W -8>>
+
+<DEFMAC LOW-BYTE ('W)
+	<FORM BAND .W 255>>
+
+<DEFMAC SET-HIGH-BYTE ('W 'B)
+	<FORM BOR <FORM SHIFT .B 8> <FORM BAND .W 255>>>
+
+<DEFMAC SET-LOW-BYTE ('W 'B)
+	<FORM BOR <FORM BAND .W 65280> .W>>
\ No newline at end of file
diff --git a/defs.zil b/defs.zil
new file mode 100644
index 0000000..1ba0bd4
--- /dev/null
+++ b/defs.zil
@@ -0,0 +1,132 @@
+"DEFS to replace parser's versions for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT 0>
+
+<INCLUDE "SYMBOLS">
+
+<COMPILATION-FLAG P-DEBUGGING-PARSER <>>
+
+<ADD-TELL-TOKENS D *	 <DPRINT .X>>
+
+<DELAY-DEFINITION	CAPITAL-NOUN?>
+
+<REPLACE-DEFINITION FIRST-HINT-POS
+	<CONSTANT FIRST-HINT-LINE 5>
+	<CONSTANT FIRST-HINT-COLUMN 7>>
+
+<DELAY-DEFINITION	READ-INPUT>
+<DELAY-DEFINITION	GAME-VERB?>
+<DELAY-DEFINITION	LIT?>
+
+<REPLACE-DEFINITION	NO-M-WINNER-VERB?
+	<DEFMAC NO-M-WINNER-VERB? ()
+		'<VERB? ASK-ABOUT ;MAKE-WITH SRIDE-DIR SSEARCH-OBJECT-FOR
+			;SGIVE SPUT-ON SSHOW STHROW SWRAP ;TELL-ABOUT STOUCH>>>
+
+<REPLACE-DEFINITION NOT-HERE-VERB?
+<ROUTINE NOT-HERE-VERB? (V)
+	<EQUAL? .V ,V?WALK-TO ,V?RESEARCH>>>
+
+<REPLACE-DEFINITION	OWNERS
+	<CONSTANT OWNERS <TABLE (PURE LENGTH) JESTER WALL>>>
+<REPLACE-DEFINITION	PARSER-REPORT <CONSTANT PARSER-REPORT <>>>
+
+<REPLACE-DEFINITION	PERSONBIT <CONSTANT PERSONBIT ACTORBIT>>
+<REPLACE-DEFINITION	PLAYER <CONSTANT PLAYER PROTAGONIST>>
+<REPLACE-DEFINITION	PRINT-INTQUOTE <CONSTANT PRINT-INTQUOTE 0>>
+<DELAY-DEFINITION	REFRESH>
+<REPLACE-DEFINITION	ROOMSBIT <CONSTANT ROOMSBIT KLUDGEBIT>>
+
+<REPLACE-DEFINITION SEE-VERB?
+	<ROUTINE SEE-VERB? ()
+		 <VERB? CHASTISE COUNT EXAMINE FIND TAKE
+			;INVENTORY LOOK LOOK-BEHIND LOOK-DOWN LOOK-INSIDE
+			LOOK-UNDER READ SEARCH>>>
+
+<COMPILATION-FLAG P-APOSTROPHE-BREAKS-WORDS <>>
+<REPLACE-DEFINITION	SIBREAKS <SETG20 SIBREAKS ".,\"!?">>
+
+<REPLACE-DEFINITION	SETUP-ORPHAN-NP <CONSTANT SETUP-ORPHAN-NP 0>>
+
+<REPLACE-DEFINITION	SPEAKING-VERB?
+<ROUTINE SPEAKING-VERB? ("OPT" (A ,PRSA))
+ <COND (<EQUAL? .A ;,V?ANSWER ,V?ASK-ABOUT ,V?ASK-FOR ,V?HELLO
+		   ,V?NO ;,V?REPLY ,V?TELL ,V?TELL-ABOUT ,V?YES>
+	<RTRUE>)>>>
+
+<DELAY-DEFINITION	STATUS-LINE>
+
+<REPLACE-DEFINITION TELL-TOO-DARK
+	 <ROUTINE TELL-TOO-DARK ()
+		  <SETG P-CONT -1> ;<RFATAL>
+		  <TELL ,TOO-DARK>
+		  <COND (<VERB? LOOK>
+			 <GRUE-PIT-WARNING>)
+			(T
+			 <CRLF>)>>>
+
+<COMPILATION-FLAG P-TITLE-ABBRS T>
+
+<REPLACE-DEFINITION TITLE-ABBR?
+<DEFMAC TITLE-ABBR?!- ('WRD) <FORM EQUAL? .WRD ',W?ST ',W?D ',W?J ',W?A>>>
+
+<DELAY-DEFINITION	VERB-ALL-TEST>
+<REPLACE-DEFINITION	YES? <CONSTANT YES? 0>>
+
+<COMPILATION-FLAG P-PS-ADV T>
+<COMPILATION-FLAG P-PS-COMMA T>
+<COMPILATION-FLAG P-PS-OFWORD T>
+;<COMPILATION-FLAG P-PS-THEWORD T>
+<COMPILATION-FLAG P-PS-QUOTE T>
+<TERMINALS VERB NOUN ADJ	;"keep these three in order! -- SWG"
+	   DIR
+	   PARTICLE PREP	;"keep these two in order! -- SWG"
+	   ASKWORD	;7
+	   OFWORD ;ARTICLE QUOTE COMMA
+	   ADV QUANT MISCWORD>
+
+<PROPDEF DIRECTIONS <>
+	 (DIR TO R:ROOM =
+	  (UEXIT 1)	;444	#SEMI "UNCONDITIONAL EXIT"
+	  (REXIT <ROOM .R>)	#SEMI "TO ROOM")
+	 (DIR S:STRING =
+	  (NEXIT 2)	;99	#SEMI "IMPOSSIBLE EXIT"
+	  (NEXITSTR <STRING .S>) #SEMI "FAILURE MESSAGE")
+	 (DIR SORRY S:STRING =
+	  (NEXIT 2)		#SEMI "IMPOSSIBLE EXIT"
+	  (NEXITSTR <STRING .S>) #SEMI "FAILURE MESSAGE")
+	 (DIR PER F:FCN =
+	  (FEXIT 3)	;53	#SEMI "CONDITIONAL EXIT"
+	  (FEXITFCN <WORD .F>)	#SEMI "PER FUNCTION"
+	  <BYTE 0>)
+	 (DIR TO R:ROOM IF F:GLOBAL "OPT" ELSE S:STRING =
+	  (CEXIT 4)	;7	#SEMI "CONDITIONAL EXIT"
+	  (REXIT <ROOM .R>)	#SEMI "TO ROOM"
+	  (CEXITFLAG <GLOBAL .F>) #SEMI "IF FLAG IS TRUE"
+	  (CEXITSTR <STRING .S>) #SEMI "FAILURE MESSAGE")
+	 (DIR TO R:ROOM IF O:OBJECT IS OPEN "OPT" ELSE S:STRING =
+	  (DEXIT 5)	;15	#SEMI "CONDITIONAL EXIT"
+	  (DEXITOBJ <OBJECT .O>) #SEMI "IF DOOR IS OPEN"
+	  (DEXITSTR <STRING .S>) #SEMI "FAILURE MESSAGE"
+	  (DEXITRM <ROOM .R>)	#SEMI "TO ROOM")>
+
+;<REPLACE-DEFINITION GET-DEXITOBJ
+<ROUTINE GET-DEXITOBJ (PT) <ZGET <REST .PT> ,DEXITOBJ>>>
+
+<DIRECTIONS	NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<OBJECT INTDIR
+	(LOC GLOBAL-OBJECTS)
+	(DESC "direction")
+	(SYNONYM NORTH NE EAST SE SOUTH SW WEST NW ;UP ;DOWN)>
+
+;<CONSTANT M-OBJDESC? 10>
+
+<ZSTART GO> ;"else, ZIL gets confused between verb-word GO and routine GO"
+
+<CONSTANT S-FULL 7>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/defs2.zabstr b/defs2.zabstr
new file mode 100644
index 0000000..6834c93
--- /dev/null
+++ b/defs2.zabstr
@@ -0,0 +1,69 @@
+
+<BEGIN-SEGMENT 0> 
+<INCLUDE "BASEDEFS" "PBITDEFS" "PDEFS"> 
+<NEW-ADD-WORD "CAGES" NOUN <VOC "CAGE"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "STALLS" NOUN <VOC "STALL"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "DOORS" NOUN <VOC "DOOR"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "BUTTONS" NOUN <VOC "BUTTON"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "ORBS" NOUN <VOC "ORB"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "SLABS" NOUN <VOC "SLAB"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "WEIGHTS" NOUN <VOC "WEIGHT"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "ANIMALS" NOUN <VOC "ANIMAL"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "SNAKES" NOUN <VOC "SNAKE"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "KEYS" NOUN <VOC "KEY"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "PEGS" NOUN <VOC "PEG"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "POSTS" NOUN <VOC "POST"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "SHELLS" NOUN <VOC "SHELL"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "FLIES" NOUN <VOC "FLY"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "VIALS" NOUN <VOC "VIAL"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "TREES" NOUN <VOC "TREE"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "ELMS" NOUN <VOC "ELM"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "OAKS" NOUN <VOC "OAK"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "PINES" NOUN <VOC "PINE"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "WITCHES" NOUN <VOC "WITCH"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "PASSAGES" NOUN <VOC "PASSAGE"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "FLOWERS" NOUN <VOC "FLOWER"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "BOARDS" NOUN <VOC "BOARD"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "SHUTTERS" NOUN <VOC "SHUTTER"> ,PLURAL-FLAG> 
+<NEW-ADD-WORD "DIMWIT'S" ADJ DIMWIT ,POSSESSIVE> 
+<NEW-ADD-WORD "JESTER'S" ADJ JESTER ,POSSESSIVE> 
+<DEFINE-ROUTINE DIRECTION-CONVERSION> 
+<REPLACE-DEFINITION MOBY-FIND? <ROUTINE MOBY-FIND? (SEARCH) <COND (<OR <NOT <0?
+<ANDB .SEARCH ,SEARCH-MOBY>>> <EQUAL? ,WINNER ,EXECUTIONER>> T)>>> 
+<REPLACE-DEFINITION WHICH-LIST? <ROUTINE WHICH-LIST? (NP SR "AUX" (CT <
+FIND-RES-COUNT .SR>) (V <REST-TO-SLOT .SR FIND-RES-OBJ1>)) <COND (<G? .CT <
+FIND-RES-SIZE .SR>> <RFALSE>) (<AND <SET NP <INTBL? ,PSEUDO-OBJECT .V .CT>> <
+INTBL? ,PSEUDO-OBJECT <REST .NP 2> <- .CT </ <+ 2 <- .NP .V>> 2>>>> <RFALSE>)>
+<REPEAT () <COND (<L? <SET CT <- .CT 1>> 0> <RFALSE>) (<ACCESSIBLE? <ZGET .V 0>
+> <RTRUE>) (T <SET V <ZREST .V 2>>)>>>> 
+<REPLACE-DEFINITION PSEUDO-OBJECTS <PUTPROP THINGS PROPSPEC HACK-PSEUDOS> <
+DEFINE20 HACK-PSEUDOS (LIST "AUX" (N 0) (CT 0) NL) <SET LIST <REST .LIST>> <SET
+LIST <MAPF ,LIST <FUNCTION (X) <COND (<0? .N> <SET CT <+ .CT 1>> <SET N 1> <
+COND (<TYPE? .X ATOM> <TABLE (PURE) 1 <VOC <SPNAME .X> ADJ>>) (<TYPE? .X LIST>
+<EVAL <CHTYPE (TABLE (PURE) <LENGTH .X> !<MAPF ,LIST <FUNCTION (Y) <VOC <SPNAME
+.Y> ADJ>> .X!>) FORM>>) (T 0)>) (<1? .N> <SET N 2> <COND (<TYPE? .X ATOM> <
+TABLE (PURE) 1 <VOC <SPNAME .X> NOUN>>) (<TYPE? .X LIST> <EVAL <CHTYPE (TABLE (
+PURE) <LENGTH .X> !<MAPF ,LIST <FUNCTION (Y) <VOC <SPNAME .Y> NOUN>> .X!>) FORM
+>>) (T 0)>) (T <SET N 0> .X)>> .LIST>> (<> <EVAL <CHTYPE (TABLE (PURE) .CT !.
+LIST) FORM>>)> <DEFINE TEST-THINGS (RM F "AUX" CT (RMG <GETP .RM ,P?THINGS>) (
+RMGL <GET .RMG 0>)) <SET RMG <REST .RMG 2>> <COND (<T? <SET CT <FIND-ADJS .F>>>
+<SET CT <ADJS-COUNT .CT>>)> <REPEAT (TTBL (NOUN <FIND-NOUN .F>) (V <
+REST-TO-SLOT <FIND-ADJS .F> ADJS-COUNT 1>)) <COND (<AND <SET TTBL <GET .RMG 1>>
+<OR <EQUAL? .NOUN ,W?ONE> <INTBL? .NOUN <REST .TTBL 2> <GET .TTBL 0>>> <OR <0?
+.CT> <AND <SET TTBL <GET .RMG 0>> <INTBL? <ZGET .V 0> <REST .TTBL 2> <GET .TTBL
+0>>>> <OR <NOT <FIND-OF .F>> <AND <EQUAL? 1 <FIND-RES-COUNT ,OWNER-SR-HERE>> <
+EQUAL? ,PSEUDO-OBJECT <FIND-RES-OBJ1 ,OWNER-SR-HERE>> <EQUAL? ,LAST-PSEUDO-LOC
+.RM> <EQUAL? <GETP ,PSEUDO-OBJECT ,P?ACTION> <GET .RMG 2>>>>> <SETG
+LAST-PSEUDO-LOC .RM> <PUTP ,PSEUDO-OBJECT ,P?ACTION <GET .RMG 2>> <SET V <ZBACK
+<GETPT ,PSEUDO-OBJECT ,P?ACTION> 7>> <COPYT .NOUN .V 6> <ADD-OBJECT ,
+PSEUDO-OBJECT .F> <RFALSE>)> <SET RMG <REST .RMG 6>> <COND (<L? <SET RMGL <- .
+RMGL 1>> 1> <RTRUE>)>>> <GLOBAL LAST-PSEUDO-LOC:OBJECT <>> <OBJECT
+PSEUDO-OBJECT (LOC LOCAL-GLOBALS) (DESC "pseudoxxx") (ACTION 0)>> 
+<REPLACE-DEFINITION INVALID-OBJECT? <ROUTINE INVALID-OBJECT? (OBJ) <COND (<
+EVERYWHERE-VERB?> <RFALSE>)> <COND (<AND <EQUAL? .OBJ ,CEILING> <FSET? ,HERE ,
+OUTSIDEBIT> <NOT <EQUAL? ,HERE ,ROOF ,PARAPET>>> <RTRUE>) (<AND <EQUAL? .OBJ ,
+LOCK-OBJECT> <NOUN-USED? ,LOCK-OBJECT ,W?KEYHOLE> <EQUAL? ,HERE ,LOWEST-HALL>>
+<RTRUE>) (<AND <EQUAL? .OBJ ,WALL> <FSET? ,HERE ,OUTSIDEBIT> <NOT <EQUAL? ,
+W?ONE <FIND-NOUN ,FINDER>>> <NOT <EQUAL? ,HERE ,PERIMETER-WALL>>> <RTRUE>) (T <
+RFALSE>)>>> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/defs2.zap b/defs2.zap
new file mode 100644
index 0000000..a70b90c
--- /dev/null
+++ b/defs2.zap
@@ -0,0 +1,13 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	DIRECTION-CONVERSION
+	CALL2	GET-NP,INTDIR
+	GET	STACK,2
+	GETB	STACK,6
+	RSTACK	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/defs2.zil b/defs2.zil
new file mode 100644
index 0000000..531f344
--- /dev/null
+++ b/defs2.zil
@@ -0,0 +1,165 @@
+"DEFS2 for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT 0>
+
+<INCLUDE "BASEDEFS" "PBITDEFS" "PDEFS">
+
+<NEW-ADD-WORD "CAGES" NOUN <VOC "CAGE"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "STALLS" NOUN <VOC "STALL"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "DOORS" NOUN <VOC "DOOR"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "BUTTONS" NOUN <VOC "BUTTON"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "ORBS" NOUN <VOC "ORB"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "SLABS" NOUN <VOC "SLAB"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "WEIGHTS" NOUN <VOC "WEIGHT"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "ANIMALS" NOUN <VOC "ANIMAL"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "SNAKES" NOUN <VOC "SNAKE"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "KEYS" NOUN <VOC "KEY"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "PEGS" NOUN <VOC "PEG"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "POSTS" NOUN <VOC "POST"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "SHELLS" NOUN <VOC "SHELL"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "FLIES" NOUN <VOC "FLY"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "VIALS" NOUN <VOC "VIAL"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "TREES" NOUN <VOC "TREE"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "ELMS" NOUN <VOC "ELM"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "OAKS" NOUN <VOC "OAK"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "PINES" NOUN <VOC "PINE"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "WITCHES" NOUN <VOC "WITCH"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "PASSAGES" NOUN <VOC "PASSAGE"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "FLOWERS" NOUN <VOC "FLOWER"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "BOARDS" NOUN <VOC "BOARD"> ,PLURAL-FLAG>
+<NEW-ADD-WORD "SHUTTERS" NOUN <VOC "SHUTTER"> ,PLURAL-FLAG>
+
+<NEW-ADD-WORD "DIMWIT\'S" ADJ DIMWIT ,POSSESSIVE>
+<NEW-ADD-WORD "JESTER\'S" ADJ JESTER ,POSSESSIVE>
+
+<ROUTINE DIRECTION-CONVERSION ()
+	 <WORD-DIR-ID <NP-NAME <GET-NP ,INTDIR>>>>
+
+<REPLACE-DEFINITION MOBY-FIND?
+ <ROUTINE MOBY-FIND? (SEARCH)
+	<COND (<OR <NOT <0? <ANDB .SEARCH ,SEARCH-MOBY ;128>>>
+		   <EQUAL? ,WINNER ,EXECUTIONER>>
+	       T)>>>
+
+<REPLACE-DEFINITION WHICH-LIST?
+<ROUTINE WHICH-LIST? (NP SR "AUX" (CT <FIND-RES-COUNT .SR>)
+				  (V <REST-TO-SLOT .SR FIND-RES-OBJ1>))
+ <COND (<G? .CT <FIND-RES-SIZE .SR>>
+	<RFALSE>)
+       ;(<EQUAL? <NP-NAME .NP> ,W?FLY ,W?FLIES>
+	<RFALSE>)
+       (<AND <SET NP <INTBL? ,PSEUDO-OBJECT .V .CT>>
+	     <INTBL? ,PSEUDO-OBJECT <REST .NP 2>
+				    <- .CT </ <+ 2 <- .NP .V>> 2>>>>
+	<RFALSE>)>
+ <REPEAT ()
+	 <COND (<L? <SET CT <- .CT 1>> 0>
+		<RFALSE>)
+	       (<ACCESSIBLE? <ZGET .V 0>>
+		<RTRUE>)
+	       (T
+		<SET V <ZREST .V 2>>)>>>>
+
+<REPLACE-DEFINITION PSEUDO-OBJECTS
+
+<PUTPROP THINGS PROPSPEC HACK-PSEUDOS>
+
+<DEFINE20 HACK-PSEUDOS (LIST "AUX" (N 0) (CT 0) NL)
+  <SET LIST <REST .LIST>>
+  <SET LIST
+    <MAPF ,LIST
+      <FUNCTION (X)
+        <COND (<0? .N>
+	       <SET CT <+ .CT 1>>
+	       <SET N 1>
+	       <COND (<TYPE? .X ATOM>
+		      <TABLE (PURE ;PATTERN ;(BYTE [REST WORD]))
+			     1
+			     <VOC <SPNAME .X> ADJ>>)
+		     (<TYPE? .X LIST>
+		      <EVAL <CHTYPE (TABLE (PURE ;PATTERN ;(BYTE [REST WORD]))
+				     <LENGTH .X>
+				     !<MAPF ,LIST
+				       <FUNCTION (Y)
+				         <VOC <SPNAME .Y> ADJ>>
+				       .X>) FORM>>)
+		     (T 0)>)
+	      (<1? .N>
+	       <SET N 2>
+	       <COND (<TYPE? .X ATOM>
+		      <TABLE (PURE ;PATTERN ;(BYTE [REST WORD]))
+			     1 <VOC <SPNAME .X> NOUN>>)
+		     (<TYPE? .X LIST>
+		      <EVAL <CHTYPE (TABLE (PURE ;PATTERN ;(BYTE [REST WORD]))
+				     <LENGTH .X>
+				     !<MAPF ,LIST
+				       <FUNCTION (Y)
+				         <VOC <SPNAME .Y> NOUN>>
+				       .X>) FORM>>)
+		     (T 0)>)
+	      (T
+	       <SET N 0>
+	       .X)>>
+      .LIST>>
+  (<> <EVAL <CHTYPE (TABLE (PURE ;PATTERN ;(BYTE [REST WORD]))
+		     .CT !.LIST) FORM>>)>
+
+<DEFINE TEST-THINGS (RM F
+		     "AUX" CT (RMG <GETP .RM ,P?THINGS>) (RMGL <GET .RMG 0>))
+ <SET RMG <REST .RMG 2>>
+ <COND (<T? <SET CT <FIND-ADJS .F>>>
+	<SET CT <ADJS-COUNT .CT>>)>
+ <REPEAT (TTBL (NOUN <FIND-NOUN .F>)
+	       (V <REST-TO-SLOT <FIND-ADJS .F> ADJS-COUNT 1>))
+  <COND (<AND <SET TTBL <GET .RMG 1>>
+	      <OR <EQUAL? .NOUN ;<> ,W?ONE>
+		  <INTBL? .NOUN <REST .TTBL 2> <GET .TTBL 0>>>
+	      <OR <0? .CT>
+		  <AND <SET TTBL <GET .RMG 0>>
+		       <INTBL? <ZGET .V 0> <REST .TTBL 2> <GET .TTBL 0>>>>
+	      <OR <NOT <FIND-OF .F>>
+		  <AND <EQUAL? 1 <FIND-RES-COUNT ,OWNER-SR-HERE>>
+		       <EQUAL? ,PSEUDO-OBJECT <FIND-RES-OBJ1 ,OWNER-SR-HERE>>
+		       <EQUAL? ,LAST-PSEUDO-LOC .RM>
+		       <EQUAL? <GETP ,PSEUDO-OBJECT ,P?ACTION> <GET .RMG 2>>>>>
+	 <SETG LAST-PSEUDO-LOC .RM>
+	 <PUTP ,PSEUDO-OBJECT ,P?ACTION <GET .RMG 2>>
+	 <SET V <ZBACK <GETPT ,PSEUDO-OBJECT ,P?ACTION> 7>>
+	 <COPYT .NOUN .V 6>
+	 <ADD-OBJECT ,PSEUDO-OBJECT .F>
+	 <RFALSE>)>
+  <SET RMG <REST .RMG 6>>
+  <COND (<L? <SET RMGL <- .RMGL 1>> 1>
+	 <RTRUE>)>>>
+
+<GLOBAL LAST-PSEUDO-LOC:OBJECT <>>
+
+<OBJECT PSEUDO-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "pseudoxxx")
+	(ACTION 0)	;"no other properties!">>
+
+<REPLACE-DEFINITION INVALID-OBJECT?
+<ROUTINE INVALID-OBJECT? (OBJ)
+	 <COND (<EVERYWHERE-VERB?>
+		<RFALSE>)>
+	 <COND (<AND <EQUAL? .OBJ ,CEILING>
+		     <FSET? ,HERE ,OUTSIDEBIT>
+		     <NOT <EQUAL? ,HERE ,ROOF ,PARAPET>>>
+		<RTRUE>)
+	       (<AND <EQUAL? .OBJ ,LOCK-OBJECT>
+		     <NOUN-USED? ,LOCK-OBJECT ,W?KEYHOLE>
+		     <EQUAL? ,HERE ,LOWEST-HALL>>
+		<RTRUE>)
+	       (<AND <EQUAL? .OBJ ,WALL>
+		     <FSET? ,HERE ,OUTSIDEBIT>
+		     <NOT <EQUAL? ,W?ONE <FIND-NOUN ,FINDER>>>
+		     <NOT <EQUAL? ,HERE ,PERIMETER-WALL>>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/fenshire.zabstr b/fenshire.zabstr
new file mode 100644
index 0000000..45c4192
--- /dev/null
+++ b/fenshire.zabstr
@@ -0,0 +1,153 @@
+
+<BEGIN-SEGMENT FENSHIRE> 
+<ROOM DIRIGIBLE-HANGAR (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Dirigible Hangar") (LDESC
+"Even after becoming accustomed to the oversized scale of the castle,
+this hangar seems tremendous. The only exit on foot is to the east.") (EAST TO
+WEST-WING) (OUT TO WEST-WING) (IN PER DIRIGIBLE-ENTER-F) (FLAGS RLANDBIT ONBIT)
+(SYNONYM HANGAR) (ADJECTIVE DIRIGIBLE LARGE) (MAP-LOC <PTABLE MAIN-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-1>) (GLOBAL GONDOLA) (ACTION DIRIGIBLE-HANGAR-F)> 
+<DEFINE-ROUTINE DIRIGIBLE-ENTER-F> 
+<DEFINE-ROUTINE DIRIGIBLE-HANGAR-F> 
+<OBJECT DIRIGIBLE (LOC DIRIGIBLE-HANGAR) (DESC "dirigible") (LDESC
+"A tremendous dirigible is moored here. The gondola is just a few inches
+off the ground.") (SYNONYM DIRIGIBLE) (FLAGS VEHBIT) (ACTION DIRIGIBLE-F)> 
+<DEFINE-ROUTINE DIRIGIBLE-F> 
+<ROOM GONDOLA (LOC ROOMS) (REGION "Flatheadia") (DESC "Gondola") (OUT PER
+GONDOLA-EXIT-F) (FLAGS RLANDBIT ONBIT) (SYNONYM GONDOLA) (GLOBAL WINDOW
+DIRIGIBLE DIRIGIBLE-HANGAR SMALLER-HANGAR) (MAP-LOC <TABLE MAIN-MAP-NUM
+GONDOLA-AT-FLATHEADIA-LOC MAP-GEN-X-1>) (ICON GONDOLA-ICON) (ACTION GONDOLA-F)>
+
+<DEFINE-ROUTINE GONDOLA-F> 
+<CONSTANT GONDOLA-CONTROLS-DESC
+"The controls consist of merely two buttons: the left button
+is marked \"Flatheadia\" and the right button is marked \"Fenshire.\""> 
+<OBJECT GONDOLA-CONTROLS (LOC GONDOLA) (DESC "controls") (SYNONYM CONTROL
+CONTROLS) (FLAGS NDESCBIT) (ACTION GONDOLA-CONTROLS-F)> 
+<DEFINE-ROUTINE GONDOLA-CONTROLS-F> 
+<OBJECT LEFT-GONDOLA-BUTTON (LOC GONDOLA) (DESC "left button") (SYNONYM BUTTON)
+(ADJECTIVE LEFT) (FLAGS NDESCBIT) (ACTION GONDOLA-BUTTON-F)> 
+<OBJECT RIGHT-GONDOLA-BUTTON (LOC GONDOLA) (DESC "right button") (SYNONYM
+BUTTON) (ADJECTIVE RIGHT) (FLAGS NDESCBIT) (ACTION GONDOLA-BUTTON-F)> 
+<DEFINE-ROUTINE GONDOLA-BUTTON-F> 
+<DEFINE-ROUTINE GONDOLA-EXIT-F> 
+<GLOBAL DESTINATION <>> 
+<GLOBAL DIRIGIBLE-COUNTER 0> 
+<DEFINE-ROUTINE I-DIRIGIBLE> 
+<CONSTANT DIRIGIBLE-TRIP-DESCS <PTABLE
+"It is now passing over a thickly tangled woods, stretching for miles in every
+direction." "You are now above the Frigid River. Cliffs crowd the river on both sides. To
+the south, you can just make out the spray of Aragain Falls."
+"The dirigible rises even higher as it crosses the Flathead Mountains. Jagged,
+snow-topped peaks slide by below."
+"Below you are vast square bloits of dismal swampland: the endless marshes of
+Fenshire.">> 
+<ROOM SMALLER-HANGAR (LOC ROOMS) (REGION "Fenshire") (DESC "Smaller Hangar") (
+LDESC "This hangar, though still large, is smaller than the one in Flatheadia.
+The only exit is south.") (SOUTH TO DESERTED-CASTLE) (IN PER DIRIGIBLE-ENTER-F)
+(OUT TO DESERTED-CASTLE) (FLAGS RLANDBIT ONBIT) (SYNONYM HANGAR) (ADJECTIVE
+SMALLER) (GLOBAL GONDOLA) (VALUE 6) (MAP-LOC <PTABLE FENSHIRE-MAP-NUM
+MAP-GEN-Y-3 MAP-GEN-X-2>) (ACTION 0)> 
+<DEFINE-ROUTINE SMALLER-HANGAR-F> 
+<ROOM DESERTED-CASTLE (LOC ROOMS) (REGION "Fenshire") (DESC "Deserted Castle")
+(LDESC "The summer palace of the Kings of Quendor now lies in ruins, unoccupied
+and uncared for, forgotten for many years. What's left of the castle can
+be entered to the east, and a hangar lies to the north.") (NORTH TO
+SMALLER-HANGAR) (EAST TO RUINED-HALL) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL
+SMALLER-HANGAR) (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>) (
+ACTION 0)> 
+<DEFINE-ROUTINE DESERTED-CASTLE-F> 
+<ROOM RUINED-HALL (LOC ROOMS) (REGION "Fenshire") (DESC "Ruined Hall") (NORTH
+TO MARSH IF ARCHWAY-OPEN ELSE "That archway has crumbled!") (SOUTH TO HOTHOUSE)
+(WEST TO DESERTED-CASTLE) (EAST TO SECRET-ROOM IF SECRET-ROOM-REVEALED) (UP
+SORRY "The stairs have crumbled beyond use.") (FLAGS RLANDBIT ONBIT) (GLOBAL
+STAIRS) (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-3>) (ICON
+RUINED-HALL-ICON) (ACTION RUINED-HALL-F)> 
+<DEFINE-ROUTINE RUINED-HALL-F> 
+<OBJECT FIREPLACE (LOC RUINED-HALL) (DESC "fireplace") (SYNONYM FIREPLACE) (
+ADJECTIVE CHOKED) (FLAGS NDESCBIT) (ACTION FIREPLACE-F)> 
+<DEFINE-ROUTINE FIREPLACE-F> 
+<OBJECT FRESCO (LOC RUINED-HALL) (DESC "fresco") (SYNONYM FRESCO) (ADJECTIVE
+FADED) (FLAGS NDESCBIT) (ACTION FRESCO-F)> 
+<DEFINE-ROUTINE FRESCO-F> 
+<OBJECT VASE (LOC RUINED-HALL) (DESC "vase") (SYNONYM VASE) (ADJECTIVE SMALL) (
+FLAGS NDESCBIT CONTBIT SEARCHBIT OPENBIT TRYTAKEBIT) (ACTION VASE-F)> 
+<DEFINE-ROUTINE VASE-F> 
+<GLOBAL SECRET-ROOM-REVEALED <>> 
+<ROOM SECRET-ROOM (LOC ROOMS) (REGION "Fenshire") (DESC "Secret Room") (LDESC
+"You are the first person to breathe the air of this room in uncounted years.
+The only exit is west.") (WEST TO RUINED-HALL) (OUT TO RUINED-HALL) (FLAGS
+RLANDBIT) (SYNONYM ROOM) (ADJECTIVE SECRET) (MAP-LOC <PTABLE FENSHIRE-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON SECRET-ROOM-ICON)> 
+<OBJECT LADDER (LOC SECRET-ROOM) (DESC "ladder") (FDESC
+"This room was probably intended as a hiding place for the royal family
+in the event of a revolution, and may have once been well-stocked with
+supplies. Now, however, the only item here is a small stepladder.") (SYNONYM
+LADDER STEPLADDER) (ADJECTIVE SMALL) (CAPACITY 20) (SIZE 20) (FLAGS TAKEBIT
+VEHBIT CONTBIT SEARCHBIT SURFACEBIT) (ACTION LADDER-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE LADDER-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FENSHIRE> 
+<GLOBAL ARCHWAY-OPEN T> 
+<GLOBAL STEPPING-STONES-VISIBLE <>> 
+<ROOM MARSH (LOC ROOMS) (REGION "Fenshire") (DESC "Marsh") (SOUTH TO
+RUINED-HALL IF ARCHWAY-OPEN ELSE
+"The archway has collapsed; that way is now impassable.") (NORTH PER
+STEPPING-STONES-F) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL SWAMP ARCH) (ICON
+MARSH-ICON) (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>) (ACTION
+MARSH-F)> 
+<DEFINE-ROUTINE MARSH-F> 
+<DEFINE-ROUTINE STEPPING-STONES-F> 
+<ROOM NICE-LUNCH-SPOT (LOC ROOMS) (REGION "Fenshire") (DESC "Nice Lunch Spot")
+(LDESC "Maybe the jester likes the ambience here, but to you it just looks like
+a slightly drier spot amidst a reedy marsh. The reeds are impassably thick
+in every direction, except to the south where a series of stepping stones
+offers a way to cross a malodorous patch of quicksand.") (SOUTH TO MARSH) (
+FLAGS RLANDBIT ONBIT OUTSIDEBIT) (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-2
+MAP-GEN-X-3>) (ACTION NICE-LUNCH-SPOT-F)> 
+<DEFINE-ROUTINE NICE-LUNCH-SPOT-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT HEXAGONAL-BLOCK (LOC LOCAL-GLOBALS) (DESC "hexagonal block") (SYNONYM
+BLOCK ROCK) (ADJECTIVE SMALL ELONGATED HEXAGONAL HEXAGON-SHAPED) (FLAGS TAKEBIT
+) (SIZE 3) (ACTION HEXAGONAL-BLOCK-F)> 
+<DEFINE-ROUTINE HEXAGONAL-BLOCK-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FENSHIRE> 
+<ROOM HOTHOUSE (LOC ROOMS) (REGION "Fenshire") (DESC "Hothouse") (LDESC
+"This enclosed arboretum must have been a breathtaking room at one time. Now,
+much of the glass is broken and the foliage has run wild, nearly obscuring the
+exit to the north. Despite the broken glass, it's stiflingly hot in here.") (
+NORTH TO RUINED-HALL) (OUT TO RUINED-HALL) (FLAGS RLANDBIT ONBIT) (SYNONYM
+HOTHOUSE GREENHOUSE ARBORETUM) (GLOBAL WINDOW) (MAP-LOC <PTABLE
+FENSHIRE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>) (ICON HOTHOUSE-ICON) (ACTION
+HOTHOUSE-F)> 
+<DEFINE-ROUTINE HOTHOUSE-F> 
+<CONSTANT SN-PICSET-TBL <TABLE BOX-1 BOX-2 BOX-3 BOX-4 BOX-5 BOX-6 BOX-7 BOX-8
+BOX-9 DIM-BOX-1 DIM-BOX-2 DIM-BOX-3 DIM-BOX-4 DIM-BOX-5 DIM-BOX-6 DIM-BOX-7
+DIM-BOX-8 DIM-BOX-9 PILE-OF-0 PILE-OF-1 PILE-OF-2 PILE-OF-3 PILE-OF-4 PILE-OF-5
+PILE-OF-6 PILE-OF-7 PILE-OF-8 PILE-OF-9 R-FLOWERS-0 R-FLOWERS-1 R-FLOWERS-2
+R-FLOWERS-3 R-FLOWERS-4 R-FLOWERS-5 R-FLOWERS-6 R-FLOWERS-7 R-FLOWERS-8
+R-FLOWERS-9 L-FLOWERS-0 L-FLOWERS-1 L-FLOWERS-2 L-FLOWERS-3 L-FLOWERS-4 0>> 
+<DEFINE-ROUTINE I-SN> 
+<DEFINE-ROUTINE SETUP-SN> 
+<DEFINE-ROUTINE DRAW-SN-BOXES> 
+<CONSTANT BOX-TBL <PTABLE 0 BOX-1 BOX-2 BOX-3 BOX-4 BOX-5 BOX-6 BOX-7 BOX-8
+BOX-9>> 
+<CONSTANT DIM-BOX-TBL <PTABLE 0 DIM-BOX-1 DIM-BOX-2 DIM-BOX-3 DIM-BOX-4
+DIM-BOX-5 DIM-BOX-6 DIM-BOX-7 DIM-BOX-8 DIM-BOX-9>> 
+<CONSTANT PILE-TABLE <TABLE 0 0 0 0 0>> 
+<DEFINE-ROUTINE DRAW-PILE> 
+<DEFINE-ROUTINE DRAW-FLOWERS> 
+<DEFINE-ROUTINE SNARFEM> 
+<DEFINE-ROUTINE SN-CLICK> 
+<DEFINE-ROUTINE COUNTDOWN-PILE> 
+<CONSTANT BINARY-TABLE <PTABLE 0 1 10 11 100 101 110 111 1000 1001>> 
+<DEFINE-ROUTINE SAFE-NUMBER?> 
+<CONSTANT TEMP-TABLE <TABLE 0 0 0 0 0>> 
+<DEFINE-ROUTINE J-MOVE> 
+<DEFINE-ROUTINE END-SN?> 
+<OBJECT FAN (DESC "fan") (SYNONYM FAN) (ADJECTIVE DELICATE DAINTY PAPER) (FLAGS
+TAKEBIT TRYTAKEBIT MAGICBIT) (VALUE 0) (ACTION FAN-F)> 
+<DEFINE-ROUTINE FAN-F> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/fenshire.zap b/fenshire.zap
new file mode 100644
index 0000000..bb23f4a
--- /dev/null
+++ b/fenshire.zap
@@ -0,0 +1,948 @@
+
+	.SEGMENT "FENSHIRE"
+
+
+	.FUNCT	DIRIGIBLE-ENTER-F,RARG
+	IN?	DIRIGIBLE,HERE \?CCL3
+	RETURN	GONDOLA
+?CCL3:	ZERO?	RARG \FALSE
+	ICALL1	V-WALK-AROUND
+	RFALSE	
+
+
+	.FUNCT	DIRIGIBLE-HANGAR-F,RARG
+	ZERO?	DEMO-VERSION? /FALSE
+	EQUAL?	RARG,M-END \FALSE
+	CALL1	END-DEMO
+	RSTACK	
+
+
+	.FUNCT	DIRIGIBLE-F
+	EQUAL?	PRSA,V?PUT-THROUGH,V?THROW-FROM \?CCL3
+	EQUAL?	PRSI,DIRIGIBLE \?CCL3
+	CALL	PERFORM-PRSA,PRSO,GONDOLA
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	EQUAL?	HERE,GONDOLA \?CCL10
+	CALL1	V-LOOK
+	RSTACK	
+?CCL10:	GETP	DIRIGIBLE,P?LDESC
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL12
+	EQUAL?	HERE,GONDOLA \?CCL15
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL15:	PRINTR	"You can't see much from out here."
+?CCL12:	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL2	GOTO,GONDOLA
+	RSTACK	
+
+
+	.FUNCT	GONDOLA-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You are in the luxurious gondola of the dirigible. A window wraps completely around the gondola. "
+	PRINT	GONDOLA-CONTROLS-DESC
+	RTRUE	
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	CALL2	PERFORM-PRSA,DIRIGIBLE
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?ENTER \?CCL9
+	EQUAL?	HERE,GONDOLA /?CCL9
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?EXIT,V?LEAP-OFF \?CCL13
+	EQUAL?	HERE,GONDOLA \?CCL13
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL13:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL17
+	CALL2	PERFORM-PRSA,DIRIGIBLE
+	RSTACK	
+?CCL17:	EQUAL?	PRSA,V?PUT-THROUGH,V?THROW-FROM \FALSE
+	EQUAL?	PRSI,GLOBAL-HERE,GONDOLA \FALSE
+	IN?	DIRIGIBLE,DIRIGIBLE-HANGAR /?CTR23
+	IN?	DIRIGIBLE,SMALLER-HANGAR \?CCL24
+?CTR23:	LOC	DIRIGIBLE
+	MOVE	PRSO,STACK
+	JUMP	?CND22
+?CCL24:	EQUAL?	PRSO,PERCH /?CCL28
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND27
+?CCL28:	SET	'REMOVED-PERCH-LOC,GROUND
+?CND27:	REMOVE	PRSO
+?CND22:	PRINTI	"You fling"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" out of the gondola."
+
+
+	.FUNCT	GONDOLA-CONTROLS-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINT	GONDOLA-CONTROLS-DESC
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	GONDOLA-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	ZERO?	TIME-STOPPED \?CTR5
+	FSET?	OUTER-GATE,OPENBIT /?CTR5
+	GRTR?	DIRIGIBLE-COUNTER,0 /?CTR5
+	EQUAL?	PRSO,LEFT-GONDOLA-BUTTON \?PRD11
+	IN?	DIRIGIBLE,DIRIGIBLE-HANGAR /?CTR5
+?PRD11:	EQUAL?	PRSO,RIGHT-GONDOLA-BUTTON \?CCL6
+	IN?	DIRIGIBLE,SMALLER-HANGAR \?CCL6
+?CTR5:	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL6:	ICALL	QUEUE,I-DIRIGIBLE,-1
+	SET	'DIRIGIBLE-COUNTER,1
+	ZERO?	BORDER-ON /?CND16
+	GETB	0,30
+	EQUAL?	STACK,DEC-20 /?CND16
+	ICALL1	CLEAR-BORDER
+	ICALL2	INIT-STATUS-LINE,TRUE-VALUE
+?CND16:	PRINTI	"The dirigible rises out of the hangar and sails "
+	IN?	DIRIGIBLE,DIRIGIBLE-HANGAR \?CCL22
+	SET	'DESTINATION,SMALLER-HANGAR
+	PRINTI	"ea"
+	JUMP	?CND20
+?CCL22:	SET	'DESTINATION,DIRIGIBLE-HANGAR
+	PRINTI	"we"
+?CND20:	PUTP	GONDOLA,P?REGION,STR?939
+	GETP	GONDOLA,P?MAP-LOC
+	PUT	STACK,0,FALSE-VALUE
+	FSET	DIRIGIBLE,NDESCBIT
+	MOVE	DIRIGIBLE,GONDOLA
+	PRINTR	"stward."
+
+
+	.FUNCT	GONDOLA-EXIT-F,RARG
+	GRTR?	DIRIGIBLE-COUNTER,0 \?CCL3
+	ZERO?	RARG \FALSE
+	CALL2	JIGS-UP,STR?940
+	RSTACK	
+?CCL3:	LOC	DIRIGIBLE
+	RSTACK	
+
+
+	.FUNCT	I-DIRIGIBLE,TBL
+	EQUAL?	HERE,GONDOLA \?CND1
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+?CND1:	EQUAL?	DIRIGIBLE-COUNTER,5 \?CCL5
+	GETP	GONDOLA,P?MAP-LOC >TBL
+	EQUAL?	DESTINATION,SMALLER-HANGAR \?CCL8
+	PUT	TBL,0,FENSHIRE-MAP-NUM
+	PUT	TBL,1,GONDOLA-AT-FENSHIRE-LOC
+	PUT	TBL,2,MAP-GEN-X-2
+	PUTP	GONDOLA,P?REGION,STR?249
+	JUMP	?CND6
+?CCL8:	PUT	TBL,0,MAIN-MAP-NUM
+	PUT	TBL,1,GONDOLA-AT-FLATHEADIA-LOC
+	PUT	TBL,2,MAP-GEN-X-1
+	PUTP	GONDOLA,P?REGION,STR?250
+?CND6:	MOVE	DIRIGIBLE,DESTINATION
+	FCLEAR	DIRIGIBLE,NDESCBIT
+	ICALL2	DEQUEUE,I-DIRIGIBLE
+	SET	'DIRIGIBLE-COUNTER,0
+	ZERO?	BORDER-ON /?CND9
+	EQUAL?	HERE,GONDOLA \?CND9
+	GETB	0,30
+	EQUAL?	STACK,DEC-20 /?CND9
+	ICALL1	CLEAR-BORDER
+	SET	'CURRENT-BORDER,CASTLE-BORDER
+	SCREEN	S-FULL
+	ICALL2	INIT-STATUS-LINE,TRUE-VALUE
+	SCREEN	S-TEXT
+?CND9:	EQUAL?	HERE,GONDOLA \?CCL16
+	PRINTR	"The dirigible descends into a hangar and comes to a stop."
+?CCL16:	EQUAL?	HERE,DESTINATION \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   A dirigible descends into the hangar."
+?CCL5:	EQUAL?	HERE,GONDOLA /?CCL20
+	INC	'DIRIGIBLE-COUNTER
+	RFALSE	
+?CCL20:	ICALL1	RETURN-FROM-MAP
+	PRINTI	"The dirigible continues to glide along. "
+	EQUAL?	DESTINATION,DIRIGIBLE-HANGAR \?CCL23
+	SUB	4,DIRIGIBLE-COUNTER
+	GET	DIRIGIBLE-TRIP-DESCS,STACK
+	PRINT	STACK
+	JUMP	?CND21
+?CCL23:	SUB	DIRIGIBLE-COUNTER,1
+	GET	DIRIGIBLE-TRIP-DESCS,STACK
+	PRINT	STACK
+?CND21:	INC	'DIRIGIBLE-COUNTER
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SMALLER-HANGAR-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	SMALLER-HANGAR,TOUCHBIT /FALSE
+	CALL	QUEUE,I-FOX,-1
+	RSTACK	
+
+
+	.FUNCT	DESERTED-CASTLE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	DESERTED-CASTLE,TOUCHBIT /FALSE
+	CALL	QUEUE,I-ROOSTER,-1
+	RSTACK	
+
+
+	.FUNCT	RUINED-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The entrance hall of the summer castle retains but a shadow of its former elegance; the ceiling has partially collapsed, and myriad weeds grow amongst the debris that covers the floor. A fireplace is choked with the rubble of its collapsed chimney. Above the fireplace is a faded fresco, and next to that, a tiny vase is mounted on the wall. Arched openings lead "
+	ZERO?	ARCHWAY-OPEN /?CND4
+	PRINTI	"north, "
+?CND4:	PRINTI	"south and west. "
+	ZERO?	ARCHWAY-OPEN \?CND6
+	PRINTI	"The archway to the north"
+	IN?	HEXAGONAL-BLOCK,LOCAL-GLOBALS /?CCL10
+	SET	'ARCHWAY-OPEN,TRUE-VALUE
+	PRINTI	", which had earlier crumbled, seems restored to its former condition: decayed but passable! "
+	JUMP	?CND6
+?CCL10:	PRINTI	" has crumbled to rubble. "
+?CND6:	ZERO?	SECRET-ROOM-REVEALED /?CND11
+	PRINTI	"In addition, a dusty passage leads east. "
+?CND11:	PRINTI	"A stairway once led upwards, but there's little left of it."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	ZERO?	ARCHWAY-OPEN \FALSE
+	IN?	HEXAGONAL-BLOCK,LOCAL-GLOBALS /FALSE
+	SET	'ARCHWAY-OPEN,TRUE-VALUE
+	RETURN	ARCHWAY-OPEN
+
+
+	.FUNCT	FIREPLACE-F
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	CALL2	DO-FIRST,STR?949
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLEAN \?CCL5
+	PRINTR	"Not a chance (unless you're actually a team of thirty people, in disguise)."
+?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTR	"Rubble. Lots of rubble."
+
+
+	.FUNCT	FRESCO-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The fresco depicts the death of Duncanthrax. His spirit is ascending to heaven on a tremendous ladder, surrounded by a host of angels."
+
+
+	.FUNCT	VASE-F
+	EQUAL?	PRSA,V?OPEN,V?CLOSE \?CCL3
+	PRINT	HUH
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
+	EQUAL?	PRSO,VASE \?CCL5
+	PRINTR	"The vase is affixed to the wall."
+?CCL5:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,FLOWER \FALSE
+	ZERO?	SECRET-ROOM-REVEALED \FALSE
+	SET	'SECRET-ROOM-REVEALED,TRUE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	MOVE	FLOWER,VASE
+	PRINTI	"The flower seems to grow fuller, its colors richer. You hear a noise, and turn to see a passageway opening to the east!"
+	CRLF	
+	CALL2	INC-SCORE,16
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	LADDER-F,VARG
+	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE,V?CLOSE,V?OPEN \?CCL5
+	PRINTR	"The stepladder seems to be stuck in the open position."
+?CCL5:	EQUAL?	PRSA,V?PUT-UNDER \?CCL7
+	EQUAL?	PRSO,MEGABOZ-TRAP-DOOR \?CCL7
+	PRINTR	"The ladder is now standing beneath the trap door."
+?CCL7:	EQUAL?	PRSA,V?CLIMB-ON,V?CLIMB,V?STAND-ON \FALSE
+	ICALL	PERFORM,V?ENTER,LADDER
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "FENSHIRE"
+
+
+	.FUNCT	MARSH-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The swamps of Fenshire have encroached on this once-beautiful garden. The garden wall is now just a pile of mossy stones, and the garden terraces are ankle-deep with squishy mud. A c"
+	ZERO?	ARCHWAY-OPEN /?CCL6
+	PRINTI	"rumbling archway leads"
+	JUMP	?CND4
+?CCL6:	PRINTI	"ollapsed archway blocks the exit to the"
+?CND4:	PRINTI	" south. To the north"
+	ZERO?	STEPPING-STONES-VISIBLE /?CCL9
+	PRINTI	", stepping stones lead across a field of quicksand."
+	RTRUE	
+?CCL9:	PRINTI	" is a wide expanse of fetid quicksand."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	IN?	JESTER,HERE \?CCL14
+	CALL2	VISIBLE?,ROOSTER
+	ZERO?	STACK /?CCL14
+	FSET?	ROOSTER,ANIMATEDBIT \?CCL14
+	CALL2	VISIBLE?,FOX
+	ZERO?	STACK /?CCL14
+	FSET?	FOX,ANIMATEDBIT \?CCL14
+	CALL2	VISIBLE?,WORM
+	ZERO?	STACK /?CCL14
+	FSET?	WORM,ANIMATEDBIT \?CCL14
+	MOVE	JESTER,NICE-LUNCH-SPOT
+	MOVE	COOKPOT,NICE-LUNCH-SPOT
+	MOVE	COOKFIRE,NICE-LUNCH-SPOT
+	SET	'ARCHWAY-OPEN,FALSE-VALUE
+	SET	'STEPPING-STONES-VISIBLE,TRUE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	FSET	RUINED-HALL,REDESCBIT
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The jester looks delighted. ""Sacre bleu! At last! All zee ingredients for Borphbelly Stew! But zee ambience here eesn't quite right."" He picks up his cookpot AND his cookfire, and dashes across the quicksand to the north, using a series of stepping stones which you'd swear weren't there a minute ago. This flurry of activity seems to have been too much for the archway behind you; it crumbles into a pile of rubble, blocking the exit to the south.
+   The jester, out of sight amongst the reeds to the north, shouts, ""Yoo hoo! I've found a lovely spot for lunch! Bring over zee ingredients!"""
+?CCL14:	IN?	JESTER,HERE /FALSE
+	IN?	HEXAGONAL-BLOCK,LOCAL-GLOBALS \FALSE
+	ZERO?	ARCHWAY-OPEN /FALSE
+	ICALL2	DEQUEUE,I-JESTER
+	ICALL2	THIS-IS-IT,JESTER
+	MOVE	JESTER,HERE
+	MOVE	COOKPOT,HERE
+	MOVE	COOKFIRE,HERE
+	PRINTI	"   A string of eloquent cursing in a foreign tongue assaults you, and you spy the jester "
+	PRINT	COOK-DESC
+	PRINTR	" He is stirring a cookpot which sits upon a roaring cookfire. ""Impossible!"" he shrieks, switching to a more familiar language. ""Eet is impossible to cook a Borphbelly Stew weethout zee proper ingredients! Impossible, impossible, impossible!"""
+
+
+	.FUNCT	STEPPING-STONES-F,RARG
+	ZERO?	STEPPING-STONES-VISIBLE \?CCL3
+	ZERO?	RARG \FALSE
+	PRINTI	"You'd be sucked into the quicksand!"
+	CRLF	
+	RFALSE	
+?CCL3:	CALL2	CCOUNT,PROTAGONIST
+	GRTR?	STACK,1 \?CCL7
+	ZERO?	RARG \FALSE
+	PRINTI	"It's difficult to balance on the stepping stones with all you're carrying. You try, but after almost falling into the quicksand, you give up."
+	CRLF	
+	RFALSE	
+?CCL7:	EQUAL?	HERE,MARSH \?CCL11
+	RETURN	NICE-LUNCH-SPOT
+?CCL11:	RETURN	MARSH
+
+
+	.FUNCT	NICE-LUNCH-SPOT-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	CALL2	VISIBLE?,ROOSTER
+	ZERO?	STACK /FALSE
+	FSET?	ROOSTER,ANIMATEDBIT \FALSE
+	CALL2	VISIBLE?,FOX
+	ZERO?	STACK /FALSE
+	FSET?	FOX,ANIMATEDBIT \FALSE
+	CALL2	VISIBLE?,WORM
+	ZERO?	STACK /FALSE
+	FSET?	WORM,ANIMATEDBIT \FALSE
+	MOVE	HEXAGONAL-BLOCK,SMALLER-HANGAR
+	FSET	SMALLER-HANGAR,REDESCBIT
+	FSET	RUINED-HALL,REDESCBIT
+	REMOVE	WORM
+	REMOVE	FOX
+	REMOVE	ROOSTER
+	REMOVE	COOKPOT
+	REMOVE	COOKFIRE
+	ICALL2	DEQUEUE,I-FOX
+	ICALL2	DEQUEUE,I-ROOSTER
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The jester says, ""Excellent! Zee ingredients for Borphbelly Stew and a "
+	ICALL2	DPRINT,HERE
+	PRINTI	" to enjoy eet!"" He tosses the animals into the cookpot, and begins dishing out two generous portions of stew. Before you can eat it, a tremendous weariness comes over you. The last thing you hear is the jester saying, ""Waiter? Check, please!""
+
+You awake from a deep sleep and struggle to your feet. As your head clears you realize that you're not where you were when you fell asleep"
+	PRINT	ELLIPSIS
+	ICALL2	GOTO,SMALLER-HANGAR
+	CALL2	INC-SCORE,9
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	HEXAGONAL-BLOCK-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's just a small rock which has been neatly carved into the shape of an elongated hexagon."
+
+	.ENDSEG
+
+	.SEGMENT "FENSHIRE"
+
+
+	.FUNCT	HOTHOUSE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	FAN,TRYTAKEBIT \FALSE
+	CALL	QUEUE,I-SN,1
+	RSTACK	
+
+
+	.FUNCT	I-SN,?TMP3,?TMP2,?TMP1
+	EQUAL?	HERE,HOTHOUSE \FALSE
+	ZERO?	ALLIGATOR /?CND1
+	ICALL	QUEUE,I-SN,1
+	RFALSE	
+?CND1:	ICALL1	RETURN-FROM-MAP
+	ICALL1	UPDATE-STATUS-LINE
+	PRINTI	"   The jester steps out from behind some tropical vines, fanning himself with a dainty paper fan. ""Hot enough for you? I know just the thing to take your mind off this heat! It's one of my favorite games, Snarfem.
+   ""The rules: I'll produce four piles of pebbles. Each of us, starting with you, will remove as many pebbles as we feel like -- as long as they come from the same pile. You must take at least one pebble each turn. The player who takes the last pebble wins. It's that simple!"""
+	CRLF	
+	CRLF	
+	ICALL2	HIT-ANY-KEY,STR?955
+	ICALL	SPLIT-BY-PICTURE,SN-SPLIT,TRUE-VALUE
+	ICALL2	ADJUST-TEXT-WINDOW,SN-BOTTOM
+?PRG5:	RANDOM	9
+	PUT	PILE-TABLE,1,STACK
+?PRG7:	RANDOM	9
+	PUT	PILE-TABLE,2,STACK
+	GET	PILE-TABLE,2 >?TMP1
+	GET	PILE-TABLE,1
+	EQUAL?	?TMP1,STACK \?PRG14
+	GET	PILE-TABLE,2
+	ADD	STACK,1
+	PUT	PILE-TABLE,2,STACK
+	GET	PILE-TABLE,2
+	EQUAL?	STACK,10 \?PRG7
+	PUT	PILE-TABLE,2,1
+	JUMP	?PRG7
+?PRG14:	RANDOM	9
+	PUT	PILE-TABLE,3,STACK
+	GET	PILE-TABLE,3 >?TMP2
+	GET	PILE-TABLE,2 >?TMP1
+	GET	PILE-TABLE,1
+	EQUAL?	?TMP2,?TMP1,STACK \?PRG21
+	GET	PILE-TABLE,3
+	ADD	STACK,1
+	PUT	PILE-TABLE,3,STACK
+	GET	PILE-TABLE,3
+	EQUAL?	STACK,10 \?PRG14
+	PUT	PILE-TABLE,3,1
+	JUMP	?PRG14
+?PRG21:	RANDOM	9
+	PUT	PILE-TABLE,4,STACK
+	GET	PILE-TABLE,4 >?TMP3
+	GET	PILE-TABLE,3 >?TMP2
+	GET	PILE-TABLE,2 >?TMP1
+	GET	PILE-TABLE,1
+	EQUAL?	?TMP3,?TMP2,?TMP1,STACK \?REP22
+	GET	PILE-TABLE,4
+	ADD	STACK,1
+	PUT	PILE-TABLE,4,STACK
+	GET	PILE-TABLE,4
+	EQUAL?	STACK,10 \?PRG21
+	PUT	PILE-TABLE,4,1
+	JUMP	?PRG21
+?REP22:	CALL2	SAFE-NUMBER?,PILE-TABLE
+	ZERO?	STACK \?PRG5
+	ICALL1	SETUP-SN
+	CRLF	
+	ICALL1	SNARFEM
+	ICALL2	INIT-SL-WITH-SPLIT,TEXT-WINDOW-PIC-LOC
+	FSET?	FAN,TRYTAKEBIT \?CCL32
+	PRINTI	"The jester claps you on the back and says, ""He who wins and runs away, returns to let you win another day!"""
+	CALL1	J-EXITS
+	RSTACK	
+?CCL32:	MOVE	FAN,HERE
+	ICALL1	REMOVE-J
+	PRINTI	"""You're undoubtedly not a flash in the pan; you've turned me into your biggest fan!"" The jester is suddenly wearing a cap and sweater bearing your initials, and waving a pennant with your name on it. Still chanting a cheer, he vanishes, and you notice a delicate paper fan lying at your feet."
+	CRLF	
+	CALL2	INC-SCORE,12
+	RSTACK	
+
+
+	.FUNCT	SETUP-SN
+	SCREEN	S-FULL
+	DISPLAY	SN-BORDER,1,1
+	SCREEN	S-WINDOW
+	PICSET	SN-PICSET-TBL
+	ICALL2	DRAW-PILE,1
+	ICALL2	DRAW-PILE,2
+	ICALL2	DRAW-PILE,3
+	ICALL2	DRAW-PILE,4
+	CALL1	DRAW-FLOWERS
+	RSTACK	
+
+
+	.FUNCT	DRAW-SN-BOXES,PILE,X,Y,SPACE,CNT,TBL
+	SET	'CNT,1
+	SCREEN	S-WINDOW
+	ICALL2	PICINF-PLUS-ONE,BOX-1-LOC
+	GET	PICINF-TBL,0 >Y
+	GET	PICINF-TBL,1 >X
+	PICINF	SN-BOX-SPACE,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,1 >SPACE
+?PRG2:	ZERO?	PILE \?CCL6
+	GRTR?	CNT,4 \?CCL9
+	SET	'TBL,DIM-BOX-TBL
+	JUMP	?CND4
+?CCL9:	GET	PILE-TABLE,CNT
+	ZERO?	STACK \?CCL11
+	SET	'TBL,DIM-BOX-TBL
+	JUMP	?CND4
+?CCL11:	SET	'TBL,BOX-TBL
+	JUMP	?CND4
+?CCL6:	GET	PILE-TABLE,PILE
+	GRTR?	CNT,STACK \?CCL13
+	SET	'TBL,DIM-BOX-TBL
+	JUMP	?CND4
+?CCL13:	SET	'TBL,BOX-TBL
+?CND4:	GET	TBL,CNT
+	DISPLAY	STACK,Y,X
+	EQUAL?	CNT,9 /?REP3
+	ADD	X,SPACE >X
+	INC	'CNT
+	JUMP	?PRG2
+?REP3:	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	DRAW-PILE,PILE,NUM,PIC,?TMP1
+	SCREEN	S-WINDOW
+	GET	PILE-TABLE,PILE >NUM
+	EQUAL?	PILE,1 \?CCL3
+	PUSH	PILE-1-PIC-LOC
+	JUMP	?CND1
+?CCL3:	EQUAL?	PILE,2 \?CCL5
+	PUSH	PILE-2-PIC-LOC
+	JUMP	?CND1
+?CCL5:	EQUAL?	PILE,3 \?CCL7
+	PUSH	PILE-3-PIC-LOC
+	JUMP	?CND1
+?CCL7:	PUSH	PILE-4-PIC-LOC
+?CND1:	ICALL2	PICINF-PLUS-ONE,STACK
+	ZERO?	NUM \?CCL10
+	SET	'PIC,PILE-OF-0
+	JUMP	?CND8
+?CCL10:	EQUAL?	NUM,1 \?CCL12
+	SET	'PIC,PILE-OF-1
+	JUMP	?CND8
+?CCL12:	EQUAL?	NUM,2 \?CCL14
+	SET	'PIC,PILE-OF-2
+	JUMP	?CND8
+?CCL14:	EQUAL?	NUM,3 \?CCL16
+	SET	'PIC,PILE-OF-3
+	JUMP	?CND8
+?CCL16:	EQUAL?	NUM,4 \?CCL18
+	SET	'PIC,PILE-OF-4
+	JUMP	?CND8
+?CCL18:	EQUAL?	NUM,5 \?CCL20
+	SET	'PIC,PILE-OF-5
+	JUMP	?CND8
+?CCL20:	EQUAL?	NUM,6 \?CCL22
+	SET	'PIC,PILE-OF-6
+	JUMP	?CND8
+?CCL22:	EQUAL?	NUM,7 \?CCL24
+	SET	'PIC,PILE-OF-7
+	JUMP	?CND8
+?CCL24:	EQUAL?	NUM,8 \?CCL26
+	SET	'PIC,PILE-OF-8
+	JUMP	?CND8
+?CCL26:	SET	'PIC,PILE-OF-9
+?CND8:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	PIC,?TMP1,STACK
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	DRAW-FLOWERS,PILE,NUM,LEFT,RIGHT,?TMP1,?TMP2,?TMP3,?TMP4
+	SET	'PILE,1
+	SET	'NUM,1
+	CALL2	SAFE-NUMBER?,PILE-TABLE
+	ZERO?	STACK /?PRG4
+	SET	'LEFT,L-FLOWERS-0
+	SET	'RIGHT,R-FLOWERS-0
+	JUMP	?CND1
+?PRG4:	ADD	TEMP-TABLE,2
+	COPYT	PILE-TABLE+2,STACK,8
+	GET	PILE-TABLE,PILE
+	ZERO?	STACK \?CCL8
+	INC	'PILE
+	JUMP	?PRG4
+?CCL8:	GET	PILE-TABLE,1 >?TMP4
+	GET	PILE-TABLE,2
+	ADD	?TMP4,STACK >?TMP3
+	GET	PILE-TABLE,3
+	ADD	?TMP3,STACK >?TMP2
+	GET	PILE-TABLE,4
+	ADD	?TMP2,STACK >?TMP1
+	GET	PILE-TABLE,PILE
+	EQUAL?	?TMP1,STACK \?CCL10
+	GET	PILE-TABLE,PILE >NUM
+?REP5:	EQUAL?	PILE,1 \?CCL18
+	SET	'LEFT,L-FLOWERS-1
+	JUMP	?CND16
+?CCL10:	GET	TEMP-TABLE,PILE
+	SUB	STACK,NUM
+	PUT	TEMP-TABLE,PILE,STACK
+	CALL2	SAFE-NUMBER?,TEMP-TABLE
+	ZERO?	STACK \?REP5
+	GET	PILE-TABLE,PILE
+	SUB	STACK,NUM
+	ZERO?	STACK \?CCL15
+	SET	'NUM,1
+	INC	'PILE
+	JUMP	?PRG4
+?CCL15:	INC	'NUM
+	JUMP	?PRG4
+?CCL18:	EQUAL?	PILE,2 \?CCL20
+	SET	'LEFT,L-FLOWERS-2
+	JUMP	?CND16
+?CCL20:	EQUAL?	PILE,3 \?CCL22
+	SET	'LEFT,L-FLOWERS-3
+	JUMP	?CND16
+?CCL22:	EQUAL?	PILE,4 /?CCL24
+	SET	'LEFT,0
+	JUMP	?CND16
+?CCL24:	SET	'LEFT,L-FLOWERS-4
+?CND16:	EQUAL?	NUM,1 \?CCL27
+	SET	'RIGHT,R-FLOWERS-1
+	JUMP	?CND1
+?CCL27:	EQUAL?	NUM,2 \?CCL29
+	SET	'RIGHT,R-FLOWERS-2
+	JUMP	?CND1
+?CCL29:	EQUAL?	NUM,3 \?CCL31
+	SET	'RIGHT,R-FLOWERS-3
+	JUMP	?CND1
+?CCL31:	EQUAL?	NUM,4 \?CCL33
+	SET	'RIGHT,R-FLOWERS-4
+	JUMP	?CND1
+?CCL33:	EQUAL?	NUM,5 \?CCL35
+	SET	'RIGHT,R-FLOWERS-5
+	JUMP	?CND1
+?CCL35:	EQUAL?	NUM,6 \?CCL37
+	SET	'RIGHT,R-FLOWERS-6
+	JUMP	?CND1
+?CCL37:	EQUAL?	NUM,7 \?CCL39
+	SET	'RIGHT,R-FLOWERS-7
+	JUMP	?CND1
+?CCL39:	EQUAL?	NUM,8 \?CCL41
+	SET	'RIGHT,R-FLOWERS-8
+	JUMP	?CND1
+?CCL41:	EQUAL?	NUM,9 /?CCL43
+	SET	'RIGHT,0
+	JUMP	?CND1
+?CCL43:	SET	'RIGHT,R-FLOWERS-9
+?CND1:	SCREEN	S-WINDOW
+	ICALL2	PICINF-PLUS-ONE,L-FLOWERS-PIC-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	LEFT,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,R-FLOWERS-PIC-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	RIGHT,?TMP1,STACK
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	SNARFEM,X,NUM,PILE,STOP-SN
+?PRG1:	ZERO?	STOP-SN \TRUE
+	ZERO?	PILE /?CCL7
+	CLEAR	S-TEXT
+	ZERO?	ACTIVE-MOUSE /?CND8
+	ICALL2	DRAW-SN-BOXES,PILE
+?CND8:	PRINTI	"Type a number "
+	ZERO?	ACTIVE-MOUSE /?CND10
+	PRINTI	"(or click on one of the numbered boxes with your mouse) "
+?CND10:	PRINTI	"to indicate how many pebbles you want to remove from Pile #"
+	PRINTN	PILE
+	PRINTC	46
+?PRG12:	INPUT	'X >X
+	ICALL1	MOUSE-INPUT?
+	EQUAL?	X,CLICK1,CLICK2 \?CCL16
+	CALL2	SN-CLICK,TRUE-VALUE >X
+	JUMP	?CND14
+?CCL16:	GRTR?	X,144 \?CCL18
+	LESS?	X,155 \?CCL18
+	SUB	X,145 >X
+	JUMP	?CND14
+?CCL18:	SUB	X,48 >X
+?CND14:	GRTR?	X,9 /?CTR22
+	LESS?	X,1 \?CCL23
+?CTR22:	CLEAR	S-TEXT
+	PRINT	TYPE-A-NUMBER
+	PRINTC	57
+	ZERO?	ACTIVE-MOUSE /?CND26
+	PRINTI	" (or click on one of the numbered boxes with your mouse)"
+?CND26:	PRINTC	46
+	JUMP	?PRG12
+?CCL23:	GRTR?	X,NUM \?CCL29
+	CLEAR	S-TEXT
+	PRINTI	"There "
+	EQUAL?	NUM,1 \?CCL32
+	PRINTI	"is"
+	JUMP	?CND30
+?CCL32:	PRINTI	"are"
+?CND30:	PRINTI	" only "
+	PRINTN	NUM
+	PRINTI	" pebble"
+	EQUAL?	NUM,1 /?CND33
+	PRINTC	115
+?CND33:	PRINTI	" in Pile #"
+	PRINTN	PILE
+	PRINTC	46
+	JUMP	?PRG12
+?CCL29:	CLEAR	S-TEXT
+	PRINTI	"You remove "
+	PRINTN	X
+	PRINTI	" pebble"
+	EQUAL?	X,1 /?CND35
+	PRINTC	115
+?CND35:	PRINTI	" from Pile #"
+	PRINTN	PILE
+	PRINTC	46
+	ICALL	COUNTDOWN-PILE,PILE,NUM,X
+	ICALL1	DRAW-FLOWERS
+	SET	'PILE,FALSE-VALUE
+	CALL1	END-SN?
+	ZERO?	STACK /?CCL39
+	SET	'STOP-SN,TRUE-VALUE
+	FCLEAR	FAN,TRYTAKEBIT
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	JUMP	?PRG1
+?CCL39:	CRLF	
+	PRINTI	"   "
+	ICALL1	J-MOVE
+	CALL1	END-SN?
+	ZERO?	STACK /?CCL42
+	SET	'STOP-SN,TRUE-VALUE
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	JUMP	?PRG1
+?CCL42:	CRLF	
+	PRINTI	"   "
+	JUMP	?PRG1
+?CCL7:	ZERO?	ACTIVE-MOUSE /?CND43
+	ICALL1	DRAW-SN-BOXES
+?CND43:	PRINTI	"Type a number "
+	ZERO?	ACTIVE-MOUSE /?CND45
+	PRINTI	"(or click on one of the numbered boxes with your mouse) "
+?CND45:	PRINTI	"to select the pile from which you'd like to remove a pebble or pebbles."
+?PRG47:	INPUT	'X >X
+	ICALL1	MOUSE-INPUT?
+	EQUAL?	X,CLICK1,CLICK2 \?CCL51
+	CALL1	SN-CLICK >X
+	JUMP	?CND49
+?CCL51:	GRTR?	X,144 \?CCL53
+	LESS?	X,155 \?CCL53
+	SUB	X,145 >X
+	JUMP	?CND49
+?CCL53:	SUB	X,48 >X
+?CND49:	GRTR?	X,4 /?CTR57
+	LESS?	X,1 \?CCL58
+?CTR57:	CLEAR	S-TEXT
+	PRINT	TYPE-A-NUMBER
+	PRINTC	52
+	ZERO?	ACTIVE-MOUSE /?CND61
+	PRINTI	" (or click on one of the numbered boxes with your mouse)"
+?CND61:	PRINTC	46
+	JUMP	?PRG47
+?CCL58:	GET	PILE-TABLE,X
+	ZERO?	STACK \?CCL64
+	CLEAR	S-TEXT
+	PRINTI	"There are no longer any pebbles in Pile #"
+	PRINTN	X
+	PRINTC	46
+	JUMP	?PRG47
+?CCL64:	SET	'PILE,X
+	GET	PILE-TABLE,PILE >NUM
+	JUMP	?PRG1
+
+
+	.FUNCT	SN-CLICK,ALREADY-PICKED-PILE,TL-X,TL-Y,BR-X,BR-Y,BOX-WIDTH,BOX-HEIGHT,CNT,HIT-SPOT
+	SET	'CNT,1
+	PICINF	BOX-1,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,1 >BOX-WIDTH
+	GET	PICINF-TBL,0 >BOX-HEIGHT
+	ICALL2	PICINF-PLUS-ONE,BOX-1-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	ADD	TL-Y,BOX-HEIGHT >BR-Y
+	PICINF	SN-BOX-SPACE,PICINF-TBL /?PRG3
+?PRG3:	ADD	TL-X,BOX-WIDTH >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CCL7
+	SET	'HIT-SPOT,TRUE-VALUE
+?REP4:	ZERO?	HIT-SPOT /?CCL12
+	RETURN	CNT
+?CCL7:	EQUAL?	CNT,9 /?REP4
+	INC	'CNT
+	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >TL-X
+	JUMP	?PRG3
+?CCL12:	ZERO?	ALREADY-PICKED-PILE \FALSE
+	ICALL2	PICINF-PLUS-ONE,PILE-OF-1
+	GET	PICINF-TBL,1 >BOX-WIDTH
+	GET	PICINF-TBL,0 >BOX-HEIGHT
+	ICALL2	PICINF-PLUS-ONE,PILE-1-PIC-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	ADD	TL-X,BOX-WIDTH >BR-X
+	ADD	TL-Y,BOX-HEIGHT >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND14
+	SET	'CNT,1
+	SET	'HIT-SPOT,TRUE-VALUE
+?CND14:	ZERO?	HIT-SPOT \?CND16
+	ICALL2	PICINF-PLUS-ONE,PILE-2-PIC-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	ADD	TL-X,BOX-WIDTH >BR-X
+	ADD	TL-Y,BOX-HEIGHT >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND16
+	SET	'CNT,2
+	SET	'HIT-SPOT,TRUE-VALUE
+?CND16:	ZERO?	HIT-SPOT \?CND20
+	ICALL2	PICINF-PLUS-ONE,PILE-3-PIC-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	ADD	TL-X,BOX-WIDTH >BR-X
+	ADD	TL-Y,BOX-HEIGHT >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND20
+	SET	'CNT,3
+	SET	'HIT-SPOT,TRUE-VALUE
+?CND20:	ZERO?	HIT-SPOT \?CND24
+	ICALL2	PICINF-PLUS-ONE,PILE-4-PIC-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	ADD	TL-X,BOX-WIDTH >BR-X
+	ADD	TL-Y,BOX-HEIGHT >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND24
+	SET	'CNT,4
+	SET	'HIT-SPOT,TRUE-VALUE
+?CND24:	ZERO?	HIT-SPOT /FALSE
+	RETURN	CNT
+
+
+	.FUNCT	COUNTDOWN-PILE,PILE,NUM,X
+?PRG1:	GET	PILE-TABLE,PILE
+	SUB	STACK,1
+	PUT	PILE-TABLE,PILE,STACK
+	ICALL2	DRAW-PILE,PILE
+	DEC	'X
+	ZERO?	X \?PRG1
+	RTRUE	
+
+
+	.FUNCT	SAFE-NUMBER?,TBL,X,?TMP1,?TMP2,?TMP3
+	GET	TBL,1
+	GET	BINARY-TABLE,STACK >?TMP3
+	GET	TBL,2
+	GET	BINARY-TABLE,STACK
+	ADD	?TMP3,STACK >?TMP2
+	GET	TBL,3
+	GET	BINARY-TABLE,STACK
+	ADD	?TMP2,STACK >?TMP1
+	GET	TBL,4
+	GET	BINARY-TABLE,STACK
+	ADD	?TMP1,STACK >X
+	MOD	X,2
+	ZERO?	STACK \FALSE
+	DIV	X,10
+	MOD	STACK,2
+	ZERO?	STACK \FALSE
+	DIV	X,100
+	MOD	STACK,2
+	ZERO?	STACK \FALSE
+	DIV	X,1000
+	MOD	STACK,2
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	J-MOVE,PILE,NUM,?TMP1,?TMP2,?TMP3,?TMP4
+	SET	'PILE,1
+	SET	'NUM,1
+	PRINTI	"The jester peruses the piles, considering his move."
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	CLEAR	S-TEXT
+	CALL2	SAFE-NUMBER?,PILE-TABLE
+	ZERO?	STACK /?PRG12
+?PRG4:	RANDOM	4 >PILE
+	GET	PILE-TABLE,PILE
+	ZERO?	STACK \?REP5
+	EQUAL?	PILE,4 \?CCL11
+	SET	'PILE,0
+	JUMP	?PRG4
+?CCL11:	INC	'PILE
+	JUMP	?PRG4
+?REP5:	GET	PILE-TABLE,PILE
+	RANDOM	STACK >NUM
+	JUMP	?CND1
+?PRG12:	COPYT	PILE-TABLE+2,TEMP-TABLE+2,8
+	GET	PILE-TABLE,PILE
+	ZERO?	STACK \?CCL16
+	INC	'PILE
+	JUMP	?PRG12
+?CCL16:	GET	PILE-TABLE,1 >?TMP4
+	GET	PILE-TABLE,2
+	ADD	?TMP4,STACK >?TMP3
+	GET	PILE-TABLE,3
+	ADD	?TMP3,STACK >?TMP2
+	GET	PILE-TABLE,4
+	ADD	?TMP2,STACK >?TMP1
+	GET	PILE-TABLE,PILE
+	EQUAL?	?TMP1,STACK \?CCL18
+	GET	PILE-TABLE,PILE >NUM
+?CND1:	PRINTI	"The jester removes "
+	PRINTN	NUM
+	PRINTI	" pebble"
+	EQUAL?	NUM,1 /?CND24
+	PRINTC	115
+?CND24:	PRINTI	" from Pile #"
+	PRINTN	PILE
+	PRINTC	46
+	GET	PILE-TABLE,PILE
+	ICALL	COUNTDOWN-PILE,PILE,STACK,NUM
+	CALL1	DRAW-FLOWERS
+	RSTACK	
+?CCL18:	GET	TEMP-TABLE,PILE
+	SUB	STACK,NUM
+	PUT	TEMP-TABLE,PILE,STACK
+	CALL2	SAFE-NUMBER?,TEMP-TABLE
+	ZERO?	STACK \?CND1
+	GET	PILE-TABLE,PILE
+	SUB	STACK,NUM
+	ZERO?	STACK \?CCL23
+	SET	'NUM,1
+	INC	'PILE
+	JUMP	?PRG12
+?CCL23:	INC	'NUM
+	JUMP	?PRG12
+
+
+	.FUNCT	END-SN?
+	GET	PILE-TABLE,1
+	ZERO?	STACK \FALSE
+	GET	PILE-TABLE,2
+	ZERO?	STACK \FALSE
+	GET	PILE-TABLE,3
+	ZERO?	STACK \FALSE
+	GET	PILE-TABLE,4
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	FAN-F
+	EQUAL?	PRSA,V?POINT \FALSE
+	EQUAL?	P-PRSA-WORD,W?WAVE \FALSE
+	PRINTR	"You produce a light breeze."
+
+	.ENDSEG
+
+	.ENDI
diff --git a/fenshire.zil b/fenshire.zil
new file mode 100644
index 0000000..f75da06
--- /dev/null
+++ b/fenshire.zil
@@ -0,0 +1,1122 @@
+"FENSHIRE for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT FENSHIRE>
+
+;"the dirigible"
+
+<ROOM DIRIGIBLE-HANGAR
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Dirigible Hangar")
+      (LDESC
+"Even after becoming accustomed to the oversized scale of the castle,
+this hangar seems tremendous. The only exit on foot is to the east.")
+      (EAST TO WEST-WING)
+      (OUT TO WEST-WING)
+      (IN PER DIRIGIBLE-ENTER-F)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM HANGAR)
+      (ADJECTIVE DIRIGIBLE LARGE)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-1>)
+      (GLOBAL GONDOLA)
+      (ACTION DIRIGIBLE-HANGAR-F)>
+
+<ROUTINE DIRIGIBLE-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<IN? ,DIRIGIBLE ,HERE>
+		,GONDOLA)
+	       (T
+		<COND (<NOT .RARG>
+		       <V-WALK-AROUND>)>
+		<RFALSE>)>>
+
+<ROUTINE DIRIGIBLE-HANGAR-F ("OPT" (RARG <>))
+	 <COND (<AND ,DEMO-VERSION? <EQUAL? .RARG ,M-END>>
+		<END-DEMO>)>>
+
+<OBJECT DIRIGIBLE
+	(LOC DIRIGIBLE-HANGAR)
+	(DESC "dirigible")
+	(LDESC
+"A tremendous dirigible is moored here. The gondola is just a few inches
+off the ground.")
+	(SYNONYM DIRIGIBLE)
+	(FLAGS VEHBIT) ;"so GET IN finds the dirigible"
+	(ACTION DIRIGIBLE-F)>
+
+<ROUTINE DIRIGIBLE-F ()
+	 <COND (<AND <VERB? THROW-FROM PUT-THROUGH>
+		     <PRSI? ,DIRIGIBLE>>
+		<PERFORM-PRSA ,PRSO ,GONDOLA>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,GONDOLA>
+		       <V-LOOK>)
+		      (T
+		       <TELL <GETP ,DIRIGIBLE ,P?LDESC> CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<EQUAL? ,HERE ,GONDOLA>
+		       <TELL ,LOOK-AROUND>)
+		      (T
+		       <TELL "You can't see much from out here." CR>)>)
+	       (<VERB? ENTER>
+		<GOTO ,GONDOLA>)>>
+
+<ROOM GONDOLA
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Gondola")
+      (OUT PER GONDOLA-EXIT-F)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM GONDOLA)
+      (GLOBAL WINDOW DIRIGIBLE DIRIGIBLE-HANGAR SMALLER-HANGAR)
+      (MAP-LOC ;"not a PTABLE because the info changes during dirigible trip"
+       <TABLE MAIN-MAP-NUM GONDOLA-AT-FLATHEADIA-LOC MAP-GEN-X-1>)
+      (ICON GONDOLA-ICON)
+      (ACTION GONDOLA-F)>
+
+<ROUTINE GONDOLA-F ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in the luxurious gondola of the dirigible. A window wraps completely
+around the gondola. " ,GONDOLA-CONTROLS-DESC>)
+	       (.RARG
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<PERFORM-PRSA ,DIRIGIBLE>)
+	       (<AND <VERB? ENTER>
+		     <NOT <EQUAL? ,HERE ,GONDOLA>>>
+		<DO-WALK ,P?IN>)
+	       (<AND <VERB? LEAP-OFF EXIT>
+		     <EQUAL? ,HERE ,GONDOLA>>
+		<DO-WALK ,P?OUT>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM-PRSA ,DIRIGIBLE>)
+	       (<AND <VERB? THROW-FROM PUT-THROUGH>
+		     <PRSI? ,GONDOLA ,GLOBAL-HERE>>
+		<COND (<OR <IN? ,DIRIGIBLE ,DIRIGIBLE-HANGAR>
+			   <IN? ,DIRIGIBLE ,SMALLER-HANGAR>>
+		       <MOVE ,PRSO <LOC ,DIRIGIBLE>>)
+		      (T
+		       <COND (<OR <PRSO? ,PERCH>
+				  <ULTIMATELY-IN? ,PERCH ,PRSO>>
+			      <SETG REMOVED-PERCH-LOC ,GROUND>)>
+		       <REMOVE ,PRSO>)>
+		<TELL "You fling" T ,PRSO " out of the gondola." CR>)>>
+
+<CONSTANT GONDOLA-CONTROLS-DESC
+"The controls consist of merely two buttons: the left button
+is marked \"Flatheadia\" and the right button is marked \"Fenshire.\"">
+
+<OBJECT GONDOLA-CONTROLS
+	(LOC GONDOLA)
+	(DESC "controls")
+	(SYNONYM CONTROL CONTROLS)
+	(FLAGS NDESCBIT)
+	(ACTION GONDOLA-CONTROLS-F)>
+
+<ROUTINE GONDOLA-CONTROLS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL ,GONDOLA-CONTROLS-DESC CR>)>>
+
+<OBJECT LEFT-GONDOLA-BUTTON
+	(LOC GONDOLA)
+	(DESC "left button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE LEFT)
+	(FLAGS NDESCBIT)
+	(ACTION GONDOLA-BUTTON-F)>
+
+<OBJECT RIGHT-GONDOLA-BUTTON
+	(LOC GONDOLA)
+	(DESC "right button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RIGHT)
+	(FLAGS NDESCBIT)
+	(ACTION GONDOLA-BUTTON-F)>
+
+<ROUTINE GONDOLA-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<OR ,TIME-STOPPED
+			   <FSET? ,OUTER-GATE ,OPENBIT>
+			   <G? ,DIRIGIBLE-COUNTER 0>
+			   <AND <PRSO? ,LEFT-GONDOLA-BUTTON>
+				<IN? ,DIRIGIBLE ,DIRIGIBLE-HANGAR>>
+			   <AND <PRSO? ,RIGHT-GONDOLA-BUTTON>
+				<IN? ,DIRIGIBLE ,SMALLER-HANGAR>>>
+		       <TELL ,NOTHING-HAPPENS>)
+		      (T
+		       <QUEUE I-DIRIGIBLE -1>
+		       <SETG DIRIGIBLE-COUNTER 1>
+		       <COND (<AND ,BORDER-ON
+				   <NOT <EQUAL? <LOWCORE INTID> ,DEC-20>>>
+			      <CLEAR-BORDER>
+			      <INIT-STATUS-LINE T>)>
+		       <TELL
+"The dirigible rises out of the hangar and sails ">
+		       <COND (<IN? ,DIRIGIBLE ,DIRIGIBLE-HANGAR>
+			      <SETG DESTINATION ,SMALLER-HANGAR>
+			      <TELL "ea">)
+			     (T
+			      <SETG DESTINATION ,DIRIGIBLE-HANGAR>
+			      <TELL "we">)>
+		       <PUTP ,GONDOLA ,P?REGION "In the Air">
+		       <PUT <GETP ,GONDOLA ,P?MAP-LOC> 0 <>>
+		       <FSET ,DIRIGIBLE ,NDESCBIT>
+		       <MOVE ,DIRIGIBLE ,GONDOLA>
+		       <TELL "stward." CR>)>)>>
+
+<ROUTINE GONDOLA-EXIT-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<G? ,DIRIGIBLE-COUNTER 0>
+		<COND (.RARG
+		       <RFALSE>)
+		      (T
+		       <JIGS-UP
+"The experience is exhilarating, but you don't have much time to
+enjoy it. Not as much time as you would've had if, for instance,
+you'd worn a parachute.">)>) 
+	       (T
+		<RETURN <LOC ,DIRIGIBLE>>)>>
+
+<GLOBAL DESTINATION <>>
+
+<GLOBAL DIRIGIBLE-COUNTER 0>
+
+<ROUTINE I-DIRIGIBLE ("AUX" TBL)
+	 <COND (<EQUAL? ,HERE ,GONDOLA>
+		<RETURN-FROM-MAP>
+		<TELL "   ">)>
+	 <COND (<EQUAL? ,DIRIGIBLE-COUNTER 5>
+		<SET TBL <GETP ,GONDOLA ,P?MAP-LOC>>
+		<COND (<EQUAL? ,DESTINATION ,SMALLER-HANGAR>
+		       <PUT .TBL 0 ,FENSHIRE-MAP-NUM>
+		       <PUT .TBL 1 ,GONDOLA-AT-FENSHIRE-LOC>
+		       <PUT .TBL 2 ,MAP-GEN-X-2>
+		       <PUTP ,GONDOLA ,P?REGION "Fenshire">)
+		      (T
+		       <PUT .TBL 0 ,MAIN-MAP-NUM>
+		       <PUT .TBL 1 ,GONDOLA-AT-FLATHEADIA-LOC>
+		       <PUT .TBL 2 ,MAP-GEN-X-1>
+		       <PUTP ,GONDOLA ,P?REGION "Flatheadia">)>
+		<MOVE ,DIRIGIBLE ,DESTINATION>
+		<FCLEAR ,DIRIGIBLE ,NDESCBIT>
+		<DEQUEUE I-DIRIGIBLE>
+		<SETG DIRIGIBLE-COUNTER 0>
+		<COND (<AND ,BORDER-ON
+			    <EQUAL? ,HERE ,GONDOLA>
+			    <NOT <EQUAL? <LOWCORE INTID> ,DEC-20>>>
+		       <CLEAR-BORDER>
+		       <SETG CURRENT-BORDER ,CASTLE-BORDER>
+		       <SCREEN ,S-FULL>
+		       <INIT-STATUS-LINE T>
+		       <SCREEN ,S-TEXT>)>
+		<COND (<EQUAL? ,HERE ,GONDOLA>
+		       <TELL
+"The dirigible descends into a hangar and comes to a stop.">)
+		      (<EQUAL? ,HERE ,DESTINATION>
+		       <RETURN-FROM-MAP>
+		       <TELL "   A dirigible descends into the hangar.">)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT <EQUAL? ,HERE ,GONDOLA>>
+		<SETG DIRIGIBLE-COUNTER <+ ,DIRIGIBLE-COUNTER 1>>
+		<RFALSE>)
+	       (T
+	 	<RETURN-FROM-MAP>
+		<TELL "The dirigible continues to glide along. ">
+		<COND (<EQUAL? ,DESTINATION ,DIRIGIBLE-HANGAR>
+		       <TELL
+<GET ,DIRIGIBLE-TRIP-DESCS <- 4 ,DIRIGIBLE-COUNTER>>>)
+		      (T
+		       <TELL
+<GET ,DIRIGIBLE-TRIP-DESCS <- ,DIRIGIBLE-COUNTER 1>>>)>
+		<SETG DIRIGIBLE-COUNTER <+ ,DIRIGIBLE-COUNTER 1>>)>
+	 <CRLF>>
+
+<CONSTANT DIRIGIBLE-TRIP-DESCS
+	<PTABLE
+"It is now passing over a thickly tangled woods, stretching for miles in every
+direction."
+"You are now above the Frigid River. Cliffs crowd the river on both sides. To
+the south, you can just make out the spray of Aragain Falls."
+"The dirigible rises even higher as it crosses the Flathead Mountains. Jagged,
+snow-topped peaks slide by below."
+"Below you are vast square bloits of dismal swampland: the endless marshes of
+Fenshire.">>
+
+;"the summer castle"
+
+<ROOM SMALLER-HANGAR
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Smaller Hangar")
+      (LDESC
+"This hangar, though still large, is smaller than the one in Flatheadia.
+The only exit is south.")
+      (SOUTH TO DESERTED-CASTLE)
+      (IN PER DIRIGIBLE-ENTER-F)
+      (OUT TO DESERTED-CASTLE)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM HANGAR)
+      (ADJECTIVE SMALLER)
+      (GLOBAL GONDOLA)
+      (VALUE 6)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-2>)
+      (ACTION 0)	;"filled in by SLIDE-SHOW">
+
+<ROUTINE SMALLER-HANGAR-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,SMALLER-HANGAR ,TOUCHBIT>>>
+		<QUEUE I-FOX -1>)>>
+
+<ROOM DESERTED-CASTLE
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Deserted Castle")
+      (LDESC
+"The summer palace of the Kings of Quendor now lies in ruins, unoccupied
+and uncared for, forgotten for many years. What's left of the castle can
+be entered to the east, and a hangar lies to the north.")
+      (NORTH TO SMALLER-HANGAR)
+      (EAST TO RUINED-HALL)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL SMALLER-HANGAR)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>)
+      (ACTION 0)	;"filled in by SLIDE-SHOW">
+
+<ROUTINE DESERTED-CASTLE-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,DESERTED-CASTLE ,TOUCHBIT>>>
+		<QUEUE I-ROOSTER -1>)>>
+
+<ROOM RUINED-HALL
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Ruined Hall")
+      (NORTH TO MARSH IF ARCHWAY-OPEN ELSE "That archway has crumbled!")
+      (SOUTH TO HOTHOUSE)
+      (WEST TO DESERTED-CASTLE)
+      (EAST TO SECRET-ROOM IF SECRET-ROOM-REVEALED)
+      (UP SORRY "The stairs have crumbled beyond use.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STAIRS)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-3>)
+      (ICON RUINED-HALL-ICON)
+      (ACTION RUINED-HALL-F)>
+
+<ROUTINE RUINED-HALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The entrance hall of the summer castle retains but a shadow of its former
+elegance; the ceiling has partially collapsed, and myriad weeds grow amongst
+the debris that covers the floor. A fireplace is choked with the rubble of its
+collapsed chimney. Above the fireplace is a faded fresco, and next to that,
+a tiny vase is mounted on the wall. Arched openings lead ">
+		<COND (,ARCHWAY-OPEN
+		       <TELL "north, ">)>
+		<TELL "south and west. ">
+		<COND (<NOT ,ARCHWAY-OPEN>
+		       <TELL "The archway to the north">
+		       <COND (<NOT <IN? ,HEXAGONAL-BLOCK ,LOCAL-GLOBALS>>
+			      <SETG ARCHWAY-OPEN T>
+			      <TELL
+", which had earlier crumbled, seems restored to its
+former condition: decayed but passable! ">)
+			     (T
+			      <TELL " has crumbled to rubble. ">)>)>
+		<COND (,SECRET-ROOM-REVEALED
+		       <TELL "In addition, a dusty passage leads east. ">)>
+		<TELL
+"A stairway once led upwards, but there's little left of it.">)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <NOT ,ARCHWAY-OPEN>
+		     <NOT <IN? ,HEXAGONAL-BLOCK ,LOCAL-GLOBALS>>>
+		<SETG ARCHWAY-OPEN T>)>>
+
+<OBJECT FIREPLACE
+	(LOC RUINED-HALL)
+	(DESC "fireplace")
+	(SYNONYM FIREPLACE)
+	(ADJECTIVE CHOKED)
+	(FLAGS NDESCBIT)
+	(ACTION FIREPLACE-F)>
+
+<ROUTINE FIREPLACE-F ()
+	 <COND (<VERB? ENTER>
+		<DO-FIRST "clear out all the rubble">)
+	       (<VERB? CLEAN>
+		<TELL
+"Not a chance (unless you're actually a team of thirty people,
+in disguise)." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "Rubble. Lots of rubble." CR>)>>
+
+<OBJECT FRESCO
+	(LOC RUINED-HALL)
+	(DESC "fresco")
+	(SYNONYM FRESCO)
+	(ADJECTIVE FADED)
+	(FLAGS NDESCBIT)
+	(ACTION FRESCO-F)>
+
+<ROUTINE FRESCO-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The fresco depicts the death of Duncanthrax. His spirit is ascending to
+heaven on a tremendous ladder, surrounded by a host of angels." CR>)>>
+
+<OBJECT VASE
+	(LOC RUINED-HALL)
+	(DESC "vase")
+	(SYNONYM VASE)
+	(ADJECTIVE SMALL)
+	(FLAGS NDESCBIT CONTBIT SEARCHBIT OPENBIT TRYTAKEBIT)
+	(ACTION VASE-F)>
+
+<ROUTINE VASE-F ()
+	 <COND (<VERB? CLOSE OPEN>
+		<TELL ,HUH>)
+	       (<AND <VERB? TAKE>
+		     <PRSO? ,VASE>>
+		<TELL "The vase is affixed to the wall." CR>)
+	       (<AND <VERB? PUT>
+		     <PRSO? ,FLOWER>
+		     <NOT ,SECRET-ROOM-REVEALED>>
+		<SETG SECRET-ROOM-REVEALED T>
+		<SETG COMPASS-CHANGED T>
+		<MOVE ,FLOWER ,VASE>
+		<TELL
+"The flower seems to grow fuller, its colors richer. You hear a noise,
+and turn to see a passageway opening to the east!" CR>
+		<INC-SCORE 16>)>>
+
+<GLOBAL SECRET-ROOM-REVEALED <>>
+
+<ROOM SECRET-ROOM
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Secret Room")
+      (LDESC
+"You are the first person to breathe the air of this room in uncounted years.
+The only exit is west.")
+      (WEST TO RUINED-HALL)
+      (OUT TO RUINED-HALL)
+      (FLAGS RLANDBIT)
+      (SYNONYM ROOM)
+      (ADJECTIVE SECRET)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+      (ICON SECRET-ROOM-ICON)>
+
+;<BEGIN-SEGMENT 0>
+
+<OBJECT LADDER
+	(LOC SECRET-ROOM)
+	(DESC "ladder")
+	(FDESC
+"This room was probably intended as a hiding place for the royal family
+in the event of a revolution, and may have once been well-stocked with
+supplies. Now, however, the only item here is a small stepladder.")
+	;(LDESC "A small stepladder is standing here.")
+	(SYNONYM LADDER STEPLADDER)
+	(ADJECTIVE SMALL)
+	(CAPACITY 20)
+	(SIZE 20)
+	(FLAGS TAKEBIT VEHBIT CONTBIT SEARCHBIT SURFACEBIT)
+	(ACTION LADDER-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE LADDER-F ("OPTIONAL" (VARG <>))
+	 <COND (.VARG
+		<RFALSE>)
+	       (<VERB? OPEN CLOSE EXAMINE>
+		<TELL
+"The stepladder seems to be stuck in the open position." CR>)
+	       (<AND <VERB? PUT-UNDER>
+		     <PRSO? ,MEGABOZ-TRAP-DOOR>>
+		<TELL "The ladder is now standing beneath the trap door." CR>)
+	       (<VERB? STAND-ON CLIMB CLIMB-ON>
+		<PERFORM ,V?ENTER ,LADDER>
+		<RTRUE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FENSHIRE>
+
+<GLOBAL ARCHWAY-OPEN T>
+
+<GLOBAL STEPPING-STONES-VISIBLE <>>
+
+<ROOM MARSH
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Marsh")
+      (SOUTH TO RUINED-HALL IF ARCHWAY-OPEN ELSE
+       "The archway has collapsed; that way is now impassable.")
+      (NORTH PER STEPPING-STONES-F)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL SWAMP ARCH)
+      (ICON MARSH-ICON)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>)
+      (ACTION MARSH-F)>
+
+<ROUTINE MARSH-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The swamps of Fenshire have encroached on this once-beautiful garden. The
+garden wall is now just a pile of mossy stones, and the garden terraces are
+ankle-deep with squishy mud. A c">
+		<COND (,ARCHWAY-OPEN
+		       <TELL "rumbling archway leads">)
+		      (T
+		       <TELL "ollapsed archway blocks the exit to the">)>
+		<TELL " south. To the north">
+		<COND (,STEPPING-STONES-VISIBLE
+		       <TELL
+", stepping stones lead across a field of quicksand.">)
+		      (T
+		       <TELL " is a wide expanse of fetid quicksand.">)>)
+	       (<EQUAL? .RARG ,M-END>
+		<COND (<AND <IN? ,JESTER ,HERE>
+			    <VISIBLE? ,ROOSTER>
+			    <FSET? ,ROOSTER ,ANIMATEDBIT>
+			    <VISIBLE? ,FOX>
+			    <FSET? ,FOX ,ANIMATEDBIT>
+			    <VISIBLE? ,WORM>
+			    <FSET? ,WORM ,ANIMATEDBIT>>
+		       <MOVE ,JESTER ,NICE-LUNCH-SPOT>
+		       <MOVE ,COOKPOT ,NICE-LUNCH-SPOT>
+		       <MOVE ,COOKFIRE ,NICE-LUNCH-SPOT>
+		       <SETG ARCHWAY-OPEN <>>
+		       <SETG STEPPING-STONES-VISIBLE T>
+		       <SETG COMPASS-CHANGED T>
+		       <FSET ,RUINED-HALL ,REDESCBIT>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"   The jester looks delighted. \"Sacre bleu! At last! All zee ingredients for
+Borphbelly Stew! But zee ambience here eesn't quite right.\" He picks up his
+cookpot AND his cookfire, and dashes across the quicksand to the north, using
+a series of stepping stones which you'd swear weren't there a minute ago. This
+flurry of activity seems to have been too much for the archway behind you; it
+crumbles into a pile of rubble, blocking the exit to the south.|
+   The jester, out of sight amongst the reeds to the north, shouts, \"Yoo hoo!
+I've found a lovely spot for lunch! Bring over zee ingredients!\"" CR>)
+		      (<AND <NOT <IN? ,JESTER ,HERE>>
+			    <IN? ,HEXAGONAL-BLOCK ,LOCAL-GLOBALS>
+			    ,ARCHWAY-OPEN>
+		       <DEQUEUE I-JESTER>
+		       <THIS-IS-IT ,JESTER>
+		       <MOVE ,JESTER ,HERE>
+		       <MOVE ,COOKPOT ,HERE>
+		       <MOVE ,COOKFIRE ,HERE>
+		       <TELL
+"   A string of eloquent cursing in a foreign tongue assaults you, and you spy
+the jester " ,COOK-DESC " He is stirring a cookpot which sits upon a roaring
+cookfire. \"Impossible!\" he shrieks, switching to a more familiar language.
+\"Eet is impossible to cook a Borphbelly Stew weethout zee proper ingredients!
+Impossible, impossible, impossible!\"" CR>)>)>>
+
+<ROUTINE STEPPING-STONES-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<NOT ,STEPPING-STONES-VISIBLE>
+		<COND (<NOT .RARG>
+		       <TELL "You'd be sucked into the quicksand!" CR>)>
+		<RFALSE>)
+	       (<G? <CCOUNT ,PROTAGONIST> 1>
+		<COND (<NOT .RARG>
+		       <TELL
+"It's difficult to balance on the stepping stones with all you're carrying.
+You try, but after almost falling into the quicksand, you give up." CR>)>
+		<RFALSE>)
+	       (<EQUAL? ,HERE ,MARSH>
+		,NICE-LUNCH-SPOT)
+	       (T
+		,MARSH)>>
+
+<ROOM NICE-LUNCH-SPOT
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Nice Lunch Spot")
+      (LDESC
+"Maybe the jester likes the ambience here, but to you it just looks like
+a slightly drier spot amidst a reedy marsh. The reeds are impassably thick
+in every direction, except to the south where a series of stepping stones
+offers a way to cross a malodorous patch of quicksand.")
+      (SOUTH TO MARSH)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>)
+      (ACTION NICE-LUNCH-SPOT-F)>
+
+<ROUTINE NICE-LUNCH-SPOT-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <VISIBLE? ,ROOSTER>
+		     <FSET? ,ROOSTER ,ANIMATEDBIT>
+		     <VISIBLE? ,FOX>
+		     <FSET? ,FOX ,ANIMATEDBIT>
+		     <VISIBLE? ,WORM>
+		     <FSET? ,WORM ,ANIMATEDBIT>>
+		<MOVE ,HEXAGONAL-BLOCK ,SMALLER-HANGAR>
+		<FSET ,SMALLER-HANGAR ,REDESCBIT>
+		<FSET ,RUINED-HALL ,REDESCBIT>
+		<REMOVE ,WORM>
+		<REMOVE ,FOX>
+		<REMOVE ,ROOSTER>
+		<REMOVE ,COOKPOT>
+		<REMOVE ,COOKFIRE>
+		<DEQUEUE I-FOX>
+		<DEQUEUE I-ROOSTER>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The jester says, \"Excellent! Zee ingredients for Borphbelly Stew and a "
+D ,HERE " to enjoy eet!\" He tosses the animals into the cookpot, and begins
+dishing out two generous portions of stew. Before you can eat it, a tremendous
+weariness comes over you. The last thing you hear is the jester saying,
+\"Waiter? Check, please!\"|
+|
+You awake from a deep sleep and struggle to your feet. As your head clears
+you realize that you're not where you were when you fell asleep" ,ELLIPSIS>
+		<GOTO ,SMALLER-HANGAR>
+		<INC-SCORE 9>)>>
+
+<BEGIN-SEGMENT 0> 
+
+<OBJECT HEXAGONAL-BLOCK
+	(LOC LOCAL-GLOBALS)
+	(DESC "hexagonal block")
+	(SYNONYM BLOCK ROCK)
+	(ADJECTIVE SMALL ELONGATED HEXAGONAL HEXAGON-SHAPED)
+	(FLAGS TAKEBIT)
+	(SIZE 3)
+	(ACTION HEXAGONAL-BLOCK-F)>
+
+<ROUTINE HEXAGONAL-BLOCK-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It's just a small rock which has been neatly carved into the shape of an
+elongated hexagon." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FENSHIRE>
+
+<ROOM HOTHOUSE
+      (LOC ROOMS)
+      (REGION "Fenshire")
+      (DESC "Hothouse")
+      (LDESC
+"This enclosed arboretum must have been a breathtaking room at one time. Now,
+much of the glass is broken and the foliage has run wild, nearly obscuring the
+exit to the north. Despite the broken glass, it's stiflingly hot in here.")
+      (NORTH TO RUINED-HALL)
+      (OUT TO RUINED-HALL)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM HOTHOUSE GREENHOUSE ARBORETUM)
+      (GLOBAL WINDOW)
+      (MAP-LOC <PTABLE FENSHIRE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)
+      (ICON HOTHOUSE-ICON)
+      (ACTION HOTHOUSE-F)>
+
+<ROUTINE HOTHOUSE-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <FSET? ,FAN ,TRYTAKEBIT>>
+		<QUEUE I-SN 1>)>>
+
+<CONSTANT SN-PICSET-TBL
+	  <TABLE BOX-1
+		 BOX-2
+		 BOX-3
+		 BOX-4
+		 BOX-5
+		 BOX-6
+		 BOX-7
+		 BOX-8
+		 BOX-9
+		 DIM-BOX-1
+		 DIM-BOX-2
+		 DIM-BOX-3
+		 DIM-BOX-4
+		 DIM-BOX-5
+		 DIM-BOX-6
+		 DIM-BOX-7
+		 DIM-BOX-8
+		 DIM-BOX-9
+		 PILE-OF-0
+		 PILE-OF-1
+		 PILE-OF-2
+		 PILE-OF-3
+		 PILE-OF-4
+		 PILE-OF-5
+		 PILE-OF-6
+		 PILE-OF-7
+		 PILE-OF-8
+		 PILE-OF-9
+		 R-FLOWERS-0
+		 R-FLOWERS-1
+		 R-FLOWERS-2
+		 R-FLOWERS-3
+		 R-FLOWERS-4
+		 R-FLOWERS-5
+		 R-FLOWERS-6
+		 R-FLOWERS-7
+		 R-FLOWERS-8
+		 R-FLOWERS-9
+		 L-FLOWERS-0
+		 L-FLOWERS-1
+		 L-FLOWERS-2
+		 L-FLOWERS-3
+		 L-FLOWERS-4
+		 0>>
+
+<ROUTINE I-SN ()
+	 <COND (<NOT <EQUAL? ,HERE ,HOTHOUSE>>
+		<RFALSE>)
+	       (,ALLIGATOR
+		<QUEUE I-SN 1>
+		<RFALSE>)>
+	 <RETURN-FROM-MAP>
+	 <UPDATE-STATUS-LINE>
+	 <TELL
+"   The jester steps out from behind some tropical vines, fanning himself with
+a dainty paper fan. \"Hot enough for you? I know just the thing to take your
+mind off this heat! It's one of my favorite games, Snarfem.|
+   \"The rules: I'll produce four piles of pebbles. Each of us, starting with
+you, will remove as many pebbles as we feel like -- as long as they come from
+the same pile. You must take at least one pebble each turn. The player who
+takes the last pebble wins. It's that simple!\"" CR CR>
+	 <HIT-ANY-KEY "Snarfem">
+	 <SPLIT-BY-PICTURE ,SN-SPLIT T>
+	 <ADJUST-TEXT-WINDOW ,SN-BOTTOM>
+	 <REPEAT ()
+		 ;"All four piles should contain different numbers of pebbles,
+ 		   such as 1-4-5-9 rather than 1-4-4-9. Also, the opening
+	 	   position can't be a 'safe' position, or you can't win."
+		 <PUT ,PILE-TABLE 1 <RANDOM 9>>
+	 	 <REPEAT ()
+			 <PUT ,PILE-TABLE 2 <RANDOM 9>>
+			 <COND (<EQUAL? <GET ,PILE-TABLE 2>
+					<GET ,PILE-TABLE 1>>
+				<PUT ,PILE-TABLE 2 <+ <GET ,PILE-TABLE 2> 1>>
+				<COND (<EQUAL? <GET ,PILE-TABLE 2> 10>
+				       <PUT ,PILE-TABLE 2 1>)>)
+			       (T
+				<RETURN>)>>
+		 <REPEAT ()
+			 <PUT ,PILE-TABLE 3 <RANDOM 9>>
+			 <COND (<EQUAL? <GET ,PILE-TABLE 3>
+					<GET ,PILE-TABLE 2>
+					<GET ,PILE-TABLE 1>>
+				<PUT ,PILE-TABLE 3 <+ <GET ,PILE-TABLE 3> 1>>
+				<COND (<EQUAL? <GET ,PILE-TABLE 3> 10>
+				       <PUT ,PILE-TABLE 3 1>)>)
+			       (T
+				<RETURN>)>>
+		 <REPEAT ()
+			 <PUT ,PILE-TABLE 4 <RANDOM 9>>
+			 <COND (<EQUAL? <GET ,PILE-TABLE 4>
+					<GET ,PILE-TABLE 3>
+					<GET ,PILE-TABLE 2>
+					<GET ,PILE-TABLE 1>>
+				<PUT ,PILE-TABLE 4 <+ <GET ,PILE-TABLE 4> 1>>
+				<COND (<EQUAL? <GET ,PILE-TABLE 4> 10>
+				       <PUT ,PILE-TABLE 4 1>)>)
+			       (T
+				<RETURN>)>>
+		 <COND (<NOT <SAFE-NUMBER? ,PILE-TABLE>>
+			<RETURN>)>>
+	 <SETUP-SN>
+	 <CRLF>
+	 <SNARFEM>
+	 <INIT-SL-WITH-SPLIT ,TEXT-WINDOW-PIC-LOC>
+	 <COND (<FSET? ,FAN ,TRYTAKEBIT>
+		<TELL
+"The jester claps you on the back and says, \"He who wins and
+runs away, returns to let you win another day!\"">
+		<J-EXITS>)
+	       (T
+		<MOVE ,FAN ,HERE>
+		<REMOVE-J>
+		<TELL
+"\"You're undoubtedly not a flash in the pan; you've turned me into your
+biggest fan!\" The jester is suddenly wearing a cap and sweater bearing your
+initials, and waving a pennant with your name on it. Still chanting a cheer,
+he vanishes, and you notice a delicate paper fan lying at your feet." CR>
+		<INC-SCORE 12>)>>
+
+<ROUTINE SETUP-SN ()
+	 <SCREEN ,S-FULL>
+	 <DISPLAY ,SN-BORDER 1 1>
+	 <SCREEN ,S-WINDOW>
+	 <PICSET ,SN-PICSET-TBL>
+	 <DRAW-PILE 1>
+	 <DRAW-PILE 2>
+	 <DRAW-PILE 3>
+	 <DRAW-PILE 4>
+	 <DRAW-FLOWERS>>
+
+<ROUTINE DRAW-SN-BOXES ("OPTIONAL" (PILE <>) "AUX" X Y SPACE (CNT 1) TBL)
+	 <SCREEN ,S-WINDOW>
+	 <PICINF-PLUS-ONE ,BOX-1-LOC>
+	 <SET Y <GET ,PICINF-TBL 0>>
+	 <SET X <GET ,PICINF-TBL 1>>
+	 <PICINF ,SN-BOX-SPACE ,PICINF-TBL>
+	 <SET SPACE <GET ,PICINF-TBL 1>>
+	 <REPEAT ()
+	   <SET TBL <COND (<NOT .PILE>
+			   <COND (<G? .CNT 4> ,DIM-BOX-TBL)
+				 (<EQUAL? <GET ,PILE-TABLE .CNT> 0>
+				  	  ,DIM-BOX-TBL)
+				 (T ,BOX-TBL)>)
+			  (<G? .CNT <GET ,PILE-TABLE .PILE>> ,DIM-BOX-TBL)
+			  (T ,BOX-TBL)>>
+	   <DISPLAY <GET .TBL .CNT> .Y .X>
+	   <COND (<EQUAL? .CNT 9>
+		  <RETURN>)
+		 (T
+		  <SET X <+ .X .SPACE>>
+		  <SET CNT <+ .CNT 1>>)>>
+	 <SCREEN ,S-TEXT>>
+
+<CONSTANT BOX-TBL
+	  <PTABLE 0 BOX-1 BOX-2 BOX-3 BOX-4 BOX-5 BOX-6 BOX-7 BOX-8 BOX-9>>
+
+<CONSTANT DIM-BOX-TBL
+	  <PTABLE 0 DIM-BOX-1 DIM-BOX-2 DIM-BOX-3 DIM-BOX-4 DIM-BOX-5
+  		  DIM-BOX-6 DIM-BOX-7 DIM-BOX-8 DIM-BOX-9>>
+
+<CONSTANT PILE-TABLE
+	<TABLE 0 0 0 0 0> ;"first element not used">
+
+<ROUTINE DRAW-PILE (PILE "AUX" NUM PIC)
+	 <SCREEN ,S-WINDOW>
+	 <SET NUM <GET ,PILE-TABLE .PILE>>
+	 <PICINF-PLUS-ONE <COND (<EQUAL? .PILE 1> ,PILE-1-PIC-LOC)
+				(<EQUAL? .PILE 2> ,PILE-2-PIC-LOC)
+				(<EQUAL? .PILE 3> ,PILE-3-PIC-LOC)
+				(T ,PILE-4-PIC-LOC)>>
+	 <SET PIC <COND (<EQUAL? .NUM 0> ,PILE-OF-0)
+			(<EQUAL? .NUM 1> ,PILE-OF-1)
+			(<EQUAL? .NUM 2> ,PILE-OF-2)
+			(<EQUAL? .NUM 3> ,PILE-OF-3)
+			(<EQUAL? .NUM 4> ,PILE-OF-4)
+			(<EQUAL? .NUM 5> ,PILE-OF-5)
+			(<EQUAL? .NUM 6> ,PILE-OF-6)
+			(<EQUAL? .NUM 7> ,PILE-OF-7)
+			(<EQUAL? .NUM 8> ,PILE-OF-8)
+			(T ,PILE-OF-9)>>
+	 <DISPLAY .PIC <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <SCREEN ,S-TEXT>>
+
+<ROUTINE DRAW-FLOWERS ("AUX" (PILE 1) (NUM 1) LEFT RIGHT)
+	 <COND (<SAFE-NUMBER? ,PILE-TABLE>
+		<SET LEFT ,L-FLOWERS-0>
+		<SET RIGHT ,R-FLOWERS-0>)
+	       (T
+		<REPEAT ()
+		      <COPYT <REST ,PILE-TABLE 2> <REST ,TEMP-TABLE 2> 8>
+		      <COND (<EQUAL? <GET ,PILE-TABLE .PILE> 0>
+			     <SET PILE <+ .PILE 1>>)
+			    (<EQUAL? <+ <GET ,PILE-TABLE 1> <GET ,PILE-TABLE 2>
+				       <GET ,PILE-TABLE 3> <GET ,PILE-TABLE 4>>
+				     <GET ,PILE-TABLE .PILE>>
+			     ;"case where three piles are empty"
+			     <SET NUM <GET ,PILE-TABLE .PILE>>
+			     <RETURN>)
+			    (T
+			     <PUT ,TEMP-TABLE .PILE
+				  <- <GET ,TEMP-TABLE .PILE> .NUM>>
+			     <COND (<SAFE-NUMBER? ,TEMP-TABLE>
+				    <RETURN>)
+				   (<EQUAL? <- <GET ,PILE-TABLE .PILE> .NUM> 0>
+				    <SET NUM 1>
+				    <SET PILE <+ .PILE 1>>)
+				   (T
+				    <SET NUM <+ .NUM 1>>)>)>>
+		<SET LEFT <COND (<EQUAL? .PILE 1> ,L-FLOWERS-1)
+				(<EQUAL? .PILE 2> ,L-FLOWERS-2)
+				(<EQUAL? .PILE 3> ,L-FLOWERS-3)
+				(<EQUAL? .PILE 4> ,L-FLOWERS-4)>>
+		<SET RIGHT <COND (<EQUAL? .NUM 1> ,R-FLOWERS-1)
+				 (<EQUAL? .NUM 2> ,R-FLOWERS-2)
+				 (<EQUAL? .NUM 3> ,R-FLOWERS-3)
+				 (<EQUAL? .NUM 4> ,R-FLOWERS-4)
+				 (<EQUAL? .NUM 5> ,R-FLOWERS-5)
+				 (<EQUAL? .NUM 6> ,R-FLOWERS-6)
+				 (<EQUAL? .NUM 7> ,R-FLOWERS-7)
+				 (<EQUAL? .NUM 8> ,R-FLOWERS-8)
+				 (<EQUAL? .NUM 9> ,R-FLOWERS-9)>>)>
+	 <SCREEN ,S-WINDOW>
+	 <PICINF-PLUS-ONE ,L-FLOWERS-PIC-LOC>
+	 <DISPLAY .LEFT <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <PICINF-PLUS-ONE ,R-FLOWERS-PIC-LOC>
+	 <DISPLAY .RIGHT <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <SCREEN ,S-TEXT>>
+
+<ROUTINE SNARFEM ("AUX" X NUM (PILE <>) (STOP-SN <>))
+	 <REPEAT ()
+		 <COND (.STOP-SN
+			<RETURN>)
+		       (.PILE
+			<CLEAR ,S-TEXT>
+			<COND (,ACTIVE-MOUSE
+			       <DRAW-SN-BOXES .PILE>)>
+			<TELL "Type a number ">
+			<COND (,ACTIVE-MOUSE
+			       <TELL
+"(or click on one of the numbered boxes with your mouse) ">)>
+			<TELL
+"to indicate how many pebbles you want to remove from Pile #" N .PILE ".">
+			<REPEAT ()
+				<SET X <INPUT X>>
+				<MOUSE-INPUT?>
+				<COND (<EQUAL? .X ,CLICK1 ,CLICK2>
+				       <SET X <SN-CLICK T>>)
+				      (<AND <G? .X 144>
+					    <L? .X 155>>
+				       ;"numeric keypad, 0=145, 1=146, etc."
+				       <SET .X <- .X 145>>)
+				      (T
+				       ;"normal # keys, 1 = 49, 2 = 50, etc."
+				       <SET X <- .X 48>>)>
+				<COND (<OR <G? .X 9>
+					   <L? .X 1>>
+				       <CLEAR ,S-TEXT>
+				       <TELL ,TYPE-A-NUMBER "9">
+				       <COND (,ACTIVE-MOUSE
+					      <TELL
+" (or click on one of the numbered boxes with your mouse)">)>
+				       <TELL ".">)
+				      (<G? .X .NUM>
+				       <CLEAR ,S-TEXT>
+				       <TELL "There ">
+				       <COND (<EQUAL? .NUM 1>
+					      <TELL "is">)
+					     (T
+					      <TELL "are">)>
+				       <TELL " only " N .NUM " pebble">
+				       <COND (<NOT <EQUAL? .NUM 1>>
+					      <TELL "s">)>
+				       <TELL " in Pile #" N .PILE ".">)
+				      (T
+				       <CLEAR ,S-TEXT>
+				       <TELL "You remove " N .X " pebble">
+				       <COND (<NOT <EQUAL? .X 1>>
+					      <TELL "s">)>
+				       <TELL " from Pile #" N .PILE ".">
+				       <COUNTDOWN-PILE .PILE .NUM .X>
+				       <DRAW-FLOWERS>
+				       <SET PILE <>>
+				       <COND (<END-SN?>
+					      <SET STOP-SN T>
+					      <FCLEAR ,FAN ,TRYTAKEBIT>
+					      <CRLF> <CRLF>
+					      <HIT-ANY-KEY>
+					      <RETURN>)
+					     (T
+					      <TELL CR "   ">)>
+				       <J-MOVE>
+				       <COND (<END-SN?>
+					      <SET STOP-SN T>
+					      <CRLF> <CRLF>
+					      <HIT-ANY-KEY>)
+					     (T
+					      <TELL CR "   ">)>
+				       <RETURN>)>>)
+		       (T
+			<COND (,ACTIVE-MOUSE
+			       <DRAW-SN-BOXES>)>
+			<TELL "Type a number ">
+			<COND (,ACTIVE-MOUSE
+			       <TELL
+"(or click on one of the numbered boxes with your mouse) ">)>
+			<TELL
+"to select the pile from which you'd like to remove a pebble or pebbles.">
+			<REPEAT ()
+				<SET X <INPUT X>>
+				<MOUSE-INPUT?>
+				<COND (<EQUAL? .X ,CLICK1 ,CLICK2>
+				       <SET X <SN-CLICK>>)
+				      (<AND <G? .X 144>
+					    <L? .X 155>>
+				       ;"numeric keypad, 0=145, 1=146, etc."
+				       <SET .X <- .X 145>>)
+				      (T
+				       ;"normal # keys, 1 = 49, 2 = 50, etc."
+				       <SET X <- .X 48>>)>
+				<COND (<OR <G? .X 4>
+					   <L? .X 1>>
+				       <CLEAR ,S-TEXT>
+				       <TELL ,TYPE-A-NUMBER "4">
+				       <COND (,ACTIVE-MOUSE
+					      <TELL
+" (or click on one of the numbered boxes with your mouse)">)>
+				       <TELL ".">)
+				      (<EQUAL? <GET ,PILE-TABLE .X> 0>
+				       <CLEAR ,S-TEXT>
+				       <TELL
+"There are no longer any pebbles in Pile #" N .X ".">)
+				      (T
+				       <SET PILE .X>
+				       <SET NUM <GET ,PILE-TABLE .PILE>>
+				       <RETURN>)>>)>>>
+
+<ROUTINE SN-CLICK ("OPT" (ALREADY-PICKED-PILE <>)
+	 "AUX" TL-X TL-Y BR-X BR-Y BOX-WIDTH BOX-HEIGHT (CNT 1) (HIT-SPOT <>))
+	 <PICINF ,BOX-1 ,PICINF-TBL>
+	 <SET BOX-WIDTH <GET ,PICINF-TBL 1>>
+	 <SET BOX-HEIGHT <GET ,PICINF-TBL 0>>
+	 <PICINF-PLUS-ONE ,BOX-1-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET BR-Y <+ .TL-Y .BOX-HEIGHT>>
+	 <PICINF ,SN-BOX-SPACE ,PICINF-TBL>
+	 <REPEAT ()
+		 <SET BR-X <+ .TL-X .BOX-WIDTH>>
+		 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+			<SET HIT-SPOT T>
+			<RETURN>)
+		       (<EQUAL? .CNT 9>
+			<RETURN>)
+		       (T
+			<SET CNT <+ .CNT 1>>
+			<SET TL-X <+ .TL-X <GET ,PICINF-TBL 1>>>)>>
+	 <COND (.HIT-SPOT
+		<RETURN .CNT>)
+	       (.ALREADY-PICKED-PILE
+		<RFALSE>)>
+	 <PICINF-PLUS-ONE ,PILE-OF-1>
+	 <SET BOX-WIDTH <GET ,PICINF-TBL 1>>
+	 <SET BOX-HEIGHT <GET ,PICINF-TBL 0>>
+	 <PICINF-PLUS-ONE ,PILE-1-PIC-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET BR-X <+ .TL-X .BOX-WIDTH>>
+	 <SET BR-Y <+ .TL-Y .BOX-HEIGHT>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<SET CNT 1>
+		<SET HIT-SPOT T>)>
+	 <COND (<NOT .HIT-SPOT>
+		<PICINF-PLUS-ONE ,PILE-2-PIC-LOC>
+	 	<SET TL-X <GET ,PICINF-TBL 1>>
+	 	<SET TL-Y <GET ,PICINF-TBL 0>>
+	 	<SET BR-X <+ .TL-X .BOX-WIDTH>>
+		<SET BR-Y <+ .TL-Y .BOX-HEIGHT>>
+		<COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		       <SET CNT 2>
+		       <SET HIT-SPOT T>)>)>
+	 <COND (<NOT .HIT-SPOT>
+		<PICINF-PLUS-ONE ,PILE-3-PIC-LOC>
+	 	<SET TL-X <GET ,PICINF-TBL 1>>
+	 	<SET TL-Y <GET ,PICINF-TBL 0>>
+	 	<SET BR-X <+ .TL-X .BOX-WIDTH>>
+		<SET BR-Y <+ .TL-Y .BOX-HEIGHT>>
+		<COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		       <SET CNT 3>
+		       <SET HIT-SPOT T>)>)>
+	 <COND (<NOT .HIT-SPOT>
+		<PICINF-PLUS-ONE ,PILE-4-PIC-LOC>
+	 	<SET TL-X <GET ,PICINF-TBL 1>>
+	 	<SET TL-Y <GET ,PICINF-TBL 0>>
+	 	<SET BR-X <+ .TL-X .BOX-WIDTH>>
+		<SET BR-Y <+ .TL-Y .BOX-HEIGHT>>
+		<COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		       <SET CNT 4>
+		       <SET HIT-SPOT T>)>)>
+	 <COND (.HIT-SPOT
+		<RETURN .CNT>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE COUNTDOWN-PILE (PILE NUM X)
+	 <REPEAT ()
+		 <PUT ,PILE-TABLE .PILE <- <GET ,PILE-TABLE .PILE> 1>>
+		 <DRAW-PILE .PILE>
+		 <SET X <- .X 1>>
+		 <COND (<EQUAL? .X 0>
+			<RETURN>)>>>
+
+<CONSTANT BINARY-TABLE
+	<PTABLE 0 1 10 11 100 101 110 111 1000 1001>>
+
+<ROUTINE SAFE-NUMBER? (TBL "AUX" X)
+	 <SET X <+ <GET ,BINARY-TABLE <GET .TBL 1>>
+		   <GET ,BINARY-TABLE <GET .TBL 2>>
+		   <GET ,BINARY-TABLE <GET .TBL 3>>
+		   <GET ,BINARY-TABLE <GET .TBL 4>>>>
+	 <COND (<AND <EQUAL? <MOD .X 2> 0>
+		     <EQUAL? <MOD </ .X 10> 2> 0>
+		     <EQUAL? <MOD </ .X 100> 2> 0>
+		     <EQUAL? <MOD </ .X 1000> 2> 0>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<CONSTANT TEMP-TABLE
+	<TABLE 0 0 0 0 0>>
+
+<ROUTINE J-MOVE ("AUX" (PILE 1) (NUM 1))
+	 <TELL "The jester peruses the piles, considering his move." CR CR>
+	 <HIT-ANY-KEY>
+	 <CLEAR ,S-TEXT>
+	 <COND (<SAFE-NUMBER? ,PILE-TABLE>
+		<REPEAT () ;"pick a random pile, but make sure it isn't empty"
+			<SET PILE <RANDOM 4>>
+			<COND (<EQUAL? <GET ,PILE-TABLE .PILE> 0>
+			       <COND (<EQUAL? .PILE 4>
+				      <SET PILE 0>)
+				     (T
+				      <SET PILE <+ .PILE 1>>)>)
+			      (T
+			       <RETURN>)>>
+		;"now take a random number of pebbles between 1 and all of 'em"
+		<SET NUM <RANDOM <GET ,PILE-TABLE .PILE>>>)
+	       (T
+		<REPEAT ()
+		      <COPYT <REST ,PILE-TABLE 2> <REST ,TEMP-TABLE 2> 8>
+		      <COND (<EQUAL? <GET ,PILE-TABLE .PILE> 0>
+			     <SET PILE <+ .PILE 1>>)
+			    (<EQUAL? <+ <GET ,PILE-TABLE 1> <GET ,PILE-TABLE 2>
+				       <GET ,PILE-TABLE 3> <GET ,PILE-TABLE 4>>
+				     <GET ,PILE-TABLE .PILE>>
+			     ;"case where three piles are empty"
+			     <SET NUM <GET ,PILE-TABLE .PILE>>
+			     <RETURN>)
+			    (T
+			     <PUT ,TEMP-TABLE .PILE
+				  <- <GET ,TEMP-TABLE .PILE> .NUM>>
+			     <COND (<SAFE-NUMBER? ,TEMP-TABLE>
+				    <RETURN>)
+				   (<EQUAL? <- <GET ,PILE-TABLE .PILE> .NUM> 0>
+				    <SET NUM 1>
+				    <SET PILE <+ .PILE 1>>)
+				   (T
+				    <SET NUM <+ .NUM 1>>)>)>>)>
+	 <TELL "The jester removes " N .NUM " pebble">
+	 <COND (<NOT <EQUAL? .NUM 1>>
+		<TELL "s">)>
+	 <TELL " from Pile #" N .PILE ".">
+	 <COUNTDOWN-PILE .PILE <GET ,PILE-TABLE .PILE> .NUM>
+	 <DRAW-FLOWERS>>
+
+<ROUTINE END-SN? ()
+	 <COND (<AND <EQUAL? <GET ,PILE-TABLE 1> 0>
+		     <EQUAL? <GET ,PILE-TABLE 2> 0>
+		     <EQUAL? <GET ,PILE-TABLE 3> 0>
+		     <EQUAL? <GET ,PILE-TABLE 4> 0>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT FAN
+	(DESC "fan")
+	(SYNONYM FAN)
+	(ADJECTIVE DELICATE DAINTY PAPER)
+	(FLAGS TAKEBIT TRYTAKEBIT MAGICBIT)
+	(VALUE 0) ;"12 points given elsewhere"
+	(ACTION FAN-F)>
+
+<ROUTINE FAN-F ()
+	 <COND (<AND <VERB? POINT>
+		     <EQUAL? ,P-PRSA-WORD ,W?WAVE>>
+		<TELL "You produce a light breeze." CR>)>>
+
+<END-SEGMENT>
diff --git a/find.zap b/find.zap
new file mode 100644
index 0000000..84487f1
--- /dev/null
+++ b/find.zap
@@ -0,0 +1,499 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	FIND-DESCENDANTS,PARENT,FLAGS,F,FOBJ
+	SET	'F,FINDER
+	EQUAL?	PARENT,GLOBAL-HERE \?CND1
+	SET	'PARENT,HERE
+?CND1:	FIRST?	PARENT >FOBJ \TRUE
+?PRG6:	CALL2	VISIBLE?,FOBJ
+	ZERO?	STACK /?CND8
+	BTST	FLAGS,8 /?CND10
+	BTST	FLAGS,1 \?PRF16
+	PUSH	1
+	JUMP	?PEN14
+?PRF16:	PUSH	0
+?PEN14:	CALL	MATCH-OBJECT,FOBJ,F,STACK
+	ZERO?	STACK /FALSE
+?CND10:	BTST	FLAGS,4 \?CND8
+	FIRST?	FOBJ \?CND8
+	EQUAL?	FOBJ,WINNER /?CND8
+	FSET?	FOBJ,SEARCHBIT \?PRD24
+	FSET?	FOBJ,OPENBIT /?CCL18
+	FSET?	FOBJ,TRANSBIT /?CCL18
+?PRD24:	FSET?	FOBJ,SURFACEBIT \?CND8
+?CCL18:	BTST	FLAGS,1 \?CCL33
+	PUSH	5
+	JUMP	?CND31
+?CCL33:	PUSH	4
+?CND31:	CALL	FIND-DESCENDANTS,FOBJ,STACK
+	ZERO?	STACK /FALSE
+?CND8:	NEXT?	FOBJ >FOBJ /?PRG6
+	RTRUE	
+
+
+	.FUNCT	EXCLUDED?,FOBJ,F,EXC,PHRASE,CT,VEC,VV
+	GET	F,8 >EXC
+	ZERO?	EXC /FALSE
+	GET	EXC,3 >PHRASE
+	GET	PHRASE,1 >CT
+	ADD	PHRASE,6 >VEC
+?PRG6:	DLESS?	'CT,0 \?CND8
+	SET	'VV,FALSE-VALUE
+	JUMP	?REP7
+?CND8:	GET	VEC,0
+	EQUAL?	FOBJ,STACK \?CND10
+	SET	'VV,TRUE-VALUE
+?REP7:	ZERO?	VV \TRUE
+	GET	EXC,1 >EXC
+	ZERO?	EXC /FALSE
+	GET	EXC,3 >PHRASE
+	GET	PHRASE,1 >CT
+	ADD	PHRASE,6 >VEC
+	JUMP	?PRG6
+?CND10:	ADD	VEC,4 >VEC
+	JUMP	?PRG6
+
+
+	.FUNCT	MATCH-OBJECT,FOBJ,F,INCLUDE?,NOUN,ADJS,APP,TB,RES,?TMP1
+	GET	F,9 >RES
+	FSET?	FOBJ,INVISIBLE /TRUE
+	GET	F,6 >NOUN
+	EQUAL?	NOUN,FALSE-VALUE,W?ONE /?PRD6
+	GETPT	FOBJ,P?SYNONYM >TB
+	ZERO?	TB /TRUE
+	PTSIZE	TB
+	DIV	STACK,2
+	INTBL?	NOUN,TB,STACK \TRUE
+?PRD6:	GET	F,7 >ADJS
+	ZERO?	ADJS /?PRD11
+	CALL	CHECK-ADJS,FOBJ,F,ADJS
+	ZERO?	STACK /TRUE
+?PRD11:	GET	F,5 >ADJS
+	ZERO?	ADJS /?PRD14
+	CALL	CHECK-ADJS,FOBJ,F,ADJS
+	ZERO?	STACK /TRUE
+?PRD14:	CALL	EXCLUDED?,FOBJ,F
+	ZERO?	STACK \TRUE
+	GET	F,1
+	BTST	STACK,1 /?CTR2
+	CALL2	INVALID-OBJECT?,FOBJ
+	ZERO?	STACK \TRUE
+?CTR2:	ZERO?	INCLUDE? /TRUE
+	GET	F,5 >ADJS
+	ZERO?	ADJS /?CCL24
+	GET	ADJS,4 >?TMP1
+	GETPT	FOBJ,P?ADJECTIVE
+	PTSIZE	STACK
+	DIV	STACK,2
+	EQUAL?	?TMP1,STACK \?CCL24
+	PUT	RES,1,1
+	PUT	RES,2,FALSE-VALUE
+	PUT	RES,4,FOBJ
+	EQUAL?	FOBJ,HERE \FALSE
+	PUT	RES,4,GLOBAL-HERE
+	RFALSE	
+?CCL24:	GET	F,0 >APP
+	ZERO?	APP /?CCL31
+	GET	F,1
+	BTST	STACK,1 /?CCL31
+	GET	RES,1
+	ZERO?	STACK /?CTR35
+	GET	F,2
+	ZERO?	STACK /?CCL36
+?CTR35:	CALL	ADD-OBJECT,FOBJ,F
+	RSTACK	
+?CCL36:	CALL	TEST-OBJECT,FOBJ,APP,F
+	ZERO?	STACK /FALSE
+	GET	RES,1
+	EQUAL?	STACK,1 \?CCL43
+	GET	RES,4
+	CALL	TEST-OBJECT,STACK,APP,F
+	ZERO?	STACK \?CCL46
+	PUT	RES,4,FOBJ
+	EQUAL?	FOBJ,HERE \TRUE
+	PUT	RES,4,GLOBAL-HERE
+	RTRUE	
+?CCL46:	CALL	ADD-OBJECT,FOBJ,F
+	RSTACK	
+?CCL43:	CALL	ADD-OBJECT,FOBJ,F
+	RSTACK	
+?CCL31:	ZERO?	APP \?CCL50
+	GET	F,1
+	BTST	STACK,1 \?CTR52
+	GET	F,2
+	ZERO?	STACK /TRUE
+?CTR52:	CALL	ADD-OBJECT,FOBJ,F
+	RSTACK	
+?CCL50:	CALL	TEST-OBJECT,FOBJ,APP,F
+	ZERO?	STACK /TRUE
+	CALL	ADD-OBJECT,FOBJ,F
+	RSTACK	
+
+
+	.FUNCT	TEST-OBJECT,FOBJ,APP,F,N,NN,?TMP1
+	BAND	APP,65280
+	ZERO?	STACK \?CCL3
+	BTST	APP,128 \?CCL6
+	BAND	APP,63
+	FSET?	FOBJ,STACK /FALSE
+	RTRUE	
+?CCL6:	FSET?	FOBJ,APP /TRUE
+	RFALSE	
+?CCL3:	GET	APP,1
+	BTST	STACK,256 \?CND12
+	GET	APP,1
+	BAND	STACK,63
+	GETP	FOBJ,STACK >?TMP1
+	GET	APP,2
+	EQUAL?	?TMP1,STACK /TRUE
+	RFALSE	
+?CND12:	GET	APP,0 >N
+?PRG17:	GET	APP,N >NN
+	BTST	NN,128 \?CCL21
+	BAND	NN,63
+	FSET?	FOBJ,STACK /?CND19
+	RTRUE	
+?CCL21:	FSET?	FOBJ,NN /TRUE
+?CND19:	DLESS?	'N,1 \?PRG17
+	RFALSE	
+
+
+	.FUNCT	ADD-OBJECT,OBJ,F,VEC,NC,DOIT?,SYN,WHICH,?TMP1
+	GET	F,9 >VEC
+	SET	'DOIT?,TRUE-VALUE
+	GET	F,3 >SYN
+	GET	F,4 >WHICH
+	EQUAL?	OBJ,HERE \?CND1
+	SET	'OBJ,GLOBAL-HERE
+?CND1:	GET	F,2
+	ZERO?	STACK \?CND3
+	ZERO?	SYN /?CND3
+	GET	VEC,1
+	EQUAL?	1,STACK \?CND3
+	CALL	MULTIPLE-EXCEPTION?,OBJ,SYN,WHICH,F
+	ZERO?	STACK /?CCL10
+	SET	'DOIT?,FALSE-VALUE
+	JUMP	?CND3
+?CCL10:	GET	VEC,4
+	CALL	MULTIPLE-EXCEPTION?,STACK,SYN,WHICH,F
+	ZERO?	STACK /?CND3
+	PUT	VEC,4,OBJ
+	SET	'DOIT?,FALSE-VALUE
+?CND3:	ZERO?	DOIT? /TRUE
+	GET	F,2
+	ZERO?	STACK /?PRD17
+	GET	F,3
+	ZERO?	STACK /?PRD17
+	GET	F,3 >?TMP1
+	GET	F,4
+	CALL	MULTIPLE-EXCEPTION?,OBJ,?TMP1,STACK,F
+	ZERO?	STACK \TRUE
+?PRD17:	CALL	NOT-IN-FIND-RES?,OBJ,VEC >WHICH
+	ZERO?	WHICH /TRUE
+	GET	VEC,1
+	ADD	1,STACK
+	PUT	VEC,1,STACK
+	PUT	WHICH,0,OBJ
+	GET	F,2
+	EQUAL?	STACK,NP-QUANT-A /FALSE
+	RTRUE	
+
+
+	.FUNCT	NOT-IN-FIND-RES?,OBJ,VEC,NO-CHANGE?,CT,SZ,ANS,NVEC,NEW-OBJECT
+	GET	VEC,1 >CT
+	GET	VEC,0 >SZ
+?PRG1:	ADD	VEC,8 >ANS
+	LESS?	CT,1 \?CCL5
+	RETURN	ANS
+?CCL5:	GRTR?	CT,SZ \?CCL7
+	SUB	CT,SZ >CT
+	JUMP	?CND3
+?CCL7:	SET	'SZ,CT
+?CND3:	INTBL?	OBJ,ANS,SZ /FALSE
+	GET	VEC,2 >NVEC
+	ZERO?	NVEC /?CCL12
+	SET	'VEC,NVEC
+	SET	'SZ,FIND-RES-MAXOBJ
+	JUMP	?PRG1
+?CCL12:	LESS?	SZ,FIND-RES-MAXOBJ \?CCL14
+	MUL	2,SZ
+	ADD	ANS,STACK
+	RSTACK	
+?CCL14:	ZERO?	NO-CHANGE? \TRUE
+	SET	'SZ,FIND-RES-MAXOBJ
+	CALL	DO-PMEM-ALLOC,7,9 >NEW-OBJECT
+	SET	'NVEC,NEW-OBJECT
+	PUT	VEC,2,NVEC
+	ADD	NVEC,8
+	RSTACK	
+
+
+	.FUNCT	EVERYWHERE-VERB?,WHICH,SYNTAX,SYN
+	ASSIGNED?	'WHICH /?CND1
+	GET	FINDER,4 >WHICH
+?CND1:	ASSIGNED?	'SYNTAX /?CND3
+	GET	PARSE-RESULT,3 >SYNTAX
+?CND3:	EQUAL?	WHICH,1 \?CCL7
+	GETB	SYNTAX,5 >SYN
+	JUMP	?CND5
+?CCL7:	GETB	SYNTAX,9 >SYN
+?CND5:	BTST	SYN,128 \FALSE
+	BTST	SYN,64 \TRUE
+	RFALSE	
+
+
+	.FUNCT	MULTIPLE-EXCEPTION?,OBJ,SYNTAX,WHICH,F,L,VB
+	LOC	OBJ >L
+	GET	SYNTAX,0 >VB
+	EQUAL?	OBJ,FALSE-VALUE,ROOMS \?CCL3
+	INC	'P-NOT-HERE
+	RTRUE	
+?CCL3:	CALL	EVERYWHERE-VERB?,WHICH,SYNTAX
+	ZERO?	STACK \?CCL5
+	CALL2	ACCESSIBLE?,OBJ
+	ZERO?	STACK /TRUE
+?CCL5:	EQUAL?	VB,V?TAKE \?CCL9
+	GET	F,6
+	ZERO?	STACK \?CCL9
+	EQUAL?	WHICH,1 \?CCL9
+	FSET?	OBJ,TAKEBIT /?CCL15
+	FSET?	OBJ,TRYTAKEBIT \TRUE
+?CCL15:	EQUAL?	L,WINNER /TRUE
+	RFALSE	
+?CCL9:	EQUAL?	VB,V?DROP \FALSE
+	IN?	OBJ,WINNER \TRUE
+	RFALSE	
+
+
+	.FUNCT	CHECK-ADJS,OBJ,F,ADJS,CNT,TMP,OWNER,ID,VEC,CT,ADJ,FL,OADJS,NUM,?TMP1
+	GETP	OBJ,P?OWNER >OWNER
+	GETB	ADJS,1
+	EQUAL?	STACK,2 /?CCL2
+	GET	ADJS,2 >TMP
+	ZERO?	TMP /?CND1
+?CCL2:	SET	'ID,OWNER
+	LESS?	0,ID \?CCL7
+	SET	'ID,OWNER
+	GRTR?	ID,LAST-OBJECT /?CCL7
+	EQUAL?	OWNER,TMP,OBJ /?CND1
+	EQUAL?	OWNER,ROOMS \?CCL14
+	GET	OWNER-SR-HERE,4 >ID
+	JUMP	?CND1
+?CCL14:	GET	OWNER-SR-THERE,1 >TMP
+	ZERO?	TMP /FALSE
+	INTBL?	OWNER,OWNER-SR-THERE+8,TMP /?CND1
+	RFALSE	
+?CCL7:	ZERO?	OWNER /?CCL19
+	GET	OWNER-SR-HERE,1 >CNT
+	ZERO?	CNT \?CCL22
+	SET	'ID,PLAYER
+	JUMP	?CND1
+?CCL22:	ADD	OWNER,2 >TMP
+	SET	'VEC,OWNER-SR-HERE+8
+?PRG24:	DLESS?	'CNT,0 /FALSE
+	GET	VEC,0 >?TMP1
+	GET	OWNER,0
+	INTBL?	?TMP1,TMP,STACK >ID \?CCL30
+	GET	ID,0 >ID
+	JUMP	?CND1
+?CCL30:	ADD	VEC,2 >VEC
+	JUMP	?PRG24
+?CCL19:	LESS?	0,TMP \?CCL32
+	GRTR?	TMP,LAST-OBJECT /?CCL32
+	CALL	HELD?,OBJ,TMP
+	ZERO?	STACK \?CND1
+	RFALSE	
+?CCL32:	GET	OWNER-SR-HERE,1 >TMP
+	ZERO?	TMP /FALSE
+	LOC	OBJ
+	INTBL?	STACK,OWNER-SR-HERE+8,TMP >ID \FALSE
+?CND1:	EQUAL?	ID,0,OBJ /?CND41
+	GET	F,9
+	PUT	STACK,3,ID
+?CND41:	GETB	ADJS,1
+	EQUAL?	STACK,2 /TRUE
+	ADD	ADJS,10 >VEC
+	GET	ADJS,4 >CT
+	GETPT	OBJ,P?ADJECTIVE >OADJS
+	PTSIZE	OADJS
+	DIV	STACK,2 >NUM
+?PRG45:	DLESS?	'CT,0 /TRUE
+	GET	VEC,CT >ADJ
+	SET	'ID,ADJ
+	EQUAL?	ADJ,W?NO.WORD /?PRG45
+	INTBL?	ID,OADJS,NUM /?PRG45
+	EQUAL?	ID,W?CLOSED,W?SHUT \?CCL54
+	FSET?	OBJ,OPENBIT \?PRG45
+?CCL54:	EQUAL?	ID,W?OPEN \FALSE
+	FSET?	OBJ,OPENBIT /?PRG45
+	RFALSE	
+
+
+	.FUNCT	FIND-OBJECTS,SEARCH,PARENT,GLBS,CONT?,N,RES,NEW-OBJECT,LOSING?,FLAG,?PR-FLAG,O,OBJ
+	ASSIGNED?	'SEARCH /?CND1
+	GET	FINDER,4
+	EQUAL?	1,STACK \?CCL5
+	GET	PARSE-RESULT,3
+	GETB	STACK,5 >SEARCH
+	JUMP	?CND1
+?CCL5:	GET	PARSE-RESULT,3
+	GETB	STACK,9 >SEARCH
+?CND1:	SET	'CONT?,TRUE-VALUE
+	GET	FINDER,9 >RES
+	PUT	RES,1,0
+	PUT	RES,2,FALSE-VALUE
+	ZERO?	PARENT /?CCL8
+	CALL	FIND-DESCENDANTS,PARENT,7
+	ZERO?	STACK /?CND6
+	GET	RES,1
+	ZERO?	STACK \?CND6
+?CCL8:	ZERO?	PARENT /?CND13
+	GET	FINDER,5 >GLBS
+	ZERO?	GLBS \?CND15
+	CALL	DO-PMEM-ALLOC,1,8 >NEW-OBJECT
+	SET	'GLBS,NEW-OBJECT
+	PUT	FINDER,5,GLBS
+?CND15:	GET	GLBS,2
+	ZERO?	STACK \?CND13
+	PUT	GLBS,2,PARENT
+?CND13:	BTST	SEARCH,128 \?CND19
+	BTST	SEARCH,64 /?CND19
+	FIRST?	GENERIC-OBJECTS \?CND19
+	FIRST?	GENERIC-OBJECTS >NEW-OBJECT /?PRG25
+?PRG25:	CALL	MATCH-OBJECT,NEW-OBJECT,FINDER,TRUE-VALUE
+	ZERO?	STACK /?REP26
+	NEXT?	NEW-OBJECT >NEW-OBJECT /?PRG25
+?REP26:	GET	RES,1 >CONT?
+	ZERO?	CONT? /?CND19
+	EQUAL?	CONT?,1 /TRUE
+	RFALSE	
+?CND19:	SET	'LOSING?,FALSE-VALUE
+?PRG35:	ZERO?	LOSING? \?PRD40
+	BAND	SEARCH,12
+	ZERO?	STACK \?CCL38
+?PRD40:	ZERO?	LOSING? /?CND37
+?CCL38:	ZERO?	LOSING? \?CTR44
+	BTST	SEARCH,8 \?CCL45
+?CTR44:	SET	'?PR-FLAG,6
+	JUMP	?CND43
+?CCL45:	SET	'?PR-FLAG,2
+?CND43:	ZERO?	LOSING? \?CTR49
+	BAND	SEARCH,12
+	ZERO?	STACK /?CCL50
+?CTR49:	BOR	1,?PR-FLAG >FLAG
+	JUMP	?CND48
+?CCL50:	BAND	?PR-FLAG,-2 >FLAG
+?CND48:	ZERO?	LOSING? \?CCL55
+	BTST	SEARCH,4 /?CCL55
+	BOR	8,FLAG
+	JUMP	?CND53
+?CCL55:	BAND	FLAG,-9
+?CND53:	CALL	FIND-DESCENDANTS,WINNER,STACK >CONT?
+?CND37:	ZERO?	LOSING? \?CCL59
+	BAND	SEARCH,3
+	ZERO?	STACK /?CND58
+?CCL59:	ZERO?	LOSING? \?CTR63
+	BAND	SEARCH,3
+	ZERO?	STACK /?CCL64
+?CTR63:	SET	'?PR-FLAG,3
+	JUMP	?CND62
+?CCL64:	SET	'?PR-FLAG,2
+?CND62:	ZERO?	LOSING? \?CTR69
+	BTST	SEARCH,2 \?CCL70
+?CTR69:	BOR	4,?PR-FLAG >FLAG
+	JUMP	?CND68
+?CCL70:	BAND	?PR-FLAG,-5 >FLAG
+?CND68:	ZERO?	LOSING? \?CCL75
+	BTST	SEARCH,1 /?CCL75
+	BOR	8,FLAG
+	JUMP	?CND73
+?CCL75:	BAND	FLAG,-9
+?CND73:	CALL	FIND-DESCENDANTS,HERE,STACK >CONT?
+?CND58:	GET	RES,1
+	ZERO?	STACK \?CND6
+	BTST	SEARCH,15 /?CND78
+	ZERO?	LOSING? \?CND78
+	GET	TLEXV,0 >GLBS
+	ZERO?	GLBS /?CCL86
+	GETB	GLBS,8
+	BTST	STACK,128 /?CCL93
+	GETB	GLBS,8
+	JUMP	?CND91
+?CCL93:	GETB	GLBS,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND91:	ZERO?	STACK \?CTR85
+	GET	GLBS,3
+	ZERO?	STACK /?CCL86
+?CTR85:	SET	'LOSING?,TRUE-VALUE
+	JUMP	?PRG35
+?CCL86:	BTST	SEARCH,64 \?CND78
+	BTST	SEARCH,128 \FALSE
+?CND78:	GETPT	HERE,P?GLOBAL >GLBS
+	ZERO?	GLBS /?CND97
+	PTSIZE	GLBS
+	DIV	STACK,2 >N
+?PRG100:	DLESS?	'N,0 /?CND97
+	GET	GLBS,N >O
+	CALL	MATCH-OBJECT,O,FINDER,TRUE-VALUE >CONT?
+	ZERO?	CONT? /?CND97
+	FIRST?	O \?PRG100
+	CALL	SEARCH-IN-LG?,O
+	ZERO?	STACK /?PRG100
+	BTST	SEARCH,2 \?PRG100
+	CALL	FIND-DESCENDANTS,O,FD-INCLUDE? >CONT?
+	ZERO?	CONT? \?PRG100
+?CND97:	ZERO?	CONT? /?CND114
+	CALL1	EXCLUDE-HERE-OBJECT?
+	ZERO?	STACK \?CND114
+	CALL	MATCH-OBJECT,HERE,FINDER,TRUE-VALUE >CONT?
+?CND114:	ZERO?	CONT? /?CND118
+	GETP	HERE,P?THINGS
+	ZERO?	STACK /?CND118
+	CALL	TEST-THINGS,HERE,FINDER >CONT?
+?CND118:	GET	RES,1
+	ZERO?	STACK /?CND122
+	SET	'CONT?,FALSE-VALUE
+?CND122:	ZERO?	CONT? /?CND124
+	BTST	SEARCH,2 \?CCL128
+	PUSH	5
+	JUMP	?CND126
+?CCL128:	PUSH	1
+?CND126:	CALL	FIND-DESCENDANTS,GLOBAL-OBJECTS,STACK >CONT?
+?CND124:	ZERO?	CONT? /?CND129
+	GET	RES,1
+	ZERO?	STACK \?CND129
+	GETP	HERE,P?ADJACENT >GLBS
+	ZERO?	GLBS /?CND129
+	GETB	GLBS,0 >N
+	BAND	SEARCH,-193 >O
+?PRG134:	GETB	GLBS,N
+	ZERO?	STACK /?CCL138
+	DEC	'N
+	GETB	GLBS,N
+	ICALL	FIND-OBJECTS,O,STACK
+	JUMP	?CND136
+?CCL138:	DEC	'N
+?CND136:	DLESS?	'N,1 \?PRG134
+	GET	RES,1
+	ZERO?	STACK /?CND129
+	SET	'CONT?,FALSE-VALUE
+?CND129:	ZERO?	CONT? /?CND6
+	GET	RES,1
+	ZERO?	STACK \?CND6
+	CALL	MOBY-FIND?,SEARCH
+	ZERO?	STACK /?CND6
+	SET	'OBJ,1
+?PRG148:	FSET?	OBJ,INVISIBLE /?CND150
+	CALL	MATCH-OBJECT,OBJ,FINDER,TRUE-VALUE
+	ZERO?	STACK /?CND6
+?CND150:	IGRTR?	'OBJ,LAST-OBJECT \?PRG148
+?CND6:	GET	RES,1
+	EQUAL?	STACK,1 /TRUE
+	RFALSE	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/find.zil b/find.zil
new file mode 100644
index 0000000..665629c
--- /dev/null
+++ b/find.zil
@@ -0,0 +1,555 @@
+"FIND file for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZSECTION "FIND">
+
+<INCLUDE "BASEDEFS" "PDEFS" "PBITDEFS">
+
+<USE "NEWSTRUC" "PARSER" "PMEM">
+
+<FILE-FLAGS MDL-ZIL? CLEAN-STACK? ;ZAP-TO-SOURCE-DIRECTORY?>
+
+<BEGIN-SEGMENT 0>
+
+<PUT-DECL BOOLEAN '<OR ATOM FALSE>>
+
+<DEFMAC FD-FLAG (WHICH 'VAL "OPT" 'NEW)
+  <COND (<ASSIGNED? NEW>
+	 <COND (<OR <TYPE? .NEW ATOM FALSE>
+		    <AND <TYPE? .NEW FORM>
+			 <EMPTY? .NEW>>>
+		<COND (<TYPE? .NEW ATOM>
+		       ;"Just turning flag on"
+		       <FORM ORB ,.WHICH .VAL>)
+		      (T
+		       <FORM ANDB .VAL <XORB ,.WHICH -1>>)>)
+	       (<TYPE? .VAL FIX LVAL GVAL>
+		<FORM COND
+		      (.NEW
+		       <FORM ORB .VAL ,.WHICH>)
+		      (T
+		       <FORM ANDB .VAL <XORB ,.WHICH -1>>)>)
+	       (T
+		<FORM BIND ((FLAG .VAL))
+		  <FORM COND
+			(.NEW
+			 <FORM ORB ,.WHICH '.FLAG>)
+			(T
+			 <FORM ANDB '.FLAG <XORB ,.WHICH -1>>)>>)>)
+	(T
+	 <FORM NOT <FORM 0? <FORM ANDB .VAL ,.WHICH>>>)>>
+
+<MSETG FIND-FLAGS-GWIM 1>
+<DEFMAC FIND-GWIM? ('F)
+  <FORM NOT <FORM 0? <FORM ANDB <FORM FIND-FLAGS .F> ,FIND-FLAGS-GWIM>>>>
+
+<CONSTANT FINDER <MAKE-FINDER>>
+<GLOBAL P-NOT-HERE:NUMBER ;BYTE 0>
+
+"FIND-DESCENDANTS, MATCH-OBJECT, and ADD-OBJECT all return false when the
+ search should be stopped prematurely because some object was an exact
+ match.  If there's a big red book and a big ugly red book, BIG RED BOOK
+ will get the former, since it's the only way to do so."
+
+<DEFINE FIND-DESCENDANTS FD
+	(PARENT:OBJECT FLAGS:FIX ;"INCLUDE, SEARCH, NEST, NOTOP"
+	 "AUX" (F ,FINDER) FOBJ:<OR FALSE OBJECT>)
+  <COND (<EQUAL? .PARENT ,GLOBAL-HERE>
+	 <SET PARENT ,HERE>)>
+  <COND (<SET FOBJ <FIRST? .PARENT>>
+	 ;"This guy contains something"
+	 <REPEAT ()
+	   ;"See if the current object matches: if so, add it to the list"
+	   <COND
+	    (<VISIBLE? .FOBJ>
+	     <COND (<AND <NOT <FD-FLAG FD-NOTOP? .FLAGS> ;<BTST .FLAGS 8>>
+			 <NOT <MATCH-OBJECT .FOBJ .F
+					    <FD-FLAG FD-INCLUDE? .FLAGS>
+					    ;<BTST .FLAGS 1>>>>
+		    <RETURN <> .FD>)>
+	     <COND (<AND <FD-FLAG FD-NEST? .FLAGS> ;<BTST .FLAGS 4>
+			 <FIRST? .FOBJ>
+			 <N==? .FOBJ ,WINNER>
+			 <OR ;,P-MOBY-FLAG
+			     <AND <FSET? .FOBJ ,SEARCHBIT>
+				  <OR <FSET? .FOBJ ,OPENBIT>
+				      <FSET? .FOBJ ,TRANSBIT>>>
+			     <FSET? .FOBJ ,SURFACEBIT>>>
+		    ;"Check its contents"
+		    <COND (<NOT <FIND-DESCENDANTS .FOBJ
+				 <FD-FLAG FD-INCLUDE? ,FD-NEST?
+					  <FD-FLAG FD-INCLUDE? .FLAGS>>
+				 ;<COND (<BTST .FLAGS 1> 5) (T 4)>>>
+			   <RETURN <> .FD>)>)>)>
+	   ;"Check next sibling"
+	   <COND (<NOT <SET FOBJ <NEXT? .FOBJ>>>
+		  <RETURN T .FD>)>>)
+	(T)>>
+
+<DEFINE EXCLUDED? EX (FOBJ:OBJECT F:FINDER
+			  "AUX" (EXC:<OR FALSE PMEM> <FIND-EXCEPTIONS .F>))
+  <COND (.EXC
+	 <REPEAT ((PHRASE:PMEM <NPP-NOUN-PHRASE .EXC>)
+		  (CT:FIX <NOUN-PHRASE-COUNT .PHRASE>)
+		  (VEC <REST-TO-SLOT .PHRASE NOUN-PHRASE-OBJ1>) VV)
+		 <REPEAT ()
+			 <COND (<L? <SET CT <- .CT 1>> 0>
+				<SET VV <>>
+				<RETURN>)>
+			 <COND (<==? .FOBJ <ZGET .VEC 0>>
+				<SET VV T>
+				<RETURN>)>
+			 <SET VEC <ZREST .VEC 4 ;2>>>
+		 <COND (.VV
+			<RETURN T .EX>)
+		       (<SET EXC <NPP-NEXT .EXC>>
+			<SET PHRASE <NPP-NOUN-PHRASE .EXC>>
+			<SET CT <NOUN-PHRASE-COUNT .PHRASE>>
+			<SET VEC <REST-TO-SLOT .PHRASE NOUN-PHRASE-OBJ1>>)
+		       (T
+			<RETURN <> .EX>)>>)>>
+
+<DEFINE MATCH-OBJECT (FOBJ:OBJECT F:FINDER INCLUDE?:BOOLEAN
+		      "AUX" NOUN ADJS APP TB (RES <FIND-RES .F>))
+  <COND (<AND <NOT <FSET? .FOBJ ,INVISIBLE>>
+	      <OR <EQUAL? <SET NOUN <FIND-NOUN .F>> <> ,W?ONE>
+		  <AND <SET TB <GETPT .FOBJ ,P?SYNONYM>>
+		       <ZMEMQ .NOUN .TB </ <PTSIZE .TB>:FIX 2>>>>
+	      <OR <NOT <SET ADJS <FIND-OF .F>>>
+		  <CHECK-ADJS .FOBJ .F .ADJS>>
+	      <OR <NOT <SET ADJS <FIND-ADJS .F>>>
+		  <CHECK-ADJS .FOBJ .F .ADJS>>
+	      <NOT <EXCLUDED? .FOBJ .F>>
+	      <OR <FIND-GWIM? .F>
+		  <NOT <INVALID-OBJECT? .FOBJ>>>>
+	 ;"This object matches the words used..."
+	 <COND (<NOT .INCLUDE?>	;"location didn't match the syntax bits"
+		T)
+	       (<AND <T? <SET ADJS <FIND-ADJS .F>>>
+		     <EQUAL? <ADJS-COUNT .ADJS>
+			     <COND (T ;<CHECK-EXTENDED?>
+				    </ <PTSIZE <GETPT .FOBJ ,P?ADJECTIVE>> 2>)
+			   ;(T <- <PTSIZE <GETPT .FOBJ ,P?ADJECTIVE>> 1>)>>>
+		;"the only way to do so."
+		<FIND-RES-COUNT .RES 1>
+		<FIND-RES-NEXT .RES <>>
+		<FIND-RES-OBJ1 .RES .FOBJ>
+		<COND (<EQUAL? .FOBJ ,HERE>
+		       <FIND-RES-OBJ1 .RES ,GLOBAL-HERE>)>
+		<>)
+	       (<AND <T? <SET APP <FIND-APPLIC .F>>>
+		     <NOT <FIND-GWIM? .F>>>
+		;"We're not GWIMming, so apply the test only if there's an
+		   ambiguity"
+		<COND (<OR <0? <FIND-RES-COUNT .RES>>
+			   <FIND-QUANT .F>>
+		       ;"Don't have anything yet"
+		       <ADD-OBJECT .FOBJ .F>)
+		      (<TEST-OBJECT .FOBJ .APP .F>
+		       ;"We already have something, so first find out if
+			  this one's OK"
+		       <COND (<1? <FIND-RES-COUNT .RES>>
+			      ;"There's only one other object"
+			      <COND (<NOT <TEST-OBJECT
+					       <FIND-RES-OBJ1 .RES>
+					       .APP .F>>
+				     ;"The other object doesn't match, so just
+					replace it"
+				     <FIND-RES-OBJ1 .RES .FOBJ>
+				     <COND (<EQUAL? .FOBJ ,HERE>
+					   <FIND-RES-OBJ1 .RES ,GLOBAL-HERE>)>
+				     T)
+				    (T
+				     ;"The other object also matches, so
+					we're stuck"
+				     <ADD-OBJECT .FOBJ .F>)>)
+			     (T
+			      ;"We already have more than one object, so
+				 we're losing"
+			      <ADD-OBJECT .FOBJ .F>)>)>)
+	       (<F? .APP>
+		<COND (<OR <NOT <FIND-GWIM? .F>>
+			   <FIND-QUANT .F>>	;"DETERMINE-OBJ w/ PICK"
+		       <ADD-OBJECT .FOBJ .F>)
+		      (T)>)
+	       (<TEST-OBJECT .FOBJ .APP .F>
+		<ADD-OBJECT .FOBJ .F>)
+	       (T)>)
+	(T)>>
+
+<MSETG SYN-FIND-PROP *400*>	;"If set, look for this property"
+
+<DEFINE TEST-OBJECT TO (FOBJ:OBJECT APP:<OR FIX TABLE> F:FINDER)
+  <COND (<NOT <TABLE? .APP>>
+	 <COND (<NOT <0? <ANDB .APP ,SYN-FIND-NEGATE>>>
+		<NOT <FSET? .FOBJ <ANDB .APP *77*>>>)
+	       (T
+		<FSET? .FOBJ .APP>)>)
+	(T
+	 <COND (<NOT <0? <ANDB <ZGET .APP 1> ,SYN-FIND-PROP>>>
+		<COND (<EQUAL? <GETP .FOBJ <ANDB <ZGET .APP 1> *77*>>
+			       <ZGET .APP 2>>
+		       <RETURN T .TO>)
+		      (T <RETURN <> .TO>)>)>
+	 <REPEAT ((N:FIX <ZGET .APP 0>) NN)
+	   <SET NN <ZGET .APP .N>>
+	   <COND (<NOT <0? <ANDB .NN ,SYN-FIND-NEGATE>>>
+		  <COND (<NOT <FSET? .FOBJ <ANDB .NN *77*>>>
+			 <RETURN T .TO>)>)
+		 (<FSET? .FOBJ .NN>
+		  <RETURN T .TO>)>
+	   <COND (<L? <SET N <- .N 1>> 1>
+		  <RETURN <> .TO>)>>)>>
+
+"Object matches all other tests.  Here do checks with quantities
+   (all, one, etc.), then add if OK."
+<DEFINE ADD-OBJECT (OBJ:OBJECT F:FINDER "AUX" (VEC <FIND-RES .F>) NC
+		    (DOIT? T) (SYN <FIND-SYNTAX .F>) (WHICH <FIND-WHICH .F>))
+  <COND (<EQUAL? .OBJ ,HERE>
+	 <SET OBJ ,GLOBAL-HERE>)>	;"per PDL 29-Apr-88"
+  <COND (<AND <NOT <FIND-QUANT .F>>
+	      .SYN
+	      <==? 1 <FIND-RES-COUNT .VEC>:FIX>>
+	 <COND (<MULTIPLE-EXCEPTION? .OBJ .SYN .WHICH .F>
+		<SET DOIT? <>>)
+	       (<MULTIPLE-EXCEPTION? <FIND-RES-OBJ1 .VEC> .SYN .WHICH .F>
+		<FIND-RES-OBJ1 .VEC .OBJ>
+		<SET DOIT? <>>)>)>
+  <COND (<AND .DOIT?
+	      <OR <NOT <FIND-QUANT .F>>
+		  <NOT <FIND-SYNTAX .F>>
+		  <NOT <MULTIPLE-EXCEPTION? .OBJ	;"wrong theory of ALL?"
+					    <FIND-SYNTAX .F>
+					    <FIND-WHICH .F>
+					    .F>>>
+	      ;"In case an object gets found twice..."
+	      <SET WHICH <NOT-IN-FIND-RES? .OBJ .VEC>>>
+	 <FIND-RES-COUNT .VEC ;<SET NC > <+ 1 <FIND-RES-COUNT .VEC>>>
+	 <COND ;(<AND <IN? <SET NC <META-LOC .OBJ>> ,ROOMS>
+		     <NOT <EQUAL? .NC <META-LOC ,WINNER>>>>
+		<ZPUT .WHICH 0 <- 0 .OBJ>>)	;"adjacent room"
+	       (T
+		<ZPUT .WHICH 0 .OBJ>)>
+	 ;<COND (<L=? .NC <FIND-RES-SIZE .VEC>>
+		<ZPUT <REST-TO-SLOT .VEC FIND-RES-OBJ1>
+		      <- .NC 1>
+		      .OBJ>)>
+	 <N==? <FIND-QUANT .F> ,NP-QUANT-A>)
+	(T)>>
+
+<DEFINE NOT-IN-FIND-RES? ACT (OBJ VEC "OPT" (NO-CHANGE? <>))
+ <REPEAT ((CT <FIND-RES-COUNT .VEC>)
+	  (SZ <FIND-RES-SIZE .VEC>) ANS NVEC)
+	 <SET ANS <REST-TO-SLOT .VEC FIND-RES-OBJ1>>
+	 <COND (<L? .CT 1>
+		<RETURN .ANS .ACT>)
+	       (<G? .CT .SZ>
+		<SET CT <- .CT .SZ>>)
+	       (T <SET SZ .CT>)>
+	 <COND (<INTBL? .OBJ .ANS .SZ>
+		<RETURN <> .ACT>)
+	       (<T? <SET NVEC <FIND-RES-NEXT .VEC>>>
+		<SET VEC .NVEC>
+		<SET SZ ,FIND-RES-MAXOBJ ;<OBJLIST-SIZE .VEC>>)
+	       (<L? .SZ ,FIND-RES-MAXOBJ ;<FIND-RES-SIZE .VEC>>
+		<RETURN <ZREST .ANS <* 2 .SZ>> .ACT>)
+	       (<T? .NO-CHANGE?>
+		<RETURN T .ACT>)
+	       (T
+		<SET SZ ,FIND-RES-MAXOBJ ;<FIND-RES-SIZE .VEC>>
+		<SET NVEC <PMEM-ALLOC OBJLIST
+				      ;"SIZE .SZ"
+				      LENGTH <- ,FIND-RES-LENGTH 1>>>
+		<FIND-RES-NEXT .VEC .NVEC>
+		<RETURN <REST-TO-SLOT .NVEC FIND-RES-OBJ1> .ACT>)>>>
+
+"EVERYWHERE-VERB? -- separately defined so game can call it"
+
+<DEFINE EVERYWHERE-VERB? ("OPT" (WHICH <FIND-WHICH ,FINDER>)
+				(SYNTAX <PARSE-SYNTAX ,PARSE-RESULT>)
+			  "AUX" SYN)
+	<COND (<==? .WHICH 1>
+	       <SET SYN <SYNTAX-SEARCH .SYNTAX 1>>)
+	      (T
+	       <SET SYN <SYNTAX-SEARCH .SYNTAX 2>>)>
+	<COND (<AND <ANDB ,SEARCH-MOBY .SYN>
+		    <NOT <ANDB ,SEARCH-MUST-HAVE .SYN>>>
+	       T)>>
+
+"MULTIPLE-EXCEPTION? -- return true if an object found by ALL should not
+be include when the crunch comes."
+
+<DEFINE MULTIPLE-EXCEPTION? (OBJ:OBJECT SYNTAX:VERB-SYNTAX WHICH:FIX F:FINDER
+			     "AUX" (L <LOC .OBJ>) (VB <SYNTAX-ID .SYNTAX>))
+ <COND (<EQUAL? .OBJ <> ,ROOMS ;,NOT-HERE-OBJECT>
+	<SETG P-NOT-HERE <+ 1 ,P-NOT-HERE>>
+	T)
+       (<AND <0? <EVERYWHERE-VERB? .WHICH .SYNTAX>>
+	     <NOT <ACCESSIBLE? .OBJ>>>
+	T)
+       (<AND <==? .VB ,V?TAKE>
+	     <ZERO? <FIND-NOUN .F>>
+	     <1? .WHICH>>
+	<COND (<AND <NOT <FSET? .OBJ ,TAKEBIT>>
+		    <NOT <FSET? .OBJ ,TRYTAKEBIT>>>
+	       T)
+	      (<EQUAL? .L ,WINNER>
+	       ;<AND <NOT <EQUAL? .L ,WINNER <LOC ,WINNER> ,HERE>>
+		    <NOT <FSET? .L ,SURFACEBIT>>
+		    <NOT <FSET? .L ,SEARCHBIT>>>
+	       T)>)
+       (<==? .VB ,V?DROP>
+	<COND (<NOT <IN? .OBJ ,WINNER>>
+	       T)>)
+      ;(<AND ,PRSI
+	     <==? ,PRSO ,PRSI>>
+	;"VERB ALL and prso = prsi"
+	<RTRUE>)
+      ;(<AND <==? .VB ,V?PUT>
+	     <NOT <IN? .OBJ ,WINNER>>
+	     <HELD? ,PRSO ,PRSI>>
+	;"PUT ALL IN X and object already in x"
+	<RTRUE>)>>
+
+<ADD-WORD OPEN ADJ>
+<ADD-WORD CLOSED ADJ>
+<ADD-WORD SHUT ADJ>
+
+<DEFINE CHECK-ADJS CA (OBJ:OBJECT F ADJS:PMEM
+		       "AUX" CNT (TMP <>) OWNER (ID <>) VEC)
+  <SET OWNER <GETP .OBJ ,P?OWNER>>
+  <COND (<OR <PMEM-TYPE? .ADJS NP>	;"it's NP-OF"
+	     <SET TMP <ADJS-POSS .ADJS>>>
+	 <COND (<OBJECT? <SET ID .OWNER>>
+		<COND (<EQUAL? .OWNER .TMP .OBJ>
+		       T)
+		      (<EQUAL? .OWNER ,ROOMS ;"any">
+		       <SET ID <FIND-RES-OBJ1 ,OWNER-SR-HERE>> ;"real owner")
+		      (<ZERO? <SET TMP <FIND-RES-COUNT ,OWNER-SR-THERE>>>
+		       <RETURN <> .CA>)
+		      (<NOT <INTBL? .OWNER
+			       <REST-TO-SLOT ,OWNER-SR-THERE FIND-RES-OBJ1>
+			       .TMP>>
+		       <RETURN <> .CA>)>)
+	       (<T? .OWNER>	;"table for multiple owners (body parts)"
+		;<SET ID <>>
+		<COND (<AND ;<ZERO? .ID>
+			    <ZERO? <SET CNT <FIND-RES-COUNT ,OWNER-SR-HERE>>>
+			    ;<SET ID <INTBL? ,PLAYER .TMP <ZGET .OWNER 0>>>>
+		       <SET ID ,PLAYER>	;"default owner of body part"
+		       ;<SET ID <ZGET .ID 0>>)
+		      (T
+		       <SET TMP <ZREST .OWNER 2>>
+		       <SET VEC <REST-TO-SLOT ,OWNER-SR-HERE FIND-RES-OBJ1>>
+		       <REPEAT ()
+			<COND (<DLESS? CNT 0>
+			       <RETURN <> .CA>)
+			      (<SET ID
+				<INTBL? <ZGET .VEC 0> .TMP <ZGET .OWNER 0>>>
+			       <SET ID <ZGET .ID 0>>
+			       <RETURN>)
+			      (T <SET VEC <ZREST .VEC 2>>)>>)>)
+	       (<OBJECT? .TMP>		;"possession"
+		<COND (<NOT <HELD? .OBJ .TMP>>
+		       <RETURN <> .CA>)>)
+	       (T			;"possession"
+		<COND (<ZERO? <SET TMP <FIND-RES-COUNT ,OWNER-SR-HERE>>>
+		       <RETURN <> .CA>)
+		      (<NOT <SET ID <INTBL? <LOC .OBJ>
+				<REST-TO-SLOT ,OWNER-SR-HERE FIND-RES-OBJ1>
+				.TMP>>>
+		       <RETURN <> .CA>)
+		      ;(T <SET ID <ZGET .ID 0>>)>)>)>
+  <COND (<NOT <EQUAL? .ID 0 .OBJ>>	;<T? .ID>
+	 <FIND-RES-OWNER <FIND-RES .F> .ID>)>
+  <COND (<NOT <PMEM-TYPE? .ADJS NP>>
+	 <SET VEC <REST-TO-SLOT .ADJS ADJS-COUNT 1>>
+  <REPEAT ((CT <ADJS-COUNT .ADJS>) ADJ FL
+	   (OADJS <GETPT .OBJ ,P?ADJECTIVE>)
+	   (NUM </ <PTSIZE .OADJS>:FIX 2>))
+    <COND (<L? <SET CT <- .CT 1>> 0>
+	   <RETURN>)>
+    <COND
+     (T ;<CHECK-EXTENDED?>
+      <SET ADJ <ZGET .VEC .CT>>
+      <SET ID .ADJ>)
+     ;(T
+      <COND (<0? <SET ID <WORD-ADJ-ID <SET ADJ <ZGET .VEC .CT>>>>>
+	     <COND (<NOT <IF-MUDDLE <COND (<GASSIGNED? SPECIAL-ADJ-CHECK>
+					   <SPECIAL-ADJ-CHECK .ADJ .OBJ>)>
+				    <SPECIAL-ADJ-CHECK .ADJ .OBJ>>>
+		    <RETURN <> .CA>)>)>)>
+    <COND (<EQUAL? .ADJ ,W?NO.WORD>
+	   <AGAIN>)
+	  (<ZMEMQ .ID .OADJS .NUM>
+	   ;<COND (T ;<CHECK-EXTENDED?>
+		  )
+		 ;(T <ZMEMQB .ID .OADJS <- <PTSIZE .OADJS>:FIX 1>>)>)
+	  (<AND <EQUAL? .ID ,W?CLOSED ,W?SHUT>
+		<NOT <FSET? .OBJ ,OPENBIT>>>)
+	  (<AND <EQUAL? .ID ,W?OPEN>
+		<FSET? .OBJ ,OPENBIT>>)
+	  ;(<VERSION? (ZIP <>)
+		     (T
+		      <IF-MUDDLE <AND <GASSIGNED? SPECIAL-ADJ-CHECK>
+				      <SPECIAL-ADJ-CHECK .ADJ .OBJ>>
+				 <SPECIAL-ADJ-CHECK .ADJ .OBJ>>)>)
+	  (T
+	   <RETURN <> .CA>)>>)>
+  T>
+
+<OBJECT GENERIC-OBJECTS
+	(ADJACENT 0)	;"to establish property">
+
+<DEFINE FIND-OBJECTS ("OPT" (SEARCH:FIX
+			     <COND (<==? 1 <FIND-WHICH ,FINDER>>
+				    <SYNTAX-SEARCH <PARSE-SYNTAX ,PARSE-RESULT>
+						   1>)
+				   (T
+				    <SYNTAX-SEARCH <PARSE-SYNTAX ,PARSE-RESULT>
+						   2>)>)
+			    (PARENT:<OR OBJECT FALSE> <>)
+		      "AUX" GLBS (CONT? T) N:FIX (RES <FIND-RES ,FINDER>))
+  ;<MAKE-FIND-RES 'FIND-RES .RES 'FIND-RES-COUNT 0>
+  <FIND-RES-COUNT .RES 0>
+  <FIND-RES-NEXT .RES <>>
+  ;"Initialize world"
+  <COND (<AND .PARENT
+	      ;<NOT <IN? .PARENT ,GLOBAL-OBJECTS>>
+	      <OR <NOT <FIND-DESCENDANTS .PARENT
+				<ORB ,FD-INCLUDE? ,FD-SEARCH? ,FD-NEST?>;7>>
+		  <NOT <0? <FIND-RES-COUNT .RES>:FIX>>>>
+	 ;"In case we have `the foo in the bar' or `a picture on the wall'"
+	 ;<SET CONT? <>>
+	 T)
+	(T
+	  <COND (.PARENT
+		 <COND (<NOT <SET GLBS <FIND-ADJS ,FINDER>>>
+			<FIND-ADJS ,FINDER
+				  <SET GLBS <PMEM-ALLOC ADJS>>>)>
+		 <COND (<NOT <ADJS-POSS .GLBS>>
+			<ADJS-POSS .GLBS .PARENT>)>)>
+	  <COND (<AND <T? <ANDB .SEARCH ,SEARCH-MOBY ;128>>
+		      <F? <ANDB .SEARCH ,SEARCH-MUST-HAVE>>
+		      <FIRST? ,GENERIC-OBJECTS>
+		      ;<NOT <FIND-DESCENDANTS ,GENERIC-OBJECTS .SEARCH>>>
+		 <REPEAT ((OBJ <FIRST? ,GENERIC-OBJECTS>))
+			 <COND (<NOT <MATCH-OBJECT .OBJ ,FINDER T>>
+				<RETURN>)
+			       (<NOT <SET OBJ <NEXT? .OBJ>>>
+				<RETURN>)>>
+		 <COND (<NOT <0? <SET CONT? <FIND-RES-COUNT .RES>>:FIX>>
+			<RETURN <1? .CONT?:FIX>>)>)>
+	 <PROG ((LOSING? <>))
+	   <COND
+	    (<OR <AND <NOT .LOSING?>	;"redundant?"
+		      <NOT <0? <ANDB .SEARCH ,SEARCH-CARRIED ;12>>>>
+		 .LOSING?>
+	     <SET CONT?
+		  <FIND-DESCENDANTS ,WINNER
+		   <FD-FLAG FD-NOTOP?
+		    <FD-FLAG FD-INCLUDE?
+		     <FD-FLAG FD-NEST? ,FD-SEARCH?
+		      <OR .LOSING? ;"search pockets?"
+			  <NOT <0? <ANDB .SEARCH ,SEARCH-POCKETS ;8>>>>>
+		     <OR .LOSING?
+			 <NOT <0? <ANDB .SEARCH ,SEARCH-CARRIED ;12>>>>>
+		    <AND <NOT .LOSING?>
+			 <0? <ANDB .SEARCH ,SEARCH-HELD ;4>>>>>>)>
+	   <COND
+	    (<OR .LOSING?
+		 <NOT <0? <ANDB .SEARCH ,SEARCH-IN-ROOM ;3>>>>
+	     <SET CONT?
+		  <FIND-DESCENDANTS ,HERE
+		   <FD-FLAG FD-NOTOP?
+		    <FD-FLAG FD-NEST?
+		     <FD-FLAG FD-INCLUDE? ,FD-SEARCH?
+		      <AND ;,LIT
+			   <OR .LOSING?
+			       <NOT <0? <ANDB .SEARCH ,SEARCH-IN-ROOM ;3>>>>>>
+		     <OR .LOSING?
+			 <NOT <0? <ANDB .SEARCH ,SEARCH-OFF-GROUND ;2>>>>>
+		    <AND <NOT .LOSING?>
+			 <0? <ANDB .SEARCH ,SEARCH-ON-GROUND ;1>>>>>>)>
+	   <COND (<NOT <0? <FIND-RES-COUNT .RES>>>
+		  <RETURN>)
+		 (<AND <NOT <BTST .SEARCH ,SEARCH-ALL>>
+		       <NOT .LOSING?>>
+		  <COND (<AND <SET GLBS <LEXV-WORD ,TLEXV>>
+			      <OR <T? <WORD-CLASSIFICATION-NUMBER .GLBS>>
+				  <T? <WORD-SEMANTIC-STUFF .GLBS>>>>
+			 <SET LOSING? T>	;"not a sample command"
+			 <AGAIN>)
+			(<AND <BAND ,SEARCH-MUST-HAVE .SEARCH>
+			      <NOT <BAND ,SEARCH-MOBY .SEARCH>>>
+			 <RFALSE>)>)>
+	   <COND (<SET GLBS <GETPT ,HERE ,P?GLOBAL>>
+		  <COND (T ;<CHECK-EXTENDED?>
+			   <SET N </ <PTSIZE .GLBS>:FIX 2>>)
+			;(T <SET N <- <PTSIZE .GLBS>:FIX 1>>)>
+		  <REPEAT (O:OBJECT)
+		    <COND (<L? <SET N <- .N 1>> 0>
+			   <RETURN>)
+			  (<NOT <SET CONT?
+				     <MATCH-OBJECT
+				      <COND (T ;<CHECK-EXTENDED?>
+						<SET O <ZGET .GLBS .N>>)
+					    ;(T  <SET O <GETB .GLBS .N>>)>
+				      ,FINDER T>>>
+			   <RETURN>)
+			  (<AND <FIRST? .O>
+				<ZAPPLY ,SEARCH-IN-LG? .O>
+				<NOT <0? <ANDB .SEARCH ,SEARCH-OFF-GROUND>>>>
+			   <COND
+			    (<NOT
+			      <SET CONT?
+				   <FIND-DESCENDANTS .O ,FD-INCLUDE? ;1>>>
+			     <RETURN>)>)>>)>
+	   <COND (<AND .CONT?
+		       <NOT <EXCLUDE-HERE-OBJECT?>>>
+		  <SET CONT? <MATCH-OBJECT ,HERE ,FINDER T>>)>
+	   <COND (<AND .CONT? <GETP ,HERE ,P?THINGS>>
+		  <SET CONT? <ZAPPLY ,TEST-THINGS ,HERE ,FINDER>>)>
+	   <COND (<NOT <0? <FIND-RES-COUNT .RES>>>
+		  <SET CONT? <>>)>
+	   <COND (.CONT?
+		  <SET CONT?
+		       <FIND-DESCENDANTS ,GLOBAL-OBJECTS
+			<FD-FLAG FD-NEST? ,FD-INCLUDE?
+			 <NOT <0? <ANDB .SEARCH ,SEARCH-OFF-GROUND ;2>>>>
+			;<COND (<BTST .SEARCH 2> 5) (T 1)>>>)>
+	   <COND (<AND .CONT?
+		       <0? <FIND-RES-COUNT .RES>:FIX>
+		       ;<BTST .SEARCH ,SEARCH-ADJACENT>
+		       <SET GLBS <GETP ,HERE ,P?ADJACENT>>>
+		  <SET N <GETB .GLBS 0>>
+		  ;<SET LOSING? ,HERE>
+		  <REPEAT ((SCH <ANDB .SEARCH <XORB -1 ,SEARCH-ADJACENT>>))
+		    <COND (<T? <GETB .GLBS .N>>	;"room visible now?"
+			   ;<SETG HERE <GETB .GLBS <SET N <- .N 1>>>>
+			   <FIND-OBJECTS .SCH <GETB .GLBS <SET N <- .N 1>>>>)
+			  (T
+			   <SET N <- .N 1>>)>
+		    <COND (<L? <SET N <- .N 1>> 1>
+			   <RETURN>)>>
+		  ;<SETG HERE .LOSING?>
+		  <COND (<NOT <0? <FIND-RES-COUNT .RES>:FIX>>
+			 <SET CONT? <>>)>)>
+	   <COND
+	    (<AND .CONT?
+		  <0? <FIND-RES-COUNT .RES>:FIX>
+		  <ZAPPLY ,MOBY-FIND? .SEARCH>>
+	     <REPEAT ((OBJ 1))
+	         <COND (<AND <NOT <FSET? .OBJ ,INVISIBLE>>
+			     ;<NOT <IN? .OBJ ,ROOMS>>>
+			<COND (<NOT <MATCH-OBJECT .OBJ ,FINDER T>>
+			       <RETURN>)>)>
+		 <COND (<G? <SET OBJ <+ .OBJ 1>> ,LAST-OBJECT>
+			<RETURN>)>>)>>)>
+  ;<COND (<AND <L? 1 <FIND-RES-COUNT .RES>:FIX>
+	      <FIND-OF ,FINDER>>
+	 <MATCH-OF-OBJECTS .RES>)>
+  <1? <FIND-RES-COUNT .RES>:FIX>>
+
+<END-SEGMENT>
+<END-DEFINITIONS>
diff --git a/globals.zabstr b/globals.zabstr
new file mode 100644
index 0000000..2837a59
--- /dev/null
+++ b/globals.zabstr
@@ -0,0 +1,271 @@
+
+<INCLUDE "BASEDEFS" "FIND" "PDEFS"> 
+<ADJ-SYNONYM LARGE HUGE BIG GIANT GIGANTIC TREMENDOUS MIGHTY MASSIVE ENORMOUS> 
+<ADJ-SYNONYM SMALL SMALLER TINY TINIER LITTLE PETITE TEENSY WEENSY> 
+<GLOBAL LIT T> 
+<GLOBAL MOVES 0> 
+<GLOBAL SCORE 0> 
+<GLOBAL HERE:OBJECT BANQUET-HALL> 
+<OBJECT GLOBAL-OBJECTS (DESC "it") (FLAGS INVISIBLE TOUCHBIT SURFACEBIT
+TRYTAKEBIT OPENBIT SEARCHBIT TRANSBIT WEARBIT ONBIT LIGHTBIT RLANDBIT WORNBIT
+INTEGRALBIT VEHBIT OUTSIDEBIT CONTBIT VOWELBIT LOCKEDBIT NDESCBIT DOORBIT
+ACTORBIT PARTBIT INBIT FEMALEBIT KLUDGEBIT DROPBIT BURNBIT ORBBIT FLAMEBIT
+NALLBIT KEYBIT UNDERGROUNDBIT REDESCBIT)> 
+<OBJECT LOCAL-GLOBALS (LOC GLOBAL-OBJECTS) (DESC "it")> 
+<OBJECT ROOMS (DESC "it")> 
+<OBJECT INTNUM (LOC GLOBAL-OBJECTS) (DESC "number") (SYNONYM NUMBER NUMBERS
+INT.NUM) (ADJECTIVE INT.NUM INT.TIM) (ACTION INTNUM-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE INTNUM-F> 
+<END-SEGMENT> 
+<OBJECT IT (LOC GLOBAL-OBJECTS) (SYNONYM IT) (DESC "it") (FLAGS VOWELBIT
+NARTICLEBIT TOUCHBIT)> 
+<OBJECT HIM (LOC GLOBAL-OBJECTS) (SYNONYM HIM HIMSELF) (DESC "him") (FLAGS
+NARTICLEBIT TOUCHBIT)> 
+<OBJECT HER (LOC GLOBAL-OBJECTS) (SYNONYM HER HERSELF) (DESC "her") (FLAGS
+NARTICLEBIT TOUCHBIT)> 
+<OBJECT LEFT-RIGHT (LOC GLOBAL-OBJECTS) (DESC "that way") (SYNONYM LEFT RIGHT)
+(FLAGS NARTICLEBIT) (ACTION LEFT-RIGHT-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE LEFT-RIGHT-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT GRUE (LOC GLOBAL-OBJECTS) (SYNONYM GRUE GRUES) (ADJECTIVE LURKING
+SINISTER HUNGRY SILENT) (DESC "lurking grue") (RESEARCH
+"\"The grue was once a sinister, lurking presence in the dark places of the
+earth. Its favorite diet was adventurers, but its insatiable appetite was
+tempered by its fear of light. No grue was ever seen by the light of day,
+and few ever survived its fearsome jaws to tell the tale.\"|
+   The encyclopedia goes on to say, \"Grues were eradicated from the face of
+the world during the time of Entharion, many by his own hand and his legendary
+blade Grueslayer. Although it has now been many a century since the last grue
+sighting, old hags still delight in scaring children by telling them that
+grues still lurk in the bottomless pits of the Empire, and will one day lurk
+forth again.\"") (ACTION GRUE-F)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE GRUE-F> 
+<OBJECT SAILOR (LOC GLOBAL-OBJECTS) (DESC "sailor") (SYNONYM SAILOR) (ACTION
+SAILOR-F)> 
+<DEFINE-ROUTINE SAILOR-F> 
+<OBJECT GLOBAL-SLEEP (LOC GLOBAL-OBJECTS) (DESC "sleep") (SYNONYM SLEEP NAP
+SNOOZE) (FLAGS NARTICLEBIT) (ACTION GLOBAL-SLEEP-F)> 
+<DEFINE-ROUTINE GLOBAL-SLEEP-F> 
+<OBJECT LULLABY (LOC GLOBAL-OBJECTS) (DESC "lullaby") (SYNONYM LULLABY LULLABYE
+SONG) (ACTION LULLABY-F)> 
+<DEFINE-ROUTINE LULLABY-F> 
+<OBJECT GROUND (LOC GLOBAL-OBJECTS) (SYNONYM FLOOR GROUND SAND) (SDESC "ground"
+) (ACTION GROUND-F)> 
+<DEFINE-ROUTINE GROUND-F> 
+<DEFINE-ROUTINE SET-GROUND-DESC> 
+<OBJECT GLOBAL-HOLE (LOC GLOBAL-OBJECTS) (DESC "hole") (SYNONYM HOLE) (ACTION
+GLOBAL-HOLE-F)> 
+<DEFINE-ROUTINE GLOBAL-HOLE-F> 
+<OBJECT WALL (LOC GLOBAL-OBJECTS) (DESC "wall") (SYNONYM WALL WALLS) (ADJECTIVE
+NORTH NE EAST SE SOUTH SW WEST NW REAR FAR) (FLAGS NDESCBIT TOUCHBIT) (ACTION
+WALL-F)> 
+<DEFINE-ROUTINE WALL-F> 
+<DEFINE-ROUTINE PASSAGE-THERE> 
+<DEFINE-ROUTINE REPELLED> 
+<OBJECT GLOBAL-PASSAGE (LOC GLOBAL-OBJECTS) (DESC "passage") (SYNONYM PASSAGE
+PASSAGEWAY TUNNEL) (ADJECTIVE GLOOMY DARK SECRET HIDDEN WIDE NARROW LOW STEEP
+SLOPING DUSTY UNEVEN WINDING FORBIDDING GRAVELLY HALF-BURIED HIGHWAY POORLY-DUG
+) (ACTION GLOBAL-PASSAGE-F)> 
+<DEFINE-ROUTINE GLOBAL-PASSAGE-F> 
+<OBJECT CEILING (LOC GLOBAL-OBJECTS) (FLAGS NDESCBIT TOUCHBIT) (DESC "ceiling")
+(SYNONYM CEILING ROOF) (ADJECTIVE LOW HIGH) (ACTION CEILING-F)> 
+<DEFINE-ROUTINE CEILING-F> 
+<OBJECT SLIME (LOC LOCAL-GLOBALS) (DESC "slime") (SYNONYM SLIME) (ADJECTIVE
+THICK BLACK) (FLAGS NARTICLEBIT) (ACTION SLIME-F)> 
+<DEFINE-ROUTINE SLIME-F> 
+<OBJECT WATER (LOC GLOBAL-OBJECTS) (DESC "water") (SYNONYM WATER WATERS GLOOP
+GLOOPS) (ADJECTIVE ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE INT.NUM) (FLAGS
+NARTICLEBIT) (GENERIC G-VIAL-WATER-F) (OWNER <>) (ACTION WATER-F)> 
+<DEFINE-ROUTINE WATER-F> 
+<DEFINE-ROUTINE FIND-WATER> 
+<OBJECT SMALL-VIAL-WATER (DESC "water in the small vial") (SYNONYM WATER GLOOP
+GLOOPS) (ADJECTIVE ONE TWO THREE FOUR INT.NUM) (FLAGS NARTICLEBIT) (GENERIC
+G-VIAL-WATER-F) (ACTION VIAL-WATER-F)> 
+<OBJECT LARGE-VIAL-WATER (DESC "water in the large vial") (SYNONYM WATER GLOOP
+GLOOPS) (ADJECTIVE ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE INT.NUM) (FLAGS
+NARTICLEBIT) (GENERIC G-VIAL-WATER-F) (ACTION VIAL-WATER-F)> 
+<DEFINE-ROUTINE VIAL-WATER-F> 
+<DEFINE-ROUTINE G-VIAL-WATER-F> 
+<CONSTANT BODY-PART-OWNERS <TABLE (PURE LENGTH) PROTAGONIST DIMWIT JESTER
+EXECUTIONER SICKLY-WITCH PRICKLY-WITCH>> 
+<OBJECT HANDS (LOC GLOBAL-OBJECTS) (SYNONYM HANDS HAND PALM FINGER FINGERS) (
+ADJECTIVE BARE YOUR) (DESC "hands") (OWNER BODY-PART-OWNERS) (FLAGS NDESCBIT
+PLURALBIT TOUCHBIT PARTBIT) (ACTION HANDS-F)> 
+<DEFINE-ROUTINE HANDS-F> 
+<DEFINE-ROUTINE OPEN-SECRET-PASSAGE?> 
+<OBJECT FEET (LOC GLOBAL-OBJECTS) (SYNONYM FEET FOOT TOE TOES) (ADJECTIVE YOUR)
+(DESC "feet") (OWNER BODY-PART-OWNERS) (FLAGS NDESCBIT PLURALBIT TOUCHBIT
+PARTBIT) (ACTION FEET-F)> 
+<DEFINE-ROUTINE FEET-F> 
+<OBJECT HEAD (LOC GLOBAL-OBJECTS) (DESC "head") (SYNONYM HEAD) (OWNER
+BODY-PART-OWNERS) (FLAGS PARTBIT)> 
+<OBJECT EYES (LOC GLOBAL-OBJECTS) (DESC "eyes") (SYNONYM EYE EYES) (ADJECTIVE
+MY MINE ORACLE\'S AMULET\'S FIRST SECOND THIRD FOURTH ONE TWO THREE FOUR) (
+OWNER BODY-PART-OWNERS) (FLAGS PLURALBIT PARTBIT) (ACTION EYES-F)> 
+<DEFINE-ROUTINE EYES-F> 
+<OBJECT NOSE (LOC GLOBAL-OBJECTS) (DESC "nose") (SYNONYM NOSE NOSTRIL) (
+ADJECTIVE YOUR) (OWNER BODY-PART-OWNERS) (FLAGS PARTBIT) (ACTION NOSE-F)> 
+<DEFINE-ROUTINE NOSE-F> 
+<OBJECT MOUTH (LOC GLOBAL-OBJECTS) (DESC "mouth") (SYNONYM MOUTH) (ADJECTIVE
+YOUR) (OWNER BODY-PART-OWNERS) (FLAGS PARTBIT) (ACTION MOUTH-F)> 
+<DEFINE-ROUTINE MOUTH-F> 
+<OBJECT PROTAGONIST (LOC BANQUET-HALL) (DESC "self") (SIZE 1) (FLAGS NDESCBIT
+TRANSBIT SEARCHBIT)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT ME (LOC GLOBAL-OBJECTS) (SYNONYM ME MYSELF SELF) (DESC "yourself") (
+FLAGS TOUCHBIT NARTICLEBIT) (RESEARCH
+"Son of a gun! There's no entry about you! This is one worthless
+encyclopedia, huh? Why, you're about as famous as they come! At
+least a third of the people in your village have heard of you, for
+instance...") (ACTION ME-F)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE ME-F> 
+<OBJECT GLOBAL-HERE (LOC GLOBAL-OBJECTS) (DESC "room") (SYNONYM ROOM PLACE
+LOCATION!-PDEFS!-PACKAGE HALL AREA THERE HERE) (ACTION GLOBAL-HERE-F)> 
+<DEFINE-ROUTINE GLOBAL-HERE-F> 
+<OBJECT GLOBAL-BLDG (LOC LOCAL-GLOBALS) (DESC "building") (SYNONYM BUILDING
+CLUSTER) (ADJECTIVE NEW SMALL STONE IMPRESSIVE) (ACTION GLOBAL-BLDG-F)> 
+<DEFINE-ROUTINE GLOBAL-BLDG-F> 
+<OBJECT ARCH (LOC LOCAL-GLOBALS) (DESC "arch") (SYNONYM ARCH ARCHWAY) (
+ADJECTIVE STONE CRUMBLING) (FLAGS VOWELBIT) (ACTION ARCH-F)> 
+<DEFINE-ROUTINE ARCH-F> 
+<OBJECT WINDOW (LOC LOCAL-GLOBALS) (DESC "window") (SYNONYM WINDOW WINDOWS
+GLASS PANE PANES) (ADJECTIVE NARROW WIDER SLITTED GLASS BROKEN WINDOW) (FLAGS
+NDESCBIT) (ACTION WINDOW-F)> 
+<DEFINE-ROUTINE WINDOW-F> 
+<OBJECT LOCK-OBJECT (LOC LOCAL-GLOBALS) (DESC "lock") (SYNONYM LOCK KEYHOLE
+HOLE) (ADJECTIVE LARGE BASIC COMBINATION KEY) (ACTION LOCK-OBJECT-F)> 
+<DEFINE-ROUTINE LOCK-OBJECT-F> 
+<OBJECT SIGN (LOC LOCAL-GLOBALS) (DESC "sign") (SYNONYM SIGN) (ADJECTIVE LARGE
+EYE-CATCHING) (FLAGS READBIT) (ACTION SIGN-F)> 
+<DEFINE-ROUTINE SIGN-F> 
+<OBJECT STAIRS (LOC LOCAL-GLOBALS) (DESC "stair") (SYNONYM FLIGHT STAIR STAIRS
+STAIRWAY STEP STEPS STAIRCASE GANGWAY) (ADJECTIVE STEEP OMINOUS DARK WIDE STONE
+CIRCULAR WINDING SPIRAL COBWEBBY CRUDE FORBIDDING DECREPIT) (ACTION STAIRS-F)> 
+<DEFINE-ROUTINE STAIRS-F> 
+<OBJECT FIXED-LADDER (LOC LOCAL-GLOBALS) (DESC "ladder") (SYNONYM LADDER) (
+ADJECTIVE RICKETY) (ACTION FIXED-LADDER-F)> 
+<DEFINE-ROUTINE FIXED-LADDER-F> 
+<OBJECT BONES (LOC LOCAL-GLOBALS) (OWNER BONES) (DESC "pile of old bones") (
+SYNONYM BONE BONES PILE CREATURE ADVENTURER SKELETON SKELETONS) (ADJECTIVE
+ADVENTURER CREATURE OLD) (FLAGS NDESCBIT) (ACTION BONES-F)> 
+<DEFINE-ROUTINE BONES-F> 
+<DEFINE-ROUTINE CLEAR-BORDER> 
+<DEFINE-ROUTINE ADJUST-TEXT-WINDOW> 
+<DEFINE-ROUTINE SPLIT-BY-PICTURE> 
+<DEFINE-ROUTINE INIT-SL-WITH-SPLIT> 
+<REPLACE-DEFINITION STATUS-LINE <ROUTINE INIT-STATUS-LINE>> 
+<DEFINE-ROUTINE SET-BORDER> 
+<DEFINE-ROUTINE PRINT-SPACES> 
+<CONSTANT SLINE <ITABLE NONE 41>> 
+<GLOBAL OLD-HERE <>> 
+<GLOBAL OLD-REGION <>> 
+<GLOBAL SL-SCORE -1> 
+<GLOBAL WIDTH 0> 
+<GLOBAL COMPASS-CHANGED T> 
+<CONSTANT TITLE-SCREEN-PICTURE 1> 
+<GLOBAL ACTIVE-MOUSE <>> 
+<GLOBAL CURRENT-SPLIT <>> 
+<DEFINE-ROUTINE UPDATE-STATUS-LINE> 
+<CONSTANT COMPASS-PICSET-TBL <TABLE N-HL NE-HL E-HL SE-HL S-HL SW-HL W-HL NW-HL
+N-UNHL NE-UNHL E-UNHL SE-UNHL S-UNHL SW-UNHL W-UNHL NW-UNHL U-BOX D-BOX
+BOX-COVER 0>> 
+<DEFINE-ROUTINE DRAW-COMPASS-ROSE> 
+<DEFINE-ROUTINE SHOW-DIRECTION?> 
+<DEFINE-ROUTINE COMPASS-CLICK> 
+<DEFINE-ROUTINE MAC-CLICK> 
+<CONSTANT TANGENT-VALUE 41> 
+<DEFINE-ROUTINE MAC-II-CLICK> 
+<DEFINE-ROUTINE SAY-HERE> 
+<DEFINE-ROUTINE CENTER-1> 
+<DEFINE-ROUTINE CENTER-2> 
+<DEFINE-ROUTINE CENTER-3> 
+<DEFINE-ROUTINE TOUCHING?> 
+<DEFINE-ROUTINE HANDLE> 
+<DEFINE-ROUTINE CANT-SEE> 
+<DEFINE-ROUTINE PRSO-PRINT> 
+<DEFINE-ROUTINE PRSI-PRINT> 
+<DEFINE-ROUTINE CANT-VERB-A-PRSO> 
+<DEFINE-ROUTINE TELL-HIT-HEAD> 
+<DEFINE-ROUTINE OPEN-CLOSED> 
+<DEFINE-ROUTINE CANT-REACH> 
+<DEFINE-ROUTINE DO-FIRST> 
+<DEFINE-ROUTINE NOT-IN> 
+<DEFINE-ROUTINE PART-OF> 
+<DEFINE-ROUTINE RECOGNIZE> 
+<DEFINE-ROUTINE PRONOUN> 
+<DEFINE-ROUTINE HIT-ANY-KEY> 
+<DEFINE-ROUTINE LOCKED-UNLOCKED> 
+<DEFINE-ROUTINE CANT-TURN> 
+<DEFINE-ROUTINE YOU-MUST-TELL-ME> 
+<DEFINE-ROUTINE GRUE-PIT-WARNING> 
+<DEFINE-ROUTINE DARK-DEATH> 
+<CONSTANT TOO-DARK "It's too dark to see a thing."> 
+<CONSTANT YNH "You're not holding"> 
+<CONSTANT THERES-NOTHING "There's nothing "> 
+<CONSTANT YOU-SEE "You can see"> 
+<CONSTANT IT-SEEMS-THAT "It seems that"> 
+<CONSTANT YOU-CANT-SEE-ANY "[You can't see any "> 
+<CONSTANT YOU-CANT "You can't "> 
+<CONSTANT YOULL-HAVE-TO "You'll have to "> 
+<CONSTANT LOOK-AROUND "Look around you.|"> 
+<CONSTANT CANT-FROM-HERE "You can't do that from here.|"> 
+<CONSTANT HOLDING-IT "You're holding it!|"> 
+<CONSTANT PERIOD-CR ".|"> 
+<CONSTANT ELLIPSIS "...||"> 
+<CONSTANT FAILED "Failed.|"> 
+<CONSTANT OK "Okay.|"> 
+<CONSTANT HUH "Huh?|"> 
+<CONSTANT NOTHING-HAPPENS "Nothing happens.|"> 
+<CONSTANT ALREADY-IS "It already is!|"> 
+<CONSTANT NOTHING-NEW "This reveals nothing new.|"> 
+<CONSTANT ONLY-BLACKNESS "You see only blackness.|"> 
+<CONSTANT NO-VERB "[There was no verb in that sentence!]|"> 
+<CONSTANT WEARING-IT "You're wearing it!|"> 
+<CONSTANT YACHT-MOORED "; the royal yacht is moored at the dock"> 
+<CONSTANT WHICH-WATER
+"[You'll have to specify which water you mean by referring to the vial
+that contains it.]|"> 
+<CONSTANT MEGABOZ-CEILING-DESC
+"In the center of the ceiling, a small trap door is visible."> 
+<CONSTANT CELL-WALL-DESC "Thick cobwebs obscure the rear wall."> 
+<CONSTANT POORLY-CONFIGURED
+"You nearly make it, but the branches are just too poorly configured for
+climbing.|"> 
+<CONSTANT CANNOT-TRAVEL "\"I regret that I cannot travel that way.\"|"> 
+<CONSTANT ANSWER-MY-RIDDLE "\"You'll have to answer my riddle first!\"|"> 
+<CONSTANT SOME-LIGHT "You can see some light through the crack.|"> 
+<CONSTANT TYPE-A-NUMBER "Please type a number between 1 and "> 
+<CONSTANT DROWN "   Since you have no diving gear, and you are not amphibious, you drown
+in a swift but still unpleasant fashion."> 
+<CONSTANT FUDGE "A faint smell of fudge hangs in the air."> 
+<CONSTANT TALK-TO-BROGMOID
+"The brogmoid could no more hear your shouting than you could hear the
+shouting of a bacterium.|"> 
+<CONSTANT ALREADY-AT "You're already at the "> 
+<CONSTANT WITCH-REMOVES-J
+" Immediately, the witches begin beating at the jester with brushes and
+broomsticks. \"Scat, you filthy jester, scat!\" He vanishes hastily.|"> 
+<CONSTANT BY-THAT-NAME "There's no one here by that name.|"> 
+<CONSTANT NOTHING-IN-REACH "You reach in as far as you can, but feel nothing.|"
+> 
+<CONSTANT WONT-BUDGE "It won't budge.|"> 
+<CONSTANT COOK-DESC
+"garbed in a white apron and wearing a puffy white chef's hat."> 
+<CONSTANT BOOKKEEPER-DESC
+"is hunched over one of the desks, wearing suspenders, a bow tie, thick
+eyeglasses, and a green visor."> 
+<CONSTANT ERE-YOU-PASS
+"\"'Ere you pass to the west, you must first pass this test! Show me an object
+which no one has ever seen before and which no one will ever see again!\"|"> 
+<CONSTANT CARPENTERS
+"Not a chance -- unless you have a team of carpenters in your pocket.|"> 
+<CONSTANT DEEPLY-ROOTED "The spenseweed is deeply rooted.|"> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/globals.zap b/globals.zap
new file mode 100644
index 0000000..1062679
--- /dev/null
+++ b/globals.zap
@@ -0,0 +1,2131 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	INTNUM-F,X
+	EQUAL?	HERE,CONSTRUCTION \FALSE
+	CALL	NOUN-USED?,INTNUM,W?NUMBER
+	ZERO?	STACK /FALSE
+	PRINTI	"The number engraved on the wall is """
+	PRINTN	CONSTRUCTION-LOC
+	PRINTR	"."""
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	LEFT-RIGHT-F
+	EQUAL?	PRSA,V?CHASTISE \?CCL3
+	PRINTR	"You see nothing unusual."
+?CCL3:	EQUAL?	PRSA,V?ENTER,V?WALK-TO,V?WALK \?CCL5
+	EQUAL?	HERE,WEIRD \?CCL8
+	CALL	NOUN-USED?,LEFT-RIGHT,W?LEFT
+	ZERO?	STACK /?CCL8
+	EQUAL?	TOWER-BEATEN,PYRAMID-L \?CCL8
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL8:	EQUAL?	HERE,WEIRD \?CCL13
+	CALL	NOUN-USED?,LEFT-RIGHT,W?RIGHT
+	ZERO?	STACK /?CCL13
+	EQUAL?	TOWER-BEATEN,PYRAMID-R \?CCL13
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL13:	EQUAL?	HERE,TESTING-ROOM \?CCL18
+	CALL	NOUN-USED?,LEFT-RIGHT,W?RIGHT
+	ZERO?	STACK /?CCL21
+	PUSH	RIGHT-BOOTH
+	JUMP	?CND19
+?CCL21:	PUSH	LEFT-BOOTH
+?CND19:	CALL	PERFORM,V?ENTER,STACK
+	RSTACK	
+?CCL18:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?SET \FALSE
+	PRINTR	"You turn ninety degrees, with little effect."
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	GRUE-F
+	EQUAL?	PRSA,V?FIND,V?EXAMINE \FALSE
+	FSET?	LANTERN,TRYTAKEBIT \?CCL6
+	PRINTR	"Don't be silly! There haven't been grues around for centuries!"
+?CCL6:	PRINTI	"There is no grue here, but I'm sure there is at least one lurking in the darkness nearby."
+	CALL	FIND-IN,PROTAGONIST,ONBIT
+	ZERO?	STACK /FALSE
+	FSET?	HERE,ONBIT /FALSE
+	PRINTR	" I wouldn't let my light go out if I were you!"
+
+
+	.FUNCT	SAILOR-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	EQUAL?	PRSA,V?HELLO \?CCL6
+	PRINTR	"Nothing happens here."
+?CCL6:	CALL2	CANT-SEE,SAILOR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?WAIT-FOR \?CCL8
+	PRINTR	"You are liable to be waiting for several sequels."
+?CCL8:	CALL2	HANDLE,SAILOR
+	ZERO?	STACK /FALSE
+	EQUAL?	PRSA,V?HELLO,V?TELL /FALSE
+	CALL2	CANT-SEE,SAILOR
+	RSTACK	
+
+
+	.FUNCT	GLOBAL-SLEEP-F
+	EQUAL?	PRSA,V?TAKE,V?WALK-TO \?CCL3
+	CALL1	V-SLEEP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUT-TO \FALSE
+	EQUAL?	PRSI,GLOBAL-SLEEP \FALSE
+	EQUAL?	PRSO,BEDBUG \?CCL10
+	PRINTI	"You sing a brief lullaby. "
+	CALL2	REMOVE-BEDBUG,STR?194
+	RSTACK	
+?CCL10:	PRINTR	"You're not a hypnotist."
+
+
+	.FUNCT	LULLABY-F,ACTOR
+	EQUAL?	PRSA,V?SING \?CCL3
+	ZERO?	PRSI \?CND4
+	IN?	BEDBUG,HERE \?CCL8
+	SET	'PRSI,BEDBUG
+	JUMP	?CND4
+?CCL8:	CALL	FIND-IN,HERE,ACTORBIT >ACTOR
+	ZERO?	ACTOR /?CCL10
+	SET	'PRSI,ACTOR
+?CND4:	EQUAL?	PRSI,BEDBUG \?CCL13
+	ICALL	PERFORM,V?PUT-TO,BEDBUG,GLOBAL-SLEEP
+	RTRUE	
+?CCL10:	PRINTR	"[If you put me to sleep, you'd have a heck of a time communicating with the game! By the way, don't expect any offers from the Borphee Opera Company.]"
+?CCL13:	FSET?	PRSI,ACTORBIT \?CCL15
+	PRINTI	"Despite your best rendition,"
+	ICALL1	TPRINT-PRSI
+	PRINTR	" remains awake."
+?CCL15:	PRINTI	"Amazingly,"
+	ICALL1	TPRINT-PRSI
+	PRINTR	" is now motionless! You must have put it right to sleep! Incredible! What a talent!"
+?CCL3:	EQUAL?	PRSA,V?PLAY \FALSE
+	IN?	BEDBUG,HERE \?CCL20
+	CALL	NOUN-USED?,LULLABY,W?LULLABY,W?LULLABYE
+	ZERO?	STACK /?CCL20
+	ICALL	PERFORM,V?PUT-TO,BEDBUG,GLOBAL-SLEEP
+	RTRUE	
+?CCL20:	CALL	ULTIMATELY-IN?,VIOLIN,PROTAGONIST
+	ZERO?	STACK /?CCL24
+	PRINTI	"[with"
+	ICALL2	TPRINT,VIOLIN
+	PRINTC	93
+	CRLF	
+	CALL2	PERFORM-PRSA,VIOLIN
+	RSTACK	
+?CCL24:	IN?	HARMONICA,PROTAGONIST \?CCL26
+	PRINTI	"[with"
+	ICALL2	TPRINT,HARMONICA
+	PRINTC	93
+	CRLF	
+	CALL2	PERFORM-PRSA,HARMONICA
+	RSTACK	
+?CCL26:	PRINTR	"You have no instrument to play it on."
+
+
+	.FUNCT	GROUND-F
+	ICALL1	SET-GROUND-DESC
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	EQUAL?	HERE,OUBLIETTE \?CCL6
+	PRINTR	"Mud. Squishy mud."
+?CCL6:	EQUAL?	HERE,PITS \?CCL8
+	ICALL	PERFORM,V?EXAMINE,PITS-OBJECT
+	RTRUE	
+?CCL8:	EQUAL?	HERE,TIGHT-SQUEEZE \FALSE
+	PRINTR	"You see a man-sized opening through which cool air seems to flow."
+?CCL3:	EQUAL?	PRSA,V?LOOK-UNDER \?CCL12
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL12:	EQUAL?	PRSA,V?CLIMB,V?CLIMB-ON,V?CLIMB-UP /?CTR13
+	EQUAL?	PRSA,V?ENTER \?CCL14
+?CTR13:	CALL1	WASTES
+	RSTACK	
+?CCL14:	EQUAL?	PRSA,V?LEAVE \FALSE
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+
+
+	.FUNCT	SET-GROUND-DESC
+	FSET?	HERE,OUTSIDEBIT \?CCL3
+	PUTP	GROUND,P?SDESC,STR?195
+	RTRUE	
+?CCL3:	FSET?	HERE,DESERTBIT \?CCL5
+	PUTP	GROUND,P?SDESC,STR?196
+	RTRUE	
+?CCL5:	PUTP	GROUND,P?SDESC,STR?197
+	RTRUE	
+
+
+	.FUNCT	GLOBAL-HOLE-F
+	EQUAL?	PRSA,V?DIG \?CCL3
+	EQUAL?	PRSO,GLOBAL-HOLE \?CCL3
+	ZERO?	PRSI /?CCL8
+	EQUAL?	PRSI,SHOVEL \?CCL11
+	CALL	PERFORM-PRSA,GROUND,SHOVEL
+	RSTACK	
+?CCL11:	CALL2	ULTIMATELY-IN?,SHOVEL
+	ZERO?	STACK /?CCL13
+	PRINTI	"[with the shovel]"
+	CRLF	
+	CALL	PERFORM-PRSA,PRSI,SHOVEL
+	RSTACK	
+?CCL13:	PRINTI	"[with your hands]"
+	CRLF	
+	CALL	PERFORM-PRSA,PRSI,HANDS
+	RSTACK	
+?CCL8:	CALL2	ULTIMATELY-IN?,SHOVEL
+	ZERO?	STACK /?CCL15
+	PRINTI	"[with the shovel]"
+	CRLF	
+	CALL	PERFORM-PRSA,GROUND,SHOVEL
+	RSTACK	
+?CCL15:	PRINTI	"[with your hands]"
+	CRLF	
+	CALL	PERFORM-PRSA,GROUND,HANDS
+	RSTACK	
+?CCL3:	CALL2	HANDLE,GLOBAL-HOLE
+	ZERO?	STACK /FALSE
+	CALL2	CANT-SEE,GLOBAL-HOLE
+	RSTACK	
+
+
+	.FUNCT	WALL-F,CNT
+	EQUAL?	PRSA,V?EXAMINE,V?READ \?CCL3
+	EQUAL?	HERE,CHURCH \?CCL6
+	ICALL	PERFORM,V?READ,TENET
+	RTRUE	
+?CCL6:	EQUAL?	HERE,CELL \FALSE
+	IN?	COBWEBS,CELL \FALSE
+	PRINT	CELL-WALL-DESC
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLEAN \?CCL12
+	EQUAL?	HERE,CELL \?CCL12
+	CALL	ADJ-USED?,WALL,W?REAR
+	ZERO?	STACK /?CCL12
+	IN?	COBWEBS,CELL \?CCL12
+	ICALL	PERFORM,V?CLEAN,COBWEBS
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?THROW-OVER \?CCL18
+	EQUAL?	HERE,PERIMETER-WALL \?CCL21
+	PRINTR	"Babe Flathead himself couldn't toss something over this towering wall!"
+?CCL21:	PRINTR	"The wall joins the ceiling!"
+?CCL18:	EQUAL?	PRSA,V?PUT-ON,V?PUT \FALSE
+	EQUAL?	PRSO,NW-SE-PASSAGE,N-S-PASSAGE \FALSE
+	CALL	ADJ-USED?,WALL,FALSE-VALUE
+	ZERO?	STACK /?CCL28
+	SET	'P-WON,FALSE-VALUE
+	PRINTR	"[You didn't specify which wall you meant: EAST WALL for example.]"
+?CCL28:	EQUAL?	PRSO,N-S-PASSAGE \?PRD32
+	CALL	ADJ-USED?,WALL,W?NORTH,W?N
+	ZERO?	STACK \?PRD32
+	CALL	ADJ-USED?,WALL,W?SOUTH,W?S
+	ZERO?	STACK /?CTR29
+?PRD32:	EQUAL?	PRSO,NW-SE-PASSAGE \?CCL30
+	CALL	ADJ-USED?,WALL,W?NORTHWEST,W?NW
+	ZERO?	STACK \?CCL30
+	CALL	ADJ-USED?,WALL,W?SOUTHEAST,W?SE
+	ZERO?	STACK \?CCL30
+?CTR29:	PRINT	YOU-CANT
+	PRINTI	"install the passage on that wall--it's"
+	CALL2	ARPRINT,PRSO
+	RSTACK	
+?CCL30:	CALL1	PASSAGE-THERE
+	ZERO?	STACK \TRUE
+	EQUAL?	HERE,GONDOLA,HOLD /?CTR41
+	LOC	PROTAGONIST
+	EQUAL?	STACK,YACHT,DB \?CCL42
+?CTR41:	PRINTR	"A built-in safety feature prevents the passage from being installed in a vehicle."
+?CCL42:	MOVE	PRSO,HERE
+	FCLEAR	PRSO,TAKEBIT
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PUTP	PRSO,P?OWNER,WALL
+	PRINTI	"There's now a passage leading "
+	EQUAL?	PRSO,N-S-PASSAGE \?CCL47
+	EQUAL?	HERE,CONSTRUCTION \?CND48
+	SET	'N-S-PASSAGE-LOC,CONSTRUCTION-LOC
+?CND48:	CALL	ADJ-USED?,WALL,W?NORTH,W?N
+	ZERO?	STACK /?CCL52
+	SET	'N-S-PASSAGE-DIR,P?NORTH
+	EQUAL?	HERE,CONSTRUCTION \?CND53
+	LESS?	CONSTRUCTION-LOC,8 /?CND53
+	ADD	CONSTRUCTION-LOC,100
+	PUT	NORTH-EXITS,0,STACK
+?PRG57:	GET	STORAGE-TABLE,CNT
+	ZERO?	STACK \?CCL61
+	SUB	CONSTRUCTION-LOC,8
+	ADD	STACK,CONSTRUCTION-OFFSET
+	PUT	STORAGE-TABLE,CNT,STACK
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,N-S-PASSAGE
+?CND53:	PRINTI	"nor"
+	JUMP	?CND50
+?CCL61:	ADD	CNT,2 >CNT
+	JUMP	?PRG57
+?CCL52:	SET	'N-S-PASSAGE-DIR,P?SOUTH
+	EQUAL?	HERE,CONSTRUCTION \?CND62
+	GRTR?	CONSTRUCTION-LOC,55 /?CND62
+	ADD	CONSTRUCTION-LOC,108
+	PUT	NORTH-EXITS,0,STACK
+?PRG66:	GET	STORAGE-TABLE,CNT
+	ZERO?	STACK \?CCL70
+	ADD	CONSTRUCTION-LOC,8
+	ADD	STACK,CONSTRUCTION-OFFSET
+	PUT	STORAGE-TABLE,CNT,STACK
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,N-S-PASSAGE
+?CND62:	PRINTI	"sou"
+?CND50:	PRINTR	"th from the room."
+?CCL70:	ADD	CNT,2 >CNT
+	JUMP	?PRG66
+?CCL47:	EQUAL?	HERE,CONSTRUCTION \?CND71
+	SET	'NW-SE-PASSAGE-LOC,CONSTRUCTION-LOC
+?CND71:	CALL	ADJ-USED?,WALL,W?NORTHWEST,W?NW
+	ZERO?	STACK /?CCL75
+	SET	'NW-SE-PASSAGE-DIR,P?NW
+	EQUAL?	HERE,CONSTRUCTION \?CND76
+	MOD	CONSTRUCTION-LOC,8
+	ZERO?	STACK /?CND76
+	LESS?	CONSTRUCTION-LOC,8 /?CND76
+	ADD	CONSTRUCTION-LOC,91
+	PUT	SE-EXITS,0,STACK
+?PRG82:	GET	STORAGE-TABLE,CNT
+	ZERO?	STACK \?CCL86
+	SUB	CONSTRUCTION-LOC,9
+	ADD	STACK,CONSTRUCTION-OFFSET
+	PUT	STORAGE-TABLE,CNT,STACK
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,NW-SE-PASSAGE
+?CND76:	PRINTI	"northwe"
+	JUMP	?CND73
+?CCL86:	ADD	CNT,2 >CNT
+	JUMP	?PRG82
+?CCL75:	SET	'NW-SE-PASSAGE-DIR,P?SE
+	EQUAL?	HERE,CONSTRUCTION \?CND87
+	MOD	CONSTRUCTION-LOC,8
+	EQUAL?	STACK,7 /?CND87
+	GRTR?	CONSTRUCTION-LOC,55 /?CND87
+	ADD	CONSTRUCTION-LOC,100
+	PUT	SE-EXITS,0,STACK
+?PRG93:	GET	STORAGE-TABLE,CNT
+	ZERO?	STACK \?CCL97
+	ADD	CONSTRUCTION-LOC,9
+	ADD	STACK,CONSTRUCTION-OFFSET
+	PUT	STORAGE-TABLE,CNT,STACK
+	ADD	CNT,1
+	PUT	STORAGE-TABLE,STACK,NW-SE-PASSAGE
+?CND87:	PRINTI	"southea"
+?CND73:	PRINTR	"st from the room."
+?CCL97:	ADD	CNT,2 >CNT
+	JUMP	?PRG93
+
+
+	.FUNCT	PASSAGE-THERE,PASSAGE?
+	CALL	ADJ-USED?,WALL,W?NORTH,W?N
+	ZERO?	STACK /?CCL3
+	EQUAL?	HERE,PEG-ROOM \?CCL6
+	ZERO?	PEG-PASSAGE-OPENED \?CCL9
+	ICALL2	REPELLED,STR?198
+	SET	'PASSAGE?,M-FATAL
+	JUMP	?CND1
+?CCL9:	SET	'PASSAGE?,FALSE-VALUE
+	JUMP	?CND1
+?CCL6:	EQUAL?	HERE,SECRET-PASSAGE \?CCL11
+	ZERO?	SECRET-PASSAGE-OPEN \?CCL14
+	ICALL2	REPELLED,STR?198
+	SET	'PASSAGE?,M-FATAL
+	JUMP	?CND1
+?CCL14:	SET	'PASSAGE?,FALSE-VALUE
+	JUMP	?CND1
+?CCL11:	EQUAL?	HERE,CONSTRUCTION \?CCL16
+	INTBL?	NORTH-EXITS,CONSTRUCTION-LOC,11 \?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL16:	EQUAL?	HERE,WEIRD \?CCL20
+	EQUAL?	TOWER-BEATEN,PYRAMID /?CCL20
+	ICALL2	REPELLED,STR?198
+	SET	'PASSAGE?,M-FATAL
+	JUMP	?CND1
+?CCL20:	EQUAL?	HERE,G-U-MOUNTAIN \?CCL24
+	IN?	BOULDER,HERE \?CCL27
+	ICALL2	REPELLED,STR?198
+	SET	'PASSAGE?,M-FATAL
+	JUMP	?CND1
+?CCL27:	SET	'PASSAGE?,FALSE-VALUE
+	JUMP	?CND1
+?CCL24:	GETPT	HERE,P?NORTH
+	ZERO?	STACK /?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL3:	CALL	ADJ-USED?,WALL,W?SOUTH,W?S
+	ZERO?	STACK /?CCL30
+	EQUAL?	HERE,CONSTRUCTION \?CCL33
+	ADD	CONSTRUCTION-LOC,8
+	INTBL?	NORTH-EXITS,STACK,11 \?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL33:	EQUAL?	HERE,THRONE-ROOM \?CCL37
+	ZERO?	SECRET-PASSAGE-OPEN \?CCL40
+	ICALL2	REPELLED,STR?199
+	SET	'PASSAGE?,M-FATAL
+	JUMP	?CND1
+?CCL40:	SET	'PASSAGE?,FALSE-VALUE
+	JUMP	?CND1
+?CCL37:	GETPT	HERE,P?SOUTH
+	ZERO?	STACK /?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL30:	CALL	ADJ-USED?,WALL,W?NORTHWEST,W?NW
+	ZERO?	STACK /?CCL43
+	EQUAL?	HERE,CONSTRUCTION \?CCL46
+	SUB	CONSTRUCTION-LOC,9
+	INTBL?	SE-EXITS,STACK,7 \?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL46:	EQUAL?	HERE,PERIMETER-WALL \?CCL50
+	SET	'PASSAGE?,FALSE-VALUE
+	JUMP	?CND1
+?CCL50:	GETPT	HERE,P?NW
+	ZERO?	STACK /?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL43:	CALL	ADJ-USED?,WALL,W?SOUTHEAST,W?SE
+	ZERO?	STACK /?CND1
+	EQUAL?	HERE,CONSTRUCTION \?CCL55
+	INTBL?	SE-EXITS,CONSTRUCTION-LOC,7 \?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+	JUMP	?CND1
+?CCL55:	GETPT	HERE,P?SE
+	ZERO?	STACK /?CND1
+	SET	'PASSAGE?,TRUE-VALUE
+?CND1:	EQUAL?	PASSAGE?,M-FATAL /TRUE
+	ZERO?	PASSAGE? /FALSE
+	PRINTR	"There's already an exit in that direction!"
+
+
+	.FUNCT	REPELLED,STRING
+	PRINTI	"Strangely, the passage seems repelled by the "
+	PRINT	STRING
+	PRINTR	" wall, as though two inconsistent types of magic were at work in the same place."
+
+
+	.FUNCT	GLOBAL-PASSAGE-F
+	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	CEILING-F
+	CALL	NOUN-USED?,CEILING,W?ROOF
+	ZERO?	STACK /?CCL3
+	EQUAL?	HERE,ROOF,PARAPET \?CCL3
+	EQUAL?	PRSA,V?THROW-FROM \?CCL8
+	REMOVE	PRSO
+	EQUAL?	PRSO,PERCH /?CCL10
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND9
+?CCL10:	SET	'REMOVED-PERCH-LOC,GROUND
+?CND9:	PRINTI	"You hear a ""splat"" as"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" sinks into the ground far below."
+?CCL8:	EQUAL?	PRSO,CEILING \?CCL14
+	CALL	PERFORM-PRSA,GLOBAL-HERE,PRSI
+	RSTACK	
+?CCL14:	CALL	PERFORM-PRSA,PRSO,GLOBAL-HERE
+	RSTACK	
+?CCL3:	FSET?	HERE,OUTSIDEBIT \?CCL16
+	CALL2	HANDLE,CEILING
+	ZERO?	STACK /?CCL16
+	CALL2	CANT-SEE,CEILING
+	RSTACK	
+?CCL16:	EQUAL?	PRSA,V?EXAMINE \?CCL20
+	EQUAL?	HERE,BARBICAN \?CCL23
+	PRINTR	"It's too gloomy in here to make out any of the features of the ceiling."
+?CCL23:	EQUAL?	HERE,MEGABOZ-HUT \FALSE
+	PRINT	MEGABOZ-CEILING-DESC
+	CRLF	
+	RTRUE	
+?CCL20:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	ICALL2	PERFORM,V?LOOK
+	RTRUE	
+
+
+	.FUNCT	SLIME-F
+	EQUAL?	PRSA,V?EAT,V?TOUCH,V?TASTE \FALSE
+	PRINTR	"Mega-yucko!"
+
+
+	.FUNCT	WATER-F,X
+	CALL1	FIND-WATER >X
+	ZERO?	X \?CND1
+	CALL2	VISIBLE?,LARGE-VIAL
+	ZERO?	STACK /?CCL5
+	CALL2	VISIBLE?,SMALL-VIAL
+	ZERO?	STACK /?CCL5
+	GRTR?	LARGE-VIAL-GLOOPS,0 \?CCL5
+	GRTR?	SMALL-VIAL-GLOOPS,0 \?CCL5
+	PRINT	WHICH-WATER
+	RTRUE	
+?CCL5:	CALL2	VISIBLE?,LARGE-VIAL
+	ZERO?	STACK /?CCL11
+	GRTR?	LARGE-VIAL-GLOOPS,0 \?CCL11
+	SET	'X,LARGE-VIAL
+	JUMP	?CND1
+?CCL11:	CALL2	VISIBLE?,SMALL-VIAL
+	ZERO?	STACK /?CCL15
+	GRTR?	SMALL-VIAL-GLOOPS,0 \?CCL15
+	SET	'X,SMALL-VIAL
+?CND1:	EQUAL?	PRSA,V?COUNT \?CCL22
+	CALL	NOUN-USED?,WATER,W?GLOOPS
+	ZERO?	STACK /?CCL22
+	CALL2	VISIBLE?,LARGE-VIAL
+	ZERO?	STACK /?CND25
+	PRINTI	"The large vial "
+	ZERO?	LARGE-VIAL-GLOOPS \?CCL29
+	PRINTI	"is empty"
+	JUMP	?CND27
+?CCL15:	CALL2	HANDLE,WATER
+	ZERO?	STACK /FALSE
+	PRINT	YOU-CANT-SEE-ANY
+	PRINTR	"water here.]"
+?CCL29:	PRINTI	"contains "
+	PRINTN	LARGE-VIAL-GLOOPS
+	PRINTI	" gloop"
+	EQUAL?	LARGE-VIAL-GLOOPS,1 /?CND27
+	PRINTC	115
+?CND27:	CALL2	VISIBLE?,SMALL-VIAL
+	ZERO?	STACK /?CCL34
+	PRINTI	". "
+	JUMP	?CND25
+?CCL34:	PRINT	PERIOD-CR
+?CND25:	CALL2	VISIBLE?,SMALL-VIAL
+	ZERO?	STACK /FALSE
+	PRINTI	"The small vial "
+	ZERO?	SMALL-VIAL-GLOOPS \?CCL40
+	PRINTI	"is empty"
+	JUMP	?CND38
+?CCL40:	PRINTI	"contains "
+	PRINTN	SMALL-VIAL-GLOOPS
+	PRINTI	" gloop"
+	EQUAL?	SMALL-VIAL-GLOOPS,1 /?CND38
+	PRINTC	115
+?CND38:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL22:	EQUAL?	PRSA,V?FILL \?CCL44
+	EQUAL?	PRSI,WATER \?CCL44
+	EQUAL?	PRSO,LARGE-VIAL,SMALL-VIAL \?CCL49
+	EQUAL?	X,LARGE-VIAL \?CCL52
+	ICALL	PERFORM,V?FILL,PRSO,LARGE-VIAL
+	RTRUE	
+?CCL52:	EQUAL?	X,SMALL-VIAL \FALSE
+	ICALL	PERFORM,V?FILL,PRSO,SMALL-VIAL
+	RTRUE	
+?CCL49:	EQUAL?	PRSO,CUP \?CCL56
+	PRINTR	"The water evaporates in a puff of smoke as soon as it touches the cup. A strong magic is at work here!"
+?CCL56:	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL44:	EQUAL?	PRSA,V?EMPTY,V?REMOVE \?CCL58
+	ZERO?	PRSI \?CCL58
+	CALL	NOUN-USED?,WATER,W?GLOOP,W?GLOOPS
+	ZERO?	STACK /?CCL58
+	CALL2	VISIBLE?,LARGE-VIAL
+	ZERO?	STACK \?CTR57
+	CALL2	VISIBLE?,SMALL-VIAL
+	ZERO?	STACK /?CCL58
+?CTR57:	CALL2	VISIBLE?,LARGE-VIAL
+	ZERO?	STACK /?CCL67
+	CALL2	VISIBLE?,SMALL-VIAL
+	ZERO?	STACK /?CCL67
+	ZERO?	LARGE-VIAL-GLOOPS /?CCL72
+	ZERO?	SMALL-VIAL-GLOOPS /?CCL72
+	PRINTR	"There's water in both vials."
+?CCL72:	ZERO?	LARGE-VIAL-GLOOPS /?CCL76
+	SET	'PRSI,LARGE-VIAL
+	JUMP	?CND65
+?CCL76:	ZERO?	SMALL-VIAL-GLOOPS /?CCL78
+	SET	'PRSI,SMALL-VIAL
+	JUMP	?CND65
+?CCL78:	PRINTR	"Neither vial contains water!"
+?CCL67:	CALL2	VISIBLE?,LARGE-VIAL
+	ZERO?	STACK /?CCL80
+	SET	'PRSI,LARGE-VIAL
+	JUMP	?CND65
+?CCL80:	SET	'PRSI,SMALL-VIAL
+?CND65:	ICALL	PERFORM,V?EMPTY-FROM,WATER,PRSI
+	RTRUE	
+?CCL58:	EQUAL?	PRSA,V?DRINK \?CCL82
+	PRINTR	"You're not thirsty."
+?CCL82:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-UNDER,V?LOOK-INSIDE \?CCL84
+	PRINTR	"You see nothing of interest."
+?CCL84:	EQUAL?	PRSA,V?TOUCH,V?REACH-IN \?CCL86
+	PRINTI	"Your hand is now wet"
+	EQUAL?	HERE,OASIS \?CND87
+	PRINTI	" and cold"
+?CND87:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL86:	EQUAL?	PRSA,V?PUT-ON,V?PUT \?CCL90
+	EQUAL?	PRSI,WATER \?CCL90
+	IN?	PROTAGONIST,DB \?CCL95
+	PRINTR	"You can't reach the water -- the bathysphere is closed! (Fortunately.)"
+?CCL95:	EQUAL?	HERE,PARLOR \?CCL97
+	MOVE	PRSO,FISH-TANK
+	JUMP	?CND93
+?CCL97:	EQUAL?	HERE,LAKE-FLATHEAD \?CCL99
+	FSET?	PRSO,ANIMATEDBIT \?CCL102
+	REMOVE	PRSO
+	JUMP	?CND93
+?CCL102:	MOVE	PRSO,LAKE-BOTTOM
+	JUMP	?CND93
+?CCL99:	EQUAL?	PRSO,PERCH /?CCL104
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND103
+?CCL104:	SET	'REMOVED-PERCH-LOC,WATER
+?CND103:	REMOVE	PRSO
+?CND93:	PRINTI	"With a ""p"
+	EQUAL?	PRSO,FLICKERING-TORCH,GUTTERING-TORCH,CANDLE \?CCL109
+	FSET?	PRSO,ONBIT \?CCL109
+	FCLEAR	PRSO,ONBIT
+	FCLEAR	PRSO,FLAMEBIT
+	EQUAL?	PRSO,GUTTERING-TORCH \?CCL114
+	ICALL2	DEQUEUE,I-GUTTERING-TORCH
+	JUMP	?CND112
+?CCL114:	EQUAL?	PRSO,FLICKERING-TORCH \?CND112
+	ICALL2	DEQUEUE,I-FLICKERING-TORCH
+?CND112:	PRINTI	"ffft"
+	JUMP	?CND107
+?CCL109:	PRINTI	"lunk"
+?CND107:	PRINTI	","""
+	ICALL1	TPRINT-PRSO
+	PRINTI	" sinks into the water"
+	EQUAL?	PRSO,FOX,ROOSTER \?CND116
+	PRINTI	", you heartless animal drowner, you"
+?CND116:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL90:	EQUAL?	PRSA,V?SWIM,V?ENTER \?CCL119
+	EQUAL?	X,SWAMP \?CCL122
+	PRINTR	"You're already ankle-deep in the swampy water, which is yucky enough."
+?CCL122:	EQUAL?	X,FRIGID-RIVER \?CCL124
+	PRINTR	"The Frigid River is known for its unpredictable currents."
+?CCL124:	EQUAL?	X,FLATHEAD-OCEAN \?CCL126
+	PRINTR	"The pounding surf would kill you in a moment."
+?CCL126:	EQUAL?	X,LAKE-FLATHEAD \?CCL128
+	ZERO?	ALLIGATOR /?CCL131
+	CALL2	JIGS-UP,STR?200
+	RSTACK	
+?CCL131:	PRINTR	"These waters are known for their hungry denizens."
+?CCL128:	EQUAL?	X,STREAM-OBJECT \?CCL133
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL133:	EQUAL?	X,OASIS-OBJECT \?CCL135
+	PRINTR	"Only a Polar Gumffbeast could swim in such cold water!"
+?CCL135:	EQUAL?	X,FISH-TANK \?CCL137
+	ZERO?	DESCRIBED-TANK-AS-LARGE /?CCL140
+	PRINTR	"There's no way you could fit into this fish tank! [All right, I'll admit that I went a little overboard when I described the fish tank as ""bigger than a swimming pool.""]"
+?CCL140:	SET	'DESCRIBED-TANK-AS-SMALL,TRUE-VALUE
+	PRINTR	"What? Swim in an itsy-bitsy fish tank like this one?!?"
+?CCL137:	EQUAL?	X,MOAT \FALSE
+	ZERO?	ALLIGATOR /?CCL145
+	CALL2	JIGS-UP,STR?201
+	RSTACK	
+?CCL145:	PRINTR	"Not recommended. Moats tend to be populated with big, nasty alligators."
+?CCL119:	EQUAL?	PRSO,WATER \?CCL147
+	CALL	PERFORM-PRSA,X,PRSI
+	RSTACK	
+?CCL147:	CALL	PERFORM-PRSA,PRSO,X
+	RSTACK	
+
+
+	.FUNCT	FIND-WATER
+	CALL	GLOBAL-IN?,MOAT,HERE
+	ZERO?	STACK /?CCL3
+	RETURN	MOAT
+?CCL3:	EQUAL?	HERE,STREAM \?CCL5
+	RETURN	STREAM-OBJECT
+?CCL5:	EQUAL?	HERE,PARLOR \?CCL7
+	RETURN	FISH-TANK
+?CCL7:	EQUAL?	HERE,RIVERS-END \?CCL9
+	RETURN	FRIGID-RIVER
+?CCL9:	CALL	GLOBAL-IN?,FLATHEAD-OCEAN,HERE
+	ZERO?	STACK /?CCL11
+	RETURN	FLATHEAD-OCEAN
+?CCL11:	EQUAL?	HERE,LAKE-FLATHEAD /?CTR12
+	CALL	GLOBAL-IN?,LAKE-FLATHEAD,HERE
+	ZERO?	STACK /?CCL13
+?CTR12:	RETURN	LAKE-FLATHEAD
+?CCL13:	CALL	GLOBAL-IN?,SWAMP,HERE
+	ZERO?	STACK /?CCL17
+	RETURN	SWAMP
+?CCL17:	CALL	GLOBAL-IN?,FJORD,HERE
+	ZERO?	STACK /?CCL19
+	RETURN	FJORD
+?CCL19:	EQUAL?	HERE,OASIS \FALSE
+	RETURN	OASIS-OBJECT
+
+
+	.FUNCT	VIAL-WATER-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	P-PRSA-WORD,W?REMOVE \FALSE
+	EQUAL?	PRSO,LARGE-VIAL-WATER \?CCL8
+	PUSH	LARGE-VIAL
+	JUMP	?CND6
+?CCL8:	PUSH	SMALL-VIAL
+?CND6:	CALL	PERFORM,V?EMPTY-FROM,WATER,STACK
+	RSTACK	
+
+
+	.FUNCT	G-VIAL-WATER-F,SR,F,ADJ,VB
+	GET	F,5 >ADJ
+	ZERO?	ADJ /?CND1
+	CALL2	CONVERT-NUMBER,ADJ >ADJ
+?CND1:	LESS?	LARGE-VIAL-GLOOPS,ADJ \?CCL5
+	LESS?	SMALL-VIAL-GLOOPS,ADJ /FALSE
+	RETURN	SMALL-VIAL-WATER
+?CCL5:	LESS?	SMALL-VIAL-GLOOPS,ADJ \FALSE
+	RETURN	LARGE-VIAL-WATER
+
+
+	.FUNCT	HANDS-F,ACTOR
+	EQUAL?	PRSA,V?CLEAN \?CCL3
+	CALL1	WASTES
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?SHAKE \?CCL5
+	CALL	FIND-IN,HERE,ACTORBIT,STR?202 >ACTOR
+	ZERO?	ACTOR /?CCL8
+	ICALL	PERFORM,V?SHAKE-WITH,HANDS,ACTOR
+	RTRUE	
+?CCL8:	PRINTR	"There's no one here to shake hands with."
+?CCL5:	EQUAL?	PRSA,V?COUNT \?CCL10
+	CALL	NOUN-USED?,HANDS,W?FINGER,W?FINGERS
+	ZERO?	STACK /?CCL13
+	PRINTI	"Ten"
+	JUMP	?CND11
+?CCL13:	PRINTI	"Two"
+?CND11:	PRINTR	", as usual."
+?CCL10:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL15
+	ZERO?	HAND-IN-WALDO /?CCL15
+	ICALL2	PERFORM-PRSA,WALDO
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?TAKE-OFF,V?REMOVE \?CCL19
+	ZERO?	HAND-IN-WALDO /?CCL22
+	SET	'HAND-IN-WALDO,FALSE-VALUE
+	PRINTR	"You withdraw your hand."
+?CCL22:	ZERO?	FINGER-ON-STRAW /?CCL24
+	SET	'FINGER-ON-STRAW,FALSE-VALUE
+	SET	'ELIXIR-TRAPPED,FALSE-VALUE
+	PRINTR	"You remove your finger from the end of the straw."
+?CCL24:	PRINTR	"To quote an old song, ""The hand bone's connected to the wrist bone..."""
+?CCL19:	EQUAL?	PRSA,V?PUT-ON \?CCL26
+	EQUAL?	PRSO,GLOVE \?CCL26
+	ICALL	PERFORM,V?WEAR,GLOVE
+	RTRUE	
+?CCL26:	EQUAL?	PRSA,V?TAKE-WITH \?CCL30
+	EQUAL?	PRSI,HANDS \?CCL30
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL30:	EQUAL?	PRSA,V?SNAP \FALSE
+	CALL	NOUN-USED?,HANDS,W?FINGER,W?FINGERS
+	ZERO?	STACK /FALSE
+	ZERO?	TIME-STOPPED \FALSE
+	IN?	PROTAGONIST,SMALL-THRONE \?CCL40
+	CALL1	OPEN-SECRET-PASSAGE?
+	RSTACK	
+?CCL40:	PRINTR	"""Snap!"""
+
+
+	.FUNCT	OPEN-SECRET-PASSAGE?
+	ZERO?	SECRET-PASSAGE-OPEN /?CCL3
+	SET	'SECRET-PASSAGE-OPEN,FALSE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTR	"The secret passage closes!"
+?CCL3:	ZERO?	SECRET-PASSAGE-DISCOVERED /?CCL5
+	SET	'SECRET-PASSAGE-OPEN,TRUE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTR	"The secret passage opens once again."
+?CCL5:	SET	'SECRET-PASSAGE-OPEN,TRUE-VALUE
+	SET	'SECRET-PASSAGE-DISCOVERED,TRUE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTI	"Behind the throne, accompanied by a puff of dust, a secret passage grinds open, leading south into darkness!"
+	IN?	JESTER,HERE \?CND6
+	PRINTI	" The jester applauds you, howling with mysterious delight."
+?CND6:	CRLF	
+	ICALL2	INC-SCORE,SECRET-PASSAGE-SCORE
+	SET	'SECRET-PASSAGE-SCORE,0
+	RTRUE	
+
+
+	.FUNCT	FEET-F
+	EQUAL?	PRSA,V?ENTER \FALSE
+	EQUAL?	P-PRSA-WORD,W?GET \FALSE
+	SET	'P-PRSA-WORD,W?STAND
+	SET	'PRSO,FALSE-VALUE
+	CALL1	V-STAND
+	RSTACK	
+
+
+	.FUNCT	EYES-F,WHOSE-EYE
+	CALL	ADJ-USED?,EYES,W?MY,W?MINE
+	ZERO?	STACK /?CCL3
+	SET	'WHOSE-EYE,PROTAGONIST
+	JUMP	?CND1
+?CCL3:	CALL	ADJ-USED?,EYES,W?ORACLE'S
+	ZERO?	STACK /?CCL5
+	SET	'WHOSE-EYE,ORACLE-OBJECT
+	JUMP	?CND1
+?CCL5:	CALL	ADJ-USED?,EYES,W?AMULET'S
+	ZERO?	STACK /?CCL7
+	SET	'WHOSE-EYE,AMULET
+	JUMP	?CND1
+?CCL7:	EQUAL?	HERE,ORACLE \?CCL9
+	SET	'WHOSE-EYE,ORACLE-OBJECT
+	JUMP	?CND1
+?CCL9:	CALL2	VISIBLE?,AMULET
+	ZERO?	STACK /?CCL11
+	SET	'WHOSE-EYE,AMULET
+	JUMP	?CND1
+?CCL11:	SET	'WHOSE-EYE,PROTAGONIST
+?CND1:	CALL	ADJ-USED?,EYES,W?THREE,W?FOUR
+	ZERO?	STACK \?PRD16
+	CALL	ADJ-USED?,EYES,W?THIRD,W?FOURTH
+	ZERO?	STACK /?CCL14
+?PRD16:	EQUAL?	WHOSE-EYE,PROTAGONIST \?CCL14
+	CALL2	CANT-SEE,EYES
+	RSTACK	
+?CCL14:	EQUAL?	PRSA,V?COUNT \?CCL20
+	EQUAL?	WHOSE-EYE,PROTAGONIST \?CCL23
+	PRINTR	"Two, unless you've been careless with pointy sticks lately."
+?CCL23:	PRINTR	"Four."
+?CCL20:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL25
+	EQUAL?	WHOSE-EYE,ORACLE-OBJECT,AMULET \?CCL25
+	PRINTR	"There's no way to do that yourself."
+?CCL25:	EQUAL?	PRSA,V?CLOSE \?CCL29
+	ICALL2	PERFORM,V?SLEEP
+	RTRUE	
+?CCL29:	EQUAL?	PRSA,V?OPEN \FALSE
+	PRINTR	"Your eyes ARE open!"
+
+
+	.FUNCT	NOSE-F
+	EQUAL?	PRSA,V?PICK \FALSE
+	PRINTR	"Oh, gross!"
+
+
+	.FUNCT	MOUTH-F
+	EQUAL?	PRSA,V?PUT \?CCL3
+	EQUAL?	PRSI,MOUTH \?CCL3
+	EQUAL?	PRSO,STRAW \?CCL8
+	PRINTR	"Other than perhaps satisfying some primitive phallic urge of yours, this accomplishes nothing. [If you want to drink something with the straw, just try DRINK THING WITH STRAW!]"
+?CCL8:	ICALL	PERFORM,V?EAT,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?ENTER \FALSE
+	PRINTR	"That would involve quite a contortion!"
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	ME-F
+	EQUAL?	PRSA,V?CALL,V?YELL,V?TELL \?CCL3
+	PRINTI	"Talking to yourself is a sign of impending mental collapse."
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?ALARM \?CCL5
+	PRINTR	"You are already awake."
+?CCL5:	EQUAL?	PRSA,V?EAT \?CCL7
+	PRINTR	"Auto-cannibalism is not the answer."
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL9
+	CALL1	V-DIAGNOSE
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?GIVE \?CCL11
+	EQUAL?	PRSI,ME \?CCL11
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?SHOW \?CCL15
+	EQUAL?	PRSI,ME \?CCL15
+	ICALL	PERFORM,V?EXAMINE,PRSO
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?MOVE \?CCL19
+	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL19:	EQUAL?	PRSA,V?SEARCH \?CCL21
+	ICALL1	V-INVENTORY
+	RTRUE	
+?CCL21:	EQUAL?	PRSA,V?KICK,V?MUNG,V?KILL \?CCL23
+	EQUAL?	P-PRSA-WORD,W?KILL,W?MURDER \?CCL26
+	CALL2	JIGS-UP,STR?204
+	RSTACK	
+?CCL26:	PRINTI	"[If you're really into masochistic fantasies, perhaps you'd be more at home playing Infocom's "
+	HLIGHT	H-ITALIC
+	PRINTI	"LEATHER GODDESSES OF PHOBOS"
+	HLIGHT	H-NORMAL
+	PRINTR	" (tm).]"
+?CCL23:	EQUAL?	PRSA,V?FIND \FALSE
+	PRINTI	"You're in"
+	CALL2	TRPRINT,HERE
+	RSTACK	
+
+
+	.FUNCT	GLOBAL-HERE-F
+	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK \?CCL3
+	CALL1	V-LOOK
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?ENTER \?CCL5
+	EQUAL?	HERE,LAKE-FLATHEAD \?CCL8
+	ICALL	PERFORM,V?SWIM,LAKE-FLATHEAD
+	RTRUE	
+?CCL8:	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?EXIT,V?LEAVE \?CCL10
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL10:	EQUAL?	PRSA,V?SEARCH \?CCL12
+	PRINT	NOTHING-NEW
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?PUT-ON,V?PUT \FALSE
+	EQUAL?	PRSI,GLOBAL-HERE \FALSE
+	EQUAL?	P-PRSA-WORD,W?THROW \?CCL19
+	ICALL	PERFORM,V?THROW,PRSO
+	RTRUE	
+?CCL19:	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+
+	.FUNCT	GLOBAL-BLDG-F
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	EQUAL?	HERE,FISHING-VILLAGE,WHARF \?CCL3
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LEAVE,V?EXIT \FALSE
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	ARCH-F
+	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	WINDOW-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	EQUAL?	HERE,GONDOLA \?CCL6
+	ZERO?	DIRIGIBLE-COUNTER \?CCL9
+	PRINTR	"The dirigible is moored in a hangar."
+?CCL9:	EQUAL?	DESTINATION,SMALLER-HANGAR \?CCL11
+	SUB	DIRIGIBLE-COUNTER,2
+	GET	DIRIGIBLE-TRIP-DESCS,STACK
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL11:	SUB	5,DIRIGIBLE-COUNTER
+	GET	DIRIGIBLE-TRIP-DESCS,STACK
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	HERE,DIMWITS-ROOM,BASTION,SOLAR \?CCL13
+	PRINTR	"The window offers a splendid view of the castle grounds."
+?CCL13:	EQUAL?	HERE,HOTHOUSE \?CCL15
+	PRINTR	"You see a ruined castle."
+?CCL15:	EQUAL?	HERE,FR-PENTHOUSE,OFFICES-NORTH,OFFICES-SOUTH /?CTR16
+	EQUAL?	HERE,OFFICES-EAST,OFFICES-WEST \?CCL17
+?CTR16:	EQUAL?	HERE,FR-PENTHOUSE /?CTR21
+	GRTR?	FLOOR-NUMBER,20 \?CCL22
+?CTR21:	PRINTR	"You can't see much; the air is pretty smoggy today."
+?CCL22:	PRINTR	"The window offers a good view of Flatheadia."
+?CCL17:	PRINTR	"Bug 29."
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL26
+	EQUAL?	HERE,HOTHOUSE \?CCL29
+	PRINTR	"There's not much left of the windows."
+?CCL29:	EQUAL?	HERE,DIMWITS-ROOM,BASTION,SOLAR \?CCL31
+	PRINTR	"The window is just a narrow slit in the stone wall; there's no way to open or close it."
+?CCL31:	PRINTR	"The window is unopenable."
+?CCL26:	EQUAL?	PRSA,V?LEAP-OFF,V?EXIT,V?ENTER \?CCL33
+	EQUAL?	HERE,HOTHOUSE \?CCL36
+	PRINTR	"You cut yourself to ribbons on the broken glass."
+?CCL36:	EQUAL?	HERE,DIMWITS-ROOM,BASTION,SOLAR \?CCL38
+	PRINTR	"These slitted windows are narrower than your body."
+?CCL38:	CALL	DO-FIRST,STR?140,WINDOW
+	RSTACK	
+?CCL33:	EQUAL?	PRSA,V?PUT-THROUGH \?CCL40
+	EQUAL?	HERE,HOTHOUSE,DIMWITS-ROOM,SOLAR /?CTR42
+	EQUAL?	HERE,BASTION \?CCL43
+?CTR42:	REMOVE	PRSO
+	PRINTI	"You hear a ""splat"" as"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" sinks into the "
+	EQUAL?	HERE,HOTHOUSE \?CCL48
+	EQUAL?	PRSO,PERCH /?CCL50
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND49
+?CCL50:	SET	'REMOVED-PERCH-LOC,WATER
+?CND49:	PRINTI	"swamp outside"
+	JUMP	?CND46
+?CCL48:	EQUAL?	PRSO,PERCH /?CCL54
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND53
+?CCL54:	SET	'REMOVED-PERCH-LOC,GROUND
+?CND53:	PRINTI	"ground far below"
+?CND46:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL43:	CALL	DO-FIRST,STR?140,WINDOW
+	RSTACK	
+?CCL40:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,HOTHOUSE \FALSE
+	PRINTR	"Many of the window panes are shattered."
+
+
+	.FUNCT	LOCK-OBJECT-F
+	CALL	NOUN-USED?,LOCK-OBJECT,W?KEYHOLE
+	ZERO?	STACK /?CCL3
+	EQUAL?	HERE,LOWEST-HALL \?CCL3
+	CALL2	CANT-SEE,LOCK-OBJECT
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	EQUAL?	HERE,LOWEST-HALL \?CCL10
+	PRINTR	"It's a large combination dial lock."
+?CCL10:	PRINTR	"It's your basic keyhole lock."
+?CCL7:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL12
+	PRINTR	"You see nothing of interest, you shameless Peeping Tom you."
+?CCL12:	EQUAL?	PRSA,V?PICK \?CCL14
+	PRINTR	"You have neither the tools nor the expertise."
+?CCL14:	EQUAL?	PRSA,V?LOCK,V?UNLOCK,V?OPEN \FALSE
+	EQUAL?	PRSO,LOCK-OBJECT \FALSE
+	CALL	GLOBAL-IN?,EAST-DOOR,HERE
+	ZERO?	STACK /?CCL21
+	CALL	PERFORM-PRSA,EAST-DOOR,PRSI
+	RSTACK	
+?CCL21:	CALL	GLOBAL-IN?,WEST-DOOR,HERE
+	ZERO?	STACK /?CCL23
+	CALL	PERFORM-PRSA,WEST-DOOR,PRSI
+	RSTACK	
+?CCL23:	CALL	GLOBAL-IN?,VAULT-DOOR,HERE
+	ZERO?	STACK /?CCL25
+	CALL	PERFORM-PRSA,VAULT-DOOR,PRSI
+	RSTACK	
+?CCL25:	EQUAL?	HERE,ATTIC \FALSE
+	CALL	PERFORM-PRSA,TRUNK,PRSI
+	RSTACK	
+
+
+	.FUNCT	SIGN-F,NUM
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	EQUAL?	HERE,EXIT \?CCL6
+	PRINTR	"""ROCKVILLE ESTATES: The new, prestigious address for the discriminating Young Underground Professional
+64 units, Occupancy Spring 881
+Frobozz Magic Construction Company
+Quizbo Frotzwit, Managing Foreman"""
+?CCL6:	EQUAL?	HERE,CROSSROADS \?CCL8
+	PRINTR	"""JUNCTION of GUH-90 and GUH-95
+NORTH: Flatheadia, 1 bloit
+SOUTH: Shadowland, 15 bloits
+       Royal Museum, 17 bloits
+       Fublio Valley, 90 bloits
+EAST:  White Cliffs Beach, 4 bloits
+       Flood Control Dam #3, 4 bloits
+       Aragain Falls, 5 bloits
+WEST:  Port Foozle, 9 bloits
+       Quilbozza Beach, 9 bloits"""
+?CCL8:	EQUAL?	HERE,FISHING-VILLAGE \?CCL10
+	PRINTR	"""Sinners: Enter here for purification!"""
+?CCL10:	EQUAL?	HERE,INQUISITION \?CCL12
+	PRINTR	"""Sinners, take note!
+1. We cannot execute everyone at once! Please take a number!
+2. Everyone is permitted a final request.
+3. Tell the executioner your request when your number is called.
+4. If we cannot grant your final wish, we shall be quick and merciful. We will behead you.
+5. If we CAN grant your final wish, we will hang you. Please note that this is slow and excruciatingly painful."""
+?CCL12:	EQUAL?	HERE,NORTH-OF-ANTHAR \?CCL14
+	PRINTR	"""We've got as many refugees from the Eastlands as we can handle! Go somewhere else!"""
+?CCL14:	EQUAL?	HERE,MINE-ENTRANCE \?CCL16
+	PRINTR	"""Warning! Falling rock zone!"""
+?CCL16:	EQUAL?	HERE,TOLL-PLAZA \?CCL18
+	PRINTR	"""Exact Change Only: 1 Zorkmid (coins only)."" Below the sign is a basket."
+?CCL18:	EQUAL?	HERE,OUTSIDE-HOVEL \?CCL20
+	PRINTR	"""Korboz the Magnificent"""
+?CCL20:	EQUAL?	HERE,OUTSIDE-SHACK \?CCL22
+	PRINTR	"""Warning! This shack is protected against looting by powerful magic!"""
+?CCL22:	EQUAL?	HERE,WARNING-ROOM \?CCL24
+	PRINTR	"""Warning! This area is populated by three races: the Veritassi (who always tell the truth), the Prevaricons (who always lie), and the Wishyfoo (who alternate with every statement). Be aware that visitors to Veritass and Prevaricon areas are immediately fed to ravenous hellhounds."""
+?CCL24:	PRINTI	"Bug 49"
+	RTRUE	
+
+
+	.FUNCT	STAIRS-F
+	EQUAL?	HERE,NORTH-SHORE,EAST-SHORE,SOUTH-SHORE /?PRD5
+	EQUAL?	HERE,WEST-SHORE \?CCL3
+?PRD5:	IN?	PROTAGONIST,YACHT /?CCL3
+	CALL2	CANT-SEE,STAIRS
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB \?CCL9
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?CLIMB-DOWN \FALSE
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	FIXED-LADDER-F
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-DOWN \?CCL5
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"The ladder is attached to the wall."
+
+
+	.FUNCT	BONES-F
+	CALL2	TOUCHING?,BONES
+	ZERO?	STACK /FALSE
+	PRINTR	"Let the dead lie in peace."
+
+
+	.FUNCT	CLEAR-BORDER,X,Y,WRD,?TMP1
+	SCREEN	S-WINDOW
+	COLOR	FG-COLOR,BG-COLOR
+	ICALL2	PICINF-PLUS-ONE,TEXT-WINDOW-PIC-LOC
+	GET	PICINF-TBL,0 >Y
+	GET	PICINF-TBL,1 >X
+	WINPOS	S-WINDOW,1,1
+	GET	0,17
+	WINSIZE	S-WINDOW,Y,STACK
+	CLEAR	1
+	GRTR?	X,1 \?CND1
+	ADD	Y,1
+	WINPOS	S-WINDOW,STACK,1
+	GET	0,18
+	SUB	STACK,Y >?TMP1
+	SUB	X,1
+	WINSIZE	S-WINDOW,?TMP1,STACK
+	CLEAR	1
+	ADD	Y,1 >?TMP1
+	GET	0,17
+	SUB	STACK,X
+	ADD	STACK,1
+	WINPOS	S-WINDOW,?TMP1,STACK
+	GET	0,18
+	SUB	STACK,Y
+	WINSIZE	S-WINDOW,STACK,X
+	CLEAR	1
+?CND1:	SET	'SL-SCORE,-1
+	SET	'OLD-REGION,FALSE-VALUE
+	SET	'OLD-HERE,FALSE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	COLOR	1,1
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	ADJUST-TEXT-WINDOW,ID,SCRY,WINY,ADJ
+	GET	0,18 >SCRY
+	ZERO?	ID /?CND1
+	PICINF	ID,PICINF-TBL /?BOGUS3
+?BOGUS3:	GET	PICINF-TBL,0 >ADJ
+?CND1:	WINGET	S-TEXT,WTOP
+	SUB	STACK,1
+	SUB	SCRY,STACK
+	SUB	STACK,ADJ >WINY
+	DIV	WINY,FONT-Y
+	MUL	FONT-Y,STACK >WINY
+	WINGET	S-TEXT,WWIDE
+	WINSIZE	S-TEXT,WINY,STACK
+	RTRUE	
+
+
+	.FUNCT	SPLIT-BY-PICTURE,ID,CLEAR-SCREEN?,Y,X,YS,XS,?TMP2,?TMP1
+	SET	'CURRENT-SPLIT,ID
+	ZERO?	CLEAR-SCREEN? /?CND1
+	CLEAR	-1
+?CND1:	PICINF	ID,PICINF-TBL /?BOGUS3
+?BOGUS3:	GET	PICINF-TBL,0 >Y
+	ADD	Y,1 >?TMP1
+	ZERO?	BORDER-ON \?CCL6
+	EQUAL?	ID,TEXT-WINDOW-PIC-LOC \?CCL6
+	PUSH	1
+	JUMP	?CND4
+?CCL6:	GET	PICINF-TBL,1 >X
+	ADD	X,1
+?CND4:	WINPOS	S-TEXT,?TMP1,STACK
+	GET	0,18
+	SUB	STACK,Y >?TMP1
+	ZERO?	BORDER-ON \?CCL11
+	EQUAL?	ID,TEXT-WINDOW-PIC-LOC \?CCL11
+	MUL	WIDTH,FONT-X
+	JUMP	?CND9
+?CCL11:	GET	0,17 >?TMP2
+	MUL	X,2
+	SUB	?TMP2,STACK
+?CND9:	WINSIZE	S-TEXT,?TMP1,STACK
+	WINPOS	S-WINDOW,1,1
+	GET	0,17
+	WINSIZE	S-WINDOW,Y,STACK
+	RTRUE	
+
+
+	.FUNCT	INIT-SL-WITH-SPLIT,WHICH,DONT-CLEAR,YFUDGE
+	ZERO?	WHICH /?CND1
+	SET	'CURRENT-SPLIT,WHICH
+?CND1:	CALL2	INIT-STATUS-LINE,DONT-CLEAR
+	RSTACK	
+
+
+	.FUNCT	INIT-STATUS-LINE,DONT-CLEAR,NUM,X,Y,?TMP2,?TMP1
+	SET	'NUM,1
+	SET	'OLD-HERE,FALSE-VALUE
+	SET	'OLD-REGION,FALSE-VALUE
+	SET	'SL-SCORE,-1
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	ZERO?	DONT-CLEAR \?CND1
+	CLEAR	-1
+?CND1:	ICALL2	SPLIT-BY-PICTURE,CURRENT-SPLIT
+	EQUAL?	CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC \?CCL5
+	ICALL2	ADJUST-TEXT-WINDOW,0
+	SCREEN	S-FULL
+	ZERO?	BORDER-ON /?CCL10
+	CALL1	SET-BORDER
+	DISPLAY	STACK,1,1
+	PICSET	COMPASS-PICSET-TBL
+	JUMP	?CND8
+?CCL5:	EQUAL?	CURRENT-SPLIT,F-SPLIT \?CCL7
+	ICALL2	ADJUST-TEXT-WINDOW,F-BOTTOM
+	RTRUE	
+?CCL7:	ICALL2	ADJUST-TEXT-WINDOW,PBOZ-BOTTOM
+	RTRUE	
+?CCL10:	HLIGHT	H-INVERSE
+	ICALL2	INVERSE-LINE,1
+	ICALL2	INVERSE-LINE,2
+	ICALL2	INVERSE-LINE,3
+?CND8:	SCREEN	S-WINDOW
+	FONT	4
+	ICALL2	PICINF-PLUS-ONE,HERE-LOC
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	GETB	0,30
+	EQUAL?	STACK,DEC-20 /?CCL12
+	ZERO?	BORDER-ON \?CND11
+?CCL12:	HLIGHT	H-INVERSE
+?CND11:	ZERO?	BORDER-ON /?CND15
+	COLOR	1,-1
+?CND15:	PRINTI	"Moves:"
+	ICALL2	PICINF-PLUS-ONE,REGION-LOC
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,10
+	SUB	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	PRINTI	"Score:"
+	ZERO?	BORDER-ON /?CND17
+	COLOR	1,1
+?CND17:	FONT	1
+	GETB	0,30
+	EQUAL?	STACK,DEC-20 \?CND19
+	HLIGHT	H-NORMAL
+?CND19:	SCREEN	S-TEXT
+	RFALSE	
+
+
+	.FUNCT	SET-BORDER
+	EQUAL?	HERE,GONDOLA \?CCL3
+	GRTR?	DIRIGIBLE-COUNTER,0 \?CCL3
+	RETURN	OUTSIDE-BORDER
+?CCL3:	EQUAL?	HERE,FORMAL-GARDEN,COURTYARD \?CCL7
+	RETURN	CASTLE-BORDER
+?CCL7:	EQUAL?	HERE,BARBICAN,UPPER-BARBICAN,GARRISON \?CCL9
+	RETURN	OUTSIDE-BORDER
+?CCL9:	FSET?	HERE,OUTSIDEBIT \?CCL11
+	RETURN	OUTSIDE-BORDER
+?CCL11:	FSET?	HERE,UNDERGROUNDBIT /?CTR12
+	RETURN	CASTLE-BORDER
+?CTR12:	RETURN	UNDERGROUND-BORDER
+
+
+	.FUNCT	PRINT-SPACES,CNT
+?PRG1:	DLESS?	'CNT,0 /TRUE
+	PRINTC	32
+	JUMP	?PRG1
+
+
+	.FUNCT	UPDATE-STATUS-LINE,?TMP2,?TMP1
+	SCREEN	S-WINDOW
+	FONT	4
+	GETB	0,30
+	EQUAL?	STACK,DEC-20 /?CCL2
+	ZERO?	BORDER-ON \?CND1
+?CCL2:	HLIGHT	H-INVERSE
+?CND1:	PICINF	HERE-LOC,PICINF-TBL /?BOGUS5
+?BOGUS5:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	ZERO?	BORDER-ON /?CND6
+	COLOR	1,-1
+?CND6:	EQUAL?	HERE,OLD-HERE /?CND8
+	SET	'OLD-HERE,HERE
+	ICALL2	PICINF-PLUS-ONE,HERE-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	ICALL2	PRINT-SPACES,24
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	EQUAL?	HERE,PHIL-HALL \?CCL12
+	PRINTI	"Philharmonic Hall"
+	JUMP	?CND8
+?CCL12:	EQUAL?	HERE,G-U-MOUNTAIN \?CCL14
+	PRINTI	"Great Undergd. Mountain"
+	JUMP	?CND8
+?CCL14:	EQUAL?	HERE,G-U-SAVANNAH \?CCL16
+	PRINTI	"Great Undergd. Savannah"
+	JUMP	?CND8
+?CCL16:	EQUAL?	HERE,G-U-HIGHWAY \?CCL18
+	PRINTI	"Great Undergd. Highway"
+	JUMP	?CND8
+?CCL18:	ICALL2	DPRINT,HERE
+?CND8:	GETP	HERE,P?REGION
+	EQUAL?	STACK,OLD-REGION /?CND19
+	GETP	HERE,P?REGION >OLD-REGION
+	ICALL2	PICINF-PLUS-ONE,REGION-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,23
+	SUB	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	ICALL2	PRINT-SPACES,23
+	DIROUT	D-TABLE-ON,SLINE
+	PUT	SLINE,0,0
+	PRINT	OLD-REGION
+	DIROUT	D-TABLE-OFF
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	GET	SLINE,0
+	MUL	FONT-X,STACK
+	SUB	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	PRINT	OLD-REGION
+?CND19:	ICALL2	PICINF-PLUS-ONE,HERE-LOC
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,8
+	ADD	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	ICALL2	PRINT-SPACES,5
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,8
+	ADD	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	PRINTN	MOVES
+	EQUAL?	SCORE,SL-SCORE /?CND21
+	SET	'SL-SCORE,SCORE
+	ICALL2	PICINF-PLUS-ONE,REGION-LOC
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,4
+	SUB	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	ICALL2	PRINT-SPACES,4
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	GRTR?	SCORE,999 /?CTR24
+	LESS?	SCORE,-99 \?CCL25
+?CTR24:	PUSH	4
+	JUMP	?CND23
+?CCL25:	GRTR?	SCORE,99 /?CTR28
+	LESS?	SCORE,-9 \?CCL29
+?CTR28:	PUSH	3
+	JUMP	?CND23
+?CCL29:	GRTR?	SCORE,9 /?CTR32
+	LESS?	SCORE,0 \?CCL33
+?CTR32:	PUSH	2
+	JUMP	?CND23
+?CCL33:	PUSH	1
+?CND23:	MUL	FONT-X,STACK
+	SUB	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	PRINTN	SCORE
+?CND21:	ZERO?	BORDER-ON /?CND36
+	COLOR	1,1
+?CND36:	GETB	0,30
+	EQUAL?	STACK,DEC-20 /?CCL39
+	ZERO?	BORDER-ON \?CND38
+?CCL39:	HLIGHT	H-NORMAL
+?CND38:	ZERO?	COMPASS-CHANGED /?CND42
+	ZERO?	BORDER-ON /?CND42
+	GETB	0,30
+	EQUAL?	STACK,DEC-20 /?CND42
+	SET	'COMPASS-CHANGED,FALSE-VALUE
+	ICALL2	PICINF-PLUS-ONE,COMPASS-PIC-LOC
+	ICALL	DRAW-COMPASS-ROSE,P?NORTH,N-HL,N-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?NE,NE-HL,NE-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?EAST,E-HL,E-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?SE,SE-HL,SE-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?SOUTH,S-HL,S-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?SW,SW-HL,SW-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?WEST,W-HL,W-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?NW,NW-HL,NW-UNHL
+	ICALL2	PICINF-PLUS-ONE,U-BOX-LOC
+	CALL	SHOW-DIRECTION?,HERE,P?UP,FALSE-VALUE
+	ZERO?	STACK /?CCL49
+	ZERO?	LIT /?CCL49
+	SET	'?TMP2,U-BOX
+	JUMP	?CND47
+?CCL49:	SET	'?TMP2,BOX-COVER
+?CND47:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	?TMP2,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,D-BOX-LOC
+	CALL	SHOW-DIRECTION?,HERE,P?DOWN,FALSE-VALUE
+	ZERO?	STACK /?CCL54
+	ZERO?	LIT /?CCL54
+	SET	'?TMP2,D-BOX
+	JUMP	?CND52
+?CCL54:	SET	'?TMP2,BOX-COVER
+?CND52:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	?TMP2,?TMP1,STACK
+?CND42:	FONT	1
+	SCREEN	S-TEXT
+	RFALSE	
+
+
+	.FUNCT	DRAW-COMPASS-ROSE,DIR,HIGHLIGHT-PIC,UNHIGHLIGHT-PIC,?TMP1,?TMP2
+	CALL	SHOW-DIRECTION?,HERE,DIR,FALSE-VALUE
+	ZERO?	STACK /?CCL3
+	ZERO?	LIT /?CCL3
+	SET	'?TMP2,HIGHLIGHT-PIC
+	JUMP	?CND1
+?CCL3:	SET	'?TMP2,UNHIGHLIGHT-PIC
+?CND1:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	?TMP2,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	SHOW-DIRECTION?,RM,DIR,MAPPING,PTS
+	ASSIGNED?	'MAPPING /?CND1
+	SET	'MAPPING,TRUE-VALUE
+?CND1:	IN?	N-S-PASSAGE,RM \?CCL5
+	EQUAL?	RM,CONSTRUCTION /?CCL5
+	EQUAL?	N-S-PASSAGE-DIR,DIR /TRUE
+?CCL5:	IN?	NW-SE-PASSAGE,RM \?CCL10
+	EQUAL?	RM,CONSTRUCTION /?CCL10
+	EQUAL?	NW-SE-PASSAGE-DIR,DIR /TRUE
+?CCL10:	IN?	PROTAGONIST,YACHT \?CCL15
+	EQUAL?	DIR,P?DOWN /TRUE
+?CCL15:	FSET?	RM,DELTABIT \?CCL19
+	EQUAL?	DIR,P?UP,P?DOWN /FALSE
+	EQUAL?	RM,DELTA-1 \TRUE
+	EQUAL?	DIR,P?SOUTH \TRUE
+	ZERO?	MAPPING \FALSE
+	RTRUE	
+?CCL19:	EQUAL?	RM,CONSTRUCTION \?CCL29
+	EQUAL?	DIR,P?UP,P?DOWN /FALSE
+	EQUAL?	DIR,P?NORTH \?PRD36
+	INTBL?	CONSTRUCTION-LOC,NORTH-EXITS,11 /TRUE
+?PRD36:	EQUAL?	DIR,P?NE \?PRD39
+	INTBL?	CONSTRUCTION-LOC,NE-EXITS,17 /TRUE
+?PRD39:	EQUAL?	DIR,P?EAST \?PRD42
+	INTBL?	CONSTRUCTION-LOC,EAST-EXITS,15 /TRUE
+?PRD42:	EQUAL?	DIR,P?SE \?PRD45
+	INTBL?	CONSTRUCTION-LOC,SE-EXITS,7 /TRUE
+?PRD45:	EQUAL?	DIR,P?SOUTH \?PRD48
+	ADD	CONSTRUCTION-LOC,8
+	INTBL?	STACK,NORTH-EXITS,11 /TRUE
+?PRD48:	EQUAL?	DIR,P?SW \?PRD51
+	ADD	CONSTRUCTION-LOC,7
+	INTBL?	STACK,NE-EXITS,17 /TRUE
+?PRD51:	EQUAL?	DIR,P?WEST \?PRD54
+	SUB	CONSTRUCTION-LOC,1
+	INTBL?	STACK,EAST-EXITS,15 /TRUE
+?PRD54:	EQUAL?	DIR,P?NW \?PRD57
+	SUB	CONSTRUCTION-LOC,9
+	INTBL?	STACK,SE-EXITS,7 /TRUE
+?PRD57:	EQUAL?	DIR,P?EAST \?CCL34
+	EQUAL?	CONSTRUCTION-LOC,47 /TRUE
+?CCL34:	IN?	N-S-PASSAGE,RM \?CCL63
+	FSET?	N-S-PASSAGE,TAKEBIT /?CCL63
+	EQUAL?	DIR,P?NORTH,P?SOUTH \?CCL63
+	EQUAL?	CONSTRUCTION-LOC,N-S-PASSAGE-LOC \?CCL69
+	EQUAL?	N-S-PASSAGE-DIR,DIR /TRUE
+?CCL69:	EQUAL?	CONSTRUCTION-LOC,N-S-PASSAGE-LOC /FALSE
+	EQUAL?	N-S-PASSAGE-DIR,DIR /FALSE
+	RTRUE	
+?CCL63:	IN?	NW-SE-PASSAGE,RM \FALSE
+	FSET?	NW-SE-PASSAGE,TAKEBIT /FALSE
+	EQUAL?	DIR,P?NW,P?SE \FALSE
+	EQUAL?	CONSTRUCTION-LOC,NW-SE-PASSAGE-LOC \?CCL83
+	EQUAL?	NW-SE-PASSAGE-DIR,DIR /TRUE
+?CCL83:	EQUAL?	CONSTRUCTION-LOC,NW-SE-PASSAGE-LOC /FALSE
+	EQUAL?	NW-SE-PASSAGE-DIR,DIR /FALSE
+	RTRUE	
+?CCL29:	EQUAL?	RM,PLAIN \?CCL91
+	EQUAL?	DIR,P?UP,P?DOWN /FALSE
+	EQUAL?	DIR,P?NORTH,P?NE,P?NW \?PRD98
+	EQUAL?	RANK,1 /FALSE
+?PRD98:	EQUAL?	DIR,P?EAST,P?NE,P?SE \?PRD101
+	EQUAL?	FILE,8 /FALSE
+?PRD101:	EQUAL?	DIR,P?SOUTH,P?SE,P?SW \?PRD104
+	EQUAL?	RANK,8 /FALSE
+?PRD104:	EQUAL?	DIR,P?WEST,P?SW,P?NW \TRUE
+	EQUAL?	FILE,1 /FALSE
+	RTRUE	
+?CCL91:	EQUAL?	RM,MIRROR-LAKE \?CCL110
+	EQUAL?	DIR,P?UP,P?DOWN \TRUE
+?CCL110:	EQUAL?	RM,WISHYFOO-TERRITORY \?CCL114
+	EQUAL?	DIR,P?SW \?CCL114
+	ZERO?	MAPPING /TRUE
+?CCL114:	EQUAL?	RM,STREAM \?CCL119
+	EQUAL?	DIR,P?WEST \?CCL119
+	IN?	BRIDGE,STREAM \FALSE
+?CCL119:	GETPT	RM,DIR >PTS
+	ZERO?	PTS /FALSE
+	PTSIZE	PTS
+	EQUAL?	STACK,NEXIT /FALSE
+	EQUAL?	RM,THRONE-ROOM \?CCL129
+	EQUAL?	DIR,P?SOUTH \?CCL129
+	ZERO?	SECRET-PASSAGE-OPEN /FALSE
+?CCL129:	EQUAL?	RM,G-U-MOUNTAIN \?CCL134
+	EQUAL?	DIR,P?NORTH \?CCL134
+	IN?	BOULDER,RM /FALSE
+?CCL134:	EQUAL?	RM,HOLLOW \?CCL139
+	EQUAL?	DIR,P?SOUTH \?CCL139
+	ZERO?	IRON-MINE-OPEN /FALSE
+?CCL139:	EQUAL?	RM,PEG-ROOM \?CCL144
+	EQUAL?	DIR,P?NORTH \?CCL144
+	ZERO?	PEG-PASSAGE-OPENED /FALSE
+?CCL144:	EQUAL?	RM,CRYPT \?CCL149
+	EQUAL?	DIR,P?DOWN \?CCL149
+	FSET?	HOLEY-SLAB,TOUCHBIT \FALSE
+?CCL149:	EQUAL?	RM,RUINED-HALL \?CCL154
+	EQUAL?	DIR,P?EAST \?CCL154
+	ZERO?	SECRET-ROOM-REVEALED /FALSE
+?CCL154:	EQUAL?	RM,MARSH \?CCL159
+	EQUAL?	DIR,P?NORTH \?CCL159
+	ZERO?	STEPPING-STONES-VISIBLE /FALSE
+?CCL159:	EQUAL?	RM,WEIRD \?CCL164
+	EQUAL?	DIR,P?NORTH,P?EAST,P?WEST \?CCL164
+	EQUAL?	DIR,P?NORTH \?CCL169
+	EQUAL?	TOWER-BEATEN,PYRAMID /TRUE
+	FSET?	PYRAMID,TOUCHBIT \FALSE
+	ZERO?	MAPPING \TRUE
+	RFALSE	
+?CCL169:	EQUAL?	DIR,P?EAST \?CCL178
+	EQUAL?	TOWER-BEATEN,PYRAMID-R /TRUE
+	FSET?	PYRAMID-R,TOUCHBIT \FALSE
+	ZERO?	MAPPING \TRUE
+	RFALSE	
+?CCL178:	EQUAL?	TOWER-BEATEN,PYRAMID-L /TRUE
+	FSET?	PYRAMID-L,TOUCHBIT \FALSE
+	ZERO?	MAPPING \TRUE
+	RFALSE	
+?CCL164:	ZERO?	MAPPING /TRUE
+	EQUAL?	RM,COURTROOM \?CCL196
+	EQUAL?	DIR,P?SOUTH /FALSE
+?CCL196:	EQUAL?	RM,TAX-OFFICE \?CCL200
+	EQUAL?	DIR,P?SOUTH /FALSE
+?CCL200:	EQUAL?	RM,JESTERS-QUARTERS \?CCL204
+	EQUAL?	DIR,P?SOUTH /FALSE
+?CCL204:	EQUAL?	RM,BASE-OF-MOUNTAIN \?CCL208
+	EQUAL?	DIR,P?EAST /FALSE
+?CCL208:	EQUAL?	RM,G-U-MOUNTAIN \?CCL212
+	EQUAL?	DIR,P?WEST /FALSE
+?CCL212:	EQUAL?	RM,FOOTHILLS \?CCL216
+	EQUAL?	DIR,P?SOUTH /FALSE
+?CCL216:	EQUAL?	RM,BASE-OF-MOUNTAINS \TRUE
+	EQUAL?	DIR,P?NORTH /FALSE
+	RTRUE	
+
+
+	.FUNCT	COMPASS-CLICK,PIC1,PIC2,TL-X,TL-Y,BR-X,BR-Y,CENTER-X,CENTER-Y,DIR
+	EQUAL?	PIC1,COMPASS-PIC-LOC \?CND1
+	ICALL2	PICINF-PLUS-ONE,U-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	U-BOX,PICINF-TBL /?BOGUS3
+?BOGUS3:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND4
+	RETURN	P?UP
+?CND4:	ICALL2	PICINF-PLUS-ONE,D-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	D-BOX,PICINF-TBL /?BOGUS6
+?BOGUS6:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND1
+	RETURN	P?DOWN
+?CND1:	ICALL2	PICINF-PLUS-ONE,PIC1
+	GET	PICINF-TBL,0 >TL-Y
+	GET	PICINF-TBL,1 >TL-X
+	PICINF	PIC2,PICINF-TBL /?BOGUS9
+?BOGUS9:	GET	PICINF-TBL,0
+	ADD	STACK,TL-Y >BR-Y
+	GET	PICINF-TBL,1
+	ADD	STACK,TL-X >BR-X
+	GET	PICINF-TBL,1
+	DIV	STACK,2
+	ADD	TL-X,STACK >CENTER-X
+	GET	PICINF-TBL,0
+	DIV	STACK,2
+	ADD	TL-Y,STACK >CENTER-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CCL12
+	GETB	0,30
+	EQUAL?	STACK,MACINTOSH \?CCL15
+	CALL1	MAC-II?
+	ZERO?	STACK /?CCL18
+	CALL	MAC-II-CLICK,CENTER-X,CENTER-Y >DIR
+	JUMP	?CND13
+?CCL18:	CALL	MAC-CLICK,CENTER-X,CENTER-Y,TL-X,TL-Y >DIR
+?CND13:	ZERO?	DIR /?CCL21
+	RETURN	DIR
+?CCL15:	SOUND	1
+	PRINTI	"[Sorry, clicking on the compass rose is not yet implemented on this machine.]"
+	CRLF	
+	RFALSE	
+?CCL21:	SOUND	1
+	RFALSE	
+?CCL12:	SOUND	1
+	RFALSE	
+
+
+	.FUNCT	MAC-CLICK,CENTER-X,CENTER-Y,TL-X,TL-Y,X,Y,DIR,?TMP3,?TMP1,?TMP2
+	ADD	TL-X,25 >?TMP2
+	ADD	TL-X,35 >?TMP1
+	ADD	TL-Y,20
+	CALL	WITHIN?,?TMP2,TL-Y,?TMP1,STACK
+	ZERO?	STACK /?CCL3
+	SET	'DIR,P?NORTH
+	RETURN	DIR
+?CCL3:	ADD	TL-X,25 >?TMP3
+	ADD	TL-Y,36 >?TMP2
+	ADD	TL-X,35 >?TMP1
+	ADD	TL-Y,58
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL5
+	SET	'DIR,P?SOUTH
+	RETURN	DIR
+?CCL5:	ADD	TL-X,38 >?TMP3
+	ADD	TL-Y,23 >?TMP2
+	ADD	TL-X,60 >?TMP1
+	ADD	TL-Y,33
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL7
+	SET	'DIR,P?EAST
+	RETURN	DIR
+?CCL7:	ADD	TL-Y,23 >?TMP2
+	ADD	TL-X,22 >?TMP1
+	ADD	TL-Y,33
+	CALL	WITHIN?,TL-X,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL9
+	SET	'DIR,P?WEST
+	RETURN	DIR
+?CCL9:	ADD	TL-X,37 >?TMP3
+	ADD	TL-Y,10 >?TMP2
+	ADD	TL-X,48 >?TMP1
+	ADD	TL-Y,21
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL11
+	SET	'DIR,P?NE
+	RETURN	DIR
+?CCL11:	ADD	TL-X,37 >?TMP3
+	ADD	TL-Y,35 >?TMP2
+	ADD	TL-X,48 >?TMP1
+	ADD	TL-Y,46
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL13
+	SET	'DIR,P?SE
+	RETURN	DIR
+?CCL13:	ADD	TL-X,12 >?TMP3
+	ADD	TL-Y,35 >?TMP2
+	ADD	TL-X,23 >?TMP1
+	ADD	TL-Y,46
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL15
+	SET	'DIR,P?SW
+	RETURN	DIR
+?CCL15:	ADD	TL-X,12 >?TMP3
+	ADD	TL-Y,10 >?TMP2
+	ADD	TL-X,23 >?TMP1
+	ADD	TL-Y,21
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /?CCL17
+	SET	'DIR,P?NW
+	RETURN	DIR
+?CCL17:	ADD	TL-X,23 >?TMP3
+	ADD	TL-Y,21 >?TMP2
+	ADD	TL-X,37 >?TMP1
+	ADD	TL-Y,35
+	CALL	WITHIN?,?TMP3,?TMP2,?TMP1,STACK
+	ZERO?	STACK /FALSE
+	GRTR?	MOUSE-LOC-X,CENTER-X \?CCL22
+	LESS?	MOUSE-LOC-Y,CENTER-Y \?CCL22
+	SUB	MOUSE-LOC-X,CENTER-X >X
+	SUB	CENTER-Y,MOUSE-LOC-Y >Y
+	GRTR?	X,Y \?CCL27
+	SET	'DIR,P?EAST
+	RETURN	DIR
+?CCL27:	SET	'DIR,P?NORTH
+	RETURN	DIR
+?CCL22:	GRTR?	MOUSE-LOC-X,CENTER-X \?CCL29
+	SUB	MOUSE-LOC-X,CENTER-X >X
+	SUB	MOUSE-LOC-Y,CENTER-Y >Y
+	GRTR?	X,Y \?CCL32
+	SET	'DIR,P?EAST
+	RETURN	DIR
+?CCL32:	SET	'DIR,P?SOUTH
+	RETURN	DIR
+?CCL29:	GRTR?	MOUSE-LOC-Y,CENTER-Y \?CCL34
+	SUB	CENTER-X,MOUSE-LOC-X >X
+	SUB	MOUSE-LOC-Y,CENTER-Y >Y
+	GRTR?	X,Y \?CCL37
+	SET	'DIR,P?WEST
+	RETURN	DIR
+?CCL37:	SET	'DIR,P?SOUTH
+	RETURN	DIR
+?CCL34:	SUB	CENTER-X,MOUSE-LOC-X >X
+	SUB	CENTER-Y,MOUSE-LOC-Y >Y
+	GRTR?	X,Y \?CCL40
+	SET	'DIR,P?WEST
+	RETURN	DIR
+?CCL40:	SET	'DIR,P?NORTH
+	RETURN	DIR
+
+
+	.FUNCT	MAC-II-CLICK,CENTER-X,CENTER-Y,X,Y,DIR,?TMP1
+	GRTR?	MOUSE-LOC-X,CENTER-X \?CCL3
+	LESS?	MOUSE-LOC-Y,CENTER-Y \?CCL3
+	SUB	MOUSE-LOC-X,CENTER-X >X
+	SUB	CENTER-Y,MOUSE-LOC-Y >Y
+	MUL	X,TANGENT-VALUE >?TMP1
+	MUL	Y,100
+	GRTR?	?TMP1,STACK \?CCL8
+	SET	'DIR,P?EAST
+	RETURN	DIR
+?CCL8:	MUL	Y,TANGENT-VALUE >?TMP1
+	MUL	X,100
+	GRTR?	?TMP1,STACK \?CCL10
+	SET	'DIR,P?NORTH
+	RETURN	DIR
+?CCL10:	SET	'DIR,P?NE
+	RETURN	DIR
+?CCL3:	GRTR?	MOUSE-LOC-X,CENTER-X \?CCL12
+	SUB	MOUSE-LOC-X,CENTER-X >X
+	SUB	MOUSE-LOC-Y,CENTER-Y >Y
+	MUL	X,TANGENT-VALUE >?TMP1
+	MUL	Y,100
+	GRTR?	?TMP1,STACK \?CCL15
+	SET	'DIR,P?EAST
+	RETURN	DIR
+?CCL15:	MUL	Y,TANGENT-VALUE >?TMP1
+	MUL	X,100
+	GRTR?	?TMP1,STACK \?CCL17
+	SET	'DIR,P?SOUTH
+	RETURN	DIR
+?CCL17:	SET	'DIR,P?SE
+	RETURN	DIR
+?CCL12:	GRTR?	MOUSE-LOC-Y,CENTER-Y \?CCL19
+	SUB	CENTER-X,MOUSE-LOC-X >X
+	SUB	MOUSE-LOC-Y,CENTER-Y >Y
+	MUL	X,TANGENT-VALUE >?TMP1
+	MUL	Y,100
+	GRTR?	?TMP1,STACK \?CCL22
+	SET	'DIR,P?WEST
+	RETURN	DIR
+?CCL22:	MUL	Y,TANGENT-VALUE >?TMP1
+	MUL	X,100
+	GRTR?	?TMP1,STACK \?CCL24
+	SET	'DIR,P?SOUTH
+	RETURN	DIR
+?CCL24:	SET	'DIR,P?SW
+	RETURN	DIR
+?CCL19:	SUB	CENTER-X,MOUSE-LOC-X >X
+	SUB	CENTER-Y,MOUSE-LOC-Y >Y
+	MUL	X,TANGENT-VALUE >?TMP1
+	MUL	Y,100
+	GRTR?	?TMP1,STACK \?CCL27
+	SET	'DIR,P?WEST
+	RETURN	DIR
+?CCL27:	MUL	Y,TANGENT-VALUE >?TMP1
+	MUL	X,100
+	GRTR?	?TMP1,STACK \?CCL29
+	SET	'DIR,P?NORTH
+	RETURN	DIR
+?CCL29:	SET	'DIR,P?NW
+	RETURN	DIR
+
+
+	.FUNCT	SAY-HERE,X
+	ICALL2	DPRINT,HERE
+	LOC	PROTAGONIST >X
+	IN?	PROTAGONIST,CARD-TABLE \?CCL3
+	PRINTI	", at"
+	ICALL2	TPRINT,X
+	RTRUE	
+?CCL3:	EQUAL?	X,HERE /?CCL5
+	FSET?	X,VEHBIT \?CCL5
+	PRINTI	", "
+	FSET?	X,INBIT \?CCL10
+	PRINTC	105
+	JUMP	?CND8
+?CCL10:	PRINTC	111
+?CND8:	PRINTC	110
+	ICALL2	TPRINT,X
+	RTRUE	
+?CCL5:	ZERO?	UNDER-TABLE /TRUE
+	PRINTI	", under the table"
+	RTRUE	
+
+
+	.FUNCT	CENTER-1,STR,BOLD,Y,X,LEN
+	CURGET	SLINE
+	GET	SLINE,0 >Y
+	WINGET	S-TEXT,WWIDE
+	DIV	STACK,2 >X
+	ZERO?	BOLD /?CND1
+	HLIGHT	H-BOLD
+?CND1:	DIROUT	D-TABLE-ON,SLINE,-80
+	PRINT	STR
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+	DIV	LEN,2
+	SUB	X,STACK
+	CURSET	Y,STACK
+	PRINT	STR
+	HLIGHT	H-NORMAL
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CENTER-2,STR1,STR2,Y,X1,X2,LEN
+	CURGET	SLINE
+	GET	SLINE,0 >Y
+	WINGET	S-TEXT,WWIDE
+	DIV	STACK,3 >X1
+	MUL	X1,2 >X2
+	DIROUT	D-TABLE-ON,SLINE,-80
+	PRINT	STR1
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+	DIV	LEN,2
+	SUB	X1,STACK
+	CURSET	Y,STACK
+	PRINT	STR1
+	DIROUT	D-TABLE-ON,SLINE,-80
+	PRINT	STR2
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+	DIV	LEN,2
+	SUB	X2,STACK
+	CURSET	Y,STACK
+	PRINT	STR2
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CENTER-3,STR1,STR2,STR3,Y,X1,X2,X3,LEN
+	CURGET	SLINE
+	GET	SLINE,0 >Y
+	WINGET	S-TEXT,WWIDE
+	DIV	STACK,4 >X1
+	MUL	X1,2 >X2
+	MUL	X1,3 >X3
+	DIROUT	D-TABLE-ON,SLINE,-80
+	PRINT	STR1
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+	DIV	LEN,2
+	SUB	X1,STACK
+	CURSET	Y,STACK
+	PRINT	STR1
+	DIROUT	D-TABLE-ON,SLINE,-80
+	PRINT	STR2
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+	DIV	LEN,2
+	SUB	X2,STACK
+	CURSET	Y,STACK
+	PRINT	STR2
+	DIROUT	D-TABLE-ON,SLINE,-80
+	PRINT	STR3
+	DIROUT	D-TABLE-OFF
+	GET	0,24 >LEN
+	DIV	LEN,2
+	SUB	X3,STACK
+	CURSET	Y,STACK
+	PRINT	STR3
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TOUCHING?,THING
+	EQUAL?	PRSO,THING \?CCL3
+	EQUAL?	PRSA,V?BITE,V?CLEAN,V?CLIMB /TRUE
+	EQUAL?	PRSA,V?CLIMB-DOWN,V?CLIMB-ON,V?CLIMB-UP /TRUE
+	EQUAL?	PRSA,V?CLOSE,V?CUT,V?EAT /TRUE
+	EQUAL?	PRSA,V?ENTER,V?KICK,V?KILL /TRUE
+	EQUAL?	PRSA,V?KISS,V?KNOCK,V?LOCK /TRUE
+	EQUAL?	PRSA,V?LOOK-BEHIND,V?LOOK-INSIDE,V?LOOK-UNDER /TRUE
+	EQUAL?	PRSA,V?MOVE,V?MUNG,V?OFF /TRUE
+	EQUAL?	PRSA,V?ON,V?OPEN,V?PUSH /TRUE
+	EQUAL?	PRSA,V?RAISE,V?REACH-IN,V?SEARCH /TRUE
+	EQUAL?	PRSA,V?SET,V?SHAKE,V?STAND-ON /TRUE
+	EQUAL?	PRSA,V?SWIM,V?TASTE,V?TAKE /TRUE
+	EQUAL?	PRSA,V?THROW,V?TIE,V?TOUCH /TRUE
+	EQUAL?	PRSA,V?UNLOCK /TRUE
+?CCL3:	EQUAL?	PRSI,THING \FALSE
+	EQUAL?	PRSA,V?PUT-ON,V?PUT,V?GIVE /TRUE
+	RFALSE	
+
+
+	.FUNCT	HANDLE,OBJ
+	EQUAL?	OBJ,PRSO \?PRD5
+	CALL2	EVERYWHERE-VERB?,1
+	ZERO?	STACK \FALSE
+?PRD5:	EQUAL?	OBJ,PRSI \TRUE
+	CALL2	EVERYWHERE-VERB?,2
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	CANT-SEE,OBJ,STRING,WRD
+	CALL2	GET-NP,OBJ >WRD
+	ZERO?	WRD /?CND1
+	GET	WRD,2 >WRD
+?CND1:	SET	'P-WON,FALSE-VALUE
+	PRINTC	91
+	PRINT	YOU-CANT
+	PRINTI	"see"
+	ZERO?	OBJ /?CCL4
+	ZERO?	WRD /?CND3
+	CALL2	CAPITAL-NOUN?,WRD
+	ZERO?	STACK \?CND3
+?CCL4:	PRINTI	" any"
+?CND3:	ZERO?	OBJ \?CCL11
+	PRINTC	32
+	PRINT	STRING
+	JUMP	?CND9
+?CCL11:	EQUAL?	OBJ,PRSI \?CCL13
+	ICALL1	PRSI-PRINT
+	JUMP	?CND9
+?CCL13:	ICALL1	PRSO-PRINT
+?CND9:	PRINTI	" here.]"
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	PRSO-PRINT,PTR
+	CALL	NOUN-USED?,PRSO,W?IT
+	ZERO?	STACK /?CCL3
+	PRINTC	32
+	CALL2	DPRINT,PRSO
+	RSTACK	
+?CCL3:	PRINTC	32
+	CALL2	GET-NP,PRSO
+	CALL2	NP-PRINT,STACK
+	RSTACK	
+
+
+	.FUNCT	PRSI-PRINT,PTR
+	CALL	NOUN-USED?,PRSI,W?IT
+	ZERO?	STACK /?CCL3
+	PRINTC	32
+	CALL2	DPRINT,PRSI
+	RSTACK	
+?CCL3:	PRINTC	32
+	CALL2	GET-NP,PRSI
+	CALL2	NP-PRINT,STACK
+	RSTACK	
+
+
+	.FUNCT	CANT-VERB-A-PRSO,STRING
+	PRINT	YOU-CANT
+	PRINT	STRING
+	ICALL2	APRINT,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	TELL-HIT-HEAD
+	PRINTI	"You hit your head against"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" as you attempt this feat."
+
+
+	.FUNCT	OPEN-CLOSED,OBJ
+	FSET?	OBJ,OPENBIT \?CCL3
+	PRINTI	"open"
+	RTRUE	
+?CCL3:	PRINTI	"closed"
+	RTRUE	
+
+
+	.FUNCT	CANT-REACH,OBJ
+	ZERO?	HAND-IN-WALDO /?CCL3
+	EQUAL?	OBJ,WALDO /?CCL3
+	IN?	OBJ,HERE \?CCL3
+	PRINTR	"The waldo doesn't seem capable of that."
+?CCL3:	ZERO?	UNDER-TABLE /?CCL8
+	PRINT	YOULL-HAVE-TO
+	PRINTR	"get out from under the table in order to reach it."
+?CCL8:	PRINT	YOU-CANT
+	PRINTI	"reach"
+	ICALL2	TPRINT,OBJ
+	IN?	PROTAGONIST,HERE /?CND9
+	PRINTI	" from"
+	LOC	PROTAGONIST
+	ICALL2	TPRINT,STACK
+?CND9:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	DO-FIRST,STRING,OBJ
+	PRINT	YOULL-HAVE-TO
+	PRINT	STRING
+	ZERO?	OBJ /?CND1
+	ICALL2	TPRINT,OBJ
+?CND1:	PRINTR	" first."
+
+
+	.FUNCT	NOT-IN
+	PRINTI	"But"
+	ICALL2	IS-ARE-PRINT,PRSO
+	PRINTI	"not "
+	FSET?	PRSI,ACTORBIT \?CCL3
+	PRINTI	"being held by"
+	JUMP	?CND1
+?CCL3:	FSET?	PRSI,SURFACEBIT \?CCL5
+	PRINTI	"on"
+	JUMP	?CND1
+?CCL5:	PRINTI	"in"
+?CND1:	CALL2	TRPRINT,PRSI
+	RSTACK	
+
+
+	.FUNCT	PART-OF
+	PRINT	YOU-CANT
+	PRINTI	"--"
+	ICALL2	IS-ARE-PRINT,PRSO
+	PRINTI	"an integral part of"
+	LOC	PRSO
+	CALL2	TRPRINT,STACK
+	RSTACK	
+
+
+	.FUNCT	RECOGNIZE
+	SET	'P-WON,FALSE-VALUE
+	PRINTR	"[Sorry, but I don't understand. Please rephrase that or try something else.]"
+
+
+	.FUNCT	PRONOUN
+	EQUAL?	PRSO,ME \?CCL3
+	PRINTI	"You"
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,WHITE-CASTLE \?CCL5
+	CALL	NOUN-USED?,WHITE-CASTLE,W?MAN
+	ZERO?	STACK \?CCL5
+	PRINTI	"It"
+	RTRUE	
+?CCL5:	FSET?	PRSO,PLURALBIT \?CCL9
+	PRINTI	"They"
+	RTRUE	
+?CCL9:	FSET?	PRSO,FEMALEBIT \?CCL11
+	PRINTI	"She"
+	RTRUE	
+?CCL11:	FSET?	PRSO,ACTORBIT \?CCL13
+	PRINTI	"He"
+	RTRUE	
+?CCL13:	PRINTI	"It"
+	RTRUE	
+
+
+	.FUNCT	HIT-ANY-KEY,STRING
+	PRINTI	"[Hit any key to "
+	ZERO?	STRING /?CCL3
+	PRINTI	"begin playing "
+	PRINT	STRING
+	JUMP	?CND1
+?CCL3:	PRINTI	"continue"
+?CND1:	PRINTI	".]"
+	DIROUT	D-SCREEN-OFF
+	CRLF	
+	DIROUT	D-SCREEN-ON
+	ZERO?	DEMO-VERSION? /?CCL6
+	ICALL2	INPUT-DEMO,1
+	JUMP	?CND4
+?CCL6:	INPUT	1
+?CND4:	CALL1	MOUSE-INPUT?
+	RSTACK	
+
+
+	.FUNCT	LOCKED-UNLOCKED,OBJ,UN
+	PRINTI	"A faint click indicates that"
+	ICALL2	TPRINT,OBJ
+	PRINTI	" is now "
+	ZERO?	UN /?CND1
+	PRINTI	"un"
+?CND1:	PRINTR	"locked."
+
+
+	.FUNCT	CANT-TURN,STRING
+	PRINT	YOU-CANT
+	PRINTI	"turn that o"
+	PRINT	STRING
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	YOU-MUST-TELL-ME
+	PRINTI	"You must tell me how to do that to"
+	CALL2	ARPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	GRUE-PIT-WARNING
+	IN?	PROTAGONIST,DB /?CND1
+	ZERO?	TIME-STOPPED \?CND1
+	EQUAL?	HERE,PIT-BOMB-LOC /?CND1
+	PRINTI	" You are likely to "
+	FSET?	LANTERN,TRYTAKEBIT \?CCL8
+	PRINTR	"fall into a bottomless pit."
+?CCL8:	PRINTR	"be eaten by a grue."
+?CND1:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DARK-DEATH
+	PRINTI	"Oh, no! You have "
+	FSET?	LANTERN,TRYTAKEBIT \?CCL3
+	PRINTI	"fallen into a bottomless pit"
+	JUMP	?CND1
+?CCL3:	PRINTI	"walked into the slavering fangs of a lurking grue"
+?CND1:	CALL2	JIGS-UP,STR?135
+	RSTACK	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/globals.zil b/globals.zil
new file mode 100644
index 0000000..2fcf4f7
--- /dev/null
+++ b/globals.zil
@@ -0,0 +1,2460 @@
+"GLOBALS for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+;<BEGIN-SEGMENT 0>
+
+<INCLUDE "BASEDEFS" "FIND" "PDEFS">
+
+<ADJ-SYNONYM LARGE HUGE BIG GIANT GIGANTIC TREMENDOUS MIGHTY MASSIVE ENORMOUS
+	     ;"LARGER HUGER BIGGER MIGHTIER">
+
+<ADJ-SYNONYM SMALL SMALLER TINY TINIER LITTLE PETITE TEENSY WEENSY>
+
+;<ADJ-SYNONYM MY MINE> ;"screws up parsing of Iron Mine and Granola Mine"
+
+<GLOBAL LIT T>
+
+<GLOBAL MOVES 0>
+
+<GLOBAL SCORE 0>
+
+<GLOBAL HERE:OBJECT BANQUET-HALL>
+
+<OBJECT GLOBAL-OBJECTS
+	;(SYNONYM ZZMGCK) ;"No, this synonym doesn't need to exist... sigh"
+	(DESC "it")
+	(FLAGS INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT OPENBIT SEARCHBIT
+	       TRANSBIT WEARBIT ONBIT LIGHTBIT RLANDBIT WORNBIT INTEGRALBIT
+	       VEHBIT OUTSIDEBIT CONTBIT VOWELBIT LOCKEDBIT NDESCBIT DOORBIT
+	       ACTORBIT PARTBIT INBIT FEMALEBIT KLUDGEBIT DROPBIT BURNBIT
+	       ORBBIT FLAMEBIT NALLBIT KEYBIT UNDERGROUNDBIT REDESCBIT)>
+
+<OBJECT LOCAL-GLOBALS
+	(LOC GLOBAL-OBJECTS)
+	(DESC "it")
+	;(SYNONYM ZZMGCK)
+	;(DESCFCN 0)
+        ;(GLOBAL GLOBAL-OBJECTS)
+	;(FDESC "F")
+	;(LDESC "F")
+	;(SIZE 0)
+	;(TEXT "")
+	;(CAPACITY 0)
+	;(GENERIC ME-F)>
+
+<OBJECT ROOMS
+	;(IN TO ROOMS)
+	(DESC "it")>
+
+<OBJECT INTNUM
+	(LOC GLOBAL-OBJECTS)
+	(DESC "number")
+	(SYNONYM NUMBER NUMBERS INT.NUM)
+	(ADJECTIVE INT.NUM INT.TIM)
+	(ACTION INTNUM-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE INTNUM-F ("AUX" X)
+	 <COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+		     <NOUN-USED? ,INTNUM ,W?NUMBER>>
+		<TELL
+"The number engraved on the wall is \"" N ,CONSTRUCTION-LOC ".\"" CR>)>>
+
+<END-SEGMENT>
+
+<OBJECT IT
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM IT ;THEM)
+	(DESC "it")
+	(FLAGS VOWELBIT NARTICLEBIT TOUCHBIT)>
+
+<OBJECT HIM
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM HIM HIMSELF)
+	(DESC "him")
+	(FLAGS NARTICLEBIT TOUCHBIT)>
+
+<OBJECT HER
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM HER HERSELF)
+	(DESC "her")
+	(FLAGS NARTICLEBIT TOUCHBIT)>
+
+<OBJECT LEFT-RIGHT
+	(LOC GLOBAL-OBJECTS)
+	(DESC "that way")
+	(SYNONYM LEFT RIGHT)
+	(FLAGS NARTICLEBIT)
+	(ACTION LEFT-RIGHT-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE LEFT-RIGHT-F ()
+	 <COND (<VERB? CHASTISE> ;"LOOK LEFT or LOOK RIGHT"
+		<TELL "You see nothing unusual." CR>)
+	       (<VERB? WALK WALK-TO ENTER>
+		<COND (<AND <EQUAL? ,HERE ,WEIRD>
+			    <NOUN-USED? ,LEFT-RIGHT ,W?LEFT>
+			    <EQUAL? ,TOWER-BEATEN ,PYRAMID-L>>
+		       <DO-WALK ,P?WEST>)
+		      (<AND <EQUAL? ,HERE ,WEIRD>
+			    <NOUN-USED? ,LEFT-RIGHT ,W?RIGHT>
+			    <EQUAL? ,TOWER-BEATEN ,PYRAMID-R>>
+		       <DO-WALK ,P?EAST>)
+		      (<EQUAL? ,HERE ,TESTING-ROOM>
+		       <PERFORM ,V?ENTER
+				<COND (<NOUN-USED? ,LEFT-RIGHT ,W?RIGHT>
+				       ,RIGHT-BOOTH)
+				      (T
+				       ,LEFT-BOOTH)>>)
+		      (T
+		       <V-WALK-AROUND>)>)
+	       (<VERB? SET>
+		<TELL "You turn ninety degrees, with little effect." CR>)>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT GRUE
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM GRUE GRUES)
+	(ADJECTIVE LURKING SINISTER HUNGRY SILENT)
+	(DESC "lurking grue")
+	(RESEARCH
+"\"The grue was once a sinister, lurking presence in the dark places of the
+earth. Its favorite diet was adventurers, but its insatiable appetite was
+tempered by its fear of light. No grue was ever seen by the light of day,
+and few ever survived its fearsome jaws to tell the tale.\"|
+   The encyclopedia goes on to say, \"Grues were eradicated from the face of
+the world during the time of Entharion, many by his own hand and his legendary
+blade Grueslayer. Although it has now been many a century since the last grue
+sighting, old hags still delight in scaring children by telling them that
+grues still lurk in the bottomless pits of the Empire, and will one day lurk
+forth again.\"") 
+	(ACTION GRUE-F)>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<ROUTINE GRUE-F ()
+	 <COND (<VERB? EXAMINE FIND>
+		<COND (<FSET? ,LANTERN ,TRYTAKEBIT>
+		       <TELL
+"Don't be silly! There haven't been grues around for centuries!" CR>)
+		      (T
+		       <TELL
+"There is no grue here, but I'm sure there is at least one lurking
+in the darkness nearby.">
+		       <COND (<AND <FIND-IN ,PROTAGONIST ,ONBIT>
+				   <NOT <FSET? ,HERE ,ONBIT>>>
+			      <TELL
+" I wouldn't let my light go out if I were you!" CR>)>)>)>>
+
+<OBJECT SAILOR
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sailor")
+	(SYNONYM SAILOR)
+	(ACTION SAILOR-F)>
+
+<ROUTINE SAILOR-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<COND (<VERB? HELLO>
+		       <TELL "Nothing happens here." CR>)
+		      (T
+		       <CANT-SEE ,SAILOR>)>)
+	       (<VERB? WAIT-FOR>
+		<TELL "You are liable to be waiting for several sequels." CR>)
+	       (<AND <HANDLE ,SAILOR>
+		     <NOT <VERB? TELL HELLO>>>
+		<CANT-SEE ,SAILOR>)>>
+
+<OBJECT GLOBAL-SLEEP
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sleep")
+	(SYNONYM SLEEP NAP SNOOZE)
+	(FLAGS NARTICLEBIT)
+	(ACTION GLOBAL-SLEEP-F)>
+
+<ROUTINE GLOBAL-SLEEP-F ()
+	 <COND (<VERB? WALK-TO TAKE>
+		<V-SLEEP>)
+	       (<AND <VERB? PUT-TO>
+		     <PRSI? ,GLOBAL-SLEEP>>
+		<COND (<PRSO? ,BEDBUG>
+		       <TELL "You sing a brief lullaby. ">
+		       <REMOVE-BEDBUG "hear">)
+		      (T
+		       <TELL "You're not a hypnotist." CR>)>)>>
+
+<OBJECT LULLABY
+	(LOC GLOBAL-OBJECTS)
+	(DESC "lullaby")
+	(SYNONYM LULLABY LULLABYE SONG)
+	(ACTION LULLABY-F)>
+
+<ROUTINE LULLABY-F ("AUX" ACTOR)
+	 <COND (<VERB? SING>
+		<COND (<NOT ,PRSI>
+		       <COND (<IN? ,BEDBUG ,HERE>
+			      <SETG PRSI ,BEDBUG>)
+			     (<SET ACTOR <FIND-IN ,HERE ,ACTORBIT>>
+			      <SETG PRSI .ACTOR>)
+			     (T
+			      <TELL
+"[If you put me to sleep, you'd have a heck of a time communicating with the
+game! By the way, don't expect any offers from the Borphee Opera Company.]" CR>
+			      <RTRUE>)>)>
+		<COND (<PRSI? ,BEDBUG>
+		       <PERFORM ,V?PUT-TO ,BEDBUG ,GLOBAL-SLEEP>
+		       <RTRUE>)
+		      (<FSET? ,PRSI ,ACTORBIT>
+		       <TELL
+"Despite your best rendition," T ,PRSI " remains awake." CR>)
+		      (T
+		       <TELL
+"Amazingly," T ,PRSI " is now motionless! You must have put
+it right to sleep! Incredible! What a talent!" CR>)>)
+	       (<VERB? PLAY>
+		<COND (<AND <IN? ,BEDBUG ,HERE>
+			    <NOUN-USED? ,LULLABY ,W?LULLABY ,W?LULLABYE>>
+		       <PERFORM ,V?PUT-TO ,BEDBUG ,GLOBAL-SLEEP>
+		       <RTRUE>)
+		      (<ULTIMATELY-IN? ,VIOLIN ,PROTAGONIST>
+		       <TELL "[with" T ,VIOLIN "]" CR>
+		       <PERFORM-PRSA ,VIOLIN>)
+		      (<IN? ,HARMONICA ,PROTAGONIST>
+		       <TELL "[with" T ,HARMONICA "]" CR>
+		       <PERFORM-PRSA ,HARMONICA>)
+		      (T
+		       <TELL "You have no instrument to play it on." CR>)>)>>
+
+<OBJECT GROUND
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM FLOOR GROUND SAND)
+	(SDESC "ground")
+	(ACTION GROUND-F)>
+
+<ROUTINE GROUND-F ()
+	 <SET-GROUND-DESC>
+	 <COND (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,OUBLIETTE>
+		       <TELL "Mud. Squishy mud." CR>)
+		      (<EQUAL? ,HERE ,PITS>
+		       <PERFORM ,V?EXAMINE ,PITS-OBJECT>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,TIGHT-SQUEEZE>
+		       <TELL
+"You see a man-sized opening through which cool air seems to flow." CR>)>)
+	       (<VERB? LOOK-UNDER>
+		<IMPOSSIBLES>)
+	       (<VERB? CLIMB-UP CLIMB-ON CLIMB ENTER>
+		<WASTES>)
+	       (<VERB? LEAVE>
+		<DO-WALK ,P?UP>)>>
+
+<ROUTINE SET-GROUND-DESC ()
+	 <COND (<FSET? ,HERE ,OUTSIDEBIT>
+		<PUTP ,GROUND ,P?SDESC "ground">)
+	       (<FSET? ,HERE ,DESERTBIT>
+		<PUTP ,GROUND ,P?SDESC "sand">)
+	       (T
+		<PUTP ,GROUND ,P?SDESC "floor">)>>
+
+<OBJECT GLOBAL-HOLE ;"exists entirely so player can type DIG HOLE"
+	(LOC GLOBAL-OBJECTS)
+	(DESC "hole")
+	(SYNONYM HOLE)
+	(ACTION GLOBAL-HOLE-F)>
+
+<ROUTINE GLOBAL-HOLE-F ()
+	 <COND (<AND <VERB? DIG>
+		     <PRSO? ,GLOBAL-HOLE>>
+		<COND (,PRSI
+		       <COND (<PRSI? ,SHOVEL>
+			      <PERFORM-PRSA ,GROUND ,SHOVEL>)
+			     (<ULTIMATELY-IN? ,SHOVEL>
+			      <TELL "[with the shovel]" CR>
+			      <PERFORM-PRSA ,PRSI ,SHOVEL>)
+			     (T
+			      <TELL "[with your hands]" CR>
+			      <PERFORM-PRSA ,PRSI ,HANDS>)>)
+		      (<ULTIMATELY-IN? ,SHOVEL>
+		       <TELL "[with the shovel]" CR>
+		       <PERFORM-PRSA ,GROUND ,SHOVEL>)
+		      (T
+		       <TELL "[with your hands]" CR>
+		       <PERFORM-PRSA ,GROUND ,HANDS>)>)
+	       (<HANDLE ,GLOBAL-HOLE>
+		<CANT-SEE ,GLOBAL-HOLE>)>>
+
+<OBJECT WALL
+	(LOC GLOBAL-OBJECTS)
+	(DESC "wall")
+	(SYNONYM WALL WALLS)
+	(ADJECTIVE NORTH ;N ;NORTHEAST NE EAST ;E ;SOUTHEAST SE
+	 	   SOUTH ;S ;SOUTHWEST SW WEST ;W ;NORTHWEST NW
+		   REAR FAR)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(ACTION WALL-F)>
+
+<ROUTINE WALL-F ("AUX" (CNT 0))
+   <COND (<VERB? READ EXAMINE>
+	  <COND (<EQUAL? ,HERE ,CHURCH>
+		 <PERFORM ,V?READ ,TENET>
+		 <RTRUE>)
+		(<AND <EQUAL? ,HERE ,CELL>
+		      <IN? ,COBWEBS ,CELL>>
+		 <TELL ,CELL-WALL-DESC CR>)>)
+	 (<AND <VERB? CLEAN>
+	       <EQUAL? ,HERE ,CELL>
+	       <ADJ-USED? ,WALL ,W?REAR>
+	       <IN? ,COBWEBS ,CELL>>
+	  <PERFORM ,V?CLEAN ,COBWEBS>
+	  <RTRUE>)
+	 (<VERB? THROW-OVER>
+	  <COND (<EQUAL? ,HERE ,PERIMETER-WALL>
+		 <TELL
+"Babe Flathead himself couldn't toss something over this towering wall!" CR>)
+		(T
+		 <TELL "The wall joins the ceiling!" CR>)>)
+	 (<AND <VERB? PUT PUT-ON>
+	       <PRSO? ,N-S-PASSAGE ,NW-SE-PASSAGE>>
+	  <COND (<ADJ-USED? ,WALL <>>
+		 <SETG P-WON <>>
+		 <TELL
+"[You didn't specify which wall you meant: EAST WALL for example.]" CR>)
+		(<OR <AND <PRSO? ,N-S-PASSAGE>
+			  <NOT <ADJ-USED? ,WALL ,W?NORTH ,W?N>>
+			  <NOT <ADJ-USED? ,WALL ,W?SOUTH ,W?S>>>
+		     <AND <PRSO? ,NW-SE-PASSAGE>
+			  <NOT <ADJ-USED? ,WALL ,W?NORTHWEST ,W?NW>>
+			  <NOT <ADJ-USED? ,WALL ,W?SOUTHEAST ,W?SE>>>>
+		 <TELL
+,YOU-CANT "install the passage on that wall--it's" AR ,PRSO>)
+		(<PASSAGE-THERE>
+		 <RTRUE>)
+		(<OR <EQUAL? ,HERE ,GONDOLA ,HOLD>
+		     <EQUAL? <LOC ,PROTAGONIST> ,YACHT ,DB>>
+		 <TELL
+"A built-in safety feature prevents the passage from being
+installed in a vehicle." CR>)
+		(T
+		 <MOVE ,PRSO ,HERE>
+		 <FCLEAR ,PRSO ,TAKEBIT>
+		 <SETG COMPASS-CHANGED T>
+		 <PUTP ,PRSO ,P?OWNER ,WALL>
+		 <TELL "There's now a passage leading ">
+		 <COND (<PRSO? ,N-S-PASSAGE>
+			<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+			       <SETG N-S-PASSAGE-LOC ,CONSTRUCTION-LOC>)>
+			<COND (<ADJ-USED? ,WALL ,W?NORTH ,W?N>
+			       <SETG N-S-PASSAGE-DIR ,P?NORTH>
+			       <COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+					   <NOT <L? ,CONSTRUCTION-LOC 8>>>
+				      ;"second clause in predicate: can't go
+ 				        north from the top Construction row"
+				      <PUT ,NORTH-EXITS 0
+					   <+ ,CONSTRUCTION-LOC 100>>
+				      <REPEAT ()
+				      ;"passage appears in room at other end"
+					  <COND (<EQUAL?
+						   <GET ,STORAGE-TABLE .CNT> 0>
+						 <PUT ,STORAGE-TABLE .CNT
+						     <+ <- ,CONSTRUCTION-LOC 8>
+						        ,CONSTRUCTION-OFFSET>>
+						 <PUT ,STORAGE-TABLE
+						      <+ .CNT 1> ,N-S-PASSAGE>
+						 <RETURN>)
+						(T
+						 <SET CNT <+ .CNT 2>>)>>)>
+			       <TELL "nor">)
+			      (T
+			       <SETG N-S-PASSAGE-DIR ,P?SOUTH>
+			       <COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+					   <NOT <G? ,CONSTRUCTION-LOC 55>>>
+				      ;"last clause in predicate: you can't
+				        go south from bottom Construction row"
+				      <PUT ,NORTH-EXITS 0
+					   <+ ,CONSTRUCTION-LOC 108>>
+				      <REPEAT ()
+				      ;"passage appears in room at other end"
+				         <COND (<EQUAL?
+					           <GET ,STORAGE-TABLE .CNT> 0>
+					        <PUT ,STORAGE-TABLE .CNT
+						     <+ <+ ,CONSTRUCTION-LOC 8>
+						        ,CONSTRUCTION-OFFSET>>
+						<PUT ,STORAGE-TABLE
+						     <+ .CNT 1> ,N-S-PASSAGE>
+					        <RETURN>)
+					       (T
+					        <SET CNT <+ .CNT 2>>)>>)>
+				     <TELL "sou">)>
+			<TELL "th from the room." CR>)
+		       (T
+			<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+			       <SETG NW-SE-PASSAGE-LOC
+				     ,CONSTRUCTION-LOC>)>
+			<COND (<ADJ-USED? ,WALL ,W?NORTHWEST ,W?NW>
+			       <SETG NW-SE-PASSAGE-DIR ,P?NW>
+			       <COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+				       	   <NOT <OR <EQUAL?
+						      <MOD ,CONSTRUCTION-LOC 8>
+						      0>
+						    <L? ,CONSTRUCTION-LOC 8>>>>
+				      ;"last predicate clause: you can't go NW
+				        from top or west rows of Construction" 
+				      <PUT ,SE-EXITS 0
+					   <+ ,CONSTRUCTION-LOC 91>>
+				      <REPEAT ()
+				      ;"passage appears in room at other end"
+				         <COND (<EQUAL?
+						   <GET ,STORAGE-TABLE .CNT> 0>
+					        <PUT ,STORAGE-TABLE .CNT
+					             <+ <- ,CONSTRUCTION-LOC 9>
+						        ,CONSTRUCTION-OFFSET>>
+						<PUT ,STORAGE-TABLE
+					             <+ .CNT 1> ,NW-SE-PASSAGE>
+					        <RETURN>)
+					       (T
+					        <SET CNT <+ .CNT 2>>)>>)>
+			       <TELL "northwe">)
+			      (T
+			       <SETG NW-SE-PASSAGE-DIR ,P?SE>
+			       <COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+				       	   <NOT <OR <EQUAL?
+						      <MOD ,CONSTRUCTION-LOC 8>
+						      7>
+						   <G? ,CONSTRUCTION-LOC 55>>>>
+				      ;"last predicate clause: you can't go SE
+				        from bottom or east rows of Const site"
+				      <PUT ,SE-EXITS 0
+					   <+ ,CONSTRUCTION-LOC 100>>
+				      <REPEAT ()
+				      ;"passage appears in room at other end"
+				 	 <COND (<EQUAL?
+						   <GET ,STORAGE-TABLE .CNT> 0>
+						<PUT ,STORAGE-TABLE .CNT
+					     	     <+ <+ ,CONSTRUCTION-LOC 9>
+							,CONSTRUCTION-OFFSET>>
+						<PUT ,STORAGE-TABLE
+					     	     <+ .CNT 1> ,NW-SE-PASSAGE>
+						<RETURN>)
+					       (T
+						<SET CNT <+ .CNT 2>>)>>)>
+			       <TELL "southea">)>
+			<TELL "st from the room." CR>)>)>)>>
+
+<ROUTINE PASSAGE-THERE ("AUX" (PASSAGE? <>))
+	 <COND (<ADJ-USED? ,WALL ,W?NORTH ,W?N>
+		<COND (<EQUAL? ,HERE ,PEG-ROOM>
+		       <COND (<NOT ,PEG-PASSAGE-OPENED>
+			      <REPELLED "north">
+			      <SET PASSAGE? ,M-FATAL>)
+			     (T
+		       	      <SET PASSAGE? <>>)>)
+		      (<EQUAL? ,HERE ,SECRET-PASSAGE>
+		       <COND (<NOT ,SECRET-PASSAGE-OPEN>
+			      <REPELLED "north">
+			      <SET PASSAGE? ,M-FATAL>)
+			     (T
+			      <SET PASSAGE? <>>)>)
+		      (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <COND (<INTBL? ,NORTH-EXITS ,CONSTRUCTION-LOC 11>
+			      <SET PASSAGE? T>)>)
+		      (<AND <EQUAL? ,HERE ,WEIRD>
+			    <NOT <EQUAL? ,TOWER-BEATEN ,PYRAMID>>>
+		       <REPELLED "north">
+		       <SET PASSAGE? ,M-FATAL>)
+		      (<EQUAL? ,HERE ,G-U-MOUNTAIN>
+		       <COND (<IN? ,BOULDER ,HERE>
+			      <REPELLED "north">
+			      <SET PASSAGE? ,M-FATAL>)
+			     (T
+			      <SET PASSAGE? <>>)>)
+		      (<GETPT ,HERE ,P?NORTH>
+		       <SET PASSAGE? T>)>)
+	       (<ADJ-USED? ,WALL ,W?SOUTH ,W?S>
+		<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <COND (<INTBL? ,NORTH-EXITS <+ ,CONSTRUCTION-LOC 8> 11>
+			      <SET PASSAGE? T>)>)
+		      (<EQUAL? ,HERE ,THRONE-ROOM>
+		       <COND (<NOT ,SECRET-PASSAGE-OPEN>
+			      <REPELLED "south">
+			      <SET PASSAGE? ,M-FATAL>)
+			     (T
+		       	      <SET PASSAGE? <>>)>)
+		      (<GETPT ,HERE ,P?SOUTH>
+		       <SET PASSAGE? T>)>)
+	       (<ADJ-USED? ,WALL ,W?NORTHWEST ,W?NW>
+		<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <COND (<INTBL? ,SE-EXITS <- ,CONSTRUCTION-LOC 9> 7>
+			      <SET PASSAGE? T>)>)
+		      (<EQUAL? ,HERE ,PERIMETER-WALL>
+		       <SET PASSAGE? <>>)
+		      (<GETPT ,HERE ,P?NW>
+		       <SET PASSAGE? T>)>)
+	       (<ADJ-USED? ,WALL ,W?SOUTHEAST ,W?SE>
+		<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <COND (<INTBL? ,SE-EXITS ,CONSTRUCTION-LOC 7>
+			      <SET PASSAGE? T>)>)
+		      (<GETPT ,HERE ,P?SE>
+		       <SET PASSAGE? T>)>)>
+	 <COND (<EQUAL? .PASSAGE? ,M-FATAL> ;"handled earlier in routine"
+		<RTRUE>)
+	       (.PASSAGE?
+		<TELL "There's already an exit in that direction!" CR>
+		<RTRUE>)
+	       (T
+	 	<RFALSE>)>>
+
+<ROUTINE REPELLED (STRING)
+	 <TELL
+"Strangely, the passage seems repelled by the " .STRING " wall, as though
+two inconsistent types of magic were at work in the same place." CR>>
+
+<OBJECT GLOBAL-PASSAGE
+	(LOC GLOBAL-OBJECTS)
+	(DESC "passage")
+	(SYNONYM PASSAGE PASSAGEWAY TUNNEL)
+	(ADJECTIVE GLOOMY DARK SECRET HIDDEN WIDE NARROW LOW STEEP SLOPING
+	 	   DUSTY UNEVEN WINDING FORBIDDING GRAVELLY HALF-BURIED
+		   HIGHWAY POORLY-DUG)
+	(ACTION GLOBAL-PASSAGE-F)>
+
+<ROUTINE GLOBAL-PASSAGE-F ()
+	 <COND (<VERB? ENTER>
+		<V-WALK-AROUND>)>>
+
+<OBJECT CEILING
+	(LOC GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "ceiling")
+	(SYNONYM CEILING ROOF)
+	(ADJECTIVE LOW HIGH)
+	(ACTION CEILING-F)>
+
+<ROUTINE CEILING-F ()
+	 <COND (<AND <NOUN-USED? ,CEILING ,W?ROOF>
+		     <EQUAL? ,HERE ,ROOF ,PARAPET>>
+		<COND (<VERB? THROW-FROM>
+		       <REMOVE ,PRSO>
+		       <COND (<OR <PRSO? ,PERCH>
+				  <ULTIMATELY-IN? ,PERCH ,PRSO>>
+			      <SETG REMOVED-PERCH-LOC ,GROUND>)>
+		       <TELL
+"You hear a \"splat\" as" T ,PRSO " sinks into the ground far below." CR>)
+		      (<PRSO? ,CEILING>
+		       <PERFORM-PRSA ,GLOBAL-HERE ,PRSI>)
+		      (T
+		       <PERFORM-PRSA ,PRSO ,GLOBAL-HERE>)>)
+	       (<AND <FSET? ,HERE ,OUTSIDEBIT>
+		     <HANDLE ,CEILING>>
+		<CANT-SEE ,CEILING>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,BARBICAN>
+		       <TELL
+"It's too gloomy in here to make out any of the features of the ceiling." CR>)
+		      (<EQUAL? ,HERE ,MEGABOZ-HUT>
+		       <TELL ,MEGABOZ-CEILING-DESC CR>)>)
+	       (<VERB? LOOK-UNDER>
+		<PERFORM ,V?LOOK>
+		<RTRUE>)>>
+
+<OBJECT SLIME
+	(LOC LOCAL-GLOBALS)
+	(DESC "slime")
+	(SYNONYM SLIME)
+	(ADJECTIVE THICK BLACK)
+	(FLAGS NARTICLEBIT)
+	(ACTION SLIME-F)>
+
+<ROUTINE SLIME-F ()
+	 <COND (<VERB? TASTE TOUCH EAT>
+		<TELL "Mega-yucko!" CR>)>>
+
+<OBJECT WATER
+	(LOC GLOBAL-OBJECTS)
+	(DESC "water")
+	(SYNONYM WATER WATERS GLOOP GLOOPS)
+	(ADJECTIVE ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE ;TEN INT.NUM)
+	(FLAGS NARTICLEBIT)
+	(GENERIC G-VIAL-WATER-F)
+	(OWNER <>) ;"set by GOTO"
+	(ACTION WATER-F)>
+
+<ROUTINE WATER-F ("AUX" X)
+	 <COND (<SET X <FIND-WATER>>
+		T)
+	       (<AND <VISIBLE? ,LARGE-VIAL>
+		     <VISIBLE? ,SMALL-VIAL>
+		     <G? ,LARGE-VIAL-GLOOPS 0>
+		     <G? ,SMALL-VIAL-GLOOPS 0>>
+		<TELL ,WHICH-WATER>
+		<RTRUE>)
+	       (<AND <VISIBLE? ,LARGE-VIAL>
+		     <G? ,LARGE-VIAL-GLOOPS 0>>
+		<SET X ,LARGE-VIAL>)
+	       (<AND <VISIBLE? ,SMALL-VIAL>
+		     <G? ,SMALL-VIAL-GLOOPS 0>>
+		<SET X ,SMALL-VIAL>)
+	       (<NOT <HANDLE ,WATER>>
+		<RFALSE>)
+	       (T
+		<TELL ,YOU-CANT-SEE-ANY "water here.]" CR>
+		<RTRUE>)>
+	 <COND (<AND <VERB? COUNT>
+		     <NOUN-USED? ,WATER ,W?GLOOPS>>
+		<COND (<VISIBLE? ,LARGE-VIAL>
+		       <TELL "The large vial ">
+		       <COND (<EQUAL? ,LARGE-VIAL-GLOOPS 0>
+			      <TELL "is empty">)
+			     (T
+			      <TELL "contains " N ,LARGE-VIAL-GLOOPS " gloop">
+			      <COND (<NOT <EQUAL? ,LARGE-VIAL-GLOOPS 1>>
+				     <TELL "s">)>)>
+		       <COND (<VISIBLE? ,SMALL-VIAL>
+			      <TELL ". ">)
+			     (T
+			      <TELL ,PERIOD-CR>)>)>
+		<COND (<VISIBLE? ,SMALL-VIAL>
+		       <TELL "The small vial ">
+		       <COND (<EQUAL? ,SMALL-VIAL-GLOOPS 0>
+			      <TELL "is empty">)
+			     (T
+			      <TELL "contains " N ,SMALL-VIAL-GLOOPS " gloop">
+			      <COND (<NOT <EQUAL? ,SMALL-VIAL-GLOOPS 1>>
+				     <TELL "s">)>)>
+		       <TELL ,PERIOD-CR>)>)
+	       (<AND <VERB? FILL>
+		     <PRSI? ,WATER>>
+		<COND (<PRSO? ,SMALL-VIAL ,LARGE-VIAL>
+		       <COND (<EQUAL? .X ,LARGE-VIAL>
+			      <PERFORM ,V?FILL ,PRSO ,LARGE-VIAL>
+			      <RTRUE>)
+			     (<EQUAL? .X ,SMALL-VIAL>
+			      <PERFORM ,V?FILL ,PRSO ,SMALL-VIAL>
+			      <RTRUE>)
+			     (T
+			      <RFALSE> ;"handled by VIAL-F")>)
+		      (<PRSO? ,CUP>
+		       <TELL
+"The water evaporates in a puff of smoke as soon as it touches the cup.
+A strong magic is at work here!" CR>)
+		      (T
+		       <IMPOSSIBLES>)>)
+	       (<AND <VERB? REMOVE EMPTY>
+		     <NOT ,PRSI>
+		     <NOUN-USED? ,WATER ,W?GLOOP ,W?GLOOPS>
+		     <OR <VISIBLE? ,LARGE-VIAL>
+			 <VISIBLE? ,SMALL-VIAL>>>
+		<COND (<AND <VISIBLE? ,LARGE-VIAL>
+			    <VISIBLE? ,SMALL-VIAL>>
+		       <COND (<AND ,LARGE-VIAL-GLOOPS
+				   ,SMALL-VIAL-GLOOPS>
+			      <TELL "There's water in both vials." CR>
+			      <RTRUE>)
+			     (,LARGE-VIAL-GLOOPS
+			      <SETG PRSI ,LARGE-VIAL>)
+			     (,SMALL-VIAL-GLOOPS
+			      <SETG PRSI ,SMALL-VIAL>)
+			     (T
+			      <TELL "Neither vial contains water!" CR>
+			      <RTRUE>)>)
+		      (<VISIBLE? ,LARGE-VIAL>
+		       <SETG PRSI ,LARGE-VIAL>)
+		      (T
+		       <SETG PRSI ,SMALL-VIAL>)>
+		<PERFORM ,V?EMPTY-FROM ,WATER ,PRSI>
+		<RTRUE>)
+	       (<VERB? DRINK>
+		<TELL "You're not thirsty." CR>)
+	       (<VERB? LOOK-INSIDE LOOK-UNDER EXAMINE>
+		<TELL "You see nothing of interest." CR>)
+	       (<VERB? REACH-IN TOUCH>
+		<TELL "Your hand is now wet">
+		<COND (<EQUAL? ,HERE ,OASIS>
+		       <TELL " and cold">)>
+		<TELL ,PERIOD-CR>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,WATER>>
+		<COND (<IN? ,PROTAGONIST ,DB>
+		       <TELL
+"You can't reach the water -- the bathysphere is closed! (Fortunately.)" CR>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,PARLOR>
+		       <MOVE ,PRSO ,FISH-TANK>)
+		      (<EQUAL? ,HERE ,LAKE-FLATHEAD>
+		       <COND (<FSET? ,PRSO ,ANIMATEDBIT>
+			      <REMOVE ,PRSO>)
+			     (T
+			      <MOVE ,PRSO ,LAKE-BOTTOM>)>)
+		      (T
+		       <COND (<OR <PRSO? ,PERCH>
+				  <ULTIMATELY-IN? ,PERCH ,PRSO>>
+			      <SETG REMOVED-PERCH-LOC ,WATER>)>
+		       <REMOVE ,PRSO>)>
+		<TELL "With a \"p">
+		<COND (<AND <PRSO? ,CANDLE ,GUTTERING-TORCH ,FLICKERING-TORCH>
+			    <FSET? ,PRSO ,ONBIT>>
+		       <FCLEAR ,PRSO ,ONBIT>
+		       <FCLEAR ,PRSO ,FLAMEBIT>
+		       <COND (<PRSO? ,GUTTERING-TORCH>
+			      <DEQUEUE I-GUTTERING-TORCH>)
+			     (<PRSO? ,FLICKERING-TORCH>
+			      <DEQUEUE I-FLICKERING-TORCH>)>
+		       <TELL "ffft">)
+		      (T
+		       <TELL "lunk">)>
+		<TELL ",\"" T ,PRSO " sinks into the water">
+		<COND (<PRSO? ,ROOSTER ,FOX>
+		       <TELL ", you heartless animal drowner, you">)>
+		<TELL ,PERIOD-CR>)
+	       (<VERB? ENTER SWIM>
+		<COND (<EQUAL? .X ,SWAMP>
+		       <TELL
+"You're already ankle-deep in the swampy water, which is yucky enough." CR>)
+		      (<EQUAL? .X ,FRIGID-RIVER>
+		       <TELL
+"The Frigid River is known for its unpredictable currents." CR>)
+		      (<EQUAL? .X ,FLATHEAD-OCEAN>
+		       <TELL
+"The pounding surf would kill you in a moment." CR>)
+		      (<EQUAL? .X ,LAKE-FLATHEAD>
+		       <COND (,ALLIGATOR
+			      <JIGS-UP
+"The Loch Flatheadia Monster, usually dismissed as a fairy tale, wells
+up from the depths of the lake and swallows you.">)
+			     (T
+		       	      <TELL
+"These waters are known for their hungry denizens." CR>)>)
+		      (<EQUAL? .X ,STREAM-OBJECT>
+		       <DO-WALK ,P?WEST>)
+		      (<EQUAL? .X ,OASIS-OBJECT>
+		       <TELL
+"Only a Polar Gumffbeast could swim in such cold water!" CR>)
+		      (<EQUAL? .X ,FISH-TANK>
+		       <COND (,DESCRIBED-TANK-AS-LARGE
+			      <TELL
+"There's no way you could fit into this fish tank! [All right, I'll admit
+that I went a little overboard when I described the fish tank as \"bigger
+than a swimming pool.\"]" CR>)
+			     (T
+			      <SETG DESCRIBED-TANK-AS-SMALL T>
+			      <TELL
+"What? Swim in an itsy-bitsy fish tank like this one?!?" CR>)>)
+		      (<EQUAL? .X ,MOAT>
+		       <COND (,ALLIGATOR
+		       	      <JIGS-UP
+"The much, much larger alligator who lives in the moat apparently considers
+this a territorial invasion.">)
+			     (T
+		       	      <TELL
+"Not recommended. Moats tend to be populated with big,
+nasty alligators." CR>)>)>)
+	       (<PRSO? ,WATER>
+		<PERFORM-PRSA .X ,PRSI>)
+	       (T
+		<PERFORM-PRSA ,PRSO .X>)>>
+
+<ROUTINE FIND-WATER ()
+	 <COND (<GLOBAL-IN? ,MOAT ,HERE>
+		<RETURN ,MOAT>)
+	       (<EQUAL? ,HERE ,STREAM>
+		<RETURN ,STREAM-OBJECT>)
+	       (<EQUAL? ,HERE ,PARLOR>
+		<RETURN ,FISH-TANK>)
+	       (<EQUAL? ,HERE ,RIVERS-END>
+		<RETURN ,FRIGID-RIVER>)
+	       (<GLOBAL-IN? ,FLATHEAD-OCEAN ,HERE>
+		<RETURN ,FLATHEAD-OCEAN>)
+	       (<OR <EQUAL? ,HERE ,LAKE-FLATHEAD>
+		    <GLOBAL-IN? ,LAKE-FLATHEAD ,HERE>>
+		<RETURN ,LAKE-FLATHEAD>)
+	       (<GLOBAL-IN? ,SWAMP ,HERE>
+		<RETURN ,SWAMP>)
+	       (<GLOBAL-IN? ,FJORD ,HERE>
+		<RETURN ,FJORD>)
+	       (<EQUAL? ,HERE ,OASIS>
+		<RETURN ,OASIS-OBJECT>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT SMALL-VIAL-WATER
+	(DESC "water in the small vial")
+	(SYNONYM WATER GLOOP GLOOPS)
+	(ADJECTIVE ONE TWO THREE FOUR INT.NUM)
+	(FLAGS NARTICLEBIT)
+	(GENERIC G-VIAL-WATER-F)
+	(ACTION VIAL-WATER-F)>
+
+<OBJECT LARGE-VIAL-WATER
+	(DESC "water in the large vial")
+	(SYNONYM WATER GLOOP GLOOPS)
+	(ADJECTIVE ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE INT.NUM)
+	(FLAGS NARTICLEBIT)
+	(GENERIC G-VIAL-WATER-F)
+	(ACTION VIAL-WATER-F)>
+
+<ROUTINE VIAL-WATER-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <EQUAL? ,P-PRSA-WORD ,W?REMOVE>>
+		<PERFORM ,V?EMPTY-FROM ,WATER
+			 <COND (<PRSO? ,LARGE-VIAL-WATER> ,LARGE-VIAL)
+			       (T ,SMALL-VIAL)>>)>>
+
+<ROUTINE G-VIAL-WATER-F (SR F "AUX" ADJ VB)
+	 <COND (<SET ADJ <FIND-ADJS .F>>
+		<SET ADJ <CONVERT-NUMBER .ADJ>>)>
+	 <COND (<L? ,LARGE-VIAL-GLOOPS .ADJ>
+		<COND (<L? ,SMALL-VIAL-GLOOPS .ADJ>
+		       <RETURN <>>)
+		      (T
+		       <RETURN ,SMALL-VIAL-WATER>)>)
+	       (T
+		<COND (<L? ,SMALL-VIAL-GLOOPS .ADJ>
+		       <RETURN ,LARGE-VIAL-WATER>)
+		      (T
+		       <RETURN <>>)>)
+	       ;(<AND <EQUAL? <SET VB <PARSE-ACTION ,PARSE-RESULT>> ,V?POUR>
+		      <PRSI? ,LARGE-VIAL>>
+		<RETURN ,SMALL-VIAL-WATER>)
+	       ;(<AND <EQUAL? .VB ,V?POUR>
+		     <PRSI? ,SMALL-VIAL>>
+		<RETURN ,LARGE-VIAL-WATER>)
+	       ;(<AND <EQUAL? .VB ,V?EMPTY-FROM>
+		     <PRSI? ,LARGE-VIAL>>
+		<RETURN ,LARGE-VIAL-WATER>)
+	       ;(<AND <EQUAL? .VB ,V?EMPTY-FROM>
+		     <PRSI? ,SMALL-VIAL>>
+		<RETURN ,SMALL-VIAL-WATER>)
+	       ;(<GLOBAL-IN? ,WATER ,HERE>
+		<RETURN ,WATER>)
+	       ;(<AND <VISIBLE? ,SMALL-VIAL-WATER>
+		     <VISIBLE? ,LARGE-VIAL-WATER>>
+		<TELL ,WHICH-WATER>
+		<RETURN ,ROOMS>)
+	       ;(T
+		<RETURN ,WATER>)>
+	 ;<RFALSE>>
+
+;<OBJECT SKY
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sky")
+	(SYNONYM SKY)
+	(ACTION SKY-F)>
+
+;<ROUTINE SKY-F ()
+	 <COND (<AND <NOT <FSET? ,HERE ,OUTSIDEBIT>>
+		     <HANDLE ,SKY>>
+		<CANT-SEE ,SKY>)>>
+
+<CONSTANT BODY-PART-OWNERS
+	<TABLE (PURE LENGTH) PROTAGONIST DIMWIT JESTER EXECUTIONER
+	       		     SICKLY-WITCH PRICKLY-WITCH>>
+
+<OBJECT HANDS
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM HANDS HAND PALM FINGER FINGERS)
+	(ADJECTIVE BARE YOUR)
+	(DESC ;"your " "hands")
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS NDESCBIT PLURALBIT TOUCHBIT ;NARTICLEBIT PARTBIT)
+	(ACTION HANDS-F)>
+
+<ROUTINE HANDS-F ("AUX" ACTOR)
+	 <COND (<VERB? CLEAN>
+		<WASTES>)  
+	       (<VERB? SHAKE>
+		<COND (<SET ACTOR <FIND-IN ,HERE ,ACTORBIT "with">>
+		       <PERFORM ,V?SHAKE-WITH ,HANDS .ACTOR>
+		       <RTRUE>)
+		      (T
+		       <TELL "There's no one here to shake hands with." CR>)>)
+	       (<VERB? COUNT>
+		<COND (<NOUN-USED? ,HANDS ,W?FINGER ,W?FINGERS>
+		       <TELL "Ten">)
+		      (T
+		       <TELL "Two">)>
+		<TELL ", as usual." CR>)
+	       (<AND <VERB? OPEN CLOSE>
+		     ,HAND-IN-WALDO>
+		<PERFORM-PRSA ,WALDO>
+		<RTRUE>)
+	       (<VERB? REMOVE TAKE-OFF>
+		<COND (,HAND-IN-WALDO
+		       <SETG HAND-IN-WALDO <>>
+		       <TELL "You withdraw your hand." CR>)
+		      (,FINGER-ON-STRAW
+		       <SETG FINGER-ON-STRAW <>>
+		       <SETG ELIXIR-TRAPPED <>>
+		       <TELL
+"You remove your finger from the end of the straw." CR>)
+		      (T
+		       <TELL
+"To quote an old song, \"The hand bone's connected to the
+wrist bone...\"" CR>)>)
+	       (<AND <VERB? PUT-ON>
+		     <PRSO? ,GLOVE>>
+		<PERFORM ,V?WEAR ,GLOVE>
+		<RTRUE>)
+	       (<AND <VERB? TAKE-WITH>
+		     <PRSI? ,HANDS>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<AND <VERB? SNAP>
+		     <NOUN-USED? ,HANDS ,W?FINGER ,W?FINGERS>
+		     <NOT ,TIME-STOPPED>>
+		<COND (<IN? ,PROTAGONIST ,SMALL-THRONE>
+		       <OPEN-SECRET-PASSAGE?>)
+		      (T
+		       <TELL "\"Snap!\"" CR>)>)
+	       ;(<AND <VERB? PUT-ON>
+		     <PRSI? ,EYES>>
+		<PERFORM ,V?SPUT-ON ,EYES ,HANDS>
+		<RTRUE>)
+	       ;(<AND <VERB? PUT-ON PUT>
+		     <PRSI? ,EARS>>
+		<PERFORM ,V?SPUT-ON ,EARS ,HANDS>
+		<RTRUE>)>>
+
+<ROUTINE OPEN-SECRET-PASSAGE? ()
+	 <COND (,SECRET-PASSAGE-OPEN
+		<SETG SECRET-PASSAGE-OPEN <>>
+		<SETG COMPASS-CHANGED T>
+		<TELL "The secret passage closes!" CR>)
+	       (,SECRET-PASSAGE-DISCOVERED
+		<SETG SECRET-PASSAGE-OPEN T>
+		<SETG COMPASS-CHANGED T>
+		<TELL "The secret passage opens once again." CR>)
+	       (T
+		<SETG SECRET-PASSAGE-OPEN T>
+		<SETG SECRET-PASSAGE-DISCOVERED T>
+		<SETG COMPASS-CHANGED T>
+		<TELL
+"Behind the throne, accompanied by a puff of dust, a secret passage grinds
+open, leading south into darkness!">
+		<COND (<IN? ,JESTER ,HERE>
+		       <TELL
+" The jester applauds you, howling with mysterious delight.">)>
+		<CRLF>
+		<INC-SCORE ,SECRET-PASSAGE-SCORE>
+		<SETG SECRET-PASSAGE-SCORE 0>
+		<RTRUE>)>>
+
+<OBJECT FEET
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM FEET FOOT TOE TOES)
+	(ADJECTIVE YOUR)
+	(DESC ;"your " "feet")
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS NDESCBIT PLURALBIT TOUCHBIT ;NARTICLEBIT PARTBIT)
+	(ACTION FEET-F)>
+
+<ROUTINE FEET-F ()
+	 <COND (<AND <VERB? ENTER> ;"input was GET ON FEET"
+		     <EQUAL? ,P-PRSA-WORD ,W?GET>>
+		<SETG P-PRSA-WORD ,W?STAND>
+		<SETG PRSO <>>
+		<V-STAND>)>>
+
+<OBJECT HEAD
+	(LOC GLOBAL-OBJECTS)
+	(DESC "head" ;"your head")
+	(SYNONYM HEAD)
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS ;NARTICLEBIT PARTBIT)>
+
+<OBJECT EYES
+	(LOC GLOBAL-OBJECTS)
+	(DESC ;"your " "eyes")
+	(SYNONYM EYE EYES)
+	(ADJECTIVE MY MINE ORACLE\'S AMULET\'S FIRST SECOND THIRD FOURTH
+	 	   ONE TWO THREE FOUR)
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS ;NARTICLEBIT PLURALBIT PARTBIT)
+	(ACTION EYES-F)>
+
+<ROUTINE EYES-F ("AUX" WHOSE-EYE)
+	 <COND (<ADJ-USED? ,EYES ,W?MY ,W?MINE>
+		<SET WHOSE-EYE ,PROTAGONIST>)
+	       (<ADJ-USED? ,EYES ,W?ORACLE\'S>
+		<SET WHOSE-EYE ,ORACLE-OBJECT>)
+	       (<ADJ-USED? ,EYES ,W?AMULET\'S>
+		<SET WHOSE-EYE ,AMULET>)
+	       (<EQUAL? ,HERE ,ORACLE>
+		<SET WHOSE-EYE ,ORACLE-OBJECT>)
+	       (<VISIBLE? ,AMULET>
+		<SET WHOSE-EYE ,AMULET>)
+	       (T
+		<SET WHOSE-EYE ,PROTAGONIST>)>
+	 <COND (<AND <OR <ADJ-USED? ,EYES ,W?THREE ,W?FOUR>
+		     	 <ADJ-USED? ,EYES ,W?THIRD ,W?FOURTH>>
+		     <EQUAL? .WHOSE-EYE ,PROTAGONIST>>
+		<CANT-SEE ,EYES>)
+	       (<VERB? COUNT>
+		<COND (<EQUAL? .WHOSE-EYE ,PROTAGONIST>
+		       <TELL
+"Two, unless you've been careless with pointy sticks lately." CR>)
+		      (T
+		       <TELL "Four." CR>)>)
+	       (<AND <VERB? OPEN CLOSE>
+		     <EQUAL? .WHOSE-EYE ,ORACLE-OBJECT ,AMULET>>
+		<TELL "There's no way to do that yourself." CR>)
+	       (<VERB? CLOSE>
+		<PERFORM ,V?SLEEP>
+		<RTRUE>)
+	       (<VERB? OPEN>
+		<TELL "Your eyes ARE open!" CR>)>>
+
+;<OBJECT EARS
+	(LOC GLOBAL-OBJECTS)
+	(DESC ;"your " "ears")
+	(SYNONYM EAR EARS)
+	(ADJECTIVE YOUR)
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS ;NARTICLEBIT PLURALBIT PARTBIT)>
+
+<OBJECT NOSE
+	(LOC GLOBAL-OBJECTS)
+	(DESC ;"your " "nose")
+	(SYNONYM NOSE NOSTRIL)
+	(ADJECTIVE YOUR)
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS ;NARTICLEBIT PARTBIT)
+	(ACTION NOSE-F)>
+
+<ROUTINE NOSE-F ()
+	 <COND (<VERB? PICK>
+		<TELL "Oh, gross!" CR>)>>
+
+<OBJECT MOUTH
+	(LOC GLOBAL-OBJECTS)
+	(DESC ;"your " "mouth")
+	(SYNONYM MOUTH)
+	(ADJECTIVE YOUR)
+	(OWNER BODY-PART-OWNERS ;PROTAGONIST)
+	(FLAGS ;NARTICLEBIT PARTBIT)
+	(ACTION MOUTH-F)>
+
+<ROUTINE MOUTH-F ()
+	 <COND (<AND <VERB? PUT>
+		     <PRSI? ,MOUTH>>
+		<COND (<PRSO? ,STRAW>
+		       <TELL
+"Other than perhaps satisfying some primitive phallic urge of yours, this
+accomplishes nothing. [If you want to drink something with the straw, just
+try DRINK THING WITH STRAW!]" CR>)
+		      (T
+		       <PERFORM ,V?EAT ,PRSO>
+		       <RTRUE>)>)
+	       (<VERB? ENTER>
+		<TELL "That would involve quite a contortion!" CR>)>>
+
+<OBJECT PROTAGONIST
+	(LOC BANQUET-HALL)
+	;(SYNONYM PROTAGONIST)
+	(DESC "self" ;"it")	;"SWG 4-Oct-88"
+	(SIZE 1) ;"since routine WEIGHT adds PROTAGONIST weight to load"
+	(FLAGS NDESCBIT ;INVISIBLE ;ACTORBIT TRANSBIT SEARCHBIT
+  ;"last BIT added at Stu's suggestion for JESTER, TAKE thing you're holding")>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT ME
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM ;I ME MYSELF SELF ;YOU ;YOURSELF)
+	(DESC "yourself")
+	(FLAGS ;ACTORBIT TOUCHBIT NARTICLEBIT)
+	(RESEARCH
+"Son of a gun! There's no entry about you! This is one worthless
+encyclopedia, huh? Why, you're about as famous as they come! At
+least a third of the people in your village have heard of you, for
+instance...")
+	(ACTION ME-F)>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<ROUTINE ME-F () 
+	 <COND (<VERB? TELL YELL CALL>
+		<TELL
+"Talking to yourself is a sign of impending mental collapse." CR>
+		<STOP>)
+	       (<VERB? ALARM>
+		<TELL "You are already awake." CR>)
+	       (<VERB? EAT>
+		<TELL "Auto-cannibalism is not the answer." CR>)
+	       (<VERB? EXAMINE>
+		<V-DIAGNOSE>)
+	       (<AND <VERB? GIVE>
+		     <PRSI? ,ME>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<AND <VERB? SHOW>
+		     <PRSI? ,ME>>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (<VERB? MOVE>
+		<V-WALK-AROUND>)
+	       (<VERB? SEARCH>
+		<V-INVENTORY>
+		<RTRUE>)
+	       (<VERB? KILL MUNG KICK>
+		<COND (<EQUAL? ,P-PRSA-WORD ,W?KILL ,W?MURDER>
+		       <JIGS-UP "Done.">)
+		      (T
+		       <TELL
+"[If you're really into masochistic fantasies, perhaps you'd be more
+at home playing Infocom's ">
+		       <HLIGHT ,H-ITALIC>
+		       <TELL "LEATHER GODDESSES OF PHOBOS">
+		       <HLIGHT ,H-NORMAL>
+		       <TELL " (tm).]" CR>)>)
+	       (<VERB? FIND>
+		<TELL "You're in" TR ,HERE>)>>
+
+<OBJECT GLOBAL-HERE
+	(LOC GLOBAL-OBJECTS)
+	(DESC "room")
+	(SYNONYM ROOM PLACE LOCATION HALL AREA THERE HERE)
+	(ACTION GLOBAL-HERE-F)>
+
+<ROUTINE GLOBAL-HERE-F ()
+	 <COND (<VERB? LOOK LOOK-INSIDE EXAMINE>
+		<V-LOOK>)
+	       (<VERB? ENTER WALK-TO>
+		<COND (<EQUAL? ,HERE ,LAKE-FLATHEAD>
+		       <PERFORM ,V?SWIM ,LAKE-FLATHEAD>
+		       <RTRUE>)
+		      (T
+		       <TELL ,LOOK-AROUND>)>)
+	       (<VERB? LEAVE EXIT>
+		<DO-WALK ,P?OUT>)
+	       (<VERB? SEARCH>
+		<TELL ,NOTHING-NEW>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,GLOBAL-HERE>>
+		<COND (<EQUAL? ,P-PRSA-WORD ,W?THROW>
+		       <PERFORM ,V?THROW ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)>)>>
+
+<OBJECT GLOBAL-BLDG
+	(LOC LOCAL-GLOBALS)
+	(DESC "building")
+	(SYNONYM BUILDING CLUSTER)
+	(ADJECTIVE NEW SMALL STONE IMPRESSIVE)
+	(ACTION GLOBAL-BLDG-F)>
+
+<ROUTINE GLOBAL-BLDG-F ()
+	 <COND (<AND <VERB? ENTER>
+		     <EQUAL? ,HERE ,FISHING-VILLAGE ,WHARF>>
+		<DO-WALK ,P?NORTH>)
+	       (<VERB? EXIT LEAVE>
+		<DO-WALK ,P?OUT>)>>
+
+<OBJECT ARCH
+	(LOC LOCAL-GLOBALS)
+	(DESC "arch")
+	(SYNONYM ARCH ARCHWAY)
+	(ADJECTIVE STONE CRUMBLING)
+	(FLAGS VOWELBIT)
+	(ACTION ARCH-F)>
+
+<ROUTINE ARCH-F ()
+	 <COND (<VERB? ENTER>
+		<V-WALK-AROUND>)>>
+
+<OBJECT WINDOW
+	(LOC LOCAL-GLOBALS)
+	(DESC "window")
+	(SYNONYM WINDOW WINDOWS GLASS PANE PANES)
+	(ADJECTIVE NARROW WIDER SLITTED GLASS BROKEN WINDOW)
+	(FLAGS NDESCBIT)
+	(ACTION WINDOW-F)>
+
+<ROUTINE WINDOW-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<COND (<EQUAL? ,HERE ,GONDOLA>
+		       <COND (<EQUAL? ,DIRIGIBLE-COUNTER 0>
+			      <TELL "The dirigible is moored in a hangar." CR>)
+			     (<EQUAL? ,DESTINATION ,SMALLER-HANGAR>
+			      <TELL
+<GET ,DIRIGIBLE-TRIP-DESCS <- ,DIRIGIBLE-COUNTER 2>> CR>)
+			     (T
+			      <TELL
+<GET ,DIRIGIBLE-TRIP-DESCS <- 5 ,DIRIGIBLE-COUNTER>> CR>)>)
+		      (<EQUAL? ,HERE ,DIMWITS-ROOM ,BASTION ,SOLAR>
+		       <TELL
+"The window offers a splendid view of the castle grounds." CR>)
+		      (<EQUAL? ,HERE ,HOTHOUSE>
+		       <TELL "You see a ruined castle." CR>)
+		      (<EQUAL? ,HERE ,FR-PENTHOUSE ,OFFICES-NORTH
+			       ,OFFICES-SOUTH ,OFFICES-EAST ,OFFICES-WEST>
+		       <COND (<OR <EQUAL? ,HERE ,FR-PENTHOUSE>
+				  <G? ,FLOOR-NUMBER 20>>
+			      <TELL
+"You can't see much; the air is pretty smoggy today." CR>)
+			     (T
+		       	      <TELL
+"The window offers a good view of Flatheadia." CR>)>) 
+		      (T
+		       <TELL "Bug 29." CR>)>)
+	       (<VERB? OPEN CLOSE>
+		<COND (<EQUAL? ,HERE ,HOTHOUSE>
+		       <TELL "There's not much left of the windows." CR>)
+		      (<EQUAL? ,HERE ,DIMWITS-ROOM ,BASTION ,SOLAR>
+		       <TELL
+"The window is just a narrow slit in the stone wall; there's no way
+to open or close it." CR>)
+		      (T
+		       <TELL "The window is unopenable." CR>)>)
+	       (<VERB? ENTER EXIT LEAP-OFF>
+		<COND (<EQUAL? ,HERE ,HOTHOUSE>
+		       <TELL
+"You cut yourself to ribbons on the broken glass." CR>)
+		      (<EQUAL? ,HERE ,DIMWITS-ROOM ,BASTION ,SOLAR>
+		       <TELL
+"These slitted windows are narrower than your body." CR>)
+		      (T
+		       <DO-FIRST "open" ,WINDOW>)>)
+	       (<VERB? PUT-THROUGH>
+		<COND (<EQUAL? ,HERE ,HOTHOUSE ,DIMWITS-ROOM ,SOLAR ,BASTION>
+		       <REMOVE ,PRSO>
+		       <TELL
+"You hear a \"splat\" as" T ,PRSO " sinks into the ">
+		       <COND (<EQUAL? ,HERE ,HOTHOUSE>
+			      <COND (<OR <PRSO? ,PERCH>
+					 <ULTIMATELY-IN? ,PERCH ,PRSO>>
+				     <SETG REMOVED-PERCH-LOC ,WATER>)>
+			      <TELL "swamp outside">)
+			     (T
+			      <COND (<OR <PRSO? ,PERCH>
+					 <ULTIMATELY-IN? ,PERCH ,PRSO>>
+				     <SETG REMOVED-PERCH-LOC ,GROUND>)>
+			      <TELL"ground far below">)>
+		       <TELL ,PERIOD-CR>)
+		      (T
+		       <DO-FIRST "open" ,WINDOW>)>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,HOTHOUSE>>
+		<TELL "Many of the window panes are shattered." CR>)>>
+
+<OBJECT LOCK-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "lock")
+	(SYNONYM LOCK KEYHOLE HOLE)
+	(ADJECTIVE LARGE BASIC COMBINATION KEY)
+	(ACTION LOCK-OBJECT-F)>
+
+<ROUTINE LOCK-OBJECT-F ()
+	 <COND (<AND <NOUN-USED? ,LOCK-OBJECT ,W?KEYHOLE>
+		     <EQUAL? ,HERE ,LOWEST-HALL>>
+		<CANT-SEE ,LOCK-OBJECT>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,LOWEST-HALL>
+		       <TELL "It's a large combination dial lock." CR>)
+		      (T
+		       <TELL "It's your basic keyhole lock." CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL
+"You see nothing of interest, you shameless Peeping Tom you." CR>)
+	       (<VERB? PICK>
+		<TELL "You have neither the tools nor the expertise." CR>)
+	       (<AND <VERB? OPEN UNLOCK LOCK>
+		     <PRSO? ,LOCK-OBJECT>>
+		<COND (<GLOBAL-IN? ,EAST-DOOR ,HERE>
+		       <PERFORM-PRSA ,EAST-DOOR ,PRSI>)
+		      (<GLOBAL-IN? ,WEST-DOOR ,HERE>
+		       <PERFORM-PRSA ,WEST-DOOR ,PRSI>)
+		      (<GLOBAL-IN? ,VAULT-DOOR ,HERE>
+		       <PERFORM-PRSA ,VAULT-DOOR ,PRSI>)
+		      (<EQUAL? ,HERE ,ATTIC>
+		       <PERFORM-PRSA ,TRUNK ,PRSI>)>)>>
+
+<OBJECT SIGN
+	(LOC LOCAL-GLOBALS)
+	(DESC "sign")
+	(SYNONYM SIGN)
+	(ADJECTIVE LARGE EYE-CATCHING)
+	(FLAGS READBIT)
+	(ACTION SIGN-F)>
+
+<ROUTINE SIGN-F ("AUX" NUM)
+	 <COND (<VERB? READ EXAMINE>
+		<COND (<EQUAL? ,HERE ,EXIT>
+		       <TELL
+"\"ROCKVILLE ESTATES: The new, prestigious address for the discriminating
+Young Underground Professional|
+64 units, Occupancy Spring 881|
+Frobozz Magic Construction Company|
+Quizbo Frotzwit, Managing Foreman\"" CR>)
+		      (<EQUAL? ,HERE ,CROSSROADS>
+		       <TELL
+"\"JUNCTION of GUH-90 and GUH-95|
+NORTH: Flatheadia, 1 bloit|
+SOUTH: Shadowland, 15 bloits|
+       Royal Museum, 17 bloits|
+       Fublio Valley, 90 bloits|
+EAST:  White Cliffs Beach, 4 bloits|
+       Flood Control Dam #3, 4 bloits|
+       Aragain Falls, 5 bloits|
+WEST:  Port Foozle, 9 bloits|
+       Quilbozza Beach, 9 bloits\"" CR>)
+		      (<EQUAL? ,HERE ,FISHING-VILLAGE>
+		       <TELL "\"Sinners: Enter here for purification!\"" CR>)
+		      (<EQUAL? ,HERE ,INQUISITION>
+		       <TELL
+"\"Sinners, take note!|
+1. We cannot execute everyone at once! Please take a number!|
+2. Everyone is permitted a final request.|
+3. Tell the executioner your request when your number is called.|
+4. If we cannot grant your final wish, we shall be quick and merciful. We
+will behead you.|
+5. If we CAN grant your final wish, we will hang you. Please note that this
+is slow and excruciatingly painful.\"" CR>)
+		      (<EQUAL? ,HERE ,NORTH-OF-ANTHAR>
+		       <TELL
+"\"We've got as many refugees from the Eastlands as we can handle!
+Go somewhere else!\"" CR>)
+		      (<EQUAL? ,HERE ,MINE-ENTRANCE>
+		       <TELL "\"Warning! Falling rock zone!\"" CR>)
+		      (<EQUAL? ,HERE ,TOLL-PLAZA>
+		       <TELL
+"\"Exact Change Only: 1 Zorkmid (coins only).\" Below
+the sign is a basket." CR>)
+		      (<EQUAL? ,HERE ,OUTSIDE-HOVEL>
+		       <TELL "\"Korboz the Magnificent\"" CR>)
+		      (<EQUAL? ,HERE ,OUTSIDE-SHACK>
+		       <TELL
+"\"Warning! This shack is protected against looting by powerful magic!\"" CR>)
+		      (<EQUAL? ,HERE ,WARNING-ROOM>
+		       <TELL
+"\"Warning! This area is populated by three races: the Veritassi (who always
+tell the truth), the Prevaricons (who always lie), and the Wishyfoo (who
+alternate with every statement). Be aware that visitors to Veritass and
+Prevaricon areas are immediately fed to ravenous hellhounds.\"" CR>)
+		      (T
+		       <TELL "Bug 49">)>)>>
+
+<OBJECT STAIRS
+	(LOC LOCAL-GLOBALS)
+	(DESC "stair")
+	(SYNONYM FLIGHT STAIR STAIRS STAIRWAY STEP STEPS STAIRCASE GANGWAY)
+	(ADJECTIVE STEEP OMINOUS DARK WIDE STONE CIRCULAR WINDING SPIRAL
+	 	   COBWEBBY CRUDE FORBIDDING DECREPIT)
+	(ACTION STAIRS-F)>
+
+<ROUTINE STAIRS-F ()
+	 <COND (<AND <EQUAL? ,HERE ,NORTH-SHORE ,EAST-SHORE
+			     	   ,SOUTH-SHORE ,WEST-SHORE>
+		     <NOT <IN? ,PROTAGONIST ,YACHT>>>
+		<CANT-SEE ,STAIRS>)
+	       (<VERB? CLIMB CLIMB-UP>
+		<DO-WALK ,P?UP>)
+	       (<VERB? CLIMB-DOWN>
+		<DO-WALK ,P?DOWN>)>>
+
+<OBJECT FIXED-LADDER
+	(LOC LOCAL-GLOBALS)
+	(DESC "ladder")
+	(SYNONYM LADDER)
+	(ADJECTIVE RICKETY)
+	(ACTION FIXED-LADDER-F)>
+
+<ROUTINE FIXED-LADDER-F ()
+	 <COND (<VERB? CLIMB CLIMB-UP>
+		<DO-WALK ,P?UP>)
+	       (<VERB? CLIMB-DOWN>
+		<DO-WALK ,P?DOWN>)
+	       (<VERB? TAKE>
+		<TELL "The ladder is attached to the wall." CR>)>>
+
+<OBJECT BONES
+	(LOC LOCAL-GLOBALS)
+	(OWNER BONES)
+	(DESC "pile of old bones")
+	(SYNONYM BONE BONES PILE CREATURE ADVENTURER SKELETON SKELETONS)
+	(ADJECTIVE ADVENTURER CREATURE OLD)
+	(FLAGS NDESCBIT)
+	(ACTION BONES-F)>
+
+<ROUTINE BONES-F ()
+	 <COND (<TOUCHING? ,BONES>
+		<TELL "Let the dead lie in peace." CR>)>>
+
+;"status line stuff"
+
+;<CONSTANT S-TEXT 0>       ;"<SCREEN 0> puts cursor in text part of screen"
+;<CONSTANT S-WINDOW 1>     ;"<SCREEN 1> puts cursor in window part of screen"
+;<CONSTANT H-NORMAL 0>     ;"<HLIGHT 0> returns printing to normal (default)"
+;<CONSTANT H-INVERSE 1>    ;"<HLIGHT 1> sets printing mode to inverse video"
+;<CONSTANT H-BOLD 2>      ;"<HLIGHT 2> sets printing mode to bold, else normal"
+;<CONSTANT H-ITALIC 4>    ;"<HLIGHT 4> italicizes, else underline, else normal"
+;<CONSTANT D-SCREEN-ON 1> ;"<DIROUT 1> turns on printing to the screen"
+;<CONSTANT D-SCREEN-OFF -1>;"<DIROUT -1> turns off printing to the screen"
+;<CONSTANT D-PRINTER-ON 2> ;"<DIROUT 2> turns on printing to the printer"
+;<CONSTANT D-PRINTER-OFF -2>;"<DIROUT -2> turns off printing to the printer"
+;<CONSTANT D-TABLE-ON 3>   ;"<DIROUT 3 .TABLE> turns on printing to that table"
+;<CONSTANT D-TABLE-OFF -3> ;"<DIROUT -3> turns off printing to that table"
+;<CONSTANT D-RECORD-ON 4>  ;"<DIROUT 4> sends READs and INPUTs to record file"
+;<CONSTANT D-RECORD-OFF -4>;"<DIROUT -4> stops sending READ and INPUT to file"
+
+<ROUTINE CLEAR-BORDER ("AUX" X Y WRD)
+	 <SCREEN ,S-WINDOW>
+	 <COLOR ,FG-COLOR ,BG-COLOR> ;"clear to match text window"
+	 <PICINF-PLUS-ONE ,TEXT-WINDOW-PIC-LOC>
+   	 <SET Y <ZGET ,PICINF-TBL 0>>
+   	 <SET X <ZGET ,PICINF-TBL 1>>
+   	 <WINPOS ,S-WINDOW 1 1>
+   	 <WINSIZE ,S-WINDOW .Y <LOWCORE HWRD>>
+   	 <CLEAR 1>
+   	 <COND (<G? .X 1>
+		<WINPOS ,S-WINDOW <+ .Y 1> 1>
+		<WINSIZE ,S-WINDOW <- <LOWCORE VWRD> .Y> <- .X 1>>
+		<CLEAR 1>
+		<WINPOS ,S-WINDOW <+ .Y 1> <+ <- <LOWCORE HWRD> .X> 1>>
+		<WINSIZE ,S-WINDOW <- <LOWCORE VWRD> .Y> .X>
+		<CLEAR 1>)>
+	 <SETG SL-SCORE -1>
+   	 <SETG OLD-REGION <>>
+   	 <SETG OLD-HERE <>>
+   	 <SETG COMPASS-CHANGED T>
+	 <COLOR 1 1>
+	 <SCREEN ,S-TEXT>>
+
+; "Make text window extend to bottom of screen (more or less) or to
+   top of bottom edge of border, depending..."
+<ROUTINE ADJUST-TEXT-WINDOW (ID "AUX" (SCRY <LOWCORE VWRD>) WINY (ADJ 0))
+	 <COND (.ID
+		<PICINF .ID ,PICINF-TBL>
+		<SET ADJ <ZGET ,PICINF-TBL 0>>)>
+	 <SET WINY <- .SCRY <- <WINGET ,S-TEXT ,WTOP> 1> .ADJ>>
+	 <SET WINY <* ,FONT-Y </ .WINY ,FONT-Y>>>
+	 <WINSIZE ,S-TEXT .WINY <WINGET ,S-TEXT ,WWIDE>>>
+
+;"Normal sizes/positions of windows 0 and 1."
+<ROUTINE SPLIT-BY-PICTURE (ID "OPT" (CLEAR-SCREEN? <>) "AUX" Y X YS XS)
+	 <SETG CURRENT-SPLIT .ID>
+	 <COND (.CLEAR-SCREEN?
+		<CLEAR -1>)>
+	 <PICINF .ID ,PICINF-TBL>
+	 <WINPOS ,S-TEXT <+ <SET Y <ZGET ,PICINF-TBL 0>> 1>
+		 <COND (<AND <NOT ,BORDER-ON>
+			     <EQUAL? .ID ,TEXT-WINDOW-PIC-LOC>>
+			1)
+		       (T
+			<+ <SET X <ZGET ,PICINF-TBL 1>> 1>)>>
+	 <WINSIZE ,S-TEXT <- <LOWCORE VWRD> .Y>
+		  <COND (<AND <NOT ,BORDER-ON>
+			      <EQUAL? .ID ,TEXT-WINDOW-PIC-LOC>>
+			 <* ,WIDTH ,FONT-X>)
+			(T
+			 <- <LOWCORE HWRD> <* .X 2>>)>>
+	 <WINPOS ,S-WINDOW 1 1>
+	 <WINSIZE ,S-WINDOW .Y <LOWCORE HWRD>>>
+
+<ROUTINE INIT-SL-WITH-SPLIT (WHICH "OPT" (DONT-CLEAR <>) "AUX" YFUDGE)
+    ;<COND (.DONT-CLEAR
+	   <SET YFUDGE <- <WINGET ,S-TEXT ,WHIGH> <WINGET ,S-TEXT ,WYPOS>>>)>
+    <COND (.WHICH
+	   <SETG CURRENT-SPLIT .WHICH>)>
+    <INIT-STATUS-LINE .DONT-CLEAR>
+    ;<COND (.DONT-CLEAR
+	   <CURSET <- <WINGET ,S-TEXT ,WHIGH> .YFUDGE> 1>)>>
+
+<REPLACE-DEFINITION STATUS-LINE
+<ROUTINE INIT-STATUS-LINE ("OPT" (DONT-CLEAR <>) "AUX" (NUM 1) X Y)
+	 <SETG OLD-HERE <>>
+	 <SETG OLD-REGION <>>
+	 <SETG SL-SCORE -1>
+	 <SETG COMPASS-CHANGED T>
+	 <COND (<NOT .DONT-CLEAR>
+		<CLEAR -1>)>
+	 <SPLIT-BY-PICTURE ,CURRENT-SPLIT>
+	 <COND (<EQUAL? ,CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>
+		<ADJUST-TEXT-WINDOW 0>)
+	       (<EQUAL? ,CURRENT-SPLIT ,F-SPLIT>
+		<ADJUST-TEXT-WINDOW ,F-BOTTOM>
+		<RTRUE>)
+	       (T
+		<ADJUST-TEXT-WINDOW ,PBOZ-BOTTOM>
+		<RTRUE>)>
+	 <SCREEN ,S-FULL>
+	 <COND (,BORDER-ON
+		<DISPLAY <SET-BORDER> 1 1>
+		<PICSET ,COMPASS-PICSET-TBL>)
+	       (T
+		<HLIGHT ,H-INVERSE>
+		<INVERSE-LINE 1>
+		<INVERSE-LINE 2>
+		<INVERSE-LINE 3>)>
+	 <SCREEN ,S-WINDOW>
+	 <FONT 4> ;"non-proportional"
+	 <PICINF-PLUS-ONE ,HERE-LOC>
+	 <CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y> <GET ,PICINF-TBL 1>>
+	 <COND (<OR <EQUAL? <LOWCORE INTID> ,DEC-20>
+		    <NOT ,BORDER-ON>>
+		<HLIGHT ,H-INVERSE>)>
+	 <COND (,BORDER-ON
+		<COLOR 1 -1>)>
+	 <TELL "Moves:">
+	 <PICINF-PLUS-ONE ,REGION-LOC>
+	 <CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y>
+		 <- <GET ,PICINF-TBL 1> <* ,FONT-X 10>>>
+	 <TELL "Score:">
+	 <COND (,BORDER-ON
+		<COLOR 1 1>)>
+	 <FONT 1> ;"proportional"
+	 <COND (<EQUAL? <LOWCORE INTID> ,DEC-20>
+		<HLIGHT ,H-NORMAL>)>
+	 <SCREEN ,S-TEXT>
+	 <RFALSE>>>
+
+<ROUTINE SET-BORDER ()
+	 <COND (<AND <EQUAL? ,HERE ,GONDOLA>
+		     <G? ,DIRIGIBLE-COUNTER 0>>
+		<RETURN ,OUTSIDE-BORDER>)
+	       (<EQUAL? ,HERE ,FORMAL-GARDEN ,COURTYARD>
+		<RETURN ,CASTLE-BORDER>)
+	       (<EQUAL? ,HERE ,BARBICAN ,UPPER-BARBICAN ,GARRISON>
+		<RETURN ,OUTSIDE-BORDER>)
+	       (<FSET? ,HERE ,OUTSIDEBIT>
+		<RETURN ,OUTSIDE-BORDER>)
+	       (<FSET? ,HERE ,UNDERGROUNDBIT>
+		<RETURN ,UNDERGROUND-BORDER>)
+	       (T
+		<RETURN ,CASTLE-BORDER>)>>
+
+<ROUTINE PRINT-SPACES (CNT)
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0>
+			<RETURN>)
+		       (T
+			<PRINTC 32>)>>>
+
+<CONSTANT SLINE <ITABLE NONE 41 ;82>>
+
+<GLOBAL OLD-HERE <>> ;"is set to present HERE room."
+
+<GLOBAL OLD-REGION <>>
+
+<GLOBAL SL-SCORE -1> ;"if start at 0, STATUS-LINE never puts up the 0"
+
+<GLOBAL WIDTH 0>
+
+<GLOBAL COMPASS-CHANGED T>
+
+<CONSTANT TITLE-SCREEN-PICTURE 1>
+
+<GLOBAL ACTIVE-MOUSE <>>
+
+<GLOBAL CURRENT-SPLIT <>> ;"set to TEXT-WINDOW-PIC-LOC in GO"
+;"tells REFRESH etc. whether the screen is normal, a jester game, or whatever"
+
+;"call v-$refresh to during game if want to clear junk"
+<ROUTINE UPDATE-STATUS-LINE ()
+	 <SCREEN ,S-WINDOW>
+	 <FONT 4> ;"non-proportional"
+	 <COND (<OR <EQUAL? <LOWCORE INTID> ,DEC-20>
+		    <NOT ,BORDER-ON>>
+		<HLIGHT ,H-INVERSE>)>
+	 <PICINF ,HERE-LOC ,PICINF-TBL>
+	 <CURSET <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <COND (,BORDER-ON
+		<COLOR 1 -1>)>
+	 <COND (<NOT <EQUAL? ,HERE ,OLD-HERE>> ;"Print loc if it's a new loc"
+		<SETG OLD-HERE ,HERE>
+		<PICINF-PLUS-ONE ,HERE-LOC>
+		<CURSET <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<PRINT-SPACES 24>
+		<CURSET <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<COND (<EQUAL? ,HERE ,PHIL-HALL>
+		       <TELL "Philharmonic Hall">)
+		      (<EQUAL? ,HERE ,G-U-MOUNTAIN>
+		       <TELL "Great Undergd. Mountain">)
+		      (<EQUAL? ,HERE ,G-U-SAVANNAH>
+		       <TELL "Great Undergd. Savannah">)
+		      (<EQUAL? ,HERE ,G-U-HIGHWAY>
+		       <TELL "Great Undergd. Highway">)
+		      (T
+		       <TELL D ,HERE>)>)>
+	 <COND (<NOT <EQUAL? <GETP ,HERE ,P?REGION> ,OLD-REGION>>
+		<SETG OLD-REGION <GETP ,HERE ,P?REGION>>
+		<PICINF-PLUS-ONE ,REGION-LOC>
+		<CURSET <GET ,PICINF-TBL 0>
+			<- <GET ,PICINF-TBL 1> <* ,FONT-X 23>>>
+		<PRINT-SPACES 23>
+		<DIROUT ,D-TABLE-ON ,SLINE> ;"start printing to buffer"
+		<PUT ,SLINE 0 0>
+		<TELL ,OLD-REGION>
+		<DIROUT ,D-TABLE-OFF>
+		<CURSET <GET ,PICINF-TBL 0>
+			<- <GET ,PICINF-TBL 1> <* ,FONT-X <GET ,SLINE 0>>>>
+		<TELL ,OLD-REGION>)>
+	 <PICINF-PLUS-ONE ,HERE-LOC>
+	 <CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y>
+		 <+ <GET ,PICINF-TBL 1> <* ,FONT-X 8>>>
+	 <PRINT-SPACES 5>
+	 <CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y>
+		 <+ <GET ,PICINF-TBL 1> <* ,FONT-X 8>>>
+	 <PRINTN ,MOVES>
+	 <COND (<NOT <EQUAL? ,SCORE ,SL-SCORE>> ;"score changed?"
+	        <SETG SL-SCORE ,SCORE>
+		<PICINF-PLUS-ONE ,REGION-LOC>
+	 	<CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y>
+			<- <GET ,PICINF-TBL 1> <* ,FONT-X 4>>>
+		<PRINT-SPACES 4>
+		<CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y>
+			<- <GET ,PICINF-TBL 1>
+			   <* ,FONT-X <COND (<OR <G? ,SCORE 999>
+			   		         <L? ,SCORE -99>> 4)
+					    (<OR <G? ,SCORE 99>
+						 <L? ,SCORE -9>> 3)
+					    (<OR <G? ,SCORE 9>
+						 <L? ,SCORE 0>> 2)
+					    (T 1)>>>>
+		<PRINTN ,SCORE>)>
+	 <COND (,BORDER-ON
+		<COLOR 1 1>)>
+	 <COND (<OR <EQUAL? <LOWCORE INTID> ,DEC-20>
+		    <NOT ,BORDER-ON>>
+		<HLIGHT ,H-NORMAL>)>
+	 <COND (<AND ,COMPASS-CHANGED
+		     ,BORDER-ON
+		     <NOT <EQUAL? <LOWCORE INTID> ,DEC-20>>>
+		<SETG COMPASS-CHANGED <>>
+		<PICINF-PLUS-ONE ,COMPASS-PIC-LOC>
+		<DRAW-COMPASS-ROSE ,P?NORTH ,N-HL ,N-UNHL>
+		<DRAW-COMPASS-ROSE ,P?NE ,NE-HL ,NE-UNHL>
+		<DRAW-COMPASS-ROSE ,P?EAST ,E-HL ,E-UNHL>
+		<DRAW-COMPASS-ROSE ,P?SE ,SE-HL ,SE-UNHL>
+		<DRAW-COMPASS-ROSE ,P?SOUTH ,S-HL ,S-UNHL>
+		<DRAW-COMPASS-ROSE ,P?SW ,SW-HL ,SW-UNHL>
+		<DRAW-COMPASS-ROSE ,P?WEST ,W-HL ,W-UNHL>
+		<DRAW-COMPASS-ROSE ,P?NW ,NW-HL ,NW-UNHL>
+		<PICINF-PLUS-ONE ,U-BOX-LOC>
+		<DISPLAY <COND (<AND <SHOW-DIRECTION? ,HERE ,P?UP <>>
+				     ,LIT>
+				,U-BOX)
+			       (T
+				,BOX-COVER)>
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,D-BOX-LOC>
+		<DISPLAY <COND (<AND <SHOW-DIRECTION? ,HERE ,P?DOWN <>>
+				     ,LIT>
+				,D-BOX)
+			       (T
+				,BOX-COVER)>
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>)>
+	 <FONT 1> ;"proportional"
+	 <SCREEN ,S-TEXT>
+	 <RFALSE>>
+
+<CONSTANT COMPASS-PICSET-TBL
+	  <TABLE N-HL NE-HL E-HL SE-HL S-HL SW-HL W-HL NW-HL
+		 N-UNHL NE-UNHL E-UNHL SE-UNHL S-UNHL SW-UNHL W-UNHL NW-UNHL
+		 U-BOX D-BOX BOX-COVER 0>>
+
+<ROUTINE DRAW-COMPASS-ROSE (DIR HIGHLIGHT-PIC UNHIGHLIGHT-PIC)
+	 <DISPLAY <COND (<AND <SHOW-DIRECTION? ,HERE .DIR <>>
+			      ,LIT>
+			 .HIGHLIGHT-PIC)
+			(T
+			 .UNHIGHLIGHT-PIC)>
+		  <GET ,PICINF-TBL 0>
+		  <GET ,PICINF-TBL 1>>>
+
+<ROUTINE SHOW-DIRECTION? (RM DIR "OPTIONAL" (MAPPING T) "AUX" PTS)
+	 <COND (<AND <IN? ,N-S-PASSAGE .RM>
+		     <NOT <EQUAL? .RM ,CONSTRUCTION>>
+		     <EQUAL? ,N-S-PASSAGE-DIR .DIR>>
+		<RTRUE>)
+	       (<AND <IN? ,NW-SE-PASSAGE .RM>
+		     <NOT <EQUAL? .RM ,CONSTRUCTION>>
+		     <EQUAL? ,NW-SE-PASSAGE-DIR .DIR>>
+		<RTRUE>)
+	       (<AND <IN? ,PROTAGONIST ,YACHT>
+		     <EQUAL? .DIR ,P?DOWN>>
+		<RTRUE>)
+	       (<FSET? .RM ,DELTABIT>
+		<COND (<EQUAL? .DIR ,P?UP ,P?DOWN>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,DELTA-1>
+			    <EQUAL? .DIR ,P?SOUTH>
+			    .MAPPING> ;"interferes with FROM ORACLE arrow"
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)
+	       (<EQUAL? .RM ,CONSTRUCTION>
+		<COND (<EQUAL? .DIR ,P?UP ,P?DOWN>
+		       <RFALSE>)
+		      (<OR
+			<AND <EQUAL? .DIR ,P?NORTH>
+			     <INTBL? ,CONSTRUCTION-LOC ,NORTH-EXITS 11>>
+			<AND <EQUAL? .DIR ,P?NE>
+			     <INTBL? ,CONSTRUCTION-LOC ,NE-EXITS 17>>
+			<AND <EQUAL? .DIR ,P?EAST>
+			     <INTBL? ,CONSTRUCTION-LOC ,EAST-EXITS 15>>
+			<AND <EQUAL? .DIR ,P?SE>
+			     <INTBL? ,CONSTRUCTION-LOC ,SE-EXITS 7>>
+			<AND <EQUAL? .DIR ,P?SOUTH>
+			     <INTBL? <+ ,CONSTRUCTION-LOC 8> ,NORTH-EXITS 11>>
+			<AND <EQUAL? .DIR ,P?SW>
+			     <INTBL? <+ ,CONSTRUCTION-LOC 7> ,NE-EXITS 17>>
+			<AND <EQUAL? .DIR ,P?WEST>
+			     <INTBL? <- ,CONSTRUCTION-LOC 1> ,EAST-EXITS 15>>
+			<AND <EQUAL? .DIR ,P?NW>
+			     <INTBL? <- ,CONSTRUCTION-LOC 9> ,SE-EXITS 7>>
+			<AND <EQUAL? .DIR ,P?EAST>
+			     <EQUAL? ,CONSTRUCTION-LOC 47>>>
+		       <RTRUE>)
+		      (<AND <IN? ,N-S-PASSAGE .RM>
+			    <NOT <FSET? ,N-S-PASSAGE ,TAKEBIT>>
+			    <EQUAL? .DIR ,P?NORTH ,P?SOUTH>>
+		       <COND (<AND <EQUAL? ,CONSTRUCTION-LOC ,N-S-PASSAGE-LOC>
+			      	   <EQUAL? ,N-S-PASSAGE-DIR .DIR>>
+			      <RTRUE>)
+			     (<AND <NOT <EQUAL? ,CONSTRUCTION-LOC
+						,N-S-PASSAGE-LOC>>
+			      	   <NOT <EQUAL? ,N-S-PASSAGE-DIR .DIR>>>
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (<AND <IN? ,NW-SE-PASSAGE .RM>
+			    <NOT <FSET? ,NW-SE-PASSAGE ,TAKEBIT>>
+			    <EQUAL? .DIR ,P?NW ,P?SE>>
+		       <COND (<AND <EQUAL? ,CONSTRUCTION-LOC
+					   ,NW-SE-PASSAGE-LOC>
+			      	   <EQUAL? ,NW-SE-PASSAGE-DIR .DIR>>
+			      <RTRUE>)
+			     (<AND <NOT <EQUAL? ,CONSTRUCTION-LOC
+						,NW-SE-PASSAGE-LOC>>
+			      	   <NOT <EQUAL? ,NW-SE-PASSAGE-DIR .DIR>>>
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (T
+		       <RFALSE>)>)
+	       (<EQUAL? .RM ,PLAIN>
+		<COND (<EQUAL? .DIR ,P?UP ,P?DOWN>
+		       <RFALSE>)
+		      (<OR <AND <EQUAL? .DIR ,P?NORTH ,P?NE ,P?NW>
+				<EQUAL? ,RANK 1>>
+			   <AND <EQUAL? .DIR ,P?EAST ,P?NE ,P?SE>
+				<EQUAL? ,FILE 8>>
+			   <AND <EQUAL? .DIR ,P?SOUTH ,P?SE ,P?SW>
+				<EQUAL? ,RANK 8>>
+			   <AND <EQUAL? .DIR ,P?WEST ,P?SW ,P?NW>
+				<EQUAL? ,FILE 1>>>
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)
+	       (<AND <EQUAL? .RM ,MIRROR-LAKE>
+		     <NOT <EQUAL? .DIR ,P?UP ,P?DOWN>>>
+		<RTRUE>)
+	       (<AND <EQUAL? .RM ,WISHYFOO-TERRITORY>
+		     <EQUAL? .DIR ,P?SW>
+		     <NOT .MAPPING>>
+		<RTRUE>)
+	       (<AND <EQUAL? .RM ,STREAM>
+		     <EQUAL? .DIR ,P?WEST>
+		     <NOT <IN? ,BRIDGE ,STREAM>>>
+		<RFALSE>)
+	       (<AND <SET PTS <GETPT .RM .DIR>>
+		     <NOT <EQUAL? <PTSIZE .PTS> ,NEXIT>>>
+		<COND (<AND <EQUAL? .RM ,THRONE-ROOM>
+			    <EQUAL? .DIR ,P?SOUTH>
+	       	    	    <NOT ,SECRET-PASSAGE-OPEN>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,G-U-MOUNTAIN>
+			    <EQUAL? .DIR ,P?NORTH>
+			    <IN? ,BOULDER .RM>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,HOLLOW>
+			    <EQUAL? .DIR ,P?SOUTH>
+			    <NOT ,IRON-MINE-OPEN>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,PEG-ROOM>
+			    <EQUAL? .DIR ,P?NORTH>
+			    <NOT ,PEG-PASSAGE-OPENED>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,CRYPT>
+			    <EQUAL? .DIR ,P?DOWN>
+			    <NOT <FSET? ,HOLEY-SLAB ,TOUCHBIT>>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,RUINED-HALL>
+			    <EQUAL? .DIR ,P?EAST>
+			    <NOT ,SECRET-ROOM-REVEALED>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,MARSH>
+			    <EQUAL? .DIR ,P?NORTH>
+			    <NOT ,STEPPING-STONES-VISIBLE>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,WEIRD>
+			    <EQUAL? .DIR ,P?NORTH ,P?EAST ,P?WEST>>
+		       <COND (<EQUAL? .DIR ,P?NORTH>
+			      <COND (<EQUAL? ,TOWER-BEATEN ,PYRAMID>
+				     <RTRUE>)
+				    (<AND <FSET? ,PYRAMID ,TOUCHBIT>
+					  .MAPPING>
+				     <RTRUE>)
+				    (T
+				     <RFALSE>)>)
+			     (<EQUAL? .DIR ,P?EAST>
+			      <COND (<EQUAL? ,TOWER-BEATEN ,PYRAMID-R>
+				     <RTRUE>)
+				    (<AND <FSET? ,PYRAMID-R ,TOUCHBIT>
+					  .MAPPING>
+				     <RTRUE>)
+				    (T
+				     <RFALSE>)>)
+			     (T
+			      <COND (<EQUAL? ,TOWER-BEATEN ,PYRAMID-L>
+				     <RTRUE>)
+				    (<AND <FSET? ,PYRAMID-L ,TOUCHBIT>
+					  .MAPPING>
+				     <RTRUE>)
+				    (T
+				     <RFALSE>)>)>)
+		      (<NOT .MAPPING>
+		       <RTRUE>)
+		      (<AND <EQUAL? .RM ,COURTROOM>
+			    <EQUAL? .DIR ,P?SOUTH>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,TAX-OFFICE>
+			    <EQUAL? .DIR ,P?SOUTH>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,JESTERS-QUARTERS>
+			    <EQUAL? .DIR ,P?SOUTH>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,BASE-OF-MOUNTAIN>
+			    <EQUAL? .DIR ,P?EAST>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,G-U-MOUNTAIN>
+			    <EQUAL? .DIR ,P?WEST>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,FOOTHILLS>
+			    <EQUAL? .DIR ,P?SOUTH>>
+		       <RFALSE>)
+		      (<AND <EQUAL? .RM ,BASE-OF-MOUNTAINS>
+			    <EQUAL? .DIR ,P?NORTH>>
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE COMPASS-CLICK
+	 (PIC1 PIC2 "AUX" TL-X TL-Y BR-X BR-Y CENTER-X CENTER-Y DIR)
+	 <COND (<EQUAL? .PIC1 ,COMPASS-PIC-LOC> ;"not mapping"
+		<PICINF-PLUS-ONE ,U-BOX-LOC>
+		<SET TL-X <GET ,PICINF-TBL 1>>
+		<SET TL-Y <GET ,PICINF-TBL 0>>
+		<PICINF ,U-BOX ,PICINF-TBL>
+		<SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+		<SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+		<COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		       <RETURN ,P?UP>)>
+		<PICINF-PLUS-ONE ,D-BOX-LOC>
+		<SET TL-X <GET ,PICINF-TBL 1>>
+		<SET TL-Y <GET ,PICINF-TBL 0>>
+		<PICINF ,D-BOX ,PICINF-TBL>
+		<SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+		<SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+		<COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		       <RETURN ,P?DOWN>)>)>
+	 <PICINF-PLUS-ONE .PIC1>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <PICINF .PIC2 ,PICINF-TBL>
+	 <SET BR-Y <+ <GET ,PICINF-TBL 0> .TL-Y>>
+	 <SET BR-X <+ <GET ,PICINF-TBL 1> .TL-X>>
+	 <SET CENTER-X <+ .TL-X </ <GET ,PICINF-TBL 1> 2>>>
+	 <SET CENTER-Y <+ .TL-Y </ <GET ,PICINF-TBL 0> 2>>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<COND (<EQUAL? <LOWCORE INTID> ,MACINTOSH>
+		       <COND (<MAC-II?>
+			      <SET DIR <MAC-II-CLICK .CENTER-X .CENTER-Y>>)
+			     (T
+			      <SET DIR <MAC-CLICK .CENTER-X
+						  .CENTER-Y .TL-X .TL-Y>>)>)
+		      (T
+		       <SOUND 1>
+		       <TELL
+"[Sorry, clicking on the compass rose is not yet
+implemented on this machine.]" CR>
+		       <RFALSE>)>
+		<COND (.DIR
+		       <RETURN .DIR>)
+		      (T
+		       <SOUND 1>
+		       <RFALSE>)>)
+	       (T
+		<SOUND 1>
+		<RFALSE>)>>
+
+<ROUTINE MAC-CLICK (CENTER-X CENTER-Y TL-X TL-Y "AUX" X Y DIR)
+	 <COND (<WITHIN? <+ .TL-X 25> .TL-Y <+ .TL-X 35> <+ .TL-Y 20>>
+		<SET DIR ,P?NORTH>)
+	       (<WITHIN? <+ .TL-X 25> <+ .TL-Y 36> <+ .TL-X 35> <+ .TL-Y 58>>
+		<SET DIR ,P?SOUTH>)
+	       (<WITHIN? <+ .TL-X 38> <+ .TL-Y 23> <+ .TL-X 60> <+ .TL-Y 33>>
+		<SET DIR ,P?EAST>)
+	       (<WITHIN? .TL-X <+ .TL-Y 23> <+ .TL-X 22> <+ .TL-Y 33>>
+		<SET DIR ,P?WEST>)
+	       (<WITHIN? <+ .TL-X 37> <+ .TL-Y 10> <+ .TL-X 48> <+ .TL-Y 21>>
+		<SET DIR ,P?NE>)
+	       (<WITHIN? <+ .TL-X 37> <+ .TL-Y 35> <+ .TL-X 48> <+ .TL-Y 46>>
+		<SET DIR ,P?SE>)
+	       (<WITHIN? <+ .TL-X 12> <+ .TL-Y 35> <+ .TL-X 23> <+ .TL-Y 46>>
+		<SET DIR ,P?SW>)
+	       (<WITHIN? <+ .TL-X 12> <+ .TL-Y 10> <+ .TL-X 23> <+ .TL-Y 21>>
+		<SET DIR ,P?NW>)
+	       (<WITHIN? <+ .TL-X 23> <+ .TL-Y 21> <+ .TL-X 37> <+ .TL-Y 35>>
+		;"center section of Mac I compass rose"
+		<COND (<AND <G? ,MOUSE-LOC-X .CENTER-X>
+			    <L? ,MOUSE-LOC-Y .CENTER-Y>> ;"ne quadrant"
+		       <SET X <- ,MOUSE-LOC-X .CENTER-X>>
+		       <SET Y <- .CENTER-Y ,MOUSE-LOC-Y>>
+		       <COND (<G? .X .Y>
+			      <SET DIR ,P?EAST>)
+			     (T
+			      <SET DIR ,P?NORTH>)>)
+		      (<G? ,MOUSE-LOC-X .CENTER-X> ;"se quadrant"
+		       <SET X <- ,MOUSE-LOC-X .CENTER-X>>
+		       <SET Y <- ,MOUSE-LOC-Y .CENTER-Y>>
+		       <COND (<G? .X .Y>
+			      <SET DIR ,P?EAST>)
+			     (T
+			      <SET DIR ,P?SOUTH>)>)
+		      (<G? ,MOUSE-LOC-Y .CENTER-Y> ;"sw quadrant"
+		       <SET X <- .CENTER-X ,MOUSE-LOC-X>>
+		       <SET Y <- ,MOUSE-LOC-Y .CENTER-Y>>
+		       <COND (<G? .X .Y>
+			      <SET DIR ,P?WEST>)
+			     (T
+			      <SET DIR ,P?SOUTH>)>)
+		      (T;"nw quadrant"
+		       <SET X <- .CENTER-X ,MOUSE-LOC-X>>
+		       <SET Y <- .CENTER-Y ,MOUSE-LOC-Y>>
+		       <COND (<G? .X .Y>
+			      <SET DIR ,P?WEST>)
+			     (T
+			      <SET DIR ,P?NORTH>)>)>)
+	       (T
+		<RFALSE>)>
+	 <RETURN .DIR>>
+
+<CONSTANT TANGENT-VALUE 41>
+
+<ROUTINE MAC-II-CLICK (CENTER-X CENTER-Y "AUX" X Y DIR)
+	 <COND (<AND <G? ,MOUSE-LOC-X .CENTER-X>
+		     <L? ,MOUSE-LOC-Y .CENTER-Y>> ;"ne quadrant"
+		<SET X <- ,MOUSE-LOC-X .CENTER-X>>
+		<SET Y <- .CENTER-Y ,MOUSE-LOC-Y>>
+		<COND (<G? <* .X ,TANGENT-VALUE> <* .Y 100>>
+		       <SET DIR ,P?EAST>)
+		      (<G? <* .Y ,TANGENT-VALUE> <* .X 100>>
+		       <SET DIR ,P?NORTH>)
+		      (T
+		       <SET DIR ,P?NE>)>)
+	       (<G? ,MOUSE-LOC-X .CENTER-X> ;"se quadrant"
+		<SET X <- ,MOUSE-LOC-X .CENTER-X>>
+		<SET Y <- ,MOUSE-LOC-Y .CENTER-Y>>
+		<COND (<G? <* .X ,TANGENT-VALUE> <* .Y 100>>
+		       <SET DIR ,P?EAST>)
+		      (<G? <* .Y ,TANGENT-VALUE> <* .X 100>>
+		       <SET DIR ,P?SOUTH>)
+		      (T
+		       <SET DIR ,P?SE>)>)
+	       (<G? ,MOUSE-LOC-Y .CENTER-Y> ;"sw quadrant"
+		<SET X <- .CENTER-X ,MOUSE-LOC-X>>
+		<SET Y <- ,MOUSE-LOC-Y .CENTER-Y>>
+		<COND (<G? <* .X ,TANGENT-VALUE> <* .Y 100>>
+		       <SET DIR ,P?WEST>)
+		      (<G? <* .Y ,TANGENT-VALUE> <* .X 100>>
+		       <SET DIR ,P?SOUTH>)
+		      (T
+		       <SET DIR ,P?SW>)>)
+	       (T ;"nw quadrant"
+		<SET X <- .CENTER-X ,MOUSE-LOC-X>>
+		<SET Y <- .CENTER-Y ,MOUSE-LOC-Y>>
+		<COND (<G? <* .X ,TANGENT-VALUE> <* .Y 100>>
+		       <SET DIR ,P?WEST>)
+		      (<G? <* .Y ,TANGENT-VALUE> <* .X 100>>
+		       <SET DIR ,P?NORTH>)
+		      (T
+		       <SET DIR ,P?NW>)>)>
+	 <RETURN .DIR>>
+
+<ROUTINE SAY-HERE ("AUX" X)
+	 <TELL D ,HERE>
+	 <SET X <LOC ,PROTAGONIST>>
+	 <COND (<IN? ,PROTAGONIST ,CARD-TABLE>
+		<TELL ", at" T .X>)
+	       (<AND <NOT <EQUAL? .X ,HERE>>
+		     <FSET? .X ,VEHBIT>>
+		<TELL ", ">
+		<COND (<FSET? .X ,INBIT>
+		       <TELL "i">)
+		      (T
+		       <TELL "o">)>
+		<TELL "n" T .X>)
+	       (,UNDER-TABLE
+		<TELL ", under the table">)>
+	 <RTRUE>>
+
+<ROUTINE CENTER-1 (STR "OPTIONAL" BOLD "AUX" Y X LEN)
+	 <CURGET ,SLINE>
+	 <SET Y <GET ,SLINE 0>> ;"current line num"
+	 <SET X </ <WINGET ,S-TEXT ,WWIDE> 2>> ;"center of text screen"
+	 <COND (.BOLD
+		<HLIGHT ,H-BOLD>)>
+	 <DIROUT ,D-TABLE-ON ,SLINE -80>
+	 <TELL .STR>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>
+	 <CURSET .Y <- .X </ .LEN 2>>>
+	 <TELL .STR>
+	 <HLIGHT ,H-NORMAL>
+	 <CRLF>>
+
+<ROUTINE CENTER-2 (STR1 STR2 "AUX" Y X1 X2 LEN)
+	 <CURGET ,SLINE>
+	 <SET Y <GET ,SLINE 0>> ;"current line num"
+	 <SET X1 </ <WINGET ,S-TEXT ,WWIDE> 3>> ;"one-third across"
+	 <SET X2 <* .X1 2>> ;"two-thirds across"
+	 <DIROUT ,D-TABLE-ON ,SLINE -80>
+	 <TELL .STR1>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>
+	 <CURSET .Y <- .X1 </ .LEN 2>>>
+	 <TELL .STR1>
+	 <DIROUT ,D-TABLE-ON ,SLINE -80>
+	 <TELL .STR2>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>
+	 <CURSET .Y <- .X2 </ .LEN 2>>>
+	 <TELL .STR2>
+	 <CRLF>>
+
+<ROUTINE CENTER-3 (STR1 STR2 STR3 "AUX" Y X1 X2 X3 LEN)
+	 <CURGET ,SLINE>
+	 <SET Y <GET ,SLINE 0>> ;"current line num"
+	 <SET X1 </ <WINGET ,S-TEXT ,WWIDE> 4>> ;"one-quarter across"
+	 <SET X2 <* .X1 2>> ;"halfway across"
+	 <SET X3 <* .X1 3>> ;"three-quarters across"
+	 <DIROUT ,D-TABLE-ON ,SLINE -80>
+	 <TELL .STR1>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>
+	 <CURSET .Y <- .X1 </ .LEN 2>>>
+	 <TELL .STR1>
+	 <DIROUT ,D-TABLE-ON ,SLINE -80>
+	 <TELL .STR2>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>
+	 <CURSET .Y <- .X2 </ .LEN 2>>>
+	 <TELL .STR2>
+	 <DIROUT ,D-TABLE-ON ,SLINE -80>
+	 <TELL .STR3>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <LOWCORE TWID>>
+	 <CURSET .Y <- .X3 </ .LEN 2>>>
+	 <TELL .STR3>
+	 <CRLF>>
+
+;<ROUTINE ITALICIZE (STR "OPTIONAL" (NO-CAPS? <>)
+			"AUX" LEN (PTR 2) CHAR ;(SCRIPTING-ON <>))
+	 ;<COND (<BTST <LOWCORE FLAGS> 1>
+		<SET SCRIPTING-ON T>)>
+	 ;<COND (.SCRIPTING-ON
+		<DIROUT ,D-PRINTER-OFF>)>
+	 <DIROUT ,D-SCREEN-OFF>
+	 <DIROUT ,D-TABLE-ON ,SLINE>
+	 <TELL .STR>
+	 <DIROUT ,D-TABLE-OFF>
+	 ;<COND (.SCRIPTING-ON
+		<DIROUT ,D-PRINTER-ON>)>
+	 ;<COND (<NOT <VERB? SCRIPT UNSCRIPT>>
+		<DIROUT ,D-SCREEN-ON>)>
+	 <DIROUT ,D-SCREEN-ON>
+	 <SET LEN <+ <GET ,SLINE 0> 1>>
+	 <COND (<EQUAL? .LEN 1>
+		<RTRUE>)
+	       (<OR <ZERO? <LOWCORE SERIAL>>  ; "ZIL?"
+		    <BAND <LOWCORE ZVERSION> 8>> ; "ITALICS BIT SET?"
+		<HLIGHT ,H-ITALIC>
+		<REPEAT ()
+			<SET CHAR <GETB ,SLINE .PTR>>
+			<COND (<EQUAL? .CHAR 32> ; "SPACE?"
+			       <HLIGHT ,H-NORMAL>
+			       <PRINTC 32>
+			       <HLIGHT ,H-ITALIC>)
+			      (T
+			       <PRINTC .CHAR>)>
+			<COND (<EQUAL? .PTR .LEN>
+			       <RETURN>)
+			      (T
+			       <SET PTR <+ .PTR 1>>)>>
+		<HLIGHT ,H-NORMAL>)
+	       (.NO-CAPS?
+		<TELL .STR>)
+	       (T                       ; "NO ITALICS, CAPITALIZE"
+		<REPEAT ()
+			<SET CHAR <GETB ,SLINE .PTR>>
+			<COND (<AND <G? .CHAR 96>
+				    <L? .CHAR 123>>
+			       <SET CHAR <- .CHAR 32>>)>
+			<PRINTC .CHAR>
+			<COND (<EQUAL? .PTR .LEN>
+			       <RETURN>)
+			      (T
+			       <SET PTR <+ .PTR 1>>)>>)>>
+
+;<ROUTINE SEEING? (OBJ)
+	 <COND (<AND <PRSO? .OBJ>
+		     <EQUAL? ,PRSA 
+		 ,V?EXAMINE ,V?LOOK ,V?LOOK-INSIDE ,V?READ ,V?FIND
+		 ,V?SEARCH ,V?SHOW ,V?LOOK-UNDER ,V?LOOK-BEHIND 
+		 ,V?LOOK-DOWN ,V?COUNT ,V?POINT>>
+	        <RTRUE>)
+	       (T
+	        <RFALSE>)>>
+
+<ROUTINE TOUCHING? (THING)
+    <COND (<AND <PRSO? .THING>
+		<EQUAL? ,PRSA ,V?BITE ,V?CLEAN ,V?CLIMB ,V?CLIMB-DOWN
+			      ,V?CLIMB-ON ,V?CLIMB-UP ,V?CLOSE ,V?CUT ,V?EAT
+			      ,V?ENTER ,V?KICK ,V?KILL ,V?KISS ,V?KNOCK
+			      ,V?LOCK ,V?LOOK-BEHIND ,V?LOOK-INSIDE
+			      ,V?LOOK-UNDER ,V?MOVE ,V?MUNG ,V?OFF ,V?ON
+			      ,V?OPEN ,V?PUSH ,V?RAISE ,V?REACH-IN ,V?SEARCH
+			      ,V?SET ,V?SHAKE ,V?STAND-ON ,V?SWIM ,V?TASTE
+			      ,V?TAKE ,V?THROW ,V?TIE ,V?TOUCH ,V?UNLOCK>>
+	   <RTRUE>)
+	  (<AND <PRSI? .THING>
+		<VERB? GIVE PUT PUT-ON>>
+	   <RTRUE>)
+	  (T
+	   <RFALSE>)>>
+
+<ROUTINE HANDLE (OBJ) ;"used by action routines before calling CANT-SEE"
+	 <COND (<OR <AND <EQUAL? .OBJ ,PRSO>
+			 <EVERYWHERE-VERB? 1>>
+		    <AND <EQUAL? .OBJ ,PRSI>
+			 <EVERYWHERE-VERB? 2>>>
+		<RFALSE>)
+	       (T
+		<RTRUE>)>>
+
+;"this routine is fucked. When prsi is passed, PRSO is often printed. Fucked"
+<ROUTINE CANT-SEE ("OPTIONAL" (OBJ <>) (STRING <>) "AUX" WRD)
+	 <COND (<SET WRD <GET-NP .OBJ>>
+		<SET WRD <NP-NAME .WRD>>)>
+	 <SETG P-WON <>>
+	 <TELL "[" ,YOU-CANT "see">
+	 <COND (<OR <NOT .OBJ>
+		    <AND .WRD
+			 <NOT <CAPITAL-NOUN? .WRD>>>>
+		<TELL " any">)>
+	 <COND (<NOT .OBJ>
+		<TELL " " .STRING>)
+	       (<EQUAL? .OBJ ,PRSI>
+		<PRSI-PRINT>)
+	       (T
+		<PRSO-PRINT>)>
+	 <TELL " here.]" CR>
+	 <STOP>>
+
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR ;,P-MERGED
+		    <NOUN-USED? ,PRSO ,W?IT>
+		    ;<EQUAL? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T
+		<TELL !\ >
+		<NP-PRINT <GET-NP ,PRSO>>
+		;<BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR ;,P-MERGED
+		    <NOUN-USED? ,PRSI ,W?IT>
+		    ;<EQUAL? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSI>)
+	       (T
+		<TELL !\ >
+		<NP-PRINT <GET-NP ,PRSI>>
+		;<BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
+
+<ROUTINE CANT-VERB-A-PRSO (STRING)
+	 <TELL ,YOU-CANT .STRING A ,PRSO "!" CR>>
+
+;<ROUTINE NOW-TIED (OBJ)
+	 <TELL "Okay," T ,PRSO " is now tied to" TR .OBJ>>
+
+<ROUTINE TELL-HIT-HEAD ()
+	 <TELL
+"You hit your head against" T ,PRSO " as you attempt this feat." CR>>
+
+<ROUTINE OPEN-CLOSED (OBJ)
+	 <COND (<FSET? .OBJ ,OPENBIT>
+		<TELL "open">)
+	       (T
+		<TELL "closed">)>>
+
+;<ROUTINE IN-YOUR-PACKAGE (STRING)
+	 <TELL "This is the " .STRING " that came in your package.">>
+
+<ROUTINE CANT-REACH (OBJ)
+	 <COND (<AND ,HAND-IN-WALDO
+		     <NOT <EQUAL? .OBJ ,WALDO>>
+		     <IN? .OBJ ,HERE>>
+		<TELL "The waldo doesn't seem capable of that." CR>)
+	       (,UNDER-TABLE
+		<TELL
+,YOULL-HAVE-TO "get out from under the table in order to reach it." CR>)
+	       (T
+	 	<TELL ,YOU-CANT "reach" T .OBJ>
+	 	<COND (<NOT <IN? ,PROTAGONIST ,HERE>>
+		       <TELL " from" T <LOC ,PROTAGONIST>>)>
+		<TELL ,PERIOD-CR>)>>
+
+;<ROUTINE EAGERLY-ACCEPTS ()
+	 <MOVE ,PRSO ,PRSI>
+	 <TELL "Eagerly," T ,PRSI " accepts" T ,PRSO>>
+
+;<ROUTINE NOT-ON-GROUND (VEHICLE)
+	 <TELL "But" T .VEHICLE " isn't on the ground!" CR>>
+
+<ROUTINE DO-FIRST (STRING "OPTIONAL" (OBJ <>))
+	 <TELL ,YOULL-HAVE-TO .STRING>
+	 <COND (.OBJ
+		<TPRINT .OBJ>)>
+	 <TELL " first." CR>>
+
+<ROUTINE NOT-IN ()
+	 <TELL "But" T-IS-ARE ,PRSO "not ">
+	 <COND (<FSET? ,PRSI ,ACTORBIT>
+		<TELL "being held by">)
+	       (<FSET? ,PRSI ,SURFACEBIT>
+		<TELL "on">)
+	       (T
+		<TELL "in">)>
+	 <TELL TR ,PRSI>>
+
+<ROUTINE PART-OF ()
+	 <TELL
+,YOU-CANT "--" T-IS-ARE ,PRSO "an integral part of" TR <LOC ,PRSO>>>
+
+;<ROUTINE CHANGE-OBJECT (OLD NEW)
+	 <COND (<PRSO? .OLD>
+		<PERFORM ,PRSA .NEW ,PRSI>)
+	       (T
+		<PERFORM ,PRSA ,PRSO .OLD>)>
+	 <RTRUE>>
+
+;<ROUTINE CANT-USE-THAT-WAY (STRING)
+	 <TELL "[" ,YOU-CANT "use " .STRING " that way.]" CR>>
+
+<ROUTINE RECOGNIZE ()
+	 <SETG P-WON <>>
+	 <TELL
+"[Sorry, but I don't understand. Please rephrase that or try
+something else.]" CR>>
+
+<ROUTINE PRONOUN ()
+	 <COND (<PRSO? ,ME>
+		<TELL "You">)
+	       (<AND <PRSO? ,WHITE-CASTLE>
+		     <NOT <NOUN-USED? ,WHITE-CASTLE ,W?MAN>>>
+		<TELL "It">)
+	       (<FSET? ,PRSO ,PLURALBIT>
+		<TELL "They">)
+	       (<FSET? ,PRSO ,FEMALEBIT>
+		<TELL "She">)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "He">)
+	       (T
+		<TELL "It">)>>
+
+;<ROUTINE DONT-F ()
+	 <COND (<VERB? WAIT>
+		<TELL "Time doesn't pass..." CR>)
+	       (<VERB? TAKE>
+		<TELL "Not taken." CR>)
+	       (T
+		<TELL "Not done." CR>)>>
+
+;<ROUTINE REFERRING ("OPTIONAL" (HIM-HER <>))
+	 <TELL "It's not clear wh">
+	 <COND (.HIM-HER
+		<TELL "o">)
+	       (T
+		<TELL "at">)>
+	 <TELL " you're referring to." CR>>
+
+;<ROUTINE UNIMPORTANT-THING-F ()
+	 <TELL "That's not important; leave it alone." CR>>
+
+<ROUTINE HIT-ANY-KEY ("OPTIONAL" (STRING <>))
+	 <TELL "[Hit any key to ">
+	 <COND (.STRING
+		<TELL "begin playing " .STRING>)
+	       (T
+		<TELL "continue">)>
+	 <TELL ".]">
+	 <DIROUT ,D-SCREEN-OFF>
+	 <CRLF> ;"to transcript only"
+	 <DIROUT ,D-SCREEN-ON>
+	 <COND (,DEMO-VERSION?
+		<INPUT-DEMO 1>)
+	       (T
+		<INPUT 1>)>
+	 <MOUSE-INPUT?>>
+
+<ROUTINE LOCKED-UNLOCKED (OBJ "OPTIONAL" (UN <>))
+	 <TELL "A faint click indicates that" T .OBJ " is now ">
+	 <COND (.UN
+		<TELL "un">)>
+	 <TELL "locked." CR>>
+
+<ROUTINE CANT-TURN (STRING)
+	 <TELL ,YOU-CANT "turn that o" .STRING ,PERIOD-CR>>
+
+<ROUTINE YOU-MUST-TELL-ME ()
+	 <TELL "You must tell me how to do that to" AR ,PRSO>>
+
+<ROUTINE GRUE-PIT-WARNING ()
+	 <COND (<AND <NOT <IN? ,PROTAGONIST ,DB>>
+		     <NOT ,TIME-STOPPED>
+		     <NOT <EQUAL? ,HERE ,PIT-BOMB-LOC>>>
+	 	<TELL " You are likely to ">
+	 	<COND (<FSET? ,LANTERN ,TRYTAKEBIT>
+		       <TELL "fall into a bottomless pit.">)
+		      (T
+		       <TELL "be eaten by a grue.">)>)>
+	 <CRLF>>
+
+<ROUTINE DARK-DEATH ()
+	 <TELL "Oh, no! You have ">
+	 <COND (<FSET? ,LANTERN ,TRYTAKEBIT>
+		<TELL "fallen into a bottomless pit">)
+	       (T
+		<TELL "walked into the slavering fangs of a lurking grue">)>
+	 <JIGS-UP "!">>
+
+<CONSTANT TOO-DARK "It's too dark to see a thing.">
+
+<CONSTANT YNH "You're not holding">
+
+<CONSTANT THERES-NOTHING "There's nothing ">
+
+<CONSTANT YOU-SEE "You can see">
+
+<CONSTANT IT-SEEMS-THAT "It seems that">
+
+<CONSTANT YOU-CANT-SEE-ANY "[You can't see any ">
+
+<CONSTANT YOU-CANT "You can't ">
+
+<CONSTANT YOULL-HAVE-TO "You'll have to ">
+
+<CONSTANT LOOK-AROUND "Look around you.|">
+
+<CONSTANT CANT-FROM-HERE "You can't do that from here.|">
+
+<CONSTANT HOLDING-IT "You're holding it!|">
+
+<CONSTANT PERIOD-CR ".|">
+
+<CONSTANT ELLIPSIS "...||">
+
+<CONSTANT FAILED "Failed.|">
+
+<CONSTANT OK "Okay.|">
+
+<CONSTANT HUH "Huh?|">
+
+<CONSTANT NOTHING-HAPPENS "Nothing happens.|">
+
+<CONSTANT ALREADY-IS "It already is!|">
+
+<CONSTANT NOTHING-NEW "This reveals nothing new.|">
+
+<CONSTANT ONLY-BLACKNESS "You see only blackness.|">
+
+<CONSTANT NO-VERB "[There was no verb in that sentence!]|">
+
+<CONSTANT WEARING-IT "You're wearing it!|">
+
+<CONSTANT YACHT-MOORED "; the royal yacht is moored at the dock">
+
+<CONSTANT WHICH-WATER
+"[You'll have to specify which water you mean by referring to the vial
+that contains it.]|">
+
+<CONSTANT MEGABOZ-CEILING-DESC
+"In the center of the ceiling, a small trap door is visible.">
+
+<CONSTANT CELL-WALL-DESC "Thick cobwebs obscure the rear wall.">
+
+<CONSTANT POORLY-CONFIGURED 
+"You nearly make it, but the branches are just too poorly configured for
+climbing.|">
+
+<CONSTANT CANNOT-TRAVEL "\"I regret that I cannot travel that way.\"|">
+
+<CONSTANT ANSWER-MY-RIDDLE "\"You'll have to answer my riddle first!\"|">
+
+<CONSTANT SOME-LIGHT "You can see some light through the crack.|">
+
+<CONSTANT TYPE-A-NUMBER "Please type a number between 1 and ">
+
+<CONSTANT DROWN
+"   Since you have no diving gear, and you are not amphibious, you drown
+in a swift but still unpleasant fashion.">
+
+<CONSTANT FUDGE "A faint smell of fudge hangs in the air.">
+
+<CONSTANT TALK-TO-BROGMOID
+"The brogmoid could no more hear your shouting than you could hear the
+shouting of a bacterium.|">
+
+<CONSTANT ALREADY-AT "You're already at the ">
+
+<CONSTANT WITCH-REMOVES-J
+" Immediately, the witches begin beating at the jester with brushes and
+broomsticks. \"Scat, you filthy jester, scat!\" He vanishes hastily.|">
+
+<CONSTANT BY-THAT-NAME "There's no one here by that name.|">
+
+<CONSTANT NOTHING-IN-REACH
+"You reach in as far as you can, but feel nothing.|">
+
+<CONSTANT WONT-BUDGE "It won't budge.|">
+
+<CONSTANT COOK-DESC
+"garbed in a white apron and wearing a puffy white chef's hat.">
+
+<CONSTANT BOOKKEEPER-DESC
+"is hunched over one of the desks, wearing suspenders, a bow tie, thick
+eyeglasses, and a green visor.">
+
+<CONSTANT ERE-YOU-PASS
+"\"'Ere you pass to the west, you must first pass this test! Show me an object
+which no one has ever seen before and which no one will ever see again!\"|">
+
+<CONSTANT CARPENTERS
+"Not a chance -- unless you have a team of carpenters in your pocket.|">
+
+<CONSTANT DEEPLY-ROOTED "The spenseweed is deeply rooted.|">
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/gram.zil b/gram.zil
new file mode 100644
index 0000000..aab1f4b
--- /dev/null
+++ b/gram.zil
@@ -0,0 +1,187 @@
+"GRAM file: imitates old parser and worth an ounce of cure.
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<USE "LALR" "PSTACK" "REDS">
+
+<IFFLAG (IN-ZILCH
+	 <USE "ZILCH">)
+	(T <USE "ZIL">)>
+
+<INCLUDE "SYMBOLS" "BASEDEFS" "LALRDEFS">
+
+"TERMINALS are defined in DEFS, so they'll be around for compiling
+stuff.  This resets everything else, so we can regenerate the grammar."
+<RESET-SYMBOLS ;"!-SYMBOLS!-PACKAGE">
+
+<ADD-WORD END.OF.INPUT END-OF-INPUT>
+<ADD-WORD "." END-OF-INPUT>
+<ADD-WORD "?" END-OF-INPUT>
+<ADD-WORD "!" END-OF-INPUT>
+<ADD-WORD "THEN" END-OF-INPUT>
+
+<ADD-WORD ONE NOUN>
+<ADD-WORD BUT PREP>
+<ADD-WORD NOT PREP>
+<ADD-WORD EXCEPT PREP>
+
+<COMPILATION-FLAG-DEFAULT P-PS-COMMA <>>
+<ADD-WORD AND	<IFFLAG (P-PS-COMMA COMMA) (T MISCWORD)>>
+;<ADD-WORD OR	<IFFLAG (P-PS-COMMA COMMA) (T MISCWORD)>>
+<ADD-WORD ","	<IFFLAG (P-PS-COMMA COMMA) (T MISCWORD)>>
+
+<COMPILATION-FLAG-DEFAULT P-PS-APOSTR <>>
+<ADD-WORD "'"	<IFFLAG (P-PS-APOSTR APOSTR) (T MISCWORD)>>
+
+<COMPILATION-FLAG-DEFAULT P-PS-OFWORD <>>
+<ADD-WORD OF	<IFFLAG (P-PS-OFWORD OFWORD) (T MISCWORD ;PREP)>>
+
+<COMPILATION-FLAG-DEFAULT P-PS-THEWORD <>>
+<ADD-WORD THE	<IFFLAG (P-PS-THEWORD ARTICLE) (T MISCWORD)>>
+
+<ADD-WORD FROM PREP>
+<ADD-WORD IN PREP>
+<ADD-WORD ON PREP>
+
+<IF-P-PS-ADV
+	<ADD-WORD ONCE ADV>
+	<ADD-WORD TWICE ADV>
+	<ADD-WORD THRICE ADV>
+	<ADD-WORD "DON'T" ADV>>
+
+<IFFLAG (P-PS-ADV	<PRODUCTION RED-SP	SP 1	(?PERS S ?ADV)>)
+	(T		<PRODUCTION RED-SP	SP 1	(?PERS S)>)>
+
+<PRODUCTION RED-SV	S 2	(VP ?PARTICLE)>
+<PRODUCTION RED-SVN	S 2	(VP ?PARTICLE NPP)>
+<PRODUCTION RED-SVNP	S 2	(VP NPP PARTICLE)>
+
+<PRODUCTION RED-SVPNN	S 2	(VP ?PARTICLE NPP NPP)>
+<PRODUCTION RED-SVNPN	S 2	(VP NPP ?PARTICLE NPP)>
+<PRODUCTION RED-SVPNPN	S 2	(VP ?PARTICLE NPP ?PARTICLE NPP)>
+<PRODUCTION RED-SD	S 2	(DIR)>
+<PRODUCTION RED-SVD	S 2	(VP DIR)>
+
+<IFFLAG (P-BE-VERB
+	 <IFFLAG (P-PS-ADV
+	 	<PRODUCTION RED-VP	VP 3	(?CANDO ?ADV VERB ?ADV)>)
+		 (T
+	 	<PRODUCTION RED-VP	VP 3	(?CANDO VERB)>)>
+
+	 <PRODUCTION RED-CANDO	?CANDO 3	()
+						(NP)
+						(?QW1 CANDO NP ?NOT)
+						(?QW1 CANDO NOT NP)>)
+	(T
+	 <IFFLAG (P-PS-ADV
+	 	<PRODUCTION RED-VP	VP 3	(?ADV VERB ?ADV)>)
+		 (T
+	 	<PRODUCTION RED-VP	VP 3	(VERB)>)>)>
+
+<IFFLAG (P-PS-OFWORD
+	<PRODUCTION RED-PART	?PARTICLE 1	()
+						(PARTICLE OFWORD)
+						(PARTICLE ?PARTICLE)>)
+	(T
+	<PRODUCTION RED-PART	?PARTICLE 1	()
+						(PARTICLE MISCWORD ;"OF")
+						(PARTICLE ?PARTICLE)>)>
+
+<IF-P-PS-ADV	<PRODUCTION RED-FCN	?ADV 1	() (ADV)>>
+
+<IFFLAG (P-PS-COMMA
+	<PRODUCTION RED-NPP	NPP 4		(NP)
+						(NPP PP)
+						(NPP COMMA NP)>)
+	(T
+	<PRODUCTION RED-NPP	NPP 4		(NP)
+						(NPP PP)
+						(NPP MISCWORD NP)>)>
+
+<PRODUCTION RED-NP	NP 6		(;?DET ADJ* NOUN)>
+<IFFLAG (P-PS-OFWORD	<PRODUCTION RED-OF	NP 5	(NP OFWORD NP)>)
+	(T		<PRODUCTION RED-OF	NP 5	(NP MISCWORD NP)>)>
+<PRODUCTION RED-QT	NP 7		(QUANT)>
+<PRODUCTION RED-QN	NP 5		(QUANT NP)>
+
+<COMPILATION-FLAG-DEFAULT P-PS-QUOTE <>>
+<ADD-WORD \"	<IFFLAG (P-PS-QUOTE QUOTE) (T MISCWORD)>>
+<IFFLAG (P-PS-QUOTE
+	<PRODUCTION RED-QUOTE	NP 7	(QUOTE)>)
+	(T
+	<PRODUCTION RED-QUOTE	NP 7	(MISCWORD)>)>
+
+<IFFLAG (P-PS-OFWORD
+	<PRODUCTION RED-PP	PP 3		(PREP NPP)
+						(PARTICLE NPP)
+						(PREP OFWORD NPP)
+						(PARTICLE OFWORD NPP)>)
+	(T
+	<PRODUCTION RED-PP	PP 3		(PREP NPP)
+						(PARTICLE NPP)
+						(PREP MISCWORD;"OF" NPP)
+						(PARTICLE MISCWORD;"OF" NPP)>)>
+
+<IFFLAG (P-PS-THEWORD
+	<PRODUCTION RED-ADJ	ADJ* 8		()
+						(ADJ ADJ*) ;"switched by SWG"
+						(ARTICLE ADJ*)
+						(POSSESSIVE ADJ*)>)
+	(T
+	<PRODUCTION RED-ADJ	ADJ* 8		()
+						(ADJ ADJ*) ;"switched by SWG"
+						(MISCWORD ADJ*)	;"article"
+						(POSSESSIVE ADJ*)>)>
+
+<IFFLAG (P-PS-APOSTR
+	<PRODUCTION RED-POSS	POSSESSIVE 8	(NP APOSTR MISCWORD) ;"FOO'S"
+						;(ADJ)	;"HER HIS etc.">)
+	(T
+	<PRODUCTION RED-POSS	POSSESSIVE 8	(NP MISCWORD MISCWORD) ;"FOO'S"
+						;(ADJ)	;"HER HIS etc.">)>
+
+<IF-P-BE-VERB
+
+<PRODUCTION RED-BE-FORM		BE-FORM 3	(TOBE)>
+
+<PRODUCTION RED-SNBN	S 2	(NP BE-FORM ?NOT ?BE NPP)>
+<PRODUCTION RED-SNBA	S 2	(NP BE-FORM ?NOT ?BE ADJ)>
+<PRODUCTION RED-SNBP	S 2	(NP BE-FORM ?NOT ?BE PP)>
+
+<PRODUCTION RED-FCN	?QW1 3		() (QWORD)>
+
+<PRODUCTION RED-SQBN	S 2	(QWORD BE-FORM NP)>
+;<PRODUCTION RED-SQBA	S 2	(QWORD BE-FORM ADJ)>
+;<PRODUCTION RED-SQBP	S 2	(QWORD BE-FORM PP)>
+
+<PRODUCTION RED-SBNN	S 2	(?QW1 BE-FORM NP ?NOT ?BE NPP)
+				(?QW1 BE-FORM  NOT NP ?BE NPP)>
+<PRODUCTION RED-SBNA	S 2	(?QW1 BE-FORM NP ?NOT ?BE ADJ)
+				(?QW1 BE-FORM  NOT NP ?BE ADJ)>
+<PRODUCTION RED-SBNP	S 2	(?QW1 BE-FORM NP ?NOT ?BE PP)
+				(?QW1 BE-FORM  NOT NP ?BE PP)>
+
+<ADD-WORD BE MISCWORD>
+<PRODUCTION RED-BE	?BE 3		() (MISCWORD ;"BE")>
+
+<ADD-WORD NOT MISCWORD>
+<PRODUCTION RED-NOT	?NOT 3		() (MISCWORD ;"NOT")>
+<PRODUCTION RED-NOT	NOT 3		(MISCWORD ;"NOT")>
+>
+
+<IFFLAG (P-PS-COMMA
+	<PRODUCTION RED-PERS	?PERS 2	()
+					(NPP COMMA)
+					(ASKWORD NPP PARTICLE ;"TO")>)
+	(T
+	<PRODUCTION RED-PERS	?PERS 2	()
+					(NPP MISCWORD)
+					(ASKWORD NPP PARTICLE ;"TO")>)>
+
+<PRODUCTION RED-O-NP	S 1	(NP) ;"was NPP"
+				(NP PP)>
+<PRODUCTION RED-O-ADJ	S 1	(;ADJ ADJ*)>
+<PRODUCTION RED-O-PP	S 1	(PP)
+				(PARTICLE NP)>
+
+<STARTING-SYMBOL SP>
+<MAKE-TABLES <LALR>>
diff --git a/highway.zabstr b/highway.zabstr
new file mode 100644
index 0000000..226728b
--- /dev/null
+++ b/highway.zabstr
@@ -0,0 +1,406 @@
+
+<BEGIN-SEGMENT LOWER> 
+<ROOM G-U-HIGHWAY (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Great Underground Highway") (LDESC
+"This is the northern terminus of one of the branches of the Great Underground
+Highway system, one of the ambitious construction projects conceived by King
+Duncanthrax and executed by the Frobozz Magic Cave Company. A tunnel leads
+northeast.") (NE TO LOWER-HALL) (SOUTH TO EXIT) (FLAGS RLANDBIT UNDERGROUNDBIT)
+(MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>) (ICON
+G-U-HIGHWAY-ICON)> 
+<ROOM EXIT (LOC ROOMS) (REGION "Flatheadia") (DESC "Exit") (LDESC
+"A wide underground road runs north and south. There's an eye-catching sign
+next to a tunnel leading west.") (WEST TO FIELD-OFFICE) (NORTH TO G-U-HIGHWAY)
+(SOUTH TO CROSSROADS) (FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL SIGN) (MAP-LOC <
+PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-5>) (ICON EXIT-ICON)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FOOZLE> 
+<ROOM CROSSROADS (LOC ROOMS) (REGION "Somewhere Along the GUH") (DESC
+"Crossroads") (LDESC
+"You stand at the junction of two underground highways, one north-south
+and the other east-west. A sign hangs in the center of the junction.") (NORTH
+TO EXIT) (SOUTH TO TOLL-PLAZA) (EAST TO CAVE-IN) (WEST TO POTHOLES) (FLAGS
+RLANDBIT UNDERGROUNDBIT) (GLOBAL SIGN) (MAP-LOC <PTABLE FOOZLE-MAP-NUM
+MAP-GEN-Y-3 MAP-GEN-X-7>) (ICON CROSSROADS-ICON)> 
+<ROOM CAVE-IN (LOC ROOMS) (DESC "Cave-In") (REGION "Somewhere Along the GUH") (
+LDESC "Just ahead, the roof of the highway tunnel has collapsed, creating a dead
+end. (Decades of non-maintenance of the Empire's infrastructure are taking
+their toll.) Your only choice is to return to the west.") (WEST TO CROSSROADS)
+(OUT TO CROSSROADS) (FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE
+FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>) (ACTION CAVE-IN-F)> 
+<DEFINE-ROUTINE CAVE-IN-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT PIT-BOMB (LOC LOCAL-GLOBALS) (DESC "anti-pit bomb") (FDESC
+"Sitting on a piece of rubble is an anti-pit bomb.") (SYNONYM BOMB LABEL) (
+ADJECTIVE BOTTOMLESS ANTI-PIT) (FLAGS TAKEBIT READBIT VOWELBIT) (TEXT
+"\"Is your cavern infested with bottomless pits? If so, this anti-pit bomb is
+the answer to your prayers! Instructions: simply enter the pitted room and
+throw the bomb. All pit-filling agents are harmless; no protective gear is
+required!|
+   Another fine product of the Frobozz Magic Bottomless Pit Bomb Company.\"") (
+ACTION PIT-BOMB-F)> 
+<DEFINE-ROUTINE PIT-BOMB-F> 
+<GLOBAL PIT-BOMB-LOC <>> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FOOZLE> 
+<ROOM TOLL-PLAZA (LOC ROOMS) (DESC "Toll Plaza") (REGION
+"Somewhere Along the GUH") (NORTH TO CROSSROADS) (SOUTH TO FISSURE-EDGE IF
+TOLL-GATE IS OPEN) (FLAGS RLANDBIT UNDERGROUNDBIT) (SYNONYM PLAZA) (ADJECTIVE
+TOLL) (GLOBAL SIGN) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>) (
+ICON TOLL-PLAZA-ICON) (ACTION TOLL-PLAZA-F)> 
+<DEFINE-ROUTINE TOLL-PLAZA-F> 
+<OBJECT TOLL-BOOTH (LOC TOLL-PLAZA) (DESC "toll booth") (SYNONYM BOOTH) (
+ADJECTIVE TOLL) (FLAGS NDESCBIT) (ACTION TOLL-BOOTH-F)> 
+<DEFINE-ROUTINE TOLL-BOOTH-F> 
+<OBJECT TOLL-GATE (LOC TOLL-PLAZA) (DESC "toll gate") (SYNONYM GATE) (ADJECTIVE
+TOLL) (FLAGS NDESCBIT DOORBIT) (ACTION TOLL-GATE-F)> 
+<DEFINE-ROUTINE TOLL-GATE-F> 
+<OBJECT BASKET (LOC TOLL-PLAZA) (DESC "exact change basket") (SYNONYM BASKET) (
+ADJECTIVE EXACT CHANGE) (FLAGS VOWELBIT NDESCBIT CONTBIT OPENBIT SEARCHBIT) (
+ACTION BASKET-F)> 
+<DEFINE-ROUTINE BASKET-F> 
+<ROOM FISSURE-EDGE (LOC ROOMS) (DESC "Fissure's Edge") (REGION
+"Somewhere Along the GUH") (LDESC
+"To the south, the road is rent by a wide fissure, the reminder of a recent
+quake. Judging by the footprints in the dust, many travellers have reached
+this point, only to turn around and head back to the north. The quake has
+also opened a narrow crack in the eastern wall of the tunnel; you might be
+able to squeeze into it.") (NORTH TO TOLL-PLAZA) (EAST TO TIGHT-SQUEEZE) (SOUTH
+SORRY "The fissure is uncrossable.") (DOWN SORRY
+"A plunge into the fissure would be fatal.") (FLAGS RLANDBIT UNDERGROUNDBIT) (
+MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>) (ICON
+FISSURES-EDGE-ICON) (THINGS NARROW CRACK FISSURE-CRACK-PS WIDE FISSURE
+FISSURE-PS)> 
+<DEFINE-ROUTINE FISSURE-PS> 
+<DEFINE-ROUTINE FISSURE-CRACK-PS> 
+<ROOM TIGHT-SQUEEZE (LOC ROOMS) (DESC "Tight Squeeze") (REGION
+"Region:  Unknown") (LDESC
+"You are in a narrow fissure which widens to the west. A cool breeze seems
+to blow upon you from below.") (WEST TO FISSURE-EDGE) (DOWN TO ORB-ROOM) (
+SYNONYM FISSURE) (ADJECTIVE NARROW) (FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <
+PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>)> 
+<ROOM ORB-ROOM (LOC ROOMS) (DESC "Orb Room") (REGION "Region:  Unknown") (LDESC
+"The air is chilly, the walls are covered with ice, and the floor is piled
+high with crystal spheres of varying sizes and colors; most are chipped or
+shattered. Your light reveals no visible exits, although a trickle of warm,
+dry air caresses you from above.") (UP TO TIGHT-SQUEEZE) (OUT TO TIGHT-SQUEEZE)
+(FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-9>) (ICON ORB-ROOM-ICON) (THINGS <> ICE ICE-PS)> 
+<DEFINE-ROUTINE ICE-PS> 
+<BEGIN-SEGMENT 0> 
+<OBJECT MILKY-ORB (LOC ORB-ROOM) (DESC "milky orb") (FDESC
+"The only intact orbs seem to be a milky orb, a fiery orb, a glittery orb,
+and a smoky orb.") (SYNONYM ORB) (ADJECTIVE MILKY WHITE) (FLAGS TAKEBIT
+TRYTAKEBIT) (ACTION ORB-F)> 
+<OBJECT FIERY-ORB (LOC ORB-ROOM) (DESC "fiery orb") (SYNONYM ORB) (ADJECTIVE
+FIERY ORANGE) (FLAGS TAKEBIT TRYTAKEBIT NDESCBIT) (ACTION ORB-F)> 
+<OBJECT SMOKY-ORB (LOC ORB-ROOM) (DESC "smoky orb") (SYNONYM ORB) (ADJECTIVE
+SMOKY GRAY) (FLAGS TAKEBIT TRYTAKEBIT NDESCBIT) (ACTION ORB-F)> 
+<OBJECT GLITTERY-ORB (LOC ORB-ROOM) (DESC "glittery orb") (SYNONYM ORB) (
+ADJECTIVE GLITTERY GOLD GOLDEN) (FLAGS TAKEBIT TRYTAKEBIT NDESCBIT) (ACTION
+ORB-F)> 
+<DEFINE-ROUTINE ORB-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FOOZLE> 
+<ROOM POTHOLES (LOC ROOMS) (DESC "Potholes") (REGION "Somewhere Along the GUH")
+(LDESC "The road, which runs east to west, is in bad shape here, pitted with
+holes and ruts.") (EAST TO CROSSROADS) (WEST TO REST-STOP) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>)> 
+<ROOM REST-STOP (LOC ROOMS) (DESC "Rest Stop") (REGION
+"Somewhere Along the GUH") (LDESC
+"By the north side of the road is a rest stop, closed and boarded up. The road
+continues east and southwest.") (EAST TO POTHOLES) (SW TO FORK) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>) (ICON
+REST-STOP-ICON) (THINGS REST STOP REST-STOP-PS <> BOARD SHUTTER-PS <> SHUTTER
+SHUTTER-PS)> 
+<DEFINE-ROUTINE REST-STOP-PS> 
+<DEFINE-ROUTINE SHUTTER-PS> 
+<ROOM FORK (LOC ROOMS) (DESC "Fork") (REGION "Somewhere Along the GUH") (LDESC
+"The tunnel forks here, with roads leading northeast, west, and southwest.") (
+NE TO REST-STOP) (WEST TO FISHY-ODOR) (SW TO SALTY-SMELL) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON
+FORK-ICON)> 
+<ROOM FISHY-ODOR (LOC ROOMS) (DESC "Fishy Odor") (REGION "Port Foozle") (LDESC
+"The tunnel narrows toward a spot of light to the west. The stench of dead,
+rotting fish hangs in the air.") (EAST TO FORK) (WEST TO FISHING-VILLAGE) (
+FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4
+MAP-GEN-X-3>) (ICON FISHY-ODOR-ICON)> 
+<ROOM SALTY-SMELL (LOC ROOMS) (DESC "Salty Smell") (REGION "Port Foozle") (
+LDESC "The tunnel from the northeast is narrower here, and pervaded with the scent
+of the sea. You can hear breakers to the southwest.") (NE TO FORK) (SW TO
+QUILBOZZA-BEACH) (FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE
+FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)> 
+<ROOM FISHING-VILLAGE (LOC ROOMS) (DESC "Fishing Village") (REGION
+"Port Foozle") (LDESC
+"This once-busy port, on the shore of the Great Sea, lies deserted. A tunnel
+opens to the east, the shoreline can be followed south along the ocean's edge,
+and a wharf juts into the harbor to the west. A newly constructed stone
+building lies to the north; an eye-catching sign has been erected next to its
+entrance.") (EAST TO FISHY-ODOR) (WEST TO WHARF) (SOUTH TO SANDBAR) (NORTH TO
+INQUISITION) (IN TO INQUISITION) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL
+VILLAGE SIGN FLATHEAD-OCEAN WHARF GLOBAL-BLDG) (MAP-LOC <PTABLE FOOZLE-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-2>) (ICON FISHING-VILLAGE-ICON) (ACTION FISHING-VILLAGE-F
+)> 
+<DEFINE-ROUTINE FISHING-VILLAGE-F> 
+<DEFINE-ROUTINE I-INQ> 
+<CONSTANT DOABLE-REQUESTS <LTABLE 0 "sing a song" "kick me" "kiss me">> 
+<CONSTANT UNDOABLE-REQUESTS <LTABLE 0 "give me a thousand zorkmids"
+"give me Ursula Flathead" "send me to Antharia">> 
+<GLOBAL INQ-NUMBER 0> 
+<GLOBAL NUMBER-ON-LINE 0> 
+<GLOBAL NUMBER-TAKEN 0> 
+<GLOBAL INQ-SCORE 25> 
+<ROOM INQUISITION (LOC ROOMS) (DESC "Inquisition") (REGION "Port Foozle") (
+SOUTH SORRY "A trollish guard blocks the exit. \"No one leave!\"") (OUT SORRY
+"A trollish guard blocks the exit. \"No one leave!\"") (FLAGS RLANDBIT ONBIT) (
+GLOBAL SIGN GLOBAL-BLDG) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-2>) (ACTION INQUISITION-F)> 
+<DEFINE-ROUTINE INQUISITION-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT TICKET (LOC INQUISITION) (DESC "ticket") (SYNONYM TICKET NUMBER) (OWNER
+PROTAGONIST) (FLAGS TAKEBIT READBIT TRYTAKEBIT NDESCBIT BURNBIT) (SIZE 1) (
+ACTION TICKET-F)> 
+<DEFINE-ROUTINE TICKET-F> 
+<OBJECT BOX (LOC INQUISITION) (DESC "box") (PLURAL "boxes") (FDESC
+"One of the sinners has apparently dropped a box here. The box has some
+writing on it.") (SYNONYM BOX WRITING) (ADJECTIVE SMALL) (FLAGS TAKEBIT CONTBIT
+READBIT SEARCHBIT) (SIZE 3) (CAPACITY 3) (OWNER BOX) (TEXT
+"\"Squid Repellent! Contents: 1 pellet. Dissolves slowly in water, keeps
+squid away for hours! Another fine product of the Frobozz Magic Squid
+Repellent Company.\"")> 
+<OBJECT SQUID-REPELLENT (LOC BOX) (OWNER SQUID-REPELLENT) (DESC
+"pellet of squid repellent") (SYNONYM PELLET REPELLENT) (ADJECTIVE LARGE SQUID)
+(FLAGS TAKEBIT) (SIZE 1) (ACTION SQUID-REPELLENT-F)> 
+<DEFINE-ROUTINE SQUID-REPELLENT-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FOOZLE> 
+<OBJECT EXECUTIONER (LOC INQUISITION) (DESC "executioner") (SYNONYM EXECUTIONER
+MAN) (FLAGS ACTORBIT VOWELBIT NDESCBIT ANIMATEDBIT) (ACTION EXECUTIONER-F)> 
+<DEFINE-ROUTINE EXECUTIONER-F> 
+<DEFINE-ROUTINE DOABLE-REQUEST> 
+<DEFINE-ROUTINE UNDOABLE-REQUEST> 
+<OBJECT THOUSAND-ZORKMIDS (LOC LOCAL-GLOBALS) (DESC "lots of zorkmids") (
+SYNONYM ZORKMIDS) (ADJECTIVE HUNDRED THOUSAND MILLION INT.NUM) (FLAGS
+NARTICLEBIT)> 
+<ROOM WHARF (LOC ROOMS) (DESC "Wharf") (REGION "Port Foozle") (LDESC
+"This wharf extends into the harbor from a village to the east. Along the
+north side of the wharf, a building rests on piers over the water.") (EAST TO
+FISHING-VILLAGE) (NORTH TO CASINO) (WEST SORRY
+"The wharf ends a few steps to the west.") (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (
+SYNONYM WHARF) (GLOBAL VILLAGE GLOBAL-BLDG FLATHEAD-OCEAN) (MAP-LOC <PTABLE
+FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-1>) (ICON WHARF-ICON)> 
+<ROOM CASINO (LOC ROOMS) (DESC "Casino") (REGION "Port Foozle") (LDESC
+"This is the Port Foozle Casino, once a world-famous gambling spot, but
+now deserted and showing the effects of years of ocean storms. The casino
+has been heavily looted; only a single card table seems untouched. An exit
+leads south.") (SOUTH TO WHARF) (OUT TO WHARF) (FLAGS RLANDBIT ONBIT) (SYNONYM
+CASINO) (GLOBAL GLOBAL-BLDG) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-1>) (ACTION CASINO-F)> 
+<DEFINE-ROUTINE CASINO-F> 
+<OBJECT DOUBLE-FANUCCI (LOC GLOBAL-OBJECTS) (DESC "Double Fanucci") (SYNONYM
+FANUCCI FANNUCCI) (ADJECTIVE DOUBLE) (RESEARCH
+"\"Legend has it that Double Fanucci (or Fannucci) was invented by the deposed
+Zilbo III in the late seventh century. A game of tremendous complexity and
+almost infinite rules, King Mumberthrax proclaimed it the national sport of
+the Empire in 757 GUE. The annual Double Fanucci Championships, held in
+Borphee during early autumn, frequently leave thousands homeless.\"") (ACTION
+DOUBLE-FANUCCI-F)> 
+<DEFINE-ROUTINE DOUBLE-FANUCCI-F> 
+<OBJECT CARD-TABLE (LOC CASINO) (DESC "card table") (SYNONYM TABLE CHAIR) (
+ADJECTIVE CARD) (FLAGS NDESCBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT VEHBIT) (
+CAPACITY 50) (ACTION CARD-TABLE-F)> 
+<DEFINE-ROUTINE CARD-TABLE-F> 
+<DEFINE-ROUTINE F-START> 
+<DEFINE-ROUTINE SETUP-CARDS> 
+<CONSTANT F-PICSET-TBL <TABLE F-CARD-BACK F-CARD F-INKBLOTS F-PLUNGERS F-BUGS
+F-ZURFS F-EARS F-TOPS F-RAIN F-HIVES F-FACES F-MAZES F-LAMPS F-TIME F-BOOKS
+F-SCYTHES F-FROMPS F-RV-INKBLOTS F-RV-PLUNGERS F-RV-BUGS F-RV-ZURFS F-RV-EARS
+F-RV-TOPS F-RV-RAIN F-RV-HIVES F-RV-FACES F-RV-MAZES F-RV-LAMPS F-RV-TIME
+F-RV-BOOKS F-RV-SCYTHES F-RV-FROMPS F-0 F-1 F-2 F-3 F-4 F-5 F-6 F-7 F-8 F-9
+F-INFINITY F-RV-0 F-RV-1 F-RV-2 F-RV-3 F-RV-4 F-RV-5 F-RV-6 F-RV-7 F-RV-8
+F-RV-9 F-RV-INFINITY F-GRANOLA F-LOBSTER F-SNAIL F-JESTER F-HOURGLASS F-LIGHT
+F-BEAUTY F-DEATH F-GRUE 0>> 
+<DEFINE-ROUTINE SETUP-FANUCCI> 
+<CONSTANT F-PIC-LOCS <PTABLE ,F-DISCARD-PIC-LOC ,F-1-PIC-LOC ,F-2-PIC-LOC ,
+F-3-PIC-LOC ,F-4-PIC-LOC>> 
+<DEFINE-ROUTINE DRAW-CARDS> 
+<CONSTANT PICTURE-CARD-PROB 20> 
+<DEFINE-ROUTINE PICK-RANK> 
+<CONSTANT F-FACE-CARD-PIC-TBL <PTABLE ,F-GRANOLA ,F-LOBSTER ,F-SNAIL ,F-JESTER
+,F-HOURGLASS ,F-LIGHT ,F-BEAUTY ,F-DEATH ,F-GRUE>> 
+<DEFINE-ROUTINE DISPLAY-OFFSET> 
+<DEFINE-ROUTINE DRAW-CARD> 
+<DEFINE-ROUTINE FANUCCI> 
+<DEFINE-ROUTINE UPDATE-SCORES> 
+<DEFINE-ROUTINE SCORE-CHECK> 
+<GLOBAL J-CARDS 4> 
+<GLOBAL J-DISCARD-FROMP-PROB 0> 
+<GLOBAL F-WIN-COUNT 0> 
+<CONSTANT DRAW-CARDS-TABLE <TABLE 1 1 1 1 1>> 
+<CONSTANT J-LAST-CARD <TABLE 0 0>> 
+<CONSTANT FROMP-SUIT 15> 
+<CONSTANT TREBLED-RANK 11> 
+<DEFINE-ROUTINE J-PLAY> 
+<CONSTANT J-PLAY-TABLE <PTABLE "shrugs. \"Just a simple Borphee Bluff.\""
+"smiles. \"A devilish Kovalli Hustle, don't you think?\""
+"shudders. \"Babe would turn over in his grave if he could see my playing.\""
+"looks satisfied. \"That ought to up the ante toward a Doubleton Duck.\""
+"resists an urge to spike his cards. \"You fell for my Festeron Finesse! I get Honors!\""
+"shouts, \"Whangdoogle! Four to the kitty! Minor ruff!\" and massages the resulting torn shoulder muscle."
+"kicks himself. \"I should've revoked a Singleton in the third frame!\""
+"snickers at you. \"Bet you didn't see that Segmented Shuffle coming!\""
+"complains. \"Shy Openers! All I get are Shy Openers!\""
+"applauds with delight. \"Zilbo's Half-Renege! I love it!\""
+"sighs. \"I came so close to a Full Foozle Progression.\""
+"produces two large mallard ducks out of thin air, thus Royal Bidding
+his play." "takes a third of the deck and burns it. \"Unlimited Singleton Bids for
+the rest of the game!\""
+"invokes the Grand Slam clause and reshuffles the deck. \"Slice and Call,\"
+he claims." "exhales a deep breath. \"I wasn't sure I'd have time for that Inside
+Duo-Trick.\"" "gulps. \"I came close to having to invoke the Golden Fromp clause!\""
+"scowls. \"An Unrejuvenated Slamboozle!\" To repent, he changes shape
+to a hawk, then a milk cow, then a large carpenter ant, and finally back
+to a jester. \"Full repentance; losses halved,\" he states.">> 
+<CONSTANT J-PLAY-SCORES <PTABLE -10 -78 44 -21 -95 -31 22 -42 34 -56 -4 -28 -16
+-37 -25 15 -22>> 
+<DEFINE-ROUTINE PICK-PLAY> 
+<DEFINE-ROUTINE UNBOLD-MOVE> 
+<DEFINE-ROUTINE BOLD-MOVE> 
+<DEFINE-ROUTINE PLAY-SELECTED> 
+<DEFINE-ROUTINE F-MOUSE-CARD-PICK> 
+<DEFINE-ROUTINE PRINT-CARD-NAME> 
+<CONSTANT F-PLAY-TABLE <PTABLE "DRAW " "DISCARD " "DIVIDE " "REVERSE " "TRUMP "
+"UNDERTRUMP " "COMBINE " "PASS " "OVERPASS " "SINGLE-PLAY " "DOUBLE-PLAY "
+"MUTTONATE " "IONIZE " "CHEAT " "RESIGN ">> 
+<CONSTANT F-PLAY-TABLE-LC <PTABLE "draw" "discard" "divide" "reverse" "trump"
+"undertrump" "combine" "pass" "overpass" "single-play" "double-play"
+"muttonate" "ionize" "cheat" "resign">> 
+<CONSTANT RANK-PIC-TBL <PTABLE <> F-4 F-5 F-6 F-7 F-8 F-9 F-0 F-INFINITY F-1
+F-2 F-3>> 
+<CONSTANT RANK-REV-TBL <PTABLE <> F-RV-4 F-RV-5 F-RV-6 F-RV-7 F-RV-8 F-RV-9
+F-RV-0 F-RV-INFINITY F-RV-1 F-RV-2 F-RV-3>> 
+<CONSTANT F-RANK-TABLE <PTABLE <> "the Four of" "the Five of" "the Six of"
+"the Seven of" "the Eight of" "the Nine of" "the Naught of" "Infinite"
+"Singled" "Doubled" "Trebled" "Granola" "the Lobster" "the Snail" "the Jester"
+"Time" "Light" "Beauty" "Death" "the Grue">> 
+<CONSTANT SUIT-PIC-TBL <PTABLE <> F-INKBLOTS F-PLUNGERS F-BUGS F-ZURFS F-EARS
+F-TOPS F-RAIN F-HIVES F-FACES F-MAZES F-LAMPS F-TIME F-BOOKS F-SCYTHES F-FROMPS
+>> 
+<CONSTANT SUIT-REV-TBL <PTABLE <> F-RV-INKBLOTS F-RV-PLUNGERS F-RV-BUGS
+F-RV-ZURFS F-RV-EARS F-RV-TOPS F-RV-RAIN F-RV-HIVES F-RV-FACES F-RV-MAZES
+F-RV-LAMPS F-RV-TIME F-RV-BOOKS F-RV-SCYTHES F-RV-FROMPS>> 
+<CONSTANT F-SUIT-TABLE <PTABLE <> "Inkblots" "Plungers" "Bugs" "Zurfs" "Ears"
+"Tops" "Rain" "Hives" "Faces" "Mazes" "Lamps" "Time" "Books" "Scythes" "Fromps"
+>> 
+<CONSTANT F-CARD-TABLE <TABLE <> <> <> <> <> <> <> <> <> <>>> 
+<GLOBAL YOUR-SCORE 0> 
+<GLOBAL J-SCORE 0> 
+<GLOBAL F-PLAYS 0> 
+<DEFINE-ROUTINE CHEAT-RESULT> 
+<DEFINE-ROUTINE F-SCORE> 
+<CONSTANT CHEAT-WINS <PTABLE 3
+"You catch the jester looking out the window, and take the opportunity to
+alter the scores." 45 "You distract the jester by faking a muscle cramp." 23
+"You successfully slip a card out of your sleeve." 19>> 
+<CONSTANT CHEAT-LOSSES <PTABLE 3
+"The jester seems to doze off for a moment, and you try to take advantage by
+fudging the scores. However, the jester stirs, and in your haste you help the
+jester instead of yourself!" -60
+"The jester catches you marking the cards, and assesses a stiff penalty." -47
+"You substitute a card from the middle of the deck, but the new card places
+you in an even worse position!" -33>> 
+<CONSTANT J-RESPONSES <PTABLE "during the middle third of Mumberber!\""
+"before a New Sun!\"" "in a two-person game!\"" "cries, \"Daring move!\""
+"looks bored. \"The old Oddzio Gambit.\"" "says, \"A gutsy play!\""
+"applauds. \"A brilliant Festeron Feint!\""
+"sneers. \"A transparent maneuver.\""
+"shakes his head. \"A poorly executed Antharian Attack.\""
+"exclaims, \"A skillful finesse!\""
+"is obviously impressed. \"A spectacular Bloodworm Defense!\""
+"sniffs. \"A weak response.\""
+"smiles mysteriously. \"An unusual Balsawood Convention!\""
+"looks impressed. \"That was a stroke of genius!\""
+"taps his fingers impatiently. \"A typical Egreth Convention.\""
+"whispers, \"Crude, but effective.\""
+"tips his hat to you. \"A well-executed Zilbo Standard!\""
+"looks unimpressed. \"Just a lucky stroke!\""
+"smirks. \"A poorly timed Forborn Chisel, wouldn't you say?\""
+"laughs. \"That was a sign of panic on your part, if you ask me.\""
+"peruses your move. \"Ah, yes. The Accardi Variation. I haven't seen that one in a while.\""
+"bows his head with respect. \"You're a regular Fanuccimeister, eh?\""
+"salutes you. \"A well-timed Frotz Factor! Bravo!\""
+"scratches his head. \"A thoroughly mystifying maneuver.\""
+"yawns. \"The dependable Zibble Ploy.\""
+"laughs derisively. \"An amateurish blunder!\""
+"says, \"A classic Frotzen Ploy.\""
+"shrugs. \"Oh, well... If people never made mistakes, they wouldn't put
+erasers on pencils...\""
+"looks at you with scorn. \"A lukewarm Porridge Variation.\""
+"blinks. Then blinks again. \"Now I've seen EVERYTHING!\""
+"nods knowingly. \"An obvious Fublian Gambit.\""
+"offers you some advice. \"Remember the words of Leo 'the Lip' Flathead: 'Nice
+guys finish last.'\"" "under Miznian rules!\""
+"without a note from your doctor!\""
+"except after a third-level Hamster Substitution!\""
+"in a coastal city without first eating the rind of a burnt casaba melon!\""
+"chortles gratingly. \"Who taught you how to play cards? Vanna Flathead?\"">> 
+<CONSTANT F-SCORES <PTABLE 0 0 0 24 10 28 41 -12 -81 37 54 -29 17 66 -35 14 18
+13 -79 -41 -15 60 64 -99 10 -73 12 -55 -20 -77 -11 -14 0 0 0 0 -38>> 
+<OBJECT BROOM (LOC LOCAL-GLOBALS) (DESC "broom") (SYNONYM BROOM) (SIZE 10) (
+FLAGS TAKEBIT TRYTAKEBIT)> 
+<ROOM SANDBAR (LOC ROOMS) (DESC "Sandbar") (REGION "Port Foozle") (LDESC
+"You are on a wide sandbar, which almost certainly vanishes at high tide.
+The only ways off the sandbar are to the north and south.") (NORTH TO
+FISHING-VILLAGE) (SOUTH TO QUILBOZZA-BEACH) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (
+SYNONYM SANDBAR) (GLOBAL FLATHEAD-OCEAN) (MAP-LOC <PTABLE FOOZLE-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-2>)> 
+<ROOM QUILBOZZA-BEACH (LOC ROOMS) (DESC "Quilbozza Beach") (REGION
+"Port Foozle") (LDESC
+"You are on a wide beach of fine pinkish-white sand. The ocean stretches
+west to the horizon. Due to the low tide, it looks as if you could travel
+north. In addition, tunnels open to the northeast and southeast.") (NORTH TO
+SANDBAR) (NE TO SALTY-SMELL) (SE TO WARNING-ROOM) (FLAGS RLANDBIT ONBIT
+OUTSIDEBIT) (SYNONYM BEACH) (ADJECTIVE QUILBOZZA) (GLOBAL FLATHEAD-OCEAN) (
+RESEARCH "\"Quilbozza, just south of Port Foozle, is considered the nicest beachfront
+in the eastlands, if not all of Quendor.\"") (MAP-LOC <PTABLE FOOZLE-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-2>) (ICON QUILBOZZA-BEACH-ICON) (ACTION QUILBOZZA-BEACH-F
+)> 
+<DEFINE-ROUTINE QUILBOZZA-BEACH-F> 
+<ROOM WARNING-ROOM (LOC ROOMS) (DESC "Warning Room") (REGION "Port Foozle") (
+LDESC "You are in a tunnel which curves northwest and northeast. The tunnel rises
+at the latter end, and passes a large, eye-catching sign.") (NW TO
+QUILBOZZA-BEACH) (DOWN TO QUILBOZZA-BEACH) (NE TO ROOM-OF-THREE-DOORS) (UP TO
+ROOM-OF-THREE-DOORS) (FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL SIGN) (ICON
+WARNING-ROOM-ICON) (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-3>)> 
+<ROOM ROOM-OF-THREE-DOORS (LOC ROOMS) (DESC "Room of Three Doors") (REGION
+"Port Foozle") (SW TO WARNING-ROOM) (OUT TO WARNING-ROOM) (IN SORRY
+"Pick a door... any door...") (FLAGS RLANDBIT UNDERGROUNDBIT) (MAP-LOC <PTABLE
+FOOZLE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>) (ICON ROOM-OF-3-DOORS-ICON) (ACTION
+ROOM-OF-THREE-DOORS-F)> 
+<GLOBAL VERITASSI-DOOR <>> 
+<GLOBAL PREVARICON-DOOR <>> 
+<GLOBAL WISHYFOO-DOOR <>> 
+<GLOBAL WRITING-CHANGED <>> 
+<DEFINE-ROUTINE ROOM-OF-THREE-DOORS-F> 
+<OBJECT LEFT-DOOR (LOC ROOM-OF-THREE-DOORS) (DESC "left door") (SYNONYM DOOR
+WRITING) (ADJECTIVE LEFT FIRST) (FLAGS DOORBIT NDESCBIT) (OWNER LEFT-DOOR) (
+ACTION THREE-DOORS-F)> 
+<OBJECT RIGHT-DOOR (LOC ROOM-OF-THREE-DOORS) (DESC "right door") (SYNONYM DOOR
+WRITING) (ADJECTIVE RIGHT THIRD) (FLAGS DOORBIT NDESCBIT) (OWNER RIGHT-DOOR) (
+ACTION THREE-DOORS-F)> 
+<OBJECT CENTER-DOOR (LOC ROOM-OF-THREE-DOORS) (DESC "center door") (SYNONYM
+DOOR WRITING) (ADJECTIVE CENTER MIDDLE SECOND) (FLAGS DOORBIT NDESCBIT) (OWNER
+CENTER-DOOR) (ACTION THREE-DOORS-F)> 
+<DEFINE-ROUTINE THREE-DOORS-F> 
+<ROOM WISHYFOO-TERRITORY (LOC ROOMS) (DESC "Wishyfoo Territory") (REGION
+"Port Foozle") (LDESC
+"You are in a medium-sized cavern, which appears to have been recently
+occupied. The steep passage which brought you here leads southwest. Also,
+a passage just large enough to fit through leads downward.") (SW SORRY
+"The passage is too steep to climb back.") (UP SORRY
+"The passage is too steep to climb back.") (DOWN TO FORK) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (VALUE 6) (MAP-LOC <PTABLE FOOZLE-MAP-NUM WISHYFOO-ICON-LOC
+MAP-GEN-X-4>) (ICON WISHYFOO-ICON)> 
+<OBJECT SHOVEL (LOC WISHYFOO-TERRITORY) (DESC "shovel") (SYNONYM SHOVEL) (SIZE
+20) (FLAGS TAKEBIT)> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/highway.zap b/highway.zap
new file mode 100644
index 0000000..8ad0836
--- /dev/null
+++ b/highway.zap
@@ -0,0 +1,1392 @@
+
+	.SEGMENT "FOOZLE"
+
+
+	.FUNCT	CAVE-IN-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	IN?	PIT-BOMB,LOCAL-GLOBALS \FALSE
+	ZERO?	LIT /FALSE
+	ICALL2	SETUP-ORPHAN,STR?44
+	IN?	JESTER,HERE /FALSE
+	SUB	MOVES,J-DISPOSED
+	GRTR?	STACK,3 \FALSE
+	MOVE	JESTER,HERE
+	ICALL2	THIS-IS-IT,JESTER
+	ICALL2	DEQUEUE,I-JESTER
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The jester is here. ""I'm glad you decided to drop in! As you see, the ceiling decided to drop in some time ago."" He sits cross-legged on a piece of rubble. ""Time for a guessing contest. If you can guess my middle name, I'll give you a prize for winning this game!"""
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PIT-BOMB-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The grenade-sized bomb bears a large label."
+?CCL3:	EQUAL?	PRSA,V?THROW \FALSE
+	REMOVE	PIT-BOMB
+	SET	'PIT-BOMB-LOC,HERE
+	ZERO?	LIT /?CCL8
+	PRINTI	"The bomb silently explodes into a growing cloud of bottomless-pit-filling agents. "
+	JUMP	?CND6
+?CCL8:	PRINTI	"You feel a brief puff of air from the direction in which you threw the bomb. "
+?CND6:	EQUAL?	HERE,PITS \?CCL11
+	ZERO?	LIT \?CCL14
+	CALL2	JIGS-UP,STR?623
+	RSTACK	
+?CCL14:	FCLEAR	LANTERN,TRYTAKEBIT
+	FSET	PITS,REDESCBIT
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTI	"As the pits fill in, from the bottom up, dark and sinister forms well up and lurk quickly into the shadows. Uncountable hordes of the creatures emerge, and your light glints momentarily off slavering fangs. Gurgling noises come from every dark corner as the last of the pits becomes filled in."
+	CRLF	
+	ICALL2	INC-SCORE,12
+	CRLF	
+	CALL1	V-LOOK
+	RSTACK	
+?CCL11:	PRINTR	"The agents, finding no bottomless pits here, disperse."
+
+	.ENDSEG
+
+	.SEGMENT "FOOZLE"
+
+
+	.FUNCT	TOLL-PLAZA-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You have reached one of numerous Great Underground Highway system tolls. "
+	FSET?	TOLL-GATE,OPENBIT \?CCL6
+	PRINTI	"The gate lies open to the south"
+	JUMP	?CND4
+?CCL6:	PRINTI	"A closed toll gate spans the road"
+?CND4:	PRINTI	". The toll booth is unoccupied, but a sign next to the gate indicates an ""exact change"" option."
+	RTRUE	
+
+
+	.FUNCT	TOLL-BOOTH-F
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	PRINTR	"An invisible force stops you."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The booth is unmanned, but there is an ""exact change"" basket on the side of the booth."
+
+
+	.FUNCT	TOLL-GATE-F
+	EQUAL?	PRSA,V?OPEN \?PRD5
+	FSET?	TOLL-GATE,OPENBIT \?CCL3
+?PRD5:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	TOLL-GATE,OPENBIT \FALSE
+?CCL3:	PRINT	WONT-BUDGE
+	RTRUE	
+
+
+	.FUNCT	BASKET-F
+	EQUAL?	PRSA,V?CLOSE \?CCL3
+	PRINT	HUH
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,ZORKMID-COIN \FALSE
+	REMOVE	ZORKMID-COIN
+	FSET	TOLL-GATE,OPENBIT
+	PRINTI	"""Bink!"" The toll gate opens, and a poorly maintained sign lights up momentarily, saying ""T ANK Y U!"""
+	CRLF	
+	CALL2	INC-SCORE,14
+	RSTACK	
+
+
+	.FUNCT	FISSURE-PS
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CROSS \FALSE
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+
+
+	.FUNCT	FISSURE-CRACK-PS
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"You could probably squeeze into it."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL5
+	CALL2	LIT?,TIGHT-SQUEEZE
+	ZERO?	STACK /?CCL8
+	PRINT	SOME-LIGHT
+	RTRUE	
+?CCL8:	PRINT	ONLY-BLACKNESS
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+
+
+	.FUNCT	ICE-PS
+	PRINTR	"[This is just one of those things that's there to enhance your mental imagery.]"
+
+	.SEGMENT "0"
+
+
+	.FUNCT	ORB-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET	PRSO,TRYTAKEBIT
+	FCLEAR	GLITTERY-ORB,NDESCBIT
+	FCLEAR	FIERY-ORB,NDESCBIT
+	FCLEAR	SMOKY-ORB,NDESCBIT
+	FCLEAR	MILKY-ORB,TRYTAKEBIT
+	FCLEAR	GLITTERY-ORB,TRYTAKEBIT
+	FCLEAR	FIERY-ORB,TRYTAKEBIT
+	FCLEAR	SMOKY-ORB,TRYTAKEBIT
+	FSET	MILKY-ORB,TOUCHBIT
+	FSET	GLITTERY-ORB,TOUCHBIT
+	FSET	FIERY-ORB,TOUCHBIT
+	FSET	SMOKY-ORB,TOUCHBIT
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	PRINTI	"The orb is a sphere of lustrous crystal without imperfection."
+	ZERO?	TIME-STOPPED \?CCL10
+	PRINTC	32
+	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?CCL10:	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL12
+	ZERO?	TIME-STOPPED /?CCL15
+	PRINTI	"The sphere has"
+	JUMP	?CND13
+?CCL15:	PRINTI	"Deep within the cool, smooth surface of the orb lies an ever-shifting dance of "
+	EQUAL?	PRSO,GLITTERY-ORB \?CCL18
+	PRINTI	"sparkling stars"
+	JUMP	?CND16
+?CCL18:	EQUAL?	PRSO,FIERY-ORB \?CCL20
+	PRINTI	"flickering flames"
+	JUMP	?CND16
+?CCL20:	EQUAL?	PRSO,SMOKY-ORB \?CCL22
+	PRINTI	"swirling smoke"
+	JUMP	?CND16
+?CCL22:	PRINTI	"milky mists"
+?CND16:	PRINTI	", giving the sphere"
+?CND13:	PRINTI	" a generally "
+	EQUAL?	PRSO,GLITTERY-ORB \?CCL25
+	PRINTI	"golden"
+	JUMP	?CND23
+?CCL25:	EQUAL?	PRSO,FIERY-ORB \?CCL27
+	PRINTI	"orange"
+	JUMP	?CND23
+?CCL27:	EQUAL?	PRSO,SMOKY-ORB \?CCL29
+	PRINTI	"gray"
+	JUMP	?CND23
+?CCL29:	PRINTI	"white"
+?CND23:	PRINTR	" complexion."
+?CCL12:	EQUAL?	PRSA,V?MUNG \FALSE
+	EQUAL?	PRSO,SMOKY-ORB,FIERY-ORB,MILKY-ORB /?CCL31
+	EQUAL?	PRSO,GLITTERY-ORB \FALSE
+?CCL31:	REMOVE	PRSO
+	PRINTI	"You "
+	EQUAL?	PRSO,MILKY-ORB \?CCL38
+	PRINTI	"feel a puff of cool, caressing air"
+	JUMP	?CND36
+?CCL38:	EQUAL?	PRSO,FIERY-ORB \?CCL40
+	PRINTI	"feel a hot dry blast of air"
+	JUMP	?CND36
+?CCL40:	EQUAL?	PRSO,SMOKY-ORB \?CCL42
+	PRINTI	"smell a dry burnt odor"
+	JUMP	?CND36
+?CCL42:	PRINTI	"see a burst of twinkling lights"
+?CND36:	PRINTR	" as the orb is shattered to dust."
+
+	.ENDSEG
+
+	.SEGMENT "FOOZLE"
+
+
+	.FUNCT	REST-STOP-PS
+	EQUAL?	PRSA,V?ENTER,V?EXAMINE \?CCL3
+	PRINTR	"The rest stop is all shuttered up."
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL5
+	PRINT	CARPENTERS
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?SEARCH \FALSE
+	PRINTR	"You're outside it!"
+
+
+	.FUNCT	SHUTTER-PS
+	EQUAL?	PRSA,V?REMOVE,V?TAKE \?CCL3
+	PRINT	CARPENTERS
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	PRINTR	"They are!"
+
+
+	.FUNCT	FISHING-VILLAGE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	FISHING-VILLAGE,TOUCHBIT /?CND4
+	RANDOM	100 >INQ-NUMBER
+	RANDOM	3
+	ADD	STACK,2 >NUMBER-ON-LINE
+?CND4:	CALL	QUEUE,I-INQ,-1
+	RSTACK	
+
+
+	.FUNCT	I-INQ,NEW-PERSONS,DOABLE
+	EQUAL?	HERE,INQUISITION,FISHING-VILLAGE /?CCL3
+	ICALL2	DEQUEUE,I-INQ
+	RFALSE	
+?CCL3:	LESS?	NUMBER-ON-LINE,3 /?CCL4
+	RANDOM	100
+	LESS?	75,STACK /?PRD7
+	EQUAL?	NUMBER-ON-LINE,3 /?CCL4
+?PRD7:	RANDOM	100
+	LESS?	50,STACK /?PRD10
+	EQUAL?	NUMBER-ON-LINE,4 /?CCL4
+?PRD10:	RANDOM	100
+	LESS?	25,STACK /?CND1
+	EQUAL?	NUMBER-ON-LINE,5 \?CND1
+?CCL4:	RANDOM	100
+	LESS?	50,STACK /?CCL17
+	SET	'NEW-PERSONS,1
+	JUMP	?CND15
+?CCL17:	RANDOM	100
+	LESS?	80,STACK /?CCL19
+	SET	'NEW-PERSONS,2
+	JUMP	?CND15
+?CCL19:	SET	'NEW-PERSONS,3
+?CND15:	ADD	NUMBER-ON-LINE,NEW-PERSONS >NUMBER-ON-LINE
+?CND1:	INC	'INQ-NUMBER
+	EQUAL?	HERE,FISHING-VILLAGE \?CCL22
+	GRTR?	NEW-PERSONS,0 \?CCL22
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   A trollish guard drags "
+	EQUAL?	NEW-PERSONS,1 \?CCL27
+	PRINTI	"someone"
+	JUMP	?CND25
+?CCL27:	EQUAL?	NEW-PERSONS,2 \?CCL29
+	PRINTI	"two people"
+	JUMP	?CND25
+?CCL29:	PRINTI	"three people"
+?CND25:	PRINTR	", kicking and screaming, into the stone building."
+?CCL22:	EQUAL?	HERE,INQUISITION \?CND20
+	GRTR?	NEW-PERSONS,0 \?CND20
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   A trollish guard drags in "
+	EQUAL?	NEW-PERSONS,1 \?CCL35
+	PRINTI	"someone"
+	JUMP	?CND33
+?CCL35:	EQUAL?	NEW-PERSONS,2 \?CCL37
+	PRINTI	"two people"
+	JUMP	?CND33
+?CCL37:	PRINTI	"three people"
+?CND33:	PRINTI	", who obediently take"
+	EQUAL?	NEW-PERSONS,1 \?CCL40
+	PRINTI	"s a number"
+	JUMP	?CND38
+?CCL40:	PRINTI	" numbers"
+?CND38:	PRINTI	" from the number dispenser."
+	CRLF	
+?CND20:	EQUAL?	HERE,INQUISITION \FALSE
+	ICALL1	RETURN-FROM-MAP
+	GRTR?	NUMBER-TAKEN,0 \?CND44
+	GRTR?	INQ-NUMBER,NUMBER-TAKEN \?CND44
+	ICALL2	JIGS-UP,STR?637
+?CND44:	PRINTI	"   The executioner calls out, ""Number "
+	PRINTN	INQ-NUMBER
+	PRINTI	"!"" and "
+	EQUAL?	INQ-NUMBER,NUMBER-TAKEN \?CCL50
+	PRINTI	"looks at you with an ugly grin"
+	JUMP	?CND48
+?CCL50:	RANDOM	100
+	LESS?	20,STACK /?CCL52
+	ZERO?	J-INQ-SCENE \?CCL52
+	FSET?	JESTER,TOUCHBIT \?CCL52
+	SET	'J-INQ-SCENE,TRUE-VALUE
+	PRINTI	"you suddenly realize that the next person on line is the jester! He is acting like a first-class sinner: smoking and drinking, using foul language, with a curvaceous woman in each arm and a pocketful of gambling receipts. He strides forward and makes a particularly salacious request -- something involving Vaseline and barnyard animals. His request denied, he is led to the block, but just as the axe is swinging down, the jester turns into a wisp of smoke and vanishes! The executioner spits angrily"
+	JUMP	?CND48
+?CCL52:	DEC	'NUMBER-ON-LINE
+	PRINTI	"a bedraggled man steps forward. ""Executioner, "
+	RANDOM	100
+	LESS?	50,STACK /?CCL58
+	SET	'DOABLE,TRUE-VALUE
+	CALL2	PICK-ONE,DOABLE-REQUESTS
+	PRINT	STACK
+	JUMP	?CND56
+?CCL58:	CALL2	PICK-ONE,UNDOABLE-REQUESTS
+	PRINT	STACK
+?CND56:	PRINTI	","" he croaks. The executioner says, """
+	ZERO?	DOABLE /?CCL61
+	PRINTI	"Done!"" and the man is led to the gallows and hung from the neck until dead"
+	JUMP	?CND48
+?CCL61:	PRINTI	"Sorry, can't do that."" The man is placed on the block, and a moment later his head is rolling away"
+?CND48:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	INQUISITION-F,RARG,OWINNER,TAKER
+	EQUAL?	RARG,M-LOOK \?CCL3
+	FSET?	INQUISITION,TOUCHBIT /?CND4
+	PRINTI	"Extremist religions spring up whenever an empire collapses. The Inquisitors believe the impending doom was caused by widespread sinning, but that the gods can be placated if every person in the kingdom is executed."
+	CRLF	
+	PRINTI	"   "
+?CND4:	PRINTI	"This is one of the Inquisitors' execution sites. A hooded executioner, dripping with sweat and blood, stands between a gallows and a block. "
+	PRINTN	NUMBER-ON-LINE
+	PRINTI	" people are queued up in front of the executioner. "
+	GRTR?	NUMBER-TAKEN,0 \?CND6
+	PRINTI	"You are "
+	SUB	NUMBER-TAKEN,INQ-NUMBER
+	EQUAL?	STACK,7 \?CCL10
+	PRINTI	"seventh"
+	JUMP	?CND8
+?CCL10:	SUB	NUMBER-TAKEN,INQ-NUMBER
+	EQUAL?	STACK,6 \?CCL12
+	PRINTI	"sixth"
+	JUMP	?CND8
+?CCL12:	SUB	NUMBER-TAKEN,INQ-NUMBER
+	EQUAL?	STACK,5 \?CCL14
+	PRINTI	"fifth"
+	JUMP	?CND8
+?CCL14:	SUB	NUMBER-TAKEN,INQ-NUMBER
+	EQUAL?	STACK,4 \?CCL16
+	PRINTI	"fourth"
+	JUMP	?CND8
+?CCL16:	SUB	NUMBER-TAKEN,INQ-NUMBER
+	EQUAL?	STACK,3 \?CCL18
+	PRINTI	"third"
+	JUMP	?CND8
+?CCL18:	SUB	NUMBER-TAKEN,INQ-NUMBER
+	EQUAL?	STACK,2 \?CCL20
+	PRINTI	"second"
+	JUMP	?CND8
+?CCL20:	PRINTI	"first"
+?CND8:	PRINTI	" on line. "
+?CND6:	PRINTI	"Near the end of the line is a number dispenser. A large sign fills one wall. The only exit is south."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	ICALL1	RETURN-FROM-MAP
+	ZERO?	INQ-SCORE \?CND23
+	PRINTI	"   The executioner spots you. ""Get that joker outta here!"" Guards fling you back onto the street."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,FISHING-VILLAGE
+	RTRUE	
+?CND23:	SET	'OWINNER,WINNER
+	SET	'WINNER,EXECUTIONER
+	CALL2	VISIBLE?,PIGEON
+	ZERO?	STACK /?CND25
+	PRINTI	"   One of the guards says, ""Sorry, you'll have to leave your pigeon outside."" He grabs it and "
+	CALL2	META-LOC,PERCH
+	EQUAL?	STACK,HERE \?CCL29
+	PRINTI	"tosses it outside"
+	CALL	FIND-IN,FISHING-VILLAGE,WHITEBIT >TAKER
+	ZERO?	TAKER \?CTR31
+	CALL	FIND-IN,FISHING-VILLAGE,BLACKBIT >TAKER
+	ZERO?	TAKER /?CCL32
+?CTR31:	MOVE	PIGEON,TAKER
+	PRINTI	". A moment later,"
+	ICALL2	TPRINT,TAKER
+	PRINTI	" materializes in the Inquisition building, holding the perch! The executioner bellows, ""Hey! We don't want any of your kind in here, buster!"" A guard gives"
+	ICALL2	TPRINT,TAKER
+	PRINTI	" the boot."
+	CRLF	
+	JUMP	?CND27
+?CCL32:	MOVE	PIGEON,FISHING-VILLAGE
+	JUMP	?CND27
+?CCL29:	CALL2	META-LOC,PERCH
+	MOVE	PIGEON,STACK
+	PRINTI	"looks stunned as he recedes and vanishes, along with the pigeon"
+?CND27:	PRINT	PERIOD-CR
+?CND25:	CALL2	VISIBLE?,CLOAK
+	ZERO?	STACK /?CND35
+	CALL	FIND-IN,FISHING-VILLAGE,WHITEBIT >TAKER
+	ZERO?	TAKER \?CTR38
+	CALL	FIND-IN,FISHING-VILLAGE,BLACKBIT >TAKER
+	ZERO?	TAKER /?CCL39
+?CTR38:	MOVE	CLOAK,TAKER
+	JUMP	?CND37
+?CCL39:	MOVE	CLOAK,FISHING-VILLAGE
+?CND37:	PRINTI	"   A particularly surly-looking guard says, ""Check your cloak in our coat room, haw haw haw."" He grabs the cloak and kicks it through the door."
+	CRLF	
+?CND35:	SET	'WINNER,OWINNER
+	LESS?	NUMBER-TAKEN,-2 \?CCL44
+	CALL2	JIGS-UP,STR?645
+	RSTACK	
+?CCL44:	LESS?	NUMBER-TAKEN,1 \FALSE
+	ZERO?	NUMBER-TAKEN /?CND47
+	PRINTI	"   A guard pokes you with his spear. ""Hey, take a number."""
+	CRLF	
+?CND47:	DEC	'NUMBER-TAKEN
+	RETURN	NUMBER-TAKEN
+
+	.SEGMENT "0"
+
+
+	.FUNCT	TICKET-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	EQUAL?	HERE,INQUISITION \?CCL3
+	GRTR?	NUMBER-TAKEN,0 /?CCL8
+	ADD	INQ-NUMBER,NUMBER-ON-LINE >NUMBER-TAKEN
+	FCLEAR	TICKET,NDESCBIT
+	FCLEAR	TICKET,TRYTAKEBIT
+	MOVE	TICKET,PROTAGONIST
+	PRINTI	"You get number "
+	PRINTN	NUMBER-TAKEN
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL8:	CALL	NOUN-USED?,TICKET,W?NUMBER
+	ZERO?	STACK /FALSE
+	PRINTR	"A guard lightly bludgeons your hand. ""One number per person!"""
+?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	FSET?	TICKET,NDESCBIT \?CCL15
+	PRINTR	"You haven't taken one yet!"
+?CCL15:	PRINTI	"The ticket has a large number """
+	PRINTN	NUMBER-TAKEN
+	PRINTR	""" on it. In smaller type, it says, ""Frobozz Magic Inquisition Numbered Ticket Company."""
+
+
+	.FUNCT	SQUID-REPELLENT-F
+	EQUAL?	PRSA,V?SMELL,V?TASTE \FALSE
+	PRINTR	"Not being a squid, you're not repelled."
+
+	.ENDSEG
+
+	.SEGMENT "FOOZLE"
+
+
+	.FUNCT	EXECUTIONER-F,ARG
+	EQUAL?	ARG,M-WINNER \FALSE
+	EQUAL?	NUMBER-TAKEN,INQ-NUMBER \?CCL6
+	EQUAL?	PRSA,V?BEHEAD \?PRD11
+	EQUAL?	PRSO,ME /?CTR8
+?PRD11:	EQUAL?	PRSA,V?CUT \?CCL9
+	EQUAL?	PRSO,HEAD \?CCL9
+	CALL	ADJ-USED?,HEAD,W?MY,W?MINE,FALSE-VALUE
+	ZERO?	STACK /?CCL9
+?CTR8:	PRINTI	"The executioner says, ""Hey, sure! Easy request! I can behead ya!"" Then a confused look creeps over his face. ""But if I behead ya, then I done granted yer last wish, and I gotta hang ya! But if I hang ya, I ain't granted yer wish, and I gotta behead ya! But..."" He trails off. ""Guards, throw this wise guy outta here!"" Guards surround you and escort you out."
+	CRLF	
+	ICALL2	INC-SCORE,INQ-SCORE
+	SET	'INQ-SCORE,0
+	CRLF	
+	CALL2	GOTO,FISHING-VILLAGE
+	RSTACK	
+?CCL9:	CALL1	DOABLE-REQUEST
+	ZERO?	STACK /?CCL18
+	CALL2	JIGS-UP,STR?649
+	RSTACK	
+?CCL18:	CALL1	UNDOABLE-REQUEST
+	ZERO?	STACK \?CTR19
+	RANDOM	100
+	LESS?	50,STACK /?CCL20
+?CTR19:	CALL2	JIGS-UP,STR?650
+	RSTACK	
+?CCL20:	CALL2	JIGS-UP,STR?649
+	RSTACK	
+?CCL6:	PRINTI	"""Shut up until your number is called!"""
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	DOABLE-REQUEST
+	EQUAL?	PRSA,V?KILL,V?KICK,V?KISS /?PRD5
+	EQUAL?	PRSA,V?HANG \?CCL3
+?PRD5:	EQUAL?	PRSO,ME /TRUE
+?CCL3:	EQUAL?	PRSA,V?SING \FALSE
+	EQUAL?	PRSO,LULLABY /TRUE
+	RFALSE	
+
+
+	.FUNCT	UNDOABLE-REQUEST
+	EQUAL?	PRSA,V?GIVE \?CCL3
+	EQUAL?	PRSO,ME \?CCL3
+	EQUAL?	PRSI,THOUSAND-ZORKMIDS,POSTER /TRUE
+?CCL3:	EQUAL?	PRSA,V?UNTIE,V?SEND \?CCL8
+	EQUAL?	PRSO,ME /TRUE
+?CCL8:	EQUAL?	PRSA,V?POINT \?CCL12
+	EQUAL?	PRSO,WAND \?CCL12
+	EQUAL?	PRSI,ME /TRUE
+?CCL12:	EQUAL?	PRSA,V?WEAR \?CCL17
+	EQUAL?	PRSO,RING /TRUE
+?CCL17:	EQUAL?	PRSA,V?CUT \?CCL21
+	EQUAL?	PRSO,HEAD \?CCL21
+	CALL2	GET-OWNER,HEAD
+	EQUAL?	STACK,EXECUTIONER /TRUE
+?CCL21:	EQUAL?	PRSA,V?KILL \FALSE
+	EQUAL?	PRSO,EXECUTIONER /TRUE
+	RFALSE	
+
+
+	.FUNCT	CASINO-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	IN?	BROOM,LOCAL-GLOBALS \FALSE
+	IN?	JESTER,HERE /FALSE
+	MOVE	JESTER,HERE
+	ICALL2	DEQUEUE,I-JESTER
+	ICALL2	THIS-IS-IT,JESTER
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   You do a "
+	SUB	MOVES,J-DISPOSED
+	LESS?	STACK,4 \?CCL9
+	PRINTI	"triple"
+	JUMP	?CND7
+?CCL9:	PRINTI	"double"
+?CND7:	PRINTR	" take as you notice the jester at the card table, grandly shuffling a thick deck. ""I don't wear any Gucci, I can't dance the hootchy-kootchy, I've never been good at the old smoochie-woochie, but I sure am a whiz at Double Fanucci! When I start to deal, the tension is real; if you can stand the heat, pull up a seat!"" He motions for you to sit down at the table."
+
+
+	.FUNCT	DOUBLE-FANUCCI-F
+	EQUAL?	PRSA,V?PLAY \FALSE
+	EQUAL?	HERE,CASINO \?CCL6
+	IN?	JESTER,HERE \?CCL6
+	IN?	BROOM,LOCAL-GLOBALS \?CCL6
+	LOC	PROTAGONIST
+	EQUAL?	STACK,CARD-TABLE \?CCL12
+	ICALL1	F-START
+	RTRUE	
+?CCL12:	ICALL	PERFORM,V?ENTER,CARD-TABLE
+	RTRUE	
+?CCL6:	PRINTR	"You don't have a pack of Fanucci cards; besides, there's no solitaire version of Double Fanucci."
+
+
+	.FUNCT	CARD-TABLE-F,VARG
+	EQUAL?	VARG,M-ENTER \?CCL3
+	IN?	BROOM,LOCAL-GLOBALS \?CCL3
+	CALL1	F-START
+	RSTACK	
+?CCL3:	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"It's a pretty plain and ordinary card table."
+	FIRST?	CARD-TABLE \?CCL12
+	PRINTI	" Sitting on the card table is"
+	ICALL1	D-NOTHING
+	RTRUE	
+?CCL12:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	F-START,MARGIN
+	PRINTI	" The jester begins dealing. ""We'll be playing according to Revised Miznian Rules, Seventh-Level Amendments, with these exceptions: no side-handling after an underfunded discard, two draws after a Skybreaker, and an extra muttonation if the conditions of Rule 17.4.1.B are met. Oh, also all the house rules adopted by the Fanucci Casino Rebuilding Act of 817."
+	CRLF	
+	CRLF	
+	ICALL2	HIT-ANY-KEY,STR?655
+	ICALL1	SETUP-CARDS
+	ICALL1	SETUP-FANUCCI
+	ICALL1	FANUCCI
+	SCREEN	S-WINDOW
+	FONT	1
+	SCREEN	S-TEXT
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	ICALL2	INIT-SL-WITH-SPLIT,TEXT-WINDOW-PIC-LOC
+	FSET?	BROOM,TRYTAKEBIT \?CCL3
+	PUT	DRAW-CARDS-TABLE,0,1
+	PUT	DRAW-CARDS-TABLE,1,1
+	PUT	DRAW-CARDS-TABLE,2,1
+	PUT	DRAW-CARDS-TABLE,3,1
+	PUT	DRAW-CARDS-TABLE,4,1
+	PRINTI	"""W"
+	GRTR?	F-PLAYS,5 \?CCL6
+	PRINTI	"he"
+	JUMP	?CND4
+?CCL6:	PRINTC	111
+?CND4:	PRINTI	"w!"" says the jester. """
+	GRTR?	F-PLAYS,5 \?CCL9
+	PRINTR	"You really had me on the ropes at a few points there!"""
+?CCL9:	PRINTR	"I wasn't expecting such an early resignation! I'm amazed by my own Fanucci prowess!"""
+?CCL3:	MOVE	BROOM,CARD-TABLE
+	ICALL1	REMOVE-J
+	PRINTI	"""Great Zilbo's Ghost! Three undertrumps after a Trebled Fromp discard! That's indefensible!"" In the time-honored tradition of Double Fanucci matches, the jester leaps over the card table to congratulate you. ""You've swept me away! You've truly cleaned up today!"" He rifles through his wallet and removes a broom, which he lays on the card table. ""Here are your winnings!"" In a wink, the jester is gone."""
+	CRLF	
+	CRLF	
+	CALL2	INC-SCORE,18
+	RSTACK	
+
+
+	.FUNCT	SETUP-CARDS
+	ICALL	SPLIT-BY-PICTURE,F-SPLIT,TRUE-VALUE
+	ICALL2	ADJUST-TEXT-WINDOW,F-BOTTOM
+	CLEAR	S-FULL
+	ICALL2	PICK-RANK,0
+	RANDOM	15
+	PUT	F-CARD-TABLE,1,STACK
+	ICALL2	PICK-RANK,2
+	RANDOM	15
+	PUT	F-CARD-TABLE,3,STACK
+	ICALL2	PICK-RANK,4
+	RANDOM	15
+	PUT	F-CARD-TABLE,5,STACK
+	ICALL2	PICK-RANK,6
+	RANDOM	15
+	PUT	F-CARD-TABLE,7,STACK
+	ICALL2	PICK-RANK,8
+	RANDOM	15
+	PUT	F-CARD-TABLE,9,STACK
+	SET	'J-SCORE,0
+	SET	'YOUR-SCORE,0
+	SET	'F-PLAYS,0
+	RETURN	F-PLAYS
+
+
+	.FUNCT	SETUP-FANUCCI,MARGIN,CARD-NUM-Y,DISCARD-X,CARD-NUM-1-X,CARD-SPACE,?TMP2,?TMP1
+	SCREEN	S-FULL
+	DISPLAY	F-BORDER,1,1
+	SCREEN	S-WINDOW
+	PICSET	F-PICSET-TBL
+	FONT	4
+	ICALL2	PICINF-PLUS-ONE,J-SCORE-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	PRINTI	"Jester's Score:"
+	ICALL2	PICINF-PLUS-ONE,YOUR-SCORE-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	PRINTI	"Your Score:"
+	ICALL2	PICINF-PLUS-ONE,F-DISCARD-LOC
+	GET	PICINF-TBL,0 >CARD-NUM-Y
+	GET	PICINF-TBL,1 >DISCARD-X
+	ICALL2	PICINF-PLUS-ONE,F-CARD-1-LOC
+	GET	PICINF-TBL,1 >CARD-NUM-1-X
+	PICINF	F-CARD-SPACE,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,1 >CARD-SPACE
+	ICALL1	UPDATE-SCORES
+	ICALL1	DRAW-CARDS
+	CURSET	CARD-NUM-Y,DISCARD-X
+	PRINTI	"DISCARD"
+	CURSET	CARD-NUM-Y,CARD-NUM-1-X
+	PRINTC	49
+	ADD	CARD-NUM-1-X,CARD-SPACE
+	CURSET	CARD-NUM-Y,STACK
+	PRINTC	50
+	MUL	CARD-SPACE,2
+	ADD	CARD-NUM-1-X,STACK
+	CURSET	CARD-NUM-Y,STACK
+	PRINTC	51
+	MUL	CARD-SPACE,3
+	ADD	CARD-NUM-1-X,STACK
+	CURSET	CARD-NUM-Y,STACK
+	PRINTC	52
+	ICALL2	PICINF-PLUS-ONE,F-MENU-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	PRINTI	" DRAW         REVERSE      COMBINE      SINGLE-PLAY  IONIZE"
+	GET	PICINF-TBL,0
+	ADD	STACK,FONT-Y >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	PRINTI	" DISCARD      TRUMP        PASS         DOUBLE-PLAY  CHEAT"
+	GET	PICINF-TBL,0 >?TMP2
+	MUL	FONT-Y,2
+	ADD	?TMP2,STACK >?TMP1
+	GET	PICINF-TBL,1
+	CURSET	?TMP1,STACK
+	PRINTI	" DIVIDE       UNDERTRUMP   OVERPASS     MUTTONATE    RESIGN"
+	SCREEN	S-TEXT
+	CURSET	1,1
+	RTRUE	
+
+
+	.FUNCT	DRAW-CARDS,X,CNT,?TMP1
+?PRG1:	GRTR?	CNT,4 /?CCL5
+	GET	F-PIC-LOCS,CNT >X
+	JUMP	?CND3
+?CCL5:	GET	F-PIC-LOCS,4 >X
+?CND3:	ICALL2	PICINF-PLUS-ONE,X
+	GET	PICINF-TBL,1 >X
+	EQUAL?	CNT,5 /TRUE
+	GET	DRAW-CARDS-TABLE,CNT
+	EQUAL?	STACK,1 \?CND6
+	PUT	DRAW-CARDS-TABLE,CNT,0
+	MUL	CNT,2 >?TMP1
+	MUL	CNT,2
+	ADD	STACK,1
+	ICALL	DRAW-CARD,X,?TMP1,STACK
+?CND6:	INC	'CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	PICK-RANK,NUM
+	RANDOM	100
+	LESS?	PICTURE-CARD-PROB,STACK /?CCL3
+	RANDOM	9
+	ADD	11,STACK
+	JUMP	?CND1
+?CCL3:	RANDOM	11
+?CND1:	PUT	F-CARD-TABLE,NUM,STACK
+	RTRUE	
+
+
+	.FUNCT	DISPLAY-OFFSET,PIC,Y,X,OFFPIC,?TMP1
+	PICINF	OFFPIC,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,0
+	ADD	STACK,Y >?TMP1
+	GET	PICINF-TBL,1
+	ADD	STACK,X
+	DISPLAY	PIC,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	DRAW-CARD,X,RANK,SUIT,Y,PIC
+	GET	F-CARD-TABLE,RANK >RANK
+	GET	F-CARD-TABLE,SUIT >SUIT
+	GET	PICINF-TBL,0 >Y
+	ZERO?	RANK \?CCL3
+	DISPLAY	F-CARD-BACK,Y,X
+	RTRUE	
+?CCL3:	GRTR?	RANK,11 \?CCL5
+	SUB	RANK,12
+	GET	F-FACE-CARD-PIC-TBL,STACK >PIC
+	DISPLAY	PIC,Y,X
+	RTRUE	
+?CCL5:	DISPLAY	F-CARD,Y,X
+	GET	RANK-PIC-TBL,RANK
+	ICALL	DISPLAY-OFFSET,STACK,Y,X,F-RANK-PIC-LOC
+	GET	RANK-REV-TBL,RANK
+	ICALL	DISPLAY-OFFSET,STACK,Y,X,F-REV-RANK-PIC-LOC
+	GET	SUIT-PIC-TBL,SUIT
+	ICALL	DISPLAY-OFFSET,STACK,Y,X,F-SUIT-PIC-LOC
+	GET	SUIT-REV-TBL,SUIT
+	CALL	DISPLAY-OFFSET,STACK,Y,X,F-REV-SUIT-PIC-LOC
+	RSTACK	
+
+
+	.FUNCT	FANUCCI,X,Y,PTR
+	ICALL2	PICINF-PLUS-ONE,F-MENU-LOC
+	GET	PICINF-TBL,1 >X
+	GET	PICINF-TBL,0 >Y
+	SET	'PTR,0
+	ICALL	BOLD-MOVE,X,Y,PTR
+	CLEAR	S-TEXT
+	PRINTI	"Use the arrow keys -- or the U, D, L and R keys -- to highlight a play, then hit the RETURN/ENTER key. Or, if you have a mouse, you can use that to select your play."
+?PRG1:	CALL	PICK-PLAY,X,Y,PTR
+	ZERO?	STACK \TRUE
+	SCREEN	S-WINDOW
+	ICALL1	DRAW-CARDS
+	ICALL1	UPDATE-SCORES
+	SCREEN	S-TEXT
+	EQUAL?	F-WIN-COUNT,3 \?CCL7
+	ADD	YOUR-SCORE,1000 >YOUR-SCORE
+	FCLEAR	BROOM,TRYTAKEBIT
+	RTRUE	
+?CCL7:	CALL1	SCORE-CHECK
+	ZERO?	STACK \TRUE
+	ICALL1	J-PLAY
+	SCREEN	S-WINDOW
+	ICALL1	DRAW-CARDS
+	INC	'F-PLAYS
+	ICALL1	UPDATE-SCORES
+	SCREEN	S-TEXT
+	CALL1	SCORE-CHECK
+	ZERO?	STACK /?PRG1
+	RTRUE	
+
+
+	.FUNCT	UPDATE-SCORES,?TMP2,?TMP1
+	ICALL2	PICINF-PLUS-ONE,J-SCORE-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,16
+	ADD	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	LESS?	J-SCORE,10 \?CCL3
+	PRINTI	" 00"
+	JUMP	?CND1
+?CCL3:	LESS?	J-SCORE,100 \?CCL5
+	PRINTI	" 0"
+	JUMP	?CND1
+?CCL5:	LESS?	J-SCORE,1000 \?CND1
+	PRINTC	32
+?CND1:	PRINTN	J-SCORE
+	ICALL2	PICINF-PLUS-ONE,YOUR-SCORE-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1 >?TMP2
+	MUL	FONT-X,12
+	ADD	?TMP2,STACK
+	CURSET	?TMP1,STACK
+	LESS?	YOUR-SCORE,10 \?CCL9
+	PRINTI	" 00"
+	JUMP	?CND7
+?CCL9:	LESS?	YOUR-SCORE,100 \?CCL11
+	PRINTI	" 0"
+	JUMP	?CND7
+?CCL11:	LESS?	YOUR-SCORE,1000 \?CND7
+	PRINTC	32
+?CND7:	PRINTN	YOUR-SCORE
+	RTRUE	
+
+
+	.FUNCT	SCORE-CHECK
+	GRTR?	J-SCORE,YOUR-SCORE \?CCL3
+	SUB	J-SCORE,YOUR-SCORE
+	GRTR?	STACK,1241 \FALSE
+	PRINTI	"""My"
+	JUMP	?CND1
+?CCL3:	SUB	YOUR-SCORE,J-SCORE
+	GRTR?	STACK,1241 \FALSE
+	PRINTI	"""Your"
+?CND1:	PRINTR	" lead exceeds 1241 points,"" the jester explains, ""so by Rules Committee Amendment #493, the game is suspended and must be replayed in its entirety, except during a Frotz Moon or in a six-player game where at least three of the players are of Mithican ancestry.""
+   The jester sighs. ""It's always ironic to play for so long without reaching a decision. I'm sure that the great humorist, O'Flathead, would get a chuckle out of our predicament."""
+
+
+	.FUNCT	J-PLAY,PLAY-NUM,RANK,SUIT,NUM
+	PRINTI	"
+   Your opponent stares at his "
+	PRINTN	J-CARDS
+	PRINTI	" card"
+	EQUAL?	J-CARDS,1 /?CND1
+	PRINTC	115
+?CND1:	PRINTI	", pondering his move. "
+	ICALL1	HIT-ANY-KEY
+	CLEAR	S-TEXT
+	PRINTI	"The jester "
+	LESS?	J-CARDS,2 /?CTR4
+	EQUAL?	J-CARDS,2 \?PRD8
+	RANDOM	100
+	LESS?	67,STACK \?CTR4
+?PRD8:	EQUAL?	J-CARDS,2 \?CCL5
+	RANDOM	100
+	LESS?	33,STACK /?CCL5
+?CTR4:	INC	'J-CARDS
+	PRINTI	"decides to draw. He seems "
+	RANDOM	100
+	LESS?	8,STACK /?CND13
+	PRINTI	"extremely "
+?CND13:	RANDOM	100
+	LESS?	50,STACK /?CCL17
+	PRINTI	"delighted"
+	JUMP	?CND15
+?CCL17:	PRINTI	"dismayed"
+?CND15:	PRINTI	" by his new card."
+	RTRUE	
+?CCL5:	DEC	'J-CARDS
+	ADD	J-DISCARD-FROMP-PROB,2 >J-DISCARD-FROMP-PROB
+	PRINTI	"proceeds to "
+	RANDOM	100
+	LESS?	J-DISCARD-FROMP-PROB,STACK /?CCL20
+	SET	'J-DISCARD-FROMP-PROB,0
+	SET	'PLAY-NUM,1
+	SET	'SUIT,FROMP-SUIT
+	SET	'RANK,TREBLED-RANK
+	JUMP	?CND18
+?CCL20:	RANDOM	12 >PLAY-NUM
+	RANDOM	15 >SUIT
+	RANDOM	100
+	LESS?	PICTURE-CARD-PROB,STACK /?CCL23
+	RANDOM	9
+	ADD	11,STACK >RANK
+	JUMP	?CND18
+?CCL23:	RANDOM	11 >RANK
+?CND18:	PUT	J-LAST-CARD,0,RANK
+	PUT	J-LAST-CARD,1,SUIT
+	MUL	PLAY-NUM,SUIT
+	MUL	STACK,RANK
+	MOD	STACK,17 >NUM
+	EQUAL?	PLAY-NUM,1 \?CND24
+	PUT	DRAW-CARDS-TABLE,0,1
+	PUT	F-CARD-TABLE,0,RANK
+	PUT	F-CARD-TABLE,1,SUIT
+?CND24:	GET	F-PLAY-TABLE-LC,PLAY-NUM
+	PRINT	STACK
+	PRINTC	32
+	GET	F-RANK-TABLE,RANK
+	PRINT	STACK
+	GRTR?	RANK,11 /?CND26
+	PRINTC	32
+	GET	F-SUIT-TABLE,SUIT
+	PRINT	STACK
+?CND26:	PRINTI	". He "
+	GET	J-PLAY-TABLE,NUM
+	PRINT	STACK
+	PRINTC	32
+	GET	J-PLAY-SCORES,NUM
+	CALL2	F-SCORE,STACK
+	RSTACK	
+
+
+	.FUNCT	PICK-PLAY,X,Y,PTR,KEY,TOP,LEFT,TL-X,TL-Y,BR-X,BR-Y,CNT-X,CNT-Y,NEW-PTR,MOUSE-MOVED?
+	ICALL2	PICINF-PLUS-ONE,F-MENU-LOC
+	GET	PICINF-TBL,0 >TOP
+	GET	PICINF-TBL,1 >LEFT
+	ICALL	BOLD-MOVE,X,Y,PTR
+?PRG1:	ZERO?	DEMO-VERSION? /?CCL5
+	CALL2	INPUT-DEMO,1 >KEY
+	JUMP	?CND3
+?CCL5:	INPUT	1 >KEY
+?CND3:	ICALL1	MOUSE-INPUT?
+	EQUAL?	KEY,CLICK1,CLICK2 \?CCL8
+	SET	'MOUSE-MOVED?,FALSE-VALUE
+	SET	'CNT-X,0
+	SET	'CNT-Y,0
+	ICALL2	PICINF-PLUS-ONE,F-MENU-LOC
+	GET	PICINF-TBL,1 >TL-X
+?PRG9:	GET	PICINF-TBL,0 >TL-Y
+	MUL	FONT-X,13
+	ADD	STACK,TL-X >BR-X
+?PRG11:	ADD	FONT-Y,TL-Y >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CCL15
+	SET	'MOUSE-MOVED?,TRUE-VALUE
+	ICALL	UNBOLD-MOVE,X,Y,PTR
+	GET	PICINF-TBL,0 >Y
+	GET	PICINF-TBL,1 >X
+	MUL	FONT-X,13
+	MUL	CNT-X,STACK
+	ADD	X,STACK >X
+	MUL	CNT-Y,FONT-Y
+	ADD	Y,STACK >Y
+	MUL	CNT-X,3
+	ADD	CNT-Y,STACK >NEW-PTR
+	EQUAL?	PTR,NEW-PTR \?CND16
+	SET	'KEY,CLICK2
+?CND16:	SET	'PTR,NEW-PTR
+	ICALL	BOLD-MOVE,X,Y,PTR
+?REP12:	ZERO?	MOUSE-MOVED? \?REP10
+	EQUAL?	CNT-X,4 /?REP10
+	SET	'CNT-Y,0
+	INC	'CNT-X
+	SET	'TL-X,BR-X
+	JUMP	?PRG9
+?CCL15:	EQUAL?	CNT-Y,2 /?REP12
+	INC	'CNT-Y
+	SET	'TL-Y,BR-Y
+	JUMP	?PRG11
+?REP10:	ZERO?	MOUSE-MOVED? \?CCL27
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"Click on one of the items in the menu to highlight a play; double-click on it to select that play."
+	JUMP	?PRG1
+?CCL27:	EQUAL?	KEY,CLICK2 \?PRG1
+	CALL2	PLAY-SELECTED,PTR
+	EQUAL?	STACK,TRUE-VALUE /TRUE
+	ICALL	UNBOLD-MOVE,X,Y,PTR
+	RFALSE	
+?CCL8:	EQUAL?	KEY,UP-ARROW /?CTR32
+	EQUAL?	KEY,85,117 \?CCL33
+?CTR32:	EQUAL?	Y,TOP \?CCL38
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINT	ALREADY-AT
+	PRINTI	"top row!"
+	JUMP	?PRG1
+?CCL38:	ICALL	UNBOLD-MOVE,X,Y,PTR
+	SUB	Y,FONT-Y >Y
+	DEC	'PTR
+	ICALL	BOLD-MOVE,X,Y,PTR
+	JUMP	?PRG1
+?CCL33:	EQUAL?	KEY,DOWN-ARROW /?CTR39
+	EQUAL?	KEY,68,100 \?CCL40
+?CTR39:	MUL	FONT-Y,2
+	ADD	TOP,STACK
+	EQUAL?	Y,STACK \?CCL45
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINT	ALREADY-AT
+	PRINTI	"bottom row!"
+	JUMP	?PRG1
+?CCL45:	ICALL	UNBOLD-MOVE,X,Y,PTR
+	ADD	Y,FONT-Y >Y
+	INC	'PTR
+	ICALL	BOLD-MOVE,X,Y,PTR
+	JUMP	?PRG1
+?CCL40:	EQUAL?	KEY,LEFT-ARROW /?CTR46
+	EQUAL?	KEY,76,108 \?CCL47
+?CTR46:	EQUAL?	X,LEFT \?CCL52
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINT	ALREADY-AT
+	PRINTI	"left-most column!"
+	JUMP	?PRG1
+?CCL52:	ICALL	UNBOLD-MOVE,X,Y,PTR
+	MUL	FONT-X,13
+	SUB	X,STACK >X
+	SUB	PTR,3 >PTR
+	ICALL	BOLD-MOVE,X,Y,PTR
+	JUMP	?PRG1
+?CCL47:	EQUAL?	KEY,RIGHT-ARROW /?CTR53
+	EQUAL?	KEY,82,114 \?CCL54
+?CTR53:	MUL	FONT-X,52
+	ADD	LEFT,STACK
+	EQUAL?	X,STACK \?CCL59
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINT	ALREADY-AT
+	PRINTI	"right-most column!"
+	JUMP	?PRG1
+?CCL59:	ICALL	UNBOLD-MOVE,X,Y,PTR
+	MUL	FONT-X,13
+	ADD	X,STACK >X
+	ADD	PTR,3 >PTR
+	ICALL	BOLD-MOVE,X,Y,PTR
+	JUMP	?PRG1
+?CCL54:	EQUAL?	KEY,10,13 \?CCL61
+	CALL2	PLAY-SELECTED,PTR
+	EQUAL?	STACK,TRUE-VALUE /TRUE
+	ICALL	UNBOLD-MOVE,X,Y,PTR
+	RFALSE	
+?CCL61:	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"Use the arrow keys to highlight a play, or hit RETURN/ENTER to select the currently highlighted play."
+	JUMP	?PRG1
+
+
+	.FUNCT	UNBOLD-MOVE,X,Y,PTR
+	SCREEN	S-WINDOW
+	SUB	X,1
+	CURSET	Y,STACK
+	PRINTC	32
+	GET	F-PLAY-TABLE,PTR
+	PRINT	STACK
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	BOLD-MOVE,X,Y,PTR
+	SCREEN	S-WINDOW
+	SUB	X,1
+	CURSET	Y,STACK
+	HLIGHT	H-BOLD
+	PRINTC	62
+	GET	F-PLAY-TABLE,PTR
+	PRINT	STACK
+	HLIGHT	H-NORMAL
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	PLAY-SELECTED,PTR,CNT,X,NUM,?TMP1
+	EQUAL?	PTR,14 /TRUE
+	EQUAL?	PTR,13 \?CCL5
+	RANDOM	100
+	LESS?	50,STACK /?CCL8
+	ICALL2	CHEAT-RESULT,CHEAT-WINS
+	RFALSE	
+?CCL8:	ICALL2	CHEAT-RESULT,CHEAT-LOSSES
+	RFALSE	
+?CCL5:	ZERO?	PTR \?CCL10
+	SET	'CNT,0
+?PRG11:	GET	F-CARD-TABLE,CNT
+	ZERO?	STACK \?CCL15
+	DIV	CNT,2
+	PUT	DRAW-CARDS-TABLE,STACK,1
+	ICALL2	PICK-RANK,CNT
+	ADD	CNT,1 >?TMP1
+	RANDOM	15
+	PUT	F-CARD-TABLE,?TMP1,STACK
+	CLEAR	S-TEXT
+	PRINTI	"You draw "
+	ICALL2	PRINT-CARD-NAME,CNT
+	PRINTC	46
+	RFALSE	
+?CCL15:	EQUAL?	CNT,8 \?CND13
+	CLEAR	S-TEXT
+	PRINTI	"The jester snickers. ""You've no empty slot; you forfeit your shot!"""
+	RFALSE	
+?CND13:	ADD	CNT,2 >CNT
+	JUMP	?PRG11
+?CCL10:	GET	F-CARD-TABLE,2
+	ZERO?	STACK \?CCL18
+	GET	F-CARD-TABLE,4
+	ZERO?	STACK \?CCL18
+	GET	F-CARD-TABLE,6
+	ZERO?	STACK \?CCL18
+	GET	F-CARD-TABLE,8
+	ZERO?	STACK \?CCL18
+	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"You can't "
+	GET	F-PLAY-TABLE-LC,PTR
+	PRINT	STACK
+	PRINTI	" just now; you have no drawn cards!"
+	RFALSE	
+?CCL18:	CLEAR	S-TEXT
+	PRINTI	"Use your mouse or type the number of the card you'd like to "
+	GET	F-PLAY-TABLE-LC,PTR
+	PRINT	STACK
+	PRINTC	46
+?PRG23:	INPUT	1 >X
+	ICALL1	MOUSE-INPUT?
+	EQUAL?	X,CLICK1,CLICK2 \?CND25
+	CALL1	F-MOUSE-CARD-PICK >X
+?CND25:	EQUAL?	X,146,147,148 /?CCL28
+	EQUAL?	X,149 \?CND27
+?CCL28:	SUB	X,97 >X
+?CND27:	EQUAL?	X,49 \?PRD35
+	GET	F-CARD-TABLE,2
+	ZERO?	STACK /?CTR32
+?PRD35:	EQUAL?	X,50 \?PRD38
+	GET	F-CARD-TABLE,4
+	ZERO?	STACK /?CTR32
+?PRD38:	EQUAL?	X,51 \?PRD41
+	GET	F-CARD-TABLE,6
+	ZERO?	STACK /?CTR32
+?PRD41:	EQUAL?	X,52 \?CCL33
+	GET	F-CARD-TABLE,8
+	ZERO?	STACK \?CCL33
+?CTR32:	CLEAR	S-TEXT
+	SOUND	1
+	PRINTI	"You can't "
+	GET	F-PLAY-TABLE-LC,PTR
+	PRINT	STACK
+	PRINTI	" that card; it hasn't been drawn yet!"
+	JUMP	?PRG23
+?CCL33:	EQUAL?	X,49 \?CCL47
+	SET	'X,2
+	JUMP	?REP24
+?CCL47:	EQUAL?	X,50 \?CCL49
+	SET	'X,4
+	JUMP	?REP24
+?CCL49:	EQUAL?	X,51 \?CCL51
+	SET	'X,6
+	JUMP	?REP24
+?CCL51:	EQUAL?	X,52 \?CCL53
+	SET	'X,8
+?REP24:	GET	F-CARD-TABLE,X >?TMP1
+	ADD	X,1
+	GET	F-CARD-TABLE,STACK
+	MUL	?TMP1,STACK
+	MUL	STACK,PTR
+	MOD	STACK,37 >NUM
+	EQUAL?	PTR,5 \?CCL56
+	GRTR?	F-WIN-COUNT,0 \?CCL59
+	INC	'F-WIN-COUNT
+	EQUAL?	F-WIN-COUNT,3 \?CND54
+	DIV	X,2
+	PUT	DRAW-CARDS-TABLE,STACK,1
+	PUT	F-CARD-TABLE,X,0
+	ADD	X,1
+	PUT	F-CARD-TABLE,STACK,0
+	RFALSE	
+?CCL53:	CLEAR	S-TEXT
+	SOUND	1
+	PRINT	TYPE-A-NUMBER
+	PRINTI	"4."
+	JUMP	?PRG23
+?CCL59:	GET	J-LAST-CARD,0
+	EQUAL?	STACK,TREBLED-RANK \?CND54
+	GET	J-LAST-CARD,1
+	EQUAL?	STACK,FROMP-SUIT \?CND54
+	SET	'F-WIN-COUNT,1
+	JUMP	?CND54
+?CCL56:	SET	'F-WIN-COUNT,0
+?CND54:	GET	F-SCORES,NUM
+	ZERO?	STACK \?CCL67
+	SET	'F-WIN-COUNT,0
+	PRINTI	"   The jester is outraged! ""You can't "
+	GET	F-PLAY-TABLE-LC,PTR
+	PRINT	STACK
+	PRINTC	32
+	ICALL2	PRINT-CARD-NAME,X
+	RANDOM	100
+	LESS?	6,STACK /?CCL70
+	PRINTI	" when "
+	ICALL2	PRINT-CARD-NAME,0
+	PRINTI	" is showing on the Discard Pile!"
+	RFALSE	
+?CCL70:	PRINTC	32
+	GET	J-RESPONSES,NUM
+	PRINT	STACK
+	RFALSE	
+?CCL67:	CLEAR	S-TEXT
+	PRINTI	"You "
+	GET	F-PLAY-TABLE-LC,PTR
+	PRINT	STACK
+	PRINTC	32
+	ICALL2	PRINT-CARD-NAME,X
+	PRINTI	". The jester "
+	GET	J-RESPONSES,NUM
+	PRINT	STACK
+	PRINTC	32
+	GET	F-SCORES,NUM
+	ICALL2	F-SCORE,STACK
+	EQUAL?	PTR,1 \?CND71
+	PUT	DRAW-CARDS-TABLE,0,1
+	GET	F-CARD-TABLE,X
+	PUT	F-CARD-TABLE,0,STACK
+	ADD	X,1
+	GET	F-CARD-TABLE,STACK
+	PUT	F-CARD-TABLE,1,STACK
+?CND71:	DIV	X,2
+	PUT	DRAW-CARDS-TABLE,STACK,1
+	PUT	F-CARD-TABLE,X,0
+	ADD	X,1
+	PUT	F-CARD-TABLE,STACK,0
+	RFALSE	
+
+
+	.FUNCT	F-MOUSE-CARD-PICK,TL-X,TL-Y,BR-X,BR-Y,CARD-WIDTH,CARD-HEIGHT
+	PICINF	F-CARD,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,0 >CARD-HEIGHT
+	GET	PICINF-TBL,1 >CARD-WIDTH
+	ICALL2	PICINF-PLUS-ONE,F-1-PIC-LOC
+	GET	PICINF-TBL,0 >TL-Y
+	GET	PICINF-TBL,1 >TL-X
+	ADD	TL-Y,CARD-HEIGHT >BR-Y
+	ADD	TL-X,CARD-WIDTH >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND2
+	RETURN	49
+?CND2:	ICALL2	PICINF-PLUS-ONE,F-2-PIC-LOC
+	GET	PICINF-TBL,0 >TL-Y
+	GET	PICINF-TBL,1 >TL-X
+	ADD	TL-Y,CARD-HEIGHT >BR-Y
+	ADD	TL-X,CARD-WIDTH >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND4
+	RETURN	50
+?CND4:	ICALL2	PICINF-PLUS-ONE,F-3-PIC-LOC
+	GET	PICINF-TBL,0 >TL-Y
+	GET	PICINF-TBL,1 >TL-X
+	ADD	TL-Y,CARD-HEIGHT >BR-Y
+	ADD	TL-X,CARD-WIDTH >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND6
+	RETURN	51
+?CND6:	ICALL2	PICINF-PLUS-ONE,F-4-PIC-LOC
+	GET	PICINF-TBL,0 >TL-Y
+	GET	PICINF-TBL,1 >TL-X
+	ADD	TL-Y,CARD-HEIGHT >BR-Y
+	ADD	TL-X,CARD-WIDTH >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND8
+	RETURN	52
+?CND8:	RETURN	CLICK1
+
+
+	.FUNCT	PRINT-CARD-NAME,CNT
+	GET	F-CARD-TABLE,CNT
+	GET	F-RANK-TABLE,STACK
+	PRINT	STACK
+	GET	F-CARD-TABLE,CNT
+	LESS?	STACK,12 \FALSE
+	PRINTC	32
+	ADD	CNT,1
+	GET	F-CARD-TABLE,STACK
+	GET	F-SUIT-TABLE,STACK
+	PRINT	STACK
+	RTRUE	
+
+
+	.FUNCT	CHEAT-RESULT,TBL,CNT,X,PTS
+	GET	TBL,0 >CNT
+	RANDOM	CNT
+	MUL	STACK,2
+	SUB	STACK,1 >X
+	ADD	X,1
+	GET	TBL,STACK >PTS
+	CLEAR	S-TEXT
+	GET	TBL,X
+	PRINT	STACK
+	PRINTC	32
+	CALL2	F-SCORE,PTS
+	RSTACK	
+
+
+	.FUNCT	F-SCORE,PTS,?TMP1
+	GRTR?	PTS,0 \?CCL3
+	DIV	YOUR-SCORE,10 >?TMP1
+	RANDOM	100
+	LESS?	?TMP1,STACK /?CCL6
+	GRTR?	J-SCORE,PTS \?CCL6
+	SUB	J-SCORE,PTS >J-SCORE
+	PRINTI	"The jester loses"
+	JUMP	?CND1
+?CCL6:	ADD	YOUR-SCORE,PTS >YOUR-SCORE
+	PRINTI	"You gain"
+	JUMP	?CND1
+?CCL3:	MUL	PTS,-1 >PTS
+	DIV	J-SCORE,10 >?TMP1
+	RANDOM	100
+	LESS?	?TMP1,STACK /?CCL11
+	GRTR?	YOUR-SCORE,PTS \?CCL11
+	SUB	YOUR-SCORE,PTS >YOUR-SCORE
+	PRINTI	"You lose"
+	JUMP	?CND1
+?CCL11:	ADD	J-SCORE,PTS >J-SCORE
+	PRINTI	"The jester gains"
+?CND1:	PRINTC	32
+	PRINTN	PTS
+	PRINTI	" points."
+	RTRUE	
+
+
+	.FUNCT	QUILBOZZA-BEACH-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	RANDOM	100
+	LESS?	40,STACK /FALSE
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /FALSE
+	PRINTR	"   A wave crashes against the beach."
+
+
+	.FUNCT	ROOM-OF-THREE-DOORS-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"Before you are three doors: left, center, and right. All three doors are closed, and have writing on them. In addition, a tunnel leads southwest."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \?CCL5
+	ZERO?	WRITING-CHANGED /?CCL5
+	SET	'WRITING-CHANGED,FALSE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The writing on the doors appears to have changed since the last time you were here."
+?CCL5:	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	ROOM-OF-THREE-DOORS,TOUCHBIT \?CND10
+	SET	'WRITING-CHANGED,TRUE-VALUE
+?CND10:	RANDOM	100
+	LESS?	33,STACK /?CCL14
+	SET	'VERITASSI-DOOR,LEFT-DOOR
+	RANDOM	100
+	LESS?	50,STACK /?CCL17
+	SET	'PREVARICON-DOOR,RIGHT-DOOR
+	SET	'WISHYFOO-DOOR,CENTER-DOOR
+	RETURN	WISHYFOO-DOOR
+?CCL17:	SET	'PREVARICON-DOOR,CENTER-DOOR
+	SET	'WISHYFOO-DOOR,RIGHT-DOOR
+	RETURN	WISHYFOO-DOOR
+?CCL14:	RANDOM	100
+	LESS?	50,STACK /?CCL19
+	SET	'VERITASSI-DOOR,RIGHT-DOOR
+	RANDOM	100
+	LESS?	50,STACK /?CCL22
+	SET	'PREVARICON-DOOR,LEFT-DOOR
+	SET	'WISHYFOO-DOOR,CENTER-DOOR
+	RETURN	WISHYFOO-DOOR
+?CCL22:	SET	'PREVARICON-DOOR,CENTER-DOOR
+	SET	'WISHYFOO-DOOR,LEFT-DOOR
+	RETURN	WISHYFOO-DOOR
+?CCL19:	SET	'VERITASSI-DOOR,CENTER-DOOR
+	RANDOM	100
+	LESS?	50,STACK /?CCL25
+	SET	'PREVARICON-DOOR,LEFT-DOOR
+	SET	'WISHYFOO-DOOR,RIGHT-DOOR
+	RETURN	WISHYFOO-DOOR
+?CCL25:	SET	'PREVARICON-DOOR,RIGHT-DOOR
+	SET	'WISHYFOO-DOOR,LEFT-DOOR
+	RETURN	WISHYFOO-DOOR
+
+
+	.FUNCT	THREE-DOORS-F
+	EQUAL?	PRSA,V?READ \?CCL3
+	PRINTI	"""Attention:
+1. This door does not lead to Prevaricon territory.
+2. The "
+	EQUAL?	PRSO,VERITASSI-DOOR \?CCL6
+	ICALL2	DPRINT,PREVARICON-DOOR
+	PRINTI	" does not lead to Wishyfoo"
+	JUMP	?CND4
+?CCL6:	EQUAL?	PRSO,PREVARICON-DOOR \?CCL8
+	ICALL2	DPRINT,WISHYFOO-DOOR
+	PRINTI	" does not lead to Wishyfoo"
+	JUMP	?CND4
+?CCL8:	ICALL2	DPRINT,VERITASSI-DOOR
+	PRINTI	" does not lead to Veritassi"
+?CND4:	PRINTR	" territory."""
+?CCL3:	EQUAL?	PRSA,V?ENTER,V?OPEN \FALSE
+	PRINTI	"As you open it, a strong draft sucks you through the doorway. You stumble down a steep incline"
+	PRINT	ELLIPSIS
+	EQUAL?	PRSO,WISHYFOO-DOOR \?CCL13
+	CALL2	GOTO,WISHYFOO-TERRITORY
+	RSTACK	
+?CCL13:	HLIGHT	H-BOLD
+	EQUAL?	PRSO,VERITASSI-DOOR \?CCL16
+	PRINTI	"Veritassi"
+	JUMP	?CND14
+?CCL16:	PRINTI	"Prevaricon"
+?CND14:	PRINTI	" Territory"
+	CRLF	
+	HLIGHT	H-NORMAL
+	CALL2	JIGS-UP,STR?785
+	RSTACK	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/highway.zil b/highway.zil
new file mode 100644
index 0000000..1218597
--- /dev/null
+++ b/highway.zil
@@ -0,0 +1,2196 @@
+"HIGHWAY for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT LOWER>
+
+<ROOM G-U-HIGHWAY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Great Underground Highway")
+      (LDESC
+"This is the northern terminus of one of the branches of the Great Underground
+Highway system, one of the ambitious construction projects conceived by King
+Duncanthrax and executed by the Frobozz Magic Cave Company. A tunnel leads
+northeast.")
+      (NE TO LOWER-HALL)
+      (SOUTH TO EXIT)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>)
+      (ICON G-U-HIGHWAY-ICON)>
+
+<ROOM EXIT
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Exit")
+      (LDESC
+"A wide underground road runs north and south. There's an eye-catching sign
+next to a tunnel leading west.")
+      (WEST TO FIELD-OFFICE)
+      (NORTH TO G-U-HIGHWAY)
+      (SOUTH TO CROSSROADS)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL SIGN)
+      (MAP-LOC <PTABLE LOWER-LEVEL-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-5>)
+      (ICON EXIT-ICON)>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FOOZLE>
+
+<ROOM CROSSROADS
+      (LOC ROOMS)
+      (REGION "Somewhere Along the GUH")
+      (DESC "Crossroads")
+      (LDESC
+"You stand at the junction of two underground highways, one north-south
+and the other east-west. A sign hangs in the center of the junction.")
+      (NORTH TO EXIT)
+      (SOUTH TO TOLL-PLAZA)
+      (EAST TO CAVE-IN)
+      (WEST TO POTHOLES)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL SIGN)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>)
+      (ICON CROSSROADS-ICON)>
+
+<ROOM CAVE-IN
+      (LOC ROOMS)
+      (DESC "Cave-In")
+      (REGION "Somewhere Along the GUH")
+      (LDESC
+"Just ahead, the roof of the highway tunnel has collapsed, creating a dead
+end. (Decades of non-maintenance of the Empire's infrastructure are taking
+their toll.) Your only choice is to return to the west.")
+      (WEST TO CROSSROADS)
+      (OUT TO CROSSROADS)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>)
+      (ACTION CAVE-IN-F)>
+
+<ROUTINE CAVE-IN-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,PIT-BOMB ,LOCAL-GLOBALS>
+		     ,LIT>
+		<SETUP-ORPHAN "answer">
+		<COND (<AND <NOT <IN? ,JESTER ,HERE>>
+			    <G? <- ,MOVES ,J-DISPOSED> 3>>
+		       <MOVE ,JESTER ,HERE>
+		       <THIS-IS-IT ,JESTER>
+		       <DEQUEUE I-JESTER>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"   The jester is here. \"I'm glad you decided to drop in! As you see, the
+ceiling decided to drop in some time ago.\" He sits cross-legged on a piece
+of rubble. \"Time for a guessing contest. If you can guess my middle name,
+I'll give you a prize for winning this game!\"" CR>)>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT PIT-BOMB
+	(LOC LOCAL-GLOBALS)
+	(DESC "anti-pit bomb")
+	(FDESC "Sitting on a piece of rubble is an anti-pit bomb.")
+        (SYNONYM BOMB LABEL)
+	(ADJECTIVE BOTTOMLESS ANTI-PIT)
+	(FLAGS TAKEBIT READBIT VOWELBIT)
+	(TEXT
+"\"Is your cavern infested with bottomless pits? If so, this anti-pit bomb is
+the answer to your prayers! Instructions: simply enter the pitted room and
+throw the bomb. All pit-filling agents are harmless; no protective gear is
+required!|
+   Another fine product of the Frobozz Magic Bottomless Pit Bomb Company.\"")
+	(ACTION PIT-BOMB-F)>
+
+<ROUTINE PIT-BOMB-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The grenade-sized bomb bears a large label." CR>)
+	       (<VERB? THROW>
+		<REMOVE ,PIT-BOMB>
+		<SETG PIT-BOMB-LOC ,HERE>
+		<COND (,LIT
+		       <TELL
+"The bomb silently explodes into a growing cloud of
+bottomless-pit-filling agents. ">)
+		      (T
+		       <TELL
+"You feel a brief puff of air from the direction in which
+you threw the bomb. ">)>
+		<COND (<EQUAL? ,HERE ,PITS>
+		       <COND (<NOT ,LIT>
+			      <JIGS-UP
+"You hear the pits filling in, accompanied by the sound of a legion of
+slavering creatures lurking forth. Unhindered by the darkness, they
+converge on you, with sharp fangs and ravenous appetites.">)
+			     (T
+		       	      <FCLEAR ,LANTERN ,TRYTAKEBIT>
+		       	      <FSET ,PITS ,REDESCBIT>
+			      <SETG COMPASS-CHANGED T>
+		       	      <TELL
+"As the pits fill in, from the bottom up, dark and sinister forms well up and
+lurk quickly into the shadows. Uncountable hordes of the creatures emerge, and
+your light glints momentarily off slavering fangs. Gurgling noises come from
+every dark corner as the last of the pits becomes filled in." CR>
+			      <INC-SCORE 12>
+			      <CRLF>
+			      <V-LOOK>)>)
+		      (T
+		       <TELL
+"The agents, finding no bottomless pits here, disperse." CR>)>)>>
+
+<GLOBAL PIT-BOMB-LOC <>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FOOZLE>
+
+<ROOM TOLL-PLAZA
+      (LOC ROOMS)
+      (DESC "Toll Plaza")
+      (REGION "Somewhere Along the GUH")
+      (NORTH TO CROSSROADS)
+      (SOUTH TO FISSURE-EDGE IF TOLL-GATE IS OPEN)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (SYNONYM PLAZA)
+      (ADJECTIVE TOLL)
+      (GLOBAL SIGN)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>)
+      (ICON TOLL-PLAZA-ICON)
+      (ACTION TOLL-PLAZA-F)>
+
+<ROUTINE TOLL-PLAZA-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You have reached one of numerous Great Underground Highway system tolls. ">
+		<COND (<FSET? ,TOLL-GATE ,OPENBIT>
+		       <TELL "The gate lies open to the south">)
+		      (T
+		       <TELL "A closed toll gate spans the road">)>
+		<TELL
+". The toll booth is unoccupied, but a sign next to the gate indicates
+an \"exact change\" option.">)>>
+
+<OBJECT TOLL-BOOTH
+	(LOC TOLL-PLAZA)
+	(DESC "toll booth")
+	(SYNONYM BOOTH)
+	(ADJECTIVE TOLL)
+	(FLAGS NDESCBIT)
+	(ACTION TOLL-BOOTH-F)>
+
+<ROUTINE TOLL-BOOTH-F ()
+	 <COND (<VERB? ENTER>
+		<TELL "An invisible force stops you." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The booth is unmanned, but there is an \"exact change\" basket on
+the side of the booth." CR>)>>
+
+<OBJECT TOLL-GATE
+	(LOC TOLL-PLAZA)
+	(DESC "toll gate")
+	(SYNONYM GATE)
+	(ADJECTIVE TOLL)
+	(FLAGS NDESCBIT DOORBIT)
+	(ACTION TOLL-GATE-F)>
+
+<ROUTINE TOLL-GATE-F ()
+	 <COND (<OR <AND <VERB? OPEN>
+			 <NOT <FSET? ,TOLL-GATE ,OPENBIT>>>
+		    <AND <VERB? CLOSE>
+			 <FSET? ,TOLL-GATE ,OPENBIT>>>
+		<TELL ,WONT-BUDGE>)>>
+
+<OBJECT BASKET
+	(LOC TOLL-PLAZA)
+	(DESC "exact change basket")
+	(SYNONYM BASKET)
+	(ADJECTIVE EXACT CHANGE)
+	(FLAGS VOWELBIT NDESCBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION BASKET-F)>
+
+<ROUTINE BASKET-F ()
+	 <COND (<VERB? CLOSE>
+		<TELL ,HUH>)
+	       (<AND <VERB? PUT>
+		     <PRSO? ,ZORKMID-COIN>>
+		<REMOVE ,ZORKMID-COIN>
+		<FSET ,TOLL-GATE ,OPENBIT>
+		<TELL
+"\"Bink!\" The toll gate opens, and a poorly maintained sign lights up
+momentarily, saying \"T ANK Y U!\"" CR>
+		<INC-SCORE 14>)>>
+
+<ROOM FISSURE-EDGE
+      (LOC ROOMS)
+      (DESC "Fissure's Edge")
+      (REGION "Somewhere Along the GUH")
+      (LDESC
+"To the south, the road is rent by a wide fissure, the reminder of a recent
+quake. Judging by the footprints in the dust, many travellers have reached
+this point, only to turn around and head back to the north. The quake has
+also opened a narrow crack in the eastern wall of the tunnel; you might be
+able to squeeze into it.")
+      (NORTH TO TOLL-PLAZA)
+      (EAST TO TIGHT-SQUEEZE)
+      (SOUTH SORRY "The fissure is uncrossable.")
+      (DOWN SORRY "A plunge into the fissure would be fatal.")
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)
+      (ICON FISSURES-EDGE-ICON)
+      (THINGS NARROW CRACK FISSURE-CRACK-PS
+       	      WIDE FISSURE FISSURE-PS)>
+
+<ROUTINE FISSURE-PS ()
+	 <COND (<VERB? ENTER>
+		<DO-WALK ,P?DOWN>)
+	       (<VERB? CROSS>
+		<DO-WALK ,P?SOUTH>)>>
+
+<ROUTINE FISSURE-CRACK-PS ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "You could probably squeeze into it." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<LIT? ,TIGHT-SQUEEZE>
+		       <TELL ,SOME-LIGHT>)
+		      (T
+		       <TELL ,ONLY-BLACKNESS>)>)
+	       (<VERB? ENTER>
+		<DO-WALK ,P?EAST>)>>
+
+<ROOM TIGHT-SQUEEZE
+      (LOC ROOMS)
+      (DESC "Tight Squeeze")
+      (REGION "Region:  Unknown")
+      (LDESC
+"You are in a narrow fissure which widens to the west. A cool breeze seems
+to blow upon you from below.")
+      (WEST TO FISSURE-EDGE)
+      (DOWN TO ORB-ROOM)
+      (SYNONYM FISSURE)
+      (ADJECTIVE NARROW)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>)>
+
+<ROOM ORB-ROOM
+      (LOC ROOMS)
+      (DESC "Orb Room")
+      (REGION "Region:  Unknown")
+      (LDESC
+"The air is chilly, the walls are covered with ice, and the floor is piled
+high with crystal spheres of varying sizes and colors; most are chipped or
+shattered. Your light reveals no visible exits, although a trickle of warm,
+dry air caresses you from above.")
+      (UP TO TIGHT-SQUEEZE)
+      (OUT TO TIGHT-SQUEEZE)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)
+      (ICON ORB-ROOM-ICON)
+      (THINGS <> ICE ICE-PS)>
+
+<ROUTINE ICE-PS ()
+	 <TELL
+"[This is just one of those things that's there to enhance your
+mental imagery.]" CR>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT MILKY-ORB
+	(LOC ORB-ROOM)
+	(DESC "milky orb")
+	(FDESC
+"The only intact orbs seem to be a milky orb, a fiery orb, a glittery orb,
+and a smoky orb.")
+	(SYNONYM ORB)
+	(ADJECTIVE MILKY WHITE)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(ACTION ORB-F)>
+
+<OBJECT FIERY-ORB
+	(LOC ORB-ROOM)
+	(DESC "fiery orb")
+	(SYNONYM ORB)
+	(ADJECTIVE FIERY ORANGE)
+	(FLAGS TAKEBIT TRYTAKEBIT NDESCBIT)
+	(ACTION ORB-F)>
+
+<OBJECT SMOKY-ORB
+	(LOC ORB-ROOM)
+	(DESC "smoky orb")
+	(SYNONYM ORB)
+	(ADJECTIVE SMOKY GRAY)
+	(FLAGS TAKEBIT TRYTAKEBIT NDESCBIT)
+	(ACTION ORB-F)>
+
+<OBJECT GLITTERY-ORB
+	(LOC ORB-ROOM)
+	(DESC "glittery orb")
+	(SYNONYM ORB)
+	(ADJECTIVE GLITTERY GOLD GOLDEN)
+	(FLAGS TAKEBIT TRYTAKEBIT NDESCBIT)
+	(ACTION ORB-F)>
+
+<ROUTINE ORB-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET ,PRSO ,TRYTAKEBIT>>
+		<FCLEAR ,GLITTERY-ORB ,NDESCBIT>
+		<FCLEAR ,FIERY-ORB ,NDESCBIT>
+		<FCLEAR ,SMOKY-ORB ,NDESCBIT>
+		<FCLEAR ,MILKY-ORB ,TRYTAKEBIT>
+		<FCLEAR ,GLITTERY-ORB ,TRYTAKEBIT>
+		<FCLEAR ,FIERY-ORB ,TRYTAKEBIT>
+		<FCLEAR ,SMOKY-ORB ,TRYTAKEBIT>
+		<FSET ,MILKY-ORB ,TOUCHBIT>
+		<FSET ,GLITTERY-ORB ,TOUCHBIT>
+		<FSET ,FIERY-ORB ,TOUCHBIT>
+		<FSET ,SMOKY-ORB ,TOUCHBIT>
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The orb is a sphere of lustrous crystal without imperfection.">
+		<COND (<NOT ,TIME-STOPPED>
+		       <TELL " ">
+		       <PERFORM ,V?LOOK-INSIDE ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <CRLF>)>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (,TIME-STOPPED
+		       <TELL "The sphere has">)
+		      (T
+		       <TELL
+"Deep within the cool, smooth surface of the orb
+lies an ever-shifting dance of ">
+		       <COND (<PRSO? ,GLITTERY-ORB>
+			      <TELL "sparkling stars">)
+			     (<PRSO? ,FIERY-ORB>
+			      <TELL "flickering flames">)
+			     (<PRSO? ,SMOKY-ORB>
+			      <TELL "swirling smoke">)
+			     (T
+			      <TELL "milky mists">)>
+		       <TELL ", giving the sphere">)>
+		<TELL " a generally ">
+		<COND (<PRSO? ,GLITTERY-ORB>
+		       <TELL "golden">)
+		      (<PRSO? ,FIERY-ORB>
+		       <TELL "orange">)
+		      (<PRSO? ,SMOKY-ORB>
+		       <TELL "gray">)
+		      (T
+		       <TELL "white">)>
+		<TELL " complexion." CR>)
+	       (<AND <VERB? MUNG>
+		     <PRSO? ,MILKY-ORB ,FIERY-ORB ,SMOKY-ORB ,GLITTERY-ORB>>
+		<REMOVE ,PRSO>
+		<TELL "You ">
+		<COND (<PRSO? ,MILKY-ORB>
+		       <TELL "feel a puff of cool, caressing air">)
+		      (<PRSO? ,FIERY-ORB>
+		       <TELL "feel a hot dry blast of air">)
+		      (<PRSO? ,SMOKY-ORB>
+		       <TELL "smell a dry burnt odor">)
+		      (T
+		       <TELL "see a burst of twinkling lights">)>
+		<TELL " as the orb is shattered to dust." CR>)>>
+
+;<ROUTINE G-ORB-F (TBL LEN)
+	 <COND (<AND <INTBL? ,PILE-OF-ORBS <REST .TBL 2> .LEN>
+		     <EQUAL? ,HERE ,ORB-ROOM>>
+		,PILE-OF-ORBS ;"you must have used noun ORBS")
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FOOZLE>
+
+<ROOM POTHOLES
+      (LOC ROOMS)
+      (DESC "Potholes")
+      (REGION "Somewhere Along the GUH")
+      (LDESC
+"The road, which runs east to west, is in bad shape here, pitted with
+holes and ruts.")
+      (EAST TO CROSSROADS)
+      (WEST TO REST-STOP)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>)>
+
+<ROOM REST-STOP
+      (LOC ROOMS)
+      (DESC "Rest Stop")
+      (REGION "Somewhere Along the GUH")
+      (LDESC
+"By the north side of the road is a rest stop, closed and boarded up. The road
+continues east and southwest.")
+      (EAST TO POTHOLES)
+      (SW TO FORK)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>)
+      (ICON REST-STOP-ICON)
+      (THINGS REST STOP REST-STOP-PS
+       	      <> BOARD SHUTTER-PS
+	      <> SHUTTER SHUTTER-PS)>
+
+<ROUTINE REST-STOP-PS ()
+	 <COND (<VERB? EXAMINE ENTER>
+		<TELL "The rest stop is all shuttered up." CR>)
+	       (<VERB? OPEN>
+		<TELL ,CARPENTERS>)
+	       (<VERB? SEARCH>
+		<TELL "You're outside it!" CR>)>>
+
+<ROUTINE SHUTTER-PS ()
+	 <COND (<VERB? TAKE REMOVE>
+		<TELL ,CARPENTERS>)
+	       (<VERB? CLOSE>
+		<TELL "They are!" CR>)>>
+
+<ROOM FORK
+      (LOC ROOMS)
+      (DESC "Fork")
+      (REGION "Somewhere Along the GUH")
+      (LDESC
+"The tunnel forks here, with roads leading northeast, west, and southwest.")
+      (NE TO REST-STOP)
+      (WEST TO FISHY-ODOR)
+      (SW TO SALTY-SMELL)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+      (ICON FORK-ICON)>
+
+<ROOM FISHY-ODOR
+      (LOC ROOMS)
+      (DESC "Fishy Odor")
+      (REGION "Port Foozle")
+      (LDESC
+"The tunnel narrows toward a spot of light to the west. The stench of dead,
+rotting fish hangs in the air.")
+      (EAST TO FORK)
+      (WEST TO FISHING-VILLAGE)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-3>)
+      (ICON FISHY-ODOR-ICON)>
+
+<ROOM SALTY-SMELL
+      (LOC ROOMS)
+      (DESC "Salty Smell")
+      (REGION "Port Foozle")
+      (LDESC
+"The tunnel from the northeast is narrower here, and pervaded with the scent
+of the sea. You can hear breakers to the southwest.")
+      (NE TO FORK)
+      (SW TO QUILBOZZA-BEACH)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)>
+
+<ROOM FISHING-VILLAGE
+      (LOC ROOMS)
+      (DESC "Fishing Village")
+      (REGION "Port Foozle")
+      (LDESC
+"This once-busy port, on the shore of the Great Sea, lies deserted. A tunnel
+opens to the east, the shoreline can be followed south along the ocean's edge,
+and a wharf juts into the harbor to the west. A newly constructed stone
+building lies to the north; an eye-catching sign has been erected next to its
+entrance.")
+      (EAST TO FISHY-ODOR)
+      (WEST TO WHARF)
+      (SOUTH TO SANDBAR)
+      (NORTH TO INQUISITION)
+      (IN TO INQUISITION)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL VILLAGE SIGN FLATHEAD-OCEAN WHARF GLOBAL-BLDG)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-2>)
+      (ICON FISHING-VILLAGE-ICON)
+      (ACTION FISHING-VILLAGE-F)>
+
+<ROUTINE FISHING-VILLAGE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<NOT <FSET? ,FISHING-VILLAGE ,TOUCHBIT>>
+		       <SETG INQ-NUMBER <RANDOM 100>>
+		       <SETG NUMBER-ON-LINE <+ <RANDOM 3> 2>>)>
+		<QUEUE I-INQ -1>)>>
+
+<ROUTINE I-INQ ("AUX" (NEW-PERSONS 0) (DOABLE <>))
+	 <COND (<NOT <EQUAL? ,HERE ,INQUISITION ,FISHING-VILLAGE>>
+		<DEQUEUE I-INQ>
+		<RFALSE>)
+	       (<OR <L? ,NUMBER-ON-LINE 3>
+		    <AND <PROB 75>
+			 <EQUAL? ,NUMBER-ON-LINE 3>>
+		    <AND <PROB 50>
+			 <EQUAL? ,NUMBER-ON-LINE 4>>
+		    <AND <PROB 25>
+			 <EQUAL? ,NUMBER-ON-LINE 5>>>
+		<SET NEW-PERSONS <COND (<PROB 50> 1)
+				       (<PROB 80> 2)
+				       (T 3)>>
+		<SETG NUMBER-ON-LINE <+ ,NUMBER-ON-LINE .NEW-PERSONS>>)>
+	 <SETG INQ-NUMBER <+ ,INQ-NUMBER 1>>
+	 <COND (<AND <EQUAL? ,HERE ,FISHING-VILLAGE>
+		     <G? .NEW-PERSONS 0>>
+		<RETURN-FROM-MAP>
+	        <TELL "   A trollish guard drags ">
+		<COND (<EQUAL? .NEW-PERSONS 1>
+		       <TELL "someone">)
+		      (<EQUAL? .NEW-PERSONS 2>
+		       <TELL "two people">)
+		      (T
+		       <TELL "three people">)>
+		<TELL ", kicking and screaming, into the stone building." CR>
+		<RTRUE>)
+	       (<AND <EQUAL? ,HERE ,INQUISITION>
+		     <G? .NEW-PERSONS 0>>
+		<RETURN-FROM-MAP>
+		<TELL "   A trollish guard drags in ">
+		<COND (<EQUAL? .NEW-PERSONS 1>
+		       <TELL "someone">)
+		      (<EQUAL? .NEW-PERSONS 2>
+		       <TELL "two people">)
+		      (T
+		       <TELL "three people">)>
+		<TELL ", who obediently take">
+		<COND (<EQUAL? .NEW-PERSONS 1>
+		       <TELL "s a number">)
+		      (T
+		       <TELL " numbers">)>
+		<TELL " from the number dispenser." CR>)>
+	 <COND (<EQUAL? ,HERE ,INQUISITION>
+		<RETURN-FROM-MAP>
+		<COND (<AND <G? ,NUMBER-TAKEN 0>
+			    <G? ,INQ-NUMBER ,NUMBER-TAKEN>>
+		       <JIGS-UP
+"   The executioner says, \"Well, we can't wait around forever; we've got
+thousands to execute! Hang 'em!\" You swing.">)>
+		<TELL
+"   The executioner calls out, \"Number " N ,INQ-NUMBER "!\" and ">
+		<COND (<EQUAL? ,INQ-NUMBER ,NUMBER-TAKEN>
+		       <TELL "looks at you with an ugly grin">)
+		      (<AND <PROB 20>
+			    <NOT ,J-INQ-SCENE>
+			    <FSET? ,JESTER ,TOUCHBIT>>
+		       <SETG J-INQ-SCENE T>
+		       <TELL
+"you suddenly realize that the next person on line is the jester! He is
+acting like a first-class sinner: smoking and drinking, using foul language,
+with a curvaceous woman in each arm and a pocketful of gambling receipts.
+He strides forward and makes a particularly salacious request -- something
+involving Vaseline and barnyard animals. His request denied, he is led to
+the block, but just as the axe is swinging down, the jester turns into a
+wisp of smoke and vanishes! The executioner spits angrily">)
+		      (T
+		       <SETG NUMBER-ON-LINE <- ,NUMBER-ON-LINE 1>>
+		       <TELL
+"a bedraggled man steps forward. \"Executioner, ">
+		       <COND (<PROB 50>
+			      <SET DOABLE T>
+			      <TELL <PICK-ONE ,DOABLE-REQUESTS>>)
+			     (T
+			      <TELL <PICK-ONE ,UNDOABLE-REQUESTS>>)>
+		       <TELL ",\" he croaks. The executioner says, \"">
+		       <COND (.DOABLE
+			      <TELL
+"Done!\" and the man is led to the gallows and hung from the neck until dead">)
+			     (T
+			      <TELL
+"Sorry, can't do that.\" The man is placed on the block, and a moment
+later his head is rolling away">)>)>
+		<TELL ,PERIOD-CR>)>>
+
+<CONSTANT DOABLE-REQUESTS
+	<LTABLE
+	 0
+	 "sing a song"
+	 "kick me"
+	 "kiss me">>
+
+<CONSTANT UNDOABLE-REQUESTS
+	<LTABLE
+	 0
+	 "give me a thousand zorkmids"
+	 "give me Ursula Flathead"
+	 "send me to Antharia">>
+
+<GLOBAL INQ-NUMBER 0> ;"next!"
+
+<GLOBAL NUMBER-ON-LINE 0>
+
+<GLOBAL NUMBER-TAKEN 0>
+
+<GLOBAL INQ-SCORE 25>
+
+<ROOM INQUISITION
+      (LOC ROOMS)
+      (DESC "Inquisition")
+      (REGION "Port Foozle")
+      (SOUTH SORRY "A trollish guard blocks the exit. \"No one leave!\"")
+      (OUT SORRY "A trollish guard blocks the exit. \"No one leave!\"")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL SIGN GLOBAL-BLDG)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-2>)
+      (ACTION INQUISITION-F)>
+
+<ROUTINE INQUISITION-F ("OPT" (RARG <>) "AUX" OWINNER TAKER)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<NOT <FSET? ,INQUISITION ,TOUCHBIT>>
+		       <TELL
+"Extremist religions spring up whenever an empire collapses. The Inquisitors
+believe the impending doom was caused by widespread sinning, but that the gods
+can be placated if every person in the kingdom is executed." CR "   ">)>
+		<TELL
+"This is one of the Inquisitors' execution sites. A hooded executioner,
+dripping with sweat and blood, stands between a gallows and a block. "
+N ,NUMBER-ON-LINE " people are queued up in front of the executioner. ">
+		<COND (<G? ,NUMBER-TAKEN 0>
+		       <TELL "You are ">
+		       <COND (<EQUAL? <- ,NUMBER-TAKEN ,INQ-NUMBER> 7>
+			      <TELL "seventh">)
+			     (<EQUAL? <- ,NUMBER-TAKEN ,INQ-NUMBER> 6>
+			      <TELL "sixth">)
+			     (<EQUAL? <- ,NUMBER-TAKEN ,INQ-NUMBER> 5>
+			      <TELL "fifth">)
+			     (<EQUAL? <- ,NUMBER-TAKEN ,INQ-NUMBER> 4>
+			      <TELL "fourth">)
+			     (<EQUAL? <- ,NUMBER-TAKEN ,INQ-NUMBER> 3>
+			      <TELL "third">)
+			     (<EQUAL? <- ,NUMBER-TAKEN ,INQ-NUMBER> 2>
+			      <TELL "second">)
+			     (T
+			      <TELL "first">)>
+		       <TELL " on line. ">)>
+		<TELL
+"Near the end of the line is a number dispenser. A large sign fills one wall.
+The only exit is south.">)
+	       (<EQUAL? .RARG ,M-END>
+		<RETURN-FROM-MAP>
+		<COND (<EQUAL? ,INQ-SCORE 0> ;"already solved it"
+		       <TELL
+"   The executioner spots you. \"Get that joker outta here!\" Guards fling
+you back onto the street." CR CR>
+		       <GOTO ,FISHING-VILLAGE>
+		       <RTRUE>)>
+		<SET OWINNER ,WINNER>
+		<SETG WINNER ,EXECUTIONER> ;"see SEE-INSIDE?"
+		<COND (<VISIBLE? ,PIGEON>
+		       <TELL
+"   One of the guards says, \"Sorry, you'll have to leave your pigeon
+outside.\" He grabs it and ">
+		       <COND (<EQUAL? <META-LOC ,PERCH> ,HERE>
+			      <TELL "tosses it outside">
+			      <COND (<OR
+				      <SET TAKER
+					 <FIND-IN ,FISHING-VILLAGE ,WHITEBIT>>
+				      <SET TAKER
+					 <FIND-IN ,FISHING-VILLAGE ,BLACKBIT>>>
+				     <MOVE ,PIGEON .TAKER>
+				     <TELL
+". A moment later," T .TAKER " materializes in the Inquisition building,
+holding the perch! The executioner bellows, \"Hey! We don't want any of
+your kind in here, buster!\" A guard gives" T .TAKER " the boot." CR>)
+				    (T
+				     <MOVE ,PIGEON ,FISHING-VILLAGE>)>)
+			     (T
+			      <MOVE ,PIGEON <META-LOC ,PERCH>>
+			      <TELL
+"looks stunned as he recedes and vanishes, along with the pigeon">)>
+		       <TELL ,PERIOD-CR>)>
+		<COND (<VISIBLE? ,CLOAK>
+		       <COND (<OR <SET TAKER
+				       <FIND-IN ,FISHING-VILLAGE ,WHITEBIT>>
+				  <SET TAKER
+				       <FIND-IN ,FISHING-VILLAGE ,BLACKBIT>>>
+			      <MOVE ,CLOAK .TAKER>)
+			     (T
+			      <MOVE ,CLOAK ,FISHING-VILLAGE>)>
+		       <TELL
+"   A particularly surly-looking guard says, \"Check your cloak in our coat
+room, haw haw haw.\" He grabs the cloak and kicks it through the door." CR>)>
+		<SETG WINNER .OWINNER>
+		<COND (<L? ,NUMBER-TAKEN -2>
+		       <JIGS-UP
+"   The guard loses his patience and skewers you.">)
+		      (<L? ,NUMBER-TAKEN 1>
+		       <COND (<NOT <EQUAL? ,NUMBER-TAKEN 0>>
+			      <TELL
+"   A guard pokes you with his spear. \"Hey, take a number.\"" CR>)>
+		       <SETG NUMBER-TAKEN <- ,NUMBER-TAKEN 1>>)>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT TICKET
+	(LOC INQUISITION)
+	(DESC "ticket")
+	(SYNONYM TICKET NUMBER)
+	(OWNER PROTAGONIST)
+	(FLAGS TAKEBIT READBIT TRYTAKEBIT NDESCBIT BURNBIT)
+	(SIZE 1)
+	(ACTION TICKET-F)>
+
+<ROUTINE TICKET-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <EQUAL? ,HERE ,INQUISITION>>
+		<COND (<NOT <G? ,NUMBER-TAKEN 0>>
+		       <SETG NUMBER-TAKEN
+			     <+ ,INQ-NUMBER ,NUMBER-ON-LINE>>
+		       <FCLEAR ,TICKET ,NDESCBIT>
+		       <FCLEAR ,TICKET ,TRYTAKEBIT>
+		       <MOVE ,TICKET ,PROTAGONIST>
+		       <TELL "You get number " N ,NUMBER-TAKEN ,PERIOD-CR>)
+		      (<NOUN-USED? ,TICKET ,W?NUMBER>
+		       <TELL
+"A guard lightly bludgeons your hand. \"One number per person!\"" CR>)>)
+	       (<VERB? READ EXAMINE>
+		<COND (<FSET? ,TICKET ,NDESCBIT>
+		       <TELL "You haven't taken one yet!" CR>)
+		      (T
+		       <TELL
+"The ticket has a large number \"" N ,NUMBER-TAKEN "\" on it. In smaller
+type, it says, \"Frobozz Magic Inquisition Numbered Ticket Company.\"" CR>)>)>>
+
+<OBJECT BOX
+	(LOC INQUISITION)
+	(DESC "box")
+	(PLURAL "boxes")
+	(FDESC
+"One of the sinners has apparently dropped a box here. The box has some
+writing on it.")
+	(SYNONYM BOX WRITING)
+	(ADJECTIVE SMALL)
+	(FLAGS TAKEBIT CONTBIT READBIT SEARCHBIT)
+	(SIZE 3)
+	(CAPACITY 3)
+	(OWNER BOX) ;"read writing on box"
+	(TEXT
+"\"Squid Repellent! Contents: 1 pellet. Dissolves slowly in water, keeps
+squid away for hours! Another fine product of the Frobozz Magic Squid
+Repellent Company.\"")>
+
+<OBJECT SQUID-REPELLENT
+	(LOC BOX)
+	(OWNER SQUID-REPELLENT)
+	(DESC "pellet of squid repellent")
+	(SYNONYM PELLET REPELLENT)
+	(ADJECTIVE LARGE SQUID)
+	(FLAGS TAKEBIT)
+	(SIZE 1)
+	(ACTION SQUID-REPELLENT-F)>
+
+<ROUTINE SQUID-REPELLENT-F ()
+	 <COND (<VERB? TASTE SMELL>
+		<TELL "Not being a squid, you're not repelled." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FOOZLE>
+
+<OBJECT EXECUTIONER
+	(LOC INQUISITION)
+	(DESC "executioner")
+	(SYNONYM EXECUTIONER MAN)
+	(FLAGS ACTORBIT VOWELBIT NDESCBIT ANIMATEDBIT)
+	(ACTION EXECUTIONER-F)>
+
+<ROUTINE EXECUTIONER-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<COND (<EQUAL? ,NUMBER-TAKEN ,INQ-NUMBER>
+		       <COND (<OR <AND <VERB? BEHEAD>
+				       <PRSO? ,ME>>
+				  <AND <VERB? CUT>
+				       <PRSO? ,HEAD>
+				       <ADJ-USED? ,HEAD ,W?MY ,W?MINE <>>>>
+			      <TELL
+"The executioner says, \"Hey, sure! Easy request! I can behead ya!\" Then a
+confused look creeps over his face. \"But if I behead ya, then I done granted
+yer last wish, and I gotta hang ya! But if I hang ya, I ain't granted yer wish,
+and I gotta behead ya! But...\" He trails off. \"Guards, throw this wise guy
+outta here!\" Guards surround you and escort you out." CR>
+			      <INC-SCORE ,INQ-SCORE>
+		       	      <SETG INQ-SCORE 0>
+			      <CRLF>
+			      <GOTO ,FISHING-VILLAGE>)
+			     (<DOABLE-REQUEST>
+			      <JIGS-UP
+"\"Done!\" You learn that hanging is as excrutiatingly painful as promised.">)
+			     (<OR <UNDOABLE-REQUEST>
+				  <PROB 50>>
+			      <JIGS-UP
+"\"Sorry, can't do that.\" You learn that beheading is
+indeed quite quick and painless.">)
+			     (T
+			      <JIGS-UP
+"\"Done!\" You learn that hanging is as excrutiatingly painful as promised.">)>)
+		      (T
+		       <TELL "\"Shut up until your number is called!\"" CR>
+		       <STOP>)>)>>
+
+<ROUTINE DOABLE-REQUEST ()
+	 <COND (<AND <VERB? KISS KICK KILL HANG>
+		     <PRSO? ,ME>>
+		<RTRUE>)
+	       (<AND <VERB? SING>
+		     <PRSO? ,LULLABY>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE UNDOABLE-REQUEST ()
+	 <COND (<AND <VERB? GIVE>
+		     <PRSO? ,ME>
+		     <PRSI? ,POSTER ,THOUSAND-ZORKMIDS>>
+		<RTRUE>)
+	       (<AND <VERB? SEND UNTIE>
+		     <PRSO? ,ME>>
+		<RTRUE>)
+	       (<AND <VERB? POINT>
+		     <PRSO? ,WAND>
+		     <PRSI? ,ME>>
+		<RTRUE>)
+	       (<AND <VERB? WEAR>
+		     <PRSO? ,RING>>
+		<RTRUE>)
+	       (<AND <VERB? CUT>
+		     <PRSO? ,HEAD>
+		     <EQUAL? <GET-OWNER ,HEAD> ,EXECUTIONER>>
+		<RTRUE>)
+	       (<AND <VERB? KILL>
+		     <PRSO? ,EXECUTIONER>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT THOUSAND-ZORKMIDS
+	(LOC LOCAL-GLOBALS)
+	(DESC "lots of zorkmids")
+	(SYNONYM ZORKMIDS)
+	(ADJECTIVE HUNDRED THOUSAND MILLION INT.NUM)
+	(FLAGS NARTICLEBIT)>
+
+<ROOM WHARF
+      (LOC ROOMS)
+      (DESC "Wharf")
+      (REGION "Port Foozle")
+      (LDESC
+"This wharf extends into the harbor from a village to the east. Along the
+north side of the wharf, a building rests on piers over the water.")
+      (EAST TO FISHING-VILLAGE)
+      (NORTH TO CASINO)
+      (WEST SORRY "The wharf ends a few steps to the west.")
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM WHARF)
+      (GLOBAL VILLAGE GLOBAL-BLDG FLATHEAD-OCEAN)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-1>)
+      (ICON WHARF-ICON)>
+
+<ROOM CASINO
+      (LOC ROOMS)
+      (DESC "Casino")
+      (REGION "Port Foozle")
+      (LDESC
+"This is the Port Foozle Casino, once a world-famous gambling spot, but
+now deserted and showing the effects of years of ocean storms. The casino
+has been heavily looted; only a single card table seems untouched. An exit
+leads south.")
+      (SOUTH TO WHARF)
+      (OUT TO WHARF)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CASINO)
+      (GLOBAL GLOBAL-BLDG)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-1>)
+      (ACTION CASINO-F)>
+
+<ROUTINE CASINO-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,BROOM ,LOCAL-GLOBALS>
+		     <NOT <IN? ,JESTER ,HERE>>>
+		<MOVE ,JESTER ,HERE>
+		<DEQUEUE I-JESTER>
+		<THIS-IS-IT ,JESTER>
+		<RETURN-FROM-MAP>
+		<TELL "   You do a ">
+		<COND (<L? <- ,MOVES ,J-DISPOSED> 4>
+		       <TELL "triple">)
+		      (T
+		       <TELL "double">)>
+		<TELL
+" take as you notice the jester at the card table, grandly shuffling a thick
+deck. \"I don't wear any Gucci, I can't dance the hootchy-kootchy, I've never
+been good at the old smoochie-woochie, but I sure am a whiz at Double Fanucci!
+When I start to deal, the tension is real; if you can stand the heat, pull up
+a seat!\" He motions for you to sit down at the table." CR>)>>
+
+<OBJECT DOUBLE-FANUCCI
+	(LOC GLOBAL-OBJECTS)
+	(DESC "Double Fanucci")
+	(SYNONYM FANUCCI FANNUCCI)
+	(ADJECTIVE DOUBLE)
+	(RESEARCH
+"\"Legend has it that Double Fanucci (or Fannucci) was invented by the deposed
+Zilbo III in the late seventh century. A game of tremendous complexity and
+almost infinite rules, King Mumberthrax proclaimed it the national sport of
+the Empire in 757 GUE. The annual Double Fanucci Championships, held in
+Borphee during early autumn, frequently leave thousands homeless.\"")
+	(ACTION DOUBLE-FANUCCI-F)>
+
+<ROUTINE DOUBLE-FANUCCI-F ()
+	 <COND (<VERB? PLAY>
+		<COND (<AND <EQUAL? ,HERE ,CASINO>
+			    <IN? ,JESTER ,HERE>
+			    <IN? ,BROOM ,LOCAL-GLOBALS>>
+		       <COND (<EQUAL? <LOC ,PROTAGONIST> ,CARD-TABLE>
+			      <F-START>)
+			     (T
+			      <PERFORM ,V?ENTER ,CARD-TABLE>)>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"You don't have a pack of Fanucci cards; besides, there's no solitaire
+version of Double Fanucci." CR>)>)>>
+
+<OBJECT CARD-TABLE
+	(LOC CASINO)
+	(DESC "card table")
+	(SYNONYM TABLE CHAIR)
+	(ADJECTIVE CARD)
+	(FLAGS NDESCBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT VEHBIT)
+	(CAPACITY 50)
+	(ACTION CARD-TABLE-F)>
+
+<ROUTINE CARD-TABLE-F ("OPTIONAL" VARG)
+	 <COND (<AND <EQUAL? .VARG ,M-ENTER>
+		     <IN? ,BROOM ,LOCAL-GLOBALS>>
+		<F-START>)
+	       (.VARG
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<TELL "It's a pretty plain and ordinary card table.">
+		<COND (<FIRST? ,CARD-TABLE>
+		       <TELL " Sitting on the card table is">
+		       <D-NOTHING>
+		       <RTRUE>)
+		      (T
+		       <CRLF>)>)>>
+
+<ROUTINE F-START ("AUX" MARGIN)
+	 <TELL
+" The jester begins dealing. \"We'll be playing according to Revised Miznian
+Rules, Seventh-Level Amendments, with these exceptions: no side-handling after
+an underfunded discard, two draws after a Skybreaker, and an extra muttonation
+if the conditions of Rule 17.4.1.B are met. Oh, also all the house rules
+adopted by the Fanucci Casino Rebuilding Act of 817." CR CR>
+	 <HIT-ANY-KEY "Double Fanucci">
+	 <SETUP-CARDS>
+	 <SETUP-FANUCCI>
+	 <FANUCCI>
+	 <SCREEN ,S-WINDOW>
+	 <FONT 1> ;"proportional"
+	 <SCREEN ,S-TEXT>
+	 <CRLF> <CRLF>
+	 <HIT-ANY-KEY>
+	 <INIT-SL-WITH-SPLIT ,TEXT-WINDOW-PIC-LOC>
+	 <COND (<FSET? ,BROOM ,TRYTAKEBIT>
+		;"so that when you play again, the cards all get drawn"
+		<PUT ,DRAW-CARDS-TABLE 0 1>
+		<PUT ,DRAW-CARDS-TABLE 1 1>
+		<PUT ,DRAW-CARDS-TABLE 2 1>
+		<PUT ,DRAW-CARDS-TABLE 3 1>
+		<PUT ,DRAW-CARDS-TABLE 4 1>
+		<TELL "\"W">
+		<COND (<G? ,F-PLAYS 5>
+		       <TELL "he">)
+		      (T
+		       <TELL "o">)>
+		<TELL "w!\" says the jester. \"">
+		<COND (<G? ,F-PLAYS 5>
+		       <TELL
+"You really had me on the ropes at a few points there!\"">)
+		      (T
+		       <TELL
+"I wasn't expecting such an early resignation! I'm amazed by my own
+Fanucci prowess!\"">)>
+		<CRLF>)
+	       (T
+		<MOVE ,BROOM ,CARD-TABLE>
+		<REMOVE-J>
+		<TELL
+"\"Great Zilbo's Ghost! Three undertrumps after a Trebled Fromp discard! That's
+indefensible!\" In the time-honored tradition of Double Fanucci matches, the
+jester leaps over the card table to congratulate you. \"You've swept me away!
+You've truly cleaned up today!\" He rifles through his wallet and removes a
+broom, which he lays on the card table. \"Here are your winnings!\" In a wink,
+the jester is gone.\"" CR CR>
+		<INC-SCORE 18>)>>
+
+<ROUTINE SETUP-CARDS ()
+	 <SPLIT-BY-PICTURE ,F-SPLIT T>
+	 <ADJUST-TEXT-WINDOW ,F-BOTTOM>
+	 <CLEAR ,S-FULL>
+	 <PICK-RANK 0>
+	 <PUT ,F-CARD-TABLE 1 <RANDOM 15>>
+	 <PICK-RANK 2>
+	 <PUT ,F-CARD-TABLE 3 <RANDOM 15>>
+	 <PICK-RANK 4>
+	 <PUT ,F-CARD-TABLE 5 <RANDOM 15>>
+	 <PICK-RANK 6>
+	 <PUT ,F-CARD-TABLE 7 <RANDOM 15>>
+	 <PICK-RANK 8>
+	 <PUT ,F-CARD-TABLE 9 <RANDOM 15>>
+	 <SETG J-SCORE 0>
+	 <SETG YOUR-SCORE 0>
+	 <SETG F-PLAYS 0>>
+
+<CONSTANT F-PICSET-TBL
+	  <TABLE F-CARD-BACK
+		 F-CARD
+		 F-INKBLOTS
+		 F-PLUNGERS
+		 F-BUGS
+		 F-ZURFS
+		 F-EARS
+		 F-TOPS
+		 F-RAIN
+		 F-HIVES
+		 F-FACES
+		 F-MAZES
+		 F-LAMPS
+		 F-TIME
+		 F-BOOKS
+		 F-SCYTHES
+		 F-FROMPS
+		 F-RV-INKBLOTS
+	         F-RV-PLUNGERS
+	         F-RV-BUGS
+	         F-RV-ZURFS
+	         F-RV-EARS
+	         F-RV-TOPS
+	         F-RV-RAIN
+	         F-RV-HIVES
+	         F-RV-FACES
+	         F-RV-MAZES
+	         F-RV-LAMPS
+	         F-RV-TIME
+	         F-RV-BOOKS
+	         F-RV-SCYTHES
+	         F-RV-FROMPS
+		 F-0
+		 F-1
+		 F-2
+		 F-3
+		 F-4
+		 F-5
+		 F-6
+		 F-7
+		 F-8
+		 F-9
+		 F-INFINITY
+		 F-RV-0
+		 F-RV-1
+		 F-RV-2
+		 F-RV-3
+		 F-RV-4
+		 F-RV-5
+		 F-RV-6
+		 F-RV-7
+		 F-RV-8
+		 F-RV-9
+		 F-RV-INFINITY
+		 F-GRANOLA
+		 F-LOBSTER
+		 F-SNAIL
+		 F-JESTER
+		 F-HOURGLASS
+		 F-LIGHT
+		 F-BEAUTY
+		 F-DEATH
+		 F-GRUE
+		 0>>
+
+<ROUTINE SETUP-FANUCCI ("AUX" MARGIN
+			CARD-NUM-Y DISCARD-X CARD-NUM-1-X CARD-SPACE)
+	 <SCREEN ,S-FULL>
+	 <DISPLAY ,F-BORDER 1 1>
+	 <SCREEN ,S-WINDOW>
+	 <PICSET ,F-PICSET-TBL>
+	 <FONT 4> ;"non-proportional"
+	 <PICINF-PLUS-ONE ,J-SCORE-LOC>
+	 <CURSET <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <TELL "Jester's Score:">
+	 <PICINF-PLUS-ONE ,YOUR-SCORE-LOC>
+	 <CURSET <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <TELL "Your Score:">
+	 <PICINF-PLUS-ONE ,F-DISCARD-LOC>
+	 <SET CARD-NUM-Y <ZGET ,PICINF-TBL 0>>
+	 <SET DISCARD-X <ZGET ,PICINF-TBL 1>>
+	 <PICINF-PLUS-ONE ,F-CARD-1-LOC>
+	 <SET CARD-NUM-1-X <ZGET ,PICINF-TBL 1>>
+	 <PICINF ,F-CARD-SPACE ,PICINF-TBL>
+	 <SET CARD-SPACE <ZGET ,PICINF-TBL 1>>
+	 <UPDATE-SCORES>
+	 <DRAW-CARDS>
+	 <CURSET .CARD-NUM-Y .DISCARD-X>
+	 <TELL "DISCARD">
+	 <CURSET .CARD-NUM-Y .CARD-NUM-1-X>
+	 <TELL "1">
+	 <CURSET .CARD-NUM-Y <+ .CARD-NUM-1-X .CARD-SPACE>>
+	 <TELL "2">
+	 <CURSET .CARD-NUM-Y <+ .CARD-NUM-1-X <* .CARD-SPACE 2>>>
+	 <TELL "3">
+	 <CURSET .CARD-NUM-Y <+ .CARD-NUM-1-X <* .CARD-SPACE 3>>>
+	 <TELL "4">
+	 <PICINF-PLUS-ONE ,F-MENU-LOC>
+	 <CURSET <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <TELL " DRAW         REVERSE      COMBINE      SINGLE-PLAY  IONIZE">
+	 <CURSET <+ <GET ,PICINF-TBL 0> ,FONT-Y> <GET ,PICINF-TBL 1>>
+	 <TELL " DISCARD      TRUMP        PASS         DOUBLE-PLAY  CHEAT">
+	 <CURSET <+ <GET ,PICINF-TBL 0> <* ,FONT-Y 2>> <GET ,PICINF-TBL 1>>
+	 <TELL " DIVIDE       UNDERTRUMP   OVERPASS     MUTTONATE    RESIGN">
+	 <SCREEN ,S-TEXT>
+	 <CURSET 1 1>>
+
+<CONSTANT F-PIC-LOCS
+	  <PTABLE ,F-DISCARD-PIC-LOC
+		  ,F-1-PIC-LOC
+		  ,F-2-PIC-LOC
+		  ,F-3-PIC-LOC
+		  ,F-4-PIC-LOC>>
+
+<ROUTINE DRAW-CARDS ("AUX" X (CNT 0))
+	 <REPEAT ()
+		 <COND (<L=? .CNT 4>
+			<SET X <ZGET ,F-PIC-LOCS .CNT>>)
+		       (T
+			<SET X <ZGET ,F-PIC-LOCS 4>>)>
+		 <PICINF-PLUS-ONE .X>
+		 <SET X <GET ,PICINF-TBL 1>>
+		 <COND (<EQUAL? .CNT 5>
+			<RETURN>)
+		       (<EQUAL? <GET ,DRAW-CARDS-TABLE .CNT> 1>
+			<PUT ,DRAW-CARDS-TABLE .CNT 0>
+			<DRAW-CARD .X <* .CNT 2> <+ <* .CNT 2> 1>>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+<CONSTANT PICTURE-CARD-PROB 20>
+
+<ROUTINE PICK-RANK (NUM)
+	 <PUT ,F-CARD-TABLE .NUM <COND (<PROB ,PICTURE-CARD-PROB>
+					      <+ 11 <RANDOM 9>>)
+					     (T
+					      <RANDOM 11>)>>>
+
+<CONSTANT F-FACE-CARD-PIC-TBL
+	  <PTABLE ,F-GRANOLA
+		  ,F-LOBSTER
+		  ,F-SNAIL
+		  ,F-JESTER
+		  ,F-HOURGLASS
+		  ,F-LIGHT
+		  ,F-BEAUTY
+		  ,F-DEATH
+		  ,F-GRUE>>
+
+<ROUTINE DISPLAY-OFFSET (PIC Y X OFFPIC)
+  <PICINF .OFFPIC ,PICINF-TBL>
+  <DISPLAY .PIC <+ <ZGET ,PICINF-TBL 0> .Y> <+ <ZGET ,PICINF-TBL 1> .X>>>
+
+<ROUTINE DRAW-CARD (X RANK SUIT "AUX" Y PIC)
+	 <SET RANK <GET ,F-CARD-TABLE .RANK>>
+         <SET SUIT <GET ,F-CARD-TABLE .SUIT>>
+	 <SET Y <GET ,PICINF-TBL 0>>
+         <COND (<EQUAL? .RANK 0>
+	        <DISPLAY ,F-CARD-BACK .Y .X>)
+	       (<G? .RANK 11>
+	        <SET PIC <ZGET ,F-FACE-CARD-PIC-TBL <- .RANK 12>>>
+		<DISPLAY .PIC .Y .X>)
+	       (T
+	        <DISPLAY ,F-CARD .Y .X>
+		<DISPLAY-OFFSET <GET ,RANK-PIC-TBL .RANK> .Y .X
+				,F-RANK-PIC-LOC>
+		<DISPLAY-OFFSET <GET ,RANK-REV-TBL .RANK> .Y .X
+				,F-REV-RANK-PIC-LOC>
+		<DISPLAY-OFFSET <GET ,SUIT-PIC-TBL .SUIT> .Y .X
+				,F-SUIT-PIC-LOC>
+		<DISPLAY-OFFSET <GET ,SUIT-REV-TBL .SUIT> .Y .X
+				,F-REV-SUIT-PIC-LOC>)>>
+
+<ROUTINE FANUCCI ("AUX" X Y PTR)
+	 <PICINF-PLUS-ONE ,F-MENU-LOC>
+	 <SET X <GET ,PICINF-TBL 1>>
+	 <SET Y <GET ,PICINF-TBL 0>>
+	 <SET PTR 0>
+	 <BOLD-MOVE .X .Y .PTR>
+	 <CLEAR ,S-TEXT>
+	 <TELL
+"Use the arrow keys -- or the U, D, L and R keys -- to highlight a play, then
+hit the RETURN/ENTER key. Or, if you have a mouse, you can use that to select
+your play.">
+	 <REPEAT ()
+		 <COND (<PICK-PLAY .X .Y .PTR> ;"rtrues if resigned"
+			<RETURN>)>
+		 <SCREEN ,S-WINDOW>
+		 <DRAW-CARDS>
+		 <UPDATE-SCORES>
+		 <SCREEN ,S-TEXT>
+		 <COND (<EQUAL? ,F-WIN-COUNT 3>
+			<SETG YOUR-SCORE <+ ,YOUR-SCORE 1000>>
+			<FCLEAR ,BROOM ,TRYTAKEBIT>
+			<RETURN>)
+		       (<SCORE-CHECK>
+			<RETURN>)>
+		 <J-PLAY>
+		 <SCREEN ,S-WINDOW>
+		 <DRAW-CARDS>
+		 <SETG F-PLAYS <+ ,F-PLAYS 1>>
+		 <UPDATE-SCORES>
+		 <SCREEN ,S-TEXT>
+		 <COND (<SCORE-CHECK>
+			<RETURN>)>>>
+
+<ROUTINE UPDATE-SCORES ()
+	 <PICINF-PLUS-ONE ,J-SCORE-LOC>
+	 <CURSET <GET ,PICINF-TBL 0> <+ <GET ,PICINF-TBL 1> <* ,FONT-X 16>>>
+	 <COND (<L? ,J-SCORE 10>
+		<TELL " 00">)
+	       (<L? ,J-SCORE 100>
+	        <TELL " 0">)
+	       (<L? ,J-SCORE 1000>
+		<TELL " ">)>
+	 <TELL N ,J-SCORE>
+	 <PICINF-PLUS-ONE ,YOUR-SCORE-LOC>
+	 <CURSET <GET ,PICINF-TBL 0> <+ <GET ,PICINF-TBL 1> <* ,FONT-X 12>>>
+	 <COND (<L? ,YOUR-SCORE 10>
+		<TELL " 00">)
+	       (<L? ,YOUR-SCORE 100>
+	        <TELL " 0">)
+	       (<L? ,YOUR-SCORE 1000>
+	        <TELL " ">)>
+	 <TELL N ,YOUR-SCORE>>
+
+<ROUTINE SCORE-CHECK ()
+	 <COND (<G? ,J-SCORE ,YOUR-SCORE>
+		<COND (<G? <- ,J-SCORE ,YOUR-SCORE> 1241>
+		       <TELL "\"My">)
+		      (T
+		       <RFALSE>)>)
+	       (T
+		<COND (<G? <- ,YOUR-SCORE ,J-SCORE> 1241>
+		       <TELL "\"Your">)
+		      (T
+		       <RFALSE>)>)>
+	 <TELL
+" lead exceeds 1241 points,\" the jester explains, \"so by Rules Committee
+Amendment #493, the game is suspended and must be replayed in its entirety,
+except during a Frotz Moon or in a six-player game where at least three of
+the players are of Mithican ancestry.\"|
+   The jester sighs. \"It's always ironic to play for so long without reaching
+a decision. I'm sure that the great humorist, O'Flathead, would get a chuckle
+out of our predicament.\"" CR>
+	 <RTRUE>>
+
+<GLOBAL J-CARDS 4>
+
+<GLOBAL J-DISCARD-FROMP-PROB 0>
+
+<GLOBAL F-WIN-COUNT 0>
+
+<CONSTANT DRAW-CARDS-TABLE ;"tells DRAW-CARDS which cards have changed"
+	<TABLE 1 1 1 1 1>>
+
+<CONSTANT J-LAST-CARD
+	<TABLE 0 0>>
+
+<CONSTANT FROMP-SUIT 15>
+
+<CONSTANT TREBLED-RANK 11>
+
+<ROUTINE J-PLAY ("AUX" PLAY-NUM RANK SUIT NUM)
+	 <TELL "|   Your opponent stares at his " N ,J-CARDS " card">
+	 <COND (<NOT <EQUAL? ,J-CARDS 1>>
+		<TELL "s">)>
+	 <TELL ", pondering his move. ">
+	 <HIT-ANY-KEY>
+	 <CLEAR ,S-TEXT>
+	 <TELL "The jester ">
+	 <COND (<OR <L? ,J-CARDS 2>
+		    <AND <EQUAL? ,J-CARDS 2>
+			 <PROB 67>>
+		    <AND <EQUAL? ,J-CARDS 2>
+			 <PROB 33>>>
+		<SETG J-CARDS <+ ,J-CARDS 1>>
+		<TELL "decides to draw. He seems ">
+		<COND (<PROB 8>
+		       <TELL "extremely ">)>
+		<COND (<PROB 50>
+		       <TELL "delighted">)
+		      (T
+		       <TELL "dismayed">)>
+		<TELL " by his new card.">)
+	       (T
+		<SETG J-CARDS <- ,J-CARDS 1>>
+		<SETG J-DISCARD-FROMP-PROB
+		      <+ ,J-DISCARD-FROMP-PROB 2>>
+		<TELL "proceeds to ">
+		<COND (<PROB ,J-DISCARD-FROMP-PROB>
+		       <SETG J-DISCARD-FROMP-PROB 0>
+		       <SET PLAY-NUM 1>
+		       <SET SUIT ,FROMP-SUIT>
+		       <SET RANK ,TREBLED-RANK>)
+		      (T
+		       <SET PLAY-NUM <RANDOM 12>>
+		       ;"jester should never draw (here), cheat, or resign"
+		       <SET SUIT <RANDOM 15>>
+		       <SET RANK <COND (<PROB ,PICTURE-CARD-PROB>
+					<+ 11 <RANDOM 9>>)
+				       (T
+					<RANDOM 11>)>>)>
+		<PUT ,J-LAST-CARD 0 .RANK>
+		<PUT ,J-LAST-CARD 1 .SUIT>
+		<SET NUM <MOD <* .PLAY-NUM .SUIT .RANK> 17>>
+		<COND (<EQUAL? .PLAY-NUM 1>
+		       <PUT ,DRAW-CARDS-TABLE 0 1>
+		       <PUT ,F-CARD-TABLE 0 .RANK>
+		       <PUT ,F-CARD-TABLE 1 .SUIT>)>
+		<TELL
+<GET ,F-PLAY-TABLE-LC .PLAY-NUM> " " <GET ,F-RANK-TABLE .RANK>>
+		<COND (<NOT <G? .RANK 11>>
+		       <TELL " " <GET ,F-SUIT-TABLE .SUIT>>)>
+		<TELL ". He " <GET ,J-PLAY-TABLE .NUM> " ">
+		<F-SCORE <GET ,J-PLAY-SCORES .NUM>>)>>
+
+<CONSTANT J-PLAY-TABLE
+	<PTABLE
+"shrugs. \"Just a simple Borphee Bluff.\""
+"smiles. \"A devilish Kovalli Hustle, don't you think?\""
+"shudders. \"Babe would turn over in his grave if he could see my playing.\""
+"looks satisfied. \"That ought to up the ante toward a Doubleton Duck.\""
+"resists an urge to spike his cards. \"You fell for my Festeron Finesse! I get Honors!\""
+"shouts, \"Whangdoogle! Four to the kitty! Minor ruff!\" and massages the resulting torn shoulder muscle."
+"kicks himself. \"I should've revoked a Singleton in the third frame!\""
+"snickers at you. \"Bet you didn't see that Segmented Shuffle coming!\""
+"complains. \"Shy Openers! All I get are Shy Openers!\""
+"applauds with delight. \"Zilbo's Half-Renege! I love it!\""
+"sighs. \"I came so close to a Full Foozle Progression.\""
+"produces two large mallard ducks out of thin air, thus Royal Bidding
+his play."
+"takes a third of the deck and burns it. \"Unlimited Singleton Bids for
+the rest of the game!\""
+"invokes the Grand Slam clause and reshuffles the deck. \"Slice and Call,\"
+he claims."
+"exhales a deep breath. \"I wasn't sure I'd have time for that Inside
+Duo-Trick.\""
+"gulps. \"I came close to having to invoke the Golden Fromp clause!\""
+"scowls. \"An Unrejuvenated Slamboozle!\" To repent, he changes shape
+to a hawk, then a milk cow, then a large carpenter ant, and finally back
+to a jester. \"Full repentance; losses halved,\" he states.">>
+
+<CONSTANT J-PLAY-SCORES
+	<PTABLE -10
+	       -78
+	       44
+	       -21
+	       -95
+	       -31
+	       22
+	       -42
+	       34
+	       -56
+	       -4
+	       -28
+	       -16
+	       -37
+	       -25
+	       15
+	       -22>>
+
+<ROUTINE PICK-PLAY (X Y PTR "AUX" KEY TOP LEFT TL-X TL-Y BR-X BR-Y
+		    CNT-X CNT-Y NEW-PTR MOUSE-MOVED?)
+	 <PICINF-PLUS-ONE ,F-MENU-LOC>
+	 <SET TOP <GET ,PICINF-TBL 0>>
+	 <SET LEFT <GET ,PICINF-TBL 1>>
+         <BOLD-MOVE .X .Y .PTR>
+	 <REPEAT ()
+		 <COND (,DEMO-VERSION?
+			<SET KEY <INPUT-DEMO 1>>)
+		       (T
+			<SET KEY <INPUT 1>>)>
+		 <MOUSE-INPUT?>
+		 <COND (<EQUAL? .KEY ,CLICK1 ,CLICK2>
+			<SET MOUSE-MOVED? <>>
+			<SET CNT-X 0>
+			<SET CNT-Y 0>
+			<PICINF-PLUS-ONE ,F-MENU-LOC>
+	 		<SET TL-X <GET ,PICINF-TBL 1>>
+	 		<REPEAT ()
+			     <SET TL-Y <GET ,PICINF-TBL 0>>
+			     <SET BR-X <+ <* ,FONT-X 13> .TL-X>>
+			     <REPEAT ()
+				  <SET BR-Y <+ ,FONT-Y .TL-Y>>
+				  <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+					 <SET MOUSE-MOVED? T>
+					 <UNBOLD-MOVE .X .Y .PTR>
+	 				 <SET Y <GET ,PICINF-TBL 0>>
+					 <SET X <GET ,PICINF-TBL 1>>
+					 <SET X
+					      <+ .X <* .CNT-X <* ,FONT-X 13>>>>
+					 <SET Y <+ .Y <* .CNT-Y ,FONT-Y>>>
+					 <SET NEW-PTR <+ .CNT-Y <* .CNT-X 3>>>
+					 <COND (<EQUAL? .PTR .NEW-PTR>
+						<SET .KEY ,CLICK2>)>
+					 <SET PTR .NEW-PTR>
+					 <BOLD-MOVE .X .Y .PTR>
+					 <RETURN>)
+					(<EQUAL? .CNT-Y 2>
+					 <RETURN>)
+					(T
+					 <SET CNT-Y <+ .CNT-Y 1>>
+					 <SET TL-Y .BR-Y>)>>
+			     <COND (.MOUSE-MOVED?
+				    <RETURN>)
+				   (<EQUAL? .CNT-X 4>
+				    <RETURN>)
+				   (T
+				    <SET CNT-Y 0>
+				    <SET .CNT-X <+ .CNT-X 1>>
+				    <SET TL-X .BR-X>)>>
+			<COND (<NOT .MOUSE-MOVED?>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <TELL
+"Click on one of the items in the menu to highlight a play;
+double-click on it to select that play.">)
+			      (<EQUAL? .KEY ,CLICK2>
+			       <COND (<EQUAL? <PLAY-SELECTED .PTR> T> ;"resign"
+				      <RTRUE>)
+				     (T
+				      <UNBOLD-MOVE .X .Y .PTR>
+				      <RFALSE>)>)>)
+		       (<OR <EQUAL? .KEY ,UP-ARROW>
+			    <EQUAL? .KEY !\U !\u>>
+			<COND (<EQUAL? .Y .TOP>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <TELL ,ALREADY-AT "top row!">)
+			      (T
+			       <UNBOLD-MOVE .X .Y .PTR>
+			       <SET Y <- .Y ,FONT-Y>>
+			       <SET PTR <- .PTR 1>>
+			       <BOLD-MOVE .X .Y .PTR>)>)
+		       (<OR <EQUAL? .KEY ,DOWN-ARROW>
+			    <EQUAL? .KEY !\D !\d>>
+			<COND (<EQUAL? .Y <+ .TOP <* ,FONT-Y 2>>>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <TELL ,ALREADY-AT "bottom row!">)
+			      (T
+			       <UNBOLD-MOVE .X .Y .PTR>
+			       <SET Y <+ .Y ,FONT-Y>>
+			       <SET PTR <+ .PTR 1>>
+			       <BOLD-MOVE .X .Y .PTR>)>)
+		       (<OR <EQUAL? .KEY ,LEFT-ARROW>
+			    <EQUAL? .KEY !\L !\l>>
+			<COND (<EQUAL? .X .LEFT>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <TELL ,ALREADY-AT "left-most column!">)
+			      (T
+			       <UNBOLD-MOVE .X .Y .PTR>
+			       <SET X <- .X <* ,FONT-X 13>>>
+			       <SET PTR <- .PTR 3>>
+			       <BOLD-MOVE .X .Y .PTR>)>)
+		       (<OR <EQUAL? .KEY ,RIGHT-ARROW>
+			    <EQUAL? .KEY !\R !\r>>
+			<COND (<EQUAL? .X <+ .LEFT <* ,FONT-X 52>>>
+			       <CLEAR ,S-TEXT>
+			       <SOUND 1>
+			       <TELL ,ALREADY-AT "right-most column!">)
+			      (T
+			       <UNBOLD-MOVE .X .Y .PTR>
+			       <SET X <+ .X <* ,FONT-X 13>>>
+			       <SET PTR <+ .PTR 3>>
+			       <BOLD-MOVE .X .Y .PTR>)>)
+		       (<EQUAL? .KEY 10 13> ;"RETURN/ENTER key"
+			<COND (<EQUAL? <PLAY-SELECTED .PTR> T> ;"resign"
+			       <RTRUE>)
+			      (T
+			       <UNBOLD-MOVE .X .Y .PTR>
+			       <RFALSE>)>)
+		       (T
+			<CLEAR ,S-TEXT>
+			<SOUND 1>
+			<TELL
+"Use the arrow keys to highlight a play, or hit RETURN/ENTER to select
+the currently highlighted play.">)>>>
+
+<ROUTINE UNBOLD-MOVE (X Y PTR)
+	 <SCREEN ,S-WINDOW>
+	 <CURSET .Y <- .X 1>>
+	 <TELL " " <GET ,F-PLAY-TABLE .PTR>>
+	 <SCREEN ,S-TEXT>>
+
+<ROUTINE BOLD-MOVE (X Y PTR)
+	 <SCREEN ,S-WINDOW>
+	 <CURSET .Y <- .X 1>>
+	 <HLIGHT ,H-BOLD>
+	 <TELL ">" <GET ,F-PLAY-TABLE .PTR>>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>>
+
+<ROUTINE PLAY-SELECTED (PTR "AUX" CNT X NUM)
+	 <COND (<EQUAL? .PTR 14> ;"resign"
+		<RTRUE>)
+	       (<EQUAL? .PTR 13> ;"cheat"
+		<COND (<PROB 50>
+		       <CHEAT-RESULT ,CHEAT-WINS>)
+		      (T
+		       <CHEAT-RESULT ,CHEAT-LOSSES>)>)
+	       (<EQUAL? .PTR 0> ;"draw"
+		<SET CNT 0>
+		<REPEAT ()
+			<COND (<EQUAL? <GET ,F-CARD-TABLE .CNT> 0>
+			       <PUT ,DRAW-CARDS-TABLE </ .CNT 2> 1>
+			       <PICK-RANK .CNT>
+			       <PUT ,F-CARD-TABLE
+				    <+ .CNT 1> <RANDOM 15>>
+			       <CLEAR ,S-TEXT>
+			       <TELL "You draw ">
+			       <PRINT-CARD-NAME .CNT>
+			       <TELL ".">
+			       <RETURN>)
+			      (<EQUAL? .CNT 8>
+			       <CLEAR ,S-TEXT>
+			       <TELL
+"The jester snickers. \"You've no empty slot; you forfeit your shot!\"">
+			       <RETURN>)>
+			<SET CNT <+ .CNT 2>>>)
+	       (<AND <EQUAL? <GET ,F-CARD-TABLE 2> 0>
+		     <EQUAL? <GET ,F-CARD-TABLE 4> 0>
+		     <EQUAL? <GET ,F-CARD-TABLE 6> 0>
+		     <EQUAL? <GET ,F-CARD-TABLE 8> 0>>
+		<CLEAR ,S-TEXT>
+		<SOUND 1>
+		<TELL
+"You can't " <GET ,F-PLAY-TABLE-LC .PTR>
+" just now; you have no drawn cards!">)
+	       (T
+		<CLEAR ,S-TEXT>
+		<TELL
+"Use your mouse or type the number of the card you'd like to "
+<GET ,F-PLAY-TABLE-LC .PTR> ".">
+		<REPEAT ()
+		       <SET X <INPUT 1>>
+		       <MOUSE-INPUT?>
+		       <COND (<EQUAL? .X ,CLICK1 ,CLICK2>
+			      <SET X <F-MOUSE-CARD-PICK>>)>
+		       <COND (<EQUAL? .X 146 147 148 149> ;"keypad"
+			      <SET X <- .X 97>>)> 
+		       <COND (<OR <AND <EQUAL? .X !\1>
+				       <EQUAL? <GET ,F-CARD-TABLE 2> 0>>
+				  <AND <EQUAL? .X !\2>
+				       <EQUAL? <GET ,F-CARD-TABLE 4> 0>>
+				  <AND <EQUAL? .X !\3>
+				       <EQUAL? <GET ,F-CARD-TABLE 6> 0>>
+				  <AND <EQUAL? .X !\4>
+				       <EQUAL? <GET ,F-CARD-TABLE 8> 0>>>
+			      <CLEAR ,S-TEXT>
+			      <SOUND 1>
+			      <TELL
+"You can't " <GET ,F-PLAY-TABLE-LC .PTR>
+" that card; it hasn't been drawn yet!">)
+			     (<EQUAL? .X !\1>
+			      <SET X 2>
+			      <RETURN>)
+			     (<EQUAL? .X !\2>
+			      <SET X 4>
+			      <RETURN>)
+			     (<EQUAL? .X !\3>
+			      <SET X 6>
+			      <RETURN>)
+			     (<EQUAL? .X !\4>
+			      <SET X 8>
+			      <RETURN>)
+			     (T
+			      <CLEAR ,S-TEXT>
+			      <SOUND 1>
+			      <TELL ,TYPE-A-NUMBER "4.">)>>
+		<SET NUM <MOD <* <GET ,F-CARD-TABLE .X>
+				 <GET ,F-CARD-TABLE <+ .X 1>>
+				 .PTR> 37>>
+		<COND (<EQUAL? .PTR 5> ;"undertrump"
+		       <COND (<G? ,F-WIN-COUNT 0>
+			      <SETG F-WIN-COUNT
+				    <+ ,F-WIN-COUNT 1>>
+			      <COND (<EQUAL? ,F-WIN-COUNT 3>
+				     <PUT ,DRAW-CARDS-TABLE </ .X 2> 1>
+				     <PUT ,F-CARD-TABLE .X 0>
+				     <PUT ,F-CARD-TABLE <+ .X 1> 0>
+				     ;"go straight to win-text"
+				     <RFALSE>)>)
+			     (<AND <EQUAL? <GET ,J-LAST-CARD 0>
+					   ,TREBLED-RANK>
+				   <EQUAL? <GET ,J-LAST-CARD 1>
+					   ,FROMP-SUIT>>
+			      <SETG F-WIN-COUNT 1>)>)
+		      (T
+		       <SETG F-WIN-COUNT 0>)>
+		<COND (<EQUAL? <GET ,F-SCORES .NUM> 0>
+		       <SETG F-WIN-COUNT 0>
+		       ;"else you can win Fanucci after this response"
+		       <TELL
+"   The jester is outraged! \"You can't "
+<GET ,F-PLAY-TABLE-LC .PTR> " ">
+		       <PRINT-CARD-NAME .X>
+		       <COND (<PROB 6>
+			      <TELL " when ">
+			      <PRINT-CARD-NAME 0>
+			      <TELL " is showing on the Discard Pile!">)
+			     (T
+			      <TELL " " <GET ,J-RESPONSES .NUM>>)>)
+		      (T
+		       <CLEAR ,S-TEXT>
+		       <TELL "You " <GET ,F-PLAY-TABLE-LC .PTR> " ">
+		       <PRINT-CARD-NAME .X>
+		       <TELL ". The jester " <GET ,J-RESPONSES .NUM> " ">
+		       <F-SCORE <GET ,F-SCORES .NUM>>
+		       <COND (<EQUAL? .PTR 1> ;"move card to discard pile"
+			      <PUT ,DRAW-CARDS-TABLE 0 1>
+			      <PUT ,F-CARD-TABLE 0
+				   <GET ,F-CARD-TABLE .X>>
+			      <PUT ,F-CARD-TABLE 1
+				   <GET ,F-CARD-TABLE <+ .X 1>>>)>
+		       <PUT ,DRAW-CARDS-TABLE </ .X 2> 1>
+		       <PUT ,F-CARD-TABLE .X 0>
+		       <PUT ,F-CARD-TABLE <+ .X 1> 0>)>)>
+	 <RFALSE>>
+
+<ROUTINE F-MOUSE-CARD-PICK
+	 ("AUX" TL-X TL-Y BR-X BR-Y CARD-WIDTH CARD-HEIGHT)
+	 <PICINF ,F-CARD ,PICINF-TBL>
+	 <SET CARD-HEIGHT <GET ,PICINF-TBL 0>>
+	 <SET CARD-WIDTH <GET ,PICINF-TBL 1>>
+	 <PICINF-PLUS-ONE ,F-1-PIC-LOC>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-Y <+ .TL-Y .CARD-HEIGHT>>
+	 <SET BR-X <+ .TL-X .CARD-WIDTH>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN 49> ;"1 in ASCII")>
+	 <PICINF-PLUS-ONE ,F-2-PIC-LOC>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-Y <+ .TL-Y .CARD-HEIGHT>>
+	 <SET BR-X <+ .TL-X .CARD-WIDTH>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN 50> ;"2 in ASCII")>
+	 <PICINF-PLUS-ONE ,F-3-PIC-LOC>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-Y <+ .TL-Y .CARD-HEIGHT>>
+	 <SET BR-X <+ .TL-X .CARD-WIDTH>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN 51> ;"3 in ASCII")>
+	 <PICINF-PLUS-ONE ,F-4-PIC-LOC>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-Y <+ .TL-Y .CARD-HEIGHT>>
+	 <SET BR-X <+ .TL-X .CARD-WIDTH>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN 52> ;"4 in ASCII")>
+	 <RETURN ,CLICK1>>
+
+<ROUTINE PRINT-CARD-NAME (CNT)
+	 <TELL <GET ,F-RANK-TABLE <GET ,F-CARD-TABLE .CNT>>>
+	 <COND (<L? <GET ,F-CARD-TABLE .CNT> 12>
+		<TELL " " <GET ,F-SUIT-TABLE
+			   <GET ,F-CARD-TABLE <+ .CNT 1>>>>)>>
+
+<CONSTANT F-PLAY-TABLE
+      ;"space after word overwrites pixels left by bold-word on certain micros"
+	<PTABLE "DRAW "
+	        "DISCARD "
+		"DIVIDE "
+		"REVERSE "
+	        "TRUMP "
+	        "UNDERTRUMP "
+		"COMBINE "
+	        "PASS "
+	        "OVERPASS "
+		"SINGLE-PLAY "
+	        "DOUBLE-PLAY "
+	        "MUTTONATE "
+		"IONIZE "
+	        "CHEAT "
+	        "RESIGN ">>
+
+<CONSTANT F-PLAY-TABLE-LC
+       <PTABLE "draw"
+	       "discard"
+	       "divide"
+	       "reverse"
+	       "trump"
+	       "undertrump"
+	       "combine"
+	       "pass"
+	       "overpass"
+	       "single-play"
+	       "double-play"
+	       "muttonate"
+	       "ionize"
+	       "cheat"
+	       "resign">>
+
+<CONSTANT RANK-PIC-TBL
+      <PTABLE ;0 <> ;"unused"
+	      ;1 F-4
+	      ;2 F-5
+	      ;3 F-6
+	      ;4 F-7
+	      ;5 F-8
+	      ;6 F-9
+	      ;7 F-0
+	      ;8 F-INFINITY
+	      ;9 F-1
+	     ;10 F-2
+	     ;11 F-3>>
+
+<CONSTANT RANK-REV-TBL
+      <PTABLE ;0 <> ;"unused"
+	      ;1 F-RV-4
+	      ;2 F-RV-5
+	      ;3 F-RV-6
+	      ;4 F-RV-7
+	      ;5 F-RV-8
+	      ;6 F-RV-9
+	      ;7 F-RV-0
+	      ;8 F-RV-INFINITY
+	      ;9 F-RV-1
+	     ;10 F-RV-2
+	     ;11 F-RV-3>>
+
+<CONSTANT F-RANK-TABLE
+       <PTABLE ;0 <> ;"unused"
+	      ;1 "the Four of"
+	      ;2 "the Five of"
+	      ;3 "the Six of"
+	      ;4 "the Seven of"
+	      ;5 "the Eight of"
+	      ;6 "the Nine of"
+	      ;7 "the Naught of"
+	      ;8 "Infinite"
+	      ;9 "Singled"
+	     ;10 "Doubled"
+	     ;11 "Trebled"
+	     ;12 "Granola"
+	     ;13 "the Lobster"
+	     ;14 "the Snail"
+	     ;15 "the Jester"
+	     ;16 "Time"
+	     ;17 "Light"
+	     ;18 "Beauty"
+	     ;19 "Death"
+	     ;20 "the Grue">>
+
+<CONSTANT SUIT-PIC-TBL
+       <PTABLE ;0 <> ;"unused"
+	       ;1 F-INKBLOTS
+	       ;2 F-PLUNGERS
+	       ;3 F-BUGS
+	       ;4 F-ZURFS
+	       ;5 F-EARS
+	       ;6 F-TOPS
+	       ;7 F-RAIN
+	       ;8 F-HIVES
+	       ;9 F-FACES
+	      ;10 F-MAZES
+	      ;11 F-LAMPS
+	      ;12 F-TIME
+	      ;13 F-BOOKS
+	      ;14 F-SCYTHES
+	      ;15 F-FROMPS>>
+
+<CONSTANT SUIT-REV-TBL
+       <PTABLE ;0 <> ;"unused"
+	       ;1 F-RV-INKBLOTS
+	       ;2 F-RV-PLUNGERS
+	       ;3 F-RV-BUGS
+	       ;4 F-RV-ZURFS
+	       ;5 F-RV-EARS
+	       ;6 F-RV-TOPS
+	       ;7 F-RV-RAIN
+	       ;8 F-RV-HIVES
+	       ;9 F-RV-FACES
+	      ;10 F-RV-MAZES
+	      ;11 F-RV-LAMPS
+	      ;12 F-RV-TIME
+	      ;13 F-RV-BOOKS
+	      ;14 F-RV-SCYTHES
+	      ;15 F-RV-FROMPS>>
+
+<CONSTANT F-SUIT-TABLE
+	  <PTABLE ;0 <> ;"unused"
+		  ;1 "Inkblots"
+		  ;2 "Plungers"
+		  ;3 "Bugs"
+		  ;4 "Zurfs"
+		  ;5 "Ears"
+		  ;6 "Tops"
+		  ;7 "Rain"
+		  ;8 "Hives"
+		  ;9 "Faces"
+		 ;10 "Mazes"
+		 ;11 "Lamps"
+		 ;12 "Time"
+		 ;13 "Books"
+		 ;14 "Scythes"
+		 ;15 "Fromps">>
+
+<CONSTANT F-CARD-TABLE
+	<TABLE <> <> ;"discard card"
+	       <> <> ;"card 1"
+	       <> <> ;"card 2"
+	       <> <> ;"card 3"
+	       <> <> ;"card 4">>
+
+<GLOBAL YOUR-SCORE 0>
+
+<GLOBAL J-SCORE 0>
+
+<GLOBAL F-PLAYS 0>
+
+<ROUTINE CHEAT-RESULT (TBL "AUX" CNT X PTS)
+	 <SET CNT <GET .TBL 0>>
+	 <SET X <- <* <RANDOM .CNT> 2> 1>>
+	 <SET PTS <GET .TBL <+ .X 1>>>
+	 <CLEAR ,S-TEXT>
+	 <TELL <GET .TBL .X> " ">
+	 <F-SCORE .PTS>>
+
+<ROUTINE F-SCORE (PTS)
+	 <COND (<G? .PTS 0>
+		<COND (<AND <PROB </ ,YOUR-SCORE 10>>
+			    <G? ,J-SCORE .PTS>>
+		       <SETG J-SCORE <- ,J-SCORE .PTS>>
+		       <TELL "The jester loses">)
+		      (T
+		       <SETG YOUR-SCORE <+ ,YOUR-SCORE .PTS>>
+		       <TELL "You gain">)>)
+	       (T
+		<SET PTS <* .PTS -1>>
+		<COND (<AND <PROB </ ,J-SCORE 10>>
+		       	    <G? ,YOUR-SCORE .PTS>>
+		       <SETG YOUR-SCORE <- ,YOUR-SCORE .PTS>>
+		       <TELL "You lose">)
+		      (T
+		       <SETG J-SCORE <+ ,J-SCORE .PTS>>
+		       <TELL "The jester gains">)>)>
+	 <TELL " " N .PTS " points.">>
+
+<CONSTANT CHEAT-WINS
+	<PTABLE 3
+"You catch the jester looking out the window, and take the opportunity to
+alter the scores."
+45
+"You distract the jester by faking a muscle cramp."
+23
+"You successfully slip a card out of your sleeve."
+19>>
+
+<CONSTANT CHEAT-LOSSES
+	<PTABLE 3
+"The jester seems to doze off for a moment, and you try to take advantage by
+fudging the scores. However, the jester stirs, and in your haste you help the
+jester instead of yourself!"
+-60
+"The jester catches you marking the cards, and assesses a stiff penalty."
+-47
+"You substitute a card from the middle of the deck, but the new card places
+you in an even worse position!"
+-33>>
+
+<CONSTANT J-RESPONSES
+	<PTABLE
+"during the middle third of Mumberber!\""
+"before a New Sun!\""
+"in a two-person game!\""
+"cries, \"Daring move!\""
+"looks bored. \"The old Oddzio Gambit.\""
+"says, \"A gutsy play!\""
+"applauds. \"A brilliant Festeron Feint!\""
+"sneers. \"A transparent maneuver.\""
+"shakes his head. \"A poorly executed Antharian Attack.\""
+"exclaims, \"A skillful finesse!\""
+"is obviously impressed. \"A spectacular Bloodworm Defense!\""
+"sniffs. \"A weak response.\""
+"smiles mysteriously. \"An unusual Balsawood Convention!\""
+"looks impressed. \"That was a stroke of genius!\""
+"taps his fingers impatiently. \"A typical Egreth Convention.\""
+"whispers, \"Crude, but effective.\""
+"tips his hat to you. \"A well-executed Zilbo Standard!\""
+"looks unimpressed. \"Just a lucky stroke!\""
+"smirks. \"A poorly timed Forborn Chisel, wouldn't you say?\""
+"laughs. \"That was a sign of panic on your part, if you ask me.\""
+"peruses your move. \"Ah, yes. The Accardi Variation. I haven't seen that one in a while.\""
+"bows his head with respect. \"You're a regular Fanuccimeister, eh?\""
+"salutes you. \"A well-timed Frotz Factor! Bravo!\""
+"scratches his head. \"A thoroughly mystifying maneuver.\""
+"yawns. \"The dependable Zibble Ploy.\""
+"laughs derisively. \"An amateurish blunder!\""
+"says, \"A classic Frotzen Ploy.\""
+"shrugs. \"Oh, well... If people never made mistakes, they wouldn't put
+erasers on pencils...\""
+"looks at you with scorn. \"A lukewarm Porridge Variation.\""
+"blinks. Then blinks again. \"Now I've seen EVERYTHING!\""
+"nods knowingly. \"An obvious Fublian Gambit.\""
+"offers you some advice. \"Remember the words of Leo 'the Lip' Flathead: 'Nice
+guys finish last.'\""
+"under Miznian rules!\""
+"without a note from your doctor!\""
+"except after a third-level Hamster Substitution!\""
+"in a coastal city without first eating the rind of a burnt casaba melon!\""
+"chortles gratingly. \"Who taught you how to play cards? Vanna Flathead?\"">>
+
+<CONSTANT F-SCORES
+	<PTABLE 0
+	       0
+	       0
+	       24
+	       10
+	       28
+	       41
+	       -12
+	       -81
+	       37
+	       54
+	       -29
+	       17
+	       66
+	       -35
+	       14
+	       18
+	       13
+	       -79
+	       -41
+	       -15
+	       60
+	       64
+	       -99
+	       10
+	       -73
+	       12
+	       -55
+	       -20
+	       -77
+	       -11
+	       -14
+	       0
+	       0
+	       0
+	       0
+	       -38>>
+
+<OBJECT BROOM
+	(LOC LOCAL-GLOBALS)
+	(DESC "broom")
+	(SYNONYM BROOM)
+	(SIZE 10)
+	(FLAGS TAKEBIT TRYTAKEBIT)>
+
+<ROOM SANDBAR
+      (LOC ROOMS)
+      (DESC "Sandbar")
+      (REGION "Port Foozle")
+      (LDESC
+"You are on a wide sandbar, which almost certainly vanishes at high tide.
+The only ways off the sandbar are to the north and south.")
+      (NORTH TO FISHING-VILLAGE)
+      (SOUTH TO QUILBOZZA-BEACH)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM SANDBAR)
+      (GLOBAL FLATHEAD-OCEAN)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-2>)>
+
+<ROOM QUILBOZZA-BEACH
+      (LOC ROOMS)
+      (DESC "Quilbozza Beach")
+      (REGION "Port Foozle")
+      (LDESC
+"You are on a wide beach of fine pinkish-white sand. The ocean stretches
+west to the horizon. Due to the low tide, it looks as if you could travel
+north. In addition, tunnels open to the northeast and southeast.")
+      (NORTH TO SANDBAR)
+      (NE TO SALTY-SMELL)
+      (SE TO WARNING-ROOM)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM BEACH)
+      (ADJECTIVE QUILBOZZA)
+      (GLOBAL FLATHEAD-OCEAN)
+      (RESEARCH
+"\"Quilbozza, just south of Port Foozle, is considered the nicest beachfront
+in the eastlands, if not all of Quendor.\"")
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-2>)
+      (ICON QUILBOZZA-BEACH-ICON)
+      (ACTION QUILBOZZA-BEACH-F)>
+
+<ROUTINE QUILBOZZA-BEACH-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <PROB 40>
+		     <NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>>
+		<TELL "   A wave crashes against the beach." CR>)>>
+
+<ROOM WARNING-ROOM
+      (LOC ROOMS)
+      (DESC "Warning Room")
+      (REGION "Port Foozle")
+      (LDESC
+"You are in a tunnel which curves northwest and northeast. The tunnel rises
+at the latter end, and passes a large, eye-catching sign.")
+      (NW TO QUILBOZZA-BEACH)
+      (DOWN TO QUILBOZZA-BEACH)
+      (NE TO ROOM-OF-THREE-DOORS)
+      (UP TO ROOM-OF-THREE-DOORS)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL SIGN)
+      (ICON WARNING-ROOM-ICON)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-3>)>
+
+<ROOM ROOM-OF-THREE-DOORS
+      (LOC ROOMS)
+      (DESC "Room of Three Doors")
+      (REGION "Port Foozle")
+      (SW TO WARNING-ROOM)
+      (OUT TO WARNING-ROOM)
+      (IN SORRY "Pick a door... any door...")
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>)
+      (ICON ROOM-OF-3-DOORS-ICON)
+      (ACTION ROOM-OF-THREE-DOORS-F)>
+
+<GLOBAL VERITASSI-DOOR <>>
+
+<GLOBAL PREVARICON-DOOR <>>
+
+<GLOBAL WISHYFOO-DOOR <>>
+
+<GLOBAL WRITING-CHANGED <>>
+
+<ROUTINE ROOM-OF-THREE-DOORS-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"Before you are three doors: left, center, and right. All three doors are
+closed, and have writing on them. In addition, a tunnel leads southwest.">)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     ,WRITING-CHANGED>
+		<SETG WRITING-CHANGED <>>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The writing on the doors appears to have changed since the last time
+you were here." CR>)
+	       (<EQUAL? .RARG ,M-ENTER>
+		<COND (<FSET? ,ROOM-OF-THREE-DOORS ,TOUCHBIT>
+		       <SETG WRITING-CHANGED T>)>
+		<COND (<PROB 33>
+		       <SETG VERITASSI-DOOR ,LEFT-DOOR>
+		       <COND (<PROB 50>
+			      <SETG PREVARICON-DOOR ,RIGHT-DOOR>
+			      <SETG WISHYFOO-DOOR ,CENTER-DOOR>)
+			     (T
+			      <SETG PREVARICON-DOOR ,CENTER-DOOR>
+			      <SETG WISHYFOO-DOOR ,RIGHT-DOOR>)>)
+		      (<PROB 50>
+		       <SETG VERITASSI-DOOR ,RIGHT-DOOR>
+		       <COND (<PROB 50>
+			      <SETG PREVARICON-DOOR ,LEFT-DOOR>
+			      <SETG WISHYFOO-DOOR ,CENTER-DOOR>)
+			     (T
+			      <SETG PREVARICON-DOOR ,CENTER-DOOR>
+			      <SETG WISHYFOO-DOOR ,LEFT-DOOR>)>)
+		      (T
+		       <SETG VERITASSI-DOOR ,CENTER-DOOR>
+		       <COND (<PROB 50>
+			      <SETG PREVARICON-DOOR ,LEFT-DOOR>
+			      <SETG WISHYFOO-DOOR ,RIGHT-DOOR>)
+			     (T
+			      <SETG PREVARICON-DOOR ,RIGHT-DOOR>
+			      <SETG WISHYFOO-DOOR ,LEFT-DOOR>)>)>)>>
+
+<OBJECT LEFT-DOOR
+	(LOC ROOM-OF-THREE-DOORS)
+	(DESC "left door")
+	(SYNONYM DOOR WRITING)
+	(ADJECTIVE LEFT FIRST)
+	(FLAGS DOORBIT NDESCBIT)
+	(OWNER LEFT-DOOR) ;"read writing on door"
+	(ACTION THREE-DOORS-F)>
+
+<OBJECT RIGHT-DOOR
+	(LOC ROOM-OF-THREE-DOORS)
+	(DESC "right door")
+	(SYNONYM DOOR WRITING)
+	(ADJECTIVE RIGHT THIRD)
+	(FLAGS DOORBIT NDESCBIT)
+	(OWNER RIGHT-DOOR) ;"read writing on door"
+	(ACTION THREE-DOORS-F)>
+
+<OBJECT CENTER-DOOR
+	(LOC ROOM-OF-THREE-DOORS)
+	(DESC "center door")
+	(SYNONYM DOOR WRITING)
+	(ADJECTIVE CENTER MIDDLE SECOND)
+	(FLAGS DOORBIT NDESCBIT)
+	(OWNER CENTER-DOOR) ;"read writing on door"
+	(ACTION THREE-DOORS-F)>
+
+<ROUTINE THREE-DOORS-F ()
+	 <COND (<VERB? READ>
+		<TELL
+"\"Attention:|
+1. This door does not lead to Prevaricon territory.|
+2. The ">
+		<COND (<PRSO? ,VERITASSI-DOOR>
+		       <TELL D ,PREVARICON-DOOR " does not lead to Wishyfoo">)
+		      (<PRSO? ,PREVARICON-DOOR>
+		       <TELL D ,WISHYFOO-DOOR " does not lead to Wishyfoo">)
+		      (T
+		       <TELL D ,VERITASSI-DOOR " does not lead to Veritassi">)>
+		<TELL " territory.\"" CR>)
+	       (<VERB? OPEN ENTER>
+		<TELL
+"As you open it, a strong draft sucks you through the doorway. You stumble
+down a steep incline" ,ELLIPSIS>
+		<COND (<PRSO? ,WISHYFOO-DOOR>
+		       <GOTO ,WISHYFOO-TERRITORY>)
+		      (T
+		       <HLIGHT ,H-BOLD>
+		       <COND (<PRSO? ,VERITASSI-DOOR>
+			      <TELL "Veritassi">)
+			     (T
+			      <TELL "Prevaricon">)>
+		       <TELL " Territory" CR>
+		       <HLIGHT ,H-NORMAL>
+		       <JIGS-UP
+"   You are immediately fed to ravenous hellhounds.">)>)>>
+
+<ROOM WISHYFOO-TERRITORY
+      (LOC ROOMS)
+      (DESC "Wishyfoo Territory")
+      (REGION "Port Foozle")
+      (LDESC
+"You are in a medium-sized cavern, which appears to have been recently
+occupied. The steep passage which brought you here leads southwest. Also,
+a passage just large enough to fit through leads downward.")
+      (SW SORRY "The passage is too steep to climb back.")
+      (UP SORRY "The passage is too steep to climb back.")
+      (DOWN TO FORK)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (VALUE 6)
+      (MAP-LOC <PTABLE FOOZLE-MAP-NUM WISHYFOO-ICON-LOC MAP-GEN-X-4>)
+      (ICON WISHYFOO-ICON)>
+
+<OBJECT SHOVEL
+	(LOC WISHYFOO-TERRITORY)
+	(DESC "shovel")
+	(SYNONYM SHOVEL)
+	(SIZE 20)
+	(FLAGS TAKEBIT)>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/hints.zil b/hints.zil
new file mode 100644
index 0000000..baf7837
--- /dev/null
+++ b/hints.zil
@@ -0,0 +1,1121 @@
+"HINTS for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT HINTS>
+
+;"Longest hint topic and longest question can be one line, unless it shares
+a line with another such in the other column. Each question can have up to
+16 answers."
+
+<CONSTANT HINTS
+  <CONSTRUCT-HINTS HINT-COUNTS ;"Put topics in Quotes - followed by PLTABLEs
+				 of Questions and Answers in quotes"
+	;"17 character wide"
+	;"this set of quotes is 36 chars. wide"
+	"PROLOGUE"
+	<PLTABLE "surviving Megaboz's attack"
+		 "Just DIVE UNDER A TABLE when everyone else does.">
+	<PLTABLE "getting the scrap of parchment"
+		 "After Megaboz's departure, just get out from under the
+table. You can now pick up the scrap.">
+	<PLTABLE "saving Dimwit from the evil witch"
+		 "Don't go on until you've read the enchanted fairy tale book."
+		 "First you must get to the parapet area."
+		 "Then say DIMWIT, DIMWIT, LET DOWN YOUR GOLDEN HAIR."
+		 "There is no evil witch. There is no enchanted fairy tale
+book. And there is no reason that you should be reading this hint, unless
+you want to ruin the game for yourself by looking at hints you don't need!">
+	"GREAT HALL AREA"
+	<PLTABLE "opening the portcullis"
+		 "Ring the bell."
+		 "Answer the jester's riddle!"
+		 "ANSWER \"TIME\"">
+	<PLTABLE "the four torches"
+		 "Two of the torches are already burned out and the other two
+burn out within about 12 turns. Not too useful, eh?"
+		 "See the hints about finding a permanent light source
+in the General Questions section.">
+	<PLTABLE "about the cauldron"
+		 "See the hints about the goal of the game in the General
+Questions section.">
+	<PLTABLE "reading the rebus"
+		 "You'll have to remove those flattened animals."
+		 "Something in the vicinity of the Gallery does something
+regarding the rebus."
+		 "The key-shaped button in the closet. See the hints about
+these buttons in the General Questions section."
+		 "You probably won't be able to remove all the animals
+until almost the very end of ZORK ZERO."
+		 "Once you've removed all the animals, you should be able
+to decipher the rebus -- if you've noticed one key point."
+		 "Look at the \"N\" in the upper left corner of the rebus."
+		 "It's a mirror image of an \"N.\" In fact, the entire rebus
+is a mirror image. Read it from right to left."
+		 "The rebus, in text form, reads: (first line) TIE + BIRD - B
++ PIE + N (second line) EYE + URN + MIND - D (third line) W + OAR (fourth line)
+MATCH + CHICK + STORM - M"
+		 "This forms the words (first line) \"tired pine\" (second
+line) \"iron mine\" (third line) \"wore\" (fourth line) \"magic store.\" Now
+you just have to figure out what to do with these words!\"">
+	<PLTABLE "opening the walnut"
+		 "You can't open the nutshell without a tool."
+		 "Namely, a nutcracker. Magic is also involved."
+		 "Don't go on until you've found the magic wand
+and know what it does."
+		 "The wand can turn something into a nutcracker."
+		 "Point wand at lobster."> 
+	"EAST WING"
+	<PLTABLE "opening the door in East Hall"
+		 "You'll need a key from another section of the game."
+		 "It's the iron key from the Solar (in the secret wing).">
+	<PLTABLE "Encyclopedia Frobozzica"
+		 "It's extremely useful for reading about all sorts of
+interesting things. For example, try READ ABOUT MEGABOZ.">
+	<PLTABLE "using the wand"
+		 "Have you read the writing on the wand?"
+		 "You can find out what the wand does by looking up
+\"Fisha\" in the encyclopedia."
+		 "Try pointing the wand at various living creatures to
+see what they turn into."
+		 "For example, the flamingo turns into a lawn ornament.
+Anything inanimated using the wand will return to its former state after
+16 turns. Also, the wand can only be used 5 times, so don't waste it!">
+	<PLTABLE "Tower of Bozbar"
+		 "To find out the rules, read about Tower of Bozbar
+in the encyclopedia."
+		 "To move the tower to (for example) the right peg, you must
+get the 6-ugh weight to the right peg without crushing any other weight.
+Therefore, you must get the 5-ugh weight to the left peg without crushing
+other weights. And so on..."
+		 "Here are the keystrokes required to move the pile of weights
+to the left peg: 1R 2L 1L 3R 1C 2R 1R 4L 1L 2C 1C 3L 1R 2L 1L 5R 1C 2R 1R 3C
+1L 2C 1C 4R 1R 2L 1L 3R 1C 2R 1R 6L 1L 2C 1C 3L 1R 2L 1L 4C 1C 2R 1R 3C 1L 2C
+1C 5L 1R 2L 1L 3R 1C 2R 1R 4L 1L 2C 1C 3L 1R 2L 1L."
+		 "When you \"win,\" you'll be able to get to a new room by
+going north from the Jester's Quarters."
+		 "There are three different Pyramid Rooms, depending on whether
+the six weights are on the left peg, the center peg, or the right peg.">
+	<PLTABLE "large arched door"
+		 "It cannot be opened unless all six Tower of Bozbar weights
+are on the same peg. See the Tower of Bozbar hints in this section.">
+	<PLTABLE "magic goggles"
+		 "Wear them."
+		 "Try looking at various things."
+		 "Try looking at a closed container with something inside,
+such as the package."
+		 "The goggles give you x-ray vision.">
+	"WEST WING"
+	<PLTABLE "opening the door in West Hall"
+		 "You'll need a key from another section of the game."
+		 "It's the steel key from the locker in the Garrison
+(in the bailey area).">
+	<PLTABLE "riddle of the West Wing"
+		 "You can't go west from the West Wing until you've
+solved the jester's puzzle. You must physically show him something that
+satisfies his conditions."
+		 "It's an object from a dark area of the castle."
+		 "The walnut from the Root Cellar."
+		 "You must open it in his presence (to prove that no one
+has seen it before) and then SHOW THE WALNUT TO THE JESTER."
+		 "To prove that no one will ever see it again,
+simply EAT THE WALNUT.">
+	<PLTABLE "winning Peggleboz"
+		 "Unfortunately, there's no good way to give hints for
+Peggleboz. There's no \"trick\" to it. Just keep trying, and if you finally
+give up, look at the next hint for one set of winning moves."
+		 "Move the peg at Q to G. Then S to Q. H to R. U to L. I to K.
+T to I. E to J. O to G. A to E. F to N. M to O. L to J. P to F. F to C. B to
+D. D to K. Q to G. E to J. O to G. Other solutions are possible.">
+	<PLTABLE "jester's shell game"
+		 "The jester is obviously pretty handy with magic, and is the
+sort of person who wouldn't be above cheating at a game like this."
+		 "You can point at various shells all day long, but it
+won't get you the zorkmid bill!"
+		 "You must use magic yourself, and catch the jester cheating."
+		 "You'll need a magical item from another area."
+		 "It's something from the East Wing. Don't read on unless
+you've been there."
+		 "The goggles from the Pyramid Room. Do you know what they do?"
+		 "They give you x-ray vision. If you go into the Gaming
+Room wearing them, you'll see where the zorkmid bill really is. Just
+point at that location.">
+	<PLTABLE "flying the dirigible"
+		 "First, ENTER THE GONDOLA."
+		 "Next, EXAMINE THE CONTROLS."
+		 "Since you're in Flatheadia now, PUSH THE RIGHT BUTTON."
+		 "Later, when you want to return from Fenshire,
+use the left button.">
+	"SECRET WING"
+	<PLTABLE "getting into the secret wing"
+		 "See the hints about finding a permanent light source
+in the General Questions section.">
+	<PLTABLE "getting the iron key"
+		 "When you try to take it the jester will ask you a riddle."
+		 "Don't take the riddle too literally. There's a trick to it."
+		 "\"...beginning of youth...center of
+eye...end of eternity...\""
+		 "...Youth...eYe...eternitY.."
+		 "ANSWER \"THE LETTER Y\"">
+	<PLTABLE "magic glove"
+		 "Putting the glove on gives you additional
+sensory keeness and dexterity.">
+	<PLTABLE "magic cloak"
+		 "Wear it."
+		 "You've been teleported to a strange new region. See the
+hints about the Plain in that section.">
+	<PLTABLE "getting the fly"
+		 "See the hints about flies in the General Questions section.">
+	<PLTABLE "getting out of the Oubliette"
+		 "A few turns after picking up the seaman's cap, the jester
+should appear and ask a riddle."
+		 "It will help if you think of \"twins\" as \"doublets.\""
+		 "ANSWER \"A TRIPLET\"">
+	<PLTABLE "Torture Chamber ticking noise"
+		 "Just look inside each of the torture devices.">
+	<PLTABLE "cobwebs in the Cell"
+		 "You want to clear them away, but you can't do it by hand."
+		 "You need a cleaning implement, which you'll find
+in a later section."
+		 "The broom from winning Double Fanucci in Port Foozle.">
+	<PLTABLE "Crypt"
+		 "See the General Questions hints about the funny paper.">
+	<PLTABLE "Oracle"
+		 "Read about the Oracle of Bargth in the encyclopedia."
+		 "The oracle can do amazing things -- if activated. See
+anything that might activate it?"
+		 "There's that depression on the forehead."
+		 "You must put something in the depression."
+		 "Something from the lake area."
+		 "The moby ruby from the Lake Bottom."
+		 "Once you've put the ruby in the depression, you can use
+the oracle. Don't expect it to talk to you though."
+		 "ENTER THE ORACLE'S MOUTH. This will transport
+you to a new region!"
+		 "But wait -- there's more! Have you found the amulet?"
+		 "Notice any similarities between the
+amulet and the oracle?"
+		 "They're both serpent's heads with four eyes. Examine the
+amulet at several different times."
+		 "Every four turns, the amulet will display a different
+number of open eyes."
+		 "The oracle will transport you to a different region
+depending on how many eyes are open on the amulet."
+		 "When no eyes are open, you'll go to the Crag. One eye -->
+Glacier. Two eyes --> Delta. Three eyes --> Foot of Statue. All four eyes -->
+Mine Entrance."> 
+	"BAILEY/VILLAGE AREA"
+	<PLTABLE "opening the drawbridge"
+		 "You can't open it from the Barbican..."
+		 "...but you can from the Upper Barbican."
+		 "TURN THE WHEEL. This will raise and lower the drawbridge.">
+	<PLTABLE "opening the locker"
+		 "Try OPEN THE LOCKER.">
+	<PLTABLE "Ursula Flathead"
+		 "Don't read any further until you've summoned
+Ursula using the ouija board."
+		 "Examine Ursula's legs."
+		 "Nice legs, huh?"
+		 "There's no ouija board and no way to summon Ursula
+Flathead. If you read hints about areas you're not stuck at, you'll
+ruin the game for yourself!">
+	<PLTABLE "opening the doors at Perimeter Wall"
+		 "\"It would take the power of a mighty wizard...\""
+		 "...such as Megaboz."
+		 "You won't be able to open these doors until you've
+stopped the Curse.">
+	<PLTABLE "URS Office riddle"
+		 "Read it carefully."
+		 "ANSWER \"BOOKKEEPER\"">
+	<PLTABLE "pigeon and perch"
+		 "The address on the package should give you a clue."
+		 "The pigeon is some kind of homing pigeon -- and the
+perch is presumably its \"home.\""
+		 "Have you noticed anything unusual about the behavior
+of the pigeon, such as when you pick it up."
+		 "The address on the package refers to FrobozzCo Bldg, 193-E.
+If you go to the 193rd floor and go east, you'll find a clue -- but you
+should be able to figure it out without it."
+		 "Try dropping both the pigeon and perch, and
+picking up the pigeon."
+		 "Try dropping the perch in one room, the pigeon in another,
+and picking up the pigeon."
+		 "The pigeon is a teleportation device. When a person, such
+as yourself, takes the pigeon, it teleports that person to the location of
+the perch. This can be quite useful.">
+	<PLTABLE "climbing the FrobozzCo Building"
+		 "Since you have no rappelling equipment, you'd best do
+your climbing INSIDE the building."
+		 "Have you found the memo on the fourth floor?"
+		 "Don't bother trying to find any of those
+teleportation tokens. The memo is just a \"red herring.\" You'll have
+to climb the building on foot."
+		 "Of course, other than your driving curiosity, there's
+no reason to go all the way to the top.">
+	"LOWER LEVELS"
+	<PLTABLE "opening the vault"
+		 "You'll need something from elsewhere."
+		 "Have you found anything which increases your dexterity?"
+		 "Wearing the glove from the Magic Clothes Closet, turn the
+dial to any number.">
+	<PLTABLE "getting the brass lantern"
+		 "You'll need something from elsewhere."
+		 "Have you been to the Cave-In?"
+		 "THROW THE ANTI-PIT BOMB when you're in Pits.">
+	<PLTABLE "Testing Room booths"
+		 "Have you entered either booth? Pushed the black button?"
+		 "Try dropping one (and only one) thing in one booth, getting
+in the other booth, and pushing the button."
+		 "The above procedure turns you into whatever you put
+in the first booth. This is useful for solving a puzzle from another
+part of the game.">
+	<PLTABLE "snake"
+		 "As long as there's a snake in the cage, you can't
+open the cage...and live."
+		 "When is a snake not a snake?"
+		 "Have you found the magic wand and used it on the snake?"
+		 "Once you've turned the snake into a rope, you can safely open
+the cage. The rope is useful elsewhere.">
+	"G. U. HIGHWAY"
+	<PLTABLE "Construction site"
+		 "First, refer to the blueprint of this area that came in your
+Zork Zero package."
+		 "You want to get to the room where Quizbo left his hardhat,
+but it isn't currently accessible."
+		 "You can get a lot closer using the Frobozz Magic Passages."
+		 "The closest you can get is room #17."
+		 "Have you noticed any similarity between the Construction
+area geography and the geography of any other section of the game?"
+		 "Count the number of rooms in the Construction area. Don't
+go on until you've been somewhere else with the same number of rooms."
+		 "The Plain. There's a connection between it and the
+Construction area. Read the hints about the Plain."
+		 "Look at the relationship of room #17 and the hardhat room."
+		 "You need someone's help..."
+		 "...someone who can \"jump\" over the walls between you
+and the hardhat..."
+		 "...such as the black knight or the white knight."
+		 "You must figure out a way to get one of the
+knights to room #17."
+		 "See the question about the pigeon and perch."
+		 "Leave the perch in room #17, and give the pigeon to one
+of the knights. Return to room #17 by removing the cloak. The knight will
+have picked up the perch."
+		 "Next, take the pigeon, and give the knight directions to
+send him to the hardhat room. Drop the pigeon, and pick it up again to
+teleport yourself to the hardhat room."
+		 "Reverse the process to get the knight and yourself back
+to room #17. Take the hardhat from the knight, and wend your way back out
+of the Construction area. That's all, folks! There's no other purpose of the
+chess/Plain area besides supplying you with a knight!">
+	<PLTABLE "the jester's middle name"
+		 "Any wrong guess will give you a clue."
+		 "\"I should know...I LOOKED IT UP this morning.\""
+		 "Go to the Library and read about the jester.">
+	<PLTABLE "getting past the toll gate"
+		 "Examine the toll gate."
+		 "You can get a coin at the URS Office in the village."
+		 "Put the coin in the basket.">
+	<PLTABLE "crossing the fissure"
+		 "No way, Jose.">
+	<PLTABLE "entering the rest stop"
+		 "You can't.">
+	"PORT FOOZLE"
+	<PLTABLE "giant sandcrab"
+		 "Use the tartar sauce."
+		 "There's no giant sandcrab in ZORK ZERO.">
+	<PLTABLE "Inquisition"
+		 "You need to go in there to get the box and its contents.
+Then of course, you need to get out alive."
+		 "It's a logic puzzle. Read the rules, and think about
+their implication."
+		 "When it's your turn, you need to ask the executioner
+one particular request."
+		 "Upon entering, take a ticket. When your number is
+called, say EXECUTIONER, BEHEAD ME. (Don't forget to pick up the box
+while you're waiting.)">
+	<PLTABLE "playing Double Fanucci"
+		 "Just play for a while, have fun, and try to deduce rules."
+		 "For one thing, everything is consistent. For example, every
+time you single-play the Seven of Plungers, you will get the same result."
+		 "So, if a particular play is illegal (the jester won't
+let you do it) that will always be true."
+		 "There are, however, far too many rules for you to ever
+learn them all. Also, when either player exceeds a score of 1241 points,
+the game ends in a tie."
+		 "You can cheat to your heart's content..."
+		 "...but to win, you need an indefensible gambit."
+		 "Sound familiar?"
+		 "Re-read your calendar."
+		 "Specifically, the bio of Babe Flathead."
+		 "Now that you know an indefensible gambit, wait for your
+opening and play it! (If any of the plays during your gambit are illegal,
+you're out of luck -- you'll just have to try again later.)">
+	<PLTABLE "Room of Three Doors"
+		 "Read the sign in the Warning Room. Also read each
+of the three doors."
+		 "This is just a straightforward logic puzzle. You must
+solve it every time you enter this room, because the signs on the doors
+are randomized each time."
+		 "Make a list of all six possible combinations of
+doors:  1) Wishyfoo - Prevaricon - Veritassi  2) W - V - P  3)
+V - W - P  4) V - P - W  5) P - W - V  6) P - V - W"
+		 "Now, using the rules from the sign in the Warning Room,
+and the facts on each of the three doors, test the six combinations. Only
+one combination will fit all the rules."
+		 "If you're still stuck, or want to save time in future
+visits to this area, here's a convenient rule: the door to Wishyfoo Territory
+is the one door whose sign mentions the Veritassi in statement #2.">
+	"LAKE/DESERT AREA"
+	<PLTABLE "royal yacht"
+		 "\"You need nautical gear.\""
+		 "Have you seen anything a sailor might wear?"
+		 "You must be wearing the seaman's cap from the Oubliette."
+		 "Pushing each of the four colored buttons will send you
+to a different shore. Pushing the white button will send you to the center
+of the lake.">
+	<PLTABLE "bathysphere"
+		 "You must be in it."
+		 "You should close the door."
+		 "PUSH THE LEVER DOWN to lower the bathysphere."
+		 "The diving bell won't work when the yacht is docked
+at the shore, only when it's in the center of the lake.">
+	<PLTABLE "that darn squid"
+		 "You won't be able to get that ruby until you
+deal with the squid."
+		 "Don't look any further until you've explored Port Foozle."
+		 "You need something from the Inquisition. See those hints."
+		 "The pellet of squid repellent. Read the
+instructions on the box."
+		 "You must get the pellet into the vicinity of the squid."
+		 "You can drop it in the Hold..."
+		 "...then go into the bathysphere and use the
+waldo to pick it up..."
+		 "...then drop it when you get to Lake Bottom. You'll
+then be able to pick up the ruby in the waldo, unmolested."
+		 "Aternately, you could throw the pellet off the yacht
+when you're in the center of the lake; it will sink to Lake Bottom.">
+	<PLTABLE "Philharmonic Hall"
+		 "Something in the room's description is highlighted."
+		 "Or, should we say, \"spotlighted.\""
+		 "The conductor's stand. STAND ON THE STAND."
+		 "To get back from the Conductor's Pit, get off the stand and
+then stand on it again.">
+	<PLTABLE "Theatre"
+		 "There's nothing important here.">
+	<PLTABLE "crossing the bridge"
+		 "Try CROSS THE BRIDGE."
+		 "There's no way to cross the stream. However, if you answer
+the jester's riddle here, you'll get the object that was on the other side
+of the stream.">
+	<PLTABLE "riddle of the four men"
+		 "The men were not playing cards or any other kind of game.
+Reread the riddle with that in mind."
+		 "Key words are \"play\" and \"score.\""
+		 "The men were musicians in a band. ANSWER \"MUSIC.\"">
+	<PLTABLE "riding the camel"
+		 "First, get on the camel."
+		 "Then, just type the direction you want to move in,
+as you normally do."
+		 "The camel will only enter the desert if \"watered.\""
+		 "Ride the camel to the Stream. He will now be willing
+to enter the desert. Once in the desert, you must locate the Great
+Underground Oasis, which will be useful later.">
+	<PLTABLE "riding the unicorn"
+		 "First, get on the unicorn."
+		 "It looks as if you can't ride a unicorn.">
+	<PLTABLE "boulder"
+		 "Try PUSH THE BOULDER."
+		 "If you don't want to sink the yacht, leave it docked at the
+South Shore when you push the boulder.">
+	<PLTABLE "bowl of elixir"
+		 "You can't drink the elixir without a straw."
+		 "There's a straw in the Kitchen, but if you've already
+tried, you know that it's deadly to drink the elixir. You want to do
+something else with the elixir."
+		 "You simply want to touch the elixir."
+		 "Since the bowl is so narrow, you can't reach the elixir --
+at its current level."
+		 "But there's a way to raise the level of the elixir."
+		 "Have you ever gone DOWN from the Grotto?"
+		 "Put the gravel in the bowl."
+		 "Each of the first three times you slide down the chute from
+the Grotto, you'll get a pile of gravel. If you put all three in the bowl, the
+level of the elixir will be raised enough to touch it."
+		 "Now that you've touched the elixir, do you have a clue about
+what you've accomplished?"
+		 "The description you get from touching the elixir contains a
+clue. Also, look up St. Foobus in the encyclopedia."
+		 "The elixir has given you \"power over small insects.\""
+		 "Such as flies."
+		 "You can now take all the flies.">
+	"CRAG & ENVIRONS"
+	<PLTABLE "getting to the lower ledge"
+		 "The spire is important."
+		 "You need to tie a rope to the spire."
+		 "You won't find a rope anywhere..."
+		 "...but you can \"make\" one..."
+		 "...using magic."
+		 "Have you found the magic wand? Read the hints about it."
+		 "Turn the snake into a rope, tie the rope to the spire, and
+climb down. The snake will only stay a rope for 16 turns, so you have few
+turns to waste.">
+	<PLTABLE "Enchanted Cave"
+		 "Read about Zilbeetha in the encyclopedia."
+		 "You must find the orb in which Zilbeetha is imprisoned."
+		 "You'll find four orbs beyond the toll gate."
+		 "You must identify the correct orb or else
+(like many before you) you will die."
+		 "There's a location somewhere in Zork Zero where the true
+essence of a magically-imbued item can be seen."
+		 "It's somewhere \"beyond\" the oracle."
+		 "It's the Mirror Lake below the Glacier."
+		 "Look at each of the orbs in the mirror."
+		 "Now return to the Enchanted Cave with Zilbeetha's orb
+and place it on the altar. The fragile flower is your prize.">
+	<PLTABLE "hexagonal hole"
+		 "Most likely, when you're able to solve this
+puzzle, you'll know it."
+		 "You must get a hexagonal block from somewhere in Fenshire."
+		 "By solving the borphbelly stew puzzle."
+		 "Put the hexagonal block into the hexagonal hole.">
+	<PLTABLE "getting back to Flatheadia"
+		 "There are a couple of ways. One involves something
+from the lake area."
+		 "It something which has an obvious link with the oracle."
+		 "It's the amulet from the Great Underground Mountain.
+(See the oracle hints.)"
+		 "To get back, you simply need to rub the amulet..."
+		 "...while wearing it."
+		 "The other method involves the pigeon and
+perch. See those hints."
+		 "Just leave the pigeon somewhere in Flatheadia, bring the
+pigeon with you when you enter the oracle, and use it to teleport back.">
+	"GLACIER"
+	<PLTABLE "surviving the climb down"
+		 "You'll never make it on foot."
+		 "You must ride something."
+		 "The toboggan from the Kennel.">
+	<PLTABLE "mirror"
+		 "The mirror has certain magical properties."
+		 "LOOK AT THE MIRROR."
+		 "As suggested by the previous response, look at the reflection
+of various things in the mirror."
+		 "The mirror reveals the unseen essence of magically-imbued
+items, such as the amulet, pigeon, wand, etc."
+		 "You'll need the mirror to solve a puzzle which you'll
+come across elsewhere."
+		 "Specifically, the Enchanted Cave puzzle.">
+	<PLTABLE "Chalet"
+		 "To get to Frank Lloyd Flathead's chalet, you have
+to get off Mirror Lake."
+		 "In addition to its magical properties, the lake also seems
+to be a frictionless surface, making walking impossible."
+		 "Other methods of propulsion are possible, though."
+		 "Throw something. You can pick a direction, if you like, and
+you'll go in the opposite direction. Otherwise, you'll go in a random
+direction. For example, THROW TOBOGGAN NORTH.">
+	<PLTABLE "getting back to Flatheadia"
+		 "There are a couple of ways. One involves something
+from the lake area."
+		 "It something which has an obvious link with the oracle."
+		 "It's the amulet from the Great Underground Mountain.
+(See the oracle hints.)"
+		 "To get back, you simply need to rub the amulet..."
+		 "...while wearing it."
+		 "The other method involves the pigeon and
+perch. See those hints."
+		 "Just leave the pigeon somewhere in Flatheadia, bring the
+pigeon with you when you enter the oracle, and use it to teleport back.">
+	"DELTA"
+	<PLTABLE "Help! I'm lost"
+		 "There's a common method in interactive fiction for mapping
+maze-like regions. It's a way to make seemingly identical rooms non-identical."
+		 "Drop a different object in each room. Then you'll be able
+to map the geography with no trouble!"
+		 "Delta locations will appear on the on-screen map only if
+you've dropped an object there.">
+	<PLTABLE "toad and spyglass"
+		 "You must ask the toad for the spyglass."
+		 "But he'll only allow himself to be addressed by his
+proper name. You must find out his name."
+		 "Look to your packaging."
+		 "More specifically, the calendar."
+		 "More specifically, the biography on John Paul Flathead."
+		 "Now that you know the toad's name, ask him for the spyglass."
+		 "The flies which you've probably run across in various
+places are the Four Fantastic Flies of Famathria. See the hints in General
+Questions about the flies."
+		 "Once you've gotten all four flies, give them to the toad
+and ask him again for the spyglass.">
+	<PLTABLE "riddle of the lily pad"
+		 "Read the riddle again carefully, noting the various
+puns and allusions."
+		 "The key words are \"fool,\" \"nonsense,\"
+and \"wildebeest.\""
+		 "There's no riddle of the lily pad. You shouldn't have
+even been looking at these hints!">
+	<PLTABLE "getting back to Flatheadia"
+		 "There are a couple of ways. One involves something
+from the lake area."
+		 "It something which has an obvious link with the oracle."
+		 "It's the amulet from the Great Underground Mountain.
+(See the oracle hints.)"
+		 "To get back, you simply need to rub the amulet..."
+		 "...while wearing it."
+		 "The other method involves the pigeon and
+perch. See those hints."
+		 "Just leave the pigeon somewhere in Flatheadia, bring the
+pigeon with you when you enter the oracle, and use it to teleport back.">
+	"FUBLIO VALLEY"
+	<PLTABLE "opening Megaboz's trap door"
+		 "You can't reach it without help."
+		 "There's a ladder elsewhere in the game."
+		 "In Fenshire."
+		 "See the hints about the vase."
+		 "Once you have the ladder, put it down, stand on it, and
+open the trap door.">
+	<PLTABLE "opening Megaboz's trunk"
+		 "The poem in Megaboz's hut is the key to finding the key."
+		 "You must find the words to fill in the blanks."
+		 "The blank words come from the rebus. See those hints."
+		 "As the complete poem indicates, you must stand in a
+shade of a tired pine. Find it."
+		 "It's at the Quarry's Edge. You must be in the Quarry to
+be in the tree's shadow."
+		 "Furthermore, you must be wearing the ring of ineptitude
+from the Magic Shop (in Flatheadia) and carrying the sapphire from the iron
+mine (near the Crag)."
+		 "If you've satisfied those three conditions, a key will
+appear that will open the trunk.">
+	<PLTABLE "getting the four-gloop vial"
+		 "There's no way without getting zapped with the hunger spell."
+		 "You'll have to find something to eat."
+		 "There's nothing in the entire game that's edible by a
+human (except the walnut, which isn't enough for a meal)."
+		 "But there are several things which are edible by animals."
+		 "Too bad you're not an animal."
+		 "For example, if you were a flamingo, you could eat the
+flamingo food from the closet near the Gallery."
+		 "See the hints about the booths in the Laboratory..."
+		 "...and about the wand.">
+	<PLTABLE "toe fungus"
+		 "Have you seen any other fungus?"
+		 "Remember these two groups of fungi;
+they'll be important later."
+		 "See the hints about the witches in the Antharia section.">
+	<PLTABLE "getting back to Flatheadia"
+		 "There are a couple of ways. One involves something
+from the lake area."
+		 "It something which has an obvious link with the oracle."
+		 "It's the amulet from the Great Underground Mountain.
+(See the oracle hints.)"
+		 "To get back, you simply need to rub the amulet..."
+		 "...while wearing it."
+		 "The other method involves the pigeon and
+perch. See those hints."
+		 "Just leave the pigeon somewhere in Flatheadia, bring the
+pigeon with you when you enter the oracle, and use it to teleport back.">
+	"ANTHARIA"
+	<PLTABLE "entering the mine and surviving"
+		 "Yes. You'll need something, though. Look to your
+packaging for inspiration."
+		 "You'll need the hardhat that's mentioned in the note
+attached to your blueprint. See the hints about the construction site.">
+	<PLTABLE "picking up the club"
+		 "It's enchanted."
+		 "You need the help of others."
+		 "Met the witches in the Icky Cave? If not, read the
+TID BITZ from Ottobur (on your calendar) to find out how to summon them."
+		 "Try speaking to the witches. If you do what they want,
+they'll remove the enchantment on the club.">
+	<PLTABLE "that darn black bird"
+		 "There's no way to keep the bird from snatching
+your light source."
+		 "But the bird will only snatch one light source for
+each turn you're in the Aerie."
+		 "So, if you had two light sources, and didn't dawdle,
+you could get light into the cave."
+		 "Bring both the candle from the Secret Passage and the brass
+lantern from the Pits."
+		 "Once you're in the Icky Cave with a light source, consult
+the Ottobur TID BITZ (in the calendar from your package) to learn how to
+summon the witches.">
+	<PLTABLE "helping the witches, part 1"
+		 "Talk to either witch. Example: SICKLY WITCH, HELLO."
+		 "To fulfill the witches' task, you'll need to get
+to the Great Underground Oasis. It's beyond the desert to the south of
+Lake Flathead. See the hints about the desert."
+		 "It's impossible to measure exactly six gloops using only the
+nine-gloop vial, since the vial isn't calibrated. You need something else."
+		 "You need the four-gloop vial from Gumboz's Shack in the
+Fublio Valley. See the hints about getting that vial."
+		 "Once you have both vials at the oasis, use the following
+procedure. (The numbers in brackets refer to the number of gloops that will
+be in the large and small vials after each step.) 1) fill the large vial
+[L:9,S:0] 2) pour the large vial into the small vial [L:5,S:4] 3) empty the
+small vial [L:5,S:0] 4) pour the large vial into the small vial [L:1,S:4]
+5) empty the small vial [L:1,S:0] 6) pour the large vial into the small
+vial [L:0,S:1] 7) fill the large vial [L:9,S:1] 8) pour the large vial into
+the small vial [L:6,S:4]"
+		 "To get the large vial with six gloops back to the witches,
+you'll have to use the yacht to cross the lake, since taking the chute from
+the Grotto will spill the oasis water.">
+	<PLTABLE "helping the witches, part 2"
+		 "Once you've given water to the witches, you'll discover
+that they need something else: brogmoid ear wax. Have you seen a
+brogmoid ear anywhere?"
+		 "Climb down the one pit that remains open in Pits after
+you throw the bomb. You'll eventually meet the giant brogmoid who holds
+up the world. But the passage into his ear is blocked by fungus."
+		 "There's a way to get the fungus to part. It involves magic."
+		 "If you haven't solved the Tower of Bozbar, see those hints."
+		 "The potion from the left-hand Pyramid Room is useful. If
+you don't know what it does, your calendar might be helpful."
+		 "Read the bio of Thomas Alva."
+		 "Fungus is a plant."
+		 "At the Ear, drink the potion and listen to the fungus."
+		 "The fungus would probably be very appreciative if you
+were to restore their long-lost cousin. Have you seen any other fungus?"
+		 "Have you been to Fublio Valley?"
+		 "Keep climbing up into the mountains, and you'll eventually
+get to the foot of the giant brogmoid who holds up the \"next\" world. There's
+more fungus there."
+		 "Drink more potion, then call the name of the lost cousin.
+[Note: this name changes each time you play.] For example, >CALL RALPH."
+		 "Take the little fungus, return to the Ear, and give it to
+the ear fungus. Now, go IN to the Inner Ear to get the ear wax."
+		 "Bring the ear wax back to the witches and give it to them.
+They will now remove the enchantment..."
+		 "...and the club in the stadium is now takeable!">
+	<PLTABLE "getting back to Flatheadia"
+		 "There are a couple of ways. One involves something
+from the lake area."
+		 "It something which has an obvious link with the oracle."
+		 "It's the amulet from the Great Underground Mountain.
+(See the oracle hints.)"
+		 "To get back, you simply need to rub the amulet..."
+		 "...while wearing it."
+		 "The other method involves the pigeon and
+perch. See those hints."
+		 "Just leave the pigeon somewhere in Flatheadia, bring the
+pigeon with you when you enter the oracle, and use it to teleport back.">
+	"MAREILON"
+	<PLTABLE "travelling in time"
+		 "You must be in the metal cage."
+		 "You select a destination year using the beaver pelts."
+		 "Don't forget to say the magic word, GEEKO.">
+	<PLTABLE "stopping the Endless Fire"
+		 "Have you been to Outside the Tavern?"
+		 "Examine the utility pole."
+		 "That red box is a fire alarm. Pull it."
+		 "The firemen will leave after seven turns
+unless you give them the glass wombat.">
+	<PLTABLE "the moss salesman"
+		 "Don't read on until you've been the to Moss Farm."
+		 "Are you aware that hedgehogs love moss?"
+		 "Are you aware that diamonds come from coal?"
+		 "Are you aware that good dental hygiene prevents cavities?"
+		 "Are you aware that there's no moss salesman in Zork Zero?
+Are you aware that there isn't even a scene in Mareilon? Are you aware that
+you shouldn't be reading this section? Are you aware?">
+	<PLTABLE "returning to Flatheadia"
+		 "You get back the same way you got here to Mareilon."
+		 "In other words, fantasize!">
+	"FENSHIRE"
+	<PLTABLE "fireplace"
+		 "If you could clean out the rubble, you might be able to
+climb up the chimney."
+		 "But you can't clean out the rubble."
+		 "This space intentionally left blank.">
+	<PLTABLE "mural"
+		 "Nice picture of a ladder, eh?">
+	<PLTABLE "vase"
+		 "What do you normally use a vase for?"
+		 "Seen a flower?"
+		 "You can get a flower if you solve the Enchanted Cave
+puzzle. Put the flower in the vase.">
+	<PLTABLE "Snarfem"
+		 "It's a math puzzle."
+		 "The number of pebbles in each pile can be translated
+into a binary form: 0=0, 1=1, 2=10, 3=11, 4=100, 5=101, 6=110, 7=111,
+8=1000, 9=1001. Then, add the four resulting numbers as though they were
+in base 10, not base 2. This sum should then be adjusted so that each
+digit is even (0, 2 or 4). Examine the four binary numbers, and determine
+which one must be reduced in order to create a sum whose digits are all
+even. Next, determine the number of pebbles you need to take from the
+appropriate pile in order to achieve the new binary number which will
+result in the all-even sum. That's your correct move for the current
+turn! For example, if you had piles of 7, 3, 9, and 2 pebbles, the
+binary equivalents would be 111, 11, 1001, and 10. The non-binary sum
+of those four numbers is 1133. If 1001 were reduced to 110, the new sum
+would be 242 -- all digits even! In order to change 1001 (binary 9) to
+110 (binary 6), remove 3 pebbles from pile 3. It's that simple!"
+		 "Some of you may be just a tad confused. Take heart!
+There's also a non-mathematical solution!"
+		 "As you play, watch the screen carefully."
+		 "Specifically, keep an eye on the blossoms."
+		 "Notice how they are constantly opening and closing.
+Notice any pattern?"
+		 "How many flowers are on each side?"
+		 "The four flowers on the left side are telling you (or the
+jester) which pile to select. The nine flowers on the right side indicate
+how many pebbles to remove from that pile."
+		 "If there's no \"correct\" move to make, all the blossoms
+will be closed. However, since you get to go first, if you keep making the
+\"correct\" move every turn, it will be the jester who will never have a
+\"correct\" move, and you will win every time!">
+	<PLTABLE "borphbelly stew"
+		 "To find out the ingredients, look up borphbelly
+stew in the encyclopedia."
+		 "Bring the three ingredients to the Marsh. The rooster
+and fox can be found on the far side of the lake, and the worm is found
+just beyond the castle portcullis."
+		 "If the jester has crossed the quicksand, you've got
+to bring the ingredients to him. But you can only carry one thing at a
+time across the rocks. Worse, the fox will eat the rooster if you leave
+them alone, and the rooster will eat the worm if you leave them alone."
+		 "Drop everything but the rooster. Cross the quicksand.
+Drop the rooster. Go back and get the fox. Cross the quicksand. Drop the
+fox and get the rooster..."
+		 "Go back, drop the rooster, and get the worm. Cross
+the quicksand and drop the worm. Finally, go back and get the rooster!">
+	 "PLAIN"
+	 <PLTABLE "explain the geography"
+		  "Walk around as much as you can, making a map and noticing
+how the descriptions change and the characters you meet."
+		  "You seem to be in a region of 64 locations..."
+		  "...arranged in an 8 by 8 matrix..."
+		  "...with alternating locations dark and light..."
+		  "...and various dark- and light-colored royal and
+martial characters."
+		  "You are on a giant chessboard.">
+	 <PLTABLE "explain the puzzle"
+		  "Don't read on until you understand the geography."
+		  "Although you're on a giant chessboard, this isn't a chess
+puzzle. (That is, you don't have to figure out how to checkmate one of the
+kings or whatever.) But you do need to know how chess pieces move."
+		  "Actually, there's no puzzle on the Plain at all; but the
+Plain DOES relate to another puzzle elsewhere in Zork Zero."
+		  "Have you seen a geography which is similar to the Plain?"
+		  "How many rooms are there in the Plain?"
+		  "There are also 64 rooms, arranged in a 8 by 8 matrix,
+in the Construction area! See those hints.">
+	 <PLTABLE "getting back from the Plain"
+		  "How did you get here?"
+		  "Just remove the cloak!">
+	 "THE JESTER"
+	 <PLTABLE "read this note about riddles!"
+		  "Riddle hints are in the sections relating
+to the location where you're asked the riddle.">
+	 <PLTABLE "killing the jester"
+		  "You can't. There's no way to get the jester to leave
+you alone. In fact, you wouldn't want him to -- he does some useful things
+as well as annoying things.">
+	 <PLTABLE "scroll"
+		  "The scroll is a word puzzle."
+		  "Try rearranging the letters in \"RAM A NAG.\""
+		  "They rearrange to \"ANAGRAM,\" of which this
+message is an example."
+		  "The scroll anagrams to \"ENTER LIBRARY;
+TOUCH ARMOR THRICE.\" So -- do so!">
+	 <PLTABLE "slate"
+		  "The first step is finding the tree in question. The dusty
+old slate refers to the tree as the oldest elm around."
+		  "Examine the slate."
+		  "The slate itself is very old!"
+		  "So, you're looking for what was the oldest elm tree
+around...a century ago!"
+		  "The elm in question has since died..."
+		  "...and is now the stump in the Outer Bailey."
+		  "Stand on the stump and follow the instructions
+on the slate (these directions vary each time you play). You've
+now identified a spot."
+		  "But, as you can tell by the fact that nothing
+happened, you're not done yet. Do these directions remind you of
+any sort of classic directions?"
+		  "They're just like the directions you might expect
+to find on a map leading to buried treasure!"
+		  "Once you've obtained the shovel from Wishyfoo
+Territory, follow the slate directions from the stump and dig a
+hole in the ground.">
+	 <PLTABLE "that pesky bedbug"
+		  "Re-read the jester's parting comment for a clue."
+		  "Also, examine the bedbug."
+		  "The bedbug is very, very tired."
+		  "You need to put it to sleep."
+		  "How would you normally put someone or something
+to sleep? Like a child, for instance..."
+		  "Try singing a lullaby, or yawning, or lying down,
+or going to sleep yourself..."
+		  "Alternately, you could use the wand, but that would
+waste precious wand shots.">
+	 <PLTABLE "funny paper"
+		  "Read it."
+		  "Once you've gotten to the Crypt, look under the
+slab mentioned in the funny paper! (The slab in question changes each
+time you play.)">
+	 "GENERAL QUESTIONS"
+	 <PLTABLE "permanent light source"
+		  "Forget the torches. They'll always burn out right
+away. Look elsewhere."
+		  "You software pirates might as well give up now."
+		  "Peruse your Lives of the Twelve Flatheads calendar."
+		  "Especially the Suspendur FUN FAX."
+		  "Do what this FUN FAX suggests, in order to find Dimwit's
+secret wing. You'll find a light source there. (Note: there are two locations
+where you could perform this act -- so try them both!)">
+	 <PLTABLE "goal of the game"
+		  "The key to stopping the Curse is contained on the
+scrap of parchment which fell out of Megaboz's pocket (and which is enclosed
+in your Zork Zero package). Read it carefully."
+		  "Only the long piece of writing toward the left-center of
+the scrap is important -- but some of it is cut off."
+		  "This missing text is:|
+   The Curse cannot...|
+   Except by...|
+   Tossing it...|
+   Then...|"
+		  "Good luck, Blackbeard.">
+	 <PLTABLE "all those key-shaped buttons"
+		  "Try pushing them, of course!"
+		  "The first time you push a button, it produces a sound.
+Do these sounds remind you of anything?"
+		  "The sounds are like the sounds made by certain animals..."
+		  "...specifically, the animals covering the rebus!"
+		  "Each time you push a button, one of the rebus animals
+will go away. There are six buttons, corresponding to the six animals,
+located in the Closet, the FrobozzCo Basement, the Grotto, the Crag,
+the Crawl, and the Attic.">
+	 <PLTABLE "getting the flies"
+		  "You can't catch them, even with the added help of the
+Frobozz Magic Glove."
+		  "You need to do something magical before you can get the
+flies. You'll probably know it when you come to it."
+		  "See the hints about the elixir in the Lake Area section.">
+	 "AS A LAST RESORT"
+	 <PLTABLE "read this note first"
+		  "Use this section as a last resort if you can't find the
+information you need anywhere else in the hints. The first part is a list
+of the 24 items you need, and where to find them. The second and third parts
+are a list of how all 1000 points are scored.">
+	 <PLTABLE "the Flathead Items, part 1"
+		  "The following hints each tell you everything you need
+to know about one Flathead Item: what it is, which Flathead it belongs to,
+and where to find it."
+		  "gaudy crown (Dimwit): buried in the Outer Bailey according
+to the slate puzzle"
+		  "sceptre (Dimwit): in the Throne Room"
+		  "diploma (John D.): solving the riddle at the Stream"
+		  "stock certificate (John D.): in the Vault"
+		  "saddle (Stonewall): in the Stable"
+		  "lance (Stonewall): inside the armor in the Library
+according the the scroll puzzle"
+		  "violin (Johann Sebastian): in the Conductor's Pit"
+		  "metronome (Johann Sebastian): hidden in the Torture Chamber"
+		  "zorkmid bill (J. Pierpont): winning the shell game
+in the Gaming Room."
+		  "silk tie (J. Pierpont): in the nest in the Aerie"
+		  "screwdriver (Thomas Alva): in the Laboratory"
+		  "brass lantern (Thomas Alva): in the Pits">
+	 <PLTABLE "the Flathead Items, part 2"
+		  "The following hints each tell you everything you need
+to know about one Flathead Item: what it is, which Flathead it belongs to,
+and where to find it."
+		  "landscape (Leonardo): on the Lower Ledge"
+		  "easel (Leonardo): also on the Lower Ledge"
+		  "flask (Lucrezia): behind the cobwebs in the Cell"
+		  "fan (Lucrezia): winning Snarfem in the Hothouse"
+		  "manuscript (Ralph Waldo): in the rightmost Pyramid Room
+which can be accessed by solving the Tower of Bozbar to the right peg"
+		  "quill pen (Ralph Waldo): in a Dead End of the granola mine"
+		  "seaman's cap (John Paul): in the Oubliette"
+		  "spyglass (John Paul): in one of the Delta rooms"
+		  "scale model (Frank Lloyd): in the Chalet"
+		  "t-square (Frank Lloyd): in the room of the FrobozzCo
+Building where Frank Lloyd had to move his office to due to acrophobia,
+according to his bio in the calendar"
+		  "club (Babe): in Flathead Stadium"
+		  "dumbbell (Babe): in the Gym">
+	 <PLTABLE "how all points are scored, part 1"
+		  "The list of points is broken down into four parts due to
+length. The hints in each part tell all the places in which your score
+increases, and the number of points (in parentheses)."
+		  "You get 12 points for getting each of the Flathead
+Items (12 x 24 = 288)"
+		  "You get 5 points for putting each Flathead Item in the
+\"right place\" (see \"goal of the game\") (5 x 24 = 120). You will also LOSE 5
+points if you put anything OTHER than a Flathead Item in the \"right place.\""
+		  "opening the portcullis (20)"
+		  "opening the Secret Passage (18)"
+		  "getting the iron key (20)"
+		  "leaving the Oubliette (20)"
+		  "entering the East Wing (8)"
+		  "entering the West Wing (8)"
+		  "winning Peggleboz (16)"
+		  "entering the center Pyramid Room (7)"
+		  "entering the left Pyramid Room (7)"
+		  "entering the right Pyramid Room (7)"
+		  "[continued in part 2]">
+	 <PLTABLE "how all points are scored, part 2"
+		  "[continued from part 1]"
+		  "solving the walnut riddle (20)"
+		  "getting the zorkmid coin (6)"
+		  "opening the toll gate (14)"
+		  "entering Wishyfoo Territory (6)"
+		  "getting out of the Inquisition (25)"
+		  "winning Double Fanucci (18)"
+		  "getting the anti-pit bomb (6)"
+		  "reaching the center of Lake Flathead (18)"
+		  "pushing the boulder (6)"
+		  "getting the moby ruby (25)"
+		  "reaching the Oracle (10)"
+		  "putting the ruby in the depression (9)"
+		  "[continued in part 3]">
+	 <PLTABLE "how all points are scored, part 3"
+		  "[continued from part 2]"
+		  "reaching the Crag (10)"
+		  "reaching the Glacier (10)"
+		  "reaching the Delta (10)"
+		  "reaching the Foot of Statue (10)"
+		  "reaching the Mine Entrance (10)"
+		  "throwing something at Mirror Lake (14)"
+		  "getting the flower (25)"
+		  "reaching the Smaller Hangar (6)"
+		  "entering the Secret Room at Fenshire (16)"
+		  "solving the borphbelly stew puzzle (9)"
+		  "[continued in part 4]">
+	 <PLTABLE "how all points are scored, part 4"
+		  "[continued from part 3]"
+		  "entering the Iron Mine (14)"
+		  "abating your hunger (20)"
+		  "reaching the Great Underground Oasis (8)"
+		  "entering the Plain (16)"
+		  "getting the hardhat (25)"
+		  "entering the Rubble Room and surviving (9)"
+		  "entering the Inner Ear (18)"
+		  "touching the elixir (16)"
+		  "getting the rusty key (14)"
+		  "entering the Attic (8)"
+		  "winning the game (30)"> 
+	 "FOR YOUR AMUSEMENT"
+	 <PLTABLE "read this note first"
+		  "These are for your amusement after you have completed Zork
+Zero. We recommend against looking at these before finishing, since many of
+them give away the answers to various puzzles.">
+	 <PLTABLE "things to try around Flatheadia"
+		  "Examine the tables in the Banquet Hall during the prologue."
+		  "Try eating the lobster."
+		  "Try entering the fish tank after trying to take it. Or,
+after restarting, try to take the fish tank after trying to enter it."
+		  "Try to close the walnut shell after opening it."
+		  "Put the drinking straw in your mouth."
+		  "Climb down the banner from the Balcony."
+		  "Drop the cannonball through the murder hole in the
+Upper Barbican, while you're holding a lit candle."
+		  "Try to enter the moat. Now, wait until the jester turns
+you into an alligator then enter the moat."
+		  "Climb to the 400th floor of the FrobozzCo Building."
+		  "Drop something through the machicolation in the Parapet."
+		  "Try killing the giant spiders in the Cell."
+		  "Use the Testing Room booths to turn yourself into
+a violin. Then DIAGNOSE."
+		  "Read the inscription on the toboggan."
+		  "Look inside the camel. And at the South Shore, type
+CAMEL, DRINK WATER."
+		  "At Hanging from Roots, let go."
+		  "Talk to the giant brogmoid.">
+	 <PLTABLE "fun at Fenshire"
+		  "Leave the Gondola in mid-flight."
+		  "Try to clean the fireplace in the Ruined Hall."
+		  "Try to put something into the Borphbelly Stew cookpot.">
+	 <PLTABLE "stuff to try the beyond the oracle"
+		  "Try to wake the statue in the Enchanted Cave."
+		  "Look at the reflection of the following things in
+Mirror Lake: the candle, the magic wand, the flask, the cloak, the glove, the
+goggles, the pigeon, the perch, the amulet, the jester, the potion, the
+sapphire, the scrap of parchment, one of the magic passages, and a chesspiece."
+		  "Answer YES when Otto asks
+\"Do you think you own this swamp?\""
+		  "Play the harmonica."
+		  "Clean the rusty key, then read it."
+		  "Enter the Icky Cave, for the first time,
+with no light source, then cough."
+		  "Swing the bat...three times."
+		  "Taste, smell, touch, then step in the
+granola in the granola mines.">
+	 <PLTABLE "fun with magic"
+		  "Point the wand at a chess piece, the bedbug, a fly,
+the giant brogmoid, the jester, one of the witches, the executioner,
+a unicorn, and Otto. (In Otto's case, wait around until the magic wears off.)"
+		  "Listen to the various elm trees, the birch, the pine,
+the spenseweed, the large and small lily pads, the flower, and the roots
+below the world (after drinking the potion, of course)."
+		  "Drop the perch out of the Gondola in mid-air, or into the
+abyss from Under the World, or into the Oubliette, or over the fence at North
+of Anthar... and then pigeon to it."
+		  "Put a chess piece at (for example) Foot of Statue, then
+return to the Oracle. Holding the perch, put the pigeon in the oracle's mouth."
+		  "Carry the pigeon and perch into the Inquisition after
+leaving a chess piece out in the Fishing Village."
+		  "Carry the cloak into the Inquisition."
+		  "Smash the four orbs."
+		  "Try to install a magic passage in one of the walls of
+the bathysphere or dirigible."
+		  "Instead of going though the gates at the Perimeter Wall,
+stay in the castle when it turns into the white house.">
+	 <PLTABLE "things to try anywhere"
+		  "Cough anywhere besides the Icky Cave."
+		  "Type DATE."
+		  "When you're over 1000 turns, type TIME."
+		  "Count your eyes."
+		  "Try to remove your hand
+(other than when it's in the waldo hole)."
+		  "Sing a lullaby when no one (including the bedbug) is around.
+Sing it when the jester is around. SING A LULLABY TO (an inanimate object)."
+		  "Turn around."
+		  "Look through any keyhole."
+		  "For Zork Trilogy players: type HELLO SAILOR.">
+	 <PLTABLE "fun things to do with the jester"
+		  "Examine the jester while wearing the goggles."
+		  "When the jester is preventing you from entering the
+Dirigible Hangar, teleport him away using the pigeon, then go west again."
+		  "Wait for the jester to appear: at the Pits, before you've
+sealed them up; at the Icky Cave; at the Delta location where Otto sits; at
+the Testing Room while you're turned into something."
+		  "Wait at the Hold for the jester to appear, then enter the
+diving bell and use the waldo to pick up the jester."
+		  "Type TIP THE JESTER.">
+	 <PLTABLE "encyclopedia entries"
+		  "The illustrated entries are: Dimwit Flathead, Megaboz,
+Flatheadia, the FrobozzCo Building, Brogmoidism, Zilbeetha, the Jester, and
+the Four Fantastic Flies of Famathria."
+		  "You can read about the following people: Boswell
+Barwell, Frobesius Fublius, Entharion, Korboz, Gumboz, the Wizard of
+Frobozz, Zorbius Blattus, Zylo Pickthorn, Belboz, Davmar, Duncanthrax,
+Wurb Flathead, Ursula Flathead, Saint Foobus, Saint Bovus, Saint Quakko,
+Saint Wiskus, Saint Honko, and Saint Balhu."
+		  "You can look up the following places: Fublio Valley,
+Fenshire, Quilbozza Beach, the Flathead Ocean, Frigid River, Frigid River
+Valley, Mirror Lake, Eastlands, Westlands, Froblo Park, Borphee, Pheebor,
+Flood Control Dam #3, Lake Flathead, Largoneth Castle, Egreth Castle, Mount
+Foobia, Land of Shadow, Rockville Estates, Royal Museum, Mareilon, Antharia,
+Flathead Stadium, Gray Mountains, Flathead Mountains, Zorbel Pass, Thriff,
+Gurth, Miznia, Mithicus, Fields of Frotzen, Port Foozle, Frobozz, Aragain
+Falls, Flathead Fjord, and the Great Underground Empire."
+		  "There are entries on the following events: Diablo
+Massacre, Zucchini Wars, Treaty of Znurg, Battle of Ragweed Gulch, Endless
+Fire, and Granola Riots."
+		  "You'll find moderately interesting entries on these items:
+Peggleboz, Tower of Bozbar, Snarfem, Double Fanucci, Oracle of Bargth,
+Inquisition, Encyclopedia Frobozzica, Borphbelly Stew, Jewel of Jerrimore,
+zorkmid, bloit, chess, the Curse, Curse Day, brogmoid, grue, hellhound,
+Mithican chameleon, Polar Gumffbeast, spenseweed, fungus, Wishyfoo, Prevaricon,
+Veritassi, Great Underground Highway, FrobozzCo International, Enchanters
+Guild, magic potion, magic wand, and rebus."
+		  "Don't forget to try to READ ABOUT ME."
+		  "Finally, the hopelessly fannish among you can look up
+Zork, Infocom, and Steve Meretzky.">>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/input.zabstr b/input.zabstr
new file mode 100644
index 0000000..31975dc
--- /dev/null
+++ b/input.zabstr
@@ -0,0 +1,50 @@
+
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE READ-INPUT> 
+<DEFINE-ROUTINE ADD-TO-INPUT> 
+<DEFINE-ROUTINE SCRIPT-INBUF> 
+<GLOBAL WIDTH 80> 
+<CONSTANT TCHARS <TABLE (BYTE) 255 0>> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SOFT> 
+<CONSTANT DIROUT-TABLE <ITABLE 80 <BYTE 0>>> 
+<DEFINE-ROUTINE PRINT-CENTER-TABLE> 
+<DEFINE SOFT-KEYS ("ARGS" TUP "AUX" (CNT 0) (DL (0)) L) <SET L <MAPF ,LIST <
+FUNCTION ("AUX" VAL STR STRL) <COND (<EMPTY? .TUP> <MAPSTOP>)> <SET VAL <NTH .
+TUP 1>> <SET STR <NTH .TUP 2>> <SET TUP <REST .TUP 2>> <COND (<TYPE? .STR
+STRING> <SET STRL <LENGTH .STR>> <SET DL (.VAL .STRL .STR !.DL)> <COND (<L? .
+STRL ,FLEN> <SET STR <STRING .STR <ISTRING <- ,FLEN .STRL> !\ >>>)> <SET CNT <+
+.CNT 1>> <MAPRET .VAL <TABLE (STRING) ,FLEN .STRL .STR>>) (ELSE <MAPRET .VAL <
+EVAL .STR>>)>>>> <CONSTANT FKEY-TBL <NTH .L 2>> <CONSTANT FKEYS-STRTABLE-LEN <*
+.CNT <+ ,FLEN 2>>> <CONSTANT DEFAULT-FKEYS <TABLE (STRING) !.DL>> <CONSTANT
+FKEYS <LTABLE !.L>>> 
+<CONSTANT FNAMES <LTABLE ,UP-ARROW " UP" ,DOWN-ARROW " DN" ,LEFT-ARROW " LF" ,
+RIGHT-ARROW " RT" ,F1 " F1" ,F2 " F2" ,F3 " F3" ,F4 " F4" ,F5 " F5" ,F6 " F6" ,
+F7 " F7" ,F8 " F8" ,F9 " F9" ,F10 "F10">> 
+<SYNTAX DEFINE = V-DEFINE> 
+<GLOBAL DONE-DEFINE? <>> 
+<DEFINE-ROUTINE V-DEFINE> 
+<DEFINE-ROUTINE IN-WINDOW?> 
+<DEFINE-ROUTINE DISPLAY-SOFTS> 
+<DEFINE-ROUTINE DISPLAY-SOFT> 
+<DEFINE-ROUTINE SOFT-RESET-DEFAULTS> 
+<CONSTANT DEFS-NAME <LTABLE (STRING) "DEFS">> 
+<DEFINE-ROUTINE SOFT-SAVE-DEFS> 
+<DEFINE-ROUTINE SOFT-RESTORE-DEFS> 
+<DEFINE-ROUTINE SOFT-EXIT> 
+<CONSTANT FLEN 30> 
+<CONSTANT SOFT-WINDOW 2> 
+<SOFT-KEYS ,UP-ARROW "n
" ,DOWN-ARROW "s
" ,LEFT-ARROW "w
" ,RIGHT-ARROW "e
" ,F1 "take " ,F2 "take all
" ,F3 "drop " ,F4 "look around
" ,F5 "inventory
" ,F6 "unlock door " ,F7 "jester, " ,F8 "give magic locket to moose
" ,F9 "read about " ,F10 "examine " -4 <TABLE "Save Defs" SOFT-SAVE-DEFS> -5 <
+TABLE "Restore Defs" SOFT-RESTORE-DEFS> -6 <TABLE "Reset Defaults"
+SOFT-RESET-DEFAULTS> -2 <TABLE "Exit" SOFT-EXIT>> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE Y?> 
+<DEFINE-ROUTINE BLINK> 
+<GLOBAL TYPED-TIMED-OUT <>> 
+<DEFINE-ROUTINE TYPED?> 
+<DEFINE-ROUTINE PICINF-PLUS-ONE> 
+<GLOBAL MOUSE-LOC-X <>> 
+<GLOBAL MOUSE-LOC-Y <>> 
+<DEFINE-ROUTINE MOUSE-INPUT?> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/input.zap b/input.zap
new file mode 100644
index 0000000..c6f1898
--- /dev/null
+++ b/input.zap
@@ -0,0 +1,490 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	READ-INPUT,TRM,TMP,N,M,FDEF,DIR,?TMP1
+	PUTB	P-INBUF,1,0
+?PRG1:	ZERO?	DEMO-VERSION? /?CCL5
+	CALL	READ-DEMO,P-INBUF,FALSE-VALUE >TRM
+	JUMP	?CND3
+?CCL5:	READ	P-INBUF,FALSE-VALUE >TRM
+?CND3:	ICALL1	MOUSE-INPUT?
+	EQUAL?	TRM,PAD0 \?CCL8
+	SET	'TRM,F10
+	JUMP	?CND6
+?CCL8:	LESS?	TRM,PAD1 /?CND6
+	GRTR?	TRM,PAD9 /?CND6
+	SUB	TRM,PAD1
+	ADD	F1,STACK >TRM
+?CND6:	EQUAL?	TRM,CLICK1,CLICK2 \?CCL14
+	CALL	COMPASS-CLICK,COMPASS-PIC-LOC,N-HL >DIR
+	ZERO?	DIR /?PRG1
+	DIROUT	D-TABLE-ON,O-INBUF
+	CALL2	DIR-TO-STRING,DIR
+	PRINT	STACK
+	DIROUT	D-TABLE-OFF
+	PUTB	O-INBUF,0,INBUF-LENGTH
+	ADD	O-INBUF,1 >?TMP1
+	GETB	O-INBUF,1
+	ICALL	ADD-TO-INPUT,?TMP1,13,STACK
+	JUMP	?REP2
+?CCL14:	EQUAL?	TRM,13,10 /?REP2
+	ADD	FKEYS,2 >?TMP1
+	GET	FKEYS,0
+	INTBL?	TRM,?TMP1,STACK >TMP \?CCL20
+	GET	TMP,1 >FDEF
+	ZERO?	FDEF /?CCL20
+	ADD	1,FDEF >?TMP1
+	GETB	FDEF,1
+	CALL	ADD-TO-INPUT,?TMP1,TRM,STACK >TRM
+	EQUAL?	TRM,13,10 /?REP2
+	JUMP	?PRG1
+?CCL20:	SOUND	S-BEEP
+	JUMP	?PRG1
+?REP2:	ICALL1	SCRIPT-INBUF
+	LEX	P-INBUF,P-LEXV
+	RTRUE	
+
+
+	.FUNCT	ADD-TO-INPUT,FDEF,TRM,M,N,TMP,?TMP1
+	GETB	P-INBUF,1 >N
+	GETB	FDEF,M
+	EQUAL?	STACK,13,10 \?CND1
+	SET	'TRM,13
+	DEC	'M
+?CND1:	INC	'FDEF
+	ADD	N,2
+	ADD	P-INBUF,STACK >TMP
+	ADD	M,N >?TMP1
+	GETB	P-INBUF,0
+	LESS?	?TMP1,STACK /?CND3
+	SOUND	1
+	GETB	P-INBUF,0
+	SUB	STACK,N
+	SUB	STACK,1 >M
+?CND3:	COPYT	FDEF,TMP,M
+	PUTB	TMP,M,0
+	WINATTR	-3,A-SCRIPT,O-CLEAR
+	PRINTT	FDEF,M
+	ADD	N,M
+	PUTB	P-INBUF,1,STACK
+	EQUAL?	TRM,13,10 \?CND5
+	CRLF	
+?CND5:	WINATTR	-3,A-SCRIPT,O-SET
+	RETURN	TRM
+
+
+	.FUNCT	SCRIPT-INBUF,BUF,CNT,N,CHR
+	GETB	P-INBUF,1 >N
+	DIROUT	D-SCREEN-OFF
+	ADD	1,P-INBUF >BUF
+?PRG1:	IGRTR?	'CNT,N /?REP2
+	GETB	BUF,CNT >CHR
+	LESS?	CHR,97 /?CCL8
+	GRTR?	CHR,122 /?CCL8
+	SUB	CHR,32
+	PRINTC	STACK
+	JUMP	?PRG1
+?CCL8:	PRINTC	CHR
+	JUMP	?PRG1
+?REP2:	CRLF	
+	DIROUT	D-SCREEN-ON
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "SOFT"
+
+
+	.FUNCT	PRINT-CENTER-TABLE,?TMP2,?TMP1
+	DIROUT	D-TABLE-OFF
+	WINGET	-3,WYPOS >?TMP1
+	WINGET	-3,WWIDE >?TMP2
+	GET	0,24
+	SUB	?TMP2,STACK
+	DIV	STACK,2
+	ADD	STACK,1
+	CURSET	?TMP1,STACK
+	GET	DIROUT-TABLE,0
+	PRINTT	DIROUT-TABLE+2,STACK
+	RTRUE	
+
+
+	.FUNCT	V-DEFINE,LINE,LINMAX,CHR,TMP,NLINE,FKEY,FDEF,LEFT,FY,FX,?TMP1
+	ZERO?	DONE-DEFINE? \?CND1
+	SET	'DONE-DEFINE?,TRUE-VALUE
+	PRINTI	"Software Function Key definition. "
+	GETB	0,30
+	EQUAL?	STACK,MACINTOSH \?CND3
+	PRINTI	"(NOTE: if your Macintosh has no function keys, use Command-1 thru Command-0 instead.) "
+?CND3:	PRINTI	"Use the arrow keys"
+	ZERO?	ACTIVE-MOUSE /?CND5
+	PRINTI	" or the mouse"
+?CND5:	PRINTI	" to select the key to define or the operation to perform. Hit the RETURN/ENTER key"
+	ZERO?	ACTIVE-MOUSE /?CND7
+	PRINTI	" or double-click the mouse"
+?CND7:	PRINTI	" to perform operations."
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+?CND1:	CLEAR	-1
+	MUL	4,LINE
+	ADD	2,STACK
+	ADD	FKEYS,STACK >FKEY
+	GET	FKEY,1 >FDEF
+	GETB	0,33 >?TMP1
+	GETB	FDEF,0
+	SUB	?TMP1,STACK
+	DIV	STACK,2 >LEFT
+	GET	FKEYS,0
+	DIV	STACK,2 >LINMAX
+	CLEAR	-1
+	SCREEN	SOFT-WINDOW
+	FONT	4
+	WINGET	SOFT-WINDOW,WFSIZE >TMP
+	SHIFT	TMP,-8 >FY
+	BAND	TMP,255 >FX
+	GETB	0,32
+	SUB	STACK,LINMAX
+	DIV	STACK,2
+	MUL	FY,STACK >?TMP1
+	MUL	FX,LEFT
+	WINPOS	SOFT-WINDOW,?TMP1,STACK
+	ADD	LINMAX,1
+	MUL	FY,STACK >?TMP1
+	ADD	FLEN,4
+	MUL	FX,STACK
+	ADD	1,STACK
+	WINSIZE	SOFT-WINDOW,?TMP1,STACK
+	ICALL2	DISPLAY-SOFTS,LINE
+	ICALL	DISPLAY-SOFT,FKEY,LINE,FALSE-VALUE
+?PRG9:	ZERO?	DEMO-VERSION? /?CCL13
+	CALL2	INPUT-DEMO,1 >CHR
+	JUMP	?CND11
+?CCL13:	INPUT	1 >CHR
+?CND11:	SET	'NLINE,LINE
+	EQUAL?	CHR,CLICK1,CLICK2 \?CND14
+	CALL2	IN-WINDOW?,SOFT-WINDOW >TMP
+	ZERO?	TMP /?CND14
+	GRTR?	TMP,1 \?CND14
+	SUB	TMP,2 >NLINE
+	EQUAL?	LINE,NLINE /?CND19
+	ICALL	DISPLAY-SOFT,FKEY,LINE,TRUE-VALUE
+	MUL	4,NLINE
+	ADD	2,STACK
+	ADD	FKEYS,STACK
+	ICALL	DISPLAY-SOFT,STACK,NLINE,FALSE-VALUE
+	SET	'LINE,NLINE
+	MUL	4,LINE
+	ADD	2,STACK
+	ADD	FKEYS,STACK >FKEY
+	GET	FKEY,1 >FDEF
+?CND19:	EQUAL?	CHR,CLICK2 \?CND14
+	GET	FKEY,0
+	LESS?	STACK,0 \?CND14
+	SET	'CHR,13
+?CND14:	EQUAL?	CHR,CLICK1,CLICK2 /?CND25
+	EQUAL?	CHR,13 \?CCL28
+	GET	FKEY,0
+	LESS?	STACK,0 \?CCL28
+	SET	'NLINE,0
+	GET	FDEF,1
+	CALL	STACK
+	ZERO?	STACK /?CCL33
+	SCREEN	0
+	CLEAR	0
+	ICALL1	V-$REFRESH
+	RTRUE	
+?CCL33:	SUB	LINMAX,1 >NLINE
+	ICALL2	DISPLAY-SOFTS,LINE
+	JUMP	?CND25
+?CCL28:	EQUAL?	CHR,DOWN-ARROW,13 \?CCL35
+	INC	'NLINE
+	LESS?	NLINE,LINMAX /?CND25
+	SET	'NLINE,0
+	JUMP	?CND25
+?CCL35:	EQUAL?	CHR,UP-ARROW \?CCL39
+	DLESS?	'NLINE,0 \?CND25
+	SUB	LINMAX,1 >NLINE
+	JUMP	?CND25
+?CCL39:	ADD	FKEYS,2 >?TMP1
+	GET	FKEYS,0
+	INTBL?	CHR,?TMP1,STACK >TMP \?CCL43
+	SUB	TMP,FKEYS
+	DIV	STACK,4 >NLINE
+	JUMP	?CND25
+?CCL43:	EQUAL?	CHR,8,127 \?CCL45
+	GETB	FDEF,1 >TMP
+	ZERO?	TMP /?CCL48
+	DEC	'TMP
+	PUTB	FDEF,1,TMP
+	ADD	TMP,2
+	PUTB	FDEF,STACK,32
+	ADD	LINE,2 >?TMP1
+	ADD	TMP,5
+	ICALL	CCURSET,?TMP1,STACK
+	ERASE	1
+	JUMP	?CND25
+?CCL48:	SOUND	S-BEEP
+	JUMP	?CND25
+?CCL45:	LESS?	CHR,32 /?CCL50
+	LESS?	CHR,127 \?CCL50
+	GETB	FDEF,1 >TMP
+	GETB	FDEF,0
+	EQUAL?	TMP,STACK \?CCL55
+	SOUND	S-BEEP
+	JUMP	?CND25
+?CCL55:	ADD	FDEF,2 >?TMP1
+	GETB	FDEF,1
+	INTBL?	13,?TMP1,STACK,1 \?CCL57
+	SOUND	S-BEEP
+	JUMP	?CND25
+?CCL57:	EQUAL?	CHR,124,33 \?CND58
+	SET	'CHR,13
+?CND58:	ADD	TMP,1
+	PUTB	FDEF,1,STACK
+	LESS?	CHR,65 /?CND60
+	GRTR?	CHR,90 /?CND60
+	ADD	CHR,32 >CHR
+?CND60:	ADD	TMP,2
+	PUTB	FDEF,STACK,CHR
+	EQUAL?	CHR,13 \?CCL66
+	PRINTC	124
+	JUMP	?CND25
+?CCL66:	PRINTC	CHR
+	JUMP	?CND25
+?CCL50:	SOUND	S-BEEP
+?CND25:	EQUAL?	LINE,NLINE /?PRG9
+	ICALL	DISPLAY-SOFT,FKEY,LINE,TRUE-VALUE
+	MUL	4,NLINE
+	ADD	2,STACK
+	ADD	FKEYS,STACK
+	ICALL	DISPLAY-SOFT,STACK,NLINE,FALSE-VALUE
+	SET	'LINE,NLINE
+	MUL	4,LINE
+	ADD	2,STACK
+	ADD	FKEYS,STACK >FKEY
+	GET	FKEY,1 >FDEF
+	JUMP	?PRG9
+
+
+	.FUNCT	IN-WINDOW?,W,X,Y,TOP,LEFT
+	GET	0,27
+	GET	STACK,2 >Y
+	GET	0,27
+	GET	STACK,1 >X
+	WINGET	W,WTOP >TOP
+	LESS?	Y,TOP /FALSE
+	WINGET	W,WLEFT >LEFT
+	LESS?	X,LEFT /FALSE
+	SUB	Y,TOP >Y
+	SUB	X,LEFT >X
+	WINGET	W,WHIGH
+	GRTR?	Y,STACK /FALSE
+	WINGET	W,WWIDE
+	GRTR?	X,STACK /FALSE
+	DIV	Y,FONT-Y
+	ADD	1,STACK >Y
+	RETURN	Y
+
+
+	.FUNCT	DISPLAY-SOFTS,LINE,L,F,N,FKEY,CNT
+	GET	FKEYS,0 >L
+	DIV	L,2 >L
+	SCREEN	SOFT-WINDOW
+	CURSET	1,1
+	DIROUT	D-TABLE-ON,DIROUT-TABLE
+	FONT	1
+	PRINTI	"Function Keys"
+	ICALL1	PRINT-CENTER-TABLE
+	FONT	4
+	ADD	FKEYS,2 >FKEY
+?PRG1:	LESS?	CNT,L \TRUE
+	EQUAL?	CNT,LINE \?CCL8
+	PUSH	FALSE-VALUE
+	JUMP	?CND6
+?CCL8:	PUSH	TRUE-VALUE
+?CND6:	ICALL	DISPLAY-SOFT,FKEY,CNT,STACK
+	ADD	FKEY,4 >FKEY
+	INC	'CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	DISPLAY-SOFT,FKEY,CNT,INV?,FDEF,S,N,M,TMP,Y,X,?TMP1
+	GET	FKEY,1 >FDEF
+	ADD	CNT,2 >Y
+	GET	FKEY,0
+	LESS?	STACK,0 \?CCL3
+	ICALL	CCURSET,Y,1
+	ZERO?	INV? /?CND4
+	HLIGHT	H-INVERSE
+?CND4:	FONT	1
+	DIROUT	D-TABLE-ON,DIROUT-TABLE
+	GET	FDEF,0
+	PRINT	STACK
+	ICALL1	PRINT-CENTER-TABLE
+	FONT	4
+	JUMP	?CND1
+?CCL3:	GETB	FDEF,0 >S
+	GETB	FDEF,1 >N
+	ICALL	CCURSET,Y,1
+	GET	FKEY,0 >?TMP1
+	GET	FNAMES,0
+	INTBL?	?TMP1,FNAMES+2,STACK >TMP \?CND6
+	ZERO?	INV? /?CCL10
+	HLIGHT	H-NORMAL
+	JUMP	?CND8
+?CCL10:	HLIGHT	H-INVERSE
+?CND8:	GET	TMP,1
+	PRINT	STACK
+	HLIGHT	H-NORMAL
+	PRINTC	32
+	ZERO?	INV? /?CCL13
+	HLIGHT	H-INVERSE
+	JUMP	?CND6
+?CCL13:	HLIGHT	H-NORMAL
+?CND6:	ADD	FDEF,2 >FDEF
+	ZERO?	N /?CND14
+	SUB	N,1 >M
+	GETB	FDEF,M
+	EQUAL?	STACK,13 \?CND14
+	PRINTT	FDEF,M
+	PRINTC	124
+	ADD	FDEF,N >FDEF
+	SUB	S,N >S
+?CND14:	PRINTT	FDEF,S
+	ZERO?	INV? \?CND1
+	ADD	N,5
+	ICALL	CCURSET,Y,STACK
+?CND1:	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	SOFT-RESET-DEFAULTS,K,L,KEYS,DEF,KL,TMP,?TMP1
+	GET	FKEYS,0 >KL
+	SET	'DEF,DEFAULT-FKEYS
+?PRG1:	GETB	DEF,0 >K
+	ZERO?	K /FALSE
+	INC	'DEF
+	GETB	DEF,0
+	ADD	1,STACK >L
+	ADD	FKEYS,2
+	INTBL?	K,STACK,KL >KEYS \?CND5
+	GET	KEYS,1 >KEYS
+	ADD	1,KEYS >TMP
+	PUTB	TMP,0,32
+	ADD	1,TMP >?TMP1
+	GETB	KEYS,0
+	SUB	0,STACK
+	COPYT	TMP,?TMP1,STACK
+	ADD	1,KEYS
+	COPYT	DEF,STACK,L
+?CND5:	ADD	DEF,L >DEF
+	JUMP	?PRG1
+
+
+	.FUNCT	SOFT-SAVE-DEFS
+	CLEAR	0
+	SCREEN	0
+	SAVE	FKEY-TBL,FKEYS-STRTABLE-LEN,DEFS-NAME
+	ZERO?	STACK \?CND1
+	PRINTI	"Failed."
+?CND1:	CLEAR	0
+	SCREEN	SOFT-WINDOW
+	RFALSE	
+
+
+	.FUNCT	SOFT-RESTORE-DEFS
+	CLEAR	0
+	SCREEN	0
+	RESTORE	FKEY-TBL,FKEYS-STRTABLE-LEN,DEFS-NAME
+	ZERO?	STACK \?CND1
+	PRINTI	"Failed."
+?CND1:	CLEAR	0
+	SCREEN	SOFT-WINDOW
+	RFALSE	
+
+
+	.FUNCT	SOFT-EXIT
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	Y?,X
+?PRG1:	ZERO?	DEMO-VERSION? /?CCL5
+	CALL2	INPUT-DEMO,1 >X
+	JUMP	?CND3
+?CCL5:	INPUT	1 >X
+?CND3:	EQUAL?	X,89,121,CLICK1 /?CTR7
+	EQUAL?	X,CLICK2 \?CCL8
+?CTR7:	SET	'X,TRUE-VALUE
+	JUMP	?REP2
+?CCL8:	EQUAL?	X,78,110 \?CCL12
+	SET	'X,FALSE-VALUE
+?REP2:	CRLF	
+	RETURN	X
+?CCL12:	CRLF	
+	PRINTI	"[Please type Y or N] >"
+	JUMP	?PRG1
+
+
+	.FUNCT	BLINK,PIC1,PIC2,Y,X,SCR,CHAR,LAST,CNT
+	SCREEN	SCR
+	DISPLAY	PIC2,Y,X
+	SCREEN	S-TEXT
+	SET	'LAST,PIC2
+?PRG1:	SET	'TYPED-TIMED-OUT,FALSE-VALUE
+	INPUT	1,3,TYPED? >CHAR
+	ICALL1	MOUSE-INPUT?
+	ZERO?	TYPED-TIMED-OUT /?CCL5
+	SCREEN	SCR
+	EQUAL?	LAST,PIC1 \?CCL8
+	SET	'LAST,PIC2
+	PUSH	PIC2
+	JUMP	?CND6
+?CCL8:	SET	'LAST,PIC1
+	PUSH	PIC1
+?CND6:	DISPLAY	STACK,Y,X
+	INC	'CNT
+	EQUAL?	CNT,4 \?CND9
+	ZERO?	ROSE-NEEDS-UPDATING /?CND9
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \?CND9
+	ICALL1	UPDATE-MAP-ROSE
+?CND9:	SCREEN	S-TEXT
+	JUMP	?PRG1
+?CCL5:	EQUAL?	LAST,PIC2 /?CCL15
+	RETURN	CHAR
+?CCL15:	SCREEN	SCR
+	DISPLAY	PIC1,Y,X
+	SCREEN	S-TEXT
+	RETURN	CHAR
+
+
+	.FUNCT	TYPED?
+	SET	'TYPED-TIMED-OUT,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	PICINF-PLUS-ONE,PIC
+	PICINF	PIC,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,0
+	ADD	STACK,1
+	PUT	PICINF-TBL,0,STACK
+	GET	PICINF-TBL,1
+	ADD	STACK,1
+	PUT	PICINF-TBL,1,STACK
+	RTRUE	
+
+
+	.FUNCT	MOUSE-INPUT?
+	GET	0,27
+	GET	STACK,1 >MOUSE-LOC-X
+	GET	0,27
+	GET	STACK,2 >MOUSE-LOC-Y
+	RETURN	MOUSE-LOC-Y
+
+	.ENDSEG
+
+	.ENDI
diff --git a/input.zil b/input.zil
new file mode 100644
index 0000000..b08b1bd
--- /dev/null
+++ b/input.zil
@@ -0,0 +1,500 @@
+"INPUT for
+				ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE READ-INPUT ("AUX" TRM TMP N M FDEF DIR)
+	 <PUTB ,P-INBUF 1 0>
+	 <REPEAT ()
+	      <COND (,DEMO-VERSION?
+		     <SET TRM <READ-DEMO ,P-INBUF <>>>)
+		    (T
+		     <SET TRM <READ ,P-INBUF <>>>)>
+	      <MOUSE-INPUT?>
+	      <COND (<EQUAL? .TRM ,PAD0>
+		     <SET TRM ,F10>)
+		    (<AND <G=? .TRM ,PAD1>
+			  <L=? .TRM ,PAD9>>
+		     <SET TRM <+ ,F1 <- .TRM ,PAD1>>>)>
+	      <COND (<EQUAL? .TRM ,CLICK1 ,CLICK2>
+		     <COND (<SET DIR <COMPASS-CLICK ,COMPASS-PIC-LOC ,N-HL>>
+			    ;<SET TMP <COND (<EQUAL? .DIR ,P?NORTH ,P?SOUTH> 5)
+					   (<EQUAL? .DIR ,P?WEST ,P?EAST> 4)
+					   (T 9)>>
+			    <DIROUT ,D-TABLE-ON ,O-INBUF>
+			    <TELL <DIR-TO-STRING .DIR>>
+			    <DIROUT ,D-TABLE-OFF>
+			    <PUTB ,O-INBUF 0 ,INBUF-LENGTH>
+			    <ADD-TO-INPUT <REST ,O-INBUF 1> 13 <GETB ,O-INBUF 1>>
+			    <RETURN>)>)
+		    (<EQUAL? .TRM 13 10>
+		     <RETURN>)
+		    (<AND <SET TMP
+			       <INTBL? .TRM <REST ,FKEYS 2> <GET ,FKEYS 0>>>
+			  <SET FDEF <GET .TMP 1>>> ;"key def"
+		     <SET TRM <ADD-TO-INPUT <REST .FDEF> .TRM <GETB .FDEF 1>>>
+		     <COND (<EQUAL? .TRM 13 10> <RETURN>)>)
+		    (T
+		     <SOUND ,S-BEEP>)>>
+	 <SCRIPT-INBUF>
+	 <LEX ,P-INBUF ,P-LEXV>>
+
+<ROUTINE ADD-TO-INPUT (FDEF TRM M "AUX" N TMP)
+	 ;<SET M <GETB .FDEF 1>> ;"number chars in def"
+	 <SET N <GETB ,P-INBUF 1>> ;"number chars already"
+	 ;<SET FDEF <REST .FDEF>>
+	 <COND (<EQUAL? <GETB .FDEF .M> 13 10>
+		<SET TRM 13> ;"this def is a terminator"
+		<SET M <- .M 1>>)>
+	 <SET FDEF <REST .FDEF>>
+	 <SET TMP <REST ,P-INBUF <+ .N 2>>>
+	 <COND (<G=? <+ .M .N> <GETB ,P-INBUF 0>> ;"overflowed input buffer"
+		<SOUND 1>
+		<SET M <- <GETB ,P-INBUF 0> .N 1>>)>
+	 <COPYT .FDEF .TMP .M>
+	 <PUTB .TMP .M 0>
+	 <WINATTR -3 ,A-SCRIPT ,O-CLEAR>
+	 <PRINTT .FDEF .M>
+	 <PUTB ,P-INBUF 1 <+ .N .M>>
+	 <COND (<EQUAL? .TRM 13 10>
+		<CRLF>)>
+	 <WINATTR -3 ,A-SCRIPT ,O-SET>
+	 .TRM>
+
+<ROUTINE SCRIPT-INBUF ("AUX" BUF (CNT 0) (N <GETB ,P-INBUF 1>) CHR)
+	 <DIROUT ,D-SCREEN-OFF>
+	 <SET BUF <REST ,P-INBUF>>
+	 <REPEAT ()
+		 <COND (<IGRTR? CNT .N> <RETURN>)
+		       (ELSE
+			<SET CHR <GETB .BUF .CNT>> 
+			<COND (<AND <G=? .CHR !\a>
+				    <L=? .CHR !\z>>
+			       <PRINTC <- .CHR 32>>)
+			      (ELSE <PRINTC .CHR>)>)>>
+	 <CRLF>
+	 <DIROUT ,D-SCREEN-ON>>
+
+<GLOBAL WIDTH 80>
+
+<CONSTANT TCHARS <TABLE (BYTE) 255 0>>
+
+<END-SEGMENT>
+
+;"function key stuff"
+
+<BEGIN-SEGMENT SOFT>
+
+<CONSTANT DIROUT-TABLE <ITABLE 80 <BYTE 0>>>
+
+<ROUTINE PRINT-CENTER-TABLE ()
+	 <DIROUT ,D-TABLE-OFF>
+	 <CURSET <WINGET -3 ,WYPOS>
+		 <+ </ <- <WINGET -3 ,WWIDE>
+			  <LOWCORE TWID>>
+		       2>
+		    1>>
+	 <PRINTT <REST ,DIROUT-TABLE 2> <GET ,DIROUT-TABLE 0>>>
+
+"MDL routine to create a set of soft-key tables and defaults"
+
+<DEFINE SOFT-KEYS ("ARGS" TUP "AUX" (CNT 0) (DL (0)) L)
+	<SET L
+	<MAPF ,LIST
+	      <FUNCTION ("AUX" VAL STR STRL)
+		   <COND (<EMPTY? .TUP> <MAPSTOP>)>
+		   <SET VAL <NTH .TUP 1>>
+		   <SET STR <NTH .TUP 2>>
+		   <SET TUP <REST .TUP 2>>
+		   <COND (<TYPE? .STR STRING>
+			  <SET STRL <LENGTH .STR>>
+			  <SET DL (.VAL .STRL .STR !.DL)>
+			  <COND (<L? .STRL ,FLEN>
+				 <SET STR
+				      <STRING .STR
+					      <ISTRING <- ,FLEN .STRL>
+						       !\ >>>)>
+			  <SET CNT <+ .CNT 1>>
+			  <MAPRET .VAL <TABLE (STRING) ,FLEN .STRL .STR>>)
+			 (ELSE
+			  <MAPRET .VAL <EVAL .STR>>)>>>>
+	<CONSTANT FKEY-TBL <NTH .L 2>>
+	<CONSTANT FKEYS-STRTABLE-LEN <* .CNT <+ ,FLEN 2>>>
+	<CONSTANT DEFAULT-FKEYS <TABLE (STRING) !.DL>>
+	<CONSTANT FKEYS <LTABLE !.L>>>
+
+<CONSTANT FNAMES
+	  <LTABLE ,UP-ARROW " UP"
+		  ,DOWN-ARROW " DN"
+		  ,LEFT-ARROW " LF"
+		  ,RIGHT-ARROW " RT"
+		;"vt100 keypad keys"
+		  ,F1 " F1" 
+		  ,F2 " F2"
+		  ,F3 " F3"
+		  ,F4 " F4"
+		  ,F5 " F5"
+		  ,F6 " F6"
+		  ,F7 " F7"
+		  ,F8 " F8"
+		  ,F9 " F9"
+		  ,F10 "F10">>
+
+<SYNTAX DEFINE = V-DEFINE>
+
+<GLOBAL DONE-DEFINE? <>>
+
+<ROUTINE V-DEFINE ("AUX" (LINE 0) LINMAX CHR TMP NLINE FKEY FDEF LEFT FY FX)
+	 <COND (<NOT ,DONE-DEFINE?>
+		<SETG DONE-DEFINE? T>
+		<TELL "Software Function Key definition. ">
+		<COND (<EQUAL? <LOWCORE INTID> ,MACINTOSH>
+		       <TELL
+"(NOTE: if your Macintosh has no function keys, use Command-1 thru
+Command-0 instead.) ">)>
+		<TELL "Use the arrow keys">
+		<COND (,ACTIVE-MOUSE
+		       <TELL " or the mouse">)>
+		<TELL
+" to select the key to define or the operation to perform. Hit
+the RETURN/ENTER key">
+		<COND (,ACTIVE-MOUSE
+		       <TELL " or double-click the mouse">)>
+		<TELL " to perform operations." CR>
+		<HIT-ANY-KEY>)>
+	 <CLEAR -1>
+	 <SET FKEY <REST ,FKEYS <+ 2 <* 4 .LINE>>>>
+	 <SET FDEF <GET .FKEY 1>>
+	 <SET LEFT </ <- <LOWCORE SCRH> <GETB .FDEF 0>> 2>>
+	 <SET LINMAX </ <GET ,FKEYS 0> 2>>
+	 <CLEAR -1>
+	 <SCREEN ,SOFT-WINDOW>
+	 <FONT 4>
+	 <SET TMP <WINGET ,SOFT-WINDOW ,WFSIZE>>
+	 <SET FY <SHIFT .TMP -8>>
+	 <SET FX <BAND .TMP 255>>
+	 <WINPOS ,SOFT-WINDOW
+		 <* .FY </ <- <LOWCORE SCRV> .LINMAX> 2>>
+		 <* .FX .LEFT>>
+	 <WINSIZE ,SOFT-WINDOW
+		  <* .FY <+ .LINMAX 1>>
+		  <+ 1 <* .FX <+ ,FLEN 4>>>>
+	 <DISPLAY-SOFTS .LINE>
+	 <DISPLAY-SOFT .FKEY .LINE <>>
+	 <REPEAT ()
+		 <COND (,DEMO-VERSION?
+			<SET CHR <INPUT-DEMO 1>>)
+		       (T
+			<SET CHR <INPUT 1>>)>
+		 <SET NLINE .LINE>
+		 <COND (<AND <EQUAL? .CHR ,CLICK1 ,CLICK2>
+			     <SET TMP <IN-WINDOW? ,SOFT-WINDOW>>
+			     <G? .TMP 1>>
+			<SET NLINE <- .TMP 2>>
+			<COND (<NOT <EQUAL? .LINE .NLINE>>
+			       <DISPLAY-SOFT .FKEY .LINE T>
+			       <DISPLAY-SOFT <REST ,FKEYS <+ 2 <* 4 .NLINE>>>
+					     .NLINE <>>
+			       <SET LINE .NLINE>
+			       <SET FKEY <REST ,FKEYS <+ 2 <* 4 .LINE>>>>
+			       <SET FDEF <GET .FKEY 1>>)>
+			<COND (<AND <EQUAL? .CHR ,CLICK2>
+				    <L? <GET .FKEY 0> 0>>
+			       <SET CHR 13>)>)>
+		 <COND (<EQUAL? .CHR ,CLICK1 ,CLICK2>)
+		       (<AND <EQUAL? .CHR 13>
+			     <L? <GET .FKEY 0> 0>>
+			<SET NLINE 0>
+			<COND (<APPLY <GET .FDEF 1>>
+			       <SCREEN 0>
+			       <CLEAR 0>
+			       <V-$REFRESH>
+			       <RTRUE>)
+			      (ELSE
+			       <SET NLINE <- .LINMAX 1>>
+			       <DISPLAY-SOFTS .LINE>)>)
+		       (<EQUAL? .CHR ,DOWN-ARROW 13>
+			<COND (<L? <SET NLINE <+ .NLINE 1>> .LINMAX>)
+			      (ELSE <SET NLINE 0>)>)
+		       (<EQUAL? .CHR ,UP-ARROW>
+			<COND (<G=? <SET NLINE <- .NLINE 1>> 0>)
+			      (ELSE
+			       <SET NLINE <- .LINMAX 1>>)>)
+		       (<SET TMP
+			     <INTBL? .CHR <REST ,FKEYS 2> <GET ,FKEYS 0>>>
+			<SET NLINE </ <- .TMP ,FKEYS> 4>>)
+		       (<EQUAL? .CHR 8 127>
+			<SET TMP <GETB .FDEF 1>>
+			<COND (<NOT <ZERO? .TMP>>
+			       <SET TMP <- .TMP 1>>
+			       <PUTB .FDEF 1 .TMP>
+			       <PUTB .FDEF <+ .TMP 2> !\ >
+			       <CCURSET <+ .LINE 2>
+					<+ .TMP 5>>
+			       <ERASE 1>)
+			      (ELSE <SOUND ,S-BEEP>)>)
+		       (<AND <G=? .CHR !\ > <L? .CHR 127>>
+			<SET TMP <GETB .FDEF 1>>
+			<COND (<EQUAL? .TMP <GETB .FDEF 0>>
+			       <SOUND ,S-BEEP>)
+			      (<INTBL? 13
+				       <REST .FDEF 2>
+				       <GETB .FDEF 1>
+				       1>
+			       <SOUND ,S-BEEP>)
+			      (ELSE
+			       <COND (<EQUAL? .CHR !\| !\!> <SET CHR 13>)>
+			       <PUTB .FDEF 1 <+ .TMP 1>>
+			       <COND (<AND <G=? .CHR !\A>
+					   <L=? .CHR !\Z>>
+				      <SET CHR <+ .CHR 32>>)>
+			       <PUTB .FDEF <+ .TMP 2> .CHR>
+			       <COND (<EQUAL? .CHR 13>
+				      <PRINTC !\|>)
+				     (ELSE <PRINTC .CHR>)>)>)
+		       (ELSE <SOUND ,S-BEEP>)>
+		 <COND (<NOT <EQUAL? .LINE .NLINE>>
+			<DISPLAY-SOFT .FKEY .LINE T>
+			<DISPLAY-SOFT <REST ,FKEYS <+ 2 <* 4 .NLINE>>>
+				      .NLINE <>>
+			<SET LINE .NLINE>
+			<SET FKEY <REST ,FKEYS <+ 2 <* 4 .LINE>>>>
+			<SET FDEF <GET .FKEY 1>>)>>
+	 <FONT 1>
+	 <SCREEN 0>
+	 <V-$REFRESH>>
+
+"given a window, returns line hit with mouse click, or false if not in that
+window."
+
+<ROUTINE IN-WINDOW? (W "AUX" X Y TOP LEFT)
+	 <SET Y <LOWCORE MSLOCY>>
+	 <SET X <LOWCORE MSLOCX>>
+	 <COND (<OR <L? .Y <SET TOP <WINGET .W ,WTOP>>>
+		    <L? .X <SET LEFT <WINGET .W ,WLEFT>>>>
+		<RFALSE>)
+	       (ELSE
+		<SET Y <- .Y .TOP>>
+		<SET X <- .X .LEFT>>
+		<COND (<OR <G? .Y <WINGET .W ,WHIGH>>
+			   <G? .X <WINGET .W ,WWIDE>>>
+		       <RFALSE>)>
+		<SET Y <+ 1 </ .Y ,FONT-Y>>>
+		<RETURN .Y>)>>
+
+<ROUTINE DISPLAY-SOFTS (LINE "AUX" (L <GET ,FKEYS 0>) (F 0) N FKEY (CNT 0))
+	 <SET L </ .L 2>>
+	 <SCREEN ,SOFT-WINDOW>
+	 <CURSET 1 1>
+	 <DIROUT ,D-TABLE-ON ,DIROUT-TABLE>
+	 <FONT 1>
+	 <TELL "Function Keys">
+	 <PRINT-CENTER-TABLE>
+	 <FONT 4>
+	 <SET FKEY <REST ,FKEYS 2>>
+	 <REPEAT ()
+		 <COND (<L? .CNT .L>
+			<DISPLAY-SOFT .FKEY .CNT
+				      <COND (<EQUAL? .CNT .LINE> <>)
+					    (ELSE T)>>
+			<SET FKEY <REST .FKEY 4>>)
+		       (ELSE <RETURN>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+<ROUTINE DISPLAY-SOFT (FKEY CNT INV?
+		       "AUX" (FDEF <GET .FKEY 1>) S N M TMP
+		       (Y <+ .CNT 2>) X)
+	 <COND (<L? <GET .FKEY 0> 0> ;"constant string"
+		<CCURSET .Y 1>
+		<COND (.INV? <HLIGHT ,H-INVERSE>)>
+		<FONT 1>
+		<DIROUT ,D-TABLE-ON ,DIROUT-TABLE>
+		<TELL <GET .FDEF 0>>
+		<PRINT-CENTER-TABLE>
+		<FONT 4>)
+	       (ELSE
+		<SET S <GETB .FDEF 0>>
+		<SET N <GETB .FDEF 1>>
+		<CCURSET .Y 1>
+		<COND (<SET TMP
+			    <INTBL? <GET .FKEY 0>
+				    <REST ,FNAMES 2>
+				    <GET ,FNAMES 0>>>
+		       <COND (.INV? <HLIGHT ,H-NORMAL>)
+			     (ELSE <HLIGHT ,H-INVERSE>)>
+		       <TELL <GET .TMP 1>>
+		       <HLIGHT ,H-NORMAL>
+		       <TELL " ">
+		       <COND (.INV? <HLIGHT ,H-INVERSE>)
+			     (ELSE <HLIGHT ,H-NORMAL>)>)>
+		<SET FDEF <REST .FDEF 2>> ;"get past header bytes"
+		<COND (.N ;"any definition?"
+		       <SET M <- .N 1>>
+		       <COND (<EQUAL? <GETB .FDEF .M> 13> ;"last character CR?"
+			      <PRINTT .FDEF .M>
+			      <PRINTC !\|>
+			      <SET FDEF <REST .FDEF .N>>
+			      <SET S <- .S .N>>)>)>
+		<PRINTT .FDEF .S>
+		<COND (<NOT .INV?>
+		       <CCURSET .Y <+ .N 5>>)>)>
+	 <HLIGHT ,H-NORMAL>>
+
+<ROUTINE SOFT-RESET-DEFAULTS ("AUX" K L KEYS DEF KL TMP)
+	 <SET KL <GET ,FKEYS 0>>
+	 <SET DEF ,DEFAULT-FKEYS>
+	 <REPEAT ()
+		 <SET K <GETB .DEF 0>>
+		 <COND (<ZERO? .K> <RETURN>)>
+		 <SET DEF <REST .DEF>>
+		 <SET L <+ 1 <GETB .DEF 0>>>
+		 <COND (<SET KEYS <INTBL? .K <REST ,FKEYS 2> .KL>>
+			<SET KEYS <GET .KEYS 1>>
+			<SET TMP <REST .KEYS>>
+			<PUTB .TMP 0 !\ >
+			<COPYT .TMP <REST .TMP> <- <GETB .KEYS 0>>>
+			<COPYT .DEF <REST .KEYS> .L>)>
+		 <SET DEF <REST .DEF .L>>>
+	 <RFALSE>>
+
+<CONSTANT DEFS-NAME <LTABLE (STRING) "DEFS">>
+
+<ROUTINE SOFT-SAVE-DEFS ()
+	 <CLEAR 0>
+	 <SCREEN 0>
+	 <COND (<NOT <SAVE ,FKEY-TBL
+			   ,FKEYS-STRTABLE-LEN
+			   ,DEFS-NAME>>
+	        <TELL "Failed.">)>
+	 <CLEAR 0>
+	 <SCREEN ,SOFT-WINDOW>
+	 <RFALSE>>
+
+<ROUTINE SOFT-RESTORE-DEFS ()
+	 <CLEAR 0>
+	 <SCREEN 0>
+	 <COND (<NOT <RESTORE ,FKEY-TBL ,FKEYS-STRTABLE-LEN ,DEFS-NAME>>
+		<TELL "Failed.">)>
+	 <CLEAR 0>
+	 <SCREEN ,SOFT-WINDOW>
+	 <RFALSE>>
+
+<ROUTINE SOFT-EXIT ()
+	 <RTRUE>>
+
+<CONSTANT FLEN 30>		;"max length of a key definition"
+<CONSTANT SOFT-WINDOW 2>	;"window to use for defining"
+
+"table containing string definitions for each function key.
+contiguous so it can be written out or read in."
+
+<SOFT-KEYS ,UP-ARROW "n
"
+	   ,DOWN-ARROW "s
"
+	   ,LEFT-ARROW "w
"
+	   ,RIGHT-ARROW "e
"
+	   ;"vt100 keypad keys"
+	   ,F1 "take " 
+	   ,F2 "take all
"
+	   ,F3 "drop "
+	   ,F4 "look around
"
+	   ,F5 "inventory
"
+	   ,F6 "unlock door "
+	   ,F7 "jester, "
+	   ,F8 "give magic locket to moose
"
+	   ,F9 "read about "
+	   ,F10 "examine "
+	   -4 <TABLE "Save Defs" SOFT-SAVE-DEFS>
+	   -5 <TABLE "Restore Defs" SOFT-RESTORE-DEFS>
+	   -6 <TABLE "Reset Defaults" SOFT-RESET-DEFAULTS>
+	   -2 <TABLE "Exit" SOFT-EXIT>>
+
+;<CONSTANT FKEYS-STRTABLE-LEN <* 14 <+ ,FLEN 2>>>
+
+;<CONSTANT MTBL <ITABLE 4 0>>
+
+;<CONSTANT SOFT-TOP 3>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE Y? ("AUX" X)
+	 <REPEAT ()
+	     <COND (,DEMO-VERSION?
+		    <SET X <INPUT-DEMO 1>>)
+		   (T
+		    <SET X <INPUT 1>>)>
+	     ;<MOUSE-INPUT?>
+	     <COND (<EQUAL? .X !\Y !\y ,CLICK1 ,CLICK2>
+		    <SET X T>
+		    <RETURN>)
+		   (<EQUAL? .X !\N !\n>
+		    <SET X <>>
+		    <RETURN>)
+		   (T
+		    <TELL CR "[Please type Y or N] >">)>>
+	 <CRLF>
+	 <RETURN .X>>
+
+<ROUTINE BLINK (PIC1 PIC2 Y X SCR "AUX" CHAR LAST (CNT 0))
+	 <SCREEN .SCR>
+	 <DISPLAY .PIC2 .Y .X>
+	 <SCREEN ,S-TEXT>
+	 <SET LAST .PIC2>
+	 <REPEAT ()
+		 <SETG TYPED-TIMED-OUT <>>
+		 <SET CHAR <INPUT 1 3 ;"three-tenths of a second" ,TYPED?>>
+		 <MOUSE-INPUT?>
+		 <COND (,TYPED-TIMED-OUT
+			<SCREEN .SCR>
+			<DISPLAY <COND (<EQUAL? .LAST .PIC1>
+					<SET LAST .PIC2>
+					.PIC2)
+				       (T
+					<SET LAST .PIC1>
+					.PIC1)> .Y .X>
+			<SET CNT <+ .CNT 1>>
+			<COND (<AND <EQUAL? .CNT 4>
+				    ,ROSE-NEEDS-UPDATING
+				    <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>
+			       <UPDATE-MAP-ROSE>)>
+			<SCREEN ,S-TEXT>)
+		       (T
+			<COND (<EQUAL? .LAST .PIC2> ;"leave unhighlited pic up"
+			       <SCREEN .SCR>
+			       <DISPLAY .PIC1 .Y .X>
+			       <SCREEN ,S-TEXT>)>
+			<RETURN .CHAR>)>>>
+
+<GLOBAL TYPED-TIMED-OUT <>>
+
+<ROUTINE TYPED? ()
+	 <SETG TYPED-TIMED-OUT T>
+	 <RTRUE>>
+
+<ROUTINE PICINF-PLUS-ONE (PIC)
+	 <PICINF .PIC ,PICINF-TBL>
+	 <PUT ,PICINF-TBL 0 <+ <GET ,PICINF-TBL 0> 1>>
+	 <PUT ,PICINF-TBL 1 <+ <GET ,PICINF-TBL 1> 1>>>
+
+<GLOBAL MOUSE-LOC-X <>> ;"X-coordinate of most recent mouse click"
+
+<GLOBAL MOUSE-LOC-Y <>> ;"Y-coordinate of most recent mouse click"
+
+<ROUTINE MOUSE-INPUT? ()
+	 <SETG MOUSE-LOC-X <LOWCORE MSLOCX>>
+	 <SETG MOUSE-LOC-Y <LOWCORE MSLOCY>>>
+
+;<CONSTANT CENTER-TABLE <ITABLE 80 <BYTE 0>>>
+
+;<ROUTINE PRINT-CENTER-TABLE ()
+	 <DIROUT ,D-TABLE-OFF>
+	 <CURSET <WINGET -3 ,WYPOS>
+		 <+ </ <- <WINGET -3 ,WWIDE>
+			  <LOWCORE TWID>>
+		       2>
+		    1>>
+	 <PRINTT <REST ,CENTER-TABLE 2> <GET ,CENTER-TABLE 0>>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/jester.zabstr b/jester.zabstr
new file mode 100644
index 0000000..f7feae2
--- /dev/null
+++ b/jester.zabstr
@@ -0,0 +1,222 @@
+
+<BEGIN-SEGMENT 0> 
+<OBJECT JESTER (DESC "jester") (DESCFCN JESTER-F) (SYNONYM JESTER JESTERS JOKER
+MAN) (FLAGS ACTORBIT SEARCHBIT CONTBIT OPENBIT ANIMATEDBIT) (ACTION JESTER-F)> 
+<DEFINE-ROUTINE JESTER-F> 
+<BEGIN-SEGMENT CASTLE> 
+<DEFINE-ROUTINE J-ENTRY> 
+<GLOBAL MID-NAME-NUM <>> 
+<CONSTANT MID-NAMES <PTABLE "Hideoz" "Bivotar" "Urgwitz" "Foofoonap" "Elderbar"
+"Goozums" "Syovar" "Buck" "Spike" "Zippy" "Magglebar" "Barfoo">> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<CONSTANT MID-NAME-WORDS <PTABLE <VOC "HIDEOZ" NOUN> <VOC "BIVOTAR" NOUN> <VOC
+"URGWITZ" NOUN> <VOC "FOOFOONAP" NOUN> <VOC "ELDERBAR" NOUN> <VOC "GOOZUMS"
+NOUN> <VOC "SYOVAR" NOUN> <VOC "BUCK" NOUN> <VOC "SPIKE" NOUN> <VOC "ZIPPY"
+NOUN> <VOC "MAGGLEBAR" NOUN> <VOC "BARFOO" NOUN>>> 
+<OBJECT MID-NAME (LOC GLOBAL-OBJECTS) (DESC "middle name") (SYNONYM HIDEOZ
+BIVOTAR URGWITZ FOOFOONAP ELDERBAR GOOZUMS SYOVAR BUCK SPIKE ZIPPY MAGGLEBAR
+BARFOO) (ACTION MID-NAME-F)> 
+<DEFINE-ROUTINE MID-NAME-F> 
+<OBJECT OTHER-J-NAMES (LOC GLOBAL-OBJECTS) (DESC "jester's name") (SYNONYM
+BARBAZZO FERNAP) (ACTION OTHER-J-NAMES-F)> 
+<DEFINE-ROUTINE OTHER-J-NAMES-F> 
+<OBJECT J-POCKET (LOC JESTER) (DESC "jester's pocket") (SYNONYM POCKET) (
+ADJECTIVE HIS JESTER\'S) (OWNER JESTER) (FLAGS NDESCBIT) (ACTION J-GARMENT-F)> 
+<OBJECT J-HAT (LOC JESTER) (DESC "jester's hat") (SYNONYM HAT BELL BELLS) (
+ADJECTIVE HIS JESTER\'S SMALL GAUDY) (OWNER JESTER) (FLAGS NDESCBIT) (GENERIC
+G-HAT-F) (ACTION J-GARMENT-F)> 
+<OBJECT J-SHOE (LOC JESTER) (DESC "jester's shoe") (SYNONYM SHOE) (ADJECTIVE
+HIS JESTER\'S) (OWNER JESTER) (FLAGS NDESCBIT) (ACTION J-GARMENT-F)> 
+<DEFINE-ROUTINE J-GARMENT-F> 
+<OBJECT J-SUIT (LOC JESTER) (DESC "jester's suit") (SYNONYM SUIT) (ADJECTIVE
+GREEN SKIN-TIGHT) (OWNER JESTER) (FLAGS NDESCBIT)> 
+<DEFINE-ROUTINE I-JESTER> 
+<DEFINE-ROUTINE J-EXITS> 
+<DEFINE-ROUTINE BEYOND-LAKE?> 
+<GLOBAL J-APPEAR-PROB 0> 
+<GLOBAL DO-J <>> 
+<DEFINE-ROUTINE REMOVE-J> 
+<DEFINE-ROUTINE DONT-CRY> 
+<GLOBAL J-INQ-SCENE <>> 
+<GLOBAL J-ON-RAFT <>> 
+<GLOBAL FUNNY-PAPER-PROB 20> 
+<GLOBAL SLATE-PROB 33> 
+<GLOBAL SCROLL-PROB 33> 
+<GLOBAL GUESSES 0> 
+<GLOBAL ALLIGATOR <>> 
+<DEFINE-ROUTINE I-UNALLIGATOR> 
+<GLOBAL SUFFOCATE-COUNTER 0> 
+<DEFINE-ROUTINE I-SUFFOCATE> 
+<DEFINE-ROUTINE I-FUNNY-PAPER> 
+<DEFINE-ROUTINE I-REMOVE-FUNNY-PAPER> 
+<OBJECT FUNNY-PAPER (LOC LOCAL-GLOBALS) (DESC "funny paper") (SYNONYM PAPER
+PIECE NEWSPAPER COMICS) (ADJECTIVE COLORFUL FUNNY) (FLAGS TAKEBIT BURNBIT
+READBIT) (SIZE 2) (ACTION FUNNY-PAPER-F)> 
+<DEFINE-ROUTINE FUNNY-PAPER-F> 
+<OBJECT BEDBUG (DESC "giant bedbug") (SYNONYM BUG BEDBUG) (ADJECTIVE LARGE BED)
+(ACTION BEDBUG-F)> 
+<DEFINE-ROUTINE BEDBUG-F> 
+<OBJECT CLOWN-NOSE (DESC "red clown nose") (SYNONYM NOSE) (ADJECTIVE RED CLOWN)
+(FLAGS WEARBIT TAKEBIT) (SIZE 2) (ACTION CLOWN-NOSE-F)> 
+<DEFINE-ROUTINE CLOWN-NOSE-F> 
+<OBJECT SLATE (LOC LOCAL-GLOBALS) (DESC "dusty slate") (SYNONYM SLATE) (
+ADJECTIVE DUSTY SMALL SILLY OLD) (FLAGS READBIT TAKEBIT) (ACTION SLATE-F)> 
+<GLOBAL STUMP-X 0> 
+<GLOBAL STUMP-Y 0> 
+<DEFINE-ROUTINE SLATE-F> 
+<OBJECT SCROLL (LOC LOCAL-GLOBALS) (DESC "scroll") (SYNONYM SCROLL PAPER) (
+FLAGS READBIT TAKEBIT BURNBIT) (SIZE 2) (ACTION SCROLL-F)> 
+<DEFINE-ROUTINE SCROLL-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT SHELL-TABLE (DESC "small table") (SYNONYM TABLE) (ADJECTIVE SMALL) (
+FLAGS SURFACEBIT CONTBIT OPENBIT SEARCHBIT)> 
+<OBJECT LEFT-SHELL (LOC SHELL-TABLE) (DESC "left shell") (SYNONYM SHELL) (
+ADJECTIVE LEFT FIRST) (ACTION SHELL-F)> 
+<OBJECT CENTER-SHELL (LOC SHELL-TABLE) (DESC "center shell") (SYNONYM SHELL) (
+ADJECTIVE CENTER MIDDLE SECOND) (ACTION SHELL-F)> 
+<OBJECT RIGHT-SHELL (LOC SHELL-TABLE) (DESC "right shell") (SYNONYM SHELL) (
+ADJECTIVE RIGHT THIRD) (ACTION SHELL-F)> 
+<DEFINE-ROUTINE SHELL-F> 
+<DEFINE-ROUTINE ANOTHER-SHELL-GAME> 
+<DEFINE-ROUTINE SEE-BILL?> 
+<OBJECT ZORKMID-BILL (LOC LOCAL-GLOBALS) (DESC "zorkmid bill") (SYNONYM BILL
+MONEY) (ADJECTIVE ZORKMID) (FLAGS TAKEBIT BURNBIT READBIT MAGICBIT) (SIZE 1) (
+VALUE 0) (TEXT "The denomination of the bill is 100,000 zorkmids. Only one such bill
+was ever printed, and that was at the personal request of J. Pierpont
+Flathead.")> 
+<ROOM JESTERS-QUARTERS (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Jester's Quarters") (DOWN TO SERVANTS-QUARTERS) (OUT TO SERVANTS-QUARTERS) (
+NORTH TO WEIRD IF LARGE-DOOR IS OPEN) (SOUTH PER SMALL-DOOR-ENTER-F) (FLAGS
+RLANDBIT) (SYNONYM QUARTERS) (OWNER JESTER) (GLOBAL STAIRS LARGE-DOOR
+SMALL-DOOR) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-10>) (ICON
+J-QUARTER-ICON) (ACTION JESTERS-QUARTERS-F)> 
+<DEFINE-ROUTINE JESTERS-QUARTERS-F> 
+<DEFINE-ROUTINE SMALL-DOOR-ENTER-F> 
+<OBJECT LARGE-DOOR (LOC LOCAL-GLOBALS) (DESC "large arched door") (SYNONYM DOOR
+) (ADJECTIVE LARGE ARCHED) (FLAGS DOORBIT) (GENERIC G-J-DOOR-F) (ACTION
+LARGE-DOOR-F)> 
+<DEFINE-ROUTINE LARGE-DOOR-F> 
+<DEFINE-ROUTINE G-J-DOOR-F> 
+<OBJECT SMALL-DOOR (LOC LOCAL-GLOBALS) (DESC "small louvered door") (SYNONYM
+DOOR) (ADJECTIVE SMALL SOUTH LOUVERED) (FLAGS NDESCBIT) (GENERIC G-J-DOOR-F) (
+ACTION SMALL-DOOR-F)> 
+<DEFINE-ROUTINE SMALL-DOOR-F> 
+<OBJECT T-OF-B (OWNER T-OF-B) (DESC "Tower of Bozbar") (SYNONYM TOWER BOZBAR) (
+FLAGS CONTBIT OPENBIT SEARCHBIT) (RESEARCH
+"The Tower of Bozbar, an ancient game of unknown origin, consists of three pegs
+and a pile of weights. The goal is to move the pile from one peg to another,
+moving one weight at a time, with the constraint that no weight can ever be
+placed atop a smaller weight. Many people say that the Tower of Bozbar is a
+superb method of mental relaxation. [Obviously, none of these people have ever
+played Zork Zero.]")> 
+<OBJECT LEFT-PEG (LOC T-OF-B) (DESC "left peg") (SYNONYM PEG POST) (ADJECTIVE
+FIRST LEFT) (FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)> 
+<OBJECT CENTER-PEG (LOC T-OF-B) (DESC "center peg") (SYNONYM PEG POST) (
+ADJECTIVE SECOND CENTER MIDDLE) (FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)> 
+<OBJECT RIGHT-PEG (LOC T-OF-B) (DESC "right peg") (SYNONYM PEG POST) (ADJECTIVE
+THIRD RIGHT) (FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)> 
+<OBJECT 1-WEIGHT (LOC CENTER-PEG) (DESC "1-ugh weight") (SYNONYM WEIGHT) (
+ADJECTIVE 1-UGH) (FLAGS NDESCBIT) (SIZE 1) (ACTION WEIGHT-F)> 
+<OBJECT 2-WEIGHT (LOC CENTER-PEG) (DESC "2-ugh weight") (SYNONYM WEIGHT) (
+ADJECTIVE 2-UGH) (FLAGS NDESCBIT) (SIZE 2) (ACTION WEIGHT-F)> 
+<OBJECT 3-WEIGHT (LOC CENTER-PEG) (DESC "3-ugh weight") (SYNONYM WEIGHT) (
+ADJECTIVE 3-UGH) (FLAGS NDESCBIT) (SIZE 3) (ACTION WEIGHT-F)> 
+<OBJECT 4-WEIGHT (LOC CENTER-PEG) (DESC "4-ugh weight") (SYNONYM WEIGHT) (
+ADJECTIVE 4-UGH) (FLAGS NDESCBIT) (SIZE 4) (ACTION WEIGHT-F)> 
+<OBJECT 5-WEIGHT (LOC CENTER-PEG) (DESC "5-ugh weight") (SYNONYM WEIGHT) (
+ADJECTIVE 5-UGH) (FLAGS NDESCBIT) (SIZE 5) (ACTION WEIGHT-F)> 
+<OBJECT 6-WEIGHT (LOC CENTER-PEG) (DESC "6-ugh weight") (SYNONYM WEIGHT) (
+ADJECTIVE 6-UGH) (FLAGS NDESCBIT) (SIZE 6) (ACTION WEIGHT-F)> 
+<DEFINE-ROUTINE WEIGHT-F> 
+<GLOBAL TOWER-BEATEN <>> 
+<GLOBAL TOWER-CHANGED <>> 
+<DEFINE-ROUTINE TOWER-MODE> 
+<DEFINE-ROUTINE B-MOUSE-PEG-PICK> 
+<DEFINE-ROUTINE B-MOUSE-WEIGHT-PICK> 
+<DEFINE-ROUTINE TOWER-WIN-CHECK> 
+<DEFINE-ROUTINE SET-PEG-TABLE> 
+<DEFINE-ROUTINE NOT-TOP-WEIGHT> 
+<DEFINE-ROUTINE MOVE-WEIGHT> 
+<DEFINE-ROUTINE CRUSH-WEIGHT> 
+<DEFINE-ROUTINE B-SAVE> 
+<DEFINE-ROUTINE B-RESTORE> 
+<CONSTANT B-X-TBL <TABLE <> <> <>>> 
+<CONSTANT B-Y-TBL <TABLE <> <> <> <> <> <>>> 
+<CONSTANT TOWER-UNDO-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>> 
+<CONSTANT LEFT-PEG-TABLE <TABLE 0 0 0 0 0 0>> 
+<CONSTANT CENTER-PEG-TABLE <TABLE 6-WEIGHT 5-WEIGHT 4-WEIGHT 3-WEIGHT 2-WEIGHT
+1-WEIGHT>> 
+<CONSTANT RIGHT-PEG-TABLE <TABLE 0 0 0 0 0 0>> 
+<CONSTANT B-PICSET-TBL <TABLE B-RESTORE-PEG 1-WEIGHT 2-WEIGHT 3-WEIGHT 4-WEIGHT
+5-WEIGHT 6-WEIGHT 0>> 
+<DEFINE-ROUTINE DRAW-TOWER> 
+<DEFINE-ROUTINE DRAW-PEG> 
+<DEFINE-ROUTINE SET-B-PIC> 
+<ROOM WEIRD (LOC ROOMS) (REGION "Flatheadia") (DESC "Weird Passageway") (SOUTH
+TO JESTERS-QUARTERS IF LARGE-DOOR IS OPEN) (NORTH PER WEIRD-EXIT-F) (WEST PER
+WEIRD-EXIT-F) (EAST PER WEIRD-EXIT-F) (FLAGS RLANDBIT) (GLOBAL LARGE-DOOR) (
+MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-10>) (ACTION WEIRD-F)> 
+<DEFINE-ROUTINE WEIRD-EXIT-F> 
+<DEFINE-ROUTINE WEIRD-ENTER-F> 
+<DEFINE-ROUTINE WEIRD-F> 
+<ROOM PYRAMID (LOC ROOMS) (REGION "Flatheadia") (DESC "Pyramid Room") (SOUTH
+PER WEIRD-ENTER-F) (OUT PER WEIRD-ENTER-F) (FLAGS RLANDBIT) (VALUE 7) (MAP-LOC
+<PTABLE MAIN-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-10>) (ICON PYRAMID-ICON) (ACTION
+PYRAMID-F)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT GOGGLES (LOC PYRAMID) (OWNER GOGGLES) (DESC "pair of goggles") (PLURAL
+"goggles") (SYNONYM GOGGLES PAIR ETCHING) (FLAGS PLURALBIT TAKEBIT WEARBIT
+TRANSBIT) (ACTION GOGGLES-F)> 
+<DEFINE-ROUTINE GOGGLES-F> 
+<DEFINE-ROUTINE DISCOVER-X-RAY> 
+<GLOBAL DONT-KNOW-ABOUT-XRAY T> 
+<OBJECT CRATE (LOC PYRAMID) (DESC "crate") (LDESC
+"Sitting in the corner is a wooden shipping crate with some writing
+stencilled across the top.") (SYNONYM CRATE WRITING) (ADJECTIVE WOODEN SHIPPING
+STENCILLED) (FLAGS READBIT BURNBIT CONTBIT SEARCHBIT TAKEBIT) (CAPACITY 100) (
+OWNER CRATE) (SIZE 80) (TEXT
+"\"1000 Clown Noses, Red|
+Frobozz Magic Clown Nose Company\"")> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM PYRAMID-R (LOC ROOMS) (REGION "Flatheadia") (DESC "Pyramid Room") (WEST
+PER WEIRD-ENTER-F) (OUT PER WEIRD-ENTER-F) (FLAGS RLANDBIT) (VALUE 7) (MAP-LOC
+<PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-11>) (ICON PYRAMID-ICON) (ACTION
+PYRAMID-F)> 
+<OBJECT MANUSCRIPT (LOC PYRAMID-R) (DESC "manuscript") (SYNONYM MANUSCRIPT) (
+FLAGS READBIT TAKEBIT BURNBIT MAGICBIT) (VALUE 12) (TEXT
+"The manuscript is entitled \"On the Discoloration of Roadside Slush.\" You
+try reading it, but keep dozing off on the third or fourth word.")> 
+<ROOM PYRAMID-L (LOC ROOMS) (REGION "Flatheadia") (DESC "Pyramid Room") (EAST
+PER WEIRD-ENTER-F) (OUT PER WEIRD-ENTER-F) (FLAGS RLANDBIT) (VALUE 7) (MAP-LOC
+<PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-9>) (ICON PYRAMID-ICON) (ACTION
+PYRAMID-F)> 
+<DEFINE-ROUTINE PYRAMID-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT CUP (LOC PYRAMID-L) (DESC "cup") (SYNONYM CUP) (FLAGS TAKEBIT CONTBIT
+SEARCHBIT OPENBIT) (ACTION CUP-F)> 
+<DEFINE-ROUTINE CUP-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT POTION (LOC CUP) (DESC "magic potion") (SYNONYM POTION POTIONS LIQUID)
+(ADJECTIVE MAGIC YELLOW-GREEN) (FLAGS NARTICLEBIT) (RESEARCH
+"\"Potions are the most accessible form of magic for the masses, since
+they are simply drunk like water. No lessons in complicated spell-casting
+are required.\"") (ACTION POTION-F)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<GLOBAL POTION-GULPS 4> 
+<GLOBAL PLANT-TALKER <>> 
+<DEFINE-ROUTINE POTION-F> 
+<DEFINE-ROUTINE I-POTION> 
+<DEFINE-ROUTINE PLANT-STUNNED> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT FENSHIRE> 
+<OBJECT COOKPOT (DESC "cookpot") (SYNONYM COOKPOT POT) (FLAGS CONTBIT OPENBIT
+SEARCHBIT) (CAPACITY 50) (ACTION COOKPOT-F)> 
+<DEFINE-ROUTINE COOKPOT-F> 
+<OBJECT COOKFIRE (DESC "cookfire") (SYNONYM COOKFIRE FIRE) (FLAGS FLAMEBIT)> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/jester.zap b/jester.zap
new file mode 100644
index 0000000..57259a1
--- /dev/null
+++ b/jester.zap
@@ -0,0 +1,1467 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	JESTER-F,ARG
+	EQUAL?	ARG,M-OBJDESC? /TRUE
+	EQUAL?	ARG,M-OBJDESC \?CCL5
+	PRINTI	"   The jester "
+	IN?	COOKPOT,HERE \?CCL8
+	PRINTI	"is here, "
+	PRINT	COOK-DESC
+	RTRUE	
+?CCL8:	EQUAL?	HERE,TAX-OFFICE \?CCL10
+	IN?	ZORKMID-COIN,LOCAL-GLOBALS \?CCL10
+	PRINT	BOOKKEEPER-DESC
+	RTRUE	
+?CCL10:	ZERO?	J-ON-RAFT /?CCL14
+	PRINTI	"lies on an inner tube. His eyes twinkle at you behind his sunglasses."
+	RTRUE	
+?CCL14:	PRINTI	"is nearby, watching you with great amusement."
+	RTRUE	
+?CCL5:	EQUAL?	ARG,M-WINNER \?CCL16
+	EQUAL?	PRSA,V?SAY \?CCL19
+	EQUAL?	HERE,ENTRANCE-HALL \?CCL19
+	FSET?	PORTCULLIS,OPENBIT \FALSE
+?CCL19:	EQUAL?	PRSA,V?SAY \?CCL24
+	IN?	EAST-KEY,JESTER /FALSE
+?CCL24:	EQUAL?	PRSA,V?SAY \?CCL28
+	EQUAL?	HERE,OUBLIETTE /FALSE
+?CCL28:	PRINTI	"""Don't waste your breath, for I'd go to any length to avoid a conversation with such depth as yours. Also, silence is the height of fashion nowadays."""
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL16:	EQUAL?	PRSA,V?EXAMINE \?CCL32
+	ZERO?	J-ON-RAFT /?CCL35
+	PRINTR	"The jester is wearing dark glasses and floating around on an inner tube."
+?CCL35:	IN?	COOKPOT,HERE \?CCL37
+	PRINTI	"The jester is "
+	PRINT	COOK-DESC
+	CRLF	
+	RTRUE	
+?CCL37:	EQUAL?	HERE,TAX-OFFICE \?CCL39
+	IN?	ZORKMID-COIN,LOCAL-GLOBALS \?CCL39
+	PRINTI	"The jester is "
+	PRINT	BOOKKEEPER-DESC
+	CRLF	
+	RTRUE	
+?CCL39:	FSET?	GOGGLES,WORNBIT \?CCL43
+	PRINT	YOU-SEE
+	PRINTR	" right through the jester's clothes as though they were transparent! Embarassed, you turn away. (But not before noticing that the jester has pink butterflies stitched onto his underwear.)"
+?CCL43:	PRINTR	"The jester is dressed in a green skin-tight suit, and is wearing a hat with many pointy ends. From each end dangles a gaudy little bell. The jester's eyes twinkle with mischievous energy."
+?CCL32:	EQUAL?	PRSA,V?SHOW,V?GIVE \?CCL45
+	EQUAL?	HERE,MARSH,NICE-LUNCH-SPOT \?CCL45
+	EQUAL?	PRSO,FOX,ROOSTER,WORM \?CCL45
+	PRINTR	"""Mon Dieu! I must have all zee ingredients together!"""
+?CCL45:	EQUAL?	PRSA,V?GIVE \?CCL50
+	EQUAL?	PRSO,PIGEON \?CCL50
+	CALL2	META-LOC,PERCH
+	EQUAL?	STACK,HERE \?CCL55
+	PRINTR	"The jester takes the pigeon, looks it over, shrugs, and hands it back."
+?CCL55:	PRINTI	"The jester recedes to a point and vanishes, a look of comical surprise splattered across his wide face."
+	IN?	SHELL-TABLE,HERE \?CND56
+	PRINTI	" The table and shells disappear as well."
+?CND56:	CRLF	
+	ICALL1	REMOVE-J
+	SET	'J-DISPOSED,MOVES
+	LOC	PERCH
+	ZERO?	STACK /?CCL60
+	LOC	PERCH
+	MOVE	PIGEON,STACK
+	RETURN	2
+?CCL60:	REMOVE	PIGEON
+	RETURN	2
+?CCL50:	EQUAL?	PRSA,V?SHOW \?CCL64
+	EQUAL?	PRSO,NUT \?CCL67
+	ZERO?	NUT-OPENED /?CCL70
+	SET	'NUT-SHOWN,TRUE-VALUE
+	PRINTR	"""True, no one has seen this 'ere me -- but thousands may see it in years to be!"""
+?CCL70:	PRINTR	"""Uncertain and skeptical I must be; countless people may have gazed upon this before me."""
+?CCL67:	EQUAL?	PRSO,UNOPENED-NUT,NUT-SHELL \FALSE
+	PRINTI	"The jester cocks one eyebrow"
+	EQUAL?	HERE,WEST-WING \?CND73
+	PRINTI	" and a smile dances at the corners of his mouth"
+?CND73:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL64:	EQUAL?	PRSA,V?KILL,V?EAT \?CCL76
+	ZERO?	ALLIGATOR /?CCL76
+	PRINTR	"The jester jumps nimbly away from your snapping jaws."
+?CCL76:	EQUAL?	PRSA,V?RESEARCH \FALSE
+	CALL	PICTURED-ENTRY,J-ILL,FALSE-VALUE
+	RSTACK	
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	J-ENTRY
+	PRINTI	"""Jesters employ physical, verbal, and magical trickery for the entertainment of king and court. The most recent Royal Jester, the favorite of Lord Wurb Flathead, is named Barbazzo "
+	GET	MID-NAMES,MID-NAME-NUM
+	PRINT	STACK
+	PRINTR	" Fernap."""
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	MID-NAME-F
+	CALL2	VISIBLE?,JESTER
+	ZERO?	STACK /?CCL3
+	GET	MID-NAME-WORDS,MID-NAME-NUM
+	CALL	NOUN-USED?,MID-NAME,STACK
+	ZERO?	STACK /?CCL3
+	CALL2	PERFORM-PRSA,JESTER
+	RSTACK	
+?CCL3:	CALL2	HANDLE,MID-NAME
+	ZERO?	STACK \?CCL7
+	EQUAL?	PRSA,V?FOLLOW \FALSE
+?CCL7:	PRINT	BY-THAT-NAME
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	OTHER-J-NAMES-F
+	CALL2	VISIBLE?,JESTER
+	ZERO?	STACK /?CCL3
+	CALL2	PERFORM-PRSA,JESTER
+	RSTACK	
+?CCL3:	CALL2	HANDLE,OTHER-J-NAMES
+	ZERO?	STACK \?CCL5
+	EQUAL?	PRSA,V?FOLLOW \FALSE
+?CCL5:	PRINT	BY-THAT-NAME
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	J-GARMENT-F
+	EQUAL?	PRSO,J-POCKET,J-SHOE,J-HAT \?CCL3
+	CALL2	TOUCHING?,PRSO
+	ZERO?	STACK /?CCL3
+	PRINTR	"The jester dances spryly out of reach."
+?CCL3:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-INSIDE,V?EXAMINE \?CCL7
+	IN?	ZORKMID-BILL,PRSO \?CCL7
+	FSET?	GOGGLES,WORNBIT \?CCL7
+	PRINT	YOU-SEE
+	PRINTI	" right through"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" as if it were made of glass -- and sure enough, there's the zorkmid bill!"
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL12
+	EQUAL?	PRSO,J-HAT \?CCL12
+	PRINTR	"It has many floppy tips, with bells dangling from each one."
+?CCL12:	EQUAL?	PRSA,V?POINT \FALSE
+	EQUAL?	HERE,GAMING-ROOM \FALSE
+	FSET?	ZORKMID-BILL,TOUCHBIT /FALSE
+	IN?	ZORKMID-BILL,PRSO \?CCL22
+	MOVE	ZORKMID-BILL,PROTAGONIST
+	FSET	ZORKMID-BILL,TOUCHBIT
+	PRINTI	"The jester looks sheepish. He removes the bill and hands it to you. ""You're pretty slick; you've discovered my trick."""
+	ICALL1	J-EXITS
+	ICALL2	INC-SCORE,12
+	RTRUE	
+?CCL22:	PRINTI	"The jester howls with glee, and "
+	EQUAL?	PRSO,J-POCKET \?CCL25
+	PRINTI	"turns his pocket inside out"
+	JUMP	?CND23
+?CCL25:	EQUAL?	PRSO,J-HAT \?CCL27
+	PRINTI	"removes his hat"
+	JUMP	?CND23
+?CCL27:	PRINTI	"removes his shoe"
+?CND23:	PRINTI	". Nothing. "
+	CALL1	ANOTHER-SHELL-GAME
+	RSTACK	
+
+
+	.FUNCT	I-JESTER,CALLED-BY-DOORBELL,PLUR,APPEAR-PROB
+	ZERO?	TIME-STOPPED /?CND1
+	ICALL2	DEQUEUE,I-JESTER
+	RFALSE	
+?CND1:	SET	'APPEAR-PROB,J-APPEAR-PROB
+	EQUAL?	HERE,FR-OFFICES,OFFICES-WEST,OFFICES-EAST /?CCL4
+	EQUAL?	HERE,OFFICES-NORTH,OFFICES-SOUTH \?CND3
+?CCL4:	ADD	FLOOR-NUMBER,40
+	DIV	STACK,40
+	DIV	APPEAR-PROB,STACK >APPEAR-PROB
+?CND3:	ICALL	QUEUE,I-JESTER,-1
+	IN?	PROTAGONIST,DB /?CTR8
+	EQUAL?	HERE,INQUISITION,PLAIN /?CTR8
+	EQUAL?	HERE,ENTRANCE-HALL \?CCL9
+	FSET?	PORTCULLIS,OPENBIT /?CCL9
+	ZERO?	CALLED-BY-DOORBELL \?CCL9
+?CTR8:	RANDOM	5
+	ICALL	QUEUE,I-JESTER,STACK
+	RFALSE	
+?CCL9:	ZERO?	LIT \?CCL17
+	RANDOM	5
+	ICALL	QUEUE,I-JESTER,STACK
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   You hear jingling bells and a familiar laugh in the darkness."
+	FSET?	SECRET-PASSAGE,TOUCHBIT /?CND18
+	PRINTR	" ""Trouble finding a light? I'm just the man to set you right! Tighten your belt and pull up your socks and re-read the book from your ZORK ZERO box! Or,"" the voice asks suspiciously, ""maybe you're one of those software pirates? In that case, I hope you fall into a bottomless pit."""
+?CND18:	CRLF	
+	RTRUE	
+?CCL17:	ZERO?	DO-J \?CTR20
+	RANDOM	100
+	LESS?	APPEAR-PROB,STACK /?CCL21
+?CTR20:	SET	'DO-J,FALSE-VALUE
+	ICALL2	DEQUEUE,I-JESTER
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+	IN?	JESTER,HERE /?CND24
+	ZERO?	TURNED-INTO /?CCL28
+	ICALL1	REMOVE-J
+	PRINTI	"You suddenly notice another "
+	ICALL2	DPRINT,TURNED-INTO
+	PRINTI	", wearing a jester's costume. Laughing, it says, ""I'd heard that there was a dauntless adventurer around, but there's no one here but us "
+	GETP	TURNED-INTO,P?PLURAL >PLUR
+	ZERO?	PLUR /?CCL31
+	PRINT	PLUR
+	JUMP	?CND29
+?CCL21:	INC	'J-APPEAR-PROB
+	RFALSE	
+?CCL31:	ICALL2	DPRINT,TURNED-INTO
+	PRINTC	115
+?CND29:	PRINTI	"!"" Still laughing, the jester/"
+	ICALL2	DPRINT,TURNED-INTO
+	PRINTR	" vanishes."
+?CCL28:	CALL2	VISIBLE?,OTTO
+	ZERO?	STACK /?CCL33
+	PRINTI	"You spot a fly wearing a tiny floppy green hat with bells at the tips. Otto spots the fly as well, and begins to salivate. In a high, thin imitation of the jester's voice, the fly cries ""Help me!"" -- but Otto's tongue moves before you can, and in a split-second the jester/fly is gonzo."
+	RTRUE	
+?CCL33:	IN?	PROTAGONIST,YACHT \?CCL35
+	SET	'J-ON-RAFT,TRUE-VALUE
+	PRINTI	"You notice the jester, floating next to the yacht in an inner tube, wearing sunglasses and lots of tanning lotion."
+	JUMP	?CND24
+?CCL35:	FSET?	JESTER,TOUCHBIT \?CCL37
+	PRINTI	"The jester appears."
+	EQUAL?	HERE,ICKY-CAVE \?CCL40
+	IN?	SICKLY-WITCH,HERE \?CCL40
+	PRINT	WITCH-REMOVES-J
+	RTRUE	
+?CCL40:	FSET?	HERE,BEYONDBIT \?CND24
+	PRINTI	" ""Hi! Small world, isn't it!"""
+	JUMP	?CND24
+?CCL37:	FSET	JESTER,TOUCHBIT
+	PRINTI	"You suddenly notice a wiry fellow with an outrageous costume and a feral grin. ""I'm the jester of the castle, I may pester, I may hassle; and I often speak in rhyme, for it helps to pass the time!"""
+?CND24:	MOVE	JESTER,HERE
+	ICALL2	THIS-IS-IT,JESTER
+	EQUAL?	PRSA,V?TAKE \?CCL46
+	EQUAL?	PRSO,EAST-KEY \?CCL46
+	FSET?	EAST-KEY,TRYTAKEBIT \?CCL46
+	MOVE	EAST-KEY,JESTER
+	PRINTI	" He snatches the key before you can take it."
+	JUMP	?CND44
+?CCL46:	EQUAL?	HERE,PITS \?CND44
+	FSET?	LANTERN,TRYTAKEBIT \?CND44
+	PRINTR	" He has an enormous slice of watermelon which he devours with juicy abandon, rind and all, and then spits out a stream of pits, which land and turn into even more bottomless pits. ""Don't you hate pits? I know I do!"""
+?CND44:	CRLF	
+	PRINTI	"   "
+	EQUAL?	HERE,ENTRANCE-HALL \?CCL55
+	FSET?	PORTCULLIS,OPENBIT \?CCL58
+	PRINTI	"The jester looks at the open portcullis. ""Oh, right! My memory is no longer so great; I've already opened this gate!"""
+	ICALL1	J-EXITS
+	JUMP	?CND53
+?CCL58:	ICALL2	SETUP-ORPHAN,STR?44
+	PRINTI	"""If you're quick as a fiddle, and answer this riddle, you'll get what you're hopin' -- the gate will be open!"" The jester clears his throat. """
+	GETP	HERE,P?RIDDLE
+	PRINT	STACK
+	CRLF	
+	JUMP	?CND53
+?CCL55:	IN?	EAST-KEY,JESTER \?CCL60
+	ICALL2	SETUP-ORPHAN,STR?44
+	PRINTI	"""Before you get this key, you must answer this riddle for me!"" The jester poses theatrically. """
+	GETP	SOLAR,P?RIDDLE
+	PRINT	STACK
+	CRLF	
+	JUMP	?CND53
+?CCL60:	EQUAL?	HERE,OUBLIETTE \?CCL62
+	ZERO?	OUBLIETTE-SCORE \?CCL65
+	PRINTI	"""Trapped again? Don't frown or fret! I'll help you leave the Oubliette! But saving you is such a pain; please don't get stuck down here again!"""
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,DUNGEON
+	JUMP	?CND53
+?CCL65:	ICALL2	SETUP-ORPHAN,STR?44
+	PRINTI	"""Don't scream or shout, I'll get you out! But first my thirst for a riddle must be twiddled!"" The jester coughs lightly and begins. """
+	GETP	HERE,P?RIDDLE
+	PRINT	STACK
+	CRLF	
+	JUMP	?CND53
+?CCL62:	EQUAL?	HERE,WEST-WING \?CCL67
+	ZERO?	NUT-EATEN \?CCL67
+	PRINT	ERE-YOU-PASS
+	JUMP	?CND53
+?CCL67:	EQUAL?	HERE,GAMING-ROOM \?CCL71
+	FSET?	ZORKMID-BILL,TOUCHBIT /?CCL71
+	MOVE	SHELL-TABLE,HERE
+	PRINTI	"""Blackjack... Fanucci... all too tame; let's play the old shell game!"" From thin air, the jester produces a small table, three shells, and a zorkmid bill of high denomination. He arranges the shells in a row on the table and places the bill under the center shell. With hands that move in a dizzying blur, he shuffles the order of the shells. ""Demonstrate your visual skill -- point to the location of the zorkmid bill!"" He motions toward the shells, left, center, and right."
+	ICALL1	SEE-BILL?
+	CRLF	
+	JUMP	?CND53
+?CCL71:	EQUAL?	HERE,FR-PENTHOUSE \?CCL75
+	PRINTI	"""Your persistence will bring you wide renown; you've reached the four hundredth floor! The hard part now is getting down -- I suggest that you simply RESTORE!"""
+	CRLF	
+	ICALL1	J-EXITS
+	JUMP	?CND53
+?CCL75:	RANDOM	100
+	LESS?	SLATE-PROB,STACK /?CCL77
+	IN?	SLATE,LOCAL-GLOBALS \?CCL77
+	MOVE	SLATE,PROTAGONIST
+	PRINTI	"""While cleaning my attic, I found some old haddock, a hammer and nails, some barrels and pails, an old garden gate, and this silly old slate!"" He hands you the slate."
+	ICALL2	J-EXITS,TRUE-VALUE
+	JUMP	?CND53
+?CCL77:	RANDOM	100
+	LESS?	SCROLL-PROB,STACK /?CCL81
+	IN?	SCROLL,LOCAL-GLOBALS \?CCL81
+	LOC	PROTAGONIST
+	FSET?	STACK,DROPBIT \?CCL86
+	LOC	PROTAGONIST
+	MOVE	SCROLL,STACK
+	JUMP	?CND84
+?CCL86:	MOVE	SCROLL,HERE
+?CND84:	PRINTI	"""I thought of no rhyme; my puzzle's on paper this time."" He drops a scroll by your feet."
+	ICALL2	J-EXITS,TRUE-VALUE
+	JUMP	?CND53
+?CCL81:	RANDOM	100
+	LESS?	25,STACK /?CCL88
+	FSET?	HERE,BEYONDBIT /?CCL88
+	PRINTI	"""I've learned from years of loyalty, spinning rhymes for this noble court, that with the attention span of royalty, my poems must be short!"""
+	ICALL1	J-EXITS
+	JUMP	?CND53
+?CCL88:	PRINTI	"The jester watches you with twinkling eyes."
+	CRLF	
+?CND53:	ADD	SLATE-PROB,2 >SLATE-PROB
+	ADD	SCROLL-PROB,2 >SCROLL-PROB
+	RETURN	SCROLL-PROB
+
+
+	.FUNCT	J-EXITS,JUST-DID-SLATE-OR-SCROLL,DO-FUNNY-PAPER,LIT?
+	ICALL1	REMOVE-J
+	RANDOM	100
+	LESS?	FUNNY-PAPER-PROB,STACK /?CND1
+	IN?	FUNNY-PAPER,LOCAL-GLOBALS \?CND1
+	ZERO?	JUST-DID-SLATE-OR-SCROLL \?CND1
+	SET	'DO-FUNNY-PAPER,TRUE-VALUE
+?CND1:	RANDOM	100
+	LESS?	15,STACK /?CCL8
+	ZERO?	DO-FUNNY-PAPER \?CCL8
+	PRINTR	" The jester winces at his rhyming, then shrugs. ""Oh, well, they can't all be gems."" In a wink, he is gone."
+?CCL8:	RANDOM	100
+	LESS?	20,STACK /?CND6
+	IN?	PROTAGONIST,HERE \?CND6
+	EQUAL?	HERE,TORTURE-CHAMBER /?CND6
+	ZERO?	DO-FUNNY-PAPER \?CND6
+	MOVE	BEDBUG,HERE
+	SET	'P-CONT,-1
+	PRINTR	" The jester yawns and says, ""Think I'll catch some winks. Nighty night! Don't let the bedbugs bite!"" As the jester vanishes, you hear the clicking of giant mandibles."
+?CND6:	PRINTI	" The jester gives a cheerful wave of farewell and vanishes, saying, """
+	ZERO?	DO-FUNNY-PAPER /?CCL18
+	ICALL	QUEUE,I-FUNNY-PAPER,2
+	SET	'FUNNY-PAPER-PROB,0
+	PRINTI	"See you in the funny papers!"" A breeze begins picking up."
+	CRLF	
+	JUMP	?CND16
+?CCL18:	RANDOM	100
+	LESS?	20,STACK /?CCL20
+	FSET?	HERE,DESERTBIT /?CCL20
+	EQUAL?	HERE,LAKE-FLATHEAD,UNDERWATER,LAKE-BOTTOM /?CCL20
+	EQUAL?	HERE,HOLD,GONDOLA /?CCL20
+	GETP	HERE,P?REGION
+	EQUAL?	STACK,STR?249 /?CCL20
+	PRINTI	"See you next week, same bat time, same bat channel!"" A moment later, you hear a shrieking, ""Fweep! Fweep! Fweep!"" A large deranged bat swoops down, snatches you up, and deposits you in"
+	PRINT	ELLIPSIS
+	MOVE	PROTAGONIST,HERE
+	CALL	FIND-IN,PROTAGONIST,ONBIT >LIT?
+	ZERO?	LIT? \?CND27
+	CALL	FIND-IN,HERE,ONBIT >LIT?
+	ZERO?	LIT? /?CND27
+	MOVE	LIT?,PROTAGONIST
+?CND27:	CALL1	BEYOND-LAKE?
+	ZERO?	STACK \?CTR32
+	ZERO?	LIT? /?CCL33
+	RANDOM	100
+	LESS?	25,STACK /?CCL33
+?CTR32:	PUSH	BATS-LAIR
+	JUMP	?CND31
+?CCL33:	ZERO?	SECRET-PASSAGE-OPEN /?CCL39
+	ZERO?	LIT? /?CCL39
+	RANDOM	100
+	LESS?	40,STACK /?CCL39
+	PUSH	PARAPET
+	JUMP	?CND31
+?CCL39:	FSET?	DRAWBRIDGE,OPENBIT \?CCL44
+	RANDOM	100
+	LESS?	50,STACK /?CCL44
+	PUSH	OUTER-BAILEY
+	JUMP	?CND31
+?CCL44:	PUSH	ROOF
+?CND31:	ICALL2	GOTO,STACK
+	JUMP	?CND16
+?CCL20:	RANDOM	100
+	LESS?	33,STACK /?CCL48
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS,SHOULDER /?CCL48
+	EQUAL?	HERE,EAR,INNER-EAR /?CCL48
+	ZERO?	HUNGER-COUNT \?CCL48
+	EQUAL?	JUMP-X,99 \?CCL48
+	EQUAL?	JUMP-Y,99 \?CCL48
+	SET	'ALLIGATOR,TRUE-VALUE
+	ICALL	QUEUE,I-UNALLIGATOR,4
+	PRINTI	"See you later, alligator!"" Your skin feels itchy"
+	FIRST?	PROTAGONIST \?CND56
+	PRINTI	" and you've dropped what you were holding"
+?CND56:	PRINTC	46
+	LOC	PROTAGONIST
+	FSET?	STACK,DROPBIT \?CCL60
+	LOC	PROTAGONIST
+	JUMP	?CND58
+?CCL60:	PUSH	HERE
+?CND58:	ICALL	ROB,PROTAGONIST,STACK
+	SET	'P-CONT,-1
+	CRLF	
+	JUMP	?CND16
+?CCL48:	RANDOM	100
+	LESS?	50,STACK \?CTR61
+	ZERO?	ALLIGATOR \?CTR61
+	FSET?	CLOWN-NOSE,WORNBIT \?CCL62
+?CTR61:	PRINTI	"So long, and thanks for all the fish!"" Odd. You've never given the jester any fish."
+	CRLF	
+	JUMP	?CND16
+?CCL62:	MOVE	CLOWN-NOSE,PROTAGONIST
+	FSET	CLOWN-NOSE,WORNBIT
+	ICALL	QUEUE,I-SUFFOCATE,-1
+	SET	'P-CONT,-1
+	PRINTI	"Catch you aroun', clown!"" You suddenly find yourself having a bit of difficulty breathing."
+	CRLF	
+?CND16:	ADD	FUNNY-PAPER-PROB,5 >FUNNY-PAPER-PROB
+	RETURN	FUNNY-PAPER-PROB
+
+
+	.FUNCT	BEYOND-LAKE?
+	FSET?	HERE,DESERTBIT /TRUE
+	EQUAL?	HERE,STABLE,GROTTO,SHRINE /TRUE
+	EQUAL?	HERE,G-U-MOUNTAIN,STREAM,G-U-WOODS /TRUE
+	EQUAL?	HERE,G-U-SAVANNAH,EAST-SHORE,SOUTH-SHORE /TRUE
+	EQUAL?	HERE,RING-OF-DUNES,BASE-OF-MOUNTAIN /TRUE
+	RFALSE	
+
+
+	.FUNCT	REMOVE-J
+	ICALL	QUEUE,I-JESTER,12
+	SET	'J-APPEAR-PROB,0
+	SET	'GUESSES,FALSE-VALUE
+	SET	'J-ON-RAFT,FALSE-VALUE
+	IN?	EAST-KEY,JESTER \?CND1
+	MOVE	EAST-KEY,SOLAR
+?CND1:	FSET?	ZORKMID-BILL,TOUCHBIT /?CND3
+	MOVE	ZORKMID-BILL,LOCAL-GLOBALS
+?CND3:	REMOVE	SHELL-TABLE
+	REMOVE	JESTER
+	RTRUE	
+
+
+	.FUNCT	DONT-CRY
+	INC	'GUESSES
+	PRINTI	"""Wrong, but don't "
+	EQUAL?	GUESSES,3 \?CCL3
+	SET	'GUESSES,0
+	PRINTI	"get all a-twiddle; I'll repeat the riddle! "
+	GETP	HERE,P?RIDDLE
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL3:	PRINTR	"cry -- give it another try."""
+
+
+	.FUNCT	I-UNALLIGATOR
+	SET	'ALLIGATOR,FALSE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   With a pop, your tail and snout shorten, and you are no longer a candidate for being turned into a pair of expensive shoes."
+
+
+	.FUNCT	I-SUFFOCATE
+	FSET?	CLOWN-NOSE,WORNBIT /?CND1
+	SET	'SUFFOCATE-COUNTER,0
+	ICALL2	DEQUEUE,I-SUFFOCATE
+	RFALSE	
+?CND1:	INC	'SUFFOCATE-COUNTER
+	EQUAL?	SUFFOCATE-COUNTER,5 \?CCL5
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   You're still having trouble breathing. It's probably due to the clown nose that's clamped in the middle of your face."
+?CCL5:	EQUAL?	SUFFOCATE-COUNTER,8 \?CCL7
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   It's really getting tough to keep going without fresh air!"
+?CCL7:	EQUAL?	SUFFOCATE-COUNTER,10 \?CCL9
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   You're getting lightheaded..."
+?CCL9:	EQUAL?	SUFFOCATE-COUNTER,11 \FALSE
+	ICALL1	RETURN-FROM-MAP
+	CALL2	JIGS-UP,STR?928
+	RSTACK	
+
+
+	.FUNCT	I-FUNNY-PAPER
+	LOC	PROTAGONIST
+	MOVE	FUNNY-PAPER,STACK
+	ICALL	QUEUE,I-REMOVE-FUNNY-PAPER,1
+	ICALL2	THIS-IS-IT,FUNNY-PAPER
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The wind blows a colorful piece of newspaper into view. It's a funny paper!"
+
+
+	.FUNCT	I-REMOVE-FUNNY-PAPER,TOLD
+	IN?	FUNNY-PAPER,PROTAGONIST /?CND1
+	CALL2	VISIBLE?,FUNNY-PAPER
+	ZERO?	STACK /?CND3
+	SET	'TOLD,TRUE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The wind blows the funny paper out of sight."
+	CRLF	
+?CND3:	MOVE	FUNNY-PAPER,LOCAL-GLOBALS
+?CND1:	ZERO?	TOLD \TRUE
+	RFALSE	
+
+
+	.FUNCT	FUNNY-PAPER-F
+	EQUAL?	PRSA,V?READ \?CCL3
+	PRINTI	"It's a comic strip entitled ""Me and the Jester."" In the strip, a peasant adventurer is bumbling around a mighty castle, alternately helped and hindered by a playful jester. In one panel, the Jester suggests that the adventurer look under the "
+	ICALL2	DPRINT,HOLEY-SLAB
+	PRINTR	" in the Crypt."
+?CCL3:	EQUAL?	PRSA,V?FOLLOW \FALSE
+	PRINTR	"You've lost track of it."
+
+
+	.FUNCT	BEDBUG-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"It's quite larger than any bedbug you've ever seen before: about the size of a small sheep. It looks as if it has just been roused from a deep sleep, and isn't at all happy about the fact. With a mixture of weariness and anger, it waves powerful pincers in your direction."
+?CCL3:	EQUAL?	PRSA,V?LEAP \?CCL5
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?KICK,V?BITE,V?KILL \FALSE
+	PRINTR	"This bedbug's chitinous shell is like battle armor."
+
+
+	.FUNCT	CLOWN-NOSE-F
+	EQUAL?	PRSA,V?WEAR \FALSE
+	FSET?	CLOWN-NOSE,WORNBIT /FALSE
+	FSET	CLOWN-NOSE,WORNBIT
+	ICALL	QUEUE,I-SUFFOCATE,-1
+	PRINTR	"You don the nose, which makes breathing extremely difficult."
+
+
+	.FUNCT	SLATE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The small slate is set into a wooden frame. It looks to be at least fifty if not a hundred years old. A shaky hand has inscribed something onto the slate."
+?CCL3:	EQUAL?	PRSA,V?READ \FALSE
+	ZERO?	STUMP-X \?CND6
+	RANDOM	3 >STUMP-X
+	RANDOM	100
+	LESS?	50,STACK /?CND8
+	MUL	STUMP-X,-1 >STUMP-X
+?CND8:	RANDOM	3 >STUMP-Y
+	RANDOM	100
+	LESS?	50,STACK /?CND10
+	MUL	STUMP-Y,-1 >STUMP-Y
+?CND10:	PRINTI	"You shake enough dust off the slate to read it: "
+?CND6:	PRINTI	"""Stand at the oldest and mightiest elm around. Jump "
+	GRTR?	STUMP-Y,0 \?CCL14
+	PRINTI	"north "
+	JUMP	?CND12
+?CCL14:	PRINTI	"south "
+?CND12:	EQUAL?	STUMP-Y,1,-1 \?CCL17
+	PRINTI	"once"
+	JUMP	?CND15
+?CCL17:	EQUAL?	STUMP-Y,2,-2 \?CCL19
+	PRINTI	"twice"
+	JUMP	?CND15
+?CCL19:	PRINTI	"thrice"
+?CND15:	PRINTI	" then jump "
+	GRTR?	STUMP-X,0 \?CCL22
+	PRINTI	"east "
+	JUMP	?CND20
+?CCL22:	PRINTI	"west "
+?CND20:	EQUAL?	STUMP-X,1,-1 \?CCL25
+	PRINTI	"once"
+	JUMP	?CND23
+?CCL25:	EQUAL?	STUMP-X,2,-2 \?CCL27
+	PRINTI	"twice"
+	JUMP	?CND23
+?CCL27:	PRINTI	"thrice"
+?CND23:	PRINTR	"."""
+
+
+	.FUNCT	SCROLL-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTI	"The paper reads:"
+	CRLF	
+	CRLF	
+	PRINTI	"   "
+	HLIGHT	H-ITALIC
+	PRINTI	"RAM A NAG"
+	CRLF	
+	CRLF	
+	HLIGHT	H-NORMAL
+	PRINTR	"TREEN RIBARLY HENT HOCUT MORRA RICHET"
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	SHELL-F
+	EQUAL?	PRSA,V?POINT \?CCL3
+	PRINTI	"The jester lifts the shell. Empty. "
+	CALL1	ANOTHER-SHELL-GAME
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?MOVE,V?LOOK-UNDER,V?TOUCH /?CTR4
+	EQUAL?	PRSA,V?TAKE \?CCL5
+?CTR4:	PRINTR	"The jester stops you, saying, ""You deserve a beating for trying such cheating!"""
+?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
+	FSET?	GOGGLES,WORNBIT \FALSE
+	PRINTR	"Thanks to the goggles, you can see right through the shell as though it were transparent! There's nothing under it."
+
+
+	.FUNCT	ANOTHER-SHELL-GAME
+	PRINTI	"""Don't be sore, let's try it once more!"" He reshuffles the shells."
+	MOVE	ZORKMID-BILL,LOCAL-GLOBALS
+	ICALL1	SEE-BILL?
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SEE-BILL?,BILL-LOC
+	FSET?	GOGGLES,WORNBIT \FALSE
+	RANDOM	100
+	LESS?	33,STACK /?CCL6
+	SET	'BILL-LOC,J-POCKET
+	JUMP	?CND4
+?CCL6:	RANDOM	100
+	LESS?	50,STACK /?CCL8
+	SET	'BILL-LOC,J-SHOE
+	JUMP	?CND4
+?CCL8:	SET	'BILL-LOC,J-HAT
+?CND4:	MOVE	ZORKMID-BILL,BILL-LOC
+	PRINTI	" You find that you can see right through the shells -- and the zorkmid bill isn't under any of them! Before you can say so, you notice the bill -- "
+	EQUAL?	BILL-LOC,J-HAT \?CCL11
+	PRINTI	"under"
+	JUMP	?CND9
+?CCL11:	PRINTI	"in"
+?CND9:	ICALL2	TPRINT,BILL-LOC
+	PRINTI	"! After a moment, the vision fades, and"
+	ICALL2	TPRINT,BILL-LOC
+	PRINTI	" once again appears opaque."
+	RTRUE	
+
+
+	.FUNCT	JESTERS-QUARTERS-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a small, spare room. The only features are a small louvered door on the south wall, a larger arched door on the north wall, and a stair which spirals downward. "
+	FSET?	LARGE-DOOR,OPENBIT \?CCL6
+	PRINTI	"The large door is open but the small door is"
+	JUMP	?CND4
+?CCL6:	PRINTI	"Both doors are"
+?CND4:	PRINTI	" closed."
+	RTRUE	
+
+
+	.FUNCT	SMALL-DOOR-ENTER-F,RARG
+	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	ICALL	DO-FIRST,STR?140,SMALL-DOOR
+	ICALL2	THIS-IS-IT,SMALL-DOOR
+	RFALSE	
+
+
+	.FUNCT	LARGE-DOOR-F
+	EQUAL?	PRSA,V?OPEN \FALSE
+	ZERO?	TOWER-BEATEN \FALSE
+	PRINTR	"Although there's no visible lock, the door refuses to budge."
+
+
+	.FUNCT	G-J-DOOR-F,TBL,LEN
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	LARGE-DOOR,OPENBIT \?CCL3
+	RETURN	SMALL-DOOR
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	LARGE-DOOR,OPENBIT \FALSE
+	RETURN	LARGE-DOOR
+
+
+	.FUNCT	SMALL-DOOR-F,WEIGHT-CNT,FUDGE,?TMP1,?TMP2
+	EQUAL?	PRSA,V?LOOK-BEHIND,V?OPEN \?CCL3
+	ICALL2	PICINF-PLUS-ONE,B-1-L-PIC-LOC
+	GET	PICINF-TBL,0
+	PUT	B-Y-TBL,5,STACK
+	GET	PICINF-TBL,1
+	PUT	B-X-TBL,0,STACK
+	ICALL2	PICINF-PLUS-ONE,B-2-C-PIC-LOC
+	GET	PICINF-TBL,0
+	PUT	B-Y-TBL,4,STACK
+	GET	PICINF-TBL,1
+	PUT	B-X-TBL,1,STACK
+	ICALL2	PICINF-PLUS-ONE,B-3-R-PIC-LOC
+	GET	PICINF-TBL,0
+	PUT	B-Y-TBL,3,STACK
+	GET	PICINF-TBL,1
+	PUT	B-X-TBL,2,STACK
+	ICALL2	PICINF-PLUS-ONE,B-4-PIC-LOC
+	GET	PICINF-TBL,0
+	PUT	B-Y-TBL,2,STACK
+	ICALL2	PICINF-PLUS-ONE,B-5-PIC-LOC
+	GET	PICINF-TBL,0
+	PUT	B-Y-TBL,1,STACK
+	ICALL2	PICINF-PLUS-ONE,B-6-PIC-LOC
+	GET	PICINF-TBL,0
+	PUT	B-Y-TBL,0,STACK
+	FSET	SMALL-DOOR,OPENBIT
+	SET	'TOWER-CHANGED,FALSE-VALUE
+	ICALL	SPLIT-BY-PICTURE,B-SPLIT,TRUE-VALUE
+	ICALL2	ADJUST-TEXT-WINDOW,B-BOTTOM
+	ICALL1	DRAW-TOWER
+	PRINTI	"Opening the door reveals a tiny nook containing a Tower of Bozbar, consisting of 3 pegs and "
+	CALL2	CCOUNT,LEFT-PEG >?TMP2
+	CALL2	CCOUNT,RIGHT-PEG
+	ADD	?TMP2,STACK >?TMP1
+	CALL2	CCOUNT,CENTER-PEG
+	ADD	?TMP1,STACK >WEIGHT-CNT
+	PRINTN	WEIGHT-CNT
+	PRINTI	" cylindrical weight"
+	EQUAL?	WEIGHT-CNT,1 /?CND4
+	PRINTC	115
+?CND4:	EQUAL?	WEIGHT-CNT,6 \?CND6
+	PRINTI	" ranging from a 1-ugh to a 6-ugh weight"
+?CND6:	PRINT	PERIOD-CR
+	PRINTI	"   Type the number of the weight you want to move, followed by the peg you want to move it to: L, C, or R. "
+	ZERO?	ACTIVE-MOUSE /?CND8
+	PRINTI	"Or, if you'd rather use your mouse, click on the weight you want to move, then click on the peg you want to move it to. "
+?CND8:	PRINTI	"You can Undo your move by typing U"
+	ZERO?	ACTIVE-MOUSE /?CND10
+	PRINTI	" (or clicking on the UNDO spot)"
+?CND10:	GET	0,8
+	BTST	STACK,8 /?CCL14
+	PRINTI	" -- even though Undo doesn't normally work on your system!"
+	JUMP	?CND12
+?CCL14:	PRINTC	46
+?CND12:	PRINTI	" Type X"
+	ZERO?	ACTIVE-MOUSE /?CND15
+	PRINTI	" (or click on the EXIT spot)"
+?CND15:	PRINTI	" to exit."
+	ICALL1	TOWER-MODE
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	ICALL2	INIT-SL-WITH-SPLIT,TEXT-WINDOW-PIC-LOC
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL18
+	PRINTR	"The small door is closed."
+?CCL18:	EQUAL?	PRSA,V?CLOSE \FALSE
+	PRINTR	"It is!"
+
+
+	.FUNCT	WEIGHT-F,CNT,RECURSING
+	EQUAL?	PRSA,V?MOVE-TO \FALSE
+	EQUAL?	PRSI,RIGHT-PEG,CENTER-PEG,LEFT-PEG \FALSE
+	IN?	PRSO,PRSI \?CCL8
+	PRINTI	"It's already on that peg."
+	RTRUE	
+?CCL8:	CALL2	NOT-TOP-WEIGHT,PRSO
+	ZERO?	STACK /?CCL10
+	PRINTI	"You can only move the weight that's on top!"
+	RTRUE	
+?CCL10:	SET	'TOWER-CHANGED,TRUE-VALUE
+	ICALL	MOVE-WEIGHT,PRSO,PRSI
+	MOVE	PRSO,PRSI
+	PRINTI	"You move"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" to"
+	ICALL1	TPRINT-PRSI
+?PRG11:	CALL	CRUSH-WEIGHT,PRSO,PRSI,RECURSING
+	ZERO?	STACK /?REP12
+	SET	'RECURSING,TRUE-VALUE
+	JUMP	?PRG11
+?REP12:	ZERO?	TOWER-BEATEN /?CND16
+	SET	'TOWER-BEATEN,FALSE-VALUE
+	FSET?	LARGE-DOOR,OPENBIT \?CND16
+	FCLEAR	LARGE-DOOR,OPENBIT
+	PRINTI	". The large door to the north swings silently shut"
+?CND16:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	TOWER-MODE,CHAR,WGT,PEG,X,JUST-UNDID,?TMP1
+?PRG1:	ZERO?	TOWER-CHANGED /?CND3
+	ZERO?	JUST-UNDID \?CND3
+	CALL1	TOWER-WIN-CHECK >TOWER-BEATEN
+	ZERO?	TOWER-BEATEN /?CND3
+	PRINTI	"   You hear a ""click"" from the direction of the Tower"
+	EQUAL?	TOWER-BEATEN,PYRAMID /?CND8
+	PRINTI	". It tilts to the "
+	EQUAL?	TOWER-BEATEN,PYRAMID-L \?CCL12
+	PRINTI	"left"
+	JUMP	?CND8
+?CCL12:	PRINTI	"right"
+?CND8:	FSET	WEIRD,REDESCBIT
+	FCLEAR	SMALL-DOOR,OPENBIT
+	PRINTI	". The small louvered door swings silently shut."
+	RTRUE	
+?CND3:	ZERO?	DEMO-VERSION? /?CCL15
+	CALL2	INPUT-DEMO,1 >CHAR
+	JUMP	?CND13
+?CCL15:	INPUT	1 >CHAR
+?CND13:	ICALL1	MOUSE-INPUT?
+	EQUAL?	CHAR,CLICK1,CLICK2 \?CND16
+	CALL1	B-MOUSE-WEIGHT-PICK >CHAR
+?CND16:	CLEAR	S-TEXT
+	EQUAL?	CHAR,88,120 \?CCL20
+	PRINTI	"You shut the louvered door, concealing the Tower of Bozbar from view."
+	RTRUE	
+?CCL20:	EQUAL?	CHAR,85,117 \?CCL22
+	ZERO?	TOWER-CHANGED \?CCL25
+	PRINTI	"You can't undo until you make a move!"
+	JUMP	?PRG1
+?CCL25:	ZERO?	JUST-UNDID /?CCL27
+	PRINTI	"You just undid; you can't undo again until you move again!"
+	JUMP	?PRG1
+?CCL27:	SET	'JUST-UNDID,TRUE-VALUE
+	ICALL1	B-RESTORE
+	ICALL2	DRAW-TOWER,TRUE-VALUE
+	PRINTI	"Undone."
+	JUMP	?PRG1
+?CCL22:	EQUAL?	CHAR,49,50,51 /?CTR28
+	EQUAL?	CHAR,52,53,54 /?CTR28
+	EQUAL?	CHAR,146,147,148 /?CTR28
+	EQUAL?	CHAR,149,150,151 \?CCL29
+?CTR28:	EQUAL?	CHAR,49,146 \?CCL36
+	SET	'WGT,1-WEIGHT
+	JUMP	?CND34
+?CCL36:	EQUAL?	CHAR,50,147 \?CCL38
+	SET	'WGT,2-WEIGHT
+	JUMP	?CND34
+?CCL38:	EQUAL?	CHAR,51,148 \?CCL40
+	SET	'WGT,3-WEIGHT
+	JUMP	?CND34
+?CCL40:	EQUAL?	CHAR,52,149 \?CCL42
+	SET	'WGT,4-WEIGHT
+	JUMP	?CND34
+?CCL42:	EQUAL?	CHAR,53,150 \?CCL44
+	SET	'WGT,5-WEIGHT
+	JUMP	?CND34
+?CCL44:	SET	'WGT,6-WEIGHT
+?CND34:	LOC	WGT
+	EQUAL?	STACK,LEFT-PEG,CENTER-PEG,RIGHT-PEG /?CCL47
+	PRINTI	"There's no "
+	ICALL2	DPRINT,WGT
+	PRINTI	" anymore -- you crushed it."
+	JUMP	?PRG1
+?CCL47:	ZERO?	ACTIVE-MOUSE /?CCL50
+	PRINTI	"Use your mouse or t"
+	JUMP	?CND48
+?CCL50:	PRINTC	84
+?CND48:	PRINTI	"ype L (left) or C (center) or R (right) to specify the peg you'd like to move the "
+	ICALL2	DPRINT,WGT
+	PRINTI	" to."
+	ZERO?	DEMO-VERSION? /?CCL53
+	CALL2	INPUT-DEMO,1 >CHAR
+	JUMP	?CND51
+?CCL53:	INPUT	1 >CHAR
+?CND51:	ICALL1	MOUSE-INPUT?
+	EQUAL?	CHAR,CLICK1,CLICK2 \?CND54
+	CALL1	B-MOUSE-PEG-PICK >CHAR
+?CND54:	CLEAR	S-TEXT
+	EQUAL?	CHAR,76,108,82 /?CCL58
+	EQUAL?	CHAR,114,67,99 /?CCL58
+	PRINTI	"Next time, "
+	EQUAL?	CHAR,CLICK1 \?CCL63
+	PRINTI	"click on the left, center, or right peg!"
+	JUMP	?PRG1
+?CCL63:	PRINTI	"type R (right), L (left), or C (center) to specify a destination peg!"
+	JUMP	?PRG1
+?CCL58:	EQUAL?	CHAR,76,108 \?CCL66
+	SET	'PEG,LEFT-PEG
+	JUMP	?CND64
+?CCL66:	EQUAL?	CHAR,82,114 \?CCL68
+	SET	'PEG,RIGHT-PEG
+	JUMP	?CND64
+?CCL68:	SET	'PEG,CENTER-PEG
+?CND64:	ICALL1	B-SAVE
+	ZERO?	TOWER-CHANGED /?PRD72
+	ZERO?	JUST-UNDID /?CND69
+?PRD72:	ZERO?	ACTIVE-MOUSE /?CND69
+	ICALL2	PICINF-PLUS-ONE,TOWER-UNDO-BOX-LOC
+	SCREEN	S-WINDOW
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	UNDO-BOX,?TMP1,STACK
+	SCREEN	S-TEXT
+?CND69:	SET	'JUST-UNDID,FALSE-VALUE
+	CALL	PERFORM,V?MOVE-TO,WGT,PEG >X
+	JUMP	?PRG1
+?CCL29:	EQUAL?	CHAR,76,108,82 /?CTR75
+	EQUAL?	CHAR,114,67,99 \?CCL76
+?CTR75:	PRINTI	"You must select a weight before you select a destination!"
+	JUMP	?PRG1
+?CCL76:	PRINT	TYPE-A-NUMBER
+	PRINTI	"6, U for Undo, or X to eXit the Tower of Bozbar game."
+	JUMP	?PRG1
+
+
+	.FUNCT	B-MOUSE-PEG-PICK,TL-X,TL-Y,BR-X,BR-Y,WEIGHT-WIDTH,WEIGHT-HEIGHT
+	PICINF	B-1-WEIGHT,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,1 >WEIGHT-WIDTH
+	GET	PICINF-TBL,0 >WEIGHT-HEIGHT
+	ICALL2	PICINF-PLUS-ONE,B-1-L-PIC-LOC
+	GET	PICINF-TBL,0 >TL-Y
+	GET	PICINF-TBL,1 >TL-X
+	ADD	WEIGHT-WIDTH,TL-X >BR-X
+	ICALL2	PICINF-PLUS-ONE,B-6-PIC-LOC
+	GET	PICINF-TBL,0
+	ADD	STACK,TL-Y >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND2
+	RETURN	76
+?CND2:	ICALL2	PICINF-PLUS-ONE,B-2-C-PIC-LOC
+	GET	PICINF-TBL,1 >TL-X
+	ADD	WEIGHT-WIDTH,TL-X >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND4
+	RETURN	67
+?CND4:	ICALL2	PICINF-PLUS-ONE,B-3-R-PIC-LOC
+	GET	PICINF-TBL,1 >TL-X
+	ADD	WEIGHT-WIDTH,TL-X >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CCL8
+	RETURN	82
+?CCL8:	SOUND	1
+	RETURN	CLICK1
+
+
+	.FUNCT	B-MOUSE-WEIGHT-PICK,TL-X,TL-Y,BR-X,BR-Y,NUM,TBL,CNT-X,CNT-Y,WEIGHT-WIDTH,WEIGHT-HEIGHT
+	ICALL2	PICINF-PLUS-ONE,TOWER-UNDO-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	UNDO-BOX,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND2
+	RETURN	85
+?CND2:	ICALL2	PICINF-PLUS-ONE,TOWER-EXIT-BOX-LOC
+	GET	PICINF-TBL,1 >TL-X
+	GET	PICINF-TBL,0 >TL-Y
+	PICINF	EXIT-BOX,PICINF-TBL /?BOGUS4
+?BOGUS4:	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND5
+	RETURN	88
+?CND5:	PICINF	B-1-WEIGHT,PICINF-TBL /?BOGUS7
+?BOGUS7:	GET	PICINF-TBL,1 >WEIGHT-WIDTH
+	GET	PICINF-TBL,0 >WEIGHT-HEIGHT
+	SET	'TBL,LEFT-PEG-TABLE
+?PRG10:	GET	B-X-TBL,CNT-X >TL-X
+	GET	B-Y-TBL,CNT-Y >TL-Y
+	ADD	TL-X,WEIGHT-WIDTH >BR-X
+	ADD	TL-Y,WEIGHT-HEIGHT >BR-Y
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /?CND12
+	GET	TBL,CNT-Y >NUM
+	ZERO?	NUM /?CND12
+	GETP	NUM,P?SIZE >NUM
+?CND12:	INC	'CNT-Y
+	ZERO?	NUM \?REP11
+	EQUAL?	CNT-Y,6 \?PRG10
+?REP11:	ZERO?	NUM \?REP9
+	ZERO?	CNT-X \?CCL24
+	SET	'CNT-X,1
+	SET	'CNT-Y,0
+	SET	'TBL,CENTER-PEG-TABLE
+	JUMP	?PRG10
+?CCL24:	EQUAL?	CNT-X,1 \?REP9
+	SET	'CNT-X,2
+	SET	'CNT-Y,0
+	SET	'TBL,RIGHT-PEG-TABLE
+	JUMP	?PRG10
+?REP9:	ZERO?	NUM /?CCL29
+	ADD	NUM,48
+	RSTACK	
+?CCL29:	SOUND	1
+	RETURN	CLICK1
+
+
+	.FUNCT	TOWER-WIN-CHECK
+	IN?	1-WEIGHT,LEFT-PEG \?CCL3
+	IN?	2-WEIGHT,LEFT-PEG \?CCL3
+	IN?	3-WEIGHT,LEFT-PEG \?CCL3
+	IN?	4-WEIGHT,LEFT-PEG \?CCL3
+	IN?	5-WEIGHT,LEFT-PEG \?CCL3
+	IN?	6-WEIGHT,LEFT-PEG \?CCL3
+	RETURN	PYRAMID-L
+?CCL3:	IN?	1-WEIGHT,RIGHT-PEG \?CCL11
+	IN?	2-WEIGHT,RIGHT-PEG \?CCL11
+	IN?	3-WEIGHT,RIGHT-PEG \?CCL11
+	IN?	4-WEIGHT,RIGHT-PEG \?CCL11
+	IN?	5-WEIGHT,RIGHT-PEG \?CCL11
+	IN?	6-WEIGHT,RIGHT-PEG \?CCL11
+	RETURN	PYRAMID-R
+?CCL11:	IN?	1-WEIGHT,CENTER-PEG \FALSE
+	IN?	2-WEIGHT,CENTER-PEG \FALSE
+	IN?	3-WEIGHT,CENTER-PEG \FALSE
+	IN?	4-WEIGHT,CENTER-PEG \FALSE
+	IN?	5-WEIGHT,CENTER-PEG \FALSE
+	IN?	6-WEIGHT,CENTER-PEG \FALSE
+	RETURN	PYRAMID
+
+
+	.FUNCT	SET-PEG-TABLE,PEG
+	EQUAL?	PEG,LEFT-PEG \?CCL3
+	RETURN	LEFT-PEG-TABLE
+?CCL3:	EQUAL?	PEG,CENTER-PEG /?CTR4
+	RETURN	RIGHT-PEG-TABLE
+?CTR4:	RETURN	CENTER-PEG-TABLE
+
+
+	.FUNCT	NOT-TOP-WEIGHT,WGT,TBL,CNT,NOT-TOP
+	LOC	WGT
+	CALL2	SET-PEG-TABLE,STACK >TBL
+?PRG1:	GET	TBL,CNT
+	EQUAL?	STACK,WGT \?CND3
+	EQUAL?	CNT,5 \?CCL7
+	SET	'NOT-TOP,FALSE-VALUE
+	RETURN	NOT-TOP
+?CCL7:	ADD	CNT,1
+	GET	TBL,STACK
+	ZERO?	STACK \?CCL9
+	SET	'NOT-TOP,FALSE-VALUE
+	RETURN	NOT-TOP
+?CCL9:	SET	'NOT-TOP,TRUE-VALUE
+	RETURN	NOT-TOP
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	MOVE-WEIGHT,WGT,PEG,TBL,CNT,X,?TMP1
+	SCREEN	S-WINDOW
+	LOC	WGT
+	EQUAL?	STACK,LEFT-PEG \?CCL3
+	PUSH	0
+	JUMP	?CND1
+?CCL3:	LOC	WGT
+	EQUAL?	STACK,CENTER-PEG \?CCL5
+	PUSH	1
+	JUMP	?CND1
+?CCL5:	PUSH	2
+?CND1:	GET	B-X-TBL,STACK >X
+	LOC	WGT
+	CALL2	SET-PEG-TABLE,STACK >TBL
+?PRG6:	GET	TBL,CNT
+	EQUAL?	STACK,WGT \?CND8
+	GET	B-Y-TBL,CNT
+	DISPLAY	B-RESTORE-PEG,STACK,X
+	PUT	TBL,CNT,0
+	SET	'CNT,0
+	EQUAL?	PEG,LEFT-PEG \?CCL12
+	SET	'X,0
+	JUMP	?CND10
+?CND8:	INC	'CNT
+	JUMP	?PRG6
+?CCL12:	EQUAL?	PEG,CENTER-PEG \?CCL14
+	SET	'X,1
+	JUMP	?CND10
+?CCL14:	SET	'X,2
+?CND10:	GET	B-X-TBL,X >X
+	CALL2	SET-PEG-TABLE,PEG >TBL
+?PRG15:	GET	TBL,CNT
+	ZERO?	STACK \?CND17
+	CALL2	SET-B-PIC,WGT >?TMP1
+	GET	B-Y-TBL,CNT
+	DISPLAY	?TMP1,STACK,X
+	PUT	TBL,CNT,WGT
+	SCREEN	S-TEXT
+	RTRUE	
+?CND17:	INC	'CNT
+	JUMP	?PRG15
+
+
+	.FUNCT	CRUSH-WEIGHT,WGT,PEG,RECURSING,TBL,CNT,CRUSHED,X,?TMP1
+	CALL2	SET-PEG-TABLE,PEG >TBL
+?PRG1:	GET	TBL,CNT
+	EQUAL?	STACK,WGT \?CND3
+	ZERO?	CNT \?CCL7
+	SET	'CRUSHED,FALSE-VALUE
+	JUMP	?REP2
+?CCL7:	SUB	CNT,1
+	GET	TBL,STACK >CRUSHED
+	ZERO?	CRUSHED /?CCL9
+	GETP	CRUSHED,P?SIZE >?TMP1
+	GETP	WGT,P?SIZE
+	LESS?	?TMP1,STACK \?CCL9
+	EQUAL?	PEG,LEFT-PEG \?CCL14
+	PUSH	0
+	JUMP	?CND12
+?CCL14:	EQUAL?	PEG,CENTER-PEG \?CCL16
+	PUSH	1
+	JUMP	?CND12
+?CCL16:	PUSH	2
+?CND12:	GET	B-X-TBL,STACK >X
+	SCREEN	S-WINDOW
+	GET	B-Y-TBL,CNT
+	DISPLAY	B-RESTORE-PEG,STACK,X
+	CALL2	SET-B-PIC,WGT >?TMP1
+	SUB	CNT,1
+	GET	B-Y-TBL,STACK
+	DISPLAY	?TMP1,STACK,X
+	SCREEN	S-TEXT
+	REMOVE	CRUSHED
+	PUT	TBL,CNT,0
+	SUB	CNT,1
+	PUT	TBL,STACK,WGT
+	JUMP	?REP2
+?CCL9:	SET	'CRUSHED,FALSE-VALUE
+?REP2:	ZERO?	CRUSHED /FALSE
+	ZERO?	RECURSING /?CCL21
+	PRINTI	". And"
+	CALL2	TPRINT,CRUSHED
+	RSTACK	
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+?CCL21:	PRINTI	", crushing"
+	CALL2	TPRINT,CRUSHED
+	RSTACK	
+
+
+	.FUNCT	B-SAVE,CNT
+	COPYT	LEFT-PEG-TABLE,TOWER-UNDO-TABLE,12
+	ADD	TOWER-UNDO-TABLE,12
+	COPYT	CENTER-PEG-TABLE,STACK,12
+	ADD	TOWER-UNDO-TABLE,24
+	COPYT	RIGHT-PEG-TABLE,STACK,12
+	LOC	1-WEIGHT
+	PUT	TOWER-UNDO-TABLE,18,STACK
+	LOC	2-WEIGHT
+	PUT	TOWER-UNDO-TABLE,19,STACK
+	LOC	3-WEIGHT
+	PUT	TOWER-UNDO-TABLE,20,STACK
+	LOC	4-WEIGHT
+	PUT	TOWER-UNDO-TABLE,21,STACK
+	LOC	5-WEIGHT
+	PUT	TOWER-UNDO-TABLE,22,STACK
+	LOC	6-WEIGHT
+	PUT	TOWER-UNDO-TABLE,23,STACK
+	RTRUE	
+
+
+	.FUNCT	B-RESTORE,CNT,L
+	COPYT	TOWER-UNDO-TABLE,LEFT-PEG-TABLE,12
+	ADD	TOWER-UNDO-TABLE,12
+	COPYT	STACK,CENTER-PEG-TABLE,12
+	ADD	TOWER-UNDO-TABLE,24
+	COPYT	STACK,RIGHT-PEG-TABLE,12
+	GET	TOWER-UNDO-TABLE,18 >L
+	ZERO?	L /?CND1
+	MOVE	1-WEIGHT,L
+?CND1:	GET	TOWER-UNDO-TABLE,19 >L
+	ZERO?	L /?CND3
+	MOVE	2-WEIGHT,L
+?CND3:	GET	TOWER-UNDO-TABLE,20 >L
+	ZERO?	L /?CND5
+	MOVE	3-WEIGHT,L
+?CND5:	GET	TOWER-UNDO-TABLE,21 >L
+	ZERO?	L /?CND7
+	MOVE	4-WEIGHT,L
+?CND7:	GET	TOWER-UNDO-TABLE,22 >L
+	ZERO?	L /?CND9
+	MOVE	5-WEIGHT,L
+?CND9:	GET	TOWER-UNDO-TABLE,23
+	MOVE	6-WEIGHT,STACK
+	RTRUE	
+
+
+	.FUNCT	DRAW-TOWER,UNDOING,CNT,WGT,PEG-LOC,?TMP1,?TMP2
+	CLEAR	S-FULL
+	SCREEN	S-FULL
+	DISPLAY	B-BORDER,1,1
+	PICSET	B-PICSET-TBL
+	SCREEN	S-WINDOW
+	ICALL	DRAW-PEG,LEFT-PEG-TABLE,0
+	ICALL	DRAW-PEG,CENTER-PEG-TABLE,1
+	ICALL	DRAW-PEG,RIGHT-PEG-TABLE,2
+	ZERO?	ACTIVE-MOUSE /?CND1
+	ICALL2	PICINF-PLUS-ONE,TOWER-UNDO-BOX-LOC
+	CALL1	TOWER-WIN-CHECK
+	ZERO?	STACK \?CTR4
+	ZERO?	UNDOING /?CCL5
+?CTR4:	SET	'?TMP2,DIM-UNDO-BOX
+	JUMP	?CND3
+?CCL5:	SET	'?TMP2,UNDO-BOX
+?CND3:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	?TMP2,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,TOWER-EXIT-BOX-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	EXIT-BOX,?TMP1,STACK
+?CND1:	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	DRAW-PEG,TBL,X,WGT,CNT,?TMP1
+	GET	B-X-TBL,X >X
+?PRG1:	EQUAL?	CNT,6 /TRUE
+	GET	TBL,CNT >WGT
+	ZERO?	WGT /TRUE
+	CALL2	SET-B-PIC,WGT >?TMP1
+	GET	B-Y-TBL,CNT
+	DISPLAY	?TMP1,STACK,X
+	INC	'CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	SET-B-PIC,WGT
+	EQUAL?	WGT,1-WEIGHT \?CCL3
+	RETURN	B-1-WEIGHT
+?CCL3:	EQUAL?	WGT,2-WEIGHT \?CCL5
+	RETURN	B-2-WEIGHT
+?CCL5:	EQUAL?	WGT,3-WEIGHT \?CCL7
+	RETURN	B-3-WEIGHT
+?CCL7:	EQUAL?	WGT,4-WEIGHT \?CCL9
+	RETURN	B-4-WEIGHT
+?CCL9:	EQUAL?	WGT,5-WEIGHT \?CCL11
+	RETURN	B-5-WEIGHT
+?CCL11:	EQUAL?	WGT,6-WEIGHT \FALSE
+	RETURN	B-6-WEIGHT
+
+
+	.FUNCT	WEIRD-EXIT-F,RARG
+	EQUAL?	PRSO,P?WEST \?PRD5
+	EQUAL?	TOWER-BEATEN,PYRAMID-L /?CTR2
+?PRD5:	EQUAL?	PRSO,P?NORTH \?PRD8
+	EQUAL?	TOWER-BEATEN,PYRAMID /?CTR2
+?PRD8:	EQUAL?	PRSO,P?EAST \?CCL3
+	EQUAL?	TOWER-BEATEN,PYRAMID-R \?CCL3
+?CTR2:	RETURN	TOWER-BEATEN
+?CCL3:	ZERO?	RARG \FALSE
+	ICALL1	CANT-GO
+	RFALSE	
+
+
+	.FUNCT	WEIRD-ENTER-F,RARG
+	EQUAL?	HERE,TOWER-BEATEN \?CCL3
+	RETURN	WEIRD
+?CCL3:	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"There DOES seem to be an outline of a entrance in that direction, but it appears sealed with no way to open it. Too bad."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	WEIRD-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in a disturbing hallway; the lines of the walls are disorienting in a strange, non-Euclidean sort of way. The passageway "
+	ZERO?	TOWER-BEATEN \?CCL6
+	PRINTI	"ends abruptly to the north"
+	JUMP	?CND4
+?CCL6:	EQUAL?	TOWER-BEATEN,PYRAMID \?CCL8
+	PRINTI	"continues straight ahead, to the north"
+	JUMP	?CND4
+?CCL8:	PRINTI	"curves sharply to the "
+	EQUAL?	TOWER-BEATEN,PYRAMID-L \?CCL11
+	PRINTI	"left"
+	JUMP	?CND9
+?CCL11:	PRINTI	"right"
+?CND9:	PRINTI	" here, ending at an archway to the "
+	EQUAL?	TOWER-BEATEN,PYRAMID-L \?CCL14
+	PRINTI	"west"
+	JUMP	?CND4
+?CCL14:	PRINTI	"east"
+?CND4:	PRINTI	". To the south, the passage ends at a large arched door which is "
+	ICALL2	OPEN-CLOSED,LARGE-DOOR
+	PRINTC	46
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	GOGGLES-F
+	EQUAL?	PRSA,V?WEAR \?CCL3
+	EQUAL?	HERE,GAMING-ROOM \?CCL3
+	FSET?	ZORKMID-BILL,TOUCHBIT /?CCL3
+	IN?	ZORKMID-BILL,LOCAL-GLOBALS \?CCL3
+	RANDOM	100
+	LESS?	33,STACK /?CCL10
+	PUSH	J-POCKET
+	JUMP	?CND8
+?CCL10:	RANDOM	100
+	LESS?	50,STACK /?CCL12
+	PUSH	J-SHOE
+	JUMP	?CND8
+?CCL12:	PUSH	J-HAT
+?CND8:	MOVE	ZORKMID-BILL,STACK
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL14
+	EQUAL?	PRSI,GOGGLES \?CCL14
+	FSET?	GOGGLES,WORNBIT /?CCL19
+	ICALL	PERFORM,V?LOOK-INSIDE,GOGGLES
+	RTRUE	
+?CCL19:	EQUAL?	PRSI,WALL \FALSE
+	PRINTR	"You see the inside of the wall, but apparently it's too thick for the goggles to see all the way through."
+?CCL14:	EQUAL?	PRSA,V?EXAMINE \?CCL23
+	CALL	NOUN-USED?,GOGGLES,W?ETCHING
+	ZERO?	STACK /?CCL26
+	ICALL	PERFORM,V?READ,GOGGLES
+	RTRUE	
+?CCL26:	PRINTR	"There is a small etching on one side of the goggles."
+?CCL23:	EQUAL?	PRSA,V?READ \?CCL28
+	PRINTR	"""Frobozz Magic Goggles Company."""
+?CCL28:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	FSET?	GOGGLES,WORNBIT \?CCL33
+	PRINTI	"You glance about you"
+	PRINT	ELLIPSIS
+	CALL1	V-LOOK
+	RSTACK	
+?CCL33:	PRINT	YOULL-HAVE-TO
+	PRINTR	"wear them to do that."
+
+
+	.FUNCT	DISCOVER-X-RAY
+	ZERO?	DONT-KNOW-ABOUT-XRAY /FALSE
+	SET	'DONT-KNOW-ABOUT-XRAY,FALSE-VALUE
+	PRINTI	"This is incredible! You can see right through the outside of the "
+	EQUAL?	PRSO,UNOPENED-NUT /?CND4
+	PRINTI	"closed "
+?CND4:	ICALL2	DPRINT,PRSO
+	PRINTI	" as if it were transparent! "
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	PYRAMID-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This room, though rather wide at floor level, narrows as it rises like the interior of a pyramid or of an enormous beehive. "
+	EQUAL?	TOWER-BEATEN,HERE \?CCL6
+	PRINTI	"The only exit is "
+	EQUAL?	HERE,PYRAMID \?CCL9
+	PRINTI	"south"
+	JUMP	?CND7
+?CCL9:	EQUAL?	HERE,PYRAMID-L \?CCL11
+	PRINTI	"east"
+	JUMP	?CND7
+?CCL11:	PRINTI	"west"
+?CND7:	PRINTC	46
+	RTRUE	
+?CCL6:	PRINTI	"There are no visible exits, although there's a faint outline of a doorway on the "
+	EQUAL?	HERE,PYRAMID \?CCL14
+	PRINTI	"south"
+	JUMP	?CND12
+?CCL14:	EQUAL?	HERE,PYRAMID-L \?CCL16
+	PRINTI	"east"
+	JUMP	?CND12
+?CCL16:	PRINTI	"west"
+?CND12:	PRINTI	" wall."
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	CUP-F
+	EQUAL?	PRSA,V?DRINK-FROM,V?DRINK \?CCL3
+	IN?	POTION,CUP \?CCL6
+	ICALL	PERFORM,V?DRINK,POTION
+	RTRUE	
+?CCL6:	PRINTR	"The cup is empty!"
+?CCL3:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSI,CUP \FALSE
+	IN?	POTION,CUP \FALSE
+	ICALL	PERFORM,V?PUT,PRSO,POTION
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	POTION-F,X
+	EQUAL?	PRSA,V?DRINK,V?TASTE \?CCL3
+	CALL2	ULTIMATELY-IN?,CUP
+	ZERO?	STACK \?CND4
+	MOVE	CUP,PROTAGONIST
+	PRINTI	"[taking the cup first]"
+	CRLF	
+?CND4:	PRINTI	"You take a gulp. The potion is now "
+	EQUAL?	POTION-GULPS,4 \?CCL8
+	PRINTI	"a quarter"
+	JUMP	?CND6
+?CCL8:	EQUAL?	POTION-GULPS,3 \?CCL10
+	PRINTI	"half"
+	JUMP	?CND6
+?CCL10:	EQUAL?	POTION-GULPS,2 \?CCL12
+	PRINTI	"three-quarters"
+	JUMP	?CND6
+?CCL12:	REMOVE	POTION
+	PRINTI	"all"
+?CND6:	PRINTI	" gone."
+	ZERO?	PLANT-TALKER \?CND13
+	SET	'PLANT-TALKER,TRUE-VALUE
+	PRINTI	" Your ears seem to tingle for a moment."
+	CRLF	
+?CND13:	DEC	'POTION-GULPS
+	ICALL	QUEUE,I-POTION,15
+	CALL	FIND-IN,HERE,PLANTBIT >X
+	ZERO?	X /TRUE
+	ZERO?	TIME-STOPPED \TRUE
+	PRINTI	"   You notice that"
+	ICALL2	TPRINT,X
+	PRINTR	" seems to be murmuring."
+?CCL3:	EQUAL?	PRSA,V?PUT \?CCL20
+	EQUAL?	PRSI,POTION \?CCL20
+	PRINTI	"Dipping"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" into the potion seems to have no effect on"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL20:	EQUAL?	PRSA,V?POUR \?CCL24
+	EQUAL?	PRSO,POTION \?CCL24
+	REMOVE	POTION
+	PRINTR	"The potion vanishes into a cloud of sweet-smelling fumes which quickly disperse."
+?CCL24:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The potion is a yellow-green color."
+
+
+	.FUNCT	I-POTION,X
+	SET	'PLANT-TALKER,FALSE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   Your ears tingle again"
+	CALL	FIND-IN,HERE,PLANTBIT >X
+	ZERO?	X /?CND1
+	ZERO?	TIME-STOPPED \?CND1
+	PRINTI	", and"
+	ICALL2	TPRINT,X
+	PRINTI	" no longer seems to be murmuring"
+?CND1:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	PLANT-STUNNED
+	PRINTI	"There is no response -- perhaps"
+	ICALL2	TPRINT,WINNER
+	PRINTI	" is simply stunned to hear a human talking plant-talk."
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "FENSHIRE"
+
+
+	.FUNCT	COOKPOT-F
+	EQUAL?	PRSA,V?PUT \FALSE
+	PRINTR	"The jester stops you. ""Non, non! Too many cooks spoil zee broth!"""
+
+	.ENDSEG
+
+	.ENDI
diff --git a/jester.zil b/jester.zil
new file mode 100644
index 0000000..be36b77
--- /dev/null
+++ b/jester.zil
@@ -0,0 +1,1836 @@
+"JESTER for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT JESTER
+	(DESC "jester")
+	(DESCFCN JESTER-F)
+	(SYNONYM JESTER JESTERS JOKER MAN)
+	(FLAGS ACTORBIT SEARCHBIT CONTBIT OPENBIT ANIMATEDBIT)
+	(ACTION JESTER-F)>
+
+<ROUTINE JESTER-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-OBJDESC?>
+		<RTRUE>)
+	       (<EQUAL? .ARG ,M-OBJDESC>
+		<TELL "   The jester ">
+		<COND (<IN? ,COOKPOT ,HERE>
+		       <TELL "is here, " ,COOK-DESC>)
+		      (<AND <EQUAL? ,HERE ,TAX-OFFICE>
+			    <IN? ,ZORKMID-COIN ,LOCAL-GLOBALS>>
+		       <TELL ,BOOKKEEPER-DESC>)
+		      (,J-ON-RAFT
+		       <TELL
+"lies on an inner tube. His eyes twinkle at you behind his sunglasses.">)
+		      (T
+		       <TELL
+"is nearby, watching you with great amusement.">)>)
+	       (<EQUAL? .ARG ,M-WINNER>
+		<COND (<AND <VERB? SAY>
+			    <EQUAL? ,HERE ,ENTRANCE-HALL>
+			    <NOT <FSET? ,PORTCULLIS ,OPENBIT>>>
+			<RFALSE>)
+		       (<AND <VERB? SAY>
+			     <IN? ,EAST-KEY ,JESTER>>
+			<RFALSE>)
+		       (<AND <VERB? SAY>
+			     <EQUAL? ,HERE ,OUBLIETTE>>
+			<RFALSE>)
+		       (T
+			<TELL
+"\"Don't waste your breath, for I'd go to any length to avoid a
+conversation with such depth as yours. Also, silence is the height
+of fashion nowadays.\"" CR>
+			<STOP>)>)
+	       (<VERB? EXAMINE>
+		<COND (,J-ON-RAFT
+		       <TELL
+"The jester is wearing dark glasses and floating around on an inner tube." CR>)
+		      (<IN? ,COOKPOT ,HERE>
+		       <TELL "The jester is " ,COOK-DESC CR>)
+		      (<AND <EQUAL? ,HERE ,TAX-OFFICE>
+			    <IN? ,ZORKMID-COIN ,LOCAL-GLOBALS>>
+		       <TELL "The jester is " ,BOOKKEEPER-DESC CR>)
+		      (<FSET? ,GOGGLES ,WORNBIT>
+		       <TELL
+,YOU-SEE " right through the jester's clothes as though they were
+transparent! Embarassed, you turn away. (But not before noticing that
+the jester has pink butterflies stitched onto his underwear.)" CR>)
+		      (T
+		       <TELL
+"The jester is dressed in a green skin-tight suit, and is wearing a hat
+with many pointy ends. From each end dangles a gaudy little bell. The
+jester's eyes twinkle with mischievous energy." CR>)>)
+	       (<AND <VERB? GIVE SHOW>
+		     <EQUAL? ,HERE ,MARSH ,NICE-LUNCH-SPOT>
+		     <PRSO? ,WORM ,ROOSTER ,FOX>>
+		<TELL
+"\"Mon Dieu! I must have all zee ingredients together!\"" CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,PIGEON>>
+		<COND (<EQUAL? <META-LOC ,PERCH> ,HERE>
+		       <TELL
+"The jester takes the pigeon, looks it over, shrugs, and hands it back." CR>)
+		      (T
+		       <TELL
+"The jester recedes to a point and vanishes, a look of comical surprise
+splattered across his wide face.">
+		       <COND (<IN? ,SHELL-TABLE ,HERE>
+			      <TELL
+" The table and shells disappear as well.">)>
+		       <CRLF>
+		       <REMOVE-J>
+		       <SETG J-DISPOSED ,MOVES>
+		       <COND (<LOC ,PERCH>
+			      <MOVE ,PIGEON <LOC ,PERCH>>)
+			     (T
+			      <REMOVE ,PIGEON>)>
+		       <RFATAL>)>)
+	       (<VERB? SHOW>
+		<COND (<PRSO? ,NUT>
+		       <COND (,NUT-OPENED
+			      <SETG NUT-SHOWN T>
+			      <TELL
+"\"True, no one has seen this 'ere me -- but thousands
+may see it in years to be!\"" CR>)
+			     (T
+			      <TELL
+"\"Uncertain and skeptical I must be; countless people
+may have gazed upon this before me.\"" CR>)>)
+		      (<PRSO? ,NUT-SHELL ,UNOPENED-NUT>
+		       <TELL "The jester cocks one eyebrow">
+		       <COND (<EQUAL? ,HERE ,WEST-WING>
+			      <TELL
+" and a smile dances at the corners of his mouth">)>
+		       <TELL ,PERIOD-CR>)>)
+	       (<AND <VERB? EAT KILL>
+		     ,ALLIGATOR>
+		<TELL
+"The jester jumps nimbly away from your snapping jaws." CR>)
+	       (<VERB? RESEARCH>
+		<PICTURED-ENTRY ,J-ILL <>>)>>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROUTINE J-ENTRY ()
+	 <TELL
+"\"Jesters employ physical, verbal, and magical trickery for the entertainment
+of king and court. The most recent Royal Jester, the favorite of Lord Wurb
+Flathead, is named Barbazzo " <GET ,MID-NAMES ,MID-NAME-NUM> " Fernap.\"" CR>>
+
+<GLOBAL MID-NAME-NUM <>>
+
+<CONSTANT MID-NAMES
+	<PTABLE "Hideoz"
+	       "Bivotar"
+	       "Urgwitz"
+	       "Foofoonap"
+	       "Elderbar"
+	       "Goozums"
+	       "Syovar"
+	       "Buck"
+	       "Spike"
+	       "Zippy"
+	       "Magglebar"
+	       "Barfoo">>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT 0>
+
+<CONSTANT MID-NAME-WORDS
+	<PTABLE <VOC "HIDEOZ" NOUN>
+	       <VOC "BIVOTAR" NOUN>
+	       <VOC "URGWITZ" NOUN>
+	       <VOC "FOOFOONAP" NOUN>
+	       <VOC "ELDERBAR" NOUN>
+	       <VOC "GOOZUMS" NOUN>
+	       <VOC "SYOVAR" NOUN>
+	       <VOC "BUCK" NOUN>
+	       <VOC "SPIKE" NOUN>
+	       <VOC "ZIPPY" NOUN>
+	       <VOC "MAGGLEBAR" NOUN>
+	       <VOC "BARFOO" NOUN>>>
+
+<OBJECT MID-NAME
+	(LOC GLOBAL-OBJECTS)
+	(DESC "middle name")
+	(SYNONYM HIDEOZ BIVOTAR URGWITZ FOOFOONAP ELDERBAR GOOZUMS
+	 	 SYOVAR BUCK SPIKE ZIPPY MAGGLEBAR BARFOO)
+	(ACTION MID-NAME-F)>
+
+<ROUTINE MID-NAME-F ()
+	<COND (<AND <VISIBLE? ,JESTER>
+		    <NOUN-USED? ,MID-NAME <GET ,MID-NAME-WORDS ,MID-NAME-NUM>>>
+	       <PERFORM-PRSA ,JESTER>)
+	      (<OR <HANDLE ,MID-NAME>
+		   <VERB? FOLLOW>>
+	       <TELL ,BY-THAT-NAME>
+	       <STOP>)>>
+
+<OBJECT OTHER-J-NAMES
+	(LOC GLOBAL-OBJECTS)
+	(DESC "jester's name")
+	(SYNONYM BARBAZZO FERNAP)
+	(ACTION OTHER-J-NAMES-F)>
+
+<ROUTINE OTHER-J-NAMES-F ()
+	 <COND (<VISIBLE? ,JESTER>
+		<PERFORM-PRSA ,JESTER>)
+	       (<OR <HANDLE ,OTHER-J-NAMES>
+		    <VERB? FOLLOW>>
+		<TELL ,BY-THAT-NAME>
+		<STOP>)>>
+
+<OBJECT J-POCKET
+	(LOC JESTER)
+	(DESC "jester's pocket")
+	(SYNONYM POCKET)
+	(ADJECTIVE HIS JESTER\'S)
+	(OWNER JESTER)
+	(FLAGS NDESCBIT)
+	(ACTION J-GARMENT-F)>
+
+<OBJECT J-HAT
+	(LOC JESTER)
+	(DESC "jester's hat")
+	(SYNONYM HAT BELL BELLS)
+	(ADJECTIVE HIS JESTER\'S SMALL GAUDY)
+	(OWNER JESTER)
+	(FLAGS NDESCBIT)
+	(GENERIC G-HAT-F)
+	(ACTION J-GARMENT-F)>
+
+<OBJECT J-SHOE
+	(LOC JESTER)
+	(DESC "jester's shoe")
+	(SYNONYM SHOE)
+	(ADJECTIVE HIS JESTER\'S)
+	(OWNER JESTER)
+	(FLAGS NDESCBIT)
+	(ACTION J-GARMENT-F)>
+
+<ROUTINE J-GARMENT-F ()
+	 <COND (<AND <PRSO? ,J-HAT ,J-SHOE ,J-POCKET>
+		     <TOUCHING? ,PRSO>>
+		<TELL "The jester dances spryly out of reach." CR>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE LOOK-UNDER>
+		     <IN? ,ZORKMID-BILL ,PRSO>
+		     <FSET? ,GOGGLES ,WORNBIT>>
+		<TELL
+,YOU-SEE " right through" T ,PRSO " as if it were made of glass -- and
+sure enough, there's the zorkmid bill!" CR>)
+	       (<AND <VERB? EXAMINE>
+		     <PRSO? ,J-HAT>>
+		<TELL
+"It has many floppy tips, with bells dangling from each one." CR>)
+	       (<AND <VERB? POINT>
+		     <EQUAL? ,HERE ,GAMING-ROOM>
+		     <NOT <FSET? ,ZORKMID-BILL ,TOUCHBIT>>>
+		<COND (<IN? ,ZORKMID-BILL ,PRSO>
+		       <MOVE ,ZORKMID-BILL ,PROTAGONIST>
+		       <FSET ,ZORKMID-BILL ,TOUCHBIT>
+		       <TELL
+"The jester looks sheepish. He removes the bill and hands it to you.
+\"You're pretty slick; you've discovered my trick.\"">
+		       <J-EXITS>
+		       <INC-SCORE 12>
+		       <RTRUE>)
+		      (T
+		       <TELL "The jester howls with glee, and ">
+		       <COND (<PRSO? ,J-POCKET>
+			      <TELL "turns his pocket inside out">)
+			     (<PRSO? ,J-HAT>
+			      <TELL "removes his hat">)
+			     (T
+			      <TELL "removes his shoe">)>
+		       <TELL ". Nothing. ">
+		       <ANOTHER-SHELL-GAME>)>)>>
+
+<OBJECT J-SUIT
+	(LOC JESTER)
+	(DESC "jester's suit")
+	(SYNONYM SUIT)
+	(ADJECTIVE GREEN SKIN-TIGHT)
+	(OWNER JESTER)
+	(FLAGS NDESCBIT)>
+
+<ROUTINE I-JESTER ("OPTIONAL" (CALLED-BY-DOORBELL <>) "AUX" PLUR APPEAR-PROB)
+	 <COND (,TIME-STOPPED
+		<DEQUEUE I-JESTER>
+		<RFALSE>)>
+	 <SET APPEAR-PROB ,J-APPEAR-PROB>
+	 <COND (<EQUAL? ,HERE ,FR-OFFICES ,OFFICES-WEST ,OFFICES-EAST
+			      ,OFFICES-NORTH ,OFFICES-SOUTH>
+		<SET APPEAR-PROB
+		     </ .APPEAR-PROB </ <+ ,FLOOR-NUMBER 40> 40>>>)>
+	 <QUEUE I-JESTER -1>
+	 <COND (<OR <IN? ,PROTAGONIST ,DB>
+		    <EQUAL? ,HERE ,INQUISITION ,PLAIN>
+		    <AND <EQUAL? ,HERE ,ENTRANCE-HALL>
+			 <NOT <FSET? ,PORTCULLIS ,OPENBIT>>
+			 <NOT .CALLED-BY-DOORBELL>>>
+		<QUEUE I-JESTER <RANDOM 5>>
+		<RFALSE>)
+	       (<NOT ,LIT>
+		<QUEUE I-JESTER <RANDOM 5>>
+		<RETURN-FROM-MAP>
+		<TELL
+"   You hear jingling bells and a familiar laugh in the darkness.">
+		<COND (<NOT <FSET? ,SECRET-PASSAGE ,TOUCHBIT>>
+		       <TELL
+" \"Trouble finding a light? I'm just the man to set you right! Tighten your
+belt and pull up your socks and re-read the book from your ZORK ZERO box!
+Or,\" the voice asks suspiciously, \"maybe you're one of those software
+pirates? In that case, I hope you fall into a bottomless pit.\"">)>
+		<TELL CR>
+		<RTRUE>)
+	       (<OR ,DO-J
+		    <PROB .APPEAR-PROB>>
+		<SETG DO-J <>>)
+	       (T
+		<SETG J-APPEAR-PROB <+ ,J-APPEAR-PROB 1>>
+		<RFALSE>)> 
+	 <DEQUEUE I-JESTER> ;"so he doesn't appear while he's already here"
+	 <RETURN-FROM-MAP>
+	 <TELL "   ">
+	 <COND (<IN? ,JESTER ,HERE> ;"example: going west from West Wing twice"
+		T)
+	       (,TURNED-INTO
+		<REMOVE-J>
+		<TELL
+"You suddenly notice another " D ,TURNED-INTO ", wearing a jester's costume.
+Laughing, it says, \"I'd heard that there was a dauntless adventurer around,
+but there's no one here but us ">
+		<COND (<SET PLUR <GETP ,TURNED-INTO ,P?PLURAL>>
+		       <TELL .PLUR>)
+		      (T
+		       <TELL D ,TURNED-INTO "s">)>
+		<TELL
+"!\" Still laughing, the jester/" D ,TURNED-INTO " vanishes." CR>
+		<RTRUE>)
+	       (<VISIBLE? ,OTTO>
+		<TELL
+"You spot a fly wearing a tiny floppy green hat with bells at the tips. Otto
+spots the fly as well, and begins to salivate. In a high, thin imitation of
+the jester's voice, the fly cries \"Help me!\" -- but Otto's tongue moves
+before you can, and in a split-second the jester/fly is gonzo.">
+		<RTRUE>)
+	       (<IN? ,PROTAGONIST ,YACHT>
+		<SETG J-ON-RAFT T>
+		<TELL
+"You notice the jester, floating next to the yacht in an inner tube,
+wearing sunglasses and lots of tanning lotion.">)
+	       (<FSET? ,JESTER ,TOUCHBIT>
+		<TELL "The jester appears.">
+		<COND (<AND <EQUAL? ,HERE ,ICKY-CAVE>
+			    <IN? ,SICKLY-WITCH ,HERE>>
+		       <TELL ,WITCH-REMOVES-J>
+		       <RTRUE>)
+		      (<FSET? ,HERE ,BEYONDBIT>
+		       <TELL " \"Hi! Small world, isn't it!\"">)>)
+	       (T
+		<FSET ,JESTER ,TOUCHBIT>
+		<TELL
+"You suddenly notice a wiry fellow with an outrageous costume and a
+feral grin. \"I'm the jester of the castle, I may pester, I may hassle;
+and I often speak in rhyme, for it helps to pass the time!\"">)>
+	 <MOVE ,JESTER ,HERE>
+	 <THIS-IS-IT ,JESTER>
+	 <COND (<AND <VERB? TAKE>
+		     <PRSO? ,EAST-KEY>
+		     <FSET? ,EAST-KEY ,TRYTAKEBIT>>
+		<MOVE ,EAST-KEY ,JESTER>
+		<TELL " He snatches the key before you can take it.">)
+	       (<AND <EQUAL? ,HERE ,PITS>
+		     <FSET? ,LANTERN ,TRYTAKEBIT>>
+		<TELL
+" He has an enormous slice of watermelon which he devours with juicy abandon,
+rind and all, and then spits out a stream of pits, which land and turn into
+even more bottomless pits. \"Don't you hate pits? I know I do!\"" CR>
+		<RTRUE>)>
+	 <TELL CR "   ">
+	 <COND (<EQUAL? ,HERE ,ENTRANCE-HALL>
+		<COND (<FSET? ,PORTCULLIS ,OPENBIT>
+		       <TELL
+"The jester looks at the open portcullis. \"Oh, right! My memory is no
+longer so great; I've already opened this gate!\"">
+		       <J-EXITS>)
+		      (T
+		       <SETUP-ORPHAN "answer">
+		       <TELL
+"\"If you're quick as a fiddle, and answer this riddle, you'll get what
+you're hopin' -- the gate will be open!\" The jester clears his throat. \""
+<GETP ,HERE ,P?RIDDLE> CR>)>)
+	       (<IN? ,EAST-KEY ,JESTER>
+		<SETUP-ORPHAN "answer">
+		<TELL
+"\"Before you get this key, you must answer this riddle for me!\" The jester
+poses theatrically. \"" <GETP ,SOLAR ,P?RIDDLE> CR>)
+	       (<EQUAL? ,HERE ,OUBLIETTE>
+		<COND (<EQUAL? ,OUBLIETTE-SCORE 0>
+		       <TELL
+"\"Trapped again? Don't frown or fret! I'll help you leave the Oubliette! But
+saving you is such a pain; please don't get stuck down here again!\"" CR CR>
+		       <GOTO ,DUNGEON>)
+		      (T
+		       <SETUP-ORPHAN "answer">
+		       <TELL
+"\"Don't scream or shout, I'll get you out! But first my thirst for a
+riddle must be twiddled!\" The jester coughs lightly and begins. \""
+<GETP ,HERE ,P?RIDDLE> CR>)>)
+	       (<AND <EQUAL? ,HERE ,WEST-WING>
+		     <NOT ,NUT-EATEN>>
+		<TELL ,ERE-YOU-PASS>)
+	       (<AND <EQUAL? ,HERE ,GAMING-ROOM>
+		     <NOT <FSET? ,ZORKMID-BILL ,TOUCHBIT>>>
+		<MOVE ,SHELL-TABLE ,HERE>
+		<TELL
+"\"Blackjack... Fanucci... all too tame; let's play the old shell game!\" From
+thin air, the jester produces a small table, three shells, and a zorkmid bill
+of high denomination. He arranges the shells in a row on the table and places
+the bill under the center shell. With hands that move in a dizzying blur, he
+shuffles the order of the shells. \"Demonstrate your visual skill -- point to
+the location of the zorkmid bill!\" He motions toward the shells, left,
+center, and right.">
+		<SEE-BILL?>
+		<CRLF>)
+	       (<EQUAL? ,HERE ,FR-PENTHOUSE>
+		<TELL
+"\"Your persistence will bring you wide renown; you've reached the four
+hundredth floor! The hard part now is getting down -- I suggest that
+you simply RESTORE!\"" CR>
+		<J-EXITS>)
+	       (<AND <PROB ,SLATE-PROB>
+		     <IN? ,SLATE ,LOCAL-GLOBALS>>
+		<MOVE ,SLATE ,PROTAGONIST>
+		<TELL
+"\"While cleaning my attic, I found some old haddock, a hammer and nails,
+some barrels and pails, an old garden gate, and this silly old slate!\" He
+hands you the slate.">
+		<J-EXITS T>)
+	       (<AND <PROB ,SCROLL-PROB>
+		     <IN? ,SCROLL ,LOCAL-GLOBALS>>
+		<COND (<FSET? <LOC ,PROTAGONIST> ,DROPBIT>
+		       <MOVE ,SCROLL <LOC ,PROTAGONIST>>)
+		      (T
+		       <MOVE ,SCROLL ,HERE>)>
+		<TELL
+"\"I thought of no rhyme; my puzzle's on paper this time.\" He drops a
+scroll by your feet.">
+	        <J-EXITS T>) 
+	       (<AND <PROB 25>
+		     <NOT <FSET? ,HERE ,BEYONDBIT>>>
+		<TELL
+"\"I've learned from years of loyalty, spinning rhymes for this noble court,
+that with the attention span of royalty, my poems must be short!\"">
+		<J-EXITS>)
+	       (T
+		<TELL "The jester watches you with twinkling eyes." CR>)>
+	 <SETG SLATE-PROB <+ ,SLATE-PROB 2>>
+	 <SETG SCROLL-PROB <+ ,SCROLL-PROB 2>>>
+
+;"('Appointment in Samaria'
+
+'the lying tribesman and the truth-telling tribesman'
+
+I just made up this puzzle as a variation on one of Lewis Carroll's,
+and I want to make sure my own solution is correct and the only one.
+Try solving it:
+   'I once knew three sisters named Amy, Liz, and Gayle. At one point, the
+sum of Amy's age and Liz's age equalled Gayle's age. Several years later,
+the sum of Amy's age and Liz's age equalled twice Gayle's age. When Gayle
+was 21, how old was Amy?'
+   The only solution which satisfies both conditions is if the the three
+sisters are triplets: the sums of Liz's and Amy's age would equal Gayle's
+age at birth; later the sum of their ages would equal twice Gayle's age.
+Therefore, when Gayle is 21, so is Amy.)"
+
+<ROUTINE J-EXITS ("OPT" (JUST-DID-SLATE-OR-SCROLL <>)
+		       "AUX" (DO-FUNNY-PAPER <>) (LIT? <>))
+	 <REMOVE-J>
+	 <COND (<AND <PROB ,FUNNY-PAPER-PROB>
+		     <IN? ,FUNNY-PAPER ,LOCAL-GLOBALS>
+		     <NOT .JUST-DID-SLATE-OR-SCROLL>>
+		<SET DO-FUNNY-PAPER T>)>
+	 <COND (<AND <PROB 15>
+		     <NOT .DO-FUNNY-PAPER>>
+		<TELL
+" The jester winces at his rhyming, then shrugs. \"Oh, well, they can't all
+be gems.\" In a wink, he is gone." CR>
+		<RTRUE>)
+	       (<AND <PROB 20>
+		     <IN? ,PROTAGONIST ,HERE>
+		     <NOT <EQUAL? ,HERE ,TORTURE-CHAMBER>>
+		     <NOT .DO-FUNNY-PAPER>>
+		<MOVE ,BEDBUG ,HERE>
+		<SETG P-CONT -1> ;<RFATAL>
+		<TELL
+" The jester yawns and says, \"Think I'll catch some winks. Nighty night!
+Don't let the bedbugs bite!\" As the jester vanishes, you hear the clicking
+of giant mandibles." CR>
+		<RTRUE>)>
+	 <TELL
+" The jester gives a cheerful wave of farewell and vanishes, saying, \"">
+	 <COND (.DO-FUNNY-PAPER
+		<QUEUE I-FUNNY-PAPER 2>
+		<SETG FUNNY-PAPER-PROB 0>
+		<TELL
+"See you in the funny papers!\" A breeze begins picking up." CR>)
+	       (<AND <PROB 20>
+		     <NOT <FSET? ,HERE ,DESERTBIT>> ;"screws you"
+		     <NOT <EQUAL? ,HERE ,LAKE-FLATHEAD ,UNDERWATER ,LAKE-BOTTOM
+				  	,HOLD ,GONDOLA>>
+		     <NOT <EQUAL? <GETP ,HERE ,P?REGION> "Fenshire">>>
+		<TELL
+"See you next week, same bat time, same bat channel!\" A moment later, you
+hear a shrieking, \"Fweep! Fweep! Fweep!\" A large deranged bat swoops down,
+snatches you up, and deposits you in" ,ELLIPSIS>
+		<MOVE ,PROTAGONIST ,HERE> ;"otherwise, bat takes camel too!"
+		<COND (<SET LIT? <FIND-IN ,PROTAGONIST ,ONBIT>>
+		       T)
+		      (<SET LIT? <FIND-IN ,HERE ,ONBIT>>
+		       <MOVE .LIT? ,PROTAGONIST>)>
+		<GOTO <COND (<OR <BEYOND-LAKE?>
+				 <AND .LIT?
+				      <PROB 25>>>
+			     ,BATS-LAIR)
+			    (<AND ,SECRET-PASSAGE-OPEN
+				  .LIT?
+				  <PROB 40>>
+			     ,PARAPET)
+			    (<AND <FSET? ,DRAWBRIDGE ,OPENBIT>
+			     	  <PROB 50>>
+			     ,OUTER-BAILEY)
+			    (T
+			     ,ROOF)>>)
+	       (<AND <PROB 33> ;"don't turn stump-jumping player to alligator"
+		     <NOT <EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS
+				  	,SHOULDER ,EAR ,INNER-EAR>>
+		     <EQUAL? ,HUNGER-COUNT 0>
+		     <EQUAL? ,JUMP-X 99>
+	 	     <EQUAL? ,JUMP-Y 99>>
+		<SETG ALLIGATOR T>
+		<QUEUE I-UNALLIGATOR 4>
+		<TELL "See you later, alligator!\" Your skin feels itchy">
+		<COND (<FIRST? ,PROTAGONIST>
+		       <TELL " and you've dropped what you were holding">)>
+		<TELL ".">
+		<ROB ,PROTAGONIST
+		     <COND (<FSET? <LOC ,PROTAGONIST> ,DROPBIT>
+		       	    <LOC ,PROTAGONIST>)
+			   (T
+		       	    ,HERE)>>
+		<SETG P-CONT -1> ;<RFATAL>
+		<CRLF>)
+	       (<OR <PROB 50>
+		    ,ALLIGATOR
+		    <FSET? ,CLOWN-NOSE ,WORNBIT>>
+		<TELL
+"So long, and thanks for all the fish!\" Odd. You've never given the
+jester any fish." CR>)
+	       (T
+		<MOVE ,CLOWN-NOSE ,PROTAGONIST>
+		<FSET ,CLOWN-NOSE ,WORNBIT>
+		<QUEUE I-SUFFOCATE -1>
+		<SETG P-CONT -1> ;<RFATAL>
+		<TELL
+"Catch you aroun', clown!\" You suddenly find yourself having a bit of
+difficulty breathing." CR>)>
+	 <SETG FUNNY-PAPER-PROB <+ ,FUNNY-PAPER-PROB 5>>>
+
+ <ROUTINE BEYOND-LAKE? ()
+	 <COND (<FSET? ,HERE ,DESERTBIT>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,STABLE ,GROTTO, SHRINE ,G-U-MOUNTAIN ,STREAM
+			      ,G-U-WOODS ,G-U-SAVANNAH ,EAST-SHORE ,SOUTH-SHORE
+			      ,RING-OF-DUNES ,BASE-OF-MOUNTAIN>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<GLOBAL J-APPEAR-PROB 0>
+
+<GLOBAL DO-J <>>
+
+<ROUTINE REMOVE-J ()
+	 <QUEUE I-JESTER 12>
+	 <SETG J-APPEAR-PROB 0>
+	 <SETG GUESSES <>>
+	 <SETG J-ON-RAFT <>>
+	 <COND (<IN? ,EAST-KEY ,JESTER>
+		<MOVE ,EAST-KEY ,SOLAR>)>
+	 <COND (<NOT <FSET? ,ZORKMID-BILL ,TOUCHBIT>>
+		<MOVE ,ZORKMID-BILL ,LOCAL-GLOBALS>)>
+	 <REMOVE ,SHELL-TABLE>
+	 <REMOVE ,JESTER>>
+
+<ROUTINE DONT-CRY ()
+	 <SETG GUESSES <+ ,GUESSES 1>>
+	 <TELL "\"Wrong, but don't ">
+	 <COND (<EQUAL? ,GUESSES 3>
+		<SETG GUESSES 0>
+		<TELL
+"get all a-twiddle; I'll repeat the riddle! " <GETP ,HERE ,P?RIDDLE>>)
+	       (T
+		<TELL "cry -- give it another try.\"">)>
+	 <CRLF>>
+
+<GLOBAL J-INQ-SCENE <>>
+
+<GLOBAL J-ON-RAFT <>>
+
+<GLOBAL FUNNY-PAPER-PROB 20>
+
+<GLOBAL SLATE-PROB 33>
+
+<GLOBAL SCROLL-PROB 33>
+
+<GLOBAL GUESSES 0>
+
+<GLOBAL ALLIGATOR <>>
+
+<ROUTINE I-UNALLIGATOR ()
+	 <SETG ALLIGATOR <>>
+	 <RETURN-FROM-MAP>
+	 <TELL
+"   With a pop, your tail and snout shorten, and you are no longer a candidate
+for being turned into a pair of expensive shoes." CR>>
+
+<GLOBAL SUFFOCATE-COUNTER 0>
+
+<ROUTINE I-SUFFOCATE ()
+	 <COND (<NOT <FSET? ,CLOWN-NOSE ,WORNBIT>>
+		<SETG SUFFOCATE-COUNTER 0>
+		<DEQUEUE I-SUFFOCATE>
+		<RFALSE>)>
+	 <SETG SUFFOCATE-COUNTER <+ ,SUFFOCATE-COUNTER 1>>
+	 <COND (<EQUAL? ,SUFFOCATE-COUNTER 5>
+		<RETURN-FROM-MAP>
+		<TELL
+"   You're still having trouble breathing. It's probably due to the clown nose
+that's clamped in the middle of your face." CR>)
+	       (<EQUAL? ,SUFFOCATE-COUNTER 8>
+		<RETURN-FROM-MAP>
+		<TELL
+"   It's really getting tough to keep going without fresh air!" CR>)
+	       (<EQUAL? ,SUFFOCATE-COUNTER 10>
+		<RETURN-FROM-MAP>
+		<TELL "   You're getting lightheaded..." CR>)
+	       (<EQUAL? ,SUFFOCATE-COUNTER 11>
+		<RETURN-FROM-MAP>
+		<JIGS-UP "   You pass out from a shortage of air.">)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE I-FUNNY-PAPER ()
+	 <MOVE ,FUNNY-PAPER <LOC ,PROTAGONIST>>
+	 <QUEUE I-REMOVE-FUNNY-PAPER 1>
+	 <THIS-IS-IT ,FUNNY-PAPER>
+	 <RETURN-FROM-MAP>
+	 <TELL
+"   The wind blows a colorful piece of newspaper into view. It's a funny
+paper!" CR>>
+
+<ROUTINE I-REMOVE-FUNNY-PAPER ("AUX" (TOLD <>))
+	 <COND (<NOT <IN? ,FUNNY-PAPER ,PROTAGONIST>>
+		<COND (<VISIBLE? ,FUNNY-PAPER>
+		       <SET TOLD T>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"   The wind blows the funny paper out of sight." CR>)>
+		<MOVE ,FUNNY-PAPER ,LOCAL-GLOBALS>)>
+	 <COND (.TOLD
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT FUNNY-PAPER
+	(LOC LOCAL-GLOBALS)
+	(DESC "funny paper")
+	(SYNONYM PAPER PIECE NEWSPAPER COMICS)
+	(ADJECTIVE COLORFUL FUNNY)
+	(FLAGS TAKEBIT BURNBIT READBIT)
+	(SIZE 2)
+	(ACTION FUNNY-PAPER-F)>
+
+<ROUTINE FUNNY-PAPER-F ()
+	 <COND (<VERB? READ>
+		<TELL
+"It's a comic strip entitled \"Me and the Jester.\" In the strip, a peasant
+adventurer is bumbling around a mighty castle, alternately helped and
+hindered by a playful jester. In one panel, the Jester suggests that the
+adventurer look under the " D ,HOLEY-SLAB " in the Crypt." CR>)
+	       (<VERB? FOLLOW>
+		<TELL "You've lost track of it." CR>)>>
+
+<OBJECT BEDBUG
+	(DESC "giant bedbug")
+	(SYNONYM BUG BEDBUG)
+	(ADJECTIVE LARGE BED)
+	(ACTION BEDBUG-F)>
+
+<ROUTINE BEDBUG-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It's quite larger than any bedbug you've ever seen before: about the size
+of a small sheep. It looks as if it has just been roused from a deep sleep,
+and isn't at all happy about the fact. With a mixture of weariness and anger,
+it waves powerful pincers in your direction." CR>)
+	       (<VERB? LEAP>
+		<IMPOSSIBLES>)
+	       (<VERB? KILL BITE KICK>
+		<TELL
+"This bedbug's chitinous shell is like battle armor." CR>)>>
+
+<OBJECT CLOWN-NOSE
+	(DESC "red clown nose")
+	(SYNONYM NOSE)
+	(ADJECTIVE RED CLOWN)
+	(FLAGS WEARBIT TAKEBIT)
+	(SIZE 2)
+	(ACTION CLOWN-NOSE-F)>
+
+<ROUTINE CLOWN-NOSE-F ()
+	 <COND (<AND <VERB? WEAR>
+		     <NOT <FSET? ,CLOWN-NOSE ,WORNBIT>>>
+		<FSET ,CLOWN-NOSE ,WORNBIT>
+		<QUEUE I-SUFFOCATE -1>
+		<TELL
+"You don the nose, which makes breathing extremely difficult." CR>)>>
+
+<OBJECT SLATE
+	(LOC LOCAL-GLOBALS)
+	(DESC "dusty slate")
+	(SYNONYM SLATE)
+	(ADJECTIVE DUSTY SMALL SILLY OLD)
+	(FLAGS READBIT TAKEBIT)
+	(ACTION SLATE-F)>
+
+<GLOBAL STUMP-X 0>
+
+<GLOBAL STUMP-Y 0>
+
+<ROUTINE SLATE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The small slate is set into a wooden frame. It looks to be at least
+fifty if not a hundred years old. A shaky hand has inscribed something
+onto the slate." CR>)
+	       (<VERB? READ>
+		<COND (<EQUAL? ,STUMP-X 0>
+		       <SETG STUMP-X <RANDOM 3>>
+		       <COND (<PROB 50>
+			      <SETG STUMP-X <* ,STUMP-X -1>>)>
+		       <SETG STUMP-Y <RANDOM 3>>
+		       <COND (<PROB 50>
+			      <SETG STUMP-Y <* ,STUMP-Y -1>>)>
+		       <TELL
+"You shake enough dust off the slate to read it: ">)>
+		<TELL
+"\"Stand at the oldest and mightiest elm around. Jump ">
+		<COND (<G? ,STUMP-Y 0>
+		       <TELL "north ">)
+		      (T
+		       <TELL "south ">)>
+		<COND (<EQUAL? ,STUMP-Y 1 -1>
+		       <TELL "once">)
+		      (<EQUAL? ,STUMP-Y 2 -2>
+		       <TELL "twice">)
+		      (T
+		       <TELL "thrice">)>
+		<TELL " then jump ">
+		<COND (<G? ,STUMP-X 0>
+		       <TELL "east ">)
+		      (T
+		       <TELL "west ">)>
+		<COND (<EQUAL? ,STUMP-X 1 -1>
+		       <TELL "once">)
+		      (<EQUAL? ,STUMP-X 2 -2>
+		       <TELL "twice">)
+		      (T
+		       <TELL "thrice">)>
+		<TELL ".\"" CR>)>>
+
+<OBJECT SCROLL
+	(LOC LOCAL-GLOBALS)
+	(DESC "scroll")
+	(SYNONYM SCROLL PAPER)
+	(FLAGS READBIT TAKEBIT BURNBIT)
+	(SIZE 2)
+	(ACTION SCROLL-F)>
+
+<ROUTINE SCROLL-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL "The paper reads:" CR CR "   ">
+		<HLIGHT ,H-ITALIC>
+		<TELL "RAM A NAG" CR CR>
+		<HLIGHT ,H-NORMAL>
+		<TELL "TREEN RIBARLY HENT HOCUT MORRA RICHET" CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT SHELL-TABLE
+	(DESC "small table")
+	(SYNONYM TABLE)
+	(ADJECTIVE SMALL)
+	(FLAGS SURFACEBIT CONTBIT OPENBIT SEARCHBIT)>
+
+<OBJECT LEFT-SHELL
+	(LOC SHELL-TABLE)
+	(DESC "left shell")
+	(SYNONYM SHELL)
+	(ADJECTIVE LEFT FIRST)
+	(ACTION SHELL-F)>
+
+<OBJECT CENTER-SHELL
+	(LOC SHELL-TABLE)
+	(DESC "center shell")
+	(SYNONYM SHELL)
+	(ADJECTIVE CENTER MIDDLE SECOND)
+	(ACTION SHELL-F)>
+
+<OBJECT RIGHT-SHELL
+	(LOC SHELL-TABLE)
+	(DESC "right shell")
+	(SYNONYM SHELL)
+	(ADJECTIVE RIGHT THIRD)
+	(ACTION SHELL-F)>
+
+<ROUTINE SHELL-F ()
+	 <COND (<VERB? POINT>
+		<TELL
+"The jester lifts the shell. Empty. ">
+		<ANOTHER-SHELL-GAME>)
+	       (<VERB? TOUCH LOOK-UNDER MOVE TAKE>
+		<TELL
+"The jester stops you, saying, \"You deserve a beating for trying
+such cheating!\"" CR>)
+	       (<AND <VERB? LOOK-INSIDE EXAMINE>
+		     <FSET? ,GOGGLES ,WORNBIT>>
+		<TELL
+"Thanks to the goggles, you can see right through the shell as though it
+were transparent! There's nothing under it." CR>)>>
+
+<ROUTINE ANOTHER-SHELL-GAME ()
+	 <TELL
+"\"Don't be sore, let's try it once more!\" He reshuffles the shells.">
+	 <MOVE ,ZORKMID-BILL ,LOCAL-GLOBALS>
+	 <SEE-BILL?>
+	 <CRLF>>
+
+<ROUTINE SEE-BILL? ("AUX" BILL-LOC)
+	 <COND (<FSET? ,GOGGLES ,WORNBIT>
+		<SET BILL-LOC <COND (<PROB 33> ,J-POCKET)
+				    (<PROB 50> ,J-SHOE)
+				    (T ,J-HAT)>>
+		<MOVE ,ZORKMID-BILL .BILL-LOC>
+		<TELL
+" You find that you can see right through the shells -- and the zorkmid bill
+isn't under any of them! Before you can say so, you notice the bill -- ">
+		<COND (<EQUAL? .BILL-LOC ,J-HAT>
+		       <TELL "under">)
+		      (T
+		       <TELL "in">)>
+		<TELL
+T .BILL-LOC "! After a moment, the vision fades, and" T .BILL-LOC " once
+again appears opaque.">)>>
+
+<OBJECT ZORKMID-BILL
+	(LOC LOCAL-GLOBALS)
+	(DESC "zorkmid bill")
+	(SYNONYM BILL MONEY)
+	(ADJECTIVE ZORKMID)
+	(FLAGS TAKEBIT BURNBIT READBIT MAGICBIT)
+	(SIZE 1)
+	(VALUE 0) ;"12 points given elsewhere"
+	(TEXT
+"The denomination of the bill is 100,000 zorkmids. Only one such bill
+was ever printed, and that was at the personal request of J. Pierpont
+Flathead.")>
+
+<ROOM JESTERS-QUARTERS
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Jester's Quarters")
+      (DOWN TO SERVANTS-QUARTERS)
+      (OUT TO SERVANTS-QUARTERS)
+      (NORTH TO WEIRD IF LARGE-DOOR IS OPEN)
+      (SOUTH PER SMALL-DOOR-ENTER-F)
+      (FLAGS RLANDBIT)
+      (SYNONYM QUARTERS)
+      (OWNER JESTER)
+      (GLOBAL STAIRS LARGE-DOOR SMALL-DOOR)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-10>)
+      (ICON J-QUARTER-ICON)
+      (ACTION JESTERS-QUARTERS-F)>
+
+<ROUTINE JESTERS-QUARTERS-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a small, spare room. The only features are a small louvered door on
+the south wall, a larger arched door on the north wall, and a stair which
+spirals downward. ">
+		<COND (<FSET? ,LARGE-DOOR ,OPENBIT>
+		       <TELL "The large door is open but the small door is">)
+		      (T
+		       <TELL "Both doors are">)>
+		<TELL " closed.">)>>
+
+<ROUTINE SMALL-DOOR-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<NOT .RARG>
+		<RETURN-FROM-MAP>
+		<DO-FIRST "open" ,SMALL-DOOR>
+		<THIS-IS-IT ,SMALL-DOOR>)>
+	 <RFALSE>>
+
+<OBJECT LARGE-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "large arched door")
+	(SYNONYM DOOR)
+	(ADJECTIVE LARGE ARCHED)
+	(FLAGS DOORBIT)
+	(GENERIC G-J-DOOR-F)
+	(ACTION LARGE-DOOR-F)>
+
+<ROUTINE LARGE-DOOR-F ()
+	 <COND (<AND <VERB? OPEN>
+		     <NOT ,TOWER-BEATEN>>
+		<TELL
+"Although there's no visible lock, the door refuses to budge." CR>)>>
+
+<ROUTINE G-J-DOOR-F (TBL LEN)
+	 <COND (<AND <VERB? OPEN>
+		     <FSET? ,LARGE-DOOR ,OPENBIT>>
+		,SMALL-DOOR)
+	       (<AND <VERB? CLOSE>
+		     <FSET? ,LARGE-DOOR ,OPENBIT>>
+		,LARGE-DOOR)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT SMALL-DOOR
+	(LOC LOCAL-GLOBALS) ;"so parser will which-print between the two doors"
+	(DESC "small louvered door")
+	(SYNONYM DOOR)
+	(ADJECTIVE SMALL SOUTH LOUVERED)
+	(FLAGS NDESCBIT)
+	(GENERIC G-J-DOOR-F)
+	(ACTION SMALL-DOOR-F)>
+
+<ROUTINE SMALL-DOOR-F ("AUX" WEIGHT-CNT FUDGE)
+	 <COND (<VERB? OPEN LOOK-BEHIND>
+		<PICINF-PLUS-ONE ,B-1-L-PIC-LOC>
+		<PUT ,B-Y-TBL 5 <GET ,PICINF-TBL 0>>
+		<PUT ,B-X-TBL 0 <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,B-2-C-PIC-LOC>
+		<PUT ,B-Y-TBL 4 <GET ,PICINF-TBL 0>>
+		<PUT ,B-X-TBL 1 <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,B-3-R-PIC-LOC>
+		<PUT ,B-Y-TBL 3 <GET ,PICINF-TBL 0>>
+		<PUT ,B-X-TBL 2 <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,B-4-PIC-LOC>
+		<PUT ,B-Y-TBL 2 <GET ,PICINF-TBL 0>>
+		<PICINF-PLUS-ONE ,B-5-PIC-LOC>
+		<PUT ,B-Y-TBL 1 <GET ,PICINF-TBL 0>>
+		<PICINF-PLUS-ONE ,B-6-PIC-LOC>
+		<PUT ,B-Y-TBL 0 <GET ,PICINF-TBL 0>>
+		<FSET ,SMALL-DOOR ,OPENBIT>
+		<SETG TOWER-CHANGED <>>
+		<SPLIT-BY-PICTURE ,B-SPLIT T>
+		<ADJUST-TEXT-WINDOW ,B-BOTTOM>
+		<DRAW-TOWER>
+		<TELL
+"Opening the door reveals a tiny nook containing a
+Tower of Bozbar, consisting of 3 pegs and ">
+		<SET WEIGHT-CNT <+ <CCOUNT ,LEFT-PEG>
+				   <CCOUNT ,RIGHT-PEG>
+				   <CCOUNT ,CENTER-PEG>>>
+		<TELL N .WEIGHT-CNT>
+		<TELL " cylindrical weight">
+		<COND (<NOT <EQUAL? .WEIGHT-CNT 1>>
+		       <TELL "s">)>
+		<COND (<EQUAL? .WEIGHT-CNT 6>
+		       <TELL " ranging from a 1-ugh to a 6-ugh weight">)>
+		<TELL ,PERIOD-CR
+"   Type the number of the weight you want to move, followed by the peg
+you want to move it to: L, C, or R. ">
+		<COND (,ACTIVE-MOUSE
+		       <TELL
+"Or, if you'd rather use your mouse, click on the weight you want to move,
+then click on the peg you want to move it to. ">)>
+		<TELL "You can Undo your move by typing U">
+		<COND (,ACTIVE-MOUSE
+		       <TELL " (or clicking on the UNDO spot)">)>
+		<COND (<0? <BAND <LOWCORE FLAGS> 8>> ;"system has no UNDO"
+		       <TELL
+" -- even though Undo doesn't normally work on your system!">)
+		      (T
+		       <TELL ".">)>
+		<TELL " Type X">
+		<COND (,ACTIVE-MOUSE
+		       <TELL " (or click on the EXIT spot)">)>
+		<TELL " to exit.">
+		<TOWER-MODE>
+		<CRLF> <CRLF>
+		<HIT-ANY-KEY>
+		<INIT-SL-WITH-SPLIT ,TEXT-WINDOW-PIC-LOC>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL "The small door is closed." CR>)
+	       (<VERB? CLOSE>
+		<TELL "It is!" CR>)>>
+
+<OBJECT T-OF-B
+	(OWNER T-OF-B)
+	(DESC "Tower of Bozbar")
+	(SYNONYM TOWER BOZBAR)
+	(FLAGS CONTBIT OPENBIT SEARCHBIT)
+	(RESEARCH
+"The Tower of Bozbar, an ancient game of unknown origin, consists of three pegs
+and a pile of weights. The goal is to move the pile from one peg to another,
+moving one weight at a time, with the constraint that no weight can ever be
+placed atop a smaller weight. Many people say that the Tower of Bozbar is a
+superb method of mental relaxation. [Obviously, none of these people have ever
+played Zork Zero.]")>
+
+<OBJECT LEFT-PEG
+	(LOC T-OF-B)
+	(DESC "left peg")
+	(SYNONYM PEG POST)
+	(ADJECTIVE FIRST LEFT)
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)>
+
+<OBJECT CENTER-PEG
+	(LOC T-OF-B)
+	(DESC "center peg")
+	(SYNONYM PEG POST)
+	(ADJECTIVE SECOND CENTER MIDDLE)
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)>
+
+<OBJECT RIGHT-PEG
+	(LOC T-OF-B)
+	(DESC "right peg")
+	(SYNONYM PEG POST)
+	(ADJECTIVE THIRD RIGHT)
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)>
+
+<OBJECT 1-WEIGHT
+	(LOC CENTER-PEG)
+	(DESC "1-ugh weight")
+	(SYNONYM WEIGHT)
+	(ADJECTIVE 1-UGH)
+	(FLAGS NDESCBIT)
+	(SIZE 1)
+	(ACTION WEIGHT-F)>
+
+<OBJECT 2-WEIGHT
+	(LOC CENTER-PEG)
+	(DESC "2-ugh weight")
+	(SYNONYM WEIGHT)
+	(ADJECTIVE 2-UGH)
+	(FLAGS NDESCBIT)
+	(SIZE 2)
+	(ACTION WEIGHT-F)>
+
+<OBJECT 3-WEIGHT
+	(LOC CENTER-PEG)
+	(DESC "3-ugh weight")
+	(SYNONYM WEIGHT)
+	(ADJECTIVE 3-UGH)
+	(FLAGS NDESCBIT)
+	(SIZE 3)
+	(ACTION WEIGHT-F)>
+
+<OBJECT 4-WEIGHT
+	(LOC CENTER-PEG)
+	(DESC "4-ugh weight")
+	(SYNONYM WEIGHT)
+	(ADJECTIVE 4-UGH)
+	(FLAGS NDESCBIT)
+	(SIZE 4)
+	(ACTION WEIGHT-F)>
+
+<OBJECT 5-WEIGHT
+	(LOC CENTER-PEG)
+	(DESC "5-ugh weight")
+	(SYNONYM WEIGHT)
+	(ADJECTIVE 5-UGH)
+	(FLAGS NDESCBIT)
+	(SIZE 5)
+	(ACTION WEIGHT-F)>
+
+<OBJECT 6-WEIGHT
+	(LOC CENTER-PEG)
+	(DESC "6-ugh weight")
+	(SYNONYM WEIGHT)
+	(ADJECTIVE 6-UGH)
+	(FLAGS NDESCBIT)
+	(SIZE 6)
+	(ACTION WEIGHT-F)>
+
+<ROUTINE WEIGHT-F ("AUX" CNT (RECURSING <>))
+	 <COND (<AND <VERB? MOVE-TO>
+		     <PRSI? ,LEFT-PEG ,CENTER-PEG ,RIGHT-PEG>>
+		<COND (<IN? ,PRSO ,PRSI>
+		       <TELL "It's already on that peg.">)
+		      (<NOT-TOP-WEIGHT ,PRSO>
+		       <TELL "You can only move the weight that's on top!">)
+		      (T
+		       <SETG TOWER-CHANGED T>
+		       <MOVE-WEIGHT ,PRSO ,PRSI>
+		       <MOVE ,PRSO ,PRSI>
+		       <TELL "You move" T ,PRSO " to" T ,PRSI>
+		       <REPEAT ()
+			       <COND (<CRUSH-WEIGHT ,PRSO ,PRSI .RECURSING>
+				      <SET RECURSING T>)
+				     (T
+				      <RETURN>)>>
+		       <COND (,TOWER-BEATEN
+			      <SETG TOWER-BEATEN <>>
+			      <COND (<FSET? ,LARGE-DOOR ,OPENBIT>
+				     <FCLEAR ,LARGE-DOOR ,OPENBIT>
+				     <TELL
+". The large door to the north swings silently shut">)>)>
+		       <TELL ".">)>)>>
+
+<GLOBAL TOWER-BEATEN <>> ;"set to PYRAMID in GO"
+
+<GLOBAL TOWER-CHANGED <>> ;"set to <> when you open the door; set to true the
+			    first time you move a weight; prevents door from
+			    auto-closing before you've made a move"
+
+<ROUTINE-FLAGS CLEAN-STACK?>
+<ROUTINE TOWER-MODE ("AUX" CHAR WGT PEG X (JUST-UNDID <>))
+	 <REPEAT ()
+		 <COND (<AND ,TOWER-CHANGED
+			     <NOT .JUST-UNDID>
+			     <SETG TOWER-BEATEN <TOWER-WIN-CHECK>>>
+			<TELL
+"   You hear a \"click\" from the direction of the Tower">
+			<COND (<NOT <EQUAL? ,TOWER-BEATEN ,PYRAMID>>
+			       <TELL ". It tilts to the ">
+			       <COND (<EQUAL? ,TOWER-BEATEN ,PYRAMID-L>
+				      <TELL "left">)
+				     (T
+				      <TELL "right">)>)>
+			<FSET ,WEIRD ,REDESCBIT>
+			<FCLEAR ,SMALL-DOOR ,OPENBIT>
+			<TELL
+". The small louvered door swings silently shut.">
+			<RETURN>)>
+		 <COND (,DEMO-VERSION?
+			<SET CHAR <INPUT-DEMO 1>>)
+		       (T
+			<SET CHAR <INPUT 1>>)>
+		 <MOUSE-INPUT?>
+		 <COND (<EQUAL? .CHAR ,CLICK1 ,CLICK2>
+			<SET CHAR <B-MOUSE-WEIGHT-PICK>>)>
+		 <CLEAR ,S-TEXT>
+		 <COND (<EQUAL? .CHAR !\X !\x>
+			<TELL
+"You shut the louvered door, concealing the Tower of Bozbar from view.">
+			<RETURN>)
+		       (<EQUAL? .CHAR !\U !\u>
+			<COND (<NOT ,TOWER-CHANGED>
+			       <TELL
+"You can't undo until you make a move!">)
+			      (.JUST-UNDID
+			       <TELL
+"You just undid; you can't undo again until you move again!">)
+			      (T
+			       <SET JUST-UNDID T>
+			       <B-RESTORE>
+			       <DRAW-TOWER T>
+			       <TELL "Undone.">)>)
+		       (<OR <EQUAL? .CHAR !\1 !\2 !\3 !\4 !\5 !\6>
+			    <EQUAL? .CHAR 146 147 148 149 150 151> ;"keypad">
+			<COND (<EQUAL? .CHAR !\1 146>
+			       <SET WGT ,1-WEIGHT>)
+			      (<EQUAL? .CHAR !\2 147>
+			       <SET WGT ,2-WEIGHT>)
+			      (<EQUAL? .CHAR !\3 148>
+			       <SET WGT ,3-WEIGHT>)
+			      (<EQUAL? .CHAR !\4 149>
+			       <SET WGT ,4-WEIGHT>)
+			      (<EQUAL? .CHAR !\5 150>
+			       <SET WGT ,5-WEIGHT>)
+			      (T
+			       <SET WGT ,6-WEIGHT>)>
+			<COND (<NOT <EQUAL? <LOC .WGT>
+					    ,LEFT-PEG ,CENTER-PEG ,RIGHT-PEG>>
+			       <TELL
+"There's no " D .WGT " anymore -- you crushed it.">)
+			      (T
+			       <COND (,ACTIVE-MOUSE
+				      <TELL "Use your mouse or t">)
+				     (T
+				      <TELL "T">)>
+			       <TELL
+"ype L (left) or C (center) or R (right) to specify the peg you'd
+like to move the " D .WGT " to.">
+			       <COND (,DEMO-VERSION?
+				      <SET CHAR <INPUT-DEMO 1>>)
+				     (T
+				      <SET CHAR <INPUT 1>>)>
+			       <MOUSE-INPUT?>
+			       <COND (<EQUAL? .CHAR ,CLICK1 ,CLICK2>
+				      <SET CHAR <B-MOUSE-PEG-PICK>>)>
+			       <CLEAR ,S-TEXT>
+			       <COND (<NOT <EQUAL? .CHAR
+						   !\L !\l !\R !\r !\C !\c>>
+				      <TELL "Next time, ">
+				      <COND (<EQUAL? .CHAR ,CLICK1>
+					     <TELL
+"click on the left, center, or right peg!">)
+					    (T
+					     <TELL
+"type R (right), L (left), or C (center) to specify a destination peg!">)>)
+				     (T
+				      <COND (<EQUAL? .CHAR !\L !\l>
+					     <SET PEG ,LEFT-PEG>)
+					    (<EQUAL? .CHAR !\R !\r>
+					     <SET PEG ,RIGHT-PEG>)
+					    (T
+					     <SET PEG ,CENTER-PEG>)>
+				      <B-SAVE>
+				      <COND (<AND <OR <NOT ,TOWER-CHANGED>
+						      .JUST-UNDID>
+						  ,ACTIVE-MOUSE>
+					     <PICINF-PLUS-ONE
+					              ,TOWER-UNDO-BOX-LOC>
+					     <SCREEN ,S-WINDOW>
+					     <DISPLAY ,UNDO-BOX
+						      <GET ,PICINF-TBL 0>
+						      <GET ,PICINF-TBL 1>>
+					     <SCREEN ,S-TEXT>)>
+				      <SET JUST-UNDID <>>
+				      <SET X
+					   <PERFORM ,V?MOVE-TO .WGT .PEG>>)>)>)
+		       (<EQUAL? .CHAR !\L !\l !\R !\r !\C !\c>
+			<TELL
+"You must select a weight before you select a destination!">)
+		       (T
+			<TELL
+,TYPE-A-NUMBER "6, U for Undo, or X to eXit the Tower of Bozbar game.">)>>>
+
+<ROUTINE B-MOUSE-PEG-PICK
+	 ("AUX" TL-X TL-Y BR-X BR-Y WEIGHT-WIDTH WEIGHT-HEIGHT)
+	 <PICINF ,B-1-WEIGHT ,PICINF-TBL>
+	 <SET WEIGHT-WIDTH <GET ,PICINF-TBL 1>>
+	 <SET WEIGHT-HEIGHT <GET ,PICINF-TBL 0>>
+	 <PICINF-PLUS-ONE ,B-1-L-PIC-LOC>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-X <+ .WEIGHT-WIDTH .TL-X>>
+	 <PICINF-PLUS-ONE ,B-6-PIC-LOC>
+	 <SET BR-Y <+ <GET ,PICINF-TBL 0> .TL-Y>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\L>)>
+	 <PICINF-PLUS-ONE ,B-2-C-PIC-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-X <+ .WEIGHT-WIDTH .TL-X>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\C>)>
+	 <PICINF-PLUS-ONE ,B-3-R-PIC-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET BR-X <+ .WEIGHT-WIDTH .TL-X>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\R>)
+	       (T
+		<SOUND 1>
+		<RETURN ,CLICK1>)>>
+
+<ROUTINE B-MOUSE-WEIGHT-PICK ("AUX" TL-X TL-Y BR-X BR-Y (NUM 0) TBL
+		     (CNT-X 0) (CNT-Y 0) WEIGHT-WIDTH WEIGHT-HEIGHT)
+	 <PICINF-PLUS-ONE ,TOWER-UNDO-BOX-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <PICINF ,UNDO-BOX ,PICINF-TBL>
+	 <SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+	 <SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\U>)>
+	 <PICINF-PLUS-ONE ,TOWER-EXIT-BOX-LOC>
+	 <SET TL-X <GET ,PICINF-TBL 1>>
+	 <SET TL-Y <GET ,PICINF-TBL 0>>
+	 <PICINF ,EXIT-BOX ,PICINF-TBL>
+	 <SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+	 <SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+	 <COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		<RETURN !\X>)>
+	 <PICINF ,B-1-WEIGHT ,PICINF-TBL>
+	 <SET WEIGHT-WIDTH <GET ,PICINF-TBL 1>>
+	 <SET WEIGHT-HEIGHT <GET ,PICINF-TBL 0>>
+	 <SET TBL ,LEFT-PEG-TABLE>
+	 <REPEAT ()
+		 <REPEAT ()
+			 <SET TL-X <GET ,B-X-TBL .CNT-X>>
+		 	 <SET TL-Y <GET ,B-Y-TBL .CNT-Y>>
+		 	 <SET BR-X <+ .TL-X .WEIGHT-WIDTH>>
+		 	 <SET BR-Y <+ .TL-Y .WEIGHT-HEIGHT>>
+		 	 <COND (<AND <WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+				     <SET NUM <GET .TBL .CNT-Y>>>
+				<SET NUM <GETP .NUM ,P?SIZE>>)>
+			 <SET CNT-Y <+ .CNT-Y 1>>
+			 <COND (.NUM
+				<RETURN>)
+			       (<EQUAL? .CNT-Y 6>
+				<RETURN>)>>
+		 <COND (.NUM
+			<RETURN>)
+		       (<EQUAL? .CNT-X 0>
+			<SET CNT-X 1>
+			<SET CNT-Y 0>
+			<SET TBL ,CENTER-PEG-TABLE>)
+		       (<EQUAL? .CNT-X 1>
+			<SET CNT-X 2>
+			<SET CNT-Y 0>
+			<SET TBL ,RIGHT-PEG-TABLE>)
+		       (T
+			<RETURN>)>>
+	 <COND (.NUM
+		<RETURN <+ .NUM 48> ;"convert to ASCII">)
+               (T
+		<SOUND 1>
+		<RETURN ,CLICK1>)>>
+
+<ROUTINE TOWER-WIN-CHECK ()
+	 <COND (<AND <IN? ,1-WEIGHT ,LEFT-PEG>
+		     <IN? ,2-WEIGHT ,LEFT-PEG>
+		     <IN? ,3-WEIGHT ,LEFT-PEG>
+		     <IN? ,4-WEIGHT ,LEFT-PEG>
+		     <IN? ,5-WEIGHT ,LEFT-PEG>
+		     <IN? ,6-WEIGHT ,LEFT-PEG>>
+		<RETURN ,PYRAMID-L>)
+	       (<AND <IN? ,1-WEIGHT ,RIGHT-PEG>
+		     <IN? ,2-WEIGHT ,RIGHT-PEG>
+		     <IN? ,3-WEIGHT ,RIGHT-PEG>
+		     <IN? ,4-WEIGHT ,RIGHT-PEG>
+		     <IN? ,5-WEIGHT ,RIGHT-PEG>
+		     <IN? ,6-WEIGHT ,RIGHT-PEG>>
+		<RETURN ,PYRAMID-R>)
+	       (<AND <IN? ,1-WEIGHT ,CENTER-PEG>
+		     <IN? ,2-WEIGHT ,CENTER-PEG>
+		     <IN? ,3-WEIGHT ,CENTER-PEG>
+		     <IN? ,4-WEIGHT ,CENTER-PEG>
+		     <IN? ,5-WEIGHT ,CENTER-PEG>
+		     <IN? ,6-WEIGHT ,CENTER-PEG>>
+		<RETURN ,PYRAMID>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE SET-PEG-TABLE (PEG)
+	 <COND (<EQUAL? .PEG ,LEFT-PEG>
+		<RETURN ,LEFT-PEG-TABLE>)
+	       (<EQUAL? .PEG ,CENTER-PEG>
+		<RETURN ,CENTER-PEG-TABLE>)
+	       (T
+		<RETURN ,RIGHT-PEG-TABLE>)>>
+
+<ROUTINE NOT-TOP-WEIGHT (WGT "AUX" TBL (CNT 0) NOT-TOP)
+	 <SET TBL <SET-PEG-TABLE <LOC .WGT>>>
+	 <REPEAT ()
+		 <COND (<EQUAL? <GET .TBL .CNT> .WGT>
+			<COND (<EQUAL? .CNT 5> ;"the peg is full"
+			       <SET NOT-TOP <>>)
+			      (<EQUAL? <GET .TBL <+ .CNT 1>> 0>
+			       <SET NOT-TOP <>>)
+			      (T
+			       <SET NOT-TOP T>)>
+			<RETURN>)>
+		 <SET CNT <+ .CNT 1>>>
+	 <RETURN .NOT-TOP>>
+
+<ROUTINE MOVE-WEIGHT (WGT PEG "AUX" TBL (CNT 0) X)
+	 <SCREEN ,S-WINDOW>
+	 <SET X <GET ,B-X-TBL <COND (<EQUAL? <LOC .WGT> ,LEFT-PEG> 0)
+					 (<EQUAL? <LOC .WGT> ,CENTER-PEG> 1)
+					 (T 2)>>>
+	 <SET TBL <SET-PEG-TABLE <LOC .WGT>>>
+	 <REPEAT () ;"remove weight from current table"
+	     <COND (<EQUAL? <GET .TBL .CNT> .WGT>
+		    <DISPLAY ,B-RESTORE-PEG <GET ,B-Y-TBL .CNT> .X>
+		    <PUT .TBL .CNT 0>
+		    <RETURN>)>
+	     <SET CNT <+ .CNT 1>>>
+	 <SET CNT 0>
+	 <SET X <COND (<EQUAL? .PEG ,LEFT-PEG> 0)
+	       	      (<EQUAL? .PEG ,CENTER-PEG> 1)
+	       	      (T 2)>>
+	 <SET X <ZGET ,B-X-TBL .X>>
+	 <SET TBL <SET-PEG-TABLE .PEG>>
+	 <REPEAT () ;"put weight in new table"
+	     <COND (<EQUAL? <GET .TBL .CNT> 0>
+		    <DISPLAY <SET-B-PIC .WGT> <GET ,B-Y-TBL .CNT> .X>
+		    <PUT .TBL .CNT .WGT>
+		    <RETURN>)>
+	     <SET CNT <+ .CNT 1>>>
+	 <SCREEN ,S-TEXT>>
+
+<ROUTINE CRUSH-WEIGHT (WGT PEG RECURSING "AUX" TBL (CNT 0) CRUSHED X)
+	 <SET TBL <SET-PEG-TABLE .PEG>>
+	 <REPEAT ()
+	   <COND (<EQUAL? <GET .TBL .CNT> .WGT>
+		  <COND (<EQUAL? .CNT 0> ;"it's the only weight on peg"
+			 <SET CRUSHED <>>)
+			(<AND <SET CRUSHED <GET .TBL <- .CNT 1>>>
+			      <L? <GETP .CRUSHED ,P?SIZE>
+				  <GETP .WGT ,P?SIZE>>>
+			 <SET X <GET ,B-X-TBL
+				     <COND (<EQUAL? .PEG ,LEFT-PEG> 0)
+					   (<EQUAL? .PEG ,CENTER-PEG> 1)
+					   (T 2)>>>
+			 <SCREEN ,S-WINDOW>
+			 <DISPLAY ,B-RESTORE-PEG
+				  <GET ,B-Y-TBL .CNT> .X>
+			 <DISPLAY <SET-B-PIC .WGT>
+				  <GET ,B-Y-TBL <- .CNT 1>> .X>
+			 <SCREEN ,S-TEXT>
+			 <REMOVE .CRUSHED>
+			 <PUT .TBL .CNT 0>
+			 <PUT .TBL <- .CNT 1> .WGT>)
+			(T
+			 <SET CRUSHED <>>)>
+		  <RETURN>)>
+	   <SET CNT <+ .CNT 1>>>
+	 <COND (<NOT .CRUSHED>
+		<RFALSE>)
+	       (.RECURSING
+		<TELL ". And" T .CRUSHED>)
+	       (T
+		<TELL ", crushing" T .CRUSHED>)>>
+
+<ROUTINE B-SAVE ("AUX" CNT)
+	 <COPYT ,LEFT-PEG-TABLE ,TOWER-UNDO-TABLE 12>
+	 <COPYT ,CENTER-PEG-TABLE <REST ,TOWER-UNDO-TABLE 12> 12>
+	 <COPYT ,RIGHT-PEG-TABLE <REST ,TOWER-UNDO-TABLE 24> 12>
+	 <PUT ,TOWER-UNDO-TABLE 18 <LOC ,1-WEIGHT>>
+	 <PUT ,TOWER-UNDO-TABLE 19 <LOC ,2-WEIGHT>>
+	 <PUT ,TOWER-UNDO-TABLE 20 <LOC ,3-WEIGHT>>
+	 <PUT ,TOWER-UNDO-TABLE 21 <LOC ,4-WEIGHT>>
+	 <PUT ,TOWER-UNDO-TABLE 22 <LOC ,5-WEIGHT>>
+	 <PUT ,TOWER-UNDO-TABLE 23 <LOC ,6-WEIGHT>>>
+
+<ROUTINE B-RESTORE ("AUX" CNT L)
+	 <COPYT ,TOWER-UNDO-TABLE ,LEFT-PEG-TABLE 12>
+	 <COPYT <REST ,TOWER-UNDO-TABLE 12> ,CENTER-PEG-TABLE 12>
+	 <COPYT <REST ,TOWER-UNDO-TABLE 24> ,RIGHT-PEG-TABLE 12>
+	 <COND (<SET L <GET ,TOWER-UNDO-TABLE 18>>
+		<MOVE ,1-WEIGHT .L>)>
+	 <COND (<SET L <GET ,TOWER-UNDO-TABLE 19>>
+		<MOVE ,2-WEIGHT .L>)>
+	 <COND (<SET L <GET ,TOWER-UNDO-TABLE 20>>
+		<MOVE ,3-WEIGHT .L>)>
+	 <COND (<SET L <GET ,TOWER-UNDO-TABLE 21>>
+		<MOVE ,4-WEIGHT .L>)>
+	 <COND (<SET L <GET ,TOWER-UNDO-TABLE 22>>
+		<MOVE ,5-WEIGHT .L>)>
+	 <MOVE ,6-WEIGHT <GET ,TOWER-UNDO-TABLE 23>>>
+
+<CONSTANT B-X-TBL ;"x co-ordinates of pegs, left to right"
+	  <TABLE <> <> <>>>
+
+<CONSTANT B-Y-TBL ;"y co-ordinates of weights, bottom to top"
+	  <TABLE <> <> <> <> <> <>>>
+
+<CONSTANT TOWER-UNDO-TABLE
+	<TABLE 0 0 0 0 0 0 ;"store left-peg-table"
+	       0 0 0 0 0 0 ;"store center-peg-table"
+	       0 0 0 0 0 0 ;"store right-peg-table"
+	       0 0 0 0 0 0 ;"store weight locs">>
+
+<CONSTANT LEFT-PEG-TABLE
+	<TABLE 0 0 0 0 0 0>>
+
+<CONSTANT CENTER-PEG-TABLE
+	<TABLE 6-WEIGHT 5-WEIGHT 4-WEIGHT 3-WEIGHT 2-WEIGHT 1-WEIGHT>>
+
+<CONSTANT RIGHT-PEG-TABLE
+	<TABLE 0 0 0 0 0 0>>
+
+<CONSTANT B-PICSET-TBL
+	  <TABLE B-RESTORE-PEG
+		 1-WEIGHT
+		 2-WEIGHT
+		 3-WEIGHT
+		 4-WEIGHT
+		 5-WEIGHT
+		 6-WEIGHT
+		 0>>
+
+<ROUTINE DRAW-TOWER ("OPTIONAL" (UNDOING <>) "AUX" (CNT 0) WGT PEG-LOC)
+	 <CLEAR ,S-FULL>
+	 <SCREEN ,S-FULL>
+	 <DISPLAY ,B-BORDER 1 1>
+	 <PICSET ,B-PICSET-TBL>
+	 <SCREEN ,S-WINDOW>
+	 <DRAW-PEG ,LEFT-PEG-TABLE 0 ;<GET ,B-X-TBL 0>>
+	 <DRAW-PEG ,CENTER-PEG-TABLE 1 ;<GET ,B-X-TBL 1>>
+	 <DRAW-PEG ,RIGHT-PEG-TABLE 2 ;<GET ,B-X-TBL 2>>
+	 <COND (,ACTIVE-MOUSE
+		<PICINF-PLUS-ONE ,TOWER-UNDO-BOX-LOC>
+		<DISPLAY <COND (<OR <TOWER-WIN-CHECK>
+				    .UNDOING>
+				,DIM-UNDO-BOX)
+			       (T
+				,UNDO-BOX)>
+			 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+		<PICINF-PLUS-ONE ,TOWER-EXIT-BOX-LOC>
+		<DISPLAY ,EXIT-BOX <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>)>
+	 <SCREEN ,S-TEXT>>
+
+<ROUTINE DRAW-PEG (TBL X "AUX" WGT (CNT 0))
+      <SET X <GET ,B-X-TBL .X>>
+      <REPEAT ()
+	   <COND (<EQUAL? .CNT 6>
+		  <RETURN>)
+		 (<EQUAL? <SET WGT <GET .TBL .CNT>> 0>
+		  <RETURN>)
+		 (T
+		  <DISPLAY <SET-B-PIC .WGT> <GET ,B-Y-TBL .CNT> .X>)>
+	   <SET CNT <+ .CNT 1>>>>
+
+<ROUTINE SET-B-PIC (WGT)
+	 <RETURN <COND (<EQUAL? .WGT ,1-WEIGHT> ,B-1-WEIGHT)
+		       (<EQUAL? .WGT ,2-WEIGHT> ,B-2-WEIGHT)
+		       (<EQUAL? .WGT ,3-WEIGHT> ,B-3-WEIGHT)
+		       (<EQUAL? .WGT ,4-WEIGHT> ,B-4-WEIGHT)
+		       (<EQUAL? .WGT ,5-WEIGHT> ,B-5-WEIGHT)
+		       (<EQUAL? .WGT ,6-WEIGHT> ,B-6-WEIGHT)>>>
+
+<ROOM WEIRD
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Weird Passageway")
+      (SOUTH TO JESTERS-QUARTERS IF LARGE-DOOR IS OPEN)
+      (NORTH PER WEIRD-EXIT-F)
+      (WEST PER WEIRD-EXIT-F)
+      (EAST PER WEIRD-EXIT-F)
+      (FLAGS RLANDBIT)
+      (GLOBAL LARGE-DOOR)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-10>)
+      (ACTION WEIRD-F)>
+
+<ROUTINE WEIRD-EXIT-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<OR <AND <PRSO? ,P?WEST>
+			 <EQUAL? ,TOWER-BEATEN ,PYRAMID-L>>
+		    <AND <PRSO? ,P?NORTH>
+			 <EQUAL? ,TOWER-BEATEN ,PYRAMID>>
+		    <AND <PRSO? ,P?EAST>
+			 <EQUAL? ,TOWER-BEATEN ,PYRAMID-R>>>
+		,TOWER-BEATEN)
+	       (T
+		<COND (<NOT .RARG>
+		       <CANT-GO>)>
+		<RFALSE>)>>
+
+<ROUTINE WEIRD-ENTER-F ("OPT" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<EQUAL? ,HERE ,TOWER-BEATEN>
+		,WEIRD)
+	       (T
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"There DOES seem to be an outline of a entrance in that direction, but
+it appears sealed with no way to open it. Too bad." CR>)>
+		<RFALSE>)>>
+
+<ROUTINE WEIRD-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in a disturbing hallway; the lines of the walls are disorienting in
+a strange, non-Euclidean sort of way. The passageway ">
+		<COND (<NOT ,TOWER-BEATEN>
+		       <TELL "ends abruptly to the north">)
+		      (<EQUAL? ,TOWER-BEATEN ,PYRAMID>
+		       <TELL "continues straight ahead, to the north">)
+		      (T
+		       <TELL "curves sharply to the ">
+		       <COND (<EQUAL? ,TOWER-BEATEN ,PYRAMID-L>
+			      <TELL "left">)
+			     (T
+			      <TELL "right">)>
+		       <TELL " here, ending at an archway to the ">
+		       <COND (<EQUAL? ,TOWER-BEATEN ,PYRAMID-L>
+			      <TELL "west">)
+			     (T
+			      <TELL "east">)>)>
+		<TELL
+". To the south, the passage ends at a large arched door which is ">
+		<OPEN-CLOSED ,LARGE-DOOR>
+		<TELL ".">)>>
+
+<ROOM PYRAMID
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Pyramid Room")
+      (SOUTH PER WEIRD-ENTER-F)
+      (OUT PER WEIRD-ENTER-F)
+      (FLAGS RLANDBIT)
+      (VALUE 7)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-10>)
+      (ICON PYRAMID-ICON)
+      (ACTION PYRAMID-F)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT GOGGLES
+	(LOC PYRAMID)
+	(OWNER GOGGLES)
+	(DESC "pair of goggles")
+	(PLURAL "goggles")
+	(SYNONYM GOGGLES PAIR ETCHING)
+	(FLAGS PLURALBIT TAKEBIT WEARBIT TRANSBIT)
+	(ACTION GOGGLES-F)>
+
+<ROUTINE GOGGLES-F ()
+	 <COND (<AND <VERB? WEAR>
+		     <EQUAL? ,HERE ,GAMING-ROOM>
+		     <NOT <FSET? ,ZORKMID-BILL ,TOUCHBIT>>
+		     <IN? ,ZORKMID-BILL ,LOCAL-GLOBALS>>
+		<MOVE ,ZORKMID-BILL <COND (<PROB 33> ,J-POCKET)
+					  (<PROB 50> ,J-SHOE)
+					  (T ,J-HAT)>>
+		<RFALSE>)
+	       (<AND <VERB? EXAMINE>
+		     <PRSI? ,GOGGLES>>
+		<COND (<NOT <FSET? ,GOGGLES ,WORNBIT>>
+		       <PERFORM ,V?LOOK-INSIDE ,GOGGLES>
+		       <RTRUE>)
+		      (<PRSI? ,WALL>
+		       <TELL
+"You see the inside of the wall, but apparently it's too thick for the goggles
+to see all the way through." CR>)>)
+	       (<VERB? EXAMINE>
+		<COND (<NOUN-USED? ,GOGGLES ,W?ETCHING>
+		       <PERFORM ,V?READ ,GOGGLES>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"There is a small etching on one side of the goggles." CR>)>)
+	       (<VERB? READ>
+		<TELL "\"Frobozz Magic Goggles Company.\"" CR>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<FSET? ,GOGGLES ,WORNBIT>
+		       <TELL "You glance about you" ,ELLIPSIS>
+		       <V-LOOK>)
+		      (T
+		       <TELL ,YOULL-HAVE-TO "wear them to do that." CR>)>)>>
+
+<ROUTINE DISCOVER-X-RAY ()
+	 <COND (,DONT-KNOW-ABOUT-XRAY
+		<SETG DONT-KNOW-ABOUT-XRAY <>>
+		<TELL
+"This is incredible! You can see right through the outside of the ">
+		<COND (<NOT <PRSO? ,UNOPENED-NUT>>
+		       <TELL "closed ">)>
+		<TELL D ,PRSO " as if it were transparent! ">)>>
+
+<GLOBAL DONT-KNOW-ABOUT-XRAY T>
+
+<OBJECT CRATE
+	(LOC PYRAMID)
+	(DESC "crate")
+	(LDESC
+"Sitting in the corner is a wooden shipping crate with some writing
+stencilled across the top.")
+	(SYNONYM CRATE WRITING)
+	(ADJECTIVE WOODEN SHIPPING STENCILLED)
+	(FLAGS READBIT BURNBIT CONTBIT SEARCHBIT TAKEBIT)
+	(CAPACITY 100)
+	(OWNER CRATE) ;"read writing on crate"
+	(SIZE 80)
+	(TEXT
+"\"1000 Clown Noses, Red|
+Frobozz Magic Clown Nose Company\"")>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM PYRAMID-R
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Pyramid Room")
+      (WEST PER WEIRD-ENTER-F)
+      (OUT PER WEIRD-ENTER-F)
+      (FLAGS RLANDBIT)
+      (VALUE 7)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-11>)
+      (ICON PYRAMID-ICON)
+      (ACTION PYRAMID-F)>
+
+<OBJECT MANUSCRIPT
+	(LOC PYRAMID-R)
+	(DESC "manuscript")
+	(SYNONYM MANUSCRIPT)
+	(FLAGS READBIT TAKEBIT BURNBIT MAGICBIT)
+	(VALUE 12)
+	(TEXT
+"The manuscript is entitled \"On the Discoloration of Roadside Slush.\" You
+try reading it, but keep dozing off on the third or fourth word.")> 
+
+<ROOM PYRAMID-L
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Pyramid Room")
+      (EAST PER WEIRD-ENTER-F)
+      (OUT PER WEIRD-ENTER-F)
+      (FLAGS RLANDBIT)
+      (VALUE 7)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-9>)
+      (ICON PYRAMID-ICON)
+      (ACTION PYRAMID-F)>
+
+<ROUTINE PYRAMID-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This room, though rather wide at floor level, narrows as it rises like
+the interior of a pyramid or of an enormous beehive. ">
+		<COND (<EQUAL? ,TOWER-BEATEN ,HERE>
+		       <TELL "The only exit is ">
+		       <COND (<EQUAL? ,HERE ,PYRAMID>
+			      <TELL "south">)
+			     (<EQUAL? ,HERE ,PYRAMID-L>
+			      <TELL "east">)
+			     (T
+			      <TELL "west">)>
+		       <TELL ".">)
+		      (T
+		       <TELL
+"There are no visible exits, although there's a faint
+outline of a doorway on the ">
+		       <COND (<EQUAL? ,HERE ,PYRAMID>
+			      <TELL "south">)
+			     (<EQUAL? ,HERE ,PYRAMID-L>
+			      <TELL "east">)
+			     (T
+			      <TELL "west">)>
+		       <TELL " wall.">)>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT CUP
+	(LOC PYRAMID-L)
+	(DESC "cup")
+	(SYNONYM CUP)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT OPENBIT)
+	(ACTION CUP-F)>
+
+<ROUTINE CUP-F ()
+	 <COND (<VERB? DRINK DRINK-FROM>
+		<COND (<IN? ,POTION ,CUP>
+		       <PERFORM ,V?DRINK ,POTION>
+		       <RTRUE>)
+		      (T
+		       <TELL "The cup is empty!" CR>)>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,CUP>
+		     <IN? ,POTION ,CUP>>
+		<PERFORM ,V?PUT ,PRSO ,POTION>
+		<RTRUE>)>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT POTION
+	(LOC CUP)
+	(DESC "magic potion")
+	(SYNONYM POTION POTIONS LIQUID)
+	(ADJECTIVE MAGIC YELLOW-GREEN)
+	(FLAGS NARTICLEBIT)
+	(RESEARCH
+"\"Potions are the most accessible form of magic for the masses, since
+they are simply drunk like water. No lessons in complicated spell-casting
+are required.\"")
+	(ACTION POTION-F)>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<GLOBAL POTION-GULPS 4>
+
+<GLOBAL PLANT-TALKER <>>
+
+<ROUTINE POTION-F ("AUX" X)
+	 <COND (<VERB? TASTE DRINK>
+		<COND (<NOT <ULTIMATELY-IN? ,CUP>>
+		       <MOVE ,CUP ,PROTAGONIST>
+		       <TELL "[taking the cup first]" CR>)>
+		<TELL "You take a gulp. The potion is now ">
+		<COND (<EQUAL? ,POTION-GULPS 4>
+		       <TELL "a quarter">)
+		      (<EQUAL? ,POTION-GULPS 3>
+		       <TELL "half">)
+		      (<EQUAL? ,POTION-GULPS 2>
+		       <TELL "three-quarters">)
+		      (T
+		       <REMOVE ,POTION>
+		       <TELL "all">)>
+		<TELL " gone.">
+		<COND (<NOT ,PLANT-TALKER>
+		       <SETG PLANT-TALKER T>
+		       <TELL " Your ears seem to tingle for a moment." CR>)>
+		<SETG POTION-GULPS <- ,POTION-GULPS 1>>
+		<QUEUE I-POTION 15>
+		<COND (<AND <SET X <FIND-IN ,HERE ,PLANTBIT>>
+			    <NOT ,TIME-STOPPED>>
+		       <TELL
+"   You notice that" T .X " seems to be murmuring." CR>)>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,POTION>>
+		<TELL
+"Dipping" T ,PRSO " into the potion seems to have no effect on" TR ,PRSO>)
+	       (<AND <VERB? POUR>
+		     <PRSO? ,POTION>>
+		<REMOVE ,POTION>
+		<TELL
+"The potion vanishes into a cloud of sweet-smelling fumes which
+quickly disperse." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "The potion is a yellow-green color." CR>)>>
+
+<ROUTINE I-POTION ("AUX" X)
+	 <SETG PLANT-TALKER <>>
+	 <RETURN-FROM-MAP>
+	 <TELL "   Your ears tingle again">
+	 <COND (<AND <SET X <FIND-IN ,HERE ,PLANTBIT>>
+		     <NOT ,TIME-STOPPED>>
+		<TELL ", and" T .X " no longer seems to be murmuring">)>
+	 <TELL ,PERIOD-CR>>
+
+<ROUTINE PLANT-STUNNED ()
+	 <TELL
+"There is no response -- perhaps" T ,WINNER " is simply stunned to hear
+a human talking plant-talk." CR>
+	 <STOP>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT FENSHIRE>
+
+<OBJECT COOKPOT
+	(DESC "cookpot")
+	(SYNONYM COOKPOT POT)
+	(FLAGS CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 50)
+	(ACTION COOKPOT-F)>
+
+<ROUTINE COOKPOT-F ()
+	 <COND (<VERB? PUT>
+		<TELL
+"The jester stops you. \"Non, non! Too many cooks spoil zee broth!\"" CR>)>>
+
+<OBJECT COOKFIRE
+	(DESC "cookfire")
+	(SYNONYM COOKFIRE FIRE)
+	(FLAGS FLAMEBIT)>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/lake.zabstr b/lake.zabstr
new file mode 100644
index 0000000..b736c60
--- /dev/null
+++ b/lake.zabstr
@@ -0,0 +1,452 @@
+
+<BEGIN-SEGMENT LAKE> 
+<ROOM WEST-SHORE (LOC ROOMS) (DESC "West Shore") (REGION "Flatheadia") (EAST
+SORRY "These waters are known for their hungry denizens.") (WEST TO ROYAL-ZOO)
+(FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (GLOBAL LAKE-FLATHEAD STAIRS) (MAP-LOC <
+PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>) (ICON WEST-SHORE-ICON) (ACTION
+WEST-SHORE-F)> 
+<DEFINE-ROUTINE WEST-SHORE-F> 
+<OBJECT WEST-DOCK (LOC WEST-SHORE) (DESC "yellow dock") (SYNONYM DOCK) (
+ADJECTIVE YELLOW WEST) (CAPACITY 200) (FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT
+SEARCHBIT CONTBIT SURFACEBIT) (ACTION DOCK-F)> 
+<ROOM NORTH-SHORE (LOC ROOMS) (DESC "North Shore") (REGION "Flatheadia") (SOUTH
+SORRY "These waters are known for their hungry denizens.") (NORTH TO PHIL-HALL)
+(NE TO THEATRE) (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (GLOBAL LAKE-FLATHEAD
+STAIRS) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON
+NORTH-SHORE-ICON) (ACTION NORTH-SHORE-F)> 
+<DEFINE-ROUTINE NORTH-SHORE-F> 
+<OBJECT NORTH-DOCK (LOC NORTH-SHORE) (DESC "red dock") (SYNONYM DOCK) (
+ADJECTIVE RED NORTH) (CAPACITY 200) (FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT
+SEARCHBIT CONTBIT SURFACEBIT) (ACTION DOCK-F)> 
+<ROOM EAST-SHORE (LOC ROOMS) (REGION "Flatheadia") (DESC "East Shore") (WEST
+SORRY "These waters are known for their hungry denizens.") (EAST TO
+BASE-OF-MOUNTAIN) (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (GLOBAL LAKE-FLATHEAD
+STAIRS G-U-MOUNTAIN) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5>) (
+ICON EAST-SHORE-ICON) (ACTION EAST-SHORE-F)> 
+<DEFINE-ROUTINE EAST-SHORE-F> 
+<OBJECT EAST-DOCK (LOC EAST-SHORE) (DESC "blue dock") (SYNONYM DOCK) (ADJECTIVE
+BLUE EAST) (CAPACITY 200) (FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT SEARCHBIT
+CONTBIT SURFACEBIT) (ACTION DOCK-F)> 
+<ROOM SOUTH-SHORE (LOC ROOMS) (DESC "South Shore") (REGION "Flatheadia") (NORTH
+SORRY "These waters are known for their hungry denizens.") (SOUTH TO
+EDGE-OF-DESERT) (WEST TO STREAM) (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (GLOBAL
+LAKE-FLATHEAD STAIRS) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>) (
+ICON SOUTH-SHORE-ICON) (ACTION SOUTH-SHORE-F)> 
+<DEFINE-ROUTINE SOUTH-SHORE-F> 
+<OBJECT SOUTH-DOCK (LOC SOUTH-SHORE) (DESC "green dock") (SYNONYM DOCK) (
+ADJECTIVE GREEN SOUTH) (CAPACITY 200) (FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT
+SEARCHBIT CONTBIT SURFACEBIT) (ACTION DOCK-F)> 
+<DEFINE-ROUTINE DOCK-F> 
+<OBJECT YACHT (LOC WEST-SHORE) (DESC "royal yacht") (LDESC
+"The royal yacht sits by the dock, bobbing gently in the swell of the lake.") (
+SYNONYM YACHT BOAT) (ADJECTIVE ROYAL) (CAPACITY 200) (FLAGS VEHBIT DROPBIT
+OPENBIT SEARCHBIT CONTBIT SURFACEBIT) (ACTION YACHT-F)> 
+<DEFINE-ROUTINE YACHT-F> 
+<OBJECT YACHT-CONTROLS (LOC YACHT) (DESC "controls") (SYNONYM CONTROL CONTROLS
+ROSE COMPASS) (ADJECTIVE COMPASS) (FLAGS NDESCBIT NARTICLEBIT PLURALBIT) (
+ACTION YACHT-CONTROLS-F)> 
+<DEFINE-ROUTINE YACHT-CONTROLS-F> 
+<OBJECT YACHT-PLAQUE (LOC YACHT) (DESC "brass plaque") (SYNONYM PLAQUE) (
+ADJECTIVE SMALL BRASS) (FLAGS READBIT NDESCBIT) (TEXT
+"\"Made by the Frobozz Magic Royal Yacht Company.\"")> 
+<OBJECT RED-BUTTON (LOC YACHT) (DESC "red button") (SYNONYM BUTTON) (ADJECTIVE
+RED) (FLAGS NDESCBIT) (ACTION YACHT-BUTTON-F)> 
+<OBJECT BLUE-BUTTON (LOC YACHT) (DESC "blue button") (SYNONYM BUTTON) (
+ADJECTIVE BLUE) (FLAGS NDESCBIT) (ACTION YACHT-BUTTON-F)> 
+<OBJECT GREEN-BUTTON (LOC YACHT) (DESC "green button") (SYNONYM BUTTON) (
+ADJECTIVE GREEN) (FLAGS NDESCBIT) (ACTION YACHT-BUTTON-F)> 
+<OBJECT YELLOW-BUTTON (LOC YACHT) (DESC "yellow button") (SYNONYM BUTTON) (
+ADJECTIVE YELLOW) (FLAGS NDESCBIT) (ACTION YACHT-BUTTON-F)> 
+<OBJECT WHITE-BUTTON (LOC YACHT) (DESC "white button") (SYNONYM BUTTON) (
+ADJECTIVE WHITE FIFTH CENTER MIDDLE) (FLAGS NDESCBIT) (ACTION YACHT-BUTTON-F)> 
+<DEFINE-ROUTINE YACHT-BUTTON-F> 
+<GLOBAL YACHT-DESTINATION <>> 
+<DEFINE-ROUTINE I-YACHT> 
+<ROOM HOLD (LOC ROOMS) (REGION "Flatheadia") (DESC "Hold") (LDESC
+"You are in a cabin under the deck of the royal yacht. A steep gangway leads
+upward.") (UP PER YACHT-ENTER-F) (IN PER DB-ENTER-F) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (GLOBAL STAIRS) (SYNONYM HOLD) (MAP-LOC <PTABLE LAKE-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-1>) (ICON HOLD-ICON)> 
+<DEFINE-ROUTINE YACHT-ENTER-F> 
+<DEFINE-ROUTINE DB-ENTER-F> 
+<OBJECT DB (LOC HOLD) (DESC "bathysphere") (SYNONYM SPHERE BATHYSPHERE DOOR
+HATCH BELL) (ADJECTIVE DIVING) (CAPACITY 200) (FLAGS VEHBIT INBIT DROPBIT
+CONTBIT SEARCHBIT TRANSBIT) (ACTION DB-F)> 
+<GLOBAL DB-CONTROLS-DESCRIBED <>> 
+<DEFINE-ROUTINE DB-F> 
+<OBJECT DB-CONTROLS (LOC DB) (DESC "controls") (SYNONYM CONTROL CONTROLS) (
+FLAGS NDESCBIT NARTICLEBIT PLURALBIT) (GENERIC G-DB-HOLE-F) (ACTION
+DB-CONTROLS-F)> 
+<DEFINE-ROUTINE DB-CONTROLS-F> 
+<OBJECT DB-PLAQUE (LOC DB) (DESC "brass plaque") (SYNONYM PLAQUE) (ADJECTIVE
+SMALL BRASS) (FLAGS READBIT NDESCBIT) (TEXT
+"\"A product of the Frobozz Magic Bathysphere Company, designed by
+Jacques Yves Flathead.\"")> 
+<DEFINE-ROUTINE G-DB-HOLE-F> 
+<OBJECT PORTHOLE (LOC DB) (DESC "porthole") (SYNONYM PORTHOLE PORT HOLE) (
+ADJECTIVE PORT) (FLAGS NDESCBIT) (GENERIC G-DB-HOLE-F) (ACTION PORTHOLE-F)> 
+<DEFINE-ROUTINE PORTHOLE-F> 
+<OBJECT RUBY (LOC LAKE-BOTTOM) (DESC "moby ruby") (PLURAL "rubies") (FDESC
+"A ruby of incredible size and beauty is buried in the sand.") (SYNONYM RUBY
+JEWEL) (ADJECTIVE RED MOBY LARGE BEAUTIFUL) (FLAGS TRYTAKEBIT TAKEBIT READBIT)
+(VALUE 25) (SIZE 3) (TEXT
+"This ruby must surely be the largest jewel in the land.")> 
+<OBJECT EXTERIOR-LIGHT (LOC DB) (DESC "exterior light") (SYNONYM LIGHT LIGHTS)
+(ADJECTIVE EXTERIOR) (FLAGS LIGHTBIT NDESCBIT VOWELBIT)> 
+<OBJECT WALDO (LOC HOLD) (DESC "waldo") (SYNONYM WALDO) (ADJECTIVE EXTERIOR) (
+FLAGS NDESCBIT CONTBIT SEARCHBIT OPENBIT) (ACTION WALDO-F)> 
+<DEFINE-ROUTINE WALDO-F> 
+<GLOBAL HAND-IN-WALDO <>> 
+<OBJECT HAND-HOLE (LOC DB) (DESC "hand-hole") (SYNONYM HOLE HAND-HOLE CONTROL)
+(ADJECTIVE HAND WALDO) (FLAGS NDESCBIT) (GENERIC G-DB-HOLE-F) (ACTION
+HAND-HOLE-F)> 
+<DEFINE-ROUTINE HAND-HOLE-F> 
+<DEFINE-ROUTINE WALDO-TAKE> 
+<OBJECT LEVER (LOC DB) (DESC "up-down lever") (SYNONYM LEVER) (ADJECTIVE
+UP-DOWN) (FLAGS NDESCBIT VOWELBIT) (ACTION LEVER-F)> 
+<GLOBAL DB-DIRECTION 0> 
+<GLOBAL DB-DEPTH 0> 
+<GLOBAL PIECE-DROWNED 0> 
+<DEFINE-ROUTINE LEVER-F> 
+<DEFINE-ROUTINE GLANCE> 
+<DEFINE-ROUTINE I-DB> 
+<ROOM LAKE-FLATHEAD (LOC ROOMS) (REGION "Flatheadia") (DESC "Lake Flathead") (
+LDESC "You are in the center of a once-handsome lake, lit from the roof high
+overhead. On the distant shores, you can spot docks in all four
+cardinal directions.") (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT NARTICLEBIT
+WATERBIT) (SYNONYM LAKE FLATHEAD) (ADJECTIVE FLATHEAD LAKE PLACID CLEAR CRYSTAL
+) (VALUE 18) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>) (GLOBAL
+STAIRS) (ICON LAKE-FLATHEAD-ICON) (RESEARCH
+"\"This large and handsome lake lies entirely within the royal castle at
+Flatheadia.\"") (ACTION LAKE-FLATHEAD-F)> 
+<DEFINE-ROUTINE LAKE-FLATHEAD-F> 
+<ROOM UNDERWATER (LOC ROOMS) (REGION "Flatheadia") (DESC "Underwater") (LDESC
+"Here, between the surface and floor of Lake Flathead, the water is somewhat
+clearer.") (FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL LAKE-FLATHEAD) (MAP-LOC <
+PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-1>) (ICON UNDERWATER-ICON)> 
+<ROOM LAKE-BOTTOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Lake Bottom") (LDESC
+"You have reached the sandy bottom at the deepest point of Lake Flathead.
+Beautiful freshwater fish swim among slowly waving spenseweeds.") (FLAGS
+RLANDBIT UNDERGROUNDBIT) (GLOBAL LAKE-FLATHEAD) (MAP-LOC <PTABLE LAKE-MAP-NUM
+MAP-GEN-Y-7 MAP-GEN-X-1>) (ICON LAKE-BOTTOM-ICON) (ACTION LAKE-BOTTOM-F)> 
+<DEFINE-ROUTINE LAKE-BOTTOM-F> 
+<OBJECT LAKE-BOTTOM-FISH (LOC LAKE-BOTTOM) (DESC "freshwater fish") (SYNONYM
+FISH) (ADJECTIVE BEAUTIFUL FRESHWATER) (FLAGS NDESCBIT) (ACTION
+LAKE-BOTTOM-FISH-F)> 
+<DEFINE-ROUTINE LAKE-BOTTOM-FISH-F> 
+<ROOM BASE-OF-MOUNTAIN (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Base of Mountain") (LDESC
+"In a rare moment of restraint, Dimwit scaled back his plans for putting
+an entire mountain range in the castle, settling for merely a single mountain.
+A difficult trail leads east up the mountain; easier paths head north, west,
+and south.") (NORTH TO STABLE) (SOUTH TO G-U-WOODS) (WEST TO EAST-SHORE) (EAST
+PER G-U-MOUNTAIN-ENTER-F) (UP PER G-U-MOUNTAIN-ENTER-F) (FLAGS RLANDBIT ONBIT
+UNDERGROUNDBIT) (GLOBAL G-U-MOUNTAIN) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-6>) (ICON BASE-OF-MT-ICON)> 
+<DEFINE-ROUTINE G-U-MOUNTAIN-ENTER-F> 
+<ROOM STABLE (LOC ROOMS) (REGION "Flatheadia") (DESC "Stable") (LDESC
+"The stalls here once held thousands of royal mounts. The only exit is south.")
+(SOUTH TO BASE-OF-MOUNTAIN) (OUT TO BASE-OF-MOUNTAIN) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (SYNONYM STABLE) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-4
+MAP-GEN-X-6>) (ICON STABLE-ICON) (THINGS <> STALL STALL-PS) (ACTION STABLE-F)> 
+<DEFINE-ROUTINE STABLE-F> 
+<DEFINE-ROUTINE STALL-PS> 
+<OBJECT SADDLE (LOC STABLE) (DESC "saddle") (FDESC
+"A well-worn unicorn saddle, of military style, is hanging at the far
+end of the stable.") (SYNONYM SADDLE) (ADJECTIVE WELL-WORN UNICORN MILITARY) (
+FLAGS TAKEBIT MAGICBIT READBIT) (SIZE 15) (VALUE 12) (TEXT
+"You can barely make out the name \"Wilma.\"") (ACTION SADDLE-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE SADDLE-F> 
+<OBJECT ROOSTER (LOC STABLE) (DESC "rooster") (FDESC
+"There's not a horse in sight. However, there is a rooster here, strutting
+back and forth between the stalls.") (SYNONYM ROOSTER BIRD VANE) (ADJECTIVE
+WEATHER) (FLAGS TAKEBIT TRYTAKEBIT ANIMATEDBIT) (INANIMATE-DESC "weather vane")
+(WAND-TEXT "The rooster stops moving and takes on the complexion of wrought iron."
+) (ANIMATE-ROUTINE I-W-ROOSTER) (SIZE 10) (ACTION ROOSTER-F)> 
+<DEFINE-ROUTINE ROOSTER-F> 
+<DEFINE-ROUTINE I-W-ROOSTER> 
+<GLOBAL ROOSTER-PROB 100> 
+<GLOBAL ROOSTER-BURP <>> 
+<DEFINE-ROUTINE I-ROOSTER> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<ROOM G-U-MOUNTAIN (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Great Underground Mountain") (WEST TO BASE-OF-MOUNTAIN) (DOWN TO
+BASE-OF-MOUNTAIN) (NORTH PER CAVE-ENTER-F) (IN PER CAVE-ENTER-F) (FLAGS
+RLANDBIT ONBIT UNDERGROUNDBIT) (SYNONYM MOUNTAIN) (ADJECTIVE GREAT UNDERGROUND)
+(RESEARCH "\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\""
+) (GLOBAL LAKE-FLATHEAD) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>
+) (ICON G-U-MOUNTAIN-ICON) (ACTION G-U-MOUNTAIN-F)> 
+<DEFINE-ROUTINE G-U-MOUNTAIN-F> 
+<DEFINE-ROUTINE CAVE-ENTER-F> 
+<OBJECT BOULDER (LOC G-U-MOUNTAIN) (DESC "boulder") (SYNONYM BOULDER ROCK) (
+ADJECTIVE LARGE) (FLAGS NDESCBIT) (ACTION BOULDER-F)> 
+<DEFINE-ROUTINE BOULDER-F> 
+<OBJECT CAVE-OBJECT (DESC "cave") (SYNONYM CAVE) (ADJECTIVE TINY) (FLAGS
+NDESCBIT) (ACTION CAVE-OBJECT-F)> 
+<DEFINE-ROUTINE CAVE-OBJECT-F> 
+<ROOM GROTTO (LOC ROOMS) (REGION "Region:  Unknown") (DESC "Grotto") (LDESC
+"You are in a damp grotto near the peak of the Great Underground Mountain.
+Slimy moss covers the irregular rock walls. Winding passages lead south and
+northeast, and a steep gravelly passage leads downward at an alarming angle.")
+(SOUTH TO G-U-MOUNTAIN) (NE TO SHRINE) (DOWN PER LOWEST-HALL-ENTER-F) (WEST PER
+LOWEST-HALL-ENTER-F) (FLAGS RLANDBIT UNDERGROUNDBIT) (SYNONYM GROTTO) (MAP-LOC
+<PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>)> 
+P 
+<OBJECT GROTTO-REBUS-BUTTON (LOC GROTTO) (SDESC "blinking key-shaped button") (
+FDESC "Imbedded in the rocky wall is a blinking button in the shape of a key.")
+(SYNONYM BUTTON) (ADJECTIVE KEY-SHAPED BLINKING) (ACTION REBUS-BUTTON-F)> 
+<DEFINE-ROUTINE LOWEST-HALL-ENTER-F> 
+<OBJECT GRAVEL (LOC LOCAL-GLOBALS) (DESC "gravel") (PLURAL "gravel") (SYNONYM
+GRAVEL) (GENERIC G-GRAVEL-F) (FLAGS TAKEBIT NARTICLEBIT) (ACTION GRAVEL-F)> 
+<OBJECT MORE-GRAVEL (LOC LOCAL-GLOBALS) (DESC "more gravel") (PLURAL "gravel")
+(SYNONYM GRAVEL) (ADJECTIVE MORE) (GENERIC G-GRAVEL-F) (FLAGS TAKEBIT
+NARTICLEBIT) (ACTION GRAVEL-F)> 
+<OBJECT EVEN-MORE-GRAVEL (LOC LOCAL-GLOBALS) (DESC "even more gravel") (PLURAL
+"gravel") (SYNONYM GRAVEL) (ADJECTIVE EVEN MORE) (GENERIC G-GRAVEL-F) (FLAGS
+TAKEBIT NARTICLEBIT) (ACTION GRAVEL-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE G-GRAVEL-F> 
+<DEFINE-ROUTINE GRAVEL-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<ROOM SHRINE (LOC ROOMS) (DESC "Shrine") (REGION "Region:  Unknown") (LDESC
+"You have stumbled upon a long-hidden shrine to Saint Foobus of Galepath.
+An idol of Foobus is carved from the very rock that forms this cave. The only
+exit is southwest.") (SW TO GROTTO) (OUT TO GROTTO) (FLAGS RLANDBIT
+UNDERGROUNDBIT) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-8>) (ICON
+SHRINE-ICON)> 
+<OBJECT IDOL (LOC SHRINE) (DESC "idol") (SYNONYM ST SAINT IDOL FOOBUS GALEPATH
+SHRINE) (ADJECTIVE SAINT ST) (FLAGS NDESCBIT VOWELBIT) (RESEARCH
+"\"The legendary Saint Foobus was said to have power over lowly insects.\"") (
+ACTION IDOL-F)> 
+<DEFINE-ROUTINE IDOL-F> 
+<OBJECT BOWL (LOC SHRINE) (DESC "bowl") (LDESC
+"Sitting before the idol is a translucent bowl, extremely tall and narrow,
+like a carafe.") (SYNONYM BOWL CARAFE) (ADJECTIVE TRANSLUCENT TALL NARROW) (
+FLAGS TRYTAKEBIT CONTBIT OPENBIT SEARCHBIT) (CAPACITY 25) (ACTION BOWL-F)> 
+<DEFINE-ROUTINE BOWL-F> 
+<DEFINE-ROUTINE GRAVEL-COUNT> 
+<OBJECT ELIXIR (LOC BOWL) (DESC "elixir") (SYNONYM ELIXIR LIQUID) (ADJECTIVE
+MILKY) (FLAGS VOWELBIT) (ACTION ELIXIR-F)> 
+<DEFINE-ROUTINE ELIXIR-F> 
+<ROOM BATS-LAIR (LOC ROOMS) (DESC "Bat's Lair") (REGION "Region:  Unknown") (
+LDESC "Only a deranged bat would live in this disgusting nesting space, caked with
+layer upon layer of dried guano. A precarious path leads down to the west;
+there's little chance you'd be able to climb back.") (DOWN PER LAIR-EXIT-F) (
+OUT PER LAIR-EXIT-F) (WEST PER LAIR-EXIT-F) (FLAGS RLANDBIT UNDERGROUNDBIT) (
+SYNONYM LAIR) (ADJECTIVE BAT\'S) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6
+MAP-GEN-X-7>) (ICON BATS-LAIR-ICON)> 
+<DEFINE-ROUTINE LAIR-EXIT-F> 
+<ROOM G-U-WOODS (LOC ROOMS) (DESC "Great Underground Woods") (REGION
+"Flatheadia") (LDESC
+"You are surrounded by tall oaks and wide pines. Birds chirp in the distance.
+Trails wind north and southwest among the trees.") (NORTH TO BASE-OF-MOUNTAIN)
+(SW TO G-U-SAVANNAH) (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (SYNONYM WOODS) (
+ADJECTIVE GREAT UNDERGROUND) (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+(MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>) (THINGS TALL OAK
+TREE-PS WIDE PINE TREE-PS PINE TREE TREE-PS OAK TREE TREE-PS) (ACTION
+G-U-WOODS-F)> 
+<DEFINE-ROUTINE G-U-WOODS-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT FOX (LOC G-U-WOODS) (DESC "fox") (PLURAL "foxes") (FDESC
+"A fox is leaning against a nearby tree, looking sly.") (SYNONYM FOX STOLE) (
+ADJECTIVE FOX) (FLAGS TAKEBIT TRYTAKEBIT ANIMATEDBIT) (INANIMATE-DESC
+"fox stole") (WAND-TEXT "The fox's eyes turn glassy.") (ANIMATE-ROUTINE I-W-FOX
+) (SIZE 15) (ACTION FOX-F)> 
+<DEFINE-ROUTINE FOX-F> 
+<DEFINE-ROUTINE WOULDNT-MIND> 
+<DEFINE-ROUTINE I-W-FOX> 
+<GLOBAL FOX-PROB 100> 
+<GLOBAL FOX-BURP <>> 
+<DEFINE-ROUTINE I-FOX> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<ROOM G-U-SAVANNAH (LOC ROOMS) (REGION "Flatheadia") (DESC
+"Great Underground Savannah") (LDESC
+"Dimwit's mania for including every conceivable ecosystem under his roof
+continues here. This flat grassland ends at woods to the northeast, and
+at a desert to the west. A herd of unicorns is grazing nearby.") (NE TO
+G-U-WOODS) (WEST TO EDGE-OF-DESERT) (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (
+SYNONYM SAVANNAH) (ADJECTIVE GREAT UNDERGROUND) (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+(MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-5>) (ICON G-U-SAVANNAH-ICON
+) (ACTION FLY-ROOM-F)> 
+<OBJECT UNICORNS (LOC G-U-SAVANNAH) (OWNER UNICORNS) (DESC "herd of unicorns")
+(SYNONYM UNICORN UNICORNS HERD) (ADJECTIVE GRAZING) (FLAGS NDESCBIT) (RESEARCH
+"\"A magical beast, sometimes used as a combat mount.\"") (ACTION UNICORNS-F)> 
+<DEFINE-ROUTINE UNICORNS-F> 
+<ROOM STREAM (LOC ROOMS) (DESC "Stream") (REGION "Flatheadia") (EAST TO
+SOUTH-SHORE) (WEST PER BRIDGE-ENTER-F) (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT) (
+GLOBAL LAKE-FLATHEAD) (RIDDLE
+"|
+  'One night four men sat down to play;|
+     They played and played till break of day.|
+       They played for money; not for fun,|
+         With separate scores for every one.|
+           And when time came to square accounts,|
+             They all had made quite nice amounts!'|
+What were the men playing?\" As the jester awaits your answer, you notice
+that he is holding the framed document.") (MAP-LOC <PTABLE LAKE-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-3>) (ACTION CAMEL-DRINK-ROOM-F)> 
+<OBJECT BRIDGE (LOC STREAM) (DESC "odd green bridge") (SYNONYM BRIDGE) (
+ADJECTIVE STRANGE ODD UNUSUAL GREEN) (FLAGS VOWELBIT NDESCBIT) (ACTION BRIDGE-F
+)> 
+<DEFINE-ROUTINE BRIDGE-F> 
+<DEFINE-ROUTINE BRIDGE-ENTER-F> 
+<OBJECT MUSIC (LOC GLOBAL-OBJECTS) (DESC "music") (SYNONYM MUSIC INSTRUMENTS) (
+ADJECTIVE MUSICAL) (FLAGS NARTICLEBIT) (ACTION MUSIC-F)> 
+<DEFINE-ROUTINE MUSIC-F> 
+<OBJECT STREAM-OBJECT (LOC STREAM) (DESC "stream") (SYNONYM STREAM) (FLAGS
+NDESCBIT WATERBIT) (ACTION STREAM-OBJECT-F)> 
+<DEFINE-ROUTINE STREAM-OBJECT-F> 
+<DEFINE-ROUTINE CAMEL-DRINK-ROOM-F> 
+<OBJECT DIPLOMA (LOC STREAM) (DESC "diploma") (SYNONYM DIPLOMA DOCUMENT) (
+ADJECTIVE FRAMED) (FLAGS TAKEBIT TRYTAKEBIT READBIT NDESCBIT MAGICBIT) (VALUE 0
+) (TEXT "The diploma is from the Borphee Business School, but the name of the
+recipient is too faded to read.") (SIZE 2) (ACTION DIPLOMA-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE DIPLOMA-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<ROOM EDGE-OF-DESERT (LOC ROOMS) (DESC "Edge of Desert") (REGION "Flatheadia")
+(LDESC "Dimwit wanted a sandbox, but thanks to his lack of perspective he ended up
+with a desert. The bulk of the desert lies to the south; paths lead in the
+other cardinal directions.") (NORTH TO SOUTH-SHORE) (NE SORRY
+"Sand dunes block your way.") (EAST TO G-U-SAVANNAH) (SE SORRY
+"Sand dunes block your way.") (WEST TO RING-OF-DUNES) (SW SORRY
+"Sand dunes block your way.") (SOUTH PER DESERT-ENTER-F) (NW SORRY
+"Sand dunes block your way.") (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (
+GLOBAL G-U-DESERT) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-4>) (
+ACTION DESERT-ROOM-F)> 
+<ROOM RING-OF-DUNES (LOC ROOMS) (DESC "Ring of Dunes") (REGION "Flatheadia") (
+LDESC "You are surrounded by sand dunes on all sides but the east.") (NORTH
+SORRY "Sand dunes block your way.") (NE SORRY "Sand dunes block your way.") (
+EAST TO EDGE-OF-DESERT) (SE SORRY "Sand dunes block your way.") (SOUTH SORRY
+"Sand dunes block your way.") (SW SORRY "Sand dunes block your way.") (WEST
+SORRY "Sand dunes block your way.") (NW SORRY "Sand dunes block your way.") (
+FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (GLOBAL G-U-DESERT) (MAP-LOC <
+PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-3>) (ICON RING-OF-DUNES-ICON) (ACTION
+DESERT-ROOM-F)> 
+<OBJECT CAMEL (LOC RING-OF-DUNES) (DESC "camel") (SYNONYM CAMEL FIXTURE) (
+ADJECTIVE MERRY-GO-ROUND) (FLAGS ACTORBIT VEHBIT SEARCHBIT OPENBIT ANIMATEDBIT)
+(RESEARCH "\"A desert animal.\"") (GENERIC G-CAMEL-F) (INANIMATE-DESC
+"merry-go-round fixture") (WAND-TEXT
+"The camel, never a speed demon to begin with, becomes still. His coloring
+grows gaudier, and a few bars of honky-tonk music drift through the air.") (
+ANIMATE-ROUTINE I-W-CAMEL) (ACTION CAMEL-F)> 
+<DEFINE-ROUTINE G-CAMEL-F> 
+<GLOBAL CAMEL-THIRSTY T> 
+<DEFINE-ROUTINE CAMEL-F> 
+<DEFINE-ROUTINE I-W-CAMEL> 
+<DEFINE-ROUTINE DESERT-ENTER-F> 
+<ROOM G-U-DESERT (LOC ROOMS) (DESC "Great Underground Desert") (REGION
+"Flatheadia") (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.") (NORTH TO EDGE-OF-DESERT) (NE SORRY
+"Sand dunes block your way.") (EAST SORRY "Sand dunes block your way.") (SE
+SORRY "Sand dunes block your way.") (SOUTH TO CACTUS-PATCH) (SW TO
+WINDBLOWN-SANDS) (WEST SORRY "Sand dunes block your way.") (NW SORRY
+"Sand dunes block your way.") (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (
+SYNONYM DESERT) (ADJECTIVE GREAT UNDERGROUND) (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+(MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>) (ACTION DESERT-ROOM-F
+)> 
+<ROOM WINDBLOWN-SANDS (LOC ROOMS) (DESC "Windblown Sands") (REGION "Flatheadia"
+) (LDESC "You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.") (NORTH SORRY "Sand dunes block your way.") (NE
+TO G-U-DESERT) (EAST TO CACTUS-PATCH) (SE TO DESERT-PLAIN) (SOUTH SORRY
+"Sand dunes block your way.") (SW SORRY "Sand dunes block your way.") (WEST
+SORRY "Sand dunes block your way.") (NW SORRY "Sand dunes block your way.") (
+FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (GLOBAL G-U-DESERT) (MAP-LOC <
+PTABLE DESERT-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5>) (ACTION DESERT-ROOM-F)> 
+<ROOM CACTUS-PATCH (LOC ROOMS) (DESC "Cactus Patch") (REGION "Flatheadia") (
+LDESC "You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.") (NORTH TO G-U-DESERT) (NE SORRY
+"Sand dunes block your way.") (EAST SORRY "Sand dunes block your way.") (SE
+SORRY "Sand dunes block your way.") (SOUTH SORRY "Sand dunes block your way.")
+(SW SORRY "Sand dunes block your way.") (WEST TO WINDBLOWN-SANDS) (NW SORRY
+"Sand dunes block your way.") (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (
+GLOBAL G-U-DESERT) (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>) (
+ICON CACTUS-PATCH-ICON) (ACTION DESERT-ROOM-F)> 
+<OBJECT CACTI (LOC CACTUS-PATCH) (DESC "cactus") (SYNONYM CACTUS CACTI) (FLAGS
+NDESCBIT PLANTBIT) (ACTION CACTI-F)> 
+<DEFINE-ROUTINE CACTI-F> 
+<ROOM DESERT-PLAIN (LOC ROOMS) (DESC "Desert Plain") (REGION "Flatheadia") (
+LDESC "You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.") (NORTH SORRY "Sand dunes block your way.") (NE
+SORRY "Sand dunes block your way.") (EAST TO TALL-DUNES) (SE TO RIPPLED-SANDS)
+(SOUTH SORRY "Sand dunes block your way.") (SW SORRY
+"Sand dunes block your way.") (WEST SORRY "Sand dunes block your way.") (NW TO
+WINDBLOWN-SANDS) (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (GLOBAL
+G-U-DESERT) (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>) (ACTION
+DESERT-ROOM-F)> 
+<ROOM TALL-DUNES (LOC ROOMS) (DESC "Tall Dunes") (REGION "Flatheadia") (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.") (NORTH SORRY "Sand dunes block your way.") (NE
+SORRY "Sand dunes block your way.") (EAST SORRY "Sand dunes block your way.") (
+SE SORRY "Sand dunes block your way.") (SOUTH TO RIPPLED-SANDS) (SW SORRY
+"Sand dunes block your way.") (WEST TO DESERT-PLAIN) (NW SORRY
+"Sand dunes block your way.") (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (
+GLOBAL G-U-DESERT) (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>) (
+ICON TALL-DUNES-ICON) (ACTION DESERT-ROOM-F)> 
+<ROOM RIPPLED-SANDS (LOC ROOMS) (DESC "Rippled Sands") (REGION "Flatheadia") (
+LDESC "You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.") (NORTH TO TALL-DUNES) (NE TO OASIS) (EAST SORRY
+"Sand dunes block your way.") (SE SORRY "Sand dunes block your way.") (SOUTH
+SORRY "Sand dunes block your way.") (SW SORRY "Sand dunes block your way.") (
+WEST SORRY "Sand dunes block your way.") (NW TO DESERT-PLAIN) (FLAGS RLANDBIT
+ONBIT DESERTBIT UNDERGROUNDBIT) (GLOBAL G-U-DESERT) (MAP-LOC <PTABLE
+DESERT-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-7>) (ACTION DESERT-ROOM-F)> 
+<GLOBAL DESERT-DEATH 0> 
+<DEFINE-ROUTINE DESERT-ROOM-F> 
+<DEFINE-ROUTINE I-DESERT-RESET> 
+<ROOM OASIS (LOC ROOMS) (DESC "Great Underground Oasis") (REGION "Flatheadia")
+(SW TO RIPPLED-SANDS) (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT) (GLOBAL
+G-U-DESERT) (VALUE 8) (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>)
+(ICON G-U-OASIS-ICON) (ACTION CAMEL-DRINK-ROOM-F)> 
+<OBJECT OASIS-OBJECT (LOC OASIS) (DESC "oasis") (SYNONYM OASIS POOL SPRING) (
+ADJECTIVE GREAT UNDERGROUND INCREDIBLY CLEAR COLD) (FLAGS VOWELBIT NDESCBIT
+WATERBIT)> 
+<ROOM PHIL-HALL (LOC ROOMS) (DESC "Frobozz Philharmonic Hall") (REGION
+"Flatheadia") (NORTH PER FR-BASEMENT-ENTER-F) (SOUTH TO NORTH-SHORE) (EAST TO
+THEATRE) (FLAGS RLANDBIT ONBIT) (SYNONYM HALL ORCHESTRA) (ADJECTIVE FROBOZZ
+PHILHARMONIC) (RESEARCH
+"\"Frobozz Philharmonic Hall is the home of the renowned Frobozz Philharmonic
+Orchestra.\"") (GLOBAL FR-BLDG) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-4>) (ACTION PHIL-HALL-F) (THINGS LONE SPOTLIGHT SPOTLIGHT-PS <>
+SHADOW PHIL-SHADOW-PS)> 
+<DEFINE-ROUTINE PHIL-HALL-F> 
+<DEFINE-ROUTINE PHIL-SHADOW-PS> 
+<DEFINE-ROUTINE SPOTLIGHT-PS> 
+<OBJECT CONDUCTOR-STAND (LOC PHIL-HALL) (DESC "conductor's stand") (SYNONYM
+STAND PLATFORM) (ADJECTIVE CONDUCTOR RECTANGULAR) (CAPACITY 50) (FLAGS NDESCBIT
+VEHBIT CONTBIT OPENBIT SURFACEBIT SEARCHBIT) (ACTION CONDUCTOR-STAND-F)> 
+<DEFINE-ROUTINE CONDUCTOR-STAND-F> 
+<ROOM CONDUCTOR-PIT (LOC ROOMS) (DESC "Conductor's Pit") (REGION "Flatheadia")
+(LDESC "You are in a tiny space beneath the stage. There are no visible exits."
+) (OUT SORRY "There are no visible exits.") (UP SORRY
+"There are no visible exits.") (FLAGS RLANDBIT) (SYNONYM PIT) (ADJECTIVE
+CONDUCTOR) (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>) (ACTION
+CONDUCTOR-PIT-F)> 
+<DEFINE-ROUTINE CONDUCTOR-PIT-F> 
+<OBJECT VIOLIN (LOC CONDUCTOR-PIT) (DESC "fancy violin") (FDESC
+"Sitting by the edge of the stand is a beautiful, handmade violin; possibly
+a Stradivarius.") (SYNONYM STRADIVARIUS VIOLIN) (ADJECTIVE FANCY BEAUTIFUL
+HANDMADE STRADIVARIUS) (FLAGS TAKEBIT BURNBIT MAGICBIT) (SIZE 10) (VALUE 12) (
+ACTION VIOLIN-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE VIOLIN-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<ROOM THEATRE (LOC ROOMS) (DESC "Theatre") (REGION "Flatheadia") (LDESC
+"This twenty-thousand-seat theatre was renowned for its terrible acoustics,
+although Dimwit always claimed he could \"hear things great\" from his box
+in the front of the theatre. Exits lead west and southwest.") (WEST TO
+PHIL-HALL) (SW TO NORTH-SHORE) (FLAGS RLANDBIT ONBIT) (SYNONYM THEATRE THEATER)
+(MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>) (THINGS DIMWIT\'S BOX
+DIMWIT-BOX-PS)> 
+<DEFINE-ROUTINE DIMWIT-BOX-PS> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/lake.zap b/lake.zap
new file mode 100644
index 0000000..46a0487
--- /dev/null
+++ b/lake.zap
@@ -0,0 +1,1351 @@
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	WEST-SHORE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"What's a castle without a lake? Dimwit loved lakes, but hated to go outside, so he had one constructed in his extensive cellars. Once a lovely lake, teeming with life, its waters have grown stagnant. The scummy surface stretches off to the east, and a tunnel leads west."
+	RTRUE	
+
+
+	.FUNCT	NORTH-SHORE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"Stretching off to the south is an impressive sight: a large lake, completely contained within the castle. A red dock protrudes into the lake"
+	IN?	YACHT,HERE \?CND4
+	PRINT	YACHT-MOORED
+?CND4:	PRINTI	". Tunnels lead north and northeast."
+	RTRUE	
+
+
+	.FUNCT	EAST-SHORE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"A narrow beach lies between the lake, to the west, and a tall mountain, to the east. It's hard to remember that you're still within the castle. A blue dock juts out into the lake"
+	IN?	YACHT,HERE \?CND4
+	PRINT	YACHT-MOORED
+?CND4:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	SOUTH-SHORE-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The sandy beach on the south side of the lake is very wide -- in fact, it simply blends into a wide desert to the south. To the north, a green dock extends into the lake"
+	IN?	YACHT,HERE \?CND4
+	PRINT	YACHT-MOORED
+?CND4:	PRINTI	". The shore curves around toward the west."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	IN?	PROTAGONIST,CAMEL \FALSE
+	FSET?	CAMEL,TOUCHBIT /FALSE
+	ZERO?	CAMEL-THIRSTY /FALSE
+	FSET	CAMEL,TOUCHBIT
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The camel takes one look at the scummy water and wheezes mournfully through parched lips."
+
+
+	.FUNCT	DOCK-F,VARG
+	EQUAL?	PRSA,V?ENTER \FALSE
+	IN?	BEDBUG,HERE \FALSE
+	ZERO?	TIME-STOPPED \FALSE
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+
+
+	.FUNCT	YACHT-F,VARG
+	ZERO?	VARG /?CCL3
+	EQUAL?	VARG,M-ENTER \FALSE
+	FSET?	PRSO,TOUCHBIT \?CCL8
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	RFALSE	
+?CCL8:	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTR	" The controls seem worthy of closer examination. A gangway leads belowdecks."
+?CCL3:	EQUAL?	PRSA,V?ENTER \?CCL10
+	IN?	PROTAGONIST,HERE \?CCL10
+	PRINTR	"You can only board the yacht from the dock."
+?CCL10:	EQUAL?	PRSA,V?EXIT \?CCL14
+	EQUAL?	HERE,LAKE-FLATHEAD \?CND15
+	ICALL	PERFORM,V?ENTER,LAKE-FLATHEAD
+	RTRUE	
+?CND15:	EQUAL?	HERE,WEST-SHORE \?CCL19
+	PUSH	WEST-DOCK
+	JUMP	?CND17
+?CCL19:	EQUAL?	HERE,NORTH-SHORE \?CCL21
+	PUSH	NORTH-DOCK
+	JUMP	?CND17
+?CCL21:	EQUAL?	HERE,EAST-SHORE \?CCL23
+	PUSH	EAST-DOCK
+	JUMP	?CND17
+?CCL23:	PUSH	SOUTH-DOCK
+?CND17:	MOVE	PROTAGONIST,STACK
+	SET	'OLD-HERE,FALSE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTI	"You step off the boat, onto the dock."
+	CRLF	
+	EQUAL?	VERBOSITY,1 \?CCL26
+	CRLF	
+	ICALL1	SAY-HERE
+	CRLF	
+	RTRUE	
+?CCL26:	EQUAL?	VERBOSITY,2 \TRUE
+	CRLF	
+	ICALL1	V-LOOK
+	RTRUE	
+?CCL14:	EQUAL?	PRSA,V?SINK \?CCL29
+	SET	'AWAITING-REPLY,1
+	ICALL	QUEUE,I-REPLY,2
+	PRINTR	"You have a torpedo, maybe?"
+?CCL29:	EQUAL?	PRSA,V?SET \?CCL31
+	EQUAL?	P-PRSA-WORD,W?STEER \?CCL31
+	PRINTR	"There's no wheel."
+?CCL31:	EQUAL?	PRSA,V?THROW-FROM \FALSE
+	EQUAL?	PRSI,YACHT \FALSE
+	ICALL	PERFORM,V?PUT,PRSO,WATER
+	RTRUE	
+
+
+	.FUNCT	YACHT-CONTROLS-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The controls are quite simple, consisting of a small brass plaque and an ornate compass rose. There are buttons on the four cardinal points of the rose: a red button at the north point, blue at the east, green south, and yellow west. A fifth button, white, is at the center of the rose."
+
+
+	.FUNCT	YACHT-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	FSET?	OUTER-GATE,OPENBIT /?CTR5
+	ZERO?	TIME-STOPPED /?CCL6
+?CTR5:	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL6:	FSET?	SEAMANS-CAP,WORNBIT /?CCL10
+	PRINTI	"You meet an invisible resistance. A peal of laughter from behind turns out to be the jester. ""The button may seem like a demon, telling landlubber from seaman; but the truth's not so queer -- you need nautical gear!"""
+	ICALL1	J-EXITS
+	RTRUE	
+?CCL10:	EQUAL?	PRSO,WHITE-BUTTON \?CCL12
+	EQUAL?	HERE,LAKE-FLATHEAD \?CCL15
+	ICALL2	DEQUEUE,I-YACHT
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL15:	SET	'YACHT-DESTINATION,LAKE-FLATHEAD
+	ICALL2	I-YACHT,TRUE-VALUE
+	RTRUE	
+?CCL12:	IN?	DB,HOLD /?CCL17
+	PRINTR	"A message flashes: ""Warning -- diving bell lowered!"""
+?CCL17:	EQUAL?	PRSO,RED-BUTTON \?CCL19
+	EQUAL?	HERE,NORTH-SHORE \?CCL22
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL22:	SET	'YACHT-DESTINATION,NORTH-SHORE
+	ICALL2	I-YACHT,TRUE-VALUE
+	RTRUE	
+?CCL19:	EQUAL?	PRSO,GREEN-BUTTON \?CCL24
+	EQUAL?	HERE,SOUTH-SHORE \?CCL27
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL27:	SET	'YACHT-DESTINATION,SOUTH-SHORE
+	ICALL2	I-YACHT,TRUE-VALUE
+	RTRUE	
+?CCL24:	EQUAL?	PRSO,BLUE-BUTTON \?CCL29
+	EQUAL?	HERE,EAST-SHORE \?CCL32
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL32:	SET	'YACHT-DESTINATION,EAST-SHORE
+	ICALL2	I-YACHT,TRUE-VALUE
+	RTRUE	
+?CCL29:	EQUAL?	HERE,WEST-SHORE \?CCL35
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL35:	SET	'YACHT-DESTINATION,WEST-SHORE
+	ICALL2	I-YACHT,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	I-YACHT,CALLED-BY-BUTTON-F
+	ZERO?	CALLED-BY-BUTTON-F /?CND1
+	ICALL	QUEUE,I-YACHT,2
+	EQUAL?	HERE,LAKE-FLATHEAD \?CCL5
+	EQUAL?	YACHT-DESTINATION,LAKE-FLATHEAD /?CCL5
+	PRINTI	"The boat heads for the "
+	ICALL2	DPRINT,YACHT-DESTINATION
+	PRINT	PERIOD-CR
+	JUMP	?CND1
+?CCL5:	PRINTI	"The yacht moves away from the dock, toward the middle of the lake."
+	CRLF	
+	CRLF	
+?CND1:	IN?	YACHT,LAKE-FLATHEAD \?CCL10
+	MOVE	YACHT,YACHT-DESTINATION
+	ICALL1	RETURN-FROM-MAP
+	IN?	PROTAGONIST,YACHT \?CND8
+	PRINTI	"   The yacht reaches the "
+	ICALL2	DPRINT,YACHT-DESTINATION
+	PRINTI	" and docks magically."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,YACHT
+	JUMP	?CND8
+?CCL10:	MOVE	YACHT,LAKE-FLATHEAD
+	IN?	PROTAGONIST,YACHT \?CND8
+	ICALL1	RETURN-FROM-MAP
+	ICALL2	GOTO,YACHT
+	PRINTI	"   The boat reaches the middle of the lake"
+	EQUAL?	YACHT-DESTINATION,LAKE-FLATHEAD \?CCL17
+	PRINTI	", slows, and stops"
+	JUMP	?CND15
+?CCL17:	PRINTI	" and heads straight for the dock on the "
+	ICALL2	DPRINT,YACHT-DESTINATION
+?CND15:	PRINT	PERIOD-CR
+?CND8:	IN?	YACHT,YACHT-DESTINATION \TRUE
+	ICALL2	DEQUEUE,I-YACHT
+	RTRUE	
+
+
+	.FUNCT	YACHT-ENTER-F,RARG
+	ZERO?	RARG \FALSE
+	ICALL2	GOTO,YACHT
+	RFALSE	
+
+
+	.FUNCT	DB-ENTER-F,RARG
+	ZERO?	RARG \FALSE
+	FSET?	DB,OPENBIT \?CCL5
+	ICALL	PERFORM,V?ENTER,DB
+	RFALSE	
+?CCL5:	ICALL1	RETURN-FROM-MAP
+	ICALL2	THIS-IS-IT,DB
+	ICALL2	DO-FIRST,STR?566
+	RFALSE	
+
+
+	.FUNCT	DB-F,VARG
+	ZERO?	VARG /?CCL3
+	EQUAL?	VARG,M-ENTER \FALSE
+?CCL3:	ZERO?	VARG /?CCL7
+	ZERO?	DB-CONTROLS-DESCRIBED \FALSE
+	SET	'DB-CONTROLS-DESCRIBED,TRUE-VALUE
+	PRINTC	32
+	ICALL	PERFORM,V?EXAMINE,DB
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL12
+	IN?	PROTAGONIST,DB \?CCL15
+	PRINTI	"This is a cramped diving bell. The door is "
+	ICALL2	OPEN-CLOSED,DB
+	PRINTR	". A brass plaque is mounted next to a small porthole. You may want to examine the controls."
+?CCL15:	PRINTI	"The diving bell is "
+	ICALL2	OPEN-CLOSED,DB
+	PRINTR	". Mounted on the outside of it is a claw-like waldo."
+?CCL12:	EQUAL?	PRSA,V?ENTER \?CCL17
+	IN?	PROTAGONIST,DB /?CCL17
+	FSET?	DB,OPENBIT /?CCL17
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+?CCL17:	EQUAL?	PRSA,V?EXIT \?CCL22
+	IN?	PROTAGONIST,DB \?CCL22
+	ZERO?	HAND-IN-WALDO /?CCL27
+	CALL2	DO-FIRST,STR?567
+	RSTACK	
+?CCL27:	FSET?	DB,OPENBIT /?CCL29
+	ICALL2	THIS-IS-IT,DB
+	CALL2	DO-FIRST,STR?566
+	RSTACK	
+?CCL29:	IN?	RUBY,WALDO \FALSE
+	FCLEAR	RUBY,TRYTAKEBIT
+	RFALSE	
+?CCL22:	EQUAL?	PRSA,V?LOWER,V?RAISE \?CCL33
+	IN?	PROTAGONIST,DB \?CCL36
+	PRINT	YOULL-HAVE-TO
+	PRINTR	"use the controls."
+?CCL36:	PRINTR	"You can't do that from out here."
+?CCL33:	EQUAL?	PRSA,V?OPEN \FALSE
+	EQUAL?	HERE,HOLD /FALSE
+	CALL2	JIGS-UP,STR?568
+	RSTACK	
+
+
+	.FUNCT	DB-CONTROLS-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The controls seem simple enough: an up-down lever, an exterior light, and a hand-hole for controlling the exterior waldo."
+
+
+	.FUNCT	G-DB-HOLE-F,TBL,F
+	GET	F,6
+	EQUAL?	STACK,W?CONTROL \?CCL3
+	RETURN	DB-CONTROLS
+?CCL3:	RETURN	HAND-HOLE
+
+
+	.FUNCT	PORTHOLE-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	WALDO-F
+	FSET?	EXTERIOR-LIGHT,ONBIT /?CCL3
+	EQUAL?	HERE,HOLD /?CCL3
+	CALL2	HANDLE,WALDO
+	ZERO?	STACK /?CCL3
+	CALL2	CANT-SEE,WALDO
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?REACH-IN \?CCL8
+	IN?	PROTAGONIST,DB \?CCL8
+	ICALL	PERFORM,V?REACH-IN,HAND-HOLE
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?DROP \?CCL12
+	PRINTR	"Although you can manipulate the waldo, you aren't holding it. [If you want to remove your hand, try REMOVE HAND.]"
+?CCL12:	EQUAL?	PRSA,V?PUT \?CCL14
+	MOVE	PRSO,HERE
+	PRINT	YOU-CANT
+	PRINTI	"budge the waldo's claw, so"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" falls right out."
+?CCL14:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL16
+	ZERO?	HAND-IN-WALDO /?CCL19
+	FIRST?	WALDO \?CCL22
+	EQUAL?	PRSA,V?OPEN \?CCL25
+	FIRST?	WALDO /?BOGUS26
+?BOGUS26:	ICALL	PERFORM,V?DROP,STACK
+	RTRUE	
+?CCL25:	PRINTI	"The waldo IS closed! It's holding"
+	FIRST?	WALDO /?BOGUS27
+?BOGUS27:	CALL2	ARPRINT,STACK
+	RSTACK	
+?CCL22:	PRINTR	"The claws of the waldo open and close."
+?CCL19:	PRINTR	"The claws of the waldo won't budge."
+?CCL16:	EQUAL?	PRSA,V?TAKE-WITH \FALSE
+	EQUAL?	PRSI,WALDO \FALSE
+	EQUAL?	PRSO,WALDO,DB \?CCL34
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL34:	ZERO?	HAND-IN-WALDO /?CCL36
+	SET	'PRSI,FALSE-VALUE
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL36:	PRINTR	"Your hand isn't in the hand-hole!"
+
+
+	.FUNCT	HAND-HOLE-F
+	IN?	PROTAGONIST,DB /?CCL3
+	CALL2	CANT-REACH,HAND-HOLE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?REACH-IN \?CCL5
+	PRINTI	"Your hand is "
+	ZERO?	HAND-IN-WALDO /?CCL8
+	PRINTR	"already in the hand-hole!"
+?CCL8:	SET	'HAND-IN-WALDO,TRUE-VALUE
+	PRINTI	"now in the hand-hole"
+	FSET?	WALDO,TOUCHBIT /?CND9
+	FSET	WALDO,TOUCHBIT
+	PRINTI	". The waldo feels like an extension of your own hand. You flex your fingers a few times"
+	FSET?	EXTERIOR-LIGHT,ONBIT /?CCL12
+	EQUAL?	HERE,HOLD \?CND9
+?CCL12:	PRINTI	", and through the viewport, you see the waldo flex correspondingly"
+?CND9:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	ZERO?	HAND-IN-WALDO /?CCL19
+	PRINTR	"Your hand is in the hole."
+?CCL19:	PRINT	ONLY-BLACKNESS
+	RTRUE	
+
+
+	.FUNCT	WALDO-TAKE
+	EQUAL?	PRSI,WALDO \?CCL3
+	EQUAL?	P-PRSA-WORD,W?REMOVE \?CCL6
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL6:	CALL2	CANT-REACH,PRSO
+	RSTACK	
+?CCL3:	FIRST?	WALDO \?CCL8
+	PRINTI	"There's already"
+	FIRST?	WALDO /?BOGUS9
+?BOGUS9:	ICALL2	APRINT,STACK
+	PRINTR	" in the waldo."
+?CCL8:	EQUAL?	HERE,LAKE-BOTTOM \?CCL11
+	IN?	SQUID-REPELLENT,LAKE-BOTTOM /?CCL11
+	PRINTI	"Before the waldo can grab"
+	ICALL1	TPRINT-PRSO
+	PRINTI	", a baby squid swims into view and snatches"
+	ICALL1	TPRINT-PRSO
+	PRINTI	". The squid playfully squirts black ink toward the porthole, and by the time the view clears, the squid is gone"
+	FSET?	PRSO,TAKEBIT \?CND14
+	PRINTI	" and"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is lying right where it was before"
+?CND14:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL11:	FSET?	PRSO,TAKEBIT \?CCL17
+	MOVE	PRSO,WALDO
+	FSET	PRSO,TOUCHBIT
+	PRINTI	"You pick up"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" in the waldo."
+?CCL17:	EQUAL?	PRSO,SPENSEWEED \?CCL19
+	PRINT	DEEPLY-ROOTED
+	RTRUE	
+?CCL19:	EQUAL?	PRSO,J-POCKET,J-HAT,JESTER /?CTR20
+	EQUAL?	PRSO,J-SHOE \?CCL21
+?CTR20:	PRINTR	"Your attempt ends up giving the jester a pinch with the waldo. ""Please!"" he exclaims. ""I'm not that sort of jester!"""
+?CCL21:	CALL1	YUKS
+	RSTACK	
+
+
+	.FUNCT	LEVER-F,X
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The lever is in the "
+	EQUAL?	DB-DIRECTION,1 \?CCL6
+	PRINTI	"up"
+	JUMP	?CND4
+?CCL6:	EQUAL?	DB-DIRECTION,-1 \?CCL8
+	PRINTI	"down"
+	JUMP	?CND4
+?CCL8:	PRINTI	"neutral"
+?CND4:	PRINTI	" position"
+	ZERO?	DB-DIRECTION \?CCL11
+	PRINTR	", from which it can be raised or lowered."
+?CCL11:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?RAISE \?CCL13
+	EQUAL?	DB-DIRECTION,1 \?CCL16
+	PRINTR	"The lever is already raised."
+?CCL16:	EQUAL?	HERE,HOLD \?CCL18
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL18:	SET	'DB-DIRECTION,1
+	ICALL	QUEUE,I-DB,2
+	PRINTI	"The bathysphere ascends."
+	EQUAL?	HERE,LAKE-BOTTOM \?CCL21
+	SET	'DB-DEPTH,4
+	MOVE	DB,UNDERWATER
+	MOVE	WALDO,UNDERWATER
+	CALL1	GLANCE
+	RSTACK	
+?CCL21:	CRLF	
+	RTRUE	
+?CCL13:	EQUAL?	PRSA,V?LOWER \FALSE
+	EQUAL?	DB-DIRECTION,-1 \?CCL26
+	PRINTR	"The lever is already lowered."
+?CCL26:	EQUAL?	DB-DEPTH,4 /?CTR27
+	IN?	YACHT,LAKE-FLATHEAD /?CCL28
+?CTR27:	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL28:	FIRST?	WALDO >X \?CCL32
+	EQUAL?	X,FOX,FLAMINGO,ROOSTER /?CTR31
+	EQUAL?	X,SNAKE \?CCL32
+?CTR31:	PRINTI	"You'd drown the poor "
+	PRINTD	X
+	PRINTR	"!"
+?CCL32:	FSET?	DB,OPENBIT \?CCL38
+	CALL2	JIGS-UP,STR?573
+	RSTACK	
+?CCL38:	SET	'DB-DIRECTION,-1
+	ICALL	QUEUE,I-DB,2
+	PRINTI	"The bathysphere descends into the waters of the lake"
+	CALL	FIND-IN,WALDO,FLAMEBIT >X
+	ZERO?	X /?CND39
+	FCLEAR	X,ONBIT
+	FCLEAR	X,FLAMEBIT
+	CALL2	VISIBLE?,X
+	ZERO?	STACK /?CND39
+	PRINTI	", extinguishing"
+	ICALL2	TPRINT,X
+?CND39:	PRINTC	46
+	EQUAL?	HERE,HOLD \?CCL45
+	SET	'DB-DEPTH,0
+	MOVE	DB,UNDERWATER
+	MOVE	WALDO,UNDERWATER
+	CALL1	GLANCE
+	RSTACK	
+?CCL45:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	GLANCE
+	PRINTI	" You glance out the porthole"
+	PRINT	ELLIPSIS
+	CALL2	GOTO,DB
+	RSTACK	
+
+
+	.FUNCT	I-DB
+	ICALL	QUEUE,I-DB,-1
+	SUB	DB-DEPTH,DB-DIRECTION >DB-DEPTH
+	IN?	PROTAGONIST,DB \?CND1
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The bathysphere "
+?CND1:	LESS?	DB-DEPTH,1 \?CCL5
+	ICALL2	DEQUEUE,I-DB
+	SET	'DB-DIRECTION,0
+	MOVE	DB,HOLD
+	MOVE	WALDO,HOLD
+	IN?	PROTAGONIST,DB \?CCL8
+	PRINTI	"rises into the yacht's hold and stops."
+	ICALL1	GLANCE
+	RTRUE	
+?CCL8:	EQUAL?	HERE,HOLD \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   A diving bell rises into the Hold."
+?CCL5:	GRTR?	DB-DEPTH,3 \?CCL12
+	ICALL2	DEQUEUE,I-DB
+	SET	'DB-DIRECTION,0
+	MOVE	DB,LAKE-BOTTOM
+	MOVE	WALDO,LAKE-BOTTOM
+	IN?	PROTAGONIST,DB \FALSE
+	PRINTI	"bumps against the bottom of the lake."
+	ICALL1	GLANCE
+	RTRUE	
+?CCL12:	IN?	PROTAGONIST,DB \FALSE
+	PRINTI	"continues to "
+	EQUAL?	DB-DIRECTION,-1 \?CCL20
+	PRINTI	"de"
+	JUMP	?CND18
+?CCL20:	EQUAL?	DB-DIRECTION,1 \?CND18
+	PRINTC	97
+?CND18:	PRINTI	"scend."
+	CRLF	
+	GRTR?	PIECE-DROWNED,0 \TRUE
+	RANDOM	100
+	LESS?	PIECE-DROWNED,STACK /?CCL26
+	SET	'PIECE-DROWNED,1
+	PRINTR	"   The drowned carcass of a chess piece drifts momentarily through the beam of the exterior light."
+?CCL26:	ADD	PIECE-DROWNED,10 >PIECE-DROWNED
+	RTRUE	
+
+
+	.FUNCT	LAKE-FLATHEAD-F,RARG
+	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?ENTER,V?DRINK-FROM,V?DRINK /?CTR4
+	EQUAL?	PRSA,V?REACH-IN,V?LOOK-UNDER \?CCL5
+?CTR4:	CALL	PERFORM-PRSA,WATER,PRSI
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?PUT,V?FILL \?CCL9
+	EQUAL?	PRSI,GLOBAL-HERE \?CCL9
+	CALL	PERFORM-PRSA,PRSO,WATER
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINTR	"The water is scummy and murky."
+
+
+	.FUNCT	LAKE-BOTTOM-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	MOVE	SPENSEWEED,HERE
+	FSET	SPENSEWEED,NDESCBIT
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	IN?	WORM,WALDO \FALSE
+	REMOVE	WORM
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   A fish snatches the worm from the waldo and swims away with it."
+
+
+	.FUNCT	LAKE-BOTTOM-FISH-F
+	CALL2	TOUCHING?,LAKE-BOTTOM-FISH
+	ZERO?	STACK /FALSE
+	CALL2	CANT-REACH,LAKE-BOTTOM-FISH
+	RSTACK	
+
+
+	.FUNCT	G-U-MOUNTAIN-ENTER-F,RARG
+	IN?	PROTAGONIST,CAMEL \?CCL3
+	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"Like most camels, this one isn't very good at mountain climbing."
+	CRLF	
+	RFALSE	
+?CCL3:	RETURN	G-U-MOUNTAIN
+
+
+	.FUNCT	STABLE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	STABLE,TOUCHBIT /FALSE
+	CALL	QUEUE,I-ROOSTER,-1
+	RSTACK	
+
+
+	.FUNCT	STALL-PS
+	EQUAL?	PRSA,V?ENTER,V?EXAMINE \FALSE
+	PRINTR	"The stalls are all empty."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	SADDLE-F
+	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSO,SADDLE \FALSE
+	PRINTI	"You'd be kicked out of riding school -- imagine, trying to saddle"
+	ICALL2	APRINT,PRSI
+	PRINTR	"!"
+
+
+	.FUNCT	ROOSTER-F
+	EQUAL?	PRSA,V?RESEARCH \?CCL3
+	CALL	NOUN-USED?,ROOSTER,W?ROOSTER
+	ZERO?	STACK /?CCL3
+	PRINTR	"""A common barnyard animal."""
+?CCL3:	FSET?	ROOSTER,ANIMATEDBIT \FALSE
+	EQUAL?	PRSA,V?EAT \?CCL9
+	EQUAL?	TURNED-INTO,FOX \?CCL12
+	CALL2	GOOD-MEAL,ROOSTER
+	RSTACK	
+?CCL12:	PRINTR	"Unfortunately, you have no training in the butchering and culinary techniques involved in turning live poultry into edible meals."
+?CCL9:	EQUAL?	PRSA,V?EXAMINE \?CCL14
+	PRINTR	"It is a handsome, mature rooster, with a full red comb."
+?CCL14:	EQUAL?	PRSA,V?TOUCH \?CCL16
+	PRINTR	"The bird pecks at your hand."
+?CCL16:	EQUAL?	PRSA,V?TAKE \?CCL18
+	FSET?	ROOSTER,ANIMATEDBIT \?CCL18
+	CALL2	ITAKE,TRUE-VALUE
+	EQUAL?	STACK,M-FATAL /TRUE
+	MOVE	ROOSTER,PROTAGONIST
+	PRINTR	"The bird flaps angrily, but you manage to pick it up."
+?CCL18:	EQUAL?	PRSA,V?GIVE \?CCL25
+	EQUAL?	PRSO,WORM \?CCL25
+	REMOVE	WORM
+	PRINTR	"The bird sucks down the worm and crows happily."
+?CCL25:	EQUAL?	PRSA,V?FEED \FALSE
+	CALL2	ULTIMATELY-IN?,WORM
+	ZERO?	STACK /FALSE
+	CALL	WOULDNT-MIND,ROOSTER,WORM
+	RSTACK	
+
+
+	.FUNCT	I-W-ROOSTER,L
+	LOC	ROOSTER >L
+	FSET	ROOSTER,ANIMATEDBIT
+	IN?	ROOSTER,LAKE-BOTTOM \?CCL3
+	REMOVE	ROOSTER
+	RTRUE	
+?CCL3:	CALL2	META-LOC,ROOSTER
+	EQUAL?	STACK,HERE \?CCL5
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The air is split by a loud ""Cock-a-doodle-doo!"" as the weather vane once again becomes a rooster"
+	EQUAL?	L,PROTAGONIST,HERE /?CND6
+	FSET?	L,DROPBIT /?CND6
+	MOVE	ROOSTER,HERE
+	FSET	L,OPENBIT
+	PRINTI	" and pops out of"
+	ICALL2	TPRINT,L
+?CND6:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL5:	CALL2	META-LOC,ROOSTER
+	MOVE	ROOSTER,STACK
+	RFALSE	
+
+
+	.FUNCT	I-ROOSTER,L
+	FSET?	ROOSTER,ANIMATEDBIT \FALSE
+	CALL2	VISIBLE?,ROOSTER
+	ZERO?	STACK \?CCL5
+	LOC	ROOSTER >L
+	ZERO?	L /FALSE
+	LOC	WORM
+	EQUAL?	L,STACK \FALSE
+	FSET?	WORM,ANIMATEDBIT \FALSE
+	FSET?	L,ACTORBIT /FALSE
+	SET	'ROOSTER-BURP,TRUE-VALUE
+	REMOVE	WORM
+	RFALSE	
+?CCL5:	ZERO?	ROOSTER-BURP /?CCL13
+	SET	'ROOSTER-BURP,FALSE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The rooster fails to hide a satisfied burp."
+?CCL13:	CALL2	VISIBLE?,WORM
+	ZERO?	STACK /FALSE
+	FSET?	WORM,ANIMATEDBIT \FALSE
+	RANDOM	100
+	LESS?	ROOSTER-PROB,STACK /?CCL19
+	ICALL1	RETURN-FROM-MAP
+	SET	'ROOSTER-PROB,0
+	PRINTR	"   The rooster hungrily eyes the worm."
+?CCL19:	ADD	ROOSTER-PROB,10 >ROOSTER-PROB
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	G-U-MOUNTAIN-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	GRTR?	ORACLE-EXIT-NUMBER,4 \?CCL3
+	RANDOM	5
+	SUB	STACK,1 >ORACLE-EXIT-NUMBER
+	CALL	QUEUE,I-AMULET,4
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The mountain crests with a tiny plateau. The view is inspiring; it's easy to see why Dimwit climbed this mountain with such frequency. (Some quibblers insisted that it's hardly ""mountain climbing"" to be carried up in a plush sedan chair, but those quibblers were all tortured to death years ago.) Off to the west are the placid waters of Lake Flathead; to the southwest is a vast indoor desert; to the south spreads a verdant forest. The ceiling of the castle is just a few feet above your head. "
+	IN?	BOULDER,HERE \?CCL10
+	PRINTI	"An enormous boulder is balanced precariously at the western edge of the plateau"
+	JUMP	?CND8
+?CCL10:	PRINTI	"A small cave opens to the north"
+?CND8:	PRINTI	". A trail leads down the mountain to the west."
+	RTRUE	
+
+
+	.FUNCT	CAVE-ENTER-F,RARG
+	IN?	BOULDER,HERE \?CCL3
+	ZERO?	RARG \FALSE
+	ICALL1	CANT-GO
+	RFALSE	
+?CCL3:	RETURN	GROTTO
+
+
+	.FUNCT	BOULDER-F
+	EQUAL?	PRSA,V?KICK,V?MOVE,V?PUSH /?CTR2
+	EQUAL?	PRSA,V?ROLL \?CCL3
+?CTR2:	REMOVE	BOULDER
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	MOVE	CAVE-OBJECT,HERE
+	PRINTI	"You give the boulder a shove. It lurches and begins careening down the mountain. Picking up speed, it flattens several trees, hits an outcropping, and shoots into the air, toward the lake. It lands "
+	IN?	YACHT,EAST-SHORE \?CCL8
+	PRINTI	"right on the yacht"
+	JUMP	?CND6
+?CCL8:	PRINTI	"in the lake with a tremendous splash, just missing the blue dock"
+?CND6:	PRINTI	"! The rock "
+	IN?	YACHT,EAST-SHORE \?CCL11
+	REMOVE	YACHT
+	CALL	ULTIMATELY-IN?,PERCH,YACHT
+	ZERO?	STACK \?CCL13
+	CALL	ULTIMATELY-IN?,PERCH,HOLD
+	ZERO?	STACK /?CND12
+?CCL13:	SET	'REMOVED-PERCH-LOC,WATER
+	REMOVE	PERCH
+?CND12:	PRINTI	"and the yacht vanish"
+	JUMP	?CND9
+?CCL11:	PRINTI	"disappears"
+?CND9:	PRINTI	" beneath the water, leaving only a series of widening ripples. As you recuperate from the excitement, you notice a feature that was formerly blocked by the boulder: a small cave leading north into the mountain."
+	CRLF	
+	CALL2	INC-SCORE,6
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LOWER \?CCL17
+	EQUAL?	P-PRSA-WORD,W?PUSH \?CCL17
+	ICALL	PERFORM,V?PUSH,BOULDER
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?PUSH-DIR \FALSE
+	EQUAL?	PRSI,INTDIR \FALSE
+	CALL	NOUN-USED?,INTDIR,W?WEST
+	ZERO?	STACK /FALSE
+	ICALL	PERFORM,V?PUSH,BOULDER
+	RTRUE	
+
+
+	.FUNCT	CAVE-OBJECT-F
+	EQUAL?	PRSA,V?ENTER \FALSE
+	CALL2	GOTO,GROTTO
+	RSTACK	
+
+
+	.FUNCT	LOWEST-HALL-ENTER-F,RARG,CURRENT-GRAVEL,SPILL
+	ZERO?	RARG /?CND1
+	RETURN	LOWEST-HALL
+?CND1:	ICALL1	RETURN-FROM-MAP
+	PRINTI	"You lose your footing on the gravel, drop your possessions, and begin sliding down the dark tunnel! Finally, you land on a hard floor"
+	IN?	GRAVEL,LOCAL-GLOBALS \?PRD6
+	SET	'CURRENT-GRAVEL,GRAVEL
+	ZERO?	CURRENT-GRAVEL \?CCL4
+?PRD6:	IN?	MORE-GRAVEL,LOCAL-GLOBALS \?PRD9
+	SET	'CURRENT-GRAVEL,MORE-GRAVEL
+	ZERO?	CURRENT-GRAVEL \?CCL4
+?PRD9:	IN?	EVEN-MORE-GRAVEL,LOCAL-GLOBALS \?CND3
+	SET	'CURRENT-GRAVEL,EVEN-MORE-GRAVEL
+	ZERO?	CURRENT-GRAVEL /?CND3
+?CCL4:	PRINTI	"; a shower of gravel lands on top of you"
+?CND3:	CALL2	ULTIMATELY-IN?,LARGE-VIAL
+	ZERO?	STACK /?CND14
+	GRTR?	LARGE-VIAL-GLOOPS,0 \?CND14
+	SET	'LARGE-VIAL-GLOOPS,0
+	REMOVE	LARGE-VIAL-WATER
+	SET	'SPILL,TRUE-VALUE
+?CND14:	CALL2	ULTIMATELY-IN?,SMALL-VIAL
+	ZERO?	STACK /?CND18
+	GRTR?	SMALL-VIAL-GLOOPS,0 \?CND18
+	SET	'SMALL-VIAL-GLOOPS,0
+	REMOVE	SMALL-VIAL-WATER
+	SET	'SPILL,TRUE-VALUE
+?CND18:	CALL2	ULTIMATELY-IN?,CUP
+	ZERO?	STACK /?CND22
+	IN?	POTION,CUP \?CND22
+	REMOVE	POTION
+	SET	'SPILL,TRUE-VALUE
+?CND22:	ZERO?	SPILL /?CND26
+	PRINTI	". You seem to have spilled something, also"
+?CND26:	PRINTC	46
+	ZERO?	CURRENT-GRAVEL /?CND28
+	MOVE	CURRENT-GRAVEL,PROTAGONIST
+?CND28:	SET	'HERE,LOWEST-HALL
+	ICALL	ROB,PROTAGONIST,LOWEST-HALL,TRUE-VALUE
+	CRLF	
+	CRLF	
+	RETURN	LOWEST-HALL
+
+	.SEGMENT "0"
+
+
+	.FUNCT	G-GRAVEL-F,TBL,LEN,?TMP1
+	ADD	TBL,8 >?TMP1
+	GET	TBL,1
+	INTBL?	GRAVEL,?TMP1,STACK \?CCL3
+	RETURN	GRAVEL
+?CCL3:	RETURN	MORE-GRAVEL
+
+
+	.FUNCT	GRAVEL-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	ICALL2	ORDER-GRAVEL,PROTAGONIST
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?DROP \?CCL5
+	ICALL2	ORDER-GRAVEL,HERE
+	RFALSE	
+?CCL5:	EQUAL?	PRSA,V?COUNT,V?MEASURE,V?EXAMINE \?CCL7
+	PRINTR	"It's about a handful."
+?CCL7:	EQUAL?	PRSA,V?POUR \FALSE
+	EQUAL?	PRSO,EVEN-MORE-GRAVEL,MORE-GRAVEL,GRAVEL \FALSE
+	ICALL	PERFORM,V?PUT,PRSO,PRSI
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	IDOL-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The idol has been carved into the cave wall by the hand of a master sculptor (who obviously spent far more time on the project than a saint of Foobus' stature deserves)."
+
+
+	.FUNCT	BOWL-F,CNT
+	CALL1	GRAVEL-COUNT >CNT
+	EQUAL?	PRSA,V?CLOSE \?CCL3
+	PRINT	HUH
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTI	"The bowl is tall and narrow, like a large drinking glass. "
+	ICALL	PERFORM,V?LOOK-INSIDE,BOWL
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL7
+	PRINTI	"It is "
+	ZERO?	CNT \?CCL10
+	PRINTI	"less than a quarter"
+	JUMP	?CND8
+?CCL10:	EQUAL?	CNT,1 \?CCL12
+	PRINTI	"more than a quarter"
+	JUMP	?CND8
+?CCL12:	EQUAL?	CNT,2 \?CCL14
+	PRINTI	"less than half"
+	JUMP	?CND8
+?CCL14:	PRINTI	"more than half"
+?CND8:	PRINTR	" full with a milky elixir."
+?CCL7:	EQUAL?	PRSA,V?REACH-IN \?CCL16
+	EQUAL?	CNT,3 \?CCL19
+	PRINTI	"Your fingers are just long enough to touch the elixir. "
+	CALL1	TOUCH-ELIXIR
+	RSTACK	
+?CCL19:	PRINTI	"Because the bowl is so narrow, you can only get your fingers halfway to the bottom, "
+	ZERO?	CNT \?CCL22
+	PRINTI	"well"
+	JUMP	?CND20
+?CCL22:	EQUAL?	CNT,1 \?CCL24
+	PRINTI	"somewhat"
+	JUMP	?CND20
+?CCL24:	EQUAL?	CNT,2 \?CND20
+	PRINTI	"a smidgeon"
+?CND20:	PRINTR	" short of the elixir."
+?CCL16:	EQUAL?	PRSA,V?PUT \?CCL27
+	EQUAL?	PRSI,BOWL \?CCL27
+	EQUAL?	PRSO,EVEN-MORE-GRAVEL,MORE-GRAVEL,GRAVEL \?CCL32
+	MOVE	PRSO,BOWL
+	FCLEAR	PRSO,TAKEBIT
+	PRINTI	"The gravel sinks to the bottom of the bowl, thus raising the level of the elixir. It is now "
+	INC	'CNT
+	EQUAL?	CNT,1 \?CCL35
+	PRINTI	"somewhat more than one-quarter"
+	JUMP	?CND33
+?CCL35:	EQUAL?	CNT,2 \?CCL37
+	PRINTI	"just less than half"
+	JUMP	?CND33
+?CCL37:	PRINTI	"a bit over half"
+?CND33:	PRINTR	"way to the brim."
+?CCL32:	EQUAL?	PRSO,STRAW \?CCL39
+	MOVE	STRAW,BOWL
+	PRINTR	"The straw extends just above the rim of the bowl."
+?CCL39:	EQUAL?	PRSO,EAST-KEY,ZORKMID-COIN,RING /?CTR40
+	EQUAL?	PRSO,SQUID-REPELLENT,RUSTY-KEY,WEST-KEY /?CTR40
+	EQUAL?	PRSO,NUT,NUT-SHELL,UNOPENED-NUT /?CTR40
+	EQUAL?	PRSO,SAPPHIRE,RUBY \?CCL41
+?CTR40:	MOVE	PRSO,BOWL
+	FCLEAR	PRSO,TAKEBIT
+	PRINTI	"With a tiny splash,"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" sinks to the bottom of the bowl. It's not clear how you'll ever get it out again..."
+?CCL41:	PRINTR	"The rim of the bowl is too narrow."
+?CCL27:	EQUAL?	PRSA,V?TIP,V?MOVE,V?TAKE /?PRD49
+	EQUAL?	PRSA,V?TIP-OVER \FALSE
+?PRD49:	EQUAL?	PRSO,BOWL \FALSE
+	PRINTR	"The bowl is affixed to the cave floor."
+
+
+	.FUNCT	GRAVEL-COUNT,CNT
+	SET	'CNT,0
+	IN?	GRAVEL,BOWL \?CND1
+	INC	'CNT
+?CND1:	IN?	MORE-GRAVEL,BOWL \?CND3
+	INC	'CNT
+?CND3:	IN?	EVEN-MORE-GRAVEL,BOWL /?CCL6
+	RETURN	CNT
+?CCL6:	INC	'CNT
+	RETURN	CNT
+
+
+	.FUNCT	ELIXIR-F
+	EQUAL?	PRSA,V?REACH-IN,V?TOUCH \?CCL3
+	ICALL	PERFORM,V?REACH-IN,BOWL
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TASTE,V?DRINK \?CCL5
+	IN?	STRAW,BOWL \?CCL8
+	ICALL	PERFORM,V?DRINK-WITH,ELIXIR,STRAW
+	RTRUE	
+?CCL8:	PRINTR	"The elixir is at the bottom of a bowl which is affixed to the cave floor."
+?CCL5:	EQUAL?	PRSA,V?CLEAN \?CCL10
+	EQUAL?	P-PRSA-WORD,W?SOAK \?CCL10
+	EQUAL?	PRSI,ELIXIR \?CCL10
+	ICALL	PERFORM,V?PUT,PRSO,ELIXIR
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?PUT \?CCL15
+	EQUAL?	PRSI,ELIXIR \?CCL15
+	ICALL	PERFORM,V?PUT,PRSO,BOWL
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?EXAMINE \?CCL19
+	PRINTR	"The milky liquid swirls with secret energies."
+?CCL19:	EQUAL?	PRSA,V?FILL \FALSE
+	EQUAL?	PRSI,ELIXIR \FALSE
+	EQUAL?	PRSO,STRAW \?CCL26
+	PRINTR	"You'll have to be more specific about how you propose to do that."
+?CCL26:	PRINTI	"The bowl's narrowness prevents you from filling"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	LAIR-EXIT-F,RARG
+	ZERO?	RARG \?CCL2
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \?CND1
+?CCL2:	RETURN	G-U-WOODS
+?CND1:	PRINTI	"You lose your footing on the treacherous path, and tumble painfully down a steep incline. "
+	FIRST?	PROTAGONIST \?CND5
+	PRINTI	"Amazingly, you hold on to everything you have. "
+?CND5:	PRINTI	"You roll to a stop as dim green light filters around you"
+	PRINT	ELLIPSIS
+	RETURN	G-U-WOODS
+
+
+	.FUNCT	G-U-WOODS-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	G-U-WOODS,TOUCHBIT /FALSE
+	CALL	QUEUE,I-FOX,-1
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	FOX-F
+	EQUAL?	PRSA,V?RESEARCH \?CCL3
+	CALL	NOUN-USED?,FOX,W?FOX
+	ZERO?	STACK /?CCL3
+	PRINTR	"""A common animal."""
+?CCL3:	FSET?	FOX,ANIMATEDBIT \FALSE
+	EQUAL?	PRSA,V?TAKE \?CCL9
+	FSET?	FOX,ANIMATEDBIT \?CCL9
+	CALL2	ITAKE,TRUE-VALUE
+	EQUAL?	STACK,M-FATAL /TRUE
+	MOVE	FOX,PROTAGONIST
+	PRINTR	"The fox slyly allows himself to be picked up."
+?CCL9:	EQUAL?	PRSA,V?GIVE \?CCL16
+	EQUAL?	PRSO,ROOSTER \?CCL16
+	REMOVE	ROOSTER
+	PRINTR	"The fox must be thinking that you're Santa Claus and this is Christmas (but of course he's too sly to let you see that he's thinking that). After a few messy moments, the rooster is history."
+?CCL16:	EQUAL?	PRSA,V?FEED \FALSE
+	CALL2	ULTIMATELY-IN?,ROOSTER
+	ZERO?	STACK /FALSE
+	CALL	WOULDNT-MIND,FOX,ROOSTER
+	RSTACK	
+
+
+	.FUNCT	WOULDNT-MIND,EATER,EATEE
+	PRINTI	"The "
+	ICALL2	DPRINT,EATER
+	PRINTI	" looks as though he wouldn't mind eating the "
+	ICALL2	DPRINT,EATEE
+	PRINTR	"..."
+
+
+	.FUNCT	I-W-FOX,L
+	LOC	FOX >L
+	FSET	FOX,ANIMATEDBIT
+	FCLEAR	FOX,WEARBIT
+	FCLEAR	FOX,WORNBIT
+	IN?	FOX,LAKE-BOTTOM \?CCL3
+	REMOVE	FOX
+	RTRUE	
+?CCL3:	CALL2	META-LOC,FOX
+	EQUAL?	STACK,HERE \?CCL5
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The fox suddenly "
+	EQUAL?	L,PROTAGONIST,HERE /?CND6
+	FSET?	L,DROPBIT /?CND6
+	MOVE	FOX,HERE
+	FSET	L,OPENBIT
+	PRINTI	"pops out of"
+	ICALL2	TPRINT,L
+	PRINTI	" and "
+?CND6:	PRINTR	"shakes its bushy tail."
+?CCL5:	CALL2	META-LOC,FOX
+	MOVE	FOX,STACK
+	RFALSE	
+
+
+	.FUNCT	I-FOX,L
+	FSET?	FOX,ANIMATEDBIT \FALSE
+	CALL2	VISIBLE?,FOX
+	ZERO?	STACK \?CCL5
+	LOC	FOX >L
+	ZERO?	L /FALSE
+	LOC	ROOSTER
+	EQUAL?	L,STACK \FALSE
+	FSET?	ROOSTER,ANIMATEDBIT \FALSE
+	FSET?	L,ACTORBIT /FALSE
+	SET	'FOX-BURP,TRUE-VALUE
+	REMOVE	ROOSTER
+	RFALSE	
+?CCL5:	ZERO?	FOX-BURP /?CCL13
+	SET	'FOX-BURP,FALSE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The fox produces a deep and very sly burp."
+?CCL13:	CALL2	VISIBLE?,ROOSTER
+	ZERO?	STACK /FALSE
+	FSET?	ROOSTER,ANIMATEDBIT \FALSE
+	RANDOM	100
+	LESS?	FOX-PROB,STACK /?CCL19
+	SET	'FOX-PROB,0
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The fox stares at the rooster and smacks its lips."
+?CCL19:	ADD	FOX-PROB,10 >FOX-PROB
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	UNICORNS-F
+	EQUAL?	PRSA,V?SIT,V?CLIMB-ON,V?ENTER \?CCL3
+	PRINTR	"As you approach, the unicorns move gracefully away."
+?CCL3:	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSO,SADDLE \FALSE
+	ICALL	PERFORM,V?ENTER,UNICORNS
+	RTRUE	
+
+
+	.FUNCT	BRIDGE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The bridge looks odd, perhaps because of its unusual green color."
+?CCL3:	EQUAL?	PRSA,V?STAND-ON,V?ENTER,V?CROSS \FALSE
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	BRIDGE-ENTER-F,RARG
+	ZERO?	RARG \FALSE
+	IN?	BRIDGE,HERE \?CCL5
+	IN?	PROTAGONIST,CAMEL \?CCL8
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"The bridge is too small for the huge, lumbering camel."
+	CRLF	
+	RFALSE	
+?CCL8:	ICALL1	RETURN-FROM-MAP
+	REMOVE	BRIDGE
+	ICALL2	DEQUEUE,I-JESTER
+	MOVE	JESTER,HERE
+	ICALL2	THIS-IS-IT,JESTER
+	MOVE	DIPLOMA,JESTER
+	FCLEAR	DIPLOMA,NDESCBIT
+	ICALL2	SETUP-ORPHAN,STR?44
+	PRINTI	"As you step onto the bridge, it begins transforming and withdrawing from the opposite bank of the stream. When the transformation ends, the bridge has become the jester, who is on all fours, and you are standing in the center of his back! With clumsy haste and muttered apologies, you dismount. The jester straightens up, and laughs, ""No hard feelings! I'll be fit as a fiddle, once you answer this riddle:"
+	GETP	STREAM,P?RIDDLE
+	PRINT	STACK
+	CRLF	
+	RFALSE	
+?CCL5:	PRINTI	"Without a bridge, the stream is uncrossable."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	MUSIC-F
+	EQUAL?	PRSA,V?PLAY \?CCL3
+	CALL2	PERFORM-PRSA,LULLABY
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LISTEN \FALSE
+	PRINTR	"[You can't hear any music right here!]"
+
+
+	.FUNCT	STREAM-OBJECT-F
+	EQUAL?	PRSA,V?CROSS \FALSE
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	CAMEL-DRINK-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	EQUAL?	HERE,OASIS \?CCL6
+	PRINTI	"An underground spring bubbles up through the sands, forming a pool of clear, cold water. A hot wind blows off the desert to the southwest."
+	RTRUE	
+?CCL6:	PRINTI	"A wide stream gurgles out of the rocks, feeding the waters of the lake. "
+	FSET?	DIPLOMA,NDESCBIT \?CND7
+	PRINTI	"A strange green bridge spans the stream to the west. At the far end of the bridge, you can see a framed document of some sort. "
+?CND7:	PRINTI	"A path follows the shoreline to the east."
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-ENTER \?CCL10
+	EQUAL?	HERE,STREAM \?CCL10
+	FSET?	DIPLOMA,TRYTAKEBIT \?CCL10
+	MOVE	BRIDGE,HERE
+	FSET	DIPLOMA,NDESCBIT
+	MOVE	DIPLOMA,HERE
+	RTRUE	
+?CCL10:	EQUAL?	RARG,M-END \FALSE
+	EQUAL?	HERE,STREAM \?CND16
+	IN?	JESTER,HERE \?CND16
+	FSET?	DIPLOMA,TRYTAKEBIT \?CND16
+	ICALL2	SETUP-ORPHAN,STR?44
+?CND16:	IN?	CAMEL,HERE \FALSE
+	FSET?	CAMEL,ANIMATEDBIT \FALSE
+	ZERO?	CAMEL-THIRSTY /FALSE
+	SET	'CAMEL-THIRSTY,FALSE-VALUE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The camel lumbers over to the "
+	EQUAL?	HERE,OASIS \?CCL29
+	PRINTI	"oasis"
+	JUMP	?CND27
+?CCL29:	PRINTI	"stream"
+?CND27:	PRINTR	" and takes an amazingly long sip."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	DIPLOMA-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	DIPLOMA,TRYTAKEBIT \FALSE
+	IN?	DIPLOMA,JESTER \?CCL8
+	PRINT	ANSWER-MY-RIDDLE
+	RTRUE	
+?CCL8:	CALL2	DO-FIRST,STR?602
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	G-CAMEL-F,X,Y
+	RETURN	CAMEL
+
+
+	.FUNCT	CAMEL-F,VARG
+	FSET?	CAMEL,ANIMATEDBIT \FALSE
+	EQUAL?	VARG,M-WINNER \?CCL5
+	EQUAL?	PRSA,V?WALK \?CCL8
+	IN?	PROTAGONIST,CAMEL \?CCL11
+	SET	'WINNER,PROTAGONIST
+	ICALL2	DO-WALK,PRSO
+	SET	'WINNER,CAMEL
+	RTRUE	
+?CCL11:	PRINTI	"Perhaps if you were ON the camel..."
+	CRLF	
+	JUMP	?CND6
+?CCL8:	EQUAL?	PRSA,V?DRINK \?CCL13
+	EQUAL?	PRSO,LAKE-FLATHEAD,WATER \?CCL13
+	EQUAL?	HERE,SOUTH-SHORE,EAST-SHORE \?CCL13
+	PRINTI	"You can lead a camel to water, but you can't make him drink."
+	CRLF	
+	JUMP	?CND6
+?CCL13:	RANDOM	100
+	LESS?	33,STACK /?CCL18
+	PRINTI	"""Snort."""
+	CRLF	
+	JUMP	?CND6
+?CCL18:	RANDOM	100
+	LESS?	50,STACK /?CCL20
+	PRINTI	"""Grunt."""
+	CRLF	
+	JUMP	?CND6
+?CCL20:	PRINTI	"""Groan."""
+	CRLF	
+?CND6:	CALL1	STOP
+	RSTACK	
+?CCL5:	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?TOUCH \?CCL24
+	EQUAL?	P-PRSA-WORD,W?PAT,W?PET \?CCL24
+	PRINTR	"The camel emits an (almost) endearing bray."
+?CCL24:	EQUAL?	PRSA,V?EXAMINE \?CCL28
+	PRINTI	"The camel looks "
+	ZERO?	CAMEL-THIRSTY /?CCL31
+	PRINTI	"thirsty"
+	JUMP	?CND29
+?CCL31:	PRINTI	"sated"
+?CND29:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL28:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTR	"Never look a gift camel in the mouth."
+
+
+	.FUNCT	I-W-CAMEL
+	ZERO?	TIME-STOPPED /?CND1
+	ICALL	QUEUE,I-W-CAMEL,3
+	RFALSE	
+?CND1:	FSET	CAMEL,ANIMATEDBIT
+	FSET	CAMEL,ACTORBIT
+	CALL2	VISIBLE?,CAMEL
+	ZERO?	STACK /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The camel's garish colors fade once again to the color of sand. His tail begins swishing around, and he emits a forlorn bray."
+
+
+	.FUNCT	DESERT-ENTER-F,RARG
+	ZERO?	RARG /?CCL3
+	RETURN	G-U-DESERT
+?CCL3:	IN?	PROTAGONIST,CAMEL \?CCL5
+	ZERO?	CAMEL-THIRSTY /?CCL5
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"The camel takes one look at the vast desert, gives a dry croak, and refuses to budge."
+	CRLF	
+	RFALSE	
+?CCL5:	IN?	PROTAGONIST,CAMEL \?CND8
+	SET	'CAMEL-THIRSTY,TRUE-VALUE
+?CND8:	RETURN	G-U-DESERT
+
+
+	.FUNCT	CACTI-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"All the cacti look particularly prickly."
+?CCL3:	EQUAL?	PRSA,V?LISTEN \?CCL5
+	ZERO?	PLANT-TALKER /?CCL5
+	PRINTR	"The cacti, in parched voices, are exchanging wry witticisms. It seems that all cacti have a very dry sense of humor."
+?CCL5:	CALL2	TOUCHING?,CACTI
+	ZERO?	STACK /FALSE
+	PRINTR	"Youch! Nasty cactus pricks!"
+
+
+	.FUNCT	DESERT-ROOM-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	IN?	PROTAGONIST,CAMEL /?CCL3
+	INC	'DESERT-DEATH
+	ICALL	QUEUE,I-DESERT-RESET,-1
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"You trudge along beneath the searing gaze of an artificial desert sun"
+	EQUAL?	DESERT-DEATH,4 \?CCL8
+	PRINTI	". Wavering dizziness threatens your every step"
+	JUMP	?CND6
+?CCL8:	EQUAL?	DESERT-DEATH,3 \?CND6
+	PRINTI	". You won't last much longer in this dry heat"
+?CND6:	PRINT	ELLIPSIS
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	EQUAL?	DESERT-DEATH,5 \FALSE
+	ICALL1	RETURN-FROM-MAP
+	CALL2	JIGS-UP,STR?610
+	RSTACK	
+
+
+	.FUNCT	I-DESERT-RESET
+	FSET?	HERE,DESERTBIT /FALSE
+	SET	'DESERT-DEATH,0
+	ICALL2	DEQUEUE,I-DESERT-RESET
+	RFALSE	
+
+
+	.FUNCT	PHIL-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This was the visually impressive but acoustically abysmal home of the royal orchestra, but the musicians (like everyone else) have fled the eastlands. Uncountable rows of velvet-covered seats extend into the shadows beyond your light. Gilt-trimmed balconies hang above the huge wooden stage. "
+	IN?	CONDUCTOR-STAND,HERE \?CND4
+	PRINTI	"A lone spotlight illuminates the conductor's stand. "
+?CND4:	PRINTI	"Passages lead east, north and south."
+	RTRUE	
+
+
+	.FUNCT	PHIL-SHADOW-PS
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"Like most shadows, a little creepy."
+
+
+	.FUNCT	SPOTLIGHT-PS
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	IN?	CONDUCTOR-STAND,HERE \?CCL3
+	PRINTR	"The spotlight bathes the conductor's stand in a circle of light."
+?CCL3:	EQUAL?	PRSA,V?ENTER \FALSE
+	IN?	PROTAGONIST,CONDUCTOR-STAND \?CCL10
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL10:	IN?	CONDUCTOR-STAND,HERE \?CCL12
+	ICALL	PERFORM,V?ENTER,CONDUCTOR-STAND
+	RTRUE	
+?CCL12:	PRINTR	"You stand in the center of the circle of light, to little effect."
+
+
+	.FUNCT	CONDUCTOR-STAND-F,OARG
+	ZERO?	OARG \FALSE
+	EQUAL?	PRSA,V?STAND-ON,V?ENTER \?CCL5
+	ZERO?	TIME-STOPPED \?CCL5
+	PRINTI	"The "
+	ICALL2	DPRINT,CONDUCTOR-STAND
+	PRINTI	" plunges "
+	EQUAL?	HERE,CONDUCTOR-PIT \?CCL10
+	PRINTI	"up"
+	JUMP	?CND8
+?CCL10:	PRINTI	"down"
+?CND8:	PRINTI	"ward, and you along with it"
+	PRINT	ELLIPSIS
+	EQUAL?	HERE,CONDUCTOR-PIT \?CCL13
+	FSET	CONDUCTOR-STAND,NDESCBIT
+	PUSH	PHIL-HALL
+	JUMP	?CND11
+?CCL13:	FCLEAR	CONDUCTOR-STAND,NDESCBIT
+	PUSH	CONDUCTOR-PIT
+?CND11:	MOVE	CONDUCTOR-STAND,STACK
+	CALL2	GOTO,CONDUCTOR-STAND
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The stand is a rectangular platform about a foot high."
+	FIRST?	CONDUCTOR-STAND \?CCL18
+	PRINTC	32
+	RFALSE	
+?CCL18:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CONDUCTOR-PIT-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	IN?	CONDUCTOR-STAND,CONDUCTOR-PIT /FALSE
+	FSET	VIOLIN,TOUCHBIT
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	VIOLIN-F
+	EQUAL?	PRSA,V?PLAY \?CCL3
+	PRINTR	"An amazingly offensive noise issues from the violin."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"This is a beautiful instrument which, in the right hands, would certainly produce magnificent music."
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	DIMWIT-BOX-PS
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"Plush. Very plush."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL5
+	ICALL	PERFORM,V?SEARCH,GLOBAL-HERE
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?PUT \?CCL7
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?CLIMB-ON,V?ENTER \FALSE
+	PRINTR	"Why bother? No show tonight."
+
+	.ENDSEG
+
+	.ENDI
diff --git a/lake.zil b/lake.zil
new file mode 100644
index 0000000..90721f0
--- /dev/null
+++ b/lake.zil
@@ -0,0 +1,2231 @@
+"LAKE for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT LAKE>
+
+<ROOM WEST-SHORE
+      (LOC ROOMS)
+      (DESC "West Shore")
+      (REGION "Flatheadia")
+      (EAST SORRY "These waters are known for their hungry denizens.")
+      (WEST TO ROYAL-ZOO)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (GLOBAL LAKE-FLATHEAD STAIRS)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)
+      (ICON WEST-SHORE-ICON)
+      (ACTION WEST-SHORE-F)>
+
+<ROUTINE WEST-SHORE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"What's a castle without a lake? Dimwit loved lakes, but hated to go outside,
+so he had one constructed in his extensive cellars. Once a lovely lake, teeming
+with life, its waters have grown stagnant. The scummy surface stretches off to
+the east, and a tunnel leads west.">)>>
+
+<OBJECT WEST-DOCK
+	(LOC WEST-SHORE)
+	(DESC "yellow dock")
+	(SYNONYM DOCK)
+	(ADJECTIVE YELLOW WEST)
+	(CAPACITY 200)
+	(FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT SEARCHBIT CONTBIT SURFACEBIT)
+	(ACTION DOCK-F)>
+
+<ROOM NORTH-SHORE
+      (LOC ROOMS)
+      (DESC "North Shore")
+      (REGION "Flatheadia")
+      (SOUTH SORRY "These waters are known for their hungry denizens.")
+      (NORTH TO PHIL-HALL)
+      (NE TO THEATRE)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (GLOBAL LAKE-FLATHEAD STAIRS)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+      (ICON NORTH-SHORE-ICON)
+      (ACTION NORTH-SHORE-F)>
+
+<ROUTINE NORTH-SHORE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"Stretching off to the south is an impressive sight: a large lake, completely
+contained within the castle. A red dock protrudes into the lake">
+		<COND (<IN? ,YACHT ,HERE>
+		       <TELL ,YACHT-MOORED>)>
+		<TELL ". Tunnels lead north and northeast.">)>>
+
+<OBJECT NORTH-DOCK
+	(LOC NORTH-SHORE)
+	(DESC "red dock")
+	(SYNONYM DOCK)
+	(ADJECTIVE RED NORTH)
+	(CAPACITY 200)
+	(FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT SEARCHBIT CONTBIT SURFACEBIT)
+	(ACTION DOCK-F)>
+
+<ROOM EAST-SHORE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "East Shore")
+      (WEST SORRY "These waters are known for their hungry denizens.")
+      (EAST TO BASE-OF-MOUNTAIN)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (GLOBAL LAKE-FLATHEAD STAIRS G-U-MOUNTAIN)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5>)
+      (ICON EAST-SHORE-ICON)
+      (ACTION EAST-SHORE-F)>
+
+<ROUTINE EAST-SHORE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"A narrow beach lies between the lake, to the west, and a tall mountain,
+to the east. It's hard to remember that you're still within the castle.
+A blue dock juts out into the lake">
+		<COND (<IN? ,YACHT ,HERE>
+		       <TELL ,YACHT-MOORED>)>
+		<TELL ".">)>>
+
+<OBJECT EAST-DOCK
+	(LOC EAST-SHORE)
+	(DESC "blue dock")
+	(SYNONYM DOCK)
+	(ADJECTIVE BLUE EAST)
+	(CAPACITY 200)
+	(FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT SEARCHBIT CONTBIT SURFACEBIT)
+	(ACTION DOCK-F)>
+
+<ROOM SOUTH-SHORE
+	(LOC ROOMS)
+	(DESC "South Shore")
+	(REGION "Flatheadia")
+	(NORTH SORRY "These waters are known for their hungry denizens.")
+	(SOUTH TO EDGE-OF-DESERT)
+	(WEST TO STREAM)
+	(FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+	(GLOBAL LAKE-FLATHEAD STAIRS)
+	(MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-4>)
+	(ICON SOUTH-SHORE-ICON)
+	(ACTION SOUTH-SHORE-F)>
+
+<ROUTINE SOUTH-SHORE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The sandy beach on the south side of the lake is very wide -- in fact, it
+simply blends into a wide desert to the south. To the north, a green dock
+extends into the lake">
+		<COND (<IN? ,YACHT ,HERE>
+		       <TELL ,YACHT-MOORED>)>
+		<TELL ". The shore curves around toward the west.">)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,PROTAGONIST ,CAMEL>
+		     <NOT <FSET? ,CAMEL ,TOUCHBIT>>
+		     ,CAMEL-THIRSTY>
+		<FSET ,CAMEL ,TOUCHBIT>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The camel takes one look at the scummy water and wheezes mournfully through
+parched lips." CR>)>>
+
+<OBJECT SOUTH-DOCK
+	(LOC SOUTH-SHORE)
+	(DESC "green dock")
+	(SYNONYM DOCK)
+	(ADJECTIVE GREEN SOUTH)
+	(CAPACITY 200)
+	(FLAGS NDESCBIT VEHBIT DROPBIT OPENBIT SEARCHBIT CONTBIT SURFACEBIT)
+	(ACTION DOCK-F)>
+
+<ROUTINE DOCK-F ("OPTIONAL" (VARG <>))
+	 <COND (<AND <VERB? ENTER>
+		     <IN? ,BEDBUG ,HERE>
+		     <NOT ,TIME-STOPPED>>
+		<DO-WALK ,P?NORTH>)>>
+
+<OBJECT YACHT
+	(LOC WEST-SHORE)
+	(DESC "royal yacht")
+	(LDESC
+"The royal yacht sits by the dock, bobbing gently in the swell of the lake.")
+	(SYNONYM YACHT BOAT)
+	(ADJECTIVE ROYAL)
+	(CAPACITY 200)
+	(FLAGS VEHBIT DROPBIT OPENBIT SEARCHBIT CONTBIT SURFACEBIT)
+	(ACTION YACHT-F)>
+
+<ROUTINE YACHT-F ("OPTIONAL" (VARG <>))
+	 <COND (.VARG
+		<COND (<NOT <EQUAL? .VARG ,M-ENTER>>
+		       <RFALSE>)
+		      (<FSET? ,PRSO ,TOUCHBIT>
+		       <SETG COMPASS-CHANGED T>
+		       <RFALSE>)
+		      (T
+		       <SETG COMPASS-CHANGED T>
+		       <TELL
+" The controls seem worthy of closer
+examination. A gangway leads belowdecks." CR>)>)
+	       (<AND <VERB? ENTER>
+		     <IN? ,PROTAGONIST ,HERE>>
+		<TELL "You can only board the yacht from the dock." CR>)
+	       (<VERB? EXIT>
+		<COND (<EQUAL? ,HERE ,LAKE-FLATHEAD>
+		       <PERFORM ,V?ENTER ,LAKE-FLATHEAD>
+		       <RTRUE>)>
+		<MOVE ,PROTAGONIST
+		      <COND (<EQUAL? ,HERE ,WEST-SHORE> ,WEST-DOCK)
+			    (<EQUAL? ,HERE ,NORTH-SHORE> ,NORTH-DOCK)
+			    (<EQUAL? ,HERE ,EAST-SHORE> ,EAST-DOCK)
+			    (T ,SOUTH-DOCK)>>
+		<SETG OLD-HERE <>>
+		<SETG COMPASS-CHANGED T>
+		<TELL "You step off the boat, onto the dock." CR>
+		<COND (<EQUAL? ,VERBOSITY 1>
+		       <CRLF> <SAY-HERE> <CRLF>)
+		      (<EQUAL? ,VERBOSITY 2>
+		       <CRLF> <V-LOOK>)>
+		<RTRUE>)
+	       (<VERB? SINK>
+		<SETG AWAITING-REPLY 1>
+	 	<QUEUE I-REPLY 2>
+		<TELL "You have a torpedo, maybe?" CR>)
+	       (<AND <VERB? SET>
+		     <EQUAL? ,P-PRSA-WORD ,W?STEER>>
+		<TELL "There's no wheel." CR>)
+	       (<AND <VERB? THROW-FROM>
+		     <PRSI? ,YACHT>>
+		<PERFORM ,V?PUT ,PRSO ,WATER>
+		<RTRUE>)>>
+
+<OBJECT YACHT-CONTROLS
+	(LOC YACHT)
+	(DESC "controls")
+	(SYNONYM CONTROL CONTROLS ROSE COMPASS)
+	(ADJECTIVE COMPASS)
+	(FLAGS NDESCBIT NARTICLEBIT PLURALBIT)
+	(ACTION YACHT-CONTROLS-F)>
+
+<ROUTINE YACHT-CONTROLS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The controls are quite simple, consisting of a small brass plaque and an
+ornate compass rose. There are buttons on the four cardinal points of the
+rose: a red button at the north point, blue at the east, green south, and
+yellow west. A fifth button, white, is at the center of the rose." CR>)>>
+
+<OBJECT YACHT-PLAQUE
+	(LOC YACHT)
+	(DESC "brass plaque")
+	(SYNONYM PLAQUE)
+	(ADJECTIVE SMALL BRASS)
+	(FLAGS READBIT NDESCBIT)
+	(TEXT "\"Made by the Frobozz Magic Royal Yacht Company.\"")>
+
+<OBJECT RED-BUTTON
+	(LOC YACHT)
+	(DESC "red button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RED)
+	(FLAGS NDESCBIT)
+	(ACTION YACHT-BUTTON-F)>
+
+<OBJECT BLUE-BUTTON
+	(LOC YACHT)
+	(DESC "blue button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BLUE)
+	(FLAGS NDESCBIT)
+	(ACTION YACHT-BUTTON-F)>
+
+<OBJECT GREEN-BUTTON
+	(LOC YACHT)
+	(DESC "green button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE GREEN)
+	(FLAGS NDESCBIT)
+	(ACTION YACHT-BUTTON-F)>
+
+<OBJECT YELLOW-BUTTON
+	(LOC YACHT)
+	(DESC "yellow button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE YELLOW)
+	(FLAGS NDESCBIT)
+	(ACTION YACHT-BUTTON-F)>
+
+<OBJECT WHITE-BUTTON
+	(LOC YACHT)
+	(DESC "white button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE WHITE FIFTH CENTER MIDDLE)
+	(FLAGS NDESCBIT)
+	(ACTION YACHT-BUTTON-F)>
+
+<ROUTINE YACHT-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<OR <FSET? ,OUTER-GATE ,OPENBIT>
+			   ,TIME-STOPPED>
+		       <TELL ,NOTHING-HAPPENS>)
+		      (<NOT <FSET? ,SEAMANS-CAP ,WORNBIT>>
+		       <TELL
+"You meet an invisible resistance. A peal of laughter from behind turns out
+to be the jester. \"The button may seem like a demon, telling landlubber from
+seaman; but the truth's not so queer -- you need nautical gear!\"">
+		       <J-EXITS>)
+		      (<PRSO? ,WHITE-BUTTON>
+		       <COND (<EQUAL? ,HERE ,LAKE-FLATHEAD>
+			      <DEQUEUE I-YACHT>
+			      <TELL ,NOTHING-HAPPENS>)
+			     (T
+			      <SETG YACHT-DESTINATION ,LAKE-FLATHEAD>
+			      <I-YACHT T>)>)
+		      (<NOT <IN? ,DB ,HOLD>>
+		       <TELL
+"A message flashes: \"Warning -- diving bell lowered!\"" CR>)
+		      (<PRSO? ,RED-BUTTON>
+		       <COND (<EQUAL? ,HERE ,NORTH-SHORE>
+			      <TELL ,NOTHING-HAPPENS>)
+			     (T
+			      <SETG YACHT-DESTINATION ,NORTH-SHORE>
+			      <I-YACHT T>)>)
+		      (<PRSO? ,GREEN-BUTTON>
+		       <COND (<EQUAL? ,HERE ,SOUTH-SHORE>
+			      <TELL ,NOTHING-HAPPENS>)
+			     (T
+			      <SETG YACHT-DESTINATION ,SOUTH-SHORE>
+			      <I-YACHT T>)>)
+		      (<PRSO? ,BLUE-BUTTON>
+		       <COND (<EQUAL? ,HERE ,EAST-SHORE>
+			      <TELL ,NOTHING-HAPPENS>)
+			     (T
+			      <SETG YACHT-DESTINATION ,EAST-SHORE>
+			      <I-YACHT T>)>)
+		      (T
+		       <COND (<EQUAL? ,HERE ,WEST-SHORE>
+			      <TELL ,NOTHING-HAPPENS>)
+			     (T
+			      <SETG YACHT-DESTINATION ,WEST-SHORE>
+			      <I-YACHT T>)>)>
+		<RTRUE>)>>
+
+<GLOBAL YACHT-DESTINATION <>>
+
+<ROUTINE I-YACHT ("OPTIONAL" (CALLED-BY-BUTTON-F <>))
+	 <COND (.CALLED-BY-BUTTON-F
+		<QUEUE I-YACHT 2>
+		<COND (<AND <EQUAL? ,HERE ,LAKE-FLATHEAD>
+			    <NOT <EQUAL? ,YACHT-DESTINATION ,LAKE-FLATHEAD>>>
+		       <TELL
+"The boat heads for the " D ,YACHT-DESTINATION ,PERIOD-CR>)
+		      (T
+		       <TELL
+"The yacht moves away from the dock, toward the middle of the lake." CR CR>)>)>
+	 <COND (<IN? ,YACHT ,LAKE-FLATHEAD>
+		<MOVE ,YACHT ,YACHT-DESTINATION>
+		<RETURN-FROM-MAP>
+		<COND (<IN? ,PROTAGONIST ,YACHT> ;"not in Hold"
+		       <TELL
+"   The yacht reaches the " D ,YACHT-DESTINATION " and docks magically." CR CR>
+		       <GOTO ,YACHT>)>)
+	       (T
+		<MOVE ,YACHT ,LAKE-FLATHEAD>
+		<COND (<IN? ,PROTAGONIST ,YACHT> ;"not in Hold"
+		       <RETURN-FROM-MAP>
+		       <GOTO ,YACHT>
+		       <TELL "   The boat reaches the middle of the lake">
+		       <COND (<EQUAL? ,YACHT-DESTINATION ,LAKE-FLATHEAD>
+			      <TELL ", slows, and stops">)
+			     (T
+			      <TELL
+" and heads straight for the dock on the " D ,YACHT-DESTINATION>)>
+		       <TELL ,PERIOD-CR>)>)>
+	 <COND (<IN? ,YACHT ,YACHT-DESTINATION>
+		<DEQUEUE I-YACHT>)>
+	 <RTRUE>>
+
+<ROOM HOLD
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Hold")
+      (LDESC
+"You are in a cabin under the deck of the royal yacht. A steep gangway leads
+upward.")
+      (UP PER YACHT-ENTER-F)
+      (IN PER DB-ENTER-F)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL STAIRS)
+      (SYNONYM HOLD)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-1>)
+      (ICON HOLD-ICON)>
+
+<ROUTINE YACHT-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RFALSE>)>
+	 <GOTO ,YACHT>
+	 <RFALSE>>
+
+<ROUTINE DB-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RFALSE>)
+	       (<FSET? ,DB ,OPENBIT>
+		<PERFORM ,V?ENTER ,DB>)
+	       (T
+		<RETURN-FROM-MAP>
+		<THIS-IS-IT ,DB>
+		<DO-FIRST "open the bathysphere">)>
+	 <RFALSE>>
+
+<OBJECT DB
+	(LOC HOLD)
+	(DESC "bathysphere")
+	(SYNONYM SPHERE BATHYSPHERE DOOR HATCH BELL)
+	(ADJECTIVE DIVING)
+	(CAPACITY 200)
+	(FLAGS VEHBIT INBIT DROPBIT CONTBIT SEARCHBIT TRANSBIT)
+	(ACTION DB-F)>
+
+<GLOBAL DB-CONTROLS-DESCRIBED <>>
+
+<ROUTINE DB-F ("OPTIONAL" (VARG <>))
+	 <COND (<AND .VARG
+		     <NOT <EQUAL? .VARG ,M-ENTER>>>
+		<RFALSE>)
+	       (.VARG
+		<COND (,DB-CONTROLS-DESCRIBED
+		       <RFALSE>)
+		      (T
+		       <SETG DB-CONTROLS-DESCRIBED T>
+		       <TELL " ">
+		       <PERFORM ,V?EXAMINE ,DB>
+		       <RTRUE>)>)
+	       (<VERB? EXAMINE>
+		<COND (<IN? ,PROTAGONIST ,DB>
+		       <TELL "This is a cramped diving bell. The door is ">
+		       <OPEN-CLOSED ,DB>
+		       <TELL
+". A brass plaque is mounted next to a small porthole. You may want to
+examine the controls." CR>)
+		      (T
+		       <TELL "The diving bell is ">
+		       <OPEN-CLOSED ,DB>
+		       <TELL
+". Mounted on the outside of it is a claw-like waldo." CR>)>)
+	       (<AND <VERB? ENTER>
+		     <NOT <IN? ,PROTAGONIST ,DB>>
+		     <NOT <FSET? ,DB ,OPENBIT>>>
+		<DO-WALK ,P?IN>)
+	       (<AND <VERB? EXIT>
+		     <IN? ,PROTAGONIST ,DB>>
+		<COND (,HAND-IN-WALDO
+		       <DO-FIRST "remove your hand from the waldo">)
+		      (<NOT <FSET? ,DB ,OPENBIT>>
+		       <THIS-IS-IT ,DB>
+		       <DO-FIRST "open the bathysphere">)
+		      (<IN? ,RUBY ,WALDO>
+		       <FCLEAR ,RUBY ,TRYTAKEBIT>
+		       <RFALSE>)>)
+	       (<VERB? RAISE LOWER>
+		<COND (<IN? ,PROTAGONIST ,DB>
+		       <TELL ,YOULL-HAVE-TO "use the controls." CR>)
+		      (T
+		       <TELL "You can't do that from out here." CR>)>)
+	       (<AND <VERB? OPEN>
+		     <NOT <EQUAL? ,HERE ,HOLD>>>
+		<JIGS-UP "Having thus flooded the bathysphere, you drown.">)>>
+
+<OBJECT DB-CONTROLS
+	(LOC DB)
+	(DESC "controls")
+	(SYNONYM CONTROL CONTROLS)
+	(FLAGS NDESCBIT NARTICLEBIT PLURALBIT)
+	(GENERIC G-DB-HOLE-F)
+	(ACTION DB-CONTROLS-F)>
+
+<ROUTINE DB-CONTROLS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The controls seem simple enough: an up-down lever, an exterior light,
+and a hand-hole for controlling the exterior waldo." CR>)>>
+
+<OBJECT DB-PLAQUE
+	(LOC DB)
+	(DESC "brass plaque")
+	(SYNONYM PLAQUE)
+	(ADJECTIVE SMALL BRASS)
+	(FLAGS READBIT NDESCBIT)
+	(TEXT
+"\"A product of the Frobozz Magic Bathysphere Company, designed by
+Jacques Yves Flathead.\"")>
+
+<ROUTINE G-DB-HOLE-F (TBL F)
+	 <COND (<EQUAL? <FIND-NOUN .F> ,W?CONTROL>
+		;"confusion is between hand-hole and controls"
+		,DB-CONTROLS)
+	       (T ;"confusion is between hand-hole and porthole"
+		,HAND-HOLE)>>
+
+<OBJECT PORTHOLE
+	(LOC DB)
+	(DESC "porthole")
+	(SYNONYM PORTHOLE PORT HOLE)
+	(ADJECTIVE PORT)
+	(FLAGS NDESCBIT)
+	(GENERIC G-DB-HOLE-F)
+	(ACTION PORTHOLE-F)>
+
+<ROUTINE PORTHOLE-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<V-LOOK>)>>
+
+<OBJECT RUBY
+	(LOC LAKE-BOTTOM)
+	(DESC "moby ruby")
+	(PLURAL "rubies")
+	(FDESC "A ruby of incredible size and beauty is buried in the sand.")
+	(SYNONYM RUBY JEWEL)
+	(ADJECTIVE RED MOBY LARGE BEAUTIFUL)
+	(FLAGS TRYTAKEBIT TAKEBIT READBIT)
+	(VALUE 25)
+	(SIZE 3)
+	(TEXT "This ruby must surely be the largest jewel in the land.")>
+
+<OBJECT EXTERIOR-LIGHT
+	(LOC DB)
+	(DESC "exterior light")
+	(SYNONYM LIGHT LIGHTS)
+	(ADJECTIVE EXTERIOR)
+	(FLAGS LIGHTBIT NDESCBIT VOWELBIT)>
+
+<OBJECT WALDO
+	(LOC HOLD)
+	(DESC "waldo")
+	(SYNONYM WALDO)
+	(ADJECTIVE EXTERIOR)
+	(FLAGS NDESCBIT CONTBIT SEARCHBIT OPENBIT)
+	(ACTION WALDO-F)>
+
+<ROUTINE WALDO-F ()
+	 <COND (<AND <NOT <FSET? ,EXTERIOR-LIGHT ,ONBIT>>
+		     <NOT <EQUAL? ,HERE ,HOLD>>
+		     <HANDLE ,WALDO>>
+		<CANT-SEE ,WALDO>)
+	       (<AND <VERB? REACH-IN>
+		     <IN? ,PROTAGONIST ,DB>>
+		<PERFORM ,V?REACH-IN ,HAND-HOLE>
+		<RTRUE>)
+	       (<VERB? DROP> ;"IDROP lets it pass if your hand is in the hole"
+		<TELL
+"Although you can manipulate the waldo, you aren't holding it. [If you want
+to remove your hand, try REMOVE HAND.]" CR>)
+	       (<VERB? PUT>
+		<MOVE ,PRSO ,HERE>
+	        <TELL
+,YOU-CANT "budge the waldo's claw, so" T ,PRSO " falls right out." CR>)
+	       (<VERB? OPEN CLOSE>
+		<COND (,HAND-IN-WALDO
+		       <COND (<FIRST? ,WALDO>
+			      <COND (<VERB? OPEN>
+				     <PERFORM ,V?DROP <FIRST? ,WALDO>>
+			      	     <RTRUE>)
+				    (T
+				     <TELL
+"The waldo IS closed! It's holding" AR <FIRST? ,WALDO>>)>)
+			     (T
+			      <TELL
+"The claws of the waldo open and close." CR>)>)
+		      (T
+		       <TELL "The claws of the waldo won't budge." CR>)>)
+	       (<AND <VERB? TAKE-WITH>
+		     <PRSI? ,WALDO>>
+		<COND (<PRSO? ,DB ,WALDO>
+		       <IMPOSSIBLES>)
+		      (,HAND-IN-WALDO
+		       <SETG PRSI <>>
+		       <PERFORM ,V?TAKE ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <TELL "Your hand isn't in the hand-hole!" CR>)>)>>
+
+<GLOBAL HAND-IN-WALDO <>>
+
+<OBJECT HAND-HOLE
+	(LOC DB)
+	(DESC "hand-hole")
+	(SYNONYM HOLE HAND-HOLE CONTROL)
+	(ADJECTIVE HAND WALDO)
+	(FLAGS NDESCBIT)
+	(GENERIC G-DB-HOLE-F)
+	(ACTION HAND-HOLE-F)>
+
+<ROUTINE HAND-HOLE-F ()
+	 <COND (<NOT <IN? ,PROTAGONIST ,DB>>
+		<CANT-REACH ,HAND-HOLE>)
+	       (<VERB? REACH-IN>
+		<TELL "Your hand is ">
+		<COND (,HAND-IN-WALDO
+		       <TELL "already in the hand-hole!" CR>)
+		      (T
+		       <SETG HAND-IN-WALDO T>
+		       <TELL "now in the hand-hole">
+		       <COND (<NOT <FSET? ,WALDO ,TOUCHBIT>>
+			      <FSET ,WALDO ,TOUCHBIT>
+			      <TELL
+". The waldo feels like an extension of your own hand.
+You flex your fingers a few times">
+			      <COND (<OR <FSET? ,EXTERIOR-LIGHT ,ONBIT>
+					 <EQUAL? ,HERE ,HOLD>>
+				     <TELL
+", and through the viewport, you see the waldo flex correspondingly">)>)>
+		       <TELL ,PERIOD-CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (,HAND-IN-WALDO
+		       <TELL "Your hand is in the hole." CR>)
+		      (T
+		       <TELL ,ONLY-BLACKNESS>)>)>>
+
+<ROUTINE WALDO-TAKE ()
+	 <COND (<PRSI? ,WALDO>
+		<COND (<EQUAL? ,P-PRSA-WORD ,W?REMOVE>
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <CANT-REACH ,PRSO>)>)
+	       (<FIRST? ,WALDO>
+		<TELL
+"There's already" A <FIRST? ,WALDO> " in the waldo." CR>)
+	       (<AND <EQUAL? ,HERE ,LAKE-BOTTOM>
+		     <NOT <IN? ,SQUID-REPELLENT ,LAKE-BOTTOM>>>
+		<TELL
+"Before the waldo can grab" T ,PRSO ", a baby squid swims into view and
+snatches" T ,PRSO ". The squid playfully squirts black ink toward the
+porthole, and by the time the view clears, the squid is gone">
+		<COND (<FSET? ,PRSO ,TAKEBIT>
+		       <TELL
+" and" T ,PRSO " is lying right where it was before">)>
+		<TELL ,PERIOD-CR>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<MOVE ,PRSO ,WALDO>
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL "You pick up" T ,PRSO " in the waldo." CR>)
+	       (<PRSO? ,SPENSEWEED>
+		<TELL ,DEEPLY-ROOTED>)
+	       (<PRSO? ,JESTER ,J-HAT ,J-POCKET ,J-SHOE>
+		<TELL
+"Your attempt ends up giving the jester a pinch with the waldo. \"Please!\" he
+exclaims. \"I'm not that sort of jester!\"" CR>)
+	       (T
+		<YUKS>)>>
+
+<OBJECT LEVER
+	(LOC DB)
+	(DESC "up-down lever")
+	(SYNONYM LEVER)
+	(ADJECTIVE UP-DOWN)
+	(FLAGS NDESCBIT VOWELBIT)
+	(ACTION LEVER-F)>
+
+<GLOBAL DB-DIRECTION 0> ;"1 = ascending, -1 = descending"
+
+<GLOBAL DB-DEPTH 0>
+
+<GLOBAL PIECE-DROWNED 0>
+
+<ROUTINE LEVER-F ("AUX" X)
+	 <COND (<VERB? EXAMINE>
+		<TELL "The lever is in the ">
+		<COND (<EQUAL? ,DB-DIRECTION 1>
+		       <TELL "up">)
+		      (<EQUAL? ,DB-DIRECTION -1>
+		       <TELL "down">)
+		      (T
+		       <TELL "neutral">)>
+		<TELL " position">
+		<COND (<EQUAL? ,DB-DIRECTION 0>
+		       <TELL ", from which it can be raised or lowered." CR>)
+		      (T
+		       <TELL ,PERIOD-CR>)>)
+	       (<VERB? RAISE>
+		<COND (<EQUAL? ,DB-DIRECTION 1>
+		       <TELL "The lever is already raised." CR>)
+		      (<EQUAL? ,HERE ,HOLD>
+		       <TELL ,NOTHING-HAPPENS>)
+		      (T
+	 	       <SETG DB-DIRECTION 1>
+		       <QUEUE I-DB 2>
+		       <TELL "The bathysphere ascends.">
+		       <COND (<EQUAL? ,HERE ,LAKE-BOTTOM>
+			      <SETG DB-DEPTH 4>
+			      <MOVE ,DB ,UNDERWATER>
+			      <MOVE ,WALDO ,UNDERWATER>
+			      <GLANCE>)
+			     (T
+			      <CRLF>)>)>)
+	       (<VERB? LOWER>
+		<COND (<EQUAL? ,DB-DIRECTION -1>
+		       <TELL "The lever is already lowered." CR>)
+		      (<OR <EQUAL? ,DB-DEPTH 4>
+			   <NOT <IN? ,YACHT ,LAKE-FLATHEAD>>>
+		       <TELL ,NOTHING-HAPPENS>)
+                      (<AND <SET X <FIRST? ,WALDO>>
+			    <EQUAL? .X ,FOX ,FLAMINGO ,ROOSTER ,SNAKE>>
+		       <TELL "You'd drown the poor ">
+		       <PRINTD .X>
+		       <TELL "!" CR>)
+		      (<FSET? ,DB ,OPENBIT>
+		       <JIGS-UP
+"The bathysphere descends, filling with water through its open door.
+As you are not a fish, this is fatal.">)
+		      (T
+		       <SETG DB-DIRECTION -1>
+		       <QUEUE I-DB 2>
+		       <TELL
+"The bathysphere descends into the waters of the lake">
+		       <COND (<SET X <FIND-IN ,WALDO ,FLAMEBIT>>
+			      <FCLEAR .X ,ONBIT>
+			      <FCLEAR .X ,FLAMEBIT>
+			      <COND (<VISIBLE? .X>
+				     <TELL ", extinguishing" T .X>)>)>
+		       <TELL ".">
+		       <COND (<EQUAL? ,HERE ,HOLD>
+			      <SETG DB-DEPTH 0>
+			      <MOVE ,DB ,UNDERWATER>
+			      <MOVE ,WALDO ,UNDERWATER>
+			      <GLANCE>)
+			     (T
+			      <CRLF>)>)>)>>
+
+<ROUTINE GLANCE ()
+	 <TELL " You glance out the porthole" ,ELLIPSIS>
+	 <GOTO ,DB>>
+
+<ROUTINE I-DB ()
+	 <QUEUE I-DB -1>
+	 <SETG DB-DEPTH <- ,DB-DEPTH ,DB-DIRECTION>>
+	 <COND (<IN? ,PROTAGONIST ,DB>
+		<RETURN-FROM-MAP>
+		<TELL "   The bathysphere ">)>
+	 <COND (<L? ,DB-DEPTH 1>
+		<DEQUEUE I-DB>
+		<SETG DB-DIRECTION 0>
+		<MOVE ,DB ,HOLD>
+	 	<MOVE ,WALDO ,HOLD>
+		<COND (<IN? ,PROTAGONIST ,DB>
+		       <TELL "rises into the yacht's hold and stops.">
+		       <GLANCE>)
+		      (<EQUAL? ,HERE ,HOLD>
+		       <RETURN-FROM-MAP>
+		       <TELL "   A diving bell rises into the Hold." CR>)
+		      (T
+		       <RFALSE>)>)
+	       (<G? ,DB-DEPTH 3>
+		<DEQUEUE I-DB>
+		<SETG DB-DIRECTION 0>
+		<MOVE ,DB ,LAKE-BOTTOM>
+		<MOVE ,WALDO ,LAKE-BOTTOM>
+		<COND (<IN? ,PROTAGONIST ,DB>
+		       <TELL "bumps against the bottom of the lake.">
+		       <GLANCE>)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT <IN? ,PROTAGONIST ,DB>>
+		<RFALSE>)
+	       (T
+		<TELL "continues to ">
+		<COND (<EQUAL? ,DB-DIRECTION -1>
+		       <TELL "de">)
+		      (<EQUAL? ,DB-DIRECTION 1>
+		       <TELL "a">)>
+		<TELL "scend." CR>
+		<COND (<G? ,PIECE-DROWNED 0>
+		       <COND (<PROB ,PIECE-DROWNED>
+			      <SETG PIECE-DROWNED 1>
+			      <TELL
+"   The drowned carcass of a chess piece drifts momentarily through the
+beam of the exterior light." CR>)
+			     (T
+			      <SETG PIECE-DROWNED <+ ,PIECE-DROWNED 10>>)>)>)>
+	 <RTRUE>>
+
+<ROOM LAKE-FLATHEAD
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Lake Flathead")
+      (LDESC
+"You are in the center of a once-handsome lake, lit from the roof high
+overhead. On the distant shores, you can spot docks in all four
+cardinal directions.")
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT NARTICLEBIT WATERBIT)
+      (SYNONYM LAKE FLATHEAD)
+      (ADJECTIVE FLATHEAD LAKE PLACID CLEAR CRYSTAL)
+      (VALUE 18)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-4>)
+      (GLOBAL STAIRS)
+      (ICON LAKE-FLATHEAD-ICON)
+      (RESEARCH
+"\"This large and handsome lake lies entirely within the royal castle at
+Flatheadia.\"")
+      (ACTION LAKE-FLATHEAD-F)>
+
+<ROUTINE LAKE-FLATHEAD-F ("OPTIONAL" (RARG <>))
+	 <COND (.RARG
+		<RFALSE>)
+	       (<VERB? DRINK DRINK-FROM ENTER LOOK-UNDER REACH-IN>
+		<PERFORM-PRSA ,WATER ,PRSI>)
+	       (<AND <VERB? FILL PUT>
+		     <PRSI? ,GLOBAL-HERE>>
+		<PERFORM-PRSA ,PRSO ,WATER>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL "The water is scummy and murky." CR>)>>
+
+<ROOM UNDERWATER
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Underwater")
+      (LDESC
+"Here, between the surface and floor of Lake Flathead, the water is somewhat
+clearer.")
+      ;(UP SORRY "Use the bathysphere controls.")
+      ;(DOWN SORRY "Use the bathysphere controls.")
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL LAKE-FLATHEAD)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-1>)
+      (ICON UNDERWATER-ICON)>
+
+<ROOM LAKE-BOTTOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Lake Bottom")
+      (LDESC
+"You have reached the sandy bottom at the deepest point of Lake Flathead.
+Beautiful freshwater fish swim among slowly waving spenseweeds.")
+      ;(UP SORRY "Use the bathysphere controls.")
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL LAKE-FLATHEAD)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-1>)
+      (ICON LAKE-BOTTOM-ICON)
+      (ACTION LAKE-BOTTOM-F)>
+
+<ROUTINE LAKE-BOTTOM-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,SPENSEWEED ,HERE>
+		<FSET ,SPENSEWEED ,NDESCBIT>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,WORM ,WALDO>>
+		<REMOVE ,WORM>
+		<RETURN-FROM-MAP>
+		<TELL
+"   A fish snatches the worm from the waldo and swims away with it." CR>)>>
+
+<OBJECT LAKE-BOTTOM-FISH
+	(LOC LAKE-BOTTOM)
+	(DESC "freshwater fish")
+	(SYNONYM FISH)
+	(ADJECTIVE BEAUTIFUL FRESHWATER)
+	(FLAGS NDESCBIT)
+	(ACTION LAKE-BOTTOM-FISH-F)>
+
+<ROUTINE LAKE-BOTTOM-FISH-F ()
+	 <COND (<TOUCHING? ,LAKE-BOTTOM-FISH>
+		<CANT-REACH ,LAKE-BOTTOM-FISH>)>>
+
+<ROOM BASE-OF-MOUNTAIN
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Base of Mountain")
+      (LDESC
+"In a rare moment of restraint, Dimwit scaled back his plans for putting
+an entire mountain range in the castle, settling for merely a single mountain.
+A difficult trail leads east up the mountain; easier paths head north, west,
+and south.")
+      (NORTH TO STABLE)
+      (SOUTH TO G-U-WOODS)
+      (WEST TO EAST-SHORE)
+      (EAST PER G-U-MOUNTAIN-ENTER-F)
+      (UP PER G-U-MOUNTAIN-ENTER-F)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-MOUNTAIN)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)
+      (ICON BASE-OF-MT-ICON)>
+
+<ROUTINE G-U-MOUNTAIN-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<IN? ,PROTAGONIST ,CAMEL>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"Like most camels, this one isn't very good at mountain climbing." CR>)>
+		<RFALSE>)
+	       (T
+		,G-U-MOUNTAIN)>>
+
+<ROOM STABLE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Stable")
+      (LDESC
+"The stalls here once held thousands of royal mounts. The only exit is south.")
+      (SOUTH TO BASE-OF-MOUNTAIN)
+      (OUT TO BASE-OF-MOUNTAIN)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (SYNONYM STABLE)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>)
+      (ICON STABLE-ICON)
+      (THINGS <> STALL STALL-PS)
+      (ACTION STABLE-F)>
+
+<ROUTINE STABLE-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,STABLE ,TOUCHBIT>>>
+		<QUEUE I-ROOSTER -1>)>>
+
+<ROUTINE STALL-PS ()
+	 <COND (<VERB? EXAMINE ENTER>
+		<TELL "The stalls are all empty." CR>)>>
+
+<OBJECT SADDLE
+	(LOC STABLE)
+	(DESC "saddle")
+	(FDESC
+"A well-worn unicorn saddle, of military style, is hanging at the far
+end of the stable.")
+	(SYNONYM SADDLE)
+	(ADJECTIVE WELL-WORN UNICORN MILITARY)
+	(FLAGS TAKEBIT MAGICBIT READBIT)
+	(SIZE 15)
+	(VALUE 12)
+	(TEXT "You can barely make out the name \"Wilma.\"")
+	(ACTION SADDLE-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE SADDLE-F ()
+	 <COND (<AND <VERB? PUT-ON>
+		     <PRSO? ,SADDLE>>
+		<TELL
+"You'd be kicked out of riding school -- imagine, trying to saddle"
+A ,PRSI "!" CR>)>>
+
+<OBJECT ROOSTER
+	(LOC STABLE)
+	(DESC "rooster")
+	(FDESC
+"There's not a horse in sight. However, there is a rooster here, strutting
+back and forth between the stalls.")
+	(SYNONYM ROOSTER BIRD VANE)
+	(ADJECTIVE WEATHER)
+	(FLAGS TAKEBIT TRYTAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "weather vane")
+	(WAND-TEXT
+"The rooster stops moving and takes on the complexion of wrought iron.")
+	(ANIMATE-ROUTINE I-W-ROOSTER)
+	(SIZE 10)
+	(ACTION ROOSTER-F)>
+
+<ROUTINE ROOSTER-F ()
+	 <COND (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,ROOSTER ,W?ROOSTER>>
+		<TELL "\"A common barnyard animal.\"" CR>)
+	       (<NOT <FSET? ,ROOSTER ,ANIMATEDBIT>>
+		<RFALSE>)
+	       (<VERB? EAT>
+		<COND (<EQUAL? ,TURNED-INTO ,FOX>
+		       <GOOD-MEAL ,ROOSTER>)
+		      (T
+		       <TELL
+"Unfortunately, you have no training in the butchering and culinary
+techniques involved in turning live poultry into edible meals." CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"It is a handsome, mature rooster, with a full red comb." CR>)
+	       (<VERB? TOUCH>
+		<TELL "The bird pecks at your hand." CR>)
+	       (<AND <VERB? TAKE>
+		     <FSET? ,ROOSTER ,ANIMATEDBIT>>
+		<COND (<EQUAL? <ITAKE T> ,M-FATAL>
+		       <RTRUE>)
+		      (T
+		       <MOVE ,ROOSTER ,PROTAGONIST>
+		       <TELL
+"The bird flaps angrily, but you manage to pick it up." CR>)>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,WORM>>
+		<REMOVE ,WORM>
+		<TELL
+"The bird sucks down the worm and crows happily." CR>)
+	       (<AND <VERB? FEED>
+		     <ULTIMATELY-IN? ,WORM>>
+		<WOULDNT-MIND ,ROOSTER ,WORM>)>>
+
+<ROUTINE I-W-ROOSTER ("AUX" (L <LOC ,ROOSTER>))
+	 <FSET ,ROOSTER ,ANIMATEDBIT>
+	 <COND (<IN? ,ROOSTER ,LAKE-BOTTOM>
+		<REMOVE ,ROOSTER>)
+	       (<EQUAL? <META-LOC ,ROOSTER> ,HERE>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The air is split by a loud \"Cock-a-doodle-doo!\" as the weather
+vane once again becomes a rooster">
+		<COND (<AND <NOT <EQUAL? .L ,PROTAGONIST ,HERE>>
+			    <NOT <FSET? .L ,DROPBIT>>>
+		       <MOVE ,ROOSTER ,HERE>
+		       <FSET .L ,OPENBIT>
+		       <TELL " and pops out of" T .L>)>
+		<TELL ,PERIOD-CR>)
+	       (T
+		<MOVE ,ROOSTER <META-LOC ,ROOSTER>>
+		<RFALSE>)>>
+
+<GLOBAL ROOSTER-PROB 100>
+
+<GLOBAL ROOSTER-BURP <>>
+
+<ROUTINE I-ROOSTER ("AUX" L)
+	 <COND (<NOT <FSET? ,ROOSTER ,ANIMATEDBIT>>
+		<RFALSE>)
+	       (<NOT <VISIBLE? ,ROOSTER>>
+		<COND (<AND <SET L <LOC ,ROOSTER>>
+			    <EQUAL? .L <LOC ,WORM>>
+			    <FSET? ,WORM ,ANIMATEDBIT>
+			    <NOT <FSET? .L ,ACTORBIT>>>
+		       <SETG ROOSTER-BURP T>
+		       <REMOVE ,WORM>)>
+		<RFALSE>)
+	       (,ROOSTER-BURP
+		<SETG ROOSTER-BURP <>>
+		<RETURN-FROM-MAP>
+		<TELL "   The rooster fails to hide a satisfied burp." CR>)
+	       (<OR <NOT <VISIBLE? ,WORM>>
+		    <NOT <FSET? ,WORM ,ANIMATEDBIT>>>
+		<RFALSE>)
+	       (<PROB ,ROOSTER-PROB>
+		<RETURN-FROM-MAP>
+		<SETG ROOSTER-PROB 0>
+		<TELL "   The rooster hungrily eyes the worm." CR>)
+	       (T
+		<SETG ROOSTER-PROB <+ ,ROOSTER-PROB 10>>
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROOM G-U-MOUNTAIN
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Great Underground Mountain")
+      (WEST TO BASE-OF-MOUNTAIN)
+      (DOWN TO BASE-OF-MOUNTAIN)
+      (NORTH PER CAVE-ENTER-F)
+      (IN PER CAVE-ENTER-F)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (SYNONYM MOUNTAIN)
+      (ADJECTIVE GREAT UNDERGROUND)
+      (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+      (GLOBAL LAKE-FLATHEAD)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)
+      (ICON G-U-MOUNTAIN-ICON)
+      (ACTION G-U-MOUNTAIN-F)>
+
+<ROUTINE G-U-MOUNTAIN-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <G? ,ORACLE-EXIT-NUMBER 4>>
+		<SETG ORACLE-EXIT-NUMBER <- <RANDOM 5> 1>>
+		<QUEUE I-AMULET 4>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The mountain crests with a tiny plateau. The view is inspiring; it's easy
+to see why Dimwit climbed this mountain with such frequency. (Some quibblers
+insisted that it's hardly \"mountain climbing\" to be carried up in a plush
+sedan chair, but those quibblers were all tortured to death years ago.) Off
+to the west are the placid waters of Lake Flathead; to the southwest is a
+vast indoor desert; to the south spreads a verdant forest. The ceiling of
+the castle is just a few feet above your head. ">
+		<COND (<IN? ,BOULDER ,HERE>
+		       <TELL
+"An enormous boulder is balanced precariously at the
+western edge of the plateau">)
+		      (T
+		       <TELL "A small cave opens to the north">)>
+		<TELL ". A trail leads down the mountain to the west.">)>>
+
+<ROUTINE CAVE-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<IN? ,BOULDER ,HERE>
+		<COND (<NOT .RARG>
+		       <CANT-GO>)>
+		<RFALSE>)
+	       (T
+		,GROTTO)>>
+
+<OBJECT BOULDER
+	(LOC G-U-MOUNTAIN)
+	(DESC "boulder")
+	(SYNONYM BOULDER ROCK)
+	(ADJECTIVE LARGE)
+	(FLAGS NDESCBIT)
+	(ACTION BOULDER-F)>
+
+<ROUTINE BOULDER-F ()
+	 <COND (<VERB? PUSH MOVE KICK ROLL>
+		<REMOVE ,BOULDER>
+		<SETG COMPASS-CHANGED T>
+		<MOVE ,CAVE-OBJECT ,HERE>
+		<TELL
+"You give the boulder a shove. It lurches and begins careening down the
+mountain. Picking up speed, it flattens several trees, hits an outcropping,
+and shoots into the air, toward the lake. It lands ">
+		<COND (<IN? ,YACHT ,EAST-SHORE>
+		       <TELL "right on the yacht">)
+		      (T
+		       <TELL
+"in the lake with a tremendous splash, just missing the blue dock">)>
+		<TELL "! The rock ">
+		<COND (<IN? ,YACHT ,EAST-SHORE>
+		       <REMOVE ,YACHT>
+		       <COND (<OR <ULTIMATELY-IN? ,PERCH ,YACHT>
+				  <ULTIMATELY-IN? ,PERCH ,HOLD>>
+			      <SETG REMOVED-PERCH-LOC ,WATER>
+			      <REMOVE ,PERCH>)>
+		       <TELL "and the yacht vanish">)
+		      (T
+		       <TELL "disappears">)>
+		<TELL
+" beneath the water, leaving only a series of widening ripples. As you
+recuperate from the excitement, you notice a feature that was formerly
+blocked by the boulder: a small cave leading north into the mountain." CR>
+		<INC-SCORE 6>)
+	       (<AND <VERB? LOWER>
+		     <EQUAL? ,P-PRSA-WORD ,W?PUSH>>
+		<PERFORM ,V?PUSH ,BOULDER>
+		<RTRUE>)
+	       (<AND <VERB? PUSH-DIR>
+		     <PRSI? ,INTDIR>
+		     <NOUN-USED? ,INTDIR ,W?WEST>>
+		<PERFORM ,V?PUSH ,BOULDER>
+		<RTRUE>)>>
+
+<OBJECT CAVE-OBJECT
+	(DESC "cave")
+	(SYNONYM CAVE)
+	(ADJECTIVE TINY)
+	(FLAGS NDESCBIT)
+	(ACTION CAVE-OBJECT-F)>
+
+<ROUTINE CAVE-OBJECT-F ()
+	 <COND (<VERB? ENTER>
+		<GOTO ,GROTTO>)>>
+
+<ROOM GROTTO
+	(LOC ROOMS)
+	(REGION "Region:  Unknown")
+	(DESC "Grotto")
+	(LDESC
+"You are in a damp grotto near the peak of the Great Underground Mountain.
+Slimy moss covers the irregular rock walls. Winding passages lead south and
+northeast, and a steep gravelly passage leads downward at an alarming angle.")
+	(SOUTH TO G-U-MOUNTAIN)
+	(NE TO SHRINE)
+	(DOWN PER LOWEST-HALL-ENTER-F)
+	(WEST PER LOWEST-HALL-ENTER-F)
+	(FLAGS RLANDBIT UNDERGROUNDBIT)
+	(SYNONYM GROTTO)
+	(MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>)>P
+
+<OBJECT GROTTO-REBUS-BUTTON
+	(LOC GROTTO)
+	(SDESC "blinking key-shaped button")
+	(FDESC
+"Imbedded in the rocky wall is a blinking button in the shape of a key.")
+	(SYNONYM BUTTON)
+	(ADJECTIVE KEY-SHAPED BLINKING)
+	(ACTION REBUS-BUTTON-F)>
+
+<ROUTINE LOWEST-HALL-ENTER-F
+	 ("OPT" (RARG <>) "AUX" (CURRENT-GRAVEL <>) (SPILL <>))
+	 <COND (.RARG
+	        <RETURN ,LOWEST-HALL>)>
+	 <RETURN-FROM-MAP>
+	 <TELL
+"You lose your footing on the gravel, drop your possessions, and begin sliding
+down the dark tunnel! Finally, you land on a hard floor">
+	 <COND (<OR <AND <IN? ,GRAVEL ,LOCAL-GLOBALS>
+			 <SET CURRENT-GRAVEL ,GRAVEL>>
+		    <AND <IN? ,MORE-GRAVEL ,LOCAL-GLOBALS>
+			 <SET CURRENT-GRAVEL ,MORE-GRAVEL>>
+		    <AND <IN? ,EVEN-MORE-GRAVEL ,LOCAL-GLOBALS>
+			 <SET CURRENT-GRAVEL ,EVEN-MORE-GRAVEL>>>
+		<TELL "; a shower of gravel lands on top of you">)>
+	 <COND (<AND <ULTIMATELY-IN? ,LARGE-VIAL>
+		     <G? ,LARGE-VIAL-GLOOPS 0>>
+		<SETG LARGE-VIAL-GLOOPS 0>
+		<REMOVE ,LARGE-VIAL-WATER>
+		<SET SPILL T>)>
+	 <COND (<AND <ULTIMATELY-IN? ,SMALL-VIAL>
+		     <G? ,SMALL-VIAL-GLOOPS 0>>
+		<SETG SMALL-VIAL-GLOOPS 0>
+		<REMOVE ,SMALL-VIAL-WATER>
+		<SET SPILL T>)>
+	 <COND (<AND <ULTIMATELY-IN? ,CUP>
+		     <IN? ,POTION ,CUP>>
+		<REMOVE ,POTION>
+		<SET SPILL T>)>
+	 <COND (.SPILL
+		<TELL ". You seem to have spilled something, also">)>
+	 <TELL ".">
+	 <COND (.CURRENT-GRAVEL
+		;"if no chess piece present, it'll end up on floor.
+		  if chess piece present, he'll pick up the gravel in ROB"
+		<MOVE .CURRENT-GRAVEL ,PROTAGONIST>)>
+	 <SETG HERE ,LOWEST-HALL>
+	 ;"so that ROB properly describes chesspiece taking pigeon"
+	 <ROB ,PROTAGONIST ,LOWEST-HALL T>
+	 <CRLF> <CRLF>
+	 ,LOWEST-HALL>
+
+<OBJECT GRAVEL
+	(LOC LOCAL-GLOBALS)
+	(DESC "gravel")
+	(PLURAL "gravel")
+	(SYNONYM GRAVEL)
+	(GENERIC G-GRAVEL-F)
+	(FLAGS TAKEBIT NARTICLEBIT)
+	(ACTION GRAVEL-F)>
+
+<OBJECT MORE-GRAVEL
+	(LOC LOCAL-GLOBALS)
+	(DESC "more gravel")
+	(PLURAL "gravel")
+	(SYNONYM GRAVEL)
+	(ADJECTIVE MORE)
+	(GENERIC G-GRAVEL-F)
+	(FLAGS TAKEBIT NARTICLEBIT)
+	(ACTION GRAVEL-F)>
+
+<OBJECT EVEN-MORE-GRAVEL
+	(LOC LOCAL-GLOBALS)
+	(DESC "even more gravel")
+	(PLURAL "gravel")
+	(SYNONYM GRAVEL)
+	(ADJECTIVE EVEN MORE)
+	(GENERIC G-GRAVEL-F)
+	(FLAGS TAKEBIT NARTICLEBIT)
+	(ACTION GRAVEL-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE G-GRAVEL-F (TBL LEN)
+	 <COND (<INTBL? ,GRAVEL <REST-TO-SLOT .TBL FIND-RES-OBJ1>
+				<FIND-RES-COUNT .TBL>>
+		,GRAVEL)
+	       (T ;"the two confused objs must be MORE-GRAV and EVEN-MORE-GRAV"
+		,MORE-GRAVEL)>>
+
+<ROUTINE GRAVEL-F ()
+	 <COND (<VERB? TAKE>
+		<ORDER-GRAVEL ,PROTAGONIST>
+		<RFALSE>)
+	       (<VERB? DROP>
+		<ORDER-GRAVEL ,HERE>
+		<RFALSE>)
+	       (<VERB? EXAMINE MEASURE COUNT>
+		<TELL "It's about a handful." CR>)
+	       (<AND <VERB? POUR>
+		     <PRSO? ,GRAVEL ,MORE-GRAVEL ,EVEN-MORE-GRAVEL>>
+		<PERFORM ,V?PUT ,PRSO ,PRSI>
+		<RTRUE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROOM SHRINE
+      (LOC ROOMS)
+      (DESC "Shrine")
+      (REGION "Region:  Unknown")
+      (LDESC
+"You have stumbled upon a long-hidden shrine to Saint Foobus of Galepath.
+An idol of Foobus is carved from the very rock that forms this cave. The only
+exit is southwest.")
+      (SW TO GROTTO)
+      (OUT TO GROTTO)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-8>)
+      (ICON SHRINE-ICON)>
+
+<OBJECT IDOL
+	(LOC SHRINE)
+	(DESC "idol")
+	(SYNONYM ST SAINT IDOL FOOBUS GALEPATH SHRINE)
+	(ADJECTIVE SAINT ST)
+	(FLAGS NDESCBIT VOWELBIT)
+	(RESEARCH
+"\"The legendary Saint Foobus was said to have power over lowly insects.\"")
+	(ACTION IDOL-F)>
+
+<ROUTINE IDOL-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The idol has been carved into the cave wall by the hand of a master sculptor
+(who obviously spent far more time on the project than a saint of Foobus'
+stature deserves)." CR>)>>
+
+<OBJECT BOWL
+	(LOC SHRINE)
+	(DESC "bowl")
+	(LDESC
+"Sitting before the idol is a translucent bowl, extremely tall and narrow,
+like a carafe.")
+	(SYNONYM BOWL CARAFE)
+	(ADJECTIVE TRANSLUCENT TALL NARROW)
+	(FLAGS TRYTAKEBIT CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 25)
+	(ACTION BOWL-F)>
+
+<ROUTINE BOWL-F (CNT)
+	 <SET CNT <GRAVEL-COUNT>>
+	 <COND (<VERB? CLOSE>
+		<TELL ,HUH>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The bowl is tall and narrow, like a large drinking glass. ">
+		<PERFORM ,V?LOOK-INSIDE ,BOWL>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "It is ">
+		<COND (<EQUAL? .CNT 0>
+		       <TELL "less than a quarter">)
+		      (<EQUAL? .CNT 1>
+		       <TELL "more than a quarter">)
+		      (<EQUAL? .CNT 2>
+		       <TELL "less than half">)
+		      (T
+		       <TELL "more than half">)>
+		<TELL " full with a milky elixir." CR>)
+	       (<VERB? REACH-IN>
+		<COND (<EQUAL? .CNT 3>
+		       <TELL
+"Your fingers are just long enough to touch the elixir. ">
+		       <TOUCH-ELIXIR>)
+		      (T
+		       <TELL
+"Because the bowl is so narrow, you can only get your fingers
+halfway to the bottom, ">
+		       <COND (<EQUAL? .CNT 0>
+			      <TELL "well">)
+			     (<EQUAL? .CNT 1>
+			      <TELL "somewhat">)
+			     (<EQUAL? .CNT 2>
+			      <TELL "a smidgeon">)>
+		       <TELL " short of the elixir." CR>)>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,BOWL>>
+		<COND (<PRSO? ,GRAVEL ,MORE-GRAVEL ,EVEN-MORE-GRAVEL>
+		       <MOVE ,PRSO ,BOWL>
+		       <FCLEAR ,PRSO ,TAKEBIT>
+	               <TELL
+"The gravel sinks to the bottom of the bowl, thus raising the level
+of the elixir. It is now ">
+		       <SET CNT <+ .CNT 1>>
+		       <COND (<EQUAL? .CNT 1>
+			      <TELL "somewhat more than one-quarter">)
+			     (<EQUAL? .CNT 2>
+			      <TELL "just less than half">)
+			     (T
+			      <TELL "a bit over half">)>
+		       <TELL "way to the brim." CR>)
+		      (<PRSO? ,STRAW>
+		       <MOVE ,STRAW ,BOWL>
+		       <TELL
+"The straw extends just above the rim of the bowl." CR>)
+		      (<PRSO? ,RING ,ZORKMID-COIN ,EAST-KEY ,WEST-KEY
+			      ,RUSTY-KEY ,SQUID-REPELLENT ,UNOPENED-NUT
+			      ,NUT-SHELL ,NUT ,RUBY ,SAPPHIRE>
+		       <MOVE ,PRSO ,BOWL>
+		       <FCLEAR ,PRSO ,TAKEBIT>
+		       <TELL
+"With a tiny splash," T ,PRSO " sinks to the bottom of the bowl. It's not
+clear how you'll ever get it out again..." CR>)
+		      (T
+		       <TELL "The rim of the bowl is too narrow." CR>)>)
+	       (<AND <VERB? TAKE MOVE TIP TIP-OVER>
+		     <PRSO? ,BOWL>>
+		<TELL "The bowl is affixed to the cave floor." CR>)>>
+
+<ROUTINE GRAVEL-COUNT ("AUX" CNT)
+	 <SET CNT 0>
+	 <COND (<IN? ,GRAVEL ,BOWL>
+		<SET CNT <+ .CNT 1>>)>
+	 <COND (<IN? ,MORE-GRAVEL ,BOWL>
+		<SET CNT <+ .CNT 1>>)>
+	 <COND (<IN? ,EVEN-MORE-GRAVEL ,BOWL>
+		<SET CNT <+ .CNT 1>>)>
+	 .CNT>
+
+<OBJECT ELIXIR
+	(LOC BOWL)
+	(DESC "elixir")
+	(SYNONYM ELIXIR LIQUID)
+	(ADJECTIVE MILKY)
+	(FLAGS VOWELBIT)
+	(ACTION ELIXIR-F)>
+
+<ROUTINE ELIXIR-F ()
+	 <COND (<VERB? TOUCH REACH-IN>
+		<PERFORM ,V?REACH-IN ,BOWL>
+		<RTRUE>)
+	       (<VERB? DRINK TASTE>
+		<COND (<IN? ,STRAW ,BOWL>
+		       <PERFORM ,V?DRINK-WITH ,ELIXIR ,STRAW>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"The elixir is at the bottom of a bowl which is
+affixed to the cave floor." CR>)>)
+	       (<AND <VERB? CLEAN>
+		     <EQUAL? ,P-PRSA-WORD ,W?SOAK>
+		     <PRSI? ,ELIXIR>>
+		<PERFORM ,V?PUT ,PRSO ,ELIXIR>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,ELIXIR>>
+		<PERFORM ,V?PUT ,PRSO ,BOWL>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL "The milky liquid swirls with secret energies." CR>)
+	       (<AND <VERB? FILL>
+		     <PRSI? ,ELIXIR>>
+		<COND (<PRSO? ,STRAW>
+		       <TELL
+"You'll have to be more specific about how you propose to do that." CR>)
+		      (T
+		       <TELL
+"The bowl's narrowness prevents you from filling" TR ,PRSO>)>)>>
+
+<ROOM BATS-LAIR
+      (LOC ROOMS)
+      (DESC "Bat's Lair")
+      (REGION "Region:  Unknown")
+      (LDESC
+"Only a deranged bat would live in this disgusting nesting space, caked with
+layer upon layer of dried guano. A precarious path leads down to the west;
+there's little chance you'd be able to climb back.")
+      (DOWN PER LAIR-EXIT-F)
+      (OUT PER LAIR-EXIT-F)
+      (WEST PER LAIR-EXIT-F)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (SYNONYM LAIR)
+      (ADJECTIVE BAT\'S)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)
+      (ICON BATS-LAIR-ICON)>
+
+<ROUTINE LAIR-EXIT-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<OR .RARG
+		    <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>
+		<RETURN ,G-U-WOODS>)>
+	 <TELL
+"You lose your footing on the treacherous path, and tumble painfully down
+a steep incline. ">
+	 <COND (<FIRST? ,PROTAGONIST>
+		<TELL "Amazingly, you hold on to everything you have. ">)>
+	 <TELL
+"You roll to a stop as dim green light filters around you" ,ELLIPSIS>
+	 ,G-U-WOODS>
+
+<ROOM G-U-WOODS
+      (LOC ROOMS)
+      (DESC "Great Underground Woods")
+      (REGION "Flatheadia")
+      (LDESC
+"You are surrounded by tall oaks and wide pines. Birds chirp in the distance.
+Trails wind north and southwest among the trees.")
+      (NORTH TO BASE-OF-MOUNTAIN)
+      (SW TO G-U-SAVANNAH)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (SYNONYM WOODS)
+      (ADJECTIVE GREAT UNDERGROUND)
+      (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>)
+      (THINGS TALL OAK TREE-PS
+       	      WIDE PINE TREE-PS
+	      PINE TREE TREE-PS
+	      OAK TREE TREE-PS)
+      (ACTION G-U-WOODS-F)>
+
+<ROUTINE G-U-WOODS-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,G-U-WOODS ,TOUCHBIT>>>
+		<QUEUE I-FOX -1>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT FOX
+	(LOC G-U-WOODS)
+	(DESC "fox")
+	(PLURAL "foxes")
+	(FDESC "A fox is leaning against a nearby tree, looking sly.")
+	(SYNONYM FOX STOLE)
+	(ADJECTIVE FOX)
+	(FLAGS TAKEBIT TRYTAKEBIT ANIMATEDBIT)
+	(INANIMATE-DESC "fox stole")
+	(WAND-TEXT "The fox's eyes turn glassy.")
+	(ANIMATE-ROUTINE I-W-FOX)
+	(SIZE 15)
+	(ACTION FOX-F)>
+
+<ROUTINE FOX-F ()
+	 <COND (<AND <VERB? RESEARCH>
+		     <NOUN-USED? ,FOX ,W?FOX>>
+		<TELL "\"A common animal.\"" CR>)
+	       (<NOT <FSET? ,FOX ,ANIMATEDBIT>>
+		<RFALSE>)
+	       (<AND <VERB? TAKE>
+		     <FSET? ,FOX ,ANIMATEDBIT>>
+		<COND (<EQUAL? <ITAKE T> ,M-FATAL>
+		       <RTRUE>)
+		      (T
+		       <MOVE ,FOX ,PROTAGONIST>
+		       <TELL
+"The fox slyly allows himself to be picked up." CR>)>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,ROOSTER>>
+		<REMOVE ,ROOSTER>
+		<TELL
+"The fox must be thinking that you're Santa Claus and this is Christmas
+(but of course he's too sly to let you see that he's thinking that). After
+a few messy moments, the rooster is history." CR>)
+	       (<AND <VERB? FEED>
+		     <ULTIMATELY-IN? ,ROOSTER>>
+		<WOULDNT-MIND ,FOX ,ROOSTER>)>>
+
+<ROUTINE WOULDNT-MIND (EATER EATEE)
+	 <TELL
+"The " D .EATER " looks as though he wouldn't mind eating the "
+D .EATEE "..." CR>>
+
+<ROUTINE I-W-FOX ("AUX" (L <LOC ,FOX>))
+	 <FSET ,FOX ,ANIMATEDBIT>
+	 <FCLEAR ,FOX ,WEARBIT>
+	 <FCLEAR ,FOX ,WORNBIT>
+	 <COND (<IN? ,FOX ,LAKE-BOTTOM>
+		<REMOVE ,FOX>)
+	       (<EQUAL? <META-LOC ,FOX> ,HERE>
+		<RETURN-FROM-MAP>
+		<TELL "   The fox suddenly ">
+		<COND (<AND <NOT <EQUAL? .L ,PROTAGONIST ,HERE>>
+			    <NOT <FSET? .L ,DROPBIT>>>
+		       <MOVE ,FOX ,HERE>
+		       <FSET .L ,OPENBIT>
+		       <TELL "pops out of" T .L " and ">)>
+		<TELL "shakes its bushy tail." CR>)
+	       (T
+		<MOVE ,FOX <META-LOC ,FOX>>
+		<RFALSE>)>>
+
+<GLOBAL FOX-PROB 100>
+
+<GLOBAL FOX-BURP <>>
+
+<ROUTINE I-FOX ("AUX" L)
+	 <COND (<NOT <FSET? ,FOX ,ANIMATEDBIT>>
+		<RFALSE>)
+	       (<NOT <VISIBLE? ,FOX>>
+		<COND (<AND <SET L <LOC ,FOX>>
+			    <EQUAL? .L <LOC ,ROOSTER>>
+			    <FSET? ,ROOSTER ,ANIMATEDBIT>
+			    <NOT <FSET? .L ,ACTORBIT>>>
+		       <SETG FOX-BURP T>
+		       <REMOVE ,ROOSTER>)>
+		<RFALSE>)
+	       (,FOX-BURP
+		<SETG FOX-BURP <>>
+		<RETURN-FROM-MAP>
+		<TELL "   The fox produces a deep and very sly burp." CR>)
+	       (<OR <NOT <VISIBLE? ,ROOSTER>>
+		    <NOT <FSET? ,ROOSTER ,ANIMATEDBIT>>>
+		<RFALSE>)
+	       (<PROB ,FOX-PROB>
+		<SETG FOX-PROB 0>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The fox stares at the rooster and smacks its lips." CR>)
+	       (T
+		<SETG FOX-PROB <+ ,FOX-PROB 10>>
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROOM G-U-SAVANNAH
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Great Underground Savannah")
+      (LDESC
+"Dimwit's mania for including every conceivable ecosystem under his roof
+continues here. This flat grassland ends at woods to the northeast, and
+at a desert to the west. A herd of unicorns is grazing nearby.")
+      (NE TO G-U-WOODS)
+      (WEST TO EDGE-OF-DESERT)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (SYNONYM SAVANNAH)
+      (ADJECTIVE GREAT UNDERGROUND)
+      (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-5>)
+      (ICON G-U-SAVANNAH-ICON)
+      (ACTION FLY-ROOM-F)>
+
+<OBJECT UNICORNS
+	(LOC G-U-SAVANNAH)
+	(OWNER UNICORNS)
+	(DESC "herd of unicorns")
+	(SYNONYM UNICORN UNICORNS HERD)
+	(ADJECTIVE GRAZING)
+	(FLAGS NDESCBIT)
+	(RESEARCH "\"A magical beast, sometimes used as a combat mount.\"")
+	(ACTION UNICORNS-F)>
+
+<ROUTINE UNICORNS-F ()
+	 <COND (<VERB? ENTER CLIMB-ON SIT>
+		<TELL
+"As you approach, the unicorns move gracefully away." CR>)
+	       (<AND <VERB? PUT-ON>
+		     <PRSO? ,SADDLE>>
+		<PERFORM ,V?ENTER ,UNICORNS>
+		<RTRUE>)>>
+
+<ROOM STREAM
+      (LOC ROOMS)
+      (DESC "Stream")
+      (REGION "Flatheadia")
+      (EAST TO SOUTH-SHORE)
+      (WEST PER BRIDGE-ENTER-F)
+      (FLAGS RLANDBIT ONBIT UNDERGROUNDBIT)
+      (GLOBAL LAKE-FLATHEAD)
+      (RIDDLE "|
+  'One night four men sat down to play;|
+     They played and played till break of day.|
+       They played for money; not for fun,|
+         With separate scores for every one.|
+           And when time came to square accounts,|
+             They all had made quite nice amounts!'|
+What were the men playing?\" As the jester awaits your answer, you notice
+that he is holding the framed document.")
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-3>)
+      (ACTION CAMEL-DRINK-ROOM-F)>
+
+<OBJECT BRIDGE
+	(LOC STREAM)
+	(DESC "odd green bridge")
+	(SYNONYM BRIDGE)
+	(ADJECTIVE STRANGE ODD UNUSUAL GREEN)
+	(FLAGS VOWELBIT NDESCBIT)
+	(ACTION BRIDGE-F)>
+
+<ROUTINE BRIDGE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The bridge looks odd, perhaps because of its unusual green color." CR>)
+	       (<VERB? CROSS ENTER STAND-ON>
+		<DO-WALK ,P?WEST>)>>
+
+<ROUTINE BRIDGE-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RFALSE>)
+	       (<IN? ,BRIDGE ,HERE>
+		<COND (<IN? ,PROTAGONIST ,CAMEL>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"The bridge is too small for the huge, lumbering camel." CR>)
+		      (T
+		       <RETURN-FROM-MAP>
+		       <REMOVE ,BRIDGE>
+		       <DEQUEUE I-JESTER>
+		       <MOVE ,JESTER ,HERE>
+		       <THIS-IS-IT ,JESTER>
+		       <MOVE ,DIPLOMA ,JESTER>
+		       <FCLEAR ,DIPLOMA ,NDESCBIT>
+		       <SETUP-ORPHAN "answer">
+		       <TELL
+"As you step onto the bridge, it begins transforming and withdrawing from
+the opposite bank of the stream. When the transformation ends, the bridge
+has become the jester, who is on all fours, and you are standing in the
+center of his back! With clumsy haste and muttered apologies, you dismount.
+The jester straightens up, and laughs, \"No hard feelings! I'll be fit as
+a fiddle, once you answer this riddle:" <GETP ,STREAM ,P?RIDDLE> CR>)>)
+	       (T
+		<TELL "Without a bridge, the stream is uncrossable." CR>)>
+	 <RFALSE>>
+
+<OBJECT MUSIC
+	(LOC GLOBAL-OBJECTS)
+	(DESC "music")
+	(SYNONYM MUSIC INSTRUMENTS)
+	(ADJECTIVE MUSICAL)
+	(FLAGS NARTICLEBIT)
+	(ACTION MUSIC-F)>
+
+<ROUTINE MUSIC-F ()
+	 <COND (<VERB? PLAY>
+		<PERFORM-PRSA ,LULLABY>)
+	       (<VERB? LISTEN>
+		<TELL "[You can't hear any music right here!]" CR>)>>
+
+<OBJECT STREAM-OBJECT
+	(LOC STREAM)
+	(DESC "stream")
+	(SYNONYM STREAM)
+	(FLAGS NDESCBIT WATERBIT)
+	(ACTION STREAM-OBJECT-F)>
+
+<ROUTINE STREAM-OBJECT-F ()
+	 <COND (<VERB? CROSS>
+		<DO-WALK ,P?WEST>)>>
+
+<ROUTINE CAMEL-DRINK-ROOM-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<EQUAL? ,HERE ,OASIS>
+		       <TELL
+"An underground spring bubbles up through the sands, forming a pool of clear,
+cold water. A hot wind blows off the desert to the southwest.">)
+		      (T
+		       <TELL
+"A wide stream gurgles out of the rocks, feeding the waters of the lake. ">
+		       <COND (<FSET? ,DIPLOMA ,NDESCBIT>
+			      <TELL
+"A strange green bridge spans the stream to the west. At the far end of the
+bridge, you can see a framed document of some sort. ">)>
+		       <TELL "A path follows the shoreline to the east.">)>)
+	       (<AND <EQUAL? .RARG ,M-ENTER>
+		     <EQUAL? ,HERE ,STREAM>
+		     <FSET? ,DIPLOMA ,TRYTAKEBIT>>
+		<MOVE ,BRIDGE ,HERE>
+		<FSET ,DIPLOMA ,NDESCBIT>
+		<MOVE ,DIPLOMA ,HERE>)
+	       (<EQUAL? .RARG ,M-END>
+		<COND (<AND <EQUAL? ,HERE ,STREAM>
+			    <IN? ,JESTER ,HERE>
+			    <FSET? ,DIPLOMA ,TRYTAKEBIT>> 
+		       <SETUP-ORPHAN "answer">)>
+		<COND (<AND
+			<IN? ,CAMEL ,HERE>
+			<FSET? ,CAMEL ,ANIMATEDBIT>
+			,CAMEL-THIRSTY>
+		       <SETG CAMEL-THIRSTY <>>
+		       <RETURN-FROM-MAP>
+		       <TELL "   The camel lumbers over to the ">
+		       <COND (<EQUAL? ,HERE ,OASIS>
+			      <TELL "oasis">)
+			     (T
+			      <TELL "stream">)>
+		       <TELL " and takes an amazingly long sip." CR>)>)>>
+
+<OBJECT DIPLOMA
+	(LOC STREAM)
+	(DESC "diploma"	)
+	(SYNONYM DIPLOMA DOCUMENT)
+	(ADJECTIVE FRAMED)
+	(FLAGS TAKEBIT TRYTAKEBIT READBIT NDESCBIT MAGICBIT)
+	(VALUE 0) ;"12 points given elsewhere"
+	(TEXT
+"The diploma is from the Borphee Business School, but the name of the
+recipient is too faded to read.")
+	(SIZE 2)
+	(ACTION DIPLOMA-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE DIPLOMA-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,DIPLOMA ,TRYTAKEBIT>>
+		<COND (<IN? ,DIPLOMA ,JESTER>
+		       <TELL ,ANSWER-MY-RIDDLE>)
+		      (T
+		       <DO-FIRST "cross the bridge">)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROOM EDGE-OF-DESERT
+      (LOC ROOMS)
+      (DESC "Edge of Desert")
+      (REGION "Flatheadia")
+      (LDESC
+"Dimwit wanted a sandbox, but thanks to his lack of perspective he ended up
+with a desert. The bulk of the desert lies to the south; paths lead in the
+other cardinal directions.")
+      (NORTH TO SOUTH-SHORE)
+      (NE SORRY "Sand dunes block your way.")
+      (EAST TO G-U-SAVANNAH)
+      (SE SORRY "Sand dunes block your way.")
+      (WEST TO RING-OF-DUNES)
+      (SW SORRY "Sand dunes block your way.")
+      (SOUTH PER DESERT-ENTER-F)
+      (NW SORRY "Sand dunes block your way.")
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-4>)
+      (ACTION DESERT-ROOM-F)>
+
+<ROOM RING-OF-DUNES
+      (LOC ROOMS)
+      (DESC "Ring of Dunes")
+      (REGION "Flatheadia")
+      (LDESC "You are surrounded by sand dunes on all sides but the east.")
+      (NORTH SORRY "Sand dunes block your way.")
+      (NE SORRY "Sand dunes block your way.")
+      (EAST TO EDGE-OF-DESERT)
+      (SE SORRY "Sand dunes block your way.")
+      (SOUTH SORRY "Sand dunes block your way.")
+      (SW SORRY "Sand dunes block your way.")
+      (WEST SORRY "Sand dunes block your way.")
+      (NW SORRY "Sand dunes block your way.")
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-3>)
+      (ICON RING-OF-DUNES-ICON)
+      (ACTION DESERT-ROOM-F)>
+
+<OBJECT CAMEL
+	(LOC RING-OF-DUNES)
+	(DESC "camel")
+	(SYNONYM CAMEL FIXTURE)
+	(ADJECTIVE MERRY-GO-ROUND)
+	(FLAGS ACTORBIT VEHBIT SEARCHBIT OPENBIT ANIMATEDBIT)
+	(RESEARCH "\"A desert animal.\"")
+	(GENERIC G-CAMEL-F)
+	(INANIMATE-DESC "merry-go-round fixture")
+	(WAND-TEXT
+"The camel, never a speed demon to begin with, becomes still. His coloring
+grows gaudier, and a few bars of honky-tonk music drift through the air.")
+	(ANIMATE-ROUTINE I-W-CAMEL)
+	(ACTION CAMEL-F)>
+
+<ROUTINE G-CAMEL-F (X Y) ;"other camel is the flattened rebus camel"
+	 ,CAMEL>
+
+<GLOBAL CAMEL-THIRSTY T>
+
+<ROUTINE CAMEL-F ("OPTIONAL" (VARG <>))
+	 <COND (<NOT <FSET? ,CAMEL ,ANIMATEDBIT>>
+	        <RFALSE>)
+	       (<EQUAL? .VARG ,M-WINNER>
+		<COND (<VERB? WALK>
+		       <COND (<IN? ,PROTAGONIST ,CAMEL>
+			      <SETG WINNER ,PROTAGONIST>
+			      <DO-WALK ,PRSO>
+			      <SETG WINNER ,CAMEL>
+			      <RTRUE>)
+			     (T
+			      <TELL
+"Perhaps if you were ON the camel..." CR>)>)
+		      (<AND <VERB? DRINK>
+			    <PRSO? ,WATER ,LAKE-FLATHEAD>
+			    <EQUAL? ,HERE ,SOUTH-SHORE ,EAST-SHORE>>
+		       <TELL
+"You can lead a camel to water, but you can't make him drink." CR>)
+		      (<PROB 33>
+		       <TELL"\"Snort.\"" CR>)
+		      (<PROB 50>
+		       <TELL "\"Grunt.\"" CR>)
+		      (T
+		       <TELL "\"Groan.\"" CR>)>
+		<STOP>)
+	       (.VARG
+		<RFALSE>)
+	       (<AND <VERB? TOUCH>
+		     <EQUAL? ,P-PRSA-WORD ,W?PAT ,W?PET>>
+		<TELL "The camel emits an (almost) endearing bray." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "The camel looks ">
+		<COND (,CAMEL-THIRSTY
+		       <TELL "thirsty">)
+		      (T
+		       <TELL "sated">)>
+		<TELL ,PERIOD-CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "Never look a gift camel in the mouth." CR>)>>
+
+<ROUTINE I-W-CAMEL ()
+	 <COND (,TIME-STOPPED
+		<QUEUE I-W-CAMEL 3>
+		<RFALSE>)>
+	 <FSET ,CAMEL ,ANIMATEDBIT>
+	 <FSET ,CAMEL ,ACTORBIT>
+	 <COND (<VISIBLE? ,CAMEL>
+		<RETURN-FROM-MAP>
+		<TELL
+"   The camel's garish colors fade once again to the color of sand. His tail
+begins swishing around, and he emits a forlorn bray." CR>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE DESERT-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RETURN ,G-U-DESERT>)
+	       (<AND <IN? ,PROTAGONIST ,CAMEL>
+		     ,CAMEL-THIRSTY>
+		<RETURN-FROM-MAP>
+		<TELL
+"The camel takes one look at the vast desert, gives a dry croak,
+and refuses to budge." CR>
+		<RFALSE>)
+	       (T
+		<COND (<IN? ,PROTAGONIST ,CAMEL>
+		       <SETG CAMEL-THIRSTY T>)>
+		,G-U-DESERT)>>
+
+<ROOM G-U-DESERT
+      (LOC ROOMS)
+      (DESC "Great Underground Desert")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.")
+      (NORTH TO EDGE-OF-DESERT)
+      (NE SORRY "Sand dunes block your way.")
+      (EAST SORRY "Sand dunes block your way.")
+      (SE SORRY "Sand dunes block your way.")
+      (SOUTH TO CACTUS-PATCH)
+      (SW TO WINDBLOWN-SANDS)
+      (WEST SORRY "Sand dunes block your way.")
+      (NW SORRY "Sand dunes block your way.")
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (SYNONYM DESERT)
+      (ADJECTIVE GREAT UNDERGROUND)
+      (RESEARCH
+"\"One of the many awe-inspiring features of Dimwit's castle in Flatheadia.\"")
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>)
+      (ACTION DESERT-ROOM-F)>
+
+<ROOM WINDBLOWN-SANDS
+      (LOC ROOMS)
+      (DESC "Windblown Sands")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.")
+      (NORTH SORRY "Sand dunes block your way.")
+      (NE TO G-U-DESERT)
+      (EAST TO CACTUS-PATCH)
+      (SE TO DESERT-PLAIN)
+      (SOUTH SORRY "Sand dunes block your way.")
+      (SW SORRY "Sand dunes block your way.")
+      (WEST SORRY "Sand dunes block your way.")
+      (NW SORRY "Sand dunes block your way.")
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-5>)
+      (ACTION DESERT-ROOM-F)>
+
+<ROOM CACTUS-PATCH
+      (LOC ROOMS)
+      (DESC "Cactus Patch")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.")
+      (NORTH TO G-U-DESERT)
+      (NE SORRY "Sand dunes block your way.")
+      (EAST SORRY "Sand dunes block your way.")
+      (SE SORRY "Sand dunes block your way.")
+      (SOUTH SORRY "Sand dunes block your way.")
+      (SW SORRY "Sand dunes block your way.")
+      (WEST TO WINDBLOWN-SANDS)
+      (NW SORRY "Sand dunes block your way.")
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)
+      (ICON CACTUS-PATCH-ICON)
+      (ACTION DESERT-ROOM-F)>
+
+<OBJECT CACTI
+	(LOC CACTUS-PATCH)
+	(DESC "cactus")
+	(SYNONYM CACTUS CACTI)
+	(FLAGS NDESCBIT PLANTBIT)
+	(ACTION CACTI-F)>
+
+<ROUTINE CACTI-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "All the cacti look particularly prickly." CR>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"The cacti, in parched voices, are exchanging wry witticisms. It seems
+that all cacti have a very dry sense of humor." CR>)
+	       (<TOUCHING? ,CACTI>
+		<TELL "Youch! Nasty cactus pricks!" CR>)>>
+
+<ROOM DESERT-PLAIN
+      (LOC ROOMS)
+      (DESC "Desert Plain")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.")
+      (NORTH SORRY "Sand dunes block your way.")
+      (NE SORRY "Sand dunes block your way.")
+      (EAST TO TALL-DUNES)
+      (SE TO RIPPLED-SANDS)
+      (SOUTH SORRY "Sand dunes block your way.")
+      (SW SORRY "Sand dunes block your way.")
+      (WEST SORRY "Sand dunes block your way.")
+      (NW TO WINDBLOWN-SANDS)
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>)
+      (ACTION DESERT-ROOM-F)>
+
+<ROOM TALL-DUNES
+      (LOC ROOMS)
+      (DESC "Tall Dunes")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.")
+      (NORTH SORRY "Sand dunes block your way.")
+      (NE SORRY "Sand dunes block your way.")
+      (EAST SORRY "Sand dunes block your way.")
+      (SE SORRY "Sand dunes block your way.")
+      (SOUTH TO RIPPLED-SANDS)
+      (SW SORRY "Sand dunes block your way.")
+      (WEST TO DESERT-PLAIN)
+      (NW SORRY "Sand dunes block your way.")
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)
+      (ICON TALL-DUNES-ICON)
+      (ACTION DESERT-ROOM-F)>
+
+<ROOM RIPPLED-SANDS
+      (LOC ROOMS)
+      (DESC "Rippled Sands")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in the midst of a searingly hot desert. Trails snake amongst
+the dunes in many directions.")
+      (NORTH TO TALL-DUNES)
+      (NE TO OASIS)
+      (EAST SORRY "Sand dunes block your way.")
+      (SE SORRY "Sand dunes block your way.")
+      (SOUTH SORRY "Sand dunes block your way.")
+      (SW SORRY "Sand dunes block your way.")
+      (WEST SORRY "Sand dunes block your way.")
+      (NW TO DESERT-PLAIN)
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-7>)
+      (ACTION DESERT-ROOM-F)>
+
+<GLOBAL DESERT-DEATH 0>
+
+<ROUTINE DESERT-ROOM-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <IN? ,PROTAGONIST ,CAMEL>>>
+		<SETG DESERT-DEATH <+ ,DESERT-DEATH 1>>
+		<QUEUE I-DESERT-RESET -1>
+		<RETURN-FROM-MAP>
+		<TELL
+"You trudge along beneath the searing gaze of an artificial desert sun">
+		<COND (<EQUAL? ,DESERT-DEATH 4>
+		       <TELL ". Wavering dizziness threatens your every step">)
+		      (<EQUAL? ,DESERT-DEATH 3>
+		       <TELL ". You won't last much longer in this dry heat">)>
+		<TELL ,ELLIPSIS>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <EQUAL? ,DESERT-DEATH 5>>
+		<RETURN-FROM-MAP>
+		<JIGS-UP
+"   As with so many unprepared travellers before you, you succumb to the
+merciless justice of the desert.">)>>
+
+<ROUTINE I-DESERT-RESET ()
+	 <COND (<NOT <FSET? ,HERE ,DESERTBIT>>
+		<SETG DESERT-DEATH 0>
+		<DEQUEUE I-DESERT-RESET>)>
+	 <RFALSE>>
+
+<ROOM OASIS
+      (LOC ROOMS)
+      (DESC "Great Underground Oasis")
+      (REGION "Flatheadia")
+      (SW TO RIPPLED-SANDS)
+      (FLAGS RLANDBIT ONBIT DESERTBIT UNDERGROUNDBIT)
+      (GLOBAL G-U-DESERT)
+      (VALUE 8)
+      (MAP-LOC <PTABLE DESERT-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>)
+      (ICON G-U-OASIS-ICON)
+      (ACTION CAMEL-DRINK-ROOM-F)>
+
+<OBJECT OASIS-OBJECT
+	(LOC OASIS)
+	(DESC "oasis")
+	(SYNONYM OASIS POOL SPRING)
+	(ADJECTIVE GREAT UNDERGROUND INCREDIBLY CLEAR COLD)
+	(FLAGS VOWELBIT NDESCBIT WATERBIT)>
+
+<ROOM PHIL-HALL
+      (LOC ROOMS)
+      (DESC "Frobozz Philharmonic Hall")
+      (REGION "Flatheadia")
+      (NORTH PER FR-BASEMENT-ENTER-F)
+      (SOUTH TO NORTH-SHORE)
+      (EAST TO THEATRE)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM HALL ORCHESTRA)
+      (ADJECTIVE FROBOZZ PHILHARMONIC)
+      (RESEARCH
+"\"Frobozz Philharmonic Hall is the home of the renowned Frobozz Philharmonic
+Orchestra.\"")
+      (GLOBAL FR-BLDG)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-4>)
+      (ACTION PHIL-HALL-F)
+      (THINGS LONE SPOTLIGHT SPOTLIGHT-PS
+       	      <> SHADOW PHIL-SHADOW-PS)>
+
+<ROUTINE PHIL-HALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This was the visually impressive but acoustically abysmal home of the royal
+orchestra, but the musicians (like everyone else) have fled the eastlands.
+Uncountable rows of velvet-covered seats extend into the shadows beyond your
+light. Gilt-trimmed balconies hang above the huge wooden stage. ">
+		<COND (<IN? ,CONDUCTOR-STAND ,HERE> ;"thanks to pigeon/perch"
+		       <TELL
+"A lone spotlight illuminates the conductor's stand. ">)>
+		<TELL "Passages lead east, north and south.">)>>
+
+<ROUTINE PHIL-SHADOW-PS ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "Like most shadows, a little creepy." CR>)>>
+
+<ROUTINE SPOTLIGHT-PS ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <IN? ,CONDUCTOR-STAND ,HERE> ;"thanks to pigeon/perch">
+		<TELL
+"The spotlight bathes the conductor's stand in a circle of light." CR>)
+	       (<VERB? ENTER>
+		<COND (<IN? ,PROTAGONIST ,CONDUCTOR-STAND>
+		       <TELL ,LOOK-AROUND>)
+		      (<IN? ,CONDUCTOR-STAND ,HERE>
+		       <PERFORM ,V?ENTER ,CONDUCTOR-STAND>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"You stand in the center of the circle of light, to little effect." CR>)>)>>
+
+<OBJECT CONDUCTOR-STAND
+	(LOC PHIL-HALL)
+	(DESC "conductor's stand")
+	(SYNONYM STAND PLATFORM)
+	(ADJECTIVE CONDUCTOR RECTANGULAR)
+	(CAPACITY 50)
+	(FLAGS NDESCBIT VEHBIT CONTBIT OPENBIT SURFACEBIT SEARCHBIT)
+	(ACTION CONDUCTOR-STAND-F)>
+
+<ROUTINE CONDUCTOR-STAND-F ("OPTIONAL" (OARG <>))
+	<COND (.OARG
+	       <RFALSE>)
+	      (<AND <VERB? ENTER STAND-ON>
+		    <NOT ,TIME-STOPPED>>
+	       <TELL "The " D ,CONDUCTOR-STAND " plunges ">
+	       <COND (<EQUAL? ,HERE ,CONDUCTOR-PIT>
+		      <TELL "up">)
+		     (T
+		      <TELL "down">)>
+	       <TELL "ward, and you along with it" ,ELLIPSIS>
+	       <MOVE ,CONDUCTOR-STAND
+		     <COND (<EQUAL? ,HERE ,CONDUCTOR-PIT>
+			    <FSET ,CONDUCTOR-STAND ,NDESCBIT>
+			    ,PHIL-HALL)
+			   (T
+			    <FCLEAR ,CONDUCTOR-STAND ,NDESCBIT>
+			    ,CONDUCTOR-PIT)>>
+	       <GOTO ,CONDUCTOR-STAND>)
+	      (<VERB? EXAMINE>
+	       <TELL "The stand is a rectangular platform about a foot high.">
+	       <COND (<FIRST? ,CONDUCTOR-STAND>
+		      <TELL " ">
+		      <RFALSE>)
+		     (T
+		      <CRLF>)>)>>
+
+<ROOM CONDUCTOR-PIT
+      (LOC ROOMS)
+      (DESC "Conductor's Pit")
+      (REGION "Flatheadia")
+      (LDESC
+"You are in a tiny space beneath the stage. There are no visible exits.")
+      (OUT SORRY "There are no visible exits.")
+      (UP SORRY "There are no visible exits.")
+      (FLAGS RLANDBIT)
+      (SYNONYM PIT)
+      (ADJECTIVE CONDUCTOR)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-3>)
+      (ACTION CONDUCTOR-PIT-F)>
+
+<ROUTINE CONDUCTOR-PIT-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <IN? ,CONDUCTOR-STAND ,CONDUCTOR-PIT>>>
+		;"if you pigeon your way into the pit"
+		<FSET ,VIOLIN ,TOUCHBIT>)>>
+
+<OBJECT VIOLIN
+	(LOC CONDUCTOR-PIT)
+	(DESC "fancy violin")
+	(FDESC
+"Sitting by the edge of the stand is a beautiful, handmade violin; possibly
+a Stradivarius.")
+	(SYNONYM STRADIVARIUS VIOLIN)
+	(ADJECTIVE FANCY BEAUTIFUL HANDMADE STRADIVARIUS)
+	(FLAGS TAKEBIT BURNBIT MAGICBIT)
+	(SIZE 10)
+	(VALUE 12)
+	(ACTION VIOLIN-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE VIOLIN-F ()
+	 <COND (<VERB? PLAY>
+	        <TELL
+"An amazingly offensive noise issues from the violin." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"This is a beautiful instrument which, in the right hands, would
+certainly produce magnificent music." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROOM THEATRE
+      (LOC ROOMS)
+      (DESC "Theatre")
+      (REGION "Flatheadia")
+      (LDESC
+"This twenty-thousand-seat theatre was renowned for its terrible acoustics,
+although Dimwit always claimed he could \"hear things great\" from his box
+in the front of the theatre. Exits lead west and southwest.")
+      (WEST TO PHIL-HALL)
+      (SW TO NORTH-SHORE)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM THEATRE THEATER)
+      (MAP-LOC <PTABLE LAKE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>)
+      (THINGS DIMWIT\'S BOX DIMWIT-BOX-PS)>
+
+<ROUTINE DIMWIT-BOX-PS ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "Plush. Very plush." CR>)
+	       (<VERB? SEARCH LOOK-INSIDE>
+		<PERFORM ,V?SEARCH ,GLOBAL-HERE>
+		<RTRUE>)
+	       (<VERB? PUT>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<VERB? ENTER CLIMB-ON>
+		<TELL "Why bother? No show tonight." CR>)>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/library.zabstr b/library.zabstr
new file mode 100644
index 0000000..840ce20
--- /dev/null
+++ b/library.zabstr
@@ -0,0 +1,281 @@
+
+<INCLUDE "PDEFS"> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM LIBRARY (LOC ROOMS) (REGION "Flatheadia") (DESC "Library") (LDESC
+"This dust-filled chamber once contained copies of every book ever written,
+but all of them have been taken by the fleeing populace as reading material
+for their long journeys to safe havens. The only exit is south.") (SOUTH TO
+EAST-WING) (OUT TO EAST-WING) (FLAGS RLANDBIT ONBIT) (SYNONYM LIBRARY) (MAP-LOC
+<PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>) (ICON LIBRARY-ICON) (ACTION
+LIBRARY-F) (THINGS <> (ANSWER RIDDLE)
+"\"Nice try, but no help here! (signed) The Jester.\"" FROBOZZCO (FROBOZZCO
+INTERNATIONAL) "\"FrobozzCo International is a vast conglomerate of thousands upon thousands
+of companies. It can trace its origin to the Frobozz Magic Cave Company, which
+was formed at the behest of King Duncanthraz in 668 GUE. Headquartered in the
+400-story FrobozzCo Building in Flatheadia, FrobozzCo's corporate motto is
+'You name it, we do it!'\"" (GREAT UNDERGROUND) (HIGHWAY TOLL)
+"\"The Great Underground Highway is a system of toll roads stretching
+thoughout both the eastland and westland provinces.\"" <> SQUID
+"\"A bottom-dwelling aquatic creature.\"" <> HELLHOUND
+"\"When you spot a hellhound, run in the other direction as fast as you can!
+Hellhounds are fast, fierce, and capable of devouring a human twelve times
+their size in three-and-a-half seconds. They normally inhabit burnt-out or
+enchanted woods and rarely venture beyond their turf, even in pursuit of
+prey.\"" <> SNARFEM
+"\"Snarfem, a two-player game of removing pebbles, originated in
+Mithicus and comes from an ancient Mithican word meaning 'to collect
+pebbles or small stones.'\"" <> FISHA
+"\"Fisha is a small wand producer in Foozle, specializing in Wands of
+Inanimation. Their wands tend to have a very limited life.\"" (BOZBO MUMBO
+ZILBO) (BOZBO MUMBO ZILBO II III IV)
+"\"One of the kings of the Entharion Dynasty.\"" <> (BELWIT MUMBERTHRAX PHLOID)
+"\"One of the kings of the Flathead Dynasty.\"" <> (ESTUARY FROBUARY ARCH MAGE
+JAM JELLY AUGUR SUSPENDUR OTTOBUR MUMBERBUR DISMEMBUR)
+"\"A month of the year.\"" <> (EASTLAND EASTLANDS)
+"\"The eastlands comprise those provinces which lie on the eastern
+shore of the Great Sea, such as Flatheadia and the Fublio Valley.\"" <> (
+WESTLAND WESTLANDS)
+"\"The westlands comprise those provinces which lie on the western
+shore of the Great Sea, such as Borphee, Gurth and Frobozz.\"" MITHICAN
+CHAMELEON "\"A Mithican chameleon skin's is said to be able to imitate any color
+the eye can see... and more.\"" CURSE (CURSE DAY)
+"\"Curse Day is the anniversary of the death of Lord Dimwit Flathead the
+Excessive. Some aver that, on that day in 779 GUE, a great wizard cast a
+mighty Curse, and that on the 94th anniversary of that day the Empire will
+collapse. Historians today dismiss this as a silly schoolyard legend.\"" <> (
+ZORKMID ZORKMIDS)
+"\"The Zorkmid is the unit of currency of the Great Underground Empire.\""
+ENCHANTER (ENCHANTER GUILD)
+"\"The Enchanter's Guild has several thousand members scattered in chapters
+throughout the land. Amongst the more influential chapters are the ones
+located in Thriff and Accardi.\"" FROBLO PARK
+"\"Froblo Park was Thomas Alva Edison's laboratory.\"" BOSWELL BARWELL
+"\"The official biographer of the Flatheads, Boswell Barwell is the author
+of such notable works as THE LIVES OF THE TWELVE FLATHEADS and MUMBERTHRAX:
+THE MAN BEHIND THE LEGEND.\"" <> MINX "\"An irrestibly cuddly animal.\"" <>
+WINDCAT "\"The fleetest land animal.\"" ENDLESS FIRE
+"\"The Endless Fire destroyed Mareilon in 773 GUE.\"" <> ZORK
+"There's no entry for \"Zork.\" Not surprising. This is just the prequel;
+it hasn't been written yet!" <> DAVMAR
+"\"Davmar was the great Thaumaturgist who discovered that the power of
+magic spells could be stored on paper scrolls.\"" <> PHEEBOR
+"\"Along with Borphee, Pheebor was one of the great city-states that lay at
+the convergence of the Bor River and the Phee River. Borphee defeated Pheebor
+in a massive battle that took place long before the age of Entharion.\"" <> (
+BLOIT BLOITS) "\"The bloit is the Empire's most common unit for measuring distances. The
+bloit is defined as the distance the king's favorite pet runs in an hour.
+As the discerning reader can tell from this definition, the length of the
+bloit changes dramatically from ruler to ruler. (Rarely more dramatically
+than in 619 GUE, when Bozbo IV -- who adored his windcat -- died, and was
+succeeded by Mumbo II -- who was equally enamored of his very, very ancient
+turtle). Land is usually measured in square bloits.\"" FUBLIO VALLEY
+"\"Once a richly verdant area at the southern tip of the Flathead Mountains,
+the valley was defoliated in the late eighth century. For some odd reason, it
+has always been a favorite spot for wizards who enjoy a hermitic lifestyle.\""
+<> KORBOZ "\"A moderately famous hermit enchanter.\"" <> GUMBOZ
+"\"A very obscure hermit enchanter.\"" (FLOOD CONTROL DAM FCD) (\#3 FCD\#3 DAM)
+"The entry describes Flood Control Dam #3 as a great engineering feat of the
+late 8th century, made possible by a grant of 37 million zorkmids from Dimwit
+Flathead the Excessive. The dam forms a huge reservoir, and its spillover is
+the source of the Frigid River. The article goes into construction techniques,
+the dam's appeal as a tourist attraction, and the financial impact of the
+dam's cost on the economy of the GUE." DIABLO MASSACRE
+"\"The Diablo Massacre occured at the Zorbel Pass in 666 GUE when the invading
+armies of King Duncanthrax met a native militia of trollish warriors. The
+invaders were outnumbered but well-armed; the natives were equipped only with
+wooden clubs and a large piece of very strong garlic. Military historians
+consider the routing of the native militia as a key moment in the conquering
+of the eastlands.\"" ZORBIUS BLATTUS
+"\"Greatest of the modern philosophers, Zorbius Blattus is a popular debunker
+of Brogmoidism and other strange religious sects.\"" <> (SHADOWLAND LAND SHADOW
+) "\"The Shadowland (a.k.a. the Land of Shadow) is a barren area of rolling
+hills, south of Flatheadia and deep underground. It lies near the point where
+the Flathead Ocean's eastern shore dips underground.\"" ROYAL MUSEUM
+"\"The Royal Museum, built by Lord Dimwit Flathead in 777 GUE, houses
+the crown jewels, a technology display, and a famous royal puzzle-maze.\""
+ROCKVILLE (ESTATES CONSTRUCTION)
+"\"Rockville Estates is an upscale housing complex being planned by the
+Frobozz Magic Construction Company for a piece of prime cavern space on
+the Great Underground Highway near Flatheadia. It was designed by the
+renowned architect, Zylo Pickthorn.\"" ZYLO PICKTHORN
+"\"An architect known for his underground condominium complexes, Pickthorn
+is an avid enthusiast of jousting, chess, and tiddlywinks, and has been
+known to incorporate some or all of these themes into his designs.\"" MOUNT
+FOOBIA "\"Foobia is the tallest peak in the Flathead Mountains, perhaps in the entire
+world. It lies toward the southern end of the range, near the Zorbel Pass, and
+its apex is always hidden by clouds. It is believed that no one has ever
+scaled this mighty peak.\"" (STEVE STEVEN) MERETZKY
+"\"A mysterious mage who is said to live in the lands beyond the borders
+of the world.\"" <> INFOCOM
+"The entry simply reads, \"There are some things that man was not meant
+to know.\"" (FRIGID RIVER) VALLEY
+"\"The Frigid River Valley, a province of the Great Underground Empire,
+encompasses the 15,322 square bloits which form the runoff basin of the
+Frigid River.\"" POLAR GUMFFBEAST
+"\"A creature, possibly mythical, said to live in the extreme northlands
+of Quendor.\"" <> DUNCANTHRAX
+"\"Duncanthrax the Bellicose, the first king of the Flathead Dynasty, took
+the throne from Zilbo III during a palace revolt on the last day of 659 GUE.
+Duncanthrax expanded the kingdom by conquering Antharia and most of the
+eastlands. He also moved the capital from Largoneth to Egreth.\"" (EGRETH
+CASTLE) (EGRETH CASTLE)
+"\"The Castle Egreth served as the seat of royal power from the reign of
+Duncanthrax (who moved the capital from Largoneth in 660 GUE) through the
+reign of Dimwit (who moved the capital to Flatheadia in 771 GUE). Egreth was,
+and still is, reputed to be the most dangerous locale in the kingdom.\"" (
+LARGONETH CASTLE) (CASTLE LARGONETH)
+"\"The Castle Largoneth was built by Entharion the Wise back in the misty
+times at the dawn of the empire. It served as the capital of the kingdom
+until Duncanthrax constructed Egreth in 660 GUE. Largoneth still stands,
+lonely and deserted, on the coast of Frobozz.\"" FROBESIUS (FROBESIUS FUBLIUS)
+"\"Frobesius Fublius was a painter who specialized in rebuses. A mysterious
+figure, he reputedly lived near the Zorbel Pass and vanished toward the end
+of the eighth century.\"" BORPHBELLY (STEW INGREDIENTS) BORPHBELLY-TEXT <>
+FENSHIRE "\"Fenshire is a swampy region which stretches east of the Flathead Mountains
+to the edge of the world. The summer castle of the Flatheads is located
+in a remote section of Fenshire.\"" <> CHESS
+"\"An ancient game of warfare, playing on a checkered field of 64 squares.\"" <
+> CURSE "According to this article, Megaboz was a mysterious wizard who lived a
+hermit's life in the Fublio Valley. It is said he cast a Curse which will
+someday bring down the Empire, but royal spokesmen have denied all such
+rumors. Megaboz vanished in 789 GUE; some say the effort of casting the
+Curse destroyed him." <> (TREATY ZNURG)
+"\"The Treaty of Znurg, signed in 474 GUE, ended the Zucchini Wars.\"" ZUCCHINI
+(WAR WARS) "\"The Zucchini Wars, which devastated seven provinces during the fifth
+century, were finally ended by the Treaty of Znurg.\"" RAGWEED (BATTLE GULCH)
+"\"The Battle of Ragweed Gulch, fought in 789 GUE, is most notable for the
+death of Stonewall Flathead.\"" <> (BARBEL BERKNIP BARSAP)
+"\"A respected member of the Enchanters Guild.\"" GREATER BORPHEE
+"\"Borphee, a large industrial city in the westlands, is the capital of the
+Greater Borphee province.\"" <> INQUISITION
+"\"A crackpot religious sect; its followers believe that the Curse of Megaboz
+can be forestalled by executing every person in the Empire.\"" <> (GRUBBO
+GRUBBO-BY-THE-SEA ACCARDI ACCARDI-BY-THE-SEA)
+"\"A small village in the westlands.\"" <> (WISHYFOO WISHYFOOS)
+"\"The Wishyfoo, who live in the vicinity of Port Foozle, alternately tell
+the truth and tell a lie with every successive statement they make. Sometimes
+they start with a lie, sometimes with a truth, but they always alternate
+thereafter.\"" <> PREVARICON
+"\"The Prevaricons, who dwell near Port Foozle, have two interesting quirks:
+They always lie, and they feed unwelcome visitors to ravenous hellhounds.\"" <>
+(VERITASSI VERITASS)
+"\"The Veritassi, who dwell near Port Foozle, have two interesting quirks:
+They never lie, and they feed unwelcome visitors to ravenous hellhounds.\"" <>
+MIZNIA "\"A province at the southern fringe of the westlands, mostly jungle. Its
+capital is Mizniaport.\"" <> MIZNIAPORT
+"\"The capital and largest city in Miznia.\"" <> GURTH
+"\"This province, which lies to the north of Miznia and Mithicus, is chiefly
+woods and farmland. The Fields of Frotzen, in central Gurth, are known as the
+Breadbasket of Quendor. The capital of the province is Gurth City.\"" GURTH
+CITY "\"Gurth City is the capital of Gurth province.\"" <> MITHICUS
+"\"This small, mountainous province, sandwiched between Gurth and Miznia,
+is a popular vacation spot.\"" <> (FIELDS FROTZEN)
+"\"The Fields of Frotzen, fertile farmland in the heart of Gurth province,
+produces an annual bounty of grain and are freqently referred to as the
+Breadbasket of Quendor.\"" <> FESTERON "\"A small village in Antharia.\"" <>
+THRIFF "\"The strange wandering village of Thriff has, at one time or another, been
+located in most of the provinces of the westlands. Rumor has it that the
+Guildmaster of Thriff's enchanters constantly moves the town in an attempt
+to find a more benevolent climate for his terrible hayfever.\"" <> ENTHARION
+"\"Entharion the Wise united the warring city-states of Galepath and Mareilon,
+forming the kingdom of Quendor. As Quendor's first king, Entharion built the
+castle Largoneth, and ruled over a kingdom which was little more than what is
+currently the province of Frobozz. Our current calendar dates from the first
+year of Entharion's reign.\"" <> (GALEPATH MAREILON)
+"\"Galepath and Mareilon were the two ancient cities of Quendor, which were
+united by Entharion the Wise in the distant past. Mareilon was destroyed in
+773 GUE by the Endless Fire.\"" <> ANTHARIA
+"\"Antharia, the island province, is located in the middle of the Flathead
+Ocean. It is known for its shipbuilding, marble cutting, and granola mining
+industries, and is the home of Flathead Stadium. The capital is Anthar.\"" <>
+ANTHAR "\"The capital of Antharia.\"" GRANOLA (MINES RIOTS)
+"\"The granola mines in northern Antharia once supplied seemingly limitless
+quantities of granola. Since the Granola Riots of 865 GUE, the causes of
+which are well known, the output of the mines has fallen sharply.\"" FLATHEAD
+STADIUM "The entry calls Flathead Stadium \"The House that Babe Built,\" a tribute to
+Babe Flathead's popularity as a gate attraction. Located just outside Anthar,
+the stadium was supposedly large enough to hold every man, woman, and child in
+Quendor." PORT FOOZLE
+"\"Foozle, which lies several bloits west of Flatheadia, is the primary
+seaport of the Frigid River Valley, and is a common departure point for
+ships to Antharia.\"" <> BELBOZ
+"A tiny entry mentions that Belboz is the name of a young enchanter in
+the Accardi chapter of the Enchanter's Guild." ZORBEL PASS
+"\"This wide pass through the Flathead Mountains, at the southern end of
+the range, connects the Fublio and Frigid River valleys. The Zorbel Pass
+was the site of the Diablo Massacre in 666 GUE.\"" <> QUENDOR
+"\"See GREAT UNDERGROUND EMPIRE.\"" (GREAT UNDERGROUND) (EMPIRE GUE)
+"\"The kingdom of Quendor was renamed the Great Underground Empire by Lord
+Dimwit Flathead when he became ruler in 770 GUE. It encompasses all the
+lands on both sides of the Great Sea, although most of the underground
+portions of the empire are in the eastlands.\"" GREAT SEA
+"\"See FLATHEAD OCEAN.\"" ARAGAIN FALLS
+"The article calls Aragain Falls the most breathtaking and awesome waterfall
+in all the known lands. Found toward the northern part of the Frigid River,
+the falls are a popular honeymoon spot." TWELVE FLATHEADS
+"[Please see \"The Lives of the Twelve Flatheads Calendar\" that came in your
+Zork Zero package.]")> 
+<CONSTANT BORPHBELLY-TEXT
+"\"A popular lunchtime meal in the province of Fenshire, Borphbelly Stew
+is made from fox, fowl, and earthworm. Proper preparation mandates the
+simultaneous addition of the ingredients to a boiling cookpot.\""> 
+<DEFINE-ROUTINE LIBRARY-F> 
+<OBJECT ENCYCLOPEDIA (LOC LIBRARY) (DESC "Encyclopedia Frobozzica") (LDESC
+"A copy of the Encyclopedia Frobozzica is the only book still left in the
+Library, probably because it's so huge that it can't be moved except by
+a team of mules.") (SYNONYM ENCYCLOPEDIA FROBOZZICA BOOK) (ADJECTIVE LARGE
+ENCYCLOPEDIA) (FLAGS READBIT VOWELBIT) (TEXT
+"The cover reads \"Encyclopedia Frobozzica, Illustrated Edition. Copyright
+882 GUE. A publication of the Frobozz Magic Encyclopedia Company.\" It would
+take weeks to read the entire encyclopedia, but you could read about specific
+persons or things.") (ACTION ENCYCLOPEDIA-F)> 
+<GLOBAL VOLUME-USED <>> 
+<DEFINE-ROUTINE ENCYCLOPEDIA-F> 
+<OBJECT FOUR-FLIES (LOC GENERIC-OBJECTS) (DESC "it") (SYNONYM FLIES FAMATHRIA)
+(ADJECTIVE FOUR FANTASTIC INT.NUM) (OWNER FOUR-FLIES) (PICTURE FOUR-FLIES-ILL)
+(RESEARCH "The Four Fantastic Flies of Famathria, each bigger and more succulent than
+the last, is a legend fabricated by a race of toad creatures who once lived
+somewhere beyond the oceans of the world. Seafarers report that these toads
+were ugly, cantankerous, and eternally hungry.") (ACTION ENC-ENTRY-F)> 
+<OBJECT ZILBEETHA (LOC GENERIC-OBJECTS) (SYNONYM ZILBEETHA) (PICTURE
+ZILBEETHA-ILL) (RESEARCH
+"This is one of the oldest and dearest legends in the annals of Quendor.
+Zilbeetha, a beautiful maiden, somehow angered an evil mage, and was placed
+under enchantment and turned into a crystal orb on the very day that she was
+to be wed. The heartbroken groom, who is always depicted holding a fragile
+bloom, sought help from the wizard's goodly twin. The good wizard turned the
+groom to stone, that he might stay young until the day Zilbeetha was returned
+to him. The legend also has an ominous note; returning a false orb would
+result in death.") (ACTION ENC-ENTRY-F)> 
+<OBJECT BROGMOIDISM (LOC GENERIC-OBJECTS) (SYNONYM BROGMOIDISM) (PICTURE
+BROGMOIDISM-ILL) (RESEARCH
+"Brogmoidists, followers of the tenets of Brogmoidism, believe that a Great
+Brogmoid supports the world upon his shoulders. The religion, which originated
+sometime during the fourth century, is commonly ridiculed nowadays, and has
+lost most of its adherents.") (ACTION ENC-ENTRY-F)> 
+<OBJECT FLATHEADIA (LOC GENERIC-OBJECTS) (SYNONYM FLATHEADIA) (PICTURE
+FLATHEADIA-ILL) (RESEARCH
+"Flatheadia has been the capital of the Great Underground Empire since Dimwit
+built his castle there in 770 GUE. (The former seat of royal government was
+Egreth, in the Westlands.) Although still the largest population center in
+the Eastlands, Flatheadia has been in a steady decline since a Curse cast by
+Megaboz toward the end of the last century.") (ACTION ENC-ENTRY-F)> 
+<DEFINE-ROUTINE ENC-ENTRY-F> 
+<DEFINE-ROUTINE PICTURED-ENTRY> 
+<OBJECT OTHER-FLATHEADS (DESC "member of the Flathead family") (SYNONYM
+FLATHEAD) (ADJECTIVE MICHAEL WURB KING OLIVER WENDELL) (ACTION
+OTHER-FLATHEADS-F)> 
+<DEFINE-ROUTINE OTHER-FLATHEADS-F> 
+<OBJECT SAINTS (DESC "saint") (SYNONYM SAINT ST BALHU HONKO QUAKKO BOVUS WISKUS
+) (ADJECTIVE SAINT ST) (FLAGS NDESCBIT VOWELBIT) (ACTION SAINTS-F)> 
+<DEFINE-ROUTINE SAINTS-F> 
+<OBJECT WIZARD-OF-FROBOZZ (DESC "Wiazard of Frobozz") (SYNONYM WIZARD FROBOZZ)
+(OWNER WIZARD-OF-FROBOZZ) (ACTION WIZARD-OF-FROBOZZ-F)> 
+<DEFINE-ROUTINE WIZARD-OF-FROBOZZ-F> 
+<OBJECT ARMOR (LOC LIBRARY) (OWNER ARMOR) (DESC "suit of armor") (SYNONYM SUIT
+ARMOR ARMOUR) (FLAGS TRYTAKEBIT) (ACTION ARMOR-F)> 
+<GLOBAL ARMOR-TOUCH 0> 
+<DEFINE-ROUTINE ARMOR-F> 
+<OBJECT LANCE (DESC "lance") (SYNONYM LANCE) (FLAGS TAKEBIT MAGICBIT) (SIZE 10)
+(VALUE 0)> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/library.zap b/library.zap
new file mode 100644
index 0000000..0b2bd06
--- /dev/null
+++ b/library.zap
@@ -0,0 +1,166 @@
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	LIBRARY-F,RARG
+	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PSEUDO-OBJECT,PRSO,PRSI \FALSE
+	EQUAL?	PRSA,V?RESEARCH \?CCL8
+	ZERO?	LIT /?CCL8
+	EQUAL?	PRSI,FALSE-VALUE,ENCYCLOPEDIA,ROOMS \?CCL8
+	SET	'VOLUME-USED,TRUE-VALUE
+	GETP	PRSO,P?ACTION
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL8:	PUTP	PSEUDO-OBJECT,P?ACTION,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	ENCYCLOPEDIA-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The volume lies open to "
+	ZERO?	VOLUME-USED /?CCL6
+	PRINTR	"a random entry."
+?CCL6:	PRINTI	"an entry about Double Fanucci: "
+	ICALL	PERFORM,V?RESEARCH,DOUBLE-FANUCCI
+	PRINTR	"   You could probably read about all sorts of other interesting people, places, and things by looking them up in the encyclopedia."
+?CCL3:	EQUAL?	PRSA,V?RESEARCH \?CCL8
+	EQUAL?	PRSI,ENCYCLOPEDIA \?CCL8
+	PRINTR	"""The Encyclopedia Frobozzica, a publication of the Frobozz Magic Encyclopedia Company, is the finest of its kind in the known world. All entries are meticulously compiled by the Frobozz Magic Encyclopedia Research Company, the illustrations are faithfully reproduced by the Frobozz Magic Encyclopedia Illustration Company, and the facts are all double, triple, and quadruple-checked by the Frobozz Magic Encyclopedia Accuracy and Verification Company. No library should be without one!"""
+?CCL8:	EQUAL?	PRSA,V?OPEN \?CCL12
+	PRINTR	"It is."
+?CCL12:	EQUAL?	PRSA,V?CLOSE \?CCL14
+	PRINTR	"Why bother?"
+?CCL14:	EQUAL?	PRSA,V?TAKE \?CCL16
+	PRINTR	"Do you have a team of mules handy?"
+?CCL16:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	ICALL	PERFORM,V?READ,PRSO
+	RTRUE	
+
+
+	.FUNCT	ENC-ENTRY-F,?TMP1
+	EQUAL?	PRSA,V?RESEARCH \FALSE
+	EQUAL?	PRSO,FOUR-FLIES \?CND4
+	CALL	ADJ-USED?,FOUR-FLIES,W?INT.NUM
+	ZERO?	STACK /?CND4
+	EQUAL?	P-NUMBER,4 /?CND4
+	SET	'PRSO,FALSE-VALUE
+	RFALSE	
+?CND4:	GETP	PRSO,P?PICTURE >?TMP1
+	GETP	PRSO,P?RESEARCH
+	CALL	PICTURED-ENTRY,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	PICTURED-ENTRY,ENC-PIC,ENC-TEXT,NO-WAIT,?TMP1
+	CLEAR	-1
+	SCREEN	S-FULL
+	SET	'CURRENT-SPLIT,ENC-PIC-LOC
+	DISPLAY	ENC-BORDER,1,1
+	ICALL2	PICINF-PLUS-ONE,ENC-PIC-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	ENC-PIC,?TMP1,STACK
+	ICALL2	PICINF-PLUS-ONE,ENC-TXT-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	WINPOS	3,?TMP1,STACK
+	PICINF	ENC-TXT-WINDOW-SIZE,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	WINSIZE	3,?TMP1,STACK
+	WINATTR	3,15
+	SCREEN	3
+	CURSET	1,1
+	COLOR	1,-1
+	ZERO?	ENC-TEXT /?CCL4
+	PRINT	ENC-TEXT
+	JUMP	?CND2
+?CCL4:	ICALL1	J-ENTRY
+?CND2:	COLOR	1,1
+	ZERO?	NO-WAIT \TRUE
+	ZERO?	DEMO-VERSION? /?CCL9
+	ICALL2	INPUT-DEMO,1
+	JUMP	?CND7
+?CCL9:	INPUT	1
+?CND7:	ICALL1	MOUSE-INPUT?
+	SET	'CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC
+	SCREEN	S-TEXT
+	ICALL1	V-$REFRESH
+	RTRUE	
+
+
+	.FUNCT	OTHER-FLATHEADS-F
+	EQUAL?	PRSA,V?RESEARCH \FALSE
+	CALL	ADJ-USED?,OTHER-FLATHEADS,W?MICHAEL
+	ZERO?	STACK /?CCL6
+	PRINTR	"""A popular musician, formerly of the Flathead Five."""
+?CCL6:	CALL	ADJ-USED?,OTHER-FLATHEADS,W?KING,W?WURB
+	ZERO?	STACK /?CCL8
+	PRINTR	"""Wurb Flathead, son of Idwit Oogle Flathead, is the current ruler of the Great Underground Empire. The twelfth king in the Flathead dynasty, Wurb assumed the throne in 881 GUE."""
+?CCL8:	CALL	ADJ-USED?,OTHER-FLATHEADS,W?OLIVER,W?WENDELL
+	ZERO?	STACK /?CCL10
+	PRINTR	"""A noted judge."""
+?CCL10:	ICALL	PERFORM,V?RESEARCH,BABE-PORTRAIT
+	RTRUE	
+
+
+	.FUNCT	SAINTS-F
+	EQUAL?	PRSA,V?RESEARCH \FALSE
+	PRINTI	"""The patron saint of "
+	CALL	NOUN-USED?,SAINTS,W?BALHU
+	ZERO?	STACK /?CCL6
+	PRINTI	"circus performers"
+	JUMP	?CND4
+?CCL6:	CALL	NOUN-USED?,SAINTS,W?HONKO
+	ZERO?	STACK /?CCL8
+	PRINTI	"people who play very odd musical instruments"
+	JUMP	?CND4
+?CCL8:	CALL	NOUN-USED?,SAINTS,W?QUAKKO
+	ZERO?	STACK /?CCL10
+	PRINTI	"people who aren't sure of things"
+	JUMP	?CND4
+?CCL10:	CALL	NOUN-USED?,SAINTS,W?WISKUS
+	ZERO?	STACK /?CCL12
+	PRINTI	"all those who raise meat animals"
+	JUMP	?CND4
+?CCL12:	PRINTI	"those who design fine slate patios"
+?CND4:	PRINTR	"."""
+
+
+	.FUNCT	WIZARD-OF-FROBOZZ-F
+	EQUAL?	PRSA,V?RESEARCH \FALSE
+	CALL2	GET-NP,WIZARD-OF-FROBOZZ
+	GET	STACK,4
+	ZERO?	STACK /?CCL6
+	PRINTR	"""A former member of the Circle of Enchanters, the Wizard of Frobozz was removed for forgetfulness bordering on senility. Among his other failings, he developed an inability to cast any spells other than those beginning with the letter 'F'. He was banished to an obscure corner of the Empire after he accidentally turned the entire West Wing of Dimwit Flathead's castle into a mountain of Fudge."""
+?CCL6:	PRINTR	"""An ancient province in the northern part of the westlands, Frobozz is the site of many historic sites such as Galepath, Mareilon, and the Castle Largoneth."""
+
+
+	.FUNCT	ARMOR-F
+	EQUAL?	PRSA,V?TOUCH \?CCL3
+	INC	'ARMOR-TOUCH
+	EQUAL?	ARMOR-TOUCH,3 \?CCL6
+	IN?	SCROLL,LOCAL-GLOBALS \?CND7
+	REMOVE	SCROLL
+?CND7:	MOVE	LANCE,HERE
+	PRINTI	"The armor opens and a lance falls out!"
+	CRLF	
+	CALL2	INC-SCORE,12
+	RSTACK	
+?CCL6:	EQUAL?	ARMOR-TOUCH,1,2 \FALSE
+	PRINTI	"It "
+	EQUAL?	ARMOR-TOUCH,2 \?CND11
+	PRINTI	"still "
+?CND11:	PRINTR	"feels like metal."
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL14
+	PRINTR	"The armor is permanently mounted as part of the library decor."
+?CCL14:	EQUAL?	PRSA,V?ENTER \?CCL16
+	PRINTR	"The armor was made for a much shorter person -- or at least a person with a much flatter head."
+?CCL16:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"This battle-scarred armor is the sort that was worn around the time of the Battle of Ragweed Gulch."
+
+	.ENDSEG
+
+	.ENDI
diff --git a/library.zil b/library.zil
new file mode 100644
index 0000000..f013e07
--- /dev/null
+++ b/library.zil
@@ -0,0 +1,585 @@
+"LIBRARY for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<INCLUDE "PDEFS">
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM LIBRARY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Library")
+      (LDESC
+"This dust-filled chamber once contained copies of every book ever written,
+but all of them have been taken by the fleeing populace as reading material
+for their long journeys to safe havens. The only exit is south.")
+      (SOUTH TO EAST-WING)
+      (OUT TO EAST-WING)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM LIBRARY)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>)
+      (ICON LIBRARY-ICON)
+      (ACTION LIBRARY-F)
+      (THINGS
+ <> ( ANSWER RIDDLE)
+"\"Nice try, but no help here! (signed) The Jester.\""
+ FROBOZZCO ( FROBOZZCO INTERNATIONAL)
+"\"FrobozzCo International is a vast conglomerate of thousands upon thousands
+of companies. It can trace its origin to the Frobozz Magic Cave Company, which
+was formed at the behest of King Duncanthraz in 668 GUE. Headquartered in the
+400-story FrobozzCo Building in Flatheadia, FrobozzCo's corporate motto is
+'You name it, we do it!'\""
+( GREAT UNDERGROUND) ( HIGHWAY TOLL)
+"\"The Great Underground Highway is a system of toll roads stretching
+thoughout both the eastland and westland provinces.\""
+<> SQUID
+"\"A bottom-dwelling aquatic creature.\""
+<> HELLHOUND
+"\"When you spot a hellhound, run in the other direction as fast as you can!
+Hellhounds are fast, fierce, and capable of devouring a human twelve times
+their size in three-and-a-half seconds. They normally inhabit burnt-out or
+enchanted woods and rarely venture beyond their turf, even in pursuit of
+prey.\""
+<> SNARFEM
+"\"Snarfem, a two-player game of removing pebbles, originated in
+Mithicus and comes from an ancient Mithican word meaning 'to collect
+pebbles or small stones.'\""
+<> FISHA
+"\"Fisha is a small wand producer in Foozle, specializing in Wands of
+Inanimation. Their wands tend to have a very limited life.\""
+( BOZBO MUMBO ZILBO) ( BOZBO MUMBO ZILBO II III IV)
+"\"One of the kings of the Entharion Dynasty.\""
+<> ( BELWIT MUMBERTHRAX PHLOID)
+"\"One of the kings of the Flathead Dynasty.\""
+<> ( ESTUARY FROBUARY ARCH ;ORACLE MAGE JAM JELLY AUGUR SUSPENDUR
+     OTTOBUR MUMBERBUR DISMEMBUR)
+"\"A month of the year.\""
+<> ( EASTLAND EASTLANDS)
+"\"The eastlands comprise those provinces which lie on the eastern
+shore of the Great Sea, such as Flatheadia and the Fublio Valley.\""
+<> ( WESTLAND WESTLANDS)
+"\"The westlands comprise those provinces which lie on the western
+shore of the Great Sea, such as Borphee, Gurth and Frobozz.\""
+ MITHICAN CHAMELEON
+"\"A Mithican chameleon skin's is said to be able to imitate any color
+the eye can see... and more.\""
+ CURSE ( CURSE DAY)
+"\"Curse Day is the anniversary of the death of Lord Dimwit Flathead the
+Excessive. Some aver that, on that day in 779 GUE, a great wizard cast a
+mighty Curse, and that on the 94th anniversary of that day the Empire will
+collapse. Historians today dismiss this as a silly schoolyard legend.\""
+<> ( ZORKMID ZORKMIDS)
+"\"The Zorkmid is the unit of currency of the Great Underground Empire.\""
+ ENCHANTER ( ENCHANTER GUILD)
+"\"The Enchanter's Guild has several thousand members scattered in chapters
+throughout the land. Amongst the more influential chapters are the ones
+located in Thriff and Accardi.\""
+ FROBLO PARK
+"\"Froblo Park was Thomas Alva Edison's laboratory.\""
+ BOSWELL BARWELL
+"\"The official biographer of the Flatheads, Boswell Barwell is the author
+of such notable works as THE LIVES OF THE TWELVE FLATHEADS and MUMBERTHRAX:
+THE MAN BEHIND THE LEGEND.\""
+<> MINX
+"\"An irrestibly cuddly animal.\""
+<> WINDCAT
+"\"The fleetest land animal.\""
+ ENDLESS FIRE
+"\"The Endless Fire destroyed Mareilon in 773 GUE.\""
+<> ZORK
+"There's no entry for \"Zork.\" Not surprising. This is just the prequel;
+it hasn't been written yet!"
+<> DAVMAR
+"\"Davmar was the great Thaumaturgist who discovered that the power of
+magic spells could be stored on paper scrolls.\""
+<> PHEEBOR
+"\"Along with Borphee, Pheebor was one of the great city-states that lay at
+the convergence of the Bor River and the Phee River. Borphee defeated Pheebor
+in a massive battle that took place long before the age of Entharion.\""
+<> ( BLOIT BLOITS)
+"\"The bloit is the Empire's most common unit for measuring distances. The
+bloit is defined as the distance the king's favorite pet runs in an hour.
+As the discerning reader can tell from this definition, the length of the
+bloit changes dramatically from ruler to ruler. (Rarely more dramatically
+than in 619 GUE, when Bozbo IV -- who adored his windcat -- died, and was
+succeeded by Mumbo II -- who was equally enamored of his very, very ancient
+turtle). Land is usually measured in square bloits.\""
+ FUBLIO VALLEY
+"\"Once a richly verdant area at the southern tip of the Flathead Mountains,
+the valley was defoliated in the late eighth century. For some odd reason, it
+has always been a favorite spot for wizards who enjoy a hermitic lifestyle.\""
+<> KORBOZ
+"\"A moderately famous hermit enchanter.\""
+<> GUMBOZ
+"\"A very obscure hermit enchanter.\""
+( FLOOD CONTROL DAM FCD) ( \#3 FCD\#3 DAM)
+"The entry describes Flood Control Dam #3 as a great engineering feat of the
+late 8th century, made possible by a grant of 37 million zorkmids from Dimwit
+Flathead the Excessive. The dam forms a huge reservoir, and its spillover is
+the source of the Frigid River. The article goes into construction techniques,
+the dam's appeal as a tourist attraction, and the financial impact of the
+dam's cost on the economy of the GUE."
+ DIABLO MASSACRE
+"\"The Diablo Massacre occured at the Zorbel Pass in 666 GUE when the invading
+armies of King Duncanthrax met a native militia of trollish warriors. The
+invaders were outnumbered but well-armed; the natives were equipped only with
+wooden clubs and a large piece of very strong garlic. Military historians
+consider the routing of the native militia as a key moment in the conquering
+of the eastlands.\""
+ ZORBIUS BLATTUS
+"\"Greatest of the modern philosophers, Zorbius Blattus is a popular debunker
+of Brogmoidism and other strange religious sects.\""
+<> ( SHADOWLAND LAND SHADOW)
+"\"The Shadowland (a.k.a. the Land of Shadow) is a barren area of rolling
+hills, south of Flatheadia and deep underground. It lies near the point where
+the Flathead Ocean's eastern shore dips underground.\""
+ ROYAL MUSEUM
+"\"The Royal Museum, built by Lord Dimwit Flathead in 777 GUE, houses
+the crown jewels, a technology display, and a famous royal puzzle-maze.\""
+ ROCKVILLE ( ESTATES CONSTRUCTION)
+"\"Rockville Estates is an upscale housing complex being planned by the
+Frobozz Magic Construction Company for a piece of prime cavern space on
+the Great Underground Highway near Flatheadia. It was designed by the
+renowned architect, Zylo Pickthorn.\""
+ ZYLO PICKTHORN
+"\"An architect known for his underground condominium complexes, Pickthorn
+is an avid enthusiast of jousting, chess, and tiddlywinks, and has been
+known to incorporate some or all of these themes into his designs.\""
+ MOUNT FOOBIA
+"\"Foobia is the tallest peak in the Flathead Mountains, perhaps in the entire
+world. It lies toward the southern end of the range, near the Zorbel Pass, and
+its apex is always hidden by clouds. It is believed that no one has ever
+scaled this mighty peak.\""
+ ( STEVE STEVEN) MERETZKY
+"\"A mysterious mage who is said to live in the lands beyond the borders
+of the world.\""
+<> INFOCOM
+"The entry simply reads, \"There are some things that man was not meant
+to know.\""
+( FRIGID RIVER) VALLEY
+"\"The Frigid River Valley, a province of the Great Underground Empire,
+encompasses the 15,322 square bloits which form the runoff basin of the
+Frigid River.\""
+ POLAR GUMFFBEAST
+"\"A creature, possibly mythical, said to live in the extreme northlands
+of Quendor.\""
+<> DUNCANTHRAX
+"\"Duncanthrax the Bellicose, the first king of the Flathead Dynasty, took
+the throne from Zilbo III during a palace revolt on the last day of 659 GUE.
+Duncanthrax expanded the kingdom by conquering Antharia and most of the
+eastlands. He also moved the capital from Largoneth to Egreth.\""
+( EGRETH CASTLE) ( EGRETH CASTLE)
+"\"The Castle Egreth served as the seat of royal power from the reign of
+Duncanthrax (who moved the capital from Largoneth in 660 GUE) through the
+reign of Dimwit (who moved the capital to Flatheadia in 771 GUE). Egreth was,
+and still is, reputed to be the most dangerous locale in the kingdom.\""
+( LARGONETH CASTLE) ( CASTLE LARGONETH)
+"\"The Castle Largoneth was built by Entharion the Wise back in the misty
+times at the dawn of the empire. It served as the capital of the kingdom
+until Duncanthrax constructed Egreth in 660 GUE. Largoneth still stands,
+lonely and deserted, on the coast of Frobozz.\""
+ FROBESIUS ( FROBESIUS FUBLIUS)
+"\"Frobesius Fublius was a painter who specialized in rebuses. A mysterious
+figure, he reputedly lived near the Zorbel Pass and vanished toward the end
+of the eighth century.\""
+ BORPHBELLY ( STEW INGREDIENTS)
+BORPHBELLY-TEXT
+<> FENSHIRE
+"\"Fenshire is a swampy region which stretches east of the Flathead Mountains
+to the edge of the world. The summer castle of the Flatheads is located
+in a remote section of Fenshire.\""
+<> CHESS
+"\"An ancient game of warfare, playing on a checkered field of 64 squares.\""
+<> CURSE
+"According to this article, Megaboz was a mysterious wizard who lived a
+hermit's life in the Fublio Valley. It is said he cast a Curse which will
+someday bring down the Empire, but royal spokesmen have denied all such
+rumors. Megaboz vanished in 789 GUE; some say the effort of casting the
+Curse destroyed him."
+<> ( TREATY ZNURG)
+"\"The Treaty of Znurg, signed in 474 GUE, ended the Zucchini Wars.\""
+ ZUCCHINI ( WAR WARS)
+"\"The Zucchini Wars, which devastated seven provinces during the fifth
+century, were finally ended by the Treaty of Znurg.\""
+ RAGWEED ( BATTLE GULCH)
+"\"The Battle of Ragweed Gulch, fought in 789 GUE, is most notable for the
+death of Stonewall Flathead.\""
+<> ( BARBEL BERKNIP BARSAP)
+"\"A respected member of the Enchanters Guild.\""
+ GREATER BORPHEE
+"\"Borphee, a large industrial city in the westlands, is the capital of the
+Greater Borphee province.\""
+<> INQUISITION
+"\"A crackpot religious sect; its followers believe that the Curse of Megaboz
+can be forestalled by executing every person in the Empire.\""
+<> ( GRUBBO GRUBBO-BY-THE-SEA ACCARDI ACCARDI-BY-THE-SEA)
+"\"A small village in the westlands.\""
+<> ( WISHYFOO WISHYFOOS)
+"\"The Wishyfoo, who live in the vicinity of Port Foozle, alternately tell
+the truth and tell a lie with every successive statement they make. Sometimes
+they start with a lie, sometimes with a truth, but they always alternate
+thereafter.\""
+<> PREVARICON
+"\"The Prevaricons, who dwell near Port Foozle, have two interesting quirks:
+They always lie, and they feed unwelcome visitors to ravenous hellhounds.\""
+<> ( VERITASSI VERITASS)
+"\"The Veritassi, who dwell near Port Foozle, have two interesting quirks:
+They never lie, and they feed unwelcome visitors to ravenous hellhounds.\""
+<> MIZNIA
+"\"A province at the southern fringe of the westlands, mostly jungle. Its
+capital is Mizniaport.\""
+<> MIZNIAPORT
+"\"The capital and largest city in Miznia.\""
+<> GURTH
+"\"This province, which lies to the north of Miznia and Mithicus, is chiefly
+woods and farmland. The Fields of Frotzen, in central Gurth, are known as the
+Breadbasket of Quendor. The capital of the province is Gurth City.\""
+ GURTH CITY
+"\"Gurth City is the capital of Gurth province.\""
+<> MITHICUS
+"\"This small, mountainous province, sandwiched between Gurth and Miznia,
+is a popular vacation spot.\""
+<> ( FIELDS FROTZEN)
+"\"The Fields of Frotzen, fertile farmland in the heart of Gurth province,
+produces an annual bounty of grain and are freqently referred to as the
+Breadbasket of Quendor.\""
+<> FESTERON
+"\"A small village in Antharia.\""
+<> THRIFF
+"\"The strange wandering village of Thriff has, at one time or another, been
+located in most of the provinces of the westlands. Rumor has it that the
+Guildmaster of Thriff's enchanters constantly moves the town in an attempt
+to find a more benevolent climate for his terrible hayfever.\""
+<> ENTHARION
+"\"Entharion the Wise united the warring city-states of Galepath and Mareilon,
+forming the kingdom of Quendor. As Quendor's first king, Entharion built the
+castle Largoneth, and ruled over a kingdom which was little more than what is
+currently the province of Frobozz. Our current calendar dates from the first
+year of Entharion's reign.\""
+<> ( GALEPATH MAREILON)
+"\"Galepath and Mareilon were the two ancient cities of Quendor, which were
+united by Entharion the Wise in the distant past. Mareilon was destroyed in
+773 GUE by the Endless Fire.\""
+<> ANTHARIA
+"\"Antharia, the island province, is located in the middle of the Flathead
+Ocean. It is known for its shipbuilding, marble cutting, and granola mining
+industries, and is the home of Flathead Stadium. The capital is Anthar.\""
+<> ANTHAR
+"\"The capital of Antharia.\""
+ GRANOLA ( MINES RIOTS)
+"\"The granola mines in northern Antharia once supplied seemingly limitless
+quantities of granola. Since the Granola Riots of 865 GUE, the causes of
+which are well known, the output of the mines has fallen sharply.\""
+ FLATHEAD STADIUM
+"The entry calls Flathead Stadium \"The House that Babe Built,\" a tribute to
+Babe Flathead's popularity as a gate attraction. Located just outside Anthar,
+the stadium was supposedly large enough to hold every man, woman, and child in
+Quendor."
+ PORT FOOZLE
+"\"Foozle, which lies several bloits west of Flatheadia, is the primary
+seaport of the Frigid River Valley, and is a common departure point for
+ships to Antharia.\""
+<> BELBOZ
+"A tiny entry mentions that Belboz is the name of a young enchanter in
+the Accardi chapter of the Enchanter's Guild."
+ ZORBEL PASS
+"\"This wide pass through the Flathead Mountains, at the southern end of
+the range, connects the Fublio and Frigid River valleys. The Zorbel Pass
+was the site of the Diablo Massacre in 666 GUE.\""
+<> QUENDOR
+"\"See GREAT UNDERGROUND EMPIRE.\""
+( GREAT UNDERGROUND) ( EMPIRE GUE)
+"\"The kingdom of Quendor was renamed the Great Underground Empire by Lord
+Dimwit Flathead when he became ruler in 770 GUE. It encompasses all the
+lands on both sides of the Great Sea, although most of the underground
+portions of the empire are in the eastlands.\""
+ GREAT SEA
+"\"See FLATHEAD OCEAN.\""
+ ARAGAIN FALLS
+"The article calls Aragain Falls the most breathtaking and awesome waterfall
+in all the known lands. Found toward the northern part of the Frigid River,
+the falls are a popular honeymoon spot."
+ TWELVE FLATHEADS
+"[Please see \"The Lives of the Twelve Flatheads Calendar\" that came in your
+Zork Zero package.]")>
+
+<CONSTANT BORPHBELLY-TEXT
+"\"A popular lunchtime meal in the province of Fenshire, Borphbelly Stew
+is made from fox, fowl, and earthworm. Proper preparation mandates the
+simultaneous addition of the ingredients to a boiling cookpot.\"">
+
+<ROUTINE LIBRARY-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-BEG>
+		     <EQUAL? ,PSEUDO-OBJECT ,PRSO ,PRSI>>
+		<COND (<AND <VERB? RESEARCH>
+			    ,LIT
+			    <EQUAL? ,PRSI <> ,ENCYCLOPEDIA ,ROOMS>>
+		       <SETG VOLUME-USED T>
+		       ;"in DEFS2, TEST-THINGS stuffs the encyclopedia text
+			 into the PSEUDO-OBJECT's ACTION property -- only
+			 in this case"
+		       <TELL <GETP ,PRSO ,P?ACTION> CR>)
+		      (T
+		       <PUTP ,PSEUDO-OBJECT ,P?ACTION <>>
+		       <>)>)>>
+
+<OBJECT ENCYCLOPEDIA
+	(LOC LIBRARY)
+	(DESC "Encyclopedia Frobozzica")
+	(LDESC
+"A copy of the Encyclopedia Frobozzica is the only book still left in the
+Library, probably because it's so huge that it can't be moved except by
+a team of mules.")
+	(SYNONYM ENCYCLOPEDIA FROBOZZICA BOOK)
+	(ADJECTIVE LARGE ENCYCLOPEDIA)
+	(FLAGS READBIT VOWELBIT)
+	(TEXT
+"The cover reads \"Encyclopedia Frobozzica, Illustrated Edition. Copyright
+882 GUE. A publication of the Frobozz Magic Encyclopedia Company.\" It would
+take weeks to read the entire encyclopedia, but you could read about specific
+persons or things.")
+	(ACTION ENCYCLOPEDIA-F)>
+
+<GLOBAL VOLUME-USED <>>
+
+<ROUTINE ENCYCLOPEDIA-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The volume lies open to ">
+		<COND (,VOLUME-USED
+		       <TELL "a random entry." CR>)
+		      (T
+		       <TELL "an entry about Double Fanucci: ">
+		       <PERFORM ,V?RESEARCH ,DOUBLE-FANUCCI>
+		       <TELL
+"   You could probably read about all sorts of other interesting people,
+places, and things by looking them up in the encyclopedia." CR>)>)
+	       (<AND <VERB? RESEARCH>
+		     <PRSI? ,ENCYCLOPEDIA>>
+		<TELL
+"\"The Encyclopedia Frobozzica, a publication of the Frobozz Magic Encyclopedia
+Company, is the finest of its kind in the known world. All entries are
+meticulously compiled by the Frobozz Magic Encyclopedia Research Company, the
+illustrations are faithfully reproduced by the Frobozz Magic Encyclopedia
+Illustration Company, and the facts are all double, triple, and
+quadruple-checked by the Frobozz Magic Encyclopedia Accuracy and Verification
+Company. No library should be without one!\"" CR>)
+	       (<VERB? OPEN>
+		<TELL "It is." CR>)
+	       (<VERB? CLOSE>
+		<TELL "Why bother?" CR>)
+	       (<VERB? TAKE>
+		<TELL "Do you have a team of mules handy?" CR>)
+	       (<VERB? LOOK-INSIDE>
+	        <PERFORM ,V?READ ,PRSO>
+		<RTRUE>)>>
+
+<OBJECT FOUR-FLIES
+	(LOC GENERIC-OBJECTS)
+	(DESC "it")
+	(SYNONYM FLIES FAMATHRIA)
+	(ADJECTIVE FOUR FANTASTIC INT.NUM)
+	(OWNER FOUR-FLIES)
+	(PICTURE FOUR-FLIES-ILL)
+	(RESEARCH
+"The Four Fantastic Flies of Famathria, each bigger and more succulent than
+the last, is a legend fabricated by a race of toad creatures who once lived
+somewhere beyond the oceans of the world. Seafarers report that these toads
+were ugly, cantankerous, and eternally hungry.")
+	(ACTION ENC-ENTRY-F)>
+
+<OBJECT ZILBEETHA
+	(LOC GENERIC-OBJECTS)
+	(SYNONYM ZILBEETHA)
+        (PICTURE ZILBEETHA-ILL)
+        (RESEARCH
+"This is one of the oldest and dearest legends in the annals of Quendor.
+Zilbeetha, a beautiful maiden, somehow angered an evil mage, and was placed
+under enchantment and turned into a crystal orb on the very day that she was
+to be wed. The heartbroken groom, who is always depicted holding a fragile
+bloom, sought help from the wizard's goodly twin. The good wizard turned the
+groom to stone, that he might stay young until the day Zilbeetha was returned
+to him. The legend also has an ominous note; returning a false orb would
+result in death.")
+	(ACTION ENC-ENTRY-F)>
+
+<OBJECT BROGMOIDISM
+	(LOC GENERIC-OBJECTS)
+	(SYNONYM BROGMOIDISM)
+        (PICTURE BROGMOIDISM-ILL)
+        (RESEARCH
+"Brogmoidists, followers of the tenets of Brogmoidism, believe that a Great
+Brogmoid supports the world upon his shoulders. The religion, which originated
+sometime during the fourth century, is commonly ridiculed nowadays, and has
+lost most of its adherents.")
+	(ACTION ENC-ENTRY-F)>
+
+<OBJECT FLATHEADIA
+	(LOC GENERIC-OBJECTS)
+	(SYNONYM FLATHEADIA)
+	(PICTURE FLATHEADIA-ILL)
+	(RESEARCH
+"Flatheadia has been the capital of the Great Underground Empire since Dimwit
+built his castle there in 770 GUE. (The former seat of royal government was
+Egreth, in the Westlands.) Although still the largest population center in
+the Eastlands, Flatheadia has been in a steady decline since a Curse cast by
+Megaboz toward the end of the last century.")
+	(ACTION ENC-ENTRY-F)>
+
+<ROUTINE ENC-ENTRY-F ()
+    <COND (<VERB? RESEARCH>
+	   <COND (<AND <PRSO? ,FOUR-FLIES>
+		       <ADJ-USED? ,FOUR-FLIES ,W?INT.NUM>
+		       <NOT <EQUAL? ,P-NUMBER 4>>>
+		  <SETG PRSO <>>
+		  <RFALSE>)>
+	   <PICTURED-ENTRY <GETP ,PRSO ,P?PICTURE> <GETP ,PRSO ,P?RESEARCH>>)>>
+
+<ROUTINE PICTURED-ENTRY (ENC-PIC ENC-TEXT "OPT" (NO-WAIT <>))
+	 <CLEAR -1>
+	 <SCREEN ,S-FULL>
+	 <SETG CURRENT-SPLIT ,ENC-PIC-LOC>
+	 <DISPLAY ,ENC-BORDER 1 1>
+	 <PICINF-PLUS-ONE ,ENC-PIC-LOC>
+	 <DISPLAY .ENC-PIC <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <PICINF-PLUS-ONE ,ENC-TXT-LOC>
+	 <WINPOS 3 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <PICINF ,ENC-TXT-WINDOW-SIZE ,PICINF-TBL>
+	 <WINSIZE 3 <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <WINATTR 3 15>
+	 <SCREEN 3>
+	 <CURSET 1 1>
+	 <COLOR 1 -1>
+	 <COND (.ENC-TEXT
+		<TELL .ENC-TEXT>)
+	       (T
+		<J-ENTRY>)>
+	 <COLOR 1 1>
+	 <COND (.NO-WAIT
+		<RTRUE>)>
+	 <COND (,DEMO-VERSION?
+		<INPUT-DEMO 1>)
+	       (T
+		<INPUT 1>)>
+	 <MOUSE-INPUT?>
+	 <SETG CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>
+	 <SCREEN ,S-TEXT>
+	 <V-$REFRESH>
+	 <RTRUE>>
+
+<OBJECT OTHER-FLATHEADS
+	(DESC "member of the Flathead family")
+	(SYNONYM FLATHEAD)
+	(ADJECTIVE MICHAEL WURB KING OLIVER WENDELL)
+	(ACTION OTHER-FLATHEADS-F)>
+
+<ROUTINE OTHER-FLATHEADS-F ()
+	 <COND (<VERB? RESEARCH>
+		<COND (<ADJ-USED? ,OTHER-FLATHEADS ,W?MICHAEL>
+		       <TELL
+"\"A popular musician, formerly of the Flathead Five.\"" CR>)
+		      (<ADJ-USED? ,OTHER-FLATHEADS ,W?KING ,W?WURB>
+		       <TELL
+"\"Wurb Flathead, son of Idwit Oogle Flathead, is the current ruler of the
+Great Underground Empire. The twelfth king in the Flathead dynasty, Wurb
+assumed the throne in 881 GUE.\"" CR>)
+		      (<ADJ-USED? ,OTHER-FLATHEADS ,W?OLIVER ,W?WENDELL>
+		       <TELL "\"A noted judge.\"" CR>)
+		      (T
+		       <PERFORM ,V?RESEARCH ,BABE-PORTRAIT>
+		       <RTRUE>)>)>>
+
+<OBJECT SAINTS
+	(DESC "saint")
+	(SYNONYM SAINT ST BALHU HONKO QUAKKO BOVUS WISKUS)
+	(ADJECTIVE SAINT ST)
+	(FLAGS NDESCBIT VOWELBIT)
+	(ACTION SAINTS-F)>
+
+<ROUTINE SAINTS-F ()
+	 <COND (<VERB? RESEARCH>
+		<TELL "\"The patron saint of ">
+		<COND (<NOUN-USED? ,SAINTS ,W?BALHU>
+		       <TELL "circus performers">)
+		      (<NOUN-USED? ,SAINTS ,W?HONKO>
+		       <TELL "people who play very odd musical instruments">)
+		      (<NOUN-USED? ,SAINTS ,W?QUAKKO>
+		       <TELL "people who aren't sure of things">)
+		      (<NOUN-USED? ,SAINTS ,W?WISKUS>
+		       <TELL "all those who raise meat animals">)
+		      (T ;Wiskus
+		       <TELL "those who design fine slate patios">)>
+		<TELL ".\"" CR>)>>
+
+<OBJECT WIZARD-OF-FROBOZZ
+	(DESC "Wiazard of Frobozz")
+	(SYNONYM WIZARD FROBOZZ)
+	(OWNER WIZARD-OF-FROBOZZ)
+	(ACTION WIZARD-OF-FROBOZZ-F)>
+
+<ROUTINE WIZARD-OF-FROBOZZ-F ()
+	 <COND (<VERB? RESEARCH>
+		<COND (<NP-OF <GET-NP ,WIZARD-OF-FROBOZZ>>
+		       ;"input was READ ABOUT WIZARD OF FROBOZZ"
+		       <TELL
+"\"A former member of the Circle of Enchanters, the Wizard of Frobozz was
+removed for forgetfulness bordering on senility. Among his other failings,
+he developed an inability to cast any spells other than those beginning with
+the letter 'F'. He was banished to an obscure corner of the Empire after
+he accidentally turned the entire West Wing of Dimwit Flathead's castle into
+a mountain of Fudge.\"" CR>)
+		      (T
+		       ;"input was READ ABOUT FROBOZZ"
+		       <TELL
+"\"An ancient province in the northern part of the westlands, Frobozz
+is the site of many historic sites such as Galepath, Mareilon, and the
+Castle Largoneth.\"" CR>)>)>>
+
+<OBJECT ARMOR
+	(LOC LIBRARY)
+	(OWNER ARMOR)
+	(DESC "suit of armor")
+	(SYNONYM SUIT ARMOR ARMOUR)
+	(FLAGS TRYTAKEBIT)
+	(ACTION ARMOR-F)>
+
+<GLOBAL ARMOR-TOUCH 0>
+
+<ROUTINE ARMOR-F ()
+	 <COND (<VERB? TOUCH>
+		<SETG ARMOR-TOUCH <+ ,ARMOR-TOUCH 1>>
+		<COND (<EQUAL? ,ARMOR-TOUCH 3>
+		       <COND (<IN? ,SCROLL ,LOCAL-GLOBALS>
+			      ;"don't bother having jester deliver it"
+			      <REMOVE ,SCROLL>)>
+		       <MOVE ,LANCE ,HERE>
+		       <TELL "The armor opens and a lance falls out!" CR>
+		       <INC-SCORE 12>)
+		      (<EQUAL? ,ARMOR-TOUCH 1 2>
+		       <TELL "It ">
+		       <COND (<EQUAL? ,ARMOR-TOUCH 2>
+			      <TELL "still ">)>
+		       <TELL "feels like metal." CR>)
+		      (T
+		       <RFALSE>)>)
+	       (<VERB? TAKE>
+		<TELL
+"The armor is permanently mounted as part of the library decor." CR>)
+	       (<VERB? ENTER>
+		<TELL
+"The armor was made for a much shorter person -- or at least a person with
+a much flatter head." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"This battle-scarred armor is the sort that was worn around the time of
+the Battle of Ragweed Gulch." CR>)>>
+
+<OBJECT LANCE
+	(DESC "lance")
+	(SYNONYM LANCE)
+	(FLAGS TAKEBIT MAGICBIT)
+	(SIZE 10)
+	(VALUE 0) ;"12 points given elsewhere">
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/misc.zabstr b/misc.zabstr
new file mode 100644
index 0000000..ca4ec7a
--- /dev/null
+++ b/misc.zabstr
@@ -0,0 +1,65 @@
+
+<BEGIN-SEGMENT 0> 
+<INCLUDE "PDEFS"> 
+<TELL-TOKENS (CRLF CR) <CRLF> D * <DPRINT .X> A * <APRINT .X> T ,PRSO <
+TPRINT-PRSO> T ,PRSI <TPRINT-PRSI> T * <TPRINT .X> AR * <ARPRINT .X> TR * <
+TRPRINT .X> N * <PRINTN .X> C * <PRINTC .X> T-IS-ARE * <IS-ARE-PRINT .X>> 
+<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 BSET ('OBJ "ARGS" BITS) <MULTIBITS FSET .OBJ .BITS>> 
+<DEFMAC BCLEAR ('OBJ "ARGS" BITS) <MULTIBITS FCLEAR .OBJ .BITS>> 
+<DEFMAC BSET? ('OBJ "ARGS" BITS) <MULTIBITS FSET? .OBJ .BITS>> 
+<DEFINE MULTIBITS (X OBJ ATMS "AUX" (O ()) ATM) <REPEAT () <COND (<EMPTY? .ATMS
+> <RETURN <COND (<LENGTH? .O 1> <NTH .O 1>) (<EQUAL? .X FSET?> <FORM OR !.O>) (
+ELSE <FORM PROG () !.O>)>>)> <SET ATM <NTH .ATMS 1>> <SET ATMS <REST .ATMS>> <
+SET O (<FORM .X .OBJ <COND (<TYPE? .ATM FORM> .ATM) (ELSE <FORM GVAL .ATM>)>>
+!.O)>>> 
+<DEFMAC PROB ('BASE?) <FORM NOT <FORM L? .BASE? '<RANDOM 100>>>> 
+<DEFINE-ROUTINE PICK-ONE> 
+<DEFINE-ROUTINE DPRINT> 
+<DEFINE-ROUTINE APRINT> 
+<DEFINE-ROUTINE TPRINT> 
+<DEFINE-ROUTINE TPRINT-PRSO> 
+<DEFINE-ROUTINE TPRINT-PRSI> 
+<DEFINE-ROUTINE ARPRINT> 
+<DEFINE-ROUTINE TRPRINT> 
+<DEFINE-ROUTINE IS-ARE-PRINT> 
+<REPLACE-DEFINITION VERB-ALL-TEST <ROUTINE VERB-ALL-TEST>> 
+<REPLACE-DEFINITION GAME-VERB? <ROUTINE GAME-VERB?>> 
+<DEFINE-ROUTINE THIS-IS-IT> 
+<DEFINE-ROUTINE DONT-IT> 
+<GLOBAL P-NUMBER 0> 
+<DEFINE-ROUTINE PERFORM-PRSA> 
+<REPLACE-DEFINITION CAPITAL-NOUN? <ROUTINE CAPITAL-NOUN?>> 
+<REPLACE-DEFINITION LIT? <ROUTINE LIT?>> 
+<CONSTANT C-TABLE <ITABLE NONE 30>> 
+<GLOBAL CLOCK-WAIT <>> 
+<GLOBAL C-INTS 60> 
+<GLOBAL C-MAXINTS 60> 
+<GLOBAL CLOCK-HAND <>> 
+<CONSTANT C-TABLELEN 60> 
+<CONSTANT C-INTLEN 4> 
+<CONSTANT C-RTN 0> 
+<CONSTANT C-TICK 1> 
+<DEFINE-ROUTINE DEQUEUE> 
+<DEFINE-ROUTINE QUEUED?> 
+<DEFINE-ROUTINE RUNNING?> 
+<DEFINE-ROUTINE QUEUE> 
+<DEFINE-ROUTINE CLOCKER> 
+<GLOBAL FONT-X 7> 
+<GLOBAL FONT-Y 10> 
+<CONSTANT PICINF-TBL <TABLE 0 0>> 
+<DEFINE-ROUTINE C-PIXELS> 
+<DEFINE-ROUTINE L-PIXELS> 
+<DEFINE-ROUTINE CCURSET> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/misc.zap b/misc.zap
new file mode 100644
index 0000000..89a7f69
--- /dev/null
+++ b/misc.zap
@@ -0,0 +1,424 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PICK-ONE,TBL,LENGTH,CNT,RND,MSG,RFROB
+	GET	TBL,0 >LENGTH
+	GET	TBL,1 >CNT
+	DEC	'LENGTH
+	ADD	TBL,2 >TBL
+	MUL	CNT,2
+	ADD	TBL,STACK >RFROB
+	SUB	LENGTH,CNT
+	RANDOM	STACK >RND
+	GET	RFROB,RND >MSG
+	GET	RFROB,1
+	PUT	RFROB,RND,STACK
+	PUT	RFROB,1,MSG
+	INC	'CNT
+	EQUAL?	CNT,LENGTH \?CND1
+	SET	'CNT,0
+?CND1:	PUT	TBL,0,CNT
+	RETURN	MSG
+
+
+	.FUNCT	DPRINT,OBJ
+	GETP	OBJ,P?INANIMATE-DESC
+	ZERO?	STACK /?CCL3
+	FSET?	OBJ,ANIMATEDBIT /?CCL3
+	GETP	OBJ,P?INANIMATE-DESC
+	PRINT	STACK
+	RTRUE	
+?CCL3:	GETP	OBJ,P?SDESC
+	ZERO?	STACK /?CCL7
+	GETP	OBJ,P?SDESC
+	PRINT	STACK
+	RTRUE	
+?CCL7:	PRINTD	OBJ
+	RTRUE	
+
+
+	.FUNCT	APRINT,OBJ,NOSP,LEN
+	ZERO?	NOSP \?CND1
+	PRINTC	32
+?CND1:	CALL2	GET-OWNER,OBJ >LEN
+	ZERO?	LEN /?CCL5
+	GETP	OBJ,P?OWNER
+	EQUAL?	LEN,STACK /?CCL5
+	EQUAL?	LEN,PROTAGONIST \?CCL10
+	PRINTI	"your "
+	JUMP	?CND3
+?CCL10:	EQUAL?	LEN,OBJ /?CND3
+	ICALL	APRINT,LEN,TRUE-VALUE
+	PRINTI	"'s "
+	JUMP	?CND3
+?CCL5:	FSET?	OBJ,NARTICLEBIT /?CND3
+	FSET?	OBJ,VOWELBIT \?CCL15
+	PRINTI	"an "
+	JUMP	?CND3
+?CCL15:	PRINTI	"a "
+?CND3:	CALL2	DPRINT,OBJ
+	RSTACK	
+
+
+	.FUNCT	TPRINT,OBJ,NOSP,LEN
+	ZERO?	NOSP \?CND1
+	PRINTC	32
+?CND1:	CALL2	GET-OWNER,OBJ >LEN
+	ZERO?	LEN /?CCL5
+	GETP	OBJ,P?OWNER
+	EQUAL?	LEN,STACK /?CCL5
+	EQUAL?	LEN,PROTAGONIST \?CCL10
+	PRINTI	"your "
+	JUMP	?CND3
+?CCL10:	EQUAL?	LEN,OBJ /?CND3
+	ICALL	TPRINT,LEN,TRUE-VALUE
+	PRINTI	"'s "
+	JUMP	?CND3
+?CCL5:	FSET?	OBJ,NARTICLEBIT /?CND3
+	PRINTI	"the "
+?CND3:	CALL2	DPRINT,OBJ
+	RSTACK	
+
+
+	.FUNCT	TPRINT-PRSO
+	CALL2	TPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	TPRINT-PRSI
+	CALL2	TPRINT,PRSI
+	RSTACK	
+
+
+	.FUNCT	ARPRINT,OBJ
+	ICALL2	APRINT,OBJ
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	TRPRINT,OBJ
+	ICALL2	TPRINT,OBJ
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	IS-ARE-PRINT,OBJ
+	FSET?	OBJ,NARTICLEBIT \?CCL3
+	PRINTC	32
+	JUMP	?CND1
+?CCL3:	PRINTI	" the "
+?CND1:	ICALL2	DPRINT,OBJ
+	FSET?	OBJ,PLURALBIT \?CCL6
+	PRINTI	" are "
+	RTRUE	
+?CCL6:	PRINTI	" is "
+	RTRUE	
+
+
+	.FUNCT	VERB-ALL-TEST,OO,II,L
+	LOC	OO >L
+	EQUAL?	OO,ROOMS \?CCL3
+	INC	'P-NOT-HERE
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
+	ZERO?	II /?CCL5
+	IN?	OO,II \FALSE
+?CCL5:	ZERO?	II /?CCL11
+	EQUAL?	PRSO,II /FALSE
+?CCL11:	EQUAL?	PRSA,V?TAKE \?CCL15
+	FSET?	OO,TAKEBIT /?CCL18
+	FSET?	OO,TRYTAKEBIT \FALSE
+?CCL18:	FSET?	OO,NALLBIT /FALSE
+	ZERO?	II \TRUE
+	CALL2	ULTIMATELY-IN?,OO
+	ZERO?	STACK /TRUE
+	RFALSE	
+?CCL15:	EQUAL?	PRSA,V?PUT-ON,V?PUT,V?DROP /?PRD30
+	EQUAL?	PRSA,V?SGIVE,V?GIVE \?CCL28
+?PRD30:	IN?	OO,WINNER \FALSE
+?CCL28:	EQUAL?	PRSA,V?PUT-ON,V?PUT \?CCL34
+	IN?	OO,WINNER /?CCL34
+	CALL	ULTIMATELY-IN?,OO,II
+	ZERO?	STACK \FALSE
+?CCL34:	EQUAL?	PRSA,V?WEAR \?CCL39
+	FSET?	OO,WORNBIT /FALSE
+	FSET?	OO,WEARBIT \FALSE
+?CCL39:	EQUAL?	OO,II /FALSE
+	RTRUE	
+
+
+	.FUNCT	GAME-VERB?
+	EQUAL?	PRSA,V?$COMMAND,V?$UNRECORD,V?$RECORD /TRUE
+	EQUAL?	PRSA,V?$REFRESH,V?$VERIFY,V?$RANDOM /TRUE
+	EQUAL?	PRSA,V?RESTART,V?RESTORE,V?SAVE /TRUE
+	EQUAL?	PRSA,V?UNSCRIPT,V?SCRIPT,V?QUIT /TRUE
+	EQUAL?	PRSA,V?VERBOSE,V?SUPERBRIEF,V?BRIEF /TRUE
+	EQUAL?	PRSA,V?NOTIFY,V?CREDITS,V?VERSION /TRUE
+	EQUAL?	PRSA,V?SCORE,V?COLOR,V?HINT /TRUE
+	EQUAL?	PRSA,V?DEFINE,V?MAP,V?TIME /TRUE
+	EQUAL?	PRSA,V?MODE /TRUE
+	RFALSE	
+
+
+	.FUNCT	THIS-IS-IT,OBJ
+	EQUAL?	PRSA,V?WALK \?PRD5
+	EQUAL?	PRSO,OBJ /TRUE
+?PRD5:	EQUAL?	OBJ,FALSE-VALUE,ROOMS,ME /TRUE
+	EQUAL?	OBJ,PROTAGONIST /TRUE
+	CALL	DONT-IT,OBJ,LOBSTER,W?NUTCRACKER
+	ZERO?	STACK \TRUE
+	CALL	DONT-IT,OBJ,SNAKE,W?ROPE
+	ZERO?	STACK \TRUE
+	FSET?	OBJ,FEMALEBIT \?CCL14
+	EQUAL?	P-HER-OBJECT,OBJ /?CND15
+	FCLEAR	HER,TOUCHBIT
+?CND15:	SET	'P-HER-OBJECT,OBJ
+	RETURN	P-HER-OBJECT
+?CCL14:	FSET?	OBJ,ACTORBIT /?CTR17
+	EQUAL?	OBJ,LITTLE-FUNGUS \?CCL18
+?CTR17:	EQUAL?	P-HIM-OBJECT,OBJ /?CND21
+	FCLEAR	HIM,TOUCHBIT
+?CND21:	SET	'P-HIM-OBJECT,OBJ
+	EQUAL?	OBJ,JESTER,EXECUTIONER /FALSE
+	EQUAL?	P-IT-OBJECT,OBJ /?CND26
+	FCLEAR	IT,TOUCHBIT
+?CND26:	SET	'P-IT-OBJECT,OBJ
+	RETURN	P-IT-OBJECT
+?CCL18:	EQUAL?	P-IT-OBJECT,OBJ /?CND28
+	FCLEAR	IT,TOUCHBIT
+?CND28:	SET	'P-IT-OBJECT,OBJ
+	RETURN	P-IT-OBJECT
+
+
+	.FUNCT	DONT-IT,OBJ1,OBJ2,WRD
+	EQUAL?	OBJ1,OBJ2 \FALSE
+	CALL	NOUN-USED?,OBJ2,WRD
+	ZERO?	STACK /FALSE
+	FSET?	OBJ2,ANIMATEDBIT \FALSE
+	CALL2	VISIBLE?,OBJ2
+	ZERO?	STACK \FALSE
+	RTRUE	
+
+
+	.FUNCT	PERFORM-PRSA,O,I
+	ICALL	PERFORM,PRSA,O,I
+	RTRUE	
+
+
+	.FUNCT	CAPITAL-NOUN?,WRD,TBL
+	EQUAL?	WRD,W?FLATHEAD,W?DIMWIT,W?URSULA /TRUE
+	EQUAL?	WRD,W?MEGABOZ,W?JOHN,W?PIERPONT /TRUE
+	EQUAL?	WRD,W?STONEWALL,W?LUCREZIA,W?SEBASTIAN /TRUE
+	EQUAL?	WRD,W?DAVISON,W?THOMAS,W?ALVA /TRUE
+	EQUAL?	WRD,W?LEONARDO,W?JOHANN,W?RALPH /TRUE
+	EQUAL?	WRD,W?PAUL,W?FRANK,W?LLOYD /TRUE
+	EQUAL?	WRD,W?BABE,W?ZILBO,W?MERETZKY /TRUE
+	EQUAL?	WRD,W?FOOBUS,W?BARBAZZO,W?FERNAP /TRUE
+	EQUAL?	WRD,W?MUMBERTHRAX,W?BOZBO,W?MUMBO /TRUE
+	EQUAL?	WRD,W?PHLOID,W?BELWIT /TRUE
+	GETPT	SAINTS,P?SYNONYM >TBL
+	ZERO?	TBL /?CCL15
+	PTSIZE	TBL
+	DIV	STACK,2
+	INTBL?	WRD,TBL,STACK /TRUE
+?CCL15:	INTBL?	WRD,FUNGUS-WORDS,12 /TRUE
+	INTBL?	WRD,MID-NAME-WORDS,12 /TRUE
+	RFALSE	
+
+
+	.FUNCT	LIT?,RM,RMBIT,OHERE,LIT,RES,OLD-OBJECT
+	ASSIGNED?	'RMBIT /?CND1
+	SET	'RMBIT,TRUE-VALUE
+?CND1:	SET	'RES,SEARCH-RES
+	EQUAL?	HERE,UNDERWATER,LAKE-BOTTOM \?CND3
+	FSET?	EXTERIOR-LIGHT,ONBIT \FALSE
+?CND3:	ZERO?	RM \?CND7
+	SET	'RM,HERE
+?CND7:	SET	'OHERE,HERE
+	SET	'HERE,RM
+	ZERO?	RMBIT /?CCL11
+	FSET?	RM,ONBIT \?CCL11
+	SET	'LIT,HERE
+	JUMP	?CND9
+?CCL11:	FSET?	WINNER,ONBIT \?CCL15
+	CALL	ULTIMATELY-IN?,WINNER,RM
+	ZERO?	STACK /?CCL15
+	SET	'LIT,WINNER
+	JUMP	?CND9
+?CCL15:	SET	'OLD-OBJECT,RES
+	PUT	OLD-OBJECT,1,0
+	PUT	OLD-OBJECT,2,FALSE-VALUE
+	PUT	OLD-OBJECT,3,FALSE-VALUE
+	PUT	OLD-OBJECT,4,FALSE-VALUE
+	SET	'OLD-OBJECT,FINDER
+	PUT	OLD-OBJECT,0,ONBIT
+	PUT	OLD-OBJECT,1,FIND-FLAGS-GWIM
+	PUT	OLD-OBJECT,2,FALSE-VALUE
+	PUT	OLD-OBJECT,3,FALSE-VALUE
+	PUT	OLD-OBJECT,4,0
+	PUT	OLD-OBJECT,5,FALSE-VALUE
+	PUT	OLD-OBJECT,6,FALSE-VALUE
+	PUT	OLD-OBJECT,7,FALSE-VALUE
+	PUT	OLD-OBJECT,8,FALSE-VALUE
+	PUT	OLD-OBJECT,9,RES
+	PUT	OLD-OBJECT,10,0
+	EQUAL?	OHERE,RM \?CND18
+	ICALL	FIND-DESCENDANTS,WINNER,7
+	EQUAL?	WINNER,PROTAGONIST /?CND18
+	IN?	PROTAGONIST,RM \?CND18
+	ICALL	FIND-DESCENDANTS,PROTAGONIST,7
+?CND18:	GET	RES,1
+	ZERO?	STACK \?CND24
+	LOC	WINNER
+	FSET?	STACK,VEHBIT \?CND26
+	LOC	WINNER
+	FSET?	STACK,OPENBIT /?CND26
+	LOC	WINNER
+	ICALL	FIND-DESCENDANTS,STACK,7
+?CND26:	ICALL	FIND-DESCENDANTS,RM,7
+?CND24:	GET	RES,1
+	GRTR?	STACK,0 \?CND9
+	GET	RES,4 >LIT
+?CND9:	SET	'HERE,OHERE
+	RETURN	LIT
+
+
+	.FUNCT	DEQUEUE,RTN
+	CALL2	QUEUED?,RTN >RTN
+	ZERO?	RTN /FALSE
+	PUT	RTN,C-RTN,0
+	RTRUE	
+
+
+	.FUNCT	QUEUED?,RTN,C,E
+	SET	'E,C-TABLE+60
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E /FALSE
+	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	GET	C,C-TICK
+	ZERO?	STACK /FALSE
+	RETURN	C
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	RUNNING?,RTN,C,E
+	SET	'E,C-TABLE+60
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E /FALSE
+	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	GET	C,C-TICK
+	ZERO?	STACK /FALSE
+	GET	C,C-TICK
+	GRTR?	STACK,1 /FALSE
+	RTRUE	
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	QUEUE,RTN,TICK,C,E,INT
+	SET	'E,C-TABLE+60
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E \?CCL5
+	ZERO?	INT /?CCL8
+	SET	'C,INT
+	JUMP	?CND6
+?CCL8:	LESS?	C-INTS,C-INTLEN \?CND9
+	PRINTI	"**Too many ints!**"
+	CRLF	
+?CND9:	SUB	C-INTS,C-INTLEN >C-INTS
+	LESS?	C-INTS,C-MAXINTS \?CND11
+	SET	'C-MAXINTS,C-INTS
+?CND11:	ADD	C-TABLE,C-INTS >INT
+?CND6:	PUT	INT,C-RTN,RTN
+	JUMP	?REP2
+?CCL5:	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CCL14
+	SET	'INT,C
+?REP2:	ZERO?	CLOCK-HAND /?CND16
+	GRTR?	INT,CLOCK-HAND \?CND16
+	ADD	TICK,3
+	SUB	0,STACK >TICK
+?CND16:	PUT	INT,C-TICK,TICK
+	RETURN	INT
+?CCL14:	GET	C,C-RTN
+	ZERO?	STACK \?CND3
+	SET	'INT,C
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	CLOCKER,E,TICK,RTN,FLG,Q?,OWINNER
+	ZERO?	CLOCK-WAIT /?CCL3
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	RFALSE	
+?CCL3:	ZERO?	TIME-STOPPED /?CND1
+	INC	'MOVES
+	RFALSE	
+?CND1:	ADD	C-TABLE,C-INTS >CLOCK-HAND
+	SET	'E,C-TABLE+60
+	SET	'OWINNER,WINNER
+	SET	'WINNER,PROTAGONIST
+?PRG5:	EQUAL?	CLOCK-HAND,E \?CCL9
+	SET	'CLOCK-HAND,E
+	INC	'MOVES
+	SET	'WINNER,OWINNER
+	RETURN	FLG
+?CCL9:	GET	CLOCK-HAND,C-RTN
+	ZERO?	STACK /?CND7
+	GET	CLOCK-HAND,C-TICK >TICK
+	LESS?	TICK,-1 \?CCL13
+	SUB	0,TICK
+	SUB	STACK,3
+	PUT	CLOCK-HAND,C-TICK,STACK
+	SET	'Q?,CLOCK-HAND
+	JUMP	?CND7
+?CCL13:	ZERO?	TICK /?CND7
+	GRTR?	TICK,0 \?CND15
+	DEC	'TICK
+	PUT	CLOCK-HAND,C-TICK,TICK
+?CND15:	ZERO?	TICK /?CND17
+	SET	'Q?,CLOCK-HAND
+?CND17:	GRTR?	TICK,0 /?CND7
+	GET	CLOCK-HAND,C-RTN >RTN
+	ZERO?	TICK \?CND21
+	PUT	CLOCK-HAND,C-RTN,0
+?CND21:	CALL	RTN
+	ZERO?	STACK /?CND23
+	SET	'FLG,TRUE-VALUE
+?CND23:	ZERO?	Q? \?CND7
+	GET	CLOCK-HAND,C-RTN
+	ZERO?	STACK /?CND7
+	SET	'Q?,TRUE-VALUE
+?CND7:	ADD	CLOCK-HAND,C-INTLEN >CLOCK-HAND
+	ZERO?	Q? \?PRG5
+	ADD	C-INTS,C-INTLEN >C-INTS
+	JUMP	?PRG5
+
+
+	.FUNCT	C-PIXELS,X
+	SUB	X,1
+	MUL	STACK,FONT-X
+	ADD	STACK,1
+	RSTACK	
+
+
+	.FUNCT	L-PIXELS,Y
+	SUB	Y,1
+	MUL	STACK,FONT-Y
+	ADD	STACK,1
+	RSTACK	
+
+
+	.FUNCT	CCURSET,Y,X,?TMP1
+	CALL2	L-PIXELS,Y >?TMP1
+	CALL2	C-PIXELS,X
+	CURSET	?TMP1,STACK
+	RTRUE	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/misc.zil b/misc.zil
new file mode 100644
index 0000000..74e4af0
--- /dev/null
+++ b/misc.zil
@@ -0,0 +1,644 @@
+"MISC for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT 0>
+
+<INCLUDE "PDEFS">
+
+;"macros"
+
+<TELL-TOKENS (CRLF CR)   <CRLF>
+	     ;[D ,SIDEKICK <DPRINT-SIDEKICK>]
+	     D *	 <DPRINT .X>
+	     A *	 <APRINT .X>
+	     T ,PRSO 	 <TPRINT-PRSO>
+	     T ,PRSI	 <TPRINT-PRSI>
+	     T *	 <TPRINT .X>
+	     AR *	 <ARPRINT .X>
+	     TR *	 <TRPRINT .X>
+	     N *	 <PRINTN .X>
+	     C *         <PRINTC .X>
+	     T-IS-ARE *  <IS-ARE-PRINT .X>>
+
+<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 BSET ('OBJ "ARGS" BITS)
+	<MULTIBITS FSET .OBJ .BITS>>
+
+<DEFMAC BCLEAR ('OBJ "ARGS" BITS)
+	<MULTIBITS FCLEAR .OBJ .BITS>>
+
+<DEFMAC BSET? ('OBJ "ARGS" BITS)
+	<MULTIBITS FSET? .OBJ .BITS>>
+
+<DEFINE MULTIBITS (X OBJ ATMS "AUX" (O ()) ATM) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .O 1>
+					<NTH .O 1>)
+				       (<EQUAL? .X FSET?>
+					<FORM OR !.O>)
+				       (ELSE
+					<FORM PROG () !.O>)>>)>
+		<SET ATM <NTH .ATMS 1>>
+		<SET ATMS <REST .ATMS>>
+		<SET O
+		     (<FORM .X
+			    .OBJ
+			    <COND (<TYPE? .ATM FORM> .ATM)
+				  (ELSE <FORM GVAL .ATM>)>>
+		      !.O)>>>
+
+<DEFMAC PROB ('BASE?)
+	<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>
+
+;"PICK-NEXT expects an LTABLE of strings, with an initial element of 2."
+;<ROUTINE PICK-NEXT (TBL "AUX" CNT STR)
+	 <SET CNT <GET .TBL 1>>
+       	 <SET STR <GET .TBL .CNT>>       
+	 <INC CNT>
+	 <COND (<G? .CNT <GET .TBL 0>>
+		<SET CNT 2>)>
+	 <PUT .TBL 1 .CNT>
+	 <RETURN .STR>>
+
+<ROUTINE PICK-ONE (TBL "AUX" LENGTH CNT RND MSG RFROB)
+	 <SET LENGTH <GET .TBL 0>>
+	 <SET CNT <GET .TBL 1>>
+	 <SET LENGTH <- .LENGTH 1>>
+	 <SET TBL <REST .TBL 2>>
+	 <SET RFROB <REST .TBL <* .CNT 2>>>
+	 <SET RND <RANDOM <- .LENGTH .CNT>>>
+	 <SET MSG <GET .RFROB .RND>>
+	 <PUT .RFROB .RND <GET .RFROB 1>>
+	 <PUT .RFROB 1 .MSG>
+	 <SET CNT <+ .CNT 1>>
+	 <COND (<==? .CNT .LENGTH> 
+		<SET CNT 0>)>
+	 <PUT .TBL 0 .CNT>
+	 .MSG>
+
+<ROUTINE DPRINT (OBJ)
+	 <COND (<AND <GETP .OBJ ,P?INANIMATE-DESC>
+		     <NOT <FSET? .OBJ ,ANIMATEDBIT>>>
+		<TELL <GETP .OBJ ,P?INANIMATE-DESC>>)
+	       (<GETP .OBJ ,P?SDESC>
+	        <TELL <GETP .OBJ ,P?SDESC>>)
+	       (T
+	        <PRINTD .OBJ>)>>
+
+<ROUTINE APRINT (OBJ "OPT" (NOSP <>) "AUX" LEN)
+	 <COND (<NOT .NOSP>
+		<TELL !\ >)>
+	 <COND (<AND <SET LEN <GET-OWNER .OBJ>>
+		     <NOT <EQUAL? .LEN <GETP .OBJ ,P?OWNER>>>>
+		<COND (<EQUAL? .LEN ,PROTAGONIST>
+		       <TELL "your ">)
+		      (<NOT <EQUAL? .LEN .OBJ>>
+		       <APRINT .LEN T>
+		       <TELL "'s ">)>)
+	       (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+		<COND (<FSET? .OBJ ,VOWELBIT>
+		       <TELL "an ">)
+		      (T
+		       <TELL "a ">)>)>
+	 <DPRINT .OBJ>>
+
+<ROUTINE TPRINT (OBJ "OPT" (NOSP <>) "AUX" LEN)
+	 <COND (<NOT .NOSP>
+		<TELL !\ >)>
+	 <COND (<AND <SET LEN <GET-OWNER .OBJ>>
+		     <NOT <EQUAL? .LEN <GETP .OBJ ,P?OWNER>>>>
+		<COND (<EQUAL? .LEN ,PROTAGONIST>
+		       <TELL "your ">)
+		      (<NOT <EQUAL? .LEN .OBJ>>
+		       <TPRINT .LEN T>
+		       <TELL "'s ">)>)
+	       (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+		<TELL "the ">)>
+	 <DPRINT .OBJ>>
+
+<ROUTINE TPRINT-PRSO ()
+	 <TPRINT ,PRSO>>
+
+<ROUTINE TPRINT-PRSI ()
+	 <TPRINT ,PRSI>>
+
+<ROUTINE ARPRINT (OBJ)
+	 <APRINT .OBJ>
+	 <TELL ,PERIOD-CR>>
+
+<ROUTINE TRPRINT (OBJ)
+	 <TPRINT .OBJ>
+	 <TELL ,PERIOD-CR>>
+
+<ROUTINE IS-ARE-PRINT (OBJ)
+	 <COND (<FSET? .OBJ ,NARTICLEBIT>
+		<TELL " ">)
+	       (T
+		<TELL " the ">)>
+	 <DPRINT .OBJ>
+	 <COND (<FSET? .OBJ ,PLURALBIT>
+		<TELL " are ">)
+	       (T
+		<TELL " is ">)>>
+
+
+;<ROUTINE CLEAR-SCREEN ("AUX" (CNT 24))
+	 <REPEAT ()
+		 <CRLF>
+		 <SET CNT <- .CNT 1>>
+		 <COND (<0? .CNT>
+			<RETURN>)>>>
+
+<REPLACE-DEFINITION VERB-ALL-TEST
+<ROUTINE VERB-ALL-TEST (OO II "AUX" (L <LOC .OO>))
+	 ;"RTRUE if OO should be included in the ALL, otherwise RFALSE"
+	 <COND (<EQUAL? .OO ,ROOMS ;,NOT-HERE-OBJECT>
+		<SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>
+		<RFALSE>)
+	       (<AND <VERB? TAKE> ;"TAKE prso FROM prsi and prso isn't in prsi"
+		     <T? .II>
+		     <NOT <IN? .OO .II>>>
+		<RFALSE>)
+	       ;(<NOT <ACCESSIBLE? .OO>> ;"can't get at object"
+		<RFALSE>)
+	       (T ;<EQUAL? ,P-GETFLAGS ,P-ALL> ;"cases for ALL"
+		<COND (<AND .II
+			    <PRSO? .II>>
+		       <RFALSE>)
+		      (<VERB? TAKE> 
+		       ;"TAKE ALL and object not accessible or takeable"
+		       <COND (<AND <NOT <FSET? .OO ,TAKEBIT>>
+				   <NOT <FSET? .OO ,TRYTAKEBIT>>>
+			      <RFALSE>)
+			     (<FSET? .OO ,NALLBIT>
+			      <RFALSE>)
+			     ;(<AND <NOT <EQUAL? .L ,WINNER ,HERE .II>>
+				   <NOT <EQUAL? .L <LOC ,WINNER>>>>
+			      <COND (<AND <FSET? .L ,SURFACEBIT>
+				     	  <NOT <FSET? .L ,TAKEBIT>>> ;"tray"
+				     <RTRUE>)
+				    (T
+				     <RFALSE>)>)
+			     (<AND <NOT .II>
+				   <ULTIMATELY-IN? .OO>> ;"already have it"
+			      <RFALSE>)
+			     (T
+			      <RTRUE>)>)
+		      (<AND <VERB? DROP PUT PUT-ON GIVE SGIVE>
+			    ;"VERB ALL, object not held"
+			    <NOT <IN? .OO ,WINNER>>>
+		       <RFALSE>)
+		      (<AND <VERB? PUT PUT-ON> ;"PUT ALL IN X,obj already in x"
+			    <NOT <IN? .OO ,WINNER>>
+			    <ULTIMATELY-IN? .OO .II>>
+		       <RFALSE>)
+		      (<AND <VERB? WEAR>
+			    <OR <FSET? .OO ,WORNBIT>
+				<NOT <FSET? .OO ,WEARBIT>>>>
+		       ;"try to wear only wearable-but-not-yet-worn objects"
+		       <RFALSE>)
+		      (<EQUAL? .OO .II>
+		       ;"i.e. PUT ALL IN BOX shouldn't try to put box in box"
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)>>>
+
+;<GLOBAL FIRST-BUFFER <ITABLE BYTE 100>>
+
+;<ROUTINE SAVE-INPUT (TBL "AUX" (OFFS 0) CNT TMP)
+	 <SET CNT <+ <GETB ,P-LEXV <SET TMP <* 4 ,P-INPUT-WORDS>>>
+		     <GETB ,P-LEXV <+ .TMP 1>>>>
+	 <COND (<EQUAL? .CNT 0> ;"failed"
+		<RFALSE>)>
+	 <SET CNT <- .CNT 1>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .OFFS .CNT>
+			<PUTB .TBL .OFFS 0>
+			<RETURN>)
+		       (T
+			<PUTB .TBL .OFFS <GETB ,P-INBUF <+ .OFFS 1>>>)>
+		 <SET OFFS <+ .OFFS 1>>>
+	 <RTRUE>>
+
+;<ROUTINE RESTORE-INPUT (TBL "AUX" CHR)
+	 <REPEAT ()
+		 <COND (<EQUAL? <SET CHR <GETB .TBL 0>> 0>
+			<RETURN>)
+		       (T
+			<PRINTC .CHR>
+			<SET TBL <REST .TBL>>)>>>
+
+<REPLACE-DEFINITION GAME-VERB?
+<ROUTINE GAME-VERB? () ;"should the verb not run the clock?"
+	 <COND (<VERB? $RECORD $UNRECORD $COMMAND $RANDOM $VERIFY $REFRESH
+		       SAVE RESTORE RESTART QUIT SCRIPT UNSCRIPT
+		       BRIEF SUPERBRIEF VERBOSE VERSION CREDITS
+		       NOTIFY HINT COLOR SCORE TIME MAP DEFINE MODE>
+		<RTRUE>)>>>
+
+<ROUTINE THIS-IS-IT (OBJ)
+	 <COND (<OR <AND <VERB? WALK>
+			 <PRSO? .OBJ>> ;"PRSO is a direction"
+		    <EQUAL? .OBJ <> ,ROOMS ;,NOT-HERE-OBJECT ,ME ,PROTAGONIST>>
+		<RTRUE>)
+	       (<DONT-IT .OBJ ,LOBSTER ,W?NUTCRACKER>
+		;"or else FIND NUTCRACKER followed by TAKE IT returns
+	          [But the lobster isn't here!]"
+		<RTRUE>)
+	       (<DONT-IT .OBJ ,SNAKE ,W?ROPE>
+		<RTRUE>)  
+	       (<FSET? .OBJ ,FEMALEBIT>
+		<COND (<NOT <EQUAL? ,P-HER-OBJECT .OBJ>>
+		       <FCLEAR ,HER ,TOUCHBIT>)>
+		<SETG P-HER-OBJECT .OBJ>)
+	       (<OR <FSET? .OBJ ,ACTORBIT>
+		    <EQUAL? .OBJ ,LITTLE-FUNGUS>>
+		<COND (<NOT <EQUAL? ,P-HIM-OBJECT .OBJ>>
+		       <FCLEAR ,HIM ,TOUCHBIT>)>
+		<SETG P-HIM-OBJECT .OBJ>
+		<COND (<NOT <EQUAL? .OBJ ,JESTER ,EXECUTIONER>>
+		       ;"basically, animals"
+		       <COND (<NOT <EQUAL? ,P-IT-OBJECT .OBJ>>
+			      <FCLEAR ,IT ,TOUCHBIT>)>
+		       <SETG P-IT-OBJECT .OBJ>)>)
+	       (T
+		<COND (<NOT <EQUAL? ,P-IT-OBJECT .OBJ>>
+		       <FCLEAR ,IT ,TOUCHBIT>)>
+		<SETG P-IT-OBJECT .OBJ>)>>
+
+<ROUTINE DONT-IT (OBJ1 OBJ2 WRD)
+	 <COND (<AND <EQUAL? .OBJ1 .OBJ2>
+		     <NOUN-USED? .OBJ2 .WRD>
+		     <FSET? .OBJ2 ,ANIMATEDBIT>
+		     <NOT <VISIBLE? .OBJ2>>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+;<REPLACE-DEFINITION NUMBER?
+;"from suspect"
+
+<GLOBAL P-EXCHANGE 0>
+
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>) (EXC <>))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0>
+			<RETURN>)
+		       (T
+			<SET CHR <GETB ,P-INBUF .BPTR>>
+			<COND (<==? .CHR 58>
+			       <COND (.EXC
+				      <RFALSE>)>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<==? .CHR 45 %<ASCII !\/>>
+			       <COND (.TIM
+				      <RFALSE>)>
+			       <SET EXC .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 9999>
+			       <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?NUMBER>
+	 <COND (<G? .SUM 9999>
+		<RFALSE>)
+	       (.EXC
+		<SETG P-EXCHANGE .EXC>)
+	       (.TIM
+		<SETG P-EXCHANGE 0>
+		<COND (<G? .TIM 23>
+		       <RFALSE>)
+		      (<G? .TIM 19>
+		       T)
+		      (<G? .TIM 12>
+		       <RFALSE>)
+		      (<G? .TIM  7>
+		       T)
+		      (T
+		       <SET TIM <+ 12 .TIM>>)>
+		<SET SUM <+ .SUM <* .TIM 60>>>)
+	       (T
+		<SETG P-EXCHANGE 0>)>
+	 <SETG P-NUMBER .SUM>
+	 ,W?NUMBER>>
+
+<GLOBAL P-NUMBER 0>
+
+<ROUTINE PERFORM-PRSA ("OPTIONAL" (O <>) (I <>))
+	 <PERFORM ,PRSA .O .I>
+	 <RTRUE>>
+
+;<ROUTINE CANT-USE (PTR "AUX" BUF)
+	<TELL "[You used the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\" in a way that I don't understand.]" CR>
+	;<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+<REPLACE-DEFINITION CAPITAL-NOUN?
+<ROUTINE CAPITAL-NOUN? (WRD "AUX" TBL)
+   <COND (<EQUAL? .WRD ,W?FLATHEAD ,W?DIMWIT ,W?URSULA ,W?MEGABOZ ,W?JOHN 
+		       ,W?PIERPONT ,W?STONEWALL ,W?LUCREZIA ,W?SEBASTIAN
+		       ,W?DAVISON ,W?THOMAS ,W?ALVA ,W?LEONARDO ,W?JOHANN
+		       ,W?RALPH ,W?PAUL ,W?FRANK ,W?LLOYD ,W?BABE ,W?ZILBO
+		       ,W?MERETZKY ,W?FOOBUS ,W?BARBAZZO ,W?FERNAP
+		       ,W?MUMBERTHRAX ,W?BOZBO ,W?MUMBO ,W?PHLOID ,W?BELWIT>
+	  <RTRUE>)
+	 (<AND <SET TBL <GETPT ,SAINTS ,P?SYNONYM>>
+	       <INTBL? .WRD .TBL </ <PTSIZE .TBL> 2>>>
+	  <RTRUE>)
+	 (<INTBL? .WRD ,FUNGUS-WORDS 12>
+	  <RTRUE>)
+	 (<INTBL? .WRD ,MID-NAME-WORDS 12>
+	  <RTRUE>)
+	 (T
+	  <RFALSE>)>>>
+
+<REPLACE-DEFINITION LIT?
+<ROUTINE LIT? ("OPT" (RM <>) (RMBIT T) "AUX" OHERE (LIT <>) (RES ,SEARCH-RES))
+	<COND (<AND <EQUAL? ,HERE ,UNDERWATER ,LAKE-BOTTOM>
+		    <NOT <FSET? ,EXTERIOR-LIGHT ,ONBIT>>>
+	       <RFALSE>)>
+	<COND (<NOT .RM>
+	       <SET RM ,HERE>)>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<AND .RMBIT
+		    <FSET? .RM ,ONBIT>>
+	       <SET LIT ,HERE>)
+	      (<AND <FSET? ,WINNER ,ONBIT>
+		    <ULTIMATELY-IN? ,WINNER .RM>>
+	       <SET LIT ,WINNER>)
+	      (T
+	       <MAKE-FIND-RES 'FIND-RES .RES 'FIND-RES-COUNT 0>
+	       <MAKE-FINDER 'FINDER ,FINDER 'FIND-APPLIC ,ONBIT
+			    'FIND-RES .RES
+			    'FIND-FLAGS ,FIND-FLAGS-GWIM>
+	       <COND (<EQUAL? .OHERE .RM>
+		      <FIND-DESCENDANTS ,WINNER
+					%<ORB ,FD-INCLUDE? ,FD-SEARCH?
+					      ,FD-NEST? ;,FD-NOTOP?>>
+		      <COND (<AND <NOT <EQUAL? ,WINNER ,PROTAGONIST>>
+				  <IN? ,PROTAGONIST .RM>>
+			     <FIND-DESCENDANTS ,PROTAGONIST
+					       %<ORB ,FD-INCLUDE? ,FD-SEARCH?
+						     ,FD-NEST? ;,FD-NOTOP?>>)>)>
+	       <COND (<0? <FIND-RES-COUNT .RES>:FIX>
+		      <COND (<AND <FSET? <LOC ,WINNER> ,VEHBIT>
+				  <NOT <FSET? <LOC ,WINNER> ,OPENBIT>>>
+			     <FIND-DESCENDANTS <LOC ,WINNER>
+					       %<ORB ,FD-INCLUDE? ,FD-SEARCH?
+						     ,FD-NEST? ;,FD-NOTOP?>>)>
+		      <FIND-DESCENDANTS .RM %<ORB ,FD-INCLUDE? ,FD-SEARCH?
+						  ,FD-NEST? ;,FD-NOTOP?>>)>
+	       <COND (<G? <FIND-RES-COUNT .RES>:FIX 0>
+		      <SET LIT <FIND-RES-OBJ1 .RES>>)>)>
+	<SETG HERE .OHERE>
+	.LIT>>
+
+;"CLOCKER and related routines"
+
+<CONSTANT C-TABLE %<COND (<GASSIGNED? ZILCH>
+			'<ITABLE NONE 30>)
+		       (T
+			'<ITABLE NONE 60>)>> ;"2x largest num of interrupts"
+
+<GLOBAL CLOCK-WAIT <>>
+
+<GLOBAL C-INTS 60> ;"2x largest number of concurrent of interrupts"
+
+<GLOBAL C-MAXINTS 60> ;"2x largest number of concurrent of interrupts"
+
+<GLOBAL CLOCK-HAND <>>
+
+<CONSTANT C-TABLELEN 60>
+<CONSTANT C-INTLEN 4>	;"length of an interrupt entry"
+<CONSTANT C-RTN 0>	;"offset of routine name"
+<CONSTANT C-TICK 1>	;"offset of count"
+
+<ROUTINE DEQUEUE (RTN)
+	 <COND (<SET RTN <QUEUED? .RTN>>
+		<PUT .RTN ,C-RTN 0>)>>
+
+<ROUTINE QUEUED? (RTN "AUX" C E)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .C .E>
+			<RFALSE>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN>
+			<COND (<ZERO? <GET .C ,C-TICK>>
+			       <RFALSE>)
+			      (T
+			       <RETURN .C>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<ROUTINE RUNNING? (RTN "AUX" C E)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .C .E>
+			<RFALSE>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN>
+			<COND (<OR <ZERO? <GET .C ,C-TICK>>
+				   <G? <GET .C ,C-TICK> 1>>
+			       <RFALSE>)
+			      (T
+			       <RTRUE>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<ROUTINE QUEUE (RTN TICK "AUX" C E (INT <>)) ;"automatically enables as well"
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .C .E>
+			<COND (.INT
+			       <SET C .INT>)
+			      (T
+			       <COND (<L? ,C-INTS ,C-INTLEN>
+				      <TELL "**Too many ints!**" CR>)>
+			       <SETG C-INTS <- ,C-INTS ,C-INTLEN>>
+			       <COND (<L? ,C-INTS ,C-MAXINTS>
+				      <SETG C-MAXINTS ,C-INTS>)>
+			       <SET INT <REST ,C-TABLE ,C-INTS>>)>
+			<PUT .INT ,C-RTN .RTN>
+			<RETURN>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN>
+			<SET INT .C>
+			<RETURN>)
+		       (<ZERO? <GET .C ,C-RTN>>
+			<SET INT .C>)>
+		 <SET C <REST .C ,C-INTLEN>>>
+	 <COND (<AND ,CLOCK-HAND
+		     %<COND (<GASSIGNED? ZILCH>
+			'<G? .INT ,CLOCK-HAND>)
+		       (T
+			'<L? <LENGTH .INT> <LENGTH ,CLOCK-HAND>>)>>
+		<SET TICK <- <+ .TICK 3>>>)>
+	 <PUT .INT ,C-TICK .TICK>
+	 .INT>
+
+<ROUTINE CLOCKER ("AUX" E TICK RTN (FLG <>) (Q? <>) OWINNER)
+	 <COND (,CLOCK-WAIT
+		<SETG CLOCK-WAIT <>>
+		<RFALSE>)
+	       (,TIME-STOPPED
+		;"don't run interrupts, but do increment moves"
+		<SETG MOVES <+ ,MOVES 1>>
+		<RFALSE>)>
+	 <SETG CLOCK-HAND <REST ,C-TABLE ,C-INTS>>
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET OWINNER ,WINNER>
+	 <SETG WINNER ,PROTAGONIST>
+	 <REPEAT ()
+		 <COND (<EQUAL? ,CLOCK-HAND .E>
+			<SETG CLOCK-HAND .E>
+			<SETG MOVES <+ ,MOVES 1>>
+			<SETG WINNER .OWINNER>
+			<RETURN .FLG>)
+		       (<NOT <ZERO? <GET ,CLOCK-HAND ,C-RTN>>>
+			<SET TICK <GET ,CLOCK-HAND ,C-TICK>>
+			<COND (<L? .TICK -1>
+			       <PUT ,CLOCK-HAND ,C-TICK <- <- .TICK> 3>>
+			       <SET Q? ,CLOCK-HAND>)
+			      (<NOT <ZERO? .TICK>>
+			       <COND (<G? .TICK 0>
+				      <SET TICK <- .TICK 1>>
+				      <PUT ,CLOCK-HAND ,C-TICK .TICK>)>
+			       <COND (<NOT <ZERO? .TICK>>
+				      <SET Q? ,CLOCK-HAND>)>
+			       <COND (<NOT <G? .TICK 0>>
+				      <SET RTN
+					   %<COND (<GASSIGNED? ZILCH>
+						   '<GET ,CLOCK-HAND ,C-RTN>)
+						  (ELSE
+						   '<NTH ,CLOCK-HAND
+							 <+ <* ,C-RTN 2>
+							    1>>)>>
+				      <COND (<ZERO? .TICK>
+					     <PUT ,CLOCK-HAND ,C-RTN 0>)>
+				      <COND (<APPLY .RTN>
+					     <SET FLG T>)>
+				      <COND (<AND <NOT .Q?>
+						  <NOT
+						   <ZERO?
+						    <GET ,CLOCK-HAND
+							 ,C-RTN>>>>
+					     <SET Q? T>)>)>)>)>
+		 <SETG CLOCK-HAND <REST ,CLOCK-HAND ,C-INTLEN>>
+		 <COND (<NOT .Q?>
+			<SETG C-INTS <+ ,C-INTS ,C-INTLEN>>)>>>
+
+"stuff for handling opcodes that want pixels"
+
+<GLOBAL FONT-X 7>
+<GLOBAL FONT-Y 10>
+
+<CONSTANT PICINF-TBL
+	  <TABLE 0 0>>
+
+<ROUTINE C-PIXELS (X)
+	 <+ <* <- .X 1> ,FONT-X> 1>>
+
+<ROUTINE L-PIXELS (Y)
+	 <+ <* <- .Y 1> ,FONT-Y> 1>>
+
+;<ROUTINE PIXELS-C (X)
+	 <+ </ <- .X 1> ,FONT-X> 1>>
+
+;<ROUTINE PIXELS-L (Y)
+	 <+ </ <- .Y 1> ,FONT-Y> 1>>
+
+;<ROUTINE PIXELS-LR (Y)
+	 </ <- <+ .Y ,FONT-Y> 1> ,FONT-Y>>
+
+<ROUTINE CCURSET (Y X)
+	 <CURSET <L-PIXELS .Y> <C-PIXELS .X>>>
+
+;<ROUTINE CCURGET (TBL)
+	 <CURGET .TBL>
+	 <PUT .TBL 0 <PIXELS-L <GET .TBL 0>>>
+	 <PUT .TBL 1 <PIXELS-C <GET .TBL 1>>>
+	 .TBL>
+
+;<ROUTINE CSPLIT (Y)
+	 <SPLIT <* .Y ,FONT-Y>>>
+
+;<ROUTINE CWINPOS (W Y X)
+	 <WINPOS .W <L-PIXELS .Y> <C-PIXELS .X>>>
+
+;<ROUTINE CWINSIZE (W Y X)
+	 <WINSIZE .W <* .Y ,FONT-Y> <* .X ,FONT-X>>>
+
+;<ROUTINE CMARGIN (L R)
+	 <MARGIN <* .L ,FONT-X> <* .R ,FONT-X>>>
+
+;<ROUTINE CPICINF (P TBL)
+	 <PICINF .P .TBL>
+	 <PUT .TBL 0 </ <GET .TBL 0> ,FONT-Y>>
+	 <PUT .TBL 1 </ <GET .TBL 1> ,FONT-X>>>
+
+;<ROUTINE CDISPLAY (P Y X)
+	 <DISPLAY .P
+		  <COND (<ZERO? .Y> 0)
+			(ELSE <L-PIXELS .Y>)>
+		  <COND (<ZERO? .X> 0)
+			(ELSE <C-PIXELS .X>)>>>
+
+;<ROUTINE CDCLEAR (P Y X)
+	 <DCLEAR .P
+		 <COND (<ZERO? .Y> 0)
+		       (ELSE <L-PIXELS .Y>)>
+		 <COND (<ZERO? .X> 0)
+		       (ELSE <C-PIXELS .X>)>>>
+
+;<ROUTINE CSCROLL (W Y)
+	 <SCROLL .W <* .Y ,FONT-Y>>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/oracle.zabstr b/oracle.zabstr
new file mode 100644
index 0000000..b5c506c
--- /dev/null
+++ b/oracle.zabstr
@@ -0,0 +1,807 @@
+
+<BEGIN-SEGMENT SECRET> 
+<INCLUDE "BASEDEFS" "PDEFS"> 
+<ROOM ORACLE (LOC ROOMS) (DESC "Oracle") (REGION "Region:  Unknown") (UP TO
+CRYPT) (OUT TO CRYPT) (FLAGS RLANDBIT UNDERGROUNDBIT) (GLOBAL SLIME) (VALUE 10)
+(ICON ORACLE-ICON) (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-10>) (THINGS <> SHADOW PHIL-SHADOW-PS) (ACTION ORACLE-F)> 
+<DEFINE-ROUTINE ORACLE-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT ORACLE-OBJECT (LOC ORACLE) (DESC "oracle") (SYNONYM ORACLE BARGTH MOUTH
+HEAD) (ADJECTIVE HUGE ORACLE\'S SERPENT\'S) (FLAGS NDESCBIT VOWELBIT VEHBIT
+INBIT CONTBIT OPENBIT SEARCHBIT DROPBIT) (CAPACITY 100) (OWNER ORACLE-OBJECT) (
+RESEARCH "The encyclopedia scoffs at this silly little legend about an oracle which
+offered bits of wisdom and could transport believers to distant regions.") (
+ACTION ORACLE-OBJECT-F)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT SECRET> 
+<DEFINE-ROUTINE ORACLE-OBJECT-F> 
+<DEFINE-ROUTINE D-ORACLE> 
+<OBJECT DEPRESSION (LOC ORACLE) (DESC "depression") (SYNONYM DEPRESSION) (FLAGS
+NDESCBIT CONTBIT OPENBIT SEARCHBIT) (ACTION DEPRESSION-F)> 
+<DEFINE-ROUTINE DEPRESSION-F> 
+<GLOBAL ORACLE-USED <>> 
+<GLOBAL ORACLE-SCORE 9> 
+<CONSTANT ORACLE-TABLE <PTABLE CRAG GLACIER DELTA-1 FOOT-OF-STATUE
+MINE-ENTRANCE>> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<OBJECT AMULET (LOC G-U-MOUNTAIN) (DESC "amulet") (SYNONYM AMULET) (FLAGS
+TAKEBIT WEARBIT VOWELBIT) (ACTION AMULET-F)> 
+<DEFINE-ROUTINE AMULET-F> 
+<GLOBAL ORACLE-EXIT-NUMBER 5> 
+<CONSTANT EYE-TABLE <PTABLE "None" "One" "Two" "Three" "All">> 
+<DEFINE-ROUTINE I-AMULET> 
+<END-SEGMENT> 
+\ 
+<BEGIN-SEGMENT ORACLE> 
+<OBJECT FLATHEAD-MOUNTAINS (LOC LOCAL-GLOBALS) (DESC "Flathead Mountains") (
+SYNONYM MOUNTAIN MOUNTAINS) (ADJECTIVE FLATHEAD) (RESEARCH
+"\"This towering range runs north to south, forming the eastern border of the
+Frigid River Valley. Beyond the mountains, uninhabitable swamps extend to the
+edge of the world. Near the southern end of the range, the Zorbel Pass permits
+passage to the Fublio Valley.\"") (ACTION FLATHEAD-MOUNTAINS-F)> 
+<DEFINE-ROUTINE FLATHEAD-MOUNTAINS-F> 
+<ROOM CRAG (LOC ROOMS) (DESC "Crag") (REGION "Flathead Mountains") (LDESC
+"You are high in the mountains, surrounded by jagged, rocky peaks. Paths
+squeeze northeast, southeast, and southwest, and it looks like you could
+also climb down.") (SW TO HOLLOW) (DOWN TO UPPER-LEDGE) (NE TO NATURAL-ARCH) (
+SE TO NATURAL-ARCH) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL
+FLATHEAD-MOUNTAINS) (SYNONYM CRAG) (VALUE 10) (MAP-LOC <PTABLE FJORD-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-4>) (ICON CRAG-ICON)> 
+<OBJECT CRAG-REBUS-BUTTON (LOC CRAG) (SDESC "blinking key-shaped button") (
+FDESC "Imbedded in the rocky wall is a blinking button in the shape of a key.")
+(SYNONYM BUTTON) (ADJECTIVE KEY-SHAPED BLINKING) (ACTION REBUS-BUTTON-F)> 
+<ROOM HOLLOW (LOC ROOMS) (DESC "Hollow") (REGION "Flathead Mountains") (NE TO
+CRAG) (SOUTH TO IRON-MINE IF IRON-MINE-OPEN) (FLAGS RLANDBIT ONBIT BEYONDBIT
+OUTSIDEBIT) (GLOBAL FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FJORD-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-3>) (THINGS IRON MINE IRON-MINE-PS) (ACTION HOLLOW-F)> 
+<DEFINE-ROUTINE HOLLOW-F> 
+<GLOBAL IRON-MINE-OPEN <>> 
+<OBJECT RUNES (LOC HOLLOW) (DESC "runes") (SYNONYM RUNES) (ADJECTIVE STRANGE
+FRIGHTENING) (FLAGS READBIT NDESCBIT NARTICLEBIT) (TEXT
+"The runes are in an ancient and unfamiliar language; you can translate only
+a handful of phrases: \"accursed sapphire\" and \"sealed their tomb\" and
+\"death awaits.\"")> 
+<OBJECT HEXAGONAL-HOLE (LOC HOLLOW) (DESC "six-sided hole") (SYNONYM HOLE) (
+ADJECTIVE SMALL SIX-SIDED HEXAGONAL) (FLAGS NDESCBIT) (ACTION HEXAGONAL-HOLE-F)
+> 
+<DEFINE-ROUTINE HEXAGONAL-HOLE-F> 
+<OBJECT BIRCH (LOC HOLLOW) (DESC "birch tree") (FDESC
+"A stubborn birch tree has been eking out an existence in this rocky hollow
+for, judging by its size, fifty to a hundred years -- though, in this barren
+spot, who can guess the growth rate of a tree?") (SYNONYM TREE BIRCH) (
+ADJECTIVE BIRCH) (FLAGS PLANTBIT) (ACTION BIRCH-F)> 
+<DEFINE-ROUTINE BIRCH-F> 
+<ROOM IRON-MINE (LOC ROOMS) (DESC "Iron Mine") (REGION "Flathead Mountains") (
+LDESC "This appears to have been a mine for the excavation of iron ore, possibly
+dating to the earliest days of recorded history. There seems to have been a
+struggle here, in the distant past: two decayed skeletons locked in vicious
+combat. The rusty strips of metal by their side may have once been weapons.") (
+NORTH TO HOLLOW) (OUT TO HOLLOW) (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT) (
+SYNONYM MINE) (ADJECTIVE IRON) (GLOBAL BONES BODIES FLATHEAD-MOUNTAINS) (THINGS
+IRON MINE IRON-MINE-PS <> IRON IRON-PS IRON ORE IRON-PS) (MAP-LOC <PTABLE
+FJORD-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-3>) (ICON IRON-MINE-ICON)> 
+<DEFINE-ROUTINE IRON-PS> 
+<DEFINE-ROUTINE IRON-MINE-PS> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT SAPPHIRE (LOC IRON-MINE) (DESC "sapphire") (FDESC
+"In the bony hand of one of the skeletons, locked in its death grip, is
+a stunningly beautiful sapphire.") (SYNONYM SAPPHIRE JEWEL JERRIMORE) (
+ADJECTIVE STUNNING STUNNINGLY BEAUTIFUL CURSED ACCURSED) (FLAGS TAKEBIT
+TRYTAKEBIT) (SIZE 3) (OWNER SAPPHIRE) (RESEARCH
+"\"The legend of the accursed Jewel of Jerrimore can trace its origins to
+the third century B.E. in the northlands of Frobozz. This jewel, which in
+most versions of the legend is a star sapphire, is said to have been cursed
+by the Mage of Jerrimore as he lay upon his deathbed.|
+   As he sickened, this powerful but twisted wizard became convinced that
+his enemies had poisoned him to gain possession of his greatest treasure,
+the Jewel of Jerrimore. With his dying breath, he loosed a great and evil
+curse upon the Jewel and all who would possess it.|
+   After the Mage's death, each of his heirs took possession of the jewel;
+each held it jealously, mistrusting any who might look upon it; each became
+obsessed with the greed and treachery they perceived around them; and each
+came to early and horrible deaths. Thus grew the legend of the cursed Jewel.|
+   Although the legends vary, all versions say that the Jewel travelled
+through many lands, always leaving a wake of misery and death, and finally
+became lost in a forgotten iron mine.\"") (ACTION SAPPHIRE-F)> 
+<DEFINE-ROUTINE SAPPHIRE-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM NATURAL-ARCH (LOC ROOMS) (DESC "Natural Arch") (REGION
+"Flathead Mountains") (LDESC
+"You are on a windswept rock mesa. Paths lead northwest and southwest around
+an outcropping. A slender bridge of sandstone arcs gracefully above you.
+Beneath the center of the arch, timeworn stairs lead down into a dark cave.") (
+NW TO CRAG) (SW TO CRAG) (DOWN TO ENCHANTED-CAVE) (FLAGS RLANDBIT ONBIT
+BEYONDBIT OUTSIDEBIT) (GLOBAL FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE
+FJORD-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>) (ICON NATURAL-ARCH-ICON)> 
+<OBJECT NATURAL-ARCH-OBJECT (LOC NATURAL-ARCH) (DESC "sandstone arch") (SYNONYM
+ARCH BRIDGE) (ADJECTIVE SANDSTONE NATURAL SLENDER GRACEFUL) (FLAGS NDESCBIT) (
+ACTION NATURAL-ARCH-OBJECT-F)> 
+<DEFINE-ROUTINE NATURAL-ARCH-OBJECT-F> 
+<ROOM ENCHANTED-CAVE (LOC ROOMS) (DESC "Enchanted Cave") (REGION
+"Flathead Mountains") (UP TO NATURAL-ARCH) (OUT TO NATURAL-ARCH) (FLAGS
+RLANDBIT BEYONDBIT UNDERGROUNDBIT) (SYNONYM CAVE) (ADJECTIVE ENCHANTED) (GLOBAL
+BONES FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-4
+MAP-GEN-X-7>) (ICON ENCHANTED-CAVE-ICON) (ACTION ENCHANTED-CAVE-F)> 
+<DEFINE-ROUTINE ENCHANTED-CAVE-F> 
+<CONSTANT STATUE-DESC
+"Behind the altar is a statue of a young man holding a frail flower. His face
+shows heartbreak and despair, with a single tear just beginning to slide down
+his cheek."> 
+<OBJECT STATUE (LOC ENCHANTED-CAVE) (DESC "statue") (SYNONYM STATUE MAN) (
+ADJECTIVE YOUNG) (FLAGS NDESCBIT) (GENERIC G-DIMWIT-F) (ACTION STATUE-F)> 
+<DEFINE-ROUTINE STATUE-F> 
+<OBJECT ALTAR (LOC ENCHANTED-CAVE) (DESC "altar") (SYNONYM ALTAR) (FLAGS
+NDESCBIT VOWELBIT SURFACEBIT SEARCHBIT CONTBIT OPENBIT) (ACTION ALTAR-F)> 
+<DEFINE-ROUTINE ALTAR-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT FLOWER (LOC ENCHANTED-CAVE) (DESC "flower") (SYNONYM FLOWER) (FLAGS
+NDESCBIT TAKEBIT TRYTAKEBIT PLANTBIT) (ACTION FLOWER-F)> 
+<DEFINE-ROUTINE FLOWER-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM UPPER-LEDGE (LOC ROOMS) (DESC "Upper Ledge") (REGION "Flathead Mountains"
+) (LDESC "You are on a mountain ledge with a spectacular view of the Flathead Fjord,
+which separates the Flathead Mountains (which you are at the northern tip of)
+from the Gray Mountains, across the fjord to the north. The ocean, to the west,
+is lost amidst the dense fog which rolls up the fjord. A rocky spire stands
+like a finger at the very edge of the ledge. A steep path climbs farther up
+the mountain. A short distance below is another, smaller ledge.") (UP TO CRAG)
+(DOWN TO LOWER-LEDGE IF ROPE-PLACED ELSE
+"There are no handholds to climb down.") (FLAGS RLANDBIT ONBIT BEYONDBIT
+OUTSIDEBIT) (SYNONYM LEDGE) (ADJECTIVE UPPER) (GLOBAL FJORD LOWER-LEDGE
+FLATHEAD-MOUNTAINS GRAY-MOUNTAINS) (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-4>) (ICON UPPER-LEDGE-ICON)> 
+<GLOBAL ROPE-PLACED <>> 
+<OBJECT SPIRE (LOC UPPER-LEDGE) (DESC "rocky spire") (SYNONYM SPIRE ROCK) (
+ADJECTIVE ROCKY) (FLAGS NDESCBIT)> 
+<ROOM LOWER-LEDGE (LOC ROOMS) (DESC "Lower Ledge") (REGION "Flathead Mountains"
+) (LDESC "The view of the fjord isn't as good, as you are surrounded on three sides by
+nearly vertical cliffs. There don't seem to be any exits.") (UP SORRY
+"You can't even see the rope anymore, let alone reach it.") (DOWN SORRY
+"It's still a good five hundred foot drop to the fjord!") (FLAGS RLANDBIT ONBIT
+BEYONDBIT OUTSIDEBIT) (SYNONYM LEDGE) (ADJECTIVE LOWER) (GLOBAL FJORD
+UPPER-LEDGE FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-2
+MAP-GEN-X-4>) (ICON LOWER-LEDGE-ICON) (ACTION LOWER-LEDGE-F) (THINGS NARROW
+CRACK NARROW-CRACK-PS)> 
+<DEFINE-ROUTINE LOWER-LEDGE-F> 
+<DEFINE-ROUTINE NARROW-CRACK-PS> 
+<OBJECT EASLE (LOC LOWER-LEDGE) (DESC "easel") (FDESC
+"Despite the inferior view, someone has been painting here. An easel
+is set up on the ledge.") (SYNONYM EASLE EASEL) (FLAGS TAKEBIT MAGICBIT CONTBIT
+SEARCHBIT SURFACEBIT OPENBIT VOWELBIT) (SIZE 10) (VALUE 12)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT LANDSCAPE (LOC EASLE) (DESC "landscape") (SYNONYM LANDSCAPE PAINTING) (
+FLAGS TAKEBIT MAGICBIT) (VALUE 12) (GENERIC G-PAINTING-F) (ACTION LANDSCAPE-F)>
+
+<DEFINE-ROUTINE LANDSCAPE-F> 
+<DEFINE-ROUTINE G-PAINTING-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<OBJECT FJORD (LOC LOCAL-GLOBALS) (DESC "the Flathead Fjord") (SYNONYM FJORD) (
+ADJECTIVE FLATHEAD) (FLAGS NARTICLEBIT WATERBIT) (RESEARCH
+"\"The beautiful Flathead Fjord is an ocean inlet which divides the great
+mountains of the eastlands into two ranges: the Gray Mountains, on the north
+side of the fjord, and the Flathead Mountains, south of the fjord.\"") (ACTION
+FJORD-F)> 
+<DEFINE-ROUTINE FJORD-F> 
+\ 
+<OBJECT GRAY-MOUNTAINS (LOC LOCAL-GLOBALS) (DESC "Gray Mountains") (SYNONYM
+MOUNTAINS) (ADJECTIVE GRAY GREY) (RESEARCH
+"\"The Gray Mountains refer to both a mountain range and a province. Lying
+in the far northern part of the eastlands, the Gray Mountains are a harsh
+environment, but a mecca for winter sport enthusiasts.\"") (ACTION
+FLATHEAD-MOUNTAINS-F)> 
+<ROOM GLACIER (LOC ROOMS) (DESC "Glacier") (REGION "Gray Mountains") (LDESC
+"You are on a glacier high atop the Gray Mountains. Far below is a frozen
+lake, brilliantly reflective in the midday sunshine. The climb down looks
+extremely hazardous.") (DOWN PER GLACIER-DEATH) (FLAGS RLANDBIT OUTSIDEBIT
+ONBIT BEYONDBIT) (SYNONYM GLACIER) (GLOBAL GRAY-MOUNTAINS) (VALUE 10) (MAP-LOC
+<PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-10>)> 
+<DEFINE-ROUTINE GLACIER-DEATH> 
+<ROOM MIRROR-LAKE (LOC ROOMS) (DESC "Mirror Lake") (REGION "Gray Mountains") (
+LDESC "You are in the center of a lake whose frozen surface is more reflective than
+the finest mirror. It's almost impossible to tell where the sky ends and the
+ice begins. Worse, the surface is so smooth it's impossible to move!|
+   Looking into the mirror, everything seems somehow... different.") (NORTH
+SORRY "Slip. Slide. No Progress.") (NE SORRY "Slip. Slide. No Progress.") (EAST
+SORRY "Slip. Slide. No Progress.") (SE SORRY "Slip. Slide. No Progress.") (
+SOUTH SORRY "Slip. Slide. No Progress.") (SW SORRY "Slip. Slide. No Progress.")
+(WEST SORRY "Slip. Slide. No Progress.") (NW SORRY "Slip. Slide. No Progress.")
+(FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL GRAY-MOUNTAINS) (MAP-LOC <
+PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>) (ICON MIRROR-LAKE-ICON)
+(ACTION MIRROR-LAKE-F)> 
+<DEFINE-ROUTINE MIRROR-LAKE-F> 
+<DEFINE-ROUTINE LEAVE-MIRROR> 
+<GLOBAL MIRROR-SCORE 14> 
+<OBJECT MIRROR (LOC MIRROR-LAKE) (DESC "mirror") (SYNONYM MIRROR LAKE SURFACE
+ICE) (ADJECTIVE MIRROR FROZEN SMOOTH REFLECTIVE) (FLAGS NDESCBIT) (RESEARCH
+"\"Mirror Lake, in the Gray Mountains, is believed to possess certain magical
+powers. Frank Lloyd Flathead's ski chalet was located nearby.\"") (ACTION
+MIRROR-F)> 
+<DEFINE-ROUTINE MIRROR-F> 
+<OBJECT REFLECTION (LOC MIRROR-LAKE) (OWNER ROOMS) (DESC "reflection") (SYNONYM
+REFLECTION) (FLAGS NDESCBIT) (ACTION REFLECTION-F)> 
+<DEFINE-ROUTINE REFLECTION-F> 
+<GLOBAL ORB-FOUND <>> 
+<GLOBAL ENCHANTED-ORB <>> 
+<GLOBAL ORBS-EXAMINED 0> 
+<ROOM EAST-OF-MIRROR (LOC ROOMS) (DESC "East of Mirror") (REGION
+"Gray Mountains") (WEST SORRY "The surface of the lake is too slippery.") (NW
+TO NORTH-OF-MIRROR) (SW TO SOUTH-OF-MIRROR) (FLAGS RLANDBIT ONBIT OUTSIDEBIT
+BEYONDBIT) (GLOBAL GRAY-MOUNTAINS) (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM
+MAP-GEN-Y-3 MAP-GEN-X-9>) (ACTION EAST-OF-MIRROR-F)> 
+<DEFINE-ROUTINE EAST-OF-MIRROR-F> 
+<DEFINE-ROUTINE MIRRORS-EDGE-DESC> 
+<ROOM WEST-OF-MIRROR (LOC ROOMS) (DESC "West of Mirror") (REGION
+"Gray Mountains") (EAST SORRY "The surface of the lake is too slippery.") (WEST
+TO CHALET) (NE TO NORTH-OF-MIRROR) (SE TO SOUTH-OF-MIRROR) (FLAGS RLANDBIT
+ONBIT OUTSIDEBIT BEYONDBIT) (GLOBAL CHALET GRAY-MOUNTAINS) (MAP-LOC <PTABLE
+GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>) (ACTION WEST-OF-MIRROR-F)> 
+<DEFINE-ROUTINE WEST-OF-MIRROR-F> 
+<ROOM NORTH-OF-MIRROR (LOC ROOMS) (DESC "North of Mirror") (REGION
+"Gray Mountains") (SOUTH SORRY "The surface of the lake is too slippery.") (SE
+TO EAST-OF-MIRROR) (SW TO WEST-OF-MIRROR) (FLAGS RLANDBIT ONBIT OUTSIDEBIT
+BEYONDBIT) (GLOBAL GRAY-MOUNTAINS) (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM
+MAP-GEN-Y-2 MAP-GEN-X-8>) (ACTION NORTH-OF-MIRROR-F)> 
+<DEFINE-ROUTINE NORTH-OF-MIRROR-F> 
+<ROOM SOUTH-OF-MIRROR (LOC ROOMS) (DESC "South of Mirror") (REGION
+"Gray Mountains") (NORTH SORRY "The surface of the lake is too slippery.") (NE
+TO EAST-OF-MIRROR) (NW TO WEST-OF-MIRROR) (FLAGS RLANDBIT ONBIT OUTSIDEBIT
+BEYONDBIT) (GLOBAL GRAY-MOUNTAINS) (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-8>) (ACTION SOUTH-OF-MIRROR-F)> 
+<DEFINE-ROUTINE SOUTH-OF-MIRROR-F> 
+<ROOM CHALET (LOC ROOMS) (DESC "Chalet") (REGION "Gray Mountains") (LDESC
+"You are in a handsomely designed vacation chalet, with an exit to the east.")
+(EAST TO WEST-OF-MIRROR) (OUT TO WEST-OF-MIRROR) (FLAGS RLANDBIT ONBIT
+BEYONDBIT) (GLOBAL GRAY-MOUNTAINS) (SYNONYM CHALET) (ADJECTIVE SKI) (MAP-LOC <
+PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>) (ICON CHALET-ICON)> 
+<OBJECT SCALE-MODEL (LOC CHALET) (DESC "scale model") (FDESC
+"Leaning unobtrusively in one corner is a scale model of the FrobozzCo World
+Headquarters Building. The scale appears to be around 1:1000.") (SYNONYM MODEL)
+(ADJECTIVE SCALE) (FLAGS TAKEBIT MAGICBIT) (SIZE 20) (VALUE 12)> 
+\ 
+<OBJECT SWAMP (LOC LOCAL-GLOBALS) (DESC "swamp") (SYNONYM SWAMP BAYOU DELTA
+MARSH MUCK BOG) (ADJECTIVE SWAMPY MAZE-LIKE FOGGY MIST-COVERED) (FLAGS WATERBIT
+)> 
+<ROOM DELTA-1 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH TO DELTA-3) (NE TO DELTA-4) (
+EAST SORRY "The path dead ends as the growth closes to an unpassable tangle.")
+(SE SORRY "The path dead ends as the growth closes to an unpassable tangle.") (
+SOUTH SORRY "The path dead ends as the growth closes to an unpassable tangle.")
+(SW TO DELTA-2) (WEST SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NW TO
+DELTA-2) (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT) (GLOBAL SWAMP) (
+VALUE 10) (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-10>) (ICON
+DELTA-ICON)> 
+<ROOM DELTA-2 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NE TO
+DELTA-1) (EAST SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SE TO
+DELTA-1) (SOUTH TO DELTA-7) (SW TO DELTA-7) (WEST SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NW TO
+DELTA-3) (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT) (GLOBAL SWAMP) (
+MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>) (ICON DELTA-ICON)> 
+<ROOM DELTA-3 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH TO DELTA-4) (NE TO DELTA-4) (
+EAST TO DELTA-1) (SE SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SOUTH
+SORRY "The path dead ends as the growth closes to an unpassable tangle.") (SW
+TO DELTA-2) (WEST TO DELTA-5) (NW TO DELTA-5) (FLAGS RLANDBIT OUTSIDEBIT ONBIT
+BEYONDBIT DELTABIT) (GLOBAL SWAMP) (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-8>) (ICON DELTA-ICON)> 
+<ROOM DELTA-4 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NE TO
+RIVERS-END) (EAST TO DELTA-1) (SE SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SOUTH
+SORRY "The path dead ends as the growth closes to an unpassable tangle.") (SW
+TO DELTA-3) (WEST TO DELTA-3) (NW TO DELTA-5) (FLAGS RLANDBIT OUTSIDEBIT ONBIT
+BEYONDBIT DELTABIT) (GLOBAL SWAMP) (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-2
+MAP-GEN-X-9>) (ICON DELTA-ICON)> 
+<ROOM DELTA-5 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NE TO
+DELTA-4) (EAST SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SE TO
+DELTA-3) (SOUTH TO DELTA-3) (SW TO DELTA-6) (WEST SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NW SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (FLAGS
+RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT) (GLOBAL SWAMP) (MAP-LOC <PTABLE
+DELTA-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-7>) (ICON DELTA-ICON)> 
+<ROOM DELTA-6 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH TO DELTA-5) (NE SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (EAST SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SE TO
+DELTA-7) (SOUTH SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SW SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (WEST TO
+DELTA-7) (NW SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (FLAGS
+RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT) (GLOBAL SWAMP) (MAP-LOC <PTABLE
+DELTA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>) (ICON DELTA-ICON)> 
+<OBJECT LARGE-LILY-PAD (LOC DELTA-6) (DESC "huge lily pad") (SYNONYM PAD) (
+ADJECTIVE LARGE LILY) (FLAGS PLANTBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT) (
+CAPACITY 100) (ACTION LILY-PAD-F)> 
+<DEFINE-ROUTINE LILY-PAD-F> 
+<OBJECT OTTO (LOC LARGE-LILY-PAD) (DESC "ugly toad") (SYNONYM TOAD OTTO) (
+ADJECTIVE UGLY LARGE BLUE GRUMPY) (FLAGS ACTORBIT VOWELBIT CONTBIT OPENBIT
+SEARCHBIT) (ACTION OTTO-F)> 
+<DEFINE-ROUTINE OTTO-F> 
+<GLOBAL OTTO-NAME-COUNTER 0> 
+<DEFINE-ROUTINE I-STONE-TO-OTTO> 
+<OBJECT SMALL-LILY-PAD (LOC DELTA-6) (DESC "small lily pad") (SYNONYM PAD) (
+ADJECTIVE SMALL LILY) (FLAGS PLANTBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT) (
+CAPACITY 20) (ACTION LILY-PAD-F)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT SPYGLASS (LOC SMALL-LILY-PAD) (DESC "spyglass") (PLURAL "spyglasses") (
+SYNONYM SPYGLASS TELESCOPE) (FLAGS TAKEBIT MAGICBIT TRYTAKEBIT) (VALUE 12) (
+ACTION SPYGLASS-F)> 
+<DEFINE-ROUTINE SPYGLASS-F> 
+<OBJECT LARGE-FLY (LOC LOCAL-GLOBALS) (DESC "large fly") (PLURAL "flies") (
+SYNONYM FLY) (ADJECTIVE LARGE) (FLAGS TAKEBIT TRYTAKEBIT) (SIZE 1) (ACTION
+FLY-F)> 
+<OBJECT LARGER-FLY (LOC LOCAL-GLOBALS) (DESC "larger fly") (PLURAL "flies") (
+SYNONYM FLY) (ADJECTIVE LARGER) (FLAGS TAKEBIT TRYTAKEBIT) (SIZE 1) (ACTION
+FLY-F)> 
+<OBJECT EVEN-LARGER-FLY (LOC LOCAL-GLOBALS) (DESC "even larger fly") (PLURAL
+"flies") (SYNONYM FLY) (ADJECTIVE EVEN LARGER) (FLAGS VOWELBIT TAKEBIT
+TRYTAKEBIT) (SIZE 1) (ACTION FLY-F)> 
+<OBJECT LARGEST-FLY (LOC LOCAL-GLOBALS) (DESC "the largest fly") (PLURAL
+"flies") (SYNONYM FLY) (ADJECTIVE LARGEST) (FLAGS NARTICLEBIT TAKEBIT
+TRYTAKEBIT) (SIZE 1) (ACTION FLY-F)> 
+<GLOBAL FLIES-EATEN 0> 
+<DEFINE-ROUTINE FLY-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<BEGIN-SEGMENT SECRET> 
+<BEGIN-SEGMENT ORACLE> 
+<DEFINE-ROUTINE FLY-ROOM-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM DELTA-7 (LOC ROOMS) (DESC "Delta") (REGION "Frigid River Valley") (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.") (NORTH SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (NE TO
+DELTA-2) (EAST TO DELTA-2) (SE SORRY
+"The path dead ends as the growth closes to an unpassable tangle.") (SOUTH
+SORRY "The path dead ends as the growth closes to an unpassable tangle.") (SW
+TO OCEANS-EDGE) (WEST TO DELTA-6) (NW TO DELTA-6) (FLAGS RLANDBIT OUTSIDEBIT
+ONBIT BEYONDBIT DELTABIT) (GLOBAL SWAMP) (MAP-LOC <PTABLE DELTA-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-7>) (ICON DELTA-ICON)> 
+<ROOM RIVERS-END (LOC ROOMS) (DESC "River's End") (REGION "Frigid River Valley"
+) (LDESC "The Frigid River ends its long journey from Flood Control Dam #3 here,
+losing its speed and turning into a delta of meandering channels to the
+southwest. To continue northeast up the river, you'd need a boat and a
+number of strong oarsmen.") (NE SORRY "Where's the boat? Where're the oarsmen?"
+) (SW TO DELTA-4) (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT) (MAP-LOC <PTABLE
+DELTA-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-10>) (ICON RIVERS-END-ICON) (ACTION
+FLY-ROOM-F)> 
+<OBJECT FRIGID-RIVER (LOC RIVERS-END) (DESC "the Frigid River") (SYNONYM RIVER)
+(ADJECTIVE FRIGID) (FLAGS NDESCBIT NARTICLEBIT WATERBIT) (RESEARCH
+"\"The Frigid River, the mightiest in the Great Underground Empire, forms
+at the spilloff of Flood Control Dam #3, pours over Aragain Falls, and finally
+empties into the Great Sea at the southern end of the Frigid River Valley. The
+total length, from dam to river delta, is over 150 bloits.\"")> 
+<ROOM OCEANS-EDGE (LOC ROOMS) (DESC "Ocean's Edge") (REGION
+"Frigid River Valley") (LDESC
+"The channels of the river trickle into the mighty Flathead Ocean, which
+extends west to the horizon. A path leads into the delta to the northeast.") (
+NE TO DELTA-7) (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT) (GLOBAL
+FLATHEAD-OCEAN) (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-6>) (ICON
+OCEANS-EDGE-ICON)> 
+<OBJECT FLATHEAD-OCEAN (LOC LOCAL-GLOBALS) (DESC "the Flathead Ocean") (SYNONYM
+OCEAN SEA) (ADJECTIVE FLATHEAD MIGHTY GREAT) (FLAGS NARTICLEBIT WATERBIT) (
+RESEARCH "\"The Flathead Ocean divides the world into the eastlands and westlands. It
+was called the Great Sea until the time of Dimwit Flathead, and it is still
+known by its earlier name in many parts of the kingdom.\"")> 
+\ 
+<ROOM FOOT-OF-STATUE (LOC ROOMS) (REGION "Fublio Valley") (DESC
+"Foot of Statue") (SW TO VIEW-OF-STATUE) (FLAGS RLANDBIT OUTSIDEBIT ONBIT
+BEYONDBIT) (GLOBAL DIMWIT-STATUE) (VALUE 10) (MAP-LOC <PTABLE FUBLIO-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-8>) (ICON FOOT-OF-STATUE-ICON) (ACTION FOOT-OF-STATUE-F)>
+
+<DEFINE-ROUTINE FOOT-OF-STATUE-F> 
+<OBJECT DIMWIT-STATUE (LOC LOCAL-GLOBALS) (OWNER DIMWIT-STATUE) (DESC
+"statue of Dimwit Flathead") (SYNONYM STATUE DIMWIT FLATHEAD) (ADJECTIVE LORD
+DIMWIT) (GENERIC G-DIMWIT-F) (ACTION DIMWIT-STATUE-F)> 
+<DEFINE-ROUTINE DIMWIT-STATUE-F> 
+<CONSTANT NEAR-STATUE-DESC
+"Towering above you is a statue so tall that you can't see much beyond
+the knees."> 
+<CONSTANT DISTANT-STATUE-DESC
+"To the northeast, a huge statue of Dimwit Flathead casts a dark shadow across
+the land. The statue is beginning to deteriorate; vines cover the lower bloit
+or so, and some pterodactyls have begun nesting on the flat top of the statue's
+head."> 
+<ROOM VIEW-OF-STATUE (LOC ROOMS) (REGION "Fublio Valley") (DESC
+"View of Statue") (NE TO FOOT-OF-STATUE) (WEST TO BASE-OF-MOUNTAINS) (SE TO
+CAIRN) (SOUTH TO OUTSIDE-HUT) (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT) (
+GLOBAL DIMWIT-STATUE) (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)
+(THINGS <> SHADOW PHIL-SHADOW-PS SMALL TREES TREE-PS) (ACTION VIEW-OF-STATUE-F)
+> 
+<DEFINE-ROUTINE TREE-PS> 
+<DEFINE-ROUTINE VIEW-OF-STATUE-F> 
+<ROOM OUTSIDE-HUT (LOC ROOMS) (REGION "Fublio Valley") (DESC "Outside Hut") (
+LDESC "A trail from the north ends here. To the west is a decaying hut.") (
+NORTH TO VIEW-OF-STATUE) (WEST TO MEGABOZ-HUT) (IN TO MEGABOZ-HUT) (FLAGS
+RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT) (GLOBAL MEGABOZ-HUT) (MAP-LOC <PTABLE
+FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>) (ICON OUTSIDE-HUT-ICON)> 
+<ROOM MEGABOZ-HUT (LOC ROOMS) (REGION "Fublio Valley") (DESC "Megaboz's Hut") (
+EAST TO OUTSIDE-HUT) (OUT TO OUTSIDE-HUT) (UP PER ATTIC-ENTER-F) (SYNONYM HUT)
+(OWNER MEGABOZ) (GLOBAL MEGABOZ-TRAP-DOOR) (FLAGS RLANDBIT BEYONDBIT) (MAP-LOC
+<PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>) (ACTION MEGABOZ-HUT-F)> 
+<DEFINE-ROUTINE MEGABOZ-HUT-F> 
+<DEFINE-ROUTINE ATTIC-ENTER-F> 
+<OBJECT POEM (LOC MEGABOZ-HUT) (DESC "poem") (SYNONYM POEM) (FLAGS NDESCBIT
+READBIT) (TEXT "\"She stood in the shade of a _ _ _ _ _   _ _ _ _|
+She held the prize of an _ _ _ _   _ _ _ _|
+And all beheld that she proudly _ _ _ _|
+A relic found in a _ _ _ _ _   _ _ _ _ _\"")> 
+<OBJECT WALL-HANGINGS (LOC MEGABOZ-HUT) (DESC "wall hangings") (SYNONYM HANGING
+HANGINGS) (ADJECTIVE EMBROIDER WALL) (FLAGS NDESCBIT READBIT) (TEXT
+"One hanging reads \"Hut Sweet Hut\" and the other reads \"Forget the rest;
+Megaboz is the best.\"")> 
+<OBJECT MEGABOZ-TRAP-DOOR (LOC LOCAL-GLOBALS) (DESC "trap door") (SYNONYM DOOR)
+(ADJECTIVE TRAP) (FLAGS DOORBIT) (ACTION MEGABOZ-TRAP-DOOR-F)> 
+<DEFINE-ROUTINE MEGABOZ-TRAP-DOOR-F> 
+<ROOM ATTIC (LOC ROOMS) (REGION "Fublio Valley") (DESC "Attic") (LDESC
+"This musty little room is barely more than a crawl space beneath the roof of
+the hut.") (DOWN TO MEGABOZ-HUT IF MEGABOZ-TRAP-DOOR IS OPEN) (FLAGS RLANDBIT
+BEYONDBIT) (GLOBAL MEGABOZ-TRAP-DOOR LOCK-OBJECT) (VALUE 8) (SYNONYM ATTIC) (
+MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>) (ICON ATTIC-ICON) (
+THINGS <> SHADOW PHIL-SHADOW-PS)> 
+<OBJECT ATTIC-REBUS-BUTTON (LOC ATTIC) (SDESC "blinking key-shaped button") (
+SYNONYM BUTTON) (ADJECTIVE KEY-SHAPED BLINKING) (ACTION REBUS-BUTTON-F)> 
+<OBJECT TRUNK (LOC ATTIC) (DESC "trunk") (LDESC
+"In the shadows under the eaves, you spot an ancient trunk, covered with
+dust and cobwebs.") (SYNONYM TRUNK) (ADJECTIVE ANCIENT DUSTY) (FLAGS TRYTAKEBIT
+CONTBIT SEARCHBIT LOCKEDBIT) (CAPACITY 75) (ACTION TRUNK-F)> 
+<DEFINE-ROUTINE TRUNK-F> 
+<GLOBAL FLY-IN-TRUNK T> 
+<OBJECT ROBE (LOC MEGABOZ) (DESC "wizardly robe") (SYNONYM ROBE) (ADJECTIVE
+WIZARDLY) (FLAGS WEARBIT)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT PAN (LOC TRUNK) (DESC "saucepan") (SYNONYM SAUCEPAN PAN) (FLAGS TAKEBIT
+CONTBIT OPENBIT SEARCHBIT) (ACTION PAN-F)> 
+<DEFINE-ROUTINE PAN-F> 
+<OBJECT NOTEBOOK (LOC TRUNK) (DESC "notebook") (SYNONYM NOTEBOOK) (FLAGS
+TAKEBIT READBIT) (ACTION NOTEBOOK-F)> 
+<DEFINE-ROUTINE NOTEBOOK-F> 
+<GLOBAL SACRED-WORD-NUMBER 10> 
+<CONSTANT SACRED-WORDS <PTABLE "sizul" "fzorty" "xzilch" "fublitskee" "zastic"
+"aulderfoo" "lizowurt" "eldablitz" "mordex" "hildebud">> 
+<CONSTANT SACRED-WORD-WORDS-LENGTH 10> 
+<CONSTANT SACRED-WORD-WORDS <PTABLE <VOC "SIZUL" <>> <VOC "FZORTY" <>> <VOC
+"XZILCH" <>> <VOC "FUBLITSKEE" <>> <VOC "ZASTIC" <>> <VOC "AULDERFOO" <>> <VOC
+"LIZOWURT" <>> <VOC "ELDABLITZ" <>> <VOC "MORDEX" <>> <VOC "HILDEBUD" <>>>> 
+<OBJECT SACRED-WORD-OBJ (DESC "sacred word") (SYNONYM SIZUL FZORTY XZILCH
+FUBLITSKEE ZASTIC AULDERFOO LIZOWURT ELDABLITZ MORDEX HILDEBUD)> 
+<OBJECT HARMONICA (LOC TRUNK) (DESC "harmonica") (SYNONYM HARMONICA) (FLAGS
+TAKEBIT) (SIZE 3) (ACTION HARMONICA-F)> 
+<DEFINE-ROUTINE HARMONICA-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM CAIRN (LOC ROOMS) (REGION "Fublio Valley") (DESC "Cairn") (LDESC
+"Paths lead around this haphazard pile of stones to the northwest, east,
+and south.") (NW TO VIEW-OF-STATUE) (EAST TO OUTSIDE-SHACK) (SOUTH TO
+QUARRYS-EDGE) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (MAP-LOC <PTABLE
+FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>) (ICON CAIRN-ICON)> 
+<OBJECT CAIRN-OBJECT (LOC CAIRN) (DESC "pile of stones") (SYNONYM PILE STONE
+STONES CAIRN) (ADJECTIVE HAPHAZARD) (FLAGS NDESCBIT) (ACTION CAIRN-OBJECT-F)> 
+<DEFINE-ROUTINE CAIRN-OBJECT-F> 
+<ROOM OUTSIDE-SHACK (LOC ROOMS) (REGION "Fublio Valley") (DESC "Outside Shack")
+(LDESC "To the northeast is a run-down little shack. A sign is posted by the
+entrance, and a path runs off to the west.") (WEST TO CAIRN) (NE TO
+GUMBOZ-SHACK) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL GUMBOZ-SHACK
+SIGN) (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-9>)> 
+<ROOM GUMBOZ-SHACK (LOC ROOMS) (REGION "Fublio Valley") (DESC "Gumboz's Shack")
+(LDESC "You are in a small shack, the home of an obscure magician named Gumboz. The
+only exit is southwest.") (SW PER SHACK-EXIT-F) (OUT PER SHACK-EXIT-F) (FLAGS
+RLANDBIT BEYONDBIT) (SYNONYM SHACK) (ADJECTIVE GUMBOZ\'S) (MAP-LOC <PTABLE
+FUBLIO-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-10>) (ACTION GUMBOZ-SHACK-F)> 
+<DEFINE-ROUTINE GUMBOZ-SHACK-F> 
+<DEFINE-ROUTINE SHACK-EXIT-F> 
+<GLOBAL HUNGER-SPELL-CAST <>> 
+<GLOBAL HUNGER-COUNT 0> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE CAST-HUNGER-SPELL> 
+<DEFINE-ROUTINE I-HUNGER> 
+<OBJECT SMALL-VIAL (LOC GUMBOZ-SHACK) (DESC "four-gloop vial") (SYNONYM VIAL
+WRITING) (ADJECTIVE FOUR-GLOOP 4-GLOOP FOUR GLOOP SMALL INT.NUM) (FLAGS TAKEBIT
+READBIT TRYTAKEBIT) (SIZE 3) (OWNER SMALL-VIAL) (GENERIC G-VIAL-F) (ACTION
+VIAL-F)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM QUARRYS-EDGE (LOC ROOMS) (REGION "Fublio Valley") (DESC "Quarry's Edge")
+(LDESC "The trail curves north and east around an abandoned quarry.|
+   An ancient pine clings to the rim of the quarry. Its needles are brown with
+age, and its drooping branches cast a dark shadow across the quarry below.") (
+NORTH TO CAIRN) (DOWN TO QUARRY) (EAST TO OUTSIDE-HOVEL) (FLAGS RLANDBIT ONBIT
+BEYONDBIT OUTSIDEBIT) (GLOBAL TIRED-PINE QUARRY) (MAP-LOC <PTABLE
+FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-8>) (ICON QUARRYS-EDGE-ICON) (THINGS <>
+SHADOW QUARRY-SHADOW-PS)> 
+<OBJECT TIRED-PINE (LOC LOCAL-GLOBALS) (DESC "ancient pine tree") (SYNONYM TREE
+PINE) (ADJECTIVE PINE TIRED ANCIENT OLD LARGE) (FLAGS VOWELBIT PLANTBIT) (
+ACTION TIRED-PINE-F)> 
+<DEFINE-ROUTINE TIRED-PINE-F> 
+<ROOM QUARRY (LOC ROOMS) (DESC "Quarry") (REGION "Fublio Valley") (LDESC
+"The branches of a weary old pine cast a dark shadow across the floor
+of this old stone quarry.") (UP TO QUARRYS-EDGE) (OUT TO QUARRYS-EDGE) (FLAGS
+RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (SYNONYM QUARRY) (ADJECTIVE ABANDONED OLD
+STONE) (GLOBAL TIRED-PINE) (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-7
+MAP-GEN-X-7>) (ICON QUARRY-ICON) (THINGS <> SHADOW QUARRY-SHADOW-PS) (ACTION
+QUARRY-F)> 
+<DEFINE-ROUTINE QUARRY-F> 
+<DEFINE-ROUTINE QUARRY-SHADOW-PS> 
+<BEGIN-SEGMENT 0> 
+<OBJECT RUSTY-KEY (LOC LOCAL-GLOBALS) (DESC "rusty key") (SYNONYM KEY) (
+ADJECTIVE RUSTY OLD) (FLAGS TAKEBIT KEYBIT) (SIZE 2) (ACTION RUSTY-KEY-F)> 
+<DEFINE-ROUTINE RUSTY-KEY-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM OUTSIDE-HOVEL (LOC ROOMS) (REGION "Fublio Valley") (DESC "Outside Hovel")
+(LDESC "A trail from the west ends here at this tiny structure. Next to the
+hovel's entrance, to the east, is a faded sign.") (WEST TO QUARRYS-EDGE) (EAST
+TO KORBOZ-HOVEL) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL SIGN
+KORBOZ-HOVEL) (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-9>)> 
+<ROOM KORBOZ-HOVEL (LOC ROOMS) (REGION "Fublio Valley") (DESC "Korboz's Hovel")
+(LDESC "This tiny shack looks like the living quarters of a hermit wizard. The
+only exit is west.") (WEST TO OUTSIDE-HOVEL) (OUT TO OUTSIDE-HOVEL) (FLAGS
+RLANDBIT BEYONDBIT) (SYNONYM HOVEL) (ADJECTIVE KORBOZ\'S) (MAP-LOC <PTABLE
+FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-10>)> 
+<ROOM BASE-OF-MOUNTAINS (LOC ROOMS) (REGION "Fublio Valley") (DESC
+"Base of Mountains") (LDESC
+"You are near the base of the mighty Flathead Mountains, toward the
+southernmost end of the range. The mountains run approximately northeast
+to southwest here. The path turns here, heading east into the valley
+and north into the foothills.") (NORTH TO FOOTHILLS) (UP TO FOOTHILLS) (EAST TO
+VIEW-OF-STATUE) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL
+FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>) (
+ICON BASE-OF-MTS-ICON)> 
+<ROOM FOOTHILLS (LOC ROOMS) (REGION "Flathead Mountains") (DESC "Foothills") (
+LDESC "You are in the foothills of the Flathead Mountains, at the entrance to the
+Zorbel Pass. The pass rises to the northwest, and a path leads downward to
+the south.") (NW TO ZORBEL-PASS) (UP TO ZORBEL-PASS) (SOUTH TO
+BASE-OF-MOUNTAINS) (DOWN TO BASE-OF-MOUNTAINS) (FLAGS RLANDBIT ONBIT BEYONDBIT
+OUTSIDEBIT) (GLOBAL FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FUBLIO-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-6>)> 
+<ROOM ZORBEL-PASS (LOC ROOMS) (REGION "Flathead Mountains") (DESC "Zorbel Pass"
+) (LDESC "This pass is reputed to be the only crossable point along the entire range.
+You are now far above the valley floor, which spreads out below you like a
+map, but you have still not reached the highest point of the pass.") (DOWN TO
+FOOTHILLS) (SE TO FOOTHILLS) (NW TO AVALANCHE) (UP TO AVALANCHE) (FLAGS
+RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL FLATHEAD-MOUNTAINS) (MAP-LOC <
+PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>) (ICON ZORBEL-PASS-ICON)> 
+<ROOM AVALANCHE (LOC ROOMS) (REGION "Flathead Mountains") (DESC "Avalanche") (
+LDESC "As you near the highest point of the pass, you find it blocked by a recent
+avalanche. Though you can travel no farther to the northwest, the avalanche
+has revealed an ancient ravine leading up the side of the mountain.") (DOWN TO
+ZORBEL-PASS) (UP TO TIMBERLINE) (NW SORRY "The way is blocked by an avalanche."
+) (SE TO ZORBEL-PASS) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL
+FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-4>) (
+ICON AVALANCHE-ICON)> 
+<ROOM TIMBERLINE (LOC ROOMS) (REGION "Flathead Mountains") (DESC "Timberline")
+(LDESC "You are on the slopes of Mount Foobia, the tallest peak in the Flathead
+Mountains. A narrow ravine leads almost straight downward. The vegetation
+thins out here, and the air is getting a bit thin as well. Not too far
+above you, the slope disappears into the thick clouds which eternally
+shroud the apex of Foobia.") (UP TO AMONGST-THE-CLOUDS) (DOWN TO AVALANCHE) (
+FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL FLATHEAD-MOUNTAINS) (MAP-LOC
+<PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>) (ICON TIMBERLINE-ICON)> 
+<ROOM AMONGST-THE-CLOUDS (LOC ROOMS) (REGION "Flathead Mountains") (DESC
+"Amongst the Clouds") (LDESC
+"You are surrounded by the thick white clouds which perpetually hide the peak
+of Mount Foobia. Visibility is severely limited; you can only assume that the
+slope continues to be climbable above you. Breathing here is a chore.") (UP TO
+ON-TOP-OF-THE-WORLD) (DOWN TO TIMBERLINE) (FLAGS RLANDBIT ONBIT BEYONDBIT
+OUTSIDEBIT) (GLOBAL FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FUBLIO-MAP-NUM
+MAP-GEN-Y-2 MAP-GEN-X-2>) (ICON AMONGST-CLOUDS-ICON)> 
+<ROOM ON-TOP-OF-THE-WORLD (LOC ROOMS) (REGION "Flathead Mountains") (DESC
+"On Top of the World") (LDESC
+"You have emerged above the cloud layer, at a plateau which forms the apex of
+Foobia. There is no sign that anyone has ever been here before. Nearby is a
+huge object, which vanishes into the mists above. It's difficult to be certain,
+but it looks a bit like a piece of a corner of an edge of a toe of an
+enormously tremendous brogmoid. A huge colony of fungus clogs the cracks in
+the toe.") (DOWN TO AMONGST-THE-CLOUDS) (UP SORRY
+"The brogmoid toe is unclimbable.") (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+(GLOBAL BROGMOID FLATHEAD-MOUNTAINS) (MAP-LOC <PTABLE FUBLIO-MAP-NUM
+MAP-GEN-Y-2 MAP-GEN-X-1>) (ICON ON-TOP-OF-WORLD-ICON)> 
+<OBJECT TOE-FUNGUS (LOC ON-TOP-OF-THE-WORLD) (DESC "toe fungus") (SYNONYM
+FUNGUS FUNGI) (ADJECTIVE TOE) (FLAGS NDESCBIT PLANTBIT) (GENERIC G-FUNGUS-F) (
+RESEARCH "\"A class of saprophytic parasitical plants which lack chlorophyll and are
+frequently found in the less hygienic cavities of brogmoids.\"") (ACTION
+TOE-FUNGUS-F)> 
+<DEFINE-ROUTINE TOE-FUNGUS-F> 
+<DEFINE-ROUTINE GET-LITTLE-FUNGUS> 
+<BEGIN-SEGMENT 0> 
+<OBJECT LITTLE-FUNGUS (LOC GLOBAL-OBJECTS) (DESC "little fungus") (SYNONYM
+SEYMOUR SHERMAN IRVING SAMMY MYRON BORIS MELVIN LESTER JULIUS RICARDO OMAR
+BARNABY FUNGUS COUSIN) (ADJECTIVE SMALL) (FLAGS PLANTBIT) (GENERIC G-FUNGUS-F)
+(RESEARCH "\"A class of saprophytic parasitical plants which lack chlorophyll and are
+frequently found in the less hygienic cavities of brogmoids.\"") (ACTION
+LITTLE-FUNGUS-F)> 
+<DEFINE-ROUTINE LITTLE-FUNGUS-F> 
+<END-SEGMENT> 
+\ 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM MINE-ENTRANCE (LOC ROOMS) (REGION "Antharia") (DESC "Mine Entrance") (
+LDESC "The Antharian granola mines can be entered to the east, and a major
+road leads west. Signs of the granola riots are everywhere. Speaking of
+signs, there's one next to the mine entrance.") (WEST TO COAST-ROAD) (EAST TO
+RUBBLE-ROOM) (IN TO RUBBLE-ROOM) (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT) (
+GLOBAL SIGN GRANOLA-MINE) (VALUE 10) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-8>) (ICON MINE-ENTRANCE-ICON)> 
+<ROOM COAST-ROAD (LOC ROOMS) (REGION "Antharia") (DESC "Coast Road") (LDESC
+"This is a bend in a wide dirt road running along the ocean's edge. You can
+go east or southwest.") (EAST TO MINE-ENTRANCE) (SW TO FLATHEAD-STADIUM) (FLAGS
+RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT) (GLOBAL FLATHEAD-OCEAN) (MAP-LOC <PTABLE
+ANTHARIA-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>) (ICON COAST-ROAD-ICON)> 
+<ROOM FLATHEAD-STADIUM (LOC ROOMS) (REGION "Antharia") (DESC "Flathead Stadium"
+) (LDESC "This was one of Dimwit's most impressive projects: a stadium which would
+hold the entire population of the Great Underground Empire. A whole range
+of sporting matches were held here, from dragonfights to Double Fanucci
+tournaments. Arched exits lead northeast, southeast, and south.") (NE TO
+COAST-ROAD) (SE TO EDGE-OF-BOG) (SOUTH TO NORTH-OF-ANTHAR) (FLAGS RLANDBIT
+OUTSIDEBIT ONBIT BEYONDBIT) (SYNONYM STADIUM) (ADJECTIVE FLATHEAD LARGE) (
+MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>) (ICON STADIUM-ICON)>
+
+<BEGIN-SEGMENT 0> 
+<OBJECT BAT (LOC FLATHEAD-STADIUM) (DESC "wooden club") (FDESC
+"A long wooden club lies on the turf. There is something engraved on the
+club's thick end.") (SYNONYM CLUB BAT) (ADJECTIVE WOODEN BASEBALL) (FLAGS
+TRYTAKEBIT TAKEBIT BURNBIT READBIT MAGICBIT) (SIZE 10) (VALUE 12) (TEXT
+"A symbol which resembles a winged rodent is engraved on the barrel
+of the club.") (ACTION BAT-F)> 
+<GLOBAL BAT-SWINGS 0> 
+<DEFINE-ROUTINE BAT-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM NORTH-OF-ANTHAR (LOC ROOMS) (REGION "Antharia") (DESC "North of Anthar")
+(LDESC "You are on a road at the fringe of Anthar. The road continues north and
+south. In the latter direction, a hastily constructed fence of rock and
+wire blocks the road. A sign is posted in front of the fence. A smaller
+path heads eastward.") (SOUTH SORRY
+"The fence is very tall and covered with sharp nasties.") (NORTH TO
+FLATHEAD-STADIUM) (EAST TO EDGE-OF-BOG) (FLAGS RLANDBIT ONBIT BEYONDBIT
+OUTSIDEBIT) (GLOBAL SIGN) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6
+MAP-GEN-X-6>) (THINGS <> FENCE FENCE-PS)> 
+<DEFINE-ROUTINE FENCE-PS> 
+<ROOM EDGE-OF-BOG (LOC ROOMS) (REGION "Antharia") (DESC "Edge of Bog") (LDESC
+"A series of flat stones leads east into a mist-covered marsh. Paths lead
+northwest and west.") (EAST TO CLIFF-BOTTOM) (WEST TO NORTH-OF-ANTHAR) (NW TO
+FLATHEAD-STADIUM) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (GLOBAL SWAMP) (
+MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)> 
+<ROOM CLIFF-BOTTOM (LOC ROOMS) (REGION "Antharia") (DESC "Cliff Bottom") (LDESC
+"You are at the bottom of a sheer granite cliff. A foggy swamp lies to
+the west. Rough handholds have been carved into the face of the cliff.") (WEST
+TO EDGE-OF-BOG) (UP TO PRECIPICE) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (
+GLOBAL SWAMP) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>) (ICON
+CLIFF-BOTTOM-ICON)> 
+<ROOM PRECIPICE (LOC ROOMS) (REGION "Antharia") (DESC "Precipice") (LDESC
+"This is a tiny shelf of granite atop a sheer cliff. Below, you can see a
+misty bog and, beyond that, the ocean. Far to the northwest is a large
+stadium; to the southwest, a town. A path leads east into a hollow.") (DOWN TO
+CLIFF-BOTTOM) (EAST TO AERIE) (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT) (
+GLOBAL SWAMP FLATHEAD-OCEAN FLATHEAD-STADIUM GLOBAL-BLDG) (MAP-LOC <PTABLE
+ANTHARIA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>) (ICON PRECIPICE-ICON)> 
+<ROOM AERIE (LOC ROOMS) (REGION "Antharia") (DESC "Aerie") (LDESC
+"You are in a natural bowl-shaped depression, hollowed out by eons of howling
+wind. At the bottom is a huge bird nest, built of myriad bits of scavenged
+twigs and debris. Beyond the nest, to the southeast, is a dark opening. A
+trail leads west.") (WEST TO PRECIPICE) (SE TO ICKY-CAVE) (FLAGS RLANDBIT ONBIT
+BEYONDBIT OUTSIDEBIT) (SYNONYM AERIE) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-9>) (ICON AERIE-ICON) (ACTION AERIE-F)> 
+<DEFINE-ROUTINE AERIE-F> 
+<DEFINE-ROUTINE FIND-LANTERN> 
+<OBJECT NEST (LOC AERIE) (DESC "nest") (SYNONYM NEST) (ADJECTIVE LARGE BIRD
+BIRD\'S) (FLAGS NDESCBIT VEHBIT CONTBIT OPENBIT SEARCHBIT) (ACTION NEST-F)> 
+<DEFINE-ROUTINE NEST-F> 
+<OBJECT SILK-TIE (LOC LOCAL-GLOBALS) (DESC "silk tie") (SYNONYM TIE) (ADJECTIVE
+FADED GRAY) (FLAGS TAKEBIT MAGICBIT WEARBIT READBIT) (TEXT
+"Although terribly old and faded, you can tell that the tie was once gray with
+little green zorkmid symbols all over it.") (VALUE 12)> 
+<ROOM ICKY-CAVE (LOC ROOMS) (REGION "Antharia") (DESC "Icky Cave") (NW TO AERIE
+) (OUT TO AERIE) (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT) (SYNONYM CAVE CAVERN
+) (ADJECTIVE ICKY SMALL) (GLOBAL SLIME) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-10>) (ICON ICKY-CAVE-ICON) (ACTION ICKY-CAVE-F)> 
+<DEFINE-ROUTINE ICKY-CAVE-F> 
+<OBJECT SICKLY-WITCH (DESC "sickly witch") (LDESC
+"In the dimmest corner of the cave huddle a pair of witches. One looks
+healthier but less friendly than the other.") (SYNONYM WITCH) (ADJECTIVE SICKLY
+FRIENDLY UNHEALTHY) (FLAGS ACTORBIT FEMALEBIT ANIMATEDBIT) (ACTION WITCH-F)> 
+<OBJECT PRICKLY-WITCH (DESC "prickly witch") (SYNONYM WITCH) (ADJECTIVE PRICKLY
+UNFRIENDLY HEALTHY) (FLAGS ACTORBIT FEMALEBIT ANIMATEDBIT NDESCBIT) (ACTION
+WITCH-F)> 
+<DEFINE-ROUTINE WITCH-F> 
+<CONSTANT FINISH-ENCHANTMENT
+" Camel sweat! Rotgrub heart! The enchantment begone!\" A palpable wave of
+magic sweeps over you and out of the cave.|"> 
+<GLOBAL VIAL-GIVEN <>> 
+<GLOBAL EARWAX-GIVEN <>> 
+<BEGIN-SEGMENT 0> 
+<OBJECT LARGE-VIAL (LOC LOCAL-GLOBALS) (DESC "nine-gloop vial") (SYNONYM VIAL
+WRITING) (ADJECTIVE NINE-GLOOP 9-GLOOP NINE GLOOP LARGE INT.NUM) (FLAGS TAKEBIT
+READBIT) (GENERIC G-VIAL-F) (OWNER LARGE-VIAL) (ACTION VIAL-F)> 
+<DEFINE-ROUTINE G-VIAL-F> 
+<GLOBAL SMALL-VIAL-GLOOPS 0> 
+<GLOBAL LARGE-VIAL-GLOOPS 0> 
+<GLOBAL SMALL-VIAL-TAINTED <>> 
+<GLOBAL LARGE-VIAL-TAINTED <>> 
+<GLOBAL SMALL-VIAL-IMPRECISE <>> 
+<GLOBAL LARGE-VIAL-IMPRECISE <>> 
+<CONSTANT INTEGERS <PLTABLE <VOC "ONE"> <VOC "TWO"> <VOC "THREE"> <VOC "FOUR">
+<VOC "FIVE"> <VOC "SIX"> <VOC "SEVEN"> <VOC "EIGHT"> <VOC "NINE">>> 
+<DEFINE-ROUTINE CONVERT-NUMBER> 
+<DEFINE-ROUTINE VIAL-F> 
+<DEFINE-ROUTINE NO-GRADATIONS> 
+<DEFINE-ROUTINE PRINT-GLOOP> 
+<DEFINE-ROUTINE POUR-VIALS> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT ORACLE> 
+<ROOM RUBBLE-ROOM (LOC ROOMS) (REGION "Antharia") (DESC "Rubble Room") (LDESC
+"You are just within the mouth of a granola mine. Daylight is visible to the
+west. Tunnels wind downward to the north, northeast, and east. Chunks of
+loose rubble, disturbed by the first visitor since the granola riots, fall
+from the roof of the mine.") (WEST TO MINE-ENTRANCE) (OUT TO MINE-ENTRANCE) (
+EAST TO HEART-OF-MINE) (NORTH TO HEART-OF-MINE) (NE TO HEART-OF-MINE) (FLAGS
+RLANDBIT BEYONDBIT UNDERGROUNDBIT) (GLOBAL GRANOLA GRANOLA-MINE) (MAP-LOC <
+PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-9>) (ACTION RUBBLE-ROOM-F)> 
+<GLOBAL RUBBLE-SCORE 9> 
+<DEFINE-ROUTINE RUBBLE-ROOM-F> 
+<ROOM HEART-OF-MINE (LOC ROOMS) (REGION "Antharia") (DESC "Heart of Mine") (
+LDESC "You are in a major granola mine. Half-mined granola is everywhere. The remains
+of a vast transportation system lies in ruins. Tunnels wind south, southwest,
+and west, and a tiny half-buried tunnel leads downward to the north.") (SOUTH
+TO RUBBLE-ROOM) (SW TO RUBBLE-ROOM) (WEST TO RUBBLE-ROOM) (NORTH TO CRAWL) (
+FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT) (GLOBAL GRANOLA GRANOLA-MINE) (MAP-LOC
+<PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-10>)> 
+<ROOM CRAWL (LOC ROOMS) (REGION "Antharia") (DESC "Crawl") (LDESC
+"You are in a poorly dug tunnel, not even tall enough to stand up in. The
+tunnel curves slightly, running from south to northwest.") (SOUTH TO
+HEART-OF-MINE) (NW TO DEAD-END) (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT) (
+GLOBAL GRANOLA GRANOLA-MINE) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-2
+MAP-GEN-X-10>)> 
+<OBJECT CRAWL-REBUS-BUTTON (LOC CRAWL) (SDESC "blinking key-shaped button") (
+FDESC "Imbedded in the rocky wall is a blinking button in the shape of a key.")
+(SYNONYM BUTTON) (ADJECTIVE KEY-SHAPED BLINKING) (ACTION REBUS-BUTTON-F)> 
+<ROOM DEAD-END (LOC ROOMS) (REGION "Antharia") (DESC "Dead End") (LDESC
+"The low tunnel ends here in a small cul-de-sac. The way back is southeast.") (
+SE TO CRAWL) (OUT TO CRAWL) (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT) (GLOBAL
+GRANOLA GRANOLA-MINE) (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-9
+>) (ICON DEAD-END-ICON)> 
+<OBJECT QUILL-PEN (LOC DEAD-END) (DESC "quill pen") (SYNONYM PEN QUILL) (
+ADJECTIVE QUILL) (VALUE 12) (SIZE 3) (FLAGS TAKEBIT MAGICBIT)> 
+<OBJECT GRANOLA-MINE (LOC LOCAL-GLOBALS) (DESC "granola mine") (SYNONYM MINE) (
+ADJECTIVE GRANOLA) (RESEARCH
+"\"The granola mines in northern Antharia once supplied seemingly limitless
+quantities of granola. Since the Granola Riots of 865 GUE, the causes of
+which are well known, the output of the mines has fallen sharply.\"") (ACTION
+GRANOLA-MINE-F)> 
+<DEFINE-ROUTINE GRANOLA-MINE-F> 
+<OBJECT GRANOLA (LOC LOCAL-GLOBALS) (DESC "granola") (SYNONYM GRANOLA) (FLAGS
+NARTICLEBIT) (RESEARCH
+"\"The granola mines in northern Antharia once supplied seemingly limitless
+quantities of granola. Since the Granola Riots of 865 GUE, the causes of
+which are well known, the output of the mines has fallen sharply.\"") (ACTION
+GRANOLA-F)> 
+<DEFINE-ROUTINE GRANOLA-F> 
+<DEFINE-ROUTINE STEP-IN-IT> 
\ No newline at end of file
diff --git a/oracle.zap b/oracle.zap
new file mode 100644
index 0000000..5fbe36d
--- /dev/null
+++ b/oracle.zap
@@ -0,0 +1,1801 @@
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	ORACLE-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	GRTR?	ORACLE-EXIT-NUMBER,4 \?CCL3
+	RANDOM	5
+	SUB	STACK,1 >ORACLE-EXIT-NUMBER
+	CALL	QUEUE,I-AMULET,4
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in an irregularly shaped chamber, hewn out of bedrock by untold ages of trickling waters. The walls are slimy, and shadows dance in the unlit crevices. A stream of slime drips sluggishly down an uneven tunnel which heads roughly upwards."
+	CRLF	
+	PRINTI	"   "
+	CALL1	D-ORACLE
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+
+	.FUNCT	ORACLE-OBJECT-F,VARG,TAKER,RM
+	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?TELL,V?PRAY,V?ASK-ABOUT \?CCL5
+	EQUAL?	PRSO,ORACLE-OBJECT \?CCL5
+	PRINTI	"The oracle stares at the far wall of the cave, impassive and unresponsive."
+	ZERO?	ORACLE-USED \?CND8
+	PRINTI	" It appears that the ancient claims of the oracle's amazing abilities were just wild fictions."
+?CND8:	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?EXAMINE \?CCL11
+	ICALL1	D-ORACLE
+	FIRST?	ORACLE-OBJECT \?CCL14
+	PRINTI	" Sitting in the mouth of the oracle is"
+	CALL1	D-NOTHING
+	RSTACK	
+?CCL14:	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL16
+	CALL	NOUN-USED?,ORACLE-OBJECT,W?MOUTH
+	ZERO?	STACK /?CCL16
+	IN?	PROTAGONIST,ORACLE-OBJECT /?CCL16
+	PRINTR	"The wide-open mouth is larger than you!"
+?CCL16:	EQUAL?	PRSA,V?THROW,V?PUT \?CCL21
+	EQUAL?	PRSI,ORACLE-OBJECT \?CCL21
+	PRINTI	"You "
+	EQUAL?	PRSA,V?THROW \?CCL26
+	PRINTI	"toss"
+	JUMP	?CND24
+?CCL26:	PRINTI	"place"
+?CND24:	ICALL1	TPRINT-PRSO
+	PRINTI	" into the mouth of the oracle"
+	IN?	RUBY,DEPRESSION \?CCL29
+	GET	ORACLE-TABLE,ORACLE-EXIT-NUMBER >RM
+	MOVE	PRSO,RM
+	PRINTI	", and it instantly vanishes!"
+	CRLF	
+	CALL	FIND-IN,RM,WHITEBIT >TAKER
+	ZERO?	TAKER \?CCL31
+	CALL	FIND-IN,RM,BLACKBIT >TAKER
+	ZERO?	TAKER /?CND30
+?CCL31:	MOVE	PRSO,TAKER
+	EQUAL?	PRSO,PIGEON \?CND30
+	ICALL2	MOVE-TO-PERCH,TAKER
+?CND30:	CALL1	NOW-DARK?
+	RSTACK	
+?CCL29:	MOVE	PRSO,ORACLE-OBJECT
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL21:	EQUAL?	PRSA,V?ENTER \FALSE
+	ZERO?	LIT \?CCL40
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL40:	IN?	BEDBUG,HERE \?CCL42
+	ZERO?	TIME-STOPPED \?CCL42
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL42:	IN?	RUBY,DEPRESSION \FALSE
+	ZERO?	ORACLE-USED /?CCL49
+	PRINTC	68
+	JUMP	?CND47
+?CCL49:	ICALL	SPLIT-BY-PICTURE,TEXT-WINDOW-PIC-LOC,TRUE-VALUE
+	SCREEN	S-TEXT
+	CRLF	
+	ICALL2	MARGINAL-PIC,TELEPORT-LETTER
+	DIROUT	D-SCREEN-OFF
+	PRINTC	68
+	DIROUT	D-SCREEN-ON
+?CND47:	PRINTI	"arkness envelopes you"
+	ZERO?	ORACLE-USED \?CCL52
+	PRINTI	" with a giant hand swathed in a glove of black velvet. You feel disembodied; there is no up and down. You are motionless in time and space. A moment drags out for a century -- or is it a century that has flown by in a moment? After an immeasurable time, you notice"
+	JUMP	?CND50
+?CCL52:	PRINTI	". You feel"
+?CND50:	PRINTI	" a stabbing pain... swirling lights... dizziness"
+	PRINT	ELLIPSIS
+	ZERO?	BORDER-ON \?CND53
+	ICALL2	INIT-STATUS-LINE,TRUE-VALUE
+?CND53:	GET	ORACLE-TABLE,ORACLE-EXIT-NUMBER
+	ICALL2	GOTO,STACK
+	SET	'ORACLE-USED,TRUE-VALUE
+	RETURN	ORACLE-USED
+
+
+	.FUNCT	D-ORACLE
+	IN?	PROTAGONIST,ORACLE-OBJECT \?CCL3
+	PRINTI	"Surrounding you is"
+	JUMP	?CND1
+?CCL3:	PRINTI	"Before you sits"
+?CND1:	PRINTI	" the legendary Oracle of Bargth. Shaped like an enormous serpent's head, its huge mouth hangs open in an expression of insatiable hunger; its four "
+	IN?	RUBY,DEPRESSION \?CCL6
+	PRINTI	"glowing"
+	JUMP	?CND4
+?CCL6:	PRINTI	"dark"
+?CND4:	PRINTI	" eyes seem fixed upon you. In the center of the serpent's forehead is a"
+	IN?	RUBY,DEPRESSION \?CCL9
+	PRINTI	"n enormous ruby."
+	RTRUE	
+?CCL9:	PRINTI	" depression."
+	RTRUE	
+
+
+	.FUNCT	DEPRESSION-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The semi-spherical depression is a few inches across."
+	IN?	RUBY,DEPRESSION \?CND4
+	PRINTR	" A huge ruby rests in the depresssion."
+?CND4:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL7
+	EQUAL?	PRSO,RUBY \?CCL7
+	FSET?	RUBY,NDESCBIT \?CCL7
+	CALL2	ITAKE,TRUE-VALUE
+	EQUAL?	STACK,M-FATAL,FALSE-VALUE /TRUE
+	FCLEAR	RUBY,NDESCBIT
+	FCLEAR	RUBY,NALLBIT
+	PRINTR	"Taken."
+?CCL7:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,SAPPHIRE \?CCL18
+	MOVE	SAPPHIRE,HERE
+	PRINTR	"The sapphire is a bit smaller than the depression; it stays for a moment but then drops to the ground."
+?CCL18:	EQUAL?	PRSO,RUBY \?CCL20
+	MOVE	RUBY,DEPRESSION
+	FSET	RUBY,NDESCBIT
+	FSET	RUBY,NALLBIT
+	PRINTI	"The moby ruby fits perfectly into the depression. As it sinks into place, the eyes of the oracle begin to glow."
+	FIRST?	ORACLE-OBJECT \?CND21
+	GET	ORACLE-TABLE,ORACLE-EXIT-NUMBER
+	ICALL	ROB,ORACLE-OBJECT,STACK
+	PRINTI	" Everything in the oracle's mouth suddenly vanishes!"
+?CND21:	CRLF	
+	ICALL2	INC-SCORE,ORACLE-SCORE
+	SET	'ORACLE-SCORE,0
+	RTRUE	
+?CCL20:	PRINTR	"It doesn't fit the depression."
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	AMULET-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The amulet is in the shape of a serpent's head. "
+	FSET?	HERE,BEYONDBIT \?CCL6
+	PRINTI	"It seems to be glowing slightly"
+	JUMP	?CND4
+?CCL6:	GET	EYE-TABLE,ORACLE-EXIT-NUMBER
+	PRINT	STACK
+	PRINTI	" of its four eyes "
+	EQUAL?	ORACLE-EXIT-NUMBER,1 \?CCL9
+	PRINTI	"is"
+	JUMP	?CND7
+?CCL9:	PRINTI	"are"
+?CND7:	PRINTI	" open"
+?CND4:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TOUCH \FALSE
+	FSET?	HERE,BEYONDBIT \?CCL14
+	ICALL1	CAST-HUNGER-SPELL
+	PRINTI	"A stream of light undulates slowly from the amulet "
+	FSET?	AMULET,WORNBIT \?CCL17
+	PRINTI	"and envelops you like a mist. After a moment, the mist clears"
+	PRINT	ELLIPSIS
+	CALL2	GOTO,G-U-MOUNTAIN
+	RSTACK	
+?CCL17:	PRINTR	"but then quickly fades."
+?CCL14:	ZERO?	TIME-STOPPED \FALSE
+	PRINTR	"The amulet, for one brief moment, glows from deep within."
+
+
+	.FUNCT	I-AMULET
+	ICALL	QUEUE,I-AMULET,4
+	IGRTR?	'ORACLE-EXIT-NUMBER,4 \?CND1
+	SET	'ORACLE-EXIT-NUMBER,0
+?CND1:	EQUAL?	HERE,ORACLE \FALSE
+	IN?	RUBY,DEPRESSION \FALSE
+	ZERO?	LIT /FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   The oracle seems to blink for a moment."
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	FLATHEAD-MOUNTAINS-F
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB,V?ENTER /?CCL3
+	EQUAL?	PRSA,V?CLIMB-DOWN \FALSE
+?CCL3:	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	HOLLOW-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a chamber, open to the sky, formed by cliff-like mountain walls. Strange and frightening runes have been carved into the cliff wall to the south, next to a "
+	ZERO?	IRON-MINE-OPEN /?CCL6
+	PRINTI	"dark cave entrance"
+	JUMP	?CND4
+?CCL6:	PRINTI	"six-sided hole"
+?CND4:	PRINTI	". The only "
+	ZERO?	IRON-MINE-OPEN /?CCL9
+	PRINTI	"other"
+	JUMP	?CND7
+?CCL9:	PRINTI	"apparent"
+?CND7:	PRINTI	" exit is northeast."
+	RTRUE	
+
+
+	.FUNCT	HEXAGONAL-HOLE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The small, six-sided hole has been neatly carved into the cliff wall."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL5
+	PRINT	ONLY-BLACKNESS
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?REACH-IN \?CCL7
+	PRINTR	"Your hand is about the same size as the hole, and since your hand isn't hexagonal, it doesn't fit."
+?CCL7:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,HEXAGONAL-BLOCK \?CCL12
+	SET	'IRON-MINE-OPEN,TRUE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	REMOVE	HEXAGONAL-BLOCK
+	REMOVE	HEXAGONAL-HOLE
+	PRINTI	"A seam appears in the cliff wall, and a huge slab of rock slides silently aside! A breeze of stale, dusty air caresses you as the dark opening to the south beckons ominously."
+	CRLF	
+	CALL2	INC-SCORE,14
+	RSTACK	
+?CCL12:	PRINTR	"It doesn't fit."
+
+
+	.FUNCT	BIRCH-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB \?CCL5
+	PRINT	POORLY-CONFIGURED
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?GET-NEAR \?CCL7
+	CALL2	PERFORM-PRSA,SMALL-ELM
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	PRINTR	"The birch is poignantly bemoaning that none of its seedlings has ever taken root in this barren, rocky place."
+
+
+	.FUNCT	IRON-PS
+	EQUAL?	HERE,IRON-MINE \FALSE
+	PRINTR	"There's no iron ore here. The vein is played out; the mine abandoned."
+
+
+	.FUNCT	IRON-MINE-PS
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	EQUAL?	HERE,HOLLOW \?CCL3
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+?CCL3:	CALL2	PERFORM-PRSA,GLOBAL-HERE
+	RSTACK	
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	SAPPHIRE-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	PRSO,SAPPHIRE \FALSE
+	FSET?	SAPPHIRE,TRYTAKEBIT \FALSE
+	FCLEAR	SAPPHIRE,TRYTAKEBIT
+	PUTP	SAPPHIRE,P?ACTION,FALSE-VALUE
+	FSET	SAPPHIRE,TOUCHBIT
+	MOVE	SAPPHIRE,PROTAGONIST
+	PRINTR	"As you pry loose the sapphire, the skeleton's fingers crumble to dust, and the jewel glows briefly from deep within."
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	NATURAL-ARCH-OBJECT-F
+	EQUAL?	PRSA,V?LOOK-UNDER,V?EXAMINE \FALSE
+	PRINTR	"Under the arch, steps lead down into darkness."
+
+
+	.FUNCT	ENCHANTED-CAVE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"Your light sparkles off reflective walls, spilling glittering droplets of illumination across every surface, including the dull gray altar in the very center of the room. The altar is inscribed with the single word ""Zilbeetha."" "
+	IN?	STATUE,HERE \?CND4
+	PRINT	STATUE-DESC
+	PRINTC	32
+?CND4:	PRINTI	"Strewn about the cave are the bones of many adventurers, amidst dust which might be that of even older bones. An uneven stair leads up toward light."
+	RTRUE	
+
+
+	.FUNCT	STATUE-F
+	EQUAL?	PRSA,V?PUT-ON \?CCL3
+	EQUAL?	PRSI,STATUE \?CCL3
+	FSET?	PRSO,WEARBIT \?CCL3
+	PRINTR	"The statue isn't a department store mannequin!"
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL8
+	PRINT	STATUE-DESC
+	CRLF	
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?ALARM \FALSE
+	PRINTR	"Apparently, you think breaking an enchantment is as easy as breaking an egg!"
+
+
+	.FUNCT	ALTAR-F
+	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSO,GLITTERY-ORB,SMOKY-ORB,MILKY-ORB /?CCL3
+	EQUAL?	PRSO,FIERY-ORB \FALSE
+?CCL3:	EQUAL?	PRSO,ENCHANTED-ORB /?CTR9
+	EQUAL?	ORBS-EXAMINED,3 \?CCL10
+	FSET?	PRSO,ORBBIT /?CCL10
+?CTR9:	REMOVE	PRSO
+	REMOVE	STATUE
+	MOVE	FLOWER,ALTAR
+	FCLEAR	FLOWER,NDESCBIT
+	FCLEAR	FLOWER,TRYTAKEBIT
+	PRINTI	"At first, nothing happens. Then the orb glows deep within, and a gentle chorus of angels begins to swell. As the glow brightens to include the entire cave, the statue and orb are gone, replaced by a young couple in wedding garb, in rapturous embrace. As the singing of the angels reaches a crescendo, Zilbeetha and her lover recede from sight toward planes unknown, leaving a flower of incomparable fragility and beauty sitting on the altar."
+	CRLF	
+	CALL2	INC-SCORE,25
+	RSTACK	
+?CCL10:	IN?	STATUE,HERE \FALSE
+	CALL2	JIGS-UP,STR?804
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	FLOWER-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
+	FSET?	FLOWER,TRYTAKEBIT \?CCL5
+	EQUAL?	PRSO,FLOWER \?CCL5
+	PRINTR	"It's part of a stone statue!"
+?CCL5:	EQUAL?	PRSA,V?LISTEN \?CCL10
+	ZERO?	PLANT-TALKER /?CCL10
+	PRINTR	"The flower is aware that, having been cut, it will shortly wilt. However, it has philosophically decided to accept this sad fate without complaint."
+?CCL10:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The flower"
+	FSET?	FLOWER,TRYTAKEBIT \?CND15
+	PRINTI	", though made of stone,"
+?CND15:	PRINTR	" is a thing of fragile beauty."
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	LOWER-LEDGE-F,RARG
+	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?PUT-ON,V?THROW \?CCL5
+	EQUAL?	PRSI,LOWER-LEDGE \?CCL5
+	REMOVE	PRSO
+	EQUAL?	PRSO,PERCH /?CCL9
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND8
+?CCL9:	SET	'REMOVED-PERCH-LOC,WATER
+?CND8:	PRINTI	"You toss"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" carefully, but it skitters across the lower ledge and falls into the fjord."
+?CCL5:	EQUAL?	PRSA,V?EXAMINE \?CCL13
+	EQUAL?	HERE,UPPER-LEDGE \?CCL13
+	FSET?	LOWER-LEDGE,TOUCHBIT /?CCL13
+	PRINTR	"By leaning far out, you can just make out the edge of something on the ledge below. Most of it is hidden by protrusions in the cliff wall, though, so you can't make out what it is."
+?CCL13:	EQUAL?	PRSA,V?CLIMB-ON,V?ENTER \?CCL18
+	EQUAL?	HERE,LOWER-LEDGE \?CCL21
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL21:	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL18:	EQUAL?	PRSA,V?LEAP \FALSE
+	SET	'PRSO,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	NARROW-CRACK-PS
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	PRINT	ONLY-BLACKNESS
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?REACH-IN \FALSE
+	ZERO?	ROPE-PLACED \?CCL8
+	CALL2	JIGS-UP,STR?810
+	RSTACK	
+?CCL8:	PRINT	NOTHING-IN-REACH
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	LANDSCAPE-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"You're not a student of art, but it sure looks like this landscape was done more with a catapult than a brush. "
+	EQUAL?	HERE,LOWER-LEDGE \?CND4
+	PRINTI	"In fact, the artist seems to have gotten more paint on the cliff and ledge than on the canvas. "
+?CND4:	PRINTR	"Despite its flaws, the landscape is obviously of the Flathead Fjord."
+
+
+	.FUNCT	G-PAINTING-F,SRES,F
+	RETURN	LANDSCAPE
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	FJORD-F
+	CALL2	TOUCHING?,FJORD
+	ZERO?	STACK /FALSE
+	CALL2	CANT-REACH,FJORD
+	RSTACK	
+
+
+	.FUNCT	GLACIER-DEATH,RARG
+	ZERO?	RARG \FALSE
+	CALL2	JIGS-UP,STR?816
+	RSTACK	
+
+
+	.FUNCT	MIRROR-LAKE-F,RARG,TMP,DIR
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSO,REFLECTION \?CCL3
+	CALL2	GET-OWNER,PRSO
+	EQUAL?	STACK,MIRROR,REFLECTION \?CCL3
+	PRINT	HUH
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-BEG \?CCL8
+	EQUAL?	PRSA,V?EXAMINE \?CCL8
+	EQUAL?	PRSO,REFLECTION \?CCL8
+	CALL2	GET-OWNER,PRSO >TMP
+	ZERO?	TMP /?CCL8
+	ICALL	PERFORM,V?MIRROR-LOOK,TMP,MIRROR
+	RTRUE	
+?CCL8:	EQUAL?	RARG,M-BEG \?CCL14
+	EQUAL?	PRSA,V?THROW /?CTR13
+	EQUAL?	PRSA,V?STHROW \?CCL14
+	EQUAL?	PRSI,INTDIR \?CCL14
+?CTR13:	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?THROW \?CCL25
+	RANDOM	100
+	LESS?	25,STACK /?CCL28
+	SET	'DIR,P?EAST
+	JUMP	?CND21
+?CCL28:	RANDOM	100
+	LESS?	33,STACK /?CCL30
+	SET	'DIR,P?WEST
+	JUMP	?CND21
+?CCL30:	RANDOM	100
+	LESS?	50,STACK /?CCL32
+	SET	'DIR,P?NORTH
+	JUMP	?CND21
+?CCL32:	SET	'DIR,P?SOUTH
+	JUMP	?CND21
+?CCL25:	CALL	NOUN-USED?,INTDIR,W?NORTH,W?NE,W?NW
+	ZERO?	STACK /?CCL34
+	SET	'DIR,P?NORTH
+	JUMP	?CND21
+?CCL34:	CALL	NOUN-USED?,INTDIR,W?SOUTH,W?SE,W?SW
+	ZERO?	STACK /?CCL36
+	SET	'DIR,P?SOUTH
+	JUMP	?CND21
+?CCL36:	CALL	NOUN-USED?,INTDIR,W?EAST
+	ZERO?	STACK /?CCL38
+	SET	'DIR,P?EAST
+	JUMP	?CND21
+?CCL38:	SET	'DIR,P?WEST
+?CND21:	CALL	LEAVE-MIRROR,STR?819,DIR
+	RSTACK	
+?CCL14:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?PUSH \FALSE
+	FSET?	PRSO,WHITEBIT /?CCL40
+	FSET?	PRSO,BLACKBIT \FALSE
+?CCL40:	RANDOM	100
+	LESS?	25,STACK /?CCL48
+	SET	'DIR,P?EAST
+	JUMP	?CND46
+?CCL48:	RANDOM	100
+	LESS?	33,STACK /?CCL50
+	SET	'DIR,P?WEST
+	JUMP	?CND46
+?CCL50:	RANDOM	100
+	LESS?	50,STACK /?CCL52
+	SET	'DIR,P?NORTH
+	JUMP	?CND46
+?CCL52:	SET	'DIR,P?SOUTH
+?CND46:	CALL	LEAVE-MIRROR,STR?820,DIR
+	RSTACK	
+
+
+	.FUNCT	LEAVE-MIRROR,STRING,DIR,AV,DESTINATION
+	PRINTI	"As you throw"
+	ICALL1	TPRINT-PRSO
+	PRINTI	", you slide across the ice in the opposite direction, and plow into a powdery snow bank"
+	PRINT	ELLIPSIS
+	LOC	PROTAGONIST >AV
+	EQUAL?	DIR,P?NORTH \?CCL3
+	MOVE	PRSO,NORTH-OF-MIRROR
+	SET	'DESTINATION,SOUTH-OF-MIRROR
+	JUMP	?CND1
+?CCL3:	EQUAL?	DIR,P?SOUTH \?CCL5
+	MOVE	PRSO,SOUTH-OF-MIRROR
+	SET	'DESTINATION,NORTH-OF-MIRROR
+	JUMP	?CND1
+?CCL5:	EQUAL?	DIR,P?EAST \?CCL7
+	MOVE	PRSO,EAST-OF-MIRROR
+	SET	'DESTINATION,WEST-OF-MIRROR
+	JUMP	?CND1
+?CCL7:	MOVE	PRSO,WEST-OF-MIRROR
+	SET	'DESTINATION,EAST-OF-MIRROR
+?CND1:	FSET?	AV,VEHBIT \?CCL10
+	MOVE	AV,DESTINATION
+	ICALL2	GOTO,AV
+	JUMP	?CND8
+?CCL10:	ICALL2	GOTO,DESTINATION
+?CND8:	EQUAL?	PRSO,PIT-BOMB \?CND11
+	REMOVE	PIT-BOMB
+	PRINTI	"   Some pit-filling agents drift by in a useless cloud, dispersing."
+	CRLF	
+?CND11:	ICALL2	INC-SCORE,MIRROR-SCORE
+	SET	'MIRROR-SCORE,0
+	RTRUE	
+
+
+	.FUNCT	MIRROR-F,TMP
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	PRINTR	"As you stare at your reflection in the mirrored surface, you look as you always have; and yet, you see things you've never seen before: youthful exuberance and courage, yet tempered by the wisdom and experience of untold generations of forebears, whose spirits seem to hover over you protectively.
+   Who knows what secrets might be revealed by looking at the reflection of other things in this magical mirror!?!"
+?CCL3:	EQUAL?	PRSA,V?MIRROR-LOOK \?CCL5
+	EQUAL?	PRSI,MIRROR \?CCL5
+	EQUAL?	PRSO,PROTAGONIST,ME \?CCL10
+	ICALL	PERFORM,V?EXAMINE,MIRROR
+	RTRUE	
+?CCL10:	EQUAL?	PRSO,ENCHANTED-ORB \?CCL12
+	SET	'ORB-FOUND,TRUE-VALUE
+	PRINTI	"As you gaze at the reflection of"
+	ICALL1	TPRINT-PRSO
+	PRINTR	", a different vision takes shape: a beautiful young maiden, in peaceful sleep. Then, the vision fades."
+?CCL12:	EQUAL?	PRSO,WAND \?CCL14
+	PRINTR	"The reflection of the wand is unnaturally still; more frozen than even the arctic landscape that surrounds you."
+?CCL14:	EQUAL?	PRSO,FLASK \?CCL16
+	PRINTR	"You see the shadow of death hanging over the flask."
+?CCL16:	EQUAL?	PRSO,CLOAK \?CCL18
+	PRINTR	"The reflection reveals a checkered pattern in the cloth, not visible when you look at the garment itself."
+?CCL18:	EQUAL?	PRSO,GLOVE \?CCL20
+	PRINTR	"The glove's reflection conveys a feeling of fingers more sensitive and dexterous than the world's greatest surgeon."
+?CCL20:	EQUAL?	PRSO,GOGGLES \?CCL22
+	PRINTR	"The image of the goggles appears surrounded by a brick wall which slowly transforms to glass!"
+?CCL22:	EQUAL?	PRSO,RING \?CCL24
+	PRINTI	"Odd. Although the ring has no face of any kind, as you gaze at its reflection you get the distinct impression that the ring is laughing at you!"
+	CRLF	
+	CALL2	ULTIMATELY-IN?,RING
+	ZERO?	STACK /TRUE
+	MOVE	RING,HERE
+	PRINTR	"   Perhaps in reaction to this impression, it seems that you have dropped the ring."
+?CCL24:	EQUAL?	PRSO,NW-SE-PASSAGE,N-S-PASSAGE \?CCL28
+	PRINTR	"The reflection of the passage reveals a feature which is invisible when you look at the passage itself: the edges dripping with unset glue."
+?CCL28:	EQUAL?	PRSO,PARCHMENT \?CCL30
+	PRINTR	"The paper of the parchment, as seen in the mirror, is suffused with an other-wordly glow."
+?CCL30:	EQUAL?	PRSO,PIGEON \?CCL32
+	PRINTR	"The reflection of the inert pigeon is most startling: it appears soaring majestically through space on widespread wings, bearing a rider regally upon its back!"
+?CCL32:	EQUAL?	PRSO,PERCH \?CCL34
+	PRINTR	"You see not an image of a ceramic perch, but of a proud mountain aerie! A powerful bird is flying toward the nest from a great distance."
+?CCL34:	EQUAL?	PRSO,AMULET \?CCL36
+	PRINTR	"The reflection of the amulet is suffused in a glow of amazing energies! A vague ghost of a serpent's head floats over it. A hand reaches to touch the amulet -- and the mirror goes blank!"
+?CCL36:	EQUAL?	PRSO,CANDLE \?CCL38
+	PRINTR	"A flurry of images surrounds the candle's reflection: an aged wizard weaving spells above a vat of bubbling tallow; the same mage handing a taper to a royal handmaiden; a chambermaid lighting the candle for a young prince; the same candle, never growing shorter, casting shadows on the faces of a succession of kings. The last image is of a servant placing the candle in a dark passageway and closing a concealed doorway behind him."
+?CCL38:	EQUAL?	PRSO,JESTER \?CCL40
+	ICALL1	REMOVE-J
+	PRINTR	"The jester's reflection is that of a much older man! And there's something else...but the jester notices you studying his reflection, and vanishes hastily!"
+?CCL40:	EQUAL?	PRSO,POTION \?CCL42
+	PRINTR	"The image shows a flowering plant growing from the potion. It seems to be calling to you."
+?CCL42:	EQUAL?	PRSO,SAPPHIRE \?CCL44
+	PRINTR	"As you look at the jewel's reflection, the skeleton's bony hand still seems clamped around it. Then the reflection enlarges, and a chill spreads from your heart as you see that the hand belongs to Death himself! He silently laughs at you from within his dark cowl before vanishing!"
+?CCL44:	FSET?	PRSO,WHITEBIT /?CTR45
+	FSET?	PRSO,BLACKBIT \?CCL46
+?CTR45:	PRINTI	"Behind the image of"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" you see endless generations of masters, hunched over a small checkered board."
+?CCL46:	GETP	PRSO,P?INANIMATE-DESC
+	ZERO?	STACK /?CCL50
+	FSET?	PRSO,ANIMATEDBIT /?CCL50
+	PRINTI	"You see the image of a "
+	PRINTD	PRSO
+	PRINTR	"!"
+?CCL50:	EQUAL?	PRSO,REFLECTION \?CND53
+	CALL2	GET-OWNER,PRSO >TMP
+	ZERO?	TMP /?CND53
+	SET	'PRSO,TMP
+?CND53:	EQUAL?	PRSO,GLITTERY-ORB,SMOKY-ORB,MILKY-ORB /?PRD60
+	EQUAL?	PRSO,FIERY-ORB \?CND57
+?PRD60:	FSET?	PRSO,ORBBIT /?CND57
+	FSET	PRSO,ORBBIT
+	INC	'ORBS-EXAMINED
+?CND57:	PRINTI	"The reflection of "
+	FSET?	PRSO,NARTICLEBIT /?CND63
+	PRINTI	"the "
+?CND63:	ICALL2	DPRINT,PRSO
+	PRINTI	" looks just like "
+	FSET?	PRSO,NARTICLEBIT /?CND65
+	PRINTI	"the "
+?CND65:	ICALL2	DPRINT,PRSO
+	PRINTR	" itself."
+?CCL5:	EQUAL?	PRSA,V?MUNG \FALSE
+	CALL2	JIGS-UP,STR?822
+	RSTACK	
+
+
+	.FUNCT	REFLECTION-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	ICALL	PERFORM,V?EXAMINE,MIRROR
+	RTRUE	
+
+
+	.FUNCT	EAST-OF-MIRROR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	MIRRORS-EDGE-DESC,STR?824,STR?825,STR?826
+	RSTACK	
+
+
+	.FUNCT	MIRRORS-EDGE-DESC,STR1,STR2,STR3
+	PRINTI	"You are in a snow drift. To the "
+	PRINT	STR1
+	PRINTI	" is a lake with a mirrored surface. You could probably plow around the mirror to the "
+	PRINT	STR2
+	PRINTI	" and "
+	PRINT	STR3
+	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	WEST-OF-MIRROR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	ICALL	MIRRORS-EDGE-DESC,STR?827,STR?828,STR?263
+	PRINTI	" A ski chalet, half-buried in the snow, lies to the west."
+	RTRUE	
+
+
+	.FUNCT	NORTH-OF-MIRROR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	MIRRORS-EDGE-DESC,STR?199,STR?263,STR?826
+	RSTACK	
+
+
+	.FUNCT	SOUTH-OF-MIRROR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	MIRRORS-EDGE-DESC,STR?198,STR?828,STR?825
+	RSTACK	
+
+
+	.FUNCT	LILY-PAD-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	ZERO?	ARG \FALSE
+	EQUAL?	PRSA,V?CLIMB-ON,V?ENTER \?CCL7
+	CALL2	VISIBLE?,OTTO
+	ZERO?	STACK /?CCL10
+	PRINTR	"""For toads only, buster."""
+?CCL10:	PRINTR	"Only a toad could be comfortable there."
+?CCL7:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	PRINTI	"The lily pad is "
+	EQUAL?	PRSO,LARGE-LILY-PAD \?CCL17
+	CALL2	VISIBLE?,OTTO
+	ZERO?	STACK /?CCL20
+	PRINTI	"moaning about"
+	JUMP	?CND18
+?CCL20:	PRINTI	"giddy at the absence of"
+?CND18:	PRINTR	" the weight of the giant toad."
+?CCL17:	PRINTR	"composing an ode to sunlight."
+
+
+	.FUNCT	OTTO-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	EQUAL?	PRSA,V?GIVE \?PRD8
+	EQUAL?	PRSO,SPYGLASS \?PRD8
+	EQUAL?	PRSI,ME /?CTR5
+?PRD8:	EQUAL?	PRSA,V?SGIVE \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	EQUAL?	PRSI,SPYGLASS \?CCL6
+?CTR5:	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-FOR,OTTO,SPYGLASS
+	SET	'WINNER,OTTO
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?YES \?CCL16
+	EQUAL?	AWAITING-REPLY,2 \?CCL16
+	CALL1	V-YES
+	RSTACK	
+?CCL16:	EQUAL?	PRSA,V?NO \?CCL20
+	EQUAL?	AWAITING-REPLY,2 \?CCL20
+	CALL1	V-NO
+	RSTACK	
+?CCL20:	SET	'AWAITING-REPLY,2
+	ICALL	QUEUE,I-REPLY,2
+	PRINTI	"""Quiet. I've got a headache. Do you think you own this swamp?"""
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL24
+	PRINTR	"The toad is not only ugly, it is bright blue and the size of a small shack. It also looks pretty grumpy."
+?CCL24:	CALL	ADJ-USED?,OTTO,W?UGLY
+	ZERO?	STACK /?CCL26
+	CALL2	VISIBLE?,OTTO
+	ZERO?	STACK /?CCL26
+	PRINTI	"""Who're you calling ugly?!? You're no prize yourself, you know!"""
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL26:	CALL	NOUN-USED?,OTTO,W?TOAD
+	ZERO?	STACK /?CCL30
+	CALL2	VISIBLE?,OTTO
+	ZERO?	STACK /?CCL30
+	INC	'OTTO-NAME-COUNTER
+	PRINTI	"""I have a name, you know"
+	MOD	OTTO-NAME-COUNTER,5
+	ZERO?	STACK \?CND33
+	PRINTI	", a great name, known throughout many lands. And though I spent many years at sea, few pirates will know my name"
+?CND33:	PRINTI	"."""
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL30:	EQUAL?	PRSA,V?ASK-FOR \?CCL36
+	EQUAL?	PRSI,SPYGLASS \?CCL36
+	EQUAL?	FLIES-EATEN,4 \?CCL41
+	MOVE	SPYGLASS,SMALL-LILY-PAD
+	FCLEAR	SPYGLASS,TRYTAKEBIT
+	ICALL2	THIS-IS-IT,SPYGLASS
+	PRINTR	"""Okay, take the stupid thing, but shut up and let me have some peace and quiet."" The toad places the spyglass on the small lily pad."
+?CCL41:	PRINTI	"""If you want this spyglass, you must bring me the "
+	ZERO?	FLIES-EATEN \?CCL44
+	PRINTI	"Four "
+	JUMP	?CND42
+?CCL44:	PRINTI	"remaining "
+	EQUAL?	FLIES-EATEN,1 \?CCL47
+	PRINTI	"three "
+	JUMP	?CND42
+?CCL47:	EQUAL?	FLIES-EATEN,2 \?CND42
+	PRINTI	"two "
+?CND42:	PRINTI	"Fantastic Fl"
+	EQUAL?	FLIES-EATEN,3 \?CCL51
+	PRINTC	121
+	JUMP	?CND49
+?CCL51:	PRINTI	"ies"
+?CND49:	PRINTR	" of Famathria."""
+?CCL36:	EQUAL?	PRSA,V?EAT \FALSE
+	ZERO?	ALLIGATOR /FALSE
+	PRINTR	"Although the toad looks tasty, he's about ten times your size."
+
+
+	.FUNCT	I-STONE-TO-OTTO
+	MOVE	OTTO,LARGE-LILY-PAD
+	EQUAL?	HERE,DELTA-6 \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   Otto emerges from the muck of the swamp, looking quite displeased. Dripping with mud, he plops down on his favorite lily pad"
+	CALL2	VISIBLE?,WAND
+	ZERO?	STACK /?CND4
+	REMOVE	WAND
+	PRINTI	". ""Let's just make sure we don't have any repetitions of that, eh?"" He wraps his tongue around the wand and snaps it into a zillion splinters"
+?CND4:	PRINT	PERIOD-CR
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	SPYGLASS-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	SPYGLASS,TRYTAKEBIT \?CCL3
+	IN?	SPYGLASS,SMALL-LILY-PAD \?CND6
+	MOVE	SPYGLASS,OTTO
+	PRINTI	"The toad snatches the spyglass with its long tongue. "
+?CND6:	PRINTR	"""If you want it, you'll have to ask me to give it to you."""
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL9
+	PRINTR	"The spyglass magnifies distant objects."
+?CCL9:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	PRSI,SPYGLASS \FALSE
+	PRINT	YOU-SEE
+	ICALL1	TPRINT-PRSO
+	PRINTR	", somewhat enlarged."
+
+
+	.FUNCT	FLY-F
+	EQUAL?	PRSA,V?DROP \?CCL3
+	ICALL2	ORDER-FLIES,HERE
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTR	"This is one juicy delicious-looking hunk of fly... that is, if you're the type who goes for insect meat..."
+?CCL5:	EQUAL?	PRSA,V?GIVE \?CCL7
+	EQUAL?	PRSI,OTTO \?CCL7
+	REMOVE	PRSO
+	INC	'FLIES-EATEN
+	PRINTR	"The toad wraps its long tongue around the fly, snaps it gluttonously into its mouth, and burps rudely."
+?CCL7:	EQUAL?	PRSA,V?CATCH \?CCL11
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL11:	CALL2	TOUCHING?,PRSO
+	ZERO?	STACK /FALSE
+	EQUAL?	PRSA,V?TAKE \?CND14
+	ICALL2	ORDER-FLIES,PROTAGONIST
+?CND14:	FSET?	PRSO,TRYTAKEBIT \FALSE
+	FSET?	GLOVE,WORNBIT \?CCL21
+	PRINTR	"Your gloved hand strikes with amazing speed, but the fly darts out of the way by a hair's breadth."
+?CCL21:	PRINTR	"The fly buzzes just out of reach."
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "SECRET"
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	FLY-ROOM-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	HERE,TOUCHBIT /FALSE
+	IN?	LARGE-FLY,LOCAL-GLOBALS \?CCL8
+	MOVE	LARGE-FLY,HERE
+	RTRUE	
+?CCL8:	IN?	LARGER-FLY,LOCAL-GLOBALS \?CCL10
+	MOVE	LARGER-FLY,HERE
+	RTRUE	
+?CCL10:	IN?	EVEN-LARGER-FLY,LOCAL-GLOBALS \?CCL12
+	MOVE	EVEN-LARGER-FLY,HERE
+	RTRUE	
+?CCL12:	IN?	LARGEST-FLY,LOCAL-GLOBALS \FALSE
+	MOVE	LARGEST-FLY,HERE
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	FOOT-OF-STATUE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This once verdant valley is now barren. "
+	PRINT	NEAR-STATUE-DESC
+	PRINTI	" A trail approaches a hilltop to the southwest."
+	RTRUE	
+
+
+	.FUNCT	DIMWIT-STATUE-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,FOOT-OF-STATUE \?CCL6
+	PRINT	NEAR-STATUE-DESC
+	CRLF	
+	RTRUE	
+?CCL6:	PRINT	DISTANT-STATUE-DESC
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TREE-PS
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB \FALSE
+	PRINTR	"There are no trees here suitable for climbing."
+
+
+	.FUNCT	VIEW-OF-STATUE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are on a tall hilltop near the center of barren Fublio Valley. A few small trees are beginning the arduous task of refoliating the valley. "
+	PRINT	DISTANT-STATUE-DESC
+	PRINTI	" Trails lead northeast, southeast, west, and south."
+	RTRUE	
+
+
+	.FUNCT	MEGABOZ-HUT-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in the unassuming shack where the legendary magician Megaboz once lived. Embroidered wall hangings adorn one side of the hut, and a poem has been scrawled on the opposite wall; oddly, some of the words are missing. The only exit is east. "
+	PRINT	MEGABOZ-CEILING-DESC
+	RTRUE	
+
+
+	.FUNCT	ATTIC-ENTER-F,RARG
+	FSET?	MEGABOZ-TRAP-DOOR,OPENBIT /?CCL3
+	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	ICALL2	DO-FIRST,STR?845
+	RFALSE	
+?CCL3:	IN?	PROTAGONIST,LADDER /?CCL7
+	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	ICALL2	CANT-REACH,MEGABOZ-TRAP-DOOR
+	RFALSE	
+?CCL7:	RETURN	ATTIC
+
+
+	.FUNCT	MEGABOZ-TRAP-DOOR-F
+	EQUAL?	HERE,MEGABOZ-HUT \?CCL3
+	CALL2	TOUCHING?,MEGABOZ-TRAP-DOOR
+	ZERO?	STACK /?CCL3
+	IN?	PROTAGONIST,LADDER /?CCL3
+	CALL2	CANT-REACH,MEGABOZ-TRAP-DOOR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?ENTER \FALSE
+	EQUAL?	HERE,MEGABOZ-HUT \FALSE
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+
+
+	.FUNCT	TRUNK-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	TRUNK,LOCKEDBIT /?CCL3
+	ZERO?	FLY-IN-TRUNK /?CCL3
+	ZERO?	PRSI /?CND7
+	FSET?	PRSI,KEYBIT /FALSE
+?CND7:	SET	'FLY-IN-TRUNK,FALSE-VALUE
+	IN?	LARGE-FLY,LOCAL-GLOBALS \?CCL13
+	MOVE	LARGE-FLY,HERE
+	JUMP	?CND11
+?CCL13:	IN?	LARGER-FLY,LOCAL-GLOBALS \?CCL15
+	MOVE	LARGER-FLY,HERE
+	JUMP	?CND11
+?CCL15:	IN?	EVEN-LARGER-FLY,LOCAL-GLOBALS \?CCL17
+	MOVE	EVEN-LARGER-FLY,HERE
+	JUMP	?CND11
+?CCL17:	IN?	LARGEST-FLY,LOCAL-GLOBALS \?CND11
+	MOVE	LARGEST-FLY,HERE
+?CND11:	PRINTI	"As you raise the lid, a huge fly zooms out and begins buzzing around the room. "
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL20
+	EQUAL?	PRSO,TRUNK \?CCL20
+	PRINTR	"The trunk turns out to be too large and heavy to move."
+?CCL20:	EQUAL?	PRSA,V?UNLOCK \?CCL24
+	FSET?	TRUNK,LOCKEDBIT \?CCL24
+	EQUAL?	PRSI,RUSTY-KEY \?CCL24
+	EQUAL?	SACRED-WORD-NUMBER,10 \?CND28
+	RANDOM	10
+	SUB	STACK,1 >SACRED-WORD-NUMBER
+?CND28:	FCLEAR	TRUNK,LOCKEDBIT
+	CALL	LOCKED-UNLOCKED,TRUNK,TRUE-VALUE
+	RSTACK	
+?CCL24:	EQUAL?	PRSA,V?LOCK \FALSE
+	FSET?	TRUNK,LOCKEDBIT /FALSE
+	EQUAL?	PRSI,RUSTY-KEY \FALSE
+	FSET	TRUNK,LOCKEDBIT
+	CALL2	LOCKED-UNLOCKED,TRUNK
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PAN-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINT	HUH
+	RTRUE	
+
+
+	.FUNCT	NOTEBOOK-F
+	EQUAL?	PRSA,V?EXAMINE,V?OPEN,V?READ \FALSE
+	PRINTI	"The notebook is either gibberish or far in advance of your understanding. It seems to be filled with all kinds of formulas, spells, and shopping lists.
+   Near the end, you discover what appears to be a list of things to do: ""1) Mail OZMOO scrolls to Gurth. 2) Cast Curse on Flatheads. 3) Pick up milk and bread.""
+   Below is a sketch of a steaming kettle and a single word, """
+	GET	SACRED-WORDS,SACRED-WORD-NUMBER
+	PRINT	STACK
+	PRINTR	"."""
+
+
+	.FUNCT	HARMONICA-F
+	EQUAL?	PRSA,V?INFLATE,V?PLAY \FALSE
+	PRINTR	"The harmonica produces a sound like that of cats being tortured."
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	CAIRN-OBJECT-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	PRINTR	"The stones, individually, are uninteresting; the entire pile is much too massive to take."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTR	"The cairn probably has a magical or religious significance."
+?CCL5:	EQUAL?	PRSA,V?COUNT \FALSE
+	CALL	NOUN-USED?,CAIRN-OBJECT,W?STONES
+	ZERO?	STACK /FALSE
+	PRINTR	"Thousands."
+
+
+	.FUNCT	GUMBOZ-SHACK-F,RARG,SPILL
+	EQUAL?	RARG,M-END \FALSE
+	CALL2	ULTIMATELY-IN?,LARGE-VIAL
+	ZERO?	STACK /?CND4
+	GRTR?	LARGE-VIAL-GLOOPS,0 \?CND4
+	SET	'LARGE-VIAL-GLOOPS,0
+	REMOVE	LARGE-VIAL-WATER
+	SET	'SPILL,TRUE-VALUE
+?CND4:	CALL2	ULTIMATELY-IN?,SMALL-VIAL
+	ZERO?	STACK /?CND8
+	GRTR?	SMALL-VIAL-GLOOPS,0 \?CND8
+	SET	'SMALL-VIAL-GLOOPS,0
+	REMOVE	SMALL-VIAL-WATER
+	SET	'SPILL,TRUE-VALUE
+?CND8:	CALL2	ULTIMATELY-IN?,CUP
+	ZERO?	STACK /?CND12
+	IN?	POTION,CUP \?CND12
+	REMOVE	POTION
+	SET	'SPILL,TRUE-VALUE
+?CND12:	ZERO?	SPILL \?CCL18
+	RANDOM	100
+	LESS?	20,STACK /FALSE
+?CCL18:	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   You trip over something invisible (perhaps some sort of feeble anti-theft device). Fortunately, you manage to keep your footing."
+	ZERO?	SPILL /?CND21
+	PRINTR	" Unfortunately, you seem to have spilled something."
+?CND21:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SHACK-EXIT-F,RARG
+	ZERO?	RARG \?CND1
+	ICALL1	RETURN-FROM-MAP
+	ICALL1	CAST-HUNGER-SPELL
+?CND1:	RETURN	OUTSIDE-SHACK
+
+	.SEGMENT "0"
+
+
+	.FUNCT	CAST-HUNGER-SPELL
+	EQUAL?	HERE,GUMBOZ-SHACK \FALSE
+	CALL2	ULTIMATELY-IN?,SMALL-VIAL
+	ZERO?	STACK /FALSE
+	ZERO?	HUNGER-SPELL-CAST \FALSE
+	SET	'HUNGER-SPELL-CAST,TRUE-VALUE
+	ICALL	QUEUE,I-HUNGER,36
+	SET	'HUNGER-COUNT,1
+	FCLEAR	SMALL-VIAL,TRYTAKEBIT
+	PRINTI	"You hear a cry of ""Stop, thief! My vial!"" and a feeble but very angry wizard begins to appear. Noting that your departure is imminent, he casts his quickest spell on you; fortunately, it doesn't sound very powerful.
+   You're suddenly very hungry."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-HUNGER
+	INC	'HUNGER-COUNT
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+	EQUAL?	HUNGER-COUNT,2 \?CCL3
+	ICALL	QUEUE,I-HUNGER,18
+	PRINTR	"You're really famished now. Odd -- you had quite a huge meal last night."
+?CCL3:	EQUAL?	HUNGER-COUNT,3 \?CCL5
+	ICALL	QUEUE,I-HUNGER,12
+	PRINTR	"You've never felt this hungry in your life!"
+?CCL5:	EQUAL?	HUNGER-COUNT,4 \?CCL7
+	ICALL	QUEUE,I-HUNGER,6
+	PRINTR	"If your stomach could talk, it would be screaming, ""Get some food down here right away, jerk!"""
+?CCL7:	CALL2	JIGS-UP,STR?863
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	TIRED-PINE-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	CALL2	TOUCHING?,TIRED-PINE
+	ZERO?	STACK /?CCL5
+	EQUAL?	HERE,QUARRY \?CCL5
+	CALL2	CANT-REACH,TIRED-PINE
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?GET-NEAR \?CCL9
+	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?UNDER \?CCL9
+	EQUAL?	HERE,QUARRY \?CCL14
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL14:	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB \?CCL16
+	PRINT	POORLY-CONFIGURED
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?GET-NEAR \?CCL18
+	CALL2	PERFORM-PRSA,SMALL-ELM
+	RSTACK	
+?CCL18:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	PRINTR	"The tree relates a life-long fantasy about being transplanted in the fertile soil of Gurth."
+
+
+	.FUNCT	QUARRY-F,RARG
+	EQUAL?	RARG,M-END \?CCL3
+	IN?	RUSTY-KEY,LOCAL-GLOBALS \?CCL3
+	CALL2	ULTIMATELY-IN?,SAPPHIRE
+	ZERO?	STACK /?CCL3
+	FSET?	RING,WORNBIT \?CCL3
+	MOVE	RUSTY-KEY,HERE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   A strange drowsiness comes over you, and you fall into a swoon. An unknown number of minutes later, you are roused by a gentle breeze"
+	PRINT	ELLIPSIS
+	ICALL1	V-LOOK
+	CALL2	INC-SCORE,14
+	RSTACK	
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	HERE,QUARRYS-EDGE \FALSE
+	EQUAL?	PRSA,V?ENTER \FALSE
+	EQUAL?	P-PRSA-WORD,W?JUMP \FALSE
+	CALL1	JUMPLOSS
+	RSTACK	
+
+
+	.FUNCT	QUARRY-SHADOW-PS
+	EQUAL?	PRSA,V?ENTER \FALSE
+	EQUAL?	HERE,QUARRY \?CCL6
+	PRINTR	"You are; the tree's shadow covers the entire floor of the quarry."
+?CCL6:	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	RUSTY-KEY-F
+	EQUAL?	PRSA,V?CLEAN \?CCL3
+	FSET	RUSTY-KEY,READBIT
+	PRINTR	"You clean off some of the rust, revealing words engraved on the key."
+?CCL3:	EQUAL?	PRSA,V?READ \FALSE
+	FSET?	RUSTY-KEY,READBIT \FALSE
+	PRINTR	"""Frobozz Magic Trunk Key Company"""
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	TOE-FUNGUS-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	EQUAL?	PRSA,V?GIVE,V?FIND \?CCL6
+	EQUAL?	PRSO,LITTLE-FUNGUS \?CCL6
+	IN?	LITTLE-FUNGUS,GLOBAL-OBJECTS \?CCL6
+	EQUAL?	FUNGUS-NUMBER,12 /?CCL6
+	GET	FUNGUS-WORDS,FUNGUS-NUMBER
+	CALL	NOUN-USED?,LITTLE-FUNGUS,STACK
+	ZERO?	STACK /?CCL6
+	CALL1	GET-LITTLE-FUNGUS
+	RSTACK	
+?CCL6:	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LISTEN \?CCL13
+	ZERO?	PLANT-TALKER /?CCL13
+	PRINTR	"You hear a vast murmur of countless little fungi, all discussing spore-care techniques."
+?CCL13:	EQUAL?	PRSA,V?RESEARCH \?CCL17
+	CALL2	PERFORM-PRSA,EAR-FUNGUS
+	RSTACK	
+?CCL17:	EQUAL?	PRSA,V?ASK-ABOUT \FALSE
+	ZERO?	PLANT-TALKER /FALSE
+	EQUAL?	PRSI,LITTLE-FUNGUS \FALSE
+	IN?	LITTLE-FUNGUS,GLOBAL-OBJECTS \FALSE
+	EQUAL?	FUNGUS-NUMBER,12 /FALSE
+	GET	FUNGUS-WORDS,FUNGUS-NUMBER
+	CALL	NOUN-USED?,LITTLE-FUNGUS,STACK
+	ZERO?	STACK /FALSE
+	CALL1	GET-LITTLE-FUNGUS
+	RSTACK	
+
+
+	.FUNCT	GET-LITTLE-FUNGUS
+	FSET	LITTLE-FUNGUS,TAKEBIT
+	ICALL2	THIS-IS-IT,LITTLE-FUNGUS
+	MOVE	LITTLE-FUNGUS,HERE
+	PRINTR	"A little fungus trots up and says, ""That's me!"""
+
+	.SEGMENT "0"
+
+
+	.FUNCT	LITTLE-FUNGUS-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL1	PLANT-STUNNED
+	RSTACK	
+?CCL3:	IN?	PRSO,GLOBAL-OBJECTS \?CCL5
+	EQUAL?	PRSA,V?SAY,V?YELL,V?CALL /?PRD10
+	EQUAL?	PRSA,V?FIND \?CCL8
+?PRD10:	EQUAL?	HERE,ON-TOP-OF-THE-WORLD \?CCL8
+	ZERO?	PLANT-TALKER /?CCL8
+	EQUAL?	FUNGUS-NUMBER,12 /?CCL8
+	GET	FUNGUS-WORDS,FUNGUS-NUMBER
+	CALL	NOUN-USED?,LITTLE-FUNGUS,STACK
+	ZERO?	STACK /?CCL8
+	CALL1	GET-LITTLE-FUNGUS
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?SAY,V?YELL,V?CALL \?CCL17
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+?CCL17:	CALL2	HANDLE,LITTLE-FUNGUS
+	ZERO?	STACK /?CCL19
+	CALL2	CANT-SEE,LITTLE-FUNGUS
+	RSTACK	
+?CCL19:	PRINT	BY-THAT-NAME
+	RTRUE	
+?CCL5:	CALL	NOUN-USED?,LITTLE-FUNGUS,W?SEYMOUR,W?SHERMAN,W?IRVING
+	ZERO?	STACK \?PRD23
+	CALL	NOUN-USED?,LITTLE-FUNGUS,W?SAMMY,W?MYRON,W?BORIS
+	ZERO?	STACK \?PRD23
+	CALL	NOUN-USED?,LITTLE-FUNGUS,W?MELVIN,W?LESTER,W?JULIUS
+	ZERO?	STACK \?PRD23
+	CALL	NOUN-USED?,LITTLE-FUNGUS,W?RICARDO,W?OMAR,W?BARNABY
+	ZERO?	STACK /?CCL21
+?PRD23:	GET	FUNGUS-WORDS,FUNGUS-NUMBER
+	CALL	NOUN-USED?,LITTLE-FUNGUS,STACK
+	ZERO?	STACK \?CCL21
+	CALL2	HANDLE,LITTLE-FUNGUS
+	ZERO?	STACK \?CTR20
+	EQUAL?	PRSA,V?FOLLOW \?CCL21
+?CTR20:	PRINT	BY-THAT-NAME
+	CALL1	STOP
+	RSTACK	
+?CCL21:	EQUAL?	PRSA,V?DROP \?PRD34
+	EQUAL?	HERE,EAR /?CCL32
+?PRD34:	EQUAL?	PRSA,V?PUT,V?SHOW,V?GIVE /?PRD39
+	EQUAL?	PRSA,V?PUT-ON \?PRD37
+?PRD39:	EQUAL?	PRSI,EAR-FUNGUS /?CCL32
+?PRD37:	EQUAL?	PRSA,V?PUT-ON,V?PUT \FALSE
+	EQUAL?	PRSI,BROGMOID \FALSE
+	CALL	NOUN-USED?,BROGMOID,W?EAR
+	ZERO?	STACK /FALSE
+?CCL32:	SET	'EAR-PASSAGE-OPEN,TRUE-VALUE
+	REMOVE	LITTLE-FUNGUS
+	PRINTI	"There follows a joyful reunion between the little fungus and his long-lost cousins. Grateful, the ear fungi part, forming a passageway leading deeper into the ear."
+	CRLF	
+	CALL2	INC-SCORE,18
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	BAT-F
+	CALL2	TOUCHING?,BAT
+	ZERO?	STACK /?CCL3
+	FSET?	BAT,TRYTAKEBIT \?CCL3
+	PRINTR	"An invisible force prevents you from approaching the wooden club."
+?CCL3:	EQUAL?	PRSA,V?SWING \FALSE
+	INC	'BAT-SWINGS
+	PRINTI	"""Strike "
+	PRINTN	BAT-SWINGS
+	PRINTC	33
+	EQUAL?	BAT-SWINGS,3 \?CCL10
+	CALL2	JIGS-UP,STR?883
+	RSTACK	
+?CCL10:	PRINTR	""""
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	FENCE-PS
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB,V?CROSS /?CTR2
+	EQUAL?	PRSA,V?CLIMB-OVER \?CCL3
+?CTR2:	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?THROW-OVER \FALSE
+	EQUAL?	PRSO,PERCH \?CND8
+	SET	'REMOVED-PERCH-LOC,PSEUDO-OBJECT
+?CND8:	REMOVE	PRSO
+	PRINTI	"A good throw --"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" sails over the fence and disappears into a tangle of barbed wire beyond."
+
+
+	.FUNCT	AERIE-F,RARG,OBJ,OWINNER
+	EQUAL?	RARG,M-END \?CCL3
+	CALL	FIND-IN,PROTAGONIST,ONBIT >OBJ
+	ZERO?	OBJ \?PRG8
+	CALL1	FIND-LANTERN >OBJ
+	ZERO?	OBJ /?CCL3
+?PRG8:	SET	'OWINNER,WINNER
+	SET	'WINNER,NEST
+	CALL2	VISIBLE?,OBJ
+	ZERO?	STACK /?CND10
+	MOVE	OBJ,CLIFF-BOTTOM
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   ""Caw! Caw!"" A huge black bird swoops down and snatches your "
+	ICALL2	DPRINT,OBJ
+	PRINTI	" in its mighty talons. It flies westward, drops"
+	ICALL2	TPRINT,OBJ
+	PRINTR	" over the precipice, and flutters into the clouds."
+?CND10:	LOC	OBJ >OBJ
+	SET	'WINNER,OWINNER
+	JUMP	?PRG8
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	RANDOM	100
+	LESS?	40,STACK /FALSE
+	PRINTR	"   A gust of wind sends a whirl of dust dancing in a circle around the bird's nest."
+
+
+	.FUNCT	FIND-LANTERN
+	CALL2	ULTIMATELY-IN?,LANTERN
+	ZERO?	STACK /FALSE
+	RETURN	LANTERN
+
+
+	.FUNCT	NEST-F,VARG
+	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?SEARCH,V?EXAMINE \?CCL5
+	IN?	SILK-TIE,LOCAL-GLOBALS \?CCL5
+	MOVE	SILK-TIE,NEST
+	PRINTR	"Among the items woven into the nest is a faded silk tie!"
+?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	IN?	SILK-TIE,LOCAL-GLOBALS \?CCL12
+	ICALL	PERFORM,V?EXAMINE,NEST
+	RTRUE	
+?CCL12:	PRINTR	"The nest is, at the moment, birdless."
+
+
+	.FUNCT	ICKY-CAVE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The walls of this small cavern are covered with thick, black slime. It drips from the stalactites and puddles up on the floor."
+	IN?	SICKLY-WITCH,HERE /?CND4
+	PRINTI	" Considering the furnishings and relics, this cave must be the home of several witches. However, the witches are either out or hiding."
+?CND4:	PRINTI	" The only exit from this tiny cavern is northwest."
+	RTRUE	
+
+
+	.FUNCT	WITCH-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	FSET?	BAT,TRYTAKEBIT \?CCL6
+	PRINTI	"""Bring us "
+	ZERO?	VIAL-GIVEN /?CCL9
+	PRINTI	"earwax of brogmoid"
+	JUMP	?CND7
+?CCL9:	PRINTI	"exactly six gloops of water from the Great Underground Oasis"
+?CND7:	PRINTI	", and we shall remove the enchantment on that which you seek."""
+	IN?	LARGE-VIAL,LOCAL-GLOBALS \?CND10
+	MOVE	LARGE-VIAL,HERE
+	PRINTR	" A vial appears in front of you."
+?CND10:	CRLF	
+	RTRUE	
+?CCL6:	PRINTR	"""Stop pestering us, or we'll restore the enchantment... and worse!"""
+?CCL3:	EQUAL?	PRSA,V?GIVE \?CCL13
+	EQUAL?	PRSI,SICKLY-WITCH,PRICKLY-WITCH \?CCL13
+	ZERO?	LIT \?CCL13
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL13:	EQUAL?	PRSA,V?GIVE \FALSE
+	EQUAL?	PRSO,EARWAX \FALSE
+	REMOVE	EARWAX
+	SET	'EARWAX-GIVEN,TRUE-VALUE
+	ZERO?	VIAL-GIVEN /?CCL23
+	FCLEAR	BAT,TRYTAKEBIT
+	PRINTI	"""A fine specimen!"" cackles the witch. ""Now, where were we? Ah, yes... "
+	PRINTI	"Brogmoid earwax!"
+	PRINT	FINISH-ENCHANTMENT
+	RTRUE	
+?CCL23:	PRINTR	"""Ah, brogmoid ear wax! A goodly portion, too! Always handy to have around."" She squirrels it away."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	G-VIAL-F,SRES,F
+	GET	F,5
+	ADD	STACK,10
+	GET	STACK,0
+	EQUAL?	STACK,W?INT.NUM \FALSE
+	GET	F,10
+	EQUAL?	STACK,4 \?CCL6
+	RETURN	SMALL-VIAL
+?CCL6:	GET	F,10
+	EQUAL?	STACK,9 \?CCL8
+	RETURN	LARGE-VIAL
+?CCL8:	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	CONVERT-NUMBER,ADJS,ADJ
+	ADD	ADJS,8
+	GET	STACK,1 >ADJ
+	EQUAL?	ADJ,W?INT.NUM \?CCL3
+	RETURN	P-NUMBER
+?CCL3:	GET	INTEGERS,0
+	INTBL?	ADJ,INTEGERS,STACK >ADJ \FALSE
+	SUB	ADJ,INTEGERS
+	DIV	STACK,2
+	RSTACK	
+
+
+	.FUNCT	VIAL-F,NUM,PRSO-VIAL-GLOOPS,PRSI-VIAL-GLOOPS,ADJ
+	EQUAL?	PRSO,SMALL-VIAL \?CCL3
+	SET	'PRSO-VIAL-GLOOPS,SMALL-VIAL-GLOOPS
+	JUMP	?CND1
+?CCL3:	SET	'PRSO-VIAL-GLOOPS,LARGE-VIAL-GLOOPS
+?CND1:	ZERO?	PRSI /?CND4
+	EQUAL?	PRSI,SMALL-VIAL \?CCL8
+	SET	'PRSI-VIAL-GLOOPS,SMALL-VIAL-GLOOPS
+	JUMP	?CND4
+?CCL8:	SET	'PRSI-VIAL-GLOOPS,LARGE-VIAL-GLOOPS
+?CND4:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL11
+	PRINTI	"The vial "
+	ZERO?	PRSO-VIAL-GLOOPS \?CCL14
+	PRINTI	"is empty"
+	JUMP	?CND12
+?CCL14:	PRINTI	"contains "
+	EQUAL?	PRSO,LARGE-VIAL \?PRD18
+	ZERO?	LARGE-VIAL-IMPRECISE \?CCL16
+?PRD18:	EQUAL?	PRSO,SMALL-VIAL \?CND15
+	ZERO?	SMALL-VIAL-IMPRECISE /?CND15
+?CCL16:	PRINTI	"approximately "
+?CND15:	PRINTN	PRSO-VIAL-GLOOPS
+	PRINTI	" gloop"
+	EQUAL?	PRSO-VIAL-GLOOPS,1 /?CND23
+	PRINTC	115
+?CND23:	PRINTI	" of water"
+?CND12:	PRINTC	46
+	EQUAL?	PRSA,V?EXAMINE \?CND25
+	PRINTR	" There is some writing etched onto it."
+?CND25:	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?READ \?CCL28
+	PRINTI	"""Frobozz Magic Vial Company. Capacity (to the brim): "
+	EQUAL?	PRSO,LARGE-VIAL \?CCL31
+	PRINTC	57
+	JUMP	?CND29
+?CCL31:	PRINTC	52
+?CND29:	PRINTR	" gloops."""
+?CCL28:	EQUAL?	PRSA,V?GIVE \?CCL33
+	EQUAL?	PRSO,LARGE-VIAL \?CCL33
+	EQUAL?	PRSI,PRICKLY-WITCH,SICKLY-WITCH \?CCL33
+	EQUAL?	LARGE-VIAL-GLOOPS,6 \?CCL39
+	ZERO?	LARGE-VIAL-TAINTED \?CTR41
+	ZERO?	LARGE-VIAL-IMPRECISE /?CCL42
+?CTR41:	PRINTI	"The witch examines the water, grows angry, and flings it out of the vial. ""This is not "
+	ZERO?	LARGE-VIAL-TAINTED /?CCL47
+	PRINTI	"pure Oasis water"
+	JUMP	?CND45
+?CCL47:	PRINTI	"precisely 6 gloops"
+?CND45:	SET	'LARGE-VIAL-TAINTED,FALSE-VALUE
+	SET	'LARGE-VIAL-GLOOPS,0
+	REMOVE	LARGE-VIAL-WATER
+	PRINTR	"! You thought we would not know, fool?"" She throws the vial back at you. ""Do not return until you have done EXACTLY as we ask."""
+?CCL42:	REMOVE	LARGE-VIAL
+	SET	'VIAL-GIVEN,TRUE-VALUE
+	PRINTI	"""You have done well,"" croak the witches. ""We shall do as we promised.""
+   ""Hair of hellhound!"" calls the sickly witch. The prickly witch rummages around and hands her a clump of coarse black fur.
+   ""Toenail of tarantula!"" The prickly witch produces half a handful of clippings.
+   ""Spleen of troll!"" The prickly witch hands over a wrinkled organ, caked with dried blood.
+   ""Earwax of brogmoid!"
+	ZERO?	EARWAX-GIVEN /?CCL50
+	FCLEAR	BAT,TRYTAKEBIT
+	PRINT	FINISH-ENCHANTMENT
+	RTRUE	
+?CCL50:	PRINTR	""" The prickly witch rummages around the cave, mumbling with increasing irritation. ""Earwax of yipple. Earwax of sea slug. Earwax of adventurer. Carbuncle of brogmoid. Belly-button lint of brogmoid."" She shakes her head sadly. ""No earwax of brogmoid. I think we used it up last month... you remember... when we conjured up that male stripper...""
+   The sickly witch turns to you. ""Sorry, we cannot remove the enchantment until you bring us some brogmoid earwax."""
+?CCL39:	PRINTI	"""We asked you for 6 gloops!"" screams the witch. ""No less, no more! Begone, and return not until you do what we ask!"" A fiery bolt shoots from the witches fingers, missing your rump by inches as you scurry from the cave."
+	CRLF	
+	CRLF	
+	CALL2	GOTO,AERIE
+	RSTACK	
+?CCL33:	EQUAL?	PRSA,V?PUT \?CCL52
+	EQUAL?	PRSI,LARGE-VIAL,SMALL-VIAL \?CCL52
+	FSET?	PRSO,TAKEBIT \FALSE
+	GETP	PRSO,P?SIZE
+	GRTR?	STACK,2 \?CCL60
+	PRINTR	"The mouth of the vial is too narrow."
+?CCL60:	CALL1	WASTES
+	RSTACK	
+?CCL52:	EQUAL?	PRSA,V?PUT \?CCL62
+	EQUAL?	PRSI,WATER \?CCL62
+	ICALL	PERFORM,V?FILL,PRSO,WATER
+	RTRUE	
+?CCL62:	EQUAL?	PRSA,V?FILL \?CCL66
+	EQUAL?	PRSI,LAKE-FLATHEAD,OASIS-OBJECT \?CND67
+	SET	'PRSI,WATER
+?CND67:	EQUAL?	PRSI,WATER \?CCL71
+	EQUAL?	PRSO,SMALL-VIAL \?PRD76
+	EQUAL?	SMALL-VIAL-GLOOPS,4 /?CTR73
+?PRD76:	EQUAL?	PRSO,LARGE-VIAL \?CCL74
+	EQUAL?	LARGE-VIAL-GLOOPS,9 \?CCL74
+?CTR73:	PRINTI	"The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" is already filled to the brim!"
+?CCL74:	IN?	PROTAGONIST,HERE /?CCL82
+	CALL2	CANT-REACH,WATER
+	RSTACK	
+?CCL82:	EQUAL?	PRSO,SMALL-VIAL \?CCL84
+	EQUAL?	HERE,OASIS /?CND85
+	SET	'SMALL-VIAL-TAINTED,TRUE-VALUE
+?CND85:	CALL	NOUN-USED?,WATER,W?GLOOP,W?GLOOPS
+	ZERO?	STACK /?CCL89
+	CALL	ADJ-USED?,WATER,FALSE-VALUE
+	ZERO?	STACK \?CCL89
+	GET	FINDER,5 >ADJ
+	ZERO?	ADJ /?CCL89
+	CALL2	CONVERT-NUMBER,ADJ >P-NUMBER
+	ZERO?	P-NUMBER /?CCL89
+	LESS?	P-NUMBER,4 \?CCL89
+	GRTR?	P-NUMBER,0 \?CCL89
+	SET	'SMALL-VIAL-GLOOPS,P-NUMBER
+	SET	'SMALL-VIAL-IMPRECISE,TRUE-VALUE
+	PRINTI	"You fill"
+	CALL2	NO-GRADATIONS,P-NUMBER
+	RSTACK	
+?CCL89:	SET	'SMALL-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'SMALL-VIAL-GLOOPS,4
+	MOVE	SMALL-VIAL-WATER,SMALL-VIAL
+	PRINTR	"You fill the vial to the brim."
+?CCL84:	EQUAL?	HERE,OASIS /?CND96
+	SET	'LARGE-VIAL-TAINTED,TRUE-VALUE
+?CND96:	CALL	NOUN-USED?,WATER,W?GLOOP,W?GLOOPS
+	ZERO?	STACK /?CCL100
+	CALL	ADJ-USED?,WATER,FALSE-VALUE
+	ZERO?	STACK \?CCL100
+	GET	FINDER,5 >ADJ
+	ZERO?	ADJ /?CCL100
+	CALL2	CONVERT-NUMBER,ADJ >P-NUMBER
+	ZERO?	P-NUMBER /?CCL100
+	LESS?	P-NUMBER,9 \?CCL100
+	GRTR?	P-NUMBER,0 \?CCL100
+	SET	'LARGE-VIAL-GLOOPS,P-NUMBER
+	SET	'LARGE-VIAL-IMPRECISE,TRUE-VALUE
+	PRINTI	"You fill"
+	CALL2	NO-GRADATIONS,P-NUMBER
+	RSTACK	
+?CCL100:	SET	'LARGE-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'LARGE-VIAL-GLOOPS,9
+	MOVE	LARGE-VIAL-WATER,LARGE-VIAL
+	PRINTR	"You fill the vial to the brim."
+?CCL71:	EQUAL?	PRSO,SMALL-VIAL \?CCL108
+	EQUAL?	PRSI,LARGE-VIAL \?CCL108
+	CALL	POUR-VIALS,LARGE-VIAL,SMALL-VIAL
+	RSTACK	
+?CCL108:	EQUAL?	PRSO,LARGE-VIAL \FALSE
+	EQUAL?	PRSI,SMALL-VIAL \FALSE
+	CALL	POUR-VIALS,SMALL-VIAL,LARGE-VIAL
+	RSTACK	
+?CCL66:	EQUAL?	PRSA,V?POUR \?CCL116
+	EQUAL?	PRSO,LARGE-VIAL,SMALL-VIAL \?CCL116
+	ICALL	PERFORM,V?EMPTY,PRSO,PRSI
+	RTRUE	
+?CCL116:	EQUAL?	PRSA,V?EMPTY \?CCL120
+	ZERO?	PRSO-VIAL-GLOOPS \?CCL123
+	PRINTR	"The vial is already empty!"
+?CCL123:	EQUAL?	PRSO,SMALL-VIAL \?CCL125
+	EQUAL?	PRSI,LARGE-VIAL \?CCL125
+	CALL	POUR-VIALS,SMALL-VIAL,LARGE-VIAL
+	RSTACK	
+?CCL125:	EQUAL?	PRSI,SMALL-VIAL \?CCL129
+	EQUAL?	PRSO,LARGE-VIAL \?CCL129
+	CALL	POUR-VIALS,LARGE-VIAL,SMALL-VIAL
+	RSTACK	
+?CCL129:	ZERO?	PRSI \?CND132
+	ICALL1	SET-GROUND-DESC
+	SET	'PRSI,GROUND
+?CND132:	EQUAL?	PRSO,SMALL-VIAL \?CCL136
+	ICALL2	PRINT-GLOOP,SMALL-VIAL-GLOOPS
+	SET	'SMALL-VIAL-TAINTED,FALSE-VALUE
+	SET	'SMALL-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'SMALL-VIAL-GLOOPS,0
+	REMOVE	SMALL-VIAL-WATER
+	JUMP	?CND134
+?CCL136:	ICALL2	PRINT-GLOOP,LARGE-VIAL-GLOOPS
+	SET	'LARGE-VIAL-TAINTED,FALSE-VALUE
+	SET	'LARGE-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'LARGE-VIAL-GLOOPS,0
+	REMOVE	LARGE-VIAL-WATER
+?CND134:	EQUAL?	PRSI,ELIXIR,BOWL \?CCL139
+	IN?	ELIXIR,BOWL \?CCL139
+	REMOVE	ELIXIR
+	PRINTR	" The water and elixir undergo a reaction, and both disappear in a cloud of smoke!"
+?CCL139:	EQUAL?	PRSI,CUP \?CCL143
+	ICALL	PERFORM,V?FILL,CUP,WATER
+	RTRUE	
+?CCL143:	PRINTI	" The water spills all over"
+	ICALL1	TPRINT-PRSI
+	PRINTI	" and then evaporates. The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" is now empty."
+?CCL120:	EQUAL?	PRSA,V?TAKE,V?EMPTY-FROM \FALSE
+	EQUAL?	PRSO,WATER \FALSE
+	CALL2	GET-NP,PRSO >NUM
+	ZERO?	NUM /?CND148
+	CALL2	NUMERIC-ADJ?,NUM >NUM
+?CND148:	ZERO?	NUM \?CND150
+	CALL2	GET-NP,PRSO
+	GET	STACK,1 >NUM
+	ZERO?	NUM /?CND150
+	CALL2	CONVERT-NUMBER,NUM >NUM
+?CND150:	ZERO?	NUM \?CND154
+	SET	'NUM,PRSI-VIAL-GLOOPS
+?CND154:	ZERO?	PRSI-VIAL-GLOOPS \?CCL158
+	PRINTR	"The vial is empty!"
+?CCL158:	GRTR?	NUM,PRSI-VIAL-GLOOPS \?CCL160
+	PRINTI	"There "
+	EQUAL?	PRSI-VIAL-GLOOPS,1 /?CCL163
+	PRINTI	"are"
+	JUMP	?CND161
+?CCL163:	PRINTI	"is"
+?CND161:	PRINTI	" only "
+	PRINTN	PRSI-VIAL-GLOOPS
+	PRINTI	" gloop"
+	EQUAL?	PRSI-VIAL-GLOOPS,1 /?CND164
+	PRINTC	115
+?CND164:	PRINTI	" in"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+?CCL160:	ICALL2	PRINT-GLOOP,NUM
+	SUB	PRSI-VIAL-GLOOPS,NUM >PRSI-VIAL-GLOOPS
+	ZERO?	PRSI-VIAL-GLOOPS \?CCL168
+	EQUAL?	PRSI,LARGE-VIAL \?CCL171
+	SET	'LARGE-VIAL-GLOOPS,0
+	SET	'LARGE-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'LARGE-VIAL-TAINTED,FALSE-VALUE
+	REMOVE	LARGE-VIAL-WATER
+	JUMP	?CND169
+?CCL171:	SET	'SMALL-VIAL-GLOOPS,0
+	REMOVE	SMALL-VIAL-WATER
+	SET	'SMALL-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'SMALL-VIAL-TAINTED,FALSE-VALUE
+?CND169:	PRINTI	" You completely empty"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+?CCL168:	EQUAL?	PRSI,LARGE-VIAL \?CCL174
+	SUB	LARGE-VIAL-GLOOPS,NUM >LARGE-VIAL-GLOOPS
+	MOVE	LARGE-VIAL-WATER,LARGE-VIAL
+	SET	'LARGE-VIAL-IMPRECISE,TRUE-VALUE
+	JUMP	?CND172
+?CCL174:	SUB	SMALL-VIAL-GLOOPS,NUM >SMALL-VIAL-GLOOPS
+	MOVE	SMALL-VIAL-WATER,SMALL-VIAL
+	SET	'SMALL-VIAL-IMPRECISE,TRUE-VALUE
+?CND172:	PRINTI	" You pour"
+	CALL2	NO-GRADATIONS,PRSI-VIAL-GLOOPS
+	RSTACK	
+
+
+	.FUNCT	NO-GRADATIONS,VIAL-GLOOPS
+	PRINTI	" as carefully as you can, and it appears to the naked eye that there "
+	EQUAL?	VIAL-GLOOPS,1 /?CCL3
+	PRINTI	"are"
+	JUMP	?CND1
+?CCL3:	PRINTI	"is"
+?CND1:	PRINTI	" now "
+	PRINTN	VIAL-GLOOPS
+	PRINTI	" gloop"
+	EQUAL?	VIAL-GLOOPS,1 /?CND4
+	PRINTC	115
+?CND4:	PRINTR	" in the vial. However, since there are no gradations on the vial, it's impossible to be certain."
+
+
+	.FUNCT	PRINT-GLOOP,NUM
+	PRINTC	34
+?PRG1:	PRINTI	"Gloop!"
+	DLESS?	'NUM,1 /?REP2
+	PRINTC	32
+	JUMP	?PRG1
+?REP2:	PRINTC	34
+	RTRUE	
+
+
+	.FUNCT	POUR-VIALS,FROM-VIAL,TO-VIAL,SPARE-ROOM
+	EQUAL?	TO-VIAL,LARGE-VIAL \?CCL3
+	SUB	9,LARGE-VIAL-GLOOPS >SPARE-ROOM
+	JUMP	?CND1
+?CCL3:	SUB	4,SMALL-VIAL-GLOOPS >SPARE-ROOM
+?CND1:	ZERO?	SPARE-ROOM \?CCL6
+	PRINTI	"But"
+	ICALL2	TPRINT,TO-VIAL
+	PRINTR	" is already filled to the brim!"
+?CCL6:	EQUAL?	FROM-VIAL,LARGE-VIAL \?CCL8
+	GRTR?	LARGE-VIAL-GLOOPS,SPARE-ROOM \?CCL11
+	ZERO?	LARGE-VIAL-TAINTED /?CND12
+	SET	'SMALL-VIAL-TAINTED,TRUE-VALUE
+?CND12:	ICALL2	PRINT-GLOOP,SPARE-ROOM
+	SUB	LARGE-VIAL-GLOOPS,SPARE-ROOM >LARGE-VIAL-GLOOPS
+	MOVE	LARGE-VIAL-WATER,LARGE-VIAL
+	ZERO?	SMALL-VIAL-IMPRECISE /?CND14
+	SET	'LARGE-VIAL-IMPRECISE,TRUE-VALUE
+?CND14:	SET	'SMALL-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'SMALL-VIAL-GLOOPS,4
+	MOVE	SMALL-VIAL-WATER,SMALL-VIAL
+	PRINTI	" The "
+	ICALL2	DPRINT,TO-VIAL
+	PRINTR	" is now filled to the brim."
+?CCL11:	ICALL2	PRINT-GLOOP,LARGE-VIAL-GLOOPS
+	ZERO?	LARGE-VIAL-TAINTED /?CND16
+	SET	'SMALL-VIAL-TAINTED,TRUE-VALUE
+?CND16:	ADD	SMALL-VIAL-GLOOPS,LARGE-VIAL-GLOOPS >SMALL-VIAL-GLOOPS
+	MOVE	SMALL-VIAL-WATER,SMALL-VIAL
+	SET	'LARGE-VIAL-GLOOPS,0
+	SET	'LARGE-VIAL-TAINTED,FALSE-VALUE
+	REMOVE	LARGE-VIAL-WATER
+	ZERO?	LARGE-VIAL-IMPRECISE /?CND18
+	SET	'LARGE-VIAL-IMPRECISE,FALSE-VALUE
+	SET	'SMALL-VIAL-IMPRECISE,TRUE-VALUE
+?CND18:	PRINTI	" The "
+	ICALL2	DPRINT,LARGE-VIAL
+	PRINTI	" has been completely emptied into"
+	CALL2	TRPRINT,SMALL-VIAL
+	RSTACK	
+?CCL8:	GRTR?	SMALL-VIAL-GLOOPS,SPARE-ROOM \?CCL21
+	ZERO?	SMALL-VIAL-TAINTED /?CND22
+	SET	'LARGE-VIAL-TAINTED,TRUE-VALUE
+?CND22:	ICALL2	PRINT-GLOOP,SPARE-ROOM
+	SUB	SMALL-VIAL-GLOOPS,SPARE-ROOM >SMALL-VIAL-GLOOPS
+	MOVE	SMALL-VIAL-WATER,SMALL-VIAL
+	SET	'LARGE-VIAL-GLOOPS,9
+	MOVE	LARGE-VIAL-WATER,LARGE-VIAL
+	ZERO?	LARGE-VIAL-IMPRECISE /?CND24
+	SET	'SMALL-VIAL-IMPRECISE,TRUE-VALUE
+?CND24:	SET	'LARGE-VIAL-IMPRECISE,FALSE-VALUE
+	PRINTI	" The "
+	ICALL2	DPRINT,LARGE-VIAL
+	PRINTR	" is now filled to the brim."
+?CCL21:	ZERO?	SMALL-VIAL-TAINTED /?CND26
+	SET	'LARGE-VIAL-TAINTED,TRUE-VALUE
+?CND26:	ICALL2	PRINT-GLOOP,SMALL-VIAL-GLOOPS
+	ADD	LARGE-VIAL-GLOOPS,SMALL-VIAL-GLOOPS >LARGE-VIAL-GLOOPS
+	MOVE	LARGE-VIAL-WATER,LARGE-VIAL
+	SET	'SMALL-VIAL-GLOOPS,0
+	REMOVE	SMALL-VIAL-WATER
+	ZERO?	SMALL-VIAL-IMPRECISE /?CND28
+	SET	'LARGE-VIAL-IMPRECISE,TRUE-VALUE
+?CND28:	SET	'SMALL-VIAL-IMPRECISE,FALSE-VALUE
+	PRINTI	" The "
+	ICALL2	DPRINT,SMALL-VIAL
+	PRINTI	" has been completely emptied into"
+	CALL2	TRPRINT,LARGE-VIAL
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+
+	.FUNCT	RUBBLE-ROOM-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+	FSET?	HARDHAT,WORNBIT \?CCL6
+	PRINTI	"Clunk! A bit of rubble bounces off your hardhat."
+	CRLF	
+	ICALL2	INC-SCORE,RUBBLE-SCORE
+	SET	'RUBBLE-SCORE,0
+	RTRUE	
+?CCL6:	CALL2	JIGS-UP,STR?894
+	RSTACK	
+
+
+	.FUNCT	GRANOLA-MINE-F
+	EQUAL?	PRSA,V?ENTER \?CCL3
+	EQUAL?	HERE,MINE-ENTRANCE \?CCL6
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+?CCL6:	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL3:	EQUAL?	HERE,MINE-ENTRANCE /FALSE
+	CALL2	PERFORM-PRSA,GLOBAL-HERE
+	RSTACK	
+
+
+	.FUNCT	GRANOLA-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	CALL2	STEP-IN-IT,STR?898
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TASTE,V?EAT \?CCL5
+	CALL2	STEP-IN-IT,STR?899
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?SMELL \?CCL7
+	CALL2	STEP-IN-IT,STR?900
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?ENTER,V?STAND-ON \?CCL9
+	PRINTR	"Oh, yechh!"
+?CCL9:	CALL2	TOUCHING?,GRANOLA
+	ZERO?	STACK /FALSE
+	CALL2	STEP-IN-IT,STR?901
+	RSTACK	
+
+
+	.FUNCT	STEP-IN-IT,STRING
+	PRINTI	"It "
+	PRINT	STRING
+	PRINTR	" just like granola. Good thing you didn't step in it."
+
+	.ENDSEG
+
+	.ENDI
diff --git a/oracle.zil b/oracle.zil
new file mode 100644
index 0000000..c8ddac7
--- /dev/null
+++ b/oracle.zil
@@ -0,0 +1,3376 @@
+"ORACLE for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT SECRET>
+
+<INCLUDE "BASEDEFS" "PDEFS"> ;"needed for G-VIAL-F, for some reason"
+
+<ROOM ORACLE
+      (LOC ROOMS)
+      (DESC "Oracle")
+      (REGION "Region:  Unknown")
+      (UP TO CRYPT)
+      (OUT TO CRYPT)
+      (FLAGS RLANDBIT UNDERGROUNDBIT)
+      (GLOBAL SLIME)
+      (VALUE 10)
+      (ICON ORACLE-ICON)
+      (MAP-LOC <PTABLE SECRET-WING-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-10>)
+      (THINGS <> SHADOW PHIL-SHADOW-PS)
+      (ACTION ORACLE-F)>
+
+<ROUTINE ORACLE-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <G? ,ORACLE-EXIT-NUMBER 4>>
+		<SETG ORACLE-EXIT-NUMBER <- <RANDOM 5> 1>>
+		<QUEUE I-AMULET 4>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in an irregularly shaped chamber, hewn out of bedrock by untold ages
+of trickling waters. The walls are slimy, and shadows dance in the unlit
+crevices. A stream of slime drips sluggishly down an uneven tunnel which heads
+roughly upwards." CR "   ">
+		<D-ORACLE>)>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT ORACLE-OBJECT
+	(LOC ORACLE)
+	(DESC "oracle")
+	(SYNONYM ORACLE BARGTH MOUTH HEAD)
+	(ADJECTIVE HUGE ORACLE\'S SERPENT\'S)
+	(FLAGS NDESCBIT VOWELBIT VEHBIT INBIT CONTBIT
+	       OPENBIT SEARCHBIT DROPBIT)
+	(CAPACITY 100)
+	(OWNER ORACLE-OBJECT)
+	(RESEARCH
+"The encyclopedia scoffs at this silly little legend about an oracle which
+offered bits of wisdom and could transport believers to distant regions.")
+	(ACTION ORACLE-OBJECT-F)>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT SECRET>
+
+<ROUTINE ORACLE-OBJECT-F ("OPTIONAL" (VARG <>) "AUX" TAKER RM)
+	 <COND (.VARG
+		<RFALSE>)
+	       (<AND <VERB? ASK-ABOUT PRAY TELL>
+		     <PRSO? ,ORACLE-OBJECT>>
+		<TELL
+"The oracle stares at the far wall of the cave, impassive and unresponsive.">
+		<COND (<NOT ,ORACLE-USED>
+		       <TELL
+" It appears that the ancient claims of the oracle's amazing abilities
+were just wild fictions.">)>
+		<CRLF>
+		<STOP>)
+	       (<VERB? EXAMINE>
+		<D-ORACLE>
+	        <COND (<FIRST? ,ORACLE-OBJECT>
+		       <TELL " Sitting in the mouth of the oracle is">
+		       <D-NOTHING>)
+		      (T
+		       <CRLF>)>)
+	       (<AND <VERB? LOOK-INSIDE>
+		     <NOUN-USED? ,ORACLE-OBJECT ,W?MOUTH>
+		     <NOT <IN? ,PROTAGONIST ,ORACLE-OBJECT>>>
+		<TELL "The wide-open mouth is larger than you!" CR>)
+	       (<AND <VERB? PUT THROW>
+		     <PRSI? ,ORACLE-OBJECT>>
+		<TELL "You ">
+		<COND (<VERB? THROW>
+		       <TELL "toss">)
+		      (T
+		       <TELL "place">)>
+		<TELL T ,PRSO " into the mouth of the oracle">
+		<COND (<IN? ,RUBY ,DEPRESSION>
+		       <MOVE ,PRSO
+			     <SET RM <GET ,ORACLE-TABLE ,ORACLE-EXIT-NUMBER>>>
+		       <TELL ", and it instantly vanishes!" CR>
+		       <COND (<OR <SET TAKER <FIND-IN .RM ,WHITEBIT>>
+				  <SET TAKER <FIND-IN .RM ,BLACKBIT>>>
+			      <MOVE ,PRSO .TAKER>
+			      <COND (<PRSO? ,PIGEON>
+				     <MOVE-TO-PERCH .TAKER>)>)>
+		       <NOW-DARK?>)
+		      (T
+		       <MOVE ,PRSO ,ORACLE-OBJECT>
+		       <TELL ,PERIOD-CR>)>)
+	       (<VERB? ENTER>
+		<COND (<NOT ,LIT>
+		       <TELL ,TOO-DARK CR>)
+		      (<AND <IN? ,BEDBUG ,HERE>
+			    <NOT ,TIME-STOPPED>>
+		       <DO-WALK ,P?UP>)
+		      (<IN? ,RUBY ,DEPRESSION>
+		       <COND (,ORACLE-USED
+		       	      <TELL "D">)
+		      	     (T
+			      <SPLIT-BY-PICTURE ,TEXT-WINDOW-PIC-LOC T>
+			      <SCREEN ,S-TEXT>
+			      <CRLF>
+			      <MARGINAL-PIC ,TELEPORT-LETTER>
+			      <DIROUT ,D-SCREEN-OFF>
+	 		      <TELL "D"> ;"so script doesn't say ARKNESS..."
+	 		      <DIROUT ,D-SCREEN-ON>)>
+		       <TELL "arkness envelopes you">
+		       <COND (<NOT ,ORACLE-USED>
+			      <TELL
+" with a giant hand swathed in a glove of black velvet. You feel disembodied;
+there is no up and down. You are motionless in time and space. A moment drags
+out for a century -- or is it a century that has flown by in a moment? After
+an immeasurable time, you notice">)
+			     (T
+			      <TELL ". You feel">)>
+		       <TELL
+" a stabbing pain... swirling lights... dizziness" ,ELLIPSIS>
+		       <COND (<NOT ,BORDER-ON>
+			      <INIT-STATUS-LINE T>)>
+		       <GOTO <GET ,ORACLE-TABLE ,ORACLE-EXIT-NUMBER>>
+		       <SETG ORACLE-USED T>)>)>>
+
+<ROUTINE D-ORACLE ()
+	 <COND (<IN? ,PROTAGONIST ,ORACLE-OBJECT>
+		<TELL "Surrounding you is">)
+	       (T
+		<TELL "Before you sits">)>
+	 <TELL
+" the legendary Oracle of Bargth. Shaped like an enormous serpent's head,
+its huge mouth hangs open in an expression of insatiable hunger; its four ">
+	 <COND (<IN? ,RUBY ,DEPRESSION>
+		<TELL "glowing">)
+	       (T
+		<TELL "dark">)>
+	 <TELL
+" eyes seem fixed upon you. In the center of the serpent's forehead is a">
+	 <COND (<IN? ,RUBY ,DEPRESSION>
+		<TELL "n enormous ruby.">)
+	       (T
+		<TELL " depression.">)>>
+
+<OBJECT DEPRESSION
+	(LOC ORACLE)
+	(DESC "depression")
+	(SYNONYM DEPRESSION)
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION DEPRESSION-F)>
+
+<ROUTINE DEPRESSION-F () 
+	 <COND (<VERB? EXAMINE>
+		<TELL "The semi-spherical depression is a few inches across.">
+		<COND (<IN? ,RUBY ,DEPRESSION>
+		       <TELL " A huge ruby rests in the depresssion.">)>
+		<CRLF>)
+	       (<AND <VERB? TAKE>
+		     <PRSO? ,RUBY>
+		     <FSET? ,RUBY ,NDESCBIT>>
+		<COND (<EQUAL? <ITAKE T> ,M-FATAL <>>
+		       <RTRUE>)
+		      (T
+		       <FCLEAR ,RUBY ,NDESCBIT>
+		       <FCLEAR ,RUBY ,NALLBIT>
+		       <TELL "Taken." CR>)>)
+	       (<VERB? PUT>
+		<COND (<PRSO? ,SAPPHIRE>
+		       <MOVE ,SAPPHIRE ,HERE>
+		       <TELL
+"The sapphire is a bit smaller than the depression; it stays for a
+moment but then drops to the ground." CR>)
+		      (<PRSO? ,RUBY>
+		       <MOVE ,RUBY ,DEPRESSION>
+		       <FSET ,RUBY ,NDESCBIT>
+		       <FSET ,RUBY ,NALLBIT>
+		       <TELL
+"The moby ruby fits perfectly into the depression. As it sinks into place,
+the eyes of the oracle begin to glow.">
+		       <COND (<FIRST? ,ORACLE-OBJECT>
+			      <ROB ,ORACLE-OBJECT
+				   <GET ,ORACLE-TABLE ,ORACLE-EXIT-NUMBER>>
+			      <TELL
+" Everything in the oracle's mouth suddenly vanishes!">)>
+		       <CRLF>
+		       <INC-SCORE ,ORACLE-SCORE>
+		       <SETG ORACLE-SCORE 0>
+		       <RTRUE>)
+		      (T
+		       <TELL "It doesn't fit the depression." CR>)>)>>
+
+<GLOBAL ORACLE-USED <>>
+
+<GLOBAL ORACLE-SCORE 9>
+
+<CONSTANT ORACLE-TABLE
+	<PTABLE CRAG GLACIER DELTA-1 FOOT-OF-STATUE MINE-ENTRANCE>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT AMULET
+	(LOC G-U-MOUNTAIN)
+	(DESC "amulet")
+	(SYNONYM AMULET)
+	(FLAGS TAKEBIT WEARBIT VOWELBIT)
+	(ACTION AMULET-F)>
+
+<ROUTINE AMULET-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The amulet is in the shape of a serpent's head. ">
+		<COND (<FSET? ,HERE ,BEYONDBIT>
+		       <TELL "It seems to be glowing slightly">)
+		      (T
+		       <TELL
+<GET ,EYE-TABLE ,ORACLE-EXIT-NUMBER> " of its four eyes ">
+		       <COND (<EQUAL? ,ORACLE-EXIT-NUMBER 1>
+			      <TELL "is">)
+			     (T
+			      <TELL "are">)>
+		       <TELL " open">)>
+		<TELL ,PERIOD-CR>)
+	       (<VERB? TOUCH>
+		<COND (<FSET? ,HERE ,BEYONDBIT>
+		       <CAST-HUNGER-SPELL>
+		       <TELL
+"A stream of light undulates slowly from the amulet ">
+		       <COND (<FSET? ,AMULET ,WORNBIT>
+			      <TELL
+"and envelops you like a mist. After a moment, the mist clears" ,ELLIPSIS>
+		       	      <GOTO ,G-U-MOUNTAIN>)
+			     (T
+			      <TELL "but then quickly fades." CR>)>)
+		      (<NOT ,TIME-STOPPED>
+		       <TELL
+"The amulet, for one brief moment, glows from deep within." CR>)>)>>
+
+<GLOBAL ORACLE-EXIT-NUMBER 5>
+
+<CONSTANT EYE-TABLE
+	<PTABLE "None" "One" "Two" "Three" "All">>
+
+<ROUTINE I-AMULET ()
+	 <QUEUE I-AMULET 4>
+	 <SETG ORACLE-EXIT-NUMBER <+ ,ORACLE-EXIT-NUMBER 1>>
+	 <COND (<G? ,ORACLE-EXIT-NUMBER 4>
+		<SETG ORACLE-EXIT-NUMBER 0>)>
+	 <COND (<AND <EQUAL? ,HERE ,ORACLE>
+		     <IN? ,RUBY ,DEPRESSION>
+		     ,LIT>
+		<RETURN-FROM-MAP>
+		<TELL "   The oracle seems to blink for a moment." CR>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+\
+<BEGIN-SEGMENT ORACLE>
+
+<OBJECT FLATHEAD-MOUNTAINS
+	(LOC LOCAL-GLOBALS)
+	(DESC "Flathead Mountains")
+	(SYNONYM MOUNTAIN MOUNTAINS)
+	(ADJECTIVE FLATHEAD)
+	(RESEARCH
+"\"This towering range runs north to south, forming the eastern border of the
+Frigid River Valley. Beyond the mountains, uninhabitable swamps extend to the
+edge of the world. Near the southern end of the range, the Zorbel Pass permits
+passage to the Fublio Valley.\"")
+	(ACTION FLATHEAD-MOUNTAINS-F)>
+
+<ROUTINE FLATHEAD-MOUNTAINS-F ()
+	 <COND (<VERB? ENTER CLIMB CLIMB-UP CLIMB-DOWN>
+		<V-WALK-AROUND>)>>
+
+<ROOM CRAG
+      (LOC ROOMS)
+      (DESC "Crag")
+      (REGION "Flathead Mountains")
+      (LDESC
+"You are high in the mountains, surrounded by jagged, rocky peaks. Paths
+squeeze northeast, southeast, and southwest, and it looks like you could
+also climb down.")
+      (SW TO HOLLOW)
+      (DOWN TO UPPER-LEDGE)
+      (NE TO NATURAL-ARCH)
+      (SE TO NATURAL-ARCH)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (SYNONYM CRAG)
+      (VALUE 10)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-4>)
+      (ICON CRAG-ICON)>
+
+<OBJECT CRAG-REBUS-BUTTON
+	(LOC CRAG)
+	(SDESC "blinking key-shaped button")
+	(FDESC
+"Imbedded in the rocky wall is a blinking button in the shape of a key.")
+	(SYNONYM BUTTON)
+	(ADJECTIVE KEY-SHAPED BLINKING)
+	(ACTION REBUS-BUTTON-F)>
+
+<ROOM HOLLOW
+      (LOC ROOMS)
+      (DESC "Hollow")
+      (REGION "Flathead Mountains")
+      (NE TO CRAG)
+      (SOUTH TO IRON-MINE IF IRON-MINE-OPEN)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-3>)
+      (THINGS IRON MINE IRON-MINE-PS)
+      (ACTION HOLLOW-F)>
+
+<ROUTINE HOLLOW-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a chamber, open to the sky, formed by cliff-like mountain walls.
+Strange and frightening runes have been carved into the cliff wall to the
+south, next to a ">
+	        <COND (,IRON-MINE-OPEN
+		       <TELL "dark cave entrance">)
+		      (T
+		       <TELL "six-sided hole">)>
+		<TELL ". The only ">
+		<COND (,IRON-MINE-OPEN
+		       <TELL "other">)
+		      (T
+		       <TELL "apparent">)>
+		<TELL " exit is northeast.">)>>
+
+<GLOBAL IRON-MINE-OPEN <>>
+
+<OBJECT RUNES
+	(LOC HOLLOW)
+	(DESC "runes")
+	(SYNONYM RUNES)
+	(ADJECTIVE STRANGE FRIGHTENING)
+	(FLAGS READBIT NDESCBIT NARTICLEBIT)
+	(TEXT
+"The runes are in an ancient and unfamiliar language; you can translate only
+a handful of phrases: \"accursed sapphire\" and \"sealed their tomb\" and
+\"death awaits.\"")>
+
+<OBJECT HEXAGONAL-HOLE
+	(LOC HOLLOW)
+	(DESC "six-sided hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE SMALL SIX-SIDED HEXAGONAL)
+	(FLAGS NDESCBIT)
+	(ACTION HEXAGONAL-HOLE-F)>
+
+<ROUTINE HEXAGONAL-HOLE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The small, six-sided hole has been neatly carved into the cliff wall." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL ,ONLY-BLACKNESS>)
+	       (<VERB? REACH-IN>
+		<TELL
+"Your hand is about the same size as the hole, and since your hand isn't
+hexagonal, it doesn't fit." CR>)
+	       (<VERB? PUT>
+		<COND (<PRSO? ,HEXAGONAL-BLOCK>
+		       <SETG IRON-MINE-OPEN T>
+		       <SETG COMPASS-CHANGED T>
+		       <REMOVE ,HEXAGONAL-BLOCK>
+		       <REMOVE ,HEXAGONAL-HOLE>
+		       <TELL
+"A seam appears in the cliff wall, and a huge slab of rock slides silently
+aside! A breeze of stale, dusty air caresses you as the dark opening to the
+south beckons ominously." CR>
+		       <INC-SCORE 14>)
+		      (T
+		       <TELL "It doesn't fit." CR>)>)>>
+
+<OBJECT BIRCH
+	(LOC HOLLOW)
+	(DESC "birch tree")
+	(FDESC
+"A stubborn birch tree has been eking out an existence in this rocky hollow
+for, judging by its size, fifty to a hundred years -- though, in this barren
+spot, who can guess the growth rate of a tree?")
+	(SYNONYM TREE BIRCH)
+	(ADJECTIVE BIRCH)
+	(FLAGS PLANTBIT)
+	(ACTION BIRCH-F)>
+
+<ROUTINE BIRCH-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<VERB? CLIMB CLIMB-UP>
+		<TELL ,POORLY-CONFIGURED>)
+	       (<VERB? GET-NEAR>
+		<PERFORM-PRSA ,SMALL-ELM>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"The birch is poignantly bemoaning that none of its seedlings has
+ever taken root in this barren, rocky place." CR>)>>
+
+<ROOM IRON-MINE
+      (LOC ROOMS)
+      (DESC "Iron Mine")
+      (REGION "Flathead Mountains")
+      (LDESC
+"This appears to have been a mine for the excavation of iron ore, possibly
+dating to the earliest days of recorded history. There seems to have been a
+struggle here, in the distant past: two decayed skeletons locked in vicious
+combat. The rusty strips of metal by their side may have once been weapons.")
+      (NORTH TO HOLLOW)
+      (OUT TO HOLLOW)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (SYNONYM MINE)
+      (ADJECTIVE IRON)
+      (GLOBAL BONES BODIES FLATHEAD-MOUNTAINS)
+      (THINGS IRON MINE IRON-MINE-PS
+       	      <> IRON IRON-PS
+	      IRON ORE IRON-PS)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-3>)
+      (ICON IRON-MINE-ICON)>
+
+<ROUTINE IRON-PS ()
+	 <COND (<EQUAL? ,HERE ,IRON-MINE>
+		<TELL
+"There's no iron ore here. The vein is played out; the mine abandoned." CR>)>>
+
+<ROUTINE IRON-MINE-PS ()
+	 <COND (<AND <VERB? ENTER>
+		     <EQUAL? ,HERE ,HOLLOW>>
+		<DO-WALK ,P?IN>)
+	       (T
+		<PERFORM-PRSA ,GLOBAL-HERE>)>>
+
+;<BEGIN-SEGMENT 0>
+<BEGIN-SEGMENT CASTLE>
+;<BEGIN-SEGMENT ORACLE>
+
+<OBJECT SAPPHIRE
+	(LOC IRON-MINE)
+	(DESC "sapphire")
+	(FDESC
+"In the bony hand of one of the skeletons, locked in its death grip, is
+a stunningly beautiful sapphire.")
+	(SYNONYM SAPPHIRE JEWEL JERRIMORE)
+	(ADJECTIVE STUNNING STUNNINGLY BEAUTIFUL CURSED ACCURSED)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(SIZE 3)
+	(OWNER SAPPHIRE)
+	(RESEARCH
+"\"The legend of the accursed Jewel of Jerrimore can trace its origins to
+the third century B.E. in the northlands of Frobozz. This jewel, which in
+most versions of the legend is a star sapphire, is said to have been cursed
+by the Mage of Jerrimore as he lay upon his deathbed.|
+   As he sickened, this powerful but twisted wizard became convinced that
+his enemies had poisoned him to gain possession of his greatest treasure,
+the Jewel of Jerrimore. With his dying breath, he loosed a great and evil
+curse upon the Jewel and all who would possess it.|
+   After the Mage's death, each of his heirs took possession of the jewel;
+each held it jealously, mistrusting any who might look upon it; each became
+obsessed with the greed and treachery they perceived around them; and each
+came to early and horrible deaths. Thus grew the legend of the cursed Jewel.|
+   Although the legends vary, all versions say that the Jewel travelled
+through many lands, always leaving a wake of misery and death, and finally
+became lost in a forgotten iron mine.\"")
+	(ACTION SAPPHIRE-F)>
+
+<ROUTINE SAPPHIRE-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <PRSO? ,SAPPHIRE>
+		     <FSET? ,SAPPHIRE ,TRYTAKEBIT>>
+		<FCLEAR ,SAPPHIRE ,TRYTAKEBIT>
+		<PUTP ,SAPPHIRE ,P?ACTION <>>
+		<FSET ,SAPPHIRE ,TOUCHBIT>
+		<MOVE ,SAPPHIRE ,PROTAGONIST>
+		<TELL
+"As you pry loose the sapphire, the skeleton's fingers crumble to dust, and
+the jewel glows briefly from deep within." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM NATURAL-ARCH
+      (LOC ROOMS)
+      (DESC "Natural Arch")
+      (REGION "Flathead Mountains")
+      (LDESC
+"You are on a windswept rock mesa. Paths lead northwest and southwest around
+an outcropping. A slender bridge of sandstone arcs gracefully above you.
+Beneath the center of the arch, timeworn stairs lead down into a dark cave.")
+      (NW TO CRAG)
+      (SW TO CRAG)
+      (DOWN TO ENCHANTED-CAVE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>)
+      (ICON NATURAL-ARCH-ICON)>
+
+<OBJECT NATURAL-ARCH-OBJECT
+	(LOC NATURAL-ARCH)
+	(DESC "sandstone arch")
+	(SYNONYM ARCH BRIDGE)
+	(ADJECTIVE SANDSTONE NATURAL SLENDER GRACEFUL)
+	(FLAGS NDESCBIT)
+	(ACTION NATURAL-ARCH-OBJECT-F)>
+
+<ROUTINE NATURAL-ARCH-OBJECT-F ()
+	 <COND (<VERB? EXAMINE LOOK-UNDER>
+		<TELL "Under the arch, steps lead down into darkness." CR>)>>
+
+<ROOM ENCHANTED-CAVE
+      (LOC ROOMS)
+      (DESC "Enchanted Cave")
+      (REGION "Flathead Mountains")
+      (UP TO NATURAL-ARCH)
+      (OUT TO NATURAL-ARCH)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (SYNONYM CAVE)
+      (ADJECTIVE ENCHANTED)
+      (GLOBAL BONES FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>)
+      (ICON ENCHANTED-CAVE-ICON)
+      (ACTION ENCHANTED-CAVE-F)>
+
+<ROUTINE ENCHANTED-CAVE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"Your light sparkles off reflective walls, spilling glittering droplets
+of illumination across every surface, including the dull gray altar in
+the very center of the room. The altar is inscribed with the single
+word \"Zilbeetha.\" ">
+		<COND (<IN? ,STATUE ,HERE>
+		       <TELL ,STATUE-DESC " ">)>
+		<TELL
+"Strewn about the cave are the bones of many adventurers, amidst dust which
+might be that of even older bones. An uneven stair leads up toward light.">)>>
+
+<CONSTANT STATUE-DESC
+"Behind the altar is a statue of a young man holding a frail flower. His face
+shows heartbreak and despair, with a single tear just beginning to slide down
+his cheek.">
+
+<OBJECT STATUE
+	(LOC ENCHANTED-CAVE)
+	(DESC "statue")
+	(SYNONYM STATUE MAN)
+	(ADJECTIVE YOUNG)
+	(FLAGS NDESCBIT)
+	(GENERIC G-DIMWIT-F) ;"because of Dimwit statue"
+	(ACTION STATUE-F)>
+
+<ROUTINE STATUE-F ()
+	 <COND (<AND <VERB? PUT-ON>
+		     <PRSI? ,STATUE>
+		     <FSET? ,PRSO ,WEARBIT>>
+		<TELL "The statue isn't a department store mannequin!" CR>)
+	       (<VERB? EXAMINE>
+		<TELL ,STATUE-DESC CR>)
+	       (<VERB? ALARM>
+		<TELL
+"Apparently, you think breaking an enchantment is as easy as breaking an
+egg!" CR>)>>
+
+<OBJECT ALTAR
+	(LOC ENCHANTED-CAVE)
+	(DESC "altar")
+	(SYNONYM ALTAR)
+	(FLAGS NDESCBIT VOWELBIT SURFACEBIT SEARCHBIT CONTBIT OPENBIT)
+	(ACTION ALTAR-F)>
+
+<ROUTINE ALTAR-F ()
+	 <COND (<AND <VERB? PUT-ON>
+		     <PRSO? ,MILKY-ORB ,SMOKY-ORB ,GLITTERY-ORB ,FIERY-ORB>>
+		<COND (<OR <PRSO? ,ENCHANTED-ORB>
+			   <AND <EQUAL? ,ORBS-EXAMINED 3>
+				<NOT <FSET? ,PRSO ,ORBBIT>>>>
+		       <REMOVE ,PRSO>
+		       <REMOVE ,STATUE>
+		       <MOVE ,FLOWER ,ALTAR>
+		       <FCLEAR ,FLOWER ,NDESCBIT>
+		       <FCLEAR ,FLOWER ,TRYTAKEBIT>
+		       <TELL
+"At first, nothing happens. Then the orb glows deep within, and a gentle chorus
+of angels begins to swell. As the glow brightens to include the entire cave,
+the statue and orb are gone, replaced by a young couple in wedding garb, in
+rapturous embrace. As the singing of the angels reaches a crescendo, Zilbeetha
+and her lover recede from sight toward planes unknown, leaving a flower of
+incomparable fragility and beauty sitting on the altar." CR>
+		       <INC-SCORE 25>) 
+		      (<IN? ,STATUE ,HERE>
+		       <JIGS-UP
+"An explosion of vengeful magic leaps from the altar, instantly melting
+your flesh away. Your bones clatter amidst the others in the cave.">)>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT FLOWER
+	(LOC ENCHANTED-CAVE)
+	(DESC "flower")
+	(SYNONYM FLOWER)
+	(FLAGS NDESCBIT TAKEBIT TRYTAKEBIT PLANTBIT)
+	(ACTION FLOWER-F)>
+
+<ROUTINE FLOWER-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<AND <VERB? TAKE>
+		     <FSET? ,FLOWER ,TRYTAKEBIT>
+		     <PRSO? ,FLOWER>>
+		<TELL "It's part of a stone statue!" CR>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"The flower is aware that, having been cut, it will shortly wilt. However, it
+has philosophically decided to accept this sad fate without complaint." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "The flower">
+		<COND (<FSET? ,FLOWER ,TRYTAKEBIT>
+		       <TELL ", though made of stone,">)>
+		<TELL " is a thing of fragile beauty." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM UPPER-LEDGE
+      (LOC ROOMS)
+      (DESC "Upper Ledge")
+      (REGION "Flathead Mountains")
+      (LDESC
+"You are on a mountain ledge with a spectacular view of the Flathead Fjord,
+which separates the Flathead Mountains (which you are at the northern tip of)
+from the Gray Mountains, across the fjord to the north. The ocean, to the west,
+is lost amidst the dense fog which rolls up the fjord. A rocky spire stands
+like a finger at the very edge of the ledge. A steep path climbs farther up
+the mountain. A short distance below is another, smaller ledge.")
+      (UP TO CRAG)
+      (DOWN TO LOWER-LEDGE IF ROPE-PLACED ELSE
+	    "There are no handholds to climb down.")
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (SYNONYM LEDGE)
+      (ADJECTIVE UPPER)
+      (GLOBAL FJORD LOWER-LEDGE FLATHEAD-MOUNTAINS GRAY-MOUNTAINS)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-4>)
+      (ICON UPPER-LEDGE-ICON)>
+
+<GLOBAL ROPE-PLACED <>>
+
+<OBJECT SPIRE
+	(LOC UPPER-LEDGE)
+	(DESC "rocky spire")
+	(SYNONYM SPIRE ROCK)
+	(ADJECTIVE ROCKY)
+	(FLAGS NDESCBIT)>
+
+<ROOM LOWER-LEDGE
+      (LOC ROOMS)
+      (DESC "Lower Ledge")
+      (REGION "Flathead Mountains")
+      (LDESC
+"The view of the fjord isn't as good, as you are surrounded on three sides by
+nearly vertical cliffs. There don't seem to be any exits.")
+      (UP SORRY "You can't even see the rope anymore, let alone reach it.")
+      (DOWN SORRY "It's still a good five hundred foot drop to the fjord!")
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (SYNONYM LEDGE)
+      (ADJECTIVE LOWER)
+      (GLOBAL FJORD UPPER-LEDGE FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FJORD-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-4>)
+      (ICON LOWER-LEDGE-ICON)
+      (ACTION LOWER-LEDGE-F)
+      (THINGS NARROW CRACK NARROW-CRACK-PS)>
+
+<ROUTINE LOWER-LEDGE-F ("OPTIONAL" (RARG <>))
+	 <COND (.RARG
+		<RFALSE>)
+	       (<AND <VERB? THROW PUT-ON>
+		     <PRSI? ,LOWER-LEDGE>>
+		<REMOVE ,PRSO>
+		<COND (<OR <PRSO? ,PERCH>
+			   <ULTIMATELY-IN? ,PERCH ,PRSO>>
+		       <SETG REMOVED-PERCH-LOC ,WATER>)>
+		<TELL
+"You toss" T ,PRSO " carefully, but it skitters across the lower ledge and
+falls into the fjord." CR>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,UPPER-LEDGE>
+		     <NOT <FSET? ,LOWER-LEDGE ,TOUCHBIT>>>
+		<TELL
+"By leaning far out, you can just make out the edge of something on the ledge
+below. Most of it is hidden by protrusions in the cliff wall, though, so you
+can't make out what it is." CR>)
+	       (<VERB? ENTER CLIMB-ON>
+		<COND (<EQUAL? ,HERE ,LOWER-LEDGE>
+		       <TELL ,LOOK-AROUND>)
+		      (T
+		       <DO-WALK ,P?DOWN>)>)
+	       (<VERB? LEAP>
+		<SETG PRSO <>> ;"JIGS-UP in V-LEAP"
+		<RFALSE>)>>
+
+<ROUTINE NARROW-CRACK-PS ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL ,ONLY-BLACKNESS>)
+	       (<VERB? REACH-IN>
+		<COND (<NOT ,ROPE-PLACED>
+		       <JIGS-UP "Yeow! Fangs sink into your hand.">)
+		      (T
+		       <TELL ,NOTHING-IN-REACH>)>)>>
+
+<OBJECT EASLE
+	(LOC LOWER-LEDGE)
+	(DESC "easel")
+	(FDESC
+"Despite the inferior view, someone has been painting here. An easel
+is set up on the ledge.")
+	(SYNONYM EASLE EASEL)
+	(FLAGS TAKEBIT MAGICBIT CONTBIT SEARCHBIT SURFACEBIT OPENBIT VOWELBIT)
+	(SIZE 10)
+	(VALUE 12)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT LANDSCAPE
+	(LOC EASLE)
+	(DESC "landscape")
+	(SYNONYM LANDSCAPE PAINTING)
+	(FLAGS TAKEBIT MAGICBIT)
+	(VALUE 12)
+	(GENERIC G-PAINTING-F)
+	(ACTION LANDSCAPE-F)>
+
+<ROUTINE LANDSCAPE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"You're not a student of art, but it sure looks like this landscape was done
+more with a catapult than a brush. ">
+		<COND (<EQUAL? ,HERE ,LOWER-LEDGE>
+		       <TELL
+"In fact, the artist seems to have gotten more paint on the cliff and ledge
+than on the canvas. ">)>
+		<TELL
+"Despite its flaws, the landscape is obviously of the Flathead Fjord." CR>)>>
+
+<ROUTINE G-PAINTING-F (SRES F)
+	 ,LANDSCAPE>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<OBJECT FJORD
+	(LOC LOCAL-GLOBALS)
+	(DESC "the Flathead Fjord")
+	(SYNONYM FJORD)
+	(ADJECTIVE FLATHEAD)
+	(FLAGS NARTICLEBIT WATERBIT)
+	(RESEARCH
+"\"The beautiful Flathead Fjord is an ocean inlet which divides the great
+mountains of the eastlands into two ranges: the Gray Mountains, on the north
+side of the fjord, and the Flathead Mountains, south of the fjord.\"")
+	(ACTION FJORD-F)>
+
+<ROUTINE FJORD-F ()
+	 <COND (<TOUCHING? ,FJORD>
+		<CANT-REACH ,FJORD>)>>
+\
+<OBJECT GRAY-MOUNTAINS
+	(LOC LOCAL-GLOBALS)
+	(DESC "Gray Mountains")
+	(SYNONYM MOUNTAINS)
+	(ADJECTIVE GRAY GREY)
+	(RESEARCH
+"\"The Gray Mountains refer to both a mountain range and a province. Lying
+in the far northern part of the eastlands, the Gray Mountains are a harsh
+environment, but a mecca for winter sport enthusiasts.\"")
+	(ACTION FLATHEAD-MOUNTAINS-F)>
+
+<ROOM GLACIER
+      (LOC ROOMS)
+      (DESC "Glacier")
+      (REGION "Gray Mountains")
+      (LDESC
+"You are on a glacier high atop the Gray Mountains. Far below is a frozen
+lake, brilliantly reflective in the midday sunshine. The climb down looks
+extremely hazardous.")
+      (DOWN PER GLACIER-DEATH)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (SYNONYM GLACIER)
+      (GLOBAL GRAY-MOUNTAINS)
+      (VALUE 10)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-10>)>
+
+<ROUTINE GLACIER-DEATH ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RFALSE>)>
+	 <JIGS-UP
+"You knock loose a tiny pebble of ice, which starts some other pebbles going,
+and pretty soon there's this whole huge incredible avalanche of dirt and snow
+and ice and by the way, you're at the bottom of it.">>
+
+<ROOM MIRROR-LAKE
+      (LOC ROOMS)
+      (DESC "Mirror Lake")
+      (REGION "Gray Mountains")
+      (LDESC
+"You are in the center of a lake whose frozen surface is more reflective than
+the finest mirror. It's almost impossible to tell where the sky ends and the
+ice begins. Worse, the surface is so smooth it's impossible to move!|
+   Looking into the mirror, everything seems somehow... different.")
+      (NORTH SORRY "Slip. Slide. No Progress.")
+      (NE SORRY "Slip. Slide. No Progress.")
+      (EAST SORRY "Slip. Slide. No Progress.")
+      (SE SORRY "Slip. Slide. No Progress.")
+      (SOUTH SORRY "Slip. Slide. No Progress.")
+      (SW SORRY "Slip. Slide. No Progress.")
+      (WEST SORRY "Slip. Slide. No Progress.")
+      (NW SORRY "Slip. Slide. No Progress.")
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL GRAY-MOUNTAINS)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>)
+      (ICON MIRROR-LAKE-ICON)
+      (ACTION MIRROR-LAKE-F)>
+
+<ROUTINE MIRROR-LAKE-F ("OPT" (RARG <>) "AUX" TMP DIR)
+	 <COND (<AND <EQUAL? .RARG ,M-BEG>
+		     <EQUAL? ,PRSO ,REFLECTION>
+		     <EQUAL? <GET-OWNER ,PRSO> ,MIRROR ,REFLECTION>>
+		<TELL ,HUH>) ;"for example LOOK AT REFLECTION OF MIRROR"
+	       (<AND <EQUAL? .RARG ,M-BEG>
+		     <VERB? EXAMINE> ;"LOOK AT REFLECTION OF (foo)"
+		     <EQUAL? ,PRSO ,REFLECTION>
+		     <SET TMP <GET-OWNER ,PRSO>>>
+		<PERFORM ,V?MIRROR-LOOK .TMP ,MIRROR>
+		<RTRUE>)
+	       (<AND <EQUAL? .RARG ,M-BEG>
+		     <OR <VERB? THROW>
+			 <AND <VERB? STHROW>
+			      <PRSI? ,INTDIR>>>>
+		<COND (<IDROP>
+		       <RTRUE>)
+		      (<VERB? THROW>
+		       <COND (<PROB 25> <SET DIR ,P?EAST>)
+			     (<PROB 33> <SET DIR ,P?WEST>)
+			     (<PROB 50> <SET DIR ,P?NORTH>)
+			     (T <SET DIR ,P?SOUTH>)>)
+		      (<NOUN-USED? ,INTDIR ,W?NORTH ,W?NE ,W?NW>
+		       <SET DIR ,P?NORTH>)
+		      (<NOUN-USED? ,INTDIR ,W?SOUTH ,W?SE ,W?SW>
+		       <SET DIR ,P?SOUTH>)
+		      (<NOUN-USED? ,INTDIR ,W?EAST>
+		       <SET DIR ,P?EAST>)
+		      (T
+		       <SET DIR ,P?WEST>)>
+		<LEAVE-MIRROR "throw" .DIR>)
+	       (<AND <EQUAL? .RARG ,M-BEG>
+		     <VERB? PUSH>
+		     <OR <FSET? ,PRSO ,WHITEBIT>
+			 <FSET? ,PRSO ,BLACKBIT>>>
+		<COND (<PROB 25> <SET DIR ,P?EAST>)
+		      (<PROB 33> <SET DIR ,P?WEST>)
+		      (<PROB 50> <SET DIR ,P?NORTH>)
+		      (T <SET DIR ,P?SOUTH>)>
+		<LEAVE-MIRROR "push" .DIR>)>>
+
+<ROUTINE LEAVE-MIRROR (STRING DIR "AUX" AV DESTINATION)
+	 <TELL
+"As you throw" T ,PRSO ", you slide across the ice in the opposite direction,
+and plow into a powdery snow bank" ,ELLIPSIS>
+	 <SET AV <LOC ,PROTAGONIST>>
+	 <COND (<EQUAL? .DIR ,P?NORTH>
+		<MOVE ,PRSO ,NORTH-OF-MIRROR>
+		<SET DESTINATION ,SOUTH-OF-MIRROR>)
+	       (<EQUAL? .DIR ,P?SOUTH>
+		<MOVE ,PRSO ,SOUTH-OF-MIRROR>
+		<SET DESTINATION ,NORTH-OF-MIRROR>)
+	       (<EQUAL? .DIR ,P?EAST>
+		<MOVE ,PRSO ,EAST-OF-MIRROR>
+		<SET DESTINATION ,WEST-OF-MIRROR>)
+	       (T
+		<MOVE ,PRSO ,WEST-OF-MIRROR>
+		<SET DESTINATION ,EAST-OF-MIRROR>)>
+	 <COND (<FSET? .AV ,VEHBIT>
+		<MOVE .AV .DESTINATION>
+		<GOTO .AV>)
+	       (T
+		<GOTO .DESTINATION>)>
+	 <COND (<PRSO? ,PIT-BOMB>
+		<REMOVE ,PIT-BOMB>
+		<TELL
+"   Some pit-filling agents drift by in a useless cloud, dispersing." CR>)>
+	 <INC-SCORE ,MIRROR-SCORE>
+	 <SETG MIRROR-SCORE 0>
+	 <RTRUE>>
+
+<GLOBAL MIRROR-SCORE 14>
+
+<OBJECT MIRROR
+	(LOC MIRROR-LAKE)
+	(DESC "mirror")
+	(SYNONYM MIRROR LAKE SURFACE ICE)
+	(ADJECTIVE MIRROR FROZEN SMOOTH REFLECTIVE)
+	(FLAGS NDESCBIT)
+	(RESEARCH
+"\"Mirror Lake, in the Gray Mountains, is believed to possess certain magical
+powers. Frank Lloyd Flathead's ski chalet was located nearby.\"")
+	(ACTION MIRROR-F)>
+
+<ROUTINE MIRROR-F ("AUX" TMP)
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"As you stare at your reflection in the mirrored surface, you look as you
+always have; and yet, you see things you've never seen before: youthful
+exuberance and courage, yet tempered by the wisdom and experience of untold
+generations of forebears, whose spirits seem to hover over you protectively.|
+   Who knows what secrets might be revealed by looking at the reflection
+of other things in this magical mirror!?!" CR>)
+	       (<AND <VERB? MIRROR-LOOK>
+		     <PRSI? ,MIRROR>>
+		<COND (<PRSO? ,ME ,PROTAGONIST> ;"latter due to L AT MY REFL."
+		       <PERFORM ,V?EXAMINE ,MIRROR>
+		       <RTRUE>)
+		      (<PRSO? ,ENCHANTED-ORB>
+		       <SETG ORB-FOUND T>
+		       <TELL
+"As you gaze at the reflection of" T ,PRSO ", a different vision takes shape:
+a beautiful young maiden, in peaceful sleep. Then, the vision fades." CR>)
+		      (<PRSO? ,WAND>
+		       <TELL
+"The reflection of the wand is unnaturally still; more frozen than even
+the arctic landscape that surrounds you." CR>)
+		      (<PRSO? ,FLASK>
+		       <TELL
+"You see the shadow of death hanging over the flask." CR>)
+		      (<PRSO? ,CLOAK>
+		       <TELL
+"The reflection reveals a checkered pattern in the cloth, not visible when
+you look at the garment itself." CR>)
+		      (<PRSO? ,GLOVE>
+		       <TELL
+"The glove's reflection conveys a feeling of fingers more sensitive
+and dexterous than the world's greatest surgeon." CR>)
+		      (<PRSO? ,GOGGLES>
+		       <TELL
+"The image of the goggles appears surrounded by a brick wall which slowly
+transforms to glass!" CR>)
+		      (<PRSO? ,RING>
+		       <TELL
+"Odd. Although the ring has no face of any kind, as you gaze at its reflection
+you get the distinct impression that the ring is laughing at you!" CR>
+		       <COND (<ULTIMATELY-IN? ,RING>
+			      <MOVE ,RING ,HERE>
+			      <TELL
+"   Perhaps in reaction to this impression, it seems that you
+have dropped the ring." CR>)>
+		       <RTRUE>)
+		      (<PRSO? ,N-S-PASSAGE ,NW-SE-PASSAGE>
+		       <TELL
+"The reflection of the passage reveals a feature which is invisible when
+you look at the passage itself: the edges dripping with unset glue." CR>)
+		      (<PRSO? ,PARCHMENT>
+		       <TELL
+"The paper of the parchment, as seen in the mirror, is suffused with
+an other-wordly glow." CR>)
+		      (<PRSO? ,PIGEON>
+		       <TELL
+"The reflection of the inert pigeon is most startling: it appears
+soaring majestically through space on widespread wings, bearing a
+rider regally upon its back!" CR>)
+		      (<PRSO? ,PERCH>
+		       <TELL
+"You see not an image of a ceramic perch, but of a proud mountain aerie! A
+powerful bird is flying toward the nest from a great distance." CR>)
+		      (<PRSO? ,AMULET>
+		       <TELL
+"The reflection of the amulet is suffused in a glow of amazing energies! A
+vague ghost of a serpent's head floats over it. A hand reaches to touch the
+amulet -- and the mirror goes blank!" CR>)
+		      (<PRSO? ,CANDLE>
+		       <TELL
+"A flurry of images surrounds the candle's reflection: an aged wizard weaving
+spells above a vat of bubbling tallow; the same mage handing a taper to a
+royal handmaiden; a chambermaid lighting the candle for a young prince; the
+same candle, never growing shorter, casting shadows on the faces of a
+succession of kings. The last image is of a servant placing the candle in a
+dark passageway and closing a concealed doorway behind him." CR>)
+		      (<PRSO? ,JESTER>
+		       <REMOVE-J>
+		       <TELL
+"The jester's reflection is that of a much older man! And there's
+something else...but the jester notices you studying his reflection,
+and vanishes hastily!" CR>) 
+		      (<PRSO? ,POTION>
+		       <TELL
+"The image shows a flowering plant growing from the potion. It seems
+to be calling to you." CR>)
+		      (<PRSO? ,SAPPHIRE>
+		       <TELL
+"As you look at the jewel's reflection, the skeleton's bony hand still seems
+clamped around it. Then the reflection enlarges, and a chill spreads from your
+heart as you see that the hand belongs to Death himself! He silently laughs at
+you from within his dark cowl before vanishing!" CR>) 
+		      (<OR <FSET? ,PRSO ,WHITEBIT>
+			   <FSET? ,PRSO ,BLACKBIT>>
+		       <TELL
+"Behind the image of" T ,PRSO " you see endless generations of masters,
+hunched over a small checkered board." CR>)
+		      (<AND <GETP ,PRSO ,P?INANIMATE-DESC>
+			    <NOT <FSET? ,PRSO ,ANIMATEDBIT>>>
+		       <TELL "You see the image of a " 'PRSO "!" CR>)
+		      (T
+		       <COND (<AND <EQUAL? ,PRSO ,REFLECTION>
+				   <SET TMP <GET-OWNER ,PRSO>>>
+			      <SETG PRSO .TMP>)>
+		       <COND (<AND <PRSO? ,MILKY-ORB ,SMOKY-ORB
+				          ,GLITTERY-ORB ,FIERY-ORB>
+			      	   <NOT <FSET? ,PRSO ,ORBBIT>>>
+			      <FSET ,PRSO ,ORBBIT>
+			      <SETG ORBS-EXAMINED <+ ,ORBS-EXAMINED 1>>)>
+		       <TELL "The reflection of ">
+		       <COND (<NOT <FSET? ,PRSO ,NARTICLEBIT>>
+			      ;"can't use TPRINT because of GET-OWNER, above"
+			      <TELL "the ">)>
+		       <TELL D ,PRSO " looks just like ">
+		       <COND (<NOT <FSET? ,PRSO ,NARTICLEBIT>>
+			      ;"can't use TPRINT because of GET-OWNER, above"
+			      <TELL "the ">)>
+		       <TELL D ,PRSO " itself." CR>)>)
+	       (<VERB? MUNG>
+		<JIGS-UP
+"Lines radiate outward to the edge of the lake. The ice under you opens,
+spilling you into frigid water. Instantly, the surfaces refreezes, trapping
+you below.">)>>
+
+<OBJECT REFLECTION
+	(LOC MIRROR-LAKE)
+	(OWNER ROOMS ;"any")
+	(DESC "reflection")
+	(SYNONYM REFLECTION)
+	(FLAGS NDESCBIT)
+	(ACTION REFLECTION-F)>
+
+<ROUTINE REFLECTION-F ()
+	 <COND (<VERB? EXAMINE>
+		<PERFORM ,V?EXAMINE ,MIRROR>
+		<RTRUE>)>>
+
+<GLOBAL ORB-FOUND <>>
+
+<GLOBAL ENCHANTED-ORB <>>
+
+<GLOBAL ORBS-EXAMINED 0>
+
+<ROOM EAST-OF-MIRROR
+      (LOC ROOMS)
+      (DESC "East of Mirror")
+      (REGION "Gray Mountains")
+      (WEST SORRY "The surface of the lake is too slippery.")
+      (NW TO NORTH-OF-MIRROR)
+      (SW TO SOUTH-OF-MIRROR)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT BEYONDBIT)
+      (GLOBAL GRAY-MOUNTAINS)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-9>)
+      (ACTION EAST-OF-MIRROR-F)>
+
+<ROUTINE EAST-OF-MIRROR-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<MIRRORS-EDGE-DESC "west" "northwest" "southwest">)>>
+
+<ROUTINE MIRRORS-EDGE-DESC (STR1 STR2 STR3)
+	 <TELL
+"You are in a snow drift. To the " .STR1 " is a lake with a mirrored surface.
+You could probably plow around the mirror to the " .STR2 " and " .STR3 ".">>
+
+<ROOM WEST-OF-MIRROR
+      (LOC ROOMS)
+      (DESC "West of Mirror")
+      (REGION "Gray Mountains")
+      (EAST SORRY "The surface of the lake is too slippery.")
+      (WEST TO CHALET)
+      (NE TO NORTH-OF-MIRROR)
+      (SE TO SOUTH-OF-MIRROR)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT BEYONDBIT)
+      (GLOBAL CHALET GRAY-MOUNTAINS)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>)
+      (ACTION WEST-OF-MIRROR-F)>
+
+<ROUTINE WEST-OF-MIRROR-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<MIRRORS-EDGE-DESC "east" "northeast" "southeast">
+		<TELL
+" A ski chalet, half-buried in the snow, lies to the west.">)>>
+
+<ROOM NORTH-OF-MIRROR
+      (LOC ROOMS)
+      (DESC "North of Mirror")
+      (REGION "Gray Mountains")
+      (SOUTH SORRY "The surface of the lake is too slippery.")
+      (SE TO EAST-OF-MIRROR)
+      (SW TO WEST-OF-MIRROR)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT BEYONDBIT)
+      (GLOBAL GRAY-MOUNTAINS)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-8>)
+      (ACTION NORTH-OF-MIRROR-F)>
+
+<ROUTINE NORTH-OF-MIRROR-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<MIRRORS-EDGE-DESC "south" "southeast" "southwest">)>>
+
+<ROOM SOUTH-OF-MIRROR
+      (LOC ROOMS)
+      (DESC "South of Mirror")
+      (REGION "Gray Mountains")
+      (NORTH SORRY "The surface of the lake is too slippery.")
+      (NE TO EAST-OF-MIRROR)
+      (NW TO WEST-OF-MIRROR)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT BEYONDBIT)
+      (GLOBAL GRAY-MOUNTAINS)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>)
+      (ACTION SOUTH-OF-MIRROR-F)>
+
+<ROUTINE SOUTH-OF-MIRROR-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<MIRRORS-EDGE-DESC "north" "northeast" "northwest">)>>
+
+<ROOM CHALET
+      (LOC ROOMS)
+      (DESC "Chalet")
+      (REGION "Gray Mountains")
+      (LDESC
+"You are in a handsomely designed vacation chalet, with an exit to the east.")
+      (EAST TO WEST-OF-MIRROR)
+      (OUT TO WEST-OF-MIRROR)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT)
+      (GLOBAL GRAY-MOUNTAINS)
+      (SYNONYM CHALET)
+      (ADJECTIVE SKI)
+      (MAP-LOC <PTABLE GRAY-MOUNTAINS-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>)
+      (ICON CHALET-ICON)>
+
+<OBJECT SCALE-MODEL
+	(LOC CHALET)
+	(DESC "scale model")
+	(FDESC
+"Leaning unobtrusively in one corner is a scale model of the FrobozzCo World
+Headquarters Building. The scale appears to be around 1:1000.")
+	(SYNONYM MODEL)
+	(ADJECTIVE SCALE)
+	(FLAGS TAKEBIT MAGICBIT)
+	(SIZE 20)
+	(VALUE 12)>
+\
+<OBJECT SWAMP
+	(LOC LOCAL-GLOBALS)
+	(DESC "swamp")
+	(SYNONYM SWAMP BAYOU DELTA MARSH MUCK BOG)
+	(ADJECTIVE SWAMPY MAZE-LIKE FOGGY MIST-COVERED)
+	(FLAGS WATERBIT)>
+
+;<BEGIN-SEGMENT 0>
+
+;<ROUTINE DELTA? (RM)
+	 <COND (<EQUAL? .RM ,DELTA-1 ,DELTA-2 ,DELTA-3>
+		<RTRUE>)
+	       (<EQUAL? .RM ,DELTA-4 ,DELTA-5 ,DELTA-6>
+		<RTRUE>)
+	       (<EQUAL? .RM ,DELTA-7>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+;<END-SEGMENT>
+
+;<BEGIN-SEGMENT ORACLE>
+
+<ROOM DELTA-1
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH TO DELTA-3)
+      (NE TO DELTA-4)
+      (EAST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SE SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SOUTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SW TO DELTA-2)
+      (WEST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NW TO DELTA-2)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (VALUE 10)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-10>)
+      (ICON DELTA-ICON)>
+
+<ROOM DELTA-2
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NE TO DELTA-1)
+      (EAST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SE TO DELTA-1)
+      (SOUTH TO DELTA-7)
+      (SW TO DELTA-7)
+      (WEST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NW TO DELTA-3)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>)
+      (ICON DELTA-ICON)>
+
+<ROOM DELTA-3
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH TO DELTA-4)
+      (NE TO DELTA-4)
+      (EAST TO DELTA-1)
+      (SE SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SOUTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SW TO DELTA-2)
+      (WEST TO DELTA-5)
+      (NW TO DELTA-5)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>)
+      (ICON DELTA-ICON)>
+
+<ROOM DELTA-4
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NE TO RIVERS-END)
+      (EAST TO DELTA-1)
+      (SE SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SOUTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SW TO DELTA-3)
+      (WEST TO DELTA-3)
+      (NW TO DELTA-5)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-9>)
+      (ICON DELTA-ICON)>
+
+<ROOM DELTA-5
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NE TO DELTA-4)
+      (EAST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SE TO DELTA-3)
+      (SOUTH TO DELTA-3)
+      (SW TO DELTA-6)
+      (WEST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NW SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-7>)
+      (ICON DELTA-ICON)>
+
+<ROOM DELTA-6
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH TO DELTA-5)
+      (NE SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (EAST SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SE TO DELTA-7)
+      (SOUTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SW SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (WEST TO DELTA-7)
+      (NW SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)
+      (ICON DELTA-ICON)>
+
+<OBJECT LARGE-LILY-PAD
+	(LOC DELTA-6)
+	(DESC "huge lily pad")
+	(SYNONYM PAD)
+	(ADJECTIVE LARGE LILY)
+	(FLAGS PLANTBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 100)
+	(ACTION LILY-PAD-F)>
+
+<ROUTINE LILY-PAD-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (.ARG
+		<RFALSE>)
+	       (<VERB? ENTER CLIMB-ON>
+		<COND (<VISIBLE? ,OTTO>
+		       <TELL "\"For toads only, buster.\"" CR>)
+		      (T
+		       <TELL "Only a toad could be comfortable there." CR>)>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL "The lily pad is ">
+		<COND (<PRSO? ,LARGE-LILY-PAD>
+		       <COND (<VISIBLE? ,OTTO>
+			      <TELL "moaning about">)
+			     (T
+			      <TELL "giddy at the absence of">)>
+		       <TELL " the weight of the giant toad." CR>)
+		      (T
+		       <TELL "composing an ode to sunlight." CR>)>)>>
+
+<OBJECT OTTO
+	(LOC LARGE-LILY-PAD)
+	(DESC "ugly toad")
+	(SYNONYM TOAD OTTO)
+	(ADJECTIVE UGLY LARGE BLUE GRUMPY)
+	(FLAGS ACTORBIT VOWELBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION OTTO-F)>
+
+<ROUTINE OTTO-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<COND (<OR <AND <VERB? GIVE>
+				<PRSO? ,SPYGLASS>
+				<PRSI? ,ME>>
+			   <AND <VERB? SGIVE>
+				<PRSO? ,ME>
+				<PRSI? ,SPYGLASS>>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-FOR ,OTTO ,SPYGLASS>
+		       <SETG WINNER ,OTTO>
+		       <RTRUE>)
+		      (<AND <VERB? YES>
+			    <EQUAL? ,AWAITING-REPLY 2>>
+		       <V-YES>)
+		      (<AND <VERB? NO>
+			    <EQUAL? ,AWAITING-REPLY 2>>
+		       <V-NO>)
+		      (T
+		       <SETG AWAITING-REPLY 2>
+		       <QUEUE I-REPLY 2>
+		       <TELL
+"\"Quiet. I've got a headache. Do you think you own this swamp?\"" CR>
+		       <STOP>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The toad is not only ugly, it is bright blue and the size of a small shack.
+It also looks pretty grumpy." CR>)
+	       (<AND <ADJ-USED? ,OTTO ,W?UGLY>
+		     <VISIBLE? ,OTTO>>
+		<TELL
+"\"Who're you calling ugly?!? You're no prize yourself, you know!\"" CR>
+		<STOP>)
+	       (<AND <NOUN-USED? ,OTTO ,W?TOAD>
+		     <VISIBLE? ,OTTO>>
+		<SETG OTTO-NAME-COUNTER <+ ,OTTO-NAME-COUNTER 1>>
+		<TELL "\"I have a name, you know">
+		<COND (<EQUAL? <MOD ,OTTO-NAME-COUNTER 5> 0>
+		       <TELL
+", a great name, known throughout many lands. And though I spent many years
+at sea, few pirates will know my name">)>
+		<TELL ".\"" CR>
+		<STOP>)
+	       (<AND <VERB? ASK-FOR>
+		     <PRSI? ,SPYGLASS>>
+		<COND (<EQUAL? ,FLIES-EATEN 4>
+		       <MOVE ,SPYGLASS ,SMALL-LILY-PAD>
+		       <FCLEAR ,SPYGLASS ,TRYTAKEBIT>
+		       <THIS-IS-IT ,SPYGLASS>
+		       <TELL
+"\"Okay, take the stupid thing, but shut up and let me have some peace
+and quiet.\" The toad places the spyglass on the small lily pad." CR>)
+		      (T
+		       <TELL
+"\"If you want this spyglass, you must bring me the ">
+		       <COND (<EQUAL? ,FLIES-EATEN 0>
+			      <TELL "Four ">)
+			     (T
+			      <TELL "remaining ">
+			      <COND (<EQUAL? ,FLIES-EATEN 1>
+				     <TELL "three ">)
+				    (<EQUAL? ,FLIES-EATEN 2>
+				     <TELL "two ">)>)>
+		       <TELL "Fantastic Fl">
+		       <COND (<EQUAL? ,FLIES-EATEN 3>
+			      <TELL "y">)
+			     (T
+			      <TELL "ies">)>
+		       <TELL " of Famathria.\"" CR>)>)
+	       (<AND <VERB? EAT>
+		     ,ALLIGATOR>
+		<TELL
+"Although the toad looks tasty, he's about ten times your size." CR>)>>
+
+<GLOBAL OTTO-NAME-COUNTER 0>
+
+<ROUTINE I-STONE-TO-OTTO ()
+	 <MOVE ,OTTO ,LARGE-LILY-PAD>
+	 <COND (<EQUAL? ,HERE ,DELTA-6>
+		<RETURN-FROM-MAP>
+		<TELL
+"   Otto emerges from the muck of the swamp, looking quite displeased.
+Dripping with mud, he plops down on his favorite lily pad">
+		<COND (<VISIBLE? ,WAND>
+		       <REMOVE ,WAND>
+		       <TELL
+". \"Let's just make sure we don't have any repetitions of that, eh?\" He
+wraps his tongue around the wand and snaps it into a zillion splinters">)>
+		<TELL ,PERIOD-CR>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT SMALL-LILY-PAD
+	(LOC DELTA-6)
+	(DESC "small lily pad")
+	(SYNONYM PAD)
+	(ADJECTIVE SMALL LILY)
+	(FLAGS PLANTBIT SURFACEBIT CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 20)
+	(ACTION LILY-PAD-F)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT SPYGLASS
+	(LOC SMALL-LILY-PAD)
+	(DESC "spyglass")
+	(PLURAL "spyglasses")
+	(SYNONYM SPYGLASS TELESCOPE)
+	(FLAGS TAKEBIT MAGICBIT TRYTAKEBIT)
+	(VALUE 12)
+	(ACTION SPYGLASS-F)>
+
+<ROUTINE SPYGLASS-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,SPYGLASS ,TRYTAKEBIT>>
+		<COND (<IN? ,SPYGLASS ,SMALL-LILY-PAD>
+		       <MOVE ,SPYGLASS ,OTTO>
+		       <TELL
+"The toad snatches the spyglass with its long tongue. ">)>
+		<TELL
+"\"If you want it, you'll have to ask me to give it to you.\"" CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "The spyglass magnifies distant objects." CR>)
+	       (<AND <VERB? EXAMINE>
+		     <PRSI? ,SPYGLASS>>
+		<TELL ,YOU-SEE T ,PRSO ", somewhat enlarged." CR>)>>
+
+<OBJECT LARGE-FLY
+	(LOC LOCAL-GLOBALS)
+	(DESC "large fly")
+	(PLURAL "flies")
+	(SYNONYM FLY)
+	(ADJECTIVE LARGE)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(SIZE 1)
+	(ACTION FLY-F)>
+
+<OBJECT LARGER-FLY
+	(LOC LOCAL-GLOBALS)
+	(DESC "larger fly")
+	(PLURAL "flies")
+	(SYNONYM FLY)
+	(ADJECTIVE LARGER)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(SIZE 1)
+	(ACTION FLY-F)>
+
+<OBJECT EVEN-LARGER-FLY
+	(LOC LOCAL-GLOBALS)
+	(DESC "even larger fly")
+	(PLURAL "flies")
+	(SYNONYM FLY)
+	(ADJECTIVE EVEN LARGER)
+	(FLAGS VOWELBIT TAKEBIT TRYTAKEBIT)
+	(SIZE 1)
+	(ACTION FLY-F)>
+
+<OBJECT LARGEST-FLY
+	(LOC LOCAL-GLOBALS)
+	(DESC "the largest fly")
+	(PLURAL "flies")
+	(SYNONYM FLY)
+	(ADJECTIVE LARGEST)
+	(FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT)
+	(SIZE 1)
+	(ACTION FLY-F)>
+
+<GLOBAL FLIES-EATEN 0>
+
+<ROUTINE FLY-F ()
+	 <COND (<VERB? DROP>
+		<ORDER-FLIES ,HERE>
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<TELL
+"This is one juicy delicious-looking hunk of fly... that is, if you're the
+type who goes for insect meat..." CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSI? ,OTTO>>
+		<REMOVE ,PRSO>
+		<SETG FLIES-EATEN <+ ,FLIES-EATEN 1>>
+		<TELL
+"The toad wraps its long tongue around the fly, snaps it gluttonously
+into its mouth, and burps rudely." CR>)
+	       (<VERB? CATCH>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<TOUCHING? ,PRSO>
+		<COND (<VERB? TAKE>
+		       <ORDER-FLIES ,PROTAGONIST>)>
+		<COND (<FSET? ,PRSO ,TRYTAKEBIT>
+		       <COND (<FSET? ,GLOVE ,WORNBIT>
+			      <TELL
+"Your gloved hand strikes with amazing speed, but the fly darts out of the
+way by a hair's breadth." CR>)
+			     (T
+			      <TELL "The fly buzzes just out of reach." CR>)>)
+		      (T
+		       <RFALSE>)>)>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT LAKE>
+<BEGIN-SEGMENT SECRET>
+<BEGIN-SEGMENT ORACLE>
+
+<ROUTINE FLY-ROOM-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,HERE ,TOUCHBIT>>>
+		<COND (<IN? ,LARGE-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,LARGE-FLY ,HERE>)
+		      (<IN? ,LARGER-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,LARGER-FLY ,HERE>)
+		      (<IN? ,EVEN-LARGER-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,EVEN-LARGER-FLY ,HERE>)
+		      (<IN? ,LARGEST-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,LARGEST-FLY ,HERE>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM DELTA-7
+      (LOC ROOMS)
+      (DESC "Delta")
+      (REGION "Frigid River Valley")
+      (LDESC
+"You are in the midst of the maze-like, swampy bayou where the Frigid
+River dumps its silt before reaching the sea. Twisting paths appear to
+lead into the growth in all directions.")
+      (NORTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (NE TO DELTA-2)
+      (EAST TO DELTA-2)
+      (SE SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SOUTH SORRY
+       "The path dead ends as the growth closes to an unpassable tangle.")
+      (SW TO OCEANS-EDGE)
+      (WEST TO DELTA-6)
+      (NW TO DELTA-6)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT DELTABIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)
+      (ICON DELTA-ICON)>
+
+<ROOM RIVERS-END
+      (LOC ROOMS)
+      (DESC "River's End")
+      (REGION "Frigid River Valley")
+      (LDESC
+"The Frigid River ends its long journey from Flood Control Dam #3 here,
+losing its speed and turning into a delta of meandering channels to the
+southwest. To continue northeast up the river, you'd need a boat and a
+number of strong oarsmen.")
+      (NE SORRY "Where's the boat? Where're the oarsmen?")
+      (SW TO DELTA-4)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-10>)
+      (ICON RIVERS-END-ICON)
+      (ACTION FLY-ROOM-F)>
+
+<OBJECT FRIGID-RIVER
+	(LOC RIVERS-END)
+	(DESC "the Frigid River")
+	(SYNONYM RIVER)
+	(ADJECTIVE FRIGID)
+	(FLAGS NDESCBIT NARTICLEBIT WATERBIT)
+	(RESEARCH
+"\"The Frigid River, the mightiest in the Great Underground Empire, forms
+at the spilloff of Flood Control Dam #3, pours over Aragain Falls, and finally
+empties into the Great Sea at the southern end of the Frigid River Valley. The
+total length, from dam to river delta, is over 150 bloits.\"")>
+
+<ROOM OCEANS-EDGE
+      (LOC ROOMS)
+      (DESC "Ocean's Edge")
+      (REGION "Frigid River Valley")
+      (LDESC
+"The channels of the river trickle into the mighty Flathead Ocean, which
+extends west to the horizon. A path leads into the delta to the northeast.")
+      (NE TO DELTA-7)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (GLOBAL FLATHEAD-OCEAN)
+      (MAP-LOC <PTABLE DELTA-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-6>)
+      (ICON OCEANS-EDGE-ICON)>
+
+<OBJECT FLATHEAD-OCEAN
+	(LOC LOCAL-GLOBALS)
+	(DESC "the Flathead Ocean")
+	(SYNONYM OCEAN SEA)
+	(ADJECTIVE FLATHEAD MIGHTY GREAT)
+	(FLAGS NARTICLEBIT WATERBIT)
+	(RESEARCH
+"\"The Flathead Ocean divides the world into the eastlands and westlands. It
+was called the Great Sea until the time of Dimwit Flathead, and it is still
+known by its earlier name in many parts of the kingdom.\"")>
+\
+<ROOM FOOT-OF-STATUE
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Foot of Statue")
+      (SW TO VIEW-OF-STATUE)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (GLOBAL DIMWIT-STATUE)
+      (VALUE 10)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>)
+      (ICON FOOT-OF-STATUE-ICON)
+      (ACTION FOOT-OF-STATUE-F)>
+
+<ROUTINE FOOT-OF-STATUE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This once verdant valley is now barren. " ,NEAR-STATUE-DESC
+" A trail approaches a hilltop to the southwest.">)>>
+
+<OBJECT DIMWIT-STATUE
+	(LOC LOCAL-GLOBALS)
+	(OWNER DIMWIT-STATUE)
+	(DESC "statue of Dimwit Flathead")
+	(SYNONYM STATUE DIMWIT FLATHEAD)
+	(ADJECTIVE LORD DIMWIT)
+	(GENERIC G-DIMWIT-F)
+	(ACTION DIMWIT-STATUE-F)>
+
+<ROUTINE DIMWIT-STATUE-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,FOOT-OF-STATUE>
+		       <TELL ,NEAR-STATUE-DESC CR>)
+		      (T
+		       <TELL ,DISTANT-STATUE-DESC CR>)>)>>
+
+<CONSTANT NEAR-STATUE-DESC
+"Towering above you is a statue so tall that you can't see much beyond
+the knees.">
+
+<CONSTANT DISTANT-STATUE-DESC
+"To the northeast, a huge statue of Dimwit Flathead casts a dark shadow across
+the land. The statue is beginning to deteriorate; vines cover the lower bloit
+or so, and some pterodactyls have begun nesting on the flat top of the statue's
+head.">
+
+<ROOM VIEW-OF-STATUE
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "View of Statue")
+      (NE TO FOOT-OF-STATUE)
+      (WEST TO BASE-OF-MOUNTAINS)
+      (SE TO CAIRN)
+      (SOUTH TO OUTSIDE-HUT)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (GLOBAL DIMWIT-STATUE)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-7>)
+      (THINGS <> SHADOW PHIL-SHADOW-PS
+       		 SMALL TREES TREE-PS)
+      (ACTION VIEW-OF-STATUE-F)>
+
+<ROUTINE TREE-PS ()
+	 <COND (<VERB? CLIMB CLIMB-UP>
+		<TELL "There are no trees here suitable for climbing." CR>)>>
+
+<ROUTINE VIEW-OF-STATUE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are on a tall hilltop near the center of barren Fublio Valley. A few
+small trees are beginning the arduous task of refoliating the valley. "
+,DISTANT-STATUE-DESC " Trails lead northeast, southeast, west, and
+south.">)>>
+
+<ROOM OUTSIDE-HUT
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Outside Hut")
+      (LDESC
+"A trail from the north ends here. To the west is a decaying hut.")
+      (NORTH TO VIEW-OF-STATUE)
+      (WEST TO MEGABOZ-HUT)
+      (IN TO MEGABOZ-HUT)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (GLOBAL MEGABOZ-HUT)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)
+      (ICON OUTSIDE-HUT-ICON)>
+
+<ROOM MEGABOZ-HUT
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Megaboz's Hut")
+      (EAST TO OUTSIDE-HUT)
+      (OUT TO OUTSIDE-HUT)
+      (UP PER ATTIC-ENTER-F)
+      (SYNONYM HUT)
+      (OWNER MEGABOZ)
+      (GLOBAL MEGABOZ-TRAP-DOOR)
+      (FLAGS RLANDBIT BEYONDBIT)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>)
+      (ACTION MEGABOZ-HUT-F)>
+
+<ROUTINE MEGABOZ-HUT-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in the unassuming shack where the legendary magician Megaboz once
+lived. Embroidered wall hangings adorn one side of the hut, and a poem has
+been scrawled on the opposite wall; oddly, some of the words are missing.
+The only exit is east. " ,MEGABOZ-CEILING-DESC>)>>
+
+<ROUTINE ATTIC-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<NOT <FSET? ,MEGABOZ-TRAP-DOOR ,OPENBIT>>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <DO-FIRST "open the trap door">)>
+		<RFALSE>)
+	       (<NOT <IN? ,PROTAGONIST ,LADDER>>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <CANT-REACH ,MEGABOZ-TRAP-DOOR>)>
+		<RFALSE>)
+	       (T
+		,ATTIC)>>
+
+<OBJECT POEM
+	(LOC MEGABOZ-HUT)
+	(DESC "poem")
+	(SYNONYM POEM)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT ;"tired pine, iron mine, wore, magic store"
+"\"She stood in the shade of a _ _ _ _ _   _ _ _ _|
+She held the prize of an _ _ _ _   _ _ _ _|
+And all beheld that she proudly _ _ _ _|
+A relic found in a _ _ _ _ _   _ _ _ _ _\"")>
+
+<OBJECT WALL-HANGINGS
+	(LOC MEGABOZ-HUT)
+	(DESC "wall hangings")
+	(SYNONYM HANGING HANGINGS)
+	(ADJECTIVE EMBROIDER WALL)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT
+"One hanging reads \"Hut Sweet Hut\" and the other reads \"Forget the rest;
+Megaboz is the best.\"")>
+
+<OBJECT MEGABOZ-TRAP-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "trap door")
+	(SYNONYM DOOR)
+	(ADJECTIVE TRAP)
+	(FLAGS DOORBIT)
+	(ACTION MEGABOZ-TRAP-DOOR-F)>
+
+<ROUTINE MEGABOZ-TRAP-DOOR-F ()
+	 <COND (<AND <EQUAL? ,HERE ,MEGABOZ-HUT>
+		     <TOUCHING? ,MEGABOZ-TRAP-DOOR>
+		     <NOT <IN? ,PROTAGONIST ,LADDER>>>
+		<CANT-REACH ,MEGABOZ-TRAP-DOOR>)
+	       (<AND <VERB? ENTER>
+		     <EQUAL? ,HERE ,MEGABOZ-HUT>>
+		<DO-WALK ,P?UP>)>>
+
+<ROOM ATTIC
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Attic")
+      (LDESC
+"This musty little room is barely more than a crawl space beneath the roof of
+the hut.")
+      (DOWN TO MEGABOZ-HUT IF MEGABOZ-TRAP-DOOR IS OPEN)
+      (FLAGS RLANDBIT BEYONDBIT)
+      (GLOBAL MEGABOZ-TRAP-DOOR LOCK-OBJECT)
+      (VALUE 8)
+      (SYNONYM ATTIC)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-5>)
+      (ICON ATTIC-ICON)
+      (THINGS <> SHADOW PHIL-SHADOW-PS)>
+
+<OBJECT ATTIC-REBUS-BUTTON
+	(LOC ATTIC)
+	(SDESC "blinking key-shaped button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE KEY-SHAPED BLINKING)
+	(ACTION REBUS-BUTTON-F)>
+
+<OBJECT TRUNK
+	(LOC ATTIC)
+	(DESC "trunk")
+	(LDESC
+"In the shadows under the eaves, you spot an ancient trunk, covered with
+dust and cobwebs.")
+	(SYNONYM TRUNK)
+	(ADJECTIVE ANCIENT DUSTY)
+	(FLAGS TRYTAKEBIT CONTBIT SEARCHBIT LOCKEDBIT)
+	(CAPACITY 75)
+	(ACTION TRUNK-F)>
+
+<ROUTINE TRUNK-F ()
+	 <COND (<AND <VERB? OPEN>
+		     <NOT <FSET? ,TRUNK ,LOCKEDBIT>>
+		     ,FLY-IN-TRUNK>
+		<COND (<AND ,PRSI
+			    <FSET? ,PRSI ,KEYBIT>>
+		       <RFALSE>)>
+		<SETG FLY-IN-TRUNK <>>
+		<COND (<IN? ,LARGE-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,LARGE-FLY ,HERE>)
+		      (<IN? ,LARGER-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,LARGER-FLY ,HERE>)
+		      (<IN? ,EVEN-LARGER-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,EVEN-LARGER-FLY ,HERE>)
+		      (<IN? ,LARGEST-FLY ,LOCAL-GLOBALS>
+		       <MOVE ,LARGEST-FLY ,HERE>)>
+		<TELL
+"As you raise the lid, a huge fly zooms out and begins
+buzzing around the room. ">
+		<RFALSE>)
+	       (<AND <VERB? TAKE>
+		     <PRSO? ,TRUNK>>
+		<TELL
+"The trunk turns out to be too large and heavy to move." CR>)
+	       (<AND <VERB? UNLOCK>
+		     <FSET? ,TRUNK ,LOCKEDBIT>
+		     <PRSI? ,RUSTY-KEY>>
+		<COND (<EQUAL? ,SACRED-WORD-NUMBER 10>
+		       <SETG SACRED-WORD-NUMBER <- <RANDOM 10> 1>>)>
+		<FCLEAR ,TRUNK ,LOCKEDBIT>
+		<LOCKED-UNLOCKED ,TRUNK T>)
+	       (<AND <VERB? LOCK>
+		     <NOT <FSET? ,TRUNK ,LOCKEDBIT>>
+		     <PRSI? ,RUSTY-KEY>>
+		<FSET ,TRUNK ,LOCKEDBIT>
+		<LOCKED-UNLOCKED ,TRUNK>)>>
+
+<GLOBAL FLY-IN-TRUNK T>
+
+<OBJECT ROBE
+	(LOC MEGABOZ)
+	(DESC "wizardly robe")
+	(SYNONYM ROBE)
+	(ADJECTIVE WIZARDLY)
+	(FLAGS WEARBIT)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT PAN
+	(LOC TRUNK)
+	(DESC "saucepan")
+	(SYNONYM SAUCEPAN PAN)
+	(FLAGS TAKEBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION PAN-F)>
+
+<ROUTINE PAN-F ()
+	 <COND (<VERB? OPEN CLOSE>
+		<TELL ,HUH>)>>
+
+<OBJECT NOTEBOOK
+	(LOC TRUNK)
+	(DESC "notebook")
+	(SYNONYM NOTEBOOK)
+	(FLAGS TAKEBIT READBIT)
+	(ACTION NOTEBOOK-F)>
+
+<ROUTINE NOTEBOOK-F ()
+	 <COND (<VERB? READ OPEN EXAMINE>
+		<TELL
+"The notebook is either gibberish or far in advance of your understanding.
+It seems to be filled with all kinds of formulas, spells, and shopping
+lists.|
+   Near the end, you discover what appears to be a list of things to do:
+\"1) Mail OZMOO scrolls to Gurth. 2) Cast Curse on Flatheads. 3) Pick up
+milk and bread.\"|
+   Below is a sketch of a steaming kettle and a single word, \""
+<GET ,SACRED-WORDS ,SACRED-WORD-NUMBER> ".\"" CR>)>>
+
+<GLOBAL SACRED-WORD-NUMBER 10>
+
+<CONSTANT SACRED-WORDS
+	<PTABLE "sizul"
+	       "fzorty"
+	       "xzilch"
+	       "fublitskee"
+	       "zastic"
+	       "aulderfoo"
+	       "lizowurt"
+	       "eldablitz"
+	       "mordex"
+	       "hildebud">>
+
+<CONSTANT SACRED-WORD-WORDS-LENGTH 10>
+
+<CONSTANT SACRED-WORD-WORDS
+	<PTABLE <VOC "SIZUL" <>>
+	        <VOC "FZORTY" <>>
+	        <VOC "XZILCH" <>>
+	        <VOC "FUBLITSKEE" <>>
+	        <VOC "ZASTIC" <>>
+	        <VOC "AULDERFOO" <>>
+	        <VOC "LIZOWURT" <>>
+	        <VOC "ELDABLITZ" <>>
+	        <VOC "MORDEX" <>>
+	        <VOC "HILDEBUD" <>>>>
+
+<OBJECT SACRED-WORD-OBJ
+	(DESC "sacred word")
+	(SYNONYM SIZUL FZORTY XZILCH FUBLITSKEE ZASTIC AULDERFOO LIZOWURT
+	      	 ELDABLITZ MORDEX HILDEBUD)>
+
+<OBJECT HARMONICA
+	(LOC TRUNK)
+	(DESC "harmonica")
+	(SYNONYM HARMONICA)
+	(FLAGS TAKEBIT)
+	(SIZE 3)
+	(ACTION HARMONICA-F)>
+
+<ROUTINE HARMONICA-F ()
+	 <COND (<VERB? PLAY INFLATE>
+		<TELL
+"The harmonica produces a sound like that of cats being tortured." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM CAIRN
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Cairn")
+      (LDESC
+"Paths lead around this haphazard pile of stones to the northwest, east,
+and south.")
+      (NW TO VIEW-OF-STATUE)
+      (EAST TO OUTSIDE-SHACK)
+      (SOUTH TO QUARRYS-EDGE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>)
+      (ICON CAIRN-ICON)>
+
+<OBJECT CAIRN-OBJECT
+	(LOC CAIRN)
+	(DESC "pile of stones")
+	(SYNONYM PILE STONE STONES CAIRN)
+	(ADJECTIVE HAPHAZARD)
+	(FLAGS NDESCBIT)
+	(ACTION CAIRN-OBJECT-F)>
+
+<ROUTINE CAIRN-OBJECT-F ()
+	 <COND (<VERB? TAKE>
+		<TELL
+"The stones, individually, are uninteresting; the entire pile is much
+too massive to take." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The cairn probably has a magical or religious significance." CR>)
+	       (<AND <VERB? COUNT>
+		     <NOUN-USED? ,CAIRN-OBJECT ,W?STONES>>
+		<TELL "Thousands." CR>)>>
+
+<ROOM OUTSIDE-SHACK
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Outside Shack")
+      (LDESC
+"To the northeast is a run-down little shack. A sign is posted by the
+entrance, and a path runs off to the west.")
+      (WEST TO CAIRN)
+      (NE TO GUMBOZ-SHACK)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL GUMBOZ-SHACK SIGN)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-9>)>
+
+<ROOM GUMBOZ-SHACK
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Gumboz's Shack")
+      (LDESC
+"You are in a small shack, the home of an obscure magician named Gumboz. The
+only exit is southwest.")
+      (SW PER SHACK-EXIT-F)
+      (OUT PER SHACK-EXIT-F)
+      (FLAGS RLANDBIT BEYONDBIT)
+      (SYNONYM SHACK)
+      (ADJECTIVE GUMBOZ\'S)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-10>)
+      (ACTION GUMBOZ-SHACK-F)>
+
+<ROUTINE GUMBOZ-SHACK-F ("OPT" (RARG <>) "AUX" (SPILL <>))
+	 <COND (<EQUAL? .RARG ,M-END>
+		<COND (<AND <ULTIMATELY-IN? ,LARGE-VIAL>
+			    <G? ,LARGE-VIAL-GLOOPS 0>>
+		       <SETG LARGE-VIAL-GLOOPS 0>
+		       <REMOVE ,LARGE-VIAL-WATER>
+		       <SET SPILL T>)>
+		<COND (<AND <ULTIMATELY-IN? ,SMALL-VIAL>
+			    <G? ,SMALL-VIAL-GLOOPS 0>>
+		       <SETG SMALL-VIAL-GLOOPS 0>
+		       <REMOVE ,SMALL-VIAL-WATER>
+		       <SET SPILL T>)>
+		<COND (<AND <ULTIMATELY-IN? ,CUP>
+			    <IN? ,POTION ,CUP>>
+		       <REMOVE ,POTION>
+		       <SET SPILL T>)>
+		<COND (<OR .SPILL
+			   <PROB 20>>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"   You trip over something invisible (perhaps some sort of feeble
+anti-theft device). Fortunately, you manage to keep your footing.">
+		       <COND (.SPILL
+			      <TELL
+" Unfortunately, you seem to have spilled something.">)>
+		       <CRLF>)>)>>
+
+<ROUTINE SHACK-EXIT-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<NOT .RARG>
+		<RETURN-FROM-MAP>
+		<CAST-HUNGER-SPELL>)>
+	 ,OUTSIDE-SHACK>
+
+<GLOBAL HUNGER-SPELL-CAST <>>
+
+<GLOBAL HUNGER-COUNT 0>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE CAST-HUNGER-SPELL ()
+	 <COND (<AND <EQUAL? ,HERE ,GUMBOZ-SHACK>
+		     <ULTIMATELY-IN? ,SMALL-VIAL>
+		     <NOT ,HUNGER-SPELL-CAST>>
+		<SETG HUNGER-SPELL-CAST T>
+		<QUEUE I-HUNGER 36>
+		<SETG HUNGER-COUNT 1>
+		<FCLEAR ,SMALL-VIAL ,TRYTAKEBIT>
+		<TELL
+"You hear a cry of \"Stop, thief! My vial!\" and a feeble but very angry
+wizard begins to appear. Noting that your departure is imminent, he casts
+his quickest spell on you; fortunately, it doesn't sound very powerful.|
+   You're suddenly very hungry." CR CR>)>>
+
+<ROUTINE I-HUNGER ()
+	 <SETG HUNGER-COUNT <+ ,HUNGER-COUNT 1>>
+	 <RETURN-FROM-MAP>
+	 <TELL "   ">
+	 <COND (<EQUAL? ,HUNGER-COUNT 2>
+		<QUEUE I-HUNGER 18>
+		<TELL
+"You're really famished now. Odd -- you had quite a huge meal last night." CR>)
+	       (<EQUAL? ,HUNGER-COUNT 3>
+		<QUEUE I-HUNGER 12>
+		<TELL "You've never felt this hungry in your life!" CR>)
+	       (<EQUAL? ,HUNGER-COUNT 4>
+		<QUEUE I-HUNGER 6>
+		<TELL
+"If your stomach could talk, it would be screaming, \"Get some food down here
+right away, jerk!\"" CR>)
+	       (T
+		<JIGS-UP "You pass out from extreme hunger.">)>>
+
+<OBJECT SMALL-VIAL
+	(LOC GUMBOZ-SHACK)
+	(DESC "four-gloop vial")
+        (SYNONYM VIAL WRITING)
+	(ADJECTIVE FOUR-GLOOP 4-GLOOP FOUR GLOOP SMALL INT.NUM)
+	(FLAGS TAKEBIT READBIT TRYTAKEBIT)
+	(SIZE 3)
+	(OWNER SMALL-VIAL) ;"read writing on vial"
+	(GENERIC G-VIAL-F)
+	(ACTION VIAL-F)>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM QUARRYS-EDGE
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Quarry's Edge")
+      (LDESC
+"The trail curves north and east around an abandoned quarry.|
+   An ancient pine clings to the rim of the quarry. Its needles are brown with
+age, and its drooping branches cast a dark shadow across the quarry below.")
+      (NORTH TO CAIRN)
+      (DOWN TO QUARRY)
+      (EAST TO OUTSIDE-HOVEL)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL TIRED-PINE QUARRY)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-8>)
+      (ICON QUARRYS-EDGE-ICON)
+      (THINGS <> SHADOW QUARRY-SHADOW-PS)>
+
+<OBJECT TIRED-PINE
+	(LOC LOCAL-GLOBALS)
+	(DESC "ancient pine tree")
+	(SYNONYM TREE PINE)
+	(ADJECTIVE PINE TIRED ANCIENT OLD LARGE)
+	(FLAGS VOWELBIT PLANTBIT)
+	(ACTION TIRED-PINE-F)>
+
+<ROUTINE TIRED-PINE-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<AND <TOUCHING? ,TIRED-PINE>
+		     <EQUAL? ,HERE ,QUARRY>>
+		<CANT-REACH ,TIRED-PINE>)
+	       (<AND <VERB? GET-NEAR> ;"stand under the pine tree"
+		     <EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?UNDER>>
+		<COND (<EQUAL? ,HERE ,QUARRY>
+		       <TELL ,LOOK-AROUND>)
+		      (T
+		       <DO-WALK ,P?DOWN>)>)
+	       (<VERB? CLIMB CLIMB-UP>
+		<TELL ,POORLY-CONFIGURED>)
+	       (<VERB? GET-NEAR>
+		<PERFORM-PRSA ,SMALL-ELM>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"The tree relates a life-long fantasy about being transplanted in the fertile
+soil of Gurth." CR>)>>
+
+<ROOM QUARRY
+      (LOC ROOMS)
+      (DESC "Quarry")
+      (REGION "Fublio Valley")
+      (LDESC
+"The branches of a weary old pine cast a dark shadow across the floor
+of this old stone quarry.")
+      (UP TO QUARRYS-EDGE)
+      (OUT TO QUARRYS-EDGE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (SYNONYM QUARRY)
+      (ADJECTIVE ABANDONED OLD STONE)
+      (GLOBAL TIRED-PINE)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-7>)
+      (ICON QUARRY-ICON)
+      (THINGS <> SHADOW QUARRY-SHADOW-PS)
+      (ACTION QUARRY-F)>
+
+<ROUTINE QUARRY-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,RUSTY-KEY ,LOCAL-GLOBALS>
+		     <ULTIMATELY-IN? ,SAPPHIRE>
+		     <FSET? ,RING ,WORNBIT>>
+		<MOVE ,RUSTY-KEY ,HERE>
+		<RETURN-FROM-MAP>
+		<TELL
+"   A strange drowsiness comes over you, and you fall into a swoon. An
+unknown number of minutes later, you are roused by a gentle breeze" ,ELLIPSIS>
+		<V-LOOK>
+		<INC-SCORE 14>)
+	       (.RARG
+		<RFALSE>)
+	       (<AND <EQUAL? ,HERE ,QUARRYS-EDGE>
+		     <VERB? ENTER>
+		     <EQUAL? ,P-PRSA-WORD ,W?JUMP>>
+		<JUMPLOSS>)>>
+
+<ROUTINE QUARRY-SHADOW-PS ()
+	 <COND (<VERB? ENTER>
+		<COND (<EQUAL? ,HERE ,QUARRY>
+		       <TELL
+"You are; the tree's shadow covers the entire floor of the quarry." CR>)
+		      (T
+		       <DO-WALK ,P?DOWN>)>)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT RUSTY-KEY
+	(LOC LOCAL-GLOBALS)
+	(DESC "rusty key")
+	(SYNONYM KEY)
+	(ADJECTIVE RUSTY OLD)
+	(FLAGS TAKEBIT KEYBIT)
+	(SIZE 2)
+	(ACTION RUSTY-KEY-F)>
+
+<ROUTINE RUSTY-KEY-F ()
+	 <COND (<VERB? CLEAN>
+		<FSET ,RUSTY-KEY ,READBIT>
+		<TELL
+"You clean off some of the rust, revealing words engraved on the key." CR>)
+	       (<AND <VERB? READ>
+		     <FSET? ,RUSTY-KEY ,READBIT>>
+		<TELL "\"Frobozz Magic Trunk Key Company\"" CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM OUTSIDE-HOVEL
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Outside Hovel")
+      (LDESC
+"A trail from the west ends here at this tiny structure. Next to the
+hovel's entrance, to the east, is a faded sign.")
+      (WEST TO QUARRYS-EDGE)
+      (EAST TO KORBOZ-HOVEL)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL SIGN KORBOZ-HOVEL)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-9>)>
+
+<ROOM KORBOZ-HOVEL
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Korboz's Hovel")
+      (LDESC
+"This tiny shack looks like the living quarters of a hermit wizard. The
+only exit is west.")
+      (WEST TO OUTSIDE-HOVEL)
+      (OUT TO OUTSIDE-HOVEL)
+      (FLAGS RLANDBIT BEYONDBIT)
+      (SYNONYM HOVEL)
+      (ADJECTIVE KORBOZ\'S)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-10>)>
+
+<ROOM BASE-OF-MOUNTAINS
+      (LOC ROOMS)
+      (REGION "Fublio Valley")
+      (DESC "Base of Mountains")
+      (LDESC
+"You are near the base of the mighty Flathead Mountains, toward the
+southernmost end of the range. The mountains run approximately northeast
+to southwest here. The path turns here, heading east into the valley
+and north into the foothills.")
+      (NORTH TO FOOTHILLS)
+      (UP TO FOOTHILLS)
+      (EAST TO VIEW-OF-STATUE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)
+      (ICON BASE-OF-MTS-ICON)>
+
+<ROOM FOOTHILLS
+      (LOC ROOMS)
+      (REGION "Flathead Mountains")
+      (DESC "Foothills")
+      (LDESC
+"You are in the foothills of the Flathead Mountains, at the entrance to the
+Zorbel Pass. The pass rises to the northwest, and a path leads downward to
+the south.")
+      (NW TO ZORBEL-PASS)
+      (UP TO ZORBEL-PASS)
+      (SOUTH TO BASE-OF-MOUNTAINS)
+      (DOWN TO BASE-OF-MOUNTAINS)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-6>)>
+
+<ROOM ZORBEL-PASS
+      (LOC ROOMS)
+      (REGION "Flathead Mountains")
+      (DESC "Zorbel Pass")
+      (LDESC
+"This pass is reputed to be the only crossable point along the entire range.
+You are now far above the valley floor, which spreads out below you like a
+map, but you have still not reached the highest point of the pass.")
+      (DOWN TO FOOTHILLS)
+      (SE TO FOOTHILLS)
+      (NW TO AVALANCHE)
+      (UP TO AVALANCHE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>)
+      (ICON ZORBEL-PASS-ICON)>
+
+<ROOM AVALANCHE
+      (LOC ROOMS)
+      (REGION "Flathead Mountains")
+      (DESC "Avalanche")
+      (LDESC
+"As you near the highest point of the pass, you find it blocked by a recent
+avalanche. Though you can travel no farther to the northwest, the avalanche
+has revealed an ancient ravine leading up the side of the mountain.")
+      (DOWN TO ZORBEL-PASS)
+      (UP TO TIMBERLINE)
+      (NW SORRY "The way is blocked by an avalanche.")
+      (SE TO ZORBEL-PASS)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-4>)
+      (ICON AVALANCHE-ICON)>
+
+<ROOM TIMBERLINE
+      (LOC ROOMS)
+      (REGION "Flathead Mountains")
+      (DESC "Timberline")
+      (LDESC
+"You are on the slopes of Mount Foobia, the tallest peak in the Flathead
+Mountains. A narrow ravine leads almost straight downward. The vegetation
+thins out here, and the air is getting a bit thin as well. Not too far
+above you, the slope disappears into the thick clouds which eternally
+shroud the apex of Foobia.")
+      (UP TO AMONGST-THE-CLOUDS)
+      (DOWN TO AVALANCHE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>)
+      (ICON TIMBERLINE-ICON)>
+
+<ROOM AMONGST-THE-CLOUDS
+      (LOC ROOMS)
+      (REGION "Flathead Mountains")
+      (DESC "Amongst the Clouds")
+      (LDESC
+"You are surrounded by the thick white clouds which perpetually hide the peak
+of Mount Foobia. Visibility is severely limited; you can only assume that the
+slope continues to be climbable above you. Breathing here is a chore.")
+      (UP TO ON-TOP-OF-THE-WORLD)
+      (DOWN TO TIMBERLINE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-2>)
+      (ICON AMONGST-CLOUDS-ICON)>
+
+<ROOM ON-TOP-OF-THE-WORLD
+      (LOC ROOMS)
+      (REGION "Flathead Mountains")
+      (DESC "On Top of the World")
+      (LDESC
+"You have emerged above the cloud layer, at a plateau which forms the apex of
+Foobia. There is no sign that anyone has ever been here before. Nearby is a
+huge object, which vanishes into the mists above. It's difficult to be certain,
+but it looks a bit like a piece of a corner of an edge of a toe of an
+enormously tremendous brogmoid. A huge colony of fungus clogs the cracks in
+the toe.")
+      (DOWN TO AMONGST-THE-CLOUDS)
+      (UP SORRY "The brogmoid toe is unclimbable.")
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL BROGMOID FLATHEAD-MOUNTAINS)
+      (MAP-LOC <PTABLE FUBLIO-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-1>)
+      (ICON ON-TOP-OF-WORLD-ICON)>
+
+<OBJECT TOE-FUNGUS
+	(LOC ON-TOP-OF-THE-WORLD)
+	(DESC "toe fungus")
+	(SYNONYM FUNGUS FUNGI)
+	(ADJECTIVE TOE)
+	(FLAGS NDESCBIT PLANTBIT)
+	(GENERIC G-FUNGUS-F)
+	(RESEARCH
+"\"A class of saprophytic parasitical plants which lack chlorophyll and are
+frequently found in the less hygienic cavities of brogmoids.\"")
+	(ACTION TOE-FUNGUS-F)>
+
+<ROUTINE TOE-FUNGUS-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<COND (<AND <VERB? FIND GIVE>
+			    <PRSO? ,LITTLE-FUNGUS>
+			    <IN? ,LITTLE-FUNGUS ,GLOBAL-OBJECTS>
+			    <NOT <EQUAL? ,FUNGUS-NUMBER 12>> ;"not chosen yet"
+			    <NOUN-USED? ,LITTLE-FUNGUS
+				   	<GET ,FUNGUS-WORDS ,FUNGUS-NUMBER>>>
+		       <GET-LITTLE-FUNGUS>)
+		      (T
+		       <PLANT-STUNNED>)>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL
+"You hear a vast murmur of countless little fungi, all discussing
+spore-care techniques." CR>)
+	       (<VERB? RESEARCH>
+		<PERFORM-PRSA ,EAR-FUNGUS>)
+	       (<AND <VERB? ASK-ABOUT>
+		     ,PLANT-TALKER
+		     <PRSI? ,LITTLE-FUNGUS>
+		     <IN? ,LITTLE-FUNGUS ,GLOBAL-OBJECTS>
+		     <NOT <EQUAL? ,FUNGUS-NUMBER 12>> ;"not chosen yet"
+		     <NOUN-USED? ,LITTLE-FUNGUS
+				 <GET ,FUNGUS-WORDS ,FUNGUS-NUMBER>>>
+		<GET-LITTLE-FUNGUS>)>>
+
+<ROUTINE GET-LITTLE-FUNGUS ()
+	 <FSET ,LITTLE-FUNGUS ,TAKEBIT>
+	 <THIS-IS-IT ,LITTLE-FUNGUS>
+	 <MOVE ,LITTLE-FUNGUS ,HERE>
+	 <TELL "A little fungus trots up and says, \"That's me!\"" CR>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT LITTLE-FUNGUS
+	(LOC GLOBAL-OBJECTS)
+        (DESC "little fungus")
+	(SYNONYM SEYMOUR SHERMAN IRVING SAMMY MYRON BORIS MELVIN LESTER
+	 	 JULIUS RICARDO OMAR BARNABY FUNGUS COUSIN)
+	(ADJECTIVE SMALL)
+	(FLAGS PLANTBIT)
+	(GENERIC G-FUNGUS-F)
+	(RESEARCH
+"\"A class of saprophytic parasitical plants which lack chlorophyll and are
+frequently found in the less hygienic cavities of brogmoids.\"")
+	(ACTION LITTLE-FUNGUS-F)>
+
+<ROUTINE LITTLE-FUNGUS-F ("OPTIONAL" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<PLANT-STUNNED>)
+	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		<COND (<AND <VERB? CALL YELL SAY FIND>
+			    <EQUAL? ,HERE ,ON-TOP-OF-THE-WORLD>
+			    ,PLANT-TALKER
+			    <NOT <EQUAL? ,FUNGUS-NUMBER 12>> ;"not chosen yet"
+			    <NOUN-USED? ,LITTLE-FUNGUS
+					<GET ,FUNGUS-WORDS ,FUNGUS-NUMBER>>>
+		       <GET-LITTLE-FUNGUS>)
+		      (<VERB? CALL YELL SAY>
+		       <TELL ,NOTHING-HAPPENS>)
+		      (<HANDLE ,LITTLE-FUNGUS>
+		       <CANT-SEE ,LITTLE-FUNGUS>)
+		      (T
+		       <TELL ,BY-THAT-NAME>)>)
+	       (<AND <OR <NOUN-USED? ,LITTLE-FUNGUS
+				     ,W?SEYMOUR ,W?SHERMAN ,W?IRVING>
+			 <NOUN-USED? ,LITTLE-FUNGUS
+				     ,W?SAMMY ,W?MYRON ,W?BORIS>
+			 <NOUN-USED? ,LITTLE-FUNGUS
+				     ,W?MELVIN ,W?LESTER ,W?JULIUS>
+			 <NOUN-USED? ,LITTLE-FUNGUS
+				     ,W?RICARDO ,W?OMAR ,W?BARNABY>>
+		     <NOT <NOUN-USED? ,LITTLE-FUNGUS
+				      <GET ,FUNGUS-WORDS ,FUNGUS-NUMBER>>>
+		     <OR <HANDLE ,LITTLE-FUNGUS>
+			 <VERB? FOLLOW>>>
+		<TELL ,BY-THAT-NAME>
+		<STOP>)
+	       (<OR <AND <VERB? DROP>
+			 <EQUAL? ,HERE ,EAR>>
+		    <AND <VERB? GIVE SHOW PUT PUT-ON>
+			 <PRSI? ,EAR-FUNGUS>>
+		    <AND <VERB? PUT PUT-ON>
+			 <PRSI? ,BROGMOID>
+			 <NOUN-USED? ,BROGMOID ,W?EAR>>>
+		<SETG EAR-PASSAGE-OPEN T>
+		<REMOVE ,LITTLE-FUNGUS>
+		<TELL
+"There follows a joyful reunion between the little fungus and his long-lost
+cousins. Grateful, the ear fungi part, forming a passageway leading deeper
+into the ear." CR>
+		<INC-SCORE 18>)>>
+
+<END-SEGMENT>
+\
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM MINE-ENTRANCE
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Mine Entrance")
+      (LDESC
+"The Antharian granola mines can be entered to the east, and a major
+road leads west. Signs of the granola riots are everywhere. Speaking of
+signs, there's one next to the mine entrance.")
+      (WEST TO COAST-ROAD)
+      (EAST TO RUBBLE-ROOM)
+      (IN TO RUBBLE-ROOM)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (GLOBAL SIGN GRANOLA-MINE)
+      (VALUE 10)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>)
+      (ICON MINE-ENTRANCE-ICON)>
+
+<ROOM COAST-ROAD
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Coast Road")
+      (LDESC
+"This is a bend in a wide dirt road running along the ocean's edge. You can
+go east or southwest.")
+      (EAST TO MINE-ENTRANCE)
+      (SW TO FLATHEAD-STADIUM)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (GLOBAL FLATHEAD-OCEAN)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>)
+      (ICON COAST-ROAD-ICON)>
+
+<ROOM FLATHEAD-STADIUM
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Flathead Stadium")
+      (LDESC
+"This was one of Dimwit's most impressive projects: a stadium which would
+hold the entire population of the Great Underground Empire. A whole range
+of sporting matches were held here, from dragonfights to Double Fanucci
+tournaments. Arched exits lead northeast, southeast, and south.")
+      (NE TO COAST-ROAD)
+      (SE TO EDGE-OF-BOG)
+      (SOUTH TO NORTH-OF-ANTHAR)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT BEYONDBIT)
+      (SYNONYM STADIUM)
+      (ADJECTIVE FLATHEAD LARGE)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-6>)
+      (ICON STADIUM-ICON)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT BAT
+	(LOC FLATHEAD-STADIUM)
+	(DESC "wooden club")
+	(FDESC
+"A long wooden club lies on the turf. There is something engraved on the
+club's thick end.")
+	(SYNONYM CLUB BAT)
+	(ADJECTIVE WOODEN BASEBALL)
+	(FLAGS TRYTAKEBIT TAKEBIT BURNBIT READBIT MAGICBIT)
+	(SIZE 10)
+	(VALUE 12)
+	(TEXT
+"A symbol which resembles a winged rodent is engraved on the barrel
+of the club.")
+	(ACTION BAT-F)>
+
+<GLOBAL BAT-SWINGS 0>
+
+<ROUTINE BAT-F ()
+	 <COND (<AND <TOUCHING? ,BAT>
+		     <FSET? ,BAT ,TRYTAKEBIT>>
+		<TELL
+"An invisible force prevents you from approaching the wooden club." CR>)
+	       (<VERB? SWING>
+		<SETG BAT-SWINGS <+ ,BAT-SWINGS 1>>
+		<TELL "\"Strike " N ,BAT-SWINGS "!">
+		<COND (<EQUAL? ,BAT-SWINGS 3>
+		       <JIGS-UP " Yer out!\"">)
+		      (T
+		       <TELL "\"" CR>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM NORTH-OF-ANTHAR
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "North of Anthar")
+      (LDESC
+"You are on a road at the fringe of Anthar. The road continues north and
+south. In the latter direction, a hastily constructed fence of rock and
+wire blocks the road. A sign is posted in front of the fence. A smaller
+path heads eastward.")
+      (SOUTH SORRY "The fence is very tall and covered with sharp nasties.")
+      (NORTH TO FLATHEAD-STADIUM)
+      (EAST TO EDGE-OF-BOG)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL SIGN)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-6>)
+      (THINGS <> FENCE FENCE-PS)>
+
+<ROUTINE FENCE-PS ()
+	 <COND (<VERB? CROSS CLIMB CLIMB-UP CLIMB-OVER>
+		<DO-WALK ,P?SOUTH>)
+	       (<VERB? THROW-OVER>
+		<COND (<PRSO? ,PERCH>
+		       <SETG REMOVED-PERCH-LOC ,PSEUDO-OBJECT>)>
+		<REMOVE ,PRSO>
+		<TELL
+"A good throw --" T ,PRSO " sails over the fence and disappears
+into a tangle of barbed wire beyond." CR>)>>
+
+<ROOM EDGE-OF-BOG
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Edge of Bog")
+      (LDESC
+"A series of flat stones leads east into a mist-covered marsh. Paths lead
+northwest and west.")
+      (EAST TO CLIFF-BOTTOM)
+      (WEST TO NORTH-OF-ANTHAR)
+      (NW TO FLATHEAD-STADIUM)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-7>)>
+
+<ROOM CLIFF-BOTTOM
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Cliff Bottom")
+      (LDESC
+"You are at the bottom of a sheer granite cliff. A foggy swamp lies to
+the west. Rough handholds have been carved into the face of the cliff.")
+      (WEST TO EDGE-OF-BOG)
+      (UP TO PRECIPICE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL SWAMP)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-8>)
+      (ICON CLIFF-BOTTOM-ICON)>
+
+<ROOM PRECIPICE
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Precipice")
+      (LDESC
+"This is a tiny shelf of granite atop a sheer cliff. Below, you can see a
+misty bog and, beyond that, the ocean. Far to the northwest is a large
+stadium; to the southwest, a town. A path leads east into a hollow.")
+      (DOWN TO CLIFF-BOTTOM)
+      (EAST TO AERIE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (GLOBAL SWAMP FLATHEAD-OCEAN FLATHEAD-STADIUM GLOBAL-BLDG)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-8>)
+      (ICON PRECIPICE-ICON)>
+
+<ROOM AERIE
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Aerie")
+      (LDESC
+"You are in a natural bowl-shaped depression, hollowed out by eons of howling
+wind. At the bottom is a huge bird nest, built of myriad bits of scavenged
+twigs and debris. Beyond the nest, to the southeast, is a dark opening. A
+trail leads west.")
+      (WEST TO PRECIPICE)
+      (SE TO ICKY-CAVE)
+      (FLAGS RLANDBIT ONBIT BEYONDBIT OUTSIDEBIT)
+      (SYNONYM AERIE)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)
+      (ICON AERIE-ICON)
+      (ACTION AERIE-F)>
+
+<ROUTINE AERIE-F ("OPT" (RARG <>) "AUX" OBJ OWINNER)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <OR <SET OBJ <FIND-IN ,PROTAGONIST ,ONBIT>>
+			 <SET OBJ <FIND-LANTERN>>>>
+		<REPEAT () ;"if light source is unseen, get its LOC instead"
+			<SET OWINNER ,WINNER>
+			<SETG WINNER ,NEST> ;"see SEE-INSIDE?"
+			<COND (<VISIBLE? .OBJ>
+			       <MOVE .OBJ ,CLIFF-BOTTOM>
+			       <RETURN>)>
+			<SET OBJ <LOC .OBJ>>
+			<SETG WINNER .OWINNER>>
+		<RETURN-FROM-MAP>
+		<TELL
+"   \"Caw! Caw!\" A huge black bird swoops down and snatches your " D .OBJ
+" in its mighty talons. It flies westward, drops" T .OBJ " over the precipice,
+and flutters into the clouds." CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <PROB 40>>
+		<TELL
+"   A gust of wind sends a whirl of dust dancing in a circle around the
+bird's nest." CR>)>>
+
+<ROUTINE FIND-LANTERN ()
+	 <COND (<ULTIMATELY-IN? ,LANTERN>
+		,LANTERN)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT NEST
+	(LOC AERIE)
+	(DESC "nest")
+	(SYNONYM NEST)
+	(ADJECTIVE LARGE BIRD BIRD\'S)
+	(FLAGS NDESCBIT VEHBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION NEST-F)>
+
+<ROUTINE NEST-F ("OPTIONAL" VARG)
+	 <COND (.VARG
+		<RFALSE>)
+	       (<AND <VERB? EXAMINE SEARCH>
+		     <IN? ,SILK-TIE ,LOCAL-GLOBALS>>
+		<MOVE ,SILK-TIE ,NEST>
+		<TELL
+"Among the items woven into the nest is a faded silk tie!" CR>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<IN? ,SILK-TIE ,LOCAL-GLOBALS>
+		       <PERFORM ,V?EXAMINE ,NEST>
+		       <RTRUE>)
+		      (T
+		       <TELL "The nest is, at the moment, birdless." CR>)>)>>
+
+;<BEGIN-SEGMENT 0>
+
+<OBJECT SILK-TIE
+	(LOC LOCAL-GLOBALS)
+	(DESC "silk tie")
+	(SYNONYM TIE)
+	(ADJECTIVE FADED GRAY)
+	(FLAGS TAKEBIT MAGICBIT WEARBIT READBIT)
+	(TEXT
+"Although terribly old and faded, you can tell that the tie was once gray with
+little green zorkmid symbols all over it.")
+	(VALUE 12)
+	;(ACTION SILK-TIE-F)>
+
+;<ROUTINE SILK-TIE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"Although terribly old and faded, you can tell that the tie was once gray with
+little green zorkmid symbols all over it." CR>)>>
+
+;<END-SEGMENT>
+
+;<BEGIN-SEGMENT ORACLE>
+
+<ROOM ICKY-CAVE
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Icky Cave")
+      (NW TO AERIE)
+      (OUT TO AERIE)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (SYNONYM CAVE CAVERN)
+      (ADJECTIVE ICKY SMALL)
+      (GLOBAL SLIME)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-10>)
+      (ICON ICKY-CAVE-ICON)
+      (ACTION ICKY-CAVE-F)>
+
+<ROUTINE ICKY-CAVE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The walls of this small cavern are covered with thick, black slime. It drips
+from the stalactites and puddles up on the floor.">
+		<COND (<NOT <IN? ,SICKLY-WITCH ,HERE>>
+		       <TELL
+" Considering the furnishings and relics, this cave must be the home of
+several witches. However, the witches are either out or hiding.">)>
+		<TELL " The only exit from this tiny cavern is northwest.">)>>
+
+<OBJECT SICKLY-WITCH
+	(DESC "sickly witch")
+	(LDESC
+"In the dimmest corner of the cave huddle a pair of witches. One looks
+healthier but less friendly than the other.")
+	(SYNONYM WITCH)
+	(ADJECTIVE SICKLY FRIENDLY UNHEALTHY)
+	(FLAGS ACTORBIT FEMALEBIT ANIMATEDBIT)
+	(ACTION WITCH-F)>
+
+<OBJECT PRICKLY-WITCH
+	(DESC "prickly witch")
+	(SYNONYM WITCH)
+	(ADJECTIVE PRICKLY UNFRIENDLY HEALTHY)
+	(FLAGS ACTORBIT FEMALEBIT ANIMATEDBIT NDESCBIT)
+	(ACTION WITCH-F)>
+
+<ROUTINE WITCH-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<COND (<FSET? ,BAT ,TRYTAKEBIT>
+		       <TELL "\"Bring us ">
+		       <COND (,VIAL-GIVEN
+			      <TELL "earwax of brogmoid">)
+			     (T
+			      <TELL
+"exactly six gloops of water from the Great Underground Oasis">)>
+		       <TELL
+", and we shall remove the enchantment on that which you seek.\"">
+		       <COND (<IN? ,LARGE-VIAL ,LOCAL-GLOBALS>
+			      <MOVE ,LARGE-VIAL ,HERE>
+			      <TELL " A vial appears in front of you.">)>
+		       <CRLF>)
+		      (T
+		       <TELL
+"\"Stop pestering us, or we'll restore the enchantment... and worse!\"" CR>)>)
+	       (<AND <VERB? GIVE>
+		     <PRSI? ,PRICKLY-WITCH ,SICKLY-WITCH>
+		     <NOT ,LIT>>
+		<TELL ,TOO-DARK CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,EARWAX>>
+		<REMOVE ,EARWAX>
+		<SETG EARWAX-GIVEN T>
+		<COND (,VIAL-GIVEN
+		       <FCLEAR ,BAT ,TRYTAKEBIT>
+		       <TELL
+"\"A fine specimen!\" cackles the witch. \"Now, where were we? Ah, yes... "
+"Brogmoid earwax!" ,FINISH-ENCHANTMENT>)
+		      (T
+		       <TELL
+"\"Ah, brogmoid ear wax! A goodly portion, too! Always handy to have around.\"
+She squirrels it away." CR>)>)>>
+
+<CONSTANT FINISH-ENCHANTMENT
+" Camel sweat! Rotgrub heart! The enchantment begone!\" A palpable wave of
+magic sweeps over you and out of the cave.|">
+
+<GLOBAL VIAL-GIVEN <>>
+
+<GLOBAL EARWAX-GIVEN <>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT LARGE-VIAL
+	(LOC LOCAL-GLOBALS)
+	(DESC "nine-gloop vial")
+        (SYNONYM VIAL WRITING)
+	(ADJECTIVE NINE-GLOOP 9-GLOOP NINE GLOOP LARGE INT.NUM)
+	(FLAGS TAKEBIT READBIT)
+	(GENERIC G-VIAL-F)
+	(OWNER LARGE-VIAL) ;"read writing on vial"
+	(ACTION VIAL-F)>
+
+<ROUTINE G-VIAL-F (SRES F)
+	 <COND (<EQUAL? <GET <REST-TO-SLOT <FIND-ADJS .F> ADJS-COUNT 1> 0>
+			,W?INT.NUM>
+		<COND (<EQUAL? <FIND-NUM .F> ;,P-NUMBER 4>
+		       ,SMALL-VIAL)
+		      (<EQUAL? <FIND-NUM .F> ;,P-NUMBER 9>
+		       ,LARGE-VIAL)
+		      (T
+		       ;<TELL
+,YOU-CANT-SEE-ANY N <FIND-NUM .F> ;,P-NUMBER "-gloop vial here!]" CR>
+		       ,NOT-HERE-OBJECT ;,ROOMS)>)>>
+
+<GLOBAL SMALL-VIAL-GLOOPS 0>
+
+<GLOBAL LARGE-VIAL-GLOOPS 0>
+
+<GLOBAL SMALL-VIAL-TAINTED <>>
+
+<GLOBAL LARGE-VIAL-TAINTED <>>
+
+<GLOBAL SMALL-VIAL-IMPRECISE <>>
+
+<GLOBAL LARGE-VIAL-IMPRECISE <>>
+
+<CONSTANT INTEGERS <PLTABLE
+		<VOC "ONE"> <VOC "TWO"> <VOC "THREE">
+		<VOC "FOUR"> <VOC "FIVE"> <VOC "SIX">
+		<VOC "SEVEN"> <VOC "EIGHT"> <VOC "NINE">>>
+
+<ROUTINE CONVERT-NUMBER (ADJS "AUX" ADJ)
+	<SET ADJ <GET <REST-TO-SLOT .ADJS ADJS-COUNT> 1>>
+	<COND (<EQUAL? .ADJ ,W?INT.NUM>
+	       <RETURN ,P-NUMBER>)
+	      (<SET ADJ <INTBL? .ADJ ,INTEGERS <GET ,INTEGERS 0>>>
+	       <RETURN </ <- .ADJ ,INTEGERS> 2>>)>>
+
+<ROUTINE VIAL-F ("AUX" NUM PRSO-VIAL-GLOOPS PRSI-VIAL-GLOOPS ADJ)
+	 <COND (<PRSO? ,SMALL-VIAL>
+		<SET PRSO-VIAL-GLOOPS ,SMALL-VIAL-GLOOPS>)
+	       (T
+		<SET PRSO-VIAL-GLOOPS ,LARGE-VIAL-GLOOPS>)>
+	 <COND (,PRSI
+		<COND (<PRSI? ,SMALL-VIAL>
+		       <SET PRSI-VIAL-GLOOPS ,SMALL-VIAL-GLOOPS>)
+		      (T
+		       <SET PRSI-VIAL-GLOOPS ,LARGE-VIAL-GLOOPS>)>)>
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL "The vial ">
+		<COND (<EQUAL? .PRSO-VIAL-GLOOPS 0>
+		       <TELL "is empty">)
+		      (T
+		       <TELL "contains ">
+		       <COND (<OR <AND <PRSO? ,LARGE-VIAL>
+				       ,LARGE-VIAL-IMPRECISE>
+				  <AND <PRSO? ,SMALL-VIAL>
+				       ,SMALL-VIAL-IMPRECISE>>
+			      <TELL "approximately ">)>
+		       <TELL N .PRSO-VIAL-GLOOPS " gloop">
+		       <COND (<NOT <EQUAL? .PRSO-VIAL-GLOOPS 1>>
+			      <TELL "s">)>
+		       <TELL " of water">)>
+		<TELL ".">
+		<COND (<VERB? EXAMINE>
+		       <TELL " There is some writing etched onto it.">)>
+		<CRLF>)
+	       (<VERB? READ>
+		<TELL "\"Frobozz Magic Vial Company. Capacity (to the brim): ">
+		<COND (<PRSO? ,LARGE-VIAL>
+		       <TELL "9">)
+		      (T
+		       <TELL "4">)>
+		<TELL " gloops.\"" CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,LARGE-VIAL>
+		     <PRSI? ,SICKLY-WITCH ,PRICKLY-WITCH>>
+		<COND (<EQUAL? ,LARGE-VIAL-GLOOPS 6>
+		       <COND (<OR ,LARGE-VIAL-TAINTED
+				  ,LARGE-VIAL-IMPRECISE>
+			      <TELL
+"The witch examines the water, grows angry, and flings it
+out of the vial. \"This is not ">
+			      <COND (,LARGE-VIAL-TAINTED
+				     <TELL "pure Oasis water">)
+				    (T
+				     <TELL "precisely 6 gloops">)>
+			      <SETG LARGE-VIAL-TAINTED <>>
+			      <SETG LARGE-VIAL-GLOOPS 0>
+			      <REMOVE ,LARGE-VIAL-WATER>
+			      <TELL
+"! You thought we would not know, fool?\" She throws the vial back at you.
+\"Do not return until you have done EXACTLY as we ask.\"" CR>)
+			     (T
+		       	      <REMOVE ,LARGE-VIAL>
+			      <SETG VIAL-GIVEN T>
+			      <TELL
+"\"You have done well,\" croak the witches. \"We shall do as we promised.\"|
+   \"Hair of hellhound!\" calls the sickly witch. The prickly witch rummages
+around and hands her a clump of coarse black fur.|
+   \"Toenail of tarantula!\" The prickly witch produces half a handful of
+clippings.|
+   \"Spleen of troll!\" The prickly witch hands over a wrinkled organ, caked
+with dried blood.|
+   \"Earwax of brogmoid!">
+			      <COND (,EARWAX-GIVEN
+				     <FCLEAR ,BAT ,TRYTAKEBIT>
+				     <TELL ,FINISH-ENCHANTMENT>)
+				    (T
+				     <TELL
+"\" The prickly witch rummages around the cave, mumbling with increasing
+irritation. \"Earwax of yipple. Earwax of sea slug. Earwax of adventurer.
+Carbuncle of brogmoid. Belly-button lint of brogmoid.\" She shakes her head
+sadly. \"No earwax of brogmoid. I think we used it up last month... you
+remember... when we conjured up that male stripper...\"|
+   The sickly witch turns to you. \"Sorry, we cannot remove the enchantment
+until you bring us some brogmoid earwax.\"" CR>)>)>)
+		      (T
+		       <TELL
+"\"We asked you for 6 gloops!\" screams the witch. \"No less, no more! Begone,
+and return not until you do what we ask!\" A fiery bolt shoots from the witches
+fingers, missing your rump by inches as you scurry from the cave." CR CR>
+		       <GOTO ,AERIE>)>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,SMALL-VIAL ,LARGE-VIAL>>
+		<COND (<FSET? ,PRSO ,TAKEBIT>
+		       <COND (<G? <GETP ,PRSO ,P?SIZE> 2>
+			      <TELL "The mouth of the vial is too narrow." CR>)
+			     (T
+			      <WASTES>)>)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,WATER>>
+		<PERFORM ,V?FILL ,PRSO ,WATER>
+		<RTRUE>)
+	       (<VERB? FILL>
+		<COND (<PRSI? ,OASIS-OBJECT ,LAKE-FLATHEAD>
+		       <SETG PRSI ,WATER>)>
+		<COND (<PRSI? ,WATER>
+		       <COND (<OR <AND <PRSO? ,SMALL-VIAL>
+				       <EQUAL? ,SMALL-VIAL-GLOOPS 4>>
+				  <AND <PRSO? ,LARGE-VIAL>
+				       <EQUAL? ,LARGE-VIAL-GLOOPS 9>>>
+			      <TELL
+"The " D ,PRSO " is already filled to the brim!" CR>)
+			     (<NOT <IN? ,PROTAGONIST ,HERE>>
+			      <CANT-REACH ,WATER>)
+			     (<PRSO? ,SMALL-VIAL>
+			      <COND (<NOT <EQUAL? ,HERE ,OASIS>>
+				     <SETG SMALL-VIAL-TAINTED T>)>
+			      <COND (<AND <NOUN-USED? ,WATER
+						      ,W?GLOOP ,W?GLOOPS>
+					  <NOT <ADJ-USED? ,WATER <>>>
+					  <SET ADJ <FIND-ADJS ,FINDER>>
+					  <SETG P-NUMBER <CONVERT-NUMBER .ADJ>>
+					  <L? ,P-NUMBER 4>
+					  <G? ,P-NUMBER 0>>
+				     <SETG SMALL-VIAL-GLOOPS ,P-NUMBER>
+				     <SETG SMALL-VIAL-IMPRECISE T>
+				     <TELL "You fill">
+				     <NO-GRADATIONS ,P-NUMBER>)
+				    (T
+				     <SETG SMALL-VIAL-IMPRECISE <>>
+			      	     <SETG SMALL-VIAL-GLOOPS 4>
+			      	     <MOVE ,SMALL-VIAL-WATER ,SMALL-VIAL>
+				     <TELL
+"You fill the vial to the brim." CR>)>)
+			     (T ;"PRSO is large vial"
+			      <COND (<NOT <EQUAL? ,HERE ,OASIS>>
+				     <SETG LARGE-VIAL-TAINTED T>)>
+			      <COND (<AND <NOUN-USED? ,WATER
+						      ,W?GLOOP ,W?GLOOPS>
+					  <NOT <ADJ-USED? ,WATER <>>>
+					  <SET ADJ <FIND-ADJS ,FINDER>>
+					  <SETG P-NUMBER <CONVERT-NUMBER .ADJ>>
+					  <L? ,P-NUMBER 9>
+					  <G? ,P-NUMBER 0>>
+				     <SETG LARGE-VIAL-GLOOPS ,P-NUMBER>
+				     <SETG LARGE-VIAL-IMPRECISE T>
+				     <TELL "You fill">
+				     <NO-GRADATIONS ,P-NUMBER>)
+				    (T
+			      	     <SETG LARGE-VIAL-IMPRECISE <>>
+			      	     <SETG LARGE-VIAL-GLOOPS 9>
+			      	     <MOVE ,LARGE-VIAL-WATER ,LARGE-VIAL>
+			      	     <TELL
+"You fill the vial to the brim." CR>)>)>)
+		      (<AND <PRSO? ,SMALL-VIAL>
+			    <PRSI? ,LARGE-VIAL>>
+		       <POUR-VIALS ,LARGE-VIAL ,SMALL-VIAL>)
+		      (<AND <PRSO? ,LARGE-VIAL>
+			    <PRSI? ,SMALL-VIAL>>
+		       <POUR-VIALS ,SMALL-VIAL ,LARGE-VIAL>)>)
+	       (<AND <VERB? POUR>
+		     <PRSO? ,SMALL-VIAL ,LARGE-VIAL>>
+		<PERFORM ,V?EMPTY ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<VERB? EMPTY>
+		<COND (<EQUAL? .PRSO-VIAL-GLOOPS 0>
+		       <TELL "The vial is already empty!" CR>)
+		      (<AND <PRSO? ,SMALL-VIAL>
+			    <PRSI? ,LARGE-VIAL>>
+		       <POUR-VIALS ,SMALL-VIAL ,LARGE-VIAL>)
+		      (<AND <PRSI? ,SMALL-VIAL>
+			    <PRSO? ,LARGE-VIAL>>
+		       <POUR-VIALS ,LARGE-VIAL ,SMALL-VIAL>)
+		      (T
+		       <COND (<NOT ,PRSI>
+			      <SET-GROUND-DESC>
+			      <SETG PRSI ,GROUND>)>
+		       <COND (<PRSO? ,SMALL-VIAL>
+			      <PRINT-GLOOP ,SMALL-VIAL-GLOOPS>
+			      <SETG SMALL-VIAL-TAINTED <>>
+			      <SETG SMALL-VIAL-IMPRECISE <>>
+			      <SETG SMALL-VIAL-GLOOPS 0>
+			      <REMOVE ,SMALL-VIAL-WATER>)
+			     (T
+			      <PRINT-GLOOP ,LARGE-VIAL-GLOOPS>
+			      <SETG LARGE-VIAL-TAINTED <>>
+			      <SETG LARGE-VIAL-IMPRECISE <>>
+			      <SETG LARGE-VIAL-GLOOPS 0>
+			      <REMOVE ,LARGE-VIAL-WATER>)>
+		       <COND (<AND <PRSI? ,BOWL ,ELIXIR>
+				   <IN? ,ELIXIR ,BOWL>>
+			      <REMOVE ,ELIXIR>
+			      <TELL
+" The water and elixir undergo a reaction, and both
+disappear in a cloud of smoke!" CR>)
+			     (<PRSI? ,CUP>
+			      <PERFORM ,V?FILL ,CUP ,WATER>
+			      <RTRUE>)
+			     (T
+		       	      <TELL
+" The water spills all over" T ,PRSI " and then evaporates. The " D ,PRSO
+" is now empty." CR>)>)>)
+	       (<AND <VERB? EMPTY-FROM TAKE ;"REMOVE">
+		     <PRSO? ,WATER>>
+		<COND (<SET NUM <GET-NP ,PRSO>>
+		       <SET NUM <NUMERIC-ADJ? .NUM>>)>
+		<COND (<AND <ZERO? .NUM>
+			    <SET NUM <NP-ADJS <GET-NP ,PRSO>>>>
+		       <SET NUM <CONVERT-NUMBER .NUM>>)>
+		<COND (<NOT .NUM>
+		       <SET NUM .PRSI-VIAL-GLOOPS>)>
+		<COND (<EQUAL? .PRSI-VIAL-GLOOPS 0>
+		       <TELL "The vial is empty!" CR>)
+		      (<G? .NUM .PRSI-VIAL-GLOOPS>
+		       <TELL "There ">
+		       <COND (<NOT <EQUAL? .PRSI-VIAL-GLOOPS 1>>
+			      <TELL "are">)
+			     (T
+			      <TELL "is">)>
+		       <TELL " only " N .PRSI-VIAL-GLOOPS " gloop">
+		       <COND (<NOT <EQUAL? .PRSI-VIAL-GLOOPS 1>>
+			      <TELL "s">)>
+		       <TELL " in" TR ,PRSI>)
+		      (T
+		       <PRINT-GLOOP .NUM>
+		       <SET PRSI-VIAL-GLOOPS <- .PRSI-VIAL-GLOOPS .NUM>>
+		       <COND (<EQUAL? .PRSI-VIAL-GLOOPS 0>
+			      <COND (<PRSI? ,LARGE-VIAL>
+				     <SETG LARGE-VIAL-GLOOPS 0>
+				     <SETG LARGE-VIAL-IMPRECISE <>>
+				     <SETG LARGE-VIAL-TAINTED <>>
+				     <REMOVE ,LARGE-VIAL-WATER>)
+				    (T
+				     <SETG SMALL-VIAL-GLOOPS 0>
+				     <REMOVE ,SMALL-VIAL-WATER>
+				     <SETG SMALL-VIAL-IMPRECISE <>>
+				     <SETG SMALL-VIAL-TAINTED <>>)>
+			      <TELL " You completely empty" TR ,PRSI>)
+			     (T
+			      <COND (<PRSI? ,LARGE-VIAL>
+				     <SETG LARGE-VIAL-GLOOPS
+					   <- ,LARGE-VIAL-GLOOPS .NUM>>
+				     <MOVE ,LARGE-VIAL-WATER ,LARGE-VIAL>
+				     <SETG LARGE-VIAL-IMPRECISE T>)
+				    (T
+				     <SETG SMALL-VIAL-GLOOPS
+					   <- ,SMALL-VIAL-GLOOPS .NUM>>
+				     <MOVE ,SMALL-VIAL-WATER ,SMALL-VIAL>
+				     <SETG SMALL-VIAL-IMPRECISE T>)>
+			      <TELL " You pour">
+			      <NO-GRADATIONS .PRSI-VIAL-GLOOPS>)>)>)>>
+
+<ROUTINE NO-GRADATIONS (VIAL-GLOOPS)
+	 <TELL
+" as carefully as you can, and it appears to the naked eye that there ">
+	 <COND (<NOT <EQUAL? .VIAL-GLOOPS 1>>
+		<TELL "are">)
+	       (T
+		<TELL "is">)>
+	 <TELL " now " N .VIAL-GLOOPS " gloop">
+	 <COND (<NOT <EQUAL? .VIAL-GLOOPS 1>>
+		<TELL "s">)>
+	 <TELL " in the vial. However, since there are no gradations on
+the vial, it's impossible to be certain." CR>>
+
+<ROUTINE PRINT-GLOOP (NUM)
+	 <TELL "\"">
+	 <REPEAT ()
+		 <TELL "Gloop!">
+		 <SET NUM <- .NUM 1>>
+		 <COND (<L? .NUM 1>
+			<RETURN>)
+		       (T
+			<TELL " ">)>>
+	 <TELL "\"">>
+
+<ROUTINE POUR-VIALS (FROM-VIAL TO-VIAL "AUX" SPARE-ROOM)
+	 <COND (<EQUAL? .TO-VIAL ,LARGE-VIAL>
+		<SET SPARE-ROOM <- 9 ,LARGE-VIAL-GLOOPS>>)
+	       (T
+		<SET SPARE-ROOM <- 4 ,SMALL-VIAL-GLOOPS>>)>
+	 <COND (<EQUAL? .SPARE-ROOM 0>
+		<TELL "But" T .TO-VIAL " is already filled to the brim!" CR>)
+	       (<EQUAL? .FROM-VIAL ,LARGE-VIAL>
+		<COND (<G? ,LARGE-VIAL-GLOOPS .SPARE-ROOM>
+		       <COND (,LARGE-VIAL-TAINTED
+			      <SETG SMALL-VIAL-TAINTED T>)>
+		       <PRINT-GLOOP .SPARE-ROOM>
+		       <SETG LARGE-VIAL-GLOOPS
+			     <- ,LARGE-VIAL-GLOOPS .SPARE-ROOM>>
+		       <MOVE ,LARGE-VIAL-WATER ,LARGE-VIAL>
+		       <COND (,SMALL-VIAL-IMPRECISE
+			      <SETG LARGE-VIAL-IMPRECISE T>)>
+		       <SETG SMALL-VIAL-IMPRECISE <>>
+		       <SETG SMALL-VIAL-GLOOPS 4>
+		       <MOVE ,SMALL-VIAL-WATER ,SMALL-VIAL>
+		       <TELL
+" The " D .TO-VIAL " is now filled to the brim." CR>)
+		      (T
+		       <PRINT-GLOOP ,LARGE-VIAL-GLOOPS>
+		       <COND (,LARGE-VIAL-TAINTED
+			      <SETG SMALL-VIAL-TAINTED T>)>
+		       <SETG SMALL-VIAL-GLOOPS
+			     <+ ,SMALL-VIAL-GLOOPS ,LARGE-VIAL-GLOOPS>>
+		       <MOVE ,SMALL-VIAL-WATER ,SMALL-VIAL>
+		       <SETG LARGE-VIAL-GLOOPS 0>
+		       <SETG LARGE-VIAL-TAINTED <>>
+		       <REMOVE ,LARGE-VIAL-WATER>
+		       <COND (,LARGE-VIAL-IMPRECISE
+			      <SETG LARGE-VIAL-IMPRECISE <>>
+			      <SETG SMALL-VIAL-IMPRECISE T>)>
+		       <TELL
+" The " D ,LARGE-VIAL " has been completely emptied into" TR ,SMALL-VIAL>)>)
+	       (<G? ,SMALL-VIAL-GLOOPS .SPARE-ROOM>
+		<COND (,SMALL-VIAL-TAINTED
+		       <SETG LARGE-VIAL-TAINTED T>)>
+		<PRINT-GLOOP .SPARE-ROOM>
+		<SETG SMALL-VIAL-GLOOPS <- ,SMALL-VIAL-GLOOPS .SPARE-ROOM>>
+		<MOVE ,SMALL-VIAL-WATER ,SMALL-VIAL>
+		<SETG LARGE-VIAL-GLOOPS 9>
+		<MOVE ,LARGE-VIAL-WATER ,LARGE-VIAL>
+		<COND (,LARGE-VIAL-IMPRECISE
+		       <SETG SMALL-VIAL-IMPRECISE T>)>
+		<SETG LARGE-VIAL-IMPRECISE <>>
+		<TELL " The " D ,LARGE-VIAL " is now filled to the brim." CR>)
+	       (T
+		<COND (,SMALL-VIAL-TAINTED
+		       <SETG LARGE-VIAL-TAINTED T>)>
+		<PRINT-GLOOP ,SMALL-VIAL-GLOOPS>
+		<SETG LARGE-VIAL-GLOOPS
+		      <+ ,LARGE-VIAL-GLOOPS ,SMALL-VIAL-GLOOPS>>
+		<MOVE ,LARGE-VIAL-WATER ,LARGE-VIAL>
+		<SETG SMALL-VIAL-GLOOPS 0>
+		<REMOVE ,SMALL-VIAL-WATER>
+		<COND (,SMALL-VIAL-IMPRECISE
+		       <SETG LARGE-VIAL-IMPRECISE T>)>
+		<SETG SMALL-VIAL-IMPRECISE <>>
+		<TELL
+" The " D ,SMALL-VIAL " has been completely emptied into" TR ,LARGE-VIAL>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT ORACLE>
+
+<ROOM RUBBLE-ROOM
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Rubble Room")
+      (LDESC
+"You are just within the mouth of a granola mine. Daylight is visible to the
+west. Tunnels wind downward to the north, northeast, and east. Chunks of
+loose rubble, disturbed by the first visitor since the granola riots, fall
+from the roof of the mine.")
+      (WEST TO MINE-ENTRANCE)
+      (OUT TO MINE-ENTRANCE)
+      (EAST TO HEART-OF-MINE)
+      (NORTH TO HEART-OF-MINE)
+      (NE TO HEART-OF-MINE)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (GLOBAL GRANOLA GRANOLA-MINE)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-9>)
+      (ACTION RUBBLE-ROOM-F)>
+
+<GLOBAL RUBBLE-SCORE 9>
+
+<ROUTINE RUBBLE-ROOM-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-END>
+		<RETURN-FROM-MAP>
+		<TELL "   ">
+		<COND (<FSET? ,HARDHAT ,WORNBIT>
+		       <TELL
+"Clunk! A bit of rubble bounces off your hardhat." CR>
+		       <INC-SCORE ,RUBBLE-SCORE>
+		       <SETG RUBBLE-SCORE 0>
+		       <RTRUE>)
+		      (T
+		       <JIGS-UP "A piece of rubble lands on your head.">)>)>>
+
+<ROOM HEART-OF-MINE
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Heart of Mine")
+      (LDESC
+"You are in a major granola mine. Half-mined granola is everywhere. The remains
+of a vast transportation system lies in ruins. Tunnels wind south, southwest,
+and west, and a tiny half-buried tunnel leads downward to the north.")
+      (SOUTH TO RUBBLE-ROOM)
+      (SW TO RUBBLE-ROOM)
+      (WEST TO RUBBLE-ROOM)
+      (NORTH TO CRAWL)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (GLOBAL GRANOLA GRANOLA-MINE)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-10>)>
+
+<ROOM CRAWL
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Crawl")
+      (LDESC
+"You are in a poorly dug tunnel, not even tall enough to stand up in. The
+tunnel curves slightly, running from south to northwest.")
+      (SOUTH TO HEART-OF-MINE)
+      (NW TO DEAD-END)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (GLOBAL GRANOLA GRANOLA-MINE)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-10>)>
+
+<OBJECT CRAWL-REBUS-BUTTON
+	(LOC CRAWL)
+	(SDESC "blinking key-shaped button")
+	(FDESC
+"Imbedded in the rocky wall is a blinking button in the shape of a key.")
+	(SYNONYM BUTTON)
+	(ADJECTIVE KEY-SHAPED BLINKING)
+	(ACTION REBUS-BUTTON-F)>
+
+<ROOM DEAD-END
+      (LOC ROOMS)
+      (REGION "Antharia")
+      (DESC "Dead End")
+      (LDESC
+"The low tunnel ends here in a small cul-de-sac. The way back is southeast.")
+      (SE TO CRAWL)
+      (OUT TO CRAWL)
+      (FLAGS RLANDBIT BEYONDBIT UNDERGROUNDBIT)
+      (GLOBAL GRANOLA GRANOLA-MINE)
+      (MAP-LOC <PTABLE ANTHARIA-MAP-NUM MAP-GEN-Y-1 MAP-GEN-X-9>)
+      (ICON DEAD-END-ICON)>
+
+<OBJECT QUILL-PEN
+	(LOC DEAD-END)
+	(DESC "quill pen")
+	(SYNONYM PEN QUILL)
+	(ADJECTIVE QUILL)
+	(VALUE 12)
+	(SIZE 3)
+	(FLAGS TAKEBIT MAGICBIT)>
+
+<OBJECT GRANOLA-MINE
+	(LOC LOCAL-GLOBALS)
+	(DESC "granola mine")
+	(SYNONYM MINE)
+	(ADJECTIVE GRANOLA)
+	(RESEARCH
+"\"The granola mines in northern Antharia once supplied seemingly limitless
+quantities of granola. Since the Granola Riots of 865 GUE, the causes of
+which are well known, the output of the mines has fallen sharply.\"")
+	(ACTION GRANOLA-MINE-F)>
+
+<ROUTINE GRANOLA-MINE-F ()
+	 <COND (<VERB? ENTER>
+		<COND (<EQUAL? ,HERE ,MINE-ENTRANCE>
+		       <DO-WALK ,P?IN>)
+		      (T
+		       <TELL ,LOOK-AROUND>)>)
+	       (<NOT <EQUAL? ,HERE ,MINE-ENTRANCE>>
+		<PERFORM-PRSA ,GLOBAL-HERE>)>>
+
+<OBJECT GRANOLA
+	(LOC LOCAL-GLOBALS)
+	(DESC "granola")
+	(SYNONYM GRANOLA)
+	(FLAGS NARTICLEBIT)
+	(RESEARCH
+"\"The granola mines in northern Antharia once supplied seemingly limitless
+quantities of granola. Since the Granola Riots of 865 GUE, the causes of
+which are well known, the output of the mines has fallen sharply.\"")
+	(ACTION GRANOLA-F)>
+
+<ROUTINE GRANOLA-F ()
+	 <COND (<VERB? EXAMINE>
+		<STEP-IN-IT "looks">)
+	       (<VERB? EAT TASTE>
+		<STEP-IN-IT "tastes">)
+	       (<VERB? SMELL>
+		<STEP-IN-IT "smells">)
+	       (<VERB? STAND-ON ENTER>
+		<TELL "Oh, yechh!" CR>)
+	       (<TOUCHING? ,GRANOLA>
+		<STEP-IN-IT "feels">)>>
+
+<ROUTINE STEP-IN-IT (STRING)
+	 <TELL
+"It " .STRING " just like granola. Good thing you didn't step in it." CR>>
\ No newline at end of file
diff --git a/parser.zap b/parser.zap
new file mode 100644
index 0000000..6151cbd
--- /dev/null
+++ b/parser.zap
@@ -0,0 +1,1045 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	BEG-PARDON
+	PRINTR	"[I beg your pardon?]"
+
+
+	.FUNCT	UNKNOWN-WORD,RLEXV,X
+	CALL2	NUMBER?,RLEXV >X
+	ZERO?	X /?CCL3
+	RETURN	X
+?CCL3:	PRINTI	"[I don't know the word """
+	SUB	RLEXV,P-LEXV
+	DIV	STACK,2
+	PUT	OOPS-TABLE,O-PTR,STACK
+	ICALL2	WORD-PRINT,RLEXV
+	PRINTI	".""]"
+	CRLF	
+	ICALL2	COUNT-ERRORS,1
+	THROW	PARSER-RESULT-DEAD,PARSE-SENTENCE-ACTIVATION
+	RTRUE	
+
+
+	.FUNCT	WORD-PRINT,PTR,LEN,OFFS
+	ASSIGNED?	'LEN /?CND1
+	GETB	PTR,2 >LEN
+?CND1:	ASSIGNED?	'OFFS /?PRG5
+	GETB	PTR,3 >OFFS
+?PRG5:	DLESS?	'LEN,0 /TRUE
+	GETB	P-INBUF,OFFS
+	PRINTC	STACK
+	INC	'OFFS
+	JUMP	?PRG5
+
+
+	.FUNCT	PRINT-VOCAB-WORD,WD,TMP,?TMP1
+	ADD	LONG-WORD-TABLE,2 >?TMP1
+	GET	LONG-WORD-TABLE,0
+	DIV	STACK,2
+	INTBL?	WD,?TMP1,STACK,132 >TMP \?CCL3
+	GET	TMP,1
+	PRINT	STACK
+	RTRUE	
+?CCL3:	EQUAL?	WD,W?INT.NUM,W?INT.TIM /FALSE
+	PRINTB	WD
+	RTRUE	
+
+
+	.FUNCT	MOBY-FIND?,SEARCH
+	BTST	SEARCH,128 /TRUE
+	EQUAL?	WINNER,EXECUTIONER /TRUE
+	RFALSE	
+
+
+	.FUNCT	NP-SAVE,ROBJ,TMP
+	COPYT	SEARCH-RES,ORPHAN-SR,20
+	COPYT	ROBJ,ORPHAN-NP,20
+	GET	ROBJ,5 >TMP
+	ZERO?	TMP /?CCL3
+	GET	TMP,2
+	COPYT	STACK,ORPHAN-NP2,10
+	PUT	ORPHAN-NP,5,ORPHAN-NP2
+	JUMP	?CND1
+?CCL3:	GET	ROBJ,4 >TMP
+	ZERO?	TMP /?CCL5
+	COPYT	TMP,ORPHAN-NP2,20
+	PUT	ORPHAN-NP,4,ORPHAN-NP2
+	JUMP	?CND1
+?CCL5:	GET	ROBJ,6 >TMP
+	ZERO?	TMP /?CND1
+	COPYT	TMP,ORPHAN-NP2,20
+	PUT	ORPHAN-NP,6,ORPHAN-NP2
+?CND1:	GET	ROBJ,1 >TMP
+	ZERO?	TMP /?CCL9
+	COPYT	TMP,ORPHAN-ADJS,18
+	PUT	ORPHAN-NP,1,ORPHAN-ADJS
+	GET	TMP,2 >TMP
+	GRTR?	0,TMP /?CCL12
+	GRTR?	TMP,LAST-OBJECT /?CCL12
+	PUT	ORPHAN-ADJS,2,TMP
+	RETURN	ORPHAN-NP
+?CCL12:	COPYT	TMP,ORPHAN-NP2,20
+	PUT	ORPHAN-ADJS,2,ORPHAN-NP2
+	RETURN	ORPHAN-NP
+?CCL9:	PUT	ORPHAN-NP,1,0
+	RETURN	ORPHAN-NP
+
+
+	.FUNCT	PARSER-ERROR,STR,CLASS,OTHER,OTHER2,RP
+	ZERO?	CURRENT-REDUCTION /FALSE
+	GET	CURRENT-REDUCTION,2 >RP
+	GRTR?	ERROR-PRIORITY,RP /?CCL3
+	EQUAL?	ERROR-PRIORITY,RP \FALSE
+	EQUAL?	CLASS,PARSER-ERROR-NOUND /?PRD9
+	GET	ERROR-ARGS,1
+	EQUAL?	STACK,PARSER-ERROR-NOUND /?CCL3
+?PRD9:	EQUAL?	CLASS,PARSER-ERROR-ORPH-NP /?CCL3
+	EQUAL?	CLASS,PARSER-ERROR-NOOBJ,PARSER-ERROR-ORPH-S \FALSE
+	GET	ERROR-ARGS,1
+	EQUAL?	STACK,PARSER-ERROR-NOUND \FALSE
+?CCL3:	SET	'ERROR-PRIORITY,RP
+	SET	'ERROR-STRING,STR
+	ZERO?	CLASS /?CCL17
+	PUT	ERROR-ARGS,0,3
+	PUT	ERROR-ARGS,1,CLASS
+	PUT	ERROR-ARGS,2,OTHER
+	PUT	ERROR-ARGS,3,OTHER2
+	CALL2	PMEM?,OTHER
+	ZERO?	STACK /FALSE
+	GETB	OTHER,1
+	EQUAL?	STACK,4 \?CND20
+	GET	OTHER,4 >OTHER
+?CND20:	GETB	OTHER,1
+	EQUAL?	STACK,2 \FALSE
+	CALL2	NP-SAVE,OTHER
+	PUT	ERROR-ARGS,2,STACK
+	RFALSE	
+?CCL17:	PUT	ERROR-ARGS,0,0
+	RFALSE	
+
+
+	.FUNCT	TELL-THE,OBJ,TMP
+	EQUAL?	OBJ,PLAYER \?CCL3
+	PRINTI	"you"
+	RTRUE	
+?CCL3:	CALL2	GET-OWNER,OBJ >TMP
+	ZERO?	TMP /?CCL6
+	EQUAL?	TMP,PLAYER \?CCL9
+	PRINTI	"your "
+	JUMP	?CND4
+?CCL9:	EQUAL?	TMP,OBJ /?CND4
+	ICALL2	TELL-THE,TMP
+	PRINTI	"'s "
+	JUMP	?CND4
+?CCL6:	FSET?	OBJ,NARTICLEBIT /?CND4
+	PRINTI	"the "
+?CND4:	CALL2	DPRINT,OBJ
+	RSTACK	
+
+
+	.FUNCT	TELL-CTHE,OBJ,TMP
+	EQUAL?	OBJ,PLAYER \?CCL3
+	PRINTI	"You"
+	RTRUE	
+?CCL3:	CALL2	GET-OWNER,OBJ >TMP
+	ZERO?	TMP /?CCL6
+	EQUAL?	TMP,PLAYER \?CCL9
+	PRINTI	"Your "
+	JUMP	?CND4
+?CCL9:	EQUAL?	TMP,OBJ /?CND4
+	ICALL2	TELL-CTHE,TMP
+	PRINTI	"'s "
+	JUMP	?CND4
+?CCL6:	FSET?	OBJ,NARTICLEBIT /?CND4
+	PRINTI	"The "
+?CND4:	CALL2	DPRINT,OBJ
+	RSTACK	
+
+
+	.FUNCT	WORD-TYPE?,WD,TYP,TYP2,GC,WCN
+	GETB	WD,8
+	BTST	STACK,128 /?CCL3
+	GETB	WD,8 >WCN
+	JUMP	?CND1
+?CCL3:	GETB	WD,8
+	BAND	STACK,127
+	SHIFT	STACK,7 >WCN
+?CND1:	ZERO?	WCN \?CND4
+	GET	WD,3 >WD
+	GETB	WD,8
+	BTST	STACK,128 /?CCL8
+	GETB	WD,8 >WCN
+	JUMP	?CND4
+?CCL8:	GETB	WD,8
+	BAND	STACK,127
+	SHIFT	STACK,7 >WCN
+?CND4:	ASSIGNED?	'TYP2 \?CND9
+	CALL	WORD-TYPE?,WD,TYP2
+	ZERO?	STACK /?CND9
+	RETURN	WD
+?CND9:	EQUAL?	TYP,P-COMMA-CODE \?CCL15
+	EQUAL?	WD,W?COMMA,W?AND \?CCL15
+	RETURN	WD
+?CCL15:	EQUAL?	TYP,P-ADJ-CODE \?CCL19
+	SET	'GC,4
+	JUMP	?CND13
+?CCL19:	EQUAL?	TYP,P-DIR-CODE \?CCL21
+	SET	'GC,8
+	JUMP	?CND13
+?CCL21:	EQUAL?	TYP,P-EOI-CODE \?CCL23
+	SET	'GC,8192
+	JUMP	?CND13
+?CCL23:	EQUAL?	TYP,P-NOUN-CODE \?CCL25
+	SET	'GC,2
+	JUMP	?CND13
+?CCL25:	EQUAL?	TYP,P-PARTICLE-CODE \?CCL27
+	SET	'GC,16
+	JUMP	?CND13
+?CCL27:	EQUAL?	TYP,P-PREP-CODE \?CCL29
+	SET	'GC,32
+	JUMP	?CND13
+?CCL29:	EQUAL?	TYP,P-QUANT-CODE \?CCL31
+	SET	'GC,2048
+	JUMP	?CND13
+?CCL31:	EQUAL?	TYP,P-QW1-CODE \?CCL33
+	SET	'GC,0
+	JUMP	?CND13
+?CCL33:	EQUAL?	TYP,P-VERB-CODE \?CND13
+	SET	'GC,1
+?CND13:	BAND	WCN,GC
+	ZERO?	STACK /FALSE
+	RETURN	WD
+
+
+	.FUNCT	IGNORE-FIRST-WORD,WD1,WD2,NW
+	ASSIGNED?	'WD2 /?CND1
+	SET	'WD2,1
+?CND1:	GET	TLEXV,0
+	EQUAL?	STACK,WD1,WD2 \FALSE
+	LESS?	1,P-LEN \FALSE
+	GET	TLEXV,P-LEXELEN >NW
+	ZERO?	NW /FALSE
+	GETB	NW,8
+	BTST	STACK,128 /?CCL12
+	GETB	NW,8
+	JUMP	?CND10
+?CCL12:	GETB	NW,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND10:	BTST	STACK,1 \FALSE
+	ADD	TLEXV,4 >TLEXV
+	DEC	'P-LEN
+	RTRUE	
+
+
+	.FUNCT	FIX-TITLE-ABBRS,LEN,PTR,N,L
+	GETB	P-LEXV,P-LEXWORDS >LEN
+	SET	'PTR,P-LEXV+2
+	SET	'L,LEN
+?PRG1:	DLESS?	'L,0 /TRUE
+	GET	PTR,0
+	EQUAL?	STACK,W?ST,W?D,W?J /?PRD8
+	GET	PTR,0
+	EQUAL?	STACK,W?A \?CND3
+?PRD8:	GET	PTR,2
+	EQUAL?	W?PERIOD,STACK \?CND3
+	GET	PTR,4
+	CALL2	CAPITAL-NOUN?,STACK
+	ZERO?	STACK /?CND3
+	PUT	PTR,2,W?NO.WORD
+?CND3:	ADD	PTR,4 >PTR
+	JUMP	?PRG1
+
+
+	.FUNCT	FIX-QUOTATIONS,X,QFLAG,LEN,PTR
+	SET	'QFLAG,FALSE-VALUE
+	GETB	P-LEXV,P-LEXWORDS >LEN
+	SET	'PTR,P-LEXV+2
+?PRG1:	ZERO?	LEN /TRUE
+	INTBL?	W?QUOTE,PTR,LEN,132 >PTR \TRUE
+	ZERO?	QFLAG \?CCL10
+	SET	'QFLAG,TRUE-VALUE
+	SUB	PTR,P-LEXV
+	DIV	STACK,2
+	ADD	2,STACK >X
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,P-LEXV,X
+	PUT	P-LEXV,X,W?NO.WORD
+	JUMP	?CND8
+?CCL10:	SET	'QFLAG,FALSE-VALUE
+?CND8:	ADD	PTR,4 >PTR
+	SUB	PTR,P-LEXV
+	DIV	STACK,4 >X
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,X >LEN
+	JUMP	?PRG1
+
+
+	.FUNCT	PARSER,OWINNER,LEN,N,PTR,VAL,?PR-LEN,CNT,?TMP1
+	SET	'PTR,P-LEXSTART
+	ICALL1	PMEM-RESET
+	SET	'ERROR-PRIORITY,255
+	SET	'ERROR-STRING,FALSE-VALUE
+	SET	'OWINNER,WINNER
+	ZERO?	M-PTR /?CCL4
+	COPYT	M-LEXV,P-LEXV,LEXV-LENGTH-BYTES
+	COPYT	M-INBUF,P-INBUF,61
+	SET	'P-LEN,M-LEN
+	ZERO?	VERBOSITY /?CND5
+	EQUAL?	PLAYER,WINNER \?CND5
+	CRLF	
+?CND5:	SET	'TLEXV,M-PTR
+	SET	'M-PTR,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND2
+?CCL4:	GRTR?	P-CONT,0 \?CCL10
+	SET	'TLEXV,P-CONT
+	ZERO?	VERBOSITY /?CND11
+	EQUAL?	PLAYER,WINNER \?CND11
+	CRLF	
+?CND11:	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND2
+?CCL10:	SET	'WINNER,PLAYER
+	ZERO?	P-OFLAG \?CND15
+	GET	OOPS-TABLE,O-PTR
+	ZERO?	STACK \?CND15
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND15:	LOC	WINNER
+	IN?	STACK,ROOMS \?CND19
+	LOC	WINNER >HERE
+?CND19:	ZERO?	LIT /?CCL22
+	EQUAL?	HERE,LIT /?CND21
+	CALL2	VISIBLE?,LIT
+	ZERO?	STACK \?CND21
+?CCL22:	CALL1	LIT? >LIT
+?CND21:	FCLEAR	IT,TOUCHBIT
+	FCLEAR	HER,TOUCHBIT
+	FCLEAR	HIM,TOUCHBIT
+	GET	0,8
+	BTST	STACK,4 \?CND27
+	ICALL1	V-$REFRESH
+?CND27:	ZERO?	VERBOSITY /?CND29
+	CRLF	
+?CND29:	ICALL1	UPDATE-STATUS-LINE
+	PRINTC	62
+	ICALL1	READ-INPUT
+	ICALL1	FIX-QUOTATIONS
+	ICALL1	FIX-TITLE-ABBRS
+	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	SET	'TLEXV,P-LEXV+2
+?CND2:	GET	TLEXV,0
+	EQUAL?	STACK,W?PERIOD,W?THEN \?CND32
+	ADD	TLEXV,4 >TLEXV
+	DEC	'P-LEN
+?CND32:	ICALL2	IGNORE-FIRST-WORD,W?YOU
+	ICALL	IGNORE-FIRST-WORD,W?GO,W?TO
+	ZERO?	P-LEN \?CND34
+	ICALL1	BEG-PARDON
+	RFALSE	
+?CND34:	GET	TLEXV,0
+	CALL	WORD-TYPE?,STACK,P-DIR-CODE >LEN
+	ZERO?	LEN /?CCL38
+	EQUAL?	P-LEN,1 /?CTR37
+	SUB	TLEXV,P-LEXV
+	LESS?	STACK,234 \?CTR37
+	GET	TLEXV,P-LEXELEN
+	CALL	WORD-TYPE?,STACK,P-EOI-CODE,P-COMMA-CODE
+	ZERO?	STACK /?CCL38
+?CTR37:	PUT	STATE-STACK,0,20
+	PUT	DATA-STACK,0,20
+	XPUSH	LEN,DATA-STACK /?BOGUS44
+?BOGUS44:	ICALL2	RED-SD,1
+	SET	'P-CONT,FALSE-VALUE
+	SET	'P-OFLAG,0
+	SET	'P-WORDS-AGAIN,1
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+	SET	'M-PTR,FALSE-VALUE
+	PUTB	P-LEXV,P-LEXWORDS,P-LEN
+	COPYT	P-LEXV,G-LEXV,LEXV-LENGTH-BYTES
+	COPYT	P-INBUF,G-INBUF,61
+	PUT	PARSE-RESULT,13,0
+	DEC	'P-LEN
+	LESS?	0,P-LEN \TRUE
+	ADD	TLEXV,4 >TLEXV
+	GET	TLEXV,0 >LEN
+	ZERO?	LEN /TRUE
+	GETB	LEN,8
+	BTST	STACK,128 /?CCL52
+	GETB	LEN,8
+	JUMP	?CND50
+?CCL52:	GETB	LEN,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND50:	BTST	STACK,8192 \TRUE
+	SET	'P-WORDS-AGAIN,P-WORD-NUMBER
+	DLESS?	'P-LEN,1 /TRUE
+	ADD	TLEXV,4 >P-CONT
+	RTRUE	
+?CCL38:	GET	TLEXV,0
+	EQUAL?	STACK,W?OOPS,W?O \?CCL56
+	GET	TLEXV,P-LEXELEN
+	EQUAL?	STACK,W?PERIOD,W?COMMA \?CND59
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND59:	GRTR?	P-LEN,1 /?CCL63
+	ICALL1	NAKED-OOPS
+	RFALSE	
+?CCL63:	CALL2	META-LOC,OWINNER
+	EQUAL?	HERE,STACK /?CCL65
+	ICALL2	NOT-HERE,OWINNER
+	RFALSE	
+?CCL65:	GET	OOPS-TABLE,O-PTR >VAL
+	ZERO?	VAL /?CCL67
+	SUB	P-LEN,1
+	ICALL	REPLACE-ONE-TOKEN,STACK,P-LEXV,PTR,G-LEXV,VAL
+	SET	'WINNER,OWINNER
+	ICALL2	COPY-INPUT,TRUE-VALUE
+	JUMP	?CND36
+?CCL67:	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+	ICALL1	CANT-OOPS
+	RFALSE	
+?CCL56:	ZERO?	P-OFLAG \?CND36
+	LESS?	P-CONT,1 \?CND36
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND36:	SET	'P-CONT,FALSE-VALUE
+	GET	TLEXV,0
+	EQUAL?	STACK,W?AGAIN,W?G \?CCL73
+	ZERO?	P-OFLAG \?CTR75
+	ZERO?	P-WON /?CTR75
+	GETB	G-INBUF,2
+	ZERO?	STACK \?CCL76
+?CTR75:	ICALL1	CANT-AGAIN
+	RFALSE	
+?CCL76:	GRTR?	P-LEN,1 \?CND74
+	SUB	TLEXV,P-LEXV
+	LESS?	STACK,234 \?CND74
+	GET	TLEXV,P-LEXELEN >N
+	EQUAL?	N,W?PERIOD,W?COMMA,W?THEN /?CTR84
+	EQUAL?	N,W?AND \?CCL85
+?CTR84:	ADD	TLEXV,4 >TLEXV
+	DEC	'P-LEN
+?CND74:	DEC	'P-LEN
+	ADD	TLEXV,4 >TLEXV
+	GRTR?	P-LEN,0 \?CCL90
+	COPYT	P-LEXV,M-LEXV,LEXV-LENGTH-BYTES
+	COPYT	P-INBUF,M-INBUF,61
+	SET	'M-LEN,P-LEN
+	SET	'M-PTR,TLEXV
+	SET	'P-CONT,M-PTR
+	JUMP	?CND88
+?CCL85:	ICALL1	DONT-UNDERSTAND
+	RFALSE	
+?CCL90:	SET	'M-PTR,FALSE-VALUE
+?CND88:	CALL2	META-LOC,OWINNER
+	EQUAL?	HERE,STACK /?CND91
+	ICALL2	NOT-HERE,OWINNER
+	RFALSE	
+?CND91:	SET	'WINNER,OWINNER
+	COPYT	G-INBUF,P-INBUF,61
+	COPYT	G-LEXV,P-LEXV,LEXV-LENGTH-BYTES
+	SET	'P-LEN,P-WORDS-AGAIN
+	GET	OOPS-TABLE,O-START >TLEXV
+	JUMP	?CND71
+?CCL73:	SET	'M-PTR,FALSE-VALUE
+	PUTB	P-LEXV,P-LEXWORDS,P-LEN
+	COPYT	P-LEXV,G-LEXV,LEXV-LENGTH-BYTES
+	COPYT	P-INBUF,G-INBUF,61
+	PUT	OOPS-TABLE,O-START,TLEXV
+	PUT	OOPS-TABLE,O-LENGTH,P-LEN
+	GET	OOPS-TABLE,O-END
+	ZERO?	STACK \?CND71
+	GETB	P-LEXV,P-LEXWORDS
+	MUL	4,STACK >LEN
+	DEC	'LEN
+	GETB	TLEXV,LEN >?TMP1
+	DEC	'LEN
+	GETB	TLEXV,LEN
+	ADD	?TMP1,STACK
+	PUT	OOPS-TABLE,O-END,STACK
+?CND71:	SET	'P-WALK-DIR,FALSE-VALUE
+	CALL2	PARSE-IT,FALSE-VALUE >CNT
+?PRG95:	ZERO?	CNT \?CCL99
+	CALL1	PRINT-PARSER-FAILURE >CNT
+	JUMP	?PRG95
+?CCL99:	EQUAL?	CNT,1 /FALSE
+	PUT	OOPS-TABLE,O-PTR,FALSE-VALUE
+	CALL1	GAME-VERB?
+	ZERO?	STACK \?CND102
+	SET	'P-OFLAG,0
+?CND102:	GET	CNT,0 >LEN
+	EQUAL?	LEN,W?TWICE,W?THRICE \?CND104
+	GET	OOPS-TABLE,O-START
+	INTBL?	LEN,STACK,P-WORDS-AGAIN,132 >N \?CND104
+	ICALL	CHANGE-LEXV,N,W?ONCE
+	EQUAL?	LEN,W?THRICE \?CCL110
+	PUSH	2
+	JUMP	?CND108
+?CCL110:	PUSH	1
+?CND108:	ICALL2	DO-IT-AGAIN,STACK
+	CALL2	PARSE-IT,FALSE-VALUE >CNT
+	JUMP	?PRG95
+?CND104:	EQUAL?	LEN,W?DON'T \?CND111
+	EQUAL?	WINNER,EXECUTIONER \?CCL115
+	PRINTI	"""Tell me what you want me to do, not what you don't."""
+	CRLF	
+	RFALSE	
+?CCL115:	PRINTI	"[Not done.]"
+	CRLF	
+	RFALSE	
+?CND111:	GET	GWIM-MSG,1
+	ZERO?	STACK /TRUE
+	ICALL1	TELL-GWIM-MSG
+	PUT	GWIM-MSG,1,0
+	RTRUE	
+
+
+	.FUNCT	TELL-GWIM-MSG,WD,VB
+	PRINTC	91
+	GET	GWIM-MSG,0 >WD
+	ZERO?	WD /?CND1
+	ICALL2	PRINT-VOCAB-WORD,WD
+	PRINTC	32
+	GET	PARSER-RESULT,1 >VB
+	EQUAL?	VB,W?SIT,W?LIE \?CCL5
+	EQUAL?	WD,W?DOWN \?CND1
+	PRINTI	"on "
+	JUMP	?CND1
+?CCL5:	EQUAL?	VB,W?GET \?CND1
+	EQUAL?	WD,W?OUT \?CND1
+	PRINTI	"of "
+?CND1:	GET	GWIM-MSG,1
+	ICALL2	TELL-THE,STACK
+	PRINTR	"]"
+
+
+	.FUNCT	PARSE-IT,V,RES,NUM,SAV-LEXV,OLD-OBJECT,TV,T2,?TMP1
+	SET	'SAV-LEXV,TLEXV
+	PUT	SPLIT-STACK,0,0
+	SET	'ERROR-PRIORITY,255
+	PUT	ERROR-ARGS,1,0
+	SET	'P-OLEN,P-LEN
+	SET	'OTLEXV,TLEXV
+?PRG1:	INC	'NUM
+	ICALL2	BE-PATIENT,NUM
+	PUT	STATE-STACK,0,20
+	XPUSH	1,STATE-STACK /?BOGUS3
+?BOGUS3:	PUT	DATA-STACK,0,20
+	ICALL2	PMEM-RESET,FALSE-VALUE
+	SET	'P-WORD-NUMBER,0
+	SET	'TLEXV,SAV-LEXV
+	SET	'P-LEN,P-OLEN
+	PUT	GWIM-MSG,0,0
+	PUT	GWIM-MSG,1,0
+	SET	'OLD-OBJECT,PARSE-RESULT
+	PUT	OLD-OBJECT,0,FALSE-VALUE
+	ZERO?	V \?CCL6
+	PUSH	0
+	JUMP	?CND4
+?CCL6:	GET	V,1
+?CND4:	PUT	OLD-OBJECT,1,STACK
+	PUT	OLD-OBJECT,2,FALSE-VALUE
+	PUT	OLD-OBJECT,3,FALSE-VALUE
+	PUT	OLD-OBJECT,4,FALSE-VALUE
+	ZERO?	V \?CCL9
+	PUSH	0
+	JUMP	?CND7
+?CCL9:	GET	V,5
+?CND7:	PUT	OLD-OBJECT,5,STACK
+	PUT	OLD-OBJECT,6,FALSE-VALUE
+	PUT	OLD-OBJECT,7,FALSE-VALUE
+	PUT	OLD-OBJECT,8,FALSE-VALUE
+	ZERO?	V \?CCL12
+	PUSH	0
+	JUMP	?CND10
+?CCL12:	GET	V,9
+?CND10:	PUT	OLD-OBJECT,9,STACK
+	ZERO?	V \?CCL15
+	PUSH	0
+	JUMP	?CND13
+?CCL15:	GET	V,10
+?CND13:	PUT	OLD-OBJECT,10,STACK
+	ZERO?	V \?CCL18
+	PUSH	0
+	JUMP	?CND16
+?CCL18:	GET	V,11
+?CND16:	PUT	OLD-OBJECT,11,STACK
+	PUT	OLD-OBJECT,12,FALSE-VALUE
+	ZERO?	V \?CCL21
+	PUSH	0
+	JUMP	?CND19
+?CCL21:	GET	V,13
+?CND19:	PUT	OLD-OBJECT,13,STACK
+	ZERO?	V \?CCL24
+	PUSH	0
+	JUMP	?CND22
+?CCL24:	GET	V,14
+?CND22:	PUT	OLD-OBJECT,14,STACK
+	PUT	OLD-OBJECT,15,FALSE-VALUE
+	PUT	OLD-OBJECT,16,0
+	CALL2	PARSE-SENTENCE,PARSE-RESULT >RES
+	EQUAL?	RES,PARSER-RESULT-AGAIN \?CCL27
+	PUT	SPLIT-STACK,0,0
+	SET	'ERROR-PRIORITY,255
+	SET	'P-OLEN,P-LEN
+	SET	'SAV-LEXV,TLEXV
+	JUMP	?PRG1
+?CCL27:	LESS?	RES,PARSER-RESULT-WON \?REP2
+	GET	SPLIT-STACK,0
+	ZERO?	STACK /?REP2
+	ZERO?	RES /?REP2
+?PRG33:	GET	SPLIT-STACK,0 >T2
+	SUB	T2,1
+	GET	SPLIT-STACK,STACK
+	ZERO?	STACK \?CCL37
+	GET	SPLIT-STACK,T2 >OLD-OBJECT
+	ZERO?	OLD-OBJECT /?CTR39
+	GET	OLD-OBJECT,0
+	ZERO?	STACK /?CTR39
+	ADD	OLD-OBJECT,4 >TV
+	GET	TV,0
+	ZERO?	STACK \?CCL40
+?CTR39:	SUB	T2,2
+	PUT	SPLIT-STACK,0,STACK
+	JUMP	?CND35
+?CCL40:	PUT	SPLIT-STACK,T2,TV
+	JUMP	?REP34
+?CCL37:	GET	SPLIT-STACK,T2 >?TMP1
+	SUB	T2,1
+	GET	SPLIT-STACK,STACK
+	EQUAL?	?TMP1,STACK \?CCL45
+	SUB	T2,2
+	PUT	SPLIT-STACK,0,STACK
+?CND35:	GET	SPLIT-STACK,0
+	ZERO?	STACK \?PRG33
+?REP34:	GET	SPLIT-STACK,0
+	ZERO?	STACK \?PRG1
+?REP2:	SUB	0,NUM
+	ICALL2	BE-PATIENT,STACK
+	EQUAL?	RES,PARSER-RESULT-WON \?CCL52
+	RETURN	PARSER-RESULT
+?CCL45:	GET	SPLIT-STACK,T2
+	ADD	1,STACK
+	PUT	SPLIT-STACK,T2,STACK
+	JUMP	?REP34
+?CCL52:	ZERO?	RES /TRUE
+	RFALSE	
+
+
+	.FUNCT	BUZZER-WORD?,WD,PTR,N,?TMP1
+	ADD	3,P-ERRS >P-ERRS
+	EQUAL?	WD,W?(SOMETHI,W?SOMETHING \?CCL3
+	PRINTI	"[Type a real word instead of"
+	PRINT	P-SOMETHING
+	RTRUE	
+?CCL3:	GET	P-W-WORDS,0
+	INTBL?	WD,P-W-WORDS+2,STACK \?CCL5
+	ICALL2	W-WORD-REPLY,WD
+	RTRUE	
+?CCL5:	ADD	P-Q-WORDS,2 >?TMP1
+	GET	P-Q-WORDS,0
+	INTBL?	WD,?TMP1,STACK /?CCL6
+	GET	P-Q-WORDS1,0
+	INTBL?	WD,P-Q-WORDS1+2,STACK \?CND1
+?CCL6:	ICALL1	TELL-PLEASE-USE-COMMANDS
+	RTRUE	
+?CND1:	GET	P-N-WORDS,0
+	INTBL?	WD,P-N-WORDS+2,STACK \?CCL11
+	PRINTR	"[Use numerals for numbers, for example ""10.""]"
+?CCL11:	GET	P-C-WORDS,0
+	INTBL?	WD,P-C-WORDS+2,STACK \FALSE
+	PRINTC	91
+	CALL2	PICK-ONE,OFFENDED
+	PRINT	STACK
+	PRINTR	"]"
+
+
+	.FUNCT	W-WORD-REPLY,WD
+	EQUAL?	WD,W?WHAT,W?WHO \?CTR2
+	EQUAL?	WINNER,PLAYER /?CCL3
+?CTR2:	EQUAL?	WD,W?WHERE \?CCL8
+	ICALL	TO-DO-X-USE-Y,STR?7,STR?8
+	RTRUE	
+?CCL8:	ICALL	TO-DO-X-USE-Y,STR?9,STR?10
+	RTRUE	
+?CCL3:	PRINTI	"[Maybe you could "
+	FSET?	LIBRARY,TOUCHBIT \?CCL11
+	PRINTI	"look that up in the"
+	JUMP	?CND9
+?CCL11:	PRINTI	"find an"
+?CND9:	PRINTR	" encyclopedia.]"
+
+
+	.FUNCT	TO-DO-X-USE-Y,STR1,STR2
+	PRINTI	"[To "
+	PRINT	STR1
+	PRINTI	" something, use the command: "
+	PRINT	STR2
+	PRINT	P-SOMETHING
+	RTRUE	
+
+
+	.FUNCT	TELL-PLEASE-USE-COMMANDS,THRESH
+	FSET?	GREAT-HALL,TOUCHBIT \?CCL3
+	SET	'THRESH,10
+	JUMP	?CND1
+?CCL3:	SET	'THRESH,2
+?CND1:	PRINTC	91
+	LESS?	P-ERRS,THRESH \?CCL6
+	PRINT	STR?12
+	PRINTI	", not statements or questions"
+	PRINTR	".]"
+?CCL6:	CALL1	TELL-SAMPLE-COMMANDS
+	RSTACK	
+
+
+	.FUNCT	NUMBER?,RLEXV,BPTR,SUM,TIM,NEG,CHR,CNT,?TMP1
+	GETB	RLEXV,3 >BPTR
+	GETB	RLEXV,2 >CNT
+?PRG1:	DLESS?	'CNT,0 /?REP2
+	GETB	P-INBUF,BPTR >CHR
+	EQUAL?	CHR,58 \?CCL8
+	SET	'TIM,SUM
+	SET	'SUM,0
+	JUMP	?CND6
+?CCL8:	EQUAL?	CHR,45 \?CCL10
+	ZERO?	NEG \FALSE
+	SET	'NEG,TRUE-VALUE
+	JUMP	?CND6
+?CCL10:	GRTR?	CHR,57 /FALSE
+	LESS?	CHR,48 /FALSE
+	GRTR?	SUM,3276 /FALSE
+	MUL	SUM,10 >?TMP1
+	SUB	CHR,48
+	ADD	?TMP1,STACK >SUM
+?CND6:	INC	'BPTR
+	JUMP	?PRG1
+?REP2:	ZERO?	TIM /?CCL22
+	GRTR?	TIM,23 /FALSE
+	ZERO?	NEG \FALSE
+	MUL	TIM,60
+	ADD	SUM,STACK >SUM
+	ICALL	CHANGE-LEXV,RLEXV,W?INT.TIM,BPTR,SUM
+	RETURN	W?INT.TIM
+?CCL22:	ZERO?	NEG /?CND27
+	SUB	0,SUM >SUM
+?CND27:	ICALL	CHANGE-LEXV,RLEXV,W?INT.NUM,BPTR,SUM
+	RETURN	W?INT.NUM
+
+
+	.FUNCT	CHANGE-LEXV,PTR,WRD,BPTR,SUM,X
+	PUT	PTR,0,WRD
+	SUB	PTR,P-LEXV
+	ADD	G-LEXV,STACK >X
+	PUT	X,0,WRD
+	ASSIGNED?	'BPTR \FALSE
+	PUT	PTR,1,SUM
+	PUT	X,1,SUM
+	SET	'P-NUMBER,SUM
+	RETURN	P-NUMBER
+
+
+	.FUNCT	PARSE-SENTENCE,PR,SPLIT-NUM,RES-WCN,CURRENT-TOKEN,CAV,OFFS,T2,CURRENT-ACTION,REDUCTION,N,?TMP1
+	SET	'SPLIT-NUM,-1
+	GET	TLEXV,0 >CURRENT-TOKEN
+	CATCH	 >PARSE-SENTENCE-ACTIVATION
+	ZERO?	CURRENT-TOKEN \?PRG5
+	CALL2	UNKNOWN-WORD,TLEXV >CURRENT-TOKEN
+	ZERO?	CURRENT-TOKEN \?PRG5
+	RETURN	PARSER-RESULT-DEAD
+?PRG5:	GETB	CURRENT-TOKEN,8
+	BTST	STACK,128 /?CCL10
+	GETB	CURRENT-TOKEN,8 >RES-WCN
+	JUMP	?CND7
+?CCL10:	GETB	CURRENT-TOKEN,8
+	BAND	STACK,127
+	SHIFT	STACK,7 >RES-WCN
+?CND7:	ZERO?	RES-WCN \?CCL13
+	GET	CURRENT-TOKEN,3
+	ZERO?	STACK \?CCL16
+	CALL	BUZZER-WORD?,CURRENT-TOKEN,TLEXV
+	ZERO?	STACK /?CND17
+	MUL	P-LEXELEN,P-WORD-NUMBER
+	ADD	STACK,P-LEXSTART
+	PUT	OOPS-TABLE,O-PTR,STACK
+	RETURN	PARSER-RESULT-DEAD
+?CND17:	SET	'CAV,FALSE-VALUE
+?CND11:	ZERO?	CAV /?PST36
+	GET	CAV,1 >CURRENT-ACTION
+	JUMP	?PRG38
+?CCL16:	GET	CURRENT-TOKEN,3 >CURRENT-TOKEN
+	JUMP	?PRG5
+?CCL13:	SET	'OFFS,0
+	CALL2	PEEK-PSTACK,STATE-STACK
+	GET	ACTION-TABLE,STACK
+	GET	STACK,0
+	CALL	GET-TERMINAL-ACTION,RES-WCN,STACK,OFFS >CAV
+	ZERO?	CAV /?CND19
+	BAND	RES-WCN,32767 >?TMP1
+	GET	CAV,OFFS
+	BCOM	STACK
+	BAND	?TMP1,STACK
+	ZERO?	STACK /?CND19
+	ADD	CAV,4
+	CALL	GET-TERMINAL-ACTION,RES-WCN,STACK,OFFS
+	ZERO?	STACK /?CND19
+	ADD	SPLIT-NUM,2 >SPLIT-NUM
+	ADD	SPLIT-NUM,1
+	GET	SPLIT-STACK,0 >T2
+	GRTR?	STACK,T2 \?CCL26
+	INC	'T2
+	LESS?	T2,21 /?CND27
+	ICALL1	P-NO-MEM-ROUTINE
+?CND27:	PUT	SPLIT-STACK,0,T2
+	PUT	SPLIT-STACK,T2,0
+	INC	'T2
+	LESS?	T2,21 /?CND29
+	ICALL1	P-NO-MEM-ROUTINE
+?CND29:	PUT	SPLIT-STACK,0,T2
+	PUT	SPLIT-STACK,T2,CAV
+	JUMP	?CND19
+?CCL26:	GET	SPLIT-STACK+2,SPLIT-NUM >CAV
+	ZERO?	CAV /?CND31
+	CALL	GET-TERMINAL-ACTION,RES-WCN,CAV,OFFS >CAV
+?CND31:	PUT	SPLIT-STACK+2,SPLIT-NUM,CAV
+?CND19:	ZERO?	CAV \?CND11
+	RETURN	PARSER-RESULT-FAILED
+?PST36:	SET	'CURRENT-ACTION,0
+?PRG38:	ZERO?	CAV /?CCL42
+	BAND	CURRENT-ACTION,65280
+	ZERO?	STACK /?CCL42
+	ADD	SPLIT-NUM,2 >SPLIT-NUM
+	ADD	SPLIT-NUM,1
+	GET	SPLIT-STACK,0 >T2
+	GRTR?	STACK,T2 \?CCL47
+	INC	'T2
+	LESS?	T2,21 /?CND48
+	ICALL1	P-NO-MEM-ROUTINE
+?CND48:	PUT	SPLIT-STACK,0,T2
+	GETB	CURRENT-ACTION,0
+	PUT	SPLIT-STACK,T2,STACK
+	INC	'T2
+	LESS?	T2,21 /?CND50
+	ICALL1	P-NO-MEM-ROUTINE
+?CND50:	PUT	SPLIT-STACK,0,T2
+	PUT	SPLIT-STACK,T2,1
+	GETB	CURRENT-ACTION,1 >CURRENT-ACTION
+	JUMP	?CND40
+?CCL47:	GET	SPLIT-STACK+2,SPLIT-NUM
+	GETB	CURRENT-ACTION,STACK >CURRENT-ACTION
+	JUMP	?CND40
+?CCL42:	ZERO?	CAV /?CND40
+	ZERO?	CURRENT-ACTION \?CND40
+	RETURN	PARSER-RESULT-FAILED
+?CND40:	ZERO?	CAV /?CTR56
+	LESS?	CURRENT-ACTION,128 \?CCL57
+?CTR56:	ZERO?	CAV /?CND60
+	XPUSH	CURRENT-TOKEN,DATA-STACK \?CCL64
+	XPUSH	CURRENT-ACTION,STATE-STACK /?CND60
+?CCL64:	ICALL1	P-NO-MEM-ROUTINE
+?CND60:	DLESS?	'P-LEN,1 \?CCL69
+	SET	'CURRENT-TOKEN,W?END.OF.INPUT
+	ADD	1,P-WORD-NUMBER >P-WORDS-AGAIN
+	SET	'P-CONT,FALSE-VALUE
+	SET	'P-LEN,0
+	JUMP	?CND67
+?CCL69:	INC	'P-WORD-NUMBER
+	ADD	TLEXV,4 >TLEXV
+	GET	TLEXV,0 >CURRENT-TOKEN
+	GRTR?	TLEXV,OTLEXV \?CND67
+	SET	'OTLEXV,TLEXV
+?CND67:	ZERO?	CURRENT-TOKEN \?CCL74
+	CALL2	UNKNOWN-WORD,TLEXV >CURRENT-TOKEN
+	ZERO?	CURRENT-TOKEN \?PRG5
+	RETURN	PARSER-RESULT-DEAD
+?CCL74:	EQUAL?	CURRENT-TOKEN,W?THEN,W?!,W?PERIOD /?CCL77
+	EQUAL?	CURRENT-TOKEN,W?? \?PRG5
+?CCL77:	SET	'P-WORDS-AGAIN,P-WORD-NUMBER
+	DLESS?	'P-LEN,1 /?CCL82
+	ADD	TLEXV,4 >P-CONT
+	JUMP	?PRG5
+?CCL82:	SET	'P-CONT,FALSE-VALUE
+	JUMP	?PRG5
+?CCL57:	GRTR?	CURRENT-ACTION,128 \?CCL84
+	SUB	CURRENT-ACTION,129
+	GET	REDUCTION-TABLE,STACK >REDUCTION
+	GET	REDUCTION,0 >RES-WCN
+	ZERO?	RES-WCN /?CND87
+	SET	'N,RES-WCN
+?PRG89:	DLESS?	'N,0 /?CND87
+	POP	STATE-STACK
+	JUMP	?PRG89
+?CND87:	SET	'CURRENT-REDUCTION,REDUCTION
+	SET	'P-RUNNING,TLEXV
+	GET	REDUCTION,1 >?TMP1
+	GET	REDUCTION,0
+	CALL	?TMP1,STACK >RES-WCN
+	SET	'TLEXV,P-RUNNING
+	GRTR?	TLEXV,OTLEXV \?CND93
+	SET	'OTLEXV,TLEXV
+?CND93:	LESS?	P-LEN,1 \?CCL97
+	SET	'CURRENT-TOKEN,W?END.OF.INPUT
+	JUMP	?CND95
+?CCL97:	GET	TLEXV,0 >CURRENT-TOKEN
+?CND95:	SET	'CURRENT-REDUCTION,FALSE-VALUE
+	ZERO?	RES-WCN \?CTR99
+	RETURN	PARSER-RESULT-FAILED
+?CTR99:	XPUSH	RES-WCN,DATA-STACK /?CND98
+	ICALL1	P-NO-MEM-ROUTINE
+?CND98:	CALL2	PEEK-PSTACK,STATE-STACK
+	GET	ACTION-TABLE,STACK >?TMP1
+	GET	REDUCTION,4
+	CALL	GET-NONTERMINAL-ACTION,?TMP1,STACK
+	XPUSH	STACK,STATE-STACK /?PRG5
+	ICALL1	P-NO-MEM-ROUTINE
+	JUMP	?PRG5
+?CCL84:	POP	DATA-STACK >PARSER-RESULT
+	RETURN	PARSER-RESULT-WON
+
+
+	.FUNCT	GET-TERMINAL-ACTION,TYPE,STATE,OFFS,V
+	ZERO?	STATE /FALSE
+	SET	'V,STATE
+?PRG4:	GET	V,0
+	ZERO?	STACK /FALSE
+	GET	V,OFFS
+	BAND	TYPE,STACK
+	ZERO?	STACK /?CND8
+	RETURN	V
+?CND8:	ADD	V,4 >V
+	JUMP	?PRG4
+
+
+	.FUNCT	GET-NONTERMINAL-ACTION,STATE,TYPE,V
+	GET	STATE,1
+	ZERO?	STACK /FALSE
+	GET	STATE,1 >V
+?PRG4:	GETB	V,0
+	ZERO?	STACK /FALSE
+	GETB	V,0
+	EQUAL?	STACK,TYPE \?CND6
+	GETB	V,1
+	RSTACK	
+?CND6:	ADD	V,2 >V
+	JUMP	?PRG4
+
+
+	.FUNCT	BE-PATIENT,NUM
+	LESS?	NUM,0 \?CCL3
+	LESS?	NUM,-15 \FALSE
+	BUFOUT	TRUE-VALUE
+	PRINTR	"]"
+?CCL3:	MOD	NUM,16
+	ZERO?	STACK \FALSE
+	EQUAL?	NUM,16 \?CCL11
+	BUFOUT	FALSE-VALUE
+	PRINTI	"[Please be patient..."
+	RTRUE	
+?CCL11:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	P-NO-MEM-ROUTINE,TYP
+	PRINTI	"[Sorry, but that"
+	EQUAL?	TYP,7 \?CCL3
+	PRINTI	"'s too many objects"
+	JUMP	?CND1
+?CCL3:	PRINTI	" sentence is too complicated"
+?CND1:	PRINTI	".]
+"
+	THROW	PARSER-RESULT-DEAD,PARSE-SENTENCE-ACTIVATION
+	RTRUE	
+
+
+	.FUNCT	DO-IT-AGAIN,NUM,X,TMP
+	ASSIGNED?	'NUM /?CND1
+	SET	'NUM,1
+?CND1:	SUB	TLEXV,P-LEXV
+	DIV	STACK,2 >X
+	ZERO?	P-CONT \?CND3
+	ADD	X,P-LEXELEN >X
+?CND3:	GET	OOPS-TABLE,O-START >TMP
+	ZERO?	TMP /?PRG7
+	SUB	TMP,P-LEXV+2
+	DIV	STACK,4 >TMP
+	GETB	G-LEXV,P-LEXWORDS
+	ADD	STACK,TMP
+	PUTB	G-LEXV,P-LEXWORDS,STACK
+?PRG7:	ICALL	MAKE-ROOM-FOR-TOKENS,2,G-LEXV,X
+	PUT	G-LEXV,X,W?PERIOD
+	ADD	X,P-LEXELEN
+	PUT	G-LEXV,STACK,W?AGAIN
+	DLESS?	'NUM,1 \?PRG7
+	GETB	G-LEXV,P-LEXWORDS
+	SUB	STACK,TMP
+	PUTB	G-LEXV,P-LEXWORDS,STACK
+	CALL2	COPY-INPUT,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	INVALID-OBJECT?,OBJ
+	CALL1	EVERYWHERE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	OBJ,CEILING \?CCL5
+	FSET?	HERE,OUTSIDEBIT \?CCL5
+	EQUAL?	HERE,ROOF,PARAPET \TRUE
+?CCL5:	EQUAL?	OBJ,LOCK-OBJECT \?CCL10
+	CALL	NOUN-USED?,LOCK-OBJECT,W?KEYHOLE
+	ZERO?	STACK /?CCL10
+	EQUAL?	HERE,LOWEST-HALL /TRUE
+?CCL10:	EQUAL?	OBJ,WALL \FALSE
+	FSET?	HERE,OUTSIDEBIT \FALSE
+	GET	FINDER,6
+	EQUAL?	W?ONE,STACK /FALSE
+	EQUAL?	HERE,PERIMETER-WALL /FALSE
+	RTRUE	
+
+
+	.FUNCT	TEST-THINGS,RM,F,CT,RMG,RMGL,TTBL,NOUN,V,?TMP2,?TMP1
+	GETP	RM,P?THINGS >RMG
+	GET	RMG,0 >RMGL
+	ADD	RMG,2 >RMG
+	GET	F,5 >CT
+	ZERO?	CT /?CND1
+	GET	CT,4 >CT
+?CND1:	GET	F,6 >NOUN
+	GET	F,5
+	ADD	STACK,10 >V
+?PRG3:	GET	RMG,1 >TTBL
+	ZERO?	TTBL /?CND5
+	EQUAL?	NOUN,W?ONE /?PRD9
+	ADD	TTBL,2 >?TMP1
+	GET	TTBL,0
+	INTBL?	NOUN,?TMP1,STACK \?CND5
+?PRD9:	ZERO?	CT /?PRD12
+	GET	RMG,0 >TTBL
+	ZERO?	TTBL /?CND5
+	GET	V,0 >?TMP2
+	ADD	TTBL,2 >?TMP1
+	GET	TTBL,0
+	INTBL?	?TMP2,?TMP1,STACK \?CND5
+?PRD12:	GET	F,7
+	ZERO?	STACK /?CCL6
+	GET	OWNER-SR-HERE,1
+	EQUAL?	1,STACK \?CND5
+	GET	OWNER-SR-HERE,4
+	EQUAL?	PSEUDO-OBJECT,STACK \?CND5
+	EQUAL?	LAST-PSEUDO-LOC,RM \?CND5
+	GETP	PSEUDO-OBJECT,P?ACTION >?TMP1
+	GET	RMG,2
+	EQUAL?	?TMP1,STACK \?CND5
+?CCL6:	SET	'LAST-PSEUDO-LOC,RM
+	GET	RMG,2
+	PUTP	PSEUDO-OBJECT,P?ACTION,STACK
+	GETPT	PSEUDO-OBJECT,P?ACTION
+	SUB	STACK,7 >V
+	COPYT	NOUN,V,6
+	ICALL	ADD-OBJECT,PSEUDO-OBJECT,F
+	RFALSE	
+?CND5:	ADD	RMG,6 >RMG
+	DLESS?	'RMGL,1 \?PRG3
+	RTRUE	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..4801b6b
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,1719 @@
+"PARSER file for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZPACKAGE "PARSER">
+
+<ENTRY PARSER PARSE-SENTENCE PARSE-IT PARSER-ERROR TLEXV P-OFLAG P-WALK-DIR
+  ;" P-PRSO P-PRSI PRSA PRSO PRSI">
+
+<RENTRY DEBUG-PARSER>
+
+<RENTRY	ACCESSIBLE?
+	BUZZER-WORD?
+	GLOBAL-OBJECTS
+	LAST-PSEUDO-LOC
+	LIT
+	LIT?
+	ONBIT
+	OPENBIT
+	P-INBUF
+	P-LEXV
+	P-NUMBER
+	P?THINGS
+	PERFORM
+	PERSONBIT
+	PLAYER
+	PRINT-VOCAB-WORD
+	SEARCHBIT
+	;SPECIAL-ADJ-CHECK
+	SPECIAL-CONTRACTION?
+	SURFACEBIT
+	TAKEBIT
+	TELL-CTHE
+	TELL-THE
+	TITLE-ABBR?
+	TRANSBIT
+	TRYTAKEBIT
+	;VEHBIT
+	VERBOSITY
+	VISIBLE?
+	WINNER>
+
+<INCLUDE "BASEDEFS" "PBITDEFS" "PDEFS" "SYMBOLS">
+
+<USE "PSTACK" "PMEM">
+
+<FILE-FLAGS MDL-ZIL? CLEAN-STACK?>
+
+<BEGIN-SEGMENT 0>
+
+<COMPILATION-FLAG-DEFAULT P-APOSTROPHE-BREAKS-WORDS T>
+<COMPILATION-FLAG-DEFAULT P-BE-VERB <>>
+;<COMPILATION-FLAG-DEFAULT P-DEBUGGING-PARSER T>
+
+<DEFAULTS-DEFINED
+	BE-PATIENT
+	BEG-PARDON
+	BUZZER-WORD?
+	;CANT-UNDO
+	CONTBIT
+	EXCLUDE-HERE-OBJECT?
+	INVALID-OBJECT?
+	INVISIBLE
+	LIT?
+	MOBY-FIND?
+	NARTICLEBIT
+	NUMBER?
+	ONBIT
+	OPENBIT
+	P-NO-MEM-ROUTINE
+	PERSONBIT
+	PLAYER
+	;PRINT-VOCAB-WORD
+	PSEUDO-OBJECTS
+	READ-INPUT
+	ROOMSBIT
+	SEARCH-IN-LG?
+	SEARCHBIT
+	;SPECIAL-ADJ-CHECK
+	SPECIAL-CONTRACTION?
+	STATUS-LINE
+	SURFACEBIT
+	TAKEBIT
+	TELL-CTHE
+	TELL-GWIM-MSG
+	TELL-THE
+	TITLE-ABBR?
+	TOUCHBIT
+	TRANSBIT
+	TRYTAKEBIT
+	UNKNOWN-WORD
+	;VEHBIT>
+
+<COND (<NOT <GASSIGNED? DEBUG-PARSER>> <SETG DEBUG-PARSER <>>)>
+
+<DEFAULT-DEFINITION CONTBIT T>
+<DEFAULT-DEFINITION INVISIBLE T>
+<DEFAULT-DEFINITION NARTICLEBIT T>
+<DEFAULT-DEFINITION ONBIT T>
+<DEFAULT-DEFINITION OPENBIT T>
+<DEFAULT-DEFINITION PERSONBIT T>
+<DEFAULT-DEFINITION PLAYER T>
+<DEFAULT-DEFINITION ROOMSBIT T>
+<DEFAULT-DEFINITION SEARCHBIT T>
+<DEFAULT-DEFINITION SURFACEBIT T>
+<DEFAULT-DEFINITION TAKEBIT T>
+<DEFAULT-DEFINITION TOUCHBIT T>
+<DEFAULT-DEFINITION TRANSBIT T>
+<DEFAULT-DEFINITION TRYTAKEBIT T>
+;<DEFAULT-DEFINITION VEHBIT T>
+
+<DEFAULT-DEFINITION BEG-PARDON
+	<DEFINE BEG-PARDON () <TELL "[I beg your pardon?]" CR>>>
+
+<DEFAULT-DEFINITION UNKNOWN-WORD
+<DEFINE UNKNOWN-WORD (RLEXV "AUX" X)
+  <COND (<SET X <NUMBER? .RLEXV>>
+	 .X)
+	(T
+	 <TELL "[I don't know the word \"">
+	 <ZPUT ,OOPS-TABLE ,O-PTR </ <- .RLEXV ,P-LEXV> 2>>
+	 <WORD-PRINT .RLEXV>
+	 <TELL ".\"]" CR>
+	 <IFN-P-BE-VERB <COUNT-ERRORS 1>>
+	 <THROW ,PARSER-RESULT-DEAD ,PARSE-SENTENCE-ACTIVATION>)>>>
+
+<DEFINE WORD-PRINT (PTR "OPT" (LEN <LEXV-WORD-LENGTH .PTR>)
+			     (OFFS <LEXV-WORD-OFFSET .PTR>))
+  <REPEAT ()
+    <COND (<L? <SET LEN <- .LEN 1>> 0> <RETURN>)
+	  (T
+	   <TELL C <GETB ,P-INBUF .OFFS>>
+	   <SET OFFS <+ .OFFS 1>>)>>>
+
+<IFFLAG (LONG-WORDS
+<DEFINE PRINT-VOCAB-WORD (WD "AUX" TMP)
+	<COND (<SET TMP <INTBL? .WD <ZREST ,LONG-WORD-TABLE 2>
+				    </ <ZGET ,LONG-WORD-TABLE 0> 2>
+				    *204*>>
+	       <PRINT <ZGET .TMP 1>>)
+	      (<NOT <EQUAL? .WD ,W?INT.NUM ,W?INT.TIM>>
+	       <PRINTB .WD>)>>)
+	(T
+<DEFMAC PRINT-VOCAB-WORD!- ('WD) <FORM PRINTB .WD>>)>
+
+<DEFAULT-DEFINITION MOBY-FIND?
+<DEFINE MOBY-FIND? (SEARCH)
+	<COND (<OR <AND <NOT <0? <ANDB .SEARCH ,SEARCH-MOBY ;128>>>
+			<0? <ANDB .SEARCH ,SEARCH-MUST-HAVE>>>
+		   <BAND ,PAST-TENSE <WORD-FLAGS <PARSE-VERB ,PARSE-RESULT>>>>
+	       T)>>>
+
+<DEFMAC IF-SHORT ('EXPR1 "OPT" 'EXPR2)
+  <COND (<L=? ,NUMBER-WORD-CLASSES 15>
+	 <COND (<AND .EXPR1 <N==? .EXPR1 '<>>> .EXPR1)>)
+	(<ASSIGNED? EXPR2> .EXPR2)>>
+
+<DEFINE NP-SAVE (ROBJ "AUX" TMP)
+	<COPYT ,SEARCH-RES ,ORPHAN-SR <* 2 ,FIND-RES-LENGTH>>
+	<COPYT .ROBJ ,ORPHAN-NP <* 2 <+ 1 ,NP-LENGTH>>>
+	<COND (<T? <SET TMP <NP-LOC .ROBJ>>>
+	       <COPYT <LOCATION-OBJECT .TMP>
+		      ,ORPHAN-NP2
+		      <* 2 <+ 1 ,NOUN-PHRASE-MIN-LENGTH>>>
+	       <NP-LOC ,ORPHAN-NP ,ORPHAN-NP2>)
+	      (<T? <SET TMP <NP-OF .ROBJ>>>
+	       <COPYT .TMP ,ORPHAN-NP2 <* 2 <+ 1 ,NP-LENGTH>>>
+	       <NP-OF ,ORPHAN-NP ,ORPHAN-NP2>)
+	      (<T? <SET TMP <NP-EXCEPT .ROBJ>>>
+	       <COPYT .TMP ,ORPHAN-NP2 <* 2 <+ 1 ,NP-LENGTH>>>
+	       <NP-EXCEPT ,ORPHAN-NP ,ORPHAN-NP2>)>
+	<COND (<T? <SET TMP <NP-ADJS .ROBJ>>>
+	       <COPYT .TMP ,ORPHAN-ADJS <* 2 <+ 1 <+ 4 ,ADJS-MAX-COUNT>>>>
+	       <NP-ADJS ,ORPHAN-NP ,ORPHAN-ADJS>
+	       <COND (<AND <L=? 0 <SET TMP <ADJS-POSS .TMP>>>
+			   <L=? .TMP ,LAST-OBJECT>>
+		      <ADJS-POSS ,ORPHAN-ADJS .TMP>)
+		     (T
+		      ;<T? <SET TMP <ADJS-POSS .TMP>>>
+		      <COPYT .TMP ,ORPHAN-NP2 <* 2 <+ 1 ,NP-LENGTH>>>
+		      <ADJS-POSS ,ORPHAN-ADJS ,ORPHAN-NP2>)>)
+	      (T
+	       <NP-ADJS ,ORPHAN-NP 0>)>
+	,ORPHAN-NP>
+
+<DEFINE PARSER-ERROR ("OPT" (STR:<OR STRING FALSE> <>)
+		      (CLASS:<OR FIX FALSE> <>) (OTHER:ANY <>) (OTHER2:ANY <>)
+		      "AUX" RP)
+  <COND (<NOT ,CURRENT-REDUCTION>
+	 ;"Died in parser itself--incomprehensible sentence")
+	(<OR <G? ,ERROR-PRIORITY
+		 <SET RP <REDUCTION-ERR-PRIORITY ,CURRENT-REDUCTION>>>
+	     <AND <EQUAL? ,ERROR-PRIORITY .RP>
+		  <OR <AND <NOT <EQUAL? .CLASS ,PARSER-ERROR-NOUND>>
+			   <EQUAL? <ZGET ,ERROR-ARGS 1>
+				   ,PARSER-ERROR-NOUND>>
+		      <EQUAL? .CLASS ,PARSER-ERROR-ORPH-NP>
+		      <AND <EQUAL? .CLASS ,PARSER-ERROR-NOOBJ
+					  ,PARSER-ERROR-ORPH-S>
+			   <EQUAL? <ZGET ,ERROR-ARGS 1>
+				   ,PARSER-ERROR-NOUND
+				   ;,PARSER-ERROR-TMNOUN>>>>>
+	 <SETG ERROR-PRIORITY .RP>
+	 <SETG ERROR-STRING .STR>
+	 <COND (.CLASS
+		<ZPUT ,ERROR-ARGS 0 3>
+		<ZPUT ,ERROR-ARGS 1 .CLASS>
+		<ZPUT ,ERROR-ARGS 2 .OTHER>
+		<ZPUT ,ERROR-ARGS 3 .OTHER2>
+		<COND (<PMEM? .OTHER>
+		       <COND (<PMEM-TYPE? .OTHER NOUN-PHRASE>
+			      <SET OTHER <NOUN-PHRASE-NP1 .OTHER>>)>
+		       <COND (<PMEM-TYPE? .OTHER NP>
+			      <ZPUT ,ERROR-ARGS 2 <NP-SAVE .OTHER>>)>)>)
+	       (T
+		<ZPUT ,ERROR-ARGS 0 0>)>)>
+  <>>
+
+<CONSTANT STATE-STACK <ALLOCATE-PSTACK>>
+<CONSTANT SPLIT-STACK <ALLOCATE-PSTACK>>
+<CONSTANT DATA-STACK <ALLOCATE-PSTACK>>
+
+<MSETG LEXV-LENGTH 59 ;39>
+<MSETG LEXV-LENGTH-BYTES <+ 2 <* 4 ,LEXV-LENGTH>>>
+<CONSTANT P-LEXV
+	<ITABLE ,LEXV-LENGTH (LEXV) 0 #BYTE 0 #BYTE 0>>	"current input"
+<CONSTANT G-LEXV
+	<ITABLE ,LEXV-LENGTH (LEXV) 0 #BYTE 0 #BYTE 0>>	"previous for OOPS & G"
+<CONSTANT O-LEXV
+	<ITABLE ,LEXV-LENGTH (LEXV) 0 #BYTE 0 #BYTE 0>>	"previous for orphan"
+<CONSTANT M-LEXV
+	<ITABLE ,LEXV-LENGTH (LEXV) 0 #BYTE 0 #BYTE 0>>	"more cmds after G"
+
+<MSETG INBUF-LENGTH <+ 1 ,LEXV-LENGTH>>
+<CONSTANT P-INBUF <ITABLE ,INBUF-LENGTH (BYTE LENGTH) 0>>
+<CONSTANT G-INBUF <ITABLE ,INBUF-LENGTH (BYTE LENGTH) 0>>
+<CONSTANT O-INBUF <ITABLE ,INBUF-LENGTH (BYTE LENGTH) 0>>
+<CONSTANT M-INBUF <ITABLE ,INBUF-LENGTH (BYTE LENGTH) 0>>
+
+<MSETG P-LEXWORDS 1>	"# of valid entries in LEXV (byte)"
+<MSETG P-LEXSTART 1>	"First LEXV entry (word)"
+<MSETG P-LEXELEN 2>	"Words/LEXV entry"
+
+<CONSTANT OOPS-TABLE <TABLE <> <> <> <> <>>>
+<MSETG O-START 0>	"word pointer to sentence start in P-LEXV"
+<MSETG O-LENGTH 1>	"number of unparsed tokens in P-LEXV"
+<MSETG O-END 2>		"byte pointer to first free byte in G-INBUF"
+<MSETG O-PTR 3>		"word pointer to unknown token in P-LEXV"
+<MSETG O-AGAIN 4>	"word pointer to sentence start in O-LEXV"
+
+<GLOBAL WINNER:OBJECT PLAYER>
+
+<GLOBAL P-OFLAG:NUMBER 0>
+<GLOBAL P-NUMBER:NUMBER 0>
+<SETG CURRENT-REDUCTION <>>
+<SETG PARSER-RESULT <>>
+<SETG P-WALK-DIR <>>
+<SETG TLEXV 0>
+<SETG OTLEXV 0>
+<GLOBAL M-PTR:NUMBER 0>
+<GLOBAL M-LEN:NUMBER 0>
+
+<CONSTANT ERROR-ARGS:TABLE <ITABLE 4 ;7 <>>>
+<GLOBAL ERROR-STRING:STRING <>>
+<GLOBAL ERROR-PRIORITY:NUMBER 0>
+
+<ADD-WORD "AGAIN" MISCWORD>
+<ADD-WORD "G" MISCWORD>
+<ADD-WORD "OOPS" MISCWORD>
+<ADD-WORD "O" MISCWORD>
+
+;<IF-UNDO <GLOBAL P-CAN-UNDO:NUMBER 0>>
+
+<GLOBAL P-LEN:NUMBER 0>		"number of tokens yet to be parsed"
+
+<GLOBAL LIT:OBJECT <>>	"source of light, 0=dark"
+
+<DEFAULT-DEFINITION LIT?
+<DEFINE LIT? ("OPT" (RM ,HERE) (RMBIT T) "AUX" OHERE (LT <>))
+	;<COND (<NOT .RM> <SET RM ,HERE>)>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<AND .RMBIT
+		    <FSET? .RM ,ONBIT>>
+	       <SET LT ,HERE>)
+	      (<AND <FSET? ,WINNER ,ONBIT>
+		    <HELD? ,WINNER .RM>>
+	       <SET LT ,WINNER>)
+	      (T
+	       <FIND-RES-COUNT ,SEARCH-RES 0>
+	       <FIND-RES-NEXT ,SEARCH-RES <>>
+	       <FIND-APPLIC ,FINDER ,ONBIT>
+	       <FIND-FLAGS ,FINDER ,FIND-FLAGS-GWIM>
+	       ;<MAKE-FINDER 'FINDER ,FINDER
+			    'FIND-APPLIC ,ONBIT
+			    'FIND-RES ,SEARCH-RES
+			    'FIND-FLAGS ,FIND-FLAGS-GWIM>
+	       <COND (<EQUAL? .OHERE .RM>
+		      <FIND-DESCENDANTS ,WINNER
+			<BOR ,FD-INCLUDE? ,FD-SEARCH? ,FD-NEST? ;,FD-NOTOP?>;7>
+		      <COND (<AND <NOT <EQUAL? ,WINNER ,PLAYER>>
+				  <IN? ,PLAYER .RM>>
+			     <FIND-DESCENDANTS ,PLAYER
+			      <BOR ,FD-INCLUDE? ,FD-SEARCH? ,FD-NEST?
+				   ;,FD-NOTOP?> ;7>)>)>
+	       <COND (<0? <FIND-RES-COUNT ,SEARCH-RES>:FIX>
+		      <COND (<AND <NOT <IN? <LOC ,WINNER> ,ROOMS>>
+				  ;<FSET? <LOC ,WINNER> ,VEHBIT>
+				  <NOT <FSET? <LOC ,WINNER> ,OPENBIT>>>
+			     <FIND-DESCENDANTS <LOC ,WINNER>
+				<BOR ,FD-INCLUDE? ,FD-SEARCH? ,FD-NEST?
+				     ;,FD-NOTOP?> ;7>)>
+		      <FIND-DESCENDANTS .RM <BOR ,FD-INCLUDE? ,FD-SEARCH?
+						  ,FD-NEST? ;,FD-NOTOP?> ;7>)>
+	       <COND (<L? 0 <FIND-RES-COUNT ,SEARCH-RES>:FIX>
+		      <SET LT <FIND-RES-OBJ1 ,SEARCH-RES>>)>)>
+	<SETG HERE .OHERE>
+	.LT>>
+
+<DEFAULT-DEFINITION STATUS-LINE
+
+<DEFINE INIT-STATUS-LINE ()
+	 <SPLIT 1>
+	 <SCREEN ,S-WINDOW>
+	 <CURSET 1 1>
+	 <HLIGHT ,H-INVERSE>
+	 <ERASE 1>	;<PRINT-SPACES <LOWCORE SCRH>>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>
+	 <RTRUE>>
+
+<GLOBAL OLD-HERE:OBJECT <>>
+
+<DEFINE UPDATE-STATUS-LINE ()
+	 <SCREEN ,S-WINDOW>
+	 <HLIGHT ,H-INVERSE>
+	 <COND (<NOT <EQUAL? ,HERE ,OLD-HERE>>
+		<SETG OLD-HERE ,HERE>
+		<CURSET 1 1>		;"Erase old desc."
+		<ERASE 1>	;<PRINT-SPACES <LOWCORE SCRH>>
+		<CURSET 1 1>
+		<TELL D ,HERE>)>
+	 <CURSET 1 <- <LOWCORE SCRH>
+		      <+ <DIGITS ,SCORE> <DIGITS ,MOVES>>>>
+	 <TELL N ,SCORE C !\/ N ,MOVES>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>
+	 <RTRUE>>
+
+<DEFINE DIGITS (N "AUX" (D 1))
+   <COND (<L? .N 0>
+	  <SET D <+ 1 .D>>	;"negative sign"
+	  <SET N <- 0 .N>>)>
+   <REPEAT ()
+	<SET N </ .N 10>>
+	<COND (<0? .N>
+	       <RETURN>)
+	      (T
+	       <SET D <+ 1 .D>>)>>
+   .D>
+>
+
+<DEFAULT-DEFINITION READ-INPUT
+ <DEFINE READ-INPUT ()
+	<COND (T ;<OR <CHECK-EXTENDED? XZIP>
+		      <CHECK-EXTENDED? YZIP>>
+	       <PUTB ,P-INBUF 1 0>)>
+	<ZREAD ,P-INBUF ,P-LEXV>
+	<COND (T ;<CHECK-EXTENDED? YZIP>
+	       <SCRIPT-INBUF>)>>
+ <ROUTINE SCRIPT-INBUF ("AUX" BUF (CNT 0) (N <GETB ,P-INBUF 1>) CHR)
+	 <DIROUT ,D-SCREEN-OFF>
+	 <SET BUF <REST ,P-INBUF>>
+	 <REPEAT ()
+		 <COND (<IGRTR? CNT .N> <RETURN>)
+		       (ELSE
+			<SET CHR <GETB .BUF .CNT>> 
+			<COND (<AND <G=? .CHR !\a>
+				    <L=? .CHR !\z>>
+			       <PRINTC <- .CHR 32>>)
+			      (ELSE <PRINTC .CHR>)>)>>
+	 <CRLF>
+	 <DIROUT ,D-SCREEN-ON>>>
+
+<IFFLAG (<AND P-BE-VERB P-APOSTROPHE-BREAKS-WORDS>
+
+<CONSTANT P-QB-WORDS-1
+       <PLTABLE	<VOC "ARE">	<VOC "CAN">	<VOC "COULD">	<VOC "DO">
+		<VOC "DOES">	<VOC "DID">	<VOC "HE">	<VOC "I">
+		<VOC "IS">	<VOC "IT">	;<VOC "MAY">	;<VOC "MIGHT">
+		;<VOC "MUST">	;<VOC "OUGHT">	;<VOC "SHALL">	<VOC "SHE">
+		<VOC "SHOULD">	<VOC "THAT">	<VOC "THEY">	<VOC "WAS">
+		<VOC "WE">	<VOC "WERE">	<VOC "WILL">	<VOC "WOULD">
+		<VOC "YOU">>>
+
+<CONSTANT P-QB-WORDS-2
+       <PLTABLE	<VOC "NOT">	<VOC "NOT">	<VOC "NOT">	<VOC "NOT">
+		<VOC "NOT">	<VOC "NOT">	<VOC "IS">	<VOC "AM">
+		<VOC "NOT">	<VOC "IS">	;<VOC "NOT">	;<VOC "NOT">
+		;<VOC "NOT">	;<VOC "NOT">	;<VOC "NOT">	<VOC "IS">
+		<VOC "NOT">	<VOC "IS">	<VOC "ARE">	<VOC "NOT">
+		<VOC "ARE">	<VOC "NOT">	<VOC "NOT">	<VOC "NOT">
+		<VOC "ARE">>>
+
+<CONSTANT P-QA-WORDS1
+       <PLTABLE	<VOC "AREN">	<VOC "CAN">	<VOC "COULDN">	<VOC "DON">
+		<VOC "DOESN">	<VOC "DIDN">	<VOC "HE">	<VOC "I">
+		<VOC "ISN">	<VOC "IT">	;<VOC "MAYN">	;<VOC "MIGHTN">
+		;<VOC "MUSTN">	;<VOC "OUGHTN">	;<VOC "SHAN">	<VOC "SHE">
+		<VOC "SHOULDN">	<VOC "THAT">	<VOC "THEY">	<VOC "WASN">
+		<VOC "WE">	<VOC "WEREN">	<VOC "WON">	<VOC "WOULDN">
+		<VOC "YOU">>>
+
+<CONSTANT P-QA-WORDS2
+       <PLTABLE	<VOC "T">	<VOC "T">	<VOC "T">	<VOC "T">
+		<VOC "T">	<VOC "T">	<VOC "S">	<VOC "M">
+		<VOC "T">	<VOC "S">	;<VOC "T">	;<VOC "T">
+		;<VOC "T">	;<VOC "T">	;<VOC "T">	<VOC "S">
+		<VOC "T">	<VOC "S">	<VOC "RE">	<VOC "T">
+		<VOC "RE">	<VOC "T">	<VOC "T">	<VOC "T">
+		<VOC "RE">>>
+
+<DEFAULT-DEFINITION SPECIAL-CONTRACTION?
+ <DEFINE SPECIAL-CONTRACTION? (PTR) <>>>
+
+<DEFINE EXPAND-BE-CONTRACTIONS ("AUX" LEN PTR OPTR)
+ <SET LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+ <SET PTR <REST-TO-SLOT ,P-LEXV LEXV-START>>
+ <SET OPTR .PTR>
+ <REPEAT (N WD SPWD (L .LEN))
+	<SET SPWD <>>
+	<COND (<DLESS? L 0>
+	       <PUTB ,P-LEXV ,P-LEXWORDS .LEN>
+	       <RETURN>)
+	      (<AND <SET WD <ZGET .PTR 0>>
+		    <EQUAL? <ZGET .PTR ,P-LEXELEN> ,W?APOSTROPHE>
+		    <OR <AND <SET N <INTBL? .WD <ZREST ,P-QA-WORDS1 2>
+						<ZGET ,P-QA-WORDS1 0>>>
+			     <EQUAL? <ZGET ,P-QA-WORDS2
+					   <SET N </ <- .N ,P-QA-WORDS1> 2>>>
+				     <ZGET .PTR <* 2 ,P-LEXELEN>>>>
+			<SET SPWD <SPECIAL-CONTRACTION? .PTR>>>>
+	       <COPYT <ZREST .PTR <COND (<T? .SPWD>
+					 <* 2 ,LEXV-ELEMENT-SIZE-BYTES>)
+					(T ,LEXV-ELEMENT-SIZE-BYTES)>>
+		      .PTR
+		      <* .L ,LEXV-ELEMENT-SIZE-BYTES>>
+	       ;"need to call INBUF-ADD-VOC for these words:"
+	       <COND (<T? .SPWD>
+		      <ZPUT .PTR 0 .SPWD>
+		      <DEC L>
+		      <DEC LEN>)
+		     (T
+		      <SET WD <ZGET ,P-QB-WORDS-1 .N>>
+		      <ZPUT .PTR 0 .WD>
+		      <SET WD <ZGET ,P-QB-WORDS-2 .N>>
+		      <ZPUT .PTR ,P-LEXELEN .WD>)>
+	       <DEC L>
+	       <DEC LEN>)
+	      (<AND <EQUAL? .WD ,W?APOSTROPHE>	;"e.g. Moses'"
+		    <NOT <EQUAL? <ZGET .PTR ,P-LEXELEN> ,W?S>>
+		    <NOT <EQUAL? .OPTR .PTR>>
+		    <SET WD <ZBACK .PTR ,LEXV-ELEMENT-SIZE-BYTES>>
+		    <EQUAL? <GETB ,P-INBUF <+ -1
+					      <LEXV-WORD-LENGTH .WD>
+					      <LEXV-WORD-OFFSET .WD>>>
+			    !\s !\z>>
+	       <MAKE-ROOM-FOR-TOKENS 1 ,P-LEXV
+				     <+ ,P-LEXELEN </ <- .PTR ,P-LEXV> 2>>>
+	       <ZPUT .PTR ,P-LEXELEN ,W?S>
+	       <INC L>
+	       <INC LEN>)
+	      (T
+	       <SET PTR <+ .PTR ,LEXV-ELEMENT-SIZE-BYTES>>)>>>)>
+
+<DEFAULT-DEFINITION TELL-THE
+<DEFINE TELL-THE (OBJ "AUX" TMP)
+ <COND (<EQUAL? .OBJ ,PLAYER>
+	<TELL "you">)
+       (T
+	<COND (<SET TMP <GET-OWNER .OBJ>>
+	       <COND (<EQUAL? .TMP ,PLAYER>
+		      <TELL "your ">)
+		     (<NOT <EQUAL? .TMP .OBJ>>
+		      <TELL-THE .TMP ;T>
+		      <TELL "'s ">)>)
+	      (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+	       <TELL "the ">)>
+	<TELL D .OBJ>)>>>
+
+<DEFAULT-DEFINITION TELL-CTHE
+<DEFINE TELL-CTHE (OBJ "AUX" TMP)
+ <COND (<EQUAL? .OBJ ,PLAYER>
+	<TELL "You">)
+       (T
+	<COND (<SET TMP <GET-OWNER .OBJ>>
+	       <COND (<EQUAL? .TMP ,PLAYER>
+		      <TELL "Your ">)
+		     (<NOT <EQUAL? .TMP .OBJ>>
+		      <TELL-CTHE .TMP ;T>
+		      <TELL "'s ">)>)
+	      (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+	       <TELL "The ">)>
+	<TELL D .OBJ>)>>>
+
+<CONSTANT P-ADJ-CODE 1>
+<CONSTANT P-COMMA-CODE 10>
+<CONSTANT P-DIR-CODE 9>
+<CONSTANT P-EOI-CODE 8>
+<CONSTANT P-NOUN-CODE 2>
+<CONSTANT P-PARTICLE-CODE 3>
+<CONSTANT P-PREP-CODE 4>
+<CONSTANT P-QUANT-CODE 5>
+<CONSTANT P-QW1-CODE 6>
+<CONSTANT P-VERB-CODE 7>
+
+"Shared files should call this to check parts of speech:"
+<DEFINE WORD-TYPE? ACT (WD TYP "OPT" TYP2
+			   "AUX" GC (WCN <WORD-CLASSIFICATION-NUMBER .WD>))
+	 <COND (<0? .WCN>	;"synonym?"
+		<SET WD <WORD-SEMANTIC-STUFF .WD>>
+		<SET WCN <WORD-CLASSIFICATION-NUMBER .WD>>)>
+	 <COND (<AND <ASSIGNED? TYP2>
+		     <WORD-TYPE? .WD .TYP2>>
+		<RETURN .WD>)>
+	 <COND (<AND <EQUAL? .TYP ,P-COMMA-CODE>
+		     <EQUAL? .WD ,W?COMMA ,W?AND>>
+		<RETURN .WD .ACT>)
+	       (<EQUAL? .TYP ,P-ADJ-CODE>
+		<SET GC <GET-CLASSIFICATION ADJ>>)
+	       (<EQUAL? .TYP ,P-DIR-CODE>
+		<SET GC <GET-CLASSIFICATION DIR>>)
+	       (<EQUAL? .TYP ,P-EOI-CODE>
+		<SET GC <GET-CLASSIFICATION END-OF-INPUT>>)
+	       (<EQUAL? .TYP ,P-NOUN-CODE>
+		<SET GC <GET-CLASSIFICATION NOUN>>)
+	       (<EQUAL? .TYP ,P-PARTICLE-CODE>
+		<SET GC <GET-CLASSIFICATION PARTICLE>>)
+	       (<EQUAL? .TYP ,P-PREP-CODE>
+		<SET GC <GET-CLASSIFICATION PREP>>)
+	       (<EQUAL? .TYP ,P-QUANT-CODE>
+		<SET GC <GET-CLASSIFICATION QUANT>>)
+	       (<EQUAL? .TYP ,P-QW1-CODE>
+		<SET GC %<COND (<LOOKUP "QWORD" ,SYMBOL-OBS>
+				<GET-CLASSIFICATION QWORD>)
+			       (T 0)>>)
+	       (<EQUAL? .TYP ,P-VERB-CODE>
+		<SET GC <GET-CLASSIFICATION VERB>>)>
+	 <COND (
+		%<COND (<G? ,NUMBER-WORD-CLASSES:FIX 15>
+			<FORM AND <FORM ==? <FORM ANDB '.WCN *100000*>
+					    <FORM ANDB '.GC *100000*>>
+			      <FORM NOT
+				    <FORM 0? <FORM ANDB '.WCN '.GC *77777*>>>>)
+		       (T
+			<FORM NOT <FORM 0? <FORM ANDB '.WCN '.GC>>>)>
+		.WD)>>
+
+<DEFINE IGNORE-FIRST-WORD (WD1 "OPT" (WD2 1) "AUX" NW)
+ <COND (<AND <EQUAL? <ZGET ,TLEXV 0> .WD1 .WD2>	;"Is this the first word ..."
+	     <L? 1 ,P-LEN>
+	     ;<L? <- ,TLEXV ,P-LEXV> <- ,LEXV-LENGTH-BYTES <* 2 ,P-LEXELEN>>>
+	     <SET NW <ZGET ,TLEXV ,P-LEXELEN>>
+	     <COMPARE-WORD-TYPES <WORD-CLASSIFICATION-NUMBER .NW>
+			<GET-CLASSIFICATION VERB>>	;" followed by verb?">
+	<SETG TLEXV <ZREST ,TLEXV <* 2 ,P-LEXELEN>>>	;"If so, ignore it."
+	<SETG P-LEN <- ,P-LEN 1>>
+	T)>>
+
+<COMPILATION-FLAG-DEFAULT P-TITLE-ABBRS <>>
+
+<DEFAULT-DEFINITION TITLE-ABBR?
+<DEFMAC TITLE-ABBR? ('WRD) <FORM EQUAL? .WRD ,W?MR ,W?MRS ,W?MS>>>
+
+<IF-P-TITLE-ABBRS
+<DEFINE FIX-TITLE-ABBRS ("AUX" LEN PTR)
+ <SET LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+ <SET PTR <REST-TO-SLOT ,P-LEXV LEXV-START>>
+ <REPEAT (N (L .LEN))
+	<COND (<DLESS? L 0>
+	       <RETURN>)
+	      (<AND <TITLE-ABBR? <ZGET .PTR 0>>
+		    <EQUAL? ,W?PERIOD <ZGET .PTR ,LEXV-ELEMENT-SIZE>>
+		    <CAPITAL-NOUN? <ZGET .PTR <* 2 ,LEXV-ELEMENT-SIZE>>>>
+	       <ZPUT .PTR ,LEXV-ELEMENT-SIZE ,W?NO.WORD>
+	       ;<COND (<CAPITAL-NOUN? <ZGET<BACK .PTR ,LEXV-ELEMENT-SIZE-BYTES>
+					   0>>
+		      ;"JOHN D. FLATHEAD = JOHN FLATHEAD?"
+		      <ZPUT .PTR 0 ,W?NO.WORD>)>)>
+	<SET PTR <+ .PTR ,LEXV-ELEMENT-SIZE-BYTES>>>>>
+
+<DEFINE FIX-QUOTATIONS ()
+ <REPEAT (X (QFLAG <>)
+	  (LEN <GETB ,P-LEXV ,P-LEXWORDS>)
+	  (PTR <REST-TO-SLOT ,P-LEXV LEXV-START>))
+	<COND (<0? .LEN>
+	       <RETURN>)
+	      (<NOT <SET PTR <INTBL? ,W?QUOTE .PTR .LEN *204*>>>
+	       <RETURN>)
+	      (T
+	       <COND (<NOT .QFLAG>
+		      <SET QFLAG T>
+		      <SET X <+ ,LEXV-ELEMENT-SIZE </ <- .PTR ,P-LEXV> 2>>>
+		      <MAKE-ROOM-FOR-TOKENS 1 ,P-LEXV .X>
+		      <ZPUT ,P-LEXV .X ,W?NO.WORD>)
+		     (T
+		      <SET QFLAG <>>)>
+	       <SET PTR <+ .PTR ,LEXV-ELEMENT-SIZE-BYTES>>
+	       <SET X </ <- .PTR ,P-LEXV> ,LEXV-ELEMENT-SIZE-BYTES>>
+	       <SET LEN <- <GETB ,P-LEXV ,P-LEXWORDS> .X>>)>>>
+
+<COMPILATION-FLAG-DEFAULT P-PS-ADV T>
+<COMPILATION-FLAG-DEFAULT P-ZORK0 <>>
+<GLOBAL P-DIRECTION:NUMBER 0>
+
+<DEFINE PARSER PARSER ("AUX" OWINNER LEN N)
+	<COND (T ;<F? ,P-OFLAG>
+	       <IF-P-DEBUGGING-PARSER
+		<COND (<T? ,P-DBUG>
+		       <PRINTI "[Reset of PMEM: ">
+		       <PRINTN ,PMEM-WORDS-USED>
+		       <PRINTI " words used.]|">)>>
+	       <PMEM-RESET>)>
+	<SETG ERROR-PRIORITY 255>
+	<SETG ERROR-STRING <>>
+	<SET OWINNER ,WINNER>
+	<COND (<NOT <F? ,M-PTR>>
+	       <COPYT ,M-LEXV ,P-LEXV ,LEXV-LENGTH-BYTES>
+	       <COPYT ,M-INBUF ,P-INBUF <+ 1 ,INBUF-LENGTH>>
+	       <SETG P-LEN ,M-LEN>
+	       <COND (<AND <NOT <0? ,VERBOSITY>> <EQUAL? ,PLAYER ,WINNER>>
+		      <CRLF>)>
+	       <SETG TLEXV ,M-PTR>
+	       <SETG M-PTR <>>
+	       <SETG P-CONT <>>)
+	      (<G? ,P-CONT 0>
+	       <SETG TLEXV ,P-CONT>
+	       <COND (<AND <NOT <0? ,VERBOSITY>> <EQUAL? ,PLAYER ,WINNER>>
+		      <CRLF>)>
+	       <SETG P-CONT <>>)
+	      (T
+	       <SETG WINNER ,PLAYER>
+	       <COND (<AND <ZERO? ,P-OFLAG>
+			   <ZERO? <ZGET ,OOPS-TABLE ,O-PTR>>>
+		      <ZPUT ,OOPS-TABLE ,O-END <>>)>
+	       <COND (<IN? <LOC ,WINNER> ,ROOMS>
+		      ;<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <COND (<OR <ZERO? ,LIT>
+			  <AND <NOT <EQUAL? ,HERE ,LIT>>
+			       <NOT <VISIBLE? ,LIT>>>>
+		      <SETG LIT <LIT? ;,HERE>>)>
+	       <FCLEAR ,IT  ,TOUCHBIT>	;"to prevent pronouns w/o referents"
+	       <FCLEAR ,HER ,TOUCHBIT>
+	       <FCLEAR ,HIM ,TOUCHBIT>
+	       <COND (<BTST <LOWCORE FLAGS> 4>
+		      <V-$REFRESH>)>
+	       <COND (<NOT <0? ,VERBOSITY>> <CRLF>)>
+	       <COND (T ;<OR <CHECK-EXTENDED? XZIP>
+			     <CHECK-EXTENDED? YZIP>>
+		      <UPDATE-STATUS-LINE>)>
+	       <TELL ">">
+	       <READ-INPUT>
+	       <FIX-QUOTATIONS>
+	       <IFFLAG (<AND P-BE-VERB P-APOSTROPHE-BREAKS-WORDS>
+			<EXPAND-BE-CONTRACTIONS>)>
+	       <IFFLAG (P-TITLE-ABBRS
+			<FIX-TITLE-ABBRS>)>
+	       <SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	       <SETG TLEXV <REST-TO-SLOT ,P-LEXV LEXV-START>>)>
+	<COND (<EQUAL? <ZGET ,TLEXV 0>
+		       ,W?PERIOD ,W?THEN>	;"Is THEN first input word?"
+	       <SETG TLEXV <ZREST ,TLEXV <* 2 ,P-LEXELEN>>>;"If so, ignore it."
+	       <SETG P-LEN <- ,P-LEN 1>>)>
+	<IGNORE-FIRST-WORD ,W?YOU>
+	<IGNORE-FIRST-WORD ,W?GO ,W?TO>
+	<COND (<0? ,P-LEN>
+	       <BEG-PARDON>
+	       <RETURN <> .PARSER>)>
+	;<IF-UNDO
+		<COND (<AND <EQUAL? <ZGET ,TLEXV 0> ,W?UNDO>
+			    <EQUAL? ,P-LEN 1>
+			    <V-UNDO>>
+		       <RETURN <> .PARSER>)
+		      (<T? <ZGET ,TLEXV 0>>	;"not unknown word?"
+		       <SETG P-CAN-UNDO <ISAVE>>
+		       <COND (<EQUAL? ,P-CAN-UNDO 2>
+			      <COND (<EQUAL? <ZGET ,P-LEXV ,P-LEXSTART>,W?SAVE>
+				     <CANT-UNDO>)
+				    (T
+				     <V-$REFRESH>
+				     ;<TELL "[Undone.]|">)>
+			      <AGAIN>)>)>>
+	<COND	;"At this point, handle naked directions for speed."
+	   (<AND <SET LEN <WORD-TYPE? <ZGET ,TLEXV 0> ,P-DIR-CODE>>
+		 <OR <EQUAL? ,P-LEN 1>
+		     <G=? <- ,TLEXV ,P-LEXV>
+			  <- ,LEXV-LENGTH-BYTES <* 2 ,P-LEXELEN>>>
+		     <WORD-TYPE? <ZGET ,TLEXV ,P-LEXELEN>
+				 ,P-EOI-CODE ,P-COMMA-CODE>>>
+	    <CLEAR-PSTACK ,STATE-STACK>
+	    <CLEAR-PSTACK ,DATA-STACK>
+	    <PUSH-PSTACK ,DATA-STACK .LEN>
+	    <RED-SD 1>
+	    <SETG P-CONT <>>
+	    <SETG P-OFLAG 0>
+	    <SETG P-WORDS-AGAIN 1>
+	    <ZPUT ,OOPS-TABLE ,O-END <>>
+	    ;<ZPUT ,OOPS-TABLE ,O-AGAIN <ZGET ,OOPS-TABLE ,O-START>>
+	    <SETG M-PTR <>>
+	    <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+	    <COPYT ,P-LEXV ,G-LEXV ,LEXV-LENGTH-BYTES>
+	    <COPYT ,P-INBUF ,G-INBUF <+ 1 ,INBUF-LENGTH>>
+	    <PARSE-SUBJ ,PARSE-RESULT 0>
+	    <COND (<AND <L? 0 <SETG P-LEN <- ,P-LEN 1>>>
+			<SET LEN <ZGET <SETG TLEXV
+					<ZREST,TLEXV ,LEXV-ELEMENT-SIZE-BYTES>>
+				       0>>
+			<COMPARE-WORD-TYPES <WORD-CLASSIFICATION-NUMBER .LEN>
+					    <GET-CLASSIFICATION END-OF-INPUT>>>
+		   <SETG P-WORDS-AGAIN ,P-WORD-NUMBER>
+		   <COND (<NOT <L? <SETG P-LEN <- ,P-LEN 1>> 1>>
+			  <SETG P-CONT <ZREST ,TLEXV
+					      ,LEXV-ELEMENT-SIZE-BYTES>>)
+			 ;(T <SETG P-CONT <>>)>)>
+	    <RETURN T .PARSER>)
+	   (<==? <ZGET ,TLEXV 0> ,W?OOPS ,W?O>
+	    <PROG ((PTR ,P-LEXSTART) VAL LEN CNT)
+	     <COND (<EQUAL? <ZGET ,TLEXV ,P-LEXELEN:FIX>
+			    ,W?PERIOD ,W?COMMA>
+		    <SET PTR <+ .PTR ,P-LEXELEN:FIX>>
+		    <SETG P-LEN <- ,P-LEN 1>>)>
+	     <COND (<L=? ,P-LEN 1>
+		    <NAKED-OOPS>
+		    <RETURN <> .PARSER>)
+		   (<NOT <EQUAL? ,HERE <META-LOC .OWINNER>>>
+		    <NOT-HERE .OWINNER>
+		    <RETURN <> .PARSER>)
+		   (<SET VAL <ZGET ,OOPS-TABLE ,O-PTR>>
+		    <REPLACE-ONE-TOKEN <- ,P-LEN 1> ,P-LEXV .PTR ,G-LEXV .VAL>
+		    <SETG WINNER .OWINNER> ;"Fixes OOPS w/chars"
+		    <COPY-INPUT T>)
+		   (T
+		    <ZPUT ,OOPS-TABLE ,O-END <>>
+		    <CANT-OOPS>
+		    <RETURN <> .PARSER>)>>)
+	   (<AND <ZERO? ,P-OFLAG>
+		 <L? ,P-CONT 1>>
+	    <ZPUT ,OOPS-TABLE ,O-END <>>)>
+	  <SETG P-CONT <>>
+	  <COND (<EQUAL? <ZGET ,TLEXV 0> ,W?AGAIN ,W?G>
+		 <COND (<OR <T? ,P-OFLAG>
+			    <F? ,P-WON>
+			    <0? <GETB ,G-INBUF 2>>>
+			<CANT-AGAIN>
+			<RETURN <> .PARSER>)
+		       (<AND <G? ,P-LEN 1>
+			     <L? <- ,TLEXV ,P-LEXV>	;"for ZIP20 bug"
+				 <- ,LEXV-LENGTH-BYTES <* 2 ,P-LEXELEN>>>>
+			<SET N <ZGET ,TLEXV ,P-LEXELEN>>
+			<COND (<EQUAL? .N ,W?PERIOD ,W?COMMA ,W?THEN ,W?AND>
+			       <SETG TLEXV <ZREST ,TLEXV <* 2 ,P-LEXELEN>>>
+			       <SETG P-LEN <- ,P-LEN 1>>)
+			      (T
+			       <DONT-UNDERSTAND>
+			       <RETURN <> .PARSER>)>)>
+		 <SETG P-LEN <- ,P-LEN 1>>
+		 <SETG TLEXV <ZREST ,TLEXV <* ,P-LEXELEN:FIX 2>>>
+		 <COND (<G? ,P-LEN 0>
+			<COPYT ,P-LEXV ,M-LEXV ,LEXV-LENGTH-BYTES>
+			<COPYT ,P-INBUF ,M-INBUF <+ 1 ,INBUF-LENGTH>>
+			<SETG M-LEN ,P-LEN>
+			<SETG M-PTR ,TLEXV>
+			<SETG P-CONT ,M-PTR>)
+		       (T
+			<SETG M-PTR <>>)>
+		 <COND (<NOT <EQUAL? ,HERE <META-LOC .OWINNER>>>
+			<NOT-HERE .OWINNER>
+			<RETURN <> .PARSER>)>
+		 <SETG WINNER .OWINNER>
+		 <COPYT ,G-INBUF ,P-INBUF <+ 1 ,INBUF-LENGTH>>
+		 <COPYT ,G-LEXV ,P-LEXV ,LEXV-LENGTH-BYTES>
+		 <SETG P-LEN ,P-WORDS-AGAIN>
+		 <SETG TLEXV <ZGET ,OOPS-TABLE ,O-START ;,O-AGAIN>>)
+		(T
+		 <SETG M-PTR <>>
+		 <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+		 <COPYT ,P-LEXV ,G-LEXV ,LEXV-LENGTH-BYTES>
+		 <COPYT ,P-INBUF ,G-INBUF <+ 1 ,INBUF-LENGTH>>
+		 <ZPUT ,OOPS-TABLE ,O-START ,TLEXV>
+		 <ZPUT ,OOPS-TABLE ,O-LENGTH ,P-LEN>
+		 ;<ZPUT ,OOPS-TABLE ,O-AGAIN ,TLEXV>
+		 <COND (<ZERO? <ZGET ,OOPS-TABLE ,O-END>>
+			<SET LEN <* <* 2 ,P-LEXELEN:FIX>
+				    <GETB ,P-LEXV ,P-LEXWORDS>>>
+			<ZPUT ,OOPS-TABLE ,O-END
+			      <+ <GETB ,TLEXV <SET LEN <- .LEN 1>>>
+				 <GETB ,TLEXV <SET LEN <- .LEN 1>>>>>)>)>
+       <SETG P-WALK-DIR <>>
+       <PROG ((PV <PARSE-IT <>>))
+	  <COND
+	   (<ZERO? .PV>
+	    <SET PV <PRINT-PARSER-FAILURE>>
+	    <AGAIN>)
+	   (<1? .PV>
+	    <RETURN <> .PARSER>)
+	   (T
+	    <ZPUT ,OOPS-TABLE ,O-PTR <>>
+	    <COND (<NOT <GAME-VERB?>>
+		   <SETG P-OFLAG 0>)>
+	    <IF-P-PS-ADV
+	    <COND (<AND <EQUAL? <SET LEN <PARSE-ADV .PV>> ,W?TWICE ,W?THRICE>
+			<SET N <INTBL? .LEN
+				       <ZGET ,OOPS-TABLE ,O-START>
+				       ,P-WORDS-AGAIN
+				       *204*>>>
+		   <CHANGE-LEXV .N ,W?ONCE>	;"to avoid repeating"
+		   <DO-IT-AGAIN <COND (<EQUAL? .LEN ,W?THRICE> 2) (T 1)>>
+		   <SET PV <PARSE-IT <>>>
+		   <AGAIN>)>
+	    <IF-P-ZORK0
+	    <COND (<EQUAL? .LEN ,W?DON\'T>
+		   <COND (<EQUAL? ,WINNER ,EXECUTIONER>
+			  <TELL
+"\"Tell me what you want me to do, not what you don't.\"" CR>)
+			 (T <TELL "[Not done.]" CR>)>
+		   <RETURN <> .PARSER>)>>>
+	    <COND (<T? <ZGET ,GWIM-MSG 1>>
+		   <TELL-GWIM-MSG>
+		   <ZPUT ,GWIM-MSG 1 0>)>
+	    <RETURN T .PARSER>)>>>
+
+<CONSTANT GWIM-MSG <TABLE 0 ;"prep" 0 ;"object">>
+
+<DEFAULT-DEFINITION TELL-GWIM-MSG
+<DEFINE TELL-GWIM-MSG ("AUX" WD VB)
+	<TELL !\[>
+	<COND (<T? <SET WD <ZGET ,GWIM-MSG 0>>>
+	       <PRINT-VOCAB-WORD .WD>
+	       <TELL !\ >
+	       <SET VB <PARSE-VERB ,PARSER-RESULT>>
+	       <COND (<EQUAL? .VB ,W?SIT ,W?LIE>
+		      <COND (<EQUAL? .WD ,W?DOWN>
+			     <TELL "on ">)>)
+		     (<EQUAL? .VB ,W?GET>
+		      <COND (<EQUAL? .WD ,W?OUT>
+			     <TELL "of ">)>)>)>
+	<TELL-THE <ZGET ,GWIM-MSG 1>>
+	<TELL "]" CR>>>
+
+;<DEFAULT-DEFINITION CANT-UNDO
+<IF-UNDO
+<DEFINE CANT-UNDO ()
+	<TELL "[I can't undo that.]" CR>>>>
+
+"Take the input list, and return a list of possible parses"
+
+<IFFLAG (P-DEBUGGING-PARSER
+	 <GLOBAL SPLITS:NUMBER 0>
+	 <DEFINE P-P (X)
+		 <COND (<PMEM? .X>
+			<COND (<PMEM-TYPE? .X ADJS>	;1
+			       <PRINTI "#ADJS[">
+			       <ADJS-PRINT .X>
+			       <PRINTI "]">)
+			      (<PMEM-TYPE? .X NP>	;2
+			       <PRINTI "#NP[">
+			       <NP-PRINT .X>
+			       <PRINTI "]">)
+			      (<PMEM-TYPE? .X NPP>	;3
+			       <PRINTI "#NPP[">
+			       <REPEAT ()
+				<COND (<NPP-NOUN .X>
+				       <P-P <NPP-NOUN .X>>
+				       <PRINTI " ">)>
+				<COND (<NPP-NOUN-PHRASE .X>
+				       <P-P <NPP-NOUN-PHRASE .X>>
+				       <PRINTI " ">)>
+				<COND ;(T
+				       <P-P <NPP-NEXT .X>>
+				       ;<PRINTI " ">)
+				      (<NOT <SET X <NPP-NEXT .X>>>
+				       <RETURN>)>>
+			       <PRINTI "]">)
+			      (<PMEM-TYPE? .X NOUN-PHRASE>	;4
+			       <PRINTI "#NOUN-PHRASE[">
+			       <NP-PRINT .X>
+			       <PRINTI "]">)
+			      (<OR <PMEM-TYPE? .X PP>	;5
+				   <PMEM-TYPE? .X LOCATION>	;6>
+			       <PRINTI "#PP[">
+			       <PRINTI "W?">
+			       <PRINTB <PP-PREP .X>>
+			       <PRINTI " ">
+			       <P-P <PP-NOUN .X>>
+			       <PRINTI "]">)
+			      ;(<PMEM-TYPE? .X OBJLIST>	;7
+			       <PRINTI "#OBJLIST[">
+			       <>
+			       <PRINTI "]">)
+			      (T <PRINTI "#PMEM[]">)>)
+		       (<EQUAL? .X ,PARSE-RESULT>
+			<PRINTI "RESULT">)
+		       (<OR <AND ;<L? 0 ,VOCAB>
+				 <L? ,VOCAB ,PRSTBL>
+				 <AND <L? ,VOCAB .X>
+				      <L? .X ,PRSTBL>>>
+			    <AND <L? 0 ,VOCAB>
+				 <L? ,PRSTBL 0>
+				 <OR <L? ,VOCAB .X>
+				     <L? .X ,PRSTBL>>>>
+			<PRINTI "W?">
+			<PRINTB .X>)
+		       (T <PRINTN .X>)>>)
+	(T
+	 <GDECL (SPLITS) FIX>)>
+
+<CONSTANT PARSE-RESULT <MAKE-PARSE-RESULT>>
+<GLOBAL P-WORD-NUMBER:NUMBER ;BYTE 0>
+<GLOBAL P-WORDS-AGAIN:NUMBER ;BYTE 0>
+<GLOBAL P-OLEN:NUMBER 0>
+
+<DEFINE PARSE-IT PI ("OPT" (V:<OR FALSE PARSE-RESULT> <>)
+		     "AUX" RES:FIX (NUM 0) (SAV-LEXV ,TLEXV))
+ <IFFLAG (P-DEBUGGING-PARSER
+	  <SETG SPLITS 0>)
+	 (T
+	  <DEBUG20 <SETG SPLITS 0>>)>
+ <PSTACK-PTR ,SPLIT-STACK 0>
+ <SETG ERROR-PRIORITY 255>
+ <ZPUT ,ERROR-ARGS 1 0>
+ <SETG P-OLEN ,P-LEN>
+ <SETG OTLEXV ,TLEXV>
+ <REPEAT ()
+     <SET NUM <+ 1 .NUM>>
+     <BE-PATIENT .NUM>
+     <CLEAR-PSTACK ,STATE-STACK>
+     <PUSH-PSTACK ,STATE-STACK 1>
+     <CLEAR-PSTACK ,DATA-STACK>
+     <IF-P-DEBUGGING-PARSER
+      <COND (<T? ,P-DBUG>
+	     <PRINTI "[Reset of PMEM: ">
+	     <PRINTN ,PMEM-WORDS-USED>
+	     <PRINTI " words used.]|">)>>
+     <PMEM-RESET <>>
+     <SETG P-WORD-NUMBER 0>
+     <SETG TLEXV .SAV-LEXV>
+     <SETG P-LEN ,P-OLEN>
+     <ZPUT ,GWIM-MSG 0 0>
+     <ZPUT ,GWIM-MSG 1 0>
+     ;<ZPUT ,ERROR-ARGS 1 0>
+     <MAKE-PARSE-RESULT 'PARSE-RESULT ,PARSE-RESULT
+			'PARSE-VERB <COND (.V <PARSE-VERB .V>)>
+			'PARSE-OBJ1 <COND (.V <PARSE-OBJ1 .V>)>
+			'PARSE-LOC <COND (.V <PARSE-LOC .V>)>
+			'PARSE-QW <COND (.V <PARSE-QW .V>)>
+			'PARSE-ADJ <COND (.V <PARSE-ADJ .V>)>
+			'PARSE-SUBJ <COND (.V <PARSE-SUBJ .V>)>
+			'PARSE-QUERY <COND (.V <PARSE-QUERY .V>)>>
+     <SET RES <PARSE-SENTENCE ,PARSE-RESULT>>
+     <COND (<==? .RES ,PARSER-RESULT-AGAIN>
+	    <PSTACK-PTR ,SPLIT-STACK 0>
+	    <SETG ERROR-PRIORITY 255>
+	    <SETG P-OLEN ,P-LEN>
+	    <SET SAV-LEXV ,TLEXV ;<REST-TO-SLOT ,P-LEXV LEXV-START>>
+	    <AGAIN>)
+	   (<NOT <L? .RES ,PARSER-RESULT-WON>>
+	    <RETURN>)
+	   (<OR <0? <PSTACK-PTR ,SPLIT-STACK>>
+		<==? .RES ,PARSER-RESULT-DEAD>>
+	    ;"DEAD means unknown word or something else
+	      that couldn't be recovered by trying some other path"
+	    <RETURN>)>
+     ;"In case of partial success, anything saved has to be in orphan stuff"
+     <REPEAT (TMP TV:TABLE T2)
+	<SET T2 <PSTACK-PTR ,SPLIT-STACK>>
+	<COND (<0? <ZGET ,SPLIT-STACK <- .T2 1>>>
+	       <COND (<OR <NOT <SET TMP <ZGET ,SPLIT-STACK .T2>>>
+			  <IF-SHORT <0? <ZGET .TMP:TABLE 0>:FIX>
+				    <AND <0? <ZGET .TMP:TABLE 0>:FIX>
+					 <0? <ZGET .TMP:TABLE 1>:FIX>>>
+			  <IF-SHORT <0? <ZGET <SET TV <ZREST .TMP:TABLE 4>> 0>>
+				    <AND <0? <ZGET <SET TV <ZREST .TMP 6>> 0>>
+					 <0? <ZGET .TV 1>:FIX>>>>
+		      <PSTACK-PTR ,SPLIT-STACK <- .T2 2>>)
+		     (T
+		      <ZPUT ,SPLIT-STACK .T2 .TV>
+		      <RETURN>)>)
+	      (<==? <ZGET ,SPLIT-STACK .T2>
+		    <ZGET ,SPLIT-STACK <- .T2 1>>>
+	       ;"Through with this case"
+	       <PSTACK-PTR ,SPLIT-STACK <- .T2 2>>)
+	      (T
+	       <ZPUT ,SPLIT-STACK .T2 <+ 1 <ZGET ,SPLIT-STACK .T2>>>
+	       <RETURN>)>
+	<COND (<0? <PSTACK-PTR ,SPLIT-STACK>>
+	       <RETURN>)>>
+     <COND (<0? <PSTACK-PTR ,SPLIT-STACK>>
+	    <RETURN>)>
+     <IF-P-DEBUGGING-PARSER
+       <COND (<T? ,P-DBUG>
+	      <PRINTI "[Splits left, trying again...]|">)>>>
+ <BE-PATIENT <- 0 .NUM>>
+ <COND (<==? .RES ,PARSER-RESULT-WON> ,PARSER-RESULT)
+       (<==? .RES ,PARSER-RESULT-DEAD> 1)>>
+
+<DEFAULT-DEFINITION BUZZER-WORD?
+
+<IFN-P-BE-VERB
+<CONSTANT P-W-WORDS
+	<PLTABLE
+		<VOC "WHAT">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "WHAT\'S">>
+		<VOC "WHEN">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "WHEN\'S">>
+		<VOC "WHERE">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "WHERE\'S">>
+		<VOC "WHO">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "WHO\'S">>
+		<VOC "WHY">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "WHY\'S">>
+		<VOC "HOW">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "HOW\'S">>
+		<VOC "WOULD">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "WOULDN\'T">>
+		<VOC "COULD">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "COULDN\'T">>
+		<VOC "SHOULD">
+		<IFN-P-APOSTROPHE-BREAKS-WORDS <VOC "SHOULDN\'T">>>>>
+
+<IFN-P-BE-VERB
+<IFFLAG
+(P-APOSTROPHE-BREAKS-WORDS
+<CONSTANT P-Q-WORDS1
+       <PLTABLE	<IFN-P-BE-VERB <VOC "AREN">>
+		<IFN-P-BE-VERB <VOC "CAN">>
+		<IFN-P-BE-VERB <VOC "COULDN">>
+		<IFN-P-BE-VERB <VOC "DIDN">>
+		<IFN-P-BE-VERB <VOC "DOESN">>
+		<IFN-P-BE-VERB <VOC "DON">>
+		<VOC "HASN">
+		<VOC "HAVEN">
+		<IFN-P-BE-VERB <VOC "HE">>
+		<VOC "I">
+		<VOC "I">
+		<IFN-P-BE-VERB <VOC "I">>
+		<VOC "I">
+		<IFN-P-BE-VERB <VOC "ISN">>
+		<IFN-P-BE-VERB <VOC "IT">>
+		<VOC "LET">
+		;<VOC "SHAN">
+		<IFN-P-BE-VERB <VOC "SHE">>
+		<IFN-P-BE-VERB <VOC "SHOULDN">>
+		<IFN-P-BE-VERB <VOC "THAT">>
+		<IFN-P-BE-VERB <VOC "THEY">>
+		<IFN-P-BE-VERB <VOC "WASN">>
+		<IFN-P-BE-VERB <VOC "WE">>
+		<VOC "WE">
+		<IFN-P-BE-VERB <VOC "WEREN">>
+		<IFN-P-BE-VERB <VOC "WON">>
+		<IFN-P-BE-VERB <VOC "WOULDN">>
+		<IFN-P-BE-VERB <VOC "YOU">>>>
+
+<CONSTANT P-Q-WORDS2
+       <PLTABLE	<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<VOC "T">
+		<VOC "T">
+		<IFN-P-BE-VERB <VOC "S">>
+		<VOC "D">
+		<VOC "LL">
+		<IFN-P-BE-VERB <VOC "M">>
+		<VOC "VE">
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "S">>
+		<VOC "S">
+		;<VOC "T">
+		<IFN-P-BE-VERB <VOC "S">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "S">>
+		<IFN-P-BE-VERB <VOC "RE">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "RE">>
+		<VOC "LL">
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "T">>
+		<IFN-P-BE-VERB <VOC "RE">>>>)
+(T
+<CONSTANT P-Q-WORDS1
+       <PLTABLE	<IFN-P-BE-VERB <VOC "AREN\'T">>
+		<IFN-P-BE-VERB <VOC "CAN\'T">>
+		<IFN-P-BE-VERB <VOC "COULDN\'T">>
+		<IFN-P-BE-VERB <VOC "DIDN\'T">>
+		<IFN-P-BE-VERB <VOC "DOESN\'T">>
+		<IFN-P-BE-VERB <VOC "DON\'T">>
+		<VOC "HASN\'T">
+		<VOC "HAVEN\'T">
+		<IFN-P-BE-VERB <VOC "HE\'S">>
+		<VOC "I\'D">
+		<VOC "I\'LL">
+		<IFN-P-BE-VERB <VOC "I\'M">>
+		<VOC "I\'VE">
+		<IFN-P-BE-VERB <VOC "ISN\'T">>
+		<IFN-P-BE-VERB <VOC "IT\'S">>
+		<VOC "LET\'S">
+		;<VOC "SHAN\'T">
+		<IFN-P-BE-VERB <VOC "SHE\'S">>
+		<IFN-P-BE-VERB <VOC "SHOULDN\'T">>
+		<IFN-P-BE-VERB <VOC "THAT\'S">>
+		<IFN-P-BE-VERB <VOC "THEY\'RE">>
+		<IFN-P-BE-VERB <VOC "WASN\'T">>
+		<IFN-P-BE-VERB <VOC "WE\'RE">>
+		<VOC "WE\'LL">
+		<IFN-P-BE-VERB <VOC "WEREN\'T">>
+		<IFN-P-BE-VERB <VOC "WON\'T">>
+		<IFN-P-BE-VERB <VOC "WOULDN\'T">>
+		<IFN-P-BE-VERB <VOC "YOU\'RE">>>>)>
+
+;<GLOBAL QUESTION-WORD-COUNT:NUMBER 2>
+<CONSTANT P-Q-WORDS
+	<PLTABLE
+		<IFN-P-BE-VERB <VOC "AM">>
+		;<VOC "ANY">
+		<IFN-P-BE-VERB <VOC "ARE">>
+		<IFN-P-BE-VERB <VOC "CAN">>
+		<IFN-P-BE-VERB <VOC "COULD">>
+		<IFN-P-BE-VERB <VOC "DID">>
+		<IFN-P-BE-VERB <VOC "DO">>
+		<VOC "HAS">
+		<VOC "HAVE">
+		<IFN-P-BE-VERB <VOC "IS">>
+		<VOC "LIKE">
+		;<IFN-P-BE-VERB <VOC "MAY">>
+		;<IFN-P-BE-VERB <VOC "SHALL">>
+		<IFN-P-BE-VERB <VOC "SHOULD">>
+		<VOC "WANT">
+		<IFN-P-BE-VERB <VOC "WAS">>
+		<IFN-P-BE-VERB <VOC "WERE">>
+		;<VOC "WHICH">
+		<IFN-P-BE-VERB <VOC "WILL">>
+		<IFN-P-BE-VERB <VOC "WOULD">>>>>
+
+<CONSTANT P-N-WORDS
+	<PLTABLE <VOC "ZERO">
+		;<VOC "EIGHT">
+		;<VOC "NINE">
+		<VOC "TEN">
+		<VOC "ELEVEN">
+		<VOC "TWELVE">
+		<VOC "THIRTEEN">
+		<VOC "FOURTEEN">
+		<VOC "FIFTEEN">
+		<VOC "SIXTEEN">
+		<VOC "SEVENTEEN">
+		<VOC "EIGHTEEN">
+		<VOC "NINETEEN">
+		<VOC "TWENTY">
+		<VOC "THIRTY">
+		<VOC "FORTY">
+		<VOC "FIFTY">
+		<VOC "SIXTY">
+		<VOC "SEVENTY">
+		<VOC "EIGHTY">
+		<VOC "NINETY">
+		<VOC "HUNDRED">
+		<VOC "THOUSAND">
+		<VOC "MILLION">
+		<VOC "BILLION">>>
+
+<CONSTANT P-C-WORDS
+	<PLTABLE
+		<VOC "ASS">
+		<VOC "ASSHOLE">
+		<VOC "BASTARD">
+		<VOC "BITCH">
+		<VOC "COCK">
+		<VOC "COCKSUCKER">
+		<VOC "CRAP">
+		<VOC "CUNT">
+		;<VOC "CURSE">
+		<VOC "CUSS">
+		<VOC "DAMN">
+		<VOC "DAMNED">
+		<VOC "FUCK">
+		<VOC "FUCKED">
+		<VOC "FUCKER">
+		<VOC "FUCKING">
+		<VOC "GODDAMN">
+		<VOC "GODDAMNED">
+		<VOC "HELL">
+		<VOC "PISS">
+		<VOC "SCREW">
+		<VOC "SHIT">
+		<VOC "SHITHEAD">
+		;<VOC "SUCK">
+		<VOC "SUCKS">>>
+
+<DEFINE BUZZER-WORD? (WD PTR "AUX" N)
+ <IFN-P-BE-VERB
+ <SETG P-ERRS <+ 3 ,P-ERRS>>
+ <COND (<EQUAL? .WD ,W?\(SOMETHI ,W?SOMETHING>
+	<TELL "[Type a real word instead of" ,P-SOMETHING>
+	<RTRUE>)
+       (<INTBL? .WD <ZREST ,P-W-WORDS 2> <ZGET ,P-W-WORDS 0>>
+	<W-WORD-REPLY .WD>
+	<RTRUE>)
+       (<OR <INTBL? .WD <ZREST ,P-Q-WORDS 2> <ZGET ,P-Q-WORDS 0>>
+	    <IFFLAG (P-APOSTROPHE-BREAKS-WORDS
+		     <AND <SET N <INTBL? .WD <ZREST ,P-Q-WORDS1 2>
+					     <ZGET ,P-Q-WORDS1 0>>>
+			  <EQUAL? <ZGET .PTR ,P-LEXELEN> ,W?APOSTROPHE>
+			  <EQUAL? <ZGET ,P-Q-WORDS2 <- .N ,P-Q-WORDS1>>
+				  <ZGET .PTR <* 2 ,P-LEXELEN>>>>)
+		    (T <INTBL? .WD <ZREST ,P-Q-WORDS1 2>
+				   <ZGET ,P-Q-WORDS1 0>>)>>
+	<TELL-PLEASE-USE-COMMANDS>
+	<RTRUE>)>>
+ <COND (<INTBL? .WD <ZREST ,P-N-WORDS 2> <ZGET ,P-N-WORDS 0>>
+	<TELL "[Use numerals for numbers, for example \"10.\"]" CR>
+	<RTRUE>)
+       (<INTBL? .WD <ZREST ,P-C-WORDS 2> <ZGET ,P-C-WORDS 0>>
+	<TELL !\[ <PICK-ONE ,OFFENDED> "]" CR>
+	<RTRUE>)
+       (T <RFALSE>)>>
+
+<CONSTANT OFFENDED
+	<LTABLE 0
+		"What charming language!"
+		"Computers aren't impressed by naughty words!"
+		"You ought to be ashamed of yourself!"
+		"Hey, save that talk for the locker room!"
+		"Step outside and say that!"
+		"And so's your old man!">>
+
+<IFN-P-BE-VERB
+<DEFINE W-WORD-REPLY (WD)
+ <COND (<OR <NOT <EQUAL? .WD ,W?WHAT ,W?WHO>>
+	    <NOT <EQUAL? ,WINNER ,PLAYER>>>
+	<COND (<EQUAL? .WD ,W?WHERE>
+	       <TO-DO-X-USE-Y "locate" "FIND">
+	       <RTRUE>)
+	      (T
+	       <TO-DO-X-USE-Y "ask about" "TELL ME ABOUT">
+	       <RTRUE>)>)
+       (T
+	<TELL "[Maybe you could ">
+	<COND (<FSET? ,LIBRARY ,TOUCHBIT>
+	       <TELL "look that up in the">)
+	      (T
+	       <TELL "find an">)>
+	<TELL " encyclopedia.]" CR>)>>
+
+<DEFINE TO-DO-X-USE-Y (STR1 STR2)
+	<TELL
+"[To " .STR1 " something, use the command: " .STR2 ,P-SOMETHING>
+	<RTRUE>>
+
+<CONSTANT P-SOMETHING " (something).]|">
+<VOC "(SOMETHI">
+<VOC "SOMETHING">
+
+<DEFINE TELL-PLEASE-USE-COMMANDS
+		("AUX" (THRESH <COND (<FSET? ,GREAT-HALL ,TOUCHBIT> 10)(T 2)>))
+	<TELL "[">
+	;<SETG QUESTION-WORD-COUNT <+ 1 ,QUESTION-WORD-COUNT>>
+	<COND (<L? ,P-ERRS .THRESH>
+	       ;<NOT <ZERO? <MOD ,QUESTION-WORD-COUNT 4>>>
+	       <PRINT "Please use commands">
+	       <TELL ", not statements or questions">
+	       <PRINTR ".]">)
+	      (T
+	       <TELL-SAMPLE-COMMANDS>)>>
+>>
+
+<DEFAULT-DEFINITION NUMBER?
+<ADD-WORD "INT.NUM" ADJ>
+<ADD-WORD "INT.NUM" NOUN>
+<ADD-WORD "INT.TIM" ADJ>
+<ADD-WORD "INT.TIM" NOUN>
+
+<DEFINE NUMBER? N? (RLEXV:TABLE "AUX" BPTR:FIX
+				      (SUM:FIX 0) (TIM:NUMBER 0) (NEG:FLAG <>))
+  <SET BPTR <LEXV-WORD-OFFSET .RLEXV>>
+  <REPEAT (CHR:FIX (CNT:FIX <LEXV-WORD-LENGTH .RLEXV>))
+     <COND (<L? <SET CNT <- .CNT 1>> 0>
+	    <RETURN>)
+	   (T
+	    <SET CHR <GETB ,P-INBUF .BPTR>>
+	    <COND (<==? .CHR !\:>
+		   <SET TIM .SUM>
+		   <SET SUM 0>)
+		  (<==? .CHR !\->
+		   <COND (<T? .NEG>
+			  <RETURN <> .N?>)
+			 (T <SET NEG T>)>)
+		  (<OR <G? .CHR !\9>
+		       <L? .CHR !\0>>
+		   <RETURN <> .N?>)
+		  (<G? .SUM 3276>
+		   <RETURN <> .N?>)
+		  (T
+		   <SET SUM <+ <* .SUM 10>
+			       <- .CHR !\0>>>)>
+	    <SET BPTR <+ .BPTR 1>>)>>
+  <COND (<T? .TIM>
+	 <COND (<G? .TIM 23>
+		<RETURN <> .N?>)
+	       (<T? .NEG>
+		<RETURN <> .N?>)>
+	 <SET SUM <+ .SUM <* .TIM 60>>>
+	 <CHANGE-LEXV .RLEXV ,W?INT.TIM .BPTR .SUM>
+	 ,W?INT.TIM)
+	(T
+	 <COND (<T? .NEG>
+		<SET SUM <- 0 .SUM>>)>
+	 <CHANGE-LEXV .RLEXV ,W?INT.NUM .BPTR .SUM>
+	 ,W?INT.NUM)>>>
+
+<DEFINE CHANGE-LEXV (PTR WRD "OPT" BPTR SUM "AUX" X)
+	<LEXV-WORD .PTR .WRD>
+	<LEXV-WORD <SET X <ZREST ,G-LEXV <- .PTR ,P-LEXV>>> .WRD>
+	<COND (<ASSIGNED? BPTR>
+	       <ZPUT .PTR 1 .SUM>
+	       <ZPUT .X 1 .SUM>
+	       <SETG P-NUMBER .SUM>)>>
+
+<GLOBAL P-RUNNING:TABLE <>>
+<GLOBAL PARSE-SENTENCE-ACTIVATION <>>
+
+<DEFINE PARSE-SENTENCE PS
+	(PR:PARSE-RESULT
+	 "AUX" (SPLIT-NUM:FIX -1) RES-WCN ;"Shared var to keep locals below 16"
+	       (CURRENT-TOKEN <LEXV-WORD ,TLEXV>))
+   <SETG PARSE-SENTENCE-ACTIVATION <CATCH>>	;"for orphaning"
+   <COND (<F? .CURRENT-TOKEN>
+	  <COND (<NOT <SET CURRENT-TOKEN <UNKNOWN-WORD ,TLEXV>>>
+		 <RETURN ,PARSER-RESULT-DEAD .PS>)>)>
+   <IF-P-DEBUGGING-PARSER
+    <COND (<T? ,P-DBUG>
+	   <PRINTI "[Next token: ">
+	   <PRINTB .CURRENT-TOKEN>
+	   <PRINTI "]|">)>>
+   <REPEAT (CAV OFFS T2)
+     <COND <IF-P-APOSTROPHE-BREAKS-WORDS
+	   (<AND <EQUAL? .CURRENT-TOKEN ,W?S>
+		 <EQUAL? <ZGET <ZBACK ,TLEXV ,LEXV-ELEMENT-SIZE-BYTES> 0>
+			 ,W?APOSTROPHE>>
+	    <SET RES-WCN <GET-CLASSIFICATION MISCWORD>> ;"for possessives")>
+	   ;(<EQUAL? .CURRENT-TOKEN ,W?NO.WORD>
+	    <SET RES-WCN 0>)		;"interferes with SAY 'VERB'"
+	   (T
+	    <SET RES-WCN <WORD-CLASSIFICATION-NUMBER .CURRENT-TOKEN>>)>
+     <COND
+      (<0? .RES-WCN>
+       <COND (<F? <WORD-SEMANTIC-STUFF .CURRENT-TOKEN>>
+	      <COND (<BUZZER-WORD? .CURRENT-TOKEN ,TLEXV>
+		     <ZPUT ,OOPS-TABLE ,O-PTR
+			   <+ <* ,P-LEXELEN ,P-WORD-NUMBER> ,P-LEXSTART>>
+		     <RETURN ,PARSER-RESULT-DEAD .PS>)>
+	      <SET CAV <>>	;"A buzzword, so skip over it")
+	     (T
+	      <SET CURRENT-TOKEN <WORD-SEMANTIC-STUFF .CURRENT-TOKEN>>
+	      <AGAIN>		;"a synonym")>)
+      (T
+       <IF-SHORT <SET OFFS 0>
+		 <COND (<0? <ANDB .RES-WCN *100000*>> <SET OFFS 1>)
+		       (T <SET OFFS 0>)>>
+       <COND
+	(<AND <SET CAV <GET-TERMINAL-ACTION
+			.RES-WCN
+			<ZGET <ZGET ,ACTION-TABLE <PEEK-PSTACK ,STATE-STACK>>
+			      0>
+			.OFFS>>
+	      <NOT <0? <ANDB .RES-WCN *77777* <XORB <ZGET .CAV .OFFS> -1>>>>
+	      <GET-TERMINAL-ACTION .RES-WCN
+				   <ZREST .CAV <IF-SHORT 4 6>> .OFFS>>
+	 ;"The case we found didn't cover all cases.  TMP is the extras."
+	 <COND (<G? <+ <SET SPLIT-NUM <+ .SPLIT-NUM 2>> 1>
+		    <SET T2 <PSTACK-PTR ,SPLIT-STACK>>>
+		;"New split"
+		<IFFLAG (P-DEBUGGING-PARSER
+			 <SETG SPLITS <+ ,SPLITS 1>>)
+			(T
+			 <DEBUG20 <SETG SPLITS <+ ,SPLITS 1>>>)>
+		<SET T2 <+ 1 .T2>>
+		<COND (<G=? .T2 ,MAX-PSTACK-SIZE>
+		       <P-NO-MEM-ROUTINE>)>
+		<PSTACK-PTR ,SPLIT-STACK .T2>
+		<ZPUT ,SPLIT-STACK .T2 0>
+		;"Save the cases covered by the first thing found"
+		<SET T2 <+ 1 .T2>>
+		<COND (<G=? .T2 ,MAX-PSTACK-SIZE>
+		       <P-NO-MEM-ROUTINE>)>
+		<PSTACK-PTR ,SPLIT-STACK .T2>
+		<ZPUT ,SPLIT-STACK .T2 .CAV>
+		<IF-P-DEBUGGING-PARSER
+		  <COND (<T? ,P-DBUG>
+			 <PRINTI "[New split on a">
+			 <PRINTI " word">
+			 <PRINTI " (split #">
+			 <PRINTN ,SPLITS>
+			 <PRINTI ") at depth ">
+			 <PRINTN </ .T2 2>>
+			 <PRINTI "; word class: ">
+			 <PRINTN .RES-WCN>
+			 <PRINTI "; left: ">
+			 <PRINTN <ZGET <ZREST .CAV <IF-SHORT 4 6>> 0>>
+			 <PRINTI ".]|">)>>)
+	       (T
+		;"Old split"
+		<COND (<SET CAV <ZGET <ZREST ,SPLIT-STACK 2> .SPLIT-NUM>>
+		       <SET CAV <GET-TERMINAL-ACTION .RES-WCN .CAV .OFFS>>)>
+		<ZPUT <ZREST ,SPLIT-STACK 2> .SPLIT-NUM .CAV>)>)>
+       <COND (<NOT .CAV>
+	      <IF-P-DEBUGGING-PARSER
+	       <COND (<T? ,P-DBUG> <PRINTI "[A parse loses.]|">)>>
+	      <RETURN ,PARSER-RESULT-FAILED .PS>)>)>
+     <PROG
+	((CURRENT-ACTION:<OR FALSE TABLE FIX>
+	  <AND .CAV <IF-SHORT <ZGET .CAV 1> <ZGET .CAV 2>>>))
+	<COND
+	 (<AND .CAV <TABLE? .CURRENT-ACTION>>
+	  <COND (<G? <+ <SET SPLIT-NUM <+ .SPLIT-NUM 2>> 1>
+		     <SET T2 <PSTACK-PTR ,SPLIT-STACK>>>
+		 <IFFLAG (P-DEBUGGING-PARSER
+			  <SETG SPLITS <+ ,SPLITS 1>>)
+			 (T
+			  <DEBUG-CHECK <SETG SPLITS <+ ,SPLITS 1>>>)>
+		 <SET T2 <+ 1 .T2>>
+		 <COND (<G=? .T2 ,MAX-PSTACK-SIZE>
+			<P-NO-MEM-ROUTINE>)>
+		 <PSTACK-PTR ,SPLIT-STACK .T2>
+		 <ZPUT ,SPLIT-STACK .T2 <GETB .CURRENT-ACTION 0>>
+		 <SET T2 <+ 1 .T2>>
+		 <COND (<G=? .T2 ,MAX-PSTACK-SIZE>
+			<P-NO-MEM-ROUTINE>)>
+		 <PSTACK-PTR ,SPLIT-STACK .T2>
+		 <ZPUT ,SPLIT-STACK .T2 1>
+		 <IF-P-DEBUGGING-PARSER
+		  <COND (<T? ,P-DBUG>
+			 <PRINTI "[New split on a">
+			 <PRINTI "n action">
+			 <PRINTI " (split #">
+			 <PRINTN ,SPLITS>
+			 <PRINTI ") at depth ">
+			 <PRINTN </ .T2 2>>
+			 <PRINTI ", ">
+			 <PRINTN <GETB .CURRENT-ACTION 0>>
+			 <PRINTI " cases.]|">)>>
+		 <SET CURRENT-ACTION <GETB .CURRENT-ACTION 1>>)
+		(T
+		 <SET CURRENT-ACTION
+		      <GETB .CURRENT-ACTION <ZGET <ZREST ,SPLIT-STACK 2>
+						  .SPLIT-NUM>>>)>
+	  <IF-P-DEBUGGING-PARSER
+	    <COND (<T? ,P-DBUG>
+		   <PRINTI "[Using action ">
+		   <PRINTN .CURRENT-ACTION>
+		   <PRINTI ".]|">)>>)
+	 (<AND .CAV <NOT .CURRENT-ACTION>>
+	  ;"error"
+	  <IF-P-DEBUGGING-PARSER
+	   <COND (<T? ,P-DBUG> <PRINTI "[A parse loses.]|">)>>
+	  <RETURN ,PARSER-RESULT-FAILED .PS>)>
+	<COND
+	 (<OR <NOT .CAV> <L? .CURRENT-ACTION ,ACTION-SPLIT>>
+	  ;"shift"
+	  <COND (.CAV
+		 <IF-P-DEBUGGING-PARSER
+		  <COND (<T? ,P-DBUG>
+			 <PRINTI "[Pushing: ">
+			 <PRINTB .CURRENT-TOKEN>
+			 <PRINTI "]|">)>>
+		 <COND (<AND <PUSH-PSTACK ,DATA-STACK .CURRENT-TOKEN>
+			     <PUSH-PSTACK ,STATE-STACK .CURRENT-ACTION>>
+			T)
+		       (T <P-NO-MEM-ROUTINE>)>)>
+	  <COND (<L? <SETG P-LEN <- ,P-LEN 1>> 1>
+		 <SET CURRENT-TOKEN ,W?END.OF.INPUT>
+		 <SETG P-WORDS-AGAIN <+ 1 ,P-WORD-NUMBER>>
+		 <SETG P-CONT <>>
+		 <SETG P-LEN 0>)
+		(T
+		 <SETG P-WORD-NUMBER <+ ,P-WORD-NUMBER 1>>
+		 <SET CURRENT-TOKEN
+		      <LEXV-WORD <SETG TLEXV
+				       <ZREST ,TLEXV
+					     ,LEXV-ELEMENT-SIZE-BYTES>>>>
+		 <COND (<G? ,TLEXV ,OTLEXV>
+			<SETG OTLEXV ,TLEXV>)>)>
+	  <COND (<F? .CURRENT-TOKEN>
+		 <COND (<NOT <SET CURRENT-TOKEN <UNKNOWN-WORD ,TLEXV>>>
+			<RETURN ,PARSER-RESULT-DEAD .PS>)>)
+		(<EQUAL? .CURRENT-TOKEN ,W?THEN ,W?\! ,W?PERIOD ,W??>
+		 <SETG P-WORDS-AGAIN ,P-WORD-NUMBER>
+		 <COND (<NOT <L? <SETG P-LEN <- ,P-LEN 1>> 1>>
+			<SETG P-CONT <ZREST ,TLEXV
+					    ,LEXV-ELEMENT-SIZE-BYTES>>)
+		       (T <SETG P-CONT <>>)>)>
+	  <IF-P-DEBUGGING-PARSER
+	   <COND (<T? ,P-DBUG>
+		  <PRINTI "[Next token: ">
+		  <PRINTB .CURRENT-TOKEN>
+		  <PRINTI "]|">)>>)
+	 (<G? .CURRENT-ACTION ,ACTION-SPLIT>
+	  ;"reduce"
+	  <PROG ((REDUCTION <ZGET ,REDUCTION-TABLE
+				  <- .CURRENT-ACTION ,REDUCTION-OFFSET>>))
+		<IF-P-DEBUGGING-PARSER
+		  <COND (<T? ,P-DBUG>
+			 <PRINTI "[Reducing ">
+			 <PRINT <REDUCTION-NAME .REDUCTION>>
+			 <CRLF>
+			 ;<ZAPPLY <REDUCTION-FUNCTION .REDUCTION>>
+			 <PRINTI "Args:">
+			 <REPEAT ((N <REDUCTION-SIZE .REDUCTION>))
+				 <COND (<DLESS? N 0>
+					<PRINTI " ...">
+					<RETURN>)>
+				 <PRINTC !\ >
+				 <P-P <PEEK-PSTACK ,DATA-STACK .N>>>)>>
+		<COND (<NOT <0? <SET RES-WCN <REDUCTION-SIZE .REDUCTION>>>>
+		       <REPEAT ((N .RES-WCN))
+			       <COND (<DLESS? N 0>
+				      <RETURN>)>
+			       <POP-PSTACK ,STATE-STACK>>)>
+		;"The reduction function voids the warranty if it:
+		  Pops more or less than REDUCTION-SIZE elements off the
+		  data stack. [Fewer is OK if reduction returns false.]
+		  Modifies any of the objects on the stack (since COPY-PSTACK
+		  doesn't copy the objects."
+		<SETG CURRENT-REDUCTION .REDUCTION>
+		<SETG P-RUNNING ,TLEXV>
+		<SET RES-WCN
+		     <ZAPPLY <REDUCTION-FUNCTION .REDUCTION>
+			     <REDUCTION-SIZE .REDUCTION>
+			     ;<REDUCTION-RESULT .REDUCTION>>>
+		<SETG TLEXV ,P-RUNNING>
+		<COND (<G? ,TLEXV ,OTLEXV>
+		       <SETG OTLEXV ,TLEXV>)>
+		<COND (<L? ,P-LEN 1>
+		       <SET CURRENT-TOKEN ,W?END.OF.INPUT>)
+		      (T
+		       <SET CURRENT-TOKEN <LEXV-WORD ,TLEXV>>)>
+		<SETG CURRENT-REDUCTION <>>
+		<COND (.RES-WCN
+		       <COND (<NOT <PUSH-PSTACK ,DATA-STACK .RES-WCN>>
+			      <P-NO-MEM-ROUTINE>)>)
+		      (T
+		       <RETURN ,PARSER-RESULT-FAILED .PS>)>
+		;"This assumes that the action in the table is a simple
+		  state transition.  If not, it's a bug in the table
+		  generator."
+		<COND (<NOT <PUSH-PSTACK ,STATE-STACK
+			     <GET-NONTERMINAL-ACTION
+				<ZGET ,ACTION-TABLE <PEEK-PSTACK ,STATE-STACK>>
+				<REDUCTION-RESULT .REDUCTION>>>>
+		       <P-NO-MEM-ROUTINE>)>
+		<IF-P-DEBUGGING-PARSER
+		  <COND (<T? ,P-DBUG>
+			 <PRINTI " result: ">
+			 <P-P .RES-WCN>
+			 <PRINTI ", new state ">
+			 <PRINTN <PEEK-PSTACK ,STATE-STACK>>
+			 <PRINTI "]|">)>>>)
+	 (T
+	  ;"ACTION-SPLIT-->done"
+	  <SETG PARSER-RESULT <POP-PSTACK ,DATA-STACK>>
+	  <RETURN ,PARSER-RESULT-WON .PS>)>>>>
+
+<DEFINE GET-TERMINAL-ACTION GTA (TYPE:FIX
+			         STATE:<OR <TABLE FIX> FALSE>
+			         OFFS:FIX)
+  <COND (.STATE
+	 <IF-SHORT T <SET TYPE <ANDB .TYPE *77777*>>>
+	 <REPEAT ((V:<TABLE FIX> .STATE))
+	   <COND (<IF-SHORT <0? <ZGET .V 0>:FIX>
+			    <AND <0? <ZGET .V 0>:FIX>
+				 <0? <ZGET .V 1>:FIX>>>
+		  <RETURN <> .GTA>)>
+	   <COND (<NOT <0? <ANDB .TYPE <ZGET .V .OFFS>>>>
+		  <RETURN .V .GTA>)>
+	   <IF-SHORT <SET V <ZREST .V 4>>
+		     <SET V <ZREST .V 6>>>>)>>
+
+<DEFINE GET-NONTERMINAL-ACTION GNA (STATE:TABLE TYPE:FIX)
+  <COND (<ZGET .STATE 1>
+	 <REPEAT ((V:TABLE <ZGET .STATE 1>))
+	   <COND (<0? <GETB .V 0>:FIX>
+		  <RETURN <> .GNA>)
+		 (<==? <GETB .V 0>:FIX .TYPE>
+		  <RETURN <GETB .V 1> .GNA>)>
+	   <SET V <ZREST .V 2>>>)>>
+
+<DEFAULT-DEFINITION BE-PATIENT
+<DEFINE BE-PATIENT (NUM)
+ <COND (<L? .NUM 0>
+	<IF-P-DEBUGGING-PARSER
+		<COND (<T? ,P-DBUG>
+		       <PRINTI "[Total: ">
+		       <PRINTN <- 0 .NUM>>
+		       <PRINTI " passes.]|">)>>
+	;<TELL "[For SWG: " N <- 0 .NUM> " passes.]|">
+	<COND (<L? .NUM -15>
+	       <BUFOUT T>
+	       <TELL "]" CR>)>)
+       (<ZERO? <MOD .NUM 16>>
+	<COND (<EQUAL? .NUM 16>
+	       <BUFOUT <>>
+	       <TELL "[Please be patient...">)
+	      (T <TELL ".">)>)>>
+
+;<DEFINE BE-PATIENT (NUM)
+ <COND (<T? <MOD .NUM 16>>
+	<>)
+       (<T? <MOD .NUM 64>>
+	<TELL "[Please be patient.]" CR>)
+       (T <TELL "[Patience is a virtue!]" CR>)>>>
+
+<DEFAULT-DEFINITION P-NO-MEM-ROUTINE
+<DEFINE P-NO-MEM-ROUTINE ("OPT" (TYP 0))
+	<PRINTI "[Sorry, but that">
+	<COND (<EQUAL? .TYP 7 ;OBJLIST>
+	       <PRINTI "'s too many objects">)
+	      (T
+	       <PRINTI " sentence is too complicated">)>
+	<PRINTI ".]|">
+	<THROW ,PARSER-RESULT-DEAD ,PARSE-SENTENCE-ACTIVATION>>>
+
+<IF-P-PS-ADV
+<DEFINE DO-IT-AGAIN ("OPT" (NUM 1) "AUX" X TMP)
+	<SET X </ <- ,TLEXV ,P-LEXV> 2>>
+	<COND (<ZERO? ,P-CONT>
+	       <SET X <+ .X ,P-LEXELEN>>)>
+	<COND (<SET TMP <ZGET ,OOPS-TABLE ,O-START>>	;"restore P-LEXWORDS"
+	       <SET TMP </ <- .TMP <ZREST ,P-LEXV <* 2 ,P-LEXSTART>>>
+			   ,LEXV-ELEMENT-SIZE-BYTES>>
+	       <PUTB ,G-LEXV ,P-LEXWORDS <+ <GETB ,G-LEXV ,P-LEXWORDS> .TMP>>)>
+	<PROG ()
+	      <MAKE-ROOM-FOR-TOKENS 2 ,G-LEXV .X>
+	      <ZPUT ,G-LEXV .X ,W?PERIOD>
+	      <ZPUT ,G-LEXV <+ .X ,P-LEXELEN> ,W?AGAIN>
+	      <COND (<NOT <L? <SET NUM <- .NUM 1>> 1>>
+		     <AGAIN>)
+		    (T
+		     <PUTB ,G-LEXV ,P-LEXWORDS
+			   <- <GETB ,G-LEXV ,P-LEXWORDS> .TMP>>
+		     <COPY-INPUT T>)>>>>
+
+<DEFAULT-DEFINITION EXCLUDE-HERE-OBJECT?
+	<CONSTANT EXCLUDE-HERE-OBJECT? 0>>
+
+<DEFAULT-DEFINITION INVALID-OBJECT?
+	<CONSTANT INVALID-OBJECT? 0>>
+
+<DEFAULT-DEFINITION SEARCH-IN-LG?
+	<CONSTANT SEARCH-IN-LG? 0>>
+
+;<DEFAULT-DEFINITION SPECIAL-ADJ-CHECK
+	<CONSTANT SPECIAL-ADJ-CHECK 0>>
+
+<DEFAULT-DEFINITION PSEUDO-OBJECTS
+<DEFINE20 PSEUDO ("TUPLE" V)
+	<MAPF ,PLTABLE
+	      <FUNCTION (OBJ)
+		   <COND (<N==? <LENGTH .OBJ> 3>
+			  <ERROR BAD-THING .OBJ PSEUDO>)>
+		   <MAPRET <COND (<NTH .OBJ 2>
+				  <VOC <SPNAME <NTH .OBJ 2>> NOUN>)>
+			   <COND (<NTH .OBJ 1>
+				  <VOC <SPNAME <NTH .OBJ 1>> ADJ>)>
+			   <NTH .OBJ 3>>>
+	      .V>>
+
+<GLOBAL LAST-PSEUDO-LOC:OBJECT <>>
+
+<COND (<CHECK-VERSION? ZIP>
+       <OBJECT PSEUDO-OBJECT
+		(LOC LOCAL-GLOBALS)
+		(DESC "pseudo")
+		(ACTION 0)>)
+      (T
+       <OBJECT PSEUDO-OBJECT
+		(LOC LOCAL-GLOBALS)
+		(DESC "pseudoxxx")
+		(ACTION 0)	;"no other properties!">)>
+
+<DEFINE TEST-THINGS (RM F "AUX" CT)
+	<COND (<T? <SET CT <FIND-ADJS .F>>>
+	       <SET CT <ADJS-COUNT .CT>>)>
+	<REPEAT ((NOUN <FIND-NOUN .F>)
+		 (V <REST-TO-SLOT <FIND-ADJS .F> ADJS-COUNT 1>)
+		 (GLBS <GETP .RM ,P?THINGS>)
+		 (N <ZGET .GLBS 0>))
+		<SET N <- .N 3>>
+		<COND (<L? .N 0>
+		       <RTRUE>)
+		      (<AND <EQUAL? .NOUN ;<> ,W?ONE <ZGET .GLBS <+ .N 1>>>
+			    <OR <0? .CT>
+				<ZMEMQ <ZGET .GLBS <+ .N 2>> .V .CT>>>
+		       <SETG LAST-PSEUDO-LOC .RM>
+		       <PUTP ,PSEUDO-OBJECT
+			     ,P?ACTION
+			     <ZGET .GLBS <+ .N 3>>>
+		       <SET V <ZBACK <GETPT ,PSEUDO-OBJECT ,P?ACTION> 7>>
+		       <COND (T ;<CHECK-EXTENDED?>
+			      <COPYT .NOUN .V 6>)
+			     ;(T
+			      <ZPUT .V 0 <ZGET .NOUN 0>>
+			      <ZPUT .V 1 <ZGET .NOUN 1>>)>
+		       <ADD-OBJECT ,PSEUDO-OBJECT .F>
+		       <RFALSE>)>>>>
+
+<END-SEGMENT>
+<ENDPACKAGE>
diff --git a/pdefs.zil b/pdefs.zil
new file mode 100644
index 0000000..e666d0d
--- /dev/null
+++ b/pdefs.zil
@@ -0,0 +1,296 @@
+"PDEFS file for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZSECTION "PDEFS">
+
+<USE "NEWSTRUC" "PMEM">
+
+<INCLUDE "BASEDEFS">
+
+<FILE-FLAGS MDL-ZIL? ZAP-TO-SOURCE-DIRECTORY?>
+
+"Defaults for ZIL-type DEFSTRUCTs"
+<SET-DEFSTRUCT-FILE-DEFAULTS ('START-OFFSET 0) ('NTH ZGET) ('PUT ZPUT)
+			     'NODECL>
+
+<BLOCK (<ROOT>)>
+ZMEMQ
+ZMEMQB
+<ENDBLOCK>
+
+<COND (<OR <CHECK-VERSION? XZIP>
+	   <CHECK-VERSION? YZIP>>
+       <DEFMAC ZMEMQB ('OBJ 'TBL 'LEN)
+         <FORM INTBL? .OBJ .TBL .LEN 1>>)
+      (T
+       <ROUTINE ZMEMQB ZM (OBJ:ANY TBL:TABLE LEN:FIX)
+         <REPEAT ((N 0))
+		 <COND (<==? <GETB .TBL .N> .OBJ>
+			<RETURN <ZREST .TBL .N> .ZM>)>
+		 <COND (<G=? <SET N <+ .N 1>> .LEN>
+			<RETURN <> .ZM>)>>>)>
+
+<COND (<CHECK-VERSION? ZIP>
+       <ROUTINE ZMEMQ (OBJ:ANY TBL:TABLE LEN:FIX)
+         <REPEAT ((N 0))
+	   <COND (<==? <ZGET .TBL .N> .OBJ>
+		  <RETURN <ZREST .TBL <* .N 2>>>)>
+	   <COND (<G=? <SET N <+ .N 1>> .LEN>
+		  <RETURN <>>)>>>)
+      (T
+       <DEFMAC ZMEMQ ('OBJ 'TBL 'LEN)
+         <FORM INTBL? .OBJ .TBL .LEN>>)>
+
+<SETG20 PDEFS-INTERNAL-OBLIST .OBLIST>
+
+;<MSETG PARSER-ERROR-ARG-PMEM 1>
+;<MSETG PARSER-ERROR-ARG-VWORD 2>
+<MSETG PARSER-ERROR-TMNOUN 247>
+<MSETG PARSER-ERROR-NOOBJ 248>
+;<MSETG PARSER-ERROR-NOOBJ2 249>
+<MSETG PARSER-ERROR-ORPH-NP 250>
+<MSETG PARSER-ERROR-ORPH-S 251>
+<MSETG PARSER-ERROR-NOMULT 252>
+<MSETG PARSER-ERROR-NOUND 253>
+;<MSETG PARSER-ERROR-QUIET 254>
+
+<MSETG PARSER-RESULT-DEAD 0>
+<MSETG PARSER-RESULT-FAILED 1>
+<MSETG PARSER-RESULT-WON 2>
+<MSETG PARSER-RESULT-AGAIN 3>
+
+<MSETG FD-INCLUDE? 1>
+<MSETG FD-SEARCH? 2>
+<MSETG FD-NEST? 4>
+<MSETG FD-NOTOP? 8>
+
+"Definitions for various PMEMs"
+<MSETG ADJS-MAX-COUNT 4>
+<PM-TYPE ADJS ;1 <+ 4 ,ADJS-MAX-COUNT>
+	 (LEXPTR FIX)
+	 (POSS ANY ;<OR FALSE OBJECT PMEM ;"noun">)
+	 (QUANT <OR FALSE FIX>)
+	 (COUNT FIX 0)>
+<CONSTANT ORPHAN-ADJS <ITABLE <+ 1 <+ 4 ,ADJS-MAX-COUNT>> 0>>
+
+<MSETG NP-LENGTH 9>
+<PM-TYPE NP ;2 ,NP-LENGTH
+	 (ADJS <OR FALSE PMEM>)
+	 (NAME <OR FALSE VWORD>)
+	 (QUANT <OR FALSE FIX>)
+	 (OF <OR FALSE PMEM>)
+	 (LOC <OR FALSE PMEM>)
+	 (EXCEPT <OR FALSE PMEM>)
+	 (LEXBEG <OR FALSE FIX>)
+	 (LEXEND <OR FALSE FIX>)>
+<CONSTANT ORPHAN-NP	<ITABLE <+ 1 ,NP-LENGTH> 0>>
+<CONSTANT ORPHAN-NP2	<ITABLE <+ 1 ,NP-LENGTH> 0>>
+
+<PM-TYPE NPP ;3 3
+	 (NEXT <OR FALSE PMEM ;NPP>)
+	 (NOUN <OR FALSE PMEM ;NP>)
+	 (NOUN-PHRASE <OR FALSE PMEM>)>
+<PM-TYPE NOUN-PHRASE ;4 <>
+	 (COUNT FIX 0)
+	 (FLAGS FIX 0)
+	 (OBJ1 <OR FALSE FIX ;OBJECT>)
+	 (NP1 <OR FALSE PMEM ;NP>)>
+
+<MSETG NP-FLAG-MULTI 1>
+;<DEFMAC NP-MULTI? ('NOUN-PHRASE)
+  <FORM NOT <FORM 0? <FORM ANDB <FORM NOUN-PHRASE-FLAGS .NOUN-PHRASE>
+			   ,NP-FLAG-MULTI>>>>
+<MSETG NOUN-PHRASE-ENTLENB 4>
+<MSETG NOUN-PHRASE-ENTLEN 2>
+<MSETG NOUN-PHRASE-HEADER-LEN 3>
+<MSETG NOUN-PHRASE-MIN-LENGTH 4>
+
+<PM-TYPE PP ;5 2
+	 (PREP VWORD NONE)
+	 (NOUN PMEM ;<OR NP NPP> NONE)>
+<PM-TYPE LOCATION ;6 2
+	 (PREP VWORD NONE)
+	 (OBJECT PMEM NONE)>
+<PM-TYPE OBJLIST ;7 <>
+	 (SIZE FIX)
+	 ;(COUNT <OR FALSE FIX>)
+	 (NEXT <OR FALSE PMEM>)
+	 (OWNER ANY)	;"for compatibility with FIND-RES"
+	 (OBJ1 ANY)>
+
+"NP-QUANT slot"
+<MSETG NP-QUANT-NONE <>>
+<MSETG NP-QUANT-A 1>
+;<MSETG NP-QUANT-SOME 2>
+<MSETG NP-QUANT-ALL 3>
+<MSETG NP-QUANT-BOTH 4>
+<MSETG NP-QUANT-NOTHING 5>
+<MSETG NP-QUANT-PLURAL 6>
+
+<ADD-WORD ALL QUANT>
+<ADD-WORD A QUANT>
+<ADD-WORD AN QUANT>
+<ADD-WORD ANY QUANT>
+<ADD-WORD EITHER QUANT>
+;<ADD-WORD SOME QUANT>	"It's a can of some worms."
+
+<CONSTANT NP-QUANT-TBL-LEN 6>
+<CONSTANT NP-QUANT-TBL
+    <PTABLE	NP-QUANT-ALL	<VOC "ALL">
+		NP-QUANT-BOTH	<VOC "BOTH">
+		NP-QUANT-A	<VOC "ONE">
+		NP-QUANT-A	<VOC "EITHER">
+		NP-QUANT-A	<VOC "ANY">
+		;NP-QUANT-SOME	;<VOC "SOME">
+		;NP-QUANT-NOTHING ;<VOC "NONE">>>
+
+<GDECL (VALID-VERB-CLASSES VALID-QUESTION-CLASSES) <VECTOR [REST FIX]>>
+
+ADJ-CLASS
+NOUN-CLASS
+
+<MSETG FIRST-PERSON 8>
+<MSETG PLURAL-FLAG 16>
+<MSETG SECOND-PERSON 32>
+<MSETG THIRD-PERSON 64>
+<MSETG PRESENT-TENSE 256>
+<MSETG PAST-TENSE 512>
+<MSETG FUTURE-TENSE 1024>
+<MSETG POSSESSIVE 16384>
+;"<MSETG PERSON-PNF 4096>
+<MSETG THING-PNF 8192>
+<MSETG DONT-ORPHAN 32768>
+<MSETG DEFAULT-OBJECT 65536>"
+
+<COND (<OR <CHECK-VERSION? XZIP>
+	   <CHECK-VERSION? YZIP>>
+       <DEFMAC ZSUBSTRUC ('OT 'CT 'NT)
+         <FORM COPYT .OT .NT <FORM * .CT 2>>>)
+      (T
+       <ROUTINE ZSUBSTRUC (OT:<PRIMTYPE TABLE> CT:FIX NT:<PRIMTYPE TABLE>)
+         <REPEAT ()
+		 <COND (<L? <SET CT <- .CT 1>> 0> <RETURN>)>
+		 <ZPUT .NT .CT <ZGET .OT .CT>>>
+	 .NT>)>
+
+<DEFSTRUCT PARSE-RESULT
+	   (TABLE
+	    ('PRINTTYPE TABLE-PRINT))
+	;0 (PARSE-ADV <OR FALSE VWORD>)
+	   (PARSE-VERB <OR FALSE VWORD>)
+	   (PARSE-VERB-LEXV <OR FALSE TABLE>)
+	;6 (PARSE-SYNTAX <OR FALSE VERB-SYNTAX>)
+	   (PARSE-ACTION <OR FALSE FIX>)
+	   (PARSE-OBJ1 <OR FALSE PMEM ;NOUN-PHRASE>)
+	;12(PARSE-OBJ2 <OR FALSE PMEM>)
+	   (PARSE-PARTICLE1 <OR FALSE VWORD>)
+	   (PARSE-PARTICLE2 <OR FALSE VWORD>)
+	;18(PARSE-LOC <OR FALSE PMEM ;PP>)
+	   (PARSE-QW <OR FALSE VWORD>)
+	   (PARSE-ADJ <OR FALSE VWORD>)
+	;24(PARSE-CHOMPER <OR FALSE PMEM ;NOUN-PHRASE ;OBJECT>)
+	   (PARSE-SUBJ <OR FALSE PMEM>)
+	   (PARSE-QUERY <OR FALSE VWORD>)
+	;30(PARSE-QUERY-SYNTAX <OR FALSE VERB-SYNTAX>)
+	   (PARSE-FLAGS FIX)>
+
+<MSETG PARSE-NOT 1>
+<MSETG PARSE-QUESTION 2>
+
+<CONSTANT ORPHAN-S <ITABLE 7 0>>
+<CONSTANT O-VERB 0 ;<OR FALSE VWORD>>
+<CONSTANT O-LEXPTR 1 ;<OR FALSE TABLE>>
+<CONSTANT O-SYNTAX 2 ;<OR FALSE VERB-SYNTAX>>
+<CONSTANT O-WHICH 3 ;<OR FALSE FIX>>
+<CONSTANT O-PART 4 ;<OR FALSE VWORD>>
+<CONSTANT O-OBJECT 5 ;<OR FALSE OBJECT>>
+<CONSTANT O-SUBJECT 6 ;<OR FALSE OBJECT>>
+
+"Objects are inserted (starting at find-res-obj1 until the vector is full;
+ then additional objects go into an objlist allocated from pmem;
+ the TOTAL count goes in find-res-count..."
+
+<DEFSTRUCT FIND-RES
+	   (TABLE 'NOTYPE)
+	   ;(FIND-RES-HEADER FIX 'NONE)
+	   (FIND-RES-SIZE FIX 'NONE)	;( 'NTH GETB 'PUT PUTB 'OFFSET 0)
+	   (FIND-RES-COUNT FIX 0)	;( 'NTH GETB 'PUT PUTB 'OFFSET 1)
+	   (FIND-RES-NEXT <OR PMEM FALSE>)
+	   (FIND-RES-OWNER ANY <>)	;"owner found for body part"
+	   (FIND-RES-OBJ1 ANY <>)
+	   ;(FIND-RES-OBJ2 ANY <>)>
+
+<MSETG FIND-RES-LENGTH 10 ;13>
+<MSETG FIND-RES-MAXOBJ 6 ;7>
+
+<CONSTANT SEARCH-RES
+	  <MAKE-FIND-RES 'FIND-RES <ITABLE ,FIND-RES-LENGTH 0>
+			 'FIND-RES-SIZE ,FIND-RES-MAXOBJ
+			 'FIND-RES-COUNT 0>>
+
+<CONSTANT ORPHAN-SR
+	  <MAKE-FIND-RES 'FIND-RES <ITABLE ,FIND-RES-LENGTH 0>
+			 'FIND-RES-SIZE ,FIND-RES-MAXOBJ
+			 'FIND-RES-COUNT 0>>
+
+<CONSTANT OWNER-SR-HERE
+	  <MAKE-FIND-RES 'FIND-RES <ITABLE ,FIND-RES-LENGTH 0>
+			 'FIND-RES-SIZE ,FIND-RES-MAXOBJ
+			 'FIND-RES-COUNT 0>>
+
+<CONSTANT OWNER-SR-THERE
+	  <MAKE-FIND-RES 'FIND-RES <ITABLE ,FIND-RES-LENGTH 0>
+			 'FIND-RES-SIZE ,FIND-RES-MAXOBJ
+			 'FIND-RES-COUNT 0>>
+
+<DEFSTRUCT FINDER
+	   TABLE
+	;0 (FIND-APPLIC <OR TABLE FIX> 0) ;"Thing to call to check object"
+	   (FIND-FLAGS FIX)	;"Gwimming, search globals, etc."
+	   (FIND-QUANT <OR FIX FALSE>)	;"All, one, etc."
+	;6 (FIND-SYNTAX <OR FALSE VERB-SYNTAX>)
+	   (FIND-WHICH FIX)	;"Which argument of the verb we're getting"
+	   (FIND-ADJS <OR PMEM FALSE>)
+	;12(FIND-NOUN <OR VWORD FALSE>)
+	   (FIND-OF <OR FALSE PMEM>)
+	   (FIND-EXCEPTIONS <OR PMEM FALSE>)
+	;18(FIND-RES <OR FIND-RES FALSE>)
+	   ;"Where to put result, whatever it is."
+	   (FIND-NUM FIX)>
+
+;"<DEFMAC WT? ('PTR 'BIT 'OPT' 'B1)
+  <COND (<AND <TYPE? .BIT GVAL>
+	      <=? <MEMBER 'PS?' <SPNAME <CHTYPE .BIT ATOM>>>
+		  <SPNAME <CHTYPE .BIT ATOM>>>>
+	 <SET BIT <REST <SPNAME <CHTYPE .BIT ATOM>> 3>>)>
+  <SET BIT <GET-CLASSIFICATION .BIT>>
+  <COND (<OR <NOT <ASSIGNED? B1>>
+	     <COMPARE-WORD-TYPES .BIT <GET-CLASSIFICATION NOUN>>>
+	 <FORM COMPARE-WORD-TYPES <FORM WORD-CLASSIFICATION-NUMBER .PTR>
+	       .BIT>)
+	(T
+	 <COND (<COMPARE-WORD-TYPES .BIT <GET-CLASSIFICATION ADJ>>
+		<COND (T ;<CHECK-EXTENDED?>
+			   <FORM COMPARE-WORD-TYPES .BIT
+				 <FORM WORD-CLASSIFICATION-NUMBER .PTR>>)
+		      ;(T
+			   <FORM COND (<FORM COMPARE-WORD-TYPES .BIT
+					     <FORM WORD-CLASSIFICATION-NUMBER
+						   .PTR>>
+				       <FORM WORD-ADJ-ID .PTR>)>)>)
+	       (<COMPARE-WORD-TYPES .BIT <GET-CLASSIFICATION VERB>>
+		<FORM COND (<FORM COMPARE-WORD-TYPES .BIT
+				  <FORM WORD-CLASSIFICATION-NUMBER .PTR>>
+			    <FORM WORD-VERB-STUFF .PTR>)>)
+	       (<COMPARE-WORD-TYPES .BIT <GET-CLASSIFICATION DIR>>
+		<FORM COND (<FORM COMPARE-WORD-TYPES .BIT
+				  <FORM WORD-CLASSIFICATION-NUMBER .PTR>>
+			    <FORM WORD-DIR-ID .PTR>)>)
+	       (T
+		<FORM COMPARE-WORD-TYPES .BIT
+		      <FORM WORD-CLASSIFICATION-NUMBER .PTR>>)>)>>"
+
+<DEFMAC OBJECT? ('N)
+	<FORM AND <FORM L? 0 .N> <FORM L=? .N ',LAST-OBJECT>>>
+
+<END-DEFINITIONS>
diff --git a/pic.zabstr b/pic.zabstr
new file mode 100644
index 0000000..c1cb97d
--- /dev/null
+++ b/pic.zabstr
@@ -0,0 +1,13 @@
+
+<BEGIN-SEGMENT STARTUP> 
+<DEFINE-ROUTINE TITLE-SCREEN> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<CONSTANT YX-TBL <TABLE 0 0>> 
+<CONSTANT WIN-TBL <TABLE 0 0 0>> 
+<DEFINE-ROUTINE YCEILING> 
+<DEFINE-ROUTINE XCEILING> 
+<CONSTANT WTBL <LTABLE 0>> 
+<DEFINE-ROUTINE MARGINAL-PIC> 
+<DEFINE-ROUTINE RESET-MARGIN> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/pic.zap b/pic.zap
new file mode 100644
index 0000000..1b7fb1d
--- /dev/null
+++ b/pic.zap
@@ -0,0 +1,100 @@
+
+	.SEGMENT "STARTUP"
+
+
+	.FUNCT	TITLE-SCREEN
+	CLEAR	-1
+	PICINF	P-TITLE,YX-TBL /?BOGUS1
+?BOGUS1:	SET	'CURRENT-SPLIT,TITLE-SCREEN-PICTURE
+	GET	YX-TBL,0
+	SPLIT	STACK
+	SCREEN	1
+	DISPLAY	P-TITLE,1,1
+	SCREEN	0
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	YCEILING,Y
+	SUB	FONT-Y,1
+	ADD	Y,STACK
+	DIV	STACK,FONT-Y
+	MUL	FONT-Y,STACK
+	RSTACK	
+
+
+	.FUNCT	XCEILING,X
+	SUB	FONT-X,1
+	ADD	X,STACK
+	DIV	STACK,FONT-X
+	MUL	FONT-X,STACK
+	RSTACK	
+
+
+	.FUNCT	MARGINAL-PIC,P,X,Y,YLEFT,HIGH,YLOC,WWIDTH,?TMP1,?TMP2
+	PICINF	P,YX-TBL /?BOGUS1
+?BOGUS1:	GET	YX-TBL,0
+	CALL2	YCEILING,STACK >Y
+	GET	YX-TBL,1
+	CALL2	XCEILING,STACK >X
+	WINGET	S-TEXT,WHIGH >HIGH
+	WINGET	S-TEXT,WWIDE >WWIDTH
+	WINGET	S-TEXT,WYPOS
+	SUB	STACK,1 >YLEFT
+	SUB	HIGH,YLEFT >YLEFT
+	GRTR?	Y,YLEFT \?CND2
+	CURGET	YX-TBL
+	GET	YX-TBL,0 >YLOC
+	SUB	Y,YLEFT
+	CALL2	YCEILING,STACK >YLEFT
+	SCROLL	S-TEXT,YLEFT
+	SUB	YLOC,YLEFT >YLOC
+	GRTR?	YLOC,0 /?CND4
+	SET	'YLOC,1
+?CND4:	GET	YX-TBL,1
+	CURSET	YLOC,STACK
+?CND2:	WINGET	S-TEXT,WYPOS
+	ADD	Y,STACK >YLEFT
+	PICINF	ICON-OFFSET,PICINF-TBL /?BOGUS6
+?BOGUS6:	WINGET	S-TEXT,WYPOS >?TMP2
+	GET	PICINF-TBL,0
+	ADD	?TMP2,STACK >?TMP1
+	GET	PICINF-TBL,1
+	ADD	1,STACK
+	DISPLAY	P,?TMP1,STACK
+	ADD	X,FONT-X >X
+	LESS?	X,WWIDTH /?CCL9
+	CURSET	YLEFT,1
+	ZERO?	DEMO-VERSION? /?CCL12
+	ICALL2	INPUT-DEMO,1
+	JUMP	?CND10
+?CCL12:	INPUT	1
+?CND10:	ICALL1	MOUSE-INPUT?
+	SUB	HIGH,YLEFT
+	GRTR?	STACK,FONT-Y /FALSE
+	SCROLL	S-TEXT,FONT-Y
+	RTRUE	
+?CCL9:	MARGIN	X,0
+	DIV	Y,FONT-Y >Y
+	SUB	WWIDTH,X
+	DIV	STACK,FONT-X >WWIDTH
+	GRTR?	WWIDTH,INBUF-LENGTH \?CCL18
+	PUSH	INBUF-LENGTH
+	JUMP	?CND16
+?CCL18:	PUSH	WWIDTH
+?CND16:	PUTB	P-INBUF,0,STACK
+	WINPUT	0,WCRCNT,Y
+	WINPUT	0,WCRFUNC,RESET-MARGIN
+	RTRUE	
+
+
+	.FUNCT	RESET-MARGIN
+	MARGIN	0,0
+	RTRUE	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/pic.zil b/pic.zil
new file mode 100644
index 0000000..7196084
--- /dev/null
+++ b/pic.zil
@@ -0,0 +1,96 @@
+"PIC for
+				Library
+	(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
+
+<BEGIN-SEGMENT STARTUP>
+
+<ROUTINE TITLE-SCREEN ()
+	 <CLEAR -1>
+	 <PICINF ,P-TITLE ,YX-TBL>
+	 <SETG CURRENT-SPLIT ,TITLE-SCREEN-PICTURE>
+	 <SPLIT <GET ,YX-TBL 0>>
+	 <SCREEN 1>
+	 <DISPLAY ,P-TITLE 1 1>
+	 ;<CENTER-PIC ,P-TITLE>
+	 <SCREEN 0>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT 0>
+
+<CONSTANT YX-TBL <TABLE 0 0>>
+
+;<ROUTINE CENTER-PIC (P "AUX" X (CENTER </ ,WIDTH 2>))
+	 <CPICINF .P ,YX-TBL>
+	 <SET X <GET ,YX-TBL 1>>
+	 <CDISPLAY .P 1 <- .CENTER </ .X 2>>>>
+
+<CONSTANT WIN-TBL <TABLE 0 0 0>>
+
+<ROUTINE YCEILING (Y)
+	 <* ,FONT-Y </ <+ .Y <- ,FONT-Y 1>> ,FONT-Y>>>
+
+<ROUTINE XCEILING (X)
+	 <* ,FONT-X </ <+ .X <- ,FONT-X 1>> ,FONT-X>>>
+
+<CONSTANT WTBL <LTABLE 0>>
+
+;<ROUTINE WINPROP (WIN PROP)
+	 <WINGET .WIN ,WTBL .PROP>
+	 <GET ,WTBL 1>>
+
+<ROUTINE MARGINAL-PIC (P "AUX" X Y YLEFT HIGH YLOC WWIDTH)
+	 <PICINF .P ,YX-TBL>
+	 ;"Integral character height of the picture"
+	 <SET Y <YCEILING <GET ,YX-TBL 0>>>
+	 ;"Round up to integral character width"
+	 <SET X <XCEILING <GET ,YX-TBL 1>>>
+	 <SET HIGH <WINGET ,S-TEXT ,WHIGH>>
+	 <SET WWIDTH <WINGET ,S-TEXT ,WWIDE>>
+	 <SET YLEFT <- <WINGET ,S-TEXT ,WYPOS> 1>>
+	 <SET YLEFT <- .HIGH .YLEFT>>
+	 <COND (<G? .Y .YLEFT>
+		<CURGET ,YX-TBL>
+		<SET YLOC <GET ,YX-TBL 0>>
+		<SET YLEFT <YCEILING <- .Y .YLEFT>>>
+		<SCROLL ,S-TEXT .YLEFT>
+		<SET YLOC <- .YLOC .YLEFT>>
+		<COND (<L=? .YLOC 0> <SET YLOC 1>)>
+		<CURSET .YLOC <GET ,YX-TBL 1>>)>
+	 <SET YLEFT <+ .Y <WINGET ,S-TEXT ,WYPOS>>>
+	 <PICINF ,ICON-OFFSET ,PICINF-TBL>
+	 <DISPLAY .P <+ <WINGET ,S-TEXT ,WYPOS> <GET ,PICINF-TBL 0>>
+		     <+ 1 <GET ,PICINF-TBL 1>>>
+	 <SET X <+ .X ,FONT-X>>
+	 <COND (<G=? .X .WWIDTH>
+		<CURSET .YLEFT 1>
+		<COND (,DEMO-VERSION?
+		       <INPUT-DEMO 1>)
+		      (T
+		       <INPUT 1>)>
+		<MOUSE-INPUT?>
+		<COND (<L=? <- .HIGH .YLEFT> ,FONT-Y>
+		       <SCROLL ,S-TEXT ,FONT-Y>)>)
+	       (T
+		;<COND (.RIGHT?
+		       <MARGIN 0 .X>)
+		      (T
+		       <MARGIN .X 0>)>
+		<MARGIN .X 0>
+		<SET Y </ .Y ,FONT-Y>>
+		<SET WWIDTH </ <- .WWIDTH .X> ,FONT-X>>
+		<PUTB ,P-INBUF 0
+		      <COND (<G? .WWIDTH ,INBUF-LENGTH>
+			     ,INBUF-LENGTH)
+			    (T
+			     .WWIDTH)>>
+		;<PUT ,WIN-TBL 0 2>
+		;<PUT ,WIN-TBL 1 ,RESET-MARGIN>
+		;<PUT ,WIN-TBL 2 .Y ;<+ .Y 1>>
+		<WINPUT 0 ,WCRCNT .Y>
+		<WINPUT 0 ,WCRFUNC ,RESET-MARGIN>)>>
+
+<ROUTINE RESET-MARGIN ()
+	 <MARGIN 0 0>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/picdef.zil b/picdef.zil
new file mode 100644
index 0000000..95f9015
--- /dev/null
+++ b/picdef.zil
@@ -0,0 +1,484 @@
+
+<CONSTANT P-TITLE 1>
+<CONSTANT PROLOGUE-LETTER 2>
+<CONSTANT MAIN-LETTER 3>
+<CONSTANT EPILOGUE-LETTER 4>
+<CONSTANT CASTLE-BORDER 5>
+<CONSTANT OUTSIDE-BORDER 6>
+<CONSTANT UNDERGROUND-BORDER 7>
+<CONSTANT HINT-BORDER 8>
+<CONSTANT N-HL 9>
+<CONSTANT NE-HL 10>
+<CONSTANT E-HL 11>
+<CONSTANT SE-HL 12>
+<CONSTANT S-HL 13>
+<CONSTANT SW-HL 14>
+<CONSTANT W-HL 15>
+<CONSTANT NW-HL 16>
+<CONSTANT N-UNHL 17>
+<CONSTANT NE-UNHL 18>
+<CONSTANT E-UNHL 19>
+<CONSTANT SE-UNHL 20>
+<CONSTANT S-UNHL 21>
+<CONSTANT SW-UNHL 22>
+<CONSTANT W-UNHL 23>
+<CONSTANT NW-UNHL 24>
+<CONSTANT ENC-BORDER 25>
+<CONSTANT ZILBEETHA-ILL 26>
+<CONSTANT BROGMOIDISM-ILL 27>
+<CONSTANT DIMWIT-ILL 28>
+<CONSTANT MEGABOZ-ILL 29>
+<CONSTANT J-ILL 30>
+<CONSTANT FLATHEADIA-ILL 31>
+<CONSTANT FR-ILL 32>
+<CONSTANT FOUR-FLIES-ILL 33>
+<CONSTANT REBUS-0 34>
+<CONSTANT REBUS-1 35>
+<CONSTANT REBUS-2 36>
+<CONSTANT REBUS-3 37>
+<CONSTANT REBUS-4 38>
+<CONSTANT REBUS-5 39>
+<CONSTANT REBUS-6 40>
+<CONSTANT B-BORDER 41>
+<CONSTANT B-RESTORE-PEG 42>
+<CONSTANT B-1-WEIGHT 43>
+<CONSTANT B-2-WEIGHT 44>
+<CONSTANT B-3-WEIGHT 45>
+<CONSTANT B-4-WEIGHT 46>
+<CONSTANT B-5-WEIGHT 47>
+<CONSTANT B-6-WEIGHT 48>
+<CONSTANT PBOZ-BORDER 49>
+<CONSTANT UNHL-PEG 50>
+<CONSTANT HL-PEG 51>
+<CONSTANT BG-A 52>
+<CONSTANT BG-B 53>
+<CONSTANT BG-C 54>
+<CONSTANT BG-D 55>
+<CONSTANT BG-E 56>
+<CONSTANT BG-F 57>
+<CONSTANT BG-G 58>
+<CONSTANT BG-H 59>
+<CONSTANT BG-I 60>
+<CONSTANT BG-J 61>
+<CONSTANT BG-K 62>
+<CONSTANT BG-L 63>
+<CONSTANT BG-M 64>
+<CONSTANT BG-N 65>
+<CONSTANT BG-O 66>
+<CONSTANT BG-P 67>
+<CONSTANT BG-Q 68>
+<CONSTANT BG-R 69>
+<CONSTANT BG-S 70>
+<CONSTANT BG-T 71>
+<CONSTANT BG-U 72>
+<CONSTANT SN-BORDER 73>
+<CONSTANT PILE-OF-0 74>
+<CONSTANT PILE-OF-1 75>
+<CONSTANT PILE-OF-2 76>
+<CONSTANT PILE-OF-3 77>
+<CONSTANT PILE-OF-4 78>
+<CONSTANT PILE-OF-5 79>
+<CONSTANT PILE-OF-6 80>
+<CONSTANT PILE-OF-7 81>
+<CONSTANT PILE-OF-8 82>
+<CONSTANT PILE-OF-9 83>
+<CONSTANT R-FLOWERS-0 84>
+<CONSTANT R-FLOWERS-1 85>
+<CONSTANT R-FLOWERS-2 86>
+<CONSTANT R-FLOWERS-3 87>
+<CONSTANT R-FLOWERS-4 88>
+<CONSTANT R-FLOWERS-5 89>
+<CONSTANT R-FLOWERS-6 90>
+<CONSTANT R-FLOWERS-7 91>
+<CONSTANT R-FLOWERS-8 92>
+<CONSTANT R-FLOWERS-9 93>
+<CONSTANT L-FLOWERS-0 94>
+<CONSTANT L-FLOWERS-1 95>
+<CONSTANT L-FLOWERS-2 96>
+<CONSTANT L-FLOWERS-3 97>
+<CONSTANT L-FLOWERS-4 98>
+<CONSTANT F-BORDER 99>
+<CONSTANT F-CARD-BACK 100>
+<CONSTANT F-CARD 101>
+<CONSTANT F-INKBLOTS 102>
+<CONSTANT F-PLUNGERS 103>
+<CONSTANT F-BUGS 104>
+<CONSTANT F-ZURFS 105>
+<CONSTANT F-EARS 106>
+<CONSTANT F-TOPS 107>
+<CONSTANT F-RAIN 108>
+<CONSTANT F-HIVES 109>
+<CONSTANT F-FACES 110>
+<CONSTANT F-MAZES 111>
+<CONSTANT F-LAMPS 112>
+<CONSTANT F-TIME 113>
+<CONSTANT F-BOOKS 114>
+<CONSTANT F-SCYTHES 115>
+<CONSTANT F-FROMPS 116>
+<CONSTANT F-RV-INKBLOTS 117>
+<CONSTANT F-RV-PLUNGERS 118>
+<CONSTANT F-RV-BUGS 119>
+<CONSTANT F-RV-ZURFS 120>
+<CONSTANT F-RV-EARS 121>
+<CONSTANT F-RV-TOPS 122>
+<CONSTANT F-RV-RAIN 123>
+<CONSTANT F-RV-HIVES 124>
+<CONSTANT F-RV-FACES 125>
+<CONSTANT F-RV-MAZES 126>
+<CONSTANT F-RV-LAMPS 127>
+<CONSTANT F-RV-TIME 128>
+<CONSTANT F-RV-BOOKS 129>
+<CONSTANT F-RV-SCYTHES 130>
+<CONSTANT F-RV-FROMPS 131>
+<CONSTANT F-0 132>
+<CONSTANT F-1 133>
+<CONSTANT F-2 134>
+<CONSTANT F-3 135>
+<CONSTANT F-4 136>
+<CONSTANT F-5 137>
+<CONSTANT F-6 138>
+<CONSTANT F-7 139>
+<CONSTANT F-8 140>
+<CONSTANT F-9 141>
+<CONSTANT F-INFINITY 142>
+<CONSTANT F-RV-0 143>
+<CONSTANT F-RV-1 144>
+<CONSTANT F-RV-2 145>
+<CONSTANT F-RV-3 146>
+<CONSTANT F-RV-4 147>
+<CONSTANT F-RV-5 148>
+<CONSTANT F-RV-6 149>
+<CONSTANT F-RV-7 150>
+<CONSTANT F-RV-8 151>
+<CONSTANT F-RV-9 152>
+<CONSTANT F-RV-INFINITY 153>
+<CONSTANT F-GRANOLA 154>
+<CONSTANT F-LOBSTER 155>
+<CONSTANT F-SNAIL 156>
+<CONSTANT F-JESTER 157>
+<CONSTANT F-HOURGLASS 158>
+<CONSTANT F-LIGHT 159>
+<CONSTANT F-BEAUTY 160>
+<CONSTANT F-DEATH 161>
+<CONSTANT F-GRUE 162>
+<CONSTANT MAP-BORDER 163>
+<CONSTANT MAIN-TITLE 164>
+<CONSTANT SECRET-WING-TITLE 165>
+<CONSTANT VILLAGE-TITLE 166>
+<CONSTANT LOWER-LEVEL-TITLE 167>
+<CONSTANT LAKE-TITLE 168>
+<CONSTANT DESERT-TITLE 169>
+<CONSTANT FOOZLE-TITLE 170>
+<CONSTANT FENSHIRE-TITLE 171>
+<CONSTANT FJORD-TITLE 172>
+<CONSTANT GRAY-MTS-TITLE 173>
+<CONSTANT DELTA-TITLE 174>
+<CONSTANT FUBLIO-TITLE 175>
+<CONSTANT ANTHARIA-TITLE 176>
+<CONSTANT FOOZLE-MAP-ILL 177>
+<CONSTANT FENSHIRE-MAP-ILL 178>
+<CONSTANT FJORD-MAP-ILL 179>
+<CONSTANT GRAY-MTS-MAP-ILL 180>
+<CONSTANT DELTA-MAP-ILL 181>
+<CONSTANT ANTHARIA-MAP-ILL 182>
+<CONSTANT HORIZONTAL-LEGEND 183>
+<CONSTANT VERTICAL-LEGEND 184>
+<CONSTANT N-S-CON 185>
+<CONSTANT E-W-CON 186>
+<CONSTANT NE-SW-CON 187>
+<CONSTANT NW-SE-CON 188>
+<CONSTANT DOWN-NORTH-SYMBOL 189>
+<CONSTANT DOWN-SOUTH-SYMBOL 190>
+<CONSTANT DOWN-EAST-SYMBOL 191>
+<CONSTANT DOWN-WEST-SYMBOL 192>
+<CONSTANT DOWN-NE-SYMBOL 193>
+<CONSTANT DOWN-NW-SYMBOL 194>
+<CONSTANT DOWN-SW-SYMBOL 195>
+<CONSTANT DOWN-SE-SYMBOL 196>
+<CONSTANT TELEPORT-ARROW 197>
+<CONSTANT RV-TELEPORT-ARROW 198>
+<CONSTANT ARCH-N-CON 199>
+<CONSTANT ARCH-S-CON 200>
+<CONSTANT RUBBLE-NW-CON 201>
+<CONSTANT RUBBLE-SE-CON 202>
+<CONSTANT ICONLESS-ROOM-BOX 203>
+<CONSTANT YOU-ARE-HERE-SYMBOL 204>
+<CONSTANT GONDOLA-ICON 205>
+<CONSTANT PEG-ROOM-ICON 206>
+<CONSTANT WEST-WING-ICON 207>
+<CONSTANT GYM-ICON 208>
+<CONSTANT TORCH-ROOM-ICON 209>
+<CONSTANT ROOF-ICON 210>
+<CONSTANT PARLOR-ICON 211>
+<CONSTANT FORMAL-GARDEN-ICON 212>
+<CONSTANT BALCONY-ICON 213>
+<CONSTANT GALLERY-ICON 214>
+<CONSTANT THRONE-ROOM-ICON 215>
+<CONSTANT BANQUET-HALL-ICON 216>
+<CONSTANT KITCHEN-ICON 217>
+<CONSTANT WINE-CELLAR-ICON 218>
+<CONSTANT LIBRARY-ICON 219>
+<CONSTANT EAST-WING-ICON 220>
+<CONSTANT CHAPEL-ICON 221>
+<CONSTANT J-QUARTER-ICON 222>
+<CONSTANT PYRAMID-ICON 223>
+<CONSTANT DIMWITS-ROOM-ICON 224>
+<CONSTANT MAGIC-CLOSET-ICON 225>
+<CONSTANT PARAPET-ICON 226>
+<CONSTANT BASTION-ICON 227>
+<CONSTANT SECRET-PASSAGE-ICON 228>
+<CONSTANT TEE-ICON 229>
+<CONSTANT TOP-OF-STAIR-ICON 230>
+<CONSTANT BOTTOM-OF-STAIR-ICON 231>
+<CONSTANT ORACLE-ICON 232>
+<CONSTANT DUNGEON-ICON 233>
+<CONSTANT CELL-ICON 234>
+<CONSTANT PERIMETER-WALL-ICON 235>
+<CONSTANT GARRISON-ICON 236>
+<CONSTANT OUTER-BAILEY-ICON 237>
+<CONSTANT DRAWBRIDGE-ICON 238>
+<CONSTANT BARBICAN-ICON 239>
+<CONSTANT UPPER-BARBICAN-ICON 240>
+<CONSTANT CAUSEWAY-ICON 241>
+<CONSTANT INNER-BAILEY-ICON 242>
+<CONSTANT URS-OFFICE-ICON 243>
+<CONSTANT SHADY-PARK-ICON 244>
+<CONSTANT CHURCH-ICON 245>
+<CONSTANT COURTROOM-ICON 246>
+<CONSTANT POST-OFFICE-ICON 247>
+<CONSTANT FR-HQ-ICON 248>
+<CONSTANT MAGIC-SHOP-ICON 249>
+<CONSTANT BACK-ALLEY-ICON 250>
+<CONSTANT OFFICES-ICON 251>
+<CONSTANT PENTHOUSE-ICON 252>
+<CONSTANT ROOTS-ICON 253>
+<CONSTANT EAR-ICON 254>
+<CONSTANT MOUTH-OF-CAVE-ICON 255>
+<CONSTANT LEDGE-IN-PIT-ICON 256>
+<CONSTANT PASSAGE-STORAGE-ICON 257>
+<CONSTANT VAULT-ICON 258>
+<CONSTANT G-U-HIGHWAY-ICON 259>
+<CONSTANT EXIT-ICON 260>
+<CONSTANT KENNELS-ICON 261>
+<CONSTANT ROYAL-ZOO-ICON 262>
+<CONSTANT LABORATORY-ICON 263>
+<CONSTANT HOLD-ICON 264>
+<CONSTANT UNDERWATER-ICON 265>
+<CONSTANT LAKE-BOTTOM-ICON 266>
+<CONSTANT EAST-SHORE-ICON 267>
+<CONSTANT WEST-SHORE-ICON 268>
+<CONSTANT NORTH-SHORE-ICON 269>
+<CONSTANT SOUTH-SHORE-ICON 270>
+<CONSTANT LAKE-FLATHEAD-ICON 271>
+<CONSTANT RING-OF-DUNES-ICON 272>
+<CONSTANT G-U-SAVANNAH-ICON 273>
+<CONSTANT BATS-LAIR-ICON 274>
+<CONSTANT BASE-OF-MT-ICON 275>
+<CONSTANT G-U-MOUNTAIN-ICON 276>
+<CONSTANT STABLE-ICON 277>
+<CONSTANT SHRINE-ICON 278>
+<CONSTANT CACTUS-PATCH-ICON 279>
+<CONSTANT TALL-DUNES-ICON 280>
+<CONSTANT G-U-OASIS-ICON 281>
+<CONSTANT WHARF-ICON 282>
+<CONSTANT FISHING-VILLAGE-ICON 283>
+<CONSTANT QUILBOZZA-BEACH-ICON 284>
+<CONSTANT WARNING-ROOM-ICON 285>
+<CONSTANT FISHY-ODOR-ICON 286>
+<CONSTANT ROOM-OF-3-DOORS-ICON 287>
+<CONSTANT FORK-ICON 288>
+<CONSTANT WISHYFOO-ICON 289>
+<CONSTANT REST-STOP-ICON 290>
+<CONSTANT CROSSROADS-ICON 291>
+<CONSTANT TOLL-PLAZA-ICON 292>
+<CONSTANT FISSURES-EDGE-ICON 293>
+<CONSTANT ORB-ROOM-ICON 294>
+<CONSTANT RUINED-HALL-ICON 295>
+<CONSTANT SECRET-ROOM-ICON 296>
+<CONSTANT HOTHOUSE-ICON 297>
+<CONSTANT MARSH-ICON 298>
+<CONSTANT CRAG-ICON 299>
+<CONSTANT UPPER-LEDGE-ICON 300>
+<CONSTANT LOWER-LEDGE-ICON 301>
+<CONSTANT IRON-MINE-ICON 302>
+<CONSTANT NATURAL-ARCH-ICON 303>
+<CONSTANT ENCHANTED-CAVE-ICON 304>
+<CONSTANT MIRROR-LAKE-ICON 305>
+<CONSTANT CHALET-ICON 306>
+<CONSTANT RIVERS-END-ICON 307>
+<CONSTANT OCEANS-EDGE-ICON 308>
+<CONSTANT DELTA-ICON 309>
+<CONSTANT ON-TOP-OF-WORLD-ICON 310>
+<CONSTANT AMONGST-CLOUDS-ICON 311>
+<CONSTANT TIMBERLINE-ICON 312>
+<CONSTANT AVALANCHE-ICON 313>
+<CONSTANT ZORBEL-PASS-ICON 314>
+<CONSTANT BASE-OF-MTS-ICON 315>
+<CONSTANT FOOT-OF-STATUE-ICON 316>
+<CONSTANT OUTSIDE-HUT-ICON 317>
+<CONSTANT ATTIC-ICON 318>
+<CONSTANT CAIRN-ICON 319>
+<CONSTANT QUARRYS-EDGE-ICON 320>
+<CONSTANT QUARRY-ICON 321>
+<CONSTANT STADIUM-ICON 322>
+<CONSTANT COAST-ROAD-ICON 323>
+<CONSTANT MINE-ENTRANCE-ICON 324>
+<CONSTANT DEAD-END-ICON 325>
+<CONSTANT CLIFF-BOTTOM-ICON 326>
+<CONSTANT PRECIPICE-ICON 327>
+<CONSTANT AERIE-ICON 328>
+<CONSTANT ICKY-CAVE-ICON 329>
+<CONSTANT MAP-N-HL 330>
+<CONSTANT MAP-NE-HL 331>
+<CONSTANT MAP-E-HL 332>
+<CONSTANT MAP-SE-HL 333>
+<CONSTANT MAP-S-HL 334>
+<CONSTANT MAP-SW-HL 335>
+<CONSTANT MAP-W-HL 336>
+<CONSTANT MAP-NW-HL 337>
+<CONSTANT MAP-N-UNHL 338>
+<CONSTANT MAP-NE-UNHL 339>
+<CONSTANT MAP-E-UNHL 340>
+<CONSTANT MAP-SE-UNHL 341>
+<CONSTANT MAP-S-UNHL 342>
+<CONSTANT MAP-SW-UNHL 343>
+<CONSTANT MAP-W-UNHL 344>
+<CONSTANT MAP-NW-UNHL 345>
+<CONSTANT LOBBY-OFFICE-CON 346>
+<CONSTANT OFFICE-PENTHOUSE-CON 347>
+<CONSTANT LOW-HALL-CON 348>
+<CONSTANT WISHYFOO-FORK-CON 349>
+<CONSTANT GLACIER-MIRROR-CON 350>
+<CONSTANT DELTA-6-7-CON 351>
+<CONSTANT DELTA-1-3-CON 352>
+<CONSTANT DELTA-5-6-CON 353>
+<CONSTANT DELTA-2-3-CON 354>
+<CONSTANT DELTA-1-4-CON 355>
+<CONSTANT DELTA-3-5-CON 356>
+<CONSTANT PILE-1-PIC-LOC 357>
+<CONSTANT PILE-2-PIC-LOC 358>
+<CONSTANT PILE-3-PIC-LOC 359>
+<CONSTANT PILE-4-PIC-LOC 360>
+<CONSTANT L-FLOWERS-PIC-LOC 361>
+<CONSTANT R-FLOWERS-PIC-LOC 362>
+<CONSTANT B-1-L-PIC-LOC 363>
+<CONSTANT B-2-C-PIC-LOC 364>
+<CONSTANT B-3-R-PIC-LOC 365>
+<CONSTANT B-4-PIC-LOC 366>
+<CONSTANT B-5-PIC-LOC 367>
+<CONSTANT B-6-PIC-LOC 368>
+<CONSTANT F-DISCARD-PIC-LOC 369>
+<CONSTANT F-1-PIC-LOC 370>
+<CONSTANT F-2-PIC-LOC 371>
+<CONSTANT F-3-PIC-LOC 372>
+<CONSTANT F-4-PIC-LOC 373>
+<CONSTANT F-RANK-PIC-LOC 374>
+<CONSTANT F-REV-RANK-PIC-LOC 375>
+<CONSTANT F-SUIT-PIC-LOC 376>
+<CONSTANT F-REV-SUIT-PIC-LOC 377>
+<CONSTANT ENC-PIC-LOC 378>
+<CONSTANT ENC-TXT-LOC 379>
+<CONSTANT ENC-TXT-WINDOW-SIZE 380>
+<CONSTANT COMPASS-PIC-LOC 381>
+<CONSTANT HERE-LOC 382>
+<CONSTANT REGION-LOC 383>
+<CONSTANT F-MENU-LOC 384>
+<CONSTANT J-SCORE-LOC 385>
+<CONSTANT YOUR-SCORE-LOC 386>
+<CONSTANT TEXT-WINDOW-PIC-LOC 387>
+<CONSTANT PBOZ-H-LOC 388>
+<CONSTANT PBOZ-I-LOC 389>
+<CONSTANT PBOZ-J-LOC 390>
+<CONSTANT PBOZ-K-LOC 391>
+<CONSTANT PBOZ-L-LOC 392>
+<CONSTANT PBOZ-M-LOC 393>
+<CONSTANT PBOZ-N-LOC 394>
+<CONSTANT PBOZ-O-LOC 395>
+<CONSTANT PBOZ-P-LOC 396>
+<CONSTANT PBOZ-Q-LOC 397>
+<CONSTANT PBOZ-R-LOC 398>
+<CONSTANT PBOZ-S-LOC 399>
+<CONSTANT PBOZ-T-LOC 400>
+<CONSTANT PBOZ-U-LOC 401>
+<CONSTANT PBOZ-SPLIT 402>
+<CONSTANT MAP-TOP-LEFT-LOC 403>
+<CONSTANT MAP-BASIC-ELT-SIZE 404>
+<CONSTANT MAP-BOX-SIZE 405>
+<CONSTANT MAP-SPACE-SIZE 406>
+<CONSTANT GONDOLA-AT-FLATHEADIA-LOC 407>
+<CONSTANT 5-FUDGE 408>
+<CONSTANT GONDOLA-AT-FENSHIRE-LOC 409>
+<CONSTANT ARCH-N-CON-SIZE 410>
+<CONSTANT RUBBLE-CON-SIZE 411>
+<CONSTANT 2-3-CON-SIZE 412>
+<CONSTANT 3-5-CON-SIZE 413>
+<CONSTANT 5-6-CON-SIZE 414>
+<CONSTANT 6-7-CON-SIZE 415>
+<CONSTANT TELEPORT-ARROW-SIZE 416>
+<CONSTANT WISHYFOO-ICON-LOC 417>
+<CONSTANT EAR-ICON-LOC 418>
+<CONSTANT F-DISCARD-LOC 419>
+<CONSTANT F-CARD-1-LOC 420>
+<CONSTANT F-CARD-SPACE 421>
+<CONSTANT F-SPLIT 422>
+<CONSTANT F-BOTTOM 423>
+<CONSTANT PBOZ-BOTTOM 424>
+<CONSTANT SN-BOTTOM 425>
+<CONSTANT B-BOTTOM 426>
+<CONSTANT SN-SPLIT 427>
+<CONSTANT B-SPLIT 428>
+<CONSTANT URS-ICON-LOC 429>
+<CONSTANT COURTROOM-ICON-LOC 430>
+<CONSTANT MAIN-TITLE-LOC 431>
+<CONSTANT PBOZ-A-LOC 432>
+<CONSTANT PBOZ-B-LOC 433>
+<CONSTANT PBOZ-C-LOC 434>
+<CONSTANT PBOZ-D-LOC 435>
+<CONSTANT PBOZ-E-LOC 436>
+<CONSTANT PBOZ-F-LOC 437>
+<CONSTANT PBOZ-G-LOC 438>
+<CONSTANT LAKE-TITLE-LOC 439>
+<CONSTANT TELEPORT-LETTER 440>
+<CONSTANT SECRET-WING-TITLE-LOC 441>
+<CONSTANT MAP-ROSE-BG 442>
+<CONSTANT MAP-ROSE-LOC 443>
+<CONSTANT MAP-COMPASS-PIC-LOC 444>
+<CONSTANT BOX-1 445>
+<CONSTANT BOX-2 446>
+<CONSTANT BOX-3 447>
+<CONSTANT BOX-4 448>
+<CONSTANT BOX-5 449>
+<CONSTANT BOX-6 450>
+<CONSTANT BOX-7 451>
+<CONSTANT BOX-8 452>
+<CONSTANT BOX-9 453>
+<CONSTANT DIM-BOX-1 454>
+<CONSTANT DIM-BOX-2 455>
+<CONSTANT DIM-BOX-3 456>
+<CONSTANT DIM-BOX-4 457>
+<CONSTANT DIM-BOX-5 458>
+<CONSTANT DIM-BOX-6 459>
+<CONSTANT DIM-BOX-7 460>
+<CONSTANT DIM-BOX-8 461>
+<CONSTANT DIM-BOX-9 462>
+<CONSTANT EXIT-BOX 463>
+<CONSTANT SHOW-MOVES-BOX 464>
+<CONSTANT UNDO-BOX 465>
+<CONSTANT RESTART-BOX 466>
+<CONSTANT DIM-SHOW-MOVES-BOX 467>
+<CONSTANT DIM-UNDO-BOX 468>
+<CONSTANT DIM-RESTART-BOX 469>
+<CONSTANT BOX-1-LOC 470>
+<CONSTANT SN-BOX-SPACE 471>
+<CONSTANT PBOZ-RESTART-BOX-LOC 472>
+<CONSTANT PBOZ-SHOW-MOVES-BOX-LOC 473>
+<CONSTANT PBOZ-EXIT-BOX-LOC 474>
+<CONSTANT TOWER-UNDO-BOX-LOC 475>
+<CONSTANT TOWER-EXIT-BOX-LOC 476>
+<CONSTANT EXPAND-HOT-SPOT 477>
+<CONSTANT ICON-OFFSET 478>
+<CONSTANT U-BOX 479>
+<CONSTANT D-BOX 480>
+<CONSTANT BOX-COVER 481>
+<CONSTANT U-BOX-LOC 482>
+<CONSTANT D-BOX-LOC 483>
\ No newline at end of file
diff --git a/pmem.zap b/pmem.zap
new file mode 100644
index 0000000..c206144
--- /dev/null
+++ b/pmem.zap
@@ -0,0 +1,40 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PMEM?,PTR
+	LESS?	PTR,PMEM-STORE /FALSE
+	LESS?	PTR,PMEM-STORE+180 /TRUE
+	RFALSE	
+
+
+	.FUNCT	PMEM-RESET,FULL?
+	ASSIGNED?	'FULL? /?CND1
+	SET	'FULL?,TRUE-VALUE
+?CND1:	GRTR?	PMEM-WORDS-USED,0 \?CND3
+	SET	'PMEM-WORDS-USED,0
+	SUB	PMEM-STORE-LENGTH,PMEM-STORE-WORDS
+	MUL	2,STACK
+	COPYT	PMEM-STORE,0,STACK
+?CND3:	SET	'PMEM-STORE-WORDS,PMEM-STORE-LENGTH
+	SET	'PMEM-STORE-POINTER,PMEM-STORE
+	RTRUE	
+
+
+	.FUNCT	DO-PMEM-ALLOC,TYPE,LENGTH,STOR,LEFT,NEW
+	SET	'STOR,PMEM-STORE-POINTER
+	SET	'LEFT,PMEM-STORE-WORDS
+	IGRTR?	'LENGTH,LEFT \?CND1
+	ICALL2	P-NO-MEM-ROUTINE,TYPE
+?CND1:	ADD	PMEM-WORDS-USED,LENGTH >PMEM-WORDS-USED
+	SUB	LEFT,LENGTH >PMEM-STORE-WORDS
+	MUL	LENGTH,2
+	ADD	STOR,STACK >PMEM-STORE-POINTER
+	DEC	'LENGTH
+	PUTB	STOR,0,LENGTH
+	PUTB	STOR,1,TYPE
+	RETURN	STOR
+
+	.ENDSEG
+
+	.ENDI
diff --git a/pmem.zil b/pmem.zil
new file mode 100644
index 0000000..b99d9c7
--- /dev/null
+++ b/pmem.zil
@@ -0,0 +1,270 @@
+"PMEM file for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZPACKAGE "PMEM">
+
+<ENTRY PMEM PMEM-ALLOC PMEM-TYPE? PMEM-RESET PM-TYPE MAKE-PM-TYPE
+       PMEM-WORDS-USED PDEFS-INTERNAL-OBLIST PMEM-STORE-WARN PMEM-STORE-LENGTH>
+
+<INCLUDE "BASEDEFS" "PBITDEFS">
+
+<USE "NEWSTRUC">
+
+<SET-DEFSTRUCT-FILE-DEFAULTS>
+
+<FILE-FLAGS MDL-ZIL? ;ZAP-TO-SOURCE-DIRECTORY?>
+
+<BEGIN-SEGMENT 0>
+
+"All storage allocated by the parser looks like this; the rest of each
+   block depends on the type field."
+
+<DEFSTRUCT PMEM (TABLE 'CONSTRUCTOR ('PRINTTYPE PRINT-PMEM)
+		 'NODECL
+		 ('NTH ZGET)
+		 ('PUT ZPUT)
+		 ('START-OFFSET 0))
+	   (PM-HEADER <OR FIX FALSE>)
+	   (PM-LENGTH <OR FIX FALSE> 'OFFSET 0 'NTH GETB 'PUT PUTB)
+	   (PM-TYPE-CODE <OR FIX FALSE> 'OFFSET 1 'NTH GETB 'PUT PUTB)>
+<MSETG PM-HEADER-LEN 1>
+
+"Only used in muddle world"
+<DEFSTRUCT PM-TYPE VECTOR
+	   (PMT-NAME ATOM)
+	   (PMT-CODE FIX)
+	   (PMT-LENGTH <OR FIX FALSE>)
+	   (PMT-ARGS <VECTOR [REST PM-ARG]> [])>
+
+<DEFSTRUCT PM-ARG VECTOR
+	   (PMA-NAME ATOM)
+	   (PMA-OFFS FIX)
+	   (PMA-TYPE ANY)
+	   (PMA-DEFAULT ANY)>
+
+<GDECL (PM-TYPE-COUNT) FIX
+       (PM-LIST) LIST>
+
+<MSETG PMEM-STORE-LENGTH:FIX 180 ;(160 125 100 300)>
+<CONSTANT PMEM-STORE:TABLE <ITABLE ,PMEM-STORE-LENGTH>>
+
+<GLOBAL PMEM-STORE-POINTER PMEM-STORE>
+<GLOBAL PMEM-STORE-WORDS:NUMBER PMEM-STORE-LENGTH>
+;<DEFINE-GLOBALS PMEM-GLOBALS
+	(PMEM-STORE-POINTER:<OR TABLE FALSE> <>)
+	(PMEM-STORE-WORDS:FIX ,PMEM-STORE-LENGTH)>
+
+<IF-P-DEBUGGING-PARSER
+<GLOBAL PMEM-STORE-WARN:NUMBER 50>>
+
+<DEFINE PMEM? (PTR)
+	<AND <G=? .PTR ,PMEM-STORE>
+	     <L? .PTR <+ ,PMEM-STORE ,PMEM-STORE-LENGTH>>>>
+
+<DEFINE20 PM-TYPE (NAME:ATOM LENGTH:<OR FIX FALSE>
+		   "ARGS" STUFF "AUX" ATM CODE TYPE-OBJ (OCT ,PM-HEADER-LEN)
+		   ARGS)
+  <SET ATM <PARSE <STRING "PM-TYPE-" <SPNAME .NAME>> 10
+		  ,PDEFS-INTERNAL-OBLIST>>
+  <COND (<NOT <GASSIGNED? PM-TYPE-COUNT>>
+	 <SETG PM-TYPE-COUNT 0>
+	 <SETG PM-LIST (T)>)>
+  <SET CODE <SETG PM-TYPE-COUNT <+ ,PM-TYPE-COUNT 1>>>
+  <SET TYPE-OBJ <MAKE-PM-TYPE 'PMT-NAME .ATM
+			      'PMT-CODE .CODE
+			      'PMT-LENGTH .LENGTH>>
+  <EVAL <FORM CONSTANT
+	      <PARSE <STRING "PMEM-TYPE-" <SPNAME .NAME>> 10
+		     ,PDEFS-INTERNAL-OBLIST>
+	      .CODE>>
+  <PUTREST <REST ,PM-LIST <- <LENGTH ,PM-LIST> 1>> (.TYPE-OBJ)>
+  <SETG .ATM .TYPE-OBJ>
+  <SET ARGS
+   <MAPF ,VECTOR
+    <FUNCTION (ARG:<OR LIST ATOM> "AUX" NATM OFFS (TYPE ANY) (DEFAULT <>)
+	       NNATM)
+      <COND (<TYPE? .ARG LIST>
+	     <SET NATM <1 .ARG>>
+	     <SET ARG <REST .ARG>>)
+	    (T
+	     <SET NATM .ARG>
+	     <SET ARG ()>)>
+      <SET NATM <PARSE <STRING <SPNAME .NAME> "-" <SPNAME .NATM>> 10
+		       ,PDEFS-INTERNAL-OBLIST>>
+      <SET NNATM <PARSE <STRING <SPNAME .NAME> "-" <SPNAME .NATM> "-OFFSET">
+			10 ,PDEFS-INTERNAL-OBLIST>>
+      <EVAL <FORM DEFMAC .NATM (''OBJ "OPT" ''NEW)
+		  <FORM COND
+			(<FORM ASSIGNED? NEW>
+			 <FORM FORM ZPUT '.OBJ .OCT '.NEW>)
+			(T
+			 <FORM FORM ZGET '.OBJ .OCT>)>>>
+      <SETG .NNATM <SET OFFS .OCT>>
+      <SET OCT <+ .OCT 1>>
+      <COND (<EMPTY? .ARG>)
+	    (T
+	     <SET TYPE <1 .ARG>>
+	     <COND (<NOT <LENGTH? .ARG 1>>
+		    <COND (<AND <TYPE? <SET DEFAULT <2 .ARG>> FORM>
+				<EMPTY? .DEFAULT>>
+			   <SET DEFAULT <>>)>)>
+	     <COND (<AND <NOT <MATCH-KEY .DEFAULT NONE>>
+			 <NOT <TYPE? .DEFAULT FORM>>>
+		    <COND (<NOT <DECL? .DEFAULT .TYPE>>
+			   <COND (<DECL? .DEFAULT <FORM OR FALSE .TYPE>>
+				  <SET TYPE <FORM OR FALSE .TYPE>>)
+				 (T
+				  <ERROR DEFAULT-DOESNT-MATCH-DECL
+					 .TYPE .DEFAULT PM-TYPE>)>)>)>)>
+      <MAKE-PM-ARG 'PMA-NAME .NATM 'PMA-OFFS .OFFS
+		   'PMA-TYPE .TYPE 'PMA-DEFAULT .DEFAULT>>
+    .STUFF>>
+  <PMT-ARGS .TYPE-OBJ .ARGS>>
+
+<DEFINE20 GET-PM-TYPE (TYPE:ATOM "AUX" TEMP)
+  <COND (<AND <GASSIGNED? .TYPE>
+	      <TYPE? ,.TYPE PM-TYPE>>
+	 ,.TYPE)
+	(T
+	 <SET TEMP <PARSE <STRING "PM-TYPE-" <SPNAME .TYPE>> 10
+			  ,PDEFS-INTERNAL-OBLIST>>
+	 <COND (<AND <GASSIGNED? .TEMP>
+		     <TYPE? ,.TEMP PM-TYPE>>
+		,.TEMP)
+	       (T
+		<ERROR NOT-A-PMEM-TYPE!-ERRORS .TYPE>)>)>>
+
+<DEFMAC PMEM-TYPE? ('PMEM 'TYPE "OPT" 'TYPE2 "AUX" (ATM <>) (ATM2 <>))
+  <SET TYPE <GET-PM-TYPE .TYPE>>
+  <COND (<ASSIGNED? TYPE2>
+	 <SET TYPE2 <GET-PM-TYPE .TYPE2>>)
+	(T
+	 <SET TYPE2 <>>)>
+  <COND (<NOT .TYPE2>
+	 <FORM ==? <FORM PM-TYPE-CODE .PMEM> <PMT-CODE .TYPE>>)
+	(T
+	 <FORM OR <FORM ==? <FORM PM-TYPE .PMEM> <PMT-CODE .TYPE>>
+	       <FORM ==? <FORM PM-TYPE .PMEM> <PMT-CODE .TYPE2>>>)>>
+
+<DEFINE20 PRINT-PMEM (PMEM:PMEM "OPT" (OUTCHAN:CHANNEL .OUTCHAN)
+		    "AUX" (CODE <PM-TYPE-CODE .PMEM>)
+			  (OBJ:PM-TYPE <NTH ,PM-LIST <+ .CODE 1>>))
+  <PRINT-MANY .OUTCHAN PRINC "#" <PMT-NAME .OBJ> " [">
+  <REPEAT ((CT <PM-LENGTH .PMEM>) (N 1))
+    <COND (<L? <SET CT <- .CT 1>> 0>
+	   <RETURN>)>
+    <PRIN1 <ZGET .PMEM .N>>
+    <PRINC !\ >
+    <SET N <+ .N 1>>>
+  <PRINC !\]>
+  .PMEM>
+
+<SETG PMEM-WORDS-USED 0>
+<GDECL (PMEM-WORDS-USED) FIX>
+
+<DEFINE PMEM-RESET ("OPT" (FULL?:<OR ATOM FALSE> T))
+  <COND (<G? ,PMEM-WORDS-USED 0>
+	 <SETG PMEM-WORDS-USED 0>
+	 <COPYT ,PMEM-STORE 0
+		<* 2 <- ,PMEM-STORE-LENGTH ,PMEM-STORE-WORDS>>>)>
+  <SETG PMEM-STORE-WORDS ,PMEM-STORE-LENGTH>
+  <SETG PMEM-STORE-POINTER ,PMEM-STORE>
+  T>
+
+<DEFINE20 MATCH-KEY (FOO BAR)
+  <AND <TYPE? .FOO ATOM>
+       <TYPE? .BAR ATOM>
+       <=? <SPNAME .FOO> <SPNAME .BAR>>>>
+
+<DEFMAC PMEM-ALLOC PA (TYPNAM:ATOM "ARGS" STUFF "AUX" TEMP NT:PM-TYPE
+		       BASE LENARG ATM BL)
+  <SET NT <GET-PM-TYPE .TYPNAM>>
+  <COND (<SET TEMP <MEMQ LENGTH .STUFF>>
+	 <SET LENARG <2 .TEMP>>)
+	(<NOT <SET LENARG <PMT-LENGTH .NT>>>
+	 <ERROR BAD-PMEM-LENGTH-ARG!-ERRORS .TYPNAM PMEM-ALLOC>)>
+  <SET BASE <FORM BIND ((NEW-OBJECT
+			 <FORM DO-PMEM-ALLOC <PMT-CODE .NT> .LENARG>))>>
+  <SET BL <REST .BASE>>
+  <REPEAT ((ARGS <PMT-ARGS .NT>)
+	   (INIT <CHTYPE <STACK <IVECTOR <* 2 <+ <LENGTH .ARGS>
+						 ,PM-HEADER-LEN>> NONE>>
+			 TABLE>) THIS-ARG OFFS:FIX FRM)
+    <COND (<EMPTY? .STUFF>
+	   <MAPF <>
+	     <FUNCTION (ARG:PM-ARG "AUX" (IVAL <ZGET .INIT <PMA-OFFS .ARG>>))
+	       <COND (<AND <MATCH-KEY .IVAL NONE>
+			   <MATCH-KEY <PMA-DEFAULT .ARG> NONE>>
+		      <ERROR NO-VALUE-FOR-MANDATORY-SLOT!-ERRORS .TYPNAM
+			     PMEM-ALLOC>)
+		     (<MATCH-KEY .IVAL NONE>
+		      <COND
+		       (<AND <PMA-DEFAULT .ARG>
+			     <N==? <PMA-DEFAULT .ARG> '<>>
+			     <N==? <PMA-DEFAULT .ARG> 0>>
+			;"PMEM-RESET zeroes memory, so if something is going
+			to be defaulted to 0 or false, don't bother."
+			<SET BL <REST
+				 <PUTREST .BL
+					  (<FORM <PMA-NAME .ARG>
+						 '.NEW-OBJECT
+						 <PMA-DEFAULT .ARG>>)>>>)>)>>
+	     .ARGS>
+	   <RETURN>)>
+    <COND (<OR <NOT <TYPE? <SET ATM <1 .STUFF>> ATOM>>
+	       <AND <OR <NOT <GASSIGNED? .ATM>>
+			<NOT <TYPE? ,.ATM FIX MACRO>>>
+		    <SET ATM <PARSE <STRING <SPNAME .TYPNAM> "-" <SPNAME .ATM>>
+				    10 ,PDEFS-INTERNAL-OBLIST>>
+		    <OR <NOT <GASSIGNED? .ATM>>
+			<NOT <TYPE? ,.ATM FIX MACRO>>>>>
+	   <COND (<N==? <1 .STUFF> LENGTH>
+		  <ERROR BAD-PMEM-ARG!-ERRORS .STUFF PMEM-ALLOC>)>)
+	  (T
+	   <SET FRM <EXPAND <FORM .ATM .INIT T>>>
+	   <ZPUT .INIT <3 .FRM:FORM> T>
+	   <COND (<AND <2 .STUFF>
+		       <N==? <2 .STUFF> '<>>
+		       <N==? <2 .STUFF> 0>>
+		  <SET BL <REST <PUTREST .BL
+				  (<FORM .ATM '.NEW-OBJECT <2 .STUFF>>)>>>)>)>
+    <SET STUFF <REST .STUFF 2>>>
+  <PUTREST .BL ('.NEW-OBJECT)>
+  .BASE>
+
+<DEFINE DO-PMEM-ALLOC PA (TYPE:FIX LENGTH:FIX
+			  "AUX" (STOR ,PMEM-STORE-POINTER)
+			        (LEFT:FIX ,PMEM-STORE-WORDS) NEW)
+  ;<COND (<NOT .STOR>
+	 <SET STOR ,PMEM-STORE>)>
+  <SET LENGTH <+ .LENGTH 1>>	;"in words"
+  <DEBUG-CHECK <G? .LENGTH .LEFT>
+	       <COND (<ERROR OUT-OF-MEMORY!-ERRORS
+			     ERRET-T-TO-ALLOCATE-MORE!-ERRORS
+			     PMEM-ALLOC>
+		      <SETG PMEM-STORE-WORDS 500>
+		      <SET LEFT 500>
+		      <PMEM-STORE-LENGTH <+ <PMEM-STORE-LENGTH> 500>>
+		      <PMEM-STORE <SET STOR <ITABLE <PMEM-STORE-LENGTH> 0>>>)
+		     (T
+		      <RETURN <> .PA>)>>
+  <COND (<G? .LENGTH .LEFT>
+	 <P-NO-MEM-ROUTINE .TYPE>
+	 ;<RETURN <> .PA>)>
+  <SETG PMEM-WORDS-USED <+ ,PMEM-WORDS-USED .LENGTH>>
+  <SETG PMEM-STORE-WORDS <- .LEFT .LENGTH>>
+  <IF-P-DEBUGGING-PARSER
+	<COND (<G? ,PMEM-STORE-WARN ,PMEM-STORE-WORDS>
+	       <SETG PMEM-STORE-WARN ,PMEM-STORE-WORDS>
+	       <PRINTI "[Debugging info: ">
+	       <PRINTI "PMEM: ">
+	       <PRINTN ,PMEM-STORE-WARN ;,PMEM-STORE-WORDS>
+	       <PRINTI " left!]|">)>>
+  <SETG PMEM-STORE-POINTER <ZREST .STOR <* .LENGTH 2>>>
+  <PM-LENGTH <CHTYPE-VAL STOR PMEM>
+	     <SET LENGTH <- .LENGTH 1>>>
+  <PM-TYPE-CODE .STOR .TYPE>
+  .STOR>
+
+<END-SEGMENT>
+<ENDPACKAGE>
diff --git a/prare.zap b/prare.zap
new file mode 100644
index 0000000..c7cfc2d
--- /dev/null
+++ b/prare.zap
@@ -0,0 +1,1006 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	TOO-MANY-NEW,WHAT
+	PRINTI	"[Warning: there are too many new "
+	PRINT	WHAT
+	PRINTR	"s.]"
+
+
+	.FUNCT	NAKED-OOPS
+	PRINTR	"[Please type a word(s) after OOPS.]"
+
+
+	.FUNCT	CANT-OOPS
+	PRINTR	"[There was no word to replace in that sentence.]"
+
+
+	.FUNCT	CANT-AGAIN
+	PRINTR	"[What do you want to do again?]"
+
+
+	.FUNCT	CANT-USE-MULTIPLE,LOSS,WD
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"[You can't use more than one object at a time with """
+	ICALL2	PRINT-VOCAB-WORD,WD
+	PRINTR	"""!]"
+
+
+	.FUNCT	MAKE-ROOM-FOR-TOKENS,CNT,LEXV,WHERE,LEN,?TMP2,?TMP1
+	GETB	LEXV,0
+	MUL	2,STACK >LEN
+	MUL	P-LEXELEN,CNT
+	ADD	WHERE,STACK
+	LESS?	LEN,STACK \?CND1
+	SUB	LEN,WHERE
+	DIV	STACK,P-LEXELEN >CNT
+	ICALL2	TOO-MANY-NEW,STR?23
+?CND1:	GETB	LEXV,P-LEXWORDS >LEN
+	ADD	CNT,LEN
+	PUTB	LEXV,P-LEXWORDS,STACK
+	MUL	2,WHERE
+	ADD	LEXV,STACK >LEXV
+	MUL	CNT,4
+	ADD	LEXV,STACK >?TMP1
+	MUL	2,LEN >?TMP2
+	SUB	WHERE,P-LEXSTART
+	SUB	?TMP2,STACK
+	MUL	2,STACK
+	COPYT	LEXV,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	REPLACE-ONE-TOKEN,N,FROM-LEXV,PTR,TO-LEXV,WHERE,CNT,X,?TMP1,?TMP2
+	SUB	N,1 >CNT
+	ZERO?	CNT /?CND1
+	ICALL	MAKE-ROOM-FOR-TOKENS,CNT,TO-LEXV,WHERE
+?CND1:	SET	'CNT,N
+?PRG3:	DLESS?	'CNT,0 /TRUE
+	ADD	PTR,P-LEXELEN >PTR
+	GET	FROM-LEXV,PTR
+	PUT	TO-LEXV,WHERE,STACK
+	MUL	PTR,P-LEXELEN
+	ADD	STACK,2 >X
+	GETB	FROM-LEXV,X >?TMP2
+	ADD	X,1
+	GETB	FROM-LEXV,STACK >?TMP1
+	MUL	WHERE,P-LEXELEN
+	ADD	STACK,3
+	CALL	INBUF-ADD,?TMP2,?TMP1,STACK
+	ZERO?	STACK \?CND7
+	ICALL2	TOO-MANY-NEW,STR?24
+	RTRUE	
+?CND7:	ADD	WHERE,P-LEXELEN >WHERE
+	JUMP	?PRG3
+
+
+	.FUNCT	PRINT-LEXV,QUIET,X,LEN,WD,IN-QUOTE,OWD
+	ASSIGNED?	'X /?CND1
+	MUL	QUIET,4
+	ADD	TLEXV,STACK >X
+?CND1:	ASSIGNED?	'LEN /?CND3
+	SUB	P-LEN,QUIET >LEN
+?CND3:	ZERO?	QUIET /?CCL6
+	GRTR?	0,P-OFLAG \?CND5
+?CCL6:	PRINTI	"[In other words:"
+?CND5:	SET	'IN-QUOTE,FALSE-VALUE
+	EQUAL?	QUIET,-1 \?CCL11
+	SET	'OWD,W?APOSTROPHE
+	JUMP	?PRG12
+?CCL11:	SET	'OWD,0
+?PRG12:	GET	X,0 >WD
+	EQUAL?	WD,W?PERIOD,W?COMMA,W?APOSTROPHE /?CND14
+	EQUAL?	WD,W?NO.WORD /?CND14
+	EQUAL?	OWD,W?APOSTROPHE /?CND14
+	EQUAL?	OWD,W?QUOTE \?CCL22
+	ZERO?	IN-QUOTE \?CCL22
+	SET	'IN-QUOTE,TRUE-VALUE
+	JUMP	?CND14
+?CCL22:	EQUAL?	WD,W?QUOTE \?CCL26
+	ZERO?	IN-QUOTE /?CCL26
+	SET	'IN-QUOTE,FALSE-VALUE
+	JUMP	?CND14
+?CCL26:	PRINTC	32
+?CND14:	EQUAL?	WD,W?NO.WORD /?CND29
+	EQUAL?	WD,0,W?INT.NUM,W?INT.TIM /?CCL33
+	ICALL2	PRINT-VOCAB-WORD,WD
+	JUMP	?CND29
+?CCL33:	ADD	X,P-WORDLEN
+	ICALL	BUFFER-PRINT,X,STACK,FALSE-VALUE,TRUE-VALUE
+?CND29:	DLESS?	'LEN,1 /?REP13
+	EQUAL?	WD,W?NO.WORD /?CND36
+	SET	'OWD,WD
+?CND36:	ADD	X,4 >X
+	JUMP	?PRG12
+?REP13:	ZERO?	QUIET /?CCL40
+	GRTR?	0,P-OFLAG \FALSE
+?CCL40:	PRINTR	"]"
+
+
+	.FUNCT	COPY-INPUT,QUIET,LEN,?TMP1
+	COPYT	G-LEXV,P-LEXV,LEXV-LENGTH-BYTES
+	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	GET	OOPS-TABLE,O-START >TLEXV
+	COPYT	G-INBUF,P-INBUF,61
+	GETB	P-LEXV,P-LEXWORDS
+	MUL	4,STACK >LEN
+	DEC	'LEN
+	GETB	TLEXV,LEN >?TMP1
+	DEC	'LEN
+	GETB	TLEXV,LEN
+	ADD	?TMP1,STACK
+	PUT	OOPS-TABLE,O-END,STACK
+	ZERO?	QUIET \?CND1
+	ICALL2	PRINT-LEXV,QUIET
+?CND1:	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+	.ENDSEG
+
+	.SEGMENT "HINTS"
+
+
+	.FUNCT	V-$NUDGE
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PUT	TLEXV,0,W?SHOULD
+	PRINTC	91
+	CALL1	TELL-SAMPLE-COMMANDS
+	RSTACK	
+
+
+	.FUNCT	COUNT-ERRORS,NUM,THRESH
+	ASSIGNED?	'NUM /?CND1
+	SET	'NUM,1
+?CND1:	FSET?	GREAT-HALL,TOUCHBIT \?CCL5
+	SET	'THRESH,10
+	JUMP	?CND3
+?CCL5:	SET	'THRESH,2
+?CND3:	ADD	NUM,P-ERRS >P-ERRS
+	GRTR?	P-ERRS,THRESH \FALSE
+	SET	'P-ERRS,0
+	PRINTI	"[I'm having trouble understanding you. Maybe it's because you're not used to the rules for commands. "
+	FSET?	GREAT-HALL,TOUCHBIT /?CCL11
+	ZERO?	PROLOGUE-NOVICE-COUNTER /?CCL11
+	PRINTI	"Here's the command you should type now:
+	"
+	GET	NOVICE-MOVES,PROLOGUE-NOVICE-COUNTER
+	PRINT	STACK
+	PRINTR	"
+Please try that.]"
+?CCL11:	CALL1	TELL-SAMPLE-COMMANDS
+	RSTACK	
+
+
+	.FUNCT	FIND-UEXIT-STR,P
+?PRG1:	NEXTP	HERE,P >P
+	LESS?	P,LOW-DIRECTION /FALSE
+	GETPT	HERE,P
+	PTSIZE	STACK
+	EQUAL?	STACK,UEXIT \?PRG1
+	CALL2	DIR-TO-STRING,P
+	RSTACK	
+
+
+	.FUNCT	TELL-SAMPLE-COMMANDS,VERB,SYN,OBJ,NUM,CT,N
+	PRINTI	" Commands tell the computer what you want to do in the story. Here are some commands that you can type right now, although they may or may not be useful:
+"
+	GET	SAMPLE-COMMANDS-TABLE-0,0 >CT
+	ZERO?	PRSO /?CCL3
+	SET	'N,CT
+	JUMP	?PRG4
+?CCL3:	SET	'N,TELL-SAMPLE-COMMANDS-NUMBER
+?PRG4:	ZERO?	PRSO /?CCL8
+	PUSH	N
+	JUMP	?CND6
+?CCL8:	RANDOM	CT
+?CND6:	GET	SAMPLE-COMMANDS-TABLE-0,STACK >VERB
+	DLESS?	'N,0 /?REP5
+	EQUAL?	VERB,W?GO \?CCL12
+	CALL1	FIND-UEXIT-STR >OBJ
+	ZERO?	OBJ /?PRG4
+?CCL12:	INC	'NUM
+	PRINTC	9
+	ICALL2	PRINT-VOCAB-WORD,VERB
+	ZERO?	OBJ /?CND15
+	PRINTC	32
+	PRINT	OBJ
+?CND15:	CRLF	
+	ZERO?	PRSO \?PRG4
+?REP5:	GET	SAMPLE-COMMANDS-TABLE-1,0 >CT
+	ZERO?	PRSO /?CCL21
+	SET	'N,CT
+	JUMP	?PRG22
+?CCL21:	SET	'N,TELL-SAMPLE-COMMANDS-NUMBER
+?PRG22:	ZERO?	PRSO /?CCL26
+	PUSH	N
+	JUMP	?CND24
+?CCL26:	RANDOM	CT
+?CND24:	GET	SAMPLE-COMMANDS-TABLE-1,STACK >VERB
+	DLESS?	'N,0 /?REP23
+	GET	VERB,3
+	GET	STACK,2 >SYN
+	ZERO?	SYN /?PRG22
+	CALL	GET-SYNTAX,SYN,1,0,TRUE-VALUE
+	ZERO?	STACK /?PRG22
+	CALL	DETERMINE-OBJ,FALSE-VALUE,1,TRUE-VALUE >OBJ
+	ZERO?	OBJ /?PRG22
+	GET	OBJ,3 >OBJ
+	ZERO?	OBJ /?PRG22
+	INC	'NUM
+	PRINTC	9
+	ICALL2	PRINT-VOCAB-WORD,VERB
+	PRINTC	32
+	ICALL2	DPRINT,OBJ
+	CRLF	
+	ZERO?	PRSO \?PRG22
+?REP23:	GET	SAMPLE-COMMANDS-TABLE-2,0
+	DIV	STACK,2 >CT
+	ZERO?	PRSO /?CCL39
+	SET	'N,CT
+	JUMP	?PRG40
+?CCL39:	SET	'N,TELL-SAMPLE-COMMANDS-NUMBER
+?PRG40:	ZERO?	N /?REP41
+	ZERO?	PRSO /?CCL46
+	PUSH	N
+	JUMP	?CND44
+?CCL46:	RANDOM	CT
+?CND44:	MUL	STACK,2
+	SUB	STACK,1 >VERB
+	GET	SAMPLE-COMMANDS-TABLE-2,VERB >SYN
+	GETB	SYN,8
+	BTST	STACK,128 /?CCL51
+	GETB	SYN,8
+	JUMP	?CND49
+?CCL51:	GETB	SYN,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND49:	ZERO?	STACK \?CND47
+	GET	SYN,3 >SYN
+?CND47:	DLESS?	'N,0 /?REP41
+	GET	SYN,3
+	GET	STACK,3 >SYN
+	ZERO?	SYN /?PRG40
+	ADD	1,VERB
+	GET	SAMPLE-COMMANDS-TABLE-2,STACK
+	PUT	PARSE-RESULT,8,STACK
+	CALL	GET-SYNTAX,SYN,2,0,TRUE-VALUE
+	ZERO?	STACK /?PRG40
+	CALL	DETERMINE-OBJ,FALSE-VALUE,1,TRUE-VALUE >OBJ
+	ZERO?	OBJ /?PRG40
+	GET	OBJ,3 >OBJ
+	ZERO?	OBJ /?PRG40
+	CALL	DETERMINE-OBJ,FALSE-VALUE,2,TRUE-VALUE >SYN
+	ZERO?	SYN /?PRG40
+	GET	SYN,3 >SYN
+	ZERO?	SYN /?PRG40
+	INC	'NUM
+	PRINTC	9
+	GET	SAMPLE-COMMANDS-TABLE-2,VERB
+	ICALL2	PRINT-VOCAB-WORD,STACK
+	PRINTC	32
+	ICALL2	DPRINT,OBJ
+	PRINTC	32
+	ADD	1,VERB
+	GET	SAMPLE-COMMANDS-TABLE-2,STACK
+	ICALL2	PRINT-VOCAB-WORD,STACK
+	PRINTC	32
+	ICALL2	DPRINT,SYN
+	CRLF	
+	ZERO?	PRSO \?PRG40
+?REP41:	ZERO?	P-WON \?CCL66
+	RANDOM	2
+	EQUAL?	STACK,1 \?CND65
+?CCL66:	PRINTI	"	say """
+	GETB	VOCAB,0
+	ADD	1,STACK
+	ADD	VOCAB,STACK >SYN
+	GETB	SYN,0 >CT
+?PRG69:	ADD	SYN,1
+	GET	STACK,0
+	RANDOM	STACK
+	SUB	STACK,1
+	MUL	CT,STACK
+	ADD	3,STACK
+	ADD	SYN,STACK >N
+	LESS?	N,W?A /?PRG69
+	GETB	N,8
+	BTST	STACK,128 /?CCL78
+	GETB	N,8
+	JUMP	?CND76
+?CCL78:	GETB	N,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND76:	ZERO?	STACK /?PRG69
+	EQUAL?	N,W?END.OF.INPUT,W?NO.WORD,W?INT.NUM /?PRG69
+	EQUAL?	N,W?INT.TIM /?PRG69
+	ICALL2	PRINT-VOCAB-WORD,N
+	PRINTI	"""
+"
+?CND65:	IN?	JESTER,HERE \?CND81
+	PRINTI	"	jester, give me the key
+"
+?CND81:	PRINTR	"Now you can try again.]"
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	BUFFER-PRINT,BEG,END,CP,NOSP,WRD,NW,FIRST??,PN,TMP
+	SET	'FIRST??,TRUE-VALUE
+?PRG1:	EQUAL?	BEG,END /TRUE
+	ZERO?	NOSP \?CTR6
+	EQUAL?	NW,W?PERIOD,W?COMMA,W?APOSTROPHE \?CCL7
+?CTR6:	SET	'NOSP,FALSE-VALUE
+	JUMP	?CND5
+?CCL7:	PRINTC	32
+?CND5:	GET	BEG,0 >WRD
+	ADD	BEG,P-WORDLEN
+	EQUAL?	END,STACK \?CCL12
+	SET	'NW,0
+	JUMP	?CND10
+?CCL12:	GET	BEG,P-LEXELEN >NW
+?CND10:	EQUAL?	WRD,W?NO.WORD \?CCL15
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND13
+?CCL15:	EQUAL?	WRD,W?MY \?CCL17
+	PRINTB	W?YOUR
+	JUMP	?CND13
+?CCL17:	EQUAL?	WRD,W?ME \?CCL19
+	PRINTB	W?YOU
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND13
+?CCL19:	EQUAL?	WRD,W?ONE \?CCL21
+	PRINTI	"object"
+	JUMP	?CND13
+?CCL21:	EQUAL?	WRD,FALSE-VALUE,W?ALL,W?PERIOD /?CCL23
+	GETB	WRD,8
+	BTST	STACK,128 /?CCL32
+	GETB	WRD,8 >TMP
+	JUMP	?CND30
+?CCL32:	GETB	WRD,8
+	BAND	STACK,127
+	SHIFT	STACK,7 >TMP
+?CND30:	ZERO?	TMP \?CCL23
+	GET	WRD,3
+	ZERO?	STACK \?CCL23
+	BTST	TMP,4 /?CCL23
+	BTST	TMP,2 /?CCL23
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND13
+?CCL23:	CALL2	CAPITAL-NOUN?,WRD
+	ZERO?	STACK /?CCL35
+	ICALL2	CAPITALIZE,BEG
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND13
+?CCL35:	ZERO?	FIRST?? /?CND36
+	ZERO?	PN \?CND36
+	ZERO?	CP /?CND36
+	EQUAL?	WRD,W?HER,W?HIM,W?YOUR /?CND36
+	PRINTI	"the "
+?CND36:	EQUAL?	WRD,W?IT \?CCL45
+	CALL2	VISIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CCL45
+	ICALL2	DPRINT,P-IT-OBJECT
+	JUMP	?CND43
+?CCL45:	EQUAL?	WRD,W?HER \?CCL49
+	ZERO?	PN \?CCL49
+	ICALL2	DPRINT,P-HER-OBJECT
+	JUMP	?CND43
+?CCL49:	EQUAL?	WRD,W?HIM \?CCL53
+	ZERO?	PN \?CCL53
+	ICALL2	DPRINT,P-HIM-OBJECT
+	JUMP	?CND43
+?CCL53:	EQUAL?	WRD,W?INT.NUM,W?INT.TIM \?CCL57
+	GET	BEG,1
+	PRINTN	STACK
+	JUMP	?CND43
+?CCL57:	ICALL2	WORD-PRINT,BEG
+?CND43:	SET	'FIRST??,FALSE-VALUE
+?CND13:	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,PTR,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	PRINT-PARSER-FAILURE,CLASS,OTHER,OTHER2,TMP,PR,N,X,?TMP1
+	GET	ERROR-ARGS,1 >CLASS
+	GET	ERROR-ARGS,2 >OTHER
+	GET	ERROR-ARGS,3 >OTHER2
+	EQUAL?	CLASS,PARSER-ERROR-ORPH-S \?CCL3
+	GET	ORPHAN-S,O-LEXPTR
+	SUB	STACK,P-LEXV
+	DIV	STACK,2 >P-OFLAG
+	COPYT	G-LEXV,O-LEXV,LEXV-LENGTH-BYTES
+	COPYT	G-INBUF,O-INBUF,61
+	GET	OOPS-TABLE,O-START
+	PUT	OOPS-TABLE,O-AGAIN,STACK
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,O-LEXV,P-OFLAG
+	PUT	O-LEXV,P-OFLAG,W?NO.WORD
+	PRINTI	"[Wh"
+	GET	ORPHAN-S,O-VERB
+	CALL	DIR-VERB-WORD?,STACK
+	ZERO?	STACK /?CCL8
+	PRINTI	"ere"
+	JUMP	?CND6
+?CCL8:	GET	ORPHAN-S,O-WHICH
+	EQUAL?	STACK,1 \?CCL13
+	GET	ORPHAN-S,O-SYNTAX
+	GETB	STACK,4
+	JUMP	?CND11
+?CCL13:	GET	ORPHAN-S,O-SYNTAX
+	GETB	STACK,8
+?CND11:	EQUAL?	PERSONBIT,STACK \?CCL10
+	PRINTI	"om"
+	JUMP	?CND6
+?CCL10:	PRINTI	"at"
+?CND6:	PRINTC	32
+	GET	ORPHAN-S,O-SUBJECT >PR
+	ZERO?	PR /?CCL16
+	GET	ORPHAN-S,O-VERB >TMP
+	ADD	WORD-FLAG-TABLE,2 >?TMP1
+	GET	WORD-FLAG-TABLE,0
+	INTBL?	TMP,?TMP1,STACK,132 >X \?CCL21
+	GET	X,1
+	JUMP	?CND19
+?CCL21:	PUSH	FALSE-VALUE
+?CND19:	BTST	STACK,512 \?CCL16
+	PRINTI	"did "
+	ICALL2	TELL-THE,PR
+	PRINTC	32
+	JUMP	?CND14
+?CCL16:	PRINTI	"do you want "
+	EQUAL?	WINNER,PLAYER /?CND22
+	ICALL2	DPRINT,WINNER
+	PRINTC	32
+?CND22:	PRINTI	"to "
+?CND14:	GET	ORPHAN-S,O-VERB
+	CALL2	ROOT-VERB,STACK
+	ICALL2	PRINT-VOCAB-WORD,STACK
+	GET	ORPHAN-S,O-PART >TMP
+	EQUAL?	TMP,0,1 /?CND24
+	PRINTC	32
+	ICALL2	PRINT-VOCAB-WORD,TMP
+?CND24:	GET	ERROR-ARGS,2 >TMP
+	ZERO?	TMP /?CND26
+	PRINTC	32
+	GET	ORPHAN-S,O-OBJECT >PR
+	ZERO?	PR /?CCL30
+	ICALL2	TELL-THE,PR
+	JUMP	?CND28
+?CCL30:	ICALL2	NP-PRINT,TMP
+?CND28:	GET	ORPHAN-S,O-SYNTAX >TMP
+	ZERO?	TMP /?CND26
+	GET	ORPHAN-S,O-WHICH
+	EQUAL?	STACK,1 \?CCL35
+	GET	TMP,1 >TMP
+	JUMP	?CND33
+?CCL35:	GET	TMP,3 >TMP
+?CND33:	ZERO?	TMP /?CND26
+	GETB	O-LEXV,P-LEXWORDS >N
+	SUB	P-OFLAG,P-LEXELEN
+	GET	O-LEXV,STACK >PR
+	GETB	PR,8
+	BTST	STACK,128 /?CCL42
+	GETB	PR,8
+	JUMP	?CND40
+?CCL42:	GETB	PR,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND40:	ZERO?	STACK \?CND38
+	GET	PR,3 >PR
+?CND38:	EQUAL?	TMP,PR /?CND43
+	INC	'N
+	PUTB	O-LEXV,P-LEXWORDS,N
+	PUT	O-LEXV,P-OFLAG,TMP
+	ADD	P-OFLAG,P-LEXELEN >P-OFLAG
+?CND43:	PUT	O-LEXV,P-OFLAG,W?NO.WORD
+	MUL	P-WORDLEN,N
+	ADD	1,STACK
+	ICALL	INBUF-PRINT,TMP,O-INBUF,O-LEXV,STACK
+	PRINTC	32
+	ICALL2	PRINT-VOCAB-WORD,TMP
+?CND26:	PRINTR	"?]"
+?CCL3:	EQUAL?	CLASS,PARSER-ERROR-ORPH-NP \?CND1
+	SET	'X,OTHER
+	GET	X,8 >N
+	GET	X,2 >PR
+?PRG46:	GET	N,0
+	EQUAL?	PR,STACK \?CCL50
+	SUB	N,P-LEXV
+	DIV	STACK,2 >P-OFLAG
+	COPYT	G-LEXV,O-LEXV,LEXV-LENGTH-BYTES
+	COPYT	G-INBUF,O-INBUF,61
+	GET	OOPS-TABLE,O-START
+	PUT	OOPS-TABLE,O-AGAIN,STACK
+	ICALL2	WHICH-PRINT,X
+	RTRUE	
+?CCL50:	SUB	N,4 >N
+	GRTR?	P-LEXV,N \?PRG46
+?CND1:	EQUAL?	CLASS,PARSER-ERROR-NOMULT \?CCL54
+	ICALL	CANT-USE-MULTIPLE,OTHER,OTHER2
+	RTRUE	
+?CCL54:	EQUAL?	CLASS,PARSER-ERROR-NOOBJ \?CCL56
+	ICALL	CANT-FIND-OBJECT,OTHER,OTHER2
+	RTRUE	
+?CCL56:	EQUAL?	CLASS,PARSER-ERROR-TMNOUN \?CCL58
+	GET	PARSE-RESULT,1
+	ICALL2	TOO-MANY-NOUNS,STACK
+	RTRUE	
+?CCL58:	SET	'OTHER2,OTLEXV
+	ZERO?	P-LEN \?PRD62
+	GET	OTHER2,0
+	CALL2	NAKED-ADJECTIVE?,STACK
+	ZERO?	STACK \?CCL60
+?PRD62:	SUB	OTLEXV,4 >OTHER2
+	LESS?	P-LEXV,OTHER2 \?CND59
+	LESS?	0,P-LEN \?CND59
+	GET	OTHER2,0
+	CALL2	NAKED-ADJECTIVE?,STACK
+	ZERO?	STACK /?CND59
+	GET	OTLEXV,0
+	CALL	WORD-TYPE?,STACK,P-EOI-CODE,P-COMMA-CODE
+	ZERO?	STACK /?CND59
+?CCL60:	SUB	OTHER2,P-LEXV
+	DIV	STACK,2
+	ADD	P-LEXELEN,STACK >CLASS
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,P-LEXV,CLASS
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,G-LEXV,CLASS
+	ADD	OTHER2,4
+	ICALL	CHANGE-LEXV,STACK,W?ONE
+	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	GET	OOPS-TABLE,O-START >TLEXV
+	CALL2	PARSE-IT,FALSE-VALUE
+	RSTACK	
+?CND59:	GRTR?	P-LEN,0 \?CCL71
+	SUB	OTLEXV,4 >OTHER2
+	CALL2	CHANGE-AND-TO-THEN?,OTHER2
+	ZERO?	STACK \?CTR70
+	SET	'OTHER2,OTLEXV
+	CALL2	CHANGE-AND-TO-THEN?,OTHER2
+	ZERO?	STACK /?CCL71
+?CTR70:	ICALL	CHANGE-LEXV,OTHER2,W?THEN
+	GET	OOPS-TABLE,O-LENGTH >P-LEN
+	GET	OOPS-TABLE,O-START >TLEXV
+	ICALL1	PRINT-LEXV
+	CALL2	PARSE-IT,FALSE-VALUE
+	RSTACK	
+?CCL71:	CALL1	DONT-UNDERSTAND
+	RSTACK	
+
+
+	.FUNCT	NAKED-ADJECTIVE?,WD
+	CALL	WORD-TYPE?,WD,P-ADJ-CODE
+	ZERO?	STACK /FALSE
+	CALL	WORD-TYPE?,WD,P-DIR-CODE
+	ZERO?	STACK \FALSE
+	EQUAL?	WD,W?ONE /FALSE
+	RTRUE	
+
+
+	.FUNCT	CHANGE-AND-TO-THEN?,PTR,?TMP1
+	GET	PTR,0
+	EQUAL?	STACK,W?AND,W?COMMA \FALSE
+	ADD	PTR,4 >PTR
+	GET	PTR,0
+	CALL	WORD-TYPE?,STACK,P-VERB-CODE,P-DIR-CODE >?TMP1
+	ZERO?	?TMP1 /?PRD6
+	RETURN	?TMP1
+?PRD6:	GET	PTR,0
+	CALL	WORD-TYPE?,STACK,P-EOI-CODE
+	RSTACK	
+
+
+	.FUNCT	DONT-UNDERSTAND
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	GETB	P-LEXV,P-LEXWORDS
+	EQUAL?	1,STACK \?CND1
+	GET	P-LEXV,P-LEXSTART
+	CALL	WORD-TYPE?,STACK,P-NOUN-CODE,P-ADJ-CODE
+	ZERO?	STACK /?CND1
+	ICALL2	MISSING,STR?25
+	RTRUE	
+?CND1:	CALL2	COUNT-ERRORS,1
+	ZERO?	STACK \TRUE
+	PRINTR	"[Sorry, but I don't understand. Please say that another way, or try something else.]"
+
+
+	.FUNCT	MISSING,NV
+	PRINTI	"[I think there's a "
+	PRINT	NV
+	PRINTR	" missing in that sentence!]"
+
+
+	.FUNCT	CANT-FIND-OBJECT,NP,PART,TMP
+	GET	NP,3
+	ZERO?	STACK \?CCL3
+	CALL2	NP-CANT-SEE,NP
+	RSTACK	
+?CCL3:	PRINTI	"[There isn't anything to "
+	GET	PARSE-RESULT,1 >TMP
+	ZERO?	TMP /?CCL6
+	ICALL2	PRINT-VOCAB-WORD,TMP
+	EQUAL?	PART,0,1 /?CND4
+	PRINTC	32
+	ICALL2	PRINT-VOCAB-WORD,TMP
+	JUMP	?CND4
+?CCL6:	PRINTI	"do that to"
+?CND4:	PRINTR	"!]"
+
+
+	.FUNCT	NP-CANT-SEE,NP,TMP
+	ASSIGNED?	'NP /?CND1
+	CALL1	GET-NP >NP
+?CND1:	GET	NP,2 >TMP
+	ZERO?	TMP /?CCL5
+	PRINTC	91
+	ICALL2	TELL-CTHE,WINNER
+	PRINTI	" can't see "
+	CALL2	CAPITAL-NOUN?,TMP
+	ZERO?	STACK \?CTR7
+	GET	NP,1 >TMP
+	ZERO?	TMP /?CCL8
+	GET	TMP,2
+	ZERO?	STACK /?CCL8
+?CTR7:	ICALL	NP-PRINT,NP,TRUE-VALUE
+	JUMP	?CND6
+?CCL8:	PRINTI	"any "
+	ICALL2	NP-PRINT,NP
+?CND6:	PRINTC	32
+	GET	NP,5 >TMP
+	ZERO?	TMP /?CCL15
+	GETB	TMP,1
+	EQUAL?	STACK,4 \?PRD19
+	PRINTI	"in"
+	JUMP	?CTR14
+?PRD19:	GETB	TMP,1
+	EQUAL?	STACK,6 \?CCL15
+	GET	TMP,2 >TMP
+	ZERO?	TMP /?CCL15
+	GET	TMP,1
+	CALL2	PRINT-VOCAB-WORD,STACK
+	ZERO?	STACK /?CCL15
+?CTR14:	PRINTC	32
+	GET	TMP,3
+	ICALL2	TELL-THE,STACK
+	JUMP	?CND13
+?CCL15:	PRINTI	"right "
+	PRINTI	"here"
+?CND13:	PRINTR	".]"
+?CCL5:	CALL1	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	WHICH-LIST?,NP,SR,CT,V,?TMP1
+	GET	SR,1 >CT
+	ADD	SR,8 >V
+	GET	SR,0
+	GRTR?	CT,STACK /FALSE
+	INTBL?	PSEUDO-OBJECT,V,CT >NP \?PRG7
+	ADD	NP,2 >?TMP1
+	SUB	NP,V
+	ADD	2,STACK
+	DIV	STACK,2
+	SUB	CT,STACK
+	INTBL?	PSEUDO-OBJECT,?TMP1,STACK /FALSE
+?PRG7:	DLESS?	'CT,0 /FALSE
+	GET	V,0
+	CALL2	ACCESSIBLE?,STACK
+	ZERO?	STACK \TRUE
+	ADD	V,2 >V
+	JUMP	?PRG7
+
+
+	.FUNCT	WHICH-PRINT,NP,SR,LEN,SZ,REM,VEC
+	SET	'SR,ORPHAN-SR
+	GET	SR,1 >LEN
+	GET	SR,0 >SZ
+	EQUAL?	WINNER,PLAYER /?CCL3
+	PRINTI	"""I don't understand "
+	CALL	WHICH-LIST?,NP,SR
+	ZERO?	STACK /?CCL6
+	PRINTI	"if"
+	JUMP	?CND1
+?CCL6:	PRINTI	"which"
+	ZERO?	NP /?CND1
+	PRINTC	32
+	ICALL2	NP-PRINT,NP
+	JUMP	?CND1
+?CCL3:	PRINTI	"[Which"
+	ZERO?	NP /?CND9
+	PRINTC	32
+	ICALL2	NP-PRINT,NP
+?CND9:	PRINTI	" do"
+?CND1:	PRINTI	" you mean"
+	CALL	WHICH-LIST?,NP,SR
+	ZERO?	STACK /?CND11
+	EQUAL?	WINNER,PLAYER \?CND13
+	PRINTC	44
+?CND13:	SET	'REM,LEN
+	ADD	SR,8 >VEC
+?PRG15:	PRINTC	32
+	GET	VEC,0
+	ICALL2	TELL-THE,STACK
+	EQUAL?	REM,2 \?CCL19
+	EQUAL?	LEN,2 /?CND20
+	PRINTC	44
+?CND20:	PRINTI	" or"
+	JUMP	?CND17
+?CCL19:	GRTR?	REM,2 \?CND17
+	PRINTC	44
+?CND17:	DLESS?	'REM,1 /?CND11
+	DLESS?	'SZ,1 /?CND11
+	ADD	VEC,2 >VEC
+	JUMP	?PRG15
+?CND11:	EQUAL?	WINNER,PLAYER /?CCL31
+	PRINTR	"."""
+?CCL31:	PRINTR	"?]"
+
+
+	.FUNCT	NP-PRINT,NP,DO-QUANT,LEN,OBJ,CT,?TMP1
+	LESS?	0,NP \?CCL3
+	GRTR?	NP,LAST-OBJECT /?CCL3
+	CALL2	TELL-THE,NP
+	RSTACK	
+?CCL3:	GETB	NP,1
+	EQUAL?	STACK,4 \?CCL7
+	GET	NP,1 >LEN
+	ZERO?	LEN /FALSE
+	DEC	'LEN
+?PRG11:	MUL	CT,2
+	ADD	NOUN-PHRASE-HEADER-LEN,STACK
+	GET	NP,STACK >OBJ
+	ZERO?	OBJ /?CND13
+	ICALL2	TELL-THE,OBJ
+?CND13:	IGRTR?	'CT,LEN /TRUE
+	PRINTI	", "
+	JUMP	?PRG11
+?CCL7:	ZERO?	DO-QUANT /?CND18
+	GET	NP,3 >LEN
+	ZERO?	LEN /?CND18
+	CALL2	GET-QUANTITY-WORD,LEN
+	PRINTB	STACK
+	GET	NP,2
+	ZERO?	STACK /?CND18
+	PRINTC	32
+?CND18:	GET	NP,1 >LEN
+	ZERO?	LEN /?CND24
+	ICALL2	ADJS-PRINT,LEN
+?CND24:	GET	NP,8 >LEN
+	ZERO?	LEN /?CCL28
+	GET	LEN,0 >?TMP1
+	GET	NP,2
+	EQUAL?	?TMP1,STACK /?CTR27
+	GET	LEN,0
+	GETB	STACK,8
+	BTST	STACK,128 /?CCL37
+	GET	LEN,0
+	GETB	STACK,8
+	JUMP	?CND35
+?CCL37:	GET	LEN,0
+	GETB	STACK,8
+	BAND	STACK,127
+	SHIFT	STACK,7
+?CND35:	BTST	STACK,8192 \?CCL28
+	SUB	LEN,4 >LEN
+	LESS?	P-LEXV,LEN \?CCL28
+	GET	LEN,0 >?TMP1
+	GET	NP,2
+	EQUAL?	?TMP1,STACK \?CCL28
+?CTR27:	ADD	LEN,P-WORDLEN
+	ICALL	BUFFER-PRINT,LEN,STACK,FALSE-VALUE,TRUE-VALUE
+	JUMP	?CND26
+?CCL28:	GET	NP,2 >LEN
+	ZERO?	LEN /?CND26
+	ICALL2	PRINT-VOCAB-WORD,LEN
+?CND26:	GET	NP,4 >LEN
+	ZERO?	LEN /?CND40
+	CALL2	PMEM?,LEN
+	ZERO?	STACK /?CND40
+	GETB	LEN,1
+	EQUAL?	STACK,2 \?CND40
+	PRINTI	" of "
+	ICALL2	NP-PRINT,LEN
+?CND40:	GET	NP,6 >LEN
+	ZERO?	LEN /FALSE
+	CALL2	PMEM?,LEN
+	ZERO?	STACK /FALSE
+	GETB	LEN,1
+	EQUAL?	STACK,2 \FALSE
+	PRINTI	" except "
+	CALL2	NP-PRINT,LEN
+	RSTACK	
+
+
+	.FUNCT	ADJS-PRINT,ADJT,LEN,WD,CT,TMP
+	GET	ADJT,2 >LEN
+	ZERO?	LEN /?CND1
+	EQUAL?	LEN,PLAYER,ME \?CCL5
+	PRINTI	"your "
+	JUMP	?CND1
+?CCL5:	ICALL2	NP-PRINT,LEN
+	PRINTI	"'s "
+?CND1:	GET	ADJT,4 >LEN
+	ZERO?	LEN /FALSE
+	ADD	ADJT,10 >ADJT
+	GRTR?	LEN,ADJS-MAX-COUNT \?CND9
+	SET	'LEN,ADJS-MAX-COUNT
+?CND9:	DEC	'LEN
+	MUL	2,LEN
+	ADD	ADJT,STACK >ADJT
+?PRG11:	GET	ADJT,0 >WD
+	EQUAL?	WD,W?MY \?CCL15
+	PRINTI	"your "
+	JUMP	?CND13
+?CCL15:	EQUAL?	WD,W?INT.NUM,W?INT.TIM \?CCL17
+	PRINTN	P-NUMBER
+	PRINTC	32
+	JUMP	?CND13
+?CCL17:	EQUAL?	WD,W?NO.WORD /?CND13
+	CALL2	CAPITAL-NOUN?,WD
+	ZERO?	STACK /?CCL21
+	GETB	P-LEXV,P-LEXWORDS >TMP
+	ZERO?	TMP /?CCL21
+	INTBL?	WD,P-LEXV+2,TMP,132 >TMP \?CCL21
+	ICALL2	CAPITALIZE,TMP
+	JUMP	?CND19
+?CCL21:	ICALL2	PRINT-VOCAB-WORD,WD
+?CND19:	PRINTC	32
+?CND13:	IGRTR?	'CT,LEN /TRUE
+	SUB	ADJT,2 >ADJT
+	JUMP	?PRG11
+
+
+	.FUNCT	TOO-MANY-NOUNS,WD
+	PRINTI	"[I can't understand that many nouns with "
+	ZERO?	WD /?CCL3
+	PRINTC	34
+	ICALL2	PRINT-VOCAB-WORD,WD
+	PRINTC	34
+	JUMP	?CND1
+?CCL3:	PRINTI	"that verb"
+?CND1:	PRINTR	".]"
+
+
+	.FUNCT	INBUF-ADD,LEN,BEG,SLOT,DBEG,TMP,?TMP1
+	GET	OOPS-TABLE,O-END >TMP
+	ZERO?	TMP /?CCL3
+	SET	'DBEG,TMP
+	JUMP	?CND1
+?CCL3:	GET	OOPS-TABLE,O-LENGTH
+	MUL	P-WORDLEN,STACK >TMP
+	GETB	G-LEXV,TMP >?TMP1
+	ADD	TMP,1
+	GETB	G-LEXV,STACK
+	ADD	?TMP1,STACK >DBEG
+?CND1:	SUB	LEN,1
+	ADD	DBEG,STACK
+	LESS?	INBUF-LENGTH,STACK /FALSE
+	ADD	DBEG,LEN
+	PUT	OOPS-TABLE,O-END,STACK
+	ADD	P-INBUF,BEG >?TMP1
+	ADD	G-INBUF,DBEG
+	COPYT	?TMP1,STACK,LEN
+	PUTB	G-LEXV,SLOT,DBEG
+	SUB	SLOT,1
+	PUTB	G-LEXV,STACK,LEN
+	RTRUE	
+
+
+	.FUNCT	INBUF-PRINT,WD,INBUF,LEXV,SLOT,DBEG,CTR,TMP,LEN,?TMP1
+	SET	'LEN,11
+	GET	OOPS-TABLE,O-END >TMP
+	ZERO?	TMP /?CCL3
+	SET	'DBEG,TMP
+	JUMP	?CND1
+?CCL3:	GET	OOPS-TABLE,O-LENGTH
+	MUL	P-WORDLEN,STACK >TMP
+	GETB	LEXV,TMP >?TMP1
+	ADD	TMP,1
+	GETB	LEXV,STACK
+	ADD	?TMP1,STACK >DBEG
+?CND1:	GETB	INBUF,0 >?TMP1
+	SUB	LEN,1
+	ADD	DBEG,STACK
+	LESS?	?TMP1,STACK /FALSE
+	ADD	INBUF,DBEG
+	DIROUT	D-TABLE-ON,STACK
+	ICALL2	PRINT-VOCAB-WORD,WD
+	DIROUT	D-TABLE-OFF
+	ADD	1,DBEG
+	GETB	INBUF,STACK >LEN
+	ADD	2,DBEG >DBEG
+	ADD	DBEG,LEN
+	PUT	OOPS-TABLE,O-END,STACK
+	PUTB	LEXV,SLOT,DBEG
+	SUB	SLOT,1
+	PUTB	LEXV,STACK,LEN
+	RTRUE	
+
+
+	.FUNCT	SETUP-ORPHAN,STR,A,B
+	DIROUT	D-TABLE-ON,O-INBUF
+	PRINT	STR
+	ZERO?	A /?CND1
+	LESS?	0,A \?CCL5
+	GRTR?	A,LAST-OBJECT /?CCL5
+	ICALL2	DPRINT,A
+	JUMP	?CND3
+?CCL5:	PRINT	A
+?CND3:	ZERO?	B /?CND1
+	LESS?	0,B \?CCL12
+	GRTR?	B,LAST-OBJECT /?CCL12
+	ICALL2	DPRINT,B
+	JUMP	?CND1
+?CCL12:	PRINT	B
+?CND1:	DIROUT	D-TABLE-OFF
+	PUTB	O-INBUF,0,INBUF-LENGTH
+	LEX	O-INBUF,O-LEXV
+	GETB	O-LEXV,P-LEXWORDS >A
+	ZERO?	A /FALSE
+	INTBL?	0,O-LEXV+2,A,132 /FALSE
+	GETB	O-LEXV,P-LEXWORDS
+	MUL	P-LEXELEN,STACK
+	ADD	1,STACK >P-OFLAG
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,O-LEXV,P-OFLAG
+	PUT	O-LEXV,P-OFLAG,W?NO.WORD
+	SUB	0,P-OFLAG >P-OFLAG
+	PUT	OOPS-TABLE,O-AGAIN,P-LEXV+2
+	RTRUE	
+
+
+	.FUNCT	INSERT-ADJS,E,CT,PTR,WD
+	LESS?	P-OFLAG,0 \?CCL3
+	SUB	0,P-OFLAG >PTR
+	JUMP	?CND1
+?CCL3:	SET	'PTR,P-OFLAG
+?CND1:	EQUAL?	E,FALSE-VALUE,TRUE-VALUE /FALSE
+	GET	E,2 >CT
+	ZERO?	CT /?CND7
+	CALL2	PMEM?,CT
+	ZERO?	STACK /?CCL11
+	GET	CT,2 >CT
+	JUMP	?CND9
+?CCL11:	GETPT	CT,P?SYNONYM
+	GET	STACK,0 >CT
+?CND9:	GETB	VOCAB,0
+	ADD	1,STACK
+	ADD	VOCAB,STACK
+	GETB	STACK,0
+	ADD	CT,STACK >CT
+	CALL	INSERT-ADJS-WD,PTR,CT >PTR
+?CND7:	GET	E,4 >CT
+	ZERO?	CT /FALSE
+	ADD	E,10 >E
+?PRG16:	DLESS?	'CT,0 /TRUE
+	GET	E,CT >WD
+	GET	ERROR-ARGS,3
+	EQUAL?	WD,STACK /?PRG16
+	CALL	INSERT-ADJS-WD,PTR,WD >PTR
+	JUMP	?PRG16
+
+
+	.FUNCT	INSERT-ADJS-WD,PTR,WD
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,G-LEXV,PTR
+	PUT	G-LEXV,PTR,WD
+	ADD	PTR,P-LEXELEN >PTR
+	MUL	2,PTR
+	SUB	STACK,1
+	ICALL	INBUF-PRINT,WD,G-INBUF,G-LEXV,STACK
+	RETURN	PTR
+
+	.ENDSEG
+
+	.ENDI
diff --git a/prare.zil b/prare.zil
new file mode 100644
index 0000000..b9c54a3
--- /dev/null
+++ b/prare.zil
@@ -0,0 +1,984 @@
+"PRARE file for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZPACKAGE "PARSER">
+
+<RENTRY	PRINT-LEXV
+	TELL-CTHE
+	TELL-THE>
+
+<INCLUDE "BASEDEFS" "PBITDEFS" "PDEFS">
+
+<USE "PMEM" "PSTACK">
+
+<FILE-FLAGS MDL-ZIL? CLEAN-STACK?>
+
+<BEGIN-SEGMENT 0>
+
+<DEFAULTS-DEFINED
+	CANT-FIND-OBJECT
+	CANT-USE-MULTIPLE
+	DONT-UNDERSTAND
+	PARSER-REPORT
+	PRINT-INTQUOTE
+	PRINT-LEXV
+	REFRESH
+	;SAMPLE-COMMANDS
+	SETUP-ORPHAN
+	SETUP-ORPHAN-NP
+	TOO-MANY-NOUNS
+	WHICH-LIST?
+	WHICH-PRINT
+	YES?>
+
+<DEFINE TOO-MANY-NEW (WHAT)
+	<TELL "[Warning: there are too many new " .WHAT "s.]" CR>>
+
+<DEFINE NAKED-OOPS () <TELL "[Please type a word(s) after OOPS.]" CR>>
+
+<DEFINE CANT-OOPS ()
+	<TELL "[There was no word to replace in that sentence.]" CR>>
+
+<DEFINE CANT-AGAIN () <TELL "[What do you want to do again?]" CR>>
+
+<DEFAULT-DEFINITION CANT-USE-MULTIPLE
+<DEFINE CANT-USE-MULTIPLE (LOSS WD)
+	<SETG CLOCK-WAIT T>
+	;<COND (<==? .LOSS 2> <TELL "in">)>
+	;<TELL "direct ">
+	<TELL "[You can't use more than one object at a time with \"">
+	<PRINT-VOCAB-WORD .WD>
+	<TELL "\"!]" CR>>>
+
+<DEFINE MAKE-ROOM-FOR-TOKENS (CNT LEXV WHERE "AUX" LEN)
+	<SET LEN <* 2 <GETB .LEXV 0>>>
+	<COND (<L? .LEN <+ .WHERE <* ,P-LEXELEN .CNT>>>
+	       <SET CNT </ <- .LEN .WHERE> ,P-LEXELEN>>
+	       <TOO-MANY-NEW "word">)>
+	<SET LEN <GETB .LEXV ,P-LEXWORDS>>
+	<PUTB .LEXV ,P-LEXWORDS <+ .CNT .LEN>>	;"update count"
+	<COND (T ;<OR <CHECK-EXTENDED? XZIP>
+		      <CHECK-EXTENDED? YZIP>>		;"make space in dest."
+		<COPYT <SET LEXV <ZREST .LEXV <* 2 .WHERE>>>
+		       <ZREST .LEXV <* .CNT <* 2 ,P-LEXELEN>>>
+		       <* 2 <- <* 2 .LEN> <- .WHERE ,P-LEXSTART>>>>)
+	      ;(T
+	       <PROG ()
+		     <SET CNT <* ,P-LEXELEN .CNT>>
+		     <SET LEN <* ,P-LEXELEN .LEN>>
+		     <REPEAT ()
+			     <ZPUT .LEXV <+ .CNT .LEN> <ZGET .LEXV .LEN>>
+			     <COND (<L? <SET LEN <- .LEN 1>> .WHERE>
+				    <RETURN>)>>>)>>
+
+<DEFINE REPLACE-ONE-TOKEN (N FROM-LEXV PTR TO-LEXV WHERE "AUX" CNT)
+	<SET CNT <- .N 1>>
+	<COND (<NOT <0? .CNT>>
+	       <MAKE-ROOM-FOR-TOKENS .CNT .TO-LEXV .WHERE>)>
+	<SET CNT .N>
+	<REPEAT (X)	;"copy tokens"
+		<COND (<L? <SET CNT <- .CNT 1>> 0>
+		       <RETURN>)>
+		<SET PTR <+ .PTR ,P-LEXELEN>>
+		<ZPUT .TO-LEXV .WHERE <ZGET .FROM-LEXV .PTR>>
+		<SET X <+ <* .PTR ,P-LEXELEN> 2>>
+		<COND (<ZERO? <INBUF-ADD <GETB .FROM-LEXV .X>
+					 <GETB .FROM-LEXV <+ .X 1>>
+					 <+ <* .WHERE ,P-LEXELEN> 3>>>
+		       <TOO-MANY-NEW "letter">
+		       <RETURN>)>
+		<SET WHERE <+ .WHERE ,P-LEXELEN>>>>
+
+<DEFAULT-DEFINITION REFRESH
+;<SYNTAX $REFRESH = V-$REFRESH>
+<DEFINE V-$REFRESH ()
+	 <LOWCORE FLAGS <BAND <LOWCORE FLAGS> <BCOM ,F-REFRESH>>>
+	 <CLEAR -1>
+	 <INIT-STATUS-LINE>
+	 <RTRUE>>>
+
+<DEFAULT-DEFINITION PRINT-INTQUOTE
+<DEFINE PRINT-INTQUOTE ("AUX" (NP <GET-NP ,INTQUOTE>))
+	<PRINT-LEXV -1
+		    <ZREST <NP-LEXBEG .NP> ,LEXV-ELEMENT-SIZE-BYTES>
+		    <+ -1 </ <- <NP-LEXEND .NP> <NP-LEXBEG .NP>>
+			     ,LEXV-ELEMENT-SIZE-BYTES>>>
+	;<BUFFER-PRINT <ZREST <NP-LEXBEG .NP> <* 2 ,LEXV-ELEMENT-SIZE-BYTES>>
+		      <NP-LEXEND .NP>
+		      <>
+		      T>>>
+
+<DEFAULT-DEFINITION PRINT-LEXV
+<DEFINE PRINT-LEXV ("OPT" (QUIET 0)
+			(X <ZREST ,TLEXV <* .QUIET ,LEXV-ELEMENT-SIZE-BYTES>>)
+			(LEN <- ,P-LEN .QUIET>))
+	<COND (<OR <ZERO? .QUIET> <G? 0 ,P-OFLAG>>
+	       <TELL "[In other words:" ;,I-ASSUME>)
+	      ;(T
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTI "[Debugging info: ">)
+		       (T T)>)>
+	;<BUFFER-PRINT .X <+ .X <* ,P-WORDLEN ,P-LEN>>>
+	<REPEAT (WD (IN-QUOTE <>)
+		 (OWD <COND (<EQUAL? .QUIET -1> ,W?APOSTROPHE) (T 0)>))
+		<SET WD <ZGET .X 0>>
+		<COND (<EQUAL? .WD
+			       ,W?PERIOD ,W?COMMA ,W?APOSTROPHE ,W?NO.WORD>
+		       T)
+		      (<EQUAL? .OWD ,W?APOSTROPHE>
+		       T)
+		      (<AND <EQUAL? .OWD ,W?QUOTE>
+			    <F? .IN-QUOTE>>
+		       <SET IN-QUOTE T>)
+		      (<AND <EQUAL? .WD ,W?QUOTE>
+			    <T? .IN-QUOTE>>
+		       <SET IN-QUOTE <>>)
+		      (T
+		       <TELL !\ >)>
+		<COND (<EQUAL? .WD ,W?NO.WORD>
+		       T)
+		      (<NOT <EQUAL? .WD 0 ,W?INT.NUM ,W?INT.TIM>>
+		       <PRINT-VOCAB-WORD .WD>)
+		      (T
+		       <BUFFER-PRINT .X <+ .X ,P-WORDLEN> <> T>)>
+		<COND (<DLESS? LEN 1>
+		       <RETURN>)>
+		<COND (<NOT <EQUAL? .WD ,W?NO.WORD>>
+		       <SET OWD .WD>)>
+		<SET X <ZREST .X ,LEXV-ELEMENT-SIZE-BYTES>>>
+	<COND (<OR <ZERO? .QUIET> <G? 0 ,P-OFLAG>>
+	       <TELL "]" CR>)
+	      ;(T
+	       <IFFLAG (P-DEBUGGING-PARSER <TELL "]" CR>)
+		       (T T)>)>
+	;<SETG P-OFLAG <>>>>
+
+<DEFINE COPY-INPUT ("OPT" (QUIET 0) "AUX" LEN)
+	<COPYT ,G-LEXV ,P-LEXV ,LEXV-LENGTH-BYTES>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<SETG TLEXV <ZGET ,OOPS-TABLE ,O-START ;,O-AGAIN>>
+	<COPYT ,G-INBUF ,P-INBUF <+ 1 ,INBUF-LENGTH>>
+	<SET LEN <* <* 2 ,P-LEXELEN:FIX>
+		    <GETB ,P-LEXV ,P-LEXWORDS>>>
+	<ZPUT ,OOPS-TABLE ,O-END
+	      <+ <GETB ,TLEXV <SET LEN <- .LEN 1>>>
+		 <GETB ,TLEXV <SET LEN <- .LEN 1>>>>>
+	<COND (<NOT .QUIET>
+	       <PRINT-LEXV .QUIET>)>
+	<SETG P-OFLAG <>>>
+
+<COND (<NOT <OR <CHECK-VERSION? XZIP>
+		<CHECK-VERSION? YZIP>>>
+<DEFINE COPY-INBUF (SRC DEST "AUX" CNT:FIX)
+	<SET CNT <- <GETB .SRC 0> 1>>
+	<REPEAT ()
+		<PUTB .DEST .CNT <GETB .SRC .CNT>>
+		<COND (<L? <SET CNT <- .CNT 1>> 0>
+		       <RETURN>)>>>
+
+<DEFINE COPY-LEXV (SRC DEST "OPT" (MAX:FIX ,LEXV-LENGTH) "AUX" (CTR:FIX 1))
+	<PUTB .DEST 0 <GETB .SRC 0>>
+	<PUTB .DEST 1 <GETB .SRC 1>>
+	<SET DEST <ZREST .DEST <* ,P-LEXSTART:FIX 2>>>
+	<SET SRC <ZREST .SRC <* ,P-LEXSTART:FIX 2>>>
+	<REPEAT ()
+		<ZPUT .DEST 0 <ZGET .SRC 0>>
+		<PUTB .DEST 2 <GETB .SRC 2>>
+		<PUTB .DEST 3 <GETB .SRC 3>>
+		<COND (<G? <SET CTR <+ .CTR 1>> .MAX>
+		       <RETURN>)>
+		<SET DEST <ZREST .DEST <* 2 ,P-LEXELEN:FIX>>>
+		<SET SRC <ZREST .SRC <* 2 ,P-LEXELEN:FIX>>>>>)>
+
+<END-SEGMENT>
+
+;"<DEFAULT-DEFINITION SAMPLE-COMMANDS"
+<IFN-P-BE-VERB
+
+<BEGIN-SEGMENT HINTS>
+
+<SYNTAX $NUDGE = V-$NUDGE>
+<SYNTAX $NUDGE OBJECT = V-$NUDGE>
+
+<ROUTINE V-$NUDGE ()
+	<SETG CLOCK-WAIT T>
+	<LEXV-WORD ,TLEXV ,W?SHOULD>	;"force sample command"
+	<TELL "[">
+	;<PRINT "Please use commands">
+	<TELL-SAMPLE-COMMANDS>
+	;<TELL ".]" CR>>
+
+<GLOBAL P-ERRS:NUMBER 0>
+;<GLOBAL P-THRESH:NUMBER 10>
+
+<DEFINE COUNT-ERRORS ("OPT" (NUM 1)
+		      "AUX" (THRESH <COND (<FSET? ,GREAT-HALL ,TOUCHBIT> 10)
+					  (T 2)>))
+	<SETG P-ERRS <+ .NUM ,P-ERRS>>
+	<COND (<G? ,P-ERRS .THRESH>
+	       <SETG P-ERRS 0>
+	       <TELL
+"[I'm having trouble understanding you. Maybe it's because you're not
+used to the rules for commands. ">
+	       <COND (<AND <NOT <FSET? ,GREAT-HALL ,TOUCHBIT>>
+			   <T? ,PROLOGUE-NOVICE-COUNTER>>
+		      <TELL "Here's the command you should type now:|
+	"
+			    <ZGET ,NOVICE-MOVES ,PROLOGUE-NOVICE-COUNTER>
+			    "|
+Please try that.]" CR>)
+		     (T
+		      <TELL-SAMPLE-COMMANDS>)>)>>
+
+<DEFINE FIND-UEXIT-STR ACT ("AUX" (P 0))
+ <REPEAT ()
+	 <COND (<L? <SET P <NEXTP ,HERE .P>> ,LOW-DIRECTION>
+		<RETURN <> .ACT>)
+	       (T
+		<COND (<EQUAL? <PTSIZE <GETPT ,HERE .P>> ,UEXIT>
+		       <RETURN <DIR-TO-STRING .P> .ACT>)>)>>>
+
+<CONSTANT TELL-SAMPLE-COMMANDS-NUMBER 3>
+
+<DEFINE TELL-SAMPLE-COMMANDS ("AUX" VERB SYN (OBJ <>) (NUM 0))
+	<TELL
+" Commands tell the computer what you want to do in the story.
+Here are some commands that you can type right now, although
+they may or may not be useful:|">
+	;"0 objects:"
+   <REPEAT ((CT <ZGET ,SAMPLE-COMMANDS-TABLE-0 0>)
+	    (N <COND (<T? ,PRSO> .CT) (T ,TELL-SAMPLE-COMMANDS-NUMBER)>))
+	<SET VERB <ZGET ,SAMPLE-COMMANDS-TABLE-0
+			<COND (<T? ,PRSO> .N) (T <RANDOM .CT>)>>>
+	<COND (<DLESS? N 0>
+	       <RETURN>)
+	      (<OR <NOT <EQUAL? .VERB ,W?GO>>
+		   <SET OBJ <FIND-UEXIT-STR>>>
+	       <INC NUM>
+	       <TELL "	">
+	       <PRINT-VOCAB-WORD .VERB>
+	       <COND (.OBJ
+		      <TELL !\  .OBJ>)>
+	       <CRLF>
+	       <COND (<F? ,PRSO>
+		      <RETURN>)>)>>
+	;"1 object:"
+   <REPEAT ((CT <ZGET ,SAMPLE-COMMANDS-TABLE-1 0>)
+	    (N <COND (<T? ,PRSO> .CT) (T ,TELL-SAMPLE-COMMANDS-NUMBER)>))
+	<SET VERB <ZGET ,SAMPLE-COMMANDS-TABLE-1
+			<COND (<T? ,PRSO> .N) (T <RANDOM .CT>)>>>
+	<COND (<DLESS? N 0>
+	       <RETURN>)
+	      (<AND <SET SYN <VERB-ONE <WORD-VERB-STUFF .VERB>>>
+		    <GET-SYNTAX .SYN 1 0 T>
+		    <SET OBJ <DETERMINE-OBJ <> 1 T>>
+		    <SET OBJ <NOUN-PHRASE-OBJ1 .OBJ>>>
+	       <INC NUM>
+	       <TELL "	">
+	       <PRINT-VOCAB-WORD .VERB>
+	       <TELL !\  D .OBJ CR>
+	       <COND (<F? ,PRSO>
+		      <RETURN>)>)>>
+	;"2 objects:"
+   <REPEAT ((CT </ <ZGET ,SAMPLE-COMMANDS-TABLE-2 0> 2>)
+	    (N <COND (<T? ,PRSO> .CT) (T ,TELL-SAMPLE-COMMANDS-NUMBER)>))
+	<COND (<0? .N>
+	       <RETURN>)>
+	<SET VERB <- <* <COND (<T? ,PRSO> .N) (T <RANDOM .CT>)> 2> 1>>
+	<SET SYN <ZGET ,SAMPLE-COMMANDS-TABLE-2 .VERB>>
+	<COND (<0? <WORD-CLASSIFICATION-NUMBER .SYN>>	;"a synonym"
+	       <SET SYN <WORD-SEMANTIC-STUFF .SYN>>)>
+	<COND (<DLESS? N 0>
+	       <RETURN>)
+	      (<AND <SET SYN <VERB-TWO <WORD-VERB-STUFF .SYN>>>
+		    <PARSE-PARTICLE2 ,PARSE-RESULT
+				<ZGET ,SAMPLE-COMMANDS-TABLE-2 <+ 1 .VERB>>>
+		    <GET-SYNTAX .SYN 2 0 T>
+		    <SET OBJ <DETERMINE-OBJ <> 1 T>>
+		    <SET OBJ <NOUN-PHRASE-OBJ1 .OBJ>>
+		    <SET SYN <DETERMINE-OBJ <> 2 T>>
+		    <SET SYN <NOUN-PHRASE-OBJ1 .SYN>>>
+	       <INC NUM>
+	       <TELL "	">
+	       <PRINT-VOCAB-WORD <ZGET ,SAMPLE-COMMANDS-TABLE-2 .VERB>>
+	       <TELL !\  D .OBJ !\ >
+	       <PRINT-VOCAB-WORD <ZGET ,SAMPLE-COMMANDS-TABLE-2 <+ 1 .VERB>>>
+	       <TELL !\  D .SYN CR>
+	       <COND (<F? ,PRSO>
+		      <RETURN>)>)>>
+   <COND (<OR <T? ,P-WON> <1? <RANDOM 2>>> ;<NOT <IGRTR? NUM 3>>
+	  <TELL "	say \"">
+	  <SET SYN <ZREST ,VOCAB <+ 1 <GETB ,VOCAB 0>>>>
+	  <REPEAT (N (M <GETB .SYN 0>))
+		<SET N <ZREST .SYN <+ 3 <* .M	;"size of entry"
+					   <- <RANDOM <ZGET <ZREST .SYN 1> 0>
+					       ;"number of entries">
+					      1>>>>>
+		<COND (<AND <G=? .N ,W?A>
+			    <T? <WORD-CLASSIFICATION-NUMBER .N>>
+			    <NOT <EQUAL? .N ,W?END.OF.INPUT ,W?NO.WORD
+					    ,W?INT.NUM ,W?INT.TIM>>>
+		       <PRINT-VOCAB-WORD .N>
+		       <RETURN>)>>
+	  <TELL "\"|">)>
+   <COND (<IN? ,JESTER ,HERE> ;<NOT <IGRTR? NUM 3>>
+	  <TELL "	jester, give me the key|">)>
+   <TELL "Now you can try again.]" CR>>
+
+<CONSTANT SAMPLE-COMMANDS-TABLE-0 <PLTABLE
+	<VOC "GO">	;"[a direction]"
+	<VOC "INVENTORY">
+	<VOC "LOOK">
+	<VOC "WAIT">>>
+
+<CONSTANT SAMPLE-COMMANDS-TABLE-1 <PLTABLE
+	<VOC "TAKE">
+	<VOC "DROP">
+	<VOC "EXAMINE">	;"[a visible object]"
+	<VOC "READ">
+	<VOC "OPEN">	;"[a closed container]"
+	<VOC "CLOSE">	;"[an open container]"
+	<VOC "BOARD">	;"[a vehicle you're not in]"
+	<VOC "EXIT">	;"[a vehicle you're in]"
+	<VOC "WEAR">
+	<VOC "REMOVE">>>
+
+<CONSTANT SAMPLE-COMMANDS-TABLE-2 <PLTABLE
+	<VOC "PUT"> <VOC "IN">	;"[a held object] INTO [an open container]"
+	<VOC "GIVE"> <VOC "TO">
+	<VOC "ASK"> <VOC "ABOUT"> ;"[a character] ABOUT [one of several topics]
+	[a character], HELLO
+	[a character], GO [a direction]">>
+
+<END-SEGMENT>
+>
+;">"
+
+<BEGIN-SEGMENT 0>
+
+<ADD-WORD NO.WORD ADJ>
+
+<DEFINE BUFFER-PRINT (BEG END "OPT" (CP <>) (NOSP <>) ;(ALL <>)
+		      "AUX" WRD NW (FIRST?? T) (PN <>) TMP)
+ <REPEAT ()
+	 <COND (<EQUAL? .BEG .END> <RETURN>)>
+	 <COND (<OR <T? .NOSP>
+		    <EQUAL? .NW ,W?PERIOD ,W?COMMA ,W?APOSTROPHE>>
+		<SET NOSP <>>)
+	       (T <TELL !\ >)>
+	 <SET WRD <ZGET .BEG 0>>
+	 <COND (<EQUAL? .END <ZREST .BEG ,P-WORDLEN>>
+		<SET NW 0>)
+	       (T <SET NW <ZGET .BEG ,P-LEXELEN>>)>
+	 <COND (<EQUAL? .WRD ,W?NO.WORD>
+		<SET NOSP T>)
+	       (<EQUAL? .WRD ,W?MY>
+		<PRINTB ,W?YOUR>)
+	       (<EQUAL? .WRD ,W?ME>
+		<PRINTB ,W?YOU>
+		<SET PN T>)
+	       (<EQUAL? .WRD ,W?ONE>
+		<TELL "object">)
+	       (<AND ;<T? .ALL>
+		     <IFFLAG (P-APOSTROPHE-BREAKS-WORDS
+			<NOT <EQUAL? .WRD <> ,W?ALL ,W?PERIOD ,W?APOSTROPHE>>)
+			     (T
+			<NOT <EQUAL? .WRD <> ,W?ALL ,W?PERIOD>>)>
+		     <OR <AND <0? <SET TMP <WORD-CLASSIFICATION-NUMBER .WRD>>>
+			      <F? <WORD-SEMANTIC-STUFF .WRD>>>	;"BUZZ"
+			 ;<COMPARE-WORD-TYPES .TMP <GET-CLASSIFICATION PREP>>>
+		     <NOT <COMPARE-WORD-TYPES .TMP <GET-CLASSIFICATION ADJ>>>
+		     <NOT <COMPARE-WORD-TYPES .TMP <GET-CLASSIFICATION NOUN>>>>
+		<SET NOSP T>)
+	       (<CAPITAL-NOUN? .WRD>
+		<CAPITALIZE .BEG>
+		<SET PN T>)
+	       (T
+		<COND (<AND <T? .FIRST??> <ZERO? .PN> <T? .CP>>
+		       <COND (<NOT <EQUAL? .WRD ,W?HER ,W?HIM ,W?YOUR>>
+			      <TELL "the ">)>)>
+		<COND ;(<AND <T? ,P-OFLAG>
+			    <T? .WRD>>
+		       <PRINT-VOCAB-WORD .WRD>)
+		      (<AND <EQUAL? .WRD ,W?IT>
+			    <VISIBLE? ,P-IT-OBJECT>>
+		       <TELL D ,P-IT-OBJECT>)
+		      (<AND <EQUAL? .WRD ,W?HER>
+			    <ZERO? .PN>>
+		       <TELL D ,P-HER-OBJECT>)
+		      (<AND <EQUAL? .WRD ,W?HIM>
+			    <ZERO? .PN>>
+		       <TELL D ,P-HIM-OBJECT>)
+		      (<EQUAL? .WRD ,W?INT.NUM ,W?INT.TIM>
+		       <TELL N <ZGET .BEG 1>>)
+		      (T
+		       <WORD-PRINT .BEG>)>
+		<SET FIRST?? <>>)>
+	 <SET BEG <ZREST .BEG ,P-WORDLEN>>>>
+
+<ROUTINE CAPITALIZE (PTR)
+	 <COND ;(<T? ,P-OFLAG>
+		<PRINT-VOCAB-WORD <LEXV-WORD .PTR>>)
+	       (T
+		<PRINTC <- <GETB ,P-INBUF <LEXV-WORD-OFFSET .PTR>>
+			   <- !\a !\A>>>
+		<WORD-PRINT .PTR
+			    <- <LEXV-WORD-LENGTH .PTR> 1>
+			    <+ <LEXV-WORD-OFFSET .PTR> 1>>)>>
+
+<DEFINE PRINT-PARSER-FAILURE ("AUX"
+	(CLASS <ZGET ,ERROR-ARGS 1>) (OTHER <ZGET ,ERROR-ARGS 2>)
+	(OTHER2<ZGET ,ERROR-ARGS 3>))
+ ;<ZPUT ,ERROR-ARGS 1 0>
+ <COND (<==? .CLASS ,PARSER-ERROR-ORPH-S>
+	<PROG (TMP PR N)
+	      <SETG P-OFLAG </ <- <ZGET ,ORPHAN-S ,O-LEXPTR> ,P-LEXV> 2>>
+	      <COPYT ,G-LEXV ,O-LEXV ,LEXV-LENGTH-BYTES>
+	      <COPYT ,G-INBUF ,O-INBUF <+ 1 ,INBUF-LENGTH>>
+	      <ZPUT ,OOPS-TABLE ,O-AGAIN <ZGET ,OOPS-TABLE ,O-START>>
+	      <MAKE-ROOM-FOR-TOKENS 1 ,O-LEXV ,P-OFLAG>
+	      <ZPUT ,O-LEXV ,P-OFLAG ,W?NO.WORD ;0>
+	      <TELL "[Wh">
+	      <COND (<ZAPPLY ,DIR-VERB-WORD? <ZGET ,ORPHAN-S ,O-VERB>>
+		     <TELL "ere">)
+		    (<==? ,PERSONBIT
+			  <COND (<1? <ZGET ,ORPHAN-S ,O-WHICH>>
+				 <SYNTAX-FIND ;B4
+				      <ZGET ,ORPHAN-S ,O-SYNTAX> 1>)
+				(T <SYNTAX-FIND ;B8
+				      <ZGET ,ORPHAN-S ,O-SYNTAX> 2>)>>
+		     <TELL "om">)
+		    (T <TELL "at">)>
+	      <TELL !\ >
+	      <COND (<AND <SET PR <ZGET ,ORPHAN-S ,O-SUBJECT>>
+			  <BAND ,PAST-TENSE
+				<WORD-FLAGS<SET TMP<ZGET ,ORPHAN-S ,O-VERB>>>>>
+		     <TELL "did ">
+		     <TELL-THE .PR>
+		     <TELL !\ >)
+		    (T
+		     <TELL "do you want ">
+		     <COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
+			    <TELL D ,WINNER " ">)>
+		     <TELL "to ">)>
+	      <PRINT-VOCAB-WORD <ROOT-VERB <ZGET ,ORPHAN-S ,O-VERB>>>
+	      <SET TMP <ZGET ,ORPHAN-S ,O-PART>>
+	      <COND (<NOT <EQUAL? .TMP 0 1>>
+		     <TELL !\ >
+		     <PRINT-VOCAB-WORD .TMP>)>
+	      <COND (<SET TMP <ZGET ,ERROR-ARGS 2>>
+		     <TELL !\ >
+		     <COND (<SET PR <ZGET ,ORPHAN-S ,O-OBJECT>>
+			    <TELL-THE .PR>)
+			   (T
+			    <NP-PRINT .TMP>)>
+		     <COND (<SET TMP <ZGET ,ORPHAN-S ,O-SYNTAX>>
+			    <SET TMP <COND (<1? <ZGET ,ORPHAN-S ,O-WHICH>>
+					    <SYNTAX-PREP .TMP 1>)
+					   (T
+					    <SYNTAX-PREP .TMP 2>)>>
+			    <COND (<T? .TMP>
+				   <SET N <GETB ,O-LEXV ,P-LEXWORDS>>
+				   <SET PR <ZGET ,O-LEXV
+						 <- ,P-OFLAG ,P-LEXELEN>>>
+				   <COND (<0? <WORD-CLASSIFICATION-NUMBER .PR>>
+					  ;"synonym"
+					  <SET PR <WORD-SEMANTIC-STUFF .PR>>)>
+				   <COND (<N==? .TMP .PR>
+					  <SET N <+ 1 .N>>
+					  <PUTB ,O-LEXV ,P-LEXWORDS .N>
+					  <ZPUT ,O-LEXV ,P-OFLAG .TMP>
+					  <SETG P-OFLAG
+						<+ ,P-OFLAG ,P-LEXELEN>>)>
+				   <ZPUT ,O-LEXV ,P-OFLAG ,W?NO.WORD ;0>
+				   <INBUF-PRINT .TMP ,O-INBUF
+						,O-LEXV<+ 1 <* ,P-WORDLEN .N>>>
+				   <TELL !\ >
+				   <PRINT-VOCAB-WORD .TMP>)>)>)>
+	      <TELL "?]" CR>
+	      <RTRUE>>)
+       (<==? .CLASS ,PARSER-ERROR-ORPH-NP>
+	<REPEAT ((NP .OTHER)
+		 (PTR <NP-LEXEND .NP>)
+		 (NOUN <NP-NAME .NP>))
+		<COND (<==? .NOUN <ZGET .PTR 0>>
+		       <SETG P-OFLAG </ <- .PTR ,P-LEXV> 2>>
+		       <COPYT ,G-LEXV ,O-LEXV ,LEXV-LENGTH-BYTES>
+		       <COPYT ,G-INBUF ,O-INBUF <+ 1 ,INBUF-LENGTH>>
+		       <ZPUT ,OOPS-TABLE ,O-AGAIN <ZGET ,OOPS-TABLE ,O-START>>
+		       <WHICH-PRINT .NP>
+		       <RTRUE>)
+		      (<G? ,P-LEXV <SET PTR <- .PTR ,LEXV-ELEMENT-SIZE-BYTES>>>
+		       <RETURN>)>>)>
+ ;<SETG P-OFLAG 0>
+ <COND ;(<==? .CLASS ,PARSER-ERROR-QUIET>
+	<RTRUE>)
+       (<==? .CLASS ,PARSER-ERROR-NOMULT>
+	<CANT-USE-MULTIPLE .OTHER .OTHER2>
+	<RTRUE>)
+       (<EQUAL? .CLASS ,PARSER-ERROR-NOOBJ>
+	<CANT-FIND-OBJECT .OTHER .OTHER2>
+	<RTRUE>)
+       (<EQUAL? .CLASS ,PARSER-ERROR-TMNOUN>
+	<TOO-MANY-NOUNS <PARSE-VERB ,PARSE-RESULT>>
+	<RTRUE>)
+       (T ;<OR <==? .CLASS ,PARSER-ERROR-NOUND>
+	    <NOT <L? ,ERROR-PRIORITY 255>>>
+	<SET OTHER2 ,OTLEXV>	;"Try to handle PUSH RED --"
+	<COND (<OR <AND <ZERO? ,P-LEN>
+			<NAKED-ADJECTIVE? <ZGET .OTHER2 0>>>
+		   <AND <L? ,P-LEXV
+			    <SET OTHER2 <ZBACK ,OTLEXV <* 2 ,P-LEXELEN>>>>
+			<L? 0 ,P-LEN>
+			<NAKED-ADJECTIVE? <ZGET .OTHER2 0>>
+			<WORD-TYPE? <ZGET ,OTLEXV 0>
+				    ,P-EOI-CODE ,P-COMMA-CODE>>>
+	       <SET CLASS <+ ,P-LEXELEN </ <- .OTHER2 ,P-LEXV> 2>>>
+	       <MAKE-ROOM-FOR-TOKENS 1 ,P-LEXV .CLASS>
+	       <MAKE-ROOM-FOR-TOKENS 1 ,G-LEXV .CLASS>
+	       <CHANGE-LEXV <ZREST .OTHER2 <* 2 ,P-LEXELEN>> ,W?ONE>
+	       <SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>
+			   ;<+ 1 <ZGET ,OOPS-TABLE ,O-LENGTH>>>
+	       <SETG TLEXV <ZGET ,OOPS-TABLE ,O-START>>
+	       ;<PRINT-LEXV>
+	       <RETURN <PARSE-IT <>>>)>
+	<COND ;"Try to handle TAKE THIS JOB AND SHOVE IT --"
+	      (<AND <G? ,P-LEN 0>
+		    <OR <CHANGE-AND-TO-THEN? <SET OTHER2
+					      <ZBACK ,OTLEXV<* 2 ,P-LEXELEN>>>>
+			<CHANGE-AND-TO-THEN? <SET OTHER2 ,OTLEXV>>>>
+	       <CHANGE-LEXV .OTHER2 ,W?THEN>
+	       <SETG P-LEN <ZGET ,OOPS-TABLE ,O-LENGTH>>
+	       <SETG TLEXV <ZGET ,OOPS-TABLE ,O-START>>
+	       <PRINT-LEXV>
+	       <RETURN <PARSE-IT <>>>)
+	      (T
+	       <DONT-UNDERSTAND>
+	       ;<RTRUE>)>)>>
+
+<DEFINE NAKED-ADJECTIVE? (WD)
+   <AND <WORD-TYPE? .WD ,P-ADJ-CODE>
+	<NOT <WORD-TYPE? .WD ,P-DIR-CODE>>
+	;<NOT <EQUAL? .WD ,W?S>>	;"possessive"
+	<NOT <EQUAL? .WD ,W?ONE>>>>
+
+<DEFINE CHANGE-AND-TO-THEN? (PTR)
+   <AND <EQUAL? <ZGET .PTR 0> ,W?AND ,W?COMMA>
+	<OR <WORD-TYPE? <ZGET <SET PTR <ZREST .PTR <* 2 ,P-LEXELEN>>> 0>
+			,P-VERB-CODE ,P-DIR-CODE>
+	    <WORD-TYPE? <ZGET .PTR 0> ,P-EOI-CODE>>>>
+
+<DEFAULT-DEFINITION DONT-UNDERSTAND
+<DEFINE DONT-UNDERSTAND ()
+ <SETG CLOCK-WAIT T>
+ <COND (<AND <EQUAL? 1 <GETB ,P-LEXV ,P-LEXWORDS>>
+	     <WORD-TYPE? <ZGET ,P-LEXV ,P-LEXSTART> ,P-NOUN-CODE ,P-ADJ-CODE>>
+	<MISSING "verb">
+	<RETURN T>)>
+ <IFN-P-BE-VERB
+	<COND (<COUNT-ERRORS 1>
+	       <RETURN T>)>>
+ <TELL
+"[Sorry, but I don't understand. Please say that another way, or try
+something else.]" CR>>>>
+
+<DEFINE MISSING (NV)
+	<TELL "[I think there's a " .NV " missing in that sentence!]" CR>>
+
+<DEFAULT-DEFINITION CANT-FIND-OBJECT
+<DEFINE CANT-FIND-OBJECT (NP PART ;SEARCH "AUX" TMP)
+ <COND (<ZERO? <NP-QUANT .NP>>	;<EQUAL? .NP ,ORPHAN-NP>
+	<NP-CANT-SEE .NP>)
+       (T
+	<TELL "[There isn't anything to ">
+	<COND (<SET TMP <PARSE-VERB ,PARSE-RESULT>>
+	       <PRINT-VOCAB-WORD .TMP>
+	       ;<SET TMP <PARSE-PARTICLE1 ,PARSE-RESULT>>
+	       <COND (<NOT <EQUAL? .PART ;.TMP 0 1>>
+		      <TELL C !\ >
+		      <PRINT-VOCAB-WORD .TMP>)>)
+	      (T <TELL "do that to">)>
+	<TELL "!]" CR>)>>
+
+<DEFINE NP-CANT-SEE ("OPT" (NP <GET-NP>) "AUX" TMP)
+	<COND (<SET TMP <NP-NAME .NP>>
+	       <TELL "[">
+	       <TELL-CTHE ,WINNER>
+	       <TELL " can't see ">
+	       <COND (<OR <CAPITAL-NOUN? .TMP>
+			  <AND <SET TMP <NP-ADJS .NP>>
+			       <ADJS-POSS .TMP>>>
+		      <NP-PRINT .NP T>)
+		     (T
+		      <TELL "any ">
+		      <NP-PRINT .NP>)>
+	       <TELL !\ >
+	       <COND (<AND <SET TMP <NP-LOC .NP>>
+			   <OR <AND ;<EQUAL? .NP ,ORPHAN-NP>
+				    ;"removed for HIT MAN ON HEAD WITH ROCK"
+				    <PMEM-TYPE? .TMP NOUN-PHRASE>
+				    <TELL "in">>
+			       <AND <PMEM-TYPE? .TMP LOCATION>
+				    <SET TMP <LOCATION-OBJECT .TMP>>
+				    <PRINT-VOCAB-WORD <LOCATION-PREP .TMP>>>>>
+		      <TELL " ">
+		      <TELL-THE <NOUN-PHRASE-OBJ1 .TMP>>)
+		     (T
+		      <COND ;(<ZAPPLY ,MOBY-FIND? .SEARCH>
+			     <TELL "anyw">)
+			    (T <TELL "right ">)>
+		      <TELL "here">)>
+	       <TELL ".]" CR>)
+	      (T <MORE-SPECIFIC>)>>>
+
+<DEFAULT-DEFINITION WHICH-LIST?
+<DEFINE WHICH-LIST? (NP SR)
+	<COND (<L=? <FIND-RES-COUNT .SR> <FIND-RES-SIZE .SR>>
+	       T)>>>
+
+<DEFAULT-DEFINITION WHICH-PRINT
+<DEFINE WHICH-PRINT (NP "AUX" (SR ,ORPHAN-SR)
+			   (LEN <FIND-RES-COUNT .SR>) (SZ <FIND-RES-SIZE .SR>))
+	<COND (<NOT <==? ,WINNER ,PLAYER>>
+	       <TELL "\"I don't understand ">
+	       <COND (<WHICH-LIST? .NP .SR>
+		      <TELL "if">)
+		     (T
+		      <TELL "which">
+		      <COND (<T? .NP>
+			     ;<SETG P-ONE-NOUN <NP-NAME .NP>>
+			     <TELL !\ >
+			     <NP-PRINT .NP>)>)>)
+	      (T
+	       <TELL "[Which">
+	       <COND (<T? .NP>
+		      ;<SETG P-ONE-NOUN <NP-NAME .NP>>
+		      <TELL !\ >
+		      <NP-PRINT .NP>)>
+	       <TELL " do">)>
+	<TELL " you mean">
+	<COND (<WHICH-LIST? .NP .SR>
+	       <COND (<==? ,WINNER ,PLAYER>
+		      <TELL !\,>)>
+	       <REPEAT ((REM .LEN) (VEC <REST-TO-SLOT .SR FIND-RES-OBJ1>))
+		<TELL !\ >
+		<TELL-THE <ZGET .VEC 0>>
+		<COND (<==? .REM 2>
+		       <COND (<NOT <==? .LEN 2>>
+			      <TELL !\,>)>
+		       <TELL " or">)
+		      (<G? .REM 2>
+		       <TELL !\,>)>
+		<COND (<L? <SET REM <- .REM 1>> 1>
+		       <RETURN>)
+		      (<L? <SET SZ <- .SZ 1>> 1>
+		       <COND (T ;<ZERO? <SET SR <FIND-RES-NEXT .SR>>>
+			      <RETURN>)>
+		       ;<SET SZ ,FIND-RES-MAXOBJ>
+		       ;<SET VEC <REST-TO-SLOT .SR OBJLIST-NEXT>>)
+		      (T <SET VEC <ZREST .VEC 2>>)>>)>
+	<COND (<NOT <==? ,WINNER ,PLAYER>>
+	       <TELL ".\"" CR>)
+	      (T
+	       <TELL "?]" CR>)>>>
+
+<DEFINE NP-PRINT (NP:PMEM "OPT" (DO-QUANT <>) "AUX" LEN)
+ <COND (<OBJECT? .NP>
+	<TELL-THE .NP>)
+       (<PMEM-TYPE? .NP NOUN-PHRASE>
+	<COND (<SET LEN <NOUN-PHRASE-COUNT .NP>>
+	       <DEC LEN>
+	       <REPEAT (OBJ (CT 0))
+		<COND (<SET OBJ <ZGET .NP <+ ,NOUN-PHRASE-HEADER-LEN
+					     <* .CT 2>>>>
+		       <TELL-THE .OBJ>)>
+		<COND (<G? <SET CT <+ .CT 1>> .LEN>
+		       <RETURN>)
+		      (T <TELL ", ">)>>)>)
+       (T
+	<COND (<AND <T? .DO-QUANT>
+		    <SET LEN <NP-QUANT .NP>>>	;"sounds bad after 'any'"
+	       <PRINTB <GET-QUANTITY-WORD .LEN>>
+	       <COND (<NP-NAME .NP>
+		      <TELL !\ >)>)>
+	<COND (<SET LEN <NP-ADJS .NP>>
+	       <ADJS-PRINT .LEN>)>
+	<COND (<AND <SET LEN <NP-LEXEND .NP>>
+		    <OR <==? <ZGET .LEN 0> <NP-NAME .NP>>
+			<AND <COMPARE-WORD-TYPES
+			      <WORD-CLASSIFICATION-NUMBER <ZGET .LEN 0>>
+			      <GET-CLASSIFICATION END-OF-INPUT>>
+			     <L? ,P-LEXV
+			       <SET LEN <ZBACK .LEN ,LEXV-ELEMENT-SIZE-BYTES>>>
+			     <==? <ZGET .LEN 0> <NP-NAME .NP>>>>>
+	       <BUFFER-PRINT .LEN <ZREST .LEN ,P-WORDLEN> <> T>)
+	      (<SET LEN <NP-NAME .NP>>
+	       <PRINT-VOCAB-WORD .LEN>)>
+	<COND (<AND <SET LEN <NP-OF .NP>>
+		    <PMEM? .LEN>
+		    <PMEM-TYPE? .LEN NP>>
+	       <TELL " of ">
+	       <NP-PRINT .LEN>)>
+	<COND (<AND <SET LEN <NP-EXCEPT .NP>>
+		    <PMEM? .LEN>
+		    <PMEM-TYPE? .LEN NP>>
+	       <TELL " except ">
+	       <NP-PRINT .LEN>)>)>>
+
+<DEFINE ADJS-PRINT (ADJT "AUX" LEN)
+ <COND (<SET LEN <ADJS-POSS .ADJT>>
+	<COND (<EQUAL? .LEN ,PLAYER ,ME>
+	       <TELL "your ">)
+	      (T
+	       <NP-PRINT ;TELL-THE .LEN>
+	       <TELL "'s ">)>)>
+ <COND (<SET LEN <ADJS-COUNT .ADJT>>
+	<SET ADJT <REST-TO-SLOT .ADJT ADJS-COUNT 1>>
+	<COND (<G? .LEN ,ADJS-MAX-COUNT>
+	       <SET LEN ,ADJS-MAX-COUNT>)>
+	<DEC LEN>
+	<SET ADJT <ZREST .ADJT <* 2 .LEN>>>
+	<REPEAT (WD (CT 0) TMP)
+	 <SET WD <ZGET .ADJT 0>>
+	 <COND (<EQUAL? .WD ,W?MY>
+		<TELL "your ">)
+	       (<EQUAL? .WD ,W?INT.NUM ,W?INT.TIM>
+		<TELL N ,P-NUMBER>	;"good enough?"
+		<TELL !\ >)
+	       (<NOT <EQUAL? .WD ,W?NO.WORD>>
+		<COND (<AND <CAPITAL-NOUN? .WD>
+			    <SET TMP <GETB ,P-LEXV ,P-LEXWORDS>>
+			    <SET TMP <INTBL? .WD
+					     <REST-TO-SLOT ,P-LEXV LEXV-START>
+					     .TMP *204*>>>
+		       <CAPITALIZE .TMP>)
+		      (T
+		       <PRINT-VOCAB-WORD .WD>)>
+		<TELL !\ >)>
+	 <COND (<G? <SET CT <+ .CT 1>> .LEN>
+		<RETURN>)
+	       (T <SET ADJT <ZBACK .ADJT 2>>)>>)>>
+
+<DEFAULT-DEFINITION TOO-MANY-NOUNS
+<DEFINE TOO-MANY-NOUNS (WD)
+	<TELL "[I can't understand that many nouns with ">
+	<COND (<T? .WD>
+	       <TELL !\">
+	       <PRINT-VOCAB-WORD .WD>
+	       <TELL !\">)
+	      (T <TELL "that verb">)>
+	<TELL ".]" CR>>>
+
+<DEFINE INBUF-ADD (LEN:FIX BEG:FIX SLOT:FIX "AUX" DBEG:FIX TMP)
+	 <SET TMP <ZGET ,OOPS-TABLE ,O-END>>
+	 <COND (<T? .TMP>
+		<SET DBEG .TMP>)
+	       (T
+		<SET TMP <* ,P-WORDLEN <ZGET ,OOPS-TABLE ,O-LENGTH>>>
+		<SET DBEG <+ <GETB ,G-LEXV .TMP>
+			     <GETB ,G-LEXV <+ .TMP 1>>>>)>
+	 <COND (<L? ,INBUF-LENGTH <+ .DBEG <- .LEN 1>>>
+		<RFALSE>)>
+	 <ZPUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
+	 <COND (T ;<OR <CHECK-EXTENDED? XZIP>
+		    <CHECK-EXTENDED? YZIP>>
+		<COPYT <ZREST ,P-INBUF .BEG> <ZREST ,G-INBUF .DBEG> .LEN>)
+	       ;(T
+		<REPEAT ((CTR:FIX 0))
+			<PUTB ,G-INBUF <+ .DBEG .CTR>
+			      <GETB ,P-INBUF <+ .BEG .CTR>>>
+			<SET CTR <+ .CTR 1>>
+			<COND (<EQUAL? .CTR .LEN>
+			       <RETURN>)>>)>
+	 <PUTB ,G-LEXV .SLOT .DBEG>
+	 <PUTB ,G-LEXV <- .SLOT 1> .LEN>
+	 T>
+
+<DEFINE INBUF-PRINT (WD INBUF LEXV SLOT:FIX
+		     "AUX" DBEG:FIX (CTR:FIX 0) TMP (LEN:FIX 11))
+	 <SET TMP <ZGET ,OOPS-TABLE ,O-END>>
+	 <COND (<T? .TMP>
+		<SET DBEG .TMP>)
+	       (T
+		<SET TMP <* ,P-WORDLEN <ZGET ,OOPS-TABLE ,O-LENGTH>>>
+		<SET DBEG <+ <GETB .LEXV .TMP>
+			     <GETB .LEXV <+ .TMP 1>>>>)>
+	 <COND (<L? <GETB .INBUF 0> <+ .DBEG <- .LEN 1>>>
+		<RFALSE>)>
+	 <COND ;(<NOT <CHECK-EXTENDED?>> <RFALSE>)
+	       (T
+		<DIROUT ,D-TABLE-ON <ZREST .INBUF .DBEG>>
+		<PRINT-VOCAB-WORD .WD>
+		<DIROUT ,D-TABLE-OFF>
+		<SET LEN <GETB .INBUF <+ 1 .DBEG>>>)>
+	 <SET DBEG <+ 2 .DBEG>>
+	 <ZPUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
+	 <PUTB .LEXV .SLOT .DBEG>
+	 <PUTB .LEXV <- .SLOT 1> .LEN>
+	 T>
+
+<DEFAULT-DEFINITION YES?
+
+<CONSTANT YES-INBUF <ITABLE 19 (BYTE LENGTH) 0>>
+<CONSTANT YES-LEXV  <ITABLE 3 (LEXV) 0 0>>
+
+<DEFINE YES? ("OPT" (NO-Q <>) "AUX" WORD VAL)
+	<COND (<NOT .NO-Q>
+	       <TELL !\?>)>
+	<REPEAT ()
+		<TELL "|>">
+		<COND (T ;<OR <CHECK-EXTENDED? XZIP>
+			   <CHECK-EXTENDED? YZIP>>
+		       <PUTB ,YES-INBUF 1 0>)>
+		<ZREAD ,YES-INBUF ,YES-LEXV>
+		<COND (<AND <NOT <0? <GETB ,YES-LEXV ,P-LEXWORDS>>>
+			    <SET WORD <ZGET ,YES-LEXV ,P-LEXSTART>>>
+		       <COND (<COMPARE-WORD-TYPES
+			       <WORD-CLASSIFICATION-NUMBER .WORD>
+			       <GET-CLASSIFICATION VERB>>
+			      <SET VAL <WORD-VERB-STUFF .WORD>>)
+			     (T <SET VAL <>>)>
+		       <COND (<EQUAL? .VAL ,ACT?YES>
+			      <SET VAL T>
+			      <RETURN>)
+			     (<OR <EQUAL? .VAL ,ACT?NO>
+				  <EQUAL? .WORD ,W?N>>
+			      <SET VAL <>>
+			      <RETURN>)
+			     (<EQUAL? .VAL ,ACT?RESTART>
+			      <V-RESTART>)
+			     (<EQUAL? .VAL ,ACT?RESTORE>
+			      <V-RESTORE>)
+			     (<EQUAL? .VAL ,ACT?QUIT>
+			      <V-QUIT>)>)>
+		<TELL "[Please type YES or NO.]">>
+	.VAL>>
+
+<DEFAULT-DEFINITION SETUP-ORPHAN
+<DEFINE SETUP-ORPHAN (STR "OPT" (A <>) (B <>))
+	<DIROUT ,D-TABLE-ON ,O-INBUF>
+	<TELL .STR>
+	<COND (<T? .A>
+	       <COND (<OBJECT? .A>
+		      <TELL D .A>)
+		     (T <TELL .A>)>
+	       <COND (<T? .B>
+		      <COND (<OBJECT? .B>
+			     <TELL D .B>)
+			    (T <TELL .B>)>)>)>
+	;<PRINTC 0>	;"Some ZIPs might need this."
+	<DIROUT ,D-TABLE-OFF>
+	<PUTB ,O-INBUF 0 ,INBUF-LENGTH>
+	<LEX ,O-INBUF ,O-LEXV>
+	<COND (<ZERO? <SET A <GETB ,O-LEXV ,P-LEXWORDS>>>	;"any words?"
+	       <>)
+	      (<INTBL? 0 <ZREST ,O-LEXV <* 2 ,P-LEXSTART>> .A *204*>
+							;"any unknown words?"
+	       <>)
+	      (T
+	       <SETG P-OFLAG <+ 1 <* ,P-LEXELEN <GETB ,O-LEXV ,P-LEXWORDS>>>>
+	       <MAKE-ROOM-FOR-TOKENS 1 ,O-LEXV ,P-OFLAG>
+	       <ZPUT ,O-LEXV ,P-OFLAG ,W?NO.WORD ;0>
+	       <SETG P-OFLAG <- 0 ,P-OFLAG>>	;"for verbose response"
+	       <ZPUT ,OOPS-TABLE ,O-AGAIN ;,O-START
+				 <ZREST ,P-LEXV <* 2 ,P-LEXSTART>>>
+	       T)>>>
+
+<DEFAULT-DEFINITION SETUP-ORPHAN-NP
+
+;"<SYNTAX SWG = V-SWG>
+<DEFINE V-SWG ()
+ <COND (<SETUP-ORPHAN-NP 'take frob' ,RED-FROB ,GREEN-FROB>
+	<TELL 'Which frob do you want?' CR>)
+       (T <TELL 'Nope.' CR>)>>"
+
+<DEFINE SETUP-ORPHAN-NP (STR OBJ1 OBJ2 "OPT" (OBJ3 <>) "AUX" (NUM 2)
+			 (VEC <REST-TO-SLOT ,ORPHAN-SR FIND-RES-OBJ1>))
+	<DIROUT ,D-TABLE-ON ,O-INBUF>
+	<TELL .STR>
+	;<PRINTC 0>	;"Some ZIPs might need this."
+	<DIROUT ,D-TABLE-OFF>
+	<PUTB ,O-INBUF 0 ,INBUF-LENGTH>
+	<LEX ,O-INBUF ,O-LEXV>
+	<COND (<INTBL? 0 <ZREST ,O-LEXV <* 2 ,P-LEXSTART>>
+			 <GETB ,O-LEXV ,P-LEXWORDS>
+			 *204*>		;"any unknown words?"
+	       <>)
+	      (T
+	       <SETG P-OFLAG <- 1 <* ,P-LEXELEN <GETB ,O-LEXV ,P-LEXWORDS>>>>
+	       <ZPUT ,OOPS-TABLE ,O-START <ZREST ,P-LEXV <* 2 ,P-LEXSTART>>>
+	       <ZPUT .VEC 0 .OBJ1>
+	       <ZPUT .VEC 1 .OBJ2>
+	       <COND (<T? .OBJ3>
+		      <INC NUM>
+		      <ZPUT .VEC 2 .OBJ3>)>
+	       <FIND-RES-COUNT ,ORPHAN-SR .NUM>
+	       T)>>>
+
+<DEFINE INSERT-ADJS (E "AUX" CT (PTR <ABS ,P-OFLAG>))
+ <COND (<NOT <EQUAL? .E <> T>>
+	<COND (<SET CT <ADJS-POSS .E>>
+	       <COND (<PMEM? .CT>
+		      <SET CT <NP-NAME .CT>>)
+		     (T
+		      <SET CT <ZGET <GETPT .CT ,P?SYNONYM> 0>>)>
+	       <IFFLAG (P-APOSTROPHE-BREAKS-WORDS
+			<SET PTR <INSERT-ADJS-WD .PTR .CT>>
+			<SET PTR <INSERT-ADJS-WD .PTR ,W?APOSTROPHE>>
+			<SET PTR <INSERT-ADJS-WD .PTR ,W?S>>)
+		       (T	;"Find next word in vocabulary."
+			<SET CT <+ .CT <GETB <ZREST ,VOCAB
+						    <+ 1 <GETB ,VOCAB 0>>>
+					     0>>>
+			<COND (T ;<BAND ,POSSESSIVE <WORD-FLAGS .CT>>
+			       <SET PTR <INSERT-ADJS-WD .PTR .CT>>)>)>)>
+	<COND (<SET CT <ADJS-COUNT .E>>
+	       <SET E <REST-TO-SLOT .E ADJS-COUNT 1>>
+	       <REPEAT (WD)
+		       <COND (<DLESS? CT 0>
+			      <RETURN>)
+			     (<EQUAL? <SET WD <ZGET .E .CT>>
+				      <ZGET ,ERROR-ARGS 3>>	;"e.g. OPEN"
+			      <AGAIN>)>
+		       <SET PTR <INSERT-ADJS-WD .PTR .WD>>>)>)>>
+
+<DEFINE INSERT-ADJS-WD (PTR WD)
+	<MAKE-ROOM-FOR-TOKENS 1 ,G-LEXV .PTR>
+	<ZPUT ,G-LEXV .PTR .WD>
+	<SET PTR <+ .PTR ,P-LEXELEN>>
+	<INBUF-PRINT .WD ,G-INBUF ,G-LEXV <- <* 2 .PTR> 1>>
+	.PTR>
+
+<DEFAULT-DEFINITION PARSER-REPORT
+<DEFINE PARSER-REPORT ()
+ <PRINTI "[Parser used: ">
+ <PRINTN <* 2 <- ,PMEM-STORE-LENGTH ,PMEM-STORE-WARN>>>
+ <PARSER-REPORT-STACK ,STATE-STACK>
+ <PARSER-REPORT-STACK ,DATA-STACK>
+ <PRINTC !\+>
+ <REPEAT ((PTR <ZREST ,SPLIT-STACK 2>) (N <- ,MAX-PSTACK-SIZE 1>))
+	<COND (<SET PTR <INTBL? 0 .PTR .N>>
+	       <COND (<AND <0? <ZGET .PTR 1>>
+			   <0? <ZGET .PTR 2>>>
+		      <PRINTN <- .PTR <ZREST ,SPLIT-STACK 2>>>
+		      <RETURN>)
+		     (T
+		      <SET PTR <ZREST .PTR 2>>
+		      <SET N <+ -1 <- ,MAX-PSTACK-SIZE
+				      </ <- .PTR ,SPLIT-STACK> 2>>>>)>)
+	      (T
+	       <PRINTN <* 2 <- ,MAX-PSTACK-SIZE 1>>>
+	       <RETURN>)>>
+ <PRINTI " bytes.]">
+ <CRLF>>
+
+<DEFINE PARSER-REPORT-STACK (STK "AUX" N)
+ <PRINTC !\+>
+ <SET N ,MAX-PSTACK-SIZE>
+ <REPEAT ()
+	<COND (<OR <DLESS? N 1>
+		   <0? <ZGET .STK .N>>>
+	       <PRINTN <* 2 <- <- ,MAX-PSTACK-SIZE .N> 1>>>
+	       <RTRUE>)>>>>
+
+<END-SEGMENT>
+<ENDPACKAGE>
diff --git a/prologue.zabstr b/prologue.zabstr
new file mode 100644
index 0000000..45e06ae
--- /dev/null
+++ b/prologue.zabstr
@@ -0,0 +1,158 @@
+
+<GLOBAL DEMO-VERSION? <>> 
+<BEGIN-SEGMENT STARTUP> 
+<DEFINE-ROUTINE SETUP-SCREEN> 
+<DEFINE-ROUTINE GO> 
+<DEFINE-ROUTINE CLEAR-CRCNT> 
+<CONSTANT SLIDE-SHOW-TIMEOUT 150> 
+<CONSTANT DEMO-TIMEOUT 600> 
+<DEFINE-ROUTINE SLIDE-SHOW-HANDLER> 
+<DEFINE-ROUTINE SLIDE-SHOW> 
+<DEFINE-ROUTINE READ-DEMO> 
+<DEFINE-ROUTINE INPUT-DEMO> 
+<DEFINE-ROUTINE END-DEMO> 
+<OBJECT RECIPE (DESC "recipe card") (SYNONYM RECIPE CARD) (ADJECTIVE RECIPE) (
+FLAGS TAKEBIT READBIT) (SIZE 1) (TEXT BORPHBELLY-TEXT)> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT BANQUET-FOOD (LOC GLOBAL-OBJECTS) (DESC "banquet meal") (SYNONYM FOOD
+WINE) (ACTION BANQUET-FOOD-F)> 
+<DEFINE-ROUTINE BANQUET-FOOD-F> 
+<ROOM BANQUET-HALL (LOC ROOMS) (DESC "Banquet Hall") (REGION "Flatheadia") (
+WEST TO ENTRANCE-HALL) (SOUTH TO COURTYARD) (EAST TO KITCHEN) (NE TO SCULLERY)
+(FLAGS RLANDBIT ONBIT) (SYNONYM HALL) (ADJECTIVE BANQUET) (MAP-LOC <PTABLE
+MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>) (ICON BANQUET-HALL-ICON) (GLOBAL KITCHEN
+SCULLERY) (ACTION BANQUET-HALL-F) (THINGS <> SMOKE SMOKE-PS <> VAPOR SMOKE-PS)>
+
+<DEFINE-ROUTINE SMOKE-PS> 
+<DEFINE-ROUTINE BANQUET-HALL-F> 
+<ROOM KITCHEN (LOC ROOMS) (DESC "Kitchen") (REGION "Flatheadia") (WEST TO
+BANQUET-HALL) (NORTH TO SCULLERY) (DOWN TO ROOT-CELLAR) (FLAGS RLANDBIT ONBIT)
+(SYNONYM KITCHEN) (GLOBAL STAIRS BANQUET-HALL SCULLERY) (MAP-LOC <PTABLE
+MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>) (ICON KITCHEN-ICON) (ACTION KITCHEN-F)> 
+<DEFINE-ROUTINE KITCHEN-F> 
+<ROOM SCULLERY (LOC ROOMS) (DESC "Scullery") (REGION "Flatheadia") (SOUTH TO
+KITCHEN) (SW TO BANQUET-HALL) (DOWN TO WINE-CELLAR) (FLAGS RLANDBIT ONBIT) (
+SYNONYM SCULLERY) (GLOBAL STAIRS KITCHEN BANQUET-HALL) (MAP-LOC <PTABLE
+MAIN-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-7>) (ACTION SCULLERY-F)> 
+<DEFINE-ROUTINE SCULLERY-F> 
+<BEGIN-SEGMENT 0> 
+<OBJECT STRAW (DESC "drinking straw") (SYNONYM STRAW) (ADJECTIVE DRINKING) (
+FLAGS TAKEBIT) (SIZE 1) (ACTION STRAW-F)> 
+<DEFINE-ROUTINE STRAW-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<DEFINE-ROUTINE TOUCH-ELIXIR> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<GLOBAL FINGER-ON-STRAW <>> 
+<GLOBAL ELIXIR-TRAPPED <>> 
+<DEFINE-ROUTINE I-FINGER-OFF-STRAW> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM ROOT-CELLAR (LOC ROOMS) (DESC "Root Cellar") (REGION "Flatheadia") (LDESC
+"This is where food is stored. A stair leads up, and another part of
+the cellar lies to the north.") (UP TO KITCHEN) (NORTH TO WINE-CELLAR) (FLAGS
+RLANDBIT ONBIT) (SYNONYM CELLAR) (ADJECTIVE ROOT) (GLOBAL STAIRS) (MAP-LOC <
+PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>)> 
+<BEGIN-SEGMENT 0> 
+<OBJECT UNOPENED-NUT (DESC "unopened walnut") (FDESC
+"The cellar has been picked clean by the fleeing thousands -- but wait, what's
+this in the corner? Ah, an unopened walnut!") (SYNONYM SHELL NUTSHELL WALNUT
+NUT) (ADJECTIVE WALNUT UNOPENED) (FLAGS VOWELBIT TAKEBIT CONTBIT SEARCHBIT) (
+SIZE 2) (ACTION UNOPENED-NUT-F)> 
+<DEFINE-ROUTINE UNOPENED-NUT-F> 
+<OBJECT NUT-SHELL (DESC "walnut shell") (SYNONYM SHELL NUTSHELL) (ADJECTIVE
+WALNUT) (FLAGS TAKEBIT SEARCHBIT CONTBIT OPENBIT) (SIZE 1) (ACTION NUT-SHELL-F)
+> 
+<DEFINE-ROUTINE NUT-SHELL-F> 
+<OBJECT NUT (LOC UNOPENED-NUT) (DESC "walnut") (SYNONYM WALNUT NUT) (FLAGS
+TAKEBIT) (SIZE 1) (ACTION NUT-F)> 
+<DEFINE-ROUTINE NUT-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<ROOM WINE-CELLAR (LOC ROOMS) (DESC "Wine Cellar") (REGION "Flatheadia") (LDESC
+"Every keg has been removed, and the floor is mottled with purple stains.
+Stone stairs lead upward, and the cellar continues to the south.") (SOUTH TO
+ROOT-CELLAR) (UP TO SCULLERY) (FLAGS RLANDBIT ONBIT) (SYNONYM CELLAR) (
+ADJECTIVE WINE) (GLOBAL STAIRS) (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-2
+MAP-GEN-X-8>) (ICON WINE-CELLAR-ICON)> 
+<BEGIN-SEGMENT STARTUP> 
+<GLOBAL PROLOGUE-COUNTER 0> 
+<GLOBAL PROLOGUE-NOVICE-COUNTER 1> 
+<CONSTANT NOVICE-MOVES <PTABLE "wait" "go northeast" "walk south" "go west"
+"walk east" "enter the banquet hall" "examine the gaunt man"
+"dive under the table" "get out from under the table"
+"pick up the scrap of parchment" "north" "southeast">> 
+<DEFINE-ROUTINE I-PROLOGUE> 
+<DEFINE-ROUTINE I-TAKE-OBJECT> 
+<DEFINE-ROUTINE I-GIVE-OBJECT> 
+<OBJECT HELLHOUND-BONES (OWNER HELLHOUND-BONES) (DESC
+"platter of hellhound bones") (SYNONYM BONES PLATTER) (ADJECTIVE HELLHOUND) (
+FLAGS TAKEBIT) (ACTION SERVANT-ITEM-F)> 
+<OBJECT ROC-TERIYAKI (OWNER ROC-TERIYAKI) (DESC "tray of roc teriyaki") (
+SYNONYM TERIYAKI TRAY APPETIZER) (ADJECTIVE ROC) (FLAGS TAKEBIT) (ACTION
+SERVANT-ITEM-F)> 
+<OBJECT CAKE (DESC "cake") (SYNONYM CAKE) (FLAGS TAKEBIT) (ACTION
+SERVANT-ITEM-F)> 
+<OBJECT KEG (DESC "wine keg") (SYNONYM KEG WINE) (ADJECTIVE WINE) (FLAGS
+TAKEBIT) (ACTION SERVANT-ITEM-F)> 
+<OBJECT LINEN (DESC "pile of napkins") (OWNER LINEN) (SYNONYM PILE NAPKINS
+LINEN) (ADJECTIVE MONOGRAMMED) (FLAGS TAKEBIT READBIT) (TEXT
+"The napkin is embroidered with a large, flowery \"F.\"") (ACTION
+SERVANT-ITEM-F)> 
+<DEFINE-ROUTINE SERVANT-ITEM-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT 0> 
+<OBJECT PARCHMENT (OWNER PARCHMENT) (DESC "scrap of parchment") (PLURAL
+"parchments") (SYNONYM PAPER SCRAP PIECE PARCHMENT) (ADJECTIVE PARCHMENT) (
+FLAGS NDESCBIT READBIT TAKEBIT BURNBIT) (SIZE 1) (ACTION PARCHMENT-F)> 
+<DEFINE-ROUTINE PARCHMENT-F> 
+<OBJECT DIMWIT (LOC BANQUET-HALL) (DESC "Lord Dimwit Flathead the Excessive") (
+LDESC "Dimwit is seated at the dais, surrounded by his most trusted advisors.")
+(SYNONYM FLATHEAD DIMWIT) (ADJECTIVE LORD DIMWIT EXCESSIVE) (FLAGS NARTICLEBIT
+NDESCBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT) (GENERIC G-DIMWIT-F) (ACTION
+DIMWIT-F)> 
+<DEFINE-ROUTINE DIMWIT-F> 
+<DEFINE-ROUTINE G-DIMWIT-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT STARTUP> 
+<OBJECT TABLES (LOC BANQUET-HALL) (DESC "table") (SYNONYM TABLE TABLES) (FLAGS
+NDESCBIT SURFACEBIT CONTBIT OPENBIT) (CAPACITY 100) (ACTION TABLES-F)> 
+<GLOBAL UNDER-TABLE <>> 
+<DEFINE-ROUTINE TABLES-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT CASTLE> 
+<OBJECT CAULDRON (DESC "cauldron") (SYNONYM CAULDRON KETTLE) (ADJECTIVE
+BUBBLING ROILING FUMING) (FLAGS CONTBIT OPENBIT) (ACTION CAULDRON-F)> 
+<DEFINE-ROUTINE CAULDRON-F> 
+<DEFINE-ROUTINE PUT-ITEM-IN-CAULDRON> 
+<GLOBAL CAULDRON-MUNGED <>> 
+<GLOBAL TIME-STOPPED <>> 
+<GLOBAL NUMBER-OF-ITEMS 0> 
+<CONSTANT CAULDRON-DESCS <PTABLE "barely bubbling" "bubbling quietly"
+"bubbling actively" "bubbling very actively" "bubbling and churning"
+"bubbling, churning, and smoking heavily"
+"churning actively and emitting large puffs of smoke"
+"violently churning and emitting huge puffs of dark smoke"
+"churning very violently and giving off clouds of black smoke"
+"churning and roiling beneath a whirlpool of thick black smoke"
+"boiling violently beneath a gathering storm of noisome smoke"
+"boiling with amazing energy, sending steaming geysers shooting
+up into the roiling black clouds which swirl around it"
+"almost lost amongst the clouds of dark power and energy which
+surround the kettle, glowing and expanding from explosions deep within">> 
+<DEFINE-ROUTINE I-CAULDRON> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT STARTUP> 
+<OBJECT MEGABOZ (DESC "angry wizard") (DESCFCN MEGABOZ-F) (SYNONYM WIZARD
+MEGABOZ MAN) (ADJECTIVE GAUNT OLD ANGRY) (FLAGS VOWELBIT ACTORBIT CONTBIT
+OPENBIT SEARCHBIT) (ACTION MEGABOZ-F)> 
+<DEFINE-ROUTINE MEGABOZ-F> 
+<BEGIN-SEGMENT CASTLE> 
+<CONSTANT MEGABOZ-TEXT
+"Megaboz was a mysterious wizard who lived a hermit's life in the Fublio
+Valley. Some say he cast a Curse which will someday destroy the Empire, but
+royal spokesmen have denied all such rumors. Megaboz vanished in 789 GUE;
+it is said that the effort of casting the Curse destroyed him."> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/prologue.zap b/prologue.zap
new file mode 100644
index 0000000..388aae5
--- /dev/null
+++ b/prologue.zap
@@ -0,0 +1,862 @@
+
+	.SEGMENT "STARTUP"
+
+
+	.FUNCT	SETUP-SCREEN,?TMP1
+	GETB	0,39 >FONT-X
+	GETB	0,38 >FONT-Y
+	MOUSE-LIMIT	-1
+	GET	0,8
+	BTST	STACK,32 \?CND1
+	SET	'ACTIVE-MOUSE,TRUE-VALUE
+?CND1:	GET	0,18 >?TMP1
+	GET	0,17
+	WINSIZE	S-FULL,?TMP1,STACK
+	GETB	0,33 >WIDTH
+	RETURN	WIDTH
+
+
+	.FUNCT	GO
+?FCN:	ICALL1	SETUP-SCREEN
+	SET	'TOWER-BEATEN,PYRAMID
+	SET	'CLOAK-LOC,CLOTHES-CLOSET
+	ZERO?	DEMO-VERSION? /?CND1
+	RANDOM	7
+	SUB	STACK,1
+	GET	SLAB-TABLE,STACK >HOLEY-SLAB
+	ICALL1	SLIDE-SHOW
+	JUMP	?FCN
+?CND1:	SET	'CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC
+	SET	'CURRENT-BORDER,CASTLE-BORDER
+	ICALL	QUEUE,I-GIVE-OBJECT,-1
+	ICALL	QUEUE,I-PROLOGUE,-1
+	ICALL	QUEUE,I-TAKE-OBJECT,-1
+	ICALL1	V-$REFRESH
+	CRLF	
+	ICALL2	MARGINAL-PIC,PROLOGUE-LETTER
+	DIROUT	D-SCREEN-OFF
+	PRINTC	65
+	DIROUT	D-SCREEN-ON
+	PRINTI	"nother frantic day at the castle; Lord Dimwit Flathead the Excessive has invited a few thousand friends over for dinner. Three hundred dragons have been slaughtered for the occasion, and the kitchen is suffocated by the stench of their roasting flesh."
+	CRLF	
+	ICALL1	CLEAR-CRCNT
+	CRLF	
+	ICALL1	V-LOOK
+	ICALL1	I-PROLOGUE
+	ICALL1	I-GIVE-OBJECT
+	ICALL1	MAIN-LOOP
+	JUMP	?FCN
+
+
+	.FUNCT	CLEAR-CRCNT,NUM
+	WINGET	S-TEXT,WCRCNT >NUM
+?PRG1:	ZERO?	NUM /TRUE
+	CRLF	
+	DEC	'NUM
+	JUMP	?PRG1
+
+
+	.FUNCT	SLIDE-SHOW-HANDLER
+	SET	'DEMO-VERSION?,1
+	RTRUE	
+
+
+	.FUNCT	SLIDE-SHOW,RM,?TMP1
+	GET	0,18 >?TMP1
+	GET	0,17
+	WINSIZE	S-TEXT,?TMP1,STACK
+	ICALL1	TITLE-SCREEN
+	INPUT	1,SLIDE-SHOW-TIMEOUT,SLIDE-SHOW-HANDLER
+	CLEAR	-1
+	PRINTI	"This is a demonstration version of ZORK ZERO: The Revenge of Megaboz
+Copyright (c) 1988 by Infocom, Inc. All rights reserved.
+
+	First you will see a few samples of the graphic screens that await you in ZORK ZERO.We've used graphics in surprising new ways to enhance the story without detracting from Infocom's traditional richness and depth.
+	Then you will be able to interact with a small section of ZORK ZERO.Feel free to try the new friendlier parser, the optional mouse interface, and the on-screen hints.Solve a couple of puzzles.Meet the quizzical jester, who will test you with games, riddles, or tricks.
+	ZORK ZERO is the ""prequel"" to the ZORK trilogy, the best-selling computer entertainment of all time.In ZORK ZERO the Great Underground Empire is in its heyday, and no adventurer has yet set foot in the ""open field west of a white house.""But the inhabitants are fleeing in the wake of a dread wizard's curse, which has already disposed of the royal Flathead family and threatens to destroy the entire kingdom -- unless you can stop it. 	Hit any key to begin..."
+	INPUT	1,DEMO-TIMEOUT,SLIDE-SHOW-HANDLER
+	CLEAR	-1
+	ICALL	PICTURED-ENTRY,MEGABOZ-ILL,MEGABOZ-TEXT,TRUE-VALUE
+	SCREEN	S-FULL
+	CURSET	1,1
+	INPUT	1,SLIDE-SHOW-TIMEOUT,SLIDE-SHOW-HANDLER
+	CLEAR	-1
+	SCREEN	S-FULL
+	DISPLAY	REBUS-1,1,1
+	INPUT	1,SLIDE-SHOW-TIMEOUT,SLIDE-SHOW-HANDLER
+	CLEAR	-1
+	FIRST?	ROOMS >RM /?PRG2
+?PRG2:	ZERO?	RM /?REP3
+	GETP	RM,P?MAP-LOC
+	GET	STACK,0
+	EQUAL?	FOOZLE-MAP-NUM,STACK \?CND4
+	FSET	RM,TOUCHBIT
+?CND4:	NEXT?	RM >RM /?PRG2
+	JUMP	?PRG2
+?REP3:	SET	'HERE,CROSSROADS
+	SET	'MAP-NOTE,TRUE-VALUE
+	ICALL1	DO-MAP
+	INPUT	1,SLIDE-SHOW-TIMEOUT,SLIDE-SHOW-HANDLER
+	CLEAR	-1
+	ICALL1	SETUP-CARDS
+	PUT	F-CARD-TABLE,0,7
+	PUT	F-CARD-TABLE,1,10
+	PUT	F-CARD-TABLE,2,16
+	PUT	F-CARD-TABLE,4,11
+	PUT	F-CARD-TABLE,5,15
+	PUT	F-CARD-TABLE,6,0
+	PUT	F-CARD-TABLE,8,8
+	PUT	F-CARD-TABLE,9,5
+	ICALL1	SETUP-FANUCCI
+	SCREEN	S-FULL
+	CURSET	1,1
+	INPUT	1,SLIDE-SHOW-TIMEOUT,SLIDE-SHOW-HANDLER
+	CLEAR	-1
+	SET	'CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC
+	SET	'CURRENT-BORDER,CASTLE-BORDER
+	ICALL1	V-$REFRESH
+	PRINTI	"Now you are welcome to interact with a demonstration version of
+
+"
+	ICALL1	V-VERSION
+	CRLF	
+	MOVE	DIRIGIBLE,SMALLER-HANGAR
+	PUTP	GONDOLA,P?REGION,STR?249
+	MOVE	RECIPE,RUINED-HALL
+	PUTP	ROOSTER,P?FDESC,0
+	MOVE	ROOSTER,DESERTED-CASTLE
+	PUTP	DESERTED-CASTLE,P?ACTION,DESERTED-CASTLE-F
+	PUTP	FOX,P?FDESC,0
+	MOVE	FOX,SMALLER-HANGAR
+	PUTP	SMALLER-HANGAR,P?ACTION,SMALLER-HANGAR-F
+	MOVE	WORM,HOTHOUSE
+	WINPUT	S-TEXT,15,-999
+	SET	'PROLOGUE-NOVICE-COUNTER,0
+	ICALL2	GOTO,RUINED-HALL
+	CALL1	MAIN-LOOP
+	RSTACK	
+
+
+	.FUNCT	READ-DEMO,ARG1,ARG2,CHR
+	SET	'DEMO-VERSION?,-1
+	READ	ARG1,ARG2,DEMO-TIMEOUT,SLIDE-SHOW-HANDLER >CHR
+	EQUAL?	DEMO-VERSION?,1 \?CCL4
+	CALL1	END-DEMO
+	RSTACK	
+?CCL4:	WINPUT	S-TEXT,15,-999
+	RETURN	CHR
+
+
+	.FUNCT	INPUT-DEMO,ARG,CHR
+	SET	'DEMO-VERSION?,-1
+	INPUT	ARG,DEMO-TIMEOUT,SLIDE-SHOW-HANDLER >CHR
+	EQUAL?	DEMO-VERSION?,1 \?CCL4
+	CALL1	END-DEMO
+	RSTACK	
+?CCL4:	WINPUT	S-TEXT,15,-999
+	RETURN	CHR
+
+
+	.FUNCT	END-DEMO
+?FCN:	CLEAR	-1
+	PRINTI	"
+You have reached the end of this demonstration version of
+"
+	ICALL1	V-VERSION
+	PRINTI	"
+
+Hit any key to start over..."
+	INPUT	1,SLIDE-SHOW-TIMEOUT,SLIDE-SHOW-HANDLER
+	SCREEN	S-TEXT
+	COLOR	1,1
+	RESTART	
+	PRINT	FAILED
+	JUMP	?FCN
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	BANQUET-FOOD-F
+	EQUAL?	PRSA,V?TASTE,V?DRINK,V?EAT /?CCL3
+	EQUAL?	PRSA,V?TAKE,V?TOUCH \FALSE
+?CCL3:	PRINTR	"The food and drink is for the guests, not the servants."
+
+
+	.FUNCT	SMOKE-PS
+	EQUAL?	PRSA,V?SMELL \?CCL3
+	ICALL	PERFORM,V?SMELL,CAULDRON
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?ENTER \?CCL5
+	PRINTR	"""Choke, choke, cough, cough."""
+?CCL5:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,HANDS \FALSE
+	PRINT	NOTHING-HAPPENS
+	RTRUE	
+
+
+	.FUNCT	BANQUET-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK /?CCL6
+	PRINTI	"The hall is filled to capacity, and the thousands of reveling guests are raising quite a din"
+	JUMP	?CND4
+?CCL6:	PRINTI	"Many royal feasts have been held in this hall, which could easily hold ten thousand guests. Legends say that Dimwit's more excessive banquets would require the combined farm outputs of three provinces"
+?CND4:	PRINTI	". The primary exits are to the west and south; smaller openings lead east and northeast."
+	RTRUE	
+
+
+	.FUNCT	KITCHEN-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK /?CCL6
+	PRINTI	"You are assaulted by waves of greasy odors and buffetted by mobs of bustling cooks and servants"
+	JUMP	?CND4
+?CCL6:	PRINTI	"Although this is the largest cooking area in the Empire, it must've still been crowded when all 600 of Dimwit's chefs were working at the same time"
+?CND4:	PRINTI	". There are passages to the west and north, and a stair leads downward"
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK \?CND7
+	PRINTI	" into darkness"
+?CND7:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	SCULLERY-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is where the castle's pots and pans, the output of the forges of Borphee for three years, are cleaned and stored. Passages open to the south and southwest, and a stair descends"
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK \?CND4
+	PRINTI	" into darkness"
+?CND4:	PRINTC	46
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	STRAW-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	IN?	STRAW,BOWL \?CCL6
+	PRINT	ONLY-BLACKNESS
+	RTRUE	
+?CCL6:	PRINTR	"You see a point of light: the far end of the straw."
+?CCL3:	EQUAL?	PRSA,V?SUCK-WITH \?CCL8
+	EQUAL?	PRSI,STRAW \?CCL8
+	ICALL	PERFORM,V?DRINK-WITH,PRSO,STRAW
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?SUCK-ON \?CCL12
+	SET	'FINGER-ON-STRAW,FALSE-VALUE
+	SET	'ELIXIR-TRAPPED,FALSE-VALUE
+	IN?	STRAW,BOWL \?CCL15
+	ICALL	PERFORM,V?DRINK-WITH,ELIXIR,STRAW
+	RTRUE	
+?CCL15:	PRINTR	"You suck some air through the straw."
+?CCL12:	EQUAL?	PRSA,V?INFLATE \?CCL17
+	SET	'FINGER-ON-STRAW,FALSE-VALUE
+	SET	'ELIXIR-TRAPPED,FALSE-VALUE
+	PRINTI	"Air "
+	IN?	STRAW,BOWL \?CCL20
+	PRINTI	"bubbles up through the elixir"
+	JUMP	?CND18
+?CCL20:	PRINTI	"blows out the far end of the straw"
+?CND18:	PRINTR	". Wow."
+?CCL17:	EQUAL?	PRSA,V?TAKE \FALSE
+	ZERO?	FINGER-ON-STRAW /FALSE
+	ZERO?	ELIXIR-TRAPPED /FALSE
+	IN?	STRAW,BOWL \FALSE
+	SET	'FINGER-ON-STRAW,FALSE-VALUE
+	SET	'ELIXIR-TRAPPED,FALSE-VALUE
+	MOVE	STRAW,PROTAGONIST
+	PRINTI	"As you lift the straw with your finger over the end of it, the elixir within is trapped. Then the suction breaks, and the elixir dribbles onto you. "
+	CALL1	TOUCH-ELIXIR
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	TOUCH-ELIXIR
+	PRINTI	"The liquid feels warm and cleansing."
+	FSET?	LARGE-FLY,TRYTAKEBIT \?CCL3
+	FCLEAR	LARGE-FLY,TRYTAKEBIT
+	FCLEAR	LARGER-FLY,TRYTAKEBIT
+	FCLEAR	EVEN-LARGER-FLY,TRYTAKEBIT
+	FCLEAR	LARGEST-FLY,TRYTAKEBIT
+	PRINTI	" You experience a wave of ecstasy, accompanied by a brief desire to spin a cocoon, collect sap, and eat animal excrement."
+	CRLF	
+	CALL2	INC-SCORE,16
+	RSTACK	
+?CCL3:	CRLF	
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	I-FINGER-OFF-STRAW,TOLD
+	ZERO?	FINGER-ON-STRAW /?CND1
+	CALL2	VISIBLE?,STRAW
+	ZERO?	STACK /?CND1
+	ICALL1	RETURN-FROM-MAP
+	SET	'TOLD,TRUE-VALUE
+	PRINTI	"   Your finger gets tired, so you remove it from the end of the straw."
+	CRLF	
+?CND1:	SET	'FINGER-ON-STRAW,FALSE-VALUE
+	SET	'ELIXIR-TRAPPED,FALSE-VALUE
+	ZERO?	TOLD \TRUE
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	UNOPENED-NUT-F
+	EQUAL?	PRSA,V?SHAKE \?CCL3
+	PRINTR	"A nut rattles around within."
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL5
+	EQUAL?	PRSI,HAMMER \?CCL5
+	ICALL	PERFORM,V?MUNG,PRSO,HAMMER
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?MUNG,V?LOOK-INSIDE,V?OPEN /?PRD11
+	EQUAL?	PRSA,V?KILL \?CCL9
+?PRD11:	EQUAL?	PRSO,UNOPENED-NUT \?CCL9
+	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?CCL16
+	FSET?	GOGGLES,WORNBIT \?CCL16
+	ICALL	PERFORM,V?LOOK-INSIDE,NUT-SHELL
+	RTRUE	
+?CCL16:	ZERO?	PRSI \?CCL20
+	PRINTI	"This is one tough shell. You can't seem to crack it with your "
+	ZERO?	ALLIGATOR /?CCL23
+	PRINTI	"paws"
+	JUMP	?CND21
+?CCL23:	PRINTI	"hands"
+?CND21:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL20:	EQUAL?	PRSI,LOBSTER \?CCL25
+	FSET?	PRSI,ANIMATEDBIT /?CCL25
+	CALL2	VISIBLE?,JESTER
+	ZERO?	STACK /?CND28
+	PRINTI	"The jester watches with interest. "
+	SET	'NUT-OPENED,TRUE-VALUE
+?CND28:	LOC	UNOPENED-NUT
+	MOVE	NUT-SHELL,STACK
+	MOVE	NUT,NUT-SHELL
+	ICALL2	THIS-IS-IT,NUT
+	REMOVE	UNOPENED-NUT
+	PRINTR	"""Crack!"" Opening the walnut shell reveals a walnut."
+?CCL25:	EQUAL?	PRSA,V?KILL,V?MUNG \?CCL31
+	GETP	PRSI,P?SIZE
+	GRTR?	STACK,15 \?CCL31
+	REMOVE	UNOPENED-NUT
+	PRINTR	"This succeeds in crushing the shell (and its contents) to dust."
+?CCL31:	PRINT	YOU-CANT
+	PRINTI	"open a nutshell with"
+	CALL2	ARPRINT,PRSI
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?PUT-ON \?CCL35
+	EQUAL?	PRSI,UNOPENED-NUT \?CCL35
+	GETP	PRSO,P?SIZE
+	GRTR?	STACK,14 \?CCL35
+	ICALL	PERFORM,V?MUNG,UNOPENED-NUT,PRSO
+	RTRUE	
+?CCL35:	EQUAL?	PRSA,V?STAND-ON \FALSE
+	FSET?	UNOPENED-NUT,OPENBIT /FALSE
+	PRINTR	"Even your full weight is insufficient to crack the shell (you lightweight you)."
+
+
+	.FUNCT	NUT-SHELL-F
+	EQUAL?	PRSA,V?CLOSE \FALSE
+	PRINT	YOU-CANT
+	PRINTR	"reclose the shell! Don't fret, though. Instead, remember that old Miznian proverb: ""It's no use crying over cracked nutshells."""
+
+
+	.FUNCT	NUT-F
+	EQUAL?	PRSA,V?EAT \FALSE
+	REMOVE	NUT
+	CALL2	VISIBLE?,JESTER
+	ZERO?	STACK /?CCL6
+	ZERO?	NUT-SHOWN /?CCL9
+	SET	'NUT-EATEN,TRUE-VALUE
+	PRINTI	"""I'm very impressed; you passed my test! When you exit from the West Wing, I'll no longer be molesting."""
+	ICALL1	J-EXITS
+	CALL2	INC-SCORE,20
+	RSTACK	
+?CCL9:	PRINTR	"You swallow the walnut. ""I guess you don't win, place, or show!"" comments the jester enigmatically."
+?CCL6:	PRINTR	"The walnut is tasty, but hardly filling."
+
+	.ENDSEG
+
+	.SEGMENT "STARTUP"
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	I-PROLOGUE
+	EQUAL?	HERE,BANQUET-HALL \FALSE
+	INC	'PROLOGUE-COUNTER
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+	EQUAL?	PROLOGUE-COUNTER,1 \?CCL5
+	FCLEAR	DIMWIT,NDESCBIT
+	PRINTR	"Dimwit is seated at the dais. His loud voice carries across the crowded hall. ""Now that the statue is done, we must do something ceremonial. I have it! A dedication! We'll give everyone in the kingdom a year off and invite them to the Fublio Valley..."""
+?CCL5:	EQUAL?	PROLOGUE-COUNTER,2 \?CCL7
+	PRINTR	"Dimwit is ranting at his advisors. ""There's not enough in the royal treasury to build my new continent, Lord Feepness? Then we'll increase the tax levy! It's only 98%! That still leaves two percent!""
+   ""With all deference, your Lordship, people are refusing to pay even the 98%. Your decree, 'Anyone withholding payment shall be killed along with everyone they've ever met' simply isn't working. If you increase it to 100%, the people..."""
+?CCL7:	EQUAL?	PROLOGUE-COUNTER,3 \?CCL9
+	ICALL2	DEQUEUE,I-TAKE-OBJECT
+	ICALL2	DEQUEUE,I-GIVE-OBJECT
+	MOVE	MEGABOZ,HERE
+	SET	'PROLOGUE-NOVICE-COUNTER,6
+	PRINTR	"""How about this?"" shouts Dimwit with his mouth full of dragon meat. ""I'll adopt everyone in the kingdom... and then I'll announce that they've been naughty and I've cut off their allowance! It's inspired! Lord Feepness, draw up the proclam...""
+   Dimwit is interrupted by an explosion of billowing smoke in the center of the hall. A gaunt, bearded man strides forth from the smoke!"
+?CCL9:	EQUAL?	PROLOGUE-COUNTER,4 \?CCL11
+	MOVE	PARCHMENT,MEGABOZ
+	SET	'PROLOGUE-NOVICE-COUNTER,7
+	PRINTR	"""Show me the one responsible for the statue!"" bellows the newcomer. ""The statue that now darkens Fublio!"" Every head silently turns toward Dimwit, whose delight at the pyrotechnics is now tinged by fear. ""Go away,"" orders Dimwit, waving a shaky hand at the stranger. ""This is a private function.""
+   Ignoring the order, the newcomer paces forward, until he is standing almost next to you. A scrap of parchment protrudes from his pocket. ""My favorite grove of shade trees now lies beneath the toe of that cursed statue! No man, be he peasant or king, crosses Megaboz the Magnificent!"" He raises his arms, and every guest who knows how dangerous an angry wizard can be begins diving under the tables."
+?CCL11:	EQUAL?	PROLOGUE-COUNTER,5 \?CCL13
+	PRINTI	"""Dimwit, thy kingship is a mockery of all worldly values! I curse your life! I curse your family! And I curse your Empire!"" Sheets of power begin spewing from his fingertips. ""Frobnitz! Frobnosia! Prob Fset Cond! Zmemqb Intbl Foo!"" As the last word is spoken, the wizard turns into a vast fireball which explodes outward, searing everything in its path"
+	ZERO?	UNDER-TABLE \?CCL16
+	CALL2	JIGS-UP,STR?264
+	RSTACK	
+?CCL16:	REMOVE	MEGABOZ
+	FCLEAR	PARCHMENT,NDESCBIT
+	MOVE	PARCHMENT,HERE
+	MOVE	CAULDRON,HERE
+	SET	'PROLOGUE-NOVICE-COUNTER,8
+	PRINTR	". Then, silence.
+   You slowly open your eyes, and where last you saw Megaboz, there now sits a huge black cauldron, bubbling and roiling and spewing noisome fumes. All eyes are transfixed on the incredible cauldron; you seem to be the only one who notices the parchment scrap which Megaboz has dropped on the stone floor, just beyond your reach."
+?CCL13:	EQUAL?	PROLOGUE-COUNTER,6 \?CCL18
+	SET	'PROLOGUE-NOVICE-COUNTER,9
+	PRINTR	"Many of the guests are burned and dying. This doesn't seem to bother Dimwit much, but he does seem concerned by the bubbling cauldron. He summons his court magicians, who huddle about the cauldron, sampling the brew, casting exploratory spells, studying the words of Megaboz's spell, and whispering among themselves.
+    Finally, they seem to reach an agreement. Combining their powers, the magicians chant a long and mysterious spell. Then, drained of energy, they turn to Dimwit."
+?CCL18:	EQUAL?	PROLOGUE-COUNTER,7 \FALSE
+	PRINTI	"""We have done our best, your Lordship,"" begins the chief magician, ""but the spell of Megaboz is a mighty one indeed. We delayed its effects for 94 years, but after that time, this castle -- in fact, all the eastlands -- will be destroyed.""
+   Dimwit shrugs. ""Big deal! I won't be around in 94 years!""
+   ""Truer than you think,"" continues the chief magician. ""There's more to the Curse. Lordship, you and your eleven siblings are doomed!""
+   ""Doomed?"" whines Dimwit. ""As in dead? That's not fair! When?""
+   ""Moonrise, perhaps a bit later..."" The king lurches suddenly and collapses onto his dinner. ""...perhaps a bit sooner.""
+   Dimwit's personal physician rushes to the stricken king, and then looks solemnly at the assembled guests. ""The king is dead!"""
+	CRLF	
+	ICALL2	DEQUEUE,I-PROLOGUE
+	SET	'MOVES,0
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	IN?	PARCHMENT,PROTAGONIST \?CCL23
+	MOVE	PARCHMENT,GREAT-HALL
+	JUMP	?CND21
+?CCL23:	REMOVE	PARCHMENT
+?CND21:	ICALL1	STOP
+	ICALL2	ROB,PROTAGONIST
+	REMOVE	DIMWIT
+	REMOVE	HELLHOUND-BONES
+	REMOVE	ROC-TERIYAKI
+	REMOVE	CAKE
+	REMOVE	KEG
+	REMOVE	LINEN
+	MOVE	UNOPENED-NUT,ROOT-CELLAR
+	MOVE	STRAW,SCULLERY
+	MOVE	CALENDAR,GREAT-HALL
+	MOVE	PROCLAMATION,ENTRANCE-HALL
+	FCLEAR	BANQUET-HALL,TOUCHBIT
+	FCLEAR	SCULLERY,TOUCHBIT
+	FCLEAR	KITCHEN,TOUCHBIT
+	FCLEAR	ROOT-CELLAR,ONBIT
+	FCLEAR	WINE-CELLAR,ONBIT
+	SET	'UNDER-TABLE,FALSE-VALUE
+	REMOVE	TABLES
+	MOVE	CROWN,TREASURE-CHEST
+	FSET	CROWN,TAKEBIT
+	FCLEAR	CROWN,NDESCBIT
+	MOVE	ROBE,TRUNK
+	FSET	ROBE,TAKEBIT
+	RANDOM	12
+	SUB	STACK,1 >MID-NAME-NUM
+	RANDOM	2400 >DIAL-NUMBER
+	RANDOM	7
+	SUB	STACK,1
+	GET	SLAB-TABLE,STACK >HOLEY-SLAB
+	REMOVE	BANQUET-FOOD
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	ICALL1	TITLE-SCREEN
+	INPUT	1
+	ICALL1	MOUSE-INPUT?
+	SET	'CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC
+	ICALL1	V-$REFRESH
+	ICALL1	V-VERSION
+	HLIGHT	H-BOLD
+	CRLF	
+	PRINTI	"94 YEARS LATER"
+	PRINT	ELLIPSIS
+	HLIGHT	H-NORMAL
+	ICALL2	MARGINAL-PIC,MAIN-LETTER
+	DIROUT	D-SCREEN-OFF
+	PRINTC	89
+	DIROUT	D-SCREEN-ON
+	PRINTI	"ou awake on a hard stone floor, sorting the chaotic images from yesterday: thousands of Flatheadians fleeing the castle, the last of the royal guard attempting to hold off the looters, pathetic attempts by charlatans to forestall the Curse, and a rowdy party as the remaining peasants broke into the wine cellars"
+	PRINT	ELLIPSIS
+	CALL2	GOTO,GREAT-HALL
+	RSTACK	
+
+
+	.FUNCT	I-TAKE-OBJECT
+	EQUAL?	HERE,BANQUET-HALL \?CCL3
+	ICALL1	RETURN-FROM-MAP
+	IN?	CAKE,PROTAGONIST \?CCL6
+	REMOVE	CAKE
+	PRINTR	"   A head waiter relieves you of the huge cake and delivers it to Dimwit, who claps with delight at his huge private pastry."
+?CCL6:	IN?	KEG,PROTAGONIST \FALSE
+	REMOVE	KEG
+	PRINTR	"   A sommelier grabs the wine keg and bustles across the crowded hall."
+?CCL3:	EQUAL?	HERE,KITCHEN \?CCL10
+	ICALL1	RETURN-FROM-MAP
+	IN?	LINEN,PROTAGONIST \?CCL13
+	REMOVE	LINEN
+	PRINTR	"   ""Finally,"" gasps one of the head servants, snatching the linen and dashing off."
+?CCL13:	IN?	ROC-TERIYAKI,PROTAGONIST \FALSE
+	REMOVE	ROC-TERIYAKI
+	PRINTR	"   A cook grabs the tray. ""Not well-done enough? Those slobs wouldn't know good roc teriyaki if it flew up and bit them on the..."" The rest of the cook's comment is lost amidst the din of the kitchen."
+?CCL10:	EQUAL?	HERE,SCULLERY \FALSE
+	ICALL1	RETURN-FROM-MAP
+	IN?	HELLHOUND-BONES,PROTAGONIST \FALSE
+	REMOVE	HELLHOUND-BONES
+	PRINTR	"   A scrubwoman grabs the platter, dumps the bones down a chute, and tosses the platter into a scrub basin."
+
+
+	.FUNCT	I-GIVE-OBJECT
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   "
+	EQUAL?	HERE,BANQUET-HALL \?CCL3
+	IN?	HELLHOUND-BONES,PROTAGONIST \?CCL6
+	SET	'PROLOGUE-NOVICE-COUNTER,1
+	PRINTR	"""I thought I told you to take that platter into the scullery!"""
+?CCL6:	IN?	ROC-TERIYAKI,PROTAGONIST \?CCL8
+	SET	'PROLOGUE-NOVICE-COUNTER,4
+	PRINTR	"""Well? Get that appetizer back to the kitchen!"""
+?CCL8:	IN?	LINEN,PROTAGONIST \?CCL10
+	SET	'PROLOGUE-NOVICE-COUNTER,4
+	PRINTR	"One of the other servants looks appalled and nods you eastward. ""Clean linen to the kitchen, imbecile!"""
+?CCL10:	FSET?	HELLHOUND-BONES,TOUCHBIT \?CCL12
+	MOVE	ROC-TERIYAKI,PROTAGONIST
+	SET	'PROLOGUE-NOVICE-COUNTER,4
+	PRINTR	"A tray of roc teriyaki is dumped into your arms. ""This appetizer is undercooked! Bring it back to the kitchen!"" You are nudged eastward."
+?CCL12:	MOVE	HELLHOUND-BONES,PROTAGONIST
+	FSET	HELLHOUND-BONES,TOUCHBIT
+	ICALL2	THIS-IS-IT,HELLHOUND-BONES
+	SET	'PROLOGUE-NOVICE-COUNTER,1
+	PRINTR	"Someone thrusts a platter of hellhound bones into your hands. ""Bring this to the scullery, servant!"" An insistent finger points northeast."
+?CCL3:	EQUAL?	HERE,KITCHEN \?CCL14
+	IN?	CAKE,PROTAGONIST /?CTR16
+	IN?	KEG,PROTAGONIST \?CCL17
+?CTR16:	SET	'PROLOGUE-NOVICE-COUNTER,5
+	PRINTI	"""Why haven't you brought that "
+	IN?	CAKE,PROTAGONIST \?CCL22
+	PRINTI	"cake"
+	JUMP	?CND20
+?CCL22:	PRINTI	"keg"
+?CND20:	PRINTR	" out to the hall? The royal executioners are never too busy for an impudent servant..."""
+?CCL17:	IN?	HELLHOUND-BONES,PROTAGONIST \?CCL24
+	SET	'PROLOGUE-NOVICE-COUNTER,10
+	PRINTR	"""No! No! No!"" someone is shouting at you. ""Garbage and soiled dishware to the scullery!"" A strong arm spins you around to the north."
+?CCL24:	FSET?	CAKE,TOUCHBIT \?CCL26
+	SET	'PROLOGUE-NOVICE-COUNTER,5
+	MOVE	KEG,PROTAGONIST
+	PRINTR	"A wine steward bounds up the stairs and deposits a huge wine keg onto your shoulder. ""For the banquet hall!"" he calls over his shoulder."
+?CCL26:	FSET	CAKE,TOUCHBIT
+	MOVE	CAKE,PROTAGONIST
+	SET	'PROLOGUE-NOVICE-COUNTER,5
+	PRINTR	"A baker gives you an enormous cake in the shape of Double Fanucci trebled fromps. ""To the king's table,"" he orders, aiming you westward."
+?CCL14:	EQUAL?	HERE,SCULLERY \?CCL28
+	IN?	ROC-TERIYAKI,PROTAGONIST /?CTR30
+	IN?	CAKE,PROTAGONIST /?CTR30
+	IN?	KEG,PROTAGONIST \?CCL31
+?CTR30:	PRINTI	"""Idiot, that goes to the "
+	IN?	ROC-TERIYAKI,PROTAGONIST \?CCL37
+	SET	'PROLOGUE-NOVICE-COUNTER,2
+	PRINTI	"kitchen"
+	JUMP	?CND35
+?CCL37:	SET	'PROLOGUE-NOVICE-COUNTER,11
+	PRINTI	"banquet hall"
+?CND35:	PRINTI	". Where do we get our servants, the local madhouse?"" An impatient finger points south"
+	IN?	ROC-TERIYAKI,PROTAGONIST /?CND38
+	PRINTI	"west"
+?CND38:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL31:	IN?	LINEN,PROTAGONIST \?CCL41
+	SET	'PROLOGUE-NOVICE-COUNTER,2
+	PRINTR	"""When I give an order, servant, I mean NOW!"" The force of the voice is almost enough to propel you southward."
+?CCL41:	MOVE	LINEN,PROTAGONIST
+	SET	'PROLOGUE-NOVICE-COUNTER,2
+	PRINTR	"Someone drops a load of monogrammed napkins into your arms and pushes you toward the south. ""Bring these to the kitchen! They're running low!"""
+?CCL28:	CALL2	JIGS-UP,STR?265
+	RSTACK	
+
+
+	.FUNCT	SERVANT-ITEM-F
+	EQUAL?	PRSA,V?THROW,V?DROP \?CCL3
+	PRINTR	"Recalling yesterday's execution of ninety-seven unsatisfactory servants, you change your mind."
+?CCL3:	EQUAL?	PRSA,V?CUT \?CCL5
+	EQUAL?	PRSO,CAKE \?CCL5
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?DRINK,V?BITE,V?EAT \FALSE
+	EQUAL?	PRSO,ROC-TERIYAKI \?CCL12
+	PRINTR	"But it's undercooked!"
+?CCL12:	EQUAL?	PRSO,HELLHOUND-BONES \?CCL14
+	PRINT	THERES-NOTHING
+	PRINTR	"left but bones."
+?CCL14:	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PARCHMENT-F
+	EQUAL?	PRSA,V?WALK-TO \?CCL3
+	ZERO?	UNDER-TABLE /?CCL3
+	ICALL2	PERFORM,V?STAND
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?READ \FALSE
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK \?CND8
+	PRINTI	"The parchment has been in your family for generations, and is now yellowed with age. Family lore claims this parchment was acquired by an ancestor who served in Dimwit's court, and dates from the very day that the Curse of Megaboz was cast! "
+?CND8:	PRINTR	"[You can find this scrap of parchment in your ZORK ZERO package.]"
+
+
+	.FUNCT	DIMWIT-F,ARG
+	EQUAL?	ARG,M-WINNER \?CCL3
+	PRINTI	"One of the King's personal attendants gives you a bone-jarring mind-numbing smack on the side of your head as you attempt to speak to the King."
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?RESEARCH \?CCL5
+	CALL	PICTURED-ENTRY,DIMWIT-ILL,STR?269
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	PRINTR	"From his gaudy crown to his 369 course meal, Dimwit is the very model of excessiveness."
+?CCL7:	EQUAL?	PRSA,V?MUNG,V?KICK,V?KILL \FALSE
+	PRINTR	"You'd never get past his legion of personal guards."
+
+
+	.FUNCT	G-DIMWIT-F,TBL,F
+	GET	F,6
+	EQUAL?	STACK,W?STATUE \?CCL3
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK /FALSE
+	RETURN	DIMWIT-STATUE
+?CCL3:	GET	F,6
+	EQUAL?	STACK,W?PAINTING /FALSE
+	RETURN	DIMWIT
+
+	.ENDSEG
+
+	.SEGMENT "STARTUP"
+
+
+	.FUNCT	TABLES-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The tables are slathered with food and bones and dirty platters and puddles or wine and even a few sleeping bodies. Royal guests don't tend to have the best manners."
+?CCL3:	EQUAL?	PRSA,V?HIDE,V?CRAWL-UNDER \?CCL5
+	ZERO?	UNDER-TABLE /?CCL8
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL8:	SET	'UNDER-TABLE,TRUE-VALUE
+	SET	'OLD-HERE,FALSE-VALUE
+	PRINTR	"You are now under the table."
+?CCL5:	EQUAL?	PRSA,V?EXIT \FALSE
+	ZERO?	UNDER-TABLE /FALSE
+	SET	'PRSO,FALSE-VALUE
+	CALL1	V-STAND
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+
+	.FUNCT	CAULDRON-F,CAULDRON-SCORE
+	EQUAL?	PRSA,V?CLOSE \?CCL3
+	PRINTR	"No lid."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTI	"The cauldron is "
+	FSET?	OUTER-GATE,OPENBIT \?CCL8
+	PRINTR	"cold and empty!"
+?CCL8:	ZERO?	TIME-STOPPED /?CCL10
+	PRINTR	"surrounded by unmoving clouds of smoke!"
+?CCL10:	DIV	NUMBER-OF-ITEMS,2
+	GET	CAULDRON-DESCS,STACK
+	PRINT	STACK
+	PRINTR	"."
+?CCL5:	EQUAL?	PRSA,V?SMELL \?CCL12
+	PRINTR	"Phew!!!"
+?CCL12:	EQUAL?	PRSA,V?ENTER,V?DRINK-FROM,V?DRINK \?CCL14
+	PRINTR	"As you near the cauldron, acrid fumes drive you back."
+?CCL14:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL16
+	ZERO?	TIME-STOPPED /?CCL19
+	ICALL	PERFORM,V?EXAMINE,CAULDRON
+	RTRUE	
+?CCL19:	PRINTR	"All you can see is churning smoke."
+?CCL16:	EQUAL?	PRSA,V?REACH-IN,V?SEARCH \?CCL21
+	PRINTR	"You feel nothing within the cauldron, but after you withdraw your hand it tingles maddeningly for a few moments."
+?CCL21:	EQUAL?	PRSA,V?PUT \FALSE
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK /?CCL26
+	REMOVE	PRSO
+	PRINTI	"There is no apparent effect as"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" vanishes into the cauldron."
+?CCL26:	ZERO?	TIME-STOPPED /?CND24
+	MOVE	PRSO,HERE
+	PRINTI	"As though there were now an invisible bubble around the cauldron,"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" slides away from it and lands on the floor."
+?CND24:	PRINTI	"With a puff of magically charged smoke,"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" vanishes amidst the vapors. The cauldron's level of activity seems to increase"
+	EQUAL?	PRSO,CUP \?CND28
+	IN?	POTION,CUP \?CND28
+	REMOVE	POTION
+?CND28:	CALL2	PUT-ITEM-IN-CAULDRON,PRSO >CAULDRON-SCORE
+	FSET?	PRSO,MAGICBIT /?CCL34
+	PRINTI	" momentarily"
+	JUMP	?CND32
+?CCL34:	MOD	NUMBER-OF-ITEMS,2
+	ZERO?	STACK \?CND32
+	PRINTI	"; it is now "
+	DIV	NUMBER-OF-ITEMS,2
+	GET	CAULDRON-DESCS,STACK
+	PRINT	STACK
+?CND32:	PRINTC	46
+	EQUAL?	NUMBER-OF-ITEMS,24 \?CND36
+	ZERO?	CAULDRON-MUNGED \?CND36
+	ICALL2	DEQUEUE,I-JESTER
+	FCLEAR	GUTTERING-TORCH,ONBIT
+	FCLEAR	GUTTERING-TORCH,FLAMEBIT
+	FCLEAR	FLICKERING-TORCH,ONBIT
+	FCLEAR	FLICKERING-TORCH,FLAMEBIT
+	FSET	CLOSET-REBUS-BUTTON,TOUCHBIT
+	PUTP	CLOSET-REBUS-BUTTON,P?SDESC,STR?270
+	FSET	BASEMENT-REBUS-BUTTON,TOUCHBIT
+	PUTP	BASEMENT-REBUS-BUTTON,P?SDESC,STR?270
+	FCLEAR	IRON-MAIDEN,OPENBIT
+	FCLEAR	SNAKE-PIT,OPENBIT
+	FCLEAR	WATER-CHAMBER,OPENBIT
+	SET	'TIME-STOPPED,TRUE-VALUE
+	PRINTI	" Suddenly, the smoke stops swirling; in fact, everything in sight has ground to a halt. It is as if time itself has stopped. You don't seem to be affected, however."
+	IN?	JESTER,HERE \?CND36
+	ICALL1	REMOVE-J
+	PRINTI	" In addition, the jester has vanished."
+?CND36:	CRLF	
+	CALL2	INC-SCORE,CAULDRON-SCORE
+	RSTACK	
+
+
+	.FUNCT	PUT-ITEM-IN-CAULDRON,OBJ,X,N,CAULDRON-SCORE
+	FIRST?	OBJ >X /?PRG2
+?PRG2:	ZERO?	X /?REP3
+	NEXT?	X >N /?BOGUS7
+?BOGUS7:	FSET?	X,NDESCBIT /?CND4
+	CALL2	PUT-ITEM-IN-CAULDRON,X
+	ADD	CAULDRON-SCORE,STACK >CAULDRON-SCORE
+?CND4:	SET	'X,N
+	JUMP	?PRG2
+?REP3:	FSET?	OBJ,MAGICBIT \?CCL12
+	REMOVE	OBJ
+	INC	'NUMBER-OF-ITEMS
+	ADD	CAULDRON-SCORE,5 >CAULDRON-SCORE
+	GETP	OBJ,P?VALUE
+	EQUAL?	STACK,12 \?CND10
+	ADD	CAULDRON-SCORE,12 >CAULDRON-SCORE
+	RETURN	CAULDRON-SCORE
+?CCL12:	EQUAL?	OBJ,LARGE-VIAL \?CCL17
+	REMOVE	LARGE-VIAL-WATER
+	SET	'LARGE-VIAL-GLOOPS,0
+	JUMP	?CND15
+?CCL17:	EQUAL?	OBJ,SMALL-VIAL \?CND15
+	REMOVE	SMALL-VIAL-WATER
+	SET	'SMALL-VIAL-GLOOPS,0
+?CND15:	FCLEAR	OBJ,ONBIT
+	ICALL	QUEUE,I-CAULDRON,3
+	EQUAL?	OBJ,NUT \?CCL20
+	IN?	NUT,UNOPENED-NUT /?CND19
+?CCL20:	MOVE	OBJ,MEGABOZ
+?CND19:	EQUAL?	PRSO,PERCH \?CND23
+	SET	'REMOVED-PERCH-LOC,MEGABOZ
+?CND23:	SUB	CAULDRON-SCORE,5 >CAULDRON-SCORE
+	SET	'CAULDRON-MUNGED,TRUE-VALUE
+?CND10:	RETURN	CAULDRON-SCORE
+
+
+	.FUNCT	I-CAULDRON,X,TWO
+	FIRST?	MEGABOZ \FALSE
+	IN?	PERCH,MEGABOZ \?CND1
+	SET	'REMOVED-PERCH-LOC,FALSE-VALUE
+?CND1:	EQUAL?	HERE,BANQUET-HALL \?CND5
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   With a startling belch of green flame and vile-smelling smoke, the cauldron regurgitates"
+	FIRST?	MEGABOZ >X \?CND7
+	NEXT?	X \?CND7
+	SET	'TWO,TRUE-VALUE
+?CND7:	ICALL	D-CONTENTS,MEGABOZ,2
+	ZERO?	TWO /?CCL13
+	PRINTI	" They "
+	JUMP	?CND11
+?CCL13:	PRINTI	" It "
+?CND11:	RANDOM	100
+	LESS?	15,STACK /?CCL16
+	ZERO?	TWO \?CCL16
+	GETP	X,P?SIZE
+	GRTR?	STACK,4 \?CCL16
+	ICALL2	JIGS-UP,STR?284
+	JUMP	?CND5
+?CCL16:	ZERO?	TWO /?CCL22
+	PRINTI	"whiz"
+	JUMP	?CND20
+?CCL22:	PRINTI	"whizzes"
+?CND20:	PRINTI	" past your ear with alarming velocity."
+?CND5:	ICALL	ROB,MEGABOZ,BANQUET-HALL
+	EQUAL?	HERE,BANQUET-HALL \FALSE
+	CRLF	
+	RTRUE	
+
+	.ENDSEG
+
+	.SEGMENT "STARTUP"
+
+
+	.FUNCT	MEGABOZ-F,ARG
+	EQUAL?	ARG,M-OBJDESC,M-OBJDESC? \?CCL3
+	EQUAL?	ARG,M-OBJDESC? /TRUE
+	PRINTI	"   An angry wizard stands defiantly in the center of the hall."
+	IN?	PARCHMENT,MEGABOZ \TRUE
+	PRINTI	" A scrap of parchment sticks out from a pocket of his robe."
+	RTRUE	
+?CCL3:	EQUAL?	ARG,M-WINNER /?CTR8
+	EQUAL?	PRSA,V?TELL \?CCL9
+?CTR8:	PRINTI	"Megaboz ignores you."
+	CRLF	
+	RETURN	2
+?CCL9:	EQUAL?	PRSA,V?RESEARCH \?CCL15
+	CALL	PICTURED-ENTRY,MEGABOZ-ILL,MEGABOZ-TEXT
+	RSTACK	
+?CCL15:	EQUAL?	PRSA,V?EXAMINE \?CCL17
+	PRINTR	"Even the most ignorant lay observer can see that the gaunt man is a powerful mage. His wizardly robe and cap crackle with magical energy, and his darting eyes seem to see inside everyone he looks at."
+?CCL17:	EQUAL?	PRSA,V?KILL,V?KISS,V?KICK /?PRD21
+	EQUAL?	PRSA,V?MUNG \FALSE
+?PRD21:	EQUAL?	PRSO,MEGABOZ \FALSE
+	CALL2	JIGS-UP,STR?285
+	RSTACK	
+
+	.SEGMENT "CASTLE"
+
+	.ENDSEG
+
+	.ENDI
diff --git a/prologue.zil b/prologue.zil
new file mode 100644
index 0000000..913bae0
--- /dev/null
+++ b/prologue.zil
@@ -0,0 +1,1245 @@
+"PROLOGUE for
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<GLOBAL DEMO-VERSION? <>>
+<BEGIN-SEGMENT STARTUP>
+
+<ROUTINE SETUP-SCREEN ()
+	 <SETG FONT-X <LOWCORE (FWRD 1)>>
+	 <SETG FONT-Y <LOWCORE (FWRD 0)>>
+	 <MOUSE-LIMIT -1>
+	 <COND (<NOT <EQUAL? <BAND <LOWCORE FLAGS> 32> 0>>
+		<SETG ACTIVE-MOUSE T>)> 
+	 <WINSIZE ,S-FULL <LOWCORE VWRD> <LOWCORE HWRD>>
+	 <SETG WIDTH <LOWCORE SCRH>>>
+
+<ROUTINE GO ()
+	 <SETUP-SCREEN>
+	 <SETG TOWER-BEATEN ,PYRAMID>
+	 <SETG CLOAK-LOC ,CLOTHES-CLOSET>
+	 <COND (,DEMO-VERSION?
+		<SETG HOLEY-SLAB <GET ,SLAB-TABLE <- <RANDOM 7> 1>>>
+		<SLIDE-SHOW>
+		<AGAIN>)>
+	 <SETG CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>
+	 <SETG CURRENT-BORDER ,CASTLE-BORDER>
+	 <QUEUE I-GIVE-OBJECT -1>
+	 <QUEUE I-PROLOGUE -1>
+	 <QUEUE I-TAKE-OBJECT -1>
+	 <V-$REFRESH>
+	 <CRLF>
+	 <MARGINAL-PIC ,PROLOGUE-LETTER>
+	 <DIROUT ,D-SCREEN-OFF>
+	 <TELL "A"> ;"so script doesn't say NOTHER FRANTIC DAY..."
+	 <DIROUT ,D-SCREEN-ON>
+	 <TELL
+"nother frantic day at the castle; Lord Dimwit Flathead the Excessive has
+invited a few thousand friends over for dinner. Three hundred dragons have
+been slaughtered for the occasion, and the kitchen is suffocated by the
+stench of their roasting flesh.">
+	 <CRLF>
+	 <CLEAR-CRCNT> ;"in case illuminated letter is taller than intro"
+	 <CRLF>
+	 <V-LOOK>
+	 <I-PROLOGUE>
+	 <I-GIVE-OBJECT>
+	 <MAIN-LOOP>
+	 <AGAIN>>
+
+<ROUTINE CLEAR-CRCNT ("AUX" NUM)
+	 <SET NUM <WINGET ,S-TEXT ,WCRCNT>>
+	 <REPEAT ()
+		 <COND (<0? .NUM>
+			<RETURN>)>
+		 <CRLF>
+		 <SET NUM <- .NUM 1>>>>
+
+<CONSTANT SLIDE-SHOW-TIMEOUT 150>
+<CONSTANT DEMO-TIMEOUT 600>
+
+<ROUTINE SLIDE-SHOW-HANDLER ()
+	<SETG DEMO-VERSION? +1>
+	<RTRUE>>
+
+<ROUTINE SLIDE-SHOW ()
+	<WINSIZE ,S-TEXT <LOWCORE VWRD> <LOWCORE HWRD>>
+	<TITLE-SCREEN>
+	<INPUT 1 ,SLIDE-SHOW-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<CLEAR -1>
+
+	<TELL
+"This is a demonstration version of ZORK ZERO: The Revenge of Megaboz|
+Copyright (c) 1988 by Infocom, Inc. All rights reserved.|
+|
+	First you will see a few samples of the graphic screens that await you
+in ZORK ZERO.We've used graphics in surprising new ways to enhance the
+story without detracting from Infocom's traditional richness and depth.|
+	Then you will be able to interact with a small section of ZORK
+ZERO.Feel free to try the new friendlier parser, the optional mouse
+interface, and the on-screen hints.Solve a couple of puzzles.Meet
+the quizzical jester, who will test you with games, riddles, or tricks.|
+	ZORK ZERO is the \"prequel\" to the ZORK trilogy, the best-selling computer
+entertainment of all time.In ZORK ZERO the Great Underground Empire is in
+its heyday, and no adventurer has yet set foot in the \"open field west of a
+white house.\"But the inhabitants are fleeing in the wake of a dread
+wizard's curse, which has already disposed of the royal Flathead family
+and threatens to destroy the entire kingdom -- unless you can stop it.
+	Hit any key to begin...">
+	<INPUT 1 ,DEMO-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<CLEAR -1>
+
+	<PICTURED-ENTRY ,MEGABOZ-ILL ,MEGABOZ-TEXT T>
+	<SCREEN ,S-FULL>
+	<CURSET 1 1>
+	<INPUT 1 ,SLIDE-SHOW-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<CLEAR -1>
+
+	<SCREEN ,S-FULL>
+	<DISPLAY ,REBUS-1 1 1>
+	<INPUT 1 ,SLIDE-SHOW-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<CLEAR -1>
+
+	<REPEAT ((RM <FIRST? ,ROOMS>))
+		<COND (<ZERO? .RM>
+		       <RETURN>)
+		      (<EQUAL? ,FOOZLE-MAP-NUM <GET <GETP .RM ,P?MAP-LOC> 0>>
+		       <FSET .RM ,TOUCHBIT>)>
+		<SET RM <NEXT? .RM>>>
+	<SETG HERE ,CROSSROADS>
+	<SETG MAP-NOTE T>
+	<DO-MAP>
+	<INPUT 1 ,SLIDE-SHOW-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<CLEAR -1>
+
+	<SETUP-CARDS>
+	<PUT ,F-CARD-TABLE 0 7>		;"nought of "
+	<PUT ,F-CARD-TABLE 1 10>	;"mazes"
+	<PUT ,F-CARD-TABLE 2 16>	;"hourglass"
+	<PUT ,F-CARD-TABLE 4 11>	;"trebled "
+	<PUT ,F-CARD-TABLE 5 15>	;"fromps"
+	<PUT ,F-CARD-TABLE 6 0>		;"back of card"
+	<PUT ,F-CARD-TABLE 8 8>		;"infinity of "
+	<PUT ,F-CARD-TABLE 9 5>		;"ears"
+	<SETUP-FANUCCI>
+	<SCREEN ,S-FULL>
+	<CURSET 1 1>
+	<INPUT 1 ,SLIDE-SHOW-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<CLEAR -1>
+
+	;<FCLEAR ,WEST-DOOR ,LOCKEDBIT>
+	;<FCLEAR ,EAST-DOOR ,LOCKEDBIT>
+	;<MOVE ,CANDLE ,PROTAGONIST>
+	;<MOVE ,UNOPENED-NUT ,KITCHEN>
+	;<FSET ,CRYPT ,UNDERGROUNDBIT>
+	;<FSET ,SECRET-PASSAGE ,UNDERGROUNDBIT>
+	<SETG CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>
+	<SETG CURRENT-BORDER ,CASTLE-BORDER>
+	<V-$REFRESH>
+	<TELL
+"Now you are welcome to interact with a demonstration version of|
+|">
+	<V-VERSION>
+	<CRLF>
+	<MOVE ,DIRIGIBLE ,SMALLER-HANGAR>
+	<PUTP ,GONDOLA ,P?REGION "Fenshire">
+	<MOVE ,RECIPE ,RUINED-HALL ;,MARSH>
+	<PUTP ,ROOSTER ,P?FDESC 0>
+	<MOVE ,ROOSTER ,DESERTED-CASTLE>
+	<PUTP ,DESERTED-CASTLE ,P?ACTION ,DESERTED-CASTLE-F>
+	<PUTP ,FOX ,P?FDESC 0>
+	<MOVE ,FOX ,SMALLER-HANGAR>
+	<PUTP ,SMALLER-HANGAR ,P?ACTION ,SMALLER-HANGAR-F>
+	<MOVE ,WORM ,HOTHOUSE>
+	<WINPUT ,S-TEXT 15 -999>	;"Disable MORE counter."
+	<SETG PROLOGUE-NOVICE-COUNTER 0>
+	<GOTO ,RUINED-HALL>
+	<MAIN-LOOP>>
+
+<ROUTINE READ-DEMO (ARG1 "OPT" (ARG2 <>) "AUX" CHR)
+ <COND (T ;,DEMO-VERSION?
+	<SETG DEMO-VERSION? -1>
+	<SET CHR <READ .ARG1 .ARG2 ,DEMO-TIMEOUT ,SLIDE-SHOW-HANDLER>>
+	<COND (<1? ,DEMO-VERSION?>
+	       <END-DEMO>)
+	      (T
+	       <WINPUT ,S-TEXT 15 -999>	;"Disable MORE counter."
+	       .CHR)>)
+       ;(T
+	<INPUT .ARG>)>>
+
+<ROUTINE INPUT-DEMO (ARG "AUX" CHR)
+ <COND (T ;,DEMO-VERSION?
+	<SETG DEMO-VERSION? -1>
+	<SET CHR <INPUT .ARG ,DEMO-TIMEOUT ,SLIDE-SHOW-HANDLER>>
+	<COND (<1? ,DEMO-VERSION?>
+	       <END-DEMO>)
+	      (T
+	       <WINPUT ,S-TEXT 15 -999>	;"Disable MORE counter."
+	       .CHR)>)
+       ;(T
+	<INPUT .ARG>)>>
+
+<ROUTINE END-DEMO ()
+	<CLEAR -1>
+	<TELL "|
+You have reached the end of this demonstration version of|">
+	<V-VERSION>
+	<TELL "|
+|
+Hit any key to start over...">
+	<INPUT 1 ,SLIDE-SHOW-TIMEOUT ,SLIDE-SHOW-HANDLER>
+	<SCREEN ,S-TEXT>
+	<COLOR 1 1> ;"return to default before screen clears"
+	<RESTART>
+	<TELL ,FAILED>
+	<AGAIN>>
+
+<OBJECT RECIPE
+	(DESC "recipe card")
+	(SYNONYM RECIPE CARD)
+	(ADJECTIVE RECIPE)
+	(FLAGS TAKEBIT READBIT)
+	(SIZE 1)
+	(TEXT BORPHBELLY-TEXT)>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT BANQUET-FOOD
+	(LOC GLOBAL-OBJECTS)
+	(DESC "banquet meal")
+	(SYNONYM FOOD WINE)
+	(ACTION BANQUET-FOOD-F)>
+
+<ROUTINE BANQUET-FOOD-F ()
+	 <COND (<VERB? EAT DRINK TASTE TOUCH TAKE>
+		<TELL
+"The food and drink is for the guests, not the servants." CR>)>>
+
+<ROOM BANQUET-HALL
+      (LOC ROOMS)
+      (DESC "Banquet Hall")
+      (REGION "Flatheadia")
+      (WEST TO ENTRANCE-HALL)
+      (SOUTH TO COURTYARD)
+      (EAST TO KITCHEN)
+      (NE TO SCULLERY)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM HALL)
+      (ADJECTIVE BANQUET)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-6>)
+      (ICON BANQUET-HALL-ICON)
+      (GLOBAL KITCHEN SCULLERY)
+      (ACTION BANQUET-HALL-F)
+      (THINGS <> SMOKE SMOKE-PS
+	      <> VAPOR SMOKE-PS)>
+
+<ROUTINE SMOKE-PS ()
+	 <COND (<VERB? SMELL>
+		<PERFORM ,V?SMELL ,CAULDRON>
+		<RTRUE>)
+	       (<VERB? ENTER>
+		<TELL "\"Choke, choke, cough, cough.\"" CR>)
+	       (<AND <VERB? PUT>
+		     <PRSO? ,HANDS>>
+		<TELL ,NOTHING-HAPPENS>)>>
+
+<ROUTINE BANQUET-HALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<RUNNING? I-PROLOGUE>
+		       <TELL
+"The hall is filled to capacity, and the thousands of reveling guests
+are raising quite a din">)
+		      (T
+		       <TELL
+"Many royal feasts have been held in this hall, which could easily hold
+ten thousand guests. Legends say that Dimwit's more excessive banquets
+would require the combined farm outputs of three provinces">)>
+	       <TELL
+". The primary exits are to the west and south; smaller openings lead east
+and northeast.">)>>
+
+<ROOM KITCHEN
+      (LOC ROOMS)
+      (DESC "Kitchen")
+      (REGION "Flatheadia")
+      (WEST TO BANQUET-HALL)
+      (NORTH TO SCULLERY)
+      (DOWN TO ROOT-CELLAR)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM KITCHEN)
+      (GLOBAL STAIRS BANQUET-HALL SCULLERY)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>)
+      (ICON KITCHEN-ICON)
+      (ACTION KITCHEN-F)>
+
+<ROUTINE KITCHEN-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<COND (<RUNNING? I-PROLOGUE>
+		       <TELL
+"You are assaulted by waves of greasy odors and buffetted by mobs of
+bustling cooks and servants">)
+		      (T
+		       <TELL
+"Although this is the largest cooking area in the Empire, it must've still
+been crowded when all 600 of Dimwit's chefs were working at the same time">)>
+		<TELL
+". There are passages to the west and north, and a stair leads downward">
+		<COND (<NOT <RUNNING? I-PROLOGUE>>
+		       <TELL " into darkness">)>
+		<TELL ".">)>>
+
+<ROOM SCULLERY
+      (LOC ROOMS)
+      (DESC "Scullery")
+      (REGION "Flatheadia")
+      (SOUTH TO KITCHEN)
+      (SW TO BANQUET-HALL)
+      (DOWN TO WINE-CELLAR)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM SCULLERY)
+      (GLOBAL STAIRS KITCHEN BANQUET-HALL)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-7>)
+      (ACTION SCULLERY-F)>
+
+<ROUTINE SCULLERY-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is where the castle's pots and pans, the output of the forges of
+Borphee for three years, are cleaned and stored. Passages open to the
+south and southwest, and a stair descends">
+		<COND (<NOT <RUNNING? I-PROLOGUE>>
+		       <TELL " into darkness">)>
+		<TELL ".">)>>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT STRAW
+	(DESC "drinking straw")
+	(SYNONYM STRAW)
+	(ADJECTIVE DRINKING)
+	(FLAGS TAKEBIT)
+	(SIZE 1)
+	(ACTION STRAW-F)>
+
+<ROUTINE STRAW-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<COND (<IN? ,STRAW ,BOWL>
+		       <TELL ,ONLY-BLACKNESS>)
+		      (T
+		       <TELL
+"You see a point of light: the far end of the straw." CR>)>)
+	       (<AND <VERB? SUCK-WITH>
+		     <PRSI? ,STRAW>>
+		<PERFORM ,V?DRINK-WITH ,PRSO ,STRAW>
+		<RTRUE>)
+	       (<VERB? SUCK-ON>
+		<SETG FINGER-ON-STRAW <>>
+		<SETG ELIXIR-TRAPPED <>>
+		<COND (<IN? ,STRAW ,BOWL>
+		       <PERFORM ,V?DRINK-WITH ,ELIXIR ,STRAW>
+		       <RTRUE>)
+		      (T
+		       <TELL "You suck some air through the straw." CR>)>)
+	       (<VERB? INFLATE>
+		<SETG FINGER-ON-STRAW <>>
+		<SETG ELIXIR-TRAPPED <>>
+		<TELL "Air ">
+		<COND (<IN? ,STRAW ,BOWL>
+		       <TELL "bubbles up through the elixir">)
+		      (T
+		       <TELL "blows out the far end of the straw">)>
+		<TELL ". Wow." CR>)
+	       (<AND <VERB? TAKE>
+		     ,FINGER-ON-STRAW
+		     ,ELIXIR-TRAPPED
+		     <IN? ,STRAW ,BOWL>>
+		<SETG FINGER-ON-STRAW <>>
+		<SETG ELIXIR-TRAPPED <>>
+		<MOVE ,STRAW ,PROTAGONIST>
+		<TELL
+"As you lift the straw with your finger over the end of it, the elixir within
+is trapped. Then the suction breaks, and the elixir dribbles onto you. ">
+		<TOUCH-ELIXIR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROUTINE TOUCH-ELIXIR ()
+	 <TELL "The liquid feels warm and cleansing."> 
+	 <COND (<FSET? ,LARGE-FLY ,TRYTAKEBIT>
+		<FCLEAR ,LARGE-FLY ,TRYTAKEBIT>
+		<FCLEAR ,LARGER-FLY ,TRYTAKEBIT>
+		<FCLEAR ,EVEN-LARGER-FLY ,TRYTAKEBIT>
+		<FCLEAR ,LARGEST-FLY ,TRYTAKEBIT>
+		<TELL
+" You experience a wave of ecstasy, accompanied by a brief desire to spin
+a cocoon, collect sap, and eat animal excrement." CR>
+		<INC-SCORE 16>)
+	       (T
+	 	<CRLF>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT 0>
+
+<GLOBAL FINGER-ON-STRAW <>>
+
+<GLOBAL ELIXIR-TRAPPED <>>
+
+<ROUTINE I-FINGER-OFF-STRAW ("AUX" (TOLD <>))
+	 <COND (<AND ,FINGER-ON-STRAW
+		     <VISIBLE? ,STRAW>>
+		<RETURN-FROM-MAP>
+		<SET TOLD T>
+		<TELL
+"   Your finger gets tired, so you remove it from the end of the straw." CR>)>
+	 <SETG FINGER-ON-STRAW <>>
+	 <SETG ELIXIR-TRAPPED <>>
+	 <COND (.TOLD
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM ROOT-CELLAR
+      (LOC ROOMS)
+      (DESC "Root Cellar")
+      (REGION "Flatheadia")
+      (LDESC
+"This is where food is stored. A stair leads up, and another part of
+the cellar lies to the north.")
+      (UP TO KITCHEN)
+      (NORTH TO WINE-CELLAR)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CELLAR)
+      (ADJECTIVE ROOT)
+      (GLOBAL STAIRS)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>)>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT UNOPENED-NUT
+	(DESC "unopened walnut")
+	(FDESC
+"The cellar has been picked clean by the fleeing thousands -- but wait, what's
+this in the corner? Ah, an unopened walnut!")
+	(SYNONYM SHELL NUTSHELL WALNUT NUT)
+	(ADJECTIVE WALNUT UNOPENED)
+	(FLAGS VOWELBIT TAKEBIT CONTBIT SEARCHBIT)
+	(SIZE 2)
+	(ACTION UNOPENED-NUT-F)>
+
+<ROUTINE UNOPENED-NUT-F ()
+	 <COND (<VERB? SHAKE>
+		<TELL "A nut rattles around within." CR>)
+	       (<AND <VERB? OPEN>
+		     <PRSI? ,HAMMER>>
+		<PERFORM ,V?MUNG ,PRSO ,HAMMER>
+		<RTRUE>)
+	       (<AND <VERB? OPEN LOOK-INSIDE MUNG KILL>
+		     <PRSO? ,UNOPENED-NUT>>
+		<COND (<AND <VERB? LOOK-INSIDE EXAMINE>
+			    <FSET? ,GOGGLES ,WORNBIT>>
+		       <PERFORM ,V?LOOK-INSIDE ,NUT-SHELL>
+		       <RTRUE>)
+		      (<NOT ,PRSI>
+		       <TELL
+"This is one tough shell. You can't seem to crack it with your ">
+		       <COND (,ALLIGATOR
+			      <TELL "paws">)
+			     (T
+			      <TELL "hands">)>
+		       <TELL ,PERIOD-CR>)
+		      (<AND <PRSI? ,LOBSTER>
+			    <NOT <FSET? ,PRSI ,ANIMATEDBIT>>>
+		       <COND (<VISIBLE? ,JESTER>
+			      <TELL "The jester watches with interest. ">
+			      <SETG NUT-OPENED T>)>
+		       <MOVE ,NUT-SHELL <LOC ,UNOPENED-NUT>>
+		       <MOVE ,NUT ,NUT-SHELL>
+		       <THIS-IS-IT ,NUT>
+		       <REMOVE ,UNOPENED-NUT>
+		       <TELL
+"\"Crack!\" Opening the walnut shell reveals a walnut." CR>)
+		      (<AND <VERB? MUNG KILL>
+			    <G? <GETP ,PRSI ,P?SIZE> 15>>
+		       <REMOVE ,UNOPENED-NUT>
+		       <TELL
+"This succeeds in crushing the shell (and its contents) to dust." CR>)
+		      (T
+		       <TELL ,YOU-CANT "open a nutshell with" AR ,PRSI>)>)
+	       (<AND <VERB? PUT-ON>
+		     <PRSI? ,UNOPENED-NUT>
+		     <G? <GETP ,PRSO ,P?SIZE> 14>>
+		<PERFORM ,V?MUNG ,UNOPENED-NUT ,PRSO>
+		<RTRUE>)
+	       (<AND <VERB? STAND-ON>
+		     <NOT <FSET? ,UNOPENED-NUT ,OPENBIT>>>
+		<TELL
+"Even your full weight is insufficient to crack the shell
+(you lightweight you)." CR>)>>
+
+<OBJECT NUT-SHELL
+	(DESC "walnut shell")
+	(SYNONYM SHELL NUTSHELL)
+	(ADJECTIVE WALNUT)
+	(FLAGS TAKEBIT SEARCHBIT CONTBIT OPENBIT)
+	(SIZE 1)
+	(ACTION NUT-SHELL-F)>
+
+<ROUTINE NUT-SHELL-F ()
+	 <COND (<VERB? CLOSE>
+		<TELL
+,YOU-CANT "reclose the shell! Don't fret, though. Instead, remember that
+old Miznian proverb: \"It's no use crying over cracked nutshells.\"" CR>)>>
+
+<OBJECT NUT
+	(LOC UNOPENED-NUT)
+	(DESC "walnut")
+	(SYNONYM WALNUT NUT)
+	(FLAGS TAKEBIT)
+	(SIZE 1)
+	(ACTION NUT-F)>
+
+<ROUTINE NUT-F ()
+	 <COND (<VERB? EAT>
+		<REMOVE ,NUT>
+		<COND (<VISIBLE? ,JESTER>
+		       <COND (,NUT-SHOWN
+			      <SETG NUT-EATEN T>
+			      <TELL
+"\"I'm very impressed; you passed my test! When you exit from the
+West Wing, I'll no longer be molesting.\"">
+			      <J-EXITS>
+			      <INC-SCORE 20>)
+			     (T
+			      <TELL
+"You swallow the walnut. \"I guess you don't win, place, or show!\" comments
+the jester enigmatically." CR>)>)
+		      (T
+		       <TELL
+"The walnut is tasty, but hardly filling." CR>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<ROOM WINE-CELLAR
+      (LOC ROOMS)
+      (DESC "Wine Cellar")
+      (REGION "Flatheadia")
+      (LDESC
+"Every keg has been removed, and the floor is mottled with purple stains.
+Stone stairs lead upward, and the cellar continues to the south.")
+      (SOUTH TO ROOT-CELLAR)
+      (UP TO SCULLERY)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CELLAR)
+      (ADJECTIVE WINE)
+      (GLOBAL STAIRS)
+      (MAP-LOC <PTABLE MAIN-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-8>)
+      (ICON WINE-CELLAR-ICON)>
+
+<BEGIN-SEGMENT STARTUP>
+
+<GLOBAL PROLOGUE-COUNTER 0>
+
+<GLOBAL PROLOGUE-NOVICE-COUNTER 1>
+
+<CONSTANT NOVICE-MOVES
+	<PTABLE
+	 ;0 "wait" ;"should be impossible to get this one"
+	 ;1 "go northeast"
+	 ;2 "walk south"
+	 ;3 "go west"
+	 ;4 "walk east"
+	 ;5 "enter the banquet hall" ;"west"
+	 ;6 "examine the gaunt man"
+	 ;7 "dive under the table"
+	 ;8 "get out from under the table"
+	 ;9 "pick up the scrap of parchment"
+	;10 "north" ;"only happens if you already went in the wrong direction"
+	;11 "southeast" ;"ditto">>
+
+<ROUTINE I-PROLOGUE ()
+	 <COND (<NOT <EQUAL? ,HERE ,BANQUET-HALL>>
+		<RFALSE>)>
+	 <SETG PROLOGUE-COUNTER <+ ,PROLOGUE-COUNTER 1>>
+	 <RETURN-FROM-MAP>
+	 <TELL "   ">
+	 <COND (<EQUAL? ,PROLOGUE-COUNTER 1>
+		<FCLEAR ,DIMWIT ,NDESCBIT>
+		<TELL
+"Dimwit is seated at the dais. His loud voice carries across the crowded hall.
+\"Now that the statue is done, we must do something ceremonial. I have it! A
+dedication! We'll give everyone in the kingdom a year off and invite them to
+the Fublio Valley...\"" CR>)
+	       (<EQUAL? ,PROLOGUE-COUNTER 2>
+		<TELL
+"Dimwit is ranting at his advisors. \"There's not enough in the royal treasury
+to build my new continent, Lord Feepness? Then we'll increase the tax levy!
+It's only 98%! That still leaves two percent!\"|
+   \"With all deference, your Lordship, people are refusing to pay even the
+98%. Your decree, 'Anyone withholding payment shall be killed along with
+everyone they've ever met' simply isn't working. If you increase it to 100%,
+the people...\"" CR>)
+	       (<EQUAL? ,PROLOGUE-COUNTER 3>
+		<DEQUEUE I-TAKE-OBJECT>
+		<DEQUEUE I-GIVE-OBJECT>
+		<MOVE ,MEGABOZ ,HERE>
+		<SETG PROLOGUE-NOVICE-COUNTER 6>
+		<TELL
+"\"How about this?\" shouts Dimwit with his mouth full of dragon meat.
+\"I'll adopt everyone in the kingdom... and then I'll announce that they've
+been naughty and I've cut off their allowance! It's inspired! Lord Feepness,
+draw up the proclam...\"|
+   Dimwit is interrupted by an explosion of billowing smoke in the center of
+the hall. A gaunt, bearded man strides forth from the smoke!" CR>)
+	       (<EQUAL? ,PROLOGUE-COUNTER 4>
+		<MOVE ,PARCHMENT ,MEGABOZ>
+		<SETG PROLOGUE-NOVICE-COUNTER 7>
+		<TELL
+"\"Show me the one responsible for the statue!\" bellows the newcomer. \"The
+statue that now darkens Fublio!\" Every head silently turns toward Dimwit,
+whose delight at the pyrotechnics is now tinged by fear. \"Go away,\" orders
+Dimwit, waving a shaky hand at the stranger. \"This is a private function.\"|
+   Ignoring the order, the newcomer paces forward, until he is standing
+almost next to you. A scrap of parchment protrudes from his pocket. \"My
+favorite grove of shade trees now lies beneath the toe of that cursed
+statue! No man, be he peasant or king, crosses Megaboz the Magnificent!\"
+He raises his arms, and every guest who knows how dangerous an angry wizard
+can be begins diving under the tables." CR>)
+	       (<EQUAL? ,PROLOGUE-COUNTER 5>
+		<TELL
+"\"Dimwit, thy kingship is a mockery of all worldly values! I curse your
+life! I curse your family! And I curse your Empire!\" Sheets of power begin
+spewing from his fingertips. \"Frobnitz! Frobnosia! Prob Fset Cond! Zmemqb
+Intbl Foo!\" As the last word is spoken, the wizard turns into a vast fireball
+which explodes outward, searing everything in its path">
+		<COND (<NOT ,UNDER-TABLE>
+		       <JIGS-UP
+", including you. I guess those people who dove under tables
+knew what they were doing.">)
+		      (T
+		       <REMOVE ,MEGABOZ>
+		       <FCLEAR ,PARCHMENT ,NDESCBIT>
+		       <MOVE ,PARCHMENT ,HERE>
+		       <MOVE ,CAULDRON ,HERE>
+		       <SETG PROLOGUE-NOVICE-COUNTER 8>
+		       <TELL
+". Then, silence.|
+   You slowly open your eyes, and where last you saw Megaboz, there now sits
+a huge black cauldron, bubbling and roiling and spewing noisome fumes. All
+eyes are transfixed on the incredible cauldron; you seem to be the only one
+who notices the parchment scrap which Megaboz has dropped on the stone floor,
+just beyond your reach." CR>)>)
+	       (<EQUAL? ,PROLOGUE-COUNTER 6>
+		<SETG PROLOGUE-NOVICE-COUNTER 9>
+		<TELL
+"Many of the guests are burned and dying. This doesn't seem to bother Dimwit
+much, but he does seem concerned by the bubbling cauldron. He summons his
+court magicians, who huddle about the cauldron, sampling the brew, casting
+exploratory spells, studying the words of Megaboz's spell, and whispering
+among themselves.|
+    Finally, they seem to reach an agreement. Combining their powers, the
+magicians chant a long and mysterious spell. Then, drained of energy, they
+turn to Dimwit." CR>)
+	       (<EQUAL? ,PROLOGUE-COUNTER 7>
+		<TELL
+"\"We have done our best, your Lordship,\" begins the chief magician, \"but
+the spell of Megaboz is a mighty one indeed. We delayed its effects for 94
+years, but after that time, this castle -- in fact, all the eastlands --
+will be destroyed.\"|
+   Dimwit shrugs. \"Big deal! I won't be around in 94 years!\"|
+   \"Truer than you think,\" continues the chief magician. \"There's more to
+the Curse. Lordship, you and your eleven siblings are doomed!\"|
+   \"Doomed?\" whines Dimwit. \"As in dead? That's not fair! When?\"|
+   \"Moonrise, perhaps a bit later...\" The king lurches suddenly and
+collapses onto his dinner. \"...perhaps a bit sooner.\"|
+   Dimwit's personal physician rushes to the stricken king, and then looks
+solemnly at the assembled guests. \"The king is dead!\"" CR>
+		<DEQUEUE I-PROLOGUE>
+		<SETG MOVES 0>
+		<SETG CLOCK-WAIT T> ;"or MOVES updates to 1 before 1st prompt"
+		<COND (<IN? ,PARCHMENT ,PROTAGONIST>
+		       <MOVE ,PARCHMENT ,GREAT-HALL>)
+		      (T
+		       <REMOVE ,PARCHMENT>)>
+		<STOP> ;"flush commands typed in the prologue"
+		<ROB ,PROTAGONIST>
+		<REMOVE ,DIMWIT>
+		<REMOVE ,HELLHOUND-BONES>
+		<REMOVE ,ROC-TERIYAKI>
+		<REMOVE ,CAKE>
+		<REMOVE ,KEG>
+		<REMOVE ,LINEN>
+		<MOVE ,UNOPENED-NUT ,ROOT-CELLAR>
+		<MOVE ,STRAW ,SCULLERY>
+		<MOVE ,CALENDAR ,GREAT-HALL>
+		<MOVE ,PROCLAMATION ,ENTRANCE-HALL>
+		<FCLEAR ,BANQUET-HALL ,TOUCHBIT>
+		<FCLEAR ,SCULLERY ,TOUCHBIT>
+		<FCLEAR ,KITCHEN ,TOUCHBIT>
+		<FCLEAR ,ROOT-CELLAR ,ONBIT>
+		<FCLEAR ,WINE-CELLAR ,ONBIT>
+		<SETG UNDER-TABLE <>>
+		<REMOVE ,TABLES>
+		<MOVE ,CROWN ,TREASURE-CHEST>
+		<FSET ,CROWN ,TAKEBIT>
+		<FCLEAR ,CROWN ,NDESCBIT>
+		<MOVE ,ROBE ,TRUNK>
+		<FSET ,ROBE ,TAKEBIT>
+		<SETG MID-NAME-NUM <- <RANDOM 12> 1>>
+		<SETG DIAL-NUMBER <RANDOM 2400>>
+		<SETG HOLEY-SLAB <GET ,SLAB-TABLE <- <RANDOM 7> 1>>>
+		<REMOVE ,BANQUET-FOOD>
+		<CRLF> <CRLF>
+		<HIT-ANY-KEY>
+		<TITLE-SCREEN>
+		<INPUT 1>
+		<MOUSE-INPUT?>
+		<SETG CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>
+		<V-$REFRESH>
+		<V-VERSION>
+		<HLIGHT ,H-BOLD>
+		<TELL CR "94 YEARS LATER" ,ELLIPSIS>
+		<HLIGHT ,H-NORMAL>
+		<MARGINAL-PIC ,MAIN-LETTER>
+		<DIROUT ,D-SCREEN-OFF>
+	 	<TELL "Y"> ;"so script doesn't say OU WAKE ON A HARD..."
+	 	<DIROUT ,D-SCREEN-ON>
+		<TELL
+"ou awake on a hard stone floor, sorting the chaotic images from yesterday:
+thousands of Flatheadians fleeing the castle, the last of the royal guard
+attempting to hold off the looters, pathetic attempts by charlatans to
+forestall the Curse, and a rowdy party as the remaining peasants broke into
+the wine cellars" ,ELLIPSIS>
+		<GOTO ,GREAT-HALL>)>>
+
+<ROUTINE I-TAKE-OBJECT ()
+	 <COND (<EQUAL? ,HERE ,BANQUET-HALL>
+		<RETURN-FROM-MAP>
+		<COND (<IN? ,CAKE ,PROTAGONIST>
+		       <REMOVE ,CAKE>
+		       <TELL
+"   A head waiter relieves you of the huge cake and delivers it to Dimwit,
+who claps with delight at his huge private pastry." CR>)
+		      (<IN? ,KEG ,PROTAGONIST>
+		       <REMOVE ,KEG>
+		       <TELL
+"   A sommelier grabs the wine keg and bustles across the crowded hall." CR>)>)
+	       (<EQUAL? ,HERE ,KITCHEN>
+		<RETURN-FROM-MAP>
+		<COND (<IN? ,LINEN ,PROTAGONIST>
+		       <REMOVE ,LINEN>
+		       <TELL
+"   \"Finally,\" gasps one of the head servants, snatching the
+linen and dashing off." CR>)
+		      (<IN? ,ROC-TERIYAKI ,PROTAGONIST>
+		       <REMOVE ,ROC-TERIYAKI>
+		       <TELL
+"   A cook grabs the tray. \"Not well-done enough? Those slobs wouldn't
+know good roc teriyaki if it flew up and bit them on the...\" The rest
+of the cook's comment is lost amidst the din of the kitchen." CR>)>)
+	       (<EQUAL? ,HERE ,SCULLERY>
+		<RETURN-FROM-MAP>
+		<COND (<IN? ,HELLHOUND-BONES ,PROTAGONIST>
+		       <REMOVE ,HELLHOUND-BONES>
+		       <TELL
+"   A scrubwoman grabs the platter, dumps the bones down a chute, and tosses
+the platter into a scrub basin." CR>)>)>>
+
+<ROUTINE I-GIVE-OBJECT ()
+	 <RETURN-FROM-MAP>
+	 <TELL "   ">
+	 <COND (<EQUAL? ,HERE ,BANQUET-HALL>
+		<COND (<IN? ,HELLHOUND-BONES ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 1>
+		       <TELL
+"\"I thought I told you to take that platter into the scullery!\"" CR>)
+		      (<IN? ,ROC-TERIYAKI ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 4>
+		       <TELL
+"\"Well? Get that appetizer back to the kitchen!\"" CR>)
+		      (<IN? ,LINEN ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 4>
+		       <TELL
+"One of the other servants looks appalled and nods you eastward. \"Clean
+linen to the kitchen, imbecile!\"" CR>)
+		      (<FSET? ,HELLHOUND-BONES ,TOUCHBIT>
+		       <MOVE ,ROC-TERIYAKI ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 4>
+		       <TELL
+"A tray of roc teriyaki is dumped into your arms. \"This appetizer is
+undercooked! Bring it back to the kitchen!\" You are nudged eastward." CR>)
+		      (T	
+		       <MOVE ,HELLHOUND-BONES ,PROTAGONIST>
+		       <FSET ,HELLHOUND-BONES ,TOUCHBIT>
+		       <THIS-IS-IT ,HELLHOUND-BONES>
+		       <SETG PROLOGUE-NOVICE-COUNTER 1>
+		       <TELL
+"Someone thrusts a platter of hellhound bones into your hands. \"Bring this
+to the scullery, servant!\" An insistent finger points northeast." CR>)>)
+	       (<EQUAL? ,HERE ,KITCHEN>
+		<COND (<OR <IN? ,CAKE ,PROTAGONIST>
+			   <IN? ,KEG ,PROTAGONIST>>
+		       <SETG PROLOGUE-NOVICE-COUNTER 5>
+		       <TELL "\"Why haven't you brought that ">
+		       <COND (<IN? ,CAKE ,PROTAGONIST>
+			      <TELL "cake">)
+			     (T
+			      <TELL "keg">)>
+		       <TELL
+" out to the hall? The royal executioners are never too busy
+for an impudent servant...\"" CR>)
+		      (<IN? ,HELLHOUND-BONES ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 10>
+		       <TELL
+"\"No! No! No!\" someone is shouting at you. \"Garbage and soiled dishware
+to the scullery!\" A strong arm spins you around to the north." CR>)
+		      (<FSET? ,CAKE ,TOUCHBIT>
+		       <SETG PROLOGUE-NOVICE-COUNTER 5>
+		       <MOVE ,KEG ,PROTAGONIST>
+		       <TELL
+"A wine steward bounds up the stairs and deposits a huge wine keg onto your
+shoulder. \"For the banquet hall!\" he calls over his shoulder." CR>)
+		      (T
+		       <FSET ,CAKE ,TOUCHBIT>
+		       <MOVE ,CAKE ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 5>
+		       <TELL
+"A baker gives you an enormous cake in the shape of Double Fanucci trebled
+fromps. \"To the king's table,\" he orders, aiming you westward." CR>)>)
+	       (<EQUAL? ,HERE ,SCULLERY>
+		<COND (<OR <IN? ,ROC-TERIYAKI ,PROTAGONIST>
+			   <IN? ,CAKE ,PROTAGONIST>
+			   <IN? ,KEG ,PROTAGONIST>>
+		       <TELL "\"Idiot, that goes to the ">
+		       <COND (<IN? ,ROC-TERIYAKI ,PROTAGONIST>
+			      <SETG PROLOGUE-NOVICE-COUNTER 2>
+			      <TELL "kitchen">)
+			     (T
+			      <SETG PROLOGUE-NOVICE-COUNTER 11>
+			      <TELL "banquet hall">)>
+		       <TELL
+". Where do we get our servants, the local madhouse?\" An
+impatient finger points south">
+		       <COND (<NOT <IN? ,ROC-TERIYAKI ,PROTAGONIST>>
+			      <TELL "west">)>
+		       <TELL ,PERIOD-CR>)
+		      (<IN? ,LINEN ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 2>
+		       <TELL
+"\"When I give an order, servant, I mean NOW!\" The force of the voice
+is almost enough to propel you southward." CR>)
+		      (T
+		       <MOVE ,LINEN ,PROTAGONIST>
+		       <SETG PROLOGUE-NOVICE-COUNTER 2>
+		       <TELL
+"Someone drops a load of monogrammed napkins into your arms and pushes you
+toward the south. \"Bring these to the kitchen! They're running low!\"" CR>)>)
+	       (T
+	 	<JIGS-UP
+"\"Servant! You're supposed to be waiting on guests! This is uncalled
+for... unheard of... unforgivable!\" Your execution is quick but painful.">)>>
+
+<OBJECT HELLHOUND-BONES
+	(OWNER HELLHOUND-BONES)
+	(DESC "platter of hellhound bones")
+	(SYNONYM BONES PLATTER)
+	(ADJECTIVE HELLHOUND)
+	(FLAGS TAKEBIT)
+	(ACTION SERVANT-ITEM-F)>
+
+<OBJECT ROC-TERIYAKI
+	(OWNER ROC-TERIYAKI)
+	(DESC "tray of roc teriyaki")
+	(SYNONYM TERIYAKI TRAY APPETIZER)
+	(ADJECTIVE ROC)
+	(FLAGS TAKEBIT)
+	(ACTION SERVANT-ITEM-F)>
+
+<OBJECT CAKE
+	(DESC "cake")
+	(SYNONYM CAKE)
+	(FLAGS TAKEBIT)
+	(ACTION SERVANT-ITEM-F)>
+
+<OBJECT KEG
+	(DESC "wine keg")
+	(SYNONYM KEG WINE)
+	(ADJECTIVE WINE)
+	(FLAGS TAKEBIT)
+	(ACTION SERVANT-ITEM-F)>
+
+<OBJECT LINEN
+	(DESC "pile of napkins")
+	(OWNER LINEN)
+	(SYNONYM PILE NAPKINS LINEN)
+	(ADJECTIVE MONOGRAMMED)
+	(FLAGS TAKEBIT READBIT)
+	(TEXT "The napkin is embroidered with a large, flowery \"F.\"")
+	(ACTION SERVANT-ITEM-F)>
+
+<ROUTINE SERVANT-ITEM-F ()
+	 <COND (<VERB? DROP THROW>
+		<TELL
+"Recalling yesterday's execution of ninety-seven unsatisfactory
+servants, you change your mind." CR>)
+	       (<AND <VERB? CUT>
+		     <PRSO? ,CAKE>>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<VERB? EAT BITE DRINK>
+		<COND (<PRSO? ,ROC-TERIYAKI>
+		       <TELL "But it's undercooked!" CR>)
+		      (<PRSO? ,HELLHOUND-BONES>
+		       <TELL ,THERES-NOTHING "left but bones." CR>)
+		      (T
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT PARCHMENT
+	(OWNER PARCHMENT)
+	(DESC "scrap of parchment")
+	(PLURAL "parchments")
+	(SYNONYM PAPER SCRAP PIECE PARCHMENT)
+	(ADJECTIVE PARCHMENT)
+	(FLAGS NDESCBIT READBIT TAKEBIT BURNBIT)
+	(SIZE 1)
+	(ACTION PARCHMENT-F)>
+
+<ROUTINE PARCHMENT-F ()
+	 <COND (<AND <VERB? WALK-TO>
+		     ,UNDER-TABLE>
+		<PERFORM ,V?STAND>
+		<RTRUE>)
+	       (<VERB? READ>
+		<COND (<NOT <RUNNING? ,I-PROLOGUE>>
+		       <TELL
+"The parchment has been in your family for generations, and is now yellowed
+with age. Family lore claims this parchment was acquired by an ancestor who
+served in Dimwit's court, and dates from the very day that the Curse of
+Megaboz was cast! ">)>
+		<TELL
+"[You can find this scrap of parchment in your ZORK ZERO package.]" CR>)>>
+
+<OBJECT DIMWIT
+	(LOC BANQUET-HALL)
+	(DESC "Lord Dimwit Flathead the Excessive")
+	(LDESC
+"Dimwit is seated at the dais, surrounded by his most trusted advisors.")
+	(SYNONYM FLATHEAD DIMWIT)
+	(ADJECTIVE LORD DIMWIT EXCESSIVE)
+	(FLAGS NARTICLEBIT NDESCBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT)
+	(GENERIC G-DIMWIT-F)
+	(ACTION DIMWIT-F)>
+
+<ROUTINE DIMWIT-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-WINNER>
+		<TELL
+"One of the King's personal attendants gives you a bone-jarring mind-numbing
+smack on the side of your head as you attempt to speak to the King." CR>
+		<STOP>)
+	       (<VERB? RESEARCH>
+		<PICTURED-ENTRY ,DIMWIT-ILL
+"Lord Dimwit Flathead the Excessive ruled the Great Underground Empire from
+770 GUE through 789 GUE. For more information about the life of Dimwit, we
+refer the reader to 'The Lives of the Twelve Flatheads' by Boswell Barwell.">)
+	       (<VERB? EXAMINE>
+		<TELL
+"From his gaudy crown to his 369 course meal, Dimwit is the very model of
+excessiveness." CR>)
+	       (<VERB? KILL KICK MUNG>
+		<TELL
+"You'd never get past his legion of personal guards." CR>)>>
+
+<ROUTINE G-DIMWIT-F (TBL F)
+	 <COND (<EQUAL? <FIND-NOUN .F> ,W?STATUE>
+		<COND (<RUNNING? ,I-PROLOGUE>
+		       ,DIMWIT-STATUE)
+		      (T
+		       <RFALSE>)>)
+	       (<EQUAL? <FIND-NOUN .F> ,W?PAINTING>
+		<RFALSE>)
+	       (T
+		,DIMWIT)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT STARTUP>
+
+<OBJECT TABLES
+	(LOC BANQUET-HALL)
+	(DESC "table")
+	(SYNONYM TABLE TABLES)
+	(FLAGS NDESCBIT SURFACEBIT CONTBIT OPENBIT)
+	(CAPACITY 100)
+	(ACTION TABLES-F)>
+
+<GLOBAL UNDER-TABLE <>>
+
+<ROUTINE TABLES-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The tables are slathered with food and bones and dirty platters and puddles
+or wine and even a few sleeping bodies. Royal guests don't tend to have the
+best manners." CR>)
+	       (<VERB? CRAWL-UNDER HIDE>
+		<COND (,UNDER-TABLE
+		       <TELL ,LOOK-AROUND>)
+		      (T
+		       <SETG UNDER-TABLE T>
+		       <SETG OLD-HERE <>>
+		       <TELL "You are now under the table." CR>)>)
+	       (<AND <VERB? EXIT>
+		     ,UNDER-TABLE>
+		<SETG PRSO <>>
+		<V-STAND>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT CASTLE>
+
+<OBJECT CAULDRON
+	(DESC "cauldron")
+	(SYNONYM CAULDRON KETTLE)
+	(ADJECTIVE BUBBLING ROILING FUMING)
+	(FLAGS CONTBIT OPENBIT)
+	(ACTION CAULDRON-F)>
+
+<ROUTINE CAULDRON-F ("AUX" CAULDRON-SCORE)
+	 <COND (<VERB? CLOSE>
+		<TELL "No lid." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "The cauldron is ">
+		<COND (<FSET? ,OUTER-GATE ,OPENBIT>
+		       <TELL "cold and empty!">)
+		      (,TIME-STOPPED
+		       <TELL "surrounded by unmoving clouds of smoke!">)
+		      (T
+		       <TELL
+<GET ,CAULDRON-DESCS </ ,NUMBER-OF-ITEMS 2>> ".">)>
+		<CRLF>)
+	       (<VERB? SMELL>
+		<TELL "Phew!!!" CR>)
+	       (<VERB? DRINK DRINK-FROM ENTER>
+		<TELL
+"As you near the cauldron, acrid fumes drive you back." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (,TIME-STOPPED
+		       <PERFORM ,V?EXAMINE ,CAULDRON>
+		       <RTRUE>)
+		      (T
+		       <TELL "All you can see is churning smoke." CR>)>)
+	       (<VERB? SEARCH REACH-IN>
+		<TELL
+"You feel nothing within the cauldron, but after you withdraw your hand
+it tingles maddeningly for a few moments." CR>)
+	       (<VERB? PUT>
+		<COND (<RUNNING? I-PROLOGUE>
+		       <REMOVE ,PRSO>
+		       <TELL
+"There is no apparent effect as" T ,PRSO " vanishes into the cauldron." CR>
+		       <RTRUE>)
+		      (,TIME-STOPPED
+		       <MOVE ,PRSO ,HERE>
+		       <TELL
+"As though there were now an invisible bubble around the cauldron," T ,PRSO
+" slides away from it and lands on the floor." CR>
+		       <RTRUE>)>
+		<TELL
+"With a puff of magically charged smoke," T ,PRSO " vanishes amidst the
+vapors. The cauldron's level of activity seems to increase">
+		<COND (<AND <PRSO? ,CUP>
+			    <IN? ,POTION ,CUP>>
+		       <REMOVE ,POTION>)>
+		<SET CAULDRON-SCORE <PUT-ITEM-IN-CAULDRON ,PRSO>>
+		<COND (<NOT <FSET? ,PRSO ,MAGICBIT>>
+		       <TELL " momentarily">)
+		      (<EQUAL? <MOD ,NUMBER-OF-ITEMS 2> 0>
+		       <TELL
+"; it is now " <GET ,CAULDRON-DESCS </ ,NUMBER-OF-ITEMS 2>>>)>
+		<TELL ".">
+		<COND (<AND <EQUAL? ,NUMBER-OF-ITEMS 24>
+			    <NOT ,CAULDRON-MUNGED>>
+		       <DEQUEUE I-JESTER>
+		       <FCLEAR ,GUTTERING-TORCH ,ONBIT>
+		       <FCLEAR ,GUTTERING-TORCH ,FLAMEBIT>
+		       <FCLEAR ,FLICKERING-TORCH ,ONBIT>
+		       <FCLEAR ,FLICKERING-TORCH ,FLAMEBIT>
+		       <FSET ,CLOSET-REBUS-BUTTON ,TOUCHBIT>
+		       <PUTP ,CLOSET-REBUS-BUTTON ,P?SDESC "key-shaped button">
+		       <FSET ,BASEMENT-REBUS-BUTTON ,TOUCHBIT>
+		       <PUTP ,BASEMENT-REBUS-BUTTON ,P?SDESC
+			     "key-shaped button">
+		       <FCLEAR ,IRON-MAIDEN ,OPENBIT>
+		       <FCLEAR ,SNAKE-PIT ,OPENBIT>
+		       <FCLEAR ,WATER-CHAMBER ,OPENBIT>
+		       <SETG TIME-STOPPED T>
+		       <TELL
+" Suddenly, the smoke stops swirling; in fact, everything in sight has
+ground to a halt. It is as if time itself has stopped. You don't seem to
+be affected, however.">
+		       <COND (<IN? ,JESTER ,HERE>
+			      <REMOVE-J>
+			      <TELL
+" In addition, the jester has vanished.">)>)>
+		<CRLF>
+		<INC-SCORE .CAULDRON-SCORE>)>>
+
+<ROUTINE PUT-ITEM-IN-CAULDRON (OBJ "AUX" X N (CAULDRON-SCORE 0))
+	 <SET X <FIRST? .OBJ>>
+	 <REPEAT ()
+	   <COND (.X
+		  <SET N <NEXT? .X>>
+		  <COND (<NOT <FSET? .X ,NDESCBIT>> ;"i.e. flask poison"
+			 <SET CAULDRON-SCORE
+			      <+ .CAULDRON-SCORE <PUT-ITEM-IN-CAULDRON .X>>>)>)
+		 (T
+		  <RETURN>)>
+	   <SET X .N>>
+	 <COND (<FSET? .OBJ ,MAGICBIT>
+		<REMOVE .OBJ>
+		<SETG NUMBER-OF-ITEMS <+ ,NUMBER-OF-ITEMS 1>>
+		<SET CAULDRON-SCORE <+ .CAULDRON-SCORE 5>>
+		<COND (<EQUAL? <GETP .OBJ ,P?VALUE> 12>
+		       ;"it's possible you never took crown, landscape"
+		       <SET CAULDRON-SCORE <+ .CAULDRON-SCORE 12>>)>)
+	       (T
+		<COND (<EQUAL? .OBJ ,LARGE-VIAL>
+		       <REMOVE ,LARGE-VIAL-WATER>
+		       <SETG LARGE-VIAL-GLOOPS 0>)
+		      (<EQUAL? .OBJ ,SMALL-VIAL>
+		       <REMOVE ,SMALL-VIAL-WATER>
+		       <SETG SMALL-VIAL-GLOOPS 0>)>
+		<FCLEAR .OBJ ,ONBIT>
+ 		<QUEUE I-CAULDRON 3>
+		<COND (<NOT <AND <EQUAL? .OBJ ,NUT>
+			    	 <IN? ,NUT ,UNOPENED-NUT>>>
+		       <MOVE .OBJ ,MEGABOZ>)>
+		<COND (<PRSO? ,PERCH>
+		       <SETG REMOVED-PERCH-LOC ,MEGABOZ>)>
+		<SET CAULDRON-SCORE <- .CAULDRON-SCORE 5>>
+		<SETG CAULDRON-MUNGED T>)>
+	 <RETURN .CAULDRON-SCORE>>
+
+<GLOBAL CAULDRON-MUNGED <>>
+
+<GLOBAL TIME-STOPPED <>>
+
+<GLOBAL NUMBER-OF-ITEMS 0>
+
+<CONSTANT CAULDRON-DESCS
+	<PTABLE
+	 ;0 "barely bubbling"
+	 ;1 "bubbling quietly"
+	 ;2 "bubbling actively"
+	 ;3 "bubbling very actively"
+	 ;4 "bubbling and churning"
+	 ;5 "bubbling, churning, and smoking heavily"
+	 ;6 "churning actively and emitting large puffs of smoke"
+	 ;7 "violently churning and emitting huge puffs of dark smoke"
+	 ;8 "churning very violently and giving off clouds of black smoke"
+	 ;9 "churning and roiling beneath a whirlpool of thick black smoke"
+	;10 "boiling violently beneath a gathering storm of noisome smoke"
+	;11 "boiling with amazing energy, sending steaming geysers shooting
+up into the roiling black clouds which swirl around it"
+	;12 "almost lost amongst the clouds of dark power and energy which
+surround the kettle, glowing and expanding from explosions deep within">>
+
+<ROUTINE I-CAULDRON ("AUX" X (TWO <>))
+	 <COND (<NOT <FIRST? ,MEGABOZ>>
+		<RFALSE>)
+	       (<IN? ,PERCH ,MEGABOZ>
+		<SETG REMOVED-PERCH-LOC <>>)>
+	 <COND (<EQUAL? ,HERE ,BANQUET-HALL>
+		<RETURN-FROM-MAP>
+		<TELL
+"   With a startling belch of green flame and vile-smelling smoke, the
+cauldron regurgitates">
+		<COND (<AND <SET X <FIRST? ,MEGABOZ>>
+			    <NEXT? .X>>
+		       <SET TWO T>)>
+		<D-CONTENTS ,MEGABOZ 2>
+		<COND (.TWO
+		       <TELL " They ">)
+		      (T
+		       <TELL " It ">)>
+		<COND (<AND <PROB 15>
+			    <NOT .TWO>
+			    <G? <GETP .X ,P?SIZE> 4>>
+		       <JIGS-UP
+"strikes your head with unnatural force, sending you to an unnatural death.">)
+		      (T
+		       <COND (.TWO
+			      <TELL "whiz">)
+			     (T
+			      <TELL "whizzes">)>
+		       <TELL " past your ear with alarming velocity.">)>)>
+	 <ROB ,MEGABOZ ,BANQUET-HALL>
+	 <COND (<EQUAL? ,HERE ,BANQUET-HALL>
+		<CRLF>)
+	       (T
+		<RFALSE>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT STARTUP ;0>
+
+<OBJECT MEGABOZ
+	(DESC "angry wizard")
+	(DESCFCN MEGABOZ-F)
+	(SYNONYM WIZARD MEGABOZ MAN)
+	(ADJECTIVE GAUNT OLD ANGRY)
+	(FLAGS VOWELBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION MEGABOZ-F)>
+
+<ROUTINE MEGABOZ-F ("OPT" (ARG <>))
+	 <COND (<EQUAL? .ARG ,M-OBJDESC ,M-OBJDESC?>
+		<COND (<EQUAL? .ARG ,M-OBJDESC?>
+		       <RTRUE>)>
+		<TELL
+"   An angry wizard stands defiantly in the center of the hall.">
+		<COND (<IN? ,PARCHMENT ,MEGABOZ>	;"SWG 4-Oct-88"
+		       ;<NOT <FSET? ,PARCHMENT ,NDESCBIT>>
+		       <TELL
+" A scrap of parchment sticks out from a pocket of his robe.">)>
+		<RTRUE>)
+	       (<OR <EQUAL? .ARG ,M-WINNER>
+		    <VERB? TELL>>
+		<TELL "Megaboz ignores you." CR>
+		<RFATAL>)
+	       (<VERB? RESEARCH>
+		<PICTURED-ENTRY ,MEGABOZ-ILL ,MEGABOZ-TEXT>)
+	       (<VERB? EXAMINE>
+		<TELL
+"Even the most ignorant lay observer can see that the gaunt man is a powerful
+mage. His wizardly robe and cap crackle with magical energy, and his darting
+eyes seem to see inside everyone he looks at." CR>)
+	       (<AND <VERB? KICK KISS KILL MUNG>
+		     <PRSO? ,MEGABOZ>>
+		<JIGS-UP
+"The wizard casually dispatches you with a shaft of fire, much as you might
+casually dispatch a mosquito that was bothering you.">)>>
+
+<BEGIN-SEGMENT CASTLE>
+
+<CONSTANT MEGABOZ-TEXT
+"Megaboz was a mysterious wizard who lived a hermit's life in the Fublio
+Valley. Some say he cast a Curse which will someday destroy the Empire, but
+royal spokesmen have denied all such rumors. Megaboz vanished in 789 GUE;
+it is said that the effort of casting the Curse destroyed him.">
+
+<END-SEGMENT>
diff --git a/pstack.zap b/pstack.zap
new file mode 100644
index 0000000..0906b23
--- /dev/null
+++ b/pstack.zap
@@ -0,0 +1,18 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PEEK-PSTACK,S,OFFS,N,VAL
+?PRG1:	POP	S >VAL
+	PUSH	VAL
+	INC	'N
+	DLESS?	'OFFS,0 \?PRG1
+?PRG5:	DLESS?	'N,0 /?REP6
+	POP	
+	XPUSH	STACK,S /?PRG5
+	JUMP	?PRG5
+?REP6:	RETURN	VAL
+
+	.ENDSEG
+
+	.ENDI
diff --git a/pstack.zil b/pstack.zil
new file mode 100644
index 0000000..c0f6af1
--- /dev/null
+++ b/pstack.zil
@@ -0,0 +1,116 @@
+"PSTACK file for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZPACKAGE "PSTACK">
+
+<ENTRY ALLOCATE-PSTACK MAX-PSTACK-SIZE PUSH-PSTACK POP-PSTACK
+       PEEK-PSTACK PSTACK FLUSH-PSTACK PSTACK-PTR
+       CLEAR-PSTACK PSTACK-DATA PSTACK-EMPTY?>
+
+<USE "NEWSTRUC">
+
+<FILE-FLAGS ;MDL-ZIL? ;ZAP-TO-SOURCE-DIRECTORY?>
+
+<BEGIN-SEGMENT 0>
+
+<MSETG MAX-PSTACK-SIZE 21 ;32>	;"STATE & DATA could be 11"
+
+<NEWTYPE PSTACK TABLE>
+
+<DEFMAC ALLOCATE-PSTACK () <ITABLE ,MAX-PSTACK-SIZE 0>>
+
+<DEFMAC PSTACK-PTR ('S "OPT" 'NEW)
+  <COND (<ASSIGNED? NEW>
+	 <FORM ZPUT .S 0 .NEW>)
+	(T
+	 <CHTYPE [<FORM ZGET .S 0> FIX] ADECL>)>>
+
+<DEFMAC PSTACK-EMPTY? ('PSTACK)
+  <COND (<CHECK-VERSION? YZIP>
+	 <FORM EQUAL? <- ,MAX-PSTACK-SIZE 1> <FORM PSTACK-PTR .PSTACK>>)
+	(T
+	 <FORM 0? <FORM PSTACK-PTR .PSTACK>>)>>
+
+<DEFMAC CLEAR-PSTACK ('S)
+  <COND (<CHECK-VERSION? YZIP>
+	 <FORM PSTACK-PTR <CHTYPE [.S PSTACK] ADECL> <- ,MAX-PSTACK-SIZE 1>>)
+	(T
+	 <FORM PSTACK-PTR <CHTYPE [.S PSTACK] ADECL> 0>)>>
+
+<DEFINE20 PRINT-PSTACK (S:PSTACK "OPT" (OUTCHAN:CHANNEL .OUTCHAN)
+		      "AUX" (P <PSTACK-PTR .S>))
+  <PRINT-MANY .OUTCHAN PRINC
+	      "#PSTACK ["
+	      .P
+	      " [">
+  <REPEAT ((D <ZREST .S 2>))
+    <COND (<L=? .P 0> <RETURN>)>
+    <PRIN1 <ZGET .D 0>>
+    <PRINC " ">
+    <SET D <ZREST .D 2>>
+    <SET P <- .P 1>>>
+  <PRINC "]]">>
+
+<COND (<CHECK-VERSION? YZIP>
+       <DEFMAC PUSH-PSTACK ('S 'OBJ) <FORM XPUSH .OBJ .S>>)
+      (T
+<IF-P-DEBUGGING-PARSER
+<GLOBAL PSTACK-WARN:NUMBER 20>>
+
+<ROUTINE PUSH-PSTACK (S:PSTACK OBJ "AUX" TMP)
+  <SET TMP <+ 1 <PSTACK-PTR .S>>>
+  <COND (<L=? ,MAX-PSTACK-SIZE .TMP>
+	 <P-NO-MEM-ROUTINE>
+	 <RFALSE>)>
+  <IF-P-DEBUGGING-PARSER
+	<COND (<L? ,PSTACK-WARN .TMP>
+	       <SETG PSTACK-WARN .TMP>
+	       <PRINTI "[PSTACK: ">
+	       <PRINTN <- ,MAX-PSTACK-SIZE .TMP>>
+	       <PRINTI " left!]|">)>>
+  <PSTACK-PTR .S .TMP>
+  <ZPUT .S .TMP .OBJ>
+  .S>)>
+
+<COND (<CHECK-VERSION? YZIP>
+       <DEFMAC FLUSH-PSTACK ('S "OPT" ('N 1))
+	       <FORM FSTACK .N .S>>)
+      (T
+<ROUTINE FLUSH-PSTACK (S:PSTACK "OPT" (N:FIX 1))
+	<COND (<G? 0 <SET N <- <PSTACK-PTR .S> .N>>>
+	       <SET N 0>)>
+	<PSTACK-PTR .S .N>
+	.S>)>
+
+<COND (<CHECK-VERSION? YZIP>
+       <DEFMAC POP-PSTACK ('S "OPT" ('N 1))
+	       <COND (<1? .N>
+		      <FORM POP .S>)
+		     (T
+		      <FORM FSTACK .N .S>)>>)
+      (T
+<ROUTINE POP-PSTACK (S:PSTACK "OPT" (N:FIX 1) "AUX" (OBJ <PEEK-PSTACK .S>))
+  <COND (<NOT <0? .N>>
+	 <FLUSH-PSTACK .S .N>)>
+  .OBJ>)>
+
+<COND (<CHECK-VERSION? YZIP>
+       <ROUTINE PEEK-PSTACK (S:PSTACK "OPT" (OFFS:FIX 0) "AUX" (N 0) VAL)
+	       <REPEAT ()
+		       <SET VAL <POP-PSTACK .S>>
+		       <PUSH .VAL>
+		       <INC N>
+		       <COND (<DLESS? OFFS 0>
+			      <RETURN>)>>
+	       <REPEAT ()
+		       <COND (<DLESS? N 0>
+			      <RETURN>)
+			     (T
+			      <PUSH-PSTACK .S <POP>>)>>
+	       .VAL>)
+      (T
+       <ROUTINE PEEK-PSTACK (S:PSTACK "OPT" (OFFS:FIX 0))
+	       <ZGET .S <- <PSTACK-PTR .S> .OFFS>>>)>
+
+<END-SEGMENT>
+<ENDPACKAGE>
diff --git a/reds.zap b/reds.zap
new file mode 100644
index 0000000..74e49d5
--- /dev/null
+++ b/reds.zap
@@ -0,0 +1,1441 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	RED-FCN,N,TYP
+	ZERO?	N /TRUE
+	EQUAL?	N,1 \FALSE
+	POP	DATA-STACK
+	RSTACK	
+
+
+	.FUNCT	RED-PART,N,TYP,WD
+	ZERO?	N /TRUE
+	POP	DATA-STACK >WD
+	EQUAL?	WD,TRUE-VALUE,W?OF /?CCL5
+	CALL	WORD-TYPE?,WD,P-PARTICLE-CODE
+	ZERO?	STACK /FALSE
+?CCL5:	EQUAL?	N,1 \?CCL9
+	RETURN	WD
+?CCL9:	POP	DATA-STACK
+	RSTACK	
+
+
+	.FUNCT	GET-SYNTAX,VA,NUM,PREP,GWIM,LEN,CT,S2,P2,GWIM-NOW,SYN
+	EQUAL?	PREP,1 \?CND1
+	SET	'PREP,0
+?CND1:	EQUAL?	NUM,1 \?CCL5
+	SET	'LEN,6
+	JUMP	?CND3
+?CCL5:	SET	'LEN,10
+?CND3:	GET	VA,0 >CT
+	GET	PARSE-RESULT,8 >P2
+	SET	'GWIM-NOW,FALSE-VALUE
+	ADD	VA,2 >SYN
+?PRG6:	GET	SYN,1
+	EQUAL?	PREP,STACK \?CCL10
+	EQUAL?	NUM,1 /?CTR9
+	GET	SYN,3 >S2
+	EQUAL?	P2,S2 /?CTR9
+	ZERO?	S2 \?PRD16
+	EQUAL?	P2,1 /?CTR9
+?PRD16:	ZERO?	GWIM-NOW /?CCL10
+	EQUAL?	NUM,1 \?CND22
+	SET	'S2,PREP
+?CND22:	ZERO?	S2 /?CCL10
+	PUT	GWIM-MSG,0,S2
+?CTR9:	PUT	PARSE-RESULT,3,SYN
+	GET	SYN,0
+	PUT	PARSE-RESULT,4,STACK
+	PUT	PARSE-RESULT,7,PREP
+	RETURN	SYN
+?CCL10:	DLESS?	'CT,1 \?CCL26
+	ZERO?	GWIM /FALSE
+	ZERO?	GWIM-NOW \FALSE
+	GET	VA,0 >CT
+	SET	'GWIM-NOW,TRUE-VALUE
+	ADD	VA,2 >SYN
+	JUMP	?PRG6
+?CCL26:	ADD	SYN,LEN >SYN
+	JUMP	?PRG6
+
+
+	.FUNCT	RED-SV,N,TYP,SYN,VERB,PART,DATA,OBJ
+	POP	DATA-STACK >PART
+	POP	DATA-STACK
+	GET	PARSE-RESULT,1
+	CALL2	ROOT-VERB,STACK >VERB
+	ZERO?	VERB /FALSE
+	GET	VERB,3 >DATA
+	EQUAL?	PART,1 \?CCL6
+	GET	DATA,0
+	GRTR?	0,STACK /?CCL6
+	GET	DATA,0
+	PUT	PARSE-RESULT,4,STACK
+	RTRUE	
+?CCL6:	GET	DATA,2 >SYN
+	ZERO?	SYN /?CCL10
+	CALL	GET-SYNTAX,SYN,1,PART,TRUE-VALUE >SYN
+	ZERO?	SYN /?CCL10
+	CALL	DETERMINE-OBJ,FALSE-VALUE,1 >OBJ
+	ZERO?	OBJ /?CCL10
+	PUT	PARSE-RESULT,5,OBJ
+	RTRUE	
+?CCL10:	GET	DATA,3 >SYN
+	ZERO?	SYN /FALSE
+	CALL	GET-SYNTAX,SYN,2,PART,TRUE-VALUE >SYN
+	ZERO?	SYN /FALSE
+	CALL	DETERMINE-OBJ,FALSE-VALUE,1 >OBJ
+	ZERO?	OBJ /FALSE
+	PUT	PARSE-RESULT,5,OBJ
+	GET	OBJ,3
+	PUT	ORPHAN-S,O-OBJECT,STACK
+	CALL	DETERMINE-OBJ,FALSE-VALUE,2 >OBJ
+	ZERO?	OBJ /FALSE
+	PUT	PARSE-RESULT,6,OBJ
+	RTRUE	
+
+
+	.FUNCT	ROOT-VERB,VERB,DATA,X,?TMP1
+	ADD	WORD-FLAG-TABLE,2 >?TMP1
+	GET	WORD-FLAG-TABLE,0
+	INTBL?	VERB,?TMP1,STACK,132 >X \?CCL7
+	GET	X,1
+	JUMP	?CND5
+?CCL7:	PUSH	FALSE-VALUE
+?CND5:	ZERO?	STACK /?CND1
+	GET	VERB,3 >DATA
+	ZERO?	DATA /?CND1
+	SET	'VERB,DATA
+?CND1:	RETURN	VERB
+
+
+	.FUNCT	RED-SVN,N,TYP,SYN1,SYN2,VERB,PART,DATA,OBJ,OBJ1,OBJ2
+	POP	DATA-STACK >OBJ
+	POP	DATA-STACK >PART
+	POP	DATA-STACK
+	GET	PARSE-RESULT,1
+	CALL2	ROOT-VERB,STACK >VERB
+	ZERO?	VERB /FALSE
+	GET	VERB,3 >DATA
+	GET	PARSE-RESULT,8
+	ZERO?	STACK \?CCL6
+	GET	DATA,2 >SYN1
+	ZERO?	SYN1 /?CCL6
+	CALL	GET-SYNTAX,SYN1,1,PART >SYN1
+	ZERO?	SYN1 /?CCL6
+	CALL	DETERMINE-OBJ,OBJ,1 >OBJ1
+	ZERO?	OBJ1 \?CCL12
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,OBJ,PART
+	RSTACK	
+?CCL12:	GET	OBJ1,3
+	EQUAL?	INTDIR,STACK \?CCL14
+	GET	PARSE-RESULT,1
+	CALL	DIR-VERB-WORD?,STACK
+	ZERO?	STACK /?CCL14
+	GET	OBJ,2
+	XPUSH	STACK,DATA-STACK \?CCL14
+	CALL	RED-SD,1,TYP
+	RSTACK	
+?CCL14:	PUT	PARSE-RESULT,5,OBJ1
+	RETURN	PARSE-RESULT
+?CCL6:	GET	DATA,3 >SYN2
+	ZERO?	SYN2 /FALSE
+	CALL	GET-SYNTAX,SYN2,2,PART,TRUE-VALUE >SYN2
+	ZERO?	SYN2 /FALSE
+	CALL	DETERMINE-OBJ,OBJ,1 >OBJ1
+	ZERO?	OBJ1 \?CCL24
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,OBJ,PART
+	RSTACK	
+?CCL24:	PUT	PARSE-RESULT,5,OBJ1
+	GET	OBJ1,3
+	PUT	ORPHAN-S,O-OBJECT,STACK
+	CALL	DETERMINE-OBJ,FALSE-VALUE,2 >OBJ2
+	ZERO?	OBJ2 /FALSE
+	PUT	PARSE-RESULT,6,OBJ2
+	RETURN	PARSE-RESULT
+
+
+	.FUNCT	RED-SVNP,N,TYP,PART,OBJ
+	POP	DATA-STACK >PART
+	POP	DATA-STACK >OBJ
+	XPUSH	PART,DATA-STACK /?BOGUS1
+?BOGUS1:	XPUSH	OBJ,DATA-STACK /?BOGUS2
+?BOGUS2:	CALL	RED-SVN,N,TYP
+	ZERO?	STACK \TRUE
+	GET	PARSE-RESULT,1
+	XPUSH	STACK,DATA-STACK /?BOGUS6
+?BOGUS6:	XPUSH	TRUE-VALUE,DATA-STACK /?BOGUS7
+?BOGUS7:	PUT	PARSE-RESULT,8,PART
+	XPUSH	OBJ,DATA-STACK /?BOGUS8
+?BOGUS8:	CALL	RED-SVN,N,TYP
+	RSTACK	
+
+
+	.FUNCT	RED-SVNPN,N,TYP,OBJ2,OBJ1
+	POP	DATA-STACK >OBJ2
+	POP	DATA-STACK
+	PUT	PARSE-RESULT,8,STACK
+	POP	DATA-STACK >OBJ1
+	XPUSH	OBJ1,DATA-STACK /?BOGUS1
+?BOGUS1:	XPUSH	OBJ2,DATA-STACK /?BOGUS2
+?BOGUS2:	DEC	'N
+	CALL	RED-SVPNN,N,TYP
+	RSTACK	
+
+
+	.FUNCT	RED-SVPNN,N,TYP,N1,N2,PART,OBJ1,OBJ2,SYN,?TMP1
+	POP	DATA-STACK >N2
+	GET	PARSE-RESULT,8
+	ZERO?	STACK \?CND1
+	GET	GWIM-MSG,0 >?TMP1
+	ZERO?	?TMP1 /?PRD5
+	PUSH	?TMP1
+	JUMP	?PEN3
+?PRD5:	PUSH	1
+?PEN3:	PUT	PARSE-RESULT,8,STACK
+?CND1:	POP	DATA-STACK >N1
+	EQUAL?	N,4 \?CND6
+	POP	DATA-STACK >PART
+?CND6:	GET	PARSE-RESULT,1
+	CALL2	ROOT-VERB,STACK >SYN
+	ZERO?	SYN \?CCL10
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL10:	GET	SYN,3
+	GET	STACK,3 >SYN
+	ZERO?	SYN \?CCL12
+	CALL	PARSER-ERROR,0,PARSER-ERROR-TMNOUN
+	RSTACK	
+?CCL12:	CALL	GET-SYNTAX,SYN,2,PART >SYN
+	ZERO?	SYN \?CCL14
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL14:	CALL	DETERMINE-OBJ,N1,1 >OBJ1
+	ZERO?	OBJ1 \?CCL16
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,N1,PART
+	RSTACK	
+?CCL16:	CALL	DETERMINE-OBJ,N2,2 >OBJ2
+	ZERO?	OBJ2 \?CCL18
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,N2,PART
+	RSTACK	
+?CCL18:	CALL	DIR-VERB-PRSI?,OBJ2
+	ZERO?	STACK /?CCL20
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL20:	POP	DATA-STACK
+	PUT	PARSE-RESULT,5,OBJ1
+	PUT	PARSE-RESULT,6,OBJ2
+	RTRUE	
+
+
+	.FUNCT	RED-SVPNPN,N,TYP,N2
+	POP	DATA-STACK >N2
+	POP	DATA-STACK
+	PUT	PARSE-RESULT,8,STACK
+	XPUSH	N2,DATA-STACK /?BOGUS1
+?BOGUS1:	SUB	N,1
+	CALL	RED-SVPNN,STACK,TYP
+	RSTACK	
+
+
+	.FUNCT	RED-SD,N,TYP,V,NEW-OBJECT
+	SET	'V,W?WALK
+	PUT	PARSE-RESULT,1,V
+	GET	V,3
+	GET	STACK,2
+	ICALL	GET-SYNTAX,STACK,1,FALSE-VALUE
+	POP	DATA-STACK
+	GETB	STACK,6 >P-WALK-DIR
+	CALL	DO-PMEM-ALLOC,4,NOUN-PHRASE-MIN-LENGTH >NEW-OBJECT
+	PUT	NEW-OBJECT,1,1
+	PUT	NEW-OBJECT,3,P-WALK-DIR
+	PUT	PARSE-RESULT,5,NEW-OBJECT
+	RTRUE	
+
+
+	.FUNCT	RED-SVD,N,TYP,DIR
+	POP	DATA-STACK >DIR
+	GET	PARSE-RESULT,1
+	CALL	DIR-VERB-WORD?,STACK
+	ZERO?	STACK /FALSE
+	POP	DATA-STACK
+	XPUSH	DIR,DATA-STACK /?BOGUS4
+?BOGUS4:	SUB	N,1
+	CALL	RED-SD,STACK,TYP
+	RSTACK	
+
+
+	.FUNCT	RED-SP,N,TYP,A,?TMP1
+	POP	DATA-STACK >A
+	DEC	'N
+	EQUAL?	N,2 \?CND1
+	EQUAL?	TRUE-VALUE,A /?CND1
+	GET	A,3 >?TMP1
+	ZERO?	?TMP1 /?PRD7
+	PUSH	?TMP1
+	JUMP	?PEN5
+?PRD7:	PUSH	A
+?PEN5:	PUT	PARSE-RESULT,0,STACK
+?CND1:	FSTACK	N,DATA-STACK
+	RETURN	PARSE-RESULT
+
+
+	.FUNCT	IREDUCE-EXCEPTION,ENP,NP
+	GET	ENP,2
+	EQUAL?	STACK,W?ONE \?CND1
+	GET	NP,2
+	PUT	ENP,2,STACK
+?CND1:	GET	ENP,3
+	ZERO?	STACK \?CND3
+	PUT	ENP,3,NP-QUANT-ALL
+?CND3:	SET	'SEARCH-FLAGS,31
+	CALL	DETERMINE-NP,0,0,ENP
+	RSTACK	
+
+
+	.FUNCT	REDUCE-EXCEPT-IT,PHR,NP
+	GET	PHR,1
+	EQUAL?	1,STACK \FALSE
+	GET	PHR,3
+	EQUAL?	IT,STACK \FALSE
+	ZERO?	P-IT-OBJECT \?CCL8
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,NP
+	RSTACK	
+?CCL8:	PUT	PHR,3,P-IT-OBJECT
+	RTRUE	
+
+
+	.FUNCT	REDUCE-EXCEPTION,PP,NP,ENP,NOUN-PHRASE,NEW-OBJECT,NNP,GOOD,BAD
+	GET	PP,2 >ENP
+	GETB	ENP,1
+	EQUAL?	STACK,2 \?CCL3
+	CALL	IREDUCE-EXCEPTION,ENP,NP >NOUN-PHRASE
+	ZERO?	NOUN-PHRASE /FALSE
+	ICALL	REDUCE-EXCEPT-IT,NOUN-PHRASE,ENP
+	CALL	DO-PMEM-ALLOC,3,3 >NEW-OBJECT
+	PUT	NEW-OBJECT,2,ENP
+	PUT	NEW-OBJECT,3,NOUN-PHRASE
+	PUT	NP,6,NEW-OBJECT
+	RETURN	NP
+?CCL3:	SET	'NNP,ENP
+	SET	'GOOD,FALSE-VALUE
+?PRG7:	GET	NNP,2 >BAD
+	CALL	IREDUCE-EXCEPTION,BAD,NP >NEW-OBJECT
+	ZERO?	NEW-OBJECT /?CND9
+	SET	'GOOD,TRUE-VALUE
+	ICALL	REDUCE-EXCEPT-IT,NEW-OBJECT,BAD
+	PUT	NNP,3,NEW-OBJECT
+?CND9:	GET	NNP,1 >NNP
+	ZERO?	NNP \?PRG7
+	ZERO?	GOOD /?CCL15
+	PUT	NP,6,ENP
+	RETURN	NP
+?CCL15:	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,BAD
+	RSTACK	
+
+
+	.FUNCT	REDUCE-LOCATION,PP,SYN,WHICH,SEARCH,TEST,PREP,NP,RLOC,BIT,MSG,OLD-OBJECT,NEW-OBJECT
+	ZERO?	SYN \?CCL3
+	SET	'SEARCH,0
+	JUMP	?CND1
+?CCL3:	EQUAL?	WHICH,1 \?CCL6
+	GETB	SYN,5 >SEARCH
+	JUMP	?CND1
+?CCL6:	GETB	SYN,9 >SEARCH
+?CND1:	ZERO?	SYN \?CCL9
+	SET	'TEST,0
+	JUMP	?CND7
+?CCL9:	EQUAL?	WHICH,1 \?CCL12
+	GETB	SYN,4 >TEST
+	JUMP	?CND7
+?CCL12:	GETB	SYN,8 >TEST
+?CND7:	GET	PP,1 >PREP
+	GET	PP,2 >NP
+	ZERO?	SEARCH \?CND13
+	SET	'SEARCH,5
+?CND13:	COPYT	PREP-BIT,0,6
+	EQUAL?	PREP,W?BUT,W?EXCEPT /FALSE
+	EQUAL?	PREP,W?IN,W?INSIDE \?CCL19
+	SET	'BIT,CONTBIT
+	SET	'MSG,P-NO-INSIDE
+	JUMP	?CND15
+?CCL19:	EQUAL?	PREP,W?ON,W?OFF \?CCL21
+	SET	'BIT,SURFACEBIT
+	SET	'MSG,P-NO-SURFACE
+	JUMP	?CND15
+?CCL21:	EQUAL?	PREP,W?FROM \FALSE
+	SET	'BIT,SURFACEBIT
+	PUT	PREP-BIT,1,PERSONBIT
+	PUT	PREP-BIT,2,CONTBIT
+	SET	'MSG,P-NOTHING
+?CND15:	PUT	PREP-BIT,0,BIT
+	GETB	NP,1
+	EQUAL?	STACK,2 \FALSE
+	GET	NP,5 >RLOC
+	ZERO?	RLOC /?CND27
+	GET	RLOC,2
+	GET	STACK,3 >RLOC
+?CND27:	SET	'OLD-OBJECT,FINDER
+	PUT	OLD-OBJECT,0,TEST
+	PUT	OLD-OBJECT,1,0
+	PUT	OLD-OBJECT,2,FALSE-VALUE
+	PUT	OLD-OBJECT,3,FALSE-VALUE
+	PUT	OLD-OBJECT,4,0
+	GET	NP,1
+	PUT	OLD-OBJECT,5,STACK
+	GET	NP,2
+	PUT	OLD-OBJECT,6,STACK
+	PUT	OLD-OBJECT,7,FALSE-VALUE
+	PUT	OLD-OBJECT,8,FALSE-VALUE
+	PUT	OLD-OBJECT,9,SEARCH-RES
+	CALL2	NUMERIC-ADJ?,NP
+	PUT	OLD-OBJECT,10,STACK
+	ZERO?	RLOC \?CCL31
+	PUSH	SEARCH
+	JUMP	?CND29
+?CCL31:	PUSH	0
+?CND29:	CALL	FIND-OBJECTS,STACK,RLOC >SEARCH
+	ZERO?	SEARCH /?CCL34
+	CALL	DO-PMEM-ALLOC,4,NOUN-PHRASE-MIN-LENGTH >OLD-OBJECT
+	PUT	OLD-OBJECT,1,1
+	GET	SEARCH-RES,4
+	PUT	OLD-OBJECT,3,STACK
+	PUT	OLD-OBJECT,4,NP
+	SET	'RLOC,OLD-OBJECT
+	CALL	DO-PMEM-ALLOC,6,2 >NEW-OBJECT
+	PUT	NEW-OBJECT,1,PREP
+	PUT	NEW-OBJECT,2,RLOC
+	RETURN	NEW-OBJECT
+?CCL34:	GET	SEARCH-RES,1
+	ZERO?	STACK \?CCL36
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,NP,PREP
+	RSTACK	
+?CCL36:	CALL2	READY-TO-DISAMBIGUATE?,NP
+	ZERO?	STACK /FALSE
+	GET	PARSE-RESULT,1
+	CALL	PARSER-ERROR,0,PARSER-ERROR-ORPH-NP,NP,STACK
+	RSTACK	
+
+
+	.FUNCT	DETERMINE-OBJ,OBJ,NUM,PICK,VAL,RES,COUNT,SYN,S-FLAGS,SEARCH-ACT,OLD-OBJECT,NO,CT,PTR,CNT,TMP
+	GET	PARSE-RESULT,3 >SYN
+	EQUAL?	NUM,1 \?CCL3
+	GETB	SYN,5 >S-FLAGS
+	JUMP	?CND1
+?CCL3:	GETB	SYN,9 >S-FLAGS
+?CND1:	EQUAL?	NUM,1 \?CCL6
+	GETB	SYN,4 >SEARCH-ACT
+	JUMP	?CND4
+?CCL6:	GETB	SYN,8 >SEARCH-ACT
+?CND4:	ZERO?	OBJ \?CCL9
+	SET	'OLD-OBJECT,FINDER
+	PUT	OLD-OBJECT,0,SEARCH-ACT
+	PUT	OLD-OBJECT,1,FIND-FLAGS-GWIM
+	PUT	OLD-OBJECT,2,FALSE-VALUE
+	PUT	OLD-OBJECT,3,SYN
+	PUT	OLD-OBJECT,4,NUM
+	PUT	OLD-OBJECT,5,FALSE-VALUE
+	PUT	OLD-OBJECT,6,FALSE-VALUE
+	PUT	OLD-OBJECT,7,FALSE-VALUE
+	PUT	OLD-OBJECT,8,FALSE-VALUE
+	PUT	OLD-OBJECT,9,SEARCH-RES
+	PUT	OLD-OBJECT,10,0
+	ZERO?	PICK /?CND10
+	PUT	FINDER,2,NP-QUANT-ALL
+?CND10:	EQUAL?	SEARCH-ACT,ROOMSBIT \?PRD16
+	PUT	SEARCH-RES,4,ROOMS
+	JUMP	?CTR13
+?PRD16:	ZERO?	S-FLAGS /?CCL14
+	CALL2	FIND-OBJECTS,S-FLAGS
+	ZERO?	STACK \?PRD21
+	ZERO?	PICK /?CCL14
+	GET	SEARCH-RES,1
+	ZERO?	STACK /?CCL14
+?PRD21:	EQUAL?	NUM,1 \?CCL29
+	GET	SYN,1
+	JUMP	?CND27
+?CCL29:	GET	SYN,3
+?CND27:	PUT	GWIM-MSG,0,STACK
+	GET	SEARCH-RES,4
+	PUT	GWIM-MSG,1,STACK
+?CTR13:	CALL	DO-PMEM-ALLOC,4,NOUN-PHRASE-MIN-LENGTH >OLD-OBJECT
+	PUT	OLD-OBJECT,1,1
+	GET	SEARCH-RES,4
+	PUT	OLD-OBJECT,3,STACK
+	SET	'RES,OLD-OBJECT
+	RETURN	RES
+?CCL14:	GET	PARSE-RESULT,1
+	PUT	ORPHAN-S,O-VERB,STACK
+	ZERO?	P-LEN \?CCL32
+	ADD	TLEXV,4
+	JUMP	?CND30
+?CCL32:	PUSH	TLEXV
+?CND30:	PUT	ORPHAN-S,O-LEXPTR,STACK
+	GET	PARSE-RESULT,3
+	PUT	ORPHAN-S,O-SYNTAX,STACK
+	PUT	ORPHAN-S,O-WHICH,NUM
+	GET	PARSE-RESULT,7
+	PUT	ORPHAN-S,O-PART,STACK
+	GET	PARSE-RESULT,5
+	GET	STACK,3
+	PUT	ORPHAN-S,O-OBJECT,STACK
+	GET	PARSE-RESULT,12 >VAL
+	ZERO?	VAL /?CND33
+	GET	VAL,3 >VAL
+?CND33:	PUT	ORPHAN-S,O-SUBJECT,VAL
+	GET	PARSE-RESULT,5
+	CALL	PARSER-ERROR,0,PARSER-ERROR-ORPH-S,STACK
+	RSTACK	
+?CCL9:	GETB	OBJ,1
+	EQUAL?	STACK,4 \?CCL36
+	RETURN	OBJ
+?CCL36:	GETB	OBJ,1
+	EQUAL?	STACK,2 \?CCL38
+	SET	'SEARCH-FLAGS,S-FLAGS
+	CALL	DETERMINE-NP,0,NUM,OBJ
+	RSTACK	
+?CCL38:	BTST	S-FLAGS,16 /?CCL40
+	GET	PARSE-RESULT,1
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOMULT,NUM,STACK
+	RSTACK	
+?CCL40:	SET	'SEARCH-FLAGS,S-FLAGS
+	SET	'NO,OBJ
+	SET	'CT,FALSE-VALUE
+?PRG41:	CALL	DETERMINE-NP,0,NUM,NO,TRUE-VALUE >PTR
+	ZERO?	PTR /FALSE
+	GET	NO,3
+	GET	STACK,1
+	ADD	COUNT,STACK >COUNT
+	ZERO?	CT \?CND46
+	ADD	PTR,6 >PTR
+	SET	'CNT,COUNT
+?PRG48:	DLESS?	'CNT,0 /?CND46
+	GET	PTR,0
+	EQUAL?	NOT-HERE-OBJECT,STACK /?CCL54
+	SET	'CT,TRUE-VALUE
+?CND46:	GET	NO,1 >NO
+	ZERO?	NO \?PRG41
+	ZERO?	CT /FALSE
+	MUL	COUNT,2
+	ADD	STACK,2
+	CALL	DO-PMEM-ALLOC,4,STACK >CNT
+	PUT	CNT,1,COUNT
+	SET	'RES,CNT
+	SET	'NO,OBJ
+	ADD	RES,6 >PTR
+?PRG59:	GET	NO,3 >CT
+	GET	CT,1
+	MUL	4,STACK >TMP
+	ADD	CT,6
+	COPYT	STACK,PTR,TMP
+	ADD	PTR,TMP >PTR
+	GET	NO,1 >NO
+	ZERO?	NO \?PRG59
+	RETURN	RES
+?CCL54:	ADD	PTR,4 >PTR
+	JUMP	?PRG48
+
+
+	.FUNCT	CHECK-DIR-ADJS,ADJS,AV,CT,ADJ,PT
+	ADD	ADJS,10 >AV
+	GET	ADJS,4 >CT
+?PRG1:	DLESS?	'CT,0 /TRUE
+	GET	AV,CT >ADJ
+	CALL	WORD-TYPE?,ADJ,P-DIR-CODE
+	ZERO?	STACK /?PRG1
+	GETB	ADJ,6
+	GETPT	HERE,STACK >PT
+	ZERO?	PT /?PRG1
+	PTSIZE	PT
+	EQUAL?	STACK,DEXIT \?PRG1
+	PUT	AV,CT,W?NO.WORD
+	GET	PT,DEXITOBJ
+	CALL	MATCH-OBJECT,STACK,FINDER,TRUE-VALUE
+	ZERO?	STACK \?CND10
+	PUT	AV,CT,ADJ
+	RTRUE	
+?CND10:	PUT	AV,CT,ADJ
+	JUMP	?PRG1
+
+
+	.FUNCT	NUMERIC-ADJ?,NP,ADJS,VAL,AV,CT,ADJ,VV
+	GET	NP,1 >ADJS
+	ZERO?	ADJS /FALSE
+	ADD	ADJS,10 >AV
+	GET	ADJS,4 >CT
+?PRG4:	DLESS?	'CT,0 /?REP5
+	GET	AV,CT >ADJ
+	EQUAL?	ADJ,W?INT.NUM \?PRG4
+	GET	NP,8 >VV
+?PRG10:	GET	VV,0
+	EQUAL?	ADJ,STACK \?CCL14
+	GET	VV,1 >VAL
+	JUMP	?PRG4
+?CCL14:	SUB	VV,P-LEXELEN >VV
+	GRTR?	P-LEXV,VV /?PRG4
+	JUMP	?PRG10
+?REP5:	RETURN	VAL
+
+
+	.FUNCT	DETERMINE-NP,SEARCH-ACT,WHICH,OBJ,MULTI,SYN,ROBJ,RLOC,QUANT,OWNER,RES,COUNT,OLD-OBJECT,NEW-OBJECT,?TMP1
+?FCN:	ZERO?	WHICH \?CCL3
+	SET	'SYN,FALSE-VALUE
+	JUMP	?CND1
+?CCL3:	GET	PARSE-RESULT,3 >SYN
+?CND1:	SET	'ROBJ,OBJ
+	GETB	OBJ,1
+	EQUAL?	STACK,3 \?CND4
+	GET	OBJ,2 >ROBJ
+?CND4:	GET	ROBJ,5 >RLOC
+	ZERO?	RLOC /?CND6
+	GET	RLOC,2 >RLOC
+	GET	RLOC,3 >RLOC
+?CND6:	GET	ROBJ,3 >QUANT
+	ZERO?	QUANT /?CND8
+	GRTR?	QUANT,NP-QUANT-A \?CND8
+	BTST	SEARCH-FLAGS,16 /?CND8
+	GET	PARSE-RESULT,1
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOMULT,WHICH,STACK
+	RSTACK	
+?CND8:	GET	ROBJ,4 >OWNER
+	ZERO?	OWNER \?PRD16
+	GET	ROBJ,1 >OWNER
+	ZERO?	OWNER /?CND13
+	GET	OWNER,2 >OWNER
+	ZERO?	OWNER /?CND13
+?PRD16:	CALL2	PMEM?,OWNER
+	ZERO?	STACK /?CND13
+	SET	'OLD-OBJECT,FINDER
+	PUT	OLD-OBJECT,0,SEARCH-ACT
+	PUT	OLD-OBJECT,1,0
+	PUT	OLD-OBJECT,2,FALSE-VALUE
+	PUT	OLD-OBJECT,3,SYN
+	PUT	OLD-OBJECT,4,WHICH
+	GET	OWNER,1
+	PUT	OLD-OBJECT,5,STACK
+	GET	OWNER,2
+	PUT	OLD-OBJECT,6,STACK
+	GET	OWNER,4
+	PUT	OLD-OBJECT,7,STACK
+	PUT	OLD-OBJECT,8,FALSE-VALUE
+	PUT	OLD-OBJECT,9,SEARCH-RES
+	CALL2	NUMERIC-ADJ?,OWNER
+	PUT	OLD-OBJECT,10,STACK
+	PUT	SEARCH-RES,1,0
+	PUT	SEARCH-RES,2,FALSE-VALUE
+	ICALL2	FIND-OBJECTS,15
+	COPYT	SEARCH-RES,OWNER-SR-HERE,20
+	PUT	SEARCH-RES,1,0
+	PUT	SEARCH-RES,2,FALSE-VALUE
+	ICALL2	FIND-OWNERS,OWNERS
+	COPYT	SEARCH-RES,OWNER-SR-THERE,20
+?CND13:	GET	ROBJ,2
+	EQUAL?	STACK,W?HIMSELF \?CND21
+	EQUAL?	2,WHICH \?CCL25
+	GET	PARSE-RESULT,5 >COUNT
+	ZERO?	COUNT /?CCL25
+	GET	COUNT,3 >COUNT
+	ZERO?	COUNT /?CCL25
+	FSET?	COUNT,PERSONBIT \?CCL25
+	SET	'RES,COUNT
+	JUMP	?CND21
+?CCL25:	SET	'RES,P-HIM-OBJECT
+?CND21:	ZERO?	RES /?CND30
+	CALL	DO-PMEM-ALLOC,4,NOUN-PHRASE-MIN-LENGTH >OLD-OBJECT
+	PUT	OLD-OBJECT,1,1
+	PUT	OLD-OBJECT,3,RES
+	PUT	OLD-OBJECT,4,ROBJ
+	RETURN	OLD-OBJECT
+?CND30:	SET	'OLD-OBJECT,FINDER
+	PUT	OLD-OBJECT,0,SEARCH-ACT
+	PUT	OLD-OBJECT,1,0
+	PUT	OLD-OBJECT,2,QUANT
+	PUT	OLD-OBJECT,3,SYN
+	PUT	OLD-OBJECT,4,WHICH
+	GET	ROBJ,1
+	PUT	OLD-OBJECT,5,STACK
+	GET	ROBJ,2
+	PUT	OLD-OBJECT,6,STACK
+	GET	ROBJ,4
+	PUT	OLD-OBJECT,7,STACK
+	GET	ROBJ,6
+	PUT	OLD-OBJECT,8,STACK
+	PUT	OLD-OBJECT,9,SEARCH-RES
+	CALL2	NUMERIC-ADJ?,ROBJ
+	PUT	OLD-OBJECT,10,STACK
+	ICALL	FIND-OBJECTS,SEARCH-FLAGS,RLOC
+	GET	SEARCH-RES,1
+	ZERO?	STACK \?CND34
+	GET	ROBJ,1
+	ZERO?	STACK /?CND34
+	GET	ROBJ,1
+	ICALL2	CHECK-DIR-ADJS,STACK
+?CND34:	GET	SEARCH-RES,1 >COUNT
+	ZERO?	COUNT \?CCL40
+	GET	ROBJ,2 >RLOC
+	ZERO?	RLOC /?CCL40
+	ADD	WORD-FLAG-TABLE,2 >?TMP1
+	GET	WORD-FLAG-TABLE,0
+	INTBL?	RLOC,?TMP1,STACK,132 >OLD-OBJECT \?CCL46
+	GET	OLD-OBJECT,1
+	JUMP	?CND44
+?CCL46:	PUSH	FALSE-VALUE
+?CND44:	BTST	STACK,16 \?CCL40
+	PUT	ROBJ,3,NP-QUANT-ALL
+	GET	RLOC,3
+	PUT	ROBJ,2,STACK
+	JUMP	?FCN
+?CCL40:	ZERO?	COUNT \?CCL48
+	ZERO?	MULTI \?CCL50
+	GET	PARSE-RESULT,4
+	CALL	NOT-HERE-VERB?,STACK
+	ZERO?	STACK /?CND38
+?CCL50:	CALL	DO-PMEM-ALLOC,4,NOUN-PHRASE-MIN-LENGTH >NEW-OBJECT
+	PUT	NEW-OBJECT,1,1
+	PUT	NEW-OBJECT,3,NOT-HERE-OBJECT
+	PUT	NEW-OBJECT,4,ROBJ
+	SET	'RES,NEW-OBJECT
+	JUMP	?CND38
+?CCL48:	EQUAL?	COUNT,1 /?CTR53
+	ZERO?	QUANT \?CTR53
+	GET	SEARCH-RES,4
+	GETP	STACK,P?GENERIC
+	CALL	STACK,SEARCH-RES,FINDER >RES
+	ZERO?	RES /?CCL54
+?CTR53:	EQUAL?	RES,NOT-HERE-OBJECT \?CCL60
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,OBJ
+	RSTACK	
+?CCL60:	ZERO?	RES /?CND58
+	SET	'COUNT,1
+	PUT	SEARCH-RES,1,1
+	PUT	SEARCH-RES,2,FALSE-VALUE
+	EQUAL?	RES,HERE \?CCL64
+	PUSH	GLOBAL-HERE
+	JUMP	?CND62
+?CCL64:	PUSH	RES
+?CND62:	PUT	SEARCH-RES,4,STACK
+?CND58:	MUL	COUNT,2
+	ADD	STACK,2
+	CALL	DO-PMEM-ALLOC,4,STACK >NEW-OBJECT
+	PUT	NEW-OBJECT,1,COUNT
+	SET	'RES,NEW-OBJECT
+	GET	ROBJ,4 >SYN
+	ZERO?	SYN \?CCL66
+	GET	ROBJ,1 >SYN
+	ZERO?	SYN /?CND65
+	GET	SYN,2 >SYN
+	ZERO?	SYN /?CND65
+?CCL66:	LESS?	0,SYN \?CCL72
+	GRTR?	SYN,LAST-OBJECT \?CND65
+?CCL72:	GET	SEARCH-RES,3 >SYN
+	GET	ROBJ,4
+	ZERO?	STACK /?CCL77
+	PUT	ROBJ,4,SYN
+	JUMP	?CND65
+?CCL77:	GET	ROBJ,1
+	PUT	STACK,2,SYN
+?CND65:	ADD	RES,6
+	CALL	DETERMINE-NP-XFER,COUNT,ROBJ,SEARCH-RES,STACK >SYN
+	ZERO?	SYN /?CND38
+	SUB	COUNT,SYN
+	PUT	RES,1,STACK
+?CND38:	ZERO?	RES \?PRD84
+	RETURN	RES
+?CCL54:	CALL2	READY-TO-DISAMBIGUATE?,ROBJ
+	ZERO?	STACK /?CND38
+	GET	PARSE-RESULT,1
+	CALL	PARSER-ERROR,0,PARSER-ERROR-ORPH-NP,ROBJ,STACK
+	RSTACK	
+?PRD84:	GETB	OBJ,1
+	EQUAL?	STACK,3 /?CCL82
+	RETURN	RES
+?CCL82:	PUT	OBJ,3,RES
+	RETURN	RES
+
+
+	.FUNCT	FIND-OWNERS,TBL,OOBJ,LEN
+	GET	TBL,0 >LEN
+?PRG1:	LESS?	LEN,1 /TRUE
+	GET	TBL,LEN >OOBJ
+	LESS?	0,OOBJ \?CCL7
+	GET	TBL,LEN >OOBJ
+	GRTR?	OOBJ,LAST-OBJECT /?CCL7
+	CALL	MATCH-OBJECT,OOBJ,FINDER,TRUE-VALUE
+	ZERO?	STACK \?CND3
+	RTRUE	
+?CCL7:	ICALL2	FIND-OWNERS,OOBJ
+?CND3:	DEC	'LEN
+	JUMP	?PRG1
+
+
+	.FUNCT	READY-TO-DISAMBIGUATE?,NP,PTR,NOUN
+	GET	NP,8 >PTR
+	ZERO?	PTR /FALSE
+	GET	NP,2 >NOUN
+	ZERO?	NOUN /FALSE
+?PRG6:	GET	PTR,0
+	EQUAL?	NOUN,STACK \?CCL10
+	RETURN	PTR
+?CCL10:	SUB	PTR,4 >PTR
+	GRTR?	P-LEXV,PTR \?PRG6
+	RFALSE	
+
+
+	.FUNCT	DETERMINE-NP-XFER,COUNT,ROBJ,SRES,DV,CT,V,TMP,NUM
+	GET	SRES,0 >CT
+	ADD	SRES,8 >V
+	GRTR?	CT,COUNT \?CND3
+	SET	'CT,COUNT
+?CND3:	SUB	COUNT,CT >COUNT
+	SET	'NUM,0
+?PRG5:	GET	V,0 >TMP
+	ZERO?	TMP /?CCL9
+	PUT	DV,0,TMP
+	PUT	DV,1,ROBJ
+	JUMP	?CND7
+?CCL9:	INC	'NUM
+?CND7:	ADD	DV,4 >DV
+	ADD	V,2 >V
+	DLESS?	'CT,1 \?PRG5
+	GET	SRES,2 >SRES
+	ZERO?	SRES \?CND12
+	RETURN	NUM
+?CND12:	SET	'CT,FIND-RES-MAXOBJ
+	ADD	SRES,8 >V
+	GRTR?	CT,COUNT \?CND14
+	SET	'CT,COUNT
+?CND14:	SUB	COUNT,CT >COUNT
+	JUMP	?PRG5
+
+
+	.FUNCT	RED-O-ADJ,N,TYP
+	ZERO?	P-OFLAG /FALSE
+	COPYT	O-LEXV,G-LEXV,LEXV-LENGTH-BYTES
+	COPYT	O-INBUF,G-INBUF,61
+	GET	OOPS-TABLE,O-AGAIN
+	PUT	OOPS-TABLE,O-START,STACK
+	POP	DATA-STACK
+	ICALL2	INSERT-ADJS,STACK
+	ICALL2	COPY-INPUT,TRUE-VALUE
+	THROW	PARSER-RESULT-AGAIN,PARSE-SENTENCE-ACTIVATION
+	RTRUE	
+
+
+	.FUNCT	RED-O-PP,N,TYP,PP,A,PREP
+	LESS?	P-OFLAG,0 \?CCL8
+	SUB	0,P-OFLAG >PP
+	JUMP	?CND6
+?CCL8:	SET	'PP,P-OFLAG
+?CND6:	ZERO?	PP /FALSE
+	GET	O-LEXV,PP
+	EQUAL?	W?NO.WORD,STACK \FALSE
+	SUB	PP,P-LEXELEN
+	GET	O-LEXV,STACK >A
+	ZERO?	A /FALSE
+	POP	DATA-STACK >PP
+	ZERO?	PP /FALSE
+	EQUAL?	N,1 /?CCL3
+	POP	DATA-STACK >PREP
+	ZERO?	PREP /FALSE
+?CCL3:	COPYT	O-LEXV,G-LEXV,LEXV-LENGTH-BYTES
+	COPYT	O-INBUF,G-INBUF,61
+	GET	OOPS-TABLE,O-AGAIN
+	PUT	OOPS-TABLE,O-START,STACK
+	EQUAL?	A,PREP \?CCL18
+	PUSH	1
+	JUMP	?CND16
+?CCL18:	PUSH	0
+?CND16:	ICALL2	INSERT-NP,STACK
+	ICALL2	COPY-INPUT,TRUE-VALUE
+	THROW	PARSER-RESULT-AGAIN,PARSE-SENTENCE-ACTIVATION
+	RTRUE	
+
+
+	.FUNCT	INSERT-NP,NUM,NP,GPTR,PPTR,TMP,?TMP1
+	LESS?	P-OFLAG,0 \?CCL3
+	SUB	0,P-OFLAG >GPTR
+	JUMP	?CND1
+?CCL3:	SET	'GPTR,P-OFLAG
+?CND1:	GET	PARSE-RESULT,2 >TMP
+	ZERO?	TMP /?CCL6
+	MUL	NUM,4
+	ADD	TMP,STACK >PPTR
+	SUB	TLEXV,TMP
+	DIV	STACK,4
+	ADD	1,STACK >TMP
+	JUMP	?CND4
+?CCL6:	GET	OOPS-TABLE,O-START >PPTR
+	GET	OOPS-TABLE,O-LENGTH >TMP
+	MUL	NUM,4
+	ADD	PPTR,STACK >PPTR
+?CND4:	SUB	TMP,NUM >NUM
+	ADD	-1,NUM
+	ICALL	MAKE-ROOM-FOR-TOKENS,STACK,G-LEXV,GPTR
+?PRG8:	DLESS?	'NUM,0 /TRUE
+	GETB	PPTR,2 >?TMP1
+	GETB	PPTR,3
+	MUL	GPTR,2
+	ADD	3,STACK >TMP
+	ICALL	INBUF-ADD,?TMP1,STACK,TMP
+	GET	PPTR,0 >TMP
+	PUT	G-LEXV,GPTR,TMP
+	EQUAL?	TMP,W?INT.NUM,W?INT.TIM \?CND12
+	ADD	1,GPTR >?TMP1
+	GET	PPTR,1
+	PUT	G-LEXV,?TMP1,STACK
+?CND12:	ADD	GPTR,2 >GPTR
+	ADD	PPTR,4 >PPTR
+	JUMP	?PRG8
+
+
+	.FUNCT	TEST-SR,NP,A,CT,LEN,NEW-OBJECT,SZ,REM,?TMP1
+	GET	ORPHAN-SR,1 >LEN
+	ZERO?	LEN /FALSE
+	GET	NP,2 >A
+	CALL	WORD-TYPE?,A,P-QUANT-CODE
+	ZERO?	STACK /?CCL5
+	RETURN	A
+?CCL5:	GET	NP,1 >A
+	ZERO?	A \?CCL7
+	CALL	DO-PMEM-ALLOC,1,8 >NEW-OBJECT
+	GET	NP,7
+	PUT	NEW-OBJECT,1,STACK
+	SET	'A,NEW-OBJECT
+	JUMP	?CND1
+?CCL7:	GET	A,4 >CT
+	GRTR?	ADJS-MAX-COUNT,CT \FALSE
+?CND1:	ADD	A,10 >?TMP1
+	GET	NP,2
+	PUT	?TMP1,CT,STACK
+	ADD	1,CT
+	PUT	A,4,STACK
+	PUT	FINDER,5,A
+	CALL2	NUMERIC-ADJ?,NP
+	PUT	FINDER,10,STACK
+	GET	ORPHAN-NP,2
+	PUT	FINDER,6,STACK
+	PUT	SEARCH-RES,1,0
+	PUT	SEARCH-RES,2,FALSE-VALUE
+	SET	'NEW-OBJECT,ORPHAN-SR+8
+	GET	ORPHAN-SR,0 >SZ
+	SET	'REM,LEN
+?PRG9:	GET	NEW-OBJECT,0
+	CALL	MATCH-OBJECT,STACK,FINDER,TRUE-VALUE
+	ZERO?	STACK \?CND11
+	RETURN	A
+?CND11:	DLESS?	'REM,1 /?REP10
+	DLESS?	'SZ,1 /?REP10
+	ADD	NEW-OBJECT,2 >NEW-OBJECT
+	JUMP	?PRG9
+?REP10:	ZERO?	CT /?CND19
+	PUT	A,4,CT
+?CND19:	GET	SEARCH-RES,1
+	ZERO?	STACK /FALSE
+	RETURN	A
+
+
+	.FUNCT	RED-O-NP,N,TYP,A,NP,PP,A1,PTR,WD,?TMP1,?TMP2
+	EQUAL?	N,2 \?CND1
+	POP	DATA-STACK >PP
+?CND1:	POP	DATA-STACK >NP
+	GETB	NP,1
+	EQUAL?	STACK,4 \?CND3
+	GET	NP,3
+	EQUAL?	STACK,INTQUOTE \?CND3
+	GET	NP,4 >NP
+	ZERO?	P-OFLAG \?CND3
+	GET	NP,7
+	SUB	STACK,P-LEXV
+	DIV	STACK,2 >PP
+	ICALL	MAKE-ROOM-FOR-TOKENS,1,G-LEXV,PP
+	PUT	G-LEXV,PP,W?SAY
+	ICALL1	COPY-INPUT
+	THROW	PARSER-RESULT-AGAIN,PARSE-SENTENCE-ACTIVATION
+?CND3:	ZERO?	P-OFLAG /FALSE
+	ZERO?	PP \?CND12
+	GET	NP,2
+	CALL	WORD-TYPE?,STACK,P-ADJ-CODE
+	ZERO?	STACK /?CND12
+	GET	NP,3
+	ZERO?	STACK \?CND12
+	CALL2	TEST-SR,NP >A
+	ZERO?	A /?CND12
+	XPUSH	A,DATA-STACK /?BOGUS18
+?BOGUS18:	ICALL	RED-O-ADJ,1,TYP
+	RFALSE	
+?CND12:	COPYT	O-LEXV,G-LEXV,LEXV-LENGTH-BYTES
+	COPYT	O-INBUF,G-INBUF,61
+	LESS?	P-OFLAG,0 \?CCL21
+	SUB	0,P-OFLAG >N
+	JUMP	?CND19
+?CCL21:	SET	'N,P-OFLAG
+?CND19:	GET	G-LEXV,N
+	EQUAL?	W?NO.WORD,STACK \?CCL24
+	ICALL	INSERT-NP,0,NP
+	JUMP	?CND22
+?CCL24:	SET	'A1,FALSE-VALUE
+	GET	NP,2 >A
+	ZERO?	A /?CND27
+	PUT	G-LEXV,N,A
+	GET	NP,8 >A
+	GETB	A,2 >?TMP2
+	GETB	A,3 >?TMP1
+	MUL	N,2
+	ADD	3,STACK
+	ICALL	INBUF-ADD,?TMP2,?TMP1,STACK
+?CND27:	GET	NP,1 >A
+	ZERO?	A /?CND29
+	ICALL2	INSERT-ADJS,A
+?CND29:	ZERO?	PP /?CND31
+	ADD	N,P-LEXELEN
+	ICALL	MAKE-ROOM-FOR-TOKENS,2,G-LEXV,STACK
+	ADD	N,P-LEXELEN >?TMP1
+	GET	PP,1
+	PUT	G-LEXV,?TMP1,STACK
+	GET	PP,2 >A
+	GETB	A,1
+	EQUAL?	STACK,4 \?CCL35
+	GET	A,4 >A
+	JUMP	?CND33
+?CCL35:	GETB	A,1
+	EQUAL?	STACK,3 \?CND33
+	GET	A,2 >A
+?CND33:	ADD	N,4 >?TMP1
+	GET	A,2
+	PUT	G-LEXV,?TMP1,STACK
+?CND31:	GET	NP,3 >A
+	ZERO?	A /?CND22
+	SET	'PTR,N
+?PRG42:	SUB	PTR,P-LEXELEN >PTR
+	GRTR?	0,PTR \?CCL46
+	ZERO?	A1 /?PRD49
+	SET	'PTR,A1
+	JUMP	?PEN47
+?PRD49:	SET	'PTR,N
+?PEN47:	ICALL	MAKE-ROOM-FOR-TOKENS,1,G-LEXV,PTR
+	JUMP	?REP43
+?CCL46:	GET	G-LEXV,PTR >WD
+	EQUAL?	WD,W?THE /?REP43
+	CALL	WORD-TYPE?,WD,P-QUANT-CODE
+	ZERO?	STACK \?REP43
+	CALL	WORD-TYPE?,WD,P-ADJ-CODE
+	ZERO?	STACK /?CCL55
+	SET	'A1,PTR
+	JUMP	?PRG42
+?CCL55:	ZERO?	A1 /?PRD58
+	SET	'PTR,A1
+	JUMP	?PEN56
+?PRD58:	SET	'PTR,N
+?PEN56:	ICALL	MAKE-ROOM-FOR-TOKENS,1,G-LEXV,PTR
+?REP43:	CALL2	GET-QUANTITY-WORD,A
+	PUT	G-LEXV,PTR,STACK
+?CND22:	GET	OOPS-TABLE,O-AGAIN
+	PUT	OOPS-TABLE,O-START,STACK
+	ICALL1	COPY-INPUT
+	THROW	PARSER-RESULT-AGAIN,PARSE-SENTENCE-ACTIVATION
+	RTRUE	
+
+
+	.FUNCT	RED-PERS,N,TYP,X
+	EQUAL?	N,2,3 \TRUE
+	POP	DATA-STACK >X
+	EQUAL?	X,W?COMMA \?PRD7
+	EQUAL?	N,2 /?CCL5
+?PRD7:	EQUAL?	X,W?TO \FALSE
+?CCL5:	POP	DATA-STACK >X
+	EQUAL?	N,3 \?CND11
+	GET	P-RUNNING,0
+	CALL	WORD-TYPE?,STACK,P-VERB-CODE
+	ZERO?	STACK /FALSE
+?CND11:	CALL2	HACK-TELL,X
+	RSTACK	
+
+
+	.FUNCT	HACK-TELL,X,NP
+	PUT	PARSE-RESULT,1,W?TELL
+	GET	W?TELL,3
+	GET	STACK,2
+	ICALL	GET-SYNTAX,STACK,1,FALSE-VALUE
+	CALL	DETERMINE-OBJ,X,1 >NP
+	ZERO?	NP \?CND1
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOOBJ,X
+	RSTACK	
+?CND1:	PUT	PARSE-RESULT,2,TLEXV
+	PUT	PARSE-RESULT,12,NP
+	GET	NP,3 >X
+	EQUAL?	X,WINNER,PLAYER,ME /TRUE
+	ICALL2	IGNORE-FIRST-WORD,W?YOU
+	LESS?	P-LEN,1 \?CCL8
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND6
+?CCL8:	SET	'P-CONT,TLEXV
+?CND6:	CALL2	HACK-TELL-1,NP
+	EQUAL?	M-FATAL,STACK /?CCL10
+	ZERO?	P-CONT \TRUE
+?CCL10:	SET	'P-CONT,-1
+	THROW	PARSER-RESULT-DEAD,PARSE-SENTENCE-ACTIVATION
+	RTRUE	
+
+
+	.FUNCT	HACK-TELL-1,NP,X,NUM,CT,?TMP1
+	GET	NP,4 >PRSO-NP
+	GET	NP,3 >X
+	GET	NP,1 >CT
+	LESS?	1,CT \?CND1
+	GET	NP,2 >NUM
+	GRTR?	CT,NUM \FALSE
+	ADD	1,NUM
+	PUT	NP,2,STACK
+	ADD	NP,8 >?TMP1
+	MUL	2,NUM
+	GET	?TMP1,STACK >PRSO-NP
+	ADD	NP,6 >?TMP1
+	MUL	2,NUM
+	GET	?TMP1,STACK >X
+	ICALL2	DPRINT,X
+	PRINTI	":
+"
+?CND1:	CALL	PERFORM,V?TELL,X >X
+	PUT	PARSE-RESULT,4,0
+	RETURN	X
+
+
+	.FUNCT	RED-VP,N,TYP,VERB,A1,A2,?TMP1
+	SET	'A1,TRUE-VALUE
+	SET	'A2,TRUE-VALUE
+	GRTR?	N,2 \?CND1
+	POP	DATA-STACK >A1
+?CND1:	POP	DATA-STACK >VERB
+	GRTR?	N,2 \?CND3
+	POP	DATA-STACK >A2
+	EQUAL?	N,4 \?CND3
+	POP	DATA-STACK
+?CND3:	PUT	PARSE-RESULT,1,VERB
+	PUT	PARSE-RESULT,2,TLEXV
+	EQUAL?	A1,TRUE-VALUE /?CCL9
+	GET	A1,3 >?TMP1
+	ZERO?	?TMP1 /?PRD12
+	PUSH	?TMP1
+	JUMP	?PEN10
+?PRD12:	PUSH	A1
+?PEN10:	PUT	PARSE-RESULT,0,STACK
+	RTRUE	
+?CCL9:	EQUAL?	A2,TRUE-VALUE /TRUE
+	GET	A2,3 >?TMP1
+	ZERO?	?TMP1 /?PRD16
+	PUSH	?TMP1
+	JUMP	?PEN14
+?PRD16:	PUSH	A2
+?PEN14:	PUT	PARSE-RESULT,0,STACK
+	RTRUE	
+
+
+	.FUNCT	RED-NP,N,TYP,NAME,QUANT,LEXB,LEXE,ADJ,NEW-OBJECT
+	SET	'QUANT,NP-QUANT-NONE
+	SET	'LEXE,TLEXV
+	POP	DATA-STACK >NAME
+	EQUAL?	NAME,1 \?CND1
+	SET	'NAME,FALSE-VALUE
+?CND1:	GET	LEXE,0
+	CALL	WORD-TYPE?,STACK,P-COMMA-CODE,P-EOI-CODE
+	ZERO?	STACK /?CND3
+	SUB	LEXE,4 >LEXE
+?CND3:	POP	DATA-STACK >ADJ
+	EQUAL?	ADJ,1 \?CCL7
+	SET	'LEXB,LEXE
+	SET	'ADJ,FALSE-VALUE
+	JUMP	?CND5
+?CCL7:	GET	ADJ,1 >LEXB
+	GET	ADJ,3
+	ZERO?	STACK /?CND5
+	GET	ADJ,3 >QUANT
+?CND5:	CALL	DO-PMEM-ALLOC,2,9 >NEW-OBJECT
+	PUT	NEW-OBJECT,2,NAME
+	PUT	NEW-OBJECT,1,ADJ
+	PUT	NEW-OBJECT,7,LEXB
+	PUT	NEW-OBJECT,8,LEXE
+	PUT	NEW-OBJECT,3,QUANT
+	RETURN	NEW-OBJECT
+
+
+	.FUNCT	RED-OF,N,TYP,ONP,NP,TMP,A
+	POP	DATA-STACK >ONP
+	POP	DATA-STACK
+	EQUAL?	STACK,W?OF \FALSE
+	POP	DATA-STACK >NP
+	GET	NP,3
+	ZERO?	STACK /?CCL6
+	GET	NP,2
+	ZERO?	STACK \?CCL6
+	GET	NP,1
+	ZERO?	STACK \?CCL6
+	GET	NP,3
+	PUT	ONP,3,STACK
+	RETURN	ONP
+?CCL6:	PUT	NP,4,ONP
+	RETURN	NP
+
+
+	.FUNCT	RED-QT,N,TYP,Q,NEW-OBJECT
+	POP	DATA-STACK >Q
+	EQUAL?	Q,W?A,W?AN /FALSE
+	CALL	DO-PMEM-ALLOC,2,9 >NEW-OBJECT
+	CALL2	GET-QUANTITY,Q
+	PUT	NEW-OBJECT,3,STACK
+	PUT	NEW-OBJECT,7,TLEXV
+	PUT	NEW-OBJECT,8,TLEXV
+	RETURN	NEW-OBJECT
+
+
+	.FUNCT	GET-QUANTITY-WORD,Q,TBL
+	INTBL?	Q,NP-QUANT-TBL,NP-QUANT-TBL-LEN,132 >TBL \FALSE
+	GET	TBL,1
+	RSTACK	
+
+
+	.FUNCT	GET-QUANTITY,Q,TBL
+	INTBL?	Q,NP-QUANT-TBL+2,NP-QUANT-TBL-LEN,132 >TBL \FALSE
+	SUB	TBL,2
+	GET	STACK,0
+	RSTACK	
+
+
+	.FUNCT	RED-QN,N,TYP,NP,Q
+	POP	DATA-STACK >NP
+	GET	NP,7
+	SUB	STACK,4
+	PUT	NP,7,STACK
+	POP	DATA-STACK
+	CALL2	GET-QUANTITY,STACK
+	PUT	NP,3,STACK
+	RETURN	NP
+
+
+	.FUNCT	RED-NPP,N,TYP,NPP,ONPP,PP,NP,RLOC,X1,X2,KLUDGE-FLAG,OONPP,?PR-NP,NN,TEMP
+	EQUAL?	N,1 \?CCL3
+	POP	DATA-STACK
+	RSTACK	
+?CCL3:	EQUAL?	N,2 \?CCL5
+	POP	DATA-STACK >PP
+	POP	DATA-STACK >ONPP
+	GET	PP,1
+	EQUAL?	STACK,W?BUT,W?EXCEPT \?CCL8
+	GETB	ONPP,1
+	EQUAL?	STACK,2 /?CCL11
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL11:	GET	ONPP,3
+	ZERO?	STACK \?CCL13
+	GET	DATA-STACK,0
+	EQUAL?	20,STACK /?CND14
+	POP	DATA-STACK >X1
+	GET	DATA-STACK,0
+	EQUAL?	20,STACK /?CND16
+	POP	DATA-STACK >X2
+	CALL2	PMEM?,X2
+	ZERO?	STACK /?CND18
+	GETB	X2,1
+	EQUAL?	STACK,2 \?CND18
+	GET	X2,3
+	ZERO?	STACK /?CND18
+	CALL	REDUCE-EXCEPTION,PP,X2
+	ZERO?	STACK /?CND18
+	SET	'KLUDGE-FLAG,TRUE-VALUE
+?CND18:	XPUSH	X2,DATA-STACK /?CND16
+?CND16:	XPUSH	X1,DATA-STACK /?CND14
+?CND14:	ZERO?	KLUDGE-FLAG \?CND6
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL13:	CALL	REDUCE-EXCEPTION,PP,ONPP
+	ZERO?	STACK \?CND6
+	RFALSE	
+?CCL8:	CALL2	REDUCE-LOCATION,PP >RLOC
+	ZERO?	RLOC /FALSE
+?CND6:	ZERO?	RLOC \?CCL32
+	RETURN	ONPP
+?CCL32:	GETB	ONPP,1
+	EQUAL?	STACK,2 \?CCL34
+	GET	ONPP,5
+	ZERO?	STACK /?CCL37
+	GET	RLOC,1
+	CALL	PARSER-ERROR,0,PARSER-ERROR-TMNOUN,STACK
+	RSTACK	
+?CCL37:	PUT	ONPP,5,RLOC
+	RETURN	ONPP
+?CCL34:	SET	'OONPP,ONPP
+?PRG38:	GET	OONPP,2 >?PR-NP
+	GET	?PR-NP,5
+	ZERO?	STACK \?CND40
+	PUT	?PR-NP,5,RLOC
+?CND40:	GET	OONPP,1 >OONPP
+	ZERO?	OONPP \?CCL44
+	RETURN	ONPP
+?CCL44:	GETB	OONPP,1
+	EQUAL?	STACK,2 \?PRG38
+	PUT	OONPP,5,RLOC
+	RETURN	ONPP
+?CCL5:	POP	DATA-STACK >NP
+	POP	DATA-STACK
+	EQUAL?	STACK,W?AND,W?COMMA \FALSE
+	POP	DATA-STACK >NPP
+	GETB	NPP,1
+	EQUAL?	STACK,2 \?CND49
+	GET	NPP,6
+	ZERO?	STACK \FALSE
+?CND49:	CALL	DO-PMEM-ALLOC,3,3 >?PR-NP
+	PUT	?PR-NP,2,NP
+	SET	'NP,?PR-NP
+	GETB	NPP,1
+	EQUAL?	STACK,2 \?CCL55
+	CALL	DO-PMEM-ALLOC,3,3 >OONPP
+	PUT	OONPP,1,NP
+	PUT	OONPP,2,NPP
+	RETURN	OONPP
+?CCL55:	SET	'NN,NPP
+?PRG56:	GET	NN,1 >TEMP
+	ZERO?	TEMP \?CND58
+	PUT	NN,1,NP
+	RETURN	NPP
+?CND58:	SET	'NN,TEMP
+	JUMP	?PRG56
+
+
+	.FUNCT	RED-PP,N,TYP,TMP,NOUN,PREP,NEW-OBJECT
+	POP	DATA-STACK >NOUN
+	EQUAL?	N,2 \?CCL3
+	POP	DATA-STACK >PREP
+	JUMP	?CND1
+?CCL3:	POP	DATA-STACK >TMP
+	EQUAL?	TMP,W?OF \?CCL5
+	POP	DATA-STACK >PREP
+	EQUAL?	PREP,W?OUT \FALSE
+	SET	'PREP,W?FROM
+	JUMP	?CND1
+?CCL5:	EQUAL?	TMP,W?NOT \?CND1
+	POP	DATA-STACK >PREP
+	EQUAL?	PREP,W?BUT,W?EXCEPT \FALSE
+?CND1:	ZERO?	PREP /FALSE
+	CALL	DO-PMEM-ALLOC,5,2 >NEW-OBJECT
+	PUT	NEW-OBJECT,1,PREP
+	PUT	NEW-OBJECT,2,NOUN
+	RETURN	NEW-OBJECT
+
+
+	.FUNCT	RED-POSS,N,TYP,OBJ,WD,A
+	EQUAL?	N,3 \FALSE
+	POP	DATA-STACK
+	EQUAL?	STACK,W?S /?CCL6
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL6:	POP	DATA-STACK
+	EQUAL?	STACK,W?APOSTROPHE /?CCL8
+	CALL	PARSER-ERROR,0,PARSER-ERROR-NOUND
+	RSTACK	
+?CCL8:	POP	DATA-STACK
+	RSTACK	
+
+
+	.FUNCT	RED-ADJ,N,TYP,A1,A2,CT,AD,NEW-OBJECT,VV,TCT,?TMP1
+	ZERO?	N /TRUE
+	POP	DATA-STACK >A1
+	EQUAL?	A1,1 \?CND4
+	CALL	DO-PMEM-ALLOC,1,8 >NEW-OBJECT
+	PUT	NEW-OBJECT,1,TLEXV
+	SET	'A1,NEW-OBJECT
+?CND4:	POP	DATA-STACK >A2
+	CALL2	PMEM?,A2
+	ZERO?	STACK /?CCL8
+	PUT	A1,2,A2
+	RETURN	A1
+?CCL8:	EQUAL?	A2,W?MY \?CCL10
+	PUT	A1,2,PLAYER
+	RETURN	A1
+?CCL10:	EQUAL?	A2,W?YOUR \?CCL12
+	PUT	A1,2,WINNER
+	RETURN	A1
+?CCL12:	EQUAL?	A2,W?HIS \?CND6
+	GET	PARSE-RESULT,5 >AD
+	ZERO?	AD /?CCL17
+	GET	AD,3 >AD
+	ZERO?	AD /?CCL17
+	FSET?	AD,PERSONBIT \?CCL17
+	PUT	A1,2,AD
+	RETURN	A1
+?CCL17:	PUT	A1,2,P-HIM-OBJECT
+	RETURN	A1
+?CND6:	EQUAL?	A2,W?ITS \?CCL23
+	GET	PARSE-RESULT,5 >AD
+	ZERO?	AD /?CCL26
+	GET	AD,3 >AD
+	ZERO?	AD /?CCL26
+	FSET?	AD,PERSONBIT /?CCL26
+	PUT	A1,2,AD
+	RETURN	A1
+?CCL26:	PUT	A1,2,P-IT-OBJECT
+	RETURN	A1
+?CCL23:	ADD	WORD-FLAG-TABLE,2 >?TMP1
+	GET	WORD-FLAG-TABLE,0
+	INTBL?	A2,?TMP1,STACK,132 >NEW-OBJECT \?CCL34
+	GET	NEW-OBJECT,1
+	JUMP	?CND32
+?CCL34:	PUSH	FALSE-VALUE
+?CND32:	BTST	STACK,16384 \?CCL31
+	GET	A2,3
+	PUT	A1,2,STACK
+	RETURN	A1
+?CCL31:	EQUAL?	A2,W?A,W?AN \?CCL36
+	PUT	A1,3,NP-QUANT-A
+	RETURN	A1
+?CCL36:	EQUAL?	A2,W?THE /?CND21
+	CALL	WORD-TYPE?,A2,P-ADJ-CODE
+	ZERO?	STACK /FALSE
+	SET	'AD,A2
+	GET	A1,4 >CT
+	LESS?	CT,ADJS-MAX-COUNT \?CND21
+	ADD	A1,10 >VV
+	GET	A1,4 >TCT
+?PRG44:	ZERO?	TCT \?CND46
+	PUT	VV,0,A2
+	ADD	CT,1
+	PUT	A1,4,STACK
+	RETURN	A1
+?CND46:	GET	VV,0
+	EQUAL?	AD,STACK /?CND21
+	ADD	VV,2 >VV
+	DEC	'TCT
+	JUMP	?PRG44
+?CND21:	RETURN	A1
+
+
+	.FUNCT	RED-QUOTE,N,TYP,NP,NEW-OBJECT
+	POP	DATA-STACK
+	EQUAL?	W?QUOTE,STACK \FALSE
+	CALL	DO-PMEM-ALLOC,2,9 >NEW-OBJECT
+	PUT	NEW-OBJECT,2,W?QUOTE
+	SUB	P-RUNNING,4
+	PUT	NEW-OBJECT,7,STACK
+	SET	'NP,NEW-OBJECT
+?PRG4:	GET	P-RUNNING,0 >N
+	DLESS?	'P-LEN,0 /?CCL7
+	EQUAL?	N,W?QUOTE,W?END.OF.INPUT \?CND6
+?CCL7:	EQUAL?	N,W?QUOTE \?CCL12
+	PUT	NP,8,P-RUNNING
+	ADD	P-RUNNING,4 >P-RUNNING
+	JUMP	?CND10
+?CCL12:	SUB	P-RUNNING,4
+	PUT	NP,8,STACK
+?CND10:	GET	OOPS-TABLE,O-START
+	SUB	P-RUNNING,STACK
+	DIV	STACK,4 >P-WORDS-AGAIN
+	CALL	DO-PMEM-ALLOC,4,NOUN-PHRASE-MIN-LENGTH >NEW-OBJECT
+	PUT	NEW-OBJECT,1,1
+	PUT	NEW-OBJECT,3,INTQUOTE
+	PUT	NEW-OBJECT,4,NP
+	RETURN	NEW-OBJECT
+?CND6:	ADD	P-RUNNING,4 >P-RUNNING
+	JUMP	?PRG4
+
+	.ENDSEG
+
+	.ENDI
diff --git a/reds.zil b/reds.zil
new file mode 100644
index 0000000..5507182
--- /dev/null
+++ b/reds.zil
@@ -0,0 +1,1334 @@
+"REDS file: imitates old parser.
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<ZZPACKAGE "REDS">
+
+<ENTRY	RED-SP RED-ADV RED-PART
+	RED-SV RED-SVN RED-SVNP RED-SVPNPN RED-SVPNN RED-SVNPN RED-SD RED-SVD
+	RED-PERS RED-VP RED-NP RED-OF RED-QT RED-QN RED-NPP RED-PP
+	RED-POSS RED-ADJ RED-QUOTE>
+
+<ENTRY	RED-O-ADJ RED-O-PP RED-O-NP NUMERIC-ADJ?>
+
+<INCLUDE "BASEDEFS" "FIND" "PBITDEFS" "PDEFS">
+
+<USE "NEWSTRUC" "PARSER" "PMEM" "PSTACK">
+
+<FILE-FLAGS MDL-ZIL? ;ZAP-TO-SOURCE-DIRECTORY?>
+
+<BEGIN-SEGMENT 0> 
+
+<DEFMAC ABS ('NUM)
+	<FORM COND (<FORM L? .NUM 0> <FORM - 0 .NUM>)
+	           (T .NUM)>>
+
+"Generic reduction, which just returns a list of frobs"
+<DEFINE RED-FCN ("OPT" N:FIX TYP:FIX)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "ANY">) (T <RFALSE>)>)>
+	<COND (<==? .N 0> T)
+	      (<==? .N 1>
+	       <POP-PSTACK ,DATA-STACK>)>>
+
+<DEFINE RED-PART RP ("OPT" N:FIX TYP:FIX "AUX" WD)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "?PART">) (T <RFALSE>)>)>
+	<COND (<==? .N 0>
+	       <RETURN T .RP>)>
+	<SET WD <POP-PSTACK ,DATA-STACK>>
+	<COND (<AND <NOT <EQUAL? .WD T ,W?OF>>
+		    <NOT <WORD-TYPE? .WD ,P-PARTICLE-CODE>>>
+	       <RETURN <> .RP>)
+	      (<==? .N 1>
+	       <RETURN .WD .RP>)
+	      (T
+	       <POP-PSTACK ,DATA-STACK>)>>
+
+<DEFINE GET-SYNTAX GS (VA:TABLE NUM "OPT" (PREP 0) (GWIM <>) "AUX" LEN)
+  <COND (<==? .PREP 1>
+	 <SET PREP 0>)>
+  <COND (<1? .NUM>
+	 <SET LEN ,VERB-ONE-SYNTAX-LEN ;6>)
+	(T
+	 <SET LEN ,VERB-TWO-SYNTAX-LEN ;10>)>
+  <REPEAT ((CT:FIX <ZGET .VA 0>) S2 (P2 <PARSE-PARTICLE2 ,PARSE-RESULT>)
+	   (GWIM-NOW <>)
+	   (SYN <IF-MUDDLE <CHTYPE <ZREST .VA 2> VERB-SYNTAX>
+			   <ZREST .VA 2>>))
+    <COND (<AND <==? .PREP <SYNTAX-PREP ;1 .SYN 1>>
+		<OR <1? .NUM>
+		    <EQUAL? .P2
+			    <SET S2 <SYNTAX-GET .SYN ,SYN-PREP 2>>>
+		    <AND <0? .S2>
+			 <1? .P2>>
+		    <AND <T? .GWIM-NOW>
+			 <T? <SET S2 <COND (<1? .NUM> .PREP) (T .S2)>>>
+			 <ZPUT ,GWIM-MSG 0 .S2>>>>
+	   <PARSE-SYNTAX ;3 ,PARSE-RESULT .SYN>
+	   <PARSE-ACTION ;4 ,PARSE-RESULT <SYNTAX-ID .SYN>>
+	   <PARSE-PARTICLE1 ,PARSE-RESULT .PREP>
+	   <RETURN .SYN .GS>)
+	  (<L? <SET CT <- .CT 1>> 1>
+	   <COND (<AND <T? .GWIM>
+		       <F? .GWIM-NOW>>
+		  <SET CT <ZGET .VA 0>>
+		  <SET GWIM-NOW T>
+		  <SET SYN <IF-MUDDLE <CHTYPE <ZREST .VA 2> VERB-SYNTAX>
+				      <ZREST .VA 2>>>
+		  <AGAIN>)
+		 (T
+		  <RETURN <> .GS>)>)
+	  (T
+	   <SET SYN <IF-MUDDLE <CHTYPE <ZREST .SYN .LEN> VERB-SYNTAX>
+			       <ZREST .SYN .LEN>>>)>>>
+
+"Reduction for case of verb with no objects.  If OK, win.  Otherwise,
+ try defaulting (and go to case of verb with one object)/orphaning..."
+
+<DEFINE RED-SV ("OPT" N:FIX TYP:FIX "AUX" SYN VERB PART DATA:VERB-DATA OBJ)
+    ;<COND (<NOT <ASSIGNED? N>>
+	   <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-?P">) (T <RFALSE>)>)>
+    <SET PART <POP-PSTACK ,DATA-STACK>>
+    <POP-PSTACK ,DATA-STACK>
+    <COND (<SET VERB <ROOT-VERB <PARSE-VERB ,PARSE-RESULT>>>
+	   <SET DATA <WORD-VERB-STUFF .VERB>>
+	   <COND (<AND <1? .PART>
+		       <L=? 0 <VERB-ZERO .DATA>:FIX>>
+		  ;"Verb can take no args, so this flies"
+		  <PARSE-ACTION ,PARSE-RESULT <VERB-ZERO .DATA>>
+		  T ;,PARSE-RESULT)
+		 (<AND <SET SYN <VERB-ONE .DATA>>
+		       <SET SYN <GET-SYNTAX .SYN 1 .PART T>>
+		       <SET OBJ <DETERMINE-OBJ <> 1>>>
+		  <PARSE-OBJ1 ,PARSE-RESULT .OBJ>
+		  T ;,PARSE-RESULT)
+		 (<AND <SET SYN <VERB-TWO .DATA>>
+		       <SET SYN <GET-SYNTAX .SYN 2 .PART T>>
+		       <SET OBJ <DETERMINE-OBJ <> 1>>>
+		  <PARSE-OBJ1 ,PARSE-RESULT .OBJ>
+		  <ZPUT ,ORPHAN-S ,O-OBJECT <NOUN-PHRASE-OBJ1 .OBJ>>
+		  <COND (<SET OBJ <DETERMINE-OBJ <> 2>>
+			 <PARSE-OBJ2 ,PARSE-RESULT .OBJ>
+			 T ;,PARSE-RESULT)>)>)>>
+
+<DEFINE ROOT-VERB (VERB "AUX" DATA)
+	<COND (<AND <T? <WORD-FLAGS .VERB>>
+		    <SET DATA <WORD-SEMANTIC-STUFF .VERB>>>
+	       <SET VERB .DATA>)>
+	.VERB>
+
+<DEFINE RED-SVN ("OPT" N:FIX TYP:FIX
+		"AUX" SYN1 SYN2 VERB PART DATA OBJ OBJ1 OBJ2)
+   ;<COND (<NOT <ASSIGNED? N>>
+	  <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-?P-NP">) (T <RFALSE>)>)>
+   <SET OBJ <POP-PSTACK ,DATA-STACK>>
+   <SET PART <POP-PSTACK ,DATA-STACK>>
+   ;<PARSE-PARTICLE1 ,PARSE-RESULT .PART>
+   <POP-PSTACK ,DATA-STACK>	;"RED-SVNP depends on these POPs"
+   <COND (<SET VERB <ROOT-VERB <PARSE-VERB ,PARSE-RESULT>>>
+	  <SET DATA <WORD-VERB-STUFF .VERB>>
+	  <COND (<AND <ZERO? <PARSE-PARTICLE2 ,PARSE-RESULT>>
+		      <SET SYN1 <VERB-ONE .DATA>>
+		      <SET SYN1 <GET-SYNTAX .SYN1 1 .PART>>>
+		 ;<PARSE-PARTICLE1 ,PARSE-RESULT .PART>	;"SWG 28-Jul-88"
+		 <COND (<NOT <SET OBJ1 <DETERMINE-OBJ .OBJ 1>>>
+			<PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .OBJ
+				      .PART ;<SYNTAX-SEARCH ;B5 .SYN1 1>>)
+		       (<AND <EQUAL? ,INTDIR <NOUN-PHRASE-OBJ1 .OBJ1>>
+			     <ZAPPLY ,DIR-VERB-WORD?
+				     <PARSE-VERB ,PARSE-RESULT>>
+			     <PUSH-PSTACK ,DATA-STACK <NP-NAME .OBJ>>>
+			<RED-SD 1 .TYP>)
+		       (T
+			<PARSE-OBJ1 ,PARSE-RESULT .OBJ1>
+			,PARSE-RESULT)>)
+		(<AND <SET SYN2 <VERB-TWO .DATA>>
+		      <SET SYN2 <GET-SYNTAX .SYN2 2 .PART T>>>
+		 ;<PARSE-PARTICLE1 ,PARSE-RESULT .PART>	;"SWG 28-Jul-88"
+		 <COND (<NOT <SET OBJ1 <DETERMINE-OBJ .OBJ 1>>>
+			<PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .OBJ
+				      .PART ;<SYNTAX-SEARCH ;B5 .SYN2 1>>)
+		       (T
+			<PARSE-OBJ1 ,PARSE-RESULT .OBJ1>
+			<ZPUT ,ORPHAN-S ,O-OBJECT <NOUN-PHRASE-OBJ1 .OBJ1>>
+			<COND (<SET OBJ2 <DETERMINE-OBJ <> 2>>
+			       <PARSE-OBJ2 ,PARSE-RESULT .OBJ2>
+			       ,PARSE-RESULT)>)>)
+		;(T
+		 <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .OBJ
+			       .PART ;<SYNTAX-SEARCH ;B5 .SYN1 1>>)>)>>
+
+<DEFINE RED-SVNP ("OPT" N:FIX TYP:FIX "AUX" PART OBJ)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-NP-P">) (T <RFALSE>)>)>
+	<SET PART <POP-PSTACK ,DATA-STACK>>
+	<SET OBJ <POP-PSTACK ,DATA-STACK>>
+	;"PICK OBJECT UP = PICK UP OBJECT"
+	<PUSH-PSTACK ,DATA-STACK .PART>
+	<PUSH-PSTACK ,DATA-STACK .OBJ>
+	<COND (<NOT <RED-SVN .N .TYP>>
+	       <PUSH-PSTACK ,DATA-STACK <PARSE-VERB ,PARSE-RESULT>>
+	       <PUSH-PSTACK ,DATA-STACK T>
+	       <PARSE-PARTICLE2 ,PARSE-RESULT .PART>
+	       <PUSH-PSTACK ,DATA-STACK .OBJ>
+	       <RED-SVN .N .TYP>)
+	      (T T)>>
+
+<DEFINE RED-SVNPN ("OPT" N:FIX TYP:FIX "AUX" OBJ2 ;PART OBJ1)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-NP-P-NP">)
+		       (T <RFALSE>)>)>
+	<SET OBJ2 <POP-PSTACK ,DATA-STACK>>
+	<PARSE-PARTICLE2 ,PARSE-RESULT <POP-PSTACK ,DATA-STACK>>
+	<SET OBJ1 <POP-PSTACK ,DATA-STACK>>
+	;<COND (<AND <EQUAL? <PARSE-VERB ,PARSE-RESULT> ,W?SAY>
+		    <EQUAL? <PARSE-PARTICLE2 ,PARSE-RESULT> ,W?TO>
+		    <PMEM? .OBJ1>
+		    <PMEM-TYPE? .OBJ1 NOUN-PHRASE>
+		    <EQUAL? <NOUN-PHRASE-OBJ1 .OBJ1> ,INTQUOTE>>
+	       ;"etc."
+	       )>
+	;<PUSH-PSTACK ,DATA-STACK .PART>
+	<PUSH-PSTACK ,DATA-STACK .OBJ1>
+	<PUSH-PSTACK ,DATA-STACK .OBJ2>
+	<DEC N>
+	<RED-SVPNN .N .TYP>>
+
+<DEFINE RED-SVPNN ("OPT" N:FIX TYP:FIX "AUX" N1 N2 (PART <>) OBJ1 OBJ2 SYN)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-?P-NP-NP">)
+		       (T <RFALSE>)>)>
+	<SET N2 <POP-PSTACK ,DATA-STACK>>
+	<COND (<0? <PARSE-PARTICLE2 ;8 ,PARSE-RESULT>>
+	       <PARSE-PARTICLE2 ;8 ,PARSE-RESULT <OR <ZGET ,GWIM-MSG 0> 1>>)>
+	<SET N1 <POP-PSTACK ,DATA-STACK>>
+	<COND (<==? .N 4>
+	       <SET PART <POP-PSTACK ,DATA-STACK>>)>
+	<COND (<NOT <SET SYN <ROOT-VERB <PARSE-VERB ,PARSE-RESULT>>>>
+	       <PARSER-ERROR 0 ;"No syntax" ,PARSER-ERROR-NOUND>)
+	      (<NOT <SET SYN <VERB-TWO <WORD-VERB-STUFF .SYN>>>>
+	       <PARSER-ERROR 0 ,PARSER-ERROR-TMNOUN>)
+	      (<NOT <SET SYN <GET-SYNTAX .SYN 2 .PART>>>
+	       <PARSER-ERROR 0 ;"No syntax" ,PARSER-ERROR-NOUND>)
+	      (<NOT <SET OBJ1 <DETERMINE-OBJ .N1 1>>>
+	       <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .N1
+			     .PART ;<SYNTAX-SEARCH ;B5 .SYN 1>>)
+	      (<NOT <SET OBJ2 <DETERMINE-OBJ .N2 2>>>
+	       <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .N2
+			     .PART ;<SYNTAX-SEARCH ;B9 .SYN 2>>)
+	      (<ZAPPLY ,DIR-VERB-PRSI? .OBJ2>
+	       <PARSER-ERROR 0 ;"Not a direction" ,PARSER-ERROR-NOUND>)
+	      (T
+	       <POP-PSTACK ,DATA-STACK>
+	       <PARSE-OBJ1 ,PARSE-RESULT .OBJ1>
+	       <PARSE-OBJ2 ,PARSE-RESULT .OBJ2>
+	       T)>>
+
+<DEFINE RED-SVPNPN ("OPT" N:FIX TYP:FIX "AUX" N2)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-P-NP-P-NP">)
+		       (T <RFALSE>)>)>
+	<SET N2 <POP-PSTACK ,DATA-STACK>>
+	<PARSE-PARTICLE2 ,PARSE-RESULT <POP-PSTACK ,DATA-STACK>>
+	<PUSH-PSTACK ,DATA-STACK .N2>
+	<RED-SVPNN <- .N 1> .TYP>>
+
+<DEFINE RED-SD ("OPT" N:FIX TYP:FIX "AUX" V)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "DIR=S">) (T <RFALSE>)>)>
+	<PARSE-VERB ,PARSE-RESULT <SET V ,W?WALK>>
+	<GET-SYNTAX <VERB-ONE <WORD-VERB-STUFF .V>> 1 <>>
+	<SETG P-WALK-DIR <WORD-DIR-ID <POP-PSTACK ,DATA-STACK>>>
+	;<SETG PRSO ,P-WALK-DIR>
+	<PARSE-OBJ1 ,PARSE-RESULT <PMEM-ALLOC NOUN-PHRASE
+				    COUNT 1
+				    LENGTH ,NOUN-PHRASE-MIN-LENGTH
+				    OBJ1 ,P-WALK-DIR>>
+	T ;,PARSE-RESULT>
+
+<DEFINE RED-SVD ("OPT" N:FIX TYP:FIX "AUX" DIR)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP-DIR">) (T <RFALSE>)>)>
+	<SET DIR <POP-PSTACK ,DATA-STACK>>
+	<COND (<ZAPPLY ,DIR-VERB-WORD? <PARSE-VERB ,PARSE-RESULT>>
+	       <POP-PSTACK ,DATA-STACK>
+	       <PUSH-PSTACK ,DATA-STACK .DIR>
+	       <RED-SD <- .N 1> .TYP>)>>
+
+<DEFINE RED-SP ("OPT" N:FIX TYP:FIX "AUX" A)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "SP">) (T <RFALSE>)>)>
+	<SET A <POP-PSTACK ,DATA-STACK>>
+	<DEC N>
+	<COND (<AND <EQUAL? .N 2 ;3>
+		    <N==? T .A>>
+	       <PARSE-ADV ,PARSE-RESULT <OR <WORD-SEMANTIC-STUFF .A> .A>>)>
+	<FLUSH-PSTACK ,DATA-STACK .N>
+	,PARSE-RESULT>
+
+<GLOBAL SEARCH-FLAGS:NUMBER 0>
+
+<DEFINE IREDUCE-EXCEPTION (ENP:PMEM NP:PMEM)
+  ;"Both ENP and NP are NPs"
+  <COND (<==? <NP-NAME .ENP> ,W?ONE>
+	 ;"All books except the red one..."
+	 <NP-NAME .ENP <NP-NAME .NP>>)>
+  <COND (<NOT <NP-QUANT .ENP>>
+	 <NP-QUANT .ENP ,NP-QUANT-ALL>)>
+  <SETG SEARCH-FLAGS <BOR ,SEARCH-ALL ;15 ,SEARCH-MANY ;16>>
+  <DETERMINE-NP 0 0 .ENP>>
+
+<DEFINE REDUCE-EXCEPT-IT (PHR NP)
+	<COND (<AND <==? 1 <NOUN-PHRASE-COUNT .PHR>>
+		    <==? ,IT <NOUN-PHRASE-OBJ1 .PHR>>>
+	       <COND (<ZERO? ,P-IT-OBJECT>
+		      <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .NP>)
+		     ;(<NOT <VISIBLE? ,P-IT-OBJECT>>
+		      <NOT-HERE ,P-IT-OBJECT>)
+		     (T
+		      <NOUN-PHRASE-OBJ1 .PHR ,P-IT-OBJECT>)>)>>
+
+<DEFINE REDUCE-EXCEPTION RE (PP:PMEM NP:PMEM "AUX"
+			  (ENP:PMEM <PP-NOUN .PP>) NOUN-PHRASE)
+  <COND
+   (<PMEM-TYPE? .ENP NP>
+    ;"Just one thing"
+    <COND (<SET NOUN-PHRASE <IREDUCE-EXCEPTION .ENP .NP>>
+	   ;"Returns a noun-phrase, which we can then stuff into
+	      an NPP to be stuffed into the EXCEPT slot"
+	   <REDUCE-EXCEPT-IT .NOUN-PHRASE .ENP>
+	   <NP-EXCEPT .NP <PMEM-ALLOC NPP
+				      NOUN .ENP
+				      NOUN-PHRASE .NOUN-PHRASE>>
+	   .NP)>)
+   (T
+    ;"NPP"
+    <REPEAT (RES (NNP:<OR PMEM FALSE> .ENP) (GOOD <>) BAD)
+      <COND (<SET RES <IREDUCE-EXCEPTION <SET BAD <NPP-NOUN .NNP>> .NP>>
+	     <SET GOOD T>
+	     <REDUCE-EXCEPT-IT .RES .BAD>
+	     <NPP-NOUN-PHRASE .NNP .RES>)>
+      <COND (<NOT <SET NNP <NPP-NEXT .NNP>>>
+	     <COND (<T? .GOOD>
+		    <NP-EXCEPT .NP .ENP>
+		    <RETURN .NP .RE>)
+		   (T
+		<RETURN <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .BAD> .RE>)>)>>)>>
+
+<CONSTANT P-NO-INSIDE "No inside">
+<CONSTANT P-NO-SURFACE "No surface">
+<CONSTANT P-NOTHING "Nothing">
+
+<CONSTANT PREP-BIT <ITABLE 3 0>>
+
+<DEFINE REDUCE-LOCATION RL
+	 (PP:PMEM
+	  "OPT" (SYN:<OR FALSE VERB-SYNTAX> <>)
+		(WHICH:<OR FIX FALSE> <>)
+	  "AUX" (SEARCH <COND (.SYN
+			       <COND (<==? .WHICH 1>
+				      <SYNTAX-SEARCH .SYN 1>)
+				     (T
+				      <SYNTAX-SEARCH .SYN 2>)>)>)
+		(TEST <COND (.SYN
+			     <COND (<==? .WHICH 1>
+				    <SYNTAX-FIND .SYN 1>)
+				   (T
+				    <SYNTAX-FIND .SYN 2>)>)>)
+		(PREP:VWORD <PP-PREP .PP>)
+		(NP:PMEM <PP-NOUN .PP>) (RLOC <>)
+		(BIT 0) (MSG <>) "VALUE" <OR PMEM FALSE>)
+  <COND (<NOT .SEARCH> <SET SEARCH <BOR ,SEARCH-HELD ,SEARCH-ON-GROUND> ;5>)>
+  ;<COND (<NOT .TEST> <SET TEST ,TEST-PREP>)>
+  <COPYT ,PREP-BIT 0 6>
+  <COND
+   (<EQUAL? .PREP ,W?BUT ,W?EXCEPT>
+    <RETURN <> .RL>)
+   ;(<EQUAL? .PREP ,W?UNDER>
+	   <SET BIT ,F?HAS-UNDER>
+	   <SET MSG ,P-NO-UNDERSIDE>)
+   ;(<EQUAL? .PREP ,W?ABOUT ,W?FOR ,W?TO>)
+   (<EQUAL? .PREP ,W?IN ,W?INSIDE>
+    <SET BIT ,CONTBIT>
+    <SET MSG ,P-NO-INSIDE>)
+   (<EQUAL? .PREP ,W?ON ,W?OFF>
+    <SET BIT ,SURFACEBIT>
+    <SET MSG ,P-NO-SURFACE>)
+   ;(<EQUAL? .PREP ,W?BEHIND>
+     <SET BIT ,F?HAS-BEHIND>
+     <SET MSG ,P-NO-BACKSIDE>)
+   (<EQUAL? .PREP ,W?FROM ;,W?OF>
+    <SET BIT ,SURFACEBIT>
+    <ZPUT ,PREP-BIT 1 ,PERSONBIT>
+    <ZPUT ,PREP-BIT 2 ,CONTBIT>
+    <SET MSG ,P-NOTHING>)
+   (T
+    <RETURN <> .RL>)>
+  <ZPUT ,PREP-BIT 0 .BIT>
+  <COND (<PMEM-TYPE? .NP NP>
+	 <COND (<SET RLOC <NP-LOC .NP>:PMEM>
+		<SET RLOC <NOUN-PHRASE-OBJ1 <LOCATION-OBJECT .RLOC>:PMEM>>)>
+	 <MAKE-FINDER 'FINDER ,FINDER
+			'FIND-APPLIC .TEST
+			'FIND-RES ,SEARCH-RES
+			'FIND-ADJS <NP-ADJS .NP>
+			'FIND-NOUN <NP-NAME .NP>
+			'FIND-NUM <NUMERIC-ADJ? .NP>>
+	 <SET SEARCH <FIND-OBJECTS <COND (<NOT .RLOC> .SEARCH) (T 0)>
+				   .RLOC>>
+	 ;<FIND-NUM ,FINDER 0>
+	 <COND (.SEARCH
+		<SET RLOC <PMEM-ALLOC NOUN-PHRASE
+					COUNT 1
+					LENGTH ,NOUN-PHRASE-MIN-LENGTH
+					OBJ1 <FIND-RES-OBJ1 ,SEARCH-RES>
+					NP1 .NP>>
+		<PMEM-ALLOC LOCATION PREP .PREP OBJECT .RLOC>)
+	       (<0? <FIND-RES-COUNT ,SEARCH-RES>:FIX>
+		<PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .NP .PREP ;.SEARCH>)
+	       (<READY-TO-DISAMBIGUATE? .NP>
+		<PARSER-ERROR 0 ,PARSER-ERROR-ORPH-NP
+			      .NP <PARSE-VERB ,PARSE-RESULT>>)
+	       ;(T
+		<PARSER-ERROR ,P-TOO-MANY-OBJECTS-FOR-LOCATION 0 .NP>)>)>>
+
+;<DEFINE DO-TEST-PREP DTP (OBJ:OBJECT VERB:VWORD "AUX" (BIT:TABLE ,PREP-BIT))
+  <COND (<0? <ZGET .BIT 0>:FIX> T)
+	(T
+	 <REPEAT ((CT 0))
+	   <COND (<FSET? .OBJ <ZGET .BIT .CT>:FIX> <RETURN T .DTP>)>
+	   <COND (<OR <G? <SET CT <+ .CT 1>> 2>
+		      <0? <ZGET .BIT .CT>:FIX>>
+		  <RETURN <> .DTP>)>>)>>
+
+<COND (<GASSIGNED? DO-TEST-PREP> <SETG TEST-PREP <TABLE ,DO-TEST-PREP>>)>
+
+"Decide what object(s) OBJ refers to.  If OBJ is false, we're looking to
+GWIM something.  Otherwise, it's one of NP, NPP, or NOUN-PHRASE.  In the
+last case, just return it, because it's already been reduced."
+
+<DEFINE DETERMINE-OBJ DO (OBJ:<OR FALSE PMEM> NUM:FIX "OPT" (PICK <>)
+			  "AUX" (VAL <>) RES (COUNT:FIX 0)
+			  (SYN:VERB-SYNTAX <PARSE-SYNTAX ;3 ,PARSE-RESULT>)
+			  (S-FLAGS:FIX
+			   <COND (<==? .NUM 1>	<SYNTAX-SEARCH ;B5 .SYN 1>)
+				 (T		<SYNTAX-SEARCH ;B9 .SYN 2>)>)
+			  (SEARCH-ACT:FIX
+			   <COND (<==? .NUM 1>	<SYNTAX-FIND ;B4 .SYN 1>)
+				 (T		<SYNTAX-FIND ;B8 .SYN 2>)>))
+	<COND (<NOT .OBJ>	;"Get What I Mean!"
+	       <MAKE-FINDER 'FINDER ,FINDER
+			    'FIND-APPLIC .SEARCH-ACT
+			    'FIND-FLAGS ,FIND-FLAGS-GWIM
+			    'FIND-SYNTAX .SYN
+			    'FIND-WHICH .NUM
+			    'FIND-RES ,SEARCH-RES>
+	       <COND (<T? .PICK>
+		      <FIND-QUANT ,FINDER ,NP-QUANT-ALL>
+		      ;<SET S-FLAGS <BOR .S-FLAGS ,SEARCH-ALL>>)>
+	       <COND (<OR <AND <EQUAL? .SEARCH-ACT ,ROOMSBIT>
+			       <FIND-RES-OBJ1 ,SEARCH-RES ,ROOMS>>
+			  <AND <T? .S-FLAGS>
+			       <OR <FIND-OBJECTS .S-FLAGS>
+				   <AND .PICK <FIND-RES-COUNT ,SEARCH-RES>>>
+			       <ZPUT ,GWIM-MSG 0 <COND (<1? .NUM>
+							<SYNTAX-PREP .SYN 1>)
+						       (T
+							<SYNTAX-PREP .SYN 2>)>>
+			       <ZPUT ,GWIM-MSG 1 <FIND-RES-OBJ1 ,SEARCH-RES>>>>
+		      ;"Found one thing, so be happy"
+		      ;<FIND-NUM ,FINDER 0>
+		      <SET RES <PMEM-ALLOC NOUN-PHRASE
+					   LENGTH ,NOUN-PHRASE-MIN-LENGTH
+					   COUNT 1
+					   ;FLAGS ;,NP-FLAG-MULTI
+					   OBJ1 <FIND-RES-OBJ1 ,SEARCH-RES>
+					   NP1 <>>>)
+		     (T
+		      ;"This will return an appropriate lossage so the
+			 parser will know to continue."
+		      <ZPUT ,ORPHAN-S ,O-VERB <PARSE-VERB ,PARSE-RESULT>>
+		      <ZPUT ,ORPHAN-S ,O-LEXPTR
+			    <COND (<0? ,P-LEN>
+				   <ZREST ,TLEXV ;,P-RUNNING <* 2 ,P-LEXELEN>>)
+				  (T ,TLEXV ;,P-RUNNING)>>
+		      <ZPUT ,ORPHAN-S ,O-SYNTAX <PARSE-SYNTAX ,PARSE-RESULT>>
+		      <ZPUT ,ORPHAN-S ,O-WHICH .NUM>
+		      <ZPUT ,ORPHAN-S ,O-PART <PARSE-PARTICLE1 ,PARSE-RESULT>>
+		      <ZPUT ,ORPHAN-S ,O-OBJECT
+			    <NOUN-PHRASE-OBJ1 <PARSE-OBJ1 ,PARSE-RESULT>>>
+		      <COND (<SET VAL <PARSE-CHOMPER ,PARSE-RESULT>>
+			     <SET VAL <NOUN-PHRASE-OBJ1 .VAL>>)>
+		      <ZPUT ,ORPHAN-S ,O-SUBJECT .VAL>
+		      <RETURN <PARSER-ERROR 0 ,PARSER-ERROR-ORPH-S
+					    <PARSE-OBJ1 ,PARSE-RESULT>>
+			      .DO>)>)
+	      (<PMEM-TYPE? .OBJ NOUN-PHRASE>
+	       ;"Already a winner, so just return it"
+	       <RETURN .OBJ .DO>)
+	      (<PMEM-TYPE? .OBJ NP>
+	       <SETG SEARCH-FLAGS .S-FLAGS>
+	       <DETERMINE-NP 0 ;.SEARCH-ACT .NUM .OBJ>)
+	      (<0? <ANDB .S-FLAGS ,SEARCH-MANY ;16>>
+	       <PARSER-ERROR 0 ,PARSER-ERROR-NOMULT
+			       .NUM <PARSE-VERB ,PARSE-RESULT>>)
+	      (T
+	     ;"Do each noun phrase in turn, since we can take multiple objects"
+	       <SETG SEARCH-FLAGS .S-FLAGS>
+	       <REPEAT ((NO .OBJ) (CT <>) PTR)
+	         <COND (<SET PTR <DETERMINE-NP 0 ;.SEARCH-ACT .NUM .NO T>>
+			;"Remember how many objects we have"
+			<SET COUNT <+ .COUNT
+				      <NOUN-PHRASE-COUNT
+				       <NPP-NOUN-PHRASE .NO:PMEM>:PMEM>>>
+			;"And how many real objects we have"
+			<COND (<ZERO? .CT>
+			       <SET PTR <REST-TO-SLOT .PTR NOUN-PHRASE-OBJ1>>
+			       <REPEAT ((CNT .COUNT))
+				<COND (<DLESS? CNT 0>
+				       <RETURN>)
+				      (<NOT <EQUAL? ,NOT-HERE-OBJECT
+						    <ZGET .PTR 0>>>
+				       <SET CT T>
+				       <RETURN>)
+				      (T <SET PTR <ZREST .PTR 4>>)>>)>
+			<COND (<NOT <SET NO <NPP-NEXT .NO:PMEM>>>
+			       <COND (<ZERO? .CT>
+				      <RETURN <> .DO>)>
+			       <RETURN>)>)
+		       (T
+			<RETURN <> .DO>)>>
+	       ;"Build a single noun phrase"
+	       <SET RES <PMEM-ALLOC NOUN-PHRASE
+				    ;FLAGS ;,NP-FLAG-MULTI
+				    LENGTH <+ ,NOUN-PHRASE-MIN-LENGTH
+					      <* .COUNT 2> -2>
+				    COUNT .COUNT>>
+	       ;"Copy everything into the single noun phrase"
+	       <REPEAT ((NO .OBJ) (RR <REST-TO-SLOT .RES NOUN-PHRASE-OBJ1>)
+			PHRASE TMP)
+	         <SET PHRASE <NPP-NOUN-PHRASE .NO:PMEM>>
+		 <SET TMP <* 4 <NOUN-PHRASE-COUNT .PHRASE>:FIX>>
+		 <COPYT <REST-TO-SLOT .PHRASE NOUN-PHRASE-OBJ1> .RR .TMP>
+		 <SET RR <ZREST .RR .TMP>>
+		 <COND (<NOT <SET NO <NPP-NEXT .NO:PMEM>>>
+			<RETURN>)>>
+	       .RES)>>
+
+<DEFINE CHECK-DIR-ADJS (ADJS:PMEM)
+  <REPEAT ((AV <REST-TO-SLOT .ADJS ADJS-COUNT 1>)
+	   (CT <ADJS-COUNT .ADJS>) ADJ PT)
+    <COND (<L? <SET CT <- .CT 1>> 0>
+	   <RETURN>)
+	  (<AND <WORD-TYPE? <SET ADJ <ZGET .AV .CT>> ,P-DIR-CODE>
+		<SET PT <GETPT ,HERE <WORD-DIR-ID .ADJ>>>
+		<EQUAL? <PTSIZE .PT> ,DEXIT>>
+	   <ZPUT .AV .CT ,W?NO.WORD>
+	   <COND (<NOT <MATCH-OBJECT <GET .PT ,DEXITOBJ> ,FINDER T>>
+		  <ZPUT .AV .CT .ADJ>
+		  <RETURN>)>
+	   <ZPUT .AV .CT .ADJ>)>>>
+
+<DEFINE NUMERIC-ADJ? (NP:PMEM "AUX" ADJS (VAL 0))
+ <COND (<SET ADJS <NP-ADJS .NP>>
+	<REPEAT ((AV <REST-TO-SLOT .ADJS ADJS-COUNT 1>) (CT <ADJS-COUNT .ADJS>)
+		 ADJ)
+	  <COND (<L? <SET CT <- .CT 1>> 0>
+		 <RETURN>)
+		(<EQUAL? <SET ADJ <ZGET .AV .CT>> ,W?INT.NUM>
+		 <REPEAT ((VV <NP-LEXEND .NP> ;,TLEXV))
+			 <COND (<EQUAL? .ADJ <ZGET .VV 0>>
+				<SET VAL <ZGET .VV 1>>
+				<RETURN>)
+			       (<G? ,P-LEXV <SET VV <ZBACK .VV ,P-LEXELEN>>>
+				<RETURN>)>>)>>
+	.VAL)>>
+
+;<CONSTANT FIND-OWNER:TABLE <TABLE (LENGTH) 0 0>>
+<VOC "HIMSELF" NOUN>
+;<VOC "ITSELF" NOUN>
+<IFN-P-PS-ADV <VOC "HERSELF" NOUN>>
+
+<DEFINE DETERMINE-NP DN (SEARCH-ACT:<OR FIX TABLE> WHICH:FIX OBJ:PMEM
+			 "OPT" (MULTI <>)
+			 "AUX" (SYN:<OR VERB-SYNTAX FALSE>
+				<COND (<0? .WHICH> <>)
+				      (T <PARSE-SYNTAX ,PARSE-RESULT>)>)
+			       (ROBJ:PMEM .OBJ) (RLOC:<OR FALSE PMEM> <>) ;RNP
+			       QUANT:<OR FIX FALSE> OWNER
+			       (RES <>) COUNT:FIX)
+  <COND (<PMEM-TYPE? .OBJ NPP>
+	 <SET ROBJ <NPP-NOUN .OBJ>>)>
+  <COND (<SET RLOC <NP-LOC .ROBJ>>
+	 <SET RLOC <LOCATION-OBJECT .RLOC>:PMEM>
+	 ;<SET RNP <NOUN-PHRASE-NP1 .RLOC>>
+	 <SET RLOC <NOUN-PHRASE-OBJ1 .RLOC>>)>
+  <SET QUANT <NP-QUANT .ROBJ>>
+  <COND (<AND .QUANT
+	      <G? .QUANT ,NP-QUANT-A>
+	      <0? <ANDB ,SEARCH-FLAGS ,SEARCH-MANY ;16>>>
+	 <RETURN <PARSER-ERROR 0 ,PARSER-ERROR-NOMULT
+			       .WHICH <PARSE-VERB ,PARSE-RESULT>>
+		 .DN>)>
+  <COND (<AND <OR <SET OWNER <NP-OF .ROBJ>>
+		  <AND <SET OWNER <NP-ADJS .ROBJ>>
+		       <SET OWNER <ADJS-POSS .OWNER>>>
+		  ;<SET OWNER .RNP>
+		  ;<AND <SET OWNER <NP-LOC .ROBJ>>
+		       <SET OWNER <LOCATION-OBJECT .OWNER>>
+		       <SET OWNER <NOUN-PHRASE-NP1 .OWNER>>>>
+	      <PMEM? .OWNER>>
+	 ;<COND (<PMEM-TYPE? .OWNER NOUN-PHRASE>
+		<SET OWNER <NOUN-PHRASE-NP1 .OWNER>>)>
+	 ;<FIND-RES-COUNT ,OWNER-SR-HERE 0>
+	 ;<FIND-RES-COUNT ,OWNER-SR-THERE 0>
+	 <MAKE-FINDER	'FINDER ,FINDER
+			'FIND-APPLIC .SEARCH-ACT
+			;'FIND-QUANT ;<NP-QUANT .OWNER>
+			'FIND-SYNTAX .SYN
+			'FIND-WHICH .WHICH
+			'FIND-RES ,SEARCH-RES
+			'FIND-ADJS <NP-ADJS .OWNER>
+			'FIND-NUM <NUMERIC-ADJ? .OWNER>
+			'FIND-NOUN <NP-NAME .OWNER>
+			'FIND-OF <NP-OF .OWNER> ;<OR <NP-OF .ROBJ> .RNP>
+			;'FIND-EXCEPTIONS ;<NP-EXCEPT .OWNER>>
+	 <FIND-RES-COUNT ,SEARCH-RES 0>
+	 <FIND-RES-NEXT ,SEARCH-RES <>>
+	 <FIND-OBJECTS ,SEARCH-ALL>	;"Find owner in HERE"
+	 <COPYT ,SEARCH-RES ,OWNER-SR-HERE <* 2 ,FIND-RES-LENGTH>>
+	 <FIND-RES-COUNT ,SEARCH-RES 0>
+	 <FIND-RES-NEXT ,SEARCH-RES <>>
+	 <FIND-OWNERS ,OWNERS>	;"Search for other owners."
+	 <COPYT ,SEARCH-RES ,OWNER-SR-THERE <* 2 ,FIND-RES-LENGTH>>)>
+  <COND (<EQUAL? <NP-NAME .ROBJ> ,W?HIMSELF>	;"ASK TROLL ABOUT HIMSELF"
+	 <COND (<AND <EQUAL? 2 .WHICH>
+		     <SET COUNT <PARSE-OBJ1 ,PARSE-RESULT>>
+		     <SET COUNT <NOUN-PHRASE-OBJ1 .COUNT>>
+		     <FSET? .COUNT ,PERSONBIT>>
+		<SET RES .COUNT>
+		<IFN-P-PS-ADV
+			<COND (<FSET? .COUNT ,FEMALE ;,FEMALEBIT>
+			       <SET RES ,P-HIM-OBJECT>)>>)
+	       (T
+		<SET RES ,P-HIM-OBJECT>)>)>
+  <IFN-P-PS-ADV
+  <COND (<EQUAL? <NP-NAME .ROBJ> ,W?HERSELF ;%<VOC "HERSELF" NOUN>>
+	 <COND (<AND <EQUAL? 2 .WHICH>
+		     <SET COUNT <PARSE-OBJ1 ,PARSE-RESULT>>
+		     <SET COUNT <NOUN-PHRASE-OBJ1 .COUNT>>
+		     <FSET? .COUNT ,PERSONBIT>
+		     <FSET? .COUNT ,FEMALE ;,FEMALEBIT>>
+		<SET RES .COUNT>)
+	       (T
+		<SET RES ,P-HER-OBJECT>)>)>>
+  
+  <COND (<T? .RES>
+	 <RETURN <PMEM-ALLOC NOUN-PHRASE
+			LENGTH ,NOUN-PHRASE-MIN-LENGTH
+			COUNT 1
+			OBJ1 .RES
+			NP1 .ROBJ>
+		 .DN>)>
+  <MAKE-FINDER	'FINDER ,FINDER
+		'FIND-APPLIC .SEARCH-ACT
+		'FIND-QUANT .QUANT
+		'FIND-SYNTAX .SYN
+		'FIND-WHICH .WHICH
+		'FIND-RES ,SEARCH-RES
+		'FIND-ADJS <NP-ADJS .ROBJ>
+		'FIND-NUM <NUMERIC-ADJ? .ROBJ>
+		'FIND-NOUN <NP-NAME .ROBJ>
+		'FIND-OF <OR <NP-OF .ROBJ> ;.RNP>
+		'FIND-EXCEPTIONS <NP-EXCEPT .ROBJ>>
+  <FIND-OBJECTS ,SEARCH-FLAGS .RLOC>
+  <COND (<AND <ZERO? <FIND-RES-COUNT ,SEARCH-RES>>
+	      <T? <NP-ADJS .ROBJ>>>
+	 <CHECK-DIR-ADJS <NP-ADJS .ROBJ>>)>
+  <COND (<AND <ZERO? <SET COUNT <FIND-RES-COUNT ,SEARCH-RES>>>
+	      <SET RLOC <NP-NAME .ROBJ>>
+	      <T? <ANDB ,PLURAL-FLAG <WORD-FLAGS .RLOC>>>>
+	 <NP-QUANT .ROBJ ,NP-QUANT-ALL ;,NP-QUANT-PLURAL>
+	 <NP-NAME .ROBJ <WORD-SEMANTIC-STUFF .RLOC>>
+	 <AGAIN>)
+	(<ZERO? .COUNT>
+	 <COND (<OR <T? .MULTI>
+		    <ZAPPLY ,NOT-HERE-VERB?
+			    <PARSE-ACTION ,PARSE-RESULT>>>
+		<SET RES <PMEM-ALLOC NOUN-PHRASE
+				     LENGTH ,NOUN-PHRASE-MIN-LENGTH
+				     COUNT 1
+				     OBJ1 ,NOT-HERE-OBJECT
+				     NP1 .ROBJ>>)>)
+	(<OR <1? .COUNT>
+	     <T? .QUANT>
+	     <SET RES <ZAPPLY <GETP <FIND-RES-OBJ1 ,SEARCH-RES>
+				    ,P?GENERIC>
+			      ,SEARCH-RES ,FINDER>>
+	     ;"Protocol: returns .OBJ if that's the one to use,
+				 ,NOT-HERE-OBJECT if 'are none',
+				 [,ROOMS if case was handled and msg TELLed,]
+				 <> if WHICH-PRINT should be called"
+	     ;<AND <SET RES ,P-IT-OBJECT>
+		  <NOT <NOT-IN-FIND-RES? .RES ,SEARCH-RES T>>>>
+	 <COND (<EQUAL? .RES ,NOT-HERE-OBJECT ;,ROOMS>
+		;<THROW ,PARSER-RESULT-DEAD ,PARSE-SENTENCE-ACTIVATION>
+		<RETURN <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .OBJ> .DN>)
+	       (<T? .RES>
+		<SET COUNT 1>
+		<FIND-RES-COUNT ,SEARCH-RES 1>
+		<FIND-RES-NEXT ,SEARCH-RES <>>
+		<FIND-RES-OBJ1 ,SEARCH-RES
+			       <COND (<EQUAL? .RES ,HERE> ,GLOBAL-HERE)
+				     (T .RES)>>)>
+	 <SET RES <PMEM-ALLOC NOUN-PHRASE
+			      ;FLAGS ;<COND (.QUANT ,NP-FLAG-MULTI)
+					    (T 0)>
+			      LENGTH <+ <* .COUNT 2>
+					,NOUN-PHRASE-MIN-LENGTH
+					-2>
+			      COUNT .COUNT>>
+	 <COND (<OR <SET SYN <NP-OF .ROBJ>>	;"Store owner found."
+		    <AND <SET SYN <NP-ADJS .ROBJ>>
+			 <SET SYN <ADJS-POSS .SYN>>>
+		    ;<SET SYN .RNP>>
+		<COND (<NOT <OBJECT? .SYN>>
+		       <SET SYN <FIND-RES-OWNER ,SEARCH-RES>>
+		       <COND (<NP-OF .ROBJ>
+			      <NP-OF .ROBJ .SYN>)
+			     (T ;<NP-ADJS .ROBJ>
+			      <ADJS-POSS <NP-ADJS .ROBJ> .SYN>)
+			     ;(T
+			      <NOUN-PHRASE-NP1 <LOCATION-OBJECT <NP-LOC .ROBJ>>
+					       .SYN>)>)>)>
+	 <COND (<SET SYN <DETERMINE-NP-XFER .COUNT .ROBJ ,SEARCH-RES
+					 <REST-TO-SLOT .RES NOUN-PHRASE-OBJ1>>>
+		<NOUN-PHRASE-COUNT .RES <- .COUNT .SYN>>)>)
+	(<READY-TO-DISAMBIGUATE? .ROBJ>
+	 <RETURN <PARSER-ERROR 0 ,PARSER-ERROR-ORPH-NP
+			       .ROBJ <PARSE-VERB ,PARSE-RESULT>>
+		 .DN>)>
+  <COND (<AND .RES <PMEM-TYPE? .OBJ NPP>>
+	 <NPP-NOUN-PHRASE .OBJ .RES>)>
+  ;<FIND-NUM ,FINDER 0>
+  .RES>
+
+<DEFINE FIND-OWNERS (TBL)
+ <REPEAT (OOBJ (LEN <ZGET .TBL 0>))
+	<COND (<L? .LEN 1>
+	       <RETURN>)
+	      (<OBJECT? <SET OOBJ <ZGET .TBL .LEN>>>
+	       <COND (<NOT <MATCH-OBJECT .OOBJ ,FINDER T>>
+		      <RETURN>)>)
+	      (T	;"It's another table!"
+	       <FIND-OWNERS .OOBJ>)>
+	<SET LEN <- .LEN 1>>>>
+
+<DEFINE READY-TO-DISAMBIGUATE? RTD (NP "AUX" PTR NOUN)
+ <COND (<AND <SET PTR <NP-LEXEND .NP>>
+	     <SET NOUN <NP-NAME .NP>>>
+	<REPEAT ()
+		<COND (<==? .NOUN <ZGET .PTR 0>>
+		       <RETURN .PTR .RTD>)
+		      (<G? ,P-LEXV <SET PTR <- .PTR ,LEXV-ELEMENT-SIZE-BYTES>>>
+		       <RETURN <> .RTD>)>>)>>
+
+<DEFINE DETERMINE-NP-XFER ACT (COUNT ROBJ SRES DV "AUX" CT V)
+  <SET CT <FIND-RES-SIZE .SRES>>
+  <SET V <REST-TO-SLOT .SRES FIND-RES-OBJ1>>
+  <REPEAT ()
+	<COND (<G? .CT .COUNT>
+	       <SET CT .COUNT>)>
+	<SET COUNT <- .COUNT .CT>>
+	<REPEAT (TMP (NUM 0))
+		<COND (<SET TMP <ZGET .V 0>>
+		       <ZPUT .DV 0 .TMP>
+		       <ZPUT .DV 1 .ROBJ>)
+		      (T
+		       <INC NUM>)>
+		<SET DV <ZREST .DV 4>>
+		<SET V <ZREST .V 2>>
+		<COND (<L? <SET CT <- .CT 1>> 1>
+		       <COND (<ZERO? <SET SRES <FIND-RES-NEXT .SRES>>>
+			      <RETURN .NUM .ACT>)>
+		       <SET CT ,FIND-RES-MAXOBJ ;<OBJLIST-SIZE .SRES>>
+		       <SET V <REST-TO-SLOT .SRES OBJLIST-OBJ1>>
+		       <COND (<G? .CT .COUNT>
+			      <SET CT .COUNT>)>
+		       <SET COUNT <- .COUNT .CT>>)>>>>
+
+<DEFINE RED-O-ADJ ("OPT" N:FIX TYP:FIX)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "O-ADJ">)
+		       (T <RFALSE>)>)>
+	<COND (<T? ,P-OFLAG>
+	       <COPYT ,O-LEXV ,G-LEXV ,LEXV-LENGTH-BYTES>
+	       <COPYT ,O-INBUF ,G-INBUF <+ 1 ,INBUF-LENGTH>>
+	       <ZPUT ,OOPS-TABLE ,O-START <ZGET ,OOPS-TABLE ,O-AGAIN>>
+	       ;<COND (<ZERO? <ZGET ,G-LEXV ,P-OFLAG>>	;"PARSER-ERROR-ORPH-S"
+		      <ZPUT ,G-LEXV ,P-OFLAG ,W?NO.WORD>)>
+	       <INSERT-ADJS <POP-PSTACK ,DATA-STACK>>
+	       ;<SETG P-OFLAG <>>
+	       <COPY-INPUT T>
+	       <THROW ,PARSER-RESULT-AGAIN ,PARSE-SENTENCE-ACTIVATION>)>>
+
+<DEFINE RED-O-PP ("OPT" N:FIX TYP:FIX "AUX" PP A PREP)
+ ;<COND (<NOT <ASSIGNED? N>>
+	<IFFLAG (P-DEBUGGING-PARSER <PRINTR "O-PP">) (T <RFALSE>)>)>
+ <COND (<AND <T? <SET PP <ABS ,P-OFLAG>>>
+	     <EQUAL? ,W?NO.WORD ;0 <ZGET ,O-LEXV .PP>>
+	     <SET A <ZGET ,O-LEXV <- .PP ,P-LEXELEN>>>
+	     <SET PP <POP-PSTACK ,DATA-STACK>>
+	     <OR <AND <==? .N 1> ;<PMEM-TYPE? .PP PP>
+		      ;<EQUAL? .A <PP-PREP .PP>>>
+		 <AND ;<PMEM-TYPE? .PP NP>
+		      <SET PREP <POP-PSTACK ,DATA-STACK>> ;<EQUAL? .A >>>>
+	;<ZPUT ,O-LEXV .PP ,W?NO.WORD>
+	<COPYT ,O-LEXV ,G-LEXV ,LEXV-LENGTH-BYTES>
+	<COPYT ,O-INBUF ,G-INBUF <+ 1 ,INBUF-LENGTH>>
+	<ZPUT ,OOPS-TABLE ,O-START <ZGET ,OOPS-TABLE ,O-AGAIN>>
+	<INSERT-NP ;.PP <COND (<EQUAL? .A .PREP> 1) (T 0)>>
+	;<SETG P-OFLAG <>>
+	<COPY-INPUT T>
+	<THROW ,PARSER-RESULT-AGAIN ,PARSE-SENTENCE-ACTIVATION>)>>
+
+<DEFINE INSERT-NP ("OPT" (NUM 0) (NP <>) "AUX" (GPTR <ABS ,P-OFLAG>) PPTR TMP)
+	<COND (<SET TMP <PARSE-VERB-LEXV ,PARSE-RESULT>>
+	       <SET PPTR <ZREST .TMP <* .NUM <* 2 ,P-LEXELEN>>>>
+	       <SET TMP <+ 1 </ <- ,TLEXV .TMP> ,LEXV-ELEMENT-SIZE-BYTES>>>)
+	      (T
+	       <COND ;(.NP
+		      <SET PPTR <NP-LEXBEG .NP>>	;"unreliable"
+		      <SET TMP <+ 1 </ <- <NP-LEXEND .NP> .PPTR>
+				       ,LEXV-ELEMENT-SIZE-BYTES>>>)
+		     (T
+		      <SET PPTR <ZGET ,OOPS-TABLE ,O-START>
+				;<REST-TO-SLOT ,P-LEXV LEXV-START>>
+		      <SET TMP <ZGET ,OOPS-TABLE ,O-LENGTH> ;,P-OLEN>)>
+	       <SET PPTR <ZREST .PPTR <* .NUM <* 2 ,P-LEXELEN>>>>)
+	      ;(T
+	       <SET PPTR <ZREST ,P-LEXV
+				<* 2 <+ ,P-LEXSTART <* .NUM ,P-LEXELEN>>>>>
+	       <SET TMP <GETB ,P-LEXV ,P-LEXWORDS>>)>
+	<SET NUM <- .TMP .NUM>>
+	<MAKE-ROOM-FOR-TOKENS <+ -1 .NUM> ,G-LEXV .GPTR>
+	;<PUTB ,G-LEXV ,P-LEXWORDS <+ -1 .NUM <GETB ,G-LEXV ,P-LEXWORDS>>>
+	<REPEAT ()
+		<COND (<DLESS? NUM 0> <RETURN>)>
+		<INBUF-ADD <LEXV-WORD-LENGTH .PPTR>
+			   <LEXV-WORD-OFFSET .PPTR>
+			   <SET TMP <+ 3 <* .GPTR 2>>>>
+		<SET TMP <ZGET .PPTR 0>>
+		<ZPUT ,G-LEXV .GPTR .TMP>
+		<COND (<EQUAL? .TMP ,W?INT.NUM ,W?INT.TIM>
+		       <ZPUT ,G-LEXV <+ 1 .GPTR> <ZGET .PPTR 1>>)>
+		<SET GPTR <+ .GPTR ,LEXV-ELEMENT-SIZE>>
+		<SET PPTR <+ .PPTR ,LEXV-ELEMENT-SIZE-BYTES>>>>
+
+<DEFINE TEST-SR ACT (NP "AUX" A (CT 0) (LEN <FIND-RES-COUNT ,ORPHAN-SR>))
+	<COND (<ZERO? .LEN>
+	       <RETURN <> .ACT>)
+	      (<WORD-TYPE? <SET A <NP-NAME .NP>> ,P-QUANT-CODE>
+	       <RETURN .A .ACT>)
+	      (<ZERO? <SET A <NP-ADJS .NP>>>
+	       <SET A <PMEM-ALLOC ADJS LEXPTR <NP-LEXBEG .NP>>>)
+	      (<NOT <G? ,ADJS-MAX-COUNT <SET CT <ADJS-COUNT .A>>>>
+	       <RETURN <> .ACT>)>
+	<ZPUT <REST-TO-SLOT .A ADJS-COUNT 1> .CT <NP-NAME .NP>>
+	<ADJS-COUNT .A <+ 1 .CT>>
+	<FIND-ADJS ,FINDER .A>
+	<FIND-NUM ,FINDER <NUMERIC-ADJ? .NP>>
+	<FIND-NOUN ,FINDER <NP-NAME ,ORPHAN-NP>>
+	<FIND-RES-COUNT ,SEARCH-RES 0>
+	<FIND-RES-NEXT ,SEARCH-RES <>>
+	<REPEAT ((VEC <REST-TO-SLOT ,ORPHAN-SR FIND-RES-OBJ1>)
+		 (SZ <FIND-RES-SIZE ,ORPHAN-SR>)
+		 (REM .LEN))
+		<COND (<NOT <MATCH-OBJECT <ZGET .VEC 0> ,FINDER T>>
+		       <RETURN .A .ACT>)
+		      ;(T <SET LEN <- .LEN 1>>)>
+		<COND (<L? <SET REM <- .REM 1>> 1>
+		       <RETURN>)
+		      (<L? <SET SZ <- .SZ 1>> 1>
+		       <COND (T ;<ZERO? <SET SR <FIND-RES-NEXT ,ORPHAN-SR>>>
+			      <RETURN>)>
+		       ;<SET SZ ,FIND-RES-MAXOBJ ;<OBJLIST-SIZE ,ORPHAN-SR>>
+		       ;<SET VEC <REST-TO-SLOT ,ORPHAN-SR OBJLIST-NEXT>>)
+		      (T <SET VEC <ZREST .VEC 2>>)>>
+	<COND (<NOT <0? .CT>>
+	       <ADJS-COUNT .A .CT>)>
+	<COND (<NOT <0? <FIND-RES-COUNT ,SEARCH-RES>>>
+	       .A)>>
+
+<DEFINE RED-O-NP ("OPT" N:FIX TYP:FIX "AUX" A NP (PP <>))
+ ;<COND (<NOT <ASSIGNED? N>>
+	<IFFLAG (P-DEBUGGING-PARSER <PRINTR "O-NP">) (T <RFALSE>)>)>
+ <COND (<EQUAL? .N 2>
+	<SET PP <POP-PSTACK ,DATA-STACK>>)>
+ <SET NP <POP-PSTACK ,DATA-STACK>>
+ <COND (<AND <PMEM-TYPE? .NP NOUN-PHRASE>
+	     <EQUAL? <NOUN-PHRASE-OBJ1 .NP> ,INTQUOTE>>
+	<SET NP <NOUN-PHRASE-NP1 .NP>>
+	<COND (<ZERO? ,P-OFLAG>
+	       <SET PP </ <- <NP-LEXBEG .NP> ,P-LEXV> 2>>
+	       <MAKE-ROOM-FOR-TOKENS 1 ,G-LEXV .PP>
+	       <ZPUT ,G-LEXV .PP ,W?SAY>
+	       <COPY-INPUT>
+	       <THROW ,PARSER-RESULT-AGAIN ,PARSE-SENTENCE-ACTIVATION>)>)>
+ <COND (<T? ,P-OFLAG>
+	<COND (<AND <ZERO? .PP>
+		    <WORD-TYPE? <NP-NAME .NP> ,P-ADJ-CODE>
+		    ;<ZERO? <NP-LOC .NP>>
+		    <ZERO? <NP-QUANT .NP>>
+		    <SET A <TEST-SR .NP>>>	;"Try as adjective instead."
+	       <PUSH-PSTACK ,DATA-STACK .A>
+	       <RED-O-ADJ 1 .TYP>		;"Never returns?"
+	       <RFALSE>)>
+	<COPYT ,O-LEXV ,G-LEXV ,LEXV-LENGTH-BYTES>
+	<COPYT ,O-INBUF ,G-INBUF <+ 1 ,INBUF-LENGTH>>
+	<SET N <ABS ,P-OFLAG>>
+	<COND (<EQUAL? ,W?NO.WORD ;0 <ZGET ,G-LEXV .N>>
+	       ;"PARSER-ERROR-ORPH-S: delete NO.WORD?"
+	       ;<PUTB ,G-LEXV ,P-LEXWORDS <- <GETB ,G-LEXV ,P-LEXWORDS> 1>>
+	       <INSERT-NP 0 .NP>)
+	      (T
+	       <PROG ((A1 <>))
+		<COND (<SET A <NP-NAME .NP>>
+		       <ZPUT ,G-LEXV .N .A>
+		       <SET A <NP-LEXEND .NP>>
+		       <INBUF-ADD <LEXV-WORD-LENGTH .A>
+				  <LEXV-WORD-OFFSET .A>
+				  <+ 3 <* .N 2>>>)>
+		<COND (<SET A <NP-ADJS .NP>>
+		       <INSERT-ADJS .A>)>
+		<COND (<T? .PP>
+		       ;<SET PP <NP-LOC .NP>>
+		       <MAKE-ROOM-FOR-TOKENS 2 ,G-LEXV <+ .N ,P-LEXELEN>>
+		       <ZPUT ,G-LEXV <+ .N ,P-LEXELEN> <LOCATION-PREP .PP>>
+		       <SET A <LOCATION-OBJECT .PP>>
+		       <COND (<PMEM-TYPE? .A NOUN-PHRASE>
+			      <SET A <NOUN-PHRASE-NP1 .A>>)
+			     (<PMEM-TYPE? .A NPP>
+			      <SET A <NPP-NOUN .A>>)>
+		       <ZPUT ,G-LEXV <+ .N <* 2 ,P-LEXELEN>> <NP-NAME .A>>)>
+		<COND (<AND <SET A <NP-QUANT .NP>>
+			    ;<T? <NP-NAME .NP>>>
+		       <PROG ((PTR .N))
+			<REPEAT (WD)
+			 <COND (<G? 0 <SET PTR <- .PTR ,P-LEXELEN>>>
+				<SET PTR <OR .A1 .N>>
+				<MAKE-ROOM-FOR-TOKENS 1 ,G-LEXV .PTR>
+				<RETURN>)
+			       (<OR <EQUAL? <SET WD <ZGET ,G-LEXV .PTR>>
+					    ,W?THE>
+				    <WORD-TYPE? .WD ,P-QUANT-CODE>>
+				<RETURN>)
+			       (<WORD-TYPE? .WD ,P-ADJ-CODE>
+				<SET A1 .PTR>)
+			       (T
+				<SET PTR <OR .A1 .N>>
+				<MAKE-ROOM-FOR-TOKENS 1 ,G-LEXV .PTR>
+				<RETURN>)>>
+			<ZPUT ,G-LEXV .PTR <GET-QUANTITY-WORD .A>>>)>>)>
+	<ZPUT ,OOPS-TABLE ,O-START <ZGET ,OOPS-TABLE ,O-AGAIN>>
+	;<SETG P-OFLAG <>>
+	<COPY-INPUT ;T>
+	<THROW ,PARSER-RESULT-AGAIN ,PARSE-SENTENCE-ACTIVATION>)>>
+
+<DEFINE RED-PERS ACT ("OPT" N:FIX TYP:FIX "AUX" X:PMEM)
+ ;<COND (<NOT <ASSIGNED? N>>
+	<IFFLAG (P-DEBUGGING-PARSER <PRINTR "PERS">) (T <RFALSE>)>)>
+ <COND (<NOT <EQUAL? .N 2 3>>
+	T)
+       (<OR <AND <==? <SET X <POP-PSTACK ,DATA-STACK>> ,W?COMMA>
+		 <EQUAL? .N 2>>
+	    <AND <==? .X ,W?TO>
+		 ;<EQUAL? .N 3>>>
+	<SET X <POP-PSTACK ,DATA-STACK>>
+	<COND (<EQUAL? .N 3>
+	       <COND ;(<NOT <ZAPPLY ,ASKING-VERB-WORD?
+				   <POP-PSTACK ,DATA-STACK>>>
+		      <RETURN <> .ACT>)
+		     (<NOT <WORD-TYPE? <ZGET ,P-RUNNING 0> ,P-VERB-CODE>>
+		      <RETURN <> .ACT>)>)>
+	<HACK-TELL .X>)>>
+
+<DEFINE HACK-TELL ACT (X "AUX" NP)
+	<PARSE-VERB ,PARSE-RESULT ,W?TELL>
+	<GET-SYNTAX <VERB-ONE <WORD-VERB-STUFF ,W?TELL>> 1 <>>
+	<COND (<NOT <SET NP <DETERMINE-OBJ .X 1>>>
+	       <RETURN <PARSER-ERROR 0 ,PARSER-ERROR-NOOBJ .X> .ACT>)>
+	<PARSE-VERB-LEXV ,PARSE-RESULT ,TLEXV>
+	<PARSE-CHOMPER ,PARSE-RESULT .NP>
+	<SET X <NOUN-PHRASE-OBJ1 .NP>>
+	<COND (<EQUAL? .X ,WINNER ,PLAYER ,ME>
+	       T)
+	      <IFN-P-PS-ADV
+	      (<EQUAL? .X ,YOU>
+	       T)>
+	      (T
+	       <IGNORE-FIRST-WORD ,W?YOU>
+	       <COND (<L? ,P-LEN 1>
+		      <SETG P-CONT <>>)
+		     (T
+		      <SETG P-CONT ,TLEXV>)>
+	       <COND (<OR <EQUAL? ,M-FATAL <HACK-TELL-1 .NP>>
+			  <ZERO? ,P-CONT>>
+		      <SETG P-CONT -1>
+		      <THROW ,PARSER-RESULT-DEAD
+			     ,PARSE-SENTENCE-ACTIVATION>)>
+	       ;<SETG WINNER <PARSE-CHOMPER ,PARSE-RESULT>>)>
+	T>
+
+<DEFINE HACK-TELL-1 ACT (NP "AUX" X NUM CT)
+	<SETG PRSO-NP <NOUN-PHRASE-NP1 .NP>>
+	<SET X <NOUN-PHRASE-OBJ1 .NP>>
+	<COND (<L? 1 <SET CT <NOUN-PHRASE-COUNT .NP>>>
+	       <COND (<L=? .CT <SET NUM <NOUN-PHRASE-FLAGS .NP>>>
+		      <RETURN <> .ACT>)>
+	       <NOUN-PHRASE-FLAGS .NP <+ 1 .NUM>>
+	       <SETG PRSO-NP	<ZGET <REST-TO-SLOT .NP NOUN-PHRASE-NP1>
+					<* 2 .NUM>>>
+	       <SET X		<ZGET <REST-TO-SLOT .NP NOUN-PHRASE-OBJ1>
+					<* 2 .NUM>>>
+	       <TELL D .X ":|">)>
+	<IF-P-BE-VERB
+		<SETG PRSQ <>>
+		<SETG PRSS <>>>
+	<SET X <PERFORM ,V?TELL .X>>
+	<PARSE-ACTION ,PARSE-RESULT 0 ;"for DONT-UNDERSTAND">
+	.X>
+
+<DEFINE RED-VP ("OPT" N:FIX TYP:FIX "AUX" VERB (A1 T) (A2 T))
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "VP">) (T <RFALSE>)>)>
+	<COND (<G? .N 2>
+	       <SET A1 <POP-PSTACK ,DATA-STACK>>)>
+	<SET VERB <POP-PSTACK ,DATA-STACK>>
+	<COND (<G? .N 2>
+	       <SET A2 <POP-PSTACK ,DATA-STACK>>
+	       <COND (<EQUAL? .N 4>
+		      <POP-PSTACK ,DATA-STACK>)>)>
+	<PARSE-VERB ,PARSE-RESULT .VERB>
+	<PARSE-VERB-LEXV ,PARSE-RESULT ,TLEXV>
+	<COND (<N==? .A1 T>
+	       <PARSE-ADV ,PARSE-RESULT <OR <WORD-SEMANTIC-STUFF .A1> .A1>>)
+	      (<N==? .A2 T>
+	       <PARSE-ADV ,PARSE-RESULT <OR <WORD-SEMANTIC-STUFF .A2> .A2>>)>
+	T>
+
+"Basic NP reduction.  Doesn't do any checking at this level, just copies
+ everything into a structure for later use."
+
+<DEFINE RED-NP ("OPT" N:FIX TYP:FIX
+		 "AUX" NAME (QUANT ,NP-QUANT-NONE) LEXB (LEXE ,TLEXV) ADJ)
+  ;<COND (<NOT <ASSIGNED? N>>
+	 <IFFLAG (P-DEBUGGING-PARSER <PRINTR "ADJ*-NOUN">) (T <RFALSE>)>)>
+  <SET NAME <POP-PSTACK ,DATA-STACK>>
+  <COND (<EQUAL? .NAME 1>
+	 <SET NAME <>>)>
+  <COND (<WORD-TYPE? <ZGET .LEXE 0> ,P-COMMA-CODE ,P-EOI-CODE>
+	 ;<EQUAL? ,W?COMMA <ZGET .LEXE 0>>
+	 <SET LEXE <ZBACK .LEXE ,LEXV-ELEMENT-SIZE-BYTES>>)>
+  <COND (<==? <SET ADJ <POP-PSTACK ,DATA-STACK>> 1>
+	 <SET LEXB .LEXE>
+	 <SET ADJ <>>)
+	(T
+	 <SET LEXB <ADJS-LEXPTR .ADJ>>
+	 <COND (<T? <ADJS-QUANT .ADJ>>
+		<SET QUANT <ADJS-QUANT .ADJ>>)>)>
+  <PMEM-ALLOC NP NAME .NAME ADJS .ADJ
+		 LEXBEG .LEXB LEXEND .LEXE QUANT .QUANT>>
+
+"Reduction for FOO OF BARS"
+<DEFINE RED-OF ("OPT" N:FIX TYP:FIX "AUX" ONP:PMEM NP:PMEM TMP A)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "NP-OF-NP">) (T <RFALSE>)>)>
+	<SET ONP <POP-PSTACK ,DATA-STACK>>
+	<COND (<==? <POP-PSTACK ,DATA-STACK> ,W?OF>
+	       <COND (<AND <NP-QUANT <SET NP <POP-PSTACK ,DATA-STACK>>>
+			   <NOT <NP-NAME .NP>>
+			   <NOT <NP-ADJS .NP>>>
+		      ;"ALL OF THE BOOKS = ALL BOOKS"
+		      <NP-QUANT .ONP <NP-QUANT .NP>>
+		      .ONP)
+		     (T
+		      <NP-OF .NP .ONP>
+		      .NP)>)>>
+
+"Reduction for case of a quantity by itself"
+<DEFINE RED-QT ("OPT" N:FIX TYP:FIX "AUX" Q)
+ ;<COND (<NOT <ASSIGNED? N>>
+	<IFFLAG (P-DEBUGGING-PARSER <PRINTR "QUANT">) (T <RFALSE>)>)>
+ <SET Q <POP-PSTACK ,DATA-STACK>>
+ <COND (<NOT <EQUAL? .Q ,W?A ,W?AN>>
+	<PMEM-ALLOC NP QUANT <GET-QUANTITY .Q>
+			LEXBEG ,TLEXV LEXEND ,TLEXV>)>>
+
+<DEFINE GET-QUANTITY-WORD (Q "AUX" TBL)
+ <COND (<SET TBL <INTBL? .Q ,NP-QUANT-TBL ,NP-QUANT-TBL-LEN *204*>>
+	<ZGET .TBL 1>)>>
+
+<DEFINE GET-QUANTITY (Q:VWORD "AUX" TBL)
+ <COND (<SET TBL <INTBL? .Q <ZREST ,NP-QUANT-TBL 2> ,NP-QUANT-TBL-LEN *204*>>
+	<ZGET <ZBACK .TBL 2> 0>)>>
+
+"Quantity followed by a noun phrase:  ALL RED BOOKS"
+<DEFINE RED-QN ("OPT" N:FIX TYP:FIX "AUX" NP:PMEM Q)
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "QUANT-NP">) (T <RFALSE>)>)>
+	<SET NP <POP-PSTACK ,DATA-STACK>>
+	<COND ;(<NOT <EQUAL? <NP-QUANT .NP> ,NP-QUANT-NONE ,NP-QUANT-PLURAL>>
+	       <PARSER-ERROR ,P-DONT-UNDERSTAND-TWO-QUANTITIES>)
+	      (T
+	       ;"We don't distinguish ALL THE BOOKS from ALL THE BOOK."
+	       <NP-LEXBEG .NP <- <NP-LEXBEG .NP> ,LEXV-ELEMENT-SIZE-BYTES>>
+	       <NP-QUANT .NP <GET-QUANTITY <POP-PSTACK ,DATA-STACK>>>
+	       .NP)>>
+
+"Basic top-level noun phrase reduction"
+<DEFINE RED-NPP RED ("OPT" N:FIX TYP:FIX
+		"AUX" NPP:PMEM ONPP:PMEM PP:PMEM NP (RLOC <>)
+		      (X1 <>) (X2 <>) (KLUDGE-FLAG <>))
+  ;<COND (<NOT <ASSIGNED? N>>
+	 <IFFLAG (P-DEBUGGING-PARSER <PRINTR "NPP">) (T <RFALSE>)>)>
+  <COND (<==? .N 1>
+	 ;"Just an NP, so nothing interesting to do"
+	 <POP-PSTACK ,DATA-STACK>)
+	(<==? .N 2>
+	 ;"NP/NPP followed by PP"
+	 <SET PP <POP-PSTACK ,DATA-STACK>>
+	 <SET ONPP <POP-PSTACK ,DATA-STACK>>
+	 <COND (<EQUAL? <PP-PREP .PP> ,W?BUT ,W?EXCEPT>
+		;"An exception, which isn't the same as a location"
+		<COND
+		 (<NOT <PMEM-TYPE? .ONPP NP>>;"Can't have exceptions to an NPP"
+		  <RETURN <PARSER-ERROR 0 ,PARSER-ERROR-NOUND> .RED>)
+		 (<NOT <NP-QUANT .ONPP>>
+		  <COND	;"PUT ALL IN FOO BUT BAR?"
+			(<NOT <PSTACK-EMPTY? ,DATA-STACK>>
+			 <SET X1 <POP-PSTACK ,DATA-STACK>>
+			 <COND (<NOT <PSTACK-EMPTY? ,DATA-STACK>>
+				<SET X2 <POP-PSTACK ,DATA-STACK>>
+				<COND (<AND <PMEM? .X2>
+					    <PMEM-TYPE? .X2 NP>
+					    <NP-QUANT .X2>
+					    <REDUCE-EXCEPTION .PP .X2>>
+				       <SET KLUDGE-FLAG T>)>
+				<PUSH-PSTACK ,DATA-STACK .X2>)>
+			 <PUSH-PSTACK ,DATA-STACK .X1>)>
+		  <COND (<NOT .KLUDGE-FLAG>;"Doesn't make much sense otherwise"
+			 <RETURN <PARSER-ERROR 0 ,PARSER-ERROR-NOUND> .RED>)>)
+		 (<NOT <REDUCE-EXCEPTION .PP .ONPP>> ;"Try to make sense of it"
+		  <RETURN <> .RED>)>)
+	       (<NOT <SET RLOC <REDUCE-LOCATION .PP>>>
+		;"Died, set up orphaning and severity"
+		<RETURN <> .RED>)>
+	 <COND (<NOT .RLOC> .ONPP)
+	       (<PMEM-TYPE? .ONPP NP>
+		;"We have NP (disguised as NPP) followed by PP,
+		   so glue them together"
+		<COND (<NP-LOC .ONPP>
+		       <PARSER-ERROR 0 ,PARSER-ERROR-TMNOUN
+				     <LOCATION-PREP .RLOC>>)
+		      (T
+		       <NP-LOC .ONPP .RLOC>
+		       .ONPP)>)
+	       (T
+		;"We have NPP followed by PP. NPP is produced only
+		   by NP CONJ NP"
+		<REPEAT ((OONPP:<OR PMEM FALSE> .ONPP) NP:PMEM)
+			<COND (<NOT <NP-LOC <SET NP <NPP-NOUN .OONPP>>>>
+			       <NP-LOC .NP .RLOC>)>
+			<COND (<NOT <SET OONPP <NPP-NEXT .OONPP>>>
+			       <RETURN .ONPP .RED>)
+			      (<PMEM-TYPE? .OONPP NP>
+			       <NP-LOC .OONPP .RLOC>
+			       <RETURN .ONPP .RED>)>>)>)
+	(T
+	 ;"Case of NPP AND NP"
+	 <SET NP <POP-PSTACK ,DATA-STACK>>
+	 <COND (<EQUAL? <POP-PSTACK ,DATA-STACK>
+			,W?AND ;,W?OR ,W?COMMA>
+		<COND (<AND <PMEM-TYPE? <SET NPP <POP-PSTACK ,DATA-STACK>> NP>
+			    <NP-EXCEPT .NPP>>
+		       ;"Prefer all (but foo and bar) over
+			  (all but foo) and bar..."
+		       <RETURN <> .RED>)>
+		<SET NP <PMEM-ALLOC NPP NOUN .NP>>
+		<COND (<PMEM-TYPE? .NPP NP>
+		       <PMEM-ALLOC NPP NEXT .NP
+				   NOUN .NPP>)
+		      (T
+		       <REPEAT ((NN:PMEM .NPP) TEMP:<OR FALSE PMEM>)
+		         <COND (<NOT <SET TEMP <NPP-NEXT .NN>>>
+				<NPP-NEXT .NN .NP>
+				<RETURN>)>
+			 <SET NN .TEMP>>
+		       .NPP)>)>)>>
+
+<DEFINE RED-PP PP ("OPT" N:FIX TYP:FIX
+		   "AUX" TMP NOUN:PMEM (PREP:<OR VWORD FALSE> <>))
+	;<COND (<NOT <ASSIGNED? N>>
+	       <IFFLAG (P-DEBUGGING-PARSER <PRINTR "PP">) (T <RFALSE>)>)>
+	<SET NOUN <POP-PSTACK ,DATA-STACK>>
+  <COND (<==? .N 2>
+	 <SET PREP <POP-PSTACK ,DATA-STACK>>)
+	(<==? <SET TMP <POP-PSTACK ,DATA-STACK>> ,W?OF>
+	 <COND (<==? <SET PREP <POP-PSTACK ,DATA-STACK>> ,W?OUT>
+		<SET PREP ,W?FROM>)
+	       (T
+		<RETURN <> .PP>)>)
+	(<==? .TMP ,W?NOT>
+	 <COND (<EQUAL? <SET PREP <POP-PSTACK ,DATA-STACK>> ,W?BUT ,W?EXCEPT>
+		T)
+	       (T
+		<RETURN <> .PP>)>)>
+  <COND (.PREP <PMEM-ALLOC PP PREP .PREP NOUN .NOUN>)>>
+
+<ADD-WORD MY ADJ>
+<ADD-WORD ME NOUN>
+<ADD-WORD YOUR ADJ>
+<ADD-WORD YOU NOUN>
+<ADD-WORD ITS ADJ>
+<ADD-WORD IT NOUN>
+<ADD-WORD HIS ADJ>
+<ADD-WORD HIM NOUN>
+<IFN-P-PS-ADV
+	<ADD-WORD HER ADJ>
+	<ADD-WORD HER NOUN>>
+;<ADD-WORD OUR ADJ>
+;<ADD-WORD US NOUN>
+;<ADD-WORD THEIR ADJ>
+;<ADD-WORD THEM NOUN>
+
+<DEFINE RED-POSS RP ("OPT" N:FIX TYP:FIX "AUX" (OBJ 0) WD A)
+ ;<COND (<NOT <ASSIGNED? N>>
+	<IFFLAG (P-DEBUGGING-PARSER <PRINTR "POSSESSIVE">) (T <RFALSE>)>)>
+ <COND (<==? .N 3>
+	<COND (<N==? <POP-PSTACK ,DATA-STACK> ,W?S>
+	       <PARSER-ERROR 0 ,PARSER-ERROR-NOUND>)
+	      (<N==? <POP-PSTACK ,DATA-STACK> ,W?APOSTROPHE>
+	       <PARSER-ERROR 0 ,PARSER-ERROR-NOUND>)
+	      (T
+	       <POP-PSTACK ,DATA-STACK>)>)>>
+
+<CONSTANT LAST-OBJECT 0>
+
+<DEFINE RED-ADJ RA ("OPT" N:FIX TYP:FIX "AUX" A1 A2 CT AD)
+  ;<COND (<NOT <ASSIGNED? N>>
+	 <IFFLAG (P-DEBUGGING-PARSER <PRINTR "ADJ*">) (T <RFALSE>)>)>
+  ;"We die after four adjectives for now, since we don't have arbitrary
+     storage allocation.  Other possibilities exist for the future..."
+  <COND (<0? .N> 1)
+	(T
+	 <COND (<==? <SET A1 <POP-PSTACK ,DATA-STACK>> 1>
+		<SET A1 <PMEM-ALLOC ADJS LEXPTR ,TLEXV>>)>
+	 <SET A2 <POP-PSTACK ,DATA-STACK>>
+	 <COND (<PMEM? .A2>	;"NP"
+		<ADJS-POSS .A1 .A2>
+		<RETURN .A1 .RA>)
+	       (<EQUAL? .A2 ,W?MY>
+	        <ADJS-POSS .A1 ,PLAYER>
+		<RETURN .A1 .RA>)
+	       (<EQUAL? .A2 ,W?YOUR>
+		<COND (T ;<NOT <==? ,WINNER ,PLAYER>>
+		       <ADJS-POSS .A1 ,WINNER>)>
+		<RETURN .A1 .RA>)
+	       (<EQUAL? .A2 ,W?HIS>	;"ASK TROLL ABOUT HIS AX"
+		<COND (<AND <SET AD <PARSE-OBJ1 ,PARSE-RESULT>>
+			    <SET AD <NOUN-PHRASE-OBJ1 .AD>>
+			    <FSET? .AD ,PERSONBIT>>
+		       <ADJS-POSS .A1 .AD>
+		       <IFN-P-PS-ADV
+				<COND (<FSET? .AD ,FEMALE ;,FEMALEBIT>
+				       <ADJS-POSS .A1 ,P-HIM-OBJECT>)>>)
+		      (T
+		       <ADJS-POSS .A1 ,P-HIM-OBJECT>)>
+		<RETURN .A1 .RA>)>
+	 <IFN-P-PS-ADV
+	 <COND (<EQUAL? .A2 ,W?HER>
+		<COND (<AND <SET AD <PARSE-OBJ1 ,PARSE-RESULT>>
+			    <SET AD <NOUN-PHRASE-OBJ1 .AD>>
+			    <FSET? .AD ,PERSONBIT>
+			    <FSET? .AD ,FEMALE ;,FEMALEBIT>>
+		       <ADJS-POSS .A1 .AD>)
+		      (T
+		       <ADJS-POSS .A1 ,P-HER-OBJECT>)>
+		<RETURN .A1 .RA>)>>
+	 <COND (<EQUAL? .A2 ,W?ITS>
+		<COND (<AND <SET AD <PARSE-OBJ1 ,PARSE-RESULT>>
+			    <SET AD <NOUN-PHRASE-OBJ1 .AD>>
+			    <NOT <FSET? .AD ,PERSONBIT>>>
+		       <ADJS-POSS .A1 .AD>)
+		      (T
+		       <ADJS-POSS .A1 ,P-IT-OBJECT>)>)
+	       (<BAND ,POSSESSIVE <WORD-FLAGS .A2>>
+		<ADJS-POSS .A1 <WORD-SEMANTIC-STUFF .A2>>)
+	       (<EQUAL? .A2 ,W?A ,W?AN ;,W?ANY>
+		<ADJS-QUANT .A1 ,NP-QUANT-A>)
+	       (<EQUAL? .A2 ,W?THE>
+		T)
+	       (<WORD-TYPE? .A2 ,P-ADJ-CODE>
+		<SET AD <COND (T ;<CHECK-EXTENDED?> .A2)
+			      ;(T <WORD-ADJ-ID .A2>)>>
+		<COND (<L? <SET CT <ADJS-COUNT .A1:PMEM>>:FIX ,ADJS-MAX-COUNT>
+		       ;"Make sure the adjective isn't already here..."
+		       <REPEAT ((VV:<PRIMTYPE TABLE>
+				 <REST-TO-SLOT .A1:PMEM ADJS-COUNT 1>)
+				(TCT:FIX <ADJS-COUNT .A1:PMEM>))
+			       <COND (<0? .TCT>
+				      <ZPUT .VV 0 .A2>
+				      <ADJS-COUNT .A1 <+ .CT 1>>
+				      <RETURN>)>
+			       <COND (<==? .AD <COND (T ;<CHECK-EXTENDED?>
+						      <ZGET .VV 0>)
+						     ;(T <WORD-ADJ-ID
+							 <ZGET .VV 0>>)>>
+				      <RETURN>)>
+			       <SET VV <ZREST .VV 2>>
+			       <SET TCT <- .TCT 1>>>)>)
+	       (T <RETURN <> .RA>)>
+	 .A1)>>
+
+<OBJECT INTQUOTE
+	(LOC GLOBAL-OBJECTS)
+	(DESC "quotation")>
+
+<DEFINE RED-QUOTE ACT ("OPT" N:FIX TYP:FIX "AUX" NP)
+ ;<COND (<NOT <ASSIGNED? N>>
+	<IFFLAG (P-DEBUGGING-PARSER <PRINTR "QUOTE">) (T <RFALSE>)>)>
+ <COND (<EQUAL? ,W?QUOTE <POP-PSTACK ,DATA-STACK>>
+	;<COND (<EQUAL? .N 3>
+	       <SET NP <POP-PSTACK ,DATA-STACK>>
+	       <COND (<EQUAL? ,W?QUOTE <POP-PSTACK ,DATA-STACK>>
+		      <RETURN .NP .ACT>)
+		     (T <RETURN <> .ACT>)>)
+	      (<NOT <SPEAKING-VERB? <PARSE-ACTION ,PARSE-RESULT>>>
+	       <RETURN <> .ACT>)>
+	<SET NP <PMEM-ALLOC NP NAME ,W?QUOTE
+			    LEXBEG <ZBACK ,P-RUNNING <* 2 ,P-LEXELEN> ;<* 2>>
+			    ;"Back up over NO.WORD">>
+	<REPEAT ()
+	 <SET N <ZGET ,P-RUNNING 0>>
+	 <COND (<OR <L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		    <EQUAL? .N ,W?QUOTE ,W?END.OF.INPUT>>
+		<COND (<EQUAL? .N ,W?QUOTE>
+		       <NP-LEXEND .NP ,P-RUNNING>
+		       <SETG P-RUNNING <ZREST ,P-RUNNING <* 2 ,P-LEXELEN>>>)
+		      (T
+		       <NP-LEXEND .NP <ZBACK ,P-RUNNING <* 2 ,P-LEXELEN>>>)>
+		;<SETG P-RUNNING <ZREST ,P-RUNNING <* 2 ,P-LEXELEN>>>
+		<COND (T ;<NOT <EQUAL? .N ,W?QUOTE>>	;"LOOK UP 'WORM'"
+		       <SETG P-WORDS-AGAIN </ <- ,P-RUNNING
+						 <ZGET ,OOPS-TABLE ,O-START>>
+					      <* 2 ,P-LEXELEN>>>
+		       ;<SETG P-WORDS-AGAIN <- ,P-WORDS-AGAIN 1>>)>
+		<RETURN>)>
+	 <SETG P-RUNNING <ZREST ,P-RUNNING <* 2 ,P-LEXELEN>>>>
+	<PMEM-ALLOC NOUN-PHRASE
+		    COUNT 1 LENGTH ,NOUN-PHRASE-MIN-LENGTH
+		    OBJ1 ,INTQUOTE NP1 .NP>)>>
+
+<END-SEGMENT>
+<ENDPACKAGE>
diff --git a/syntax.zil b/syntax.zil
new file mode 100644
index 0000000..4ee61d3
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,823 @@
+"SYNTAX for
+
+		     ZORK ZERO (from Nord and Bert)
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BUZZ PLEASE THIS THAT PRY HERE SOME FRONT>
+
+;"the following make BODY-PARTS-HANDLER work"
+<VOC "MAN\'S" ADJ>
+<VOC "WOMAN\'S" ADJ>
+
+<ADD-WORD "TOP" PARTICLE ;PREP> ;"for PUT X ON TOP OF Y"
+
+<SYNONYM TO TOWARD>
+<SYNONYM WITH USING>
+<SYNONYM THROUGH THRU>
+<SYNONYM ON ONTO UPON ATOP>
+<SYNONYM OUT OUTSIDE>
+<SYNONYM IN INSIDE INTO>
+<SYNONYM UNDER BELOW BENEATH UNDERNEATH>
+<SYNONYM BEFORE NEAR BY NEXT>
+<SYNONYM AROUND ALONG>
+
+<SYNONYM ALL BOTH EVERYTHING>
+
+<SYNONYM NORTH N>
+<SYNONYM SOUTH S>
+<SYNONYM EAST E>
+<SYNONYM WEST W>
+<SYNONYM DOWN D DOWNSTAIRS BELOWDECKS>
+<SYNONYM UP U UPSTAIRS>
+<SYNONYM NW NORTHW NORTHWEST>
+<SYNONYM NE NORTHE NORTHEAST>
+<SYNONYM SW SOUTHW SOUTHWEST>
+<SYNONYM SE SOUTHE SOUTHEAST>
+
+;"game commands"
+
+<SYNTAX VERBOSE = V-VERBOSE>
+
+<SYNTAX BRIEF = V-BRIEF>
+
+<SYNTAX SUPERBRIEF = V-SUPERBRIEF>
+
+<SYNTAX COLOR = V-COLOR>
+
+<SYNTAX CREDITS = V-CREDITS>
+<VERB-SYNONYM CREDITS CREDIT>
+
+<SYNTAX DIAGNOSE = V-DIAGNOSE>
+
+<SYNTAX INVENTORY = V-INVENTORY>
+<VERB-SYNONYM INVENTORY I>
+
+<SYNTAX MODE = V-MODE>
+
+<SYNTAX QUIT = V-QUIT>
+<VERB-SYNONYM QUIT Q>
+
+<SYNTAX RESTART = V-RESTART>
+
+<SYNTAX RESTORE = V-RESTORE>
+
+<SYNTAX SAVE = V-SAVE>
+
+<SYNTAX UNDO = V-UNDO>
+
+<SYNTAX SCORE = V-SCORE>
+<VERB-SYNONYM SCORE STATUS>
+
+<SYNTAX NOTIFY = V-NOTIFY>
+
+<SYNTAX SCRIPT = V-SCRIPT>
+
+<SYNTAX UNSCRIPT = V-UNSCRIPT>
+
+<SYNTAX VERSION = V-VERSION>
+
+<SYNTAX \#RANDOM OBJECT = V-$RANDOM>
+
+<SYNTAX \#COMMAND = V-$COMMAND>
+
+<SYNTAX \#RECORD = V-$RECORD>
+
+<SYNTAX \#UNRECORD = V-$UNRECORD>
+
+<SYNTAX $REFRESH = V-$REFRESH>
+<VERB-SYNONYM $REFRESH REFRESH>
+
+<SYNTAX $VERIFY = V-$VERIFY>
+<SYNTAX $VERIFY OBJECT = V-$VERIFY>
+<VERB-SYNONYM $VERIFY $VER>
+
+;<SYNTAX $DEBUG = V-$DEBUG>
+
+;<SYNTAX $SKIP = V-$SKIP>
+;<SYNTAX $SKIP OBJECT (EVERYWHERE) = V-$SKIP>
+
+;"subtitle real verbs"
+
+;<SYNTAX ANAGRAM OBJECT (EVERYWHERE) = V-ANAGRAM>
+
+;<SYNTAX APPLAUD = V-APPLAUD>
+'<SYNTAX APPLAUD OBJECT = V-APPLAUD>
+;<VERB-SYNONYM APPLAUD CLAP>
+
+;<SYNTAX APPLY OBJECT (HELD TAKE) = V-APPLY>
+;<SYNTAX APPLY OBJECT (HELD MANY) TO OBJECT = V-PUT-ON PRE-PUT>
+
+<SYNTAX APPROACH OBJECT (EVERYWHERE) = V-WALK-TO>
+
+<SYNTAX ASK OBJECT (FIND ACTORBIT) ABOUT OBJECT (EVERYWHERE) = V-ASK-ABOUT>
+<SYNTAX ASK OBJECT (FIND ACTORBIT) ON OBJECT (EVERYWHERE) = V-ASK-ABOUT>
+<SYNTAX ASK OBJECT (FIND ACTORBIT) FOR OBJECT (EVERYWHERE) = V-ASK-FOR>
+<SYNTAX ASK FOR OBJECT (EVERYWHERE) = V-ASK-NO-ONE-FOR>
+
+<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL>
+<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
+	WITH OBJECT (HELD CARRIED HAVE) = V-KILL>
+<VERB-SYNONYM ATTACK KILL MURDER FIGHT SLAP STAB HIT STRIKE ;GORE ;SLAY>
+
+<SYNTAX BEHEAD OBJECT (FIND ACTORBIT) = V-BEHEAD>
+
+;<SYNTAX BEND OBJECT = V-BEND>
+;<VERB-SYNONYM BEND SPREAD>
+
+<SYNTAX BITE OBJECT = V-BITE>
+
+<SYNTAX BLOW IN OBJECT = V-INFLATE>
+<SYNTAX BLOW UP OBJECT = V-INFLATE>
+<SYNTAX BLOW OUT OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
+
+<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-ENTER PRE-ENTER>
+<VERB-SYNONYM BOARD MOUNT>
+
+<SYNTAX BURN OBJECT (FIND BURNBIT) = V-BURN PRE-TOUCH>
+<SYNTAX BURN UP OBJECT (FIND BURNBIT) = V-BURN PRE-TOUCH>
+<SYNTAX BURN OBJECT (FIND BURNBIT) WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
+<SYNTAX BURN UP OBJECT (FIND BURNBIT) WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
+
+<SYNTAX BUY OBJECT (EVERYWHERE) = V-BUY> 
+<SYNTAX BUY OBJECT (EVERYWHERE) FROM OBJECT = V-BUY>
+<VERB-SYNONYM BUY ORDER PURCHASE>
+
+<SYNTAX CALL OBJECT (EVERYWHERE) = V-CALL>
+<SYNTAX CALL OUT OBJECT (EVERYWHERE) = V-CALL>
+<SYNTAX CALL FOR OBJECT (EVERYWHERE) = V-CALL>
+<SYNTAX CALL TO OBJECT (EVERYWHERE) = V-CALL>
+
+<SYNTAX CATCH OBJECT (ON-GROUND IN-ROOM) = V-CATCH>
+<SYNTAX CATCH OBJECT (ON-GROUND IN-ROOM) IN OBJECT = V-CATCH>
+<SYNTAX CATCH OBJECT (ON-GROUND IN-ROOM) WITH OBJECT = V-CATCH>
+<VERB-SYNONYM CATCH TRAP>
+
+<SYNTAX CIRCLE OBJECT = V-WALK-AROUND>
+
+<SYNTAX CLIMB OBJECT (ON-GROUND IN-ROOM) = V-CLIMB>
+<SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB UP OBJECT (FIND KLUDGEBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX CLIMB DOWN OBJECT (FIND KLUDGEBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB OUT OBJECT (FIND KLUDGEBIT) (ON-GROUND IN-ROOM) = V-EXIT>
+<SYNTAX CLIMB OFF OBJECT (FIND KLUDGEBIT) (ON-GROUND IN-ROOM) = V-EXIT>
+<SYNTAX CLIMB OVER OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-OVER>
+<SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-ENTER PRE-ENTER>
+<SYNTAX CLIMB THROUGH OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX CLIMB UNDER OBJECT = V-CRAWL-UNDER>
+<VERB-SYNONYM CLIMB SCALE>
+
+<SYNTAX CLOSE OBJECT (FIND OPENBIT ;DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-CLOSE PRE-TOUCH>
+<SYNTAX CLOSE OFF OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	= V-OFF PRE-TOUCH>
+<SYNTAX CLOSE UP OBJECT (FIND KLUDGEBIT) = V-SHUT-UP PRE-SWITCH>
+<SYNTAX CLOSE OBJECT WITH OBJECT (FIND KEYBIT) (HAVE) = V-LOCK PRE-LOCK>
+<VERB-SYNONYM CLOSE SHUT SHUTTER>
+
+<SYNTAX CONSULT OBJECT ABOUT OBJECT (EVERYWHERE) = V-SRESEARCH PRE-SWITCH>
+<SYNTAX CONSULT OBJECT ON OBJECT (EVERYWHERE) = V-SRESEARCH PRE-SWITCH>
+
+<SYNTAX COUGH = V-COUGH>
+
+<SYNTAX COUNT OBJECT (MANY) = V-COUNT PRE-COUNT>
+
+<SYNTAX COVER OBJECT WITH OBJECT (HELD MANY) = V-SPUT-ON PRE-SWITCH>
+
+<SYNTAX CRAWL UNDER OBJECT = V-CRAWL-UNDER>
+<SYNTAX CRAWL OUT OBJECT = V-EXIT>
+
+<SYNTAX CROSS OBJECT = V-CROSS>
+<VERB-SYNONYM CROSS FORD>
+
+<SYNTAX DATE = V-DATE>
+
+<SYNTAX DECODE OBJECT = V-DECODE>
+<VERB-SYNONYM DECODE DECIPHER ANAGRAM>
+
+;<SYNTAX DEFLATE OBJECT = V-DEFLATE>
+;<SYNTAX DEFLATE OBJECT WITH OBJECT (HAVE) = V-DEFLATE>
+;<VERB-SYNONYM DEFLATE POP>
+
+<SYNTAX DEMOLISH OBJECT (ON-GROUND IN-ROOM) = V-MUNG PRE-TOUCH>
+<SYNTAX DEMOLISH OBJECT WITH OBJECT (HELD CARRIED TAKE) = V-MUNG PRE-TOUCH>
+<SYNTAX DEMOLISH OUT OBJECT (FIND KLUDGEBIT) = V-MUNG PRE-TOUCH>
+<SYNTAX DEMOLISH DOWN OBJECT = V-KILL>
+<SYNTAX DEMOLISH OFF OBJECT = V-MUNG PRE-TOUCH>
+<VERB-SYNONYM DEMOLISH DESTROY DAMAGE BREAK CRACK SMASH WRECK>
+
+<SYNTAX DESCEND OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+
+;<SYNTAX DIG OBJECT = V-DIG>
+;<SYNTAX DIG IN OBJECT = V-DIG>
+;<SYNTAX DIG THROUGH OBJECT = V-DIG>
+;<SYNTAX DIG OBJECT = V-DIG>	;"added by SWG for debugging"
+<SYNTAX DIG OBJECT WITH OBJECT (HAVE) = V-DIG>
+<SYNTAX DIG UP OBJECT WITH OBJECT (HAVE) = V-DIG>
+<SYNTAX DIG IN OBJECT WITH OBJECT (HAVE) = V-DIG>
+<SYNTAX DIG THROUGH OBJECT WITH OBJECT (HAVE) = V-DIG>
+<SYNTAX DIG WITH OBJECT (HAVE) = V-DIG-WITH>
+
+<SYNTAX DISEMBARK = V-EXIT>
+<SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-EXIT>
+<SYNTAX DISEMBARK FROM OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-EXIT>
+<VERB-SYNONYM DISEMBARK DEBARK DISMOUNT EXIT DEPART WITHDRAW>
+
+<SYNTAX DOFF OBJECT (MANY) = V-TAKE-OFF>
+
+;<SYNTAX DRESS = V-DRESS>
+;<SYNTAX DRESS OBJECT = V-DRESS>
+
+<SYNTAX DRINK OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-DRINK PRE-INGEST>
+<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM PRE-INGEST>
+<SYNTAX DRINK OBJECT WITH OBJECT = V-DRINK-WITH PRE-INGEST>
+<SYNTAX DRINK FROM OBJECT WITH OBJECT = V-DRINK-WITH PRE-INGEST>
+<VERB-SYNONYM DRINK SIP>
+
+<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP IDROP>
+<SYNTAX DROP OBJECT (HELD MANY) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX DROP OBJECT (CARRIED) FROM OBJECT = V-THROW-FROM IDROP>
+<SYNTAX DROP OBJECT (CARRIED) OFF OBJECT = V-THROW-FROM IDROP>
+<SYNTAX DROP OBJECT (HELD MANY) OUT OBJECT = V-PUT-THROUGH IDROP>
+<SYNTAX DROP OBJECT (HELD MANY) THROUGH OBJECT = V-PUT-THROUGH IDROP>
+;<SYNTAX DROP OBJECT (HELD CARRIED) BEFORE OBJECT = V-PUT-NEAR IDROP>
+;<SYNTAX DROP OBJECT (HELD CARRIED) AT OBJECT = V-PUT-NEAR IDROP>
+<VERB-SYNONYM DROP DUMP RELEASE>
+
+<SYNTAX EAT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EAT PRE-INGEST>
+;<SYNTAX EAT ON OBJECT = V-EAT PRE-INGEST>
+<VERB-SYNONYM EAT DEVOUR SWALLOW ;INGEST ;GOBBLE ;DINE>
+
+<SYNTAX EMPTY OBJECT (HAVE TAKE) = V-EMPTY PRE-TOUCH>
+<SYNTAX EMPTY OUT OBJECT (HAVE TAKE) = V-EMPTY PRE-TOUCH>
+;<SYNTAX EMPTY OVER OBJECT (HAVE TAKE) = V-EMPTY PRE-TOUCH>
+<SYNTAX EMPTY OBJECT (HAVE TAKE) OVER OBJECT = V-EMPTY PRE-TOUCH>
+<SYNTAX EMPTY OBJECT (HAVE TAKE) ON OBJECT = V-EMPTY PRE-TOUCH>
+<SYNTAX EMPTY OBJECT (HAVE TAKE) IN OBJECT = V-EMPTY PRE-TOUCH>
+<SYNTAX EMPTY OBJECT (HAVE TAKE) TO OBJECT = V-EMPTY PRE-TOUCH>
+<SYNTAX EMPTY OBJECT (MANY) FROM OBJECT (HAVE TAKE) = V-EMPTY-FROM>
+<SYNTAX EMPTY OBJECT (MANY) OUT OBJECT (HAVE TAKE) = V-EMPTY-FROM>
+;<VERB-SYNONYM EMPTY TIP>
+
+<SYNTAX ENTER = V-IN>
+<SYNTAX ENTER OBJECT = V-ENTER PRE-ENTER>
+
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM)	= V-EXAMINE PRE-LOOK>
+<SYNTAX EXAMINE OBJECT IN OBJECT = V-MIRROR-LOOK>
+;<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND)
+	= V-LOOK-INSIDE PRE-LOOK>
+;<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND)
+	= V-LOOK-INSIDE PRE-LOOK>
+;<SYNTAX EXAMINE FOR OBJECT (EVERYWHERE) = V-FIND>  
+<VERB-SYNONYM EXAMINE X INSPECT DESCRIBE STUDY OBSERVE WATCH>
+
+<SYNTAX EXTINGUISH OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
+<VERB-SYNONYM EXTINGUISH DEACTIVATE>
+
+<SYNTAX FEED OBJECT (FIND ACTORBIT) = V-FEED>
+<SYNTAX FEED OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX FEED OBJECT (FIND ACTORBIT) (ON-GROUND) OBJECT (MANY HELD HAVE)
+	= V-SGIVE PRE-SWITCH>
+
+<SYNTAX FILL OBJECT (HELD CARRIED HAVE) = V-FILL PRE-FILL>
+<SYNTAX FILL OBJECT (HELD CARRIED HAVE) WITH OBJECT = V-FILL PRE-FILL>
+<SYNTAX FILL OBJECT (HELD CARRIED HAVE) FROM OBJECT = V-FILL PRE-FILL>
+<SYNTAX FILL OBJECT (HELD CARRIED HAVE) IN OBJECT = V-FILL PRE-FILL>
+
+<SYNTAX FIND OBJECT (EVERYWHERE) = V-FIND>
+<SYNTAX FIND OBJECT (EVERYWHERE) IN OBJECT = V-SSEARCH-OBJECT-FOR PRE-SWITCH>
+<VERB-SYNONYM FIND SEEK>
+
+<SYNTAX FLY = V-FLY>
+<SYNTAX FLY OBJECT = V-FLY>
+
+<SYNTAX FOLLOW OBJECT (EVERYWHERE) = V-FOLLOW>
+<VERB-SYNONYM FOLLOW PURSUE CHASE>
+
+<SYNTAX HAND OBJECT (MANY HELD HAVE) (FIND TAKEBIT) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX HAND OBJECT (FIND ACTORBIT) (ON-GROUND) OBJECT (MANY HELD HAVE)
+	= V-SGIVE PRE-SWITCH>
+<SYNTAX HAND UP OBJECT (FIND KLUDGEBIT) = V-GIVE-UP>
+;<SYNTAX HAND BACK OBJECT (HELD CARRIED HAVE) = V-RETURN>
+;<SYNTAX HAND OBJECT (MANY HELD HAVE) BACK OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<VERB-SYNONYM HAND GIVE OFFER ;SELL ;DONATE ;EXTEND>
+
+<SYNTAX HANG OBJECT (FIND ACTORBIT) = V-HANG>
+
+<SYNTAX HEAR OBJECT = V-LISTEN PRE-LISTEN>
+
+<SYNTAX HELLO = V-HELLO>
+<SYNTAX HELLO OBJECT = V-HELLO>
+<VERB-SYNONYM HELLO HI>
+
+<SYNTAX HELP = V-HINT>
+<SYNTAX HELP OFF OBJECT (FIND KLUDGEBIT) = V-HINTS-NO>
+<SYNTAX HELP OBJECT = V-SAVE-SOMETHING>
+<VERB-SYNONYM HELP HINT HINTS CLUE CLUES INVISICLUES>
+
+<SYNTAX HIDE UNDER OBJECT = V-HIDE>
+<SYNTAX HIDE BEHIND OBJECT = V-HIDE>
+
+;<SYNTAX INFLATE OBJECT = V-INFLATE>
+
+<SYNTAX JUMP = V-LEAP>
+<SYNTAX JUMP OBJECT = V-LEAP>
+<SYNTAX JUMP OVER OBJECT = V-LEAP>
+<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
+<SYNTAX JUMP IN OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX JUMP FROM OBJECT = V-LEAP-OFF>
+<SYNTAX JUMP OFF OBJECT = V-LEAP-OFF>
+<SYNTAX JUMP ON OBJECT = V-STAND-ON>
+;<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
+<SYNTAX JUMP OUT OBJECT = V-LEAP-OFF>
+<SYNTAX JUMP THROUGH OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX JUMP UP OBJECT (FIND KLUDGEBIT) = V-LEAP>
+<SYNTAX JUMP DOWN OBJECT (FIND KLUDGEBIT)  = V-LEAP>
+<SYNTAX JUMP TO OBJECT = V-LEAP>
+<SYNTAX JUMP UNDER OBJECT = V-CRAWL-UNDER>
+<SYNTAX JUMP OUT OBJECT IN OBJECT = V-LEAP-OFF>
+<SYNTAX JUMP FROM OBJECT IN OBJECT = V-LEAP-OFF>
+<SYNTAX JUMP FROM OBJECT TO OBJECT = V-LEAP-OFF>
+<VERB-SYNONYM JUMP LEAP DIVE VAULT>
+
+<SYNTAX KICK OBJECT = V-KICK>
+
+<SYNTAX KISS OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KISS PRE-TOUCH>
+
+<SYNTAX KNOCK OBJECT = V-MUNG PRE-TOUCH>
+<SYNTAX KNOCK ON OBJECT (FIND DOORBIT) = V-KNOCK>
+<SYNTAX KNOCK AT OBJECT (FIND DOORBIT) = V-KNOCK>
+<SYNTAX KNOCK DOWN OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL>
+<VERB-SYNONYM KNOCK RAP>
+
+;<SYNTAX LAND = V-LAND>
+;<SYNTAX LAND OBJECT (FIND VEHBIT) = V-LAND>
+;<VERB-SYNONYM LAND MOOR DOCK>
+
+<SYNTAX LEAD OBJECT OBJECT ;(EVERYWHERE) = V-RIDE-DIR>
+<SYNTAX LEAD OBJECT TO OBJECT (EVERYWHERE) = V-LEAD-TO>
+
+;<SYNTAX LEAN OBJECT (HAVE) ON OBJECT = V-PUT-AGAINST>
+;<SYNTAX LEAN OBJECT (HAVE) AGAINST OBJECT = V-PUT-AGAINST>
+
+<SYNTAX LEAVE = V-EXIT>
+<SYNTAX LEAVE OBJECT = V-LEAVE>
+<SYNTAX LEAVE OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX LEAVE OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+;<SYNTAX LEAVE OBJECT (HELD CARRIED) BEFORE OBJECT = V-PUT-NEAR IDROP>
+;<SYNTAX LEAVE OBJECT (HELD CARRIED) AT OBJECT = V-PUT-NEAR IDROP>
+<SYNTAX LET GO OBJECT (FIND KLUDGEBIT) (HELD MANY HAVE) = V-DROP IDROP>
+<SYNTAX LET OUT OBJECT = V-LET-OUT>
+<SYNTAX LET OBJECT (MANY) OUT OBJECT (HAVE TAKE) = V-EMPTY-FROM>
+
+<SYNTAX LIE ON OBJECT (FIND VEHBIT) = V-LIE-DOWN>
+<SYNTAX LIE IN OBJECT (FIND VEHBIT) = V-LIE-DOWN>
+<SYNTAX LIE DOWN OBJECT (FIND KLUDGEBIT) = V-LIE-DOWN>
+
+<SYNTAX LIGHT OBJECT (FIND LIGHTBIT) = V-ON PRE-TOUCH>
+<SYNTAX LIGHT OBJECT (FIND BURNBIT) WITH OBJECT (HELD CARRIED)
+	= V-BURN PRE-TOUCH>
+<VERB-SYNONYM LIGHT START ACTIVATE>
+
+<SYNTAX LISTEN = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN TO OBJECT = V-LISTEN PRE-LISTEN>
+
+<SYNTAX LOCK OBJECT WITH OBJECT (FIND KEYBIT) (HAVE) = V-LOCK PRE-LOCK>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK AROUND OBJECT (FIND KLUDGEBIT) = V-LOOK>
+<SYNTAX LOOK DOWN OBJECT (FIND KLUDGEBIT) = V-LOOK-DOWN PRE-LOOK>
+<SYNTAX LOOK AT OBJECT = V-EXAMINE PRE-LOOK>
+<SYNTAX LOOK AT OBJECT WITH OBJECT (HAVE) = V-EXAMINE PRE-LOOK>
+<SYNTAX LOOK AT OBJECT THROUGH OBJECT (HAVE) = V-EXAMINE PRE-LOOK>
+<SYNTAX LOOK THROUGH OBJECT WITH OBJECT (HAVE) = V-EXAMINE PRE-LOOK>
+<SYNTAX LOOK ON OBJECT = V-EXAMINE PRE-LOOK>
+<SYNTAX LOOK TO OBJECT = V-EXAMINE PRE-LOOK>
+<SYNTAX LOOK AT OBJECT IN OBJECT = V-MIRROR-LOOK>
+<SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE PRE-LOOK>
+<SYNTAX LOOK OUT OBJECT = V-LOOK-INSIDE PRE-LOOK>
+<SYNTAX LOOK IN OBJECT = V-LOOK-INSIDE PRE-LOOK>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER PRE-LOOK>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND PRE-LOOK>
+<SYNTAX LOOK OVER OBJECT = V-LOOK-OVER PRE-LOOK>
+<SYNTAX LOOK FOR OBJECT (EVERYWHERE) = V-FIND>
+<SYNTAX LOOK FOR OBJECT (EVERYWHERE) IN OBJECT
+	= V-SSEARCH-OBJECT-FOR PRE-SWITCH>
+<SYNTAX LOOK UP OBJECT (EVERYWHERE) (FIND KLUDGEBIT) = V-RESEARCH PRE-RESEARCH>
+<SYNTAX LOOK UP OBJECT (EVERYWHERE) IN OBJECT = V-RESEARCH PRE-RESEARCH>
+<SYNTAX LOOK OBJECT = V-CHASTISE>
+<VERB-SYNONYM LOOK L>
+
+<SYNTAX LOWER OBJECT = V-LOWER PRE-TOUCH>
+<SYNTAX LOWER OBJECT THROUGH OBJECT = V-PUT-THROUGH IDROP>
+<SYNTAX LOWER OBJECT OUT OBJECT = V-PUT-THROUGH IDROP>
+
+;<SYNTAX MAKE OBJECT (EVERYWHERE) = V-MAKE>
+;<SYNTAX MAKE OBJECT (EVERYWHERE) WITH OBJECT (FIND ACTORBIT) = V-MAKE-WITH>
+;<VERB-SYNONYM MAKE CREATE>
+
+<SYNTAX MAP = V-MAP>
+
+<SYNTAX MAYBE = V-MAYBE>
+
+<SYNTAX MEASURE OBJECT = V-MEASURE>
+
+<SYNTAX MEET OBJECT = V-MEET>
+<SYNONYM MEET GREET>
+
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-TOUCH>
+<SYNTAX MOVE OBJECT WITH OBJECT (HAVE) = V-MOVE PRE-TOUCH>
+<SYNTAX MOVE OBJECT OBJECT = V-MOVE-DIR PRE-TOUCH>
+<SYNTAX MOVE OBJECT TO OBJECT = V-MOVE-TO PRE-TOUCH>
+<SYNTAX MOVE DOWN OBJECT = V-LOWER PRE-TOUCH>
+<SYNTAX MOVE UP OBJECT = V-RAISE PRE-TOUCH>
+<SYNTAX MOVE AROUND OBJECT (FIND KLUDGEBIT) = V-WALK-AROUND>
+<SYNTAX MOVE IN OBJECT = V-MOVE PRE-TOUCH>
+;<SYNTAX MOVE OUT OBJECT = V-REMOVE> ;"pull out object"
+<SYNTAX MOVE OBJECT (IN-ROOM CARRIED MANY) OUT OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX MOVE OBJECT (IN-ROOM CARRIED MANY) FROM OBJECT = V-TAKE PRE-TAKE>
+<VERB-SYNONYM MOVE PULL>
+
+<SYNTAX NO = V-NO>
+<VERB-SYNONYM NO NOPE UH-UH NAH>
+
+<SYNTAX OPEN OBJECT (FIND DOORBIT) = V-OPEN PRE-TOUCH>
+<SYNTAX OPEN UP	OBJECT (FIND DOORBIT) = V-OPEN PRE-TOUCH>
+<SYNTAX OPEN OBJECT (FIND DOORBIT) WITH OBJECT (HAVE) = V-OPEN PRE-TOUCH>
+<VERB-SYNONYM OPEN UNSHUTTER>
+
+;<SYNTAX PASS OBJECT = V-PASS>
+;<SYNTAX PASS OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+
+<SYNTAX PAY OBJECT (FIND ACTORBIT) = V-PAY>
+<SYNTAX PAY FOR OBJECT (EVERYWHERE) = V-BUY>
+<SYNTAX PAY OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+
+<SYNTAX PICK OBJECT = V-PICK>
+<SYNTAX PICK OBJECT WITH OBJECT = V-PICK>
+<SYNTAX PICK UP OBJECT (FIND TAKEBIT) (ON-GROUND IN-ROOM MANY)
+	= V-TAKE PRE-TAKE>
+
+<SYNTAX PLAY WITH OBJECT = V-TOUCH PRE-TOUCH>
+<SYNTAX PLAY OBJECT = V-PLAY>
+
+<SYNTAX POINT AT OBJECT = V-POINT>
+<SYNTAX POINT TO OBJECT = V-POINT>
+<SYNTAX POINT OBJECT (HAVE TAKE) AT OBJECT = V-POINT>
+<SYNTAX POINT OBJECT (HAVE TAKE) ON OBJECT = V-POINT>
+;<SYNTAX POINT OBJECT (HAVE TAKE) IN OBJECT = V-POINT>
+<VERB-SYNONYM POINT AIM WAVE FIRE>
+
+<SYNTAX POUR OBJECT (HELD CARRIED HAVE TAKE) ON OBJECT = V-POUR>
+<SYNTAX POUR OBJECT (HELD CARRIED HAVE TAKE) IN OBJECT = V-POUR>
+<SYNTAX POUR OBJECT (MANY) FROM OBJECT (HAVE TAKE) = V-EMPTY-FROM>
+<SYNTAX POUR OUT OBJECT (MANY) FROM OBJECT (HAVE TAKE) = V-EMPTY-FROM>
+<SYNTAX POUR OUT OBJECT (HELD CARRIED HAVE TAKE) IN OBJECT = V-POUR>
+<SYNTAX POUR OBJECT (MANY) OUT OBJECT (HAVE TAKE) = V-EMPTY-FROM>
+<VERB-SYNONYM POUR SPILL>
+
+<SYNTAX PRAY = V-PRAY>
+<SYNTAX PRAY TO OBJECT = V-PRAY>
+<VERB-SYNONYM PRAY WORSHIP>
+
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) = V-PUSH PRE-TOUCH>
+<SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND) = V-PUSH PRE-TOUCH>
+;<SYNTAX PUSH OFF OBJECT (FIND KLUDGEBIT) = V-PUSH-OFF>
+<SYNTAX PUSH DOWN OBJECT = V-LOWER PRE-TOUCH>
+<SYNTAX PUSH OBJECT OBJECT = V-PUSH-DIR PRE-TOUCH>
+<SYNTAX PUSH UP OBJECT = V-RAISE PRE-TOUCH>
+<SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER>
+<SYNTAX PUSH OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+<VERB-SYNONYM PUSH PRESS ;SQUEEZE RING ;"ring the doorbell">
+
+<SYNTAX RAISE OBJECT = V-RAISE PRE-TOUCH>
+<SYNTAX RAISE UP OBJECT = V-RAISE PRE-TOUCH>
+<VERB-SYNONYM RAISE LIFT BOOST>
+
+;<SYNTAX RAPE OBJECT (FIND ACTORBIT) = V-RAPE>
+
+<SYNTAX REACH IN OBJECT (ON-GROUND IN-ROOM) = V-REACH-IN>
+
+<SYNTAX READ OBJECT (FIND READBIT) (TAKE) = V-READ PRE-LOOK>
+<SYNTAX READ THROUGH OBJECT (FIND READBIT) (TAKE) = V-READ PRE-LOOK>
+<SYNTAX READ OBJECT (FIND READBIT) (TAKE) THROUGH OBJECT = V-READ PRE-LOOK>
+<SYNTAX READ OBJECT (FIND READBIT) (TAKE) WITH OBJECT = V-READ PRE-LOOK>
+<SYNTAX READ ABOUT OBJECT (EVERYWHERE) = V-RESEARCH PRE-RESEARCH>
+<SYNTAX READ ABOUT OBJECT (EVERYWHERE) IN OBJECT = V-RESEARCH PRE-RESEARCH>
+<SYNTAX READ IN OBJECT ABOUT OBJECT (EVERYWHERE) = V-SRESEARCH PRE-SWITCH>  
+<VERB-SYNONYM READ SKIM BROWSE>
+
+<SYNTAX REMOVE OBJECT (FIND WORNBIT) (HELD MANY) = V-REMOVE>
+<SYNTAX REMOVE OBJECT (IN-ROOM CARRIED MANY) WITH OBJECT ;(HAVE) = V-TAKE-WITH>
+<SYNTAX REMOVE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	FROM OBJECT = V-TAKE PRE-TAKE>
+<VERB-SYNONYM REMOVE UNWRAP>
+
+;<SYNTAX RETURN OBJECT (HELD CARRIED HAVE) = V-RETURN>
+;<SYNTAX RETURN OBJECT (HELD CARRIED HAVE) TO OBJECT (ON-GROUND) = V-RETURN>
+
+<SYNTAX RIDE OBJECT (FIND VEHBIT) = V-CLIMB-ON>
+<SYNTAX RIDE OBJECT OBJECT ;(EVERYWHERE) = V-RIDE-DIR>
+<SYNTAX RIDE OBJECT TO OBJECT (EVERYWHERE) = V-RIDE-DIR>
+<SYNTAX RIDE ON OBJECT TO OBJECT (EVERYWHERE) = V-RIDE-DIR> 
+<SYNTAX RIDE IN OBJECT TO OBJECT (EVERYWHERE) = V-RIDE-DIR>
+
+;<SYNTAX RIP OBJECT = V-RIP>
+;<SYNTAX RIP OBJECT IN OBJECT = V-RIP>
+;<SYNTAX RIP UP OBJECT = V-RIP>
+;<SYNTAX RIP OBJECT WITH OBJECT = V-RIP>
+;<VERB-SYNONYM RIP TEAR SHRED>
+
+<SYNTAX ROLL OBJECT = V-ROLL PRE-TOUCH>
+<SYNTAX ROLL OBJECT DOWN OBJECT (FIND KLUDGEBIT) = V-ROLL-DOWN PRE-TOUCH>
+<SYNTAX ROLL OBJECT UP OBJECT (FIND KLUDGEBIT) = V-ROLL-UP PRE-TOUCH>
+<SYNTAX ROLL OBJECT OBJECT = V-ROLL-DIR PRE-TOUCH>
+<SYNTAX ROLL UP OBJECT = V-ROLL PRE-TOUCH>
+
+<SYNTAX SADDLE OBJECT = V-SADDLE>
+<SYNTAX SADDLE OBJECT WITH OBJECT (HAVE) = V-SADDLE>
+
+<SYNTAX SAVE OBJECT = V-SAVE-SOMETHING>
+<VERB-SYNONYM SAVE RESCUE>
+
+<SYNTAX SAY OBJECT (EVERYWHERE) = V-SAY PRE-TELL>
+<VERB-SYNONYM SAY UTTER ANSWER REPLY GUESS>
+
+<SYNTAX SEARCH OBJECT = V-SEARCH PRE-TOUCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH PRE-TOUCH>
+<SYNTAX SEARCH FOR OBJECT (EVERYWHERE) = V-FIND>
+<SYNTAX SEARCH THROUGH OBJECT = V-SEARCH PRE-TOUCH>
+<SYNTAX SEARCH OBJECT FOR OBJECT (EVERYWHERE) = V-SEARCH-OBJECT-FOR>
+<SYNTAX SEARCH FOR OBJECT (EVERYWHERE) IN OBJECT
+	= V-SSEARCH-OBJECT-FOR PRE-SWITCH>
+<VERB-SYNONYM SEARCH RUMMAGE>
+
+<SYNTAX SEND OBJECT TO OBJECT = V-SEND>
+<VERB-SYNONYM SEND MAIL SHIP>
+
+<SYNTAX SHAKE OBJECT = V-SHAKE>
+<SYNTAX SHAKE WITH OBJECT = V-SHAKE-WITH>
+<SYNTAX SHAKE OBJECT WITH OBJECT = V-SHAKE-WITH>
+<VERB-SYNONYM SHAKE BOUNCE>
+
+<SYNTAX SHOW OBJECT = V-SHOW>
+<SYNTAX SHOW OBJECT (HELD CARRIED MANY) TO OBJECT (FIND ACTORBIT) = V-SHOW>
+<SYNTAX SHOW OBJECT (FIND ACTORBIT) OBJECT (HELD CARRIED MANY)
+	= V-SSHOW PRE-SWITCH>
+
+<SYNTAX SING OBJECT = V-SING PRE-TELL>
+<SYNTAX SING TO OBJECT = V-SING-TO PRE-TELL>
+<SYNTAX SING OBJECT TO OBJECT = V-SING PRE-TELL>
+
+<SYNTAX SINK OBJECT = V-SINK>
+
+<SYNTAX SIT = V-SIT>
+<SYNTAX SIT ON OBJECT ;(FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX SIT DOWN OBJECT (FIND KLUDGEBIT) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT AT OBJECT (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT IN OBJECT ;(FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+
+<SYNTAX SKIP = V-SKIP>
+<VERB-SYNONYM SKIP HOP>
+
+<SYNTAX SLEEP = V-SLEEP>
+<SYNTAX SLEEP IN OBJECT (IN-ROOM ON-GROUND) = V-ENTER PRE-ENTER>
+<SYNTAX SLEEP ON OBJECT (IN-ROOM ON-GROUND) = V-ENTER PRE-ENTER>
+<VERB-SYNONYM SLEEP REST DOZE NAP SNOOZE>
+
+<SYNTAX SLICE OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
+<SYNTAX SLICE OBJECT OFF OBJECT (FIND KLUDGEBIT) = V-CUT>
+<SYNTAX SLICE OFF OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
+<SYNTAX SLICE DOWN OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
+<SYNTAX SLICE THROUGH OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
+<VERB-SYNONYM SLICE CUT CHOP>
+
+<SYNTAX SLIDE DOWN OBJECT (FIND KLUDGEBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+
+;<SYNTAX SMEAR OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+
+<SYNTAX SMELL = V-SMELL PRE-SMELL>
+<SYNTAX SMELL OBJECT = V-SMELL PRE-SMELL>
+<VERB-SYNONYM SMELL SNIFF ;WHIFF>
+
+<SYNTAX SNAP OBJECT = V-SNAP>
+
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND KLUDGEBIT) = V-STAND>
+<SYNTAX STAND ON OBJECT = V-STAND-ON>
+<SYNTAX STAND IN OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX STAND BEHIND OBJECT = V-HIDE>
+<SYNTAX STAND AT OBJECT = V-GET-NEAR>
+<SYNTAX STAND BEFORE OBJECT = V-GET-NEAR>
+<SYNTAX STAND UNDER OBJECT = V-GET-NEAR>
+<VERB-SYNONYM STAND RISE>
+
+<SYNTAX STICK OBJECT (HELD MANY) (FIND TAKEBIT) IN OBJECT (FIND CONTBIT)
+	= V-PUT PRE-PUT>
+<SYNTAX STICK OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX STICK OBJECT (HELD MANY) DOWN OBJECT = V-PUT-ON PRE-PUT>
+;<SYNTAX STICK OBJECT (HELD MANY) BACK OBJECT = V-PUT PRE-PUT>
+;<SYNTAX STICK OBJECT (HELD CARRIED) BEFORE OBJECT = V-PUT-NEAR IDROP>
+;<SYNTAX STICK OBJECT (HELD MANY) BEFORE OBJECT = V-PUT-IN-FRONT>
+<SYNTAX STICK OBJECT (HELD MANY) AROUND OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX STICK OBJECT (HELD MANY) OVER OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX STICK OBJECT (HELD MANY) ACROSS OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX STICK DOWN OBJECT (HELD MANY HAVE) = V-DROP IDROP>
+<SYNTAX STICK OBJECT (HAVE HELD MANY) UNDER OBJECT = V-PUT-UNDER> 
+<SYNTAX STICK ON OBJECT (FIND WEARBIT) (TAKE HAVE MANY) = V-WEAR>
+<SYNTAX STICK OBJECT BEHIND OBJECT = V-PUT-BEHIND>
+<SYNTAX STICK OBJECT (MANY) THROUGH OBJECT = V-PUT-THROUGH IDROP>
+<SYNTAX STICK OBJECT (MANY) OUT OBJECT = V-PUT-THROUGH IDROP>
+<SYNTAX STICK OUT OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
+;<SYNTAX STICK OBJECT (HELD CARRIED) AT OBJECT = V-PUT-NEAR IDROP>
+;<SYNTAX STICK OBJECT (HAVE) AGAINST OBJECT = V-PUT-AGAINST>
+<SYNTAX STICK OBJECT TO OBJECT = V-PUT-TO> ;"put bedbug to sleep"
+<VERB-SYNONYM STICK PUT STUFF INSERT PLACE INSTALL>
+
+<SYNTAX SUCK OBJECT = V-SUCK-ON PRE-TOUCH>
+<SYNTAX SUCK ON OBJECT = V-SUCK-ON PRE-TOUCH>
+<SYNTAX SUCK OBJECT WITH OBJECT (HAVE) = V-SUCK-WITH>
+
+<SYNTAX SWAT OBJECT = V-SWAT>
+<SYNTAX SWAT OBJECT WITH OBJECT (HAVE) = V-SWAT>
+
+<SYNTAX SWIM = V-SWIM>
+<SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNTAX SWIM ACROSS OBJECT = V-SWIM>
+
+<SYNTAX SWING OBJECT (HELD CARRIED HAVE) = V-SWING>
+;<SYNTAX SWING OBJECT (HELD CARRIED HAVE) AT OBJECT (FIND ACTORBIT) = V-SWING>
+;<SYNTAX SWING TO OBJECT = V-WALK-TO>
+;<SYNTAX SWING OVER ;TO OBJECT = V-WALK-TO>
+
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (ON-GROUND IN-ROOM MANY) = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OFF OBJECT (FIND KLUDGEBIT) (MANY) = V-TAKE-OFF>
+<SYNTAX TAKE OUT OBJECT (FIND KLUDGEBIT) = V-EXIT>
+<SYNTAX TAKE DOWN OBJECT (FIND KLUDGEBIT) = V-EXIT>
+<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-ENTER PRE-ENTER>
+<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-ENTER PRE-ENTER>
+<SYNTAX TAKE UP OBJECT (FIND KLUDGEBIT) = V-STAND>
+<SYNTAX TAKE OBJECT (CARRIED IN-ROOM MANY) OUT OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (CARRIED IN-ROOM MANY) OFF OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) IN OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) ON OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) WITH OBJECT ;(HAVE) = V-TAKE-WITH>
+;<SYNTAX TAKE OUT OBJECT IN OBJECT = V-LEAP-OFF>
+<SYNTAX TAKE UNDER OBJECT = V-CRAWL-UNDER>
+<SYNTAX TAKE BEFORE OBJECT = V-GET-NEAR>
+;<SYNTAX TAKE DRESSE OBJECT (FIND KLUDGEBIT) = V-GET-DRESSED>
+;<SYNTAX TAKE UNDRES OBJECT (FIND KLUDGEBIT) = V-GET-UNDRESSED>
+<VERB-SYNONYM TAKE GET GRAB HOLD CARRY>
+
+<SYNTAX TALK TO OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL PRE-TELL>
+<VERB-SYNONYM TALK SPEAK>
+
+;<SYNTAX TAP OBJECT = V-TOUCH PRE-TOUCH>
+;<SYNTAX TAP ON OBJECT = V-KNOCK>
+
+<SYNTAX TASTE OBJECT = V-TASTE>
+;<SYNTAX TASTE OBJECT WITH OBJECT = V-DRINK-WITH PRE-INGEST>
+<VERB-SYNONYM TASTE LICK NIBBLE>
+
+<SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL PRE-TELL>
+<SYNTAX TELL OBJECT (FIND ACTORBIT) ABOUT OBJECT (EVERYWHERE) = V-TELL-ABOUT>
+<SYNTAX TELL OBJECT OBJECT = V-STELL>
+
+<SYNTAX THANKS OBJECT = V-THANK>
+<SYNTAX THANKS = V-THANK>
+<VERB-SYNONYM THANKS THANK>
+
+<SYNTAX THROW OBJECT (CARRIED) = V-THROW IDROP>
+<SYNTAX THROW AWAY OBJECT (CARRIED) = V-THROW IDROP>
+<SYNTAX THROW OVERBOARD OBJECT (HELD CARRIED) = V-THROW-OVERBOARD IDROP>
+<SYNTAX THROW OBJECT (CARRIED) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (CARRIED) DOWN OBJECT = V-THROW IDROP>
+<SYNTAX THROW OBJECT (CARRIED) AT OBJECT (ON-GROUND IN-ROOM) = V-THROW IDROP>
+<SYNTAX THROW OBJECT (CARRIED) ON OBJECT (ON-GROUND IN-ROOM) = V-THROW IDROP>
+<SYNTAX THROW OBJECT (CARRIED) TO OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW-TO IDROP>
+<SYNTAX THROW OBJECT (CARRIED) FROM OBJECT = V-THROW-FROM IDROP>
+<SYNTAX THROW OBJECT (CARRIED) OFF OBJECT = V-THROW-FROM IDROP>
+<SYNTAX THROW OBJECT (ON-GROUND IN-ROOM) OBJECT (CARRIED)
+	= V-STHROW PRE-SWITCH>
+<SYNTAX THROW OBJECT (CARRIED) OVER OBJECT = V-THROW-OVER IDROP>
+<SYNTAX THROW OBJECT (CARRIED) THROUGH OBJECT = V-PUT-THROUGH IDROP>
+<SYNTAX THROW OBJECT (CARRIED) OUT OBJECT = V-PUT-THROUGH IDROP>
+<VERB-SYNONYM THROW HURL TOSS CAST>
+
+<SYNTAX TIE OBJECT (HELD) TO OBJECT = V-TIE>
+<SYNTAX TIE UP OBJECT TO OBJECT = V-TIE>
+<SYNTAX TIE OBJECT (HELD) AROUND OBJECT = V-TIE>
+<VERB-SYNONYM TIE FASTEN ATTACH ;STRAP ;HOOK ;HITCH ;SECURE>
+
+<SYNTAX TIME = V-TIME>
+<VERB-SYNONYM TIME T>
+
+<SYNTAX TIP OBJECT = V-TIP>
+<SYNTAX TIP OVER OBJECT = V-TIP-OVER>
+
+<SYNTAX TOUCH OBJECT = V-TOUCH PRE-TOUCH>
+<SYNTAX TOUCH OBJECT WITH OBJECT (HAVE) = V-TOUCH PRE-TOUCH>
+<SYNTAX TOUCH OBJECT (HAVE) TO OBJECT = V-STOUCH PRE-SWITCH>
+<SYNTAX TOUCH OBJECT (HAVE) ON OBJECT = V-STOUCH PRE-SWITCH>
+<VERB-SYNONYM TOUCH RUB FEEL PAT PET ;POKE ;FONDLE ;SCRATCH ;STROKE>
+
+<SYNTAX TURN OBJECT = V-SET> 
+<SYNTAX TURN AROUND OBJECT (FIND KLUDGEBIT) = V-SET>
+<SYNTAX TURN OBJECT TO OBJECT ;(EVERYWHERE) = V-SET>
+<SYNTAX TURN OBJECT OBJECT = V-SET-DIR>
+<SYNTAX TURN ON OBJECT (FIND LIGHTBIT) = V-ON PRE-TOUCH>
+<SYNTAX TURN OFF OBJECT (FIND LIGHTBIT) = V-OFF PRE-TOUCH>
+<SYNTAX TURN OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+<VERB-SYNONYM TURN SET SPIN DIAL STEER ROTATE REVOLVE
+	      ;WIND ;SWITCH ;FLIP ;FLICK> 
+
+;<SYNTAX UNDRESS = V-UNDRESS>
+;<SYNTAX UNDRESS OBJECT = V-UNDRESS>
+;<VERB-SYNONYM UNDRESS STRIP>
+
+<SYNTAX UNLOCK OBJECT WITH OBJECT (FIND KEYBIT) (HAVE) = V-UNLOCK PRE-LOCK>
+
+<SYNTAX UNTIE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-UNTIE>
+<VERB-SYNONYM UNTIE FREE UNSTRAP UNFASTEN UNATTACH UNKNOT>
+
+<SYNTAX USE OBJECT = V-USE>
+
+<SYNTAX WAIT = V-WAIT>
+<SYNTAX WAIT FOR OBJECT (EVERYWHERE) = V-WAIT-FOR>
+<VERB-SYNONYM WAIT Z>
+
+<SYNTAX WAKE OBJECT (FIND KLUDGEBIT) = V-ALARM>
+<SYNTAX WAKE UP OBJECT (FIND KLUDGEBIT) = V-ALARM>
+<VERB-SYNONYM WAKE AWAKE ROUSE>
+
+<SYNTAX WALK = V-WALK-AROUND>
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX WALK OUT OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX WALK ACROSS OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX WALK ON OBJECT = V-STAND-ON>
+<SYNTAX WALK OVER OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX WALK WITH OBJECT (EVERYWHERE) = V-FOLLOW>
+<SYNTAX WALK THROUGH OBJECT = V-ENTER PRE-ENTER>
+<SYNTAX WALK AROUND OBJECT (FIND KLUDGEBIT) = V-WALK-AROUND>
+<SYNTAX WALK UNDER OBJECT = V-CRAWL-UNDER>
+<SYNTAX WALK BEHIND OBJECT = V-HIDE>
+<SYNTAX WALK UP OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX WALK DOWN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX WALK TO OBJECT (EVERYWHERE) = V-WALK-TO>
+<SYNTAX WALK AWAY OBJECT (FIND KLUDGEBIT) = V-LEAVE>
+<SYNTAX WALK TO OBJECT ON OBJECT = V-SRIDE-DIR PRE-SWITCH>
+<SYNTAX WALK TO OBJECT IN OBJECT = V-SRIDE-DIR PRE-SWITCH>
+<VERB-SYNONYM WALK GO RUN PROCEED STEP>
+
+<SYNTAX WASH OBJECT = V-CLEAN>
+<SYNTAX WASH UP OBJECT (FIND KLUDGEBIT) = V-CLEAN>
+<SYNTAX WASH OFF OBJECT = V-CLEAN>
+<SYNTAX WASH AWAY OBJECT = V-CLEAN>
+<SYNTAX WASH OBJECT WITH OBJECT (HAVE) = V-CLEAN>
+<SYNTAX WASH OBJECT IN OBJECT = V-CLEAN>
+<SYNTAX WASH UP OBJECT WITH OBJECT (HAVE) = V-CLEAN>
+<SYNTAX WASH OFF OBJECT WITH OBJECT (HAVE) = V-CLEAN>
+<SYNTAX WASH AWAY OBJECT WITH OBJECT (HAVE) = V-CLEAN>
+<VERB-SYNONYM WASH CLEAN SWEEP CLEAR SHINE WIPE SOAK>
+
+;<SYNTAX WAVE OBJECT (HAVE) = V-WAVE>
+;<SYNTAX WAVE OBJECT (HAVE) AT OBJECT = V-WAVE>
+;<SYNTAX WAVE OBJECT (HAVE) IN OBJECT = V-WAVE> ;"in front of"
+
+<SYNTAX WEAR OBJECT (FIND WEARBIT) (HELD CARRIED TAKE MANY HAVE) = V-WEAR>
+<VERB-SYNONYM WEAR DON>
+
+<SYNTAX WRAP OBJECT (HELD MANY) AROUND OBJECT = V-WRAP PRE-PUT>
+<SYNTAX WRAP OBJECT IN OBJECT (HELD MANY) = V-SWRAP PRE-SWITCH>
+
+<SYNTAX YAWN = V-YAWN>
+<SYNTAX YAWN AT OBJECT = V-YAWN>
+
+<SYNTAX YELL = V-YELL PRE-TELL>
+<SYNTAX YELL OBJECT = V-YELL PRE-TELL>
+<SYNTAX YELL AT OBJECT = V-YELL PRE-TELL>
+<SYNTAX YELL TO OBJECT = V-YELL PRE-TELL>
+<VERB-SYNONYM YELL SCREAM SHOUT>
+
+<SYNTAX YES = V-YES>
+<VERB-SYNONYM YES Y YUP OK OKAY SURE YEAH YEP>
+
+<SYNTAX SIZUL = V-SACRED-WORD>
+<VERB-SYNONYM SIZUL FZORTY XZILCH FUBLITSKEE ZASTIC AULDERFOO LIZOWURT
+	      ELDABLITZ MORDEX HILDEBUD>
+
+<SYNTAX ZAP OBJECT = V-ZAP>
+<SYNTAX ZAP OBJECT WITH OBJECT (HAVE TAKE) = V-ZAP>
+<SYNTAX ZAP OBJECT (HAVE TAKE) AT OBJECT = V-POINT>
+
+<SYNTAX ZIPSO = V-NOT-SO-SACRED-WORD> ;"words on scrap of parchment"
+<VERB-SYNONYM ZIPSO FLODOOR FURGALNETI>
\ No newline at end of file
diff --git a/top.zap b/top.zap
new file mode 100644
index 0000000..9d4fbcc
--- /dev/null
+++ b/top.zap
@@ -0,0 +1,624 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	MORE-SPECIFIC
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"[Please be more specific.]"
+
+
+	.FUNCT	MAIN-LOOP,X
+?PRG1:	CALL1	MAIN-LOOP-1 >X
+	JUMP	?PRG1
+
+
+	.FUNCT	DIR-VERB-PRSI?,NP
+	GET	PARSE-RESULT,4
+	EQUAL?	STACK,V?MOVE-DIR,V?RIDE-DIR,V?ROLL-DIR /?PRD3
+	GET	PARSE-RESULT,4
+	EQUAL?	STACK,V?SET-DIR \FALSE
+?PRD3:	GET	NP,3
+	EQUAL?	STACK,INTDIR,LEFT-RIGHT /FALSE
+	RTRUE	
+
+
+	.FUNCT	DIR-VERB-WORD?,WD
+	EQUAL?	WD,W?WALK,W?GO,W?RUN /TRUE
+	RFALSE	
+
+
+	.FUNCT	MAIN-LOOP-1,ICNT,OCNT,NUM,OBJ,V,OBJ1,NP,NP1,CNT,TOFF,XX,TMP
+	CALL1	PARSER >P-WON
+	ZERO?	P-WON /?CCL3
+	DLESS?	'P-ERRS,0 \?PRG6
+	SET	'P-ERRS,0
+?PRG6:	GET	PARSE-RESULT,4 >PRSA
+	EQUAL?	PRSA,V?UNDO \?CCL10
+	CALL2	PERFORM,PRSA
+	RSTACK	
+?CCL10:	ISAVE	 >P-CAN-UNDO
+	EQUAL?	P-CAN-UNDO,2 \?CND8
+	EQUAL?	PRSA,V?SAVE \?CCL15
+	ICALL1	CANT-UNDO
+	RFALSE	
+?CCL15:	SET	'P-CONT,-1
+	ICALL1	V-$REFRESH
+	RFALSE	
+?CND8:	GET	PARSE-RESULT,5 >P-PRSO
+	GET	PARSE-RESULT,6 >P-PRSI
+	ZERO?	P-PRSO /?CCL19
+	GET	P-PRSO,3
+	EQUAL?	INTDIR,STACK \?CCL19
+	GET	P-PRSO,4
+	GET	STACK,2
+	GETB	STACK,6 >P-DIRECTION
+	JUMP	?CND17
+?CCL19:	ZERO?	P-PRSI /?CND17
+	GET	P-PRSI,3
+	EQUAL?	INTDIR,STACK \?CND17
+	GET	P-PRSI,4
+	GET	STACK,2
+	GETB	STACK,6 >P-DIRECTION
+?CND17:	GET	PARSE-RESULT,1 >P-PRSA-WORD
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	SET	'ICNT,0
+	SET	'OCNT,0
+	ZERO?	P-PRSI /?CND25
+	GET	P-PRSI,1 >ICNT
+	ZERO?	ICNT /?CND25
+	SET	'P-MULT,ICNT
+?CND25:	ZERO?	P-PRSO /?CND29
+	GET	P-PRSO,1 >OCNT
+	ZERO?	OCNT /?CND29
+	SET	'P-MULT,OCNT
+?CND29:	ZERO?	OCNT \?CCL35
+	ZERO?	ICNT /?CND33
+?CCL35:	EQUAL?	PRSA,V?WALK /?CND33
+	ZERO?	P-IT-OBJECT /?CND33
+	CALL2	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CND33
+	ZERO?	ICNT /?CND42
+	SET	'CNT,0
+?PRG44:	MUL	CNT,2
+	ADD	NOUN-PHRASE-HEADER-LEN,STACK >TOFF
+	GET	P-PRSI,TOFF
+	EQUAL?	IT,STACK \?CCL48
+	PUT	P-PRSI,TOFF,P-IT-OBJECT
+	ICALL	TELL-PRONOUN,P-IT-OBJECT,IT
+	JUMP	?CND42
+?CCL48:	IGRTR?	'CNT,ICNT \?PRG44
+?CND42:	ZERO?	OCNT /?CND33
+	SET	'CNT,0
+?PRG52:	MUL	CNT,2
+	ADD	NOUN-PHRASE-HEADER-LEN,STACK >TOFF
+	GET	P-PRSO,TOFF
+	EQUAL?	IT,STACK \?CCL56
+	PUT	P-PRSO,TOFF,P-IT-OBJECT
+	ICALL	TELL-PRONOUN,P-IT-OBJECT,IT
+	JUMP	?CND33
+?CCL56:	IGRTR?	'CNT,OCNT \?PRG52
+?CND33:	ZERO?	OCNT \?CCL60
+	SET	'NUM,OCNT
+	JUMP	?CND58
+?CCL60:	GRTR?	OCNT,1 \?CCL62
+	ZERO?	ICNT \?CCL65
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND63
+?CCL65:	GET	P-PRSI,3 >OBJ
+	GET	P-PRSI,4 >NP
+?CND63:	SET	'NUM,OCNT
+	JUMP	?CND58
+?CCL62:	GRTR?	ICNT,1 \?CCL69
+	GET	P-PRSO,3 >OBJ
+	GET	P-PRSI,4 >NP
+	SET	'NUM,ICNT
+	JUMP	?CND58
+?CCL69:	SET	'NUM,1
+?CND58:	ZERO?	OBJ \?CND72
+	EQUAL?	ICNT,1 \?CND72
+	GET	P-PRSI,3 >OBJ
+	GET	P-PRSI,4 >NP
+?CND72:	ZERO?	LIT \?CCL80
+	CALL1	SEE-VERB?
+	ZERO?	STACK /?CCL80
+	ICALL1	TELL-TOO-DARK
+	SET	'P-CONT,-1
+	JUMP	?CND78
+?CCL80:	EQUAL?	PRSA,V?WALK \?CCL84
+	ZERO?	P-WALK-DIR /?PRD87
+	PUSH	P-WALK-DIR
+	JUMP	?PEN85
+?PRD87:	GET	P-PRSO,3
+?PEN85:	CALL	PERFORM,PRSA,STACK >V
+	JUMP	?CND78
+?CCL84:	ZERO?	NUM \?CCL89
+	CALL2	PERFORM,PRSA >V
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSO-NP,FALSE-VALUE
+	JUMP	?CND78
+?CCL89:	GRTR?	OCNT,1 \?CCL91
+	EQUAL?	PRSA,V?COUNT \?CCL91
+	CALL	PERFORM,PRSA,ROOMS >V
+	JUMP	?CND78
+?CCL91:	SET	'CNT,-1
+	SET	'TMP,0
+?PRG94:	INC	'CNT
+	LESS?	CNT,NUM /?CND96
+	ZERO?	TMP \?CND78
+	ICALL1	MORE-SPECIFIC
+	JUMP	?CND78
+?CND96:	GRTR?	ICNT,1 /?CCL102
+	MUL	CNT,2
+	ADD	STACK,NOUN-PHRASE-HEADER-LEN
+	GET	P-PRSO,STACK >OBJ1
+	MUL	CNT,2
+	ADD	STACK,4
+	GET	P-PRSO,STACK >NP1
+	JUMP	?CND100
+?CCL102:	MUL	CNT,2
+	ADD	STACK,NOUN-PHRASE-HEADER-LEN
+	GET	P-PRSI,STACK >OBJ1
+	MUL	CNT,2
+	ADD	STACK,4
+	GET	P-PRSI,STACK >NP1
+?CND100:	GRTR?	NUM,1 /?CCL108
+	GET	NP1,3
+	EQUAL?	STACK,NP-QUANT-ALL \?CND107
+?CCL108:	EQUAL?	OBJ1,FALSE-VALUE,NOT-HERE-OBJECT \?CCL113
+	ICALL2	NP-PRINT,NP1
+	PRINTI	": "
+	ICALL2	NP-CANT-SEE,NP1
+	JUMP	?PRG94
+?CCL113:	GET	NP1,3
+	EQUAL?	STACK,NP-QUANT-ALL \?CCL115
+	CALL	VERB-ALL-TEST,OBJ1,OBJ
+	ZERO?	STACK /?PRG94
+?CCL115:	CALL2	ACCESSIBLE?,OBJ1
+	ZERO?	STACK /?PRG94
+	EQUAL?	OBJ1,PLAYER /?PRG94
+	EQUAL?	OBJ1,IT \?CCL124
+	ICALL2	DPRINT,P-IT-OBJECT
+	JUMP	?CND122
+?CCL124:	ICALL2	DPRINT,OBJ1
+?CND122:	PRINTI	": "
+?CND107:	SET	'TMP,TRUE-VALUE
+	GRTR?	ICNT,1 /?CCL127
+	SET	'PRSO,OBJ1
+	SET	'PRSO-NP,NP1
+	SET	'PRSI,OBJ
+	SET	'PRSI-NP,NP
+	JUMP	?CND125
+?CCL127:	SET	'PRSO,OBJ
+	SET	'PRSO-NP,NP
+	SET	'PRSI,OBJ1
+	SET	'PRSI-NP,NP1
+?CND125:	EQUAL?	IT,PRSI,PRSO \?CND128
+	CALL	FIX-HIM-HER-IT,IT,P-IT-OBJECT
+	ZERO?	STACK /?PRG94
+?CND128:	EQUAL?	HER,PRSI,PRSO \?CND132
+	CALL	FIX-HIM-HER-IT,HER,P-HER-OBJECT
+	ZERO?	STACK /?PRG94
+?CND132:	EQUAL?	HIM,PRSI,PRSO \?CND136
+	CALL	FIX-HIM-HER-IT,HIM,P-HIM-OBJECT
+	ZERO?	STACK /?PRG94
+?CND136:	ICALL2	QCONTEXT-CHECK,PRSO
+	GET	PARSE-RESULT,3
+	GETB	STACK,5 >XX
+	ZERO?	PRSO /?CND140
+	BTST	XX,128 /?CND140
+	BTST	XX,192 /?CND140
+	CALL2	META-LOC,PRSO >V
+	ZERO?	V /?CND140
+	IN?	V,ROOMS \?CND140
+	CALL2	META-LOC,WINNER
+	CALL	GLOBAL-IN?,PRSO,STACK
+	ZERO?	STACK \?CND140
+	CALL2	META-LOC,WINNER
+	EQUAL?	V,STACK /?CND140
+	ICALL2	NOT-HERE,PRSO
+	JUMP	?PRG94
+?CND140:	ZERO?	PRSO /?CND149
+	BAND	96,XX
+	ZERO?	STACK /?CND149
+	BTST	XX,128 /?CND149
+	CALL	ITAKE-CHECK,PRSO,XX >V
+	EQUAL?	M-FATAL,V /?CND78
+	ZERO?	V \?PRG94
+?CND149:	ZERO?	PRSI /?CND159
+	GET	PARSE-RESULT,3
+	GETB	STACK,9 >XX
+	BAND	96,XX
+	ZERO?	STACK /?CND159
+	BTST	XX,128 /?CND159
+	CALL	ITAKE-CHECK,PRSI,XX >V
+	EQUAL?	M-FATAL,V /?CND78
+	ZERO?	V \?PRG94
+?CND159:	CALL	PERFORM,PRSA,PRSO,PRSI >V
+	EQUAL?	M-FATAL,V /?CND78
+	EQUAL?	P-CONT,-1 \?PRG94
+?CND78:	SET	'OPRSO,PRSO
+	ZERO?	CLOCK-WAIT \?CND173
+	CALL1	GAME-VERB?
+	ZERO?	STACK \?CND173
+	LOC	WINNER >V
+	ZERO?	V /?CND177
+	IN?	V,ROOMS /?CND177
+	GETP	V,P?ACTION
+	CALL	D-APPLY,STR?16,STACK,M-END >V
+?CND177:	GETP	HERE,P?ACTION
+	CALL	D-APPLY,STR?16,STACK,M-END >V
+?CND173:	EQUAL?	M-FATAL,V \?CND181
+	SET	'P-CONT,-1
+?CND181:	ZERO?	CLOCK-WAIT \?CND183
+	CALL1	GAME-VERB?
+	ZERO?	STACK \?CND183
+	SET	'CLOCKER-RUNNING,1
+	CALL1	CLOCKER >V
+	SET	'CLOCKER-RUNNING,2
+	EQUAL?	M-FATAL,V \?CND183
+	SET	'P-CONT,-1
+?CND183:	GET	PARSE-RESULT,12 >V
+	ZERO?	V /?CND1
+	GET	V,1
+	LESS?	1,STACK \?CND1
+	EQUAL?	P-CONT,-1 /?CND1
+	CALL2	HACK-TELL-1,V >V
+	EQUAL?	M-FATAL,V \?CCL196
+	SET	'P-CONT,-1
+	JUMP	?CND1
+?CCL196:	ZERO?	V /?CND1
+	JUMP	?PRG6
+?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+?CND1:	SET	'PRSA,FALSE-VALUE
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSO-NP,FALSE-VALUE
+	SET	'PRSI,FALSE-VALUE
+	RETURN	PRSI
+
+
+	.FUNCT	FIX-HIM-HER-IT,PRON,OBJ
+	ZERO?	OBJ \?CCL3
+	ICALL1	MORE-SPECIFIC
+	RFALSE	
+?CCL3:	CALL2	VISIBLE?,OBJ
+	ZERO?	STACK \?CCL5
+	ICALL2	NOT-HERE,OBJ
+	RFALSE	
+?CCL5:	EQUAL?	PRSO,PRON \?CND6
+	SET	'PRSO,OBJ
+	ICALL	TELL-PRONOUN,OBJ,PRON
+?CND6:	EQUAL?	PRSI,PRON \TRUE
+	SET	'PRSI,OBJ
+	ICALL	TELL-PRONOUN,OBJ,PRON
+	RTRUE	
+
+
+	.FUNCT	TELL-PRONOUN,OBJ,PRON
+	FSET?	PRON,TOUCHBIT /FALSE
+	EQUAL?	OPRSO,OBJ /FALSE
+	PRINTI	"["""
+	ICALL2	DPRINT,PRON
+	PRINTI	""" meaning "
+	ICALL2	TELL-THE,OBJ
+	PRINTR	"]"
+
+
+	.FUNCT	FIND-A-WINNER,RM,OTHER,WHO,N
+	ASSIGNED?	'RM /?CND1
+	SET	'RM,HERE
+?CND1:	ZERO?	QCONTEXT /?CCL5
+	IN?	QCONTEXT,RM \?CCL5
+	RETURN	QCONTEXT
+?CCL5:	FIRST?	RM >OTHER /?BOGUS8
+?BOGUS8:	SET	'WHO,FALSE-VALUE
+?PRG9:	ZERO?	OTHER \?CCL13
+	RETURN	WHO
+?CCL13:	FSET?	OTHER,PERSONBIT \?CND11
+	FSET?	OTHER,INVISIBLE /?CND11
+	EQUAL?	OTHER,PLAYER /?CND11
+	IGRTR?	'N,1 /FALSE
+	SET	'WHO,OTHER
+?CND11:	NEXT?	OTHER >OTHER /?PRG9
+	JUMP	?PRG9
+
+
+	.FUNCT	QCONTEXT-CHECK,PER,WHO
+	EQUAL?	PRSA,V?TELL-ABOUT,V?SHOW \FALSE
+	EQUAL?	PER,PLAYER \FALSE
+	CALL2	FIND-A-WINNER,HERE >WHO
+	ZERO?	WHO /?CND7
+	SET	'QCONTEXT,WHO
+?CND7:	CALL1	QCONTEXT-GOOD?
+	ZERO?	STACK /FALSE
+	EQUAL?	WINNER,PLAYER \FALSE
+	SET	'WINNER,QCONTEXT
+	ICALL2	TELL-SAID-TO,QCONTEXT
+	RTRUE	
+
+
+	.FUNCT	TELL-SAID-TO,PER
+	PRINTI	"[said to "
+	ICALL2	DPRINT,PER
+	PRINTR	"]"
+
+
+	.FUNCT	QCONTEXT-GOOD?
+	ZERO?	QCONTEXT /FALSE
+	FSET?	QCONTEXT,PERSONBIT \FALSE
+	CALL2	META-LOC,QCONTEXT
+	EQUAL?	HERE,STACK \FALSE
+	RETURN	QCONTEXT
+
+
+	.FUNCT	META-LOC,OBJ,INV,L
+	LOC	OBJ >L
+?PRG1:	EQUAL?	FALSE-VALUE,OBJ,L /FALSE
+	EQUAL?	L,LOCAL-GLOBALS,GLOBAL-OBJECTS,GENERIC-OBJECTS \?CCL7
+	RETURN	L
+?CCL7:	IN?	OBJ,ROOMS \?CCL9
+	RETURN	OBJ
+?CCL9:	ZERO?	INV /?CND10
+	FSET?	OBJ,INVISIBLE /FALSE
+?CND10:	SET	'OBJ,L
+	LOC	OBJ >L
+	JUMP	?PRG1
+
+
+	.FUNCT	CANT-UNDO
+	PRINTR	"[I can't undo that now.]"
+
+
+	.FUNCT	NOT-HERE-VERB?,V
+	EQUAL?	V,V?WALK-TO,V?RESEARCH /TRUE
+	RFALSE	
+
+
+	.FUNCT	SEE-VERB?
+	EQUAL?	PRSA,V?SEARCH,V?READ,V?LOOK-UNDER /TRUE
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-DOWN,V?LOOK-BEHIND /TRUE
+	EQUAL?	PRSA,V?LOOK,V?TAKE,V?FIND /TRUE
+	EQUAL?	PRSA,V?EXAMINE,V?COUNT,V?CHASTISE /TRUE
+	RFALSE	
+
+
+	.FUNCT	PERFORM,PA,PO,PI,V,OA,OO,OI,OQ,OS,X
+	SET	'OA,PRSA
+	SET	'OO,PRSO
+	SET	'OI,PRSI
+	ZERO?	OO /?CCL3
+	EQUAL?	OO,PI \?CCL3
+	SET	'OBJ-SWAP,TRUE-VALUE
+	JUMP	?CND1
+?CCL3:	ZERO?	OI /?CCL7
+	EQUAL?	OI,PO \?CCL7
+	SET	'OBJ-SWAP,TRUE-VALUE
+	JUMP	?CND1
+?CCL7:	SET	'OBJ-SWAP,FALSE-VALUE
+?CND1:	SET	'PRSA,PA
+	SET	'PRSI,PI
+	SET	'PRSO,PO
+	SET	'V,FALSE-VALUE
+	ZERO?	PRSI /?CND10
+	ICALL2	THIS-IS-IT,PRSI
+?CND10:	ZERO?	PRSO /?CND12
+	EQUAL?	PRSA,V?WALK /?CND12
+	ICALL2	THIS-IS-IT,PRSO
+?CND12:	EQUAL?	WINNER,PLAYER /?CND16
+	ICALL2	THIS-IS-IT,WINNER
+?CND16:	SET	'PO,PRSO
+	SET	'PI,PRSI
+	EQUAL?	PRSA,V?STOUCH,V?SWRAP /?CND18
+	EQUAL?	PRSA,V?STHROW,V?SSHOW,V?SPUT-ON /?CND18
+	EQUAL?	PRSA,V?SSEARCH-OBJECT-FOR,V?SRIDE-DIR,V?ASK-ABOUT /?CND18
+	GETP	WINNER,P?ACTION
+	CALL	D-APPLY,STR?17,STACK,M-WINNER >V
+?CND18:	ZERO?	V \?CND24
+	LOC	WINNER
+	IN?	STACK,ROOMS /?CND24
+	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	D-APPLY,STR?18,STACK,M-BEG >V
+?CND24:	ZERO?	V \?CND28
+	GETP	HERE,P?ACTION
+	CALL	D-APPLY,STR?18,STACK,M-BEG >V
+?CND28:	ZERO?	V \?CND30
+	GET	PREACTIONS,PA
+	CALL	D-APPLY,STR?19,STACK >V
+?CND30:	SET	'NOW-PRSI,1
+	ZERO?	V \?CND33
+	ZERO?	PI /?CND33
+	EQUAL?	PRSA,V?WALK /?CND33
+	LOC	PI
+	ZERO?	STACK /?CND33
+	LOC	PI
+	GETP	STACK,P?CONTFCN >V
+	ZERO?	V /?CND33
+	CALL	D-APPLY,STR?20,V,M-CONTAINER >V
+?CND33:	ZERO?	V \?CND41
+	ZERO?	PI /?CND41
+	EQUAL?	PI,GLOBAL-HERE \?CND45
+	GETP	HERE,P?ACTION
+	CALL	D-APPLY,STR?21,STACK >V
+?CND45:	ZERO?	V \?CND41
+	GETP	PI,P?ACTION
+	CALL	D-APPLY,STR?21,STACK >V
+?CND41:	SET	'NOW-PRSI,0
+	ZERO?	V \?CND49
+	ZERO?	PO /?CND49
+	EQUAL?	PRSA,V?WALK /?CND49
+	LOC	PO
+	ZERO?	STACK /?CND49
+	LOC	PO
+	GETP	STACK,P?CONTFCN >V
+	ZERO?	V /?CND49
+	CALL	D-APPLY,STR?20,V,M-CONTAINER >V
+?CND49:	ZERO?	V \?CND57
+	ZERO?	PO /?CND57
+	EQUAL?	PRSA,V?WALK /?CND57
+	EQUAL?	PO,GLOBAL-HERE \?CND62
+	GETP	HERE,P?ACTION
+	CALL	D-APPLY,STR?22,STACK >V
+?CND62:	ZERO?	V \?CND57
+	GETP	PO,P?ACTION
+	CALL	D-APPLY,STR?22,STACK >V
+?CND57:	ZERO?	V \?CND66
+	GET	ACTIONS,PA
+	CALL	D-APPLY,FALSE-VALUE,STACK >V
+?CND66:	EQUAL?	M-FATAL,V \?CND69
+	SET	'P-CONT,-1
+?CND69:	SET	'PRSA,OA
+	SET	'PRSO,OO
+	SET	'PRSI,OI
+	RETURN	V
+
+
+	.FUNCT	TELL-TOO-DARK
+	SET	'P-CONT,-1
+	PRINT	TOO-DARK
+	EQUAL?	PRSA,V?LOOK \?CCL3
+	CALL1	GRUE-PIT-WARNING
+	RSTACK	
+?CCL3:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	ITAKE-CHECK,OBJ,BITS,TAKEN
+	EQUAL?	OBJ,IT \?CND1
+	SET	'OBJ,P-IT-OBJECT
+?CND1:	CALL	HELD?,OBJ,WINNER
+	ZERO?	STACK \FALSE
+	EQUAL?	OBJ,HANDS,ROOMS /FALSE
+	FSET?	OBJ,TRYTAKEBIT /?CND8
+	EQUAL?	WINNER,PLAYER /?CCL12
+	SET	'TAKEN,TRUE-VALUE
+	JUMP	?CND8
+?CCL12:	BTST	BITS,32 \?CND8
+	CALL	ITAKE,FALSE-VALUE,OBJ
+	EQUAL?	STACK,TRUE-VALUE \?CND8
+	SET	'TAKEN,TRUE-VALUE
+?CND8:	ZERO?	TAKEN \FALSE
+	BTST	BITS,64 \FALSE
+	BTST	BITS,128 /FALSE
+	PRINTC	91
+	EQUAL?	WINNER,PLAYER \?CCL24
+	PRINTI	"You are"
+	JUMP	?CND22
+?CCL24:	ICALL2	TELL-CTHE,WINNER
+	PRINTI	" is"
+?CND22:	PRINTI	"n't holding "
+	ICALL2	TELL-THE,OBJ
+	ICALL2	THIS-IS-IT,OBJ
+	PRINTR	"!]"
+
+
+	.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	NOT-HERE,OBJ,CLOCK
+	ZERO?	CLOCK \?CND1
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"[But"
+?CND1:	PRINTC	32
+	ICALL2	TELL-THE,OBJ
+	PRINTI	" isn't "
+	CALL2	VISIBLE?,OBJ
+	ZERO?	STACK /?CCL5
+	PRINTI	"close enough"
+	CALL1	SPEAKING-VERB?
+	ZERO?	STACK /?CND6
+	PRINTI	" to hear you"
+?CND6:	PRINTC	46
+	JUMP	?CND3
+?CCL5:	PRINTI	"here!"
+?CND3:	ICALL2	THIS-IS-IT,OBJ
+	ZERO?	CLOCK \?CND8
+	PRINTC	93
+?CND8:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SPEAKING-VERB?,A
+	ASSIGNED?	'A /?CND1
+	SET	'A,PRSA
+?CND1:	EQUAL?	A,V?ASK-ABOUT,V?ASK-FOR,V?HELLO /TRUE
+	EQUAL?	A,V?NO,V?TELL,V?TELL-ABOUT /TRUE
+	EQUAL?	A,V?YES /TRUE
+	RFALSE	
+
+
+	.FUNCT	GET-OWNER,OBJ,TMP,NP
+	CALL2	GET-NP,OBJ >NP
+	ZERO?	NP /FALSE
+	GET	NP,4 >TMP
+	ZERO?	TMP \?CTR5
+	GET	NP,1 >TMP
+	ZERO?	TMP /?CCL6
+	GET	TMP,2 >TMP
+	ZERO?	TMP /?CCL6
+?CTR5:	LESS?	0,TMP \FALSE
+	GRTR?	TMP,LAST-OBJECT /FALSE
+	RETURN	TMP
+?CCL6:	GETP	OBJ,P?OWNER >TMP
+	ZERO?	TMP /FALSE
+	LESS?	0,TMP \?CCL17
+	GRTR?	TMP,LAST-OBJECT \FALSE
+?CCL17:	RETURN	PLAYER
+
+
+	.FUNCT	GET-NP,OBJ,PRSI?
+	SET	'PRSI?,NOW-PRSI
+	EQUAL?	OBJ,PRSO,PRSI \FALSE
+	ZERO?	OBJ /?CND1
+	EQUAL?	OBJ,PRSO \?CCL7
+	SET	'PRSI?,FALSE-VALUE
+	JUMP	?CND1
+?CCL7:	SET	'PRSI?,TRUE-VALUE
+?CND1:	ZERO?	OBJ-SWAP /?CCL10
+	ZERO?	PRSI? /?CCL13
+	RETURN	PRSO-NP
+?CCL13:	RETURN	PRSI-NP
+?CCL10:	ZERO?	PRSI? /?CCL15
+	RETURN	PRSI-NP
+?CCL15:	RETURN	PRSO-NP
+
+
+	.FUNCT	NOUN-USED?,OBJ,WD1,WD2,WD3,X
+	CALL2	GET-NP,OBJ >X
+	ZERO?	X /FALSE
+	GET	X,2 >X
+	ZERO?	X /FALSE
+	EQUAL?	X,WD1,WD2,WD3 /TRUE
+	RFALSE	
+
+
+	.FUNCT	ADJ-USED?,OBJ,WD1,WD2,WD3,NP,CT
+	CALL2	GET-NP,OBJ >NP
+	ZERO?	NP /FALSE
+	GET	NP,1 >NP
+	ZERO?	NP /FALSE
+	GET	NP,2
+	EQUAL?	PLAYER,STACK \?CCL8
+	EQUAL?	W?MY,WD1,WD2,WD3 \?CCL8
+	RETURN	W?MY
+?CCL8:	GET	NP,4 >CT
+	GRTR?	CT,0 \FALSE
+	ADD	NP,10 >NP
+	INTBL?	WD1,NP,CT \?CCL15
+	RETURN	WD1
+?CCL15:	ZERO?	WD2 /FALSE
+	INTBL?	WD2,NP,CT \?CCL20
+	RETURN	WD2
+?CCL20:	ZERO?	WD3 /FALSE
+	INTBL?	WD3,NP,CT \FALSE
+	RETURN	WD3
+
+	.ENDSEG
+
+	.ENDI
diff --git a/top.zil b/top.zil
new file mode 100644
index 0000000..fb462d0
--- /dev/null
+++ b/top.zil
@@ -0,0 +1,943 @@
+"TOP for NEW PARSER
+Copyright (C) 1988 Infocom, Inc.  All rights reserved."
+
+<INCLUDE "BASEDEFS" "PBITDEFS" "PDEFS">
+
+<FILE-FLAGS MDL-ZIL?>
+
+<BEGIN-SEGMENT 0>
+
+<DEFAULTS-DEFINED
+	ADJ-USED?
+	ASKING-VERB-WORD?
+	CANT-UNDO
+	CAPITAL-NOUN?
+	COLLECTIVE-VERB?
+	DIR-VERB?
+	DIR-VERB-PRSI?
+	DIR-VERB-WORD?
+	FIND-A-WINNER
+	GAME-VERB?
+	;I-ASSUME-STRING
+	ITAKE-CHECK
+	META-LOC
+	MORE-SPECIFIC
+	NO-M-WINNER-VERB?
+	NOT-HERE
+	NOT-HERE-VERB?
+	NOUN-USED?
+	OWNERS
+	P-PRONOUNS
+	QCONTEXT-CHECK
+	SEE-VERB?
+	SIBREAKS
+	SPEAKING-VERB?
+	;TELL-I-ASSUME
+	TELL-PRONOUN
+	TELL-SAID-TO
+	TELL-TOO-DARK
+	VERB-ALL-TEST>
+
+<DEFAULT-DEFINITION SIBREAKS
+	<SETG20 SIBREAKS ".,\"'!?">>
+<DEFAULT-DEFINITION OWNERS
+	<CONSTANT OWNERS <TABLE (PURE LENGTH) PLAYER>>>
+
+;<DEFAULT-DEFINITION I-ASSUME-STRING
+	<CONSTANT I-ASSUME "[I assume you mean:">>
+
+;<DEFAULT-DEFINITION TELL-I-ASSUME
+ <DEFINE TELL-I-ASSUME (OBJ "OPT" PRON)
+	<COND (<AND <NOT <FSET? .PRON ,TOUCHBIT>> 
+		    <NOT <EQUAL? ,OPRSO .OBJ>>>
+	       <FSET .PRON ,TOUCHBIT>
+	       <TELL ,I-ASSUME>
+	       <TELL !\ >
+	       <TELL-THE .OBJ>
+	       <TELL ".]" CR>)>>>
+
+<DEFAULT-DEFINITION MORE-SPECIFIC
+ <DEFINE MORE-SPECIFIC ()
+	<SETG CLOCK-WAIT T>
+	<TELL "[Please be more specific.]" CR>>>
+
+<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
+			     (<CHTYPE <PARSE <STRING "V?"<SPNAME .ATM>>> GVAL>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O (<FORM EQUAL? ',PRSA !.L> !.O)>
+		<SET L ()>>>
+
+<DEFMAC DOBJ? ("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 (<COND (<TYPE? .ATM ATOM>
+				       <CHTYPE .ATM GVAL>)
+				      (T .ATM)>
+				!.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O (<FORM EQUAL? ',PRSO !.L> !.O)>
+		<SET L ()>>>
+
+<DEFMAC IOBJ? ("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 (<COND (<TYPE? .ATM ATOM>
+				       <CHTYPE .ATM GVAL>)
+				      (T .ATM)>
+				!.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O (<FORM EQUAL? ',PRSI !.L> !.O)>
+		<SET L ()>>>
+
+<DEFMAC PROB ('BASE?)
+	<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>
+
+<DEFMAC T? ('TERM) <FORM NOT <FORM ZERO? .TERM>>>
+
+<IF-P-DEBUGGING-PARSER
+<SYNTAX \#DBG = V-PDEBUG>
+
+<GLOBAL P-DBUG:FLAG <>>
+<GLOBAL IDEBUG:FLAG <>>
+
+<DEFINE V-PDEBUG ()
+ <COND (<T? ,PRSO>
+	<SETG IDEBUG <NOT ,IDEBUG>>
+	<TELL !\{ N ,IDEBUG "}" CR>)
+       (<SETG P-DBUG <NOT ,P-DBUG>>
+	<TELL "Find them bugs, boss!" CR>)
+       (T <TELL "No bugs left, eh?" CR>)>>>
+
+<SETG P-PRSI <>>
+<SETG P-PRSO <>>
+<SETG PRSA 0>
+<IF-P-BE-VERB
+	<GLOBAL PRSQ 0>
+	<GLOBAL PRSS:OBJECT 0>>
+<GLOBAL PRSI:OBJECT 0>
+<GLOBAL PRSO:OBJECT 0>
+
+<GLOBAL P-MULT <>>
+<GLOBAL OPRSO <>>
+<GLOBAL P-CONT:NUMBER 0>
+
+<CONSTANT P-LEXWORDS 1>	"Byte offset to # of entries in LEXV"
+<CONSTANT P-LEXSTART 1>	"Word offset to start of LEXV entries"
+<CONSTANT P-LEXELEN 2>	"Number of words per LEXV entry"
+<CONSTANT P-WORDLEN 4>
+
+<GLOBAL P-WON <>>
+
+"<CONSTANT M-FATAL 2>"
+<DEFMAC RFATAL ()
+	'<PROG () <PUSH 2> <RSTACK>>>   
+
+"<CONSTANT M-BEG 1>  
+<CONSTANT M-END 6> 
+<CONSTANT M-CONT 7> 
+<CONSTANT M-WINNER 8>"
+
+<DEFINE MAIN-LOOP ("AUX" X) <REPEAT () <SET X <MAIN-LOOP-1>>>>
+
+<GLOBAL P-PRSA-WORD <>>
+
+<GLOBAL PRSO-NP <>>
+<GLOBAL PRSI-NP <>>
+<GLOBAL CLOCKER-RUNNING:NUMBER 2>
+
+<DEFAULT-DEFINITION DIR-VERB?
+	<DEFMAC DIR-VERB? () '<VERB? WALK>>>
+
+<DEFAULT-DEFINITION DIR-VERB-PRSI?
+<DEFINE DIR-VERB-PRSI? (NP)
+	<AND <EQUAL? <PARSE-ACTION ,PARSE-RESULT>
+		     ,V?MOVE-DIR ,V?RIDE-DIR ,V?ROLL-DIR ,V?SET-DIR>
+	     <NOT <EQUAL? <NOUN-PHRASE-OBJ1 .NP> ,INTDIR ,LEFT-RIGHT>>>>>
+
+<DEFAULT-DEFINITION DIR-VERB-WORD?
+	<DEFINE DIR-VERB-WORD? (WD) <EQUAL? .WD ,W?WALK ,W?GO ,W?RUN>>>
+
+<DEFAULT-DEFINITION COLLECTIVE-VERB?
+	<DEFMAC COLLECTIVE-VERB? () '<VERB? COUNT ;COMPARE>>>
+
+<IF-UNDO <GLOBAL P-CAN-UNDO:NUMBER 0>>
+
+<DEFINE MAIN-LOOP-1 ACT ("AUX" ICNT OCNT NUM (OBJ <>) V OBJ1 (NP <>) NP1)
+   <COND (<SETG P-WON <PARSER>>
+	  <IFN-P-BE-VERB <COND (<L? <SETG P-ERRS <- ,P-ERRS 1>> 0>
+				<SETG P-ERRS 0>)>>
+	  <PROG ()
+	    <SETG PRSA <PARSE-ACTION ,PARSE-RESULT>>
+	    ;<COND (<ZERO? <PARSE-SUBJ ,PARSE-RESULT>>
+		   <SETG PRSA <PARSE-ACTION ,PARSE-RESULT>>)
+		  (<NOT <EQUAL? <SET V <PARSE-QW ,PARSE-RESULT>> 0 1>>
+		   <SETG PRSA <SYNTAX-ID
+			    <GET-SYNTAX <VERB-ONE <WORD-VERB-STUFF .V>> 1 1>>>)
+		  (T
+		   <SETG PRSA <SYNTAX-ID <PARSE-QUERY-SYNTAX ,PARSE-RESULT>>>)>
+	    <IF-UNDO
+		<COND (<VERB? UNDO>
+		       ;<AND <EQUAL? <ZGET ,TLEXV 0> ,W?UNDO>
+			    <EQUAL? ,P-LEN 1>
+			    <V-UNDO>>
+		       <RETURN <PERFORM ,PRSA> .ACT>)
+		      (T
+		       <SETG P-CAN-UNDO <ISAVE>>
+		       <COND (<EQUAL? ,P-CAN-UNDO 2>
+			      <COND (<OR ;<T? ,P-CONT> <VERB? SAVE>>
+				     <CANT-UNDO>)
+				    (T
+				     <SETG P-CONT -1>
+				     <V-$REFRESH>
+				     ;<TELL "[Undone.]|">)>
+			      <RETURN <> .ACT>)>)>>
+	    <SETG P-PRSO <PARSE-OBJ1 ,PARSE-RESULT>>
+	    <SETG P-PRSI <PARSE-OBJ2 ,PARSE-RESULT>>
+	    <COND (<AND ,P-PRSO
+			<==? ,INTDIR <NOUN-PHRASE-OBJ1 ,P-PRSO>>>
+		   <SETG P-DIRECTION
+			 <WORD-DIR-ID
+			  <NP-NAME <NOUN-PHRASE-NP1 ,P-PRSO>>>>)
+		  (<AND ,P-PRSI
+			<==? ,INTDIR <NOUN-PHRASE-OBJ1 ,P-PRSI>>>
+		   <SETG P-DIRECTION
+			 <WORD-DIR-ID
+			  <NP-NAME <NOUN-PHRASE-NP1 ,P-PRSI>>>>)>
+	    <SETG P-PRSA-WORD <PARSE-VERB ,PARSE-RESULT>>
+	    <SETG CLOCK-WAIT <>>
+	    <SET ICNT 0>
+	    <SET OCNT 0>
+	    <COND (,P-PRSI
+		   <SET ICNT <NOUN-PHRASE-COUNT ,P-PRSI>>
+		   <COND (<NOT <0? .ICNT>> ;<NP-MULTI? ,P-PRSI>
+			  <SETG P-MULT .ICNT>)>)>
+	    <COND (,P-PRSO
+		   <SET OCNT <NOUN-PHRASE-COUNT ,P-PRSO>>
+		   <COND (<NOT <0? .OCNT>> ;<NP-MULTI? ,P-PRSO>
+			  <SETG P-MULT .OCNT>)>)>
+	    <COND (<AND <ZERO? .OCNT> <ZERO? .ICNT>>
+		   T)
+		  (<AND <NOT <DIR-VERB?>>
+			<T? ,P-IT-OBJECT>
+			<ACCESSIBLE? ,P-IT-OBJECT>>
+		   <COND (<T? .ICNT>
+			  <REPEAT ((CNT 0) TOFF)
+			   <SET TOFF <+ ,NOUN-PHRASE-HEADER-LEN <* .CNT 2>>>
+			   <COND (<==? ,IT <ZGET ,P-PRSI .TOFF>>
+				  <ZPUT ,P-PRSI .TOFF ,P-IT-OBJECT>
+				  <TELL-PRONOUN ,P-IT-OBJECT ,IT>
+				  <RETURN>)
+				 (<G? <SET CNT <+ .CNT 1>> .ICNT>
+				  <RETURN>)>>)>
+		   <COND (<T? .OCNT>
+			  <REPEAT ((CNT 0) TOFF)
+			   <SET TOFF <+ ,NOUN-PHRASE-HEADER-LEN <* .CNT 2>>>
+			   <COND (<==? ,IT <ZGET ,P-PRSO .TOFF>>
+				  <ZPUT ,P-PRSO .TOFF ,P-IT-OBJECT>
+				  <TELL-PRONOUN ,P-IT-OBJECT ,IT>
+				  <RETURN>)
+				 (<G? <SET CNT <+ .CNT 1>> .OCNT>
+				  <RETURN>)>>)>)>
+	    <SET NUM
+		 <COND (<0? .OCNT> .OCNT)
+		       (<G? .OCNT 1>
+			<COND (<0? .ICNT> <SET OBJ <>>)
+			      (T
+			       <SET OBJ <OR <NOUN-PHRASE-OBJ1 ,P-PRSI>
+					    ;,NOT-HERE-OBJECT>>
+			       <SET NP <NOUN-PHRASE-NP1 ,P-PRSI>>)>
+			.OCNT)
+		       (<G? .ICNT 1>
+			<SET OBJ <OR <NOUN-PHRASE-OBJ1 ,P-PRSO>
+				     ;,NOT-HERE-OBJECT>>
+			<SET NP <NOUN-PHRASE-NP1 ,P-PRSI>>
+			.ICNT)
+		       (T 1)>>
+	    <COND (<AND <ZERO? .OBJ> <1? .ICNT>>
+		   <SET OBJ <OR <NOUN-PHRASE-OBJ1 ,P-PRSI>
+				;,NOT-HERE-OBJECT>>
+		   <SET NP <NOUN-PHRASE-NP1 ,P-PRSI>>)>
+	    <IF-P-BE-VERB
+			<COND (<SET V <PARSE-QUERY-SYNTAX ,PARSE-RESULT>>
+			       <SETG PRSQ ;V <SYNTAX-ID .V>>)>
+			<COND (<SET XX <PARSE-SUBJ ,PARSE-RESULT>>
+			       <SETG PRSS ;XX <NOUN-PHRASE-OBJ1 .XX>>)>
+			;<SET V <PERFORM ,PRSA ,PRSO ,PRSI ;.PI ;.V ;.XX>>>
+	    <COND (<AND <ZERO? ,LIT>
+			<SEE-VERB?>>
+		   <TELL-TOO-DARK>
+		   <SETG P-CONT -1>
+		   ;<RTRUE>)
+		  (<DIR-VERB?>
+		   <SET V <PERFORM ,PRSA <OR ,P-WALK-DIR
+					     <NOUN-PHRASE-OBJ1 ,P-PRSO>>>>)
+		  (<0? .NUM>
+		   <SET V <PERFORM ,PRSA>>
+		   <SETG PRSO <>>
+		   <SETG PRSO-NP <>>)
+		  (<AND ;<EQUAL? .OCNT 1>
+			<G? .OCNT ;.ICNT 1> ;<G? .NUM 1>
+			<COLLECTIVE-VERB?>>
+		   <SET V <PERFORM ,PRSA ,ROOMS>>)
+		  (T
+		   <REPEAT (XX (CNT -1) ;(X 0) (TMP 0) ;PI)
+		    <SET CNT <+ .CNT 1>>
+		    <COND (<G=? .CNT .NUM>
+			   <COND ;(<G? .X 0>
+				  <TELL "The ">
+				  <COND (<NOT <EQUAL? .X .NUM>>
+					 <TELL "other ">)>
+				  <TELL "object">
+				  <COND (<NOT <EQUAL? .X 1>>
+					 <TELL !\s>)>
+				  <TELL " that you mentioned ">
+				  <COND (<NOT <EQUAL? .X 1>>
+					 <TELL "are">)
+					(T <TELL "is">)>
+				  <TELL "n't here." CR>)
+				 (<ZERO? .TMP>
+				  <MORE-SPECIFIC>)>
+			   <RETURN>)>
+		    <COND (<NOT <G? .ICNT 1>>
+			   <SET OBJ1
+				<OR <ZGET ,P-PRSO
+				      <+ <* .CNT 2>
+					 ,NOUN-PHRASE-HEADER-LEN>>
+				    ;,NOT-HERE-OBJECT>>
+			   <SET NP1 <ZGET ,P-PRSO
+					  <+ <* .CNT 2>
+					     ,NOUN-PHRASE-HEADER-LEN
+					     1>>>)
+			  (T
+			   <SET OBJ1
+				<OR <ZGET ,P-PRSI
+				      <+ <* .CNT 2>
+					 ,NOUN-PHRASE-HEADER-LEN>>
+				    ;,NOT-HERE-OBJECT>>
+			   <SET NP1 <ZGET ,P-PRSI
+					  <+ <* .CNT 2>
+					     ,NOUN-PHRASE-HEADER-LEN
+					     1>>>)>
+		    <COND (<OR <G? .NUM 1>
+			       <==? <NP-QUANT .NP1> ,NP-QUANT-ALL>>
+			   <COND (<EQUAL? .OBJ1 <> ,NOT-HERE-OBJECT>
+				  ;<SET X <+ .X 1>>
+				  <NP-PRINT .NP1>
+				  <TELL ": ">
+				  <NP-CANT-SEE .NP1>
+				  <AGAIN>)
+				 (<AND <==? <NP-QUANT .NP1> ,NP-QUANT-ALL>
+				       <NOT <VERB-ALL-TEST .OBJ1 .OBJ>>>
+				  <AGAIN>)
+				 (<NOT <ACCESSIBLE? .OBJ1>>
+				  <AGAIN>)
+				 (<EQUAL? .OBJ1 ,PLAYER>
+				  <AGAIN>)
+				 (T
+				  <COND (<EQUAL? .OBJ1 ,IT>
+					 <TELL D ,P-IT-OBJECT>)
+					(T <TELL D .OBJ1>)>
+				  <TELL ": ">)>)>
+		    <SET TMP T>
+		    <COND (<NOT <G? .ICNT 1>>
+			   <SETG PRSO .OBJ1>
+			   <SETG PRSO-NP .NP1>
+			   <SETG PRSI ;PI .OBJ>
+			   <SETG PRSI-NP .NP>)
+			  (T
+			   <SETG PRSO .OBJ>
+			   <SETG PRSO-NP .NP>
+			   <SETG PRSI ;PI .OBJ1>
+			   <SETG PRSI-NP .NP1>)>
+		    <COND (<AND <EQUAL? ,IT ,PRSI ,PRSO ;,PRSS>
+				<NOT <FIX-HIM-HER-IT ,IT ,P-IT-OBJECT>>>
+			   <AGAIN> ;<RETURN ,M-FATAL>)>
+		    <COND (<AND <EQUAL? ,HER ,PRSI ,PRSO ;,PRSS>
+				<NOT <FIX-HIM-HER-IT ,HER ,P-HER-OBJECT>>>
+			   <AGAIN> ;<RETURN ,M-FATAL>)>
+		    <COND (<AND <EQUAL? ,HIM ,PRSI ,PRSO ;,PRSS>
+				<NOT <FIX-HIM-HER-IT ,HIM ,P-HIM-OBJECT>>>
+			   <AGAIN> ;<RETURN ,M-FATAL>)>
+		    <QCONTEXT-CHECK ,PRSO>
+		    <SET XX <SYNTAX-SEARCH <PARSE-SYNTAX ,PARSE-RESULT> 1>>
+		    <COND (<AND <T? ,PRSO>	;"Could be ADJACENT room."
+				<NOT <BTST .XX ,SEARCH-MOBY>>
+				<NOT <BTST .XX
+					 <BOR ,SEARCH-MOBY ,SEARCH-MUST-HAVE>>>
+				<SET V <META-LOC ,PRSO>>
+				<IN? .V ,ROOMS>
+				<NOT <GLOBAL-IN? ,PRSO <META-LOC ,WINNER>>>
+				<NOT <EQUAL? .V <META-LOC ,WINNER>>>
+				;<NOT <EQUAL? <META-LOC ,PRSO>
+					     ,HERE ,LOCAL-GLOBALS
+					     ,GLOBAL-OBJECTS
+					     ,GENERIC-OBJECTS>>>
+			   <NOT-HERE ,PRSO>
+			   ;<TELL "[">
+			   ;<TELL-CTHE ,WINNER>
+			   ;<TELL " can't do that from here.]" CR>
+			   <AGAIN>)>
+		    <COND (<AND <T? ,PRSO>
+				<BAND <BOR ,SEARCH-MUST-HAVE ,SEARCH-DO-TAKE>
+				      .XX>
+				<NOT <BAND ,SEARCH-MOBY .XX>>>
+			   <SET V <ITAKE-CHECK ,PRSO .XX>>
+			   <COND (<OR <EQUAL? ,M-FATAL .V>
+				      ;<EQUAL? ,P-CONT -1>>
+				  <RETURN>)
+				 (<T? .V>
+				  <AGAIN>)>)>
+		    <COND (<AND <T? ,PRSI ;.PI>
+				<BAND <BOR ,SEARCH-MUST-HAVE ,SEARCH-DO-TAKE>
+				      <SET XX <SYNTAX-SEARCH
+					       <PARSE-SYNTAX ,PARSE-RESULT>
+					       2>>>
+				<NOT <BAND ,SEARCH-MOBY .XX>>>
+			   <SET V <ITAKE-CHECK ,PRSI ;.PI .XX>>
+			   <COND (<OR <EQUAL? ,M-FATAL .V>
+				      ;<EQUAL? ,P-CONT -1>>
+				  <RETURN>)
+				 (<T? .V>
+				  <AGAIN>)>)>
+		    <SET V <PERFORM ,PRSA ,PRSO ,PRSI ;.PI>>
+		    <COND (<OR <EQUAL? ,M-FATAL .V>
+			       <EQUAL? ,P-CONT -1>>	;"per SEM 16-Feb-88"
+			   <RETURN>)>>)>
+	    <SETG OPRSO ,PRSO>
+	    <COND (<AND <ZERO? ,CLOCK-WAIT>
+			<NOT <GAME-VERB?>>
+			;<T? ,P-WON>>
+		   <COND (<AND <SET V <LOC ,WINNER>>
+			       <NOT <IN? .V ,ROOMS>>
+			       ;<FSET? .V ,VEHBIT>>
+			  <SET V <D-APPLY "M-END"
+					  <GETP .V ,P?ACTION>
+					  ,M-END>>)>
+		   <SET V <D-APPLY "M-END"
+				   <GETP ,HERE ,P?ACTION>
+				   ,M-END>>)>
+	    <COND (<EQUAL? ,M-FATAL .V>
+		   <SETG P-CONT -1>)>
+	    <COND (<AND <ZERO? ,CLOCK-WAIT>
+			<NOT <GAME-VERB?>>
+			;<T? ,P-WON>>
+		   <SETG CLOCKER-RUNNING 1>
+		   <SET V <CLOCKER>>
+		   <SETG CLOCKER-RUNNING 2>
+		   <COND (<EQUAL? ,M-FATAL .V>
+			  <SETG P-CONT -1>)>)>
+	    <COND (<AND <SET V <PARSE-CHOMPER ,PARSE-RESULT>>
+			<L? 1 <NOUN-PHRASE-COUNT .V>>
+			<NOT <EQUAL? ,P-CONT -1>>>
+		   <SET V <HACK-TELL-1 .V>>
+		   <COND (<EQUAL? ,M-FATAL .V>
+			  <SETG P-CONT -1>)
+			 (<T? .V>
+			  <AGAIN>)>)>>)
+	 (T
+	  <SETG CLOCK-WAIT T>
+	  <SETG P-CONT <>>)>
+   <SETG PRSA <>>
+   <SETG PRSO <>>
+   <SETG PRSO-NP <>>
+   <SETG PRSI ;"PI" <>>>
+
+<DEFAULT-DEFINITION VERB-ALL-TEST
+<DEFINE VERB-ALL-TEST (O I "AUX" L)	;"O=PRSO I=PRSI"
+ <SET L <LOC .O>>
+ <COND (<VERB? DROP GIVE>
+	<COND (<EQUAL? .L ,WINNER>
+	       <RTRUE>)
+	      (T <RFALSE>)>)
+       (<VERB? PUT>
+	<COND (<EQUAL? .O .I>
+	       <RFALSE>)
+	      (<NOT <IN? .O .I>>
+	       <RTRUE>)
+	      (T <RFALSE>)>)
+       (<VERB? TAKE>
+	<COND (<AND <NOT <FSET? .O ,TAKEBIT>>
+		    <NOT <FSET? .O ,TRYTAKEBIT>>>
+	       <RFALSE>)>
+	<COND (<NOT <ZERO? .I>>
+	       <COND (<NOT <EQUAL? .L .I>>
+		      <RFALSE>)>)
+	      (<EQUAL? .L ;,WINNER ,HERE>
+	       <RTRUE>)>
+	<COND (<OR <FSET? .L ,PERSONBIT>
+		   <FSET? .L ,SURFACEBIT>>
+	       <RTRUE>)
+	      (<AND <FSET? .L ,CONTBIT>
+		    <FSET? .L ,OPENBIT>>
+	       <RTRUE>)
+	      (T <RFALSE>)>)
+       (<NOT <ZERO? .I>>
+	<COND (<NOT <EQUAL? .O .I>>
+	       <RTRUE>)
+	      (T <RFALSE>)>)
+       (T <RTRUE>)>>>
+
+<DEFINE FIX-HIM-HER-IT (PRON OBJ)
+ <COND (<ZERO? .OBJ>
+	<MORE-SPECIFIC>
+	<>)
+       (<NOT <VISIBLE? .OBJ>>
+	<NOT-HERE .OBJ>
+	<>)
+       (T
+	<COND (<EQUAL? ,PRSO .PRON>
+	       <SETG PRSO .OBJ>
+	       <TELL-PRONOUN .OBJ .PRON>)>
+	<COND (<EQUAL? ,PRSI .PRON>
+	       <SETG PRSI .OBJ>
+	       <TELL-PRONOUN .OBJ .PRON>)>
+	<IF-P-BE-VERB
+	<COND (<EQUAL? ,PRSS .PRON>
+	       <SETG PRSS .OBJ>
+	       <TELL-PRONOUN .OBJ .PRON>)>>
+	T)>>
+
+<DEFAULT-DEFINITION TELL-PRONOUN
+<DEFINE TELL-PRONOUN (OBJ PRON)
+ <COND (<AND <NOT <FSET? .PRON ,TOUCHBIT>> 
+	     <NOT <EQUAL? ,OPRSO .OBJ>>>
+	<TELL "[\"">
+	<TELL D ;PRINTB .PRON>
+	<TELL "\" meaning ">
+	<TELL-THE .OBJ>
+	<TELL "]" CR>)>>>
+
+<DEFAULT-DEFINITION GAME-VERB?
+<CONSTANT GAME-VERB-TABLE
+ <LTABLE V?BRIEF V?QUIT V?RESTART V?RESTORE
+	 V?SAVE V?SCORE V?SCRIPT V?SUPER-BRIEF
+	 V?TELL V?UNSCRIPT V?VERBOSE V?VERSION V?$VERIFY V?FOOTNOTE>>
+
+<DEFINE GAME-VERB? ()
+ <COND (<INTBL? ,PRSA <ZREST ,GAME-VERB-TABLE 2> <ZGET ,GAME-VERB-TABLE 0>>
+	<RTRUE>)>
+ <COND (<VERB? $RANDOM $COMMAND $RECORD $UNRECORD>
+	<RTRUE>)>>>
+
+<DEFAULT-DEFINITION NO-M-WINNER-VERB?
+<CONSTANT NO-M-WINNER-VERB-TABLE
+ <PLTABLE V?TELL-ABOUT V?SGIVE V?SSHOW V?SRUB V?SPUT-ON>>
+
+<DEFINE NO-M-WINNER-VERB? ()
+ <COND (<INTBL? ,PRSA <ZREST ,NO-M-WINNER-VERB-TABLE 2>
+		       <ZGET ,NO-M-WINNER-VERB-TABLE 0>>
+	<RTRUE>)>>>
+
+<DEFAULT-DEFINITION FIND-A-WINNER
+<DEFINE FIND-A-WINNER ACT ("OPT" (RM ,HERE))
+ <COND (<AND <T? ,QCONTEXT>
+	     <IN? ,QCONTEXT .RM>>
+	,QCONTEXT)
+       (T
+	<REPEAT ((OTHER <FIRST? .RM>) (WHO <>) (N 0))
+		<COND (<ZERO? .OTHER>
+		       <RETURN .WHO .ACT>)
+		      (<AND <FSET? .OTHER ,PERSONBIT>
+			    <NOT <FSET? .OTHER ,INVISIBLE>>
+			    <NOT <EQUAL? .OTHER ,PLAYER>>>
+		       <COND (<G? <SET N <+ 1 .N>> 1>
+			      <RETURN <> .ACT>)>
+		       <SET WHO .OTHER>)>
+		<SET OTHER <NEXT? .OTHER>>>)>>>
+
+<DEFAULT-DEFINITION QCONTEXT-CHECK
+<DEFINE QCONTEXT-CHECK (PER "AUX" (WHO <>))
+	 <COND (<OR ;<IFFLAG (P-BE-VERB <VERB? BE ;FIND ;HELP>) (T <>)>
+		    <AND <VERB? SHOW TELL-ABOUT>
+			 <EQUAL? .PER ,PLAYER>>> ;"? more?"
+		<COND (<SET WHO <FIND-A-WINNER ,HERE>>
+		       <SETG QCONTEXT .WHO>)>
+		<COND (<AND <QCONTEXT-GOOD?>
+			    <EQUAL? ,WINNER ,PLAYER>> ;"? more?"
+		       <SETG WINNER ,QCONTEXT>
+		       <TELL-SAID-TO ,QCONTEXT>
+		       <RTRUE>)>)>>>
+
+<DEFAULT-DEFINITION TELL-SAID-TO
+ <DEFINE TELL-SAID-TO (PER) <TELL "[said to " D .PER "]" CR>>>
+
+<GLOBAL QCONTEXT:OBJECT <>>
+
+<DEFINE QCONTEXT-GOOD? ()
+ <COND (<AND <NOT <ZERO? ,QCONTEXT>>
+	     <FSET? ,QCONTEXT ,PERSONBIT>
+	     ;<NOT <FSET? ,QCONTEXT ,MUNGBIT>>
+	     <EQUAL? ,HERE <META-LOC ,QCONTEXT>>>
+	<RETURN ,QCONTEXT>)>>
+
+<DEFAULT-DEFINITION META-LOC
+<DEFINE META-LOC ML (OBJ "OPTIONAL" (INV <>) "AUX" L)
+	<SET L <LOC .OBJ>>
+	<REPEAT ()
+		<COND (<EQUAL? <> .OBJ .L>
+		       <RETURN <> .ML>)
+		      (<EQUAL? .L
+			       ,LOCAL-GLOBALS ,GLOBAL-OBJECTS ,GENERIC-OBJECTS>
+		       <RETURN .L .ML>)
+		      (<IN? .OBJ ,ROOMS>
+		       <RETURN .OBJ .ML>)
+		      (T
+		       <COND (<AND .INV <FSET? .OBJ ,INVISIBLE>>
+			      <RETURN <> .ML>)>
+		       <SET OBJ .L>
+		       <SET L <LOC .OBJ>>)>>>>
+
+<DEFAULT-DEFINITION P-PRONOUNS
+<GLOBAL P-IT-OBJECT:OBJECT <>>
+<GLOBAL P-HER-OBJECT:OBJECT <>>
+<GLOBAL P-HIM-OBJECT:OBJECT <>>>
+
+;<DEFINE NOT-IT (WHO)
+ <COND (<EQUAL? .WHO ,P-HER-OBJECT>
+	<FCLEAR ,HER ,TOUCHBIT>)
+       (<EQUAL? .WHO ,P-HIM-OBJECT>
+	<FCLEAR ,HIM ,TOUCHBIT>)
+       ;(<EQUAL? .WHO ,P-THEM-OBJECT>
+	<FCLEAR ,THEM ,TOUCHBIT>)
+       (<EQUAL? .WHO ,P-IT-OBJECT>
+	<FCLEAR ,IT  ,TOUCHBIT>)>>
+
+<DEFAULT-DEFINITION CANT-UNDO
+<IF-UNDO
+<DEFINE CANT-UNDO ()
+	<TELL "[I can't undo that now.]" CR>>>>
+
+<GLOBAL NOW-PRSI:FLAG <>>
+
+<GLOBAL OBJ-SWAP:FLAG <>>
+
+<DEFAULT-DEFINITION NOT-HERE-VERB?
+	<DEFINE NOT-HERE-VERB? (V)
+		<EQUAL? .V ,V?WALK-TO>>>
+
+<OBJECT NOT-HERE-OBJECT
+	(CONTFCN 0)
+	(THINGS 0)>
+
+<DEFAULT-DEFINITION SEE-VERB?
+	<DEFINE SEE-VERB? ()
+	<VERB? CHASTISE EXAMINE FIND
+	       LOOK LOOK-BEHIND LOOK-DOWN LOOK-INSIDE LOOK-UNDER LOOK-UP
+	       READ SEARCH>>>
+
+<DEFINE PERFORM (PA "OPT" (PO <>) (PI <>) ;(PQ <>) ;(PS <>)
+		    "AUX" V OA OO OI OQ OS X)
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<COND (<AND <T? .OO> <==? .OO .PI>>
+	       <SETG OBJ-SWAP T>)
+	      (<AND <T? .OI> <==? .OI .PO>>
+	       <SETG OBJ-SWAP T>)
+	      (T
+	       <SETG OBJ-SWAP <>>)>
+	<SETG PRSA .PA>
+	<SETG PRSI .PI>
+	<SETG PRSO .PO>
+	;<IF-P-BE-VERB
+	 <SET OS ,PRSS>
+	 <SET OQ ,PRSQ>
+	 <SETG PRSS .PS>
+	 <SETG PRSQ .PQ>>
+	<IF-P-DEBUGGING-PARSER
+	 <COND (<T? ,P-DBUG>
+	       <PRINTI "{Perform: A=">
+	       <IFFLAG (IN-ZILCH <PRINTN .PA>)
+		       (T <PRINC <NTH ,ACTIONS <+ <* .PA 2> 1>>>)>
+	       <COND (<T? .PO>
+		      <PRINTI "/O=">
+		      <COND (<DIR-VERB?> <PRINTN .PO>)
+			    (T <TELL-D-LOC .PO>)>)>
+	       <COND (<T? .PI>
+		      <PRINTI "/I=">
+		      <TELL-D-LOC .PI>)>
+	       <IF-P-BE-VERB
+	       <COND (<T? ,PRSQ ;.PQ>
+		      <PRINTI "/Q=">
+		      <IFFLAG (IN-ZILCH <PRINTN ,PRSQ ;.PQ>)
+			      (T <PRINC <NTH ,ACTIONS <+ <* ,PRSQ ;.PQ 2> 1>>>)>)>
+	       <COND (<T? ,PRSS ;.PS>
+		      <PRINTI "/S=">
+		      <TELL-D-LOC ,PRSS ;.PS>)>>
+	       <PRINTI "}|">)>>
+	<SET V <>>
+	<IF-P-BE-VERB
+	 <COND (<T? ,PRSS>
+		<THIS-IS-IT ,PRSS>)>>
+	<COND (<T? ,PRSI>
+	       <THIS-IS-IT ,PRSI>)>
+	<COND (<AND <T? ,PRSO>
+		    <NOT <DIR-VERB?>>>
+	       <THIS-IS-IT ,PRSO>)>
+	<COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
+	       <THIS-IS-IT ,WINNER>)>
+	<SET PO ,PRSO>
+	<SET PI ,PRSI>
+	;<IF-P-BE-VERB <SET PS ,PRSS>>
+	<COND (<AND ;<ZERO? .V>
+		    <NOT <NO-M-WINNER-VERB?>>>
+	       <SET V <D-APPLY "Winner" <GETP ,WINNER ,P?ACTION>
+			       ,M-WINNER>>)>
+	<COND (<AND <ZERO? .V>
+		    <NOT <IN? <LOC ,WINNER> ,ROOMS>>
+		    ;<FSET? <LOC ,WINNER> ,VEHBIT>>
+	       <SET V <D-APPLY "M-BEG"
+			       <GETP <LOC ,WINNER> ,P?ACTION>
+			       ,M-BEG>>)>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY "M-BEG"
+			       <GETP ,HERE ,P?ACTION>
+			       ,M-BEG>>)>
+	<COND (<ZERO? .V>
+	       <COND <IF-P-BE-VERB
+		      (<T? ,PRSQ ;.PQ>
+		       <COND (<SET X <INTBL? <ZGET ,ACTIONS .PA>
+					     <ZREST ,QACTIONS 2>
+					     <ZGET ,QACTIONS 0>>>
+			      <SET V <D-APPLY "Preaction" <ZGET .X 4>>>)
+			     ;(T
+			      <SET V <D-APPLY "Preaction"
+					      <ZGET ,PREACTIONS .PA>>>)>)>
+		     (T
+		      <SET V <D-APPLY "Preaction" <ZGET ,PREACTIONS .PA>>>)>)>
+	<SETG NOW-PRSI 1>
+	<COND (<AND <ZERO? .V>
+		    <T? .PI>
+		    <NOT <DIR-VERB?>>
+		    <LOC .PI>>
+	       <COND (<T? <SET V <GETP <LOC .PI> ,P?CONTFCN>>>
+		      <SET V <D-APPLY "Container" .V ,M-CONTAINER>>)>)>
+	<COND (<AND <ZERO? .V>
+		    <T? .PI>>
+	       <COND (<EQUAL? .PI ,GLOBAL-HERE>
+		      <SET V <D-APPLY "PRSI" <GETP ,HERE ,P?ACTION>>>)>
+	       <COND (<ZERO? .V>
+		      <SET V <D-APPLY "PRSI" <GETP .PI ,P?ACTION>>>)>)>
+	<SETG NOW-PRSI 0>
+	<COND (<AND <ZERO? .V>
+		    <T? .PO>
+		    <NOT <DIR-VERB?>>
+		    <LOC .PO>>
+	       <SET V <GETP <LOC .PO> ,P?CONTFCN>>
+	       <COND (<T? .V>
+		      <SET V <D-APPLY "Container" .V ,M-CONTAINER>>)>)>
+	<COND (<AND <ZERO? .V>
+		    <T? .PO>
+		    <NOT <DIR-VERB?>>>
+	       <COND (<EQUAL? .PO ,GLOBAL-HERE>
+		      <SET V <D-APPLY "PRSO" <GETP ,HERE ,P?ACTION>>>)>
+	       <COND (<ZERO? .V>
+		      <SET V <D-APPLY "PRSO" <GETP .PO ,P?ACTION>>>)>)>
+	<IFFLAG (P-BE-VERB
+		 <COND (<ZERO? .V>
+			<COND (<T? ,PRSS ;.PS>
+			       <SET V <D-APPLY "Subject"
+					       <GETP ,PRSS ;.PS ,P?ACTION>
+					       ,M-SUBJ>>)>)>)
+		;(T
+		 "moved down one line")>
+	<COND (<ZERO? .V>
+	       <COND <IF-P-BE-VERB
+		      (<T? ,PRSQ ;.PQ>
+		       <COND (<SET X <INTBL? <ZGET ,ACTIONS .PA>
+					     <ZREST ,QACTIONS 2>
+					     <ZGET ,QACTIONS 0>>>
+			      <COND (<SET X <ZGET .X 2>>
+				     <SET V <D-APPLY <> .X>>)>)>
+		       <COND (<ZERO? .V>
+			      <SET V <D-APPLY <> <ZGET ,ACTIONS ,PRSQ>>>)>)>
+		     (T
+		      <SET V <D-APPLY <> <ZGET ,ACTIONS .PA>>>)>)>
+	;<COND (<ZERO? .V>
+	       <SET V <D-APPLY <> <ZGET ,ACTIONS .PA>>>)>
+	<COND (<EQUAL? ,M-FATAL .V>
+	       <SETG P-CONT -1>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	;<IF-P-BE-VERB <SETG PRSS .OS>>
+	.V>
+
+<DEFAULT-DEFINITION TELL-TOO-DARK
+ <DEFINE TELL-TOO-DARK () <TELL ,TOO-DARK> <RETURN ,M-FATAL>>>
+
+<DEFAULT-DEFINITION ITAKE-CHECK
+ <DEFINE ITAKE-CHECK (OBJ BITS "AUX" (TAKEN <>))
+	 <COND (<==? .OBJ ,IT>
+		<SET OBJ ,P-IT-OBJECT>)>
+	 <COND (<AND <NOT <HELD? .OBJ ,WINNER>>
+		     <NOT <EQUAL? .OBJ ,HANDS ,ROOMS>>>
+		<COND (<FSET? .OBJ ,TRYTAKEBIT>
+		       T)
+		      (<NOT <==? ,WINNER ,PLAYER>>
+		       <SET TAKEN T>)
+		      (<AND <BTST .BITS ,SEARCH-DO-TAKE>
+			    <==? <ITAKE <> .OBJ> T>>
+		       <SET TAKEN T>)>
+		<COND (<AND <NOT .TAKEN>
+			    <BTST .BITS ,SEARCH-MUST-HAVE>
+			    <NOT <BTST .BITS ,SEARCH-MOBY>>>
+		       <TELL !\[>
+		       <COND (<EQUAL? ,WINNER ,PLAYER>
+			      <TELL "You are">)
+			     (T
+			      <TELL-CTHE ,WINNER>
+			      <TELL " is">)>
+		       <TELL "n't holding ">
+		       <TELL-THE .OBJ>
+		       <THIS-IS-IT .OBJ>
+		       <TELL "!]" CR>
+		       <RTRUE>)
+		      ;(<AND .TAKEN <==? ,WINNER ,PLAYER>>
+		       <FIRST-YOU "take" .OBJ ,ITAKE-LOC>)>)>>>
+
+<IF-P-DEBUGGING-PARSER
+<DEFINE TELL-D-LOC (OBJ)
+	<PRINTD .OBJ>
+	<COND (<IN? .OBJ ,GLOBAL-OBJECTS>	<PRINTI "(gl)">)
+	      (<IN? .OBJ ,LOCAL-GLOBALS>	<PRINTI "(lg)">)
+	      (<IN? .OBJ ,ROOMS>		<PRINTI "(rm)">)>
+	<COND (<EQUAL? .OBJ ,INTNUM>
+	       <PRINTC !\(>
+	       <PRINTN ,P-NUMBER>
+	       <PRINTC !\)>)>>>
+
+<DEFINE D-APPLY (STR FCN "OPTIONAL" (FOO <>) "AUX" RES)
+ <COND (<T? .FCN>
+	<IF-P-DEBUGGING-PARSER
+	 <COND (<T? ,P-DBUG>
+		<COND (<ZERO? .STR>
+		       <PRINTI "{Action:}|">)
+		      (T
+		       <PRINTC !\{>
+		       <PRINT .STR>
+		       <COND (<=? .STR "Winner">
+			      <PRINTC !\=>
+			      <TELL D ,WINNER>)>
+		       <PRINTI ": ">)>)>>
+	<COND (<T? .FOO> <SET RES <ZAPPLY .FCN .FOO>>)
+	      (T <SET RES <ZAPPLY .FCN>>)>
+	<IF-P-DEBUGGING-PARSER
+	 <COND (<AND <T? ,P-DBUG> <T? .STR>>
+		<COND (<OR <EQUAL? ,M-FATAL .RES>
+			   <EQUAL? ,P-CONT -1>>
+		       <PRINTI "Fatal}|">)
+		      (<ZERO? .RES>
+		       <PRINTI "Not handled}|">)
+		      (T <PRINTI "Handled}|">)>)>>
+	.RES)>>
+
+<DEFAULT-DEFINITION CAPITAL-NOUN?
+	<DEFINE CAPITAL-NOUN? (NAM) <>>>
+
+<DEFAULT-DEFINITION NOT-HERE
+<DEFINE NOT-HERE (OBJ "OPT" (CLOCK <>))
+	<COND (<ZERO? .CLOCK>
+	       <SETG CLOCK-WAIT T>
+	       <TELL "[But">)>
+	<TELL !\ >
+	<TELL-THE .OBJ>
+	<TELL " isn't ">
+	<COND (<VISIBLE? .OBJ>
+	       <TELL "close enough">
+	       <COND (<SPEAKING-VERB?> <TELL " to hear you">)>
+	       <TELL !\.>)
+	      (T <TELL "here!">)>
+	 <THIS-IS-IT .OBJ>
+	 <COND (<ZERO? .CLOCK>
+		<TELL !\]>)>
+	 <CRLF>>>
+
+<DEFAULT-DEFINITION ASKING-VERB-WORD?
+ <ADD-WORD ASK ASKWORD>
+ <ADD-WORD ORDER ASKWORD>
+ <ADD-WORD TELL ASKWORD>
+ ;<DEFINE ASKING-VERB-WORD? (WD)
+ <COND (<EQUAL? .WD ,W?ASK ,W?ORDER ,W?TELL>
+	T)>>>
+
+<DEFAULT-DEFINITION SPEAKING-VERB?
+ <DEFINE SPEAKING-VERB? ("OPT" (A ,PRSA) ;(PER 0))
+ <COND (<EQUAL? .A ,V?ANSWER ,V?ASK-ABOUT ,V?ASK-FOR ,V?HELLO
+		   ,V?NO ,V?REPLY ,V?TELL ,V?TELL-ABOUT ,V?YES>
+	<COND (T ;<EQUAL? .PER 0 ,PRSO>
+	       <RTRUE>)>)>>>
+
+<DEFINE GET-OWNER (OBJ "AUX" TMP NP)
+ <COND (<SET NP <GET-NP .OBJ>>
+	<COND (<OR <SET TMP <NP-OF .NP>>
+		   <AND <SET TMP <NP-ADJS .NP>>
+			<SET TMP <ADJS-POSS .TMP>>>>
+	       <COND (<OBJECT? .TMP>
+		      .TMP)
+		     ;(T
+		      <NOUN-PHRASE-OBJ1 .TMP>)>)
+	      (<AND <SET TMP <GETP .OBJ ,P?OWNER>>
+		    <NOT <OBJECT? .TMP>>>	;"body part"
+	       ,PLAYER)>)>>
+
+<DEFINE GET-NP ("OPT" (OBJ <>) "AUX" (PRSI? ,NOW-PRSI))
+  <COND (<NOT <EQUAL? .OBJ ,PRSO ,PRSI>>
+	 <RETURN <>>)
+	(.OBJ
+	 <COND (<==? .OBJ ,PRSO> <SET PRSI? <>>)
+	       (T <SET PRSI? T>)>)>
+  <COND (,OBJ-SWAP
+	 <COND (<T? .PRSI?> ,PRSO-NP)
+	       (T ,PRSI-NP)>)
+	(<T? .PRSI?>
+	 ,PRSI-NP)
+	(T ,PRSO-NP)>>
+
+<DEFAULT-DEFINITION NOUN-USED?
+<DEFINE NOUN-USED? (OBJ WD1 "OPT" (WD2 <>) (WD3 <>) "AUX" X)
+	<AND <SET X <GET-NP .OBJ>>
+	     <SET X <NP-NAME .X>>
+	     <EQUAL? .X .WD1 .WD2 .WD3>>>>
+
+<DEFAULT-DEFINITION ADJ-USED?
+<DEFINE ADJ-USED? (OBJ WD1 "OPT" (WD2 <>) (WD3 <>) "AUX" NP CT)
+ <COND (<AND <SET NP <GET-NP .OBJ>>
+	     <SET NP <NP-ADJS .NP>>>
+	<COND (<AND <EQUAL? ,PLAYER <ADJS-POSS .NP>>
+		    <EQUAL? ,W?MY .WD1 .WD2 .WD3>>
+	       ,W?MY)
+	      (<G? <SET CT <ADJS-COUNT .NP>> 0>
+	       <SET NP <REST-TO-SLOT .NP ADJS-COUNT 1>>
+	       <COND (<ZMEMQ .WD1 .NP .CT>
+		      .WD1)
+		     (.WD2
+		      <COND (<ZMEMQ .WD2 .NP .CT>
+			     .WD2)
+			    (.WD3
+			     <COND (<ZMEMQ .WD3 .NP .CT>
+				    .WD3)>)>)>)>)>>>
+
+<END-SEGMENT>
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..90cd85c
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,5511 @@
+
+	.SEGMENT "0"
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSITY,2
+	PRINTI	"Maximum verbosity."
+	CRLF	
+	CRLF	
+	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSITY,1
+	PRINTR	"Brief descriptions."
+
+
+	.FUNCT	V-SUPERBRIEF
+	SET	'VERBOSITY,0
+	PRINTR	"Superbrief descriptions."
+
+
+	.FUNCT	NOT-IN-DEMO
+	PRINTR	"[Sorry, but that command is not available in this demonstration version.]"
+
+
+	.FUNCT	V-SAVE,X,WRD,COLOR-SAME
+	CALL1	SAVE-UNDO-CHECK
+	ZERO?	STACK \TRUE
+	ZERO?	DEMO-VERSION? /?CND3
+	ICALL1	NOT-IN-DEMO
+	RETURN	2
+?CND3:	PUTB	G-INBUF,2,0
+	SET	'P-CONT,FALSE-VALUE
+	SAVE	 >X
+	ZERO?	X \?CCL9
+	SET	'P-CONT,-1
+	PRINTI	"SAVE failed!"
+	CRLF	
+	RETURN	2
+?CCL9:	EQUAL?	X,1 \?CND7
+	ICALL1	RESTORE-ORPHAN
+	PRINTI	"SAVE completed."
+	CRLF	
+	RETURN	2
+?CND7:	WINGET	S-TEXT,WCOLOR >WRD
+	SHIFT	WRD,-8
+	EQUAL?	STACK,FG-COLOR \?CCL17
+	BAND	WRD,255
+	EQUAL?	STACK,BG-COLOR \?CCL17
+	SET	'COLOR-SAME,TRUE-VALUE
+	JUMP	?CND15
+?CCL17:	SET	'COLOR-SAME,FALSE-VALUE
+?CND15:	COLOR	FG-COLOR,BG-COLOR
+	SET	'OLD-HERE,FALSE-VALUE
+	ICALL1	SETUP-SCREEN
+	ICALL1	V-$REFRESH
+	ICALL1	RESTORE-ORPHAN
+	PRINTI	"Okay, restored."
+	CRLF	
+	CRLF	
+	SET	'P-CONT,-1
+	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	SAVE-UNDO-CHECK
+	EQUAL?	HERE,ROOM-OF-THREE-DOORS \FALSE
+	PRINTR	"[You can't SAVE or UNDO here. You'll have to solve the puzzle!]"
+
+
+	.FUNCT	RESTORE-ORPHAN
+	IN?	JESTER,HERE \FALSE
+	ZERO?	LIT /FALSE
+	EQUAL?	HERE,ENTRANCE-HALL \?PRD8
+	FSET?	PORTCULLIS,OPENBIT \?CCL3
+?PRD8:	EQUAL?	HERE,SOLAR \?PRD11
+	IN?	EAST-KEY,JESTER /?CCL3
+?PRD11:	EQUAL?	HERE,OUBLIETTE /?CCL3
+	EQUAL?	HERE,CAVE-IN \?PRD15
+	IN?	PIT-BOMB,LOCAL-GLOBALS /?CCL3
+?PRD15:	EQUAL?	HERE,TAX-OFFICE \?PRD18
+	IN?	ZORKMID-COIN,LOCAL-GLOBALS /?CCL3
+?PRD18:	EQUAL?	HERE,STREAM \FALSE
+	FSET?	DIPLOMA,TRYTAKEBIT \FALSE
+?CCL3:	CALL2	SETUP-ORPHAN,STR?44
+	RSTACK	
+
+
+	.FUNCT	V-RESTORE
+	ZERO?	DEMO-VERSION? /?CND1
+	ICALL1	NOT-IN-DEMO
+	RETURN	2
+?CND1:	RESTORE	
+	ZERO?	STACK \FALSE
+	PRINT	FAILED
+	RTRUE	
+
+
+	.FUNCT	V-UNDO,X
+	SET	'OLD-HERE,FALSE-VALUE
+	SET	'OLD-REGION,FALSE-VALUE
+	CALL1	SAVE-UNDO-CHECK
+	ZERO?	STACK \FALSE
+	IRESTORE	 >X
+	EQUAL?	X,-1 \?CCL6
+	PRINTR	"UNDO is unavailable on your computer system."
+?CCL6:	PRINT	FAILED
+	RTRUE	
+
+
+	.FUNCT	V-SCRIPT
+	ZERO?	DEMO-VERSION? /?CND1
+	ICALL1	NOT-IN-DEMO
+	RETURN	2
+?CND1:	PRINTI	"[Transcript on.]"
+	CRLF	
+	DIROUT	D-PRINTER-ON
+	ICALL2	CORP-NOTICE,STR?45
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	ZERO?	DEMO-VERSION? /?CND1
+	ICALL1	NOT-IN-DEMO
+	RETURN	2
+?CND1:	ICALL2	CORP-NOTICE,STR?46
+	DIROUT	D-PRINTER-OFF
+	PRINTI	"[Transcript off.]"
+	CRLF	
+	DIROUT	D-SCREEN-OFF
+	CRLF	
+	DIROUT	D-SCREEN-ON
+	RTRUE	
+
+
+	.FUNCT	CORP-NOTICE,STRING
+	DIROUT	D-SCREEN-OFF
+	PRINTI	"Here "
+	PRINT	STRING
+	PRINTI	" a transcript of interaction with"
+	CRLF	
+	ICALL1	V-VERSION
+	DIROUT	D-SCREEN-ON
+	RTRUE	
+
+
+	.FUNCT	V-COLOR,DEFAULT
+	ZERO?	COLOR-NOTE \?CND1
+	SET	'COLOR-NOTE,TRUE-VALUE
+	PRINTI	"Aesthetically, we recommend not changing the standard setting, which is black text on a white background. "
+	GETB	0,30
+	EQUAL?	STACK,MACINTOSH \?CND3
+	CALL1	MAC-II?
+	ZERO?	STACK /?CND3
+	PRINTI	"Also, if your Mac II displays only 16 colors, you probably won't get the color you ask for. "
+?CND3:	PRINTI	"Do you still want to go ahead?"
+	CRLF	
+	PRINTI	"(Y or N) >"
+	CALL1	Y?
+	ZERO?	STACK /TRUE
+?CND1:	CRLF	
+?PRG9:	ICALL1	DO-COLOR
+	PRINTI	"You should now get "
+	GET	COLOR-TABLE,FG-COLOR
+	PRINT	STACK
+	PRINTI	" text on a "
+	GET	COLOR-TABLE,BG-COLOR
+	PRINT	STACK
+	PRINTI	" background. Is that what you want?
+(Y or N) >"
+	CALL1	Y?
+	ZERO?	STACK \?REP10
+	GETB	0,30
+	EQUAL?	STACK,MACINTOSH \?CND13
+	CALL1	MAC-II?
+	ZERO?	STACK \?CND13
+	EQUAL?	BG-COLOR,2 \?CCL19
+	SET	'BG-COLOR,9
+	SET	'FG-COLOR,2
+	JUMP	?REP10
+?CCL19:	SET	'BG-COLOR,2
+	SET	'FG-COLOR,9
+	JUMP	?REP10
+?CND13:	CRLF	
+	PRINTI	"Do you want to pick again, or would you like to just go back to the standard colors? (Type Y to pick again) >"
+	CALL1	Y?
+	ZERO?	STACK /?CCL22
+	CRLF	
+	JUMP	?PRG9
+?CCL22:	SET	'DEFAULT,TRUE-VALUE
+?REP10:	ZERO?	DEFAULT /?CCL25
+	COLOR	1,1
+	JUMP	?CND23
+?CCL25:	COLOR	FG-COLOR,BG-COLOR
+?CND23:	CALL1	V-$REFRESH
+	RSTACK	
+
+
+	.FUNCT	DO-COLOR
+	GETB	0,30
+	EQUAL?	STACK,MACINTOSH \?CCL3
+	CALL1	MAC-II?
+	ZERO?	STACK \?CCL3
+	EQUAL?	BG-COLOR,2 \?CCL8
+	SET	'BG-COLOR,9
+	SET	'FG-COLOR,2
+	RETURN	FG-COLOR
+?CCL8:	SET	'BG-COLOR,2
+	SET	'FG-COLOR,9
+	RETURN	FG-COLOR
+?CCL3:	CALL	PICK-COLOR,FG-COLOR,STR?47,TRUE-VALUE >FG-COLOR
+	CALL	PICK-COLOR,BG-COLOR,STR?48 >BG-COLOR
+	RETURN	BG-COLOR
+
+
+	.FUNCT	PICK-COLOR,WHICH,STRING,SETTING-FG,CHAR
+	PRINTI	"The current "
+	PRINT	STRING
+	PRINTI	" color is "
+	GET	COLOR-TABLE,WHICH
+	PRINT	STACK
+	PRINT	PERIOD-CR
+	FONT	4
+	PRINTI	"   1 --> WHITE   4 --> GREEN"
+	CRLF	
+	PRINTI	"   2 --> BLACK   5 --> YELLOW"
+	CRLF	
+	PRINTI	"   3 --> RED     6 --> BLUE"
+	CRLF	
+	FONT	1
+	PRINTI	"Type a number to select the "
+	PRINT	STRING
+	PRINTI	" color you want. >"
+?PRG1:	ZERO?	DEMO-VERSION? /?CCL5
+	CALL2	INPUT-DEMO,1 >CHAR
+	JUMP	?CND3
+?CCL5:	INPUT	1 >CHAR
+?CND3:	SUB	CHAR,48 >CHAR
+	EQUAL?	CHAR,1 \?CND6
+	SET	'CHAR,9
+?CND6:	EQUAL?	CHAR,2,3,4 /?CTR9
+	EQUAL?	CHAR,5,6,9 \?CCL10
+?CTR9:	ZERO?	SETTING-FG \?REP2
+	EQUAL?	CHAR,FG-COLOR \?REP2
+	CRLF	
+	PRINTI	"You can't make the background the same color as the text! Pick another color. >"
+	JUMP	?PRG1
+?CCL10:	CRLF	
+	PRINT	TYPE-A-NUMBER
+	PRINTI	"6. >"
+	JUMP	?PRG1
+?REP2:	CRLF	
+	CRLF	
+	RETURN	CHAR
+
+	.ENDSEG
+
+	.SEGMENT "STARTUP"
+
+
+	.FUNCT	V-CREDITS
+	ICALL	CENTER-1,STR?59,TRUE-VALUE
+	ICALL	CENTER-1,STR?60,TRUE-VALUE
+	CRLF	
+	ICALL	CENTER-1,STR?61,TRUE-VALUE
+	ICALL2	CENTER-1,STR?62
+	CRLF	
+	ICALL	CENTER-1,STR?63,TRUE-VALUE
+	ICALL	CENTER-2,STR?64,STR?65
+	ICALL	CENTER-2,STR?66,STR?62
+	CRLF	
+	ICALL	CENTER-1,STR?67,TRUE-VALUE
+	ICALL2	CENTER-1,STR?68
+	CRLF	
+	ICALL	CENTER-1,STR?69,TRUE-VALUE
+	ICALL	CENTER-3,STR?70,STR?71,STR?72
+	ICALL	CENTER-2,STR?73,STR?74
+	CRLF	
+	ICALL	CENTER-1,STR?75,TRUE-VALUE
+	ICALL	CENTER-2,STR?64,STR?76
+	CRLF	
+	ICALL	CENTER-1,STR?77,TRUE-VALUE
+	ICALL	CENTER-2,STR?64,STR?66
+	CRLF	
+	ICALL	CENTER-1,STR?78,TRUE-VALUE
+	ICALL2	CENTER-1,STR?79
+	ICALL2	CENTER-1,STR?80
+	ICALL2	CENTER-1,STR?81
+	ICALL2	CENTER-1,STR?82
+	CRLF	
+	ICALL	CENTER-1,STR?83,TRUE-VALUE
+	ICALL	CENTER-3,STR?84,STR?85,STR?86
+	ICALL	CENTER-3,STR?87,STR?88,STR?89
+	ICALL	CENTER-3,STR?90,STR?91,STR?92
+	ICALL	CENTER-3,STR?93,STR?94,STR?95
+	ICALL	CENTER-2,STR?96,STR?97
+	CRLF	
+	ICALL	CENTER-1,STR?98,TRUE-VALUE
+	ICALL	CENTER-2,STR?99,STR?100
+	CRLF	
+	ICALL	CENTER-1,STR?101,TRUE-VALUE
+	ICALL	CENTER-2,STR?86,STR?100
+	ICALL2	CENTER-1,STR?62
+	CRLF	
+	ICALL	CENTER-1,STR?102,TRUE-VALUE
+	CALL2	CENTER-1,STR?103
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	V-DIAGNOSE
+	GRTR?	DESERT-DEATH,0 \?CCL3
+	PRINTI	"You're "
+	GRTR?	DESERT-DEATH,4 \?CCL6
+	PRINTI	"about to pass out"
+	JUMP	?CND4
+?CCL6:	GRTR?	DESERT-DEATH,2 \?CCL8
+	PRINTI	"dangerously close to passing out"
+	JUMP	?CND4
+?CCL8:	PRINTI	"feeling a bit faint"
+?CND4:	PRINTR	" from the heat."
+?CCL3:	ZERO?	ALLIGATOR /?CCL10
+	PRINTR	"You're a perfectly healthy alligator."
+?CCL10:	ZERO?	TURNED-INTO /?CCL12
+	EQUAL?	TURNED-INTO,VIOLIN \?CCL15
+	PRINTR	"You're fit as a fiddle. In fact, you ARE a fiddle."
+?CCL15:	PRINTI	"You are"
+	ICALL2	APRINT,TURNED-INTO
+	PRINTR	". Other details of health pale in comparison."
+?CCL12:	FSET?	CLOWN-NOSE,WORNBIT \?CCL17
+	PRINTI	"You're having a bit of trouble breathing, thanks to the "
+	ICALL2	DPRINT,CLOWN-NOSE
+	PRINTR	" on your nose."
+?CCL17:	GRTR?	HUNGER-COUNT,0 \?CCL19
+	PRINTI	"You feel "
+	EQUAL?	HUNGER-COUNT,2 \?CCL22
+	PRINTI	"very "
+	JUMP	?CND20
+?CCL22:	EQUAL?	HUNGER-COUNT,3 \?CND20
+	PRINTI	"incredibly "
+?CND20:	PRINTR	"hungry."
+?CCL19:	PRINTR	"You're as fit as a fiddle."
+
+
+	.FUNCT	V-INVENTORY
+	SUB	0,WORNBIT >D-BIT
+	ADD	D-ALL?,D-PARA?
+	CALL	D-CONTENTS,WINNER,FALSE-VALUE,STACK
+	ZERO?	STACK \?CND1
+	ZERO?	TURNED-INTO /?CCL5
+	PRINTI	"You are carrying nothing."
+	JUMP	?CND1
+?CCL5:	PRINTI	"You are empty-"
+	ZERO?	ALLIGATOR /?CCL8
+	PRINTI	"claw"
+	JUMP	?CND6
+?CCL8:	PRINTI	"hand"
+?CND6:	PRINTI	"ed."
+?CND1:	SET	'D-BIT,WORNBIT
+	ADD	D-ALL?,D-PARA?
+	ICALL	D-CONTENTS,WINNER,FALSE-VALUE,STACK
+	SET	'D-BIT,FALSE-VALUE
+	FSET?	GLOVE,WORNBIT \?CND9
+	ZERO?	GLOVE-COMMENT \?CND9
+	SET	'GLOVE-COMMENT,TRUE-VALUE
+	PRINTR	" [It's probably none of my business, but when you wear that single glove you resemble singer Michael Flathead, formerly of the Flathead Five.]"
+?CND9:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-MODE
+	CLEAR	-1
+	ZERO?	BORDER-ON /?CCL3
+	SET	'BORDER-ON,FALSE-VALUE
+	JUMP	?CND1
+?CCL3:	SET	'BORDER-ON,TRUE-VALUE
+?CND1:	ICALL2	SPLIT-BY-PICTURE,CURRENT-SPLIT
+	SCREEN	S-FULL
+	ICALL2	INIT-STATUS-LINE,TRUE-VALUE
+	SCREEN	S-TEXT
+	PRINTI	"Border o"
+	ZERO?	BORDER-ON /?CCL6
+	PRINTC	110
+	JUMP	?CND4
+?CCL6:	PRINTI	"ff"
+?CND4:	PRINTR	" (obviously)."
+
+
+	.FUNCT	V-QUIT
+	ICALL1	V-SCORE
+	ICALL2	DO-YOU-WISH,STR?104
+	CALL1	Y?
+	ZERO?	STACK /?CCL3
+	QUIT	
+	RTRUE	
+?CCL3:	PRINT	OK
+	RTRUE	
+
+
+	.FUNCT	V-RESTART
+	ICALL1	V-SCORE
+	ICALL2	DO-YOU-WISH,STR?105
+	CALL1	Y?
+	ZERO?	STACK /FALSE
+	PRINTI	"Restarting."
+	CRLF	
+	COLOR	1,1
+	RESTART	
+	PRINT	FAILED
+	RTRUE	
+
+
+	.FUNCT	DO-YOU-WISH,STRING
+	CRLF	
+	PRINTI	"Do you really want to "
+	PRINT	STRING
+	PRINTI	" (y or n)? >"
+	RTRUE	
+
+
+	.FUNCT	FINISH,REPEATING,CNT
+?PRG1:	CRLF	
+	ZERO?	REPEATING \?CND3
+	SET	'REPEATING,TRUE-VALUE
+	ICALL1	V-SCORE
+?CND3:	ICALL1	UPDATE-STATUS-LINE
+	PRINTI	"Would you like to start over, restore a saved position, "
+	EQUAL?	HERE,ROOM-OF-THREE-DOORS /?CND5
+	PRINTI	"undo your last turn, "
+?CND5:	PRINTI	"end this session of the game, or "
+	EQUAL?	SCORE,1000 \?CCL9
+	PRINTI	"see the credits?"
+	CRLF	
+	JUMP	?CND7
+?CCL9:	PRINTI	"get a hint?"
+	CRLF	
+?CND7:	PRINTI	"(Type RESTART, RESTORE, "
+	EQUAL?	HERE,ROOM-OF-THREE-DOORS /?CND10
+	PRINTI	"UNDO, "
+?CND10:	PRINTI	"QUIT, or "
+	EQUAL?	SCORE,1000 \?CCL14
+	PRINTI	"CREDITS"
+	JUMP	?CND12
+?CCL14:	PRINTI	"HINT"
+?CND12:	PRINTI	"): >"
+	PUTB	P-LEXV,0,10
+	PUTB	P-INBUF,1,0
+	ZERO?	DEMO-VERSION? /?CCL17
+	ICALL	READ-DEMO,P-INBUF,P-LEXV
+	JUMP	?CND15
+?CCL17:	READ	P-INBUF,P-LEXV
+?CND15:	ICALL1	MOUSE-INPUT?
+	PUTB	P-LEXV,0,LEXV-LENGTH
+	INC	'CNT
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTART \?CCL20
+	COLOR	1,1
+	RESTART	
+	PRINT	FAILED
+	JUMP	?PRG1
+?CCL20:	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTORE \?CCL22
+	RESTORE	
+	ZERO?	STACK \?CCL22
+	PRINT	FAILED
+	JUMP	?PRG1
+?CCL22:	GET	P-LEXV,1
+	EQUAL?	STACK,W?QUIT,W?Q /?CTR25
+	GRTR?	CNT,10 \?CCL26
+?CTR25:	QUIT	
+	JUMP	?PRG1
+?CCL26:	GET	P-LEXV,1
+	EQUAL?	STACK,W?UNDO \?CCL30
+	CALL1	V-UNDO
+	ZERO?	STACK \?PRG1
+?CCL30:	GET	P-LEXV,1
+	EQUAL?	STACK,W?CREDIT,W?CREDITS \?CCL34
+	ICALL1	V-CREDITS
+	JUMP	?PRG1
+?CCL34:	GET	P-LEXV,1
+	EQUAL?	STACK,W?HINTS,W?HINT,W?HELP /?CCL36
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?CLUE,W?CLUES \?PRG1
+?CCL36:	ICALL1	V-HINT
+	JUMP	?PRG1
+
+
+	.FUNCT	V-VERSION,IDX
+	SET	'IDX,18
+	PRINTI	"ZORK ZERO: The Revenge of Megaboz
+Copyright (c) 1988 by Infocom, Inc. All rights reserved.
+ZORK is a registered trademark of Infocom, Inc."
+	CRLF	
+	ICALL1	INTERPRETER-ID
+	PRINTI	"Release "
+	GET	0,1
+	BAND	STACK,2047
+	PRINTN	STACK
+	PRINTI	" / Serial number "
+?PRG1:	GETB	0,IDX
+	PRINTC	STACK
+	IGRTR?	'IDX,23 \?PRG1
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	INTERPRETER-ID
+	GETB	0,30
+	GET	MACHINES,STACK
+	PRINT	STACK
+	PRINTI	" Interpreter version "
+	GETB	0,0
+	PRINTN	STACK
+	PRINTC	46
+	GETB	0,31
+	PRINTN	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	MAC-II?
+	PICINF	ICON-OFFSET,PICINF-TBL /?BOGUS1
+?BOGUS1:	GET	PICINF-TBL,0
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+	.ENDSEG
+
+	.SEGMENT "STARTUP"
+
+
+	.FUNCT	V-$COMMAND
+	DIRIN	1
+	RTRUE	
+
+
+	.FUNCT	V-$RANDOM
+	EQUAL?	PRSO,INTNUM /?CCL3
+	PRINTR	"ILLEGAL."
+?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-$VERIFY
+	EQUAL?	PRSO,INTNUM \?CCL3
+	EQUAL?	P-NUMBER,232 \?CCL3
+	PRINTN	SERIAL
+	CRLF	
+	RTRUE	
+?CCL3:	ICALL1	INTERPRETER-ID
+	PRINTI	"Verifying..."
+	CRLF	
+	VERIFY	 \?CCL8
+	PRINT	OK
+	RTRUE	
+?CCL8:	PRINTR	"** Bad **"
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	V-$REFRESH,DONT-CLEAR
+	EQUAL?	P-CAN-UNDO,2 \?CND1
+	ICALL1	RESTORE-ORPHAN
+	SET	'DIR-CNT,0
+?CND1:	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \?CCL5
+	ICALL1	DO-MAP
+	RTRUE	
+?CCL5:	EQUAL?	CURRENT-SPLIT,B-SPLIT \?CCL7
+	ICALL1	DRAW-TOWER
+	RTRUE	
+?CCL7:	EQUAL?	CURRENT-SPLIT,PBOZ-SPLIT \?CCL9
+	ICALL1	SETUP-PBOZ
+	RTRUE	
+?CCL9:	EQUAL?	CURRENT-SPLIT,SN-SPLIT \?CCL11
+	ICALL1	SETUP-SN
+	RTRUE	
+?CCL11:	EQUAL?	CURRENT-SPLIT,F-SPLIT \?CCL13
+	ICALL1	SETUP-FANUCCI
+	RTRUE	
+?CCL13:	ZERO?	DONT-CLEAR /?CCL16
+	ICALL	INIT-SL-WITH-SPLIT,CURRENT-SPLIT,TRUE-VALUE
+	JUMP	?CND14
+?CCL16:	ICALL1	INIT-STATUS-LINE
+?CND14:	ICALL1	UPDATE-STATUS-LINE
+	GET	0,8
+	BAND	STACK,-5
+	PUT	0,8,STACK
+	EQUAL?	P-CAN-UNDO,2 \TRUE
+	PRINTR	"[Undone.]"
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	V-ALARM
+	EQUAL?	PRSO,ME,ROOMS \?CCL3
+	ICALL2	PERFORM-PRSA,ME
+	RTRUE	
+?CCL3:	FSET?	PRSO,ANIMATEDBIT \?CCL5
+	FSET?	PRSO,FEMALEBIT \?CCL8
+	PRINTI	"Sh"
+	JUMP	?CND6
+?CCL8:	PRINTC	72
+?CND6:	PRINTR	"e's wide awake, or haven't you noticed..."
+?CCL5:	PRINTR	"You're nuts."
+
+
+	.FUNCT	V-ASK-ABOUT,OWINNER
+	EQUAL?	PRSO,ME \?CCL3
+	ICALL	PERFORM,V?TELL,ME
+	RTRUE	
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
+	SET	'OWINNER,WINNER
+	SET	'WINNER,PRSO
+	ICALL	PERFORM,V?TELL-ABOUT,ME,PRSI
+	SET	'WINNER,OWINNER
+	ICALL2	THIS-IS-IT,PRSI
+	ICALL2	THIS-IS-IT,PRSO
+	RTRUE	
+?CCL5:	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-FOR
+	EQUAL?	PRSO,BROGMOID \?CCL3
+	PRINT	TALK-TO-BROGMOID
+	RTRUE	
+?CCL3:	PRINTI	"Unsurprisingly,"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" doesn't oblige."
+
+
+	.FUNCT	V-ASK-NO-ONE-FOR,ACTOR
+	CALL	FIND-IN,HERE,ACTORBIT >ACTOR
+	ZERO?	ACTOR /?CCL3
+	ICALL	PERFORM,V?ASK-FOR,ACTOR,PRSO
+	RTRUE	
+?CCL3:	PRINTR	"There's no one here to ask."
+
+
+	.FUNCT	V-BEHEAD,CALLED-BY-V-HANG
+	PRINTI	"You usually need a "
+	ZERO?	CALLED-BY-V-HANG /?CCL3
+	PRINTI	"noose"
+	JUMP	?CND1
+?CCL3:	PRINTI	"axe"
+?CND1:	PRINTI	" to do this"
+	FSET?	PRSO,ACTORBIT /?CND4
+	EQUAL?	PRSO,ME /?CND4
+	PRINTI	", and besides, it doesn't look like"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" even has a "
+	ZERO?	CALLED-BY-V-HANG /?CCL10
+	PRINTI	"neck"
+	JUMP	?CND4
+?CCL10:	PRINTI	"head"
+?CND4:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	V-BITE
+	CALL2	HACK-HACK,STR?117
+	RSTACK	
+
+
+	.FUNCT	V-BURN
+	ZERO?	PRSI \?CND1
+	CALL	FIND-IN,PROTAGONIST,FLAMEBIT >PRSI
+	ZERO?	PRSI /?CCL5
+	PRINTI	"[with"
+	ICALL1	TPRINT-PRSI
+	PRINTC	93
+	CRLF	
+	ICALL	PERFORM,V?BURN,PRSO,PRSI
+	RTRUE	
+?CCL5:	PRINTR	"Your burning gaze is insufficient."
+?CND1:	FSET?	PRSI,FLAMEBIT /?CCL8
+	PRINTI	"With"
+	ICALL2	APRINT,PRSI
+	PRINTR	"??!?"
+?CCL8:	FSET?	PRSO,BURNBIT \?CCL10
+	PRINTI	"Instantly,"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" catches fire and is consumed."
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL13
+	CALL2	JIGS-UP,STR?118
+	RSTACK	
+?CCL13:	REMOVE	PRSO
+	CRLF	
+	RTRUE	
+?CCL10:	EQUAL?	PRSO,CANDLE \?CCL15
+	FSET	CANDLE,FLAMEBIT
+	FSET	CANDLE,ONBIT
+	PRINTR	"You relight the candle."
+?CCL15:	PRINT	YOU-CANT
+	PRINTI	"burn"
+	CALL2	ARPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-BUY
+	PRINTR	"That's not for sale."
+
+
+	.FUNCT	V-CALL
+	EQUAL?	PRSO,INTQUOTE \?CCL3
+	CALL1	V-SAY
+	RSTACK	
+?CCL3:	CALL2	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL5
+	IN?	PRSO,GLOBAL-OBJECTS /?CCL5
+	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+?CCL5:	CALL2	DO-FIRST,STR?119
+	RSTACK	
+
+
+	.FUNCT	V-CATCH
+	ZERO?	PRSI /?CCL3
+	PRINTI	"Sorry,"
+	ICALL1	TPRINT-PRSI
+	PRINTI	" isn't much help in catching"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL3:	PRINTR	"The only thing you're likely to catch is a cold."
+
+
+	.FUNCT	V-CHASTISE
+	EQUAL?	PRSO,INTDIR \?CCL3
+	PRINT	YOULL-HAVE-TO
+	PRINTR	"go in that direction to see what's there."
+?CCL3:	CALL	USE-PREPOSITIONS,STR?120,STR?121,STR?122,STR?123
+	RSTACK	
+
+
+	.FUNCT	USE-PREPOSITIONS,VRB,PREP1,PREP2,PREP3
+	PRINTI	"[Use prepositions to indicate precisely what you want to do: "
+	PRINT	VRB
+	PRINT	PREP1
+	PRINTI	" the object, "
+	PRINT	VRB
+	PRINT	PREP2
+	PRINTI	" it, "
+	PRINT	VRB
+	PRINT	PREP3
+	PRINTR	" it, etc.]"
+
+
+	.FUNCT	V-CLEAN
+	SET	'AWAITING-REPLY,1
+	ICALL	QUEUE,I-REPLY,2
+	PRINTR	"Do you also do windows?"
+
+
+	.FUNCT	V-CLIMB
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL5
+	EQUAL?	PRSO,WALDO /?CCL5
+	IN?	PRSO,WALDO /?CCL5
+	PRINT	HOLDING-IT
+	RTRUE	
+?CCL5:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-DOWN
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL3:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL5
+	EQUAL?	PRSO,WALDO /?CCL5
+	IN?	PRSO,WALDO /?CCL5
+	PRINT	HOLDING-IT
+	RTRUE	
+?CCL5:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-ON
+	EQUAL?	PRSO,CAMEL \?CCL3
+	IN?	PROTAGONIST,CAMEL \?CCL3
+	EQUAL?	P-PRSA-WORD,W?RIDE \?CCL3
+	PRINTR	"[You'll have to say which direction you want to ride in.]"
+?CCL3:	EQUAL?	PRSO,INTDIR \?CCL8
+	CALL2	VISIBLE?,CAMEL
+	ZERO?	STACK /?CCL8
+	IN?	PROTAGONIST,CAMEL \?CCL13
+	ICALL	PERFORM,V?RIDE-DIR,CAMEL,PRSO
+	RTRUE	
+?CCL13:	CALL	DO-FIRST,STR?124,CAMEL
+	RSTACK	
+?CCL8:	FSET?	PRSO,VEHBIT \?CCL15
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL15:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL17
+	EQUAL?	PRSO,WALDO /?CCL17
+	IN?	PRSO,WALDO /?CCL17
+	PRINT	HOLDING-IT
+	RTRUE	
+?CCL17:	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?IN \?CCL22
+	CALL2	CANT-VERB-A-PRSO,STR?125
+	RSTACK	
+?CCL22:	CALL2	CANT-VERB-A-PRSO,STR?126
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-OVER
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL3
+	EQUAL?	PRSO,WALDO /?CCL3
+	IN?	PRSO,WALDO /?CCL3
+	PRINT	HOLDING-IT
+	RTRUE	
+?CCL3:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-UP
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL5
+	EQUAL?	PRSO,WALDO /?CCL5
+	IN?	PRSO,WALDO /?CCL5
+	PRINT	HOLDING-IT
+	RTRUE	
+?CCL5:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,SURFACEBIT /?CTR2
+	FSET?	PRSO,ACTORBIT /?CTR2
+	FSET?	PRSO,VEHBIT \?CCL3
+	EQUAL?	PRSO,IRON-MAIDEN,LADDER,DB /?CCL3
+	EQUAL?	PRSO,WATER-CHAMBER,SNAKE-PIT /?CCL3
+?CTR2:	CALL1	YOU-MUST-TELL-ME
+	RSTACK	
+?CCL3:	FSET?	PRSO,DOORBIT /?CTR11
+	FSET?	PRSO,CONTBIT \?CCL12
+?CTR11:	FSET?	PRSO,OPENBIT \?CCL17
+	FCLEAR	PRSO,OPENBIT
+	PRINTI	"Okay,"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is now closed."
+	CRLF	
+	CALL1	NOW-DARK?
+	RSTACK	
+?CCL17:	PRINT	ALREADY-IS
+	RTRUE	
+?CCL12:	CALL1	YOU-MUST-TELL-ME
+	RSTACK	
+
+
+	.FUNCT	V-COUGH
+	EQUAL?	HERE,ICKY-CAVE \?CCL3
+	IN?	SICKLY-WITCH,HERE /?CCL3
+	ZERO?	LIT /?CCL8
+	MOVE	SICKLY-WITCH,HERE
+	MOVE	PRICKLY-WITCH,HERE
+	PRINTI	"Two witches appear, spraying fumigation spells throughout the cave. One of the witches, less healthy than the other, frets, ""Oh, dear, I'm not certain my frail body can stand all these germs!"" The other witch, less friendly than the first, gives you a blistering glare. ""What manners! I certainly wouldn't walk into YOUR home and start spewing phlegm around!"""
+	IN?	JESTER,HERE \?CCL11
+	ICALL1	REMOVE-J
+	CRLF	
+	PRINTI	"   They notice the jester for the first time."
+	PRINT	WITCH-REMOVES-J
+	RTRUE	
+?CCL11:	CRLF	
+	RTRUE	
+?CCL8:	PRINTR	"You hear, briefly, a sound that just might be witches disinfecting a cave. But, in the dark, who can really tell for sure?"
+?CCL3:	PRINTR	"Hmmm. You seem to be catching a cold. [Can't say I'm surprised, considering you spent last night sleeping on the cold stone floor of Flatheadia castle.]"
+
+
+	.FUNCT	PRE-COUNT
+	EQUAL?	PRSO,ROOMS \FALSE
+	PRINTI	"There are "
+	PRINTN	P-MULT
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	V-COUNT
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-CRAWL-UNDER
+	FSET?	PRSO,TAKEBIT /?CCL3
+	CALL1	TELL-HIT-HEAD
+	RSTACK	
+?CCL3:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-CROSS
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	V-CUT
+	ZERO?	PRSI \?CCL3
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL3:	PRINTI	"Strange concept, cutting"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-DATE
+	PRINTR	"""It was on a fateful day in the year 883 GUE..."" is how poets of the future will begin their tales of your quest. Not being a poet of the future, you think of it as the 14th day of Mumberbur."
+
+
+	.FUNCT	V-DECODE
+	PRINT	YOULL-HAVE-TO
+	PRINTR	"figure it out yourself."
+
+
+	.FUNCT	V-DIG
+	EQUAL?	PRSI,SHOVEL \?CCL3
+	EQUAL?	PRSO,GROUND /?CCL6
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL6:	FSET?	HERE,OUTSIDEBIT /?CCL8
+	FSET?	HERE,DESERTBIT /?CCL8
+	PRINTR	"The floor is a bit harder than the shovel."
+?CCL8:	EQUAL?	JUMP-X,STUMP-X \?CCL12
+	EQUAL?	JUMP-Y,STUMP-Y \?CCL12
+	IN?	TREASURE-CHEST,LOCAL-GLOBALS \?CCL12
+	MOVE	TREASURE-CHEST,HERE
+	PRINTR	"You dig and dig and dig. And dig. Then, summoning hidden reserves of strength, you dig some more. Suddenly... ""Clank."" It's a treasure chest! With a burst of energy you uncover it and drag it out of the hole. As you do so, the walls of the hole collapse, filling it in, and you barely make it out alive."
+?CCL12:	PRINTR	"You dig a sizable hole but, finding nothing of interest, you fill it in again out of consideration to future passersby and current gamewriters."
+?CCL3:	PRINTI	"Digging with"
+	ZERO?	PRSI \?CCL18
+	PRINTI	" your hands"
+	JUMP	?CND16
+?CCL18:	ICALL1	TPRINT-PRSI
+?CND16:	PRINTR	" is slow and tedious."
+
+
+	.FUNCT	V-DIG-WITH
+	ICALL	PERFORM,V?DIG,GROUND,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-DRINK
+	FSET?	PRSO,WATERBIT \?CCL3
+	CALL2	PERFORM-PRSA,WATER
+	RSTACK	
+?CCL3:	CALL2	CANT-VERB-A-PRSO,STR?127
+	RSTACK	
+
+
+	.FUNCT	V-DRINK-FROM
+	FSET?	PRSO,WATERBIT \?CCL3
+	ICALL	PERFORM,V?DRINK,WATER
+	RTRUE	
+?CCL3:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-DRINK-WITH
+	EQUAL?	PRSI,STRAW \?CCL3
+	EQUAL?	PRSO,ELIXIR \?CCL6
+	CALL2	JIGS-UP,STR?128
+	RSTACK	
+?CCL6:	ICALL	PERFORM,V?DRINK,PRSO
+	RTRUE	
+?CCL3:	PRINT	YOU-CANT
+	PRINTI	"drink something with"
+	CALL2	ARPRINT,PRSI
+	RSTACK	
+
+
+	.FUNCT	V-DROP,CHESSPIECE
+	IN?	PRSO,WALDO \?CCL3
+	EQUAL?	HERE,HOLD \?CCL6
+	MOVE	PRSO,HOLD
+	JUMP	?CND4
+?CCL6:	MOVE	PRSO,LAKE-BOTTOM
+?CND4:	PRINTI	"You release"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL3:	CALL2	SPECIAL-DROP,PRSO
+	ZERO?	STACK \FALSE
+	LOC	PROTAGONIST
+	FSET?	STACK,DROPBIT \?CCL11
+	LOC	PROTAGONIST
+	MOVE	PRSO,STACK
+	JUMP	?CND9
+?CCL11:	MOVE	PRSO,HERE
+?CND9:	EQUAL?	PRSO,EVEN-LARGER-FLY,LARGER-FLY,LARGE-FLY /?CTR13
+	EQUAL?	PRSO,LARGEST-FLY \?CCL14
+?CTR13:	PRINTI	"You release"
+	ICALL1	TPRINT-PRSO
+	JUMP	?CND12
+?CCL14:	PRINTI	"Dropped"
+?CND12:	CALL	FIND-IN,HERE,BLACKBIT >CHESSPIECE
+	ZERO?	CHESSPIECE \?PRD21
+	CALL	FIND-IN,HERE,WHITEBIT >CHESSPIECE
+	ZERO?	CHESSPIECE /?CCL19
+?PRD21:	FSET?	PRSO,TRYTAKEBIT /?CCL19
+	CALL	FIND-IN,PRSO,TRYTAKEBIT
+	ZERO?	STACK \?CCL19
+	ZERO?	TIME-STOPPED \?CCL19
+	MOVE	PRSO,CHESSPIECE
+	PRINTI	". The "
+	ICALL2	DPRINT,CHESSPIECE
+	PRINTI	" says, ""Well what do you know? It's been a long time since I had"
+	ICALL2	APRINT,PRSO
+	PRINTI	"."" "
+	FSET?	CHESSPIECE,FEMALEBIT \?CCL28
+	PRINTI	"Sh"
+	JUMP	?CND26
+?CCL28:	PRINTC	72
+?CND26:	PRINTI	"e picks it up."
+	EQUAL?	PRSO,PIGEON \?CCL31
+	CALL2	META-LOC,PERCH
+	EQUAL?	HERE,STACK /?CCL31
+	CALL2	PIECE-TAKES-PIGEON,CHESSPIECE
+	RSTACK	
+?CCL31:	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	PRSO,BAR-OF-FOOD \?CCL35
+	IN?	FLAMINGO,HERE \?CCL35
+	PRINTR	". The flamingo eyes the food, but appears to be too well-mannered to eat something that hasn't been offered."
+?CCL35:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	SPECIAL-DROP,OBJ,CALLED-BY-ROB
+	EQUAL?	HERE,OUBLIETTE \?CCL3
+	GETP	OBJ,P?SIZE
+	GRTR?	STACK,4 \?CCL3
+	REMOVE	OBJ
+	EQUAL?	OBJ,PERCH /?CCL7
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND6
+?CCL7:	SET	'REMOVED-PERCH-LOC,OUBLIETTE
+?CND6:	ZERO?	CALLED-BY-ROB \TRUE
+	PRINTI	"With a gentle slurping noise,"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" vanishes slowly into the mud."
+	CRLF	
+	ICALL1	NOW-DARK?
+	RTRUE	
+?CCL3:	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS \FALSE
+	REMOVE	OBJ
+	EQUAL?	OBJ,PERCH /?CCL15
+	CALL	ULTIMATELY-IN?,PERCH,PRSO
+	ZERO?	STACK /?CND14
+?CCL15:	SET	'REMOVED-PERCH-LOC,BROGMOID
+?CND14:	ZERO?	CALLED-BY-ROB \TRUE
+	PRINTI	"As you release"
+	ICALL1	TPRINT-PRSO
+	PRINTR	", it dwindles into the mist and is gone from this world forever."
+
+
+	.FUNCT	PRE-INGEST
+	ZERO?	TURNED-INTO /FALSE
+	FSET?	TURNED-INTO,ANIMATEDBIT /FALSE
+	PRINTI	"You've turned into"
+	ICALL2	APRINT,TURNED-INTO
+	PRINTR	", and as a consequence don't have much in the way of a mouth."
+
+
+	.FUNCT	V-EAT
+	PRINTI	"It's not likely that"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" would agree with you."
+
+
+	.FUNCT	V-EMPTY,OBJ,NXT
+	ZERO?	PRSI \?CND1
+	SET	'PRSI,GROUND
+?CND1:	FSET?	PRSO,CONTBIT /?CCL5
+	PRINT	HUH
+	RTRUE	
+?CCL5:	FSET?	PRSO,OPENBIT /?CCL7
+	PRINTI	"But"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" isn't open."
+?CCL7:	FIRST?	PRSO /?CCL9
+	PRINTI	"But"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" is already empty!"
+?CCL9:	FIRST?	PRSO /?BOGUS14
+?BOGUS14:	EQUAL?	PRSI,STACK \?CCL11
+	NEXT?	PRSI /?CCL11
+	PRINT	THERES-NOTHING
+	PRINTI	"in"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" but"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+?CCL11:	FIRST?	PRSO >OBJ /?PRG16
+?PRG16:	NEXT?	OBJ >NXT /?BOGUS18
+?BOGUS18:	EQUAL?	OBJ,PROTAGONIST /?CND19
+	ICALL2	DPRINT,OBJ
+	PRINTI	": "
+	FSET?	OBJ,TAKEBIT \?CCL23
+	MOVE	OBJ,PROTAGONIST
+	EQUAL?	PRSI,HANDS \?CCL26
+	PRINTI	"You take"
+	ICALL2	TRPRINT,OBJ
+	JUMP	?CND19
+?CCL26:	EQUAL?	PRSI,GROUND \?CCL28
+	ICALL	PERFORM,V?DROP,OBJ
+	JUMP	?CND19
+?CCL28:	FSET?	PRSI,SURFACEBIT \?CCL30
+	ICALL	PERFORM,V?PUT-ON,OBJ,PRSI
+	JUMP	?CND19
+?CCL30:	ICALL	PERFORM,V?PUT,OBJ,PRSI
+	JUMP	?CND19
+?CCL23:	ICALL1	YUKS
+?CND19:	ZERO?	NXT /TRUE
+	SET	'OBJ,NXT
+	JUMP	?PRG16
+
+
+	.FUNCT	V-EMPTY-FROM
+	IN?	PRSO,PRSI \?CCL3
+	FSET?	PRSO,TAKEBIT \?CCL6
+	MOVE	PRSO,PROTAGONIST
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL6:	CALL1	YUKS
+	RSTACK	
+?CCL3:	CALL1	NOT-IN
+	RSTACK	
+
+
+	.FUNCT	PRE-ENTER
+	IN?	PROTAGONIST,PRSO \?CCL3
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL3:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL5
+	EQUAL?	PRSO,WALDO /?CCL5
+	IN?	PRSO,WALDO /?CCL5
+	PRINT	HOLDING-IT
+	RTRUE	
+?CCL5:	CALL2	UNTOUCHABLE?,PRSO
+	ZERO?	STACK /?CCL10
+	CALL2	CANT-REACH,PRSO
+	RSTACK	
+?CCL10:	FSET?	PRSO,VEHBIT \FALSE
+	IN?	PRSO,HERE /FALSE
+	PRINTI	"You'll have to remove"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" from"
+	LOC	PRSO
+	ICALL2	TPRINT,STACK
+	PRINTR	" first."
+
+
+	.FUNCT	V-ENTER,DIR
+	EQUAL?	PRSO,INTDIR \?CCL3
+	CALL1	DIRECTION-CONVERSION
+	CALL2	DO-WALK,STACK
+	RSTACK	
+?CCL3:	FSET?	PRSO,WATERBIT \?CCL5
+	CALL2	PERFORM-PRSA,WATER
+	RSTACK	
+?CCL5:	FSET?	PRSO,DOORBIT \?CCL7
+	CALL2	OTHER-SIDE,PRSO
+	ICALL2	DO-WALK,STACK
+	RTRUE	
+?CCL7:	FSET?	PRSO,VEHBIT \?CCL9
+	LOC	PRSO
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS /?CCL12
+	PRINT	YOU-CANT
+	PRINTI	"board"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" when it's "
+	LOC	PRSO
+	FSET?	STACK,SURFACEBIT \?CCL15
+	PRINTI	"on"
+	JUMP	?CND13
+?CCL15:	PRINTI	"in"
+?CND13:	LOC	PRSO
+	CALL2	TRPRINT,STACK
+	RSTACK	
+?CCL12:	MOVE	PROTAGONIST,PRSO
+	SET	'OLD-HERE,FALSE-VALUE
+	PRINTI	"You are now "
+	EQUAL?	PRSO,CARD-TABLE \?CCL18
+	PRINTI	"sitting at"
+	JUMP	?CND16
+?CCL18:	FSET?	PRSO,INBIT \?CCL20
+	PRINTI	"in"
+	JUMP	?CND16
+?CCL20:	PRINTI	"on"
+?CND16:	ICALL1	TPRINT-PRSO
+	PRINTC	46
+	GETP	PRSO,P?ACTION
+	CALL	STACK,M-ENTER
+	ZERO?	STACK \?CND21
+	CRLF	
+?CND21:	FSET	PRSO,TOUCHBIT
+	RTRUE	
+?CCL9:	IN?	PRSO,ROOMS \?CCL24
+	CALL1	FIND-NEXT-ROOM >DIR
+	ZERO?	DIR /?CCL27
+	CALL2	DO-WALK,DIR
+	RSTACK	
+?CCL27:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL24:	FSET?	PRSO,TAKEBIT /?CCL29
+	CALL1	TELL-HIT-HEAD
+	RSTACK	
+?CCL29:	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?IN \?CCL31
+	CALL2	CANT-VERB-A-PRSO,STR?129
+	RSTACK	
+?CCL31:	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?ON \?CCL33
+	CALL2	CANT-VERB-A-PRSO,STR?130
+	RSTACK	
+?CCL33:	SET	'AWAITING-REPLY,1
+	ICALL	QUEUE,I-REPLY,2
+	PRINTI	"You have a theory on how to board"
+	ICALL2	APRINT,PRSO
+	PRINTR	", perhaps?"
+
+
+	.FUNCT	FIND-NEXT-ROOM,PT,PTS,DIR
+?PRG1:	NEXTP	HERE,DIR >DIR
+	ZERO?	DIR /FALSE
+	LESS?	DIR,LOW-DIRECTION /FALSE
+	GETPT	HERE,DIR >PT
+	ZERO?	PT /?PRG1
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT,CEXIT \?CCL11
+	GETB	PT,REXIT
+	EQUAL?	STACK,PRSO \?PRG1
+	RETURN	DIR
+?CCL11:	EQUAL?	PTS,DEXIT \?PRG1
+	GETB	PT,DEXITRM
+	EQUAL?	STACK,PRSO \?PRG1
+	RETURN	DIR
+
+
+	.FUNCT	V-EXAMINE
+	ZERO?	PRSI /?CCL3
+	FSET?	PRSI,TRANSBIT /?CCL3
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL7
+	FIRST?	PRSO \?CCL10
+	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?CCL10:	ICALL1	NOTHING-INTERESTING
+	PRINTI	"about"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL7:	FSET?	PRSO,SURFACEBIT \?CCL12
+	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?CCL12:	FSET?	PRSO,DOORBIT \?CCL14
+	PRINT	IT-SEEMS-THAT
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is "
+	ICALL2	OPEN-CLOSED,PRSO
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL14:	FSET?	PRSO,CONTBIT \?CCL16
+	FSET?	PRSO,OPENBIT /?CTR18
+	FSET?	GOGGLES,WORNBIT \?CCL19
+?CTR18:	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?CCL19:	PRINTI	"It's closed."
+	FSET?	PRSO,TRANSBIT \?CCL24
+	FIRST?	PRSO \?CCL24
+	PRINTC	32
+	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?CCL24:	CRLF	
+	RTRUE	
+?CCL16:	FSET?	PRSO,LIGHTBIT \?CCL28
+	PRINTI	"It's o"
+	FSET?	PRSO,ONBIT \?CCL31
+	PRINTC	110
+	JUMP	?CND29
+?CCL31:	PRINTI	"ff"
+?CND29:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL28:	FSET?	PRSO,READBIT \?CCL33
+	ICALL	PERFORM,V?READ,PRSO
+	RTRUE	
+?CCL33:	IN?	PRSO,ROOMS \?CCL35
+	PRINTR	"You can't see much from here."
+?CCL35:	FSET?	PRSO,NARTICLEBIT \?CCL37
+	CALL2	SENSE-OBJECT,STR?131
+	RSTACK	
+?CCL37:	RANDOM	100
+	LESS?	25,STACK /?CCL39
+	PRINTI	"Totally ordinary looking "
+	ICALL2	DPRINT,PRSO
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL39:	RANDOM	100
+	LESS?	60,STACK \?CTR40
+	FSET?	PRSO,PLURALBIT /?CTR40
+	EQUAL?	PRSO,GROUND \?CCL41
+?CTR40:	ICALL1	NOTHING-INTERESTING
+	PRINTI	"about"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL41:	ICALL1	PRONOUN
+	PRINTI	" look"
+	FSET?	PRSO,PLURALBIT /?CND45
+	EQUAL?	PRSO,ME /?CND45
+	PRINTC	115
+?CND45:	PRINTI	" like every other "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" you've ever seen."
+
+
+	.FUNCT	NOTHING-INTERESTING
+	PRINT	THERES-NOTHING
+	RANDOM	100
+	LESS?	25,STACK /?CCL3
+	PRINTI	"unusual"
+	JUMP	?CND1
+?CCL3:	RANDOM	100
+	LESS?	33,STACK /?CCL5
+	PRINTI	"noteworthy"
+	JUMP	?CND1
+?CCL5:	RANDOM	100
+	LESS?	50,STACK /?CCL7
+	PRINTI	"eye-catching"
+	JUMP	?CND1
+?CCL7:	PRINTI	"special"
+?CND1:	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	V-EXIT
+	ZERO?	PRSO /?CTR2
+	EQUAL?	PRSO,ROOMS \?CCL3
+?CTR2:	IN?	PROTAGONIST,HERE /?CCL8
+	LOC	PROTAGONIST
+	ICALL	PERFORM,V?EXIT,STACK
+	RTRUE	
+?CCL8:	ZERO?	UNDER-TABLE /?CCL10
+	CALL1	V-STAND
+	RSTACK	
+?CCL10:	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?DOWN \?CCL12
+	PRINTR	"You're not on anything."
+?CCL12:	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL3:	EQUAL?	P-PRSA-WORD,W?TAKE \?CCL14
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL14:	ZERO?	UNDER-TABLE /?CCL16
+	ZERO?	PRSO /?CTR15
+	EQUAL?	PRSO,TABLES \?CCL16
+?CTR15:	CALL1	V-STAND
+	RSTACK	
+?CCL16:	IN?	PROTAGONIST,PRSO /?CCL22
+	SET	'P-CONT,-1
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL22:	ZERO?	TURNED-INTO /?CCL24
+	FSET?	TURNED-INTO,ANIMATEDBIT /?CCL24
+	EQUAL?	TURNED-INTO,LITTLE-FUNGUS /?CCL24
+	CALL1	V-SKIP
+	RSTACK	
+?CCL24:	MOVE	PROTAGONIST,HERE
+	SET	'OLD-HERE,FALSE-VALUE
+	PRINTI	"You get "
+	EQUAL?	PRSO,CARD-TABLE \?CCL30
+	PRINTI	"up from"
+	JUMP	?CND28
+?CCL30:	FSET?	PRSO,INBIT \?CCL32
+	PRINTI	"out of"
+	JUMP	?CND28
+?CCL32:	PRINTI	"off"
+?CND28:	ICALL1	TPRINT-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-FEED
+	PRINTI	"You have no food for"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	PRE-FILL
+	ZERO?	PRSI \FALSE
+	CALL1	FIND-WATER
+	ZERO?	STACK /?CCL5
+	SET	'PRSI,WATER
+	RFALSE	
+?CCL5:	CALL2	VISIBLE?,LARGE-VIAL-WATER
+	ZERO?	STACK /?CCL7
+	CALL2	VISIBLE?,SMALL-VIAL-WATER
+	ZERO?	STACK /?CCL7
+	EQUAL?	PRSO,SMALL-VIAL \?CCL12
+	ICALL	PERFORM,V?EMPTY,LARGE-VIAL,SMALL-VIAL
+	RTRUE	
+?CCL12:	EQUAL?	PRSO,LARGE-VIAL \?CCL14
+	ICALL	PERFORM,V?EMPTY,SMALL-VIAL,LARGE-VIAL
+	RTRUE	
+?CCL14:	PRINTR	"[You'll have to specify which water you mean, the large vial or the small vial.]"
+?CCL7:	CALL2	VISIBLE?,LARGE-VIAL-WATER
+	ZERO?	STACK /?CCL16
+	ICALL	PERFORM,V?EMPTY,LARGE-VIAL,PRSO
+	RTRUE	
+?CCL16:	CALL2	VISIBLE?,SMALL-VIAL-WATER
+	ZERO?	STACK /?CCL18
+	ICALL	PERFORM,V?EMPTY,SMALL-VIAL,PRSO
+	RTRUE	
+?CCL18:	ICALL	PERFORM,V?FILL,PRSO,WATER
+	RTRUE	
+
+
+	.FUNCT	V-FILL
+	FSET?	PRSI,WATERBIT \?CCL3
+	CALL	PERFORM-PRSA,PRSO,WATER
+	RSTACK	
+?CCL3:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-FIND,L
+	LOC	PRSO >L
+	ZERO?	L \?CCL3
+	ICALL1	PRONOUN
+	PRINTR	" could be anywhere!"
+?CCL3:	IN?	PRSO,PROTAGONIST \?CCL5
+	PRINTR	"You have it!"
+?CCL5:	IN?	PRSO,HERE \?CCL7
+	PRINTR	"Right in front of you."
+?CCL7:	IN?	PRSO,GLOBAL-OBJECTS /?CTR8
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CCL9
+?CTR8:	CALL1	V-DECODE
+	RSTACK	
+?CCL9:	FSET?	L,ACTORBIT \?CCL13
+	CALL2	VISIBLE?,L
+	ZERO?	STACK /?CCL13
+	PRINTI	"Looks as if"
+	ICALL2	TPRINT,L
+	PRINTR	" has it."
+?CCL13:	FSET?	L,CONTBIT \?CCL17
+	CALL2	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL17
+	IN?	L,GLOBAL-OBJECTS /?CCL17
+	FSET?	L,SURFACEBIT \?CCL23
+	PRINTC	79
+	JUMP	?CND21
+?CCL23:	FSET?	L,VEHBIT \?CCL25
+	FSET?	L,INBIT /?CCL25
+	PRINTC	79
+	JUMP	?CND21
+?CCL25:	PRINTC	73
+?CND21:	PRINTC	110
+	CALL2	TRPRINT,L
+	RSTACK	
+?CCL17:	CALL1	V-DECODE
+	RSTACK	
+
+
+	.FUNCT	V-FLY
+	ZERO?	PRSO /?CTR2
+	EQUAL?	PRSO,INTDIR \?CCL3
+?CTR2:	ZERO?	TURNED-INTO /?CCL8
+	EQUAL?	TURNED-INTO,PIGEON,ROOSTER,FLAMINGO /?CTR10
+	EQUAL?	TURNED-INTO,EVEN-LARGER-FLY,LARGE-FLY,LARGEST-FLY /?CTR10
+	EQUAL?	TURNED-INTO,LARGER-FLY \?CCL11
+?CTR10:	MOVE	PROTAGONIST,HERE
+	PRINTR	"You make a few awkward circuits of the room, bouncing into several walls. (Ouch.)"
+?CCL11:	PRINTI	"Despite what you may have learned in school,"
+	ICALL2	APRINT,TURNED-INTO
+	PRINTR	" is no more capable of flight than a human."
+?CCL8:	PRINTR	"Humans are not usually equipped for flying."
+?CCL3:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-FOLLOW
+	CALL2	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL3
+	PRINTI	"But"
+	ICALL2	IS-ARE-PRINT,PRSO
+	PRINTR	"right here!"
+?CCL3:	FSET?	PRSO,ACTORBIT /?CCL5
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL5:	PRINTI	"You have no idea where"
+	ICALL1	TPRINT-PRSO
+	FSET?	PRSO,PLURALBIT \?CCL8
+	PRINTI	" are"
+	JUMP	?CND6
+?CCL8:	PRINTI	" is"
+?CND6:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	PRE-GIVE
+	EQUAL?	PRSA,V?GIVE \?CCL3
+	EQUAL?	PRSO,HANDS \?CCL3
+	ICALL	PERFORM,V?SHAKE-WITH,PRSI
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,EYES \?CCL7
+	ICALL1	PRE-SWITCH
+	ICALL	PERFORM,V?EXAMINE,PRSI,EYES
+	RTRUE	
+?CCL7:	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-GET-NEAR
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-GIVE
+	FSET?	PRSI,ACTORBIT \?CCL3
+	PRINTI	"Briskly,"
+	ICALL1	TPRINT-PRSI
+	PRINTI	" refuse"
+	FSET?	PRSI,PLURALBIT /?CND4
+	PRINTC	115
+?CND4:	PRINTR	" your offer."
+?CCL3:	PRINT	YOU-CANT
+	PRINTI	"give"
+	ICALL2	APRINT,PRSO
+	PRINTI	" to"
+	ICALL2	APRINT,PRSI
+	PRINTR	"!"
+
+
+	.FUNCT	V-GIVE-UP
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL1	V-QUIT
+	RSTACK	
+?CCL3:	CALL1	RECOGNIZE
+	RSTACK	
+
+
+	.FUNCT	V-HANG
+	CALL2	V-BEHEAD,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-HELLO
+	ZERO?	PRSO /?CCL3
+	PRINTI	"[The proper way to talk to characters in the story is PERSON, HELLO."
+	EQUAL?	PRSO,SAILOR \?CND4
+	PRINTI	" Besides, nothing happens here."
+?CND4:	PRINTR	"]"
+?CCL3:	ICALL	PERFORM,V?TELL,ME
+	RTRUE	
+
+
+	.FUNCT	V-HIDE
+	PRINT	YOU-CANT
+	PRINTI	"hide "
+	ZERO?	PRSO /?CND1
+	PRINTC	116
+?CND1:	PRINTR	"here."
+
+	.ENDSEG
+
+	.SEGMENT "HINTS"
+
+
+	.FUNCT	V-HINT
+	EQUAL?	HINTS-OFF,-1 \?CCL3
+	SET	'HINTS-OFF,0
+	PRINTI	"Warning: We strongly recommend that you not use hints unless you're definitely stuck. Peeking at hints prematurely will invariably make you enjoy the story less. If you want to avoid reading any hints for the rest of this session, you may at any time during the story type HINTS OFF. Do you still want a hint? (Y or N) >"
+	CALL1	Y?
+	ZERO?	STACK \?CND1
+	RETURN	2
+?CCL3:	ZERO?	HINTS-OFF /?CND1
+	ICALL	PERFORM,V?HINTS-NO,ROOMS
+	RETURN	2
+?CND1:	IGRTR?	'HINT-COUNTER,0 \?CND11
+	MOD	HINT-COUNTER,5
+	ZERO?	STACK \?CND11
+	PRINTI	"You're looking at the hints "
+	HLIGHT	H-BOLD
+	PRINTI	"again"
+	HLIGHT	H-NORMAL
+	PRINTI	"?!! Even Lord Dimwit Flathead would consider that excessive! Do you really want to be such a wimp? (Y or N) >"
+	CALL1	Y?
+	ZERO?	STACK \?CND11
+	RETURN	2
+?CND11:	CALL1	DO-HINTS
+	RSTACK	
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+
+	.FUNCT	V-HINTS-NO
+	EQUAL?	PRSO,ROOMS /?CCL3
+	ICALL1	RECOGNIZE
+	RTRUE	
+?CCL3:	ZERO?	HINTS-OFF /?CCL5
+	PRINTI	"[You've already deactivated"
+	JUMP	?CND1
+?CCL5:	SET	'HINTS-OFF,TRUE-VALUE
+	PRINTI	"[Okay, you will no longer have access to"
+?CND1:	PRINTR	" help in this session.]"
+
+
+	.FUNCT	V-IN
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+
+
+	.FUNCT	V-INFLATE
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-KICK
+	CALL2	HACK-HACK,STR?132
+	RSTACK	
+
+
+	.FUNCT	V-KILL
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTI	"Trying to kill"
+	ICALL2	APRINT,PRSO
+	PRINTI	" with"
+	ZERO?	PRSI /?CCL6
+	ICALL2	APRINT,PRSI
+	JUMP	?CND4
+?CCL6:	PRINTI	" your bare hands"
+?CND4:	PRINTR	" is suicidal."
+?CCL3:	PRINTI	"How strange, fighting"
+	ICALL2	APRINT,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	V-KISS
+	PRINTR	"I'd sooner kiss a pig."
+
+
+	.FUNCT	V-KNOCK
+	FSET?	PRSO,DOORBIT \?CCL3
+	PRINTR	"Nobody's home."
+?CCL3:	CALL2	HACK-HACK,STR?133
+	RSTACK	
+
+
+	.FUNCT	V-LEAD-TO
+	EQUAL?	PRSO,CAMEL \?CCL3
+	EQUAL?	PRSI,WATER \?CCL3
+	FSET?	CAMEL,ANIMATEDBIT \?CCL3
+	ZERO?	CAMEL-THIRSTY \?CCL9
+	ICALL	PERFORM,V?EXAMINE,CAMEL
+	RTRUE	
+?CCL9:	PRINTR	"The camel takes the tiniest sip of lake water, snorts with disgust, and spits it right out."
+?CCL3:	PRINTI	"It doesn't look like you'll be leading"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" anywhere, let alone to"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+
+
+	.FUNCT	V-LEAP
+	ZERO?	TURNED-INTO /?CCL3
+	FSET?	TURNED-INTO,ANIMATEDBIT /?CCL3
+	EQUAL?	TURNED-INTO,LITTLE-FUNGUS /?CCL3
+	CALL1	V-SKIP
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,ROOMS /?CTR7
+	ZERO?	PRSO \?CCL8
+?CTR7:	EQUAL?	HERE,GONDOLA \?CCL13
+	GRTR?	DIRIGIBLE-COUNTER,0 \?CCL13
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL13:	EQUAL?	HERE,HANGING-FROM-ROOTS,UNDER-THE-WORLD,SHOULDER \?CCL17
+	CALL2	JIGS-UP,STR?134
+	RSTACK	
+?CCL17:	CALL1	JUMPLOSS
+	ZERO?	STACK \TRUE
+	EQUAL?	HERE,MEGABOZ-HUT \?CCL21
+	IN?	PROTAGONIST,LADDER \?CCL24
+	PRINTR	"You don't need to. Thanks to the ladder, you can easily make it through the trap door."
+?CCL24:	PRINTR	"Your best jump leaves you far short of the trap door."
+?CCL21:	CALL1	V-SKIP
+	RSTACK	
+?CCL8:	EQUAL?	PRSO,INTDIR \?CCL26
+	EQUAL?	HERE,OUTER-BAILEY \?CCL29
+	EQUAL?	JUMP-X,99 /?CCL29
+	CALL	NOUN-USED?,INTDIR,W?SOUTH,W?NORTH
+	ZERO?	STACK \?CTR28
+	CALL	NOUN-USED?,INTDIR,W?EAST,W?WEST
+	ZERO?	STACK /?CCL29
+?CTR28:	CALL	NOUN-USED?,INTDIR,W?NORTH
+	ZERO?	STACK /?CCL37
+	INC	'JUMP-Y
+	JUMP	?CND27
+?CCL37:	CALL	NOUN-USED?,INTDIR,W?SOUTH
+	ZERO?	STACK /?CCL39
+	DEC	'JUMP-Y
+	JUMP	?CND27
+?CCL39:	CALL	NOUN-USED?,INTDIR,W?EAST
+	ZERO?	STACK /?CCL41
+	INC	'JUMP-X
+	JUMP	?CND27
+?CCL41:	DEC	'JUMP-X
+	JUMP	?CND27
+?CCL29:	SET	'JUMP-X,99
+	SET	'JUMP-Y,99
+?CND27:	IN?	PROTAGONIST,TREE-STUMP \?CND42
+	SET	'OLD-HERE,FALSE-VALUE
+	MOVE	PROTAGONIST,HERE
+?CND42:	PRINTR	"You jump once in that direction."
+?CCL26:	IN?	PRSO,HERE /?CCL45
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL45:	CALL1	JUMPLOSS
+	ZERO?	STACK \TRUE
+	CALL1	V-SKIP
+	RSTACK	
+
+
+	.FUNCT	JUMPLOSS
+	EQUAL?	HERE,PARAPET,UPPER-LEDGE,LOWER-LEDGE /?CTR2
+	EQUAL?	HERE,G-U-MOUNTAIN,BALCONY,ROOF /?CTR2
+	EQUAL?	HERE,QUARRYS-EDGE \FALSE
+?CTR2:	RANDOM	100
+	LESS?	33,STACK /?CCL9
+	PRINTI	"Geronimo"
+	JUMP	?CND7
+?CCL9:	RANDOM	100
+	LESS?	50,STACK /?CCL11
+	PRINTI	"You should have looked before you leapt"
+	JUMP	?CND7
+?CCL11:	PRINTI	"This was not a very good place to try jumping"
+?CND7:	CALL2	JIGS-UP,STR?135
+	RSTACK	
+
+
+	.FUNCT	V-LEAP-OFF
+	FSET?	PRSO,VEHBIT \?CCL3
+	ICALL	PERFORM,V?EXIT,PRSO
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?LEAP,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LEAVE
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL3:	IN?	PROTAGONIST,PRSO \?CCL5
+	ICALL	PERFORM,V?EXIT,PRSO
+	RTRUE	
+?CCL5:	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LET-OUT
+	PRINTI	"But"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" isn't all that confined."
+
+
+	.FUNCT	V-LIE-DOWN
+	IN?	BEDBUG,HERE \?CCL3
+	PRINTI	"You curl up for a moment. "
+	CALL2	REMOVE-BEDBUG,STR?136
+	RSTACK	
+?CCL3:	FSET?	PRSO,VEHBIT \?CCL5
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL5:	EQUAL?	PRSO,ROOMS \?CCL7
+	EQUAL?	HERE,DIMWITS-ROOM \?CCL7
+	ICALL	PERFORM,V?ENTER,DIMWITS-BED
+	RTRUE	
+?CCL7:	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	PRE-LISTEN
+	ZERO?	TIME-STOPPED /?CCL3
+	PRINTR	"Unremitting silence."
+?CCL3:	ZERO?	TURNED-INTO /FALSE
+	FSET?	TURNED-INTO,ANIMATEDBIT /FALSE
+	SET	'P-CONT,-1
+	CALL2	TO-SPEAK-OF,STR?137
+	RSTACK	
+
+
+	.FUNCT	V-LISTEN,PLANT
+	ZERO?	PRSO /?CCL3
+	CALL2	SENSE-OBJECT,STR?138
+	RSTACK	
+?CCL3:	EQUAL?	HERE,TORTURE-CHAMBER \?CCL5
+	FSET?	METRONOME,TRYTAKEBIT \?CCL5
+	GRTR?	METRONOME-COUNTER,0 \?CCL5
+	CALL1	METRONOME-TORTURE
+	RSTACK	
+?CCL5:	CALL2	VISIBLE?,METRONOME
+	ZERO?	STACK /?CCL10
+	ZERO?	METRONOME-ON /?CCL10
+	ICALL	QUEUE,I-METRONOME,2
+	CALL2	I-METRONOME,TRUE-VALUE
+	RSTACK	
+?CCL10:	CALL	FIND-IN,HERE,PLANTBIT >PLANT
+	ZERO?	PLANT /?CCL14
+	ZERO?	PLANT-TALKER /?CCL14
+	PRINTI	"[to"
+	ICALL2	TPRINT,PLANT
+	PRINTC	93
+	CRLF	
+	CALL2	PERFORM-PRSA,PLANT
+	RSTACK	
+?CCL14:	PRINTR	"You hear nothing of interest."
+
+
+	.FUNCT	PRE-LOCK,KEY
+	ZERO?	PRSI \FALSE
+	CALL	FIND-IN,PROTAGONIST,KEYBIT >KEY
+	ZERO?	KEY /?CCL6
+	SET	'PRSI,KEY
+	PRINTI	"[with"
+	ICALL2	TPRINT,KEY
+	PRINTC	93
+	CRLF	
+	RFALSE	
+?CCL6:	SET	'AWAITING-REPLY,1
+	ICALL	QUEUE,I-REPLY,2
+	PRINTR	"What? With your nose?"
+
+
+	.FUNCT	V-LOCK,KEY
+	FSET?	PRSO,LOCKEDBIT \?CCL3
+	PRINT	ALREADY-IS
+	RTRUE	
+?CCL3:	FSET?	PRSO,DOORBIT /?CTR4
+	EQUAL?	PRSO,TRUNK \?CCL5
+?CTR4:	PRINTI	"Unfortunately,"
+	ICALL1	TPRINT-PRSI
+	PRINTI	" doesn't lock"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL5:	PRINT	YOU-CANT
+	PRINTI	"lock"
+	CALL2	ARPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	PRE-LOOK
+	ZERO?	LIT \?CCL3
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?READ \?CCL5
+	ZERO?	TURNED-INTO /?CCL5
+	FSET?	TURNED-INTO,ANIMATEDBIT /?CCL5
+	SET	'P-CONT,-1
+	CALL2	TO-SPEAK-OF,STR?139
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?READ \FALSE
+	CALL2	UNTOUCHABLE?,PRSO
+	ZERO?	STACK /FALSE
+	FSET?	PRSO,TAKEBIT \FALSE
+	PRINT	YNH
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-LOOK
+	CALL2	D-ROOM,TRUE-VALUE
+	ZERO?	STACK /TRUE
+	ICALL1	D-OBJECTS
+	RTRUE	
+
+
+	.FUNCT	V-LOOK-BEHIND
+	FSET?	PRSO,DOORBIT \?CND1
+	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?CND1:	PRINTI	"There is nothing behind"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-DOWN
+	EQUAL?	PRSO,ROOMS \?CCL3
+	EQUAL?	HERE,HANGING-FROM-ROOTS,UNDER-THE-WORLD \?CCL6
+	CALL1	V-LOOK
+	RSTACK	
+?CCL6:	ICALL	PERFORM,V?EXAMINE,GROUND
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LOOK-INSIDE,X-RAYED
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINT	IT-SEEMS-THAT
+	ICALL1	TPRINT-PRSO
+	PRINTI	" has"
+	CALL1	D-NOTHING
+	ZERO?	STACK \TRUE
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL3:	IN?	PROTAGONIST,PRSO \?CCL7
+	CALL1	D-VEHICLE
+	RSTACK	
+?CCL7:	FSET?	PRSO,DOORBIT \?CCL9
+	PRINTI	"All you can tell is that"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is "
+	ICALL2	OPEN-CLOSED,PRSO
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL9:	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?OUT \?CCL11
+	PRINTR	"You see nothing special."
+?CCL11:	FSET?	PRSO,SURFACEBIT \?CCL13
+	PRINTI	"On the surface of"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" you see"
+	CALL1	D-NOTHING
+	ZERO?	STACK \TRUE
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL13:	FSET?	PRSO,VEHBIT \?CCL17
+	FIRST?	PRSO /?CCL17
+	FSET?	PRSO,OPENBIT /?CCL22
+	ICALL	DO-FIRST,STR?140,PRSO
+	RTRUE	
+?CCL22:	FSET?	PRSO,OPENBIT /?CND20
+	FSET?	PRSO,TRANSBIT /?CND20
+	FSET?	GOGGLES,WORNBIT \?CND20
+	SET	'X-RAYED,TRUE-VALUE
+	ICALL1	DISCOVER-X-RAY
+?CND20:	PRINTI	"There is no one "
+	FSET?	PRSO,INBIT \?CCL29
+	PRINTC	105
+	JUMP	?CND27
+?CCL29:	PRINTC	111
+?CND27:	PRINTC	110
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL17:	FSET?	PRSO,CONTBIT \?CCL31
+	FSET?	PRSO,OPENBIT /?CND32
+	FSET?	PRSO,TRANSBIT /?CND32
+	FSET?	GOGGLES,WORNBIT \?CND32
+	SET	'X-RAYED,TRUE-VALUE
+	ICALL1	DISCOVER-X-RAY
+?CND32:	CALL2	SEE-INSIDE?,PRSO
+	ZERO?	STACK /?CCL39
+	PRINTI	"Within"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" you see"
+	CALL1	D-NOTHING
+	ZERO?	STACK \?CND40
+	PRINT	PERIOD-CR
+?CND40:	ZERO?	X-RAYED /TRUE
+	PRINTI	"   After a moment, the power of the goggles wanes, and"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" no longer seems transparent."
+?CCL39:	FSET?	PRSO,OPENBIT /?CCL45
+	FIRST?	PRSO \?CCL45
+	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?IN \?CCL45
+	CALL2	UNTOUCHABLE?,PRSO
+	ZERO?	STACK /?CND49
+	ICALL2	CANT-REACH,PRSO
+	RTRUE	
+?CND49:	ICALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+?CCL45:	CALL	DO-FIRST,STR?140,PRSO
+	RSTACK	
+?CCL31:	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?IN \?CCL52
+	CALL2	CANT-VERB-A-PRSO,STR?141
+	RSTACK	
+?CCL52:	CALL2	CANT-VERB-A-PRSO,STR?142
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-OVER
+	CALL1	V-EXAMINE
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-UNDER
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL3
+	EQUAL?	PRSO,WALDO /?CCL3
+	IN?	PRSO,WALDO /?CCL3
+	FSET?	PRSO,WORNBIT \?CCL9
+	PRINT	WEARING-IT
+	RTRUE	
+?CCL9:	PRINT	HOLDING-IT
+	RTRUE	
+?CCL3:	FSET?	PRSO,WATERBIT \?CCL11
+	CALL2	PERFORM-PRSA,WATER
+	RSTACK	
+?CCL11:	PRINTI	"There is nothing but "
+	IN?	PRSO,MIRROR-LAKE \?CCL14
+	PRINTI	"ice"
+	JUMP	?CND12
+?CCL14:	LOC	PRSO
+	FSET?	STACK,DELTABIT \?CCL16
+	PRINTI	"swamp"
+	JUMP	?CND12
+?CCL16:	EQUAL?	PRSO,EAST-DOCK,SOUTH-DOCK,NORTH-DOCK /?CTR17
+	EQUAL?	PRSO,WHARF,YACHT,WEST-DOCK /?CTR17
+	EQUAL?	PRSO,BRIDGE /?CTR17
+	EQUAL?	PRSO,DRAWBRIDGE /?PRD25
+	EQUAL?	PRSO,GLOBAL-HERE \?PRD23
+	EQUAL?	HERE,DRAWBRIDGE \?PRD23
+?PRD25:	FSET?	DRAWBRIDGE,OPENBIT /?CTR17
+?PRD23:	EQUAL?	HERE,LAKE-BOTTOM \?PRD30
+	IN?	PRSO,HERE /?CTR17
+?PRD30:	EQUAL?	PRSO,DB,WALDO \?PRD33
+	EQUAL?	HERE,HOLD \?CTR17
+?PRD33:	IN?	PRSO,WALDO \?PRD36
+	EQUAL?	HERE,HOLD \?CTR17
+?PRD36:	IN?	PRSO,FISH-TANK \?CCL18
+?CTR17:	PRINTI	"water"
+	JUMP	?CND12
+?CCL18:	PRINTI	"dust"
+?CND12:	PRINTR	" there."
+
+
+	.FUNCT	V-LOWER
+	CALL1	V-RAISE
+	RSTACK	
+
+
+	.FUNCT	V-MAP,TBL,RM,RM-ICON,CX,CY,CHAR
+	ZERO?	DEMO-VERSION? /?CCL3
+	ICALL1	NOT-IN-DEMO
+	RETURN	2
+?CCL3:	CALL1	DO-MAP
+	EQUAL?	STACK,M-FATAL \?CND1
+	RETURN	2
+?CND1:	GETP	HERE,P?MAP-LOC >TBL
+	GET	TBL,1
+	CALL2	MAP-Y,STACK >CY
+	GET	TBL,2
+	CALL2	MAP-X,STACK >CX
+?PRG9:	ISAVE	
+	EQUAL?	2,STACK \?CND11
+	ICALL1	V-$REFRESH
+?CND11:	GETP	HERE,P?ICON >RM-ICON
+	ZERO?	RM-ICON /?CCL15
+	PUSH	RM-ICON
+	JUMP	?CND13
+?CCL15:	PUSH	ICONLESS-ROOM-BOX
+?CND13:	CALL	BLINK,STACK,YOU-ARE-HERE-SYMBOL,CY,CX,S-FULL >CHAR
+	EQUAL?	CHAR,CLICK1,CLICK2 \?REP10
+	CALL1	MAP-CLICK
+	ZERO?	STACK /?CND19
+	SET	'ROSE-NEEDS-UPDATING,TRUE-VALUE
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \?REP10
+	FSET?	HERE,DELTABIT \?CCL25
+	ICALL1	RETURN-FROM-MAP
+	JUMP	?REP10
+?CCL25:	ZERO?	CHANGE-MAP /?CND21
+	ICALL1	DO-MAP
+?CND21:	GETP	HERE,P?MAP-LOC >TBL
+	GET	TBL,1
+	CALL2	MAP-Y,STACK >CY
+	GET	TBL,2
+	CALL2	MAP-X,STACK >CX
+?CND19:	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /?PRG9
+?REP10:	CALL1	RETURN-FROM-MAP
+	RSTACK	
+
+
+	.FUNCT	DO-MAP,TBL,MAP-NUM,RM,RM-ICON,?TMP1
+	SET	'CHANGE-MAP,FALSE-VALUE
+	EQUAL?	HERE,GONDOLA \?CCL3
+	GETP	HERE,P?MAP-LOC
+	GET	STACK,0
+	EQUAL?	STACK,FALSE-VALUE \?CCL3
+	PRINTI	"[Mapping is temporarily unavailable.]"
+	CRLF	
+	RETURN	2
+?CCL3:	GETP	HERE,P?MAP-LOC
+	ZERO?	STACK \?CCL9
+	PRINTI	"[No on-screen map is available for this location."
+	EQUAL?	HERE,CONSTRUCTION \?CND10
+	PRINTI	" Use the blueprint from your package."
+?CND10:	PRINTC	93
+	CRLF	
+	RETURN	2
+?CCL9:	FSET?	HERE,DELTABIT /?PRD17
+	EQUAL?	HERE,RIVERS-END,OCEANS-EDGE \?CCL15
+?PRD17:	ZERO?	CHANGED-MAP-WARNING \?CCL15
+	SET	'CHANGED-MAP-WARNING,TRUE-VALUE
+	PRINTI	"The jester "
+	IN?	JESTER,HERE /?CND20
+	PRINTI	"appears for a moment and "
+?CND20:	PRINTI	"says, ""It may seem odd and it may seem queer, but on-screen mapping works differently here."""
+	CRLF	
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	JUMP	?CND1
+?CCL15:	ZERO?	MAP-NOTE \?CND1
+	SET	'MAP-NOTE,TRUE-VALUE
+	PRINTI	"Please read the section in the manual on on-screen mapping, if you have not already done so. Are you ready to see the map (y or n)? >"
+	CALL1	Y?
+	ZERO?	STACK \?CND1
+	RETURN	2
+?CND1:	PICINF	MAP-BOX-SIZE,PICINF-TBL /?BOGUS27
+?BOGUS27:	GET	PICINF-TBL,1 >MAP-BOX-WIDTH
+	GET	PICINF-TBL,0 >MAP-BOX-HEIGHT
+	PICINF	MAP-SPACE-SIZE,PICINF-TBL /?BOGUS28
+?BOGUS28:	GET	PICINF-TBL,1 >MAP-SPACE-WIDTH
+	GET	PICINF-TBL,0 >MAP-SPACE-HEIGHT
+	ICALL2	PICINF-PLUS-ONE,MAP-TOP-LEFT-LOC
+	GET	PICINF-TBL,1 >MAP-TOP-LEFT-X
+	GET	PICINF-TBL,0 >MAP-TOP-LEFT-Y
+	PICINF	MAP-BASIC-ELT-SIZE,PICINF-TBL /?BOGUS29
+?BOGUS29:	GET	PICINF-TBL,1 >MAP-ELEMENT-WIDTH
+	GET	PICINF-TBL,0 >MAP-ELEMENT-HEIGHT
+	CLEAR	-1
+	SCREEN	S-FULL
+	SET	'CURRENT-SPLIT,MAP-TOP-LEFT-LOC
+	DISPLAY	MAP-BORDER,1,1
+	GETP	HERE,P?MAP-LOC >TBL
+	GET	TBL,0 >MAP-NUM
+	FIRST?	ROOMS >RM /?BOGUS30
+?BOGUS30:	ICALL2	MODIFY-PICSET-TBL,MAP-NUM
+	PICSET	MAP-PICSET-TBL
+	ICALL2	DRAW-TITLES,MAP-NUM
+?PRG31:	ZERO?	RM /?REP32
+	GETP	RM,P?MAP-LOC >TBL
+	ZERO?	TBL /?CND35
+	GET	TBL,0
+	EQUAL?	STACK,MAP-NUM \?CND35
+	FSET?	RM,TOUCHBIT /?CCL38
+	EQUAL?	HERE,RM /?CCL38
+	EQUAL?	RM,FR-OFFICES,OFFICES-NORTH,OFFICES-SOUTH /?PRD45
+	EQUAL?	RM,OFFICES-EAST,OFFICES-WEST \?CND35
+?PRD45:	ZERO?	BEEN-IN-FR-UPPER-FLOORS /?CND35
+?CCL38:	FSET?	RM,DELTABIT \?CCL50
+	FIRST?	RM \?CND35
+?CCL50:	GETP	RM,P?ICON >RM-ICON
+	ZERO?	RM-ICON /?CCL54
+	GET	TBL,1 >?TMP1
+	GET	TBL,2
+	ICALL	DISPLAY-ROOM,RM-ICON,?TMP1,STACK
+	ICALL	DRAW-CONS,RM,TBL
+	JUMP	?CND35
+?CCL54:	GET	TBL,1 >?TMP1
+	GET	TBL,2
+	ICALL	DISPLAY-ROOM,ICONLESS-ROOM-BOX,?TMP1,STACK
+	ICALL	DRAW-CONS,RM,TBL
+?CND35:	NEXT?	RM >RM /?PRG31
+	JUMP	?PRG31
+?REP32:	ICALL2	PICINF-PLUS-ONE,MAP-ROSE-LOC
+	GET	PICINF-TBL,0 >?TMP1
+	GET	PICINF-TBL,1
+	DISPLAY	MAP-ROSE-BG,?TMP1,STACK
+	CALL1	UPDATE-MAP-ROSE
+	RSTACK	
+
+
+	.FUNCT	UPDATE-MAP-ROSE
+	SET	'ROSE-NEEDS-UPDATING,FALSE-VALUE
+	ICALL2	PICINF-PLUS-ONE,MAP-COMPASS-PIC-LOC
+	ICALL	DRAW-COMPASS-ROSE,P?NORTH,MAP-N-HL,MAP-N-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?NE,MAP-NE-HL,MAP-NE-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?EAST,MAP-E-HL,MAP-E-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?SE,MAP-SE-HL,MAP-SE-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?SOUTH,MAP-S-HL,MAP-S-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?SW,MAP-SW-HL,MAP-SW-UNHL
+	ICALL	DRAW-COMPASS-ROSE,P?WEST,MAP-W-HL,MAP-W-UNHL
+	CALL	DRAW-COMPASS-ROSE,P?NW,MAP-NW-HL,MAP-NW-UNHL
+	RSTACK	
+
+
+	.FUNCT	MODIFY-PICSET-TBL,MAP-NUM,TBL,?TMP1
+	EQUAL?	MAP-NUM,MAIN-MAP-NUM \?CCL3
+	SET	'TBL,MAIN-ICON-TBL
+	JUMP	?CND1
+?CCL3:	EQUAL?	MAP-NUM,SECRET-WING-MAP-NUM \?CCL5
+	SET	'TBL,SECRET-WING-ICON-TBL
+	JUMP	?CND1
+?CCL5:	EQUAL?	MAP-NUM,VILLAGE-MAP-NUM \?CCL7
+	SET	'TBL,VILLAGE-ICON-TBL
+	JUMP	?CND1
+?CCL7:	EQUAL?	MAP-NUM,LOWER-LEVEL-MAP-NUM \?CCL9
+	SET	'TBL,LOWER-LEVEL-ICON-TBL
+	JUMP	?CND1
+?CCL9:	EQUAL?	MAP-NUM,LAKE-MAP-NUM \?CCL11
+	SET	'TBL,LAKE-ICON-TBL
+	JUMP	?CND1
+?CCL11:	EQUAL?	MAP-NUM,DESERT-MAP-NUM \?CCL13
+	SET	'TBL,DESERT-ICON-TBL
+	JUMP	?CND1
+?CCL13:	EQUAL?	MAP-NUM,FOOZLE-MAP-NUM \?CCL15
+	SET	'TBL,FOOZLE-ICON-TBL
+	JUMP	?CND1
+?CCL15:	EQUAL?	MAP-NUM,FENSHIRE-MAP-NUM \?CCL17
+	SET	'TBL,FENSHIRE-ICON-TBL
+	JUMP	?CND1
+?CCL17:	EQUAL?	MAP-NUM,FJORD-MAP-NUM \?CCL19
+	SET	'TBL,CRAG-ICON-TBL
+	JUMP	?CND1
+?CCL19:	EQUAL?	MAP-NUM,GRAY-MOUNTAINS-MAP-NUM \?CCL21
+	SET	'TBL,GLACIER-ICON-TBL
+	JUMP	?CND1
+?CCL21:	EQUAL?	MAP-NUM,DELTA-MAP-NUM \?CCL23
+	SET	'TBL,DELTA-ICON-TBL
+	JUMP	?CND1
+?CCL23:	EQUAL?	MAP-NUM,FUBLIO-MAP-NUM \?CCL25
+	SET	'TBL,FUBLIO-ICON-TBL
+	JUMP	?CND1
+?CCL25:	SET	'TBL,ANTHARIA-ICON-TBL
+?CND1:	ADD	TBL,2 >?TMP1
+	GET	TBL,0
+	MUL	2,STACK
+	COPYT	?TMP1,MAP-PICSET-TBL+42,STACK
+	RTRUE	
+
+
+	.FUNCT	MAP-CLICK,TL-X,TL-Y,BR-X,BR-Y,TOP,CNT-X,CNT-Y,DONE,DIR,OHERE,TBL,MAP-NUM
+	SET	'CNT-X,1
+	SET	'CNT-Y,1
+	CALL1	MAP-NEIGHBORS >DIR
+	ZERO?	DIR /?CCL3
+	ICALL2	DO-WALK,DIR
+	GETP	HERE,P?ACTION
+	ICALL	D-APPLY,STR?143,STACK,M-END
+	ICALL1	CLOCKER
+	RTRUE	
+?CCL3:	CALL	COMPASS-CLICK,MAP-COMPASS-PIC-LOC,MAP-N-HL >DIR
+	ZERO?	DIR /?CCL5
+	SET	'OHERE,HERE
+	GETP	HERE,P?MAP-LOC >TBL
+	GET	TBL,0 >MAP-NUM
+	ICALL2	DO-WALK,DIR
+	EQUAL?	HERE,OHERE \?CCL8
+	SOUND	1
+	RFALSE	
+?CCL8:	GETP	HERE,P?MAP-LOC >TBL
+	ZERO?	TBL /?CCL10
+	GET	TBL,0
+	EQUAL?	MAP-NUM,STACK /?CND6
+	SET	'CHANGE-MAP,TRUE-VALUE
+	JUMP	?CND6
+?CCL10:	ICALL1	RETURN-FROM-MAP
+?CND6:	GETP	HERE,P?ACTION
+	ICALL	D-APPLY,STR?143,STACK,M-END
+	ICALL1	CLOCKER
+	RTRUE	
+?CCL5:	SOUND	1
+	RFALSE	
+
+
+	.FUNCT	MAP-NEIGHBORS,DIR,PT,PTS,TMP,?PR-DIR,?PR-PT
+	SET	'?PR-DIR,65
+?PRG1:	DLESS?	'?PR-DIR,LOW-DIRECTION /FALSE
+	GETPT	HERE,?PR-DIR >?PR-PT
+	ZERO?	?PR-PT /?PRG1
+	PTSIZE	?PR-PT >PTS
+	EQUAL?	PTS,NEXIT /?PRG1
+	EQUAL?	PTS,UEXIT,CEXIT \?CCL10
+	GETB	?PR-PT,REXIT >TMP
+	CALL2	CLICKED-ON-NEIGHBOR,TMP
+	ZERO?	STACK /?PRG1
+	RETURN	?PR-DIR
+?CCL10:	EQUAL?	PTS,DEXIT \?CCL14
+	GETB	?PR-PT,DEXITRM >TMP
+	CALL2	CLICKED-ON-NEIGHBOR,TMP
+	ZERO?	STACK /?PRG1
+	RETURN	?PR-DIR
+?CCL14:	EQUAL?	PTS,FEXIT \?PRG1
+	SET	'PRSO,?PR-DIR
+	GET	?PR-PT,FEXITFCN
+	CALL	STACK,M-ENTER >TMP
+	ZERO?	TMP /?PRG1
+	CALL2	CLICKED-ON-NEIGHBOR,TMP
+	ZERO?	STACK /?PRG1
+	RETURN	?PR-DIR
+
+
+	.FUNCT	CLICKED-ON-NEIGHBOR,RM,TL-X,TL-Y,BR-X,BR-Y,TBL,MAP-NUM
+	GETP	HERE,P?MAP-LOC >TBL
+	GET	TBL,0 >MAP-NUM
+	GETP	RM,P?MAP-LOC >TBL
+	ZERO?	TBL /FALSE
+	GET	TBL,0
+	EQUAL?	STACK,MAP-NUM \FALSE
+	GET	TBL,1
+	CALL2	MAP-Y,STACK >TL-Y
+	GET	TBL,2
+	CALL2	MAP-X,STACK >TL-X
+	PICINF	MAP-BOX-SIZE,PICINF-TBL /?BOGUS6
+?BOGUS6:	GET	PICINF-TBL,0
+	ADD	TL-Y,STACK >BR-Y
+	GET	PICINF-TBL,1
+	ADD	TL-X,STACK >BR-X
+	CALL	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	RETURN-FROM-MAP
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \FALSE
+	SET	'CHANGE-MAP,FALSE-VALUE
+	SET	'CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC
+	ICALL1	V-$REFRESH
+	EQUAL?	VERBOSITY,2 \?PRG6
+	ICALL1	V-LOOK
+?PRG6:	RETURN	2
+
+
+	.FUNCT	MAP-X,X-POS
+	GRTR?	X-POS,0 \?CCL3
+	ICALL2	PICINF-PLUS-ONE,X-POS
+	GET	PICINF-TBL,1
+	RSTACK	
+?CCL3:	SUB	0,X-POS
+	MUL	STACK,MAP-ELEMENT-WIDTH
+	ADD	MAP-TOP-LEFT-X,STACK
+	RSTACK	
+
+
+	.FUNCT	MAP-Y,Y-POS
+	GRTR?	Y-POS,0 \?CCL3
+	ICALL2	PICINF-PLUS-ONE,Y-POS
+	GET	PICINF-TBL,0
+	RSTACK	
+?CCL3:	SUB	0,Y-POS
+	MUL	STACK,MAP-ELEMENT-HEIGHT
+	ADD	MAP-TOP-LEFT-Y,STACK
+	RSTACK	
+
+
+	.FUNCT	DISPLAY-ROOM,PICTURE-ID,Y-POS,X-POS,Y-FUDGE,X-FUDGE,?TMP1
+	CALL2	MAP-Y,Y-POS
+	ADD	Y-FUDGE,STACK >?TMP1
+	CALL2	MAP-X,X-POS
+	ADD	X-FUDGE,STACK
+	DISPLAY	PICTURE-ID,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	DRAW-TITLES,MAP-NUM,TMP,TMP1,?TMP1
+	EQUAL?	MAP-NUM,MAIN-MAP-NUM \?CCL3
+	ICALL	DISPLAY-ROOM,MAIN-TITLE,MAIN-TITLE-LOC,MAIN-TITLE-LOC
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-1,MAP-GEN-X-1
+	FSET?	CHAPEL,TOUCHBIT \?CND4
+	ICALL	DISPLAY-ROOM,DOWN-EAST-SYMBOL,MAP-GEN-Y-6,MAP-GEN-X-8,0,MAP-BOX-WIDTH
+?CND4:	FSET?	GREAT-HALL,TOUCHBIT \FALSE
+	SUB	MAP-BOX-HEIGHT,2 >?TMP1
+	ADD	MAP-SPACE-WIDTH,2
+	SUB	0,STACK
+	ICALL	DISPLAY-ROOM,DOWN-NE-SYMBOL,MAP-GEN-Y-4,MAP-GEN-X-5,?TMP1,STACK
+	SUB	MAP-BOX-HEIGHT,2 >?TMP1
+	SUB	MAP-BOX-WIDTH,2
+	CALL	DISPLAY-ROOM,DOWN-SE-SYMBOL,MAP-GEN-Y-4,MAP-GEN-X-5,?TMP1,STACK
+	RSTACK	
+?CCL3:	EQUAL?	MAP-NUM,SECRET-WING-MAP-NUM \?CCL10
+	ICALL	DISPLAY-ROOM,SECRET-WING-TITLE,SECRET-WING-TITLE-LOC,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-1,MAP-GEN-X-8
+	FSET?	CRYPT,TOUCHBIT \FALSE
+	CALL	DISPLAY-ROOM,DOWN-EAST-SYMBOL,MAP-GEN-Y-3,MAP-GEN-X-8,0,MAP-BOX-WIDTH
+	RSTACK	
+?CCL10:	EQUAL?	MAP-NUM,VILLAGE-MAP-NUM \?CCL15
+	ICALL	DISPLAY-ROOM,VILLAGE-TITLE,MAP-GEN-Y-5,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,VERTICAL-LEGEND,MAP-GEN-Y-1,MAP-GEN-X-10
+	FSET?	SHADY-PARK,TOUCHBIT \?CND16
+	FSET?	VILLAGE-CENTER,TOUCHBIT \?CND16
+	ICALL	DISPLAY-ROOM,E-W-CON,MAP-GEN-Y-3,MAP-GEN-X-6
+	CALL2	MAP-X,5-FUDGE >TMP
+	ICALL	DISPLAY-ROOM,E-W-CON,MAP-GEN-Y-3,MAP-GEN-X-6,0,TMP
+	MUL	TMP,2
+	ICALL	DISPLAY-ROOM,E-W-CON,MAP-GEN-Y-3,MAP-GEN-X-6,0,STACK
+	MUL	TMP,3
+	ICALL	DISPLAY-ROOM,E-W-CON,MAP-GEN-Y-3,MAP-GEN-X-6,0,STACK
+?CND16:	FSET?	FR-HQ,TOUCHBIT \?CND20
+	SUB	MAP-BOX-HEIGHT,2 >?TMP1
+	SUB	MAP-BOX-WIDTH,2
+	ICALL	DISPLAY-ROOM,LOBBY-OFFICE-CON,MAP-GEN-Y-3,MAP-GEN-X-8,?TMP1,STACK
+?CND20:	ZERO?	BEEN-IN-FR-UPPER-FLOORS /FALSE
+	SUB	MAP-BOX-HEIGHT,2 >?TMP1
+	SUB	MAP-BOX-WIDTH,2
+	CALL	DISPLAY-ROOM,OFFICE-PENTHOUSE-CON,MAP-GEN-Y-5,MAP-GEN-X-8,?TMP1,STACK
+	RSTACK	
+?CCL15:	EQUAL?	MAP-NUM,LOWER-LEVEL-MAP-NUM \?CCL26
+	ICALL	DISPLAY-ROOM,LOWER-LEVEL-TITLE,MAP-GEN-Y-5,MAP-GEN-X-9
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-2,MAP-GEN-X-8
+	FSET?	LOWEST-HALL,TOUCHBIT \?CND27
+	SUB	MAP-BOX-HEIGHT,2 >?TMP1
+	SUB	MAP-BOX-WIDTH,2
+	ICALL	DISPLAY-ROOM,DOWN-SW-SYMBOL,MAP-GEN-Y-4,MAP-GEN-X-4,?TMP1,STACK
+	ICALL	DISPLAY-ROOM,LOW-HALL-CON,MAP-GEN-Y-5,MAP-GEN-X-4,0,MAP-BOX-WIDTH
+?CND27:	FSET?	LOWER-HALL,TOUCHBIT \FALSE
+	CALL	DISPLAY-ROOM,DOWN-WEST-SYMBOL,MAP-GEN-Y-5,MAP-GEN-X-6,0,MAP-BOX-WIDTH
+	RSTACK	
+?CCL26:	EQUAL?	MAP-NUM,LAKE-MAP-NUM \?CCL33
+	ICALL	DISPLAY-ROOM,LAKE-TITLE,LAKE-TITLE-LOC,LAKE-TITLE-LOC
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-6,MAP-GEN-X-8
+	FSET?	HOLD,TOUCHBIT \?CND34
+	ICALL	DISPLAY-ROOM,DOWN-SOUTH-SYMBOL,MAP-GEN-Y-4,MAP-GEN-X-1,MAP-BOX-HEIGHT
+	ICALL	DISPLAY-ROOM,DOWN-SOUTH-SYMBOL,MAP-GEN-Y-5,MAP-GEN-X-1,MAP-BOX-HEIGHT
+?CND34:	FSET?	UNDERWATER,TOUCHBIT \?CND36
+	ICALL	DISPLAY-ROOM,DOWN-SOUTH-SYMBOL,MAP-GEN-Y-6,MAP-GEN-X-1,MAP-BOX-HEIGHT
+?CND36:	FSET?	GROTTO,TOUCHBIT \?CND38
+	ICALL	DISPLAY-ROOM,N-S-CON,MAP-GEN-Y-4,MAP-GEN-X-7
+	CALL2	MAP-Y,5-FUDGE >TMP
+	ICALL	DISPLAY-ROOM,N-S-CON,MAP-GEN-Y-4,MAP-GEN-X-7,TMP
+	MUL	TMP,2
+	ICALL	DISPLAY-ROOM,N-S-CON,MAP-GEN-Y-4,MAP-GEN-X-7,STACK
+	MUL	TMP,3
+	ICALL	DISPLAY-ROOM,N-S-CON,MAP-GEN-Y-4,MAP-GEN-X-7,STACK
+?CND38:	FSET?	CONDUCTOR-PIT,TOUCHBIT \FALSE
+	CALL	DISPLAY-ROOM,DOWN-WEST-SYMBOL,MAP-GEN-Y-3,MAP-GEN-X-3,0,MAP-BOX-WIDTH
+	RSTACK	
+?CCL33:	EQUAL?	MAP-NUM,DESERT-MAP-NUM \?CCL44
+	ICALL	DISPLAY-ROOM,DESERT-TITLE,MAP-GEN-Y-2,MAP-GEN-X-2
+	CALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-3,MAP-GEN-X-8
+	RSTACK	
+?CCL44:	EQUAL?	MAP-NUM,FOOZLE-MAP-NUM \?CCL46
+	ICALL	DISPLAY-ROOM,FOOZLE-TITLE,MAP-GEN-Y-1,MAP-GEN-X-2
+	ICALL	DISPLAY-ROOM,VERTICAL-LEGEND,MAP-GEN-Y-1,MAP-GEN-X-10
+	ICALL	DISPLAY-ROOM,FOOZLE-MAP-ILL,MAP-GEN-Y-6,MAP-GEN-X-8
+	FSET?	WISHYFOO-TERRITORY,TOUCHBIT \?CND47
+	ICALL	DISPLAY-ROOM,WISHYFOO-FORK-CON,MAP-GEN-Y-4,MAP-GEN-X-4,MAP-BOX-HEIGHT
+?CND47:	FSET?	CAVE-IN,TOUCHBIT \?CND49
+	ICALL	DISPLAY-ROOM,E-W-CON,MAP-GEN-Y-3,MAP-GEN-X-8,0,MAP-BOX-WIDTH
+?CND49:	FSET?	FISSURE-EDGE,TOUCHBIT \FALSE
+	CALL	DISPLAY-ROOM,N-S-CON,MAP-GEN-Y-4,MAP-GEN-X-7,MAP-BOX-HEIGHT
+	RSTACK	
+?CCL46:	EQUAL?	MAP-NUM,FENSHIRE-MAP-NUM \?CCL55
+	ICALL	DISPLAY-ROOM,FENSHIRE-TITLE,MAP-GEN-Y-3,MAP-GEN-X-5
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-6,MAP-GEN-X-1
+	CALL	DISPLAY-ROOM,FENSHIRE-MAP-ILL,MAP-GEN-Y-5,MAP-GEN-X-6
+	RSTACK	
+?CCL55:	EQUAL?	MAP-NUM,FJORD-MAP-NUM \?CCL57
+	ICALL	DISPLAY-ROOM,FJORD-TITLE,MAP-GEN-Y-2,MAP-GEN-X-8
+	ICALL	DISPLAY-ROOM,VERTICAL-LEGEND,MAP-GEN-Y-1,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,FJORD-MAP-ILL,MAP-GEN-Y-6,MAP-GEN-X-5
+	ICALL	DISPLAY-ROOM,RV-TELEPORT-ARROW,MAP-GEN-Y-4,MAP-GEN-X-4,MAP-BOX-HEIGHT
+	FSET?	CRAG,TOUCHBIT \FALSE
+	FSET?	NATURAL-ARCH,TOUCHBIT \FALSE
+	CALL2	MAP-Y,ARCH-N-CON-SIZE
+	SUB	0,STACK
+	ADD	STACK,1
+	ICALL	DISPLAY-ROOM,ARCH-N-CON,MAP-GEN-Y-4,MAP-GEN-X-4,STACK,MAP-BOX-WIDTH
+	CALL	DISPLAY-ROOM,ARCH-S-CON,MAP-GEN-Y-4,MAP-GEN-X-4,MAP-BOX-HEIGHT,MAP-BOX-WIDTH
+	RSTACK	
+?CCL57:	EQUAL?	MAP-NUM,GRAY-MOUNTAINS-MAP-NUM \?CCL64
+	ICALL	DISPLAY-ROOM,GRAY-MTS-TITLE,MAP-GEN-Y-5,MAP-GEN-X-7
+	ICALL	DISPLAY-ROOM,VERTICAL-LEGEND,MAP-GEN-Y-1,MAP-GEN-X-2
+	ICALL	DISPLAY-ROOM,GRAY-MTS-MAP-ILL,MAP-GEN-Y-5,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,RV-TELEPORT-ARROW,MAP-GEN-Y-1,MAP-GEN-X-10,MAP-BOX-HEIGHT
+	FSET?	GLACIER,TOUCHBIT \FALSE
+	SUB	MAP-BOX-HEIGHT,2 >?TMP1
+	SUB	MAP-BOX-WIDTH,2
+	CALL	DISPLAY-ROOM,GLACIER-MIRROR-CON,MAP-GEN-Y-1,MAP-GEN-X-8,?TMP1,STACK
+	RSTACK	
+?CCL64:	EQUAL?	MAP-NUM,DELTA-MAP-NUM \?CCL69
+	ICALL	DISPLAY-ROOM,DELTA-TITLE,MAP-GEN-Y-6,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-3,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,DELTA-MAP-ILL,MAP-GEN-Y-1,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,RV-TELEPORT-ARROW,MAP-GEN-Y-5,MAP-GEN-X-10,MAP-BOX-HEIGHT
+	FIRST?	DELTA-1 \?CND70
+	FIRST?	DELTA-2 \?CND70
+	ICALL	DISPLAY-ROOM,ARCH-S-CON,MAP-GEN-Y-5,MAP-GEN-X-8,MAP-BOX-HEIGHT,MAP-BOX-WIDTH
+	CALL2	MAP-Y,ARCH-N-CON-SIZE
+	SUB	0,STACK
+	ADD	STACK,1
+	ICALL	DISPLAY-ROOM,ARCH-N-CON,MAP-GEN-Y-5,MAP-GEN-X-8,STACK,MAP-BOX-WIDTH
+?CND70:	FIRST?	DELTA-1 \?CND74
+	FIRST?	DELTA-3 \?CND74
+	DIV	MAP-BOX-HEIGHT,2
+	SUB	STACK,1
+	ICALL	DISPLAY-ROOM,DELTA-1-3-CON,MAP-GEN-Y-3,MAP-GEN-X-8,STACK,MAP-BOX-WIDTH
+?CND74:	FIRST?	DELTA-1 \?CND78
+	FIRST?	DELTA-4 \?CND78
+	ICALL	DISPLAY-ROOM,DELTA-1-4-CON,MAP-GEN-Y-2,MAP-GEN-X-9,0,MAP-BOX-WIDTH
+?CND78:	FIRST?	DELTA-2 \?CND82
+	FIRST?	DELTA-7 \?CND82
+	ICALL	DISPLAY-ROOM,RUBBLE-SE-CON,MAP-GEN-Y-5,MAP-GEN-X-7,MAP-BOX-HEIGHT,MAP-BOX-WIDTH
+?CND82:	FIRST?	DELTA-2 \?CND86
+	FIRST?	DELTA-3 \?CND86
+	CALL2	MAP-X,2-3-CON-SIZE
+	SUB	0,STACK
+	ADD	STACK,1
+	ICALL	DISPLAY-ROOM,DELTA-2-3-CON,MAP-GEN-Y-3,MAP-GEN-X-8,MAP-BOX-HEIGHT,STACK
+?CND86:	FIRST?	DELTA-3 \?CND90
+	FIRST?	DELTA-4 \?CND90
+	CALL2	MAP-Y,RUBBLE-CON-SIZE
+	SUB	0,STACK
+	SUB	STACK,1 >?TMP1
+	CALL2	MAP-X,RUBBLE-CON-SIZE
+	SUB	0,STACK
+	SUB	STACK,1
+	ICALL	DISPLAY-ROOM,RUBBLE-NW-CON,MAP-GEN-Y-3,MAP-GEN-X-9,?TMP1,STACK
+?CND90:	FIRST?	DELTA-3 \?CND94
+	FIRST?	DELTA-5 \?CND94
+	CALL2	MAP-X,3-5-CON-SIZE
+	SUB	0,STACK
+	ADD	STACK,1
+	ICALL	DISPLAY-ROOM,DELTA-3-5-CON,MAP-GEN-Y-2,MAP-GEN-X-8,MAP-BOX-HEIGHT,STACK
+?CND94:	FIRST?	DELTA-4 \?CND98
+	FIRST?	DELTA-5 \?CND98
+	CALL2	MAP-Y,ARCH-N-CON-SIZE
+	SUB	0,STACK
+	ADD	STACK,1
+	ICALL	DISPLAY-ROOM,ARCH-N-CON,MAP-GEN-Y-2,MAP-GEN-X-7,STACK,MAP-BOX-WIDTH
+?CND98:	FIRST?	DELTA-5 \?CND102
+	FIRST?	DELTA-6 \?CND102
+	FSET?	DELTA-6,TOUCHBIT \?CND102
+	CALL2	MAP-X,5-6-CON-SIZE
+	SUB	0,STACK
+	ADD	STACK,1
+	ICALL	DISPLAY-ROOM,DELTA-5-6-CON,MAP-GEN-Y-2,MAP-GEN-X-7,MAP-BOX-HEIGHT,STACK
+?CND102:	FIRST?	DELTA-6 \FALSE
+	FSET?	DELTA-6,TOUCHBIT \FALSE
+	FIRST?	DELTA-7 \FALSE
+	CALL2	MAP-X,6-7-CON-SIZE
+	SUB	0,STACK
+	CALL	DISPLAY-ROOM,DELTA-6-7-CON,MAP-GEN-Y-5,MAP-GEN-X-7,0,STACK
+	RSTACK	
+?CCL69:	EQUAL?	MAP-NUM,FUBLIO-MAP-NUM \?CCL114
+	ICALL	DISPLAY-ROOM,FUBLIO-TITLE,MAP-GEN-Y-2,MAP-GEN-X-9
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-4,MAP-GEN-X-1
+	CALL2	MAP-Y,TELEPORT-ARROW-SIZE
+	SUB	0,STACK
+	CALL	DISPLAY-ROOM,TELEPORT-ARROW,MAP-GEN-Y-4,MAP-GEN-X-8,STACK
+	RSTACK	
+?CCL114:	EQUAL?	MAP-NUM,ANTHARIA-MAP-NUM \FALSE
+	ICALL	DISPLAY-ROOM,ANTHARIA-TITLE,MAP-GEN-Y-5,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,HORIZONTAL-LEGEND,MAP-GEN-Y-6,MAP-GEN-X-1
+	ICALL	DISPLAY-ROOM,ANTHARIA-MAP-ILL,MAP-GEN-Y-1,MAP-GEN-X-1
+	CALL2	MAP-Y,TELEPORT-ARROW-SIZE
+	SUB	0,STACK
+	ICALL	DISPLAY-ROOM,TELEPORT-ARROW,MAP-GEN-Y-4,MAP-GEN-X-8,STACK
+	FSET?	RUBBLE-ROOM,TOUCHBIT \?CND117
+	FSET?	HEART-OF-MINE,TOUCHBIT \?CND117
+	ICALL	DISPLAY-ROOM,RUBBLE-SE-CON,MAP-GEN-Y-3,MAP-GEN-X-9,MAP-BOX-HEIGHT,MAP-BOX-WIDTH
+	CALL2	MAP-Y,RUBBLE-CON-SIZE
+	SUB	0,STACK
+	SUB	STACK,1 >?TMP1
+	CALL2	MAP-X,RUBBLE-CON-SIZE
+	SUB	0,STACK
+	SUB	STACK,1
+	ICALL	DISPLAY-ROOM,RUBBLE-NW-CON,MAP-GEN-Y-4,MAP-GEN-X-10,?TMP1,STACK
+?CND117:	FSET?	NORTH-OF-ANTHAR,TOUCHBIT \FALSE
+	CALL	DISPLAY-ROOM,N-S-CON,MAP-GEN-Y-6,MAP-GEN-X-6,MAP-BOX-HEIGHT
+	RSTACK	
+
+
+	.FUNCT	DRAW-CONS,RM,TBL,Y,X,PTS,NEXT-RM,NEXT-TBL,NEXT-Y,NEXT-X,?TMP1
+	GET	TBL,1
+	CALL2	MAP-Y,STACK >Y
+	GET	TBL,2
+	CALL2	MAP-X,STACK >X
+	CALL	SHOW-DIRECTION?,RM,P?NORTH
+	ZERO?	STACK /?CND1
+	SUB	Y,MAP-SPACE-HEIGHT
+	DISPLAY	N-S-CON,STACK,X
+?CND1:	CALL	SHOW-DIRECTION?,RM,P?NE
+	ZERO?	STACK /?CND3
+	SUB	Y,MAP-SPACE-HEIGHT >?TMP1
+	ADD	X,MAP-BOX-WIDTH
+	DISPLAY	NE-SW-CON,?TMP1,STACK
+?CND3:	CALL	SHOW-DIRECTION?,RM,P?EAST
+	ZERO?	STACK /?CND5
+	ADD	X,MAP-BOX-WIDTH
+	DISPLAY	E-W-CON,Y,STACK
+?CND5:	CALL	SHOW-DIRECTION?,RM,P?SE
+	ZERO?	STACK /?CND7
+	ADD	Y,MAP-BOX-HEIGHT >?TMP1
+	ADD	X,MAP-BOX-WIDTH
+	DISPLAY	NW-SE-CON,?TMP1,STACK
+?CND7:	CALL	SHOW-DIRECTION?,RM,P?SOUTH
+	ZERO?	STACK /?CND9
+	ADD	Y,MAP-BOX-HEIGHT
+	DISPLAY	N-S-CON,STACK,X
+?CND9:	CALL	SHOW-DIRECTION?,RM,P?SW
+	ZERO?	STACK /?CND11
+	ADD	Y,MAP-BOX-HEIGHT >?TMP1
+	SUB	X,MAP-SPACE-WIDTH
+	DISPLAY	NE-SW-CON,?TMP1,STACK
+?CND11:	CALL	SHOW-DIRECTION?,RM,P?WEST
+	ZERO?	STACK /?CND13
+	SUB	X,MAP-SPACE-WIDTH
+	DISPLAY	E-W-CON,Y,STACK
+?CND13:	CALL	SHOW-DIRECTION?,RM,P?NW
+	ZERO?	STACK /?CND15
+	SUB	Y,MAP-SPACE-HEIGHT >?TMP1
+	SUB	X,MAP-SPACE-WIDTH
+	DISPLAY	NW-SE-CON,?TMP1,STACK
+?CND15:	GETPT	RM,P?DOWN >PTS
+	ZERO?	PTS /?CND17
+	PTSIZE	PTS
+	EQUAL?	STACK,UEXIT,CEXIT \?CCL21
+	GETB	PTS,REXIT >NEXT-RM
+	JUMP	?CND19
+?CCL21:	PTSIZE	PTS
+	EQUAL?	STACK,DEXIT \?CND19
+	GETB	PTS,DEXITRM >NEXT-RM
+?CND19:	EQUAL?	RM,LOWER-HALL \?CCL25
+	FSET?	LOWEST-HALL,TOUCHBIT /?CND17
+?CCL25:	EQUAL?	RM,WISHYFOO-TERRITORY /?CND17
+	ZERO?	NEXT-RM /?CND17
+	GETP	NEXT-RM,P?MAP-LOC >NEXT-TBL
+	ZERO?	NEXT-TBL /?CND17
+	GET	NEXT-TBL,0 >?TMP1
+	GET	TBL,0
+	EQUAL?	?TMP1,STACK \?CND17
+	GET	NEXT-TBL,1
+	CALL2	MAP-Y,STACK >NEXT-Y
+	GET	NEXT-TBL,2
+	CALL2	MAP-X,STACK >NEXT-X
+	EQUAL?	X,NEXT-X \?CCL36
+	GRTR?	Y,NEXT-Y \?CCL39
+	SUB	Y,MAP-SPACE-HEIGHT
+	DISPLAY	DOWN-NORTH-SYMBOL,STACK,X
+	JUMP	?CND17
+?CCL39:	ADD	Y,MAP-BOX-HEIGHT
+	DISPLAY	DOWN-SOUTH-SYMBOL,STACK,X
+	JUMP	?CND17
+?CCL36:	EQUAL?	Y,NEXT-Y \?CND17
+	GRTR?	X,NEXT-X \?CCL43
+	SUB	X,MAP-SPACE-WIDTH
+	DISPLAY	DOWN-WEST-SYMBOL,Y,STACK
+	JUMP	?CND17
+?CCL43:	ADD	X,MAP-BOX-WIDTH
+	DISPLAY	DOWN-EAST-SYMBOL,Y,STACK
+?CND17:	SET	'NEXT-RM,FALSE-VALUE
+	GETPT	RM,P?UP >PTS
+	ZERO?	PTS /FALSE
+	PTSIZE	PTS
+	EQUAL?	STACK,UEXIT,CEXIT \?CCL49
+	GETB	PTS,REXIT >NEXT-RM
+	JUMP	?CND47
+?CCL49:	PTSIZE	PTS
+	EQUAL?	STACK,DEXIT \?CND47
+	GETB	PTS,DEXITRM >NEXT-RM
+?CND47:	ZERO?	NEXT-RM /FALSE
+	GETP	NEXT-RM,P?MAP-LOC >NEXT-TBL
+	ZERO?	NEXT-TBL /FALSE
+	GET	NEXT-TBL,0 >?TMP1
+	GET	TBL,0
+	EQUAL?	?TMP1,STACK \FALSE
+	GET	NEXT-TBL,1
+	CALL2	MAP-Y,STACK >NEXT-Y
+	GET	NEXT-TBL,2
+	CALL2	MAP-X,STACK >NEXT-X
+	EQUAL?	X,NEXT-X \?CCL59
+	GRTR?	Y,NEXT-Y \?CCL62
+	SUB	Y,MAP-SPACE-HEIGHT
+	DISPLAY	DOWN-SOUTH-SYMBOL,STACK,X
+	RTRUE	
+?CCL62:	ADD	Y,MAP-BOX-HEIGHT
+	DISPLAY	DOWN-NORTH-SYMBOL,STACK,X
+	RTRUE	
+?CCL59:	EQUAL?	Y,NEXT-Y \FALSE
+	GRTR?	X,NEXT-X \?CCL67
+	SUB	X,MAP-SPACE-WIDTH
+	DISPLAY	DOWN-EAST-SYMBOL,Y,STACK
+	RTRUE	
+?CCL67:	ADD	X,MAP-BOX-WIDTH
+	DISPLAY	DOWN-WEST-SYMBOL,Y,STACK
+	RTRUE	
+
+
+	.FUNCT	V-MAYBE
+	CALL2	YOU-SOUND,STR?144
+	RSTACK	
+
+
+	.FUNCT	V-MEET
+	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-MEASURE
+	FSET?	PRSO,PARTBIT /?CTR2
+	EQUAL?	PRSO,ME \?CCL3
+?CTR2:	PRINTR	"Usual size."
+?CCL3:	PRINTI	"The same size as any other "
+	ICALL2	DPRINT,PRSO
+	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	V-MIRROR-LOOK
+	IN?	PRSO,PRSI \?CCL3
+	ICALL	PERFORM,V?EXAMINE,PRSO
+	RTRUE	
+?CCL3:	PRINTI	"But"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" isn't in"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+
+
+	.FUNCT	V-MOVE
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL3
+	CALL1	WASTES
+	RSTACK	
+?CCL3:	FSET?	PRSO,INTEGRALBIT \?CCL5
+	CALL1	PART-OF
+	RSTACK	
+?CCL5:	CALL2	LOC-CLOSED,PRSO
+	ZERO?	STACK \TRUE
+	FSET?	PRSO,TAKEBIT \?CCL9
+	PRINTI	"Moving"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" reveals nothing."
+?CCL9:	EQUAL?	P-PRSA-WORD,W?PULL \?CCL11
+	CALL2	HACK-HACK,STR?145
+	RSTACK	
+?CCL11:	EQUAL?	P-PRSA-WORD,W?MOVE \?CCL13
+	EQUAL?	PRSO,INTDIR \?CCL13
+	CALL1	DIRECTION-CONVERSION
+	CALL2	DO-WALK,STACK
+	RSTACK	
+?CCL13:	CALL2	CANT-VERB-A-PRSO,STR?146
+	RSTACK	
+
+
+	.FUNCT	V-MOVE-DIR
+	PRINTI	"Pick up"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" and go that way!"
+
+
+	.FUNCT	V-MOVE-TO
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK \?CCL3
+	PRINT	YNH
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL3:	ICALL	PERFORM,V?PUT,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-MUNG
+	CALL2	HACK-HACK,STR?147
+	RSTACK	
+
+
+	.FUNCT	V-NO
+	EQUAL?	AWAITING-REPLY,1 \?CCL3
+	CALL1	V-YES
+	RSTACK	
+?CCL3:	EQUAL?	AWAITING-REPLY,2 \?CCL5
+	PRINTR	"""You're right, you don't. I do."""
+?CCL5:	CALL2	YOU-SOUND,STR?148
+	RSTACK	
+
+
+	.FUNCT	NO-WORD,WRD
+	EQUAL?	WRD,W?NO,W?NOPE /TRUE
+	EQUAL?	WRD,W?NAH,W?UH-UH /TRUE
+	RFALSE	
+
+
+	.FUNCT	V-OFF
+	FSET?	PRSO,LIGHTBIT \?CCL3
+	FSET?	PRSO,ONBIT \?CCL6
+	FCLEAR	PRSO,ONBIT
+	FCLEAR	PRSO,FLAMEBIT
+	PRINTI	"Okay,"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is now o"
+	EQUAL?	PRSO,CANDLE \?CCL9
+	PRINTI	"ut"
+	JUMP	?CND7
+?CCL9:	PRINTI	"ff"
+?CND7:	PRINT	PERIOD-CR
+	CALL1	NOW-DARK?
+	RSTACK	
+?CCL6:	PRINTR	"It isn't on!"
+?CCL3:	CALL2	CANT-TURN,STR?149
+	RSTACK	
+
+
+	.FUNCT	V-ON
+	FSET?	PRSO,LIGHTBIT \?CCL3
+	FSET?	PRSO,ONBIT \?CCL6
+	PRINT	ALREADY-IS
+	RTRUE	
+?CCL6:	FSET	PRSO,ONBIT
+	PRINTI	"Okay,"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is now on."
+	CRLF	
+	CALL1	NOW-LIT?
+	RSTACK	
+?CCL3:	CALL2	CANT-TURN,STR?150
+	RSTACK	
+
+
+	.FUNCT	V-OPEN
+	ZERO?	PRSI /?CCL3
+	FSET?	PRSI,KEYBIT \?CCL3
+	ICALL	PERFORM,V?UNLOCK,PRSO,PRSI
+	RTRUE	
+?CCL3:	FSET?	PRSO,SURFACEBIT /?CTR6
+	FSET?	PRSO,ACTORBIT /?CTR6
+	FSET?	PRSO,VEHBIT \?CCL7
+	EQUAL?	PRSO,IRON-MAIDEN,LADDER,DB /?CCL7
+	EQUAL?	PRSO,WATER-CHAMBER,SNAKE-PIT /?CCL7
+?CTR6:	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL7:	FSET?	PRSO,OPENBIT \?CCL16
+	PRINT	ALREADY-IS
+	RTRUE	
+?CCL16:	FSET?	PRSO,LOCKEDBIT \?CCL18
+	PRINTI	"The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" is locked."
+?CCL18:	FSET?	PRSO,DOORBIT \?CCL20
+	FSET	PRSO,OPENBIT
+	PRINTI	"The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" swings open."
+?CCL20:	FSET?	PRSO,CONTBIT \?CCL22
+	FSET	PRSO,OPENBIT
+	FSET	PRSO,TOUCHBIT
+	FIRST?	PRSO \?CTR24
+	FSET?	PRSO,TRANSBIT /?CTR24
+	EQUAL?	PRSO,DB \?CCL25
+?CTR24:	PRINTR	"Opened."
+?CCL25:	PRINTI	"Opening"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" reveals"
+	CALL1	D-NOTHING
+	ZERO?	STACK \?CND29
+	PRINT	PERIOD-CR
+?CND29:	ICALL1	NOW-LIT?
+	RTRUE	
+?CCL22:	CALL1	YOU-MUST-TELL-ME
+	RSTACK	
+
+
+	.FUNCT	V-PAY,MONEY
+	CALL2	ULTIMATELY-IN?,ZORKMID-BILL
+	ZERO?	STACK /?CCL3
+	SET	'MONEY,ZORKMID-BILL
+	JUMP	?CND1
+?CCL3:	CALL2	ULTIMATELY-IN?,ZORKMID-COIN
+	ZERO?	STACK /?CND1
+	SET	'MONEY,ZORKMID-COIN
+?CND1:	ZERO?	MONEY /?CCL7
+	ICALL	PERFORM,V?GIVE,MONEY,PRSO
+	RTRUE	
+?CCL7:	PRINTR	"You have no money!"
+
+
+	.FUNCT	V-PICK
+	CALL2	CANT-VERB-A-PRSO,STR?151
+	RSTACK	
+
+
+	.FUNCT	V-PLAY
+	CALL2	CANT-VERB-A-PRSO,STR?152
+	RSTACK	
+
+
+	.FUNCT	V-POINT
+	PRINTR	"That would be pointless."
+
+
+	.FUNCT	V-POUR
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-PRAY
+	ZERO?	PRSO \?CCL3
+	EQUAL?	HERE,ORACLE \?CCL3
+	ICALL	PERFORM,V?PRAY,ORACLE-OBJECT
+	RTRUE	
+?CCL3:	PRINTR	"If you pray long enough, your prayers may be answered."
+
+
+	.FUNCT	V-PUSH
+	CALL2	HACK-HACK,STR?153
+	RSTACK	
+
+
+	.FUNCT	V-PUSH-DIR
+	CALL1	V-PUSH
+	RSTACK	
+
+
+	.FUNCT	PRE-PUT
+	EQUAL?	PRSI,CEILING,GROUND \?CCL3
+	EQUAL?	PRSO,NW-SE-PASSAGE,N-S-PASSAGE \?CCL6
+	EQUAL?	PRSA,V?PUT \?CCL6
+	PRINTR	"You can only install the passage in a wall!"
+?CCL6:	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,HANDS \?CCL10
+	EQUAL?	PRSA,V?PUT,V?PUT-ON \?CCL13
+	FSET?	PRSI,PARTBIT /FALSE
+?CCL13:	EQUAL?	PRSA,V?PUT \?CCL17
+	ICALL	PERFORM,V?REACH-IN,PRSI
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?PUT-ON \?CCL19
+	EQUAL?	PRSI,STRAW \?CCL19
+	SET	'FINGER-ON-STRAW,TRUE-VALUE
+	IN?	STRAW,BOWL \?CND22
+	SET	'ELIXIR-TRAPPED,TRUE-VALUE
+?CND22:	ICALL	QUEUE,I-FINGER-OFF-STRAW,2
+	PRINTR	"You put your finger over the end of the straw."
+?CCL19:	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL10:	EQUAL?	PRSO,GLOVE \?CCL25
+	EQUAL?	PRSI,HANDS \?CCL25
+	ICALL	PERFORM,V?WEAR,GLOVE
+	RTRUE	
+?CCL25:	IN?	PRSO,WALDO \?CCL29
+	PRINTR	"The waldo seems incapable of more than just picking something up and dropping it."
+?CCL29:	FSET?	PRSI,PARTBIT /?CCL31
+	CALL1	PRE-LOOK
+	ZERO?	STACK \TRUE
+?CCL31:	CALL	ULTIMATELY-IN?,PRSI,PRSO
+	ZERO?	STACK /?CCL35
+	PRINT	YOU-CANT
+	PRINTI	"put"
+	ICALL1	TPRINT-PRSO
+	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?ON \?CCL38
+	PRINTI	" on"
+	JUMP	?CND36
+?CCL38:	PRINTI	" in"
+?CND36:	ICALL1	TPRINT-PRSI
+	PRINTI	" when"
+	ICALL1	TPRINT-PRSI
+	PRINTI	" is already "
+	FSET?	PRSO,SURFACEBIT \?CCL41
+	PRINTI	"on"
+	JUMP	?CND39
+?CCL41:	PRINTI	"in"
+?CND39:	ICALL1	TPRINT-PRSO
+	PRINTR	"!"
+?CCL35:	CALL2	UNTOUCHABLE?,PRSI
+	ZERO?	STACK /?CCL43
+	CALL2	CANT-REACH,PRSI
+	RSTACK	
+?CCL43:	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-PUT,?TMP1,?TMP2,?TMP3
+	FSET?	PRSI,WATERBIT \?CCL3
+	EQUAL?	PRSO,LARGE-VIAL,SMALL-VIAL \?CCL6
+	ICALL	PERFORM,V?FILL,PRSO,WATER
+	RTRUE	
+?CCL6:	CALL	PERFORM-PRSA,PRSO,WATER
+	RSTACK	
+?CCL3:	FSET?	PRSI,OPENBIT /?CCL8
+	FSET?	PRSI,CONTBIT /?CCL8
+	FSET?	PRSI,SURFACEBIT /?CCL8
+	FSET?	PRSI,VEHBIT /?CCL8
+	PRINT	YOU-CANT
+	PRINTI	"put"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" in"
+	ICALL2	APRINT,PRSI
+	PRINTR	"!"
+?CCL8:	EQUAL?	PRSI,PRSO /?CTR13
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL14
+	FSET?	PRSO,TAKEBIT /?CCL14
+?CTR13:	PRINTR	"How can you do that?"
+?CCL14:	FSET?	PRSI,DOORBIT \?CCL20
+	PRINT	CANT-FROM-HERE
+	RTRUE	
+?CCL20:	FSET?	PRSI,OPENBIT /?CCL22
+	FSET?	PRSI,SURFACEBIT /?CCL22
+	ICALL2	THIS-IS-IT,PRSI
+	CALL	DO-FIRST,STR?140,PRSI
+	RSTACK	
+?CCL22:	IN?	PRSO,PRSI \?CCL26
+	PRINTI	"But"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" is already in"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+?CCL26:	FSET?	PRSI,ACTORBIT \?CCL28
+	PRINT	HUH
+	RTRUE	
+?CCL28:	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 \?CCL30
+	CALL	ULTIMATELY-IN?,PRSO,PRSI
+	ZERO?	STACK \?CCL30
+	PRINTI	"There's no room "
+	FSET?	PRSI,SURFACEBIT \?CCL35
+	PRINTI	"on"
+	JUMP	?CND33
+?CCL35:	PRINTI	"in"
+?CND33:	ICALL1	TPRINT-PRSI
+	PRINTI	" for"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL30:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK \?CCL37
+	CALL1	ITAKE
+	EQUAL?	STACK,M-FATAL,FALSE-VALUE /TRUE
+?CCL37:	EQUAL?	PRSO,WORM,ROOSTER,FOX \?CCL41
+	FSET?	PRSO,ANIMATEDBIT \?CCL41
+	PRINTI	"You try, but"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" seems agitated and "
+	EQUAL?	PRSO,FOX \?CCL46
+	PRINTI	"slyly jumps"
+	JUMP	?CND44
+?CCL46:	EQUAL?	PRSO,ROOSTER \?CCL48
+	PRINTI	"hops"
+	JUMP	?CND44
+?CCL48:	PRINTI	"wriggles"
+?CND44:	PRINTR	" out."
+?CCL41:	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	PRINTI	"Done."
+	CRLF	
+	CALL2	SCORE-OBJ,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-PUT-BEHIND
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-PUT-ON
+	EQUAL?	PRSI,ME \?CCL3
+	ICALL	PERFORM,V?WEAR,PRSO
+	RTRUE	
+?CCL3:	FSET?	PRSI,SURFACEBIT \?CCL5
+	CALL1	V-PUT
+	RSTACK	
+?CCL5:	FSET?	PRSI,ACTORBIT \?CCL7
+	FSET?	PRSO,WEARBIT \?CCL7
+	PRINTI	"But it's not"
+	ICALL1	TPRINT-PRSI
+	PRINTR	"'s size."
+?CCL7:	PRINTI	"There's no good surface on"
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+
+
+	.FUNCT	V-PUT-THROUGH
+	FSET?	PRSI,DOORBIT \?CCL3
+	FSET?	PRSI,OPENBIT \?CCL6
+	CALL1	V-THROW
+	RSTACK	
+?CCL6:	CALL	DO-FIRST,STR?140,PRSI
+	RSTACK	
+?CCL3:	LOC	PROTAGONIST
+	EQUAL?	PRSI,STACK \?CCL8
+	EQUAL?	P-PRSA-WORD,W?THROW,W?TOSS,W?HURL \?CCL8
+	SET	'PRSI,FALSE-VALUE
+	CALL1	V-THROW
+	RSTACK	
+?CCL8:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-PUT-TO
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-PUT-UNDER
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-RAISE
+	CALL2	HACK-HACK,STR?154
+	RSTACK	
+
+
+	.FUNCT	PRE-RESEARCH
+	ZERO?	PRSI \?CND1
+	EQUAL?	HERE,LIBRARY \?CND1
+	SET	'PRSI,ENCYCLOPEDIA
+?CND1:	EQUAL?	PRSO,ROOMS \?CCL7
+	ZERO?	LIT \?CCL10
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL10:	EQUAL?	HERE,ON-TOP-OF-THE-WORLD \?CCL12
+	ICALL	PERFORM,V?EXAMINE,BROGMOID
+	RTRUE	
+?CCL12:	FSET?	HERE,OUTSIDEBIT \?CCL14
+	PRINTR	"Sunlight filters through heavy cloud cover."
+?CCL14:	EQUAL?	HERE,ON-TOP-OF-THE-WORLD \?CCL16
+	PRINTR	"You see a gray misty void, stretching upward as far as you can see."
+?CCL16:	ICALL	PERFORM,V?EXAMINE,CEILING
+	RTRUE	
+?CCL7:	ZERO?	LIT \?CCL18
+	ICALL	PERFORM,V?READ,ENCYCLOPEDIA
+	RTRUE	
+?CCL18:	ZERO?	PRSI \?CCL20
+	PRINTR	"There's no encyclopedia here to look it up in."
+?CCL20:	EQUAL?	PRSI,ENCYCLOPEDIA /?CCL22
+	PRINT	YOU-CANT
+	PRINTI	"read about things in"
+	CALL2	ARPRINT,PRSI
+	RSTACK	
+?CCL22:	SET	'VOLUME-USED,TRUE-VALUE
+	RFALSE	
+
+
+	.FUNCT	V-RESEARCH,ENTRY,PIC-NUM
+	GETP	PRSO,P?RESEARCH >ENTRY
+	ZERO?	ENTRY /?CCL3
+	PRINT	ENTRY
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,INTQUOTE \?CCL5
+	CALL2	GET-NP,PRSO >ENTRY
+	GET	ENTRY,7
+	GET	STACK,0
+	EQUAL?	STACK,W?QUOTE \?CND6
+	GET	ENTRY,7
+	ICALL	CHANGE-LEXV,STACK,W?NO.WORD
+?CND6:	GET	ENTRY,8
+	GET	STACK,0
+	EQUAL?	STACK,W?QUOTE \?CND8
+	GET	ENTRY,8
+	ICALL	CHANGE-LEXV,STACK,W?NO.WORD
+?CND8:	GET	OOPS-TABLE,O-START >P-CONT
+	SET	'P-LEN,P-WORDS-AGAIN
+	PRINTR	"[Uh, the quotation marks confused me...]"
+?CCL5:	PRINTI	"You look up """
+	CALL2	GET-NP,PRSO
+	ICALL2	NP-PRINT,STACK
+	PRINTR	""" in the encyclopedia, but find no entry."
+
+
+	.FUNCT	V-SRESEARCH
+	ICALL	PERFORM,V?RESEARCH,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SRIDE-DIR
+	ICALL	PERFORM,V?RIDE-DIR,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-RIDE-DIR
+	IN?	PROTAGONIST,PRSO /?CCL3
+	PRINTI	"But you're not even "
+	FSET?	PRSO,INBIT \?CCL6
+	PRINTC	105
+	JUMP	?CND4
+?CCL6:	PRINTC	111
+?CND4:	PRINTC	110
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL3:	EQUAL?	PRSI,INTDIR \?CCL8
+	CALL2	GET-NP,PRSI
+	GET	STACK,2
+	GETB	STACK,6
+	CALL2	DO-WALK,STACK
+	RSTACK	
+?CCL8:	EQUAL?	PRSO,CAMEL \?CCL10
+	PRINTR	"Please use directions, as in RIDE CAMEL WEST."
+?CCL10:	PRINTR	"How can you do that?"
+
+
+	.FUNCT	V-REACH-IN,OBJ
+	FIRST?	PRSO >OBJ /?BOGUS1
+?BOGUS1:	FSET?	PRSO,WATERBIT \?CCL4
+	CALL2	PERFORM-PRSA,WATER
+	RSTACK	
+?CCL4:	FSET?	PRSO,ACTORBIT /?CTR5
+	FSET?	PRSO,SURFACEBIT /?CTR5
+	FSET?	PRSO,CONTBIT /?CCL6
+?CTR5:	CALL1	YUKS
+	RSTACK	
+?CCL6:	FSET?	PRSO,OPENBIT /?CCL11
+	CALL	DO-FIRST,STR?140,PRSO
+	RSTACK	
+?CCL11:	ZERO?	OBJ /?CTR12
+	FSET?	OBJ,INVISIBLE /?CTR12
+	FSET?	OBJ,TRYTAKEBIT /?CCL13
+?CTR12:	PRINT	THERES-NOTHING
+	PRINTI	"in"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL13:	PRINTI	"You feel something inside"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT \?CCL3
+	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL3:	CALL2	CANT-VERB-A-PRSO,STR?155
+	RSTACK	
+
+
+	.FUNCT	V-REMOVE
+	FSET?	PRSO,WEARBIT \?CCL3
+	ICALL	PERFORM,V?TAKE-OFF,PRSO
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ROLL
+	PRINTI	"A rolling "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" gathers no moss."
+
+
+	.FUNCT	V-ROLL-DIR,OHERE
+	EQUAL?	PRSO,CANNONBALL,DUMBBELL \?CCL3
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CND4
+	IN?	PRSO,WALDO /?CND4
+	PRINT	HOLDING-IT
+	RTRUE	
+?CND4:	SET	'OHERE,HERE
+	CALL1	DIRECTION-CONVERSION
+	ICALL2	DO-WALK,STACK
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS \?CCL10
+	REMOVE	PRSO
+	PRINTI	"   The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" disappointingly fails to roll along the ground ABOVE you, and plunges into the void."
+?CCL10:	EQUAL?	HERE,OHERE /TRUE
+	MOVE	PRSO,HERE
+	PRINTI	"   The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" rolls to a stop."
+?CCL3:	CALL1	V-ROLL
+	RSTACK	
+
+
+	.FUNCT	V-ROLL-DOWN,OHERE
+	EQUAL?	PRSO,CANNONBALL,DUMBBELL \?CCL3
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CND4
+	IN?	PRSO,WALDO /?CND4
+	PRINT	HOLDING-IT
+	RTRUE	
+?CND4:	SET	'OHERE,HERE
+	ICALL2	DO-WALK,P?DOWN
+	EQUAL?	HERE,OHERE /TRUE
+	PRINTI	"   The "
+	ICALL2	DPRINT,PRSO
+	EQUAL?	HERE,OUBLIETTE \?CCL12
+	REMOVE	PRSO
+	PRINTI	" sinks into the mud"
+	JUMP	?CND10
+?CCL12:	MOVE	PRSO,HERE
+	PRINTI	" rolls to a stop"
+?CND10:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL3:	CALL1	V-ROLL
+	RSTACK	
+
+
+	.FUNCT	V-ROLL-UP,OHERE
+	EQUAL?	PRSO,CANNONBALL,DUMBBELL \?CCL3
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CND4
+	IN?	PRSO,WALDO /?CND4
+	PRINT	HOLDING-IT
+	RTRUE	
+?CND4:	SET	'OHERE,HERE
+	ICALL2	DO-WALK,P?UP
+	EQUAL?	HERE,OHERE /TRUE
+	MOVE	PRSO,HERE
+	PRINTI	"   The "
+	ICALL2	DPRINT,PRSO
+	PRINTR	" rolls to a stop."
+?CCL3:	CALL1	V-ROLL
+	RSTACK	
+
+
+	.FUNCT	V-SACRED-WORD
+	EQUAL?	SACRED-WORD-NUMBER,10 /?CCL3
+	GET	SACRED-WORD-WORDS,SACRED-WORD-NUMBER
+	EQUAL?	P-PRSA-WORD,STACK \?CCL3
+	ZERO?	TIME-STOPPED /?CCL3
+	SET	'TIME-STOPPED,FALSE-VALUE
+	FSET	OUTER-GATE,OPENBIT
+	FSET	PERIMETER-WALL,REDESCBIT
+	ICALL	QUEUE,I-END-GAME,-1
+	PRINTI	"As you utter the sacred word, time resumes its normal motion! "
+	EQUAL?	HERE,PERIMETER-WALL \?CCL9
+	PRINTI	"The huge outer gates burst open, and t"
+	JUMP	?CND7
+?CCL9:	PRINTI	"You hear a distant grinding sound like the opening of a huge door. T"
+?CND7:	PRINTR	"he entire structure around you begins to shake and tremble; the last moments of the castle are at hand!"
+?CCL3:	PRINTR	"As you utter it, the power of the sacred word sends you staggering."
+
+
+	.FUNCT	V-NOT-SO-SACRED-WORD
+	PRINTR	"The word hangs in the air like a damp fog before dissipating."
+
+
+	.FUNCT	V-SADDLE
+	ZERO?	PRSI \?CCL3
+	CALL2	ULTIMATELY-IN?,SADDLE
+	ZERO?	STACK /?CCL6
+	ICALL	PERFORM,V?PUT-ON,SADDLE,PRSO
+	RTRUE	
+?CCL6:	PRINTR	"You don't have a saddle!"
+?CCL3:	EQUAL?	PRSI,SADDLE \?CCL8
+	ICALL	PERFORM,V?PUT-ON,SADDLE,PRSO
+	RTRUE	
+?CCL8:	PRINTR	"You can only saddle something with a saddle! In fact, that's probably where the word comes from!"
+
+
+	.FUNCT	V-SAVE-SOMETHING
+	EQUAL?	PRSO,ME \?CCL3
+	CALL1	V-HINT
+	RSTACK	
+?CCL3:	PRINTI	"Sorry, but"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" is beyond help."
+
+
+	.FUNCT	V-SAY,V,V2,TMP
+	CALL1	GET-NP
+	GET	STACK,7 >TMP
+	EQUAL?	PRSO,INTQUOTE \?CND1
+	ADD	TMP,8 >TMP
+?CND1:	GET	TMP,0 >V
+	GET	TMP,P-LEXELEN >V2
+	ZERO?	AWAITING-REPLY /?CCL5
+	CALL2	YES-WORD,V
+	ZERO?	STACK /?CCL5
+	ICALL1	V-YES
+	JUMP	?CND3
+?CCL5:	ZERO?	AWAITING-REPLY /?CCL9
+	CALL2	NO-WORD,V
+	ZERO?	STACK /?CCL9
+	ICALL1	V-NO
+	JUMP	?CND3
+?CCL9:	INTBL?	V,SACRED-WORD-WORDS,SACRED-WORD-WORDS-LENGTH \?CCL13
+	SET	'P-PRSA-WORD,V
+	ICALL1	V-SACRED-WORD
+	JUMP	?CND3
+?CCL13:	ZERO?	PRSO /?CCL15
+	EQUAL?	PRSO,SACRED-WORD-OBJ \?CCL15
+	CALL2	GET-NP,PRSO
+	GET	STACK,2 >P-PRSA-WORD
+	ICALL1	V-SACRED-WORD
+	JUMP	?CND3
+?CCL15:	EQUAL?	V,W?FLODOOR,W?ZIPSO,W?FURGALNETI \?CCL19
+	ICALL1	V-NOT-SO-SACRED-WORD
+	JUMP	?CND3
+?CCL19:	EQUAL?	HERE,ENTRANCE-HALL \?CCL21
+	IN?	JESTER,HERE \?CCL21
+	FSET?	PORTCULLIS,OPENBIT /?CCL21
+	EQUAL?	PRSO,TIME-OBJECT /?CTR26
+	EQUAL?	V,W?TIME \?CCL27
+?CTR26:	FSET	PORTCULLIS,OPENBIT
+	PRINTI	"The portcullis creaks open. ""Friend or foe, you're free to go!"""
+	ICALL1	J-EXITS
+	ICALL2	INC-SCORE,20
+	JUMP	?CND3
+?CCL27:	ICALL1	DONT-CRY
+	JUMP	?CND3
+?CCL21:	EQUAL?	HERE,OUBLIETTE \?CCL31
+	IN?	JESTER,HERE \?CCL31
+	EQUAL?	PRSO,TRIPLET /?CTR35
+	EQUAL?	V,W?TRIPLET,W?TRIPLETS,W?QUADRUPLET /?CTR35
+	EQUAL?	V,W?QUINTUPLET /?CTR35
+	EQUAL?	V2,W?TRIPLET,W?TRIPLETS,W?QUADRUPLET /?CTR35
+	EQUAL?	V2,W?QUINTUPLET \?CCL36
+?CTR35:	PRINTI	"The jester solemnly shakes your hand, and you feel yourself rising out of the oubliette."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,DUNGEON
+	ICALL2	INC-SCORE,OUBLIETTE-SCORE
+	SET	'OUBLIETTE-SCORE,0
+	RTRUE	
+?CCL36:	ICALL1	DONT-CRY
+	JUMP	?CND3
+?CCL31:	IN?	EAST-KEY,JESTER \?CCL43
+	IN?	JESTER,HERE \?CCL43
+	EQUAL?	PRSO,LETTER-Y /?CTR47
+	EQUAL?	V,W?Y /?CTR47
+	EQUAL?	V,W?A,W?LETTER \?PRD52
+	EQUAL?	V,W?Y /?CTR47
+?PRD52:	EQUAL?	V,W?A,W?THE \?CCL48
+	EQUAL?	V2,W?LETTER \?CCL48
+	GET	TMP,4
+	EQUAL?	STACK,W?Y \?CCL48
+?CTR47:	MOVE	EAST-KEY,PROTAGONIST
+	FSET	EAST-KEY,TOUCHBIT
+	FCLEAR	EAST-KEY,TRYTAKEBIT
+	PRINTI	"The jester grins and tosses you the key. ""Way to be -- Here's the key!"""
+	ICALL1	J-EXITS
+	ICALL2	INC-SCORE,20
+	JUMP	?CND3
+?CCL48:	ICALL1	DONT-CRY
+	JUMP	?CND3
+?CCL43:	IN?	DIPLOMA,JESTER \?CCL59
+	IN?	JESTER,HERE \?CCL59
+	EQUAL?	PRSO,MUSIC /?CTR63
+	EQUAL?	V,W?MUSIC /?CTR63
+	EQUAL?	V,W?MUSICAL \?CCL64
+	EQUAL?	V2,W?INSTRUMENTS \?CCL64
+?CTR63:	MOVE	DIPLOMA,PROTAGONIST
+	FCLEAR	DIPLOMA,TRYTAKEBIT
+	FCLEAR	DIPLOMA,NDESCBIT
+	FSET	DIPLOMA,TOUCHBIT
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTI	"""Go to the head of the class!"" The jester hands you the framed document. ""With flying colors, you pass!"""
+	ICALL1	J-EXITS
+	ICALL2	INC-SCORE,12
+	JUMP	?CND3
+?CCL64:	ICALL1	DONT-CRY
+	JUMP	?CND3
+?CCL59:	EQUAL?	HERE,TAX-OFFICE \?CCL71
+	IN?	ZORKMID-COIN,LOCAL-GLOBALS \?CCL71
+	IN?	JESTER,HERE \?CCL71
+	EQUAL?	PRSO,BOOKKEEPER /?CTR76
+	EQUAL?	V,W?BOOKKEEPER,W?BOOKKEEPING \?CCL77
+?CTR76:	MOVE	ZORKMID-COIN,HERE
+	PRINTI	"You hear a ""clink"" by your feet. ""You're fast as a bunny and right on the money!"""
+	ICALL1	J-EXITS
+	ICALL2	INC-SCORE,6
+	JUMP	?CND3
+?CCL77:	ICALL1	DONT-CRY
+	JUMP	?CND3
+?CCL71:	EQUAL?	HERE,CAVE-IN \?CCL81
+	IN?	PIT-BOMB,LOCAL-GLOBALS \?CCL81
+	IN?	JESTER,HERE \?CCL81
+	EQUAL?	PRSO,MID-NAME \?PRD89
+	GET	MID-NAME-WORDS,MID-NAME-NUM
+	CALL	NOUN-USED?,MID-NAME,STACK
+	ZERO?	STACK \?CTR86
+?PRD89:	GET	MID-NAME-WORDS,MID-NAME-NUM
+	EQUAL?	V,STACK \?CCL87
+?CTR86:	MOVE	PIT-BOMB,HERE
+	PRINTI	"""That's my proper appellation; the finest in the nation!"""
+	ICALL1	J-EXITS
+	ICALL2	INC-SCORE,6
+	CRLF	
+	EQUAL?	HERE,CAVE-IN \TRUE
+	ICALL1	V-LOOK
+	RTRUE	
+?CCL87:	EQUAL?	PRSO,OTHER-J-NAMES /?CTR94
+	EQUAL?	V,W?BARBAZZO,W?FERNAP \?CCL95
+?CTR94:	PRINTI	"""That's my name, but not my middle; try again to win this riddle!"""
+	CRLF	
+	JUMP	?CND3
+?CCL95:	PRINTI	"""That's not my middle moniker; and I should know! I just looked it up this morning! Try again."""
+	CRLF	
+	JUMP	?CND3
+?CCL81:	EQUAL?	HERE,ON-TOP-OF-THE-WORLD \?CCL99
+	IN?	LITTLE-FUNGUS,GLOBAL-OBJECTS \?CCL99
+	ZERO?	PLANT-TALKER /?CCL99
+	EQUAL?	FUNGUS-NUMBER,12 /?CCL99
+	GET	FUNGUS-WORDS,FUNGUS-NUMBER
+	EQUAL?	V,STACK \?CCL99
+	ICALL1	GET-LITTLE-FUNGUS
+	JUMP	?CND3
+?CCL99:	CALL	FIND-IN,HERE,ACTORBIT >V
+	ZERO?	V /?CCL106
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"[If you want"
+	ICALL2	TPRINT,V
+	PRINTI	" to do something, the proper way is
+   >"
+	ICALL2	DPRINT,V
+	PRINTI	", do something]"
+	CRLF	
+	JUMP	?CND3
+?CCL106:	PRINTI	"You say that out loud, but with no effect."
+	CRLF	
+?CND3:	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	V-SCORE
+	PRINTI	"You have scored "
+	PRINTN	SCORE
+	PRINTI	" point"
+	EQUAL?	SCORE,1 /?CND1
+	PRINTC	115
+?CND1:	PRINTI	" (out of 1000) in "
+	PRINTN	MOVES
+	PRINTI	" turn"
+	EQUAL?	MOVES,1 /?CND3
+	PRINTC	115
+?CND3:	PRINTI	". This gives you the rank of "
+	EQUAL?	SCORE,1000 \?CCL7
+	PRINTI	"Dungeon Master"
+	JUMP	?CND5
+?CCL7:	GRTR?	SCORE,875 \?CCL9
+	PRINTI	"Cursebuster"
+	JUMP	?CND5
+?CCL9:	GRTR?	SCORE,750 \?CCL11
+	PRINTI	"Master Explorer"
+	JUMP	?CND5
+?CCL11:	GRTR?	SCORE,625 \?CCL13
+	PRINTI	"Expert Adventurer"
+	JUMP	?CND5
+?CCL13:	GRTR?	SCORE,500 \?CCL15
+	PRINTI	"Respected Adventurer"
+	JUMP	?CND5
+?CCL15:	GRTR?	SCORE,375 \?CCL17
+	PRINTI	"Nobleman"
+	JUMP	?CND5
+?CCL17:	GRTR?	SCORE,250 \?CCL19
+	PRINTI	"Knight"
+	JUMP	?CND5
+?CCL19:	GRTR?	SCORE,125 \?CCL21
+	PRINTI	"Tradesman"
+	JUMP	?CND5
+?CCL21:	LESS?	SCORE,0 \?CND22
+	PRINTI	"Incompetent "
+?CND22:	PRINTI	"Peasant"
+?CND5:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	SCORE-OBJ,OBJ,VAL
+	GETP	OBJ,P?VALUE >VAL
+	ZERO?	VAL /FALSE
+	ICALL2	INC-SCORE,VAL
+	PUTP	OBJ,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	V-NOTIFY
+	PRINTI	"Okay, you will no"
+	ZERO?	NOTIFICATION-ON /?CCL3
+	SET	'NOTIFICATION-ON,FALSE-VALUE
+	PRINTI	" longer"
+	JUMP	?CND1
+?CCL3:	SET	'NOTIFICATION-ON,TRUE-VALUE
+	PRINTC	119
+?CND1:	PRINTR	" be notified when your score changes."
+
+
+	.FUNCT	INC-SCORE,PTS
+	ZERO?	PTS /TRUE
+	ZERO?	NOTIFICATION-ON /?CND3
+	SOUND	1
+	HLIGHT	H-BOLD
+	PRINTI	"   [Your score has just gone "
+	GRTR?	PTS,0 \?CCL7
+	PRINTI	"up"
+	JUMP	?CND5
+?CCL7:	PRINTI	"down"
+?CND5:	PRINTI	" by "
+	GRTR?	PTS,0 \?CCL10
+	PRINTN	PTS
+	JUMP	?CND8
+?CCL10:	MUL	PTS,-1
+	PRINTN	STACK
+?CND8:	PRINTC	46
+	ZERO?	NOTIFICATION-WARNING \?CND11
+	SET	'NOTIFICATION-WARNING,TRUE-VALUE
+	PRINTI	" Note: you can turn this feature on and off using the NOTIFY command."
+?CND11:	PRINTC	93
+	CRLF	
+	HLIGHT	H-NORMAL
+?CND3:	ADD	SCORE,PTS >SCORE
+	RTRUE	
+
+
+	.FUNCT	V-SEARCH
+	FSET?	PRSO,ACTORBIT \?CCL3
+	CALL1	V-SHAKE
+	RSTACK	
+?CCL3:	IN?	PROTAGONIST,PRSO \?CCL5
+	CALL1	D-VEHICLE
+	RSTACK	
+?CCL5:	FSET?	PRSO,CONTBIT \?CCL7
+	FSET?	PRSO,OPENBIT /?CCL7
+	CALL	DO-FIRST,STR?140,PRSO
+	RSTACK	
+?CCL7:	FSET?	PRSO,CONTBIT \?CCL11
+	PRINTI	"You find"
+	CALL1	D-NOTHING
+	ZERO?	STACK \TRUE
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL11:	CALL2	CANT-VERB-A-PRSO,STR?156
+	RSTACK	
+
+
+	.FUNCT	V-SSEARCH-OBJECT-FOR
+	ICALL	PERFORM,V?SEARCH-OBJECT-FOR,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SEARCH-OBJECT-FOR
+	FSET?	PRSO,ACTORBIT \?CCL3
+	ICALL	PERFORM,V?SEARCH,PRSO
+	RTRUE	
+?CCL3:	FSET?	PRSO,CONTBIT \?CCL5
+	FSET?	PRSO,OPENBIT /?CCL5
+	CALL	DO-FIRST,STR?140,PRSO
+	RSTACK	
+?CCL5:	IN?	PRSI,PRSO /?CTR8
+	IN?	PRSI,HERE \?CCL9
+?CTR8:	PRINTI	"Very observant. There "
+	FSET?	PRSI,FEMALEBIT \?CCL14
+	PUSH	STR?157
+	JUMP	?CND12
+?CCL14:	FSET?	PRSI,ACTORBIT \?CCL16
+	PUSH	STR?158
+	JUMP	?CND12
+?CCL16:	PUSH	STR?159
+?CND12:	PRINT	STACK
+	PRINTR	" is."
+?CCL9:	PRINTI	"You don't find"
+	ICALL1	TPRINT-PRSI
+	PRINTR	" there."
+
+
+	.FUNCT	V-SEND
+	PRINTR	"You haven't any stamps, and there isn't a mailbox in sight!"
+
+
+	.FUNCT	V-SET
+	ZERO?	PRSI \?CCL3
+	EQUAL?	PRSO,ROOMS \?CCL6
+	PRINTR	"You do a 360 degree spin, but no agents appear to sign you up for the Borphee Metropolitan Ballet Company."
+?CCL6:	FSET?	PRSO,TAKEBIT /?CTR7
+	FSET?	PRSO,INTEGRALBIT \?CCL8
+?CTR7:	CALL2	HACK-HACK,STR?160
+	RSTACK	
+?CCL8:	PRINT	YNH
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL3:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-SET-DIR
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-SGIVE
+	ICALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SHAKE,PERSON
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTR	"That wouldn't be polite."
+?CCL3:	CALL2	HACK-HACK,STR?161
+	RSTACK	
+
+
+	.FUNCT	V-SHAKE-WITH
+	ZERO?	PRSI \?CCL3
+	ICALL	PERFORM,V?SHAKE-WITH,HANDS,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,HANDS /?CCL5
+	CALL1	RECOGNIZE
+	RSTACK	
+?CCL5:	FSET?	PRSI,ACTORBIT /?CCL7
+	PRINTI	"I don't think"
+	ICALL1	TPRINT-PRSI
+	PRINTR	" even has hands."
+?CCL7:	ICALL	PERFORM,V?THANK,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-SHOW,ACTOR
+	ZERO?	PRSI \?CCL3
+	CALL	FIND-IN,HERE,ACTORBIT >ACTOR
+	ZERO?	ACTOR /?CCL3
+	ICALL	PERFORM,V?SHOW,PRSO,ACTOR
+	RTRUE	
+?CCL3:	ZERO?	PRSI \?CCL7
+	PRINTR	"There's no one here to show it to."
+?CCL7:	PRINTI	"It doesn't look like"
+	ICALL2	IS-ARE-PRINT,PRSI
+	PRINTR	"interested."
+
+
+	.FUNCT	V-SHUT-UP
+	EQUAL?	PRSO,ROOMS \?CCL3
+	PRINTR	"[I hope you're not addressing me...]"
+?CCL3:	ICALL	PERFORM,V?CLOSE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SING
+	PRINT	HUH
+	RTRUE	
+
+
+	.FUNCT	V-SING-TO
+	EQUAL?	PRSO,BEDBUG \?CCL3
+	ICALL	PERFORM,V?PUT-TO,BEDBUG,GLOBAL-SLEEP
+	RTRUE	
+?CCL3:	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-SINK
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-SIT,VEHICLE
+	ZERO?	PRSO /?CCL3
+	EQUAL?	PRSO,ROOMS /?CCL3
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL3:	IN?	PROTAGONIST,HERE /?CCL7
+	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL7:	EQUAL?	HERE,CASINO \?CCL9
+	PRINTI	"[at the card table]"
+	CRLF	
+	ICALL	PERFORM,V?ENTER,CARD-TABLE
+	RTRUE	
+?CCL9:	CALL	FIND-IN,HERE,VEHBIT,STR?162 >VEHICLE
+	ZERO?	VEHICLE /?CCL11
+	ICALL	PERFORM,V?ENTER,VEHICLE
+	RTRUE	
+?CCL11:	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-SKIP
+	ZERO?	TURNED-INTO /?CCL3
+	FSET?	TURNED-INTO,ANIMATEDBIT /?CCL3
+	EQUAL?	TURNED-INTO,LITTLE-FUNGUS /?CCL3
+	SET	'P-CONT,-1
+	PRINTI	"Ahem..."
+	ICALL2	APRINT,TURNED-INTO
+	FSET?	TURNED-INTO,PLURALBIT \?CCL9
+	PRINTI	" are"
+	JUMP	?CND7
+?CCL9:	PRINTI	" is"
+?CND7:	PRINTR	" usually incapable of locomotion."
+?CCL3:	PRINTR	"Wasn't that fun?"
+
+
+	.FUNCT	V-SLEEP
+	PRINTI	"You're not tired"
+	IN?	BEDBUG,HERE \?CCL3
+	PRINTI	", but you curl up for a moment and fake sleep. "
+	CALL2	REMOVE-BEDBUG,STR?136
+	RSTACK	
+?CCL3:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	PRE-SMELL
+	FSET?	CLOWN-NOSE,WORNBIT \FALSE
+	PRINT	YOU-CANT
+	PRINTR	"smell a thing with this clown nose on!"
+
+
+	.FUNCT	V-SMELL
+	ZERO?	PRSO \?CCL3
+	EQUAL?	HERE,WEST-WING \?CCL6
+	PRINT	FUDGE
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	HERE,FISHY-ODOR \?CCL8
+	PRINTR	"Phew! Rotten fish!"
+?CCL8:	PRINTR	"You smell nothing unusual at the moment."
+?CCL3:	CALL2	SENSE-OBJECT,STR?163
+	RSTACK	
+
+
+	.FUNCT	SENSE-OBJECT,STRING
+	ICALL1	PRONOUN
+	PRINTC	32
+	PRINT	STRING
+	FSET?	PRSO,PLURALBIT /?CND1
+	EQUAL?	PRSO,ME /?CND1
+	PRINTC	115
+?CND1:	PRINTI	" just like"
+	CALL2	ARPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-SNAP
+	PRINTR	"Perhaps it's your mind that has snapped."
+
+
+	.FUNCT	V-SPUT-ON
+	ICALL	PERFORM,V?PUT-ON,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOW
+	ICALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-STAND
+	EQUAL?	P-PRSA-WORD,W?HOLD \?CCL3
+	CALL1	WASTES
+	RSTACK	
+?CCL3:	ZERO?	PRSO /?CCL5
+	FSET?	PRSO,TAKEBIT \?CCL5
+	EQUAL?	P-PRSA-WORD,W?STAND \?CCL5
+	CALL1	WASTES
+	RSTACK	
+?CCL5:	EQUAL?	P-PRSA-WORD,W?GET \?CCL10
+	ZERO?	PRSO /?CCL10
+	EQUAL?	PRSO,ROOMS /?CCL10
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL10:	IN?	PROTAGONIST,HERE /?CCL15
+	LOC	PROTAGONIST
+	ICALL	PERFORM,V?EXIT,STACK
+	RTRUE	
+?CCL15:	EQUAL?	PRSO,FALSE-VALUE,ROOMS /?CCL17
+	EQUAL?	P-PRSA-WORD,W?STAND /?CCL17
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL17:	ZERO?	UNDER-TABLE /?CCL21
+	SET	'UNDER-TABLE,FALSE-VALUE
+	SET	'OLD-HERE,FALSE-VALUE
+	PRINTR	"You get out from under the table."
+?CCL21:	PRINTR	"You're already standing."
+
+
+	.FUNCT	V-STAND-ON
+	EQUAL?	PRSO,NORTH-DOCK,WEST-DOCK,EAST-DOCK /?CTR2
+	EQUAL?	PRSO,YACHT,TREE-STUMP,SOUTH-DOCK /?CTR2
+	EQUAL?	PRSO,CONDUCTOR-STAND,TOBOGGAN \?CCL3
+?CTR2:	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL3:	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-STELL
+	ICALL	PERFORM,V?TELL,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-STHROW
+	EQUAL?	PRSI,INTDIR \?CCL3
+	ICALL	PERFORM,V?THROW,PRSO,PRSI
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?THROW-TO,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SUCK-ON
+	ICALL	PERFORM,V?TASTE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SUCK-WITH
+	ICALL	PERFORM,V?DRINK,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-SWAT
+	ZERO?	PRSI /?CCL3
+	PRINTI	"Sorry, but"
+	ICALL2	APRINT,PRSI
+	PRINTI	" makes a poor "
+	JUMP	?CND1
+?CCL3:	PRINTI	"You don't have a "
+?CND1:	EQUAL?	PRSO,EVEN-LARGER-FLY,LARGER-FLY,LARGE-FLY /?CTR5
+	EQUAL?	PRSO,LARGEST-FLY \?CCL6
+?CTR5:	PRINTI	"fly"
+	JUMP	?CND4
+?CCL6:	ICALL2	DPRINT,PRSO
+?CND4:	PRINTR	"swatter."
+
+
+	.FUNCT	V-SWIM,X
+	ZERO?	PRSO /?CCL3
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL3:	CALL1	FIND-WATER >X
+	ZERO?	X /?CCL5
+	ICALL	PERFORM,V?ENTER,X
+	RTRUE	
+?CCL5:	PRINTR	"Your head must be swimming."
+
+
+	.FUNCT	V-SWING
+	PRINTR	"""Whoosh."""
+
+
+	.FUNCT	PRE-SWITCH
+	SET	'OBJ-SWAP,TRUE-VALUE
+	RFALSE	
+
+
+	.FUNCT	V-SWRAP
+	ICALL	PERFORM,V?WRAP,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	PRE-TAKE
+	FSET?	PRSO,PARTBIT /?CCL3
+	CALL1	PRE-LOOK
+	ZERO?	STACK \TRUE
+?CCL3:	EQUAL?	PRSO,HANDS \?CCL7
+	ZERO?	PRSI /?CCL7
+	EQUAL?	PRSI,WALDO,HAND-HOLE \?PRD12
+	ZERO?	HAND-IN-WALDO \?CTR6
+?PRD12:	EQUAL?	PRSI,STRAW \?CCL7
+	ZERO?	FINGER-ON-STRAW /?CCL7
+?CTR6:	ICALL	PERFORM,V?REMOVE,HANDS
+	RTRUE	
+?CCL7:	IN?	PROTAGONIST,PRSO \?CCL18
+	PRINTI	"You're "
+	FSET?	PRSO,INBIT \?CCL21
+	PRINTC	105
+	JUMP	?CND19
+?CCL21:	PRINTC	111
+?CND19:	PRINTR	"n it!"
+?CCL18:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL23
+	ZERO?	PRSI /?CCL23
+	IN?	PRSI,ROOMS \?CCL23
+	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL23:	IN?	PRSO,PROTAGONIST /?CTR27
+	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK /?CCL28
+	FSET?	PRSO,TAKEBIT /?CCL28
+	EQUAL?	PRSO,LARGE-VIAL-WATER,SMALL-VIAL-WATER,WALDO /?CCL28
+?CTR27:	FSET?	PRSO,WORNBIT \?CCL36
+	EQUAL?	PRSO,CLOWN-NOSE \?CND37
+	ICALL	PERFORM,V?TAKE-OFF,CLOWN-NOSE
+	RTRUE	
+?CND37:	PRINTI	"You're already wearing"
+	JUMP	?CND34
+?CCL36:	PRINTI	"You already have"
+?CND34:	ICALL1	TPRINT-PRSO
+	PRINT	PERIOD-CR
+	RTRUE	
+?CCL28:	CALL2	UNTOUCHABLE?,PRSO
+	ZERO?	STACK /?CCL40
+	ZERO?	HAND-IN-WALDO /?CCL43
+	ICALL1	WALDO-TAKE
+	RTRUE	
+?CCL43:	CALL2	CANT-REACH,PRSO
+	RSTACK	
+?CCL40:	ZERO?	PRSI /FALSE
+	EQUAL?	PRSI,ME \?CCL47
+	ICALL	PERFORM,V?DROP,PRSI
+	RTRUE	
+?CCL47:	EQUAL?	PRSO,WATER \?CCL49
+	EQUAL?	P-PRSA-WORD,W?REMOVE \?CCL49
+	EQUAL?	PRSI,LARGE-VIAL \?PRD54
+	GRTR?	LARGE-VIAL-WATER,0 /?CTR48
+?PRD54:	EQUAL?	PRSI,SMALL-VIAL \?CCL49
+	GRTR?	SMALL-VIAL-WATER,0 \?CCL49
+?CTR48:	ICALL	PERFORM,V?EMPTY-FROM,PRSO,PRSI
+	RTRUE	
+?CCL49:	IN?	PRSO,PRSI /?CCL60
+	GETP	PRSO,P?OWNER
+	EQUAL?	PRSI,STACK /?CCL60
+	CALL1	NOT-IN
+	RSTACK	
+?CCL60:	ZERO?	PRSI /FALSE
+	SET	'PRSI,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	V-TAKE,L
+	LOC	PRSO >L
+	CALL2	ITAKE,TRUE-VALUE
+	EQUAL?	STACK,M-FATAL /FALSE
+	EQUAL?	L,HERE /?CTR5
+	LOC	PROTAGONIST
+	EQUAL?	L,STACK \?CCL6
+?CTR5:	PRINTI	"You pick up"
+	ICALL2	TRPRINT,PRSO
+	JUMP	?CND4
+?CCL6:	PRINTI	"You take"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" from"
+	ICALL2	TRPRINT,L
+?CND4:	CALL2	SCORE-OBJ,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-TAKE-OFF,VEHICLE
+	LOC	PROTAGONIST >VEHICLE
+	EQUAL?	PRSO,ROOMS \?CCL3
+	FSET?	VEHICLE,VEHBIT \?CCL6
+	ICALL	PERFORM,V?EXIT,VEHICLE
+	RTRUE	
+?CCL6:	EQUAL?	HERE,GONDOLA \?CCL8
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL8:	PRINTI	"You're not "
+	GET	PARSE-RESULT,7
+	EQUAL?	STACK,W?OUT \?CCL11
+	PRINTC	105
+	JUMP	?CND9
+?CCL11:	PRINTC	111
+?CND9:	PRINTR	"n anything."
+?CCL3:	FSET?	PRSO,WORNBIT \?CCL13
+	FCLEAR	PRSO,WORNBIT
+	ICALL2	THIS-IS-IT,PRSO
+	PRINTI	"You remove"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL13:	FSET?	PRSO,VEHBIT \?CCL15
+	ICALL	PERFORM,V?EXIT,PRSO
+	RTRUE	
+?CCL15:	PRINTI	"You aren't wearing"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-TAKE-WITH
+	CALL2	ULTIMATELY-IN?,PRSI
+	ZERO?	STACK \?CCL3
+	PRINT	YNH
+	CALL2	TRPRINT,PRSI
+	RSTACK	
+?CCL3:	PRINTI	"Sorry,"
+	ICALL2	IS-ARE-PRINT,PRSI
+	PRINTI	"no help in getting"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-TASTE
+	CALL2	SENSE-OBJECT,STR?164
+	RSTACK	
+
+
+	.FUNCT	PRE-TELL
+	ZERO?	TURNED-INTO /?CCL3
+	FSET?	TURNED-INTO,ANIMATEDBIT /?CCL3
+	SET	'P-CONT,-1
+	CALL2	TO-SPEAK-OF,STR?165
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?SAY,V?SING-TO,V?SING /FALSE
+	ZERO?	PRSO /FALSE
+	FSET?	PRSO,PLANTBIT \?CCL11
+	ZERO?	PLANT-TALKER \FALSE
+?CCL11:	EQUAL?	PRSO,OTHER-J-NAMES /?PRD17
+	EQUAL?	PRSO,MID-NAME \?CCL15
+	GET	MID-NAME-WORDS,MID-NAME-NUM
+	CALL	NOUN-USED?,MID-NAME,STACK
+	ZERO?	STACK /?CCL15
+?PRD17:	CALL2	VISIBLE?,JESTER
+	ZERO?	STACK /?CCL15
+	ICALL2	PERFORM-PRSA,JESTER
+	RTRUE	
+?CCL15:	EQUAL?	PRSO,MID-NAME,OTHER-J-NAMES \?CCL23
+	PRINT	BY-THAT-NAME
+	CALL1	STOP
+	RSTACK	
+?CCL23:	EQUAL?	PRSO,LITTLE-FUNGUS \?CCL25
+	IN?	LITTLE-FUNGUS,GLOBAL-OBJECTS \?CCL25
+	EQUAL?	HERE,ON-TOP-OF-THE-WORLD \?CCL30
+	ICALL	PERFORM,V?CALL,PRSO
+	JUMP	?CND28
+?CCL30:	PRINT	BY-THAT-NAME
+?CND28:	CALL1	STOP
+	RSTACK	
+?CCL25:	FSET?	PRSO,ACTORBIT /FALSE
+	EQUAL?	PRSO,SAILOR,ORACLE-OBJECT,ME /FALSE
+	EQUAL?	PRSO,INTQUOTE /FALSE
+	ICALL1	V-TELL
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	V-TELL
+	FSET?	PRSO,ACTORBIT /?CTR2
+	EQUAL?	PRSO,SAILOR /?CTR2
+	FSET?	PRSO,PLANTBIT \?CCL3
+	ZERO?	PLANT-TALKER /?CCL3
+?CTR2:	ZERO?	P-CONT \?CTR10
+	EQUAL?	PRSO,SAILOR \?CCL11
+?CTR10:	SET	'WINNER,PRSO
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	RTRUE	
+?CCL11:	PRINTI	"Hmmm..."
+	ICALL1	TPRINT-PRSO
+	PRINTR	" looks at you expectantly, as if you seemed to be about to talk."
+?CCL3:	EQUAL?	PRSO,BROGMOID \?CCL15
+	PRINT	TALK-TO-BROGMOID
+	RTRUE	
+?CCL15:	PRINTI	"It's a well-known fact that only schizophrenics talk to"
+	ICALL2	ARPRINT,PRSO
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	V-TELL-ABOUT
+	EQUAL?	PRSO,ME \?CCL3
+	PRINTR	"[Maybe you could find an encyclopedia to look that up in.]"
+?CCL3:	ICALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-THANK
+	ZERO?	PRSO \?CCL3
+	PRINTR	"[Just doing my job.]"
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
+	PRINTI	"It seems"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" is unmoved by your politeness."
+?CCL5:	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-THROW
+	CALL2	SPECIAL-DROP,PRSO
+	ZERO?	STACK \FALSE
+	LOC	PROTAGONIST
+	EQUAL?	STACK,YACHT,DB \?CCL6
+	LOC	PROTAGONIST
+	MOVE	PRSO,STACK
+	JUMP	?CND4
+?CCL6:	MOVE	PRSO,HERE
+?CND4:	ZERO?	PRSI /?CCL9
+	EQUAL?	PRSI,INTDIR,GROUND /?CCL9
+	PRINTR	"You missed."
+?CCL9:	ICALL2	THIS-IS-IT,PRSO
+	PRINTR	"Thrown."
+
+
+	.FUNCT	V-THROW-OVER
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-THROW-FROM
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-THROW-OVERBOARD
+	IN?	PROTAGONIST,YACHT \?CCL3
+	ICALL	PERFORM,V?PUT,PRSO,WATER
+	RTRUE	
+?CCL3:	EQUAL?	HERE,HOLD \?CCL5
+	PRINT	YOULL-HAVE-TO
+	PRINTR	"go up on deck to do that."
+?CCL5:	PRINTR	"You generally have to be on a boat to do that."
+
+
+	.FUNCT	V-THROW-TO
+	FSET?	PRSI,ACTORBIT \?CCL3
+	ICALL	PERFORM,V?GIVE,PRSO,PRSI
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?THROW,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-TIE
+	PRINT	YOU-CANT
+	PRINTI	"tie"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-TIME
+	PRINTI	"It is daytime. You have taken "
+	PRINTN	MOVES
+	PRINTI	" turn"
+	EQUAL?	MOVES,1 /?CND1
+	PRINTC	115
+?CND1:	GRTR?	MOVES,1000 \?CCL5
+	PRINTR	". (The day really seems to be dragging, doesn't it?)"
+?CCL5:	PRINT	PERIOD-CR
+	RTRUE	
+
+
+	.FUNCT	V-TIP
+	PRINTI	"You tell"
+	ICALL1	TPRINT-PRSO
+	PRINTI	" about Lucky Brogmoid in the seventh race at Bozbar Downs, but "
+	FSET?	PRSO,PLURALBIT \?CCL3
+	PRINTI	"they don't"
+	JUMP	?CND1
+?CCL3:	FSET?	PRSO,ACTORBIT /?CCL6
+	PRINTI	"it"
+	JUMP	?CND4
+?CCL6:	FSET?	PRSO,FEMALEBIT \?CCL8
+	PRINTI	"she"
+	JUMP	?CND4
+?CCL8:	PRINTI	"he"
+?CND4:	PRINTI	" doesn't"
+?CND1:	PRINTR	" seem too interested."
+
+
+	.FUNCT	V-TIP-OVER
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	PRE-TOUCH
+	CALL2	UNTOUCHABLE?,PRSO
+	ZERO?	STACK /?CCL3
+	ICALL2	CANT-REACH,PRSO
+	RTRUE	
+?CCL3:	ZERO?	TURNED-INTO /FALSE
+	EQUAL?	PRSA,V?OFF \?CCL8
+	EQUAL?	P-PRSA-WORD,W?BLOW \?CCL8
+	FSET?	TURNED-INTO,ANIMATEDBIT /FALSE
+	CALL1	PRE-TELL
+	RSTACK	
+?CCL8:	SET	'P-CONT,-1
+	CALL2	TO-SPEAK-OF,STR?166
+	RSTACK	
+
+
+	.FUNCT	V-STOUCH
+	ICALL	PERFORM,V?TOUCH,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TOUCH
+	CALL2	LOC-CLOSED,PRSO
+	ZERO?	STACK \TRUE
+	CALL2	HACK-HACK,STR?167
+	RSTACK	
+
+
+	.FUNCT	V-UNLOCK
+	FSET?	PRSO,LOCKEDBIT \?CCL3
+	PRINTI	"Unfortunately,"
+	ICALL1	TPRINT-PRSI
+	PRINTI	" do"
+	FSET?	PRSI,PLURALBIT /?CND4
+	PRINTI	"es"
+?CND4:	PRINTI	"n't unlock"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL3:	PRINTI	"But"
+	ICALL1	TPRINT-PRSO
+	PRINTR	" isn't locked."
+
+
+	.FUNCT	V-UNTIE
+	CALL1	IMPOSSIBLES
+	RSTACK	
+
+
+	.FUNCT	V-USE
+	PRINT	YOULL-HAVE-TO
+	PRINTI	"be more specific about how you want to use"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-WALK,AV,VEHICLE,PT,PTS,STR,OBJ,RM
+	LOC	PROTAGONIST >AV
+	ZERO?	P-WALK-DIR \?CCL3
+	CALL	USE-PREPOSITIONS,STR?168,STR?169,STR?170,STR?171
+	RSTACK	
+?CCL3:	EQUAL?	HERE,BANQUET-HALL \?CCL5
+	CALL2	RUNNING?,I-PROLOGUE
+	ZERO?	STACK /?CCL5
+	GRTR?	PROLOGUE-COUNTER,2 \?CCL5
+	SET	'P-CONT,-1
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"Thick black smoke blocks every exit."
+?CCL5:	ZERO?	TURNED-INTO /?CCL10
+	FSET?	TURNED-INTO,ANIMATEDBIT /?CCL10
+	EQUAL?	TURNED-INTO,LITTLE-FUNGUS /?CCL10
+	ICALL1	RETURN-FROM-MAP
+	CALL1	V-SKIP
+	RSTACK	
+?CCL10:	EQUAL?	PRSO,P?OUT \?CCL15
+	FSET?	AV,DROPBIT \?CCL15
+	ICALL1	RETURN-FROM-MAP
+	ICALL	PERFORM,V?EXIT,AV
+	RTRUE	
+?CCL15:	EQUAL?	PRSO,P?IN \?CCL19
+	GETPT	HERE,P?IN
+	ZERO?	STACK \?CCL19
+	CALL	FIND-IN,HERE,VEHBIT >VEHICLE
+	ZERO?	VEHICLE /?CCL19
+	CALL2	ULTIMATELY-IN?,VEHICLE
+	ZERO?	STACK \?CCL19
+	ICALL1	RETURN-FROM-MAP
+	EQUAL?	P-PRSA-WORD,W?ENTER \?CND24
+	PRINTC	91
+	FSET?	VEHICLE,NARTICLEBIT /?CND26
+	PRINTI	"the "
+?CND26:	ICALL2	DPRINT,VEHICLE
+	PRINTC	93
+	CRLF	
+?CND24:	ICALL	PERFORM,V?ENTER,VEHICLE
+	RTRUE	
+?CCL19:	IN?	BEDBUG,HERE \?CCL29
+	ZERO?	TIME-STOPPED \?CCL29
+	SET	'P-CONT,-1
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"With a flurry of its powerful, hairy legs, the bedbug scuttles over to block your way."
+?CCL29:	EQUAL?	PRSO,P?DOWN \?CCL33
+	IN?	PROTAGONIST,YACHT \?CCL33
+	CALL2	GOTO,HOLD
+	RSTACK	
+?CCL33:	ZERO?	UNDER-TABLE /?CCL37
+	ICALL1	RETURN-FROM-MAP
+	CALL2	DO-FIRST,STR?172
+	RSTACK	
+?CCL37:	FSET?	AV,VEHBIT \?CCL39
+	EQUAL?	AV,LADDER \?PRD42
+	EQUAL?	PRSO,P?UP /?CCL39
+?PRD42:	EQUAL?	AV,CAMEL \?CTR38
+	FSET?	CAMEL,ANIMATEDBIT /?CCL39
+?CTR38:	EQUAL?	AV,DB \?CCL49
+	EQUAL?	PRSO,P?UP \?CCL49
+	EQUAL?	HERE,HOLD /?CCL49
+	ICALL	PERFORM,V?RAISE,LEVER
+	RTRUE	
+?CCL49:	EQUAL?	AV,DB \?CND47
+	EQUAL?	PRSO,P?DOWN \?CND47
+	EQUAL?	HERE,LAKE-BOTTOM /?CND47
+	ICALL	PERFORM,V?LOWER,LEVER
+	RTRUE	
+?CND47:	ICALL1	RETURN-FROM-MAP
+	PRINTI	"You're not going anywhere until you get "
+	EQUAL?	AV,CARD-TABLE \?CCL59
+	PRINTI	"up from"
+	JUMP	?CND57
+?CCL59:	FSET?	AV,INBIT \?CCL61
+	PRINTI	"out of"
+	JUMP	?CND57
+?CCL61:	PRINTI	"off"
+?CND57:	SET	'P-CONT,-1
+	CALL2	TRPRINT,AV
+	RSTACK	
+?CCL39:	FSET?	RING,WORNBIT \?CCL63
+	RANDOM	100
+	LESS?	40,STACK \?CTR62
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS,LEDGE-IN-PIT /?CTR62
+	EQUAL?	HERE,MOUTH-OF-CAVE \?CCL63
+?CTR62:	ICALL1	RETURN-FROM-MAP
+	PRINTI	"Oops! You awkwardly "
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS,LEDGE-IN-PIT /?CTR70
+	EQUAL?	HERE,MOUTH-OF-CAVE \?CCL71
+?CTR70:	PRINTI	"lost your grip! "
+	ICALL	PERFORM,V?LEAP,ROOMS
+	RTRUE	
+?CCL71:	PRINTR	"tripped over your own feet and fell down trying to walk. Fortunately, you're not seriously hurt."
+?CCL63:	GETPT	HERE,PRSO >PT
+	ZERO?	PT /?CCL75
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?CCL78
+	GETB	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL78:	EQUAL?	PTS,NEXIT \?CCL80
+	ICALL1	RETURN-FROM-MAP
+	SET	'P-CONT,-1
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL80:	EQUAL?	PTS,FEXIT \?CCL82
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?CCL85
+	CALL2	GOTO,RM
+	RSTACK	
+?CCL85:	SET	'P-CONT,-1
+	RETURN	P-CONT
+?CCL82:	EQUAL?	PTS,CEXIT \?CCL87
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?CCL90
+	GETB	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL90:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?CCL92
+	SET	'P-CONT,-1
+	ICALL1	RETURN-FROM-MAP
+	PRINT	STR
+	CRLF	
+	RTRUE	
+?CCL92:	SET	'P-CONT,-1
+	CALL1	CANT-GO
+	RSTACK	
+?CCL87:	EQUAL?	PTS,DEXIT \FALSE
+	GET	PT,DEXITOBJ >OBJ
+	FSET?	OBJ,OPENBIT \?CCL97
+	GETB	PT,DEXITRM
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL97:	GET	PT,DEXITSTR >STR
+	ZERO?	STR /?CCL99
+	ICALL1	RETURN-FROM-MAP
+	ICALL2	THIS-IS-IT,OBJ
+	SET	'P-CONT,-1
+	PRINT	STR
+	CRLF	
+	RTRUE	
+?CCL99:	ICALL1	RETURN-FROM-MAP
+	ICALL2	THIS-IS-IT,OBJ
+	SET	'P-CONT,-1
+	CALL	DO-FIRST,STR?140,OBJ
+	RSTACK	
+?CCL75:	EQUAL?	PRSO,P?IN,P?OUT \?CCL102
+	ICALL1	V-WALK-AROUND
+	JUMP	?CND100
+?CCL102:	ICALL1	CANT-GO
+?CND100:	SET	'P-CONT,-1
+	RETURN	P-CONT
+
+
+	.FUNCT	CANT-GO
+	ZERO?	LIT \?CCL3
+	LOC	PROTAGONIST
+	EQUAL?	STACK,DB,HOLD /?CCL3
+	EQUAL?	HERE,PIT-BOMB-LOC /?CCL3
+	ZERO?	TIME-STOPPED \?CCL3
+	RANDOM	100
+	LESS?	75,STACK /?CCL3
+	ICALL1	RETURN-FROM-MAP
+	CALL1	DARK-DEATH
+	RSTACK	
+?CCL3:	IN?	N-S-PASSAGE,HERE \?PRD12
+	EQUAL?	PRSO,N-S-PASSAGE-DIR /?CTR9
+?PRD12:	IN?	NW-SE-PASSAGE,HERE \?CCL10
+	EQUAL?	PRSO,NW-SE-PASSAGE-DIR \?CCL10
+?CTR9:	EQUAL?	HERE,CONSTRUCTION \?CCL19
+	EQUAL?	CONSTRUCTION-LOC,N-S-PASSAGE-LOC /?CCL19
+	EQUAL?	PRSO,N-S-PASSAGE-DIR \?CCL19
+	CALL1	BEEP-OR-CANT-GO
+	RSTACK	
+?CCL19:	EQUAL?	HERE,CONSTRUCTION \?CCL24
+	EQUAL?	CONSTRUCTION-LOC,NW-SE-PASSAGE-LOC /?CCL24
+	EQUAL?	PRSO,NW-SE-PASSAGE-DIR \?CCL24
+	CALL1	BEEP-OR-CANT-GO
+	RSTACK	
+?CCL24:	ICALL1	RETURN-FROM-MAP
+	PRINTI	"You walk down the Frobozz Magic Passage Company passage, but it ends in a dead end and you are forced to return to"
+	CALL2	TRPRINT,HERE
+	RSTACK	
+?CCL10:	CALL1	BEEP-OR-CANT-GO
+	RSTACK	
+
+
+	.FUNCT	BEEP-OR-CANT-GO
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \?CCL3
+	SOUND	1
+	RTRUE	
+?CCL3:	PRINTR	"You can't go that way."
+
+
+	.FUNCT	V-WALK-AROUND
+	PRINTR	"Please use compass directions to move around."
+
+
+	.FUNCT	V-WALK-TO
+	IN?	PRSO,HERE /?CTR2
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CCL3
+?CTR2:	FSET?	PRSO,ACTORBIT \?CCL8
+	EQUAL?	PRSO,PRICKLY-WITCH,SICKLY-WITCH \?CCL11
+	PRINTI	"She's"
+	JUMP	?CND6
+?CCL11:	PRINTI	"He's"
+	JUMP	?CND6
+?CCL8:	FSET?	PRSO,PLURALBIT \?CCL13
+	PRINTI	"They're"
+	JUMP	?CND6
+?CCL13:	PRINTI	"It's"
+?CND6:	PRINTR	" here!"
+?CCL3:	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	V-WAIT,NUM
+	ASSIGNED?	'NUM /?CND1
+	SET	'NUM,3
+?CND1:	PRINTI	"Time "
+	ZERO?	TIME-STOPPED /?CCL5
+	PRINTI	"doesn't pass"
+	JUMP	?CND3
+?CCL5:	PRINTI	"passes"
+?CND3:	PRINTI	"..."
+	CRLF	
+?PRG6:	DLESS?	'NUM,0 /?REP7
+	CALL1	CLOCKER
+	ZERO?	STACK /?PRG6
+?REP7:	LOC	WINNER >NUM
+	ZERO?	NUM /?CND12
+	IN?	NUM,ROOMS /?CND12
+	GETP	NUM,P?ACTION
+	CALL	D-APPLY,STR?16,STACK,M-END >NUM
+?CND12:	GETP	HERE,P?ACTION
+	CALL	D-APPLY,STR?16,STACK,M-END >NUM
+	EQUAL?	M-FATAL,NUM \?CND16
+	SET	'P-CONT,-1
+?CND16:	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	CLOCK-WAIT
+
+
+	.FUNCT	V-WAIT-FOR
+	CALL2	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL3
+	CALL1	V-FOLLOW
+	RSTACK	
+?CCL3:	PRINTR	"You may be waiting quite a while."
+
+
+	.FUNCT	V-WEAR
+	FSET?	PRSO,WEARBIT /?CCL3
+	CALL2	CANT-VERB-A-PRSO,STR?173
+	RSTACK	
+?CCL3:	IN?	PRSO,WALDO \?CCL5
+	PRINT	YNH
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+?CCL5:	PRINTI	"You're "
+	FSET?	PRSO,WORNBIT \?CCL8
+	PRINTI	"already"
+	JUMP	?CND6
+?CCL8:	MOVE	PRSO,PROTAGONIST
+	FSET	PRSO,WORNBIT
+	PRINTI	"now"
+?CND6:	PRINTI	" wearing"
+	CALL2	TRPRINT,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-WRAP
+	CALL1	WASTES
+	RSTACK	
+
+
+	.FUNCT	V-YAWN
+	IN?	BEDBUG,HERE \?CCL3
+	CALL2	REMOVE-BEDBUG,STR?136
+	RSTACK	
+?CCL3:	SET	'AWAITING-REPLY,1
+	ICALL	QUEUE,I-REPLY,2
+	PRINTR	"[Is the game boring you?]"
+
+
+	.FUNCT	REMOVE-BEDBUG,STRING
+	REMOVE	BEDBUG
+	PRINTI	"That was all the bedbug needed to "
+	PRINT	STRING
+	PRINTR	". It curls up into a well-armed piece of sleeping bedbug armor. You hear a chuckle from an invisible source, and the sleeping bedbug disappears!"
+
+
+	.FUNCT	V-YELL
+	EQUAL?	PRSO,INTQUOTE \?CCL3
+	CALL1	V-SAY
+	RSTACK	
+?CCL3:	PRINTI	"Aaaarrrggghhhh!"
+	CRLF	
+	CALL1	STOP
+	RSTACK	
+
+
+	.FUNCT	I-REPLY
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	V-YES
+	EQUAL?	AWAITING-REPLY,1 \?CCL3
+	PRINTR	"That was just a rhetorical question."
+?CCL3:	EQUAL?	AWAITING-REPLY,2 \?CCL5
+	PRINTR	"""Well, you don't. This swamp is owned by a cartel of lily pad farmers in Borphee, who are indebted up to their ears to a conglomerate of Gurthian banks, of which I am the primary stockholder. Ergo, you could safely say that I own this swamp."""
+?CCL5:	CALL2	YOU-SOUND,STR?174
+	RSTACK	
+
+
+	.FUNCT	YOU-SOUND,STRING
+	PRINTI	"You sound rather "
+	PRINT	STRING
+	PRINTR	"ive."
+
+
+	.FUNCT	YES-WORD,WRD
+	EQUAL?	WRD,W?YES,W?Y,W?YUP /TRUE
+	EQUAL?	WRD,W?OK,W?OKAY,W?SURE /TRUE
+	RFALSE	
+
+
+	.FUNCT	V-ZAP
+	ZERO?	PRSI /?CCL3
+	ICALL	PERFORM,V?POINT,PRSI,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,WAND \?CCL5
+	PRINTR	"Try waving the wand at something in particular."
+?CCL5:	CALL2	ULTIMATELY-IN?,WAND
+	ZERO?	STACK /?CCL7
+	CALL2	VISIBLE?,WAND
+	ZERO?	STACK /?CCL7
+	ICALL	PERFORM,V?POINT,WAND,PRSO
+	RTRUE	
+?CCL7:	PRINTR	"You have neither a magical wand nor a ray gun."
+
+
+	.FUNCT	ITAKE,VB,OBJ,?TMP1
+	ASSIGNED?	'VB /?CND1
+	SET	'VB,TRUE-VALUE
+?CND1:	ZERO?	OBJ \?CND3
+	SET	'OBJ,PRSO
+?CND3:	FSET?	OBJ,INTEGRALBIT \?CCL7
+	ZERO?	VB /?PRG10
+	ICALL1	PART-OF
+?PRG10:	RETURN	2
+?CCL7:	FSET?	OBJ,TAKEBIT /?CCL13
+	ZERO?	VB /?PRG16
+	ICALL1	YUKS
+?PRG16:	RETURN	2
+?CCL13:	ZERO?	ALLIGATOR /?CCL19
+	SET	'P-CONT,-1
+	ZERO?	VB /?PRG22
+	PRINT	YOU-CANT
+	PRINTI	"pick anything up right now. The logic goes something like this:
+   1. You need hands to pick something up.
+   2. You've been turned into an alligator.
+   3. Alligators don't have hands."
+	CRLF	
+?PRG22:	RETURN	2
+?CCL19:	ZERO?	TURNED-INTO /?CCL25
+	ZERO?	VB /?PRG28
+	PRINTI	"Surely you realize that"
+	ICALL2	APRINT,TURNED-INTO
+	PRINTI	" is hardly equipped to carry items around!"
+	CRLF	
+?PRG28:	RETURN	2
+?CCL25:	CALL	LOC-CLOSED,OBJ,VB
+	ZERO?	STACK /?CCL31
+	RETURN	2
+?CCL31:	CALL2	UNTOUCHABLE?,OBJ
+	ZERO?	STACK /?CCL35
+	ZERO?	VB /?PRG38
+	ICALL2	CANT-REACH,OBJ
+?PRG38:	RETURN	2
+?CCL35:	FSET?	RING,WORNBIT \?CCL41
+	CALL2	CCOUNT,PROTAGONIST
+	GRTR?	STACK,4 \?CCL41
+	ZERO?	VB /?PRG49
+	PRINTI	"Oops! While trying to pick up"
+	ICALL2	TPRINT,OBJ
+	PRINTI	", you accidentally dropped everything you were holding! How clumsy!"
+	LOC	PROTAGONIST
+	FSET?	STACK,DROPBIT \?CCL48
+	LOC	PROTAGONIST
+	JUMP	?CND46
+?CCL48:	PUSH	HERE
+?CND46:	ICALL	ROB,PROTAGONIST,STACK,TRUE-VALUE
+	CRLF	
+?PRG49:	RETURN	2
+?CCL41:	CALL2	CCOUNT,PROTAGONIST
+	GRTR?	STACK,10 \?CCL52
+	ZERO?	VB /?PRG55
+	PRINTI	"You're already juggling as many items as you could possibly carry."
+	CRLF	
+?PRG55:	RETURN	2
+?CCL52:	CALL2	ULTIMATELY-IN?,OBJ
+	ZERO?	STACK \?CND5
+	CALL2	WEIGHT,OBJ >?TMP1
+	CALL2	WEIGHT,PROTAGONIST
+	ADD	?TMP1,STACK
+	GRTR?	STACK,100 \?CND5
+	ZERO?	VB /?PRG67
+	FSET?	OBJ,PLURALBIT \?CCL64
+	PRINTI	"They're"
+	JUMP	?CND62
+?CCL64:	PRINTI	"It's"
+?CND62:	PRINTI	" too heavy"
+	FIRST?	PROTAGONIST \?CND65
+	PRINTI	", considering your current load"
+?CND65:	PRINT	PERIOD-CR
+?PRG67:	RETURN	2
+?CND5:	FSET	OBJ,TOUCHBIT
+	FCLEAR	OBJ,NDESCBIT
+	IN?	PROTAGONIST,OBJ /FALSE
+	ZERO?	VB \?CND71
+	PRINTI	"[taking"
+	ICALL2	TPRINT,OBJ
+	PRINTI	" first]"
+	CRLF	
+	ICALL2	SCORE-OBJ,OBJ
+?CND71:	MOVE	OBJ,PROTAGONIST
+	RTRUE	
+
+
+	.FUNCT	IDROP
+	EQUAL?	HERE,HANGING-FROM-ROOTS \?CCL3
+	EQUAL?	PRSO,ROOTS,ROOMS \?CCL3
+	ICALL2	PERFORM,V?LEAP
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,ROOMS \?CCL7
+	PRINTR	"You're not hanging onto anything."
+?CCL7:	EQUAL?	PRSO,HANDS \?CCL9
+	EQUAL?	PRSA,V?GIVE,V?THROW,V?DROP \FALSE
+	CALL1	IMPOSSIBLES
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?THROW \?CCL14
+	EQUAL?	PRSO,EYES \?CCL14
+	ZERO?	PRSI \?CND17
+	ICALL1	V-LOOK
+	RTRUE	
+?CND17:	ICALL1	PRE-SWITCH
+	ICALL	PERFORM,V?EXAMINE,PRSI,EYES
+	RTRUE	
+?CCL14:	EQUAL?	PRSO,ME \?CCL20
+	EQUAL?	PRSA,V?PUT \?CCL20
+	FSET?	PRSI,ACTORBIT \?CCL20
+	ICALL	PERFORM,V?ENTER,PRSI
+	RTRUE	
+?CCL20:	EQUAL?	PRSI,ME \?CCL25
+	EQUAL?	PRSA,V?PUT \?CCL25
+	FSET?	PRSO,ACTORBIT \?CCL25
+	ICALL	PERFORM,V?ENTER,PRSO
+	RTRUE	
+?CCL25:	EQUAL?	PRSA,V?DROP \?CCL30
+	IN?	PRSO,WALDO /FALSE
+?CCL30:	CALL2	ULTIMATELY-IN?,PRSO
+	ZERO?	STACK \?CCL34
+	EQUAL?	PRSO,ME /?CTR36
+	FSET?	PRSO,PARTBIT \?CCL37
+?CTR36:	ICALL1	IMPOSSIBLES
+	RETURN	2
+?CCL37:	PRINTI	"That's easy for you to say since you don't even have"
+	ICALL2	TRPRINT,PRSO
+	RETURN	2
+?CCL34:	FSET?	PRSO,INTEGRALBIT \?CCL43
+	CALL1	PART-OF
+	RSTACK	
+?CCL43:	IN?	PRSO,PROTAGONIST /?CCL45
+	LOC	PRSO
+	FSET?	STACK,CONTBIT \?CCL45
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?CCL45
+	LOC	PRSO
+	CALL	DO-FIRST,STR?140,STACK
+	RSTACK	
+?CCL45:	FSET?	PRSO,WORNBIT \FALSE
+	CALL	DO-FIRST,STR?175,PRSO
+	RSTACK	
+
+
+	.FUNCT	CCOUNT,OBJ,DESCRIBED-ITEMS-ONLY,CNT,X
+	FIRST?	OBJ >X /?PRG3
+	RETURN	CNT
+?PRG3:	ZERO?	DESCRIBED-ITEMS-ONLY /?CCL7
+	FSET?	X,NDESCBIT /?CND5
+?CCL7:	FSET?	X,WORNBIT /?CND5
+	INC	'CNT
+?CND5:	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	D-ROOM,VERB-IS-LOOK,FIRST-VISIT,PIC
+	ZERO?	LIT \?CCL3
+	PRINT	TOO-DARK
+	ICALL1	GRUE-PIT-WARNING
+	RFALSE	
+?CCL3:	FSET?	HERE,TOUCHBIT \?CCL4
+	FSET?	HERE,REDESCBIT \?CND1
+?CCL4:	SET	'FIRST-VISIT,TRUE-VALUE
+?CND1:	HLIGHT	H-BOLD
+	ICALL1	SAY-HERE
+	HLIGHT	H-NORMAL
+	CRLF	
+	ZERO?	VERB-IS-LOOK \?CCL8
+	EQUAL?	VERBOSITY,2 /?CCL8
+	ZERO?	FIRST-VISIT /?CND7
+	EQUAL?	VERBOSITY,1 \?CND7
+?CCL8:	GETP	HERE,P?ICON >PIC
+	ZERO?	PIC /?CCL16
+	ICALL2	MARGINAL-PIC,PIC
+	JUMP	?CND14
+?CCL16:	PRINTI	"   "
+?CND14:	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK \?CND17
+	GETP	HERE,P?LDESC
+	PRINT	STACK
+?CND17:	CRLF	
+?CND7:	FCLEAR	HERE,REDESCBIT
+	FSET	HERE,TOUCHBIT
+	EQUAL?	HERE,CONSTRUCTION,PLAIN,FR-OFFICES /?CCL20
+	EQUAL?	HERE,OFFICES-NORTH,OFFICES-SOUTH,OFFICES-EAST /?CCL20
+	EQUAL?	HERE,OFFICES-WEST \TRUE
+?CCL20:	FSET	HERE,REDESCBIT
+	RTRUE	
+
+
+	.FUNCT	D-OBJECTS,O,STR,1ST?,AV
+	SET	'1ST?,TRUE-VALUE
+	LOC	PROTAGONIST >AV
+	FIRST?	HERE >O /?BOGUS1
+?BOGUS1:	ZERO?	O /FALSE
+?PRG4:	ZERO?	O /?REP5
+	CALL2	DESCRIBABLE?,O
+	ZERO?	STACK /?CND6
+	FSET?	O,TOUCHBIT /?CND6
+	GETP	O,P?FDESC >STR
+	ZERO?	STR /?CND6
+	PRINTI	"   "
+	PRINT	STR
+	FSET?	O,CONTBIT \?CND13
+	ADD	D-ALL?,D-PARA?
+	ICALL	D-CONTENTS,O,TRUE-VALUE,STACK
+?CND13:	CRLF	
+?CND6:	NEXT?	O >O /?PRG4
+	JUMP	?PRG4
+?REP5:	FIRST?	HERE >O /?BOGUS16
+?BOGUS16:	SET	'1ST?,TRUE-VALUE
+?PRG17:	ZERO?	O /?REP18
+	CALL2	DESCRIBABLE?,O
+	ZERO?	STACK /?CND19
+	GETP	O,P?FDESC
+	ZERO?	STACK /?CCL23
+	FSET?	O,TOUCHBIT \?CND19
+?CCL23:	GETP	O,P?DESCFCN >STR
+	ZERO?	STR /?CCL29
+	CALL	STR,M-OBJDESC >STR
+	ZERO?	STR /?CCL29
+	FSET?	O,CONTBIT \?CND32
+	EQUAL?	STR,M-FATAL /?CND32
+	ADD	D-ALL?,D-PARA?
+	ICALL	D-CONTENTS,O,TRUE-VALUE,STACK
+?CND32:	CRLF	
+	JUMP	?CND19
+?CCL29:	GETP	O,P?LDESC >STR
+	ZERO?	STR /?CND19
+	PRINTI	"   "
+	PRINT	STR
+	FSET?	O,CONTBIT \?CND37
+	ADD	D-ALL?,D-PARA?
+	ICALL	D-CONTENTS,O,TRUE-VALUE,STACK
+?CND37:	CRLF	
+?CND19:	NEXT?	O >O /?PRG17
+	JUMP	?PRG17
+?REP18:	ICALL	D-CONTENTS,HERE,FALSE-VALUE,0
+	ZERO?	AV /FALSE
+	EQUAL?	HERE,AV /FALSE
+	CALL	D-CONTENTS,AV,FALSE-VALUE,D-ALL?
+	RSTACK	
+
+
+	.FUNCT	ORDER-GRAVEL,OBJ
+	IN?	EVEN-MORE-GRAVEL,OBJ \?CND1
+	MOVE	EVEN-MORE-GRAVEL,OBJ
+?CND1:	IN?	MORE-GRAVEL,OBJ \?CND3
+	MOVE	MORE-GRAVEL,OBJ
+?CND3:	IN?	GRAVEL,OBJ \FALSE
+	MOVE	GRAVEL,OBJ
+	RTRUE	
+
+
+	.FUNCT	ORDER-FLIES,OBJ
+	IN?	LARGEST-FLY,OBJ \?CND1
+	MOVE	LARGEST-FLY,OBJ
+?CND1:	IN?	EVEN-LARGER-FLY,OBJ \?CND3
+	MOVE	EVEN-LARGER-FLY,OBJ
+?CND3:	IN?	LARGER-FLY,OBJ \?CND5
+	MOVE	LARGER-FLY,OBJ
+?CND5:	IN?	LARGE-FLY,OBJ \FALSE
+	MOVE	LARGE-FLY,OBJ
+	RTRUE	
+
+
+	.FUNCT	D-CONTENTS,OBJ,LEVEL,ALL?,F,N,1ST?,IT?,DB,START?,TWO?,PARA?
+	ASSIGNED?	'LEVEL /?CND1
+	SET	'LEVEL,-1
+?CND1:	ASSIGNED?	'ALL? /?CND3
+	SET	'ALL?,D-ALL?
+?CND3:	SET	'1ST?,TRUE-VALUE
+	ICALL2	ORDER-FLIES,OBJ
+	ICALL2	ORDER-GRAVEL,OBJ
+	EQUAL?	LEVEL,2 \?CCL7
+	SET	'LEVEL,TRUE-VALUE
+	SET	'PARA?,TRUE-VALUE
+	SET	'START?,TRUE-VALUE
+	JUMP	?CND5
+?CCL7:	BTST	ALL?,D-PARA? \?CND5
+	SET	'PARA?,TRUE-VALUE
+?CND5:	FIRST?	OBJ >N /?BOGUS9
+?BOGUS9:	ZERO?	START? \?PRG24
+	IN?	OBJ,ROOMS /?PRG24
+	FSET?	OBJ,ACTORBIT /?PRG24
+	EQUAL?	OBJ,PROTAGONIST /?PRG24
+	FSET?	OBJ,CONTBIT \FALSE
+	FSET?	OBJ,OPENBIT /?PRD20
+	FSET?	OBJ,TRANSBIT \FALSE
+?PRD20:	FSET?	OBJ,SEARCHBIT \FALSE
+	ZERO?	N /FALSE
+?PRG24:	ZERO?	N /?CCL27
+	CALL2	DESCRIBABLE?,N
+	ZERO?	STACK /?CND26
+	BTST	ALL?,D-ALL? /?CCL27
+	CALL2	SIMPLE-DESC?,N
+	ZERO?	STACK /?CND26
+?CCL27:	ZERO?	F /?CND34
+	ZERO?	1ST? /?CCL38
+	SET	'1ST?,FALSE-VALUE
+	EQUAL?	LEVEL,FALSE-VALUE,TRUE-VALUE \?CCL41
+	ZERO?	START? \?CND36
+	ZERO?	PARA? \?CCL46
+	EQUAL?	OBJ,PROTAGONIST /?CND47
+	PRINTI	"   "
+?CND47:	SET	'PARA?,TRUE-VALUE
+	JUMP	?CND44
+?CCL46:	EQUAL?	LEVEL,TRUE-VALUE \?CND44
+	PRINTC	32
+?CND44:	EQUAL?	OBJ,HERE \?CCL52
+	PRINT	YOU-SEE
+	JUMP	?CND36
+?CCL52:	EQUAL?	OBJ,PROTAGONIST \?CCL54
+	EQUAL?	D-BIT,WORNBIT \?CCL57
+	PRINTI	" You are wearing"
+	JUMP	?CND36
+?CCL57:	PRINTI	"You are carrying"
+	JUMP	?CND36
+?CCL54:	EQUAL?	OBJ,YACHT \?CCL59
+	PRINTI	"Sitting on the deck of the royal yacht"
+	CALL	CCOUNT,OBJ,TRUE-VALUE
+	EQUAL?	STACK,1 \?CCL62
+	FIRST?	OBJ /?BOGUS65
+?BOGUS65:	FSET?	STACK,PLURALBIT /?CCL62
+	PRINTI	" is"
+	JUMP	?CND36
+?CCL62:	PRINTI	" are"
+	JUMP	?CND36
+?CCL59:	FSET?	OBJ,SURFACEBIT \?CCL67
+	PRINTI	"Sitting on"
+	ICALL2	TPRINT,OBJ
+	CALL	CCOUNT,OBJ,TRUE-VALUE
+	EQUAL?	STACK,1 \?CCL70
+	FIRST?	OBJ /?BOGUS73
+?BOGUS73:	FSET?	STACK,PLURALBIT /?CCL70
+	PRINTI	" is"
+	JUMP	?CND36
+?CCL70:	PRINTI	" are"
+	JUMP	?CND36
+?CCL67:	PRINT	IT-SEEMS-THAT
+	ICALL2	TPRINT,OBJ
+	FSET?	OBJ,ACTORBIT \?CCL76
+	PRINTI	" has"
+	JUMP	?CND36
+?CCL76:	PRINTI	" contains"
+	JUMP	?CND36
+?CCL41:	EQUAL?	LEVEL,-1 /?CND36
+	PRINT	LEVEL
+	JUMP	?CND36
+?CCL38:	ZERO?	N /?CCL79
+	PRINTC	44
+	JUMP	?CND36
+?CCL79:	PRINTI	" and"
+?CND36:	ICALL2	APRINT,F
+	FSET?	F,ONBIT \?CCL82
+	PRINTI	" (providing light)"
+	JUMP	?CND80
+?CCL82:	EQUAL?	F,LARGE-VIAL \?CCL84
+	GRTR?	LARGE-VIAL-GLOOPS,0 \?CCL84
+	ICALL	HOLDING-GLOOPS,LARGE-VIAL-GLOOPS,LARGE-VIAL-IMPRECISE
+	JUMP	?CND80
+?CCL84:	EQUAL?	F,SMALL-VIAL \?CND80
+	GRTR?	SMALL-VIAL-GLOOPS,0 \?CND80
+	ICALL	HOLDING-GLOOPS,SMALL-VIAL-GLOOPS,SMALL-VIAL-IMPRECISE
+?CND80:	ZERO?	IT? \?CCL92
+	ZERO?	TWO? \?CCL92
+	SET	'IT?,F
+	JUMP	?CND34
+?CCL92:	SET	'TWO?,TRUE-VALUE
+	SET	'IT?,FALSE-VALUE
+?CND34:	SET	'F,N
+?CND26:	ZERO?	N /?CND95
+	NEXT?	N >N /?CND95
+?CND95:	ZERO?	F \?PRG24
+	ZERO?	N \?PRG24
+	ZERO?	IT? /?CND102
+	ZERO?	TWO? \?CND102
+	ICALL2	THIS-IS-IT,IT?
+?CND102:	ZERO?	1ST? /?CND106
+	ZERO?	START? /?CND106
+	PRINTI	" nothing"
+	RFALSE	
+?CND106:	ZERO?	1ST? \?REP25
+	EQUAL?	LEVEL,FALSE-VALUE,TRUE-VALUE \?REP25
+	EQUAL?	OBJ,HERE \?CND114
+	PRINTI	" here"
+?CND114:	PRINTC	46
+?REP25:	EQUAL?	LEVEL,FALSE-VALUE,TRUE-VALUE \?CND116
+	FIRST?	OBJ >F /?PRG119
+?PRG119:	ZERO?	F /?CND116
+	FSET?	F,CONTBIT \?CND121
+	CALL	DESCRIBABLE?,F,TRUE-VALUE
+	ZERO?	STACK /?CND121
+	BTST	ALL?,D-ALL? /?CCL124
+	CALL2	SIMPLE-DESC?,F
+	ZERO?	STACK /?CND121
+?CCL124:	SET	'DB,D-BIT
+	SET	'D-BIT,FALSE-VALUE
+	ZERO?	PARA? /?CCL134
+	PUSH	3
+	JUMP	?CND132
+?CCL134:	PUSH	D-ALL?
+?CND132:	CALL	D-CONTENTS,F,TRUE-VALUE,STACK
+	ZERO?	STACK /?CND130
+	SET	'1ST?,FALSE-VALUE
+	SET	'PARA?,TRUE-VALUE
+?CND130:	SET	'D-BIT,DB
+?CND121:	NEXT?	F >F /?PRG119
+	JUMP	?PRG119
+?CND116:	ZERO?	1ST? \?CND136
+	EQUAL?	LEVEL,FALSE-VALUE,TRUE-VALUE \?CND136
+	LOC	WINNER
+	EQUAL?	OBJ,HERE,STACK \?CND136
+	CRLF	
+?CND136:	ZERO?	1ST? /TRUE
+	RFALSE	
+
+
+	.FUNCT	DESCRIBABLE?,OBJ,CONT?
+	FSET?	OBJ,INVISIBLE /FALSE
+	EQUAL?	OBJ,WINNER /FALSE
+	LOC	WINNER
+	EQUAL?	OBJ,STACK \?CCL7
+	LOC	WINNER
+	EQUAL?	HERE,STACK \FALSE
+?CCL7:	ZERO?	CONT? \?CCL11
+	FSET?	OBJ,NDESCBIT /FALSE
+?CCL11:	ZERO?	D-BIT /TRUE
+	GRTR?	D-BIT,0 \?CCL18
+	FSET?	OBJ,D-BIT /TRUE
+	RFALSE	
+?CCL18:	SUB	0,D-BIT
+	FSET?	OBJ,STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	SIMPLE-DESC?,OBJ,STR
+	GETP	OBJ,P?FDESC
+	ZERO?	STACK /?CCL3
+	FSET?	OBJ,TOUCHBIT \FALSE
+?CCL3:	GETP	OBJ,P?DESCFCN >STR
+	ZERO?	STR /?CCL7
+	CALL	STR,M-OBJDESC?
+	ZERO?	STACK \FALSE
+?CCL7:	GETP	OBJ,P?LDESC
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	D-VEHICLE
+	PRINTI	"Other than yourself, you can see"
+	CALL1	D-NOTHING
+	ZERO?	STACK \TRUE
+	FSET?	PRSO,INBIT \?CCL5
+	PRINTI	" in"
+	JUMP	?CND3
+?CCL5:	PRINTI	" on"
+?CND3:	ICALL2	TRPRINT,PRSO
+	RTRUE	
+
+
+	.FUNCT	D-NOTHING
+	CALL	D-CONTENTS,PRSO,2
+	ZERO?	STACK /FALSE
+	IN?	PROTAGONIST,PRSO /TRUE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	HOLDING-GLOOPS,NUM,IMPRECISE
+	PRINTI	" (holding "
+	ZERO?	IMPRECISE /?CND1
+	PRINTI	"around "
+?CND1:	PRINTN	NUM
+	PRINTI	" gloop"
+	EQUAL?	NUM,1 /?CND3
+	PRINTC	115
+?CND3:	PRINTI	" of water)"
+	RTRUE	
+
+
+	.FUNCT	GOTO,NEW-LOC,OHERE,OLIT,BORDER,X
+	SET	'JUMP-X,99
+	SET	'JUMP-Y,99
+	SET	'FINGER-ON-STRAW,FALSE-VALUE
+	SET	'ELIXIR-TRAPPED,FALSE-VALUE
+	IN?	JESTER,HERE \?CND1
+	ICALL1	REMOVE-J
+?CND1:	CALL2	LIT?,HERE >OLIT
+	SET	'OHERE,HERE
+	IN?	PROTAGONIST,CAMEL \?CCL5
+	FSET?	CAMEL,ANIMATEDBIT \?CCL5
+	FCLEAR	CAMEL,TOUCHBIT
+	MOVE	CAMEL,NEW-LOC
+	JUMP	?CND3
+?CCL5:	MOVE	PROTAGONIST,NEW-LOC
+?CND3:	IN?	NEW-LOC,ROOMS \?CCL10
+	SET	'HERE,NEW-LOC
+	JUMP	?CND8
+?CCL10:	LOC	NEW-LOC >HERE
+?CND8:	SET	'COMPASS-CHANGED,TRUE-VALUE
+	CALL2	LIT?,HERE >LIT
+	CALL1	SET-BORDER >BORDER
+	EQUAL?	BORDER,CURRENT-BORDER /?CND11
+	SET	'CURRENT-BORDER,BORDER
+	ZERO?	BORDER-ON /?CND11
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /?CND11
+	ICALL1	CLEAR-BORDER
+	ICALL	INIT-SL-WITH-SPLIT,TEXT-WINDOW-PIC-LOC,TRUE-VALUE
+?CND11:	ZERO?	LIT \?CCL19
+	ICALL1	RETURN-FROM-MAP
+	ZERO?	OLIT /?CCL22
+	PRINTI	"You have moved into a dark place."
+	ICALL1	GRUE-PIT-WARNING
+	JUMP	?CND17
+?CCL22:	LOC	PROTAGONIST
+	EQUAL?	STACK,DB,HOLD,PIT-BOMB-LOC /?CCL24
+	ZERO?	TIME-STOPPED \?CCL24
+	RANDOM	100
+	LESS?	75,STACK /?CCL24
+	ICALL1	DARK-DEATH
+	JUMP	?CND17
+?CCL24:	PRINT	TOO-DARK
+	ICALL1	GRUE-PIT-WARNING
+	JUMP	?CND17
+?CCL19:	GETP	HERE,P?ACTION
+	ICALL	STACK,M-ENTER
+	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC \?CND28
+	FSET?	HERE,TOUCHBIT /?CND28
+	ICALL1	RETURN-FROM-MAP
+?CND28:	EQUAL?	CURRENT-SPLIT,MAP-TOP-LEFT-LOC /?CND17
+	CALL1	D-ROOM
+	ZERO?	STACK /?CND17
+	ZERO?	VERBOSITY /?CND17
+	ICALL1	D-OBJECTS
+?CND17:	CALL	GLOBAL-IN?,WATER,HERE
+	ZERO?	STACK /?CND37
+	CALL1	FIND-WATER >X
+	ZERO?	X /?CND37
+	PUTP	WATER,P?OWNER,X
+?CND37:	ICALL2	SCORE-OBJ,HERE
+	RTRUE	
+
+
+	.FUNCT	JIGS-UP,DESC
+	PRINT	DESC
+	CRLF	
+	CRLF	
+	PRINTI	"      ****  You have died  ****"
+	CRLF	
+	CALL1	FINISH
+	RSTACK	
+
+
+	.FUNCT	ACCESSIBLE?,OBJ,L
+	ZERO?	OBJ /FALSE
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	ZERO?	L /FALSE
+	EQUAL?	OBJ,PSEUDO-OBJECT \?CCL9
+	EQUAL?	LAST-PSEUDO-LOC,HERE /TRUE
+	RFALSE	
+?CCL9:	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	EQUAL?	L,LOCAL-GLOBALS \?CCL16
+	CALL	GLOBAL-IN?,OBJ,HERE
+	ZERO?	STACK \TRUE
+?CCL16:	CALL2	META-LOC,OBJ
+	EQUAL?	STACK,HERE \FALSE
+	EQUAL?	L,WINNER,HERE,PROTAGONIST /TRUE
+	FSET?	L,OPENBIT /?PRD26
+	IN?	PROTAGONIST,L \FALSE
+?PRD26:	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	UNTOUCHABLE?,OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,PARCHMENT \?CCL5
+	ZERO?	UNDER-TABLE \TRUE
+?CCL5:	EQUAL?	OBJ,LANTERN \?CCL9
+	FSET?	LANTERN,TRYTAKEBIT /TRUE
+?CCL9:	CALL	ULTIMATELY-IN?,OBJ,SNAKE-PIT
+	ZERO?	STACK \TRUE
+	CALL	ULTIMATELY-IN?,OBJ,YACHT
+	ZERO?	STACK /?CCL15
+	IN?	PROTAGONIST,HERE /TRUE
+?CCL15:	IN?	PROTAGONIST,HERE /FALSE
+	EQUAL?	OBJ,YACHT,LAKE-FLATHEAD,WEST-DOCK /?PRD23
+	EQUAL?	OBJ,EAST-DOCK,NORTH-DOCK,SOUTH-DOCK \?CCL21
+?PRD23:	LOC	PROTAGONIST
+	EQUAL?	STACK,YACHT,WEST-DOCK,EAST-DOCK /FALSE
+	LOC	PROTAGONIST
+	EQUAL?	STACK,NORTH-DOCK,SOUTH-DOCK /FALSE
+?CCL21:	EQUAL?	OBJ,WALDO \?CCL29
+	ZERO?	HAND-IN-WALDO /?CCL29
+	EQUAL?	PRSA,V?CLOSE,V?OPEN /FALSE
+?CCL29:	EQUAL?	OBJ,MEGABOZ-TRAP-DOOR \?CCL34
+	IN?	PROTAGONIST,LADDER /FALSE
+?CCL34:	LOC	PROTAGONIST
+	CALL	ULTIMATELY-IN?,OBJ,STACK
+	ZERO?	STACK \FALSE
+	LOC	PROTAGONIST
+	EQUAL?	OBJ,STACK /FALSE
+	IN?	OBJ,GLOBAL-OBJECTS /FALSE
+	RTRUE	
+
+
+	.FUNCT	OTHER-SIDE,DOBJ,P,TEE
+?PRG1:	NEXTP	HERE,P >P
+	LESS?	P,LOW-DIRECTION /FALSE
+	GETPT	HERE,P >TEE
+	PTSIZE	TEE
+	EQUAL?	STACK,DEXIT \?PRG1
+	GET	TEE,DEXITOBJ
+	EQUAL?	STACK,DOBJ \?PRG1
+	RETURN	P
+
+
+	.FUNCT	HELD?,X,Y
+	CALL	ULTIMATELY-IN?,X,Y
+	RSTACK	
+
+
+	.FUNCT	ULTIMATELY-IN?,OBJ,CONT
+	ZERO?	CONT \?CND1
+	SET	'CONT,PROTAGONIST
+?CND1:	ZERO?	OBJ /FALSE
+	EQUAL?	PRSA,V?EMPTY \?CCL7
+	EQUAL?	OBJ,WATER \?CCL7
+	CALL	NOUN-USED?,WATER,W?GLOOP,W?GLOOPS
+	ZERO?	STACK /?CCL7
+	CALL2	ULTIMATELY-IN?,LARGE-VIAL
+	ZERO?	STACK /?PRD13
+	GRTR?	LARGE-VIAL-GLOOPS,0 /TRUE
+?PRD13:	CALL2	ULTIMATELY-IN?,SMALL-VIAL
+	ZERO?	STACK /?CCL7
+	GRTR?	SMALL-VIAL-GLOOPS,0 /TRUE
+?CCL7:	IN?	OBJ,WALDO \?CCL19
+	ZERO?	HAND-IN-WALDO /?CCL19
+	EQUAL?	PRSA,V?DROP /TRUE
+?CCL19:	ZERO?	HAND-IN-WALDO /?CCL24
+	EQUAL?	OBJ,WALDO \?CCL24
+	EQUAL?	CONT,PROTAGONIST /TRUE
+?CCL24:	EQUAL?	OBJ,WATER \?CCL29
+	EQUAL?	PRSA,V?POUR \?CCL29
+	CALL2	ULTIMATELY-IN?,LARGE-VIAL-WATER
+	ZERO?	STACK \TRUE
+	CALL2	ULTIMATELY-IN?,SMALL-VIAL-WATER
+	ZERO?	STACK \TRUE
+?CCL29:	IN?	OBJ,CONT /TRUE
+	IN?	OBJ,ROOMS /FALSE
+	LOC	OBJ
+	CALL	ULTIMATELY-IN?,STACK,CONT
+	RSTACK	
+
+
+	.FUNCT	SEE-INSIDE?,OBJ
+	ZERO?	OBJ /FALSE
+	FSET?	OBJ,INVISIBLE /FALSE
+	FSET?	OBJ,TRANSBIT /TRUE
+	FSET?	OBJ,OPENBIT /TRUE
+	FSET?	GOGGLES,WORNBIT \FALSE
+	EQUAL?	WINNER,PROTAGONIST /TRUE
+	RFALSE	
+
+
+	.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	FIND-IN,WHERE,FLAG-IN-QUESTION,STRING,OBJ,RECURSIVE-OBJ
+	FIRST?	WHERE >OBJ /?BOGUS1
+?BOGUS1:	ZERO?	OBJ /FALSE
+?PRG4:	FSET?	OBJ,FLAG-IN-QUESTION \?CCL8
+	FSET?	OBJ,INVISIBLE /?CCL8
+	ZERO?	STRING \?CCL12
+	RETURN	OBJ
+?CCL12:	PRINTC	91
+	PRINT	STRING
+	ICALL2	TPRINT,OBJ
+	PRINTC	93
+	CRLF	
+	RETURN	OBJ
+?CCL8:	CALL	FIND-IN,OBJ,FLAG-IN-QUESTION,STRING >RECURSIVE-OBJ
+	ZERO?	RECURSIVE-OBJ /?CCL14
+	RETURN	RECURSIVE-OBJ
+?CCL14:	NEXT?	OBJ >OBJ /?PRG4
+	RFALSE	
+
+
+	.FUNCT	WITHIN?,TL-X,TL-Y,BR-X,BR-Y
+	LESS?	MOUSE-LOC-X,TL-X /FALSE
+	GRTR?	MOUSE-LOC-X,BR-X /FALSE
+	LESS?	MOUSE-LOC-Y,TL-Y /FALSE
+	GRTR?	MOUSE-LOC-Y,BR-Y /FALSE
+	RTRUE	
+
+
+	.FUNCT	NOW-DARK?
+	ZERO?	LIT /TRUE
+	CALL2	LIT?,HERE
+	ZERO?	STACK \TRUE
+	SET	'LIT,FALSE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	PRINTI	"   It is now too dark to see."
+	IN?	JESTER,HERE \?CND5
+	ICALL1	REMOVE-J
+	PRINTR	" A sound of jingling bells becomes increasingly distant before fading entirely."
+?CND5:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	NOW-LIT?
+	ZERO?	LIT \FALSE
+	CALL2	LIT?,HERE
+	ZERO?	STACK /FALSE
+	SET	'LIT,TRUE-VALUE
+	SET	'COMPASS-CHANGED,TRUE-VALUE
+	CRLF	
+	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	LOC-CLOSED,OBJ,VB,L
+	ASSIGNED?	'VB /?CND1
+	SET	'VB,TRUE-VALUE
+?CND1:	LOC	OBJ >L
+	FSET?	L,CONTBIT \FALSE
+	FSET?	L,OPENBIT /FALSE
+	FSET?	OBJ,TAKEBIT \FALSE
+	IN?	PROTAGONIST,L /FALSE
+	ZERO?	VB /TRUE
+	ICALL	DO-FIRST,STR?140,L
+	RTRUE	
+
+
+	.FUNCT	DO-WALK,DIR
+	SET	'P-WALK-DIR,DIR
+	ICALL	PERFORM,V?WALK,DIR
+	RTRUE	
+
+
+	.FUNCT	STOP
+	SET	'P-CONT,-1
+	RETURN	2
+
+
+	.FUNCT	ROB,WHO,WHERE,EXCLUDE-WORN-ITEM,TAKER,TOOK-PIGEON,N,X
+	FIRST?	WHO >X /?PRG2
+?PRG2:	ZERO?	X /?REP3
+	NEXT?	X >N /?BOGUS6
+?BOGUS6:	ZERO?	EXCLUDE-WORN-ITEM /?CCL9
+	FSET?	X,WORNBIT /?CND7
+?CCL9:	ZERO?	WHERE /?CCL13
+	FCLEAR	X,WORNBIT
+	ZERO?	TAKER \?CTR15
+	IN?	WHERE,ROOMS \?CCL16
+	CALL	FIND-IN,WHERE,BLACKBIT >TAKER
+	ZERO?	TAKER \?CTR15
+	CALL	FIND-IN,WHERE,WHITEBIT >TAKER
+	ZERO?	TAKER /?CCL16
+?CTR15:	EQUAL?	X,PIGEON \?CND23
+	SET	'TOOK-PIGEON,TRUE-VALUE
+?CND23:	MOVE	X,TAKER
+	JUMP	?CND7
+?CCL16:	CALL	SPECIAL-DROP,X,TRUE-VALUE
+	ZERO?	STACK \?CND7
+	MOVE	X,WHERE
+	JUMP	?CND7
+?CCL13:	FCLEAR	X,WORNBIT
+	REMOVE	X
+?CND7:	SET	'X,N
+	JUMP	?PRG2
+?REP3:	ZERO?	TAKER /TRUE
+	CALL2	VISIBLE?,TAKER
+	ZERO?	STACK /?CCL30
+	PRINTI	" The "
+	ICALL2	DPRINT,TAKER
+	PRINTI	" is only too happy to pick it all up"
+	ZERO?	TOOK-PIGEON /?CCL33
+	CALL2	META-LOC,PERCH
+	EQUAL?	HERE,STACK /?CCL33
+	PRINTI	", including the pigeon."
+	ICALL	PIECE-TAKES-PIGEON,TAKER,FALSE-VALUE
+	RTRUE	
+?CCL33:	PRINTC	46
+	RTRUE	
+?CCL30:	ZERO?	TOOK-PIGEON /TRUE
+	ICALL2	MOVE-TO-PERCH,TAKER
+	RTRUE	
+
+
+	.FUNCT	HACK-HACK,STR
+	PRINT	STR
+	ICALL1	TPRINT-PRSO
+	CALL1	HO-HUM
+	RSTACK	
+
+
+	.FUNCT	HO-HUM
+	CALL2	PICK-ONE,HO-HUM-LIST
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	YUKS
+	CALL2	PICK-ONE,YUK-LIST
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	IMPOSSIBLES
+	CALL2	PICK-ONE,IMPOSSIBLE-LIST
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WASTES
+	CALL2	PICK-ONE,WASTE-LIST
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+	.ENDSEG
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..2b6348e
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,5346 @@
+"VERBS for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT 0>
+
+<DEFAULTS-DEFINED INIT-HINT-SCREEN>
+
+;"subtitle game commands"
+
+<GLOBAL VERBOSITY 1> ;"0 = superbrief, 1 = brief, 2 = verbose"
+
+<ROUTINE V-VERBOSE ()
+	 <SETG VERBOSITY 2>
+	 <TELL "Maximum verbosity." CR CR>
+	 <V-LOOK>>
+
+<ROUTINE V-BRIEF ()
+	 <SETG VERBOSITY 1>
+	 <TELL "Brief descriptions." CR>>
+
+<ROUTINE V-SUPERBRIEF ()
+	 <SETG VERBOSITY 0>
+	 <TELL "Superbrief descriptions." CR>>
+
+<ROUTINE NOT-IN-DEMO ()
+	<TELL
+"[Sorry, but that command is not available in this demonstration version.]"CR>>
+
+<ROUTINE V-SAVE ("AUX" X WRD COLOR-SAME)
+	 <COND (<SAVE-UNDO-CHECK>
+		<RTRUE>)>
+	 <COND (,DEMO-VERSION?
+		<NOT-IN-DEMO>
+		<RFATAL>)>
+	 <PUTB ,G-INBUF 2 0>
+	 <SETG P-CONT <>> ;"flush anything on input line after SAVE"
+	 <SET X <SAVE>>
+	 <COND (<ZERO? .X>
+		<SETG P-CONT -1>
+	        <TELL "SAVE failed!" CR>
+		<RFATAL>)
+	       (<EQUAL? .X 1>
+		<RESTORE-ORPHAN>
+		<TELL "SAVE completed." CR>
+		<RFATAL>)>
+	 <SET WRD <WINGET ,S-TEXT ,WCOLOR>>
+	 <COND (<AND <EQUAL? <SHIFT .WRD -8> ,FG-COLOR>
+		     <EQUAL? <BAND .WRD 255> ,BG-COLOR>>
+		<SET COLOR-SAME T>)
+	       (T
+		<SET COLOR-SAME <>>)>
+	 <COLOR ,FG-COLOR ,BG-COLOR>
+	 <SETG OLD-HERE <>>
+	 <SETUP-SCREEN>
+	 <V-$REFRESH>
+	 <RESTORE-ORPHAN>
+	 <TELL "Okay, restored." CR CR>
+	 <SETG P-CONT -1> ;<RFATAL>
+	 <V-LOOK>>
+
+<ROUTINE SAVE-UNDO-CHECK ()
+	 <COND (<EQUAL? ,HERE ,ROOM-OF-THREE-DOORS>
+		<TELL
+"[You can't SAVE or UNDO here. You'll have to solve the puzzle!]" CR>)>>
+
+<ROUTINE RESTORE-ORPHAN ()
+	 <COND (<AND <IN? ,JESTER ,HERE>
+		     ,LIT
+		     <OR <AND <EQUAL? ,HERE ,ENTRANCE-HALL>
+			      <NOT <FSET? ,PORTCULLIS ,OPENBIT>>>
+			 <AND <EQUAL? ,HERE ,SOLAR>
+			      <IN? ,EAST-KEY ,JESTER>>
+			 <EQUAL? ,HERE ,OUBLIETTE>
+			 <AND <EQUAL? ,HERE ,CAVE-IN>
+			      <IN? ,PIT-BOMB ,LOCAL-GLOBALS>>
+			 <AND <EQUAL? ,HERE ,TAX-OFFICE>
+			      <IN? ,ZORKMID-COIN ,LOCAL-GLOBALS>>
+			 <AND <EQUAL? ,HERE ,STREAM>
+			      <FSET? ,DIPLOMA ,TRYTAKEBIT>>>>
+		<SETUP-ORPHAN "answer">)>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (,DEMO-VERSION?
+		<NOT-IN-DEMO>
+		<RFATAL>)>
+	 <COND (<NOT <RESTORE>>
+		<TELL ,FAILED>)>>
+
+<ROUTINE V-UNDO ("AUX" X)
+	<SETG OLD-HERE <>>
+	<SETG OLD-REGION <>>
+	<COND (<NOT <SAVE-UNDO-CHECK>>
+	       <SET X <IRESTORE>>
+	       <COND (<EQUAL? .X -1>
+		      <TELL "UNDO is unavailable on your computer system." CR>)
+		     (T
+		      <TELL ,FAILED>)>)>>
+
+<ROUTINE V-SCRIPT ()
+	 <COND (,DEMO-VERSION?
+		<NOT-IN-DEMO>
+		<RFATAL>)>
+	 <TELL "[Transcript on.]" CR>
+	 <DIROUT ,D-PRINTER-ON>
+	 <CORP-NOTICE "begins">	 
+	 <RTRUE>>
+
+<ROUTINE V-UNSCRIPT ()
+	 <COND (,DEMO-VERSION?
+		<NOT-IN-DEMO>
+		<RFATAL>)>
+	 <CORP-NOTICE "ends">
+	 <DIROUT ,D-PRINTER-OFF>
+	 <TELL "[Transcript off.]" CR>
+	 <DIROUT ,D-SCREEN-OFF>
+	 <CRLF> ;"to transcript only"
+	 <DIROUT ,D-SCREEN-ON>
+	 <RTRUE>>
+
+<ROUTINE CORP-NOTICE (STRING)
+	 <DIROUT ,D-SCREEN-OFF>
+	 <TELL
+"Here " .STRING " a transcript of interaction with" ;" ZORK ZERO." CR>
+	 <V-VERSION>
+	 <DIROUT ,D-SCREEN-ON>
+	 <RTRUE>>
+
+<GLOBAL COLOR-NOTE <>>
+
+<GLOBAL FG-COLOR 1>
+
+<GLOBAL BG-COLOR 1>
+
+<ROUTINE V-COLOR ("AUX" (DEFAULT <>))
+	 <COND (<NOT ,COLOR-NOTE>
+		<SETG COLOR-NOTE T>
+		<TELL
+"Aesthetically, we recommend not changing the standard setting, which
+is black text on a white background. ">
+		<COND (<AND <EQUAL? <LOWCORE INTID> ,MACINTOSH>
+			    <MAC-II?>>
+		       <TELL
+"Also, if your Mac II displays only 16 colors, you probably won't get
+the color you ask for. ">)>
+		<TELL "Do you still want to go ahead?" CR "(Y or N) >">
+		<COND (<NOT <Y?>>
+		       <RTRUE>)>)>
+	 <CRLF>
+	 <REPEAT ()
+	     <DO-COLOR>
+	     <TELL
+"You should now get " <GET ,COLOR-TABLE ,FG-COLOR> " text on a "
+<GET ,COLOR-TABLE ,BG-COLOR> " background. Is that what you want?|
+(Y or N) >">
+	     <COND (<Y?>
+		    <RETURN>)>
+	     <COND (<AND <EQUAL? <LOWCORE INTID> ,MACINTOSH>
+			 <NOT <MAC-II?>>>
+		    <COND (<EQUAL? ,BG-COLOR 2>
+			   <SETG BG-COLOR 9>
+			   <SETG FG-COLOR 2>)
+			  (T
+			   <SETG BG-COLOR 2>
+			   <SETG FG-COLOR 9>)>
+		    <RETURN>)>
+	     <TELL CR
+"Do you want to pick again, or would you like to just go back to the
+standard colors? (Type Y to pick again) >">
+	     <COND (<Y?>
+		    <CRLF>)
+		   (T
+		    <SET DEFAULT T>
+		    <RETURN>)>>
+	 <COND (.DEFAULT
+		<COLOR 1 1>)
+	       (T
+		<COLOR ,FG-COLOR ,BG-COLOR>)>
+	 <V-$REFRESH>>
+
+<ROUTINE DO-COLOR ()
+	 <COND (<AND <EQUAL? <LOWCORE INTID> ,MACINTOSH>
+		     <NOT <MAC-II?>>> ;"b&w Mac"
+		<COND (<EQUAL? ,BG-COLOR 2>
+		       <SETG BG-COLOR 9>
+		       <SETG FG-COLOR 2>)
+		      (T
+		       <SETG BG-COLOR 2>
+		       <SETG FG-COLOR 9>)>)
+	       (T
+		<SETG FG-COLOR <PICK-COLOR ,FG-COLOR "text" T>>
+		<SETG BG-COLOR <PICK-COLOR ,BG-COLOR "background">>)>>
+
+<ROUTINE PICK-COLOR (WHICH STRING "OPTIONAL" (SETTING-FG <>) "AUX" CHAR)
+	 <TELL
+"The current " .STRING " color is " <GET ,COLOR-TABLE .WHICH> ,PERIOD-CR>
+	 <FONT 4>
+	 <TELL
+"   1 --> WHITE   4 --> GREEN" CR
+"   2 --> BLACK   5 --> YELLOW" CR
+"   3 --> RED     6 --> BLUE" CR>
+	 <FONT 1>
+	 <TELL
+"Type a number to select the " .STRING " color you want. >">
+	 <REPEAT ()
+		 <COND (,DEMO-VERSION?
+			<SET CHAR <INPUT-DEMO 1>>)
+		       (T
+			<SET CHAR <INPUT 1>>)>
+		 <SET CHAR <- .CHAR 48>> ;"convert from ASCII"
+		 <COND (<EQUAL? .CHAR 1> ;"white is really 9, not 1"
+			<SET CHAR 9>)>
+		 <COND (<EQUAL? .CHAR 2 3 4 5 6 9>
+			<COND (<AND <NOT .SETTING-FG>
+				    <EQUAL? .CHAR ,FG-COLOR>>
+			       <TELL CR
+"You can't make the background the same
+color as the text! Pick another color. >">)
+			      (T
+			       <RETURN>)>)
+		       (T
+			<TELL CR ,TYPE-A-NUMBER "6. >">)>>
+	 <CRLF> <CRLF>
+	 <RETURN .CHAR>>
+
+<CONSTANT COLOR-TABLE
+	  <TABLE ;0 "no change"
+		 ;1 "the default color"
+		 ;2 "black"
+		 ;3 "red"
+		 ;4 "green"
+		 ;5 "yellow"
+		 ;6 "blue"
+		 ;7 "magenta"
+		 ;8 "cyan"
+		 ;9 "white">>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT STARTUP>
+
+<ROUTINE V-CREDITS ()
+	 <CENTER-1 "Z O R K   Z E R O" T>
+	 <CENTER-1 "The Revenge of Megaboz" T>
+	 <CRLF>
+	 <CENTER-1 "designed and written by" T>
+	 <CENTER-1 "Steve Meretzky">
+	 <CRLF>
+	 <CENTER-1 "based on a concept by" T>
+	 <CENTER-2 "Tim Anderson" "Marc Blank">
+	 <CENTER-2 "Dave Lebling" "Steve Meretzky">
+	 <CRLF>
+	 <CENTER-1 "original graphics designed for the Amiga by" T>
+	 <CENTER-1 "James Shook">
+	 <CRLF>
+	 <CENTER-1 "graphical translations" T>
+	 <CENTER-3 "Tanya Allan" "Andy Briggs" "Denise Audette">
+	 <CENTER-2 "Joy Pulver" "Charlie Voner">
+	 <CRLF>
+	 <CENTER-1 "design and implementation of InfoParser Mark Two" T>
+	 <CENTER-2 "Tim Anderson" "Stu Galley">
+	 <CRLF>
+	 <CENTER-1 "design and implementation of XZIP development system" T>
+	 <CENTER-2 "Tim Anderson" "Dave Lebling">
+	 <CRLF>
+	 <CENTER-1 "interpreter implementation" T>
+	 <CENTER-1 "Macintosh:  Duncan Blanchard">
+	 <CENTER-1 "Apple II:  Jon Arnold">
+	 <CENTER-1 "IBM: Scott Fray">
+	 <CENTER-1 "Amiga: Clarence Din">
+	 <CRLF>
+	 <CENTER-1 "testing" T>
+	 <CENTER-3 "Kurt Boutin" "Gary Brennan" "Amy Briggs">
+	 <CENTER-3 "Liz Cyr-Jones" "Craig Fields" "Jacob Galley">
+	 <CENTER-3 "Adam Glass" "Tyler Gore" "Matt Hillman">
+	 <CENTER-3 "Shaun Kelly" "Adam Levesque" "Patti Pizer">
+	 <CENTER-2 "Joe Prosser" "Steve Watkins">
+	 <CRLF>
+	 <CENTER-1 "package design" T>
+	 <CENTER-2 "Carl Genatassio" "Elizabeth Langosy">
+	 <CRLF>
+	 <CENTER-1 "calendar design" T>
+	 <CENTER-2 "Amy Briggs" "Elizabeth Langosy">
+	 <CENTER-1 "Steve Meretzky">
+	 <CRLF>
+	 <CENTER-1 "calendar art" T>
+	 <CENTER-1 "Ed Parker">>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<ROUTINE V-DIAGNOSE ()
+	 <COND (<G? ,DESERT-DEATH 0>
+		<TELL "You're ">
+		<COND (<G? ,DESERT-DEATH 4>
+		       <TELL "about to pass out">)
+		      (<G? ,DESERT-DEATH 2>
+		       <TELL "dangerously close to passing out">)
+		      (T
+		       <TELL "feeling a bit faint">)>
+		<TELL " from the heat." CR>)
+	       (,ALLIGATOR
+		<TELL "You're a perfectly healthy alligator." CR>)
+	       (,TURNED-INTO
+		<COND (<EQUAL? ,TURNED-INTO ,VIOLIN>
+		       <TELL
+"You're fit as a fiddle. In fact, you ARE a fiddle." CR>)
+		      (T
+		       <TELL
+"You are" A ,TURNED-INTO ". Other details of health pale in comparison." CR>)>)
+	       (<FSET? ,CLOWN-NOSE ,WORNBIT>
+		<TELL
+"You're having a bit of trouble breathing, thanks to the " D ,CLOWN-NOSE
+" on your nose." CR>)
+	       (<G? ,HUNGER-COUNT 0>
+		<TELL "You feel ">
+		<COND (<EQUAL? ,HUNGER-COUNT 2>
+		       <TELL "very ">)
+		      (<EQUAL? ,HUNGER-COUNT 3>
+		       <TELL "incredibly ">)>
+		<TELL "hungry." CR>)
+	       (T
+		<TELL "You're as fit as a fiddle." CR>)>>	 
+
+<ROUTINE V-INVENTORY ()
+	 <SETG D-BIT <- ,WORNBIT>>
+	 <COND (<NOT <D-CONTENTS ,WINNER <> <+ ,D-ALL? ,D-PARA?>>>
+		<COND (,TURNED-INTO
+		       <TELL "You are carrying nothing.">)
+		      (T
+		       <TELL "You are empty-">
+		       <COND (,ALLIGATOR
+			      <TELL "claw">)
+			     (T
+			      <TELL "hand">)>
+		       <TELL "ed.">)>)>
+	 <SETG D-BIT ,WORNBIT>
+	 <D-CONTENTS ,WINNER <> <+ ,D-ALL? ,D-PARA?>>
+	 <SETG D-BIT <>>
+	 <COND (<AND <FSET? ,GLOVE ,WORNBIT>
+		     <NOT ,GLOVE-COMMENT>>
+		<SETG GLOVE-COMMENT T>
+		<TELL
+" [It's probably none of my business, but when you wear that single glove you
+resemble singer Michael Flathead, formerly of the Flathead Five.]">)>
+	 <CRLF>>
+
+<GLOBAL GLOVE-COMMENT <>>
+
+<GLOBAL BORDER-ON T>
+
+<ROUTINE V-MODE ()
+	 <CLEAR -1>
+	 <COND (,BORDER-ON
+		<SETG BORDER-ON <>>)
+	       (T
+		<SETG BORDER-ON T>)>
+	 <SPLIT-BY-PICTURE ,CURRENT-SPLIT>
+	 <SCREEN ,S-FULL>
+	 <INIT-STATUS-LINE T>
+	 <SCREEN ,S-TEXT>
+	 <TELL "Border o">
+	 <COND (,BORDER-ON
+		<TELL "n">)
+	       (T
+		<TELL "ff">)>
+	 <TELL " (obviously)." CR>>
+
+<ROUTINE V-QUIT ()
+	 ;<PARSER-REPORT>
+	 <V-SCORE>
+	 <DO-YOU-WISH "leave the game">
+	 <COND (<Y?>
+		<QUIT>)
+	       (T
+		<TELL ,OK>)>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE>
+	 <DO-YOU-WISH "restart">
+	 <COND (<Y?>
+		<TELL "Restarting." CR>
+		<COLOR 1 1> ;"return to default colors before screen clears"
+		<RESTART>
+		<TELL ,FAILED>)>>
+
+<ROUTINE DO-YOU-WISH (STRING)
+	 <TELL CR "Do you really want to " .STRING " (y or n)? >">>
+
+<ROUTINE FINISH ("AUX" (REPEATING <>) (CNT 0))
+	 <PROG ()
+	       <CRLF>
+	       <COND (<NOT .REPEATING>
+		      <SET REPEATING T>
+		      <V-SCORE>)>
+	       <UPDATE-STATUS-LINE>
+	       <TELL
+"Would you like to start over, restore a saved position, ">
+	       <COND (<NOT <EQUAL? ,HERE ,ROOM-OF-THREE-DOORS>>
+		      <TELL "undo your last turn, ">)>
+	       <TELL "end this session of the game, or ">
+	       <COND (<EQUAL? ,SCORE 1000>
+		      <TELL "see the credits?" CR>)
+		     (T
+		      <TELL "get a hint?" CR>)>
+	       <TELL "(Type RESTART, RESTORE, ">
+	       <COND (<NOT <EQUAL? ,HERE ,ROOM-OF-THREE-DOORS>>
+		      <TELL "UNDO, ">)>
+	       <TELL "QUIT, or ">
+	       <COND (<EQUAL? ,SCORE 1000>
+		      <TELL "CREDITS">)
+		     (T
+		      <TELL "HINT">)>
+	       <TELL "): >">
+	       <PUTB ,P-LEXV 0 10>
+	       <PUTB ,P-INBUF 1 0>
+	       <COND (,DEMO-VERSION?
+		      <READ-DEMO ,P-INBUF ,P-LEXV>)
+		     (T
+		      <READ ,P-INBUF ,P-LEXV>)>
+	       <MOUSE-INPUT?>
+	       <PUTB ,P-LEXV 0 ,LEXV-LENGTH>
+	       <SET CNT <+ .CNT 1>>
+	       <COND (<EQUAL? <GET ,P-LEXV 1> ,W?RESTART>
+		      <COLOR 1 1> ;"return to default before screen clears"
+	              <RESTART>
+		      <TELL ,FAILED>
+		      <AGAIN>)
+	       	     (<AND <EQUAL? <GET ,P-LEXV 1> ,W?RESTORE>
+		      	   <NOT <RESTORE>>>
+		      <TELL ,FAILED>
+		      <AGAIN>)
+	       	     (<OR <EQUAL? <GET ,P-LEXV 1> ,W?QUIT ,W?Q>
+			  <G? .CNT 10>>
+		      ;<PARSER-REPORT>
+		      <QUIT>)
+		     (<AND <EQUAL? <GET ,P-LEXV 1> ,W?UNDO>
+			   <V-UNDO>>
+		      <AGAIN>)
+		     (<AND <EQUAL? <GET ,P-LEXV 1> ,W?CREDIT ,W?CREDITS>>
+		      <V-CREDITS>
+		      <AGAIN>)
+		     (<EQUAL? <GET ,P-LEXV 1> ,W?HINTS ,W?HINT ,W?HELP
+			      		      ,W?CLUE ,W?CLUES>
+		      <V-HINT>
+		      <AGAIN>)>
+	       <AGAIN>>>
+
+<ROUTINE V-VERSION ()
+	 <TELL 
+"ZORK ZERO: The Revenge of Megaboz|
+Copyright (c) 1988 by Infocom, Inc. All rights reserved.|
+ZORK is a registered trademark of Infocom, Inc." CR>
+	 <INTERPRETER-ID>
+	 <TELL "Release " N <BAND <LOWCORE ZORKID> *3777*> " / Serial number ">
+	 <LOWCORE-TABLE SERIAL 6 PRINTC>
+	 <CRLF>>
+
+<ROUTINE INTERPRETER-ID ()
+	 ;"changed 7/21/88 per mail from TAA"
+	 ;"changed again 9/12/88 per mail from Duncan"
+	 <TELL
+<GET ,MACHINES <LOWCORE INTID>> " Interpreter version "
+N <LOWCORE (ZVERSION 0)> "." N <LOWCORE INTVR> CR>>
+
+<CONSTANT MACHINES
+	  <LTABLE "Dec-20"
+		  "Apple IIe"
+		  "Macintosh"
+		  "Amiga"
+		  "Atari ST"
+		  "IBM"
+		  "Commodore 128"
+		  "Commodore 64"
+		  "Apple IIc"
+		  "Apple IIgs"
+		  ""
+		  "">>
+
+<ROUTINE MAC-II? ()
+	 <PICINF ,ICON-OFFSET ,PICINF-TBL>
+	 <COND (<EQUAL? <GET ,PICINF-TBL 0> 0>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+;<CONSTANT D-RECORD-ON 4>
+;<CONSTANT D-RECORD-OFF -4>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT STARTUP>
+
+<ROUTINE V-$COMMAND ()
+	 <DIRIN 1>
+	 <RTRUE>>
+
+<ROUTINE V-$RANDOM ()
+	 <COND (<NOT <PRSO? ,INTNUM>>
+		<TELL "ILLEGAL." CR>)
+	       (T
+		<RANDOM <- 0 ,P-NUMBER>>
+		<RTRUE>)>>
+
+<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-$VERIFY ()
+	 <COND (<AND <PRSO? ,INTNUM>
+		     <EQUAL? ,P-NUMBER 232>>
+		<TELL N ,SERIAL CR>)
+	       (T
+		<INTERPRETER-ID>
+		<TELL "Verifying..." CR>
+	 	<COND (<VERIFY>
+		       <TELL ,OK>)
+	       	      (T
+		       <TELL "** Bad **" CR>)>)>>
+
+<CONSTANT SERIAL 0>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<REPLACE-DEFINITION REFRESH
+<ROUTINE V-$REFRESH ("OPTIONAL" (DONT-CLEAR <>))
+	 <COND (<EQUAL? ,P-CAN-UNDO 2> ;"called because of an UNDO"
+		<RESTORE-ORPHAN> ;"set up the riddle-answer orphans"
+		<SETG DIR-CNT 0> ;"clear the chess-piece-move table")>
+	 <COND (<EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>
+		<DO-MAP>)
+	       (<EQUAL? ,CURRENT-SPLIT ,B-SPLIT>
+		<DRAW-TOWER>)
+	       (<EQUAL? ,CURRENT-SPLIT ,PBOZ-SPLIT>
+		<SETUP-PBOZ>)
+	       (<EQUAL? ,CURRENT-SPLIT ,SN-SPLIT>
+		<SETUP-SN>)
+	       (<EQUAL? ,CURRENT-SPLIT ,F-SPLIT>
+		<SETUP-FANUCCI>)
+	       (T
+		<COND (.DONT-CLEAR
+		       <INIT-SL-WITH-SPLIT ,CURRENT-SPLIT T>)
+		      (T
+		       <INIT-STATUS-LINE>)>
+		<UPDATE-STATUS-LINE>
+	 	<LOWCORE FLAGS <BAND <LOWCORE FLAGS> -5>>
+	 	<COND (<EQUAL? ,P-CAN-UNDO 2>
+		       <TELL "[Undone.]" CR>)>)>
+	 <RTRUE>>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT STARTUP>
+
+;<GLOBAL DEBUG <>>
+
+;<ROUTINE V-$DEBUG ()
+	 <TELL "O">
+	 <COND (,DEBUG
+		<SETG DEBUG <>>
+		<TELL "ff">)
+	       (T
+		<SETG DEBUG T>
+		<TELL "n">)>
+	 <TELL ,PERIOD-CR>>
+
+;<ROUTINE V-$SKIP ()
+	 <COND (<NOT ,PRSO>
+		<V-VERSION>
+		<CRLF>
+		<DEQUEUE I-PROLOGUE>
+		<DEQUEUE I-GIVE-OBJECT>
+		<DEQUEUE I-TAKE-OBJECT>
+		<MOVE ,PARCHMENT ,GREAT-HALL>
+		<MOVE ,CAULDRON ,BANQUET-HALL>
+		<MOVE ,STRAW ,SCULLERY>
+		<ROB ,PROTAGONIST>
+	 	<REMOVE ,DIMWIT>
+	 	<REMOVE ,MEGABOZ>
+	 	<MOVE ,UNOPENED-NUT ,ROOT-CELLAR>
+	 	<FCLEAR ,BANQUET-HALL ,TOUCHBIT>
+	 	<FCLEAR ,SCULLERY ,TOUCHBIT>
+	 	<FCLEAR ,KITCHEN ,TOUCHBIT>
+	 	<FCLEAR ,ROOT-CELLAR ,ONBIT>
+	 	<FCLEAR ,WINE-CELLAR ,ONBIT>
+	 	<SETG UNDER-TABLE <>>
+	 	<SETG MID-NAME-NUM <- <RANDOM 12> 1>>
+		<SETG DIAL-NUMBER <RANDOM 2400>>
+	 	<SETG HOLEY-SLAB <GET ,SLAB-TABLE <- <RANDOM 7> 1>>>
+	 	<MOVE ,CALENDAR ,GREAT-HALL>
+		<MOVE ,PROCLAMATION ,ENTRANCE-HALL>
+		<REMOVE ,TABLES>
+		<REMOVE ,BANQUET-FOOD>
+		<MOVE ,CROWN ,TREASURE-CHEST>
+		<FSET ,CROWN ,TAKEBIT>
+		<MOVE ,ROBE ,TRUNK>
+		<FSET ,ROBE ,TAKEBIT>
+	 	<GOTO ,GREAT-HALL>)
+	       (T
+		<MOVE ,CANDLE ,PROTAGONIST>
+		<FSET ,PORTCULLIS ,OPENBIT>
+		<FSET ,EAST-DOOR ,OPENBIT>
+		<FSET ,WEST-DOOR ,OPENBIT>
+		<SETG NUT-EATEN T>
+		<SETG SECRET-PASSAGE-OPEN T>
+		<FSET ,DRAWBRIDGE ,OPENBIT>
+		<COND (<PRSO? ,CAULDRON>
+		       <GOTO ,BANQUET-HALL>
+		       <MOVE ,NOTEBOOK ,HERE>
+		       <COND (<EQUAL? ,SACRED-WORD-NUMBER 10>
+			      <SETG SACRED-WORD-NUMBER <- <RANDOM 10> 1>>)>
+		       <MOVE ,CROWN ,HERE>
+		       <MOVE ,SCEPTRE ,HERE>
+		       <MOVE ,ZORKMID-BILL ,HERE>
+		       <MOVE ,DIPLOMA ,HERE>
+		       <FCLEAR ,DIPLOMA ,TRYTAKEBIT>
+		       <FCLEAR ,DIPLOMA ,NDESCBIT>
+		       <MOVE ,SILK-TIE ,HERE>
+		       <MOVE ,STOCK-CERTIFICATE ,HERE>
+		       <MOVE ,QUILL-PEN ,HERE>
+		       <MOVE ,MANUSCRIPT ,HERE>
+		       <MOVE ,VIOLIN ,HERE>
+		       <MOVE ,METRONOME ,HERE>
+		       <MOVE ,FAN ,HERE>
+		       <MOVE ,FLASK ,HERE>
+		       <MOVE ,SCREWDRIVER ,HERE>
+		       <MOVE ,LANTERN ,HERE>
+		       <FCLEAR ,LANTERN ,TRYTAKEBIT>
+		       <MOVE ,SCALE-MODEL ,HERE>
+		       <MOVE ,T-SQUARE ,HERE>
+		       <MOVE ,BAT ,HERE>
+		       <FCLEAR ,BAT ,TRYTAKEBIT>
+		       <MOVE ,DUMBBELL ,HERE>
+		       <MOVE ,LANCE ,HERE>
+		       <MOVE ,SADDLE ,HERE>
+		       <MOVE ,SPYGLASS ,HERE>
+		       <FCLEAR ,SPYGLASS ,TRYTAKEBIT>
+		       <MOVE ,SEAMANS-CAP ,HERE>
+		       <MOVE ,EASLE ,HERE>
+		       <MOVE ,LANDSCAPE ,HERE>)
+		      (<PRSO? ,T-OF-B>
+		       <GOTO ,JESTERS-QUARTERS>)
+		      (<PRSO? ,PBOZ-OBJECT>
+		       <GOTO ,PEG-ROOM>)
+		      (<PRSO? ,DOUBLE-FANUCCI>
+		       <GOTO ,CASINO>)
+		      (<PRSO? ,HOTHOUSE>
+		       <MOVE ,DIRIGIBLE ,SMALLER-HANGAR>
+		       <GOTO ,HOTHOUSE>)
+		      (<PRSO? ,REBUS>
+		       <REMOVE ,REBUS-MOUSE>
+		       <REMOVE ,REBUS-GOOSE>
+		       <REMOVE ,REBUS-SLIME-MONSTER>
+		       <REMOVE ,REBUS-CAMEL>
+		       <REMOVE ,REBUS-SNAKE>
+		       <REMOVE ,REBUS-FISH>
+		       <FSET ,BASEMENT-REBUS-BUTTON ,TOUCHBIT>
+		       <FSET ,CLOSET-REBUS-BUTTON ,TOUCHBIT>
+		       <FSET ,CRAG-REBUS-BUTTON ,TOUCHBIT>
+		       <FSET ,CRAWL-REBUS-BUTTON ,TOUCHBIT>
+		       <FSET ,GROTTO-REBUS-BUTTON ,TOUCHBIT>
+		       <FSET ,ATTIC-REBUS-BUTTON ,TOUCHBIT>
+		       <GOTO ,GALLERY>)
+		      (<PRSO? ,ORACLE-OBJECT>
+		       <MOVE ,RUBY ,DEPRESSION>
+		       <FSET ,RUBY ,NDESCBIT>
+		       <FSET ,RUBY ,NALLBIT>
+		       <MOVE ,AMULET ,PROTAGONIST>
+		       <GOTO ,ORACLE>)
+		      (T
+		       <TELL ,HUH>)>)>>
+
+<END-SEGMENT>
+
+;"subtitle real verbs"
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE V-ALARM ()
+	 <COND (<PRSO? ,ROOMS ,ME>
+		<PERFORM-PRSA ,ME>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,ANIMATEDBIT>
+		<COND (<FSET? ,PRSO ,FEMALEBIT>
+		       <TELL "Sh">)
+		      (T
+		       <TELL "H">)>
+		<TELL "e's wide awake, or haven't you noticed..." CR>)
+	       (T
+		<TELL "You're nuts." CR>)>>
+
+;<ROUTINE V-ANAGRAM ("AUX" LEN R)
+	 <DIROUT ,D-TABLE-ON ,SLINE>
+	 <SET LEN <NP-LEXBEG <GET-NP ,PRSO>>>
+	 <COND (<EQUAL? ,PRSO ,INTQUOTE>
+		<SET LEN <ZREST .LEN <* 2 ,LEXV-ELEMENT-SIZE-BYTES>>>)>
+	 <SET R <NP-LEXEND <GET-NP ,PRSO>>>
+	 <COND (<EQUAL? ,PRSO ,INTQUOTE>
+		<SET R <ZBACK .R ,LEXV-ELEMENT-SIZE-BYTES>>)>
+	 <BUFFER-PRINT .LEN .R <> T>
+	 <DIROUT ,D-TABLE-OFF>
+	 <TELL "How about \"">
+	 <SET LEN <GET ,SLINE 0>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .LEN 0>
+			<RETURN>)>
+		 <SET R <+ <RANDOM .LEN> 1>>
+		 <PRINTC <GETB ,SLINE .R>>
+		 <PUTB ,SLINE .R <GETB ,SLINE <+ .LEN 1>>>
+		 <SET LEN <- .LEN 1>>>
+	 <SETG AWAITING-REPLY 1>
+	 <QUEUE I-REPLY 2>
+	 <TELL "\"? [It's not a very good anagram routine, is it?]" CR>>
+
+;<ROUTINE V-APPLAUD ()
+	 <TELL "\"Clap.\"" CR>>
+
+<ROUTINE V-ASK-ABOUT ("AUX" OWINNER)
+	 <COND (<PRSO? ,ME>
+		<PERFORM ,V?TELL ,ME>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<SET OWINNER ,WINNER>
+		<SETG WINNER ,PRSO>
+		<PERFORM ,V?TELL-ABOUT ,ME ,PRSI>
+		<SETG WINNER .OWINNER>
+		<THIS-IS-IT ,PRSI>
+		<THIS-IS-IT ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?TELL ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-ASK-FOR ()
+	 <COND (<PRSO? ,BROGMOID>
+		<TELL ,TALK-TO-BROGMOID>)
+	       (T
+		<TELL "Unsurprisingly," T ,PRSO " doesn't oblige." CR>)>>
+
+<ROUTINE V-ASK-NO-ONE-FOR ("AUX" ACTOR)
+	 <COND (<SET ACTOR <FIND-IN ,HERE ,ACTORBIT>>
+		<PERFORM ,V?ASK-FOR .ACTOR ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "There's no one here to ask." CR>)>>
+
+<ROUTINE V-BEHEAD ("OPTIONAL" (CALLED-BY-V-HANG <>))
+	 <TELL "You usually need a ">
+	 <COND (.CALLED-BY-V-HANG
+		<TELL "noose">)
+	       (T
+		<TELL "axe">)>
+	 <TELL " to do this">
+	 <COND (<AND <NOT <FSET? ,PRSO ,ACTORBIT>>
+		     <NOT <EQUAL? ,PRSO ,ME>>>
+		<TELL
+", and besides, it doesn't look like" T ,PRSO " even has a ">
+		<COND (.CALLED-BY-V-HANG
+		       <TELL "neck">)
+		      (T
+		       <TELL "head">)>)>
+	 <TELL ,PERIOD-CR>>
+
+;<ROUTINE V-BEND ()
+	 <COND (<EQUAL? ,P-PRSA-WORD ,W?SPREAD>
+		<COND (<FSET? ,PRSO ,ACTORBIT>
+		       <V-ENTER>)
+		      (T
+		       <HACK-HACK "Spreading">)>)
+	       (T
+	        <HACK-HACK "Bending">)>>
+
+<ROUTINE V-BITE ()
+	 <HACK-HACK "Biting">>
+
+<ROUTINE V-BURN ()
+	 <COND (<NOT ,PRSI>
+		<COND (<SETG PRSI <FIND-IN ,PROTAGONIST ,FLAMEBIT>>
+		       <TELL "[with" T ,PRSI "]" CR>
+		       <PERFORM ,V?BURN ,PRSO ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <TELL "Your burning gaze is insufficient." CR>
+		       <RTRUE>)>)>
+	 <COND (<NOT <FSET? ,PRSI ,FLAMEBIT>>
+		<TELL "With" A ,PRSI "??!?" CR>)
+	       (<FSET? ,PRSO ,BURNBIT>
+		<TELL "Instantly," T ,PRSO " catches fire and is consumed.">
+		<COND (<ULTIMATELY-IN? ,PRSO>
+		       <JIGS-UP
+" Unfortunately, you were holding it at the time.">)
+		      (T
+		       <REMOVE ,PRSO>
+		       <CRLF>)>)
+	       (<PRSO? ,CANDLE>
+		<FSET ,CANDLE ,FLAMEBIT>
+		<FSET ,CANDLE ,ONBIT>
+		<TELL "You relight the candle." CR>)
+	       (T
+		<TELL ,YOU-CANT "burn" AR ,PRSO>)>>
+
+<ROUTINE V-BUY ()
+	 <TELL "That's not for sale." CR>>
+
+<ROUTINE V-CALL ()
+	 <COND (<PRSO? ,INTQUOTE>
+		<V-SAY>)
+	       (<AND <VISIBLE? ,PRSO>
+		     <NOT <IN? ,PRSO ,GLOBAL-OBJECTS>>>
+	        <PERFORM ,V?TELL ,PRSO>
+	        <RTRUE>)
+	       (T
+		<DO-FIRST "invent the telephone">)>>
+
+<ROUTINE V-CATCH ()
+	 <COND (,PRSI
+		<TELL
+"Sorry," T ,PRSI " isn't much help in catching" TR ,PRSO>)
+	       (T
+		<TELL "The only thing you're likely to catch is a cold." CR>)>>
+
+<ROUTINE V-CHASTISE ()
+	 <COND (<PRSO? ,INTDIR>
+		<TELL
+,YOULL-HAVE-TO "go in that direction to see what's there." CR>)
+	       (T
+		<USE-PREPOSITIONS "LOOK " "AT" "INSIDE" "UNDER">)>>
+
+<ROUTINE USE-PREPOSITIONS (VRB PREP1 PREP2 PREP3)
+	 <TELL
+"[Use prepositions to indicate precisely what you want to do: " .VRB .PREP1
+" the object, " .VRB .PREP2 " it, " .VRB .PREP3 " it, etc.]" CR>>
+
+;<ROUTINE V-CHEER ()
+	 <COND (<PRSO? ,ROOMS>
+		<TELL ,OK>)
+	       (T
+		<TELL "Probably," T ,PRSO " is as happy as possible." CR>)>>
+
+<ROUTINE V-CLEAN ()
+	 <SETG AWAITING-REPLY 1>
+	 <QUEUE I-REPLY 2>
+	 <TELL "Do you also do windows?" CR>>
+
+<ROUTINE V-CLIMB ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?UP>)
+	       (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<TELL ,HOLDING-IT>)
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?DOWN>)
+	       (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<TELL ,HOLDING-IT>)
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-CLIMB-ON ()
+	 <COND (<AND <PRSO? ,CAMEL>
+		     <IN? ,PROTAGONIST ,CAMEL>
+		     <EQUAL? ,P-PRSA-WORD ,W?RIDE>>
+		<TELL
+"[You'll have to say which direction you want to ride in.]" CR>)
+	       (<AND <PRSO? ,INTDIR>
+		     <VISIBLE? ,CAMEL>>
+		<COND (<IN? ,PROTAGONIST ,CAMEL>
+		       <PERFORM ,V?RIDE-DIR ,CAMEL ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <DO-FIRST "mount" ,CAMEL>)>)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<TELL ,HOLDING-IT>)
+	       (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?IN>
+		<CANT-VERB-A-PRSO "climb into">)
+	       (T
+		<CANT-VERB-A-PRSO "climb onto">)>>
+
+<ROUTINE V-CLIMB-OVER ()
+	 <COND (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<TELL ,HOLDING-IT>)
+	       (T
+	 	<IMPOSSIBLES>)>>
+
+<ROUTINE V-CLIMB-UP ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?UP>)
+	       (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<TELL ,HOLDING-IT>)
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<OR <FSET? ,PRSO ,SURFACEBIT>
+		    <FSET? ,PRSO ,ACTORBIT>
+		    <AND <FSET? ,PRSO ,VEHBIT>
+			 <NOT <PRSO? ,DB ,LADDER
+				     ,IRON-MAIDEN ,SNAKE-PIT ,WATER-CHAMBER>>>>
+		<YOU-MUST-TELL-ME>)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <FSET? ,PRSO ,CONTBIT>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <FCLEAR ,PRSO ,OPENBIT>
+		       <TELL "Okay," T ,PRSO " is now closed." CR>
+		       <NOW-DARK?>)
+		      (T
+		       <TELL ,ALREADY-IS>)>)
+	       (T
+		<YOU-MUST-TELL-ME>)>>
+
+<ROUTINE V-COUGH ()
+	 <COND (<AND <EQUAL? ,HERE ,ICKY-CAVE>
+		     <NOT <IN? ,SICKLY-WITCH ,HERE>>>
+		<COND (,LIT
+		       <MOVE ,SICKLY-WITCH ,HERE>
+		       <MOVE ,PRICKLY-WITCH ,HERE>
+		       <TELL
+"Two witches appear, spraying fumigation spells throughout the cave. One
+of the witches, less healthy than the other, frets, \"Oh, dear, I'm not
+certain my frail body can stand all these germs!\" The other witch, less
+friendly than the first, gives you a blistering glare. \"What manners! I
+certainly wouldn't walk into YOUR home and start spewing phlegm around!\"">
+		       <COND (<IN? ,JESTER ,HERE>
+			      <REMOVE-J>
+			      <TELL CR
+"   They notice the jester for the first time." ,WITCH-REMOVES-J>)
+			     (T
+			      <CRLF>)>)
+		      (T
+		       <TELL
+"You hear, briefly, a sound that just might be witches disinfecting
+a cave. But, in the dark, who can really tell for sure?" CR>)>)
+	       (T
+		<TELL
+"Hmmm. You seem to be catching a cold. [Can't say I'm surprised,
+considering you spent last night sleeping on the cold stone floor
+of Flatheadia castle.]" CR>)>>
+
+<ROUTINE PRE-COUNT ()
+	 <COND (<EQUAL? ,PRSO ,ROOMS>	;"multiple objects?"
+		<TELL "There are " N ,P-MULT ,PERIOD-CR>)>>
+
+<ROUTINE V-COUNT ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-CRAWL-UNDER ()
+	 <COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
+	        <TELL-HIT-HEAD>)
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-CROSS ()
+	 <V-WALK-AROUND>>
+
+<ROUTINE V-CUT ()
+	 <COND (<NOT ,PRSI>
+		<IMPOSSIBLES>)
+	       (T
+		<TELL "Strange concept, cutting" TR ,PRSO>)>>
+
+<ROUTINE V-DATE ()
+	 <TELL
+"\"It was on a fateful day in the year 883 GUE...\" is how poets of the
+future will begin their tales of your quest. Not being a poet of the
+future, you think of it as the 14th day of Mumberbur." CR>>
+
+<ROUTINE V-DECODE ()
+	 <TELL ,YOULL-HAVE-TO "figure it out yourself." CR>>
+
+;<ROUTINE V-DEFLATE ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-DIG ()
+	 <COND (<PRSI? ,SHOVEL>
+		<COND (<NOT <PRSO? ,GROUND>>
+		       <IMPOSSIBLES>)
+		      (<AND <NOT <FSET? ,HERE ,OUTSIDEBIT>>
+			    <NOT <FSET? ,HERE ,DESERTBIT>>>
+		       <TELL "The floor is a bit harder than the shovel." CR>)
+		      (<AND <EQUAL? ,JUMP-X ,STUMP-X>
+			    <EQUAL? ,JUMP-Y ,STUMP-Y>
+			    <IN? ,TREASURE-CHEST ,LOCAL-GLOBALS>>
+		       <MOVE ,TREASURE-CHEST ,HERE>
+		       <TELL
+"You dig and dig and dig. And dig. Then, summoning hidden reserves of strength,
+you dig some more. Suddenly... \"Clank.\" It's a treasure chest! With a burst
+of energy you uncover it and drag it out of the hole. As you do so, the walls
+of the hole collapse, filling it in, and you barely make it out alive." CR>)
+		      (T
+		       <TELL
+"You dig a sizable hole but, finding nothing of interest, you fill it in
+again out of consideration to future passersby and current gamewriters." CR>)>)
+	       (T
+		<TELL "Digging with">
+		<COND (<ZERO? ,PRSI>
+		       <TELL " your hands">)
+		      (T
+		       <TELL T ,PRSI>)>
+		<TELL " is slow and tedious." CR>)>>
+
+<ROUTINE V-DIG-WITH ()
+	 <PERFORM ,V?DIG ,GROUND ,PRSO>
+	 <RTRUE>>
+
+;<ROUTINE V-DRESS ()
+	 <COND (,PRSO
+		<COND (<FSET? ,PRSO ,ACTORBIT>
+		       <COND (<FSET? ,PRSO ,FEMALEBIT>
+			      <TELL "Sh">)
+			     (T
+			      <TELL "H">)>
+		       <TELL "e is dressed!" CR>)
+		      (T
+		       <IMPOSSIBLES>)>)
+	       (T
+		<SETG PRSO ,ROOMS>
+		<V-GET-DRESSED>)>>
+
+<ROUTINE V-DRINK ()
+	 <COND (<FSET? ,PRSO ,WATERBIT>
+		<PERFORM-PRSA ,WATER>)
+	       (T
+		<CANT-VERB-A-PRSO "drink">)>>
+
+<ROUTINE V-DRINK-FROM ()
+	 <COND (<FSET? ,PRSO ,WATERBIT>
+		<PERFORM ,V?DRINK ,WATER>
+		<RTRUE>)
+	       (T
+	        <IMPOSSIBLES>)>>
+
+<ROUTINE V-DRINK-WITH ()
+	 <COND (<PRSI? ,STRAW>
+		<COND (<PRSO? ,ELIXIR>
+		       <JIGS-UP
+"After a moment of ecstasy, the elixir fries your brain. Your last sight is
+of creatures crawling from unseen crevices, waiting to feast on your corpse.">)
+		      (T
+		       <PERFORM ,V?DRINK ,PRSO>
+		       <RTRUE>)>)
+	       (T
+		<TELL ,YOU-CANT "drink something with" AR ,PRSI>)>>
+
+<ROUTINE V-DROP ("AUX" CHESSPIECE)
+	 <COND (<IN? ,PRSO ,WALDO>
+		<COND (<EQUAL? ,HERE ,HOLD>
+		       <MOVE ,PRSO ,HOLD>)
+		      (T
+		       <MOVE ,PRSO ,LAKE-BOTTOM>)>
+		<TELL "You release" TR ,PRSO>)
+	       (<NOT <SPECIAL-DROP ,PRSO>>
+		<COND (<FSET? <LOC ,PROTAGONIST> ,DROPBIT>
+		       <MOVE ,PRSO <LOC ,PROTAGONIST>>)
+		      (T
+		       <MOVE ,PRSO ,HERE>)>
+		<COND (<PRSO? ,LARGE-FLY ,LARGER-FLY
+			      ,EVEN-LARGER-FLY ,LARGEST-FLY>
+		       <TELL "You release" T ,PRSO>)
+		      (T
+		       <TELL "Dropped">)>
+		<COND (<AND <OR <SET CHESSPIECE <FIND-IN ,HERE ,BLACKBIT>>
+				<SET CHESSPIECE <FIND-IN ,HERE ,WHITEBIT>>>
+			    <NOT <FSET? ,PRSO ,TRYTAKEBIT>>
+			    <NOT <FIND-IN ,PRSO ,TRYTAKEBIT>>
+			    <NOT ,TIME-STOPPED>>
+		       <MOVE ,PRSO .CHESSPIECE>
+		       <TELL
+". The " D .CHESSPIECE " says, \"Well what do you know? It's been a long time
+since I had" A ,PRSO ".\" ">
+		       <COND (<FSET? .CHESSPIECE ,FEMALEBIT>
+			      <TELL "Sh">)
+			     (T
+			      <TELL "H">)>
+		       <TELL "e picks it up.">
+		       <COND (<AND <PRSO? ,PIGEON>
+				   <NOT <EQUAL? ,HERE <META-LOC ,PERCH>>>>
+			      <PIECE-TAKES-PIGEON .CHESSPIECE>)
+			     (T
+			      <CRLF>)>)
+		      (<AND <PRSO? ,BAR-OF-FOOD>
+			    <IN? ,FLAMINGO ,HERE>>
+		       <TELL
+". The flamingo eyes the food, but appears to be too well-mannered to
+eat something that hasn't been offered." CR>)
+		      (T
+		       <TELL ,PERIOD-CR>)>)>> 
+
+<ROUTINE SPECIAL-DROP (OBJ "OPT" (CALLED-BY-ROB <>)) ;"else drop or throw"
+	 <COND (<AND <EQUAL? ,HERE ,OUBLIETTE>
+		     <G? <GETP .OBJ ,P?SIZE> 4>>
+		<REMOVE .OBJ>
+		<COND (<OR <EQUAL? .OBJ ,PERCH>
+			   <ULTIMATELY-IN? ,PERCH ,PRSO>>
+		       <SETG REMOVED-PERCH-LOC ,OUBLIETTE>)>
+		<COND (<NOT .CALLED-BY-ROB>
+		       <TELL
+"With a gentle slurping noise," T ,PRSO " vanishes slowly into the mud." CR>
+		       <NOW-DARK?>)>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS>
+		<REMOVE .OBJ>
+		<COND (<OR <EQUAL? .OBJ ,PERCH>
+			   <ULTIMATELY-IN? ,PERCH ,PRSO>>
+		       <SETG REMOVED-PERCH-LOC ,BROGMOID>)>
+		<COND (<NOT .CALLED-BY-ROB>
+		       <TELL
+"As you release" T ,PRSO ", it dwindles into the mist and is gone
+from this world forever." CR>)>
+		<RTRUE>)
+	       (T
+	 	<RFALSE>)>>
+
+<ROUTINE PRE-INGEST ()
+	 <COND (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>>
+		<TELL
+"You've turned into" A ,TURNED-INTO ", and as a consequence don't have much
+in the way of a mouth." CR>)>>
+
+<ROUTINE V-EAT ()
+	 <TELL "It's not likely that" T ,PRSO " would agree with you." CR>>
+
+<ROUTINE V-EMPTY ("AUX" OBJ NXT)
+	 <COND (<NOT ,PRSI>
+		<SETG PRSI ,GROUND>)>
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<TELL ,HUH>)
+	       (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL "But" T ,PRSO " isn't open." CR>)
+	       (<NOT <FIRST? ,PRSO>>
+		<TELL "But" T ,PRSO " is already empty!" CR>)
+	       (<AND <PRSI? <FIRST? ,PRSO>>
+		     <NOT <NEXT? ,PRSI>>>
+		<TELL ,THERES-NOTHING "in" T ,PRSO " but" TR ,PRSI>)
+	       (T
+		<SET OBJ <FIRST? ,PRSO>>
+		<REPEAT ()
+			<SET NXT <NEXT? .OBJ>>
+			<COND (<NOT <EQUAL? .OBJ ,PROTAGONIST>>
+			       <TELL D .OBJ ": ">
+			       <COND (<FSET? .OBJ ,TAKEBIT>
+				      <MOVE .OBJ ,PROTAGONIST>
+				      <COND (<PRSI? ,HANDS>
+					     <TELL "You take" TR .OBJ>)
+					    (<PRSI? ,GROUND>
+					     <PERFORM ,V?DROP .OBJ>)
+					    (<FSET? ,PRSI ,SURFACEBIT>
+					     <PERFORM ,V?PUT-ON .OBJ ,PRSI>)
+					    (T
+					     <PERFORM ,V?PUT .OBJ ,PRSI>)>)
+				     (T
+				      <YUKS>)>)>
+			<COND (.NXT
+			       <SET OBJ .NXT>)
+			      (T
+			       <RETURN>)>>)>>
+
+<ROUTINE V-EMPTY-FROM ()
+	 <COND (<IN? ,PRSO ,PRSI>
+		<COND (<FSET? ,PRSO ,TAKEBIT>
+		       <MOVE ,PRSO ,PROTAGONIST>
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <YUKS>)>)
+	       (T
+		<NOT-IN>)>>
+
+<ROUTINE PRE-ENTER ()
+	 <COND (<IN? ,PROTAGONIST ,PRSO>
+		<TELL ,LOOK-AROUND>)	       
+	       (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<TELL ,HOLDING-IT>)
+	       (<UNTOUCHABLE? ,PRSO>
+		<CANT-REACH ,PRSO>)
+	       (<AND <FSET? ,PRSO ,VEHBIT>
+		     <NOT <IN? ,PRSO ,HERE>>>
+		<TELL
+"You'll have to remove" T ,PRSO " from" T <LOC ,PRSO> " first." CR>)>>
+
+<ROUTINE V-ENTER ("AUX" DIR)
+	<COND (<PRSO? ,INTDIR> ;"for example, ENTER EAST"
+	       <DO-WALK <DIRECTION-CONVERSION>>)
+	      (<FSET? ,PRSO ,WATERBIT>
+	       <PERFORM-PRSA ,WATER>)
+	      (<FSET? ,PRSO ,DOORBIT>
+	       <DO-WALK <OTHER-SIDE ,PRSO>>
+	       <RTRUE>)
+	      (<FSET? ,PRSO ,VEHBIT>
+	       <COND (<NOT <EQUAL? <LOC ,PRSO> ,HERE ,LOCAL-GLOBALS>>
+		      <TELL ,YOU-CANT "board" T ,PRSO " when it's ">
+		      <COND (<FSET? <LOC ,PRSO> ,SURFACEBIT>
+			     <TELL "on">)
+			    (T
+			     <TELL "in">)>
+		      <TELL TR <LOC ,PRSO>>)
+		     (T
+		      <MOVE ,PROTAGONIST ,PRSO>
+		      <SETG OLD-HERE <>>
+		      <TELL "You are now ">
+		      <COND (<PRSO? ,CARD-TABLE>
+			     <TELL "sitting at">)
+			    (<FSET? ,PRSO ,INBIT>
+		       	     <TELL "in">)
+		      	    (T
+		       	     <TELL "on">)>
+		      <TELL T ,PRSO ".">
+		      <COND (<NOT <APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>>
+			     <CRLF>)>
+		      <FSET ,PRSO ,TOUCHBIT>)>)
+	      (<IN? ,PRSO ,ROOMS>
+	       <COND (<SET DIR <FIND-NEXT-ROOM>>
+		      <DO-WALK .DIR>)
+		     (T
+		      <V-WALK-AROUND>)>)
+	      (<NOT <FSET? ,PRSO ,TAKEBIT>>
+	       <TELL-HIT-HEAD>)
+	      (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?IN>
+	       <CANT-VERB-A-PRSO "get into">)
+	      (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?ON>
+	       <CANT-VERB-A-PRSO "get onto">)
+	      (T
+	       <SETG AWAITING-REPLY 1>
+	       <QUEUE I-REPLY 2>
+	       <TELL
+"You have a theory on how to board" A ,PRSO ", perhaps?" CR>)>>
+
+<ROUTINE FIND-NEXT-ROOM ("AUX" PT PTS (DIR 0) ;(CNT 0))
+	 <REPEAT ()
+		 <SET DIR <NEXTP ,HERE .DIR>>
+		 <COND (<OR <ZERO? .DIR>
+			    <L? .DIR ,LOW-DIRECTION>>
+			;<EQUAL? .CNT 10>
+			<RETURN <>>)>
+		 ;<SET DIR <GET ,DIRECTION-TABLE .CNT>>
+		 <COND (<SET PT <GETPT ,HERE .DIR>>
+			<SET PTS <PTSIZE .PT>>
+			<COND (<EQUAL? .PTS ,UEXIT ,CEXIT>
+			       <COND (<EQUAL? <GETB .PT ,REXIT> ,PRSO>
+				      <RETURN .DIR>)>)
+			      (<EQUAL? .PTS ,DEXIT>
+			       <COND (<EQUAL? <GETB .PT ,DEXITRM> ,PRSO>
+				      <RETURN .DIR>)>)>)>
+		 ;<SET CNT <+ .CNT 1>>>>
+
+;<CONSTANT DIRECTION-TABLE
+	  <TABLE ,P?NORTH
+		 ,P?NE
+		 ,P?EAST
+		 ,P?SE
+		 ,P?SOUTH
+		 ,P?SW
+		 ,P?WEST
+		 ,P?NW
+		 ,P?UP
+		 ,P?DOWN>>
+
+<ROUTINE V-EXAMINE ()
+	 <COND (<AND ,PRSI
+		     <NOT <FSET? ,PRSI ,TRANSBIT>>>
+		<IMPOSSIBLES>)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<COND (<FIRST? ,PRSO>
+		       <PERFORM ,V?LOOK-INSIDE ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <NOTHING-INTERESTING>
+		       <TELL "about" TR ,PRSO>)>)
+	       (<FSET? ,PRSO ,SURFACEBIT>
+		<V-LOOK-INSIDE>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<TELL ,IT-SEEMS-THAT T ,PRSO " is ">
+		<OPEN-CLOSED ,PRSO>
+		<TELL ,PERIOD-CR>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<OR <FSET? ,PRSO ,OPENBIT>
+			   <FSET? ,GOGGLES ,WORNBIT>>			    
+		       <V-LOOK-INSIDE>)
+		      (T
+		       <TELL "It's closed.">
+		       <COND (<AND <FSET? ,PRSO ,TRANSBIT>
+				   <FIRST? ,PRSO>>
+			      <TELL " ">
+			      <V-LOOK-INSIDE>)
+			     (T
+			      <CRLF>)>)>)
+	       (<FSET? ,PRSO ,LIGHTBIT>
+		<TELL "It's o">
+		<COND (<FSET? ,PRSO ,ONBIT>
+		       <TELL "n">)
+		      (T
+		       <TELL "ff">)>
+		<TELL ,PERIOD-CR>)
+	       (<FSET? ,PRSO ,READBIT>
+		<PERFORM ,V?READ ,PRSO>
+		<RTRUE>)
+	       (<IN? ,PRSO ,ROOMS>
+		<TELL "You can't see much from here." CR>)
+	       (<FSET? ,PRSO ,NARTICLEBIT>
+		<SENSE-OBJECT "look">)
+	       (<PROB 25>
+		<TELL "Totally ordinary looking " D ,PRSO ,PERIOD-CR>)
+	       (<OR <PROB 60>
+		    <FSET? ,PRSO ,PLURALBIT>
+		    <PRSO? ,GROUND>>
+		<NOTHING-INTERESTING>
+		<TELL "about" TR ,PRSO>)
+	       (T
+	        <PRONOUN>
+		<TELL " look">
+		<COND (<AND <NOT <FSET? ,PRSO ,PLURALBIT>>
+			    <NOT <PRSO? ,ME>>>
+		       <TELL "s">)>
+		<TELL " like every other " D ,PRSO " you've ever seen." CR>)>>
+
+<ROUTINE NOTHING-INTERESTING ()
+	 <TELL ,THERES-NOTHING>
+	 <COND (<PROB 25>
+		<TELL "unusual">)
+	       (<PROB 33>
+		<TELL "noteworthy">)
+	       (<PROB 50>
+		<TELL "eye-catching">)
+	       (T
+		<TELL "special">)>
+	 <TELL " ">>
+
+<ROUTINE V-EXIT ()
+	 <COND (<OR <NOT ,PRSO>
+		    <PRSO? ,ROOMS>>
+		<COND (<NOT <IN? ,PROTAGONIST ,HERE>>
+		       <PERFORM ,V?EXIT <LOC ,PROTAGONIST>>
+		       <RTRUE>)
+		      (,UNDER-TABLE
+		       <V-STAND>)
+		      (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?DOWN>
+		       <TELL "You're not on anything." CR>)
+		      (T
+		       <DO-WALK ,P?OUT>)>)
+	       (<EQUAL? ,P-PRSA-WORD ,W?TAKE> ;"since GET OUT is also TAKE OUT"
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<AND ,UNDER-TABLE
+		     <OR <NOT ,PRSO>
+			 <PRSO? ,TABLES>>>
+		<V-STAND>)
+	       (<NOT <IN? ,PROTAGONIST ,PRSO>>
+		<SETG P-CONT -1> ;<RFATAL>
+		<TELL ,LOOK-AROUND>)
+	       (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>
+		     <NOT <EQUAL? ,TURNED-INTO ,LITTLE-FUNGUS>>>
+		<V-SKIP>)
+	       (T
+		<MOVE ,PROTAGONIST ,HERE>
+		<SETG OLD-HERE <>>
+		<TELL "You get ">
+		<COND (<PRSO? ,CARD-TABLE>
+		       <TELL "up from">)
+		      (<FSET? ,PRSO ,INBIT>
+		       <TELL "out of">)
+		      (T
+		       <TELL "off">)>
+		<TELL T ,PRSO ".">		
+		<CRLF>)>>
+
+<ROUTINE V-FEED ()
+         <TELL "You have no food for" TR ,PRSO>>
+
+<ROUTINE PRE-FILL ()
+	 <COND (,PRSI
+		<RFALSE>)
+	       (<FIND-WATER>
+		<SETG PRSI ,WATER>
+		<RFALSE>)
+	       (<AND <VISIBLE? ,LARGE-VIAL-WATER>
+		     <VISIBLE? ,SMALL-VIAL-WATER>>
+		<COND (<PRSO? ,SMALL-VIAL>
+		       <PERFORM ,V?EMPTY ,LARGE-VIAL ,SMALL-VIAL>
+		       <RTRUE>)
+		      (<PRSO? ,LARGE-VIAL>
+		       <PERFORM ,V?EMPTY ,SMALL-VIAL ,LARGE-VIAL>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"[You'll have to specify which water you mean, the large vial
+or the small vial.]" CR>)>)
+	       (<VISIBLE? ,LARGE-VIAL-WATER>
+		<PERFORM ,V?EMPTY ,LARGE-VIAL ,PRSO>
+		<RTRUE>)
+	       (<VISIBLE? ,SMALL-VIAL-WATER>
+		<PERFORM ,V?EMPTY ,SMALL-VIAL ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?FILL ,PRSO ,WATER>
+		<RTRUE>)>>
+
+<ROUTINE V-FILL ()
+	 <COND (<FSET? ,PRSI ,WATERBIT>
+		<PERFORM-PRSA ,PRSO ,WATER>)
+	       (T
+	 	<IMPOSSIBLES>)>>
+
+<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
+	 <COND (<NOT .L>
+		<PRONOUN>
+		<TELL " could be anywhere!" CR>)
+	       (<IN? ,PRSO ,PROTAGONIST>
+		<TELL "You have it!" CR>)
+	       (<IN? ,PRSO ,HERE>
+		<TELL "Right in front of you." CR>)
+	       (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<V-DECODE>)
+	       (<AND <FSET? .L ,ACTORBIT>
+		     <VISIBLE? .L>>
+		<TELL "Looks as if" T .L " has it." CR>)
+	       (<AND <FSET? .L ,CONTBIT>
+		     <VISIBLE? ,PRSO>
+		     <NOT <IN? .L ,GLOBAL-OBJECTS>>>
+		<COND (<FSET? .L ,SURFACEBIT>
+		       <TELL "O">)
+		      (<AND <FSET? .L ,VEHBIT>
+			    <NOT <FSET? .L ,INBIT>>>
+		       <TELL "O">)
+		      (T
+		       <TELL "I">)>
+		<TELL "n" TR .L>)
+	       (T
+		<V-DECODE>)>>
+
+<ROUTINE V-FLY ()
+	 <COND (<OR <NOT ,PRSO>
+		    <PRSO? ,INTDIR>>
+		<COND (,TURNED-INTO
+		       <COND (<EQUAL? ,TURNED-INTO ,PIGEON
+				      ,ROOSTER ,FLAMINGO ,EVEN-LARGER-FLY
+				      ,LARGE-FLY ,LARGEST-FLY ,LARGER-FLY>
+			      <MOVE ,PROTAGONIST ,HERE>
+			      <TELL
+"You make a few awkward circuits of the room, bouncing
+into several walls. (Ouch.)" CR>)
+			     (T
+			      <TELL
+"Despite what you may have learned in school," A ,TURNED-INTO " is no
+more capable of flight than a human." CR>)>)
+		      (T
+		       <TELL
+"Humans are not usually equipped for flying." CR>)>)
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-FOLLOW ()
+	 <COND (<VISIBLE? ,PRSO>
+		<TELL "But" T-IS-ARE ,PRSO "right here!" CR>)
+	       (<NOT <FSET? ,PRSO ,ACTORBIT>>
+		<IMPOSSIBLES>)
+	       (T
+		<TELL "You have no idea where" T ,PRSO>
+		<COND (<FSET? ,PRSO ,PLURALBIT>
+		       <TELL " are">)
+		      (T
+		       <TELL " is">)>
+		<TELL ,PERIOD-CR>)>>
+
+;<GLOBAL FOLLOW-FLAG <>>
+
+;<ROUTINE I-FOLLOW ()
+	 <SETG FOLLOW-FLAG <>>
+	 <RFALSE>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<AND <VERB? GIVE>
+		     <PRSO? ,HANDS>>
+		<PERFORM ,V?SHAKE-WITH ,PRSI>
+		<RTRUE>)
+	       (<PRSO? ,EYES>
+		<PRE-SWITCH>
+		<PERFORM ,V?EXAMINE ,PRSI ,EYES>
+		<RTRUE>)
+	       ;(<AND <EQUAL? ,P-PRSA-WORD ,W?FEED>
+		     <NOT <FSET? ,PRSO ,FOODBIT>>>
+		<TELL "That's not food!" CR>)
+	       (<IDROP>
+		<RTRUE>)>>
+
+<ROUTINE V-GET-NEAR ()
+	 <WASTES>>
+
+<ROUTINE V-GIVE ()
+	 <COND (<FSET? ,PRSI ,ACTORBIT>
+		<TELL "Briskly," T ,PRSI " refuse">
+		<COND (<NOT <FSET? ,PRSI ,PLURALBIT>>
+		       <TELL "s">)>
+		<TELL " your offer." CR>)
+	       (T
+		<TELL ,YOU-CANT "give" A ,PRSO " to" A ,PRSI "!" CR>)>> 
+		 
+<ROUTINE V-GIVE-UP ()
+	 <COND (<PRSO? ,ROOMS>
+		<V-QUIT>)
+	       (T
+		<RECOGNIZE>)>>
+
+<ROUTINE V-HANG ()
+	 <V-BEHEAD T>>
+
+<ROUTINE V-HELLO ()
+       <COND (,PRSO
+	      <TELL
+"[The proper way to talk to characters in the story is PERSON, HELLO.">
+	      <COND (<PRSO? ,SAILOR>
+		     <TELL " Besides, nothing happens here.">)>
+	      <TELL "]" CR>)
+	     (T
+	      <PERFORM ,V?TELL ,ME>
+	      <RTRUE>)>>
+
+<ROUTINE V-HIDE ()
+	 <TELL ,YOU-CANT "hide ">
+	 <COND (,PRSO
+		<TELL "t">)>
+	 <TELL "here." CR>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT HINTS>
+
+<GLOBAL HINTS-OFF:NUMBER -1>
+
+<GLOBAL HINT-COUNTER 0>
+
+<ROUTINE V-HINT ()
+  <COND (<EQUAL? ,HINTS-OFF -1>
+	 <SETG HINTS-OFF 0>
+	 <TELL
+"Warning: We strongly recommend that you not use hints unless you're definitely
+stuck. Peeking at hints prematurely will invariably make you enjoy
+the story less. If you want to avoid reading any hints for the rest of this
+session, you may at any time during the story type HINTS OFF. Do you still
+want a hint? (Y or N) >">
+	 <COND (<NOT <Y?>>
+		<RFATAL>)>)
+	(,HINTS-OFF
+	 <PERFORM ,V?HINTS-NO ,ROOMS>
+	 <RFATAL>)>
+  <SETG HINT-COUNTER <+ ,HINT-COUNTER 1>>
+  <COND (<AND <G? ,HINT-COUNTER 0>
+	      <EQUAL? <MOD ,HINT-COUNTER 5> 0>>
+	 <TELL "You're looking at the hints ">
+	 <HLIGHT ,H-BOLD>
+	 <TELL "again">
+	 <HLIGHT ,H-NORMAL>
+	 <TELL
+"?!! Even Lord Dimwit Flathead would consider that excessive!
+Do you really want to be such a wimp? (Y or N) >">
+	 <COND (<NOT <Y?>>
+		<RFATAL>)>)>
+  <DO-HINTS>>
+
+<REPLACE-DEFINITION INIT-HINT-SCREEN
+<ROUTINE INIT-HINT-SCREEN ()
+  <CLEAR -1>
+  <SCREEN ,S-FULL>
+  <COND (,BORDER-ON
+	 <DISPLAY ,HINT-BORDER 1 1>)>
+  <SPLIT-BY-PICTURE ,TEXT-WINDOW-PIC-LOC>
+  <SCREEN ,S-TEXT>
+  ,S-WINDOW>>
+
+<END-SEGMENT>
+<BEGIN-SEGMENT 0>
+
+<ROUTINE V-HINTS-NO ()
+	 <COND (<NOT <PRSO? ,ROOMS>>
+		<RECOGNIZE>
+		<RTRUE>)
+	       (,HINTS-OFF
+		<TELL "[You've already deactivated">)
+	       (T
+		<SETG HINTS-OFF T>
+		<TELL "[Okay, you will no longer have access to">)>
+	 <TELL " help in this session.]" CR>>
+
+<ROUTINE V-IN ()
+	 <DO-WALK ,P?IN>>
+
+<ROUTINE V-INFLATE ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-KICK ()
+	 <HACK-HACK "Kicking">>
+
+<ROUTINE V-KILL ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "Trying to kill" A ,PRSO " with">
+		<COND (,PRSI
+		       <TELL A ,PRSI>)
+		      (T
+		       <TELL " your bare hands">)>
+		<TELL " is suicidal." CR>)
+	       (T
+		<TELL "How strange, fighting" A ,PRSO "!" CR>)>>
+
+<ROUTINE V-KISS ()
+	<TELL "I'd sooner kiss a pig." CR>>
+
+;<ROUTINE V-KNEEL ()
+	 <COND (<EQUAL? ,P-PRSA-WORD ,W?BOW>
+		<TELL "You begin to get a sore waist." CR>)
+	       (T
+	 	<TELL "You begin to get a sore knee." CR>)>>
+
+<ROUTINE V-KNOCK ()
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<TELL "Nobody's home." CR>)
+	       (T
+		<HACK-HACK "Knocking on">)>>
+		
+;<ROUTINE V-LAND ()
+	 <COND (<AND <NOT ,PRSO>
+		     <EQUAL? <LOC ,PROTAGONIST> ,RAFT ,BARGE>>
+		<PERFORM-PRSA <LOC ,PROTAGONIST>>
+		<RTRUE>)
+	       (T
+	 	<TELL ,HUH>)>>
+
+<ROUTINE V-LEAD-TO ()
+	 <COND (<AND <PRSO? ,CAMEL>
+		     <PRSI? ,WATER>
+		     <FSET? ,CAMEL ,ANIMATEDBIT>>
+		<COND (<NOT ,CAMEL-THIRSTY>
+		       <PERFORM ,V?EXAMINE ,CAMEL>
+		       <RTRUE>)
+		      (T ;<EQUAL? ,HERE ,SOUTH-SHORE>
+		       <TELL
+"The camel takes the tiniest sip of lake water, snorts with disgust, and
+spits it right out." CR>)>)
+	       (T
+	 	<TELL
+"It doesn't look like you'll be leading" T ,PRSO " anywhere, let alone
+to" TR ,PRSI>)>>
+
+<ROUTINE V-LEAP ()
+	 <COND (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>
+		     <NOT <EQUAL? ,TURNED-INTO ,LITTLE-FUNGUS>>>
+		<V-SKIP>)
+	       (<OR <PRSO? ,ROOMS>
+		    <NOT ,PRSO>>
+		<COND (<AND <EQUAL? ,HERE ,GONDOLA>
+			    <G? ,DIRIGIBLE-COUNTER 0>>
+		       <DO-WALK ,P?OUT>)
+		      (<EQUAL? ,HERE ,HANGING-FROM-ROOTS
+			       	     ,UNDER-THE-WORLD ,SHOULDER>
+		       <JIGS-UP
+"You sail down through the mist for a seemingly endless time, passing giant
+brogmoid shoulders, hips, and knees. Eventually, the mist begins to thin, and
+you see a strange land below: Purple forests surround lakes of molten rock.
+Volcanoes belch green-blue smoke into the sky. Enormous slug-shaped creatures,
+a bloit long, engage in fierce combat. Suddenly, the feeling of floating
+endlessly changes to a feeling of falling very quickly, and this strange new
+world rushes up and smashes you to pulp.">)
+		      (<JUMPLOSS>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,MEGABOZ-HUT>
+		       <COND (<IN? ,PROTAGONIST ,LADDER>
+			      <TELL
+"You don't need to. Thanks to the ladder, you can easily make it
+through the trap door." CR>)
+			     (T
+			      <TELL
+"Your best jump leaves you far short of the trap door." CR>)>)
+		      (T
+		       <V-SKIP>)>)
+	       (<PRSO? ,INTDIR>
+		<COND (<AND <EQUAL? ,HERE ,OUTER-BAILEY>
+			    <NOT <EQUAL? ,JUMP-X 99>>
+			    <OR <NOUN-USED? ,INTDIR ,W?SOUTH ,W?NORTH>
+				<NOUN-USED? ,INTDIR ,W?EAST ,W?WEST>>>
+		       <COND (<NOUN-USED? ,INTDIR ,W?NORTH>
+			      <SETG JUMP-Y <+ ,JUMP-Y 1>>)
+			     (<NOUN-USED? ,INTDIR ,W?SOUTH>
+			      <SETG JUMP-Y <- ,JUMP-Y 1>>)
+			     (<NOUN-USED? ,INTDIR ,W?EAST>
+			      <SETG JUMP-X <+ ,JUMP-X 1>>)
+			     (T
+			      <SETG JUMP-X <- ,JUMP-X 1>>)>)
+		      (T
+		       <SETG JUMP-X 99>
+	 	       <SETG JUMP-Y 99>)>
+		<COND (<IN? ,PROTAGONIST ,TREE-STUMP>
+		       <SETG OLD-HERE <>>
+		       <MOVE ,PROTAGONIST ,HERE>)>
+		<TELL "You jump once in that direction." CR>)
+	       (<NOT <IN? ,PRSO ,HERE>>
+		<IMPOSSIBLES>)
+	       (<JUMPLOSS>
+		<RTRUE>)
+	       (T
+		<V-SKIP>)>>
+
+<ROUTINE JUMPLOSS ()
+	 <COND (<EQUAL? ,HERE ,PARAPET ,UPPER-LEDGE ,LOWER-LEDGE
+			      ,G-U-MOUNTAIN ,BALCONY ,ROOF ,QUARRYS-EDGE>
+		<COND (<PROB 33>
+		       <TELL "Geronimo">)
+		      (<PROB 50>
+		       <TELL "You should have looked before you leapt">)
+		      (T
+		       <TELL "This was not a very good place to try jumping">)>
+		<JIGS-UP "!">)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-LEAP-OFF ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?EXIT ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?LEAP ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LEAVE ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?OUT>)
+	       (<IN? ,PROTAGONIST ,PRSO>
+		<PERFORM ,V?EXIT ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LET-OUT ()
+	 <TELL "But" T ,PRSO " isn't all that confined." CR>>
+
+;<ROUTINE V-LICK ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<PERFORM ,V?EAT ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?TASTE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LIE-DOWN ()
+	 <COND (<IN? ,BEDBUG ,HERE>
+		<TELL "You curl up for a moment. ">
+		<REMOVE-BEDBUG "see">)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<AND <PRSO? ,ROOMS>
+		     <EQUAL? ,HERE ,DIMWITS-ROOM>>
+		<PERFORM ,V?ENTER ,DIMWITS-BED>
+		<RTRUE>)
+	       (T
+		<WASTES>)>>
+
+<ROUTINE PRE-LISTEN ()
+	 <COND (,TIME-STOPPED
+		<TELL "Unremitting silence." CR>)
+	       (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>>
+		<SETG P-CONT -1>
+		<TO-SPEAK-OF "ears">)>>
+
+<ROUTINE V-LISTEN ("AUX" PLANT)
+	 <COND (,PRSO
+	 	<SENSE-OBJECT "sound">)
+	       (<AND <EQUAL? ,HERE ,TORTURE-CHAMBER>
+		     <FSET? ,METRONOME ,TRYTAKEBIT>
+		     <G? ,METRONOME-COUNTER 0>>
+		<METRONOME-TORTURE>)
+	       (<AND <VISIBLE? ,METRONOME>
+		     ,METRONOME-ON>
+		<QUEUE I-METRONOME 2>
+		<I-METRONOME T>)
+	       (<AND <SET PLANT <FIND-IN ,HERE ,PLANTBIT>>
+		     ,PLANT-TALKER>
+		<TELL "[to" T .PLANT "]" CR>
+		<PERFORM-PRSA .PLANT>)
+	       (T
+		<TELL "You hear nothing of interest." CR>)>>
+
+<ROUTINE PRE-LOCK ("AUX" KEY)
+	 <COND (<NOT ,PRSI>
+		<COND (<SET KEY <FIND-IN ,PROTAGONIST ,KEYBIT>>
+		       <SETG PRSI .KEY>
+		       <TELL "[with" T .KEY "]" CR>
+		       <RFALSE>)
+		      (T
+		       <SETG AWAITING-REPLY 1>
+		       <QUEUE I-REPLY 2>
+		       <TELL "What? With your nose?" CR>)>)>>
+
+<ROUTINE V-LOCK ("AUX" KEY)
+	 <COND (<FSET? ,PRSO ,LOCKEDBIT>
+		<TELL ,ALREADY-IS>)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <PRSO? ,TRUNK>>
+		<TELL "Unfortunately," T ,PRSI " doesn't lock" TR ,PRSO>)
+	       (T
+		<TELL ,YOU-CANT "lock" AR ,PRSO>)>>
+
+<ROUTINE PRE-LOOK ()
+	 <COND (<NOT ,LIT>
+		<TELL ,TOO-DARK CR>)
+	       (<AND <VERB? READ>
+		     ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>>
+		<SETG P-CONT -1>
+		<TO-SPEAK-OF "eyes">)
+	       (<AND <VERB? READ>
+		     <UNTOUCHABLE? ,PRSO>
+		     <FSET? ,PRSO ,TAKEBIT>>
+		<TELL ,YNH TR ,PRSO>)>>
+
+<ROUTINE V-LOOK ()
+	 <COND (<D-ROOM T>
+		<D-OBJECTS>)>
+	 <RTRUE>>
+
+<ROUTINE V-LOOK-BEHIND ()
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)>
+	 <TELL "There is nothing behind" TR ,PRSO>>
+
+<ROUTINE V-LOOK-DOWN ()
+	 <COND (<PRSO? ,ROOMS>
+		<COND (<EQUAL? ,HERE ,HANGING-FROM-ROOTS ,UNDER-THE-WORLD>
+		       <V-LOOK>)
+		      (T
+		       <PERFORM ,V?EXAMINE ,GROUND>
+		       <RTRUE>)>)
+	       (T
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LOOK-INSIDE ("AUX" (X-RAYED <>))
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL ,IT-SEEMS-THAT T ,PRSO " has">
+		<COND (<NOT <D-NOTHING>>
+		       <TELL ,PERIOD-CR>)>
+		<RTRUE>)
+	       (<IN? ,PROTAGONIST ,PRSO>
+		<D-VEHICLE>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<TELL "All you can tell is that" T ,PRSO " is ">
+		<OPEN-CLOSED ,PRSO>
+		<TELL ,PERIOD-CR>)
+	       ;(<EQUAL? <GET ,P-ITBL ,P-PREP1> ,PR?OUT ,W?OUTSIDE>
+		<TELL "You see nothing special." CR>)
+	       (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?OUT>
+		<TELL "You see nothing special." CR>)
+	       (<FSET? ,PRSO ,SURFACEBIT>		
+		<TELL "On the surface of" T ,PRSO " you see">
+		<COND (<NOT <D-NOTHING>>
+		       <TELL ,PERIOD-CR>)>
+		<RTRUE>)
+	       (<AND <FSET? ,PRSO ,VEHBIT>
+		     <NOT <FIRST? ,PRSO>>>
+		;"if you're in it, it's handled above"
+		<COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		       <DO-FIRST "open" ,PRSO>
+		       <RTRUE>)
+		      (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+			    <NOT <FSET? ,PRSO ,TRANSBIT>>
+			    <FSET? ,GOGGLES ,WORNBIT>>
+		       <SET X-RAYED T>
+		       <DISCOVER-X-RAY>)>
+		<TELL "There is no one ">
+		<COND (<FSET? ,PRSO ,INBIT>
+		       <TELL "i">)
+		      (T
+		       <TELL "o">)>
+		<TELL "n" TR ,PRSO>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+			    <NOT <FSET? ,PRSO ,TRANSBIT>>
+			    <FSET? ,GOGGLES ,WORNBIT>>
+		       <SET X-RAYED T>
+		       <DISCOVER-X-RAY>)>
+		<COND (<SEE-INSIDE? ,PRSO>
+		       <TELL "Within" T ,PRSO " you see">
+		       <COND (<NOT <D-NOTHING>>
+		              <TELL ,PERIOD-CR>)>
+		       <COND (.X-RAYED
+			      <TELL
+"   After a moment, the power of the goggles wanes, and" T ,PRSO " no
+longer seems transparent." CR>)>
+		       <RTRUE>)
+		      (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+			    <FIRST? ,PRSO>
+			    <EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?IN>
+			   ;<EQUAL? <GET ,P-ITBL ,P-PREP1> ,PR?IN ;,PR?INSIDE>>
+		       <COND (<UNTOUCHABLE? ,PRSO>
+			      <CANT-REACH ,PRSO>
+			      <RTRUE>)>
+		       <PERFORM ,V?OPEN ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <DO-FIRST "open" ,PRSO>)>)
+	       ;(<EQUAL? <GET ,P-ITBL ,P-PREP1> ,PR?IN ;,PR?INSIDE>
+		<CANT-VERB-A-PRSO "look inside">)
+	       (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?IN>
+		<CANT-VERB-A-PRSO "look inside">)
+	       (T
+		<CANT-VERB-A-PRSO "look through">)>>
+
+<ROUTINE V-LOOK-OVER ()
+	 <V-EXAMINE>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <COND (<AND <ULTIMATELY-IN? ,PRSO>
+		     <NOT <PRSO? ,WALDO>>
+		     <NOT <IN? ,PRSO ,WALDO>>>
+		<COND (<FSET? ,PRSO ,WORNBIT>
+		       <TELL ,WEARING-IT>)
+		      (T
+		       <TELL ,HOLDING-IT>)>)
+	       (<FSET? ,PRSO ,WATERBIT>
+		<PERFORM-PRSA ,WATER>)
+	       (T
+		<TELL "There is nothing but ">
+		<COND (<IN? ,PRSO ,MIRROR-LAKE>
+		       <TELL "ice">)
+		      (<FSET? <LOC ,PRSO> ,DELTABIT>
+		       <TELL "swamp">)
+		      (<OR <PRSO? ,NORTH-DOCK ,SOUTH-DOCK ,EAST-DOCK ,WEST-DOCK
+				  ,YACHT ,WHARF ,BRIDGE>
+			   <AND <OR <PRSO? ,DRAWBRIDGE>
+				    <AND <PRSO? ,GLOBAL-HERE>
+					 <EQUAL? ,HERE ,DRAWBRIDGE>>>
+				<FSET? ,DRAWBRIDGE ,OPENBIT>>
+			   <AND <EQUAL? ,HERE ,LAKE-BOTTOM>
+				<IN? ,PRSO ,HERE>>
+			   <AND <PRSO? ,WALDO ,DB>
+			   	<NOT <EQUAL? ,HERE ,HOLD>>>
+			   <AND <IN? ,PRSO ,WALDO>
+				<NOT <EQUAL? ,HERE ,HOLD>>>
+			   <IN? ,PRSO ,FISH-TANK>>
+		       <TELL "water">)
+		      (T
+		       <TELL "dust">)>
+		<TELL " there." CR>)>>
+
+;<ROUTINE V-LOVE ()
+	 <TELL "Not difficult, considering how lovable" T ,PRSO " ">
+	 <COND (<FSET? ,PRSO ,PLURALBIT>
+		<TELL "are">)
+	       (T
+		<TELL "is">)>
+	 <TELL ,PERIOD-CR>>
+
+<ROUTINE V-LOWER ()
+	 <V-RAISE>>
+
+;<ROUTINE V-MAKE ()
+	 <TELL ,YOU-CANT "just make" A ,PRSO " out of thin air." CR>>
+
+;<ROUTINE V-MAKE-WITH ()
+	 <PERFORM ,V?SET ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<GLOBAL MAP-NOTE <>>
+
+<GLOBAL CHANGED-MAP-WARNING <>>
+
+<CONSTANT MAIN-MAP-NUM 1>
+<CONSTANT SECRET-WING-MAP-NUM 2>
+<CONSTANT VILLAGE-MAP-NUM 3>
+<CONSTANT LOWER-LEVEL-MAP-NUM 4>
+<CONSTANT LAKE-MAP-NUM 5>
+<CONSTANT DESERT-MAP-NUM 6>
+<CONSTANT FOOZLE-MAP-NUM 7>
+<CONSTANT FENSHIRE-MAP-NUM 8>
+<CONSTANT FJORD-MAP-NUM 9>
+<CONSTANT GRAY-MOUNTAINS-MAP-NUM 10>
+<CONSTANT DELTA-MAP-NUM 11>
+<CONSTANT FUBLIO-MAP-NUM 12>
+<CONSTANT ANTHARIA-MAP-NUM 13>
+
+<GLOBAL MAP-TOP-LEFT-X 0>
+<GLOBAL MAP-TOP-LEFT-Y 0>
+<GLOBAL MAP-ELEMENT-WIDTH 0>
+<GLOBAL MAP-ELEMENT-HEIGHT 0>
+<GLOBAL MAP-BOX-WIDTH 0>
+<GLOBAL MAP-BOX-HEIGHT 0>
+<GLOBAL MAP-SPACE-WIDTH 0>
+<GLOBAL MAP-SPACE-HEIGHT 0>
+
+<CONSTANT MAP-GEN-X-1 0>
+<CONSTANT MAP-GEN-X-2 -1>
+<CONSTANT MAP-GEN-X-3 -2>
+<CONSTANT MAP-GEN-X-4 -3>
+<CONSTANT MAP-GEN-X-5 -4>
+<CONSTANT MAP-GEN-X-6 -5>
+<CONSTANT MAP-GEN-X-7 -6>
+<CONSTANT MAP-GEN-X-8 -7>
+<CONSTANT MAP-GEN-X-9 -8>
+<CONSTANT MAP-GEN-X-10 -9>
+<CONSTANT MAP-GEN-X-11 -10>
+<CONSTANT MAP-GEN-Y-1 0>
+<CONSTANT MAP-GEN-Y-2 -1>
+<CONSTANT MAP-GEN-Y-3 -2>
+<CONSTANT MAP-GEN-Y-4 -3>
+<CONSTANT MAP-GEN-Y-5 -4>
+<CONSTANT MAP-GEN-Y-6 -5>
+<CONSTANT MAP-GEN-Y-7 -6>
+
+<CONSTANT MAP-PICSET-TBL
+	  <TABLE ICONLESS-ROOM-BOX
+		 YOU-ARE-HERE-SYMBOL
+		 N-S-CON
+		 E-W-CON
+		 NE-SW-CON
+		 NW-SE-CON
+		 MAP-N-HL
+		 MAP-NE-HL
+		 MAP-E-HL
+		 MAP-SE-HL
+		 MAP-S-HL
+		 MAP-SW-HL
+		 MAP-W-HL
+		 MAP-NW-HL
+		 MAP-N-UNHL
+		 MAP-NE-UNHL
+		 MAP-E-UNHL
+		 MAP-SE-UNHL
+		 MAP-S-UNHL
+		 MAP-SW-UNHL
+		 MAP-W-UNHL
+		 MAP-NW-UNHL
+		 ;"stuff room icons in these 20 slots, ending with a zero"
+		 <> <> <> <> <>
+		 <> <> <> <> <>
+		 <> <> <> <> <>
+		 <> <> <> <> <> >>
+
+<CONSTANT MAIN-ICON-TBL
+	<LTABLE GONDOLA-ICON
+		PEG-ROOM-ICON
+		WEST-WING-ICON
+		GYM-ICON
+		TORCH-ROOM-ICON
+		ROOF-ICON
+		PARLOR-ICON
+		FORMAL-GARDEN-ICON
+		BALCONY-ICON
+		GALLERY-ICON
+		THRONE-ROOM-ICON
+		BANQUET-HALL-ICON
+		KITCHEN-ICON
+		WINE-CELLAR-ICON
+		LIBRARY-ICON
+		EAST-WING-ICON
+		CHAPEL-ICON
+		J-QUARTER-ICON
+		PYRAMID-ICON
+		0>>
+
+<CONSTANT SECRET-WING-ICON-TBL
+	 <LTABLE DIMWITS-ROOM-ICON
+		 MAGIC-CLOSET-ICON
+		 PARAPET-ICON
+		 BASTION-ICON
+		 SECRET-PASSAGE-ICON
+		 TEE-ICON
+		 TOP-OF-STAIR-ICON
+		 BOTTOM-OF-STAIR-ICON
+		 ORACLE-ICON
+		 DUNGEON-ICON
+		 CELL-ICON
+		 0>>
+
+<CONSTANT VILLAGE-ICON-TBL
+	 <LTABLE PERIMETER-WALL-ICON
+		 GARRISON-ICON
+		 OUTER-BAILEY-ICON
+		 DRAWBRIDGE-ICON
+		 BARBICAN-ICON
+		 UPPER-BARBICAN-ICON
+		 CAUSEWAY-ICON
+		 INNER-BAILEY-ICON
+		 URS-OFFICE-ICON
+		 SHADY-PARK-ICON
+		 CHURCH-ICON
+		 COURTROOM-ICON
+		 POST-OFFICE-ICON
+		 FR-HQ-ICON
+		 MAGIC-SHOP-ICON
+		 BACK-ALLEY-ICON
+		 OFFICES-ICON
+		 PENTHOUSE-ICON
+		 0>>
+
+<CONSTANT LOWER-LEVEL-ICON-TBL
+	 <LTABLE ROOTS-ICON
+		 EAR-ICON
+		 MOUTH-OF-CAVE-ICON
+		 LEDGE-IN-PIT-ICON
+		 PASSAGE-STORAGE-ICON
+		 VAULT-ICON
+		 G-U-HIGHWAY-ICON
+		 EXIT-ICON
+		 KENNELS-ICON
+		 ROYAL-ZOO-ICON
+		 LABORATORY-ICON
+		 0>>
+
+<CONSTANT LAKE-ICON-TBL
+	 <LTABLE HOLD-ICON
+		 UNDERWATER-ICON
+		 LAKE-BOTTOM-ICON
+		 EAST-SHORE-ICON
+		 WEST-SHORE-ICON
+		 NORTH-SHORE-ICON
+		 SOUTH-SHORE-ICON
+		 LAKE-FLATHEAD-ICON
+		 RING-OF-DUNES-ICON
+		 G-U-SAVANNAH-ICON
+		 BATS-LAIR-ICON
+		 BASE-OF-MT-ICON
+		 G-U-MOUNTAIN-ICON
+		 STABLE-ICON
+		 SHRINE-ICON
+		 0>>
+
+<CONSTANT DESERT-ICON-TBL
+	 <LTABLE CACTUS-PATCH-ICON
+		 TALL-DUNES-ICON
+		 G-U-OASIS-ICON
+		 0>>
+
+<CONSTANT FOOZLE-ICON-TBL
+	 <LTABLE WHARF-ICON
+		 FISHING-VILLAGE-ICON
+		 QUILBOZZA-BEACH-ICON
+		 WARNING-ROOM-ICON
+		 FISHY-ODOR-ICON
+		 ROOM-OF-3-DOORS-ICON
+		 FORK-ICON
+		 WISHYFOO-ICON
+		 REST-STOP-ICON
+		 CROSSROADS-ICON
+		 TOLL-PLAZA-ICON
+		 FISSURES-EDGE-ICON
+		 ORB-ROOM-ICON
+		 0>>
+
+<CONSTANT FENSHIRE-ICON-TBL
+	 <LTABLE GONDOLA-ICON
+		 RUINED-HALL-ICON
+		 SECRET-ROOM-ICON
+		 HOTHOUSE-ICON
+		 MARSH-ICON
+		 0>>
+
+<CONSTANT CRAG-ICON-TBL
+	 <LTABLE CRAG-ICON
+		 UPPER-LEDGE-ICON
+		 LOWER-LEDGE-ICON
+		 IRON-MINE-ICON
+		 NATURAL-ARCH-ICON
+		 ENCHANTED-CAVE-ICON
+		 0>>
+
+<CONSTANT GLACIER-ICON-TBL
+	 <LTABLE MIRROR-LAKE-ICON
+		 CHALET-ICON
+		 0>>
+
+<CONSTANT DELTA-ICON-TBL
+	 <LTABLE RIVERS-END-ICON
+		 OCEANS-EDGE-ICON
+		 DELTA-ICON
+		 0>>
+
+<CONSTANT FUBLIO-ICON-TBL
+	 <LTABLE ON-TOP-OF-WORLD-ICON
+		 AMONGST-CLOUDS-ICON
+		 TIMBERLINE-ICON
+		 AVALANCHE-ICON
+		 ZORBEL-PASS-ICON
+		 BASE-OF-MTS-ICON
+		 FOOT-OF-STATUE-ICON
+		 OUTSIDE-HUT-ICON
+		 ATTIC-ICON
+		 CAIRN-ICON
+		 QUARRYS-EDGE-ICON
+		 QUARRY-ICON
+		 0>>
+
+<CONSTANT ANTHARIA-ICON-TBL
+	 <LTABLE STADIUM-ICON
+		 COAST-ROAD-ICON
+		 MINE-ENTRANCE-ICON
+		 STADIUM-ICON
+		 COAST-ROAD-ICON
+		 MINE-ENTRANCE-ICON
+		 DEAD-END-ICON
+		 CLIFF-BOTTOM-ICON
+		 PRECIPICE-ICON
+		 AERIE-ICON
+		 ICKY-CAVE-ICON
+		 0>>
+
+<ROUTINE V-MAP ("AUX" TBL RM RM-ICON CX CY CHAR)
+	 ;<COND (,DEBUG
+		<SET RM <FIRST? ,ROOMS>>
+		<REPEAT ()
+			<COND (<NOT .RM>
+			       <RETURN>)>
+			<FSET .RM ,TOUCHBIT>
+			<SET RM <NEXT? .RM>>>
+		<SETG BEEN-IN-FR-UPPER-FLOORS T>)>
+	 <COND (,DEMO-VERSION?
+		<NOT-IN-DEMO>
+		<RFATAL>)
+	       (<EQUAL? <DO-MAP> ,M-FATAL> ;"no map available, for example"
+		<RFATAL>)>
+	 <SET TBL <GETP ,HERE ,P?MAP-LOC>>
+	 <SET CY <MAP-Y <ZGET .TBL 1>>>
+	 <SET CX <MAP-X <ZGET .TBL 2>>>
+	 <REPEAT ()
+		 <COND (<EQUAL? 2 <ISAVE>>
+			<V-$REFRESH>)>
+		 <SET CHAR <BLINK <COND (<SET RM-ICON <GETP ,HERE ,P?ICON>>
+					 .RM-ICON)
+					(T
+					 ,ICONLESS-ROOM-BOX)>
+		            	  ,YOU-ARE-HERE-SYMBOL .CY .CX ,S-FULL>>
+		 <COND (<EQUAL? .CHAR ,CLICK1 ,CLICK2>
+			<COND (<MAP-CLICK> ;"rtrue if moved"
+			       <SETG ROSE-NEEDS-UPDATING T>
+			       <COND (<NOT <EQUAL? ,CURRENT-SPLIT
+						   ,MAP-TOP-LEFT-LOC>>
+				      ;"exit function caused you to leave map"
+				      <RETURN>)
+				     (<FSET? ,HERE ,DELTABIT>
+				      ;"else defeats maze -- rooms stay on map"
+				      <RETURN-FROM-MAP>
+				      <RETURN>)
+				     (,CHANGE-MAP
+				      <DO-MAP>)>
+			       ;"update map"
+			       <SET TBL <GETP ,HERE ,P?MAP-LOC>>
+			       <SET CY <MAP-Y <ZGET .TBL 1>>>
+			       <SET CX <MAP-X <ZGET .TBL 2>>>)>
+			<COND (<NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>
+			       <RETURN>)>)
+		       (T
+			<RETURN>)>>
+	 <RETURN-FROM-MAP>>
+
+<GLOBAL ROSE-NEEDS-UPDATING <>>
+
+<GLOBAL CHANGE-MAP <>>
+
+<ROUTINE DO-MAP ("AUX" TBL MAP-NUM RM RM-ICON)
+	 <SETG CHANGE-MAP <>>
+	 <COND (<AND <EQUAL? ,HERE ,GONDOLA>
+		     <EQUAL? <GET <GETP ,HERE ,P?MAP-LOC> 0> <>>>
+		<TELL "[Mapping is temporarily unavailable.]" CR>
+		<RFATAL>)
+	       (<NOT <GETP ,HERE ,P?MAP-LOC>>
+		<TELL "[No on-screen map is available for this location.">
+		<COND (<EQUAL? ,HERE ,CONSTRUCTION>
+		       <TELL " Use the blueprint from your package.">)>
+		<TELL "]" CR>
+		<RFATAL>)
+	       (<AND <OR <FSET? ,HERE ,DELTABIT>
+			 <EQUAL? ,HERE ,RIVERS-END ,OCEANS-EDGE>>
+		     <NOT ,CHANGED-MAP-WARNING>>
+		<SETG CHANGED-MAP-WARNING T>
+		<TELL "The jester ">
+		<COND (<NOT <IN? ,JESTER ,HERE>>
+		       <TELL "appears for a moment and ">)>
+		<TELL
+"says, \"It may seem odd and it may seem queer, but on-screen mapping
+works differently here.\"" CR CR>
+		<HIT-ANY-KEY>)
+	       (<NOT ,MAP-NOTE>
+		<SETG MAP-NOTE T>
+		<TELL
+"Please read the section in the manual on on-screen mapping, if you have not
+already done so. Are you ready to see the map (y or n)? >">
+		<COND (<NOT <Y?>>
+		       <RFATAL>)>)>
+	 <IF-SOUND <SETG SOUND-QUEUED? <>>
+		   <KILL-SOUNDS>>
+	 <PICINF ,MAP-BOX-SIZE ,PICINF-TBL>
+	 <SETG MAP-BOX-WIDTH <ZGET ,PICINF-TBL 1>>
+	 <SETG MAP-BOX-HEIGHT <ZGET ,PICINF-TBL 0>>
+	 <PICINF ,MAP-SPACE-SIZE ,PICINF-TBL>
+	 <SETG MAP-SPACE-WIDTH <ZGET ,PICINF-TBL 1>>
+	 <SETG MAP-SPACE-HEIGHT <ZGET ,PICINF-TBL 0>>
+	 <PICINF-PLUS-ONE ,MAP-TOP-LEFT-LOC>
+	 <SETG MAP-TOP-LEFT-X <ZGET ,PICINF-TBL 1>>
+	 <SETG MAP-TOP-LEFT-Y <ZGET ,PICINF-TBL 0>>
+	 <PICINF ,MAP-BASIC-ELT-SIZE ,PICINF-TBL>
+	 <SETG MAP-ELEMENT-WIDTH <ZGET ,PICINF-TBL 1>>
+	 <SETG MAP-ELEMENT-HEIGHT <ZGET ,PICINF-TBL 0>>
+	 <CLEAR -1>
+	 <SCREEN ,S-FULL>
+	 <SETG CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>
+	 <DISPLAY ,MAP-BORDER 1 1>
+	 <SET TBL <GETP ,HERE ,P?MAP-LOC>>
+	 <SET MAP-NUM <GET .TBL 0>>
+	 <SET RM <FIRST? ,ROOMS>>
+	 <MODIFY-PICSET-TBL .MAP-NUM>
+	 <PICSET ,MAP-PICSET-TBL>
+	 <DRAW-TITLES .MAP-NUM>
+	 <REPEAT ()
+	    <COND (<NOT .RM>
+		   <RETURN>)>
+	    <COND (<SET TBL <GETP .RM ,P?MAP-LOC>> ;"not all rooms go on a map"
+		   <COND (<AND <EQUAL? <GET .TBL 0> .MAP-NUM>
+			       <OR <FSET? .RM ,TOUCHBIT>
+				   <EQUAL? ,HERE .RM> ;"if you're in dark room"
+				   <AND <EQUAL? .RM ,FR-OFFICES
+						,OFFICES-NORTH ,OFFICES-SOUTH
+						,OFFICES-EAST ,OFFICES-WEST>
+					,BEEN-IN-FR-UPPER-FLOORS>>>
+			  <COND (<AND <FSET? .RM ,DELTABIT>
+				      <NOT <FIRST? .RM>>>
+				 T)
+				(<SET RM-ICON <GETP .RM ,P?ICON>>
+				 <DISPLAY-ROOM .RM-ICON
+					       <GET .TBL 1> <GET .TBL 2>>
+				 <DRAW-CONS .RM .TBL>)
+				(T
+				 <DISPLAY-ROOM ,ICONLESS-ROOM-BOX
+					       <GET .TBL 1> <GET .TBL 2>>
+				 <DRAW-CONS .RM .TBL>)>)>)>
+	    <SET RM <NEXT? .RM>>>
+	 <PICINF-PLUS-ONE ,MAP-ROSE-LOC>
+	 <DISPLAY ,MAP-ROSE-BG <GET ,PICINF-TBL 0> <GET ,PICINF-TBL 1>>
+	 <UPDATE-MAP-ROSE>>
+
+<ROUTINE UPDATE-MAP-ROSE ()
+	 <SETG ROSE-NEEDS-UPDATING <>>
+	 <PICINF-PLUS-ONE ,MAP-COMPASS-PIC-LOC>
+	 <DRAW-COMPASS-ROSE ,P?NORTH ,MAP-N-HL ,MAP-N-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?NE ,MAP-NE-HL ,MAP-NE-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?EAST ,MAP-E-HL ,MAP-E-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?SE ,MAP-SE-HL ,MAP-SE-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?SOUTH ,MAP-S-HL ,MAP-S-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?SW ,MAP-SW-HL ,MAP-SW-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?WEST ,MAP-W-HL ,MAP-W-UNHL>
+	 <DRAW-COMPASS-ROSE ,P?NW ,MAP-NW-HL ,MAP-NW-UNHL>>
+
+<ROUTINE MODIFY-PICSET-TBL (MAP-NUM "AUX" TBL)
+	 <SET TBL <COND (<EQUAL? .MAP-NUM ,MAIN-MAP-NUM>
+			 ,MAIN-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,SECRET-WING-MAP-NUM>
+			 ,SECRET-WING-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,VILLAGE-MAP-NUM>
+			 ,VILLAGE-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,LOWER-LEVEL-MAP-NUM>
+			 ,LOWER-LEVEL-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,LAKE-MAP-NUM>
+			 ,LAKE-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,DESERT-MAP-NUM>
+			 ,DESERT-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,FOOZLE-MAP-NUM>
+			 ,FOOZLE-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,FENSHIRE-MAP-NUM>
+			 ,FENSHIRE-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,FJORD-MAP-NUM>
+			 ,CRAG-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,GRAY-MOUNTAINS-MAP-NUM>
+			 ,GLACIER-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,DELTA-MAP-NUM>
+			 ,DELTA-ICON-TBL)
+			(<EQUAL? .MAP-NUM ,FUBLIO-MAP-NUM>
+			 ,FUBLIO-ICON-TBL)
+			(T
+			 ,ANTHARIA-ICON-TBL)>>
+	 <COPYT <REST .TBL 2> <REST ,MAP-PICSET-TBL 42> <* 2 <GET .TBL 0>>>>
+
+<ROUTINE MAP-CLICK ("AUX" TL-X TL-Y BR-X BR-Y TOP (CNT-X 1) (CNT-Y 1)
+			        (DONE <>) DIR OHERE TBL MAP-NUM)
+	 <COND (<SET DIR <MAP-NEIGHBORS>>
+		<DO-WALK .DIR>
+		<D-APPLY "map" <GETP ,HERE ,P?ACTION> ,M-END>
+		<CLOCKER>
+		<RTRUE>)
+	       (<SET DIR <COMPASS-CLICK ,MAP-COMPASS-PIC-LOC ,MAP-N-HL>>
+		<SET OHERE ,HERE>
+		<SET TBL <GETP ,HERE ,P?MAP-LOC>>
+		<SET MAP-NUM <GET .TBL 0>>
+		<DO-WALK .DIR>
+		<COND (<EQUAL? ,HERE .OHERE>
+		       <SOUND 1>
+		       <RFALSE>)
+		      (<SET TBL <GETP ,HERE ,P?MAP-LOC>>
+		       <COND (<NOT <EQUAL? .MAP-NUM <GET .TBL 0>>>
+			      <SETG CHANGE-MAP T>)>)
+		      (T ;"you've entered a room that's not on the map"
+		       <RETURN-FROM-MAP>)> 
+		<D-APPLY "map" <GETP ,HERE ,P?ACTION> ,M-END>
+		<CLOCKER>
+		<RTRUE>)
+	       (T
+		<SOUND 1>
+		<RFALSE>)>>
+
+;"call me with a ROOM and a FUNCTION to test/act on; if this function returns
+non-false, MAP-NEIGHBORS returns the direction to the neighboring room"
+
+<ROUTINE MAP-NEIGHBORS ("AUX" DIR PT PTS TMP)
+	 <MAP-DIRECTIONS (DIR PT ,HERE)
+		<SET PTS <PTSIZE .PT>>
+		<COND (<EQUAL? .PTS ,NEXIT>)
+		      (<EQUAL? .PTS ,UEXIT ,CEXIT>
+		       <SET TMP <GETB .PT ,REXIT>>
+		       <COND (<CLICKED-ON-NEIGHBOR .TMP>
+			      <RETURN .DIR>)>)
+		      (<EQUAL? .PTS ,DEXIT>
+		       <SET TMP <GETB .PT ,DEXITRM>>
+		       <COND (<CLICKED-ON-NEIGHBOR .TMP>
+			      <RETURN .DIR>)>)
+		      (<EQUAL? .PTS ,FEXIT>
+		       <SETG PRSO .DIR> ;"so exit routines return correct info"
+		       <COND (<SET TMP <APPLY <GET .PT ,FEXITFCN> ,M-ENTER>>
+			      <COND (<CLICKED-ON-NEIGHBOR .TMP>
+				     <RETURN .DIR>)>)>)>>
+	 <RFALSE>>
+
+<ROUTINE CLICKED-ON-NEIGHBOR (RM "AUX" TL-X TL-Y BR-X BR-Y TBL MAP-NUM)
+	 <SET TBL <GETP ,HERE ,P?MAP-LOC>>
+	 <SET MAP-NUM <GET .TBL 0>>
+	 <COND (<SET TBL <GETP .RM ,P?MAP-LOC>>
+		<COND (<NOT <EQUAL? <GET .TBL 0> .MAP-NUM>>
+		       <RFALSE>)>
+		<SET TL-Y <MAP-Y <GET .TBL 1>>>
+		<SET TL-X <MAP-X <GET .TBL 2>>>
+		<PICINF ,MAP-BOX-SIZE ,PICINF-TBL>
+		<SET BR-Y <+ .TL-Y <GET ,PICINF-TBL 0>>>
+		<SET BR-X <+ .TL-X <GET ,PICINF-TBL 1>>>
+		<COND (<WITHIN? .TL-X .TL-Y .BR-X .BR-Y>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)>>
+
+<ROUTINE RETURN-FROM-MAP ()
+	 <COND (<EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>
+		<SETG CHANGE-MAP <>>
+		<SETG CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>
+	 	<V-$REFRESH>
+		<COND (<EQUAL? ,VERBOSITY 2>
+		       <V-LOOK>)>
+	 	<IF-SOUND <COND (,SOUND-ON?
+				 <CHECK-LOOPING>)>>
+		<RFATAL>)>>
+
+;"if either POS positive, it's the top-left x or y + pos*element-width/height.
+  if negative, it's the ID of a picture that gives the appropriate coordinate."
+
+<ROUTINE MAP-X (X-POS)
+	 <COND (<G? .X-POS 0>
+		<PICINF-PLUS-ONE .X-POS>
+		<ZGET ,PICINF-TBL 1>)
+	       (T
+		<+ ,MAP-TOP-LEFT-X <* <- .X-POS> ,MAP-ELEMENT-WIDTH>>)>>
+
+<ROUTINE MAP-Y (Y-POS)
+	 <COND (<G? .Y-POS 0>
+		<PICINF-PLUS-ONE .Y-POS>
+		<ZGET ,PICINF-TBL 0>)
+	       (T
+		<+ ,MAP-TOP-LEFT-Y <* <- .Y-POS> ,MAP-ELEMENT-HEIGHT>>)>>
+
+<ROUTINE DISPLAY-ROOM (PICTURE-ID Y-POS X-POS "OPT" (Y-FUDGE 0) (X-FUDGE 0))
+  <DISPLAY .PICTURE-ID
+	   <+ .Y-FUDGE <MAP-Y .Y-POS>> <+ .X-FUDGE <MAP-X .X-POS>>>>
+
+<ROUTINE DRAW-TITLES (MAP-NUM "AUX" TMP TMP1)
+	 <COND (<EQUAL? .MAP-NUM ,MAIN-MAP-NUM>
+		<DISPLAY-ROOM ,MAIN-TITLE ,MAIN-TITLE-LOC ,MAIN-TITLE-LOC>
+		<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-1 ,MAP-GEN-X-1>
+		<COND (<FSET? ,CHAPEL ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-EAST-SYMBOL ,MAP-GEN-Y-6
+				     ,MAP-GEN-X-8 0 ,MAP-BOX-WIDTH>)>
+		<COND (<FSET? ,GREAT-HALL ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-NE-SYMBOL ,MAP-GEN-Y-4 ,MAP-GEN-X-5
+				     <- ,MAP-BOX-HEIGHT 2>
+				     <- <+ ,MAP-SPACE-WIDTH 2>>>
+		       <DISPLAY-ROOM ,DOWN-SE-SYMBOL ,MAP-GEN-Y-4 ,MAP-GEN-X-5
+				     <- ,MAP-BOX-HEIGHT 2>
+				     <- ,MAP-BOX-WIDTH 2>>)>)
+	       (<EQUAL? .MAP-NUM ,SECRET-WING-MAP-NUM>
+		<DISPLAY-ROOM ,SECRET-WING-TITLE
+			      ,SECRET-WING-TITLE-LOC ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-1 ,MAP-GEN-X-8>
+		<COND (<FSET? ,CRYPT ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-EAST-SYMBOL ,MAP-GEN-Y-3
+				     ,MAP-GEN-X-8 0 ,MAP-BOX-WIDTH>)>)
+	       (<EQUAL? .MAP-NUM ,VILLAGE-MAP-NUM>
+	 	<DISPLAY-ROOM ,VILLAGE-TITLE ,MAP-GEN-Y-5 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,VERTICAL-LEGEND ,MAP-GEN-Y-1 ,MAP-GEN-X-10>
+		<COND (<AND <FSET? ,SHADY-PARK ,TOUCHBIT>
+			    <FSET? ,VILLAGE-CENTER ,TOUCHBIT>>
+		       <DISPLAY-ROOM ,E-W-CON ,MAP-GEN-Y-3 ,MAP-GEN-X-6>
+		       <SET TMP <MAP-X ,5-FUDGE>>
+		       <DISPLAY-ROOM ,E-W-CON
+				     ,MAP-GEN-Y-3 ,MAP-GEN-X-6 0 .TMP>
+		       <DISPLAY-ROOM ,E-W-CON
+				     ,MAP-GEN-Y-3 ,MAP-GEN-X-6 0 <* .TMP 2>>
+		       <DISPLAY-ROOM ,E-W-CON
+				     ,MAP-GEN-Y-3 ,MAP-GEN-X-6 0 <* .TMP 3>>)>
+		<COND (<FSET? ,FR-HQ ,TOUCHBIT>
+		       <DISPLAY-ROOM ,LOBBY-OFFICE-CON
+				     ,MAP-GEN-Y-3 ,MAP-GEN-X-8
+				     <- ,MAP-BOX-HEIGHT 2>
+				     <- ,MAP-BOX-WIDTH 2>>)>
+		<COND (,BEEN-IN-FR-UPPER-FLOORS
+		       <DISPLAY-ROOM ,OFFICE-PENTHOUSE-CON
+				     ,MAP-GEN-Y-5 ,MAP-GEN-X-8
+				     <- ,MAP-BOX-HEIGHT 2>
+				     <- ,MAP-BOX-WIDTH 2>>)>)
+	       (<EQUAL? .MAP-NUM ,LOWER-LEVEL-MAP-NUM>
+	 	<DISPLAY-ROOM ,LOWER-LEVEL-TITLE ,MAP-GEN-Y-5 ,MAP-GEN-X-9>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-2 ,MAP-GEN-X-8>
+		<COND (<FSET? ,LOWEST-HALL ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-SW-SYMBOL ,MAP-GEN-Y-4 ,MAP-GEN-X-4
+				     <- ,MAP-BOX-HEIGHT 2>
+				     <- ,MAP-BOX-WIDTH 2>>
+		       <DISPLAY-ROOM ,LOW-HALL-CON ,MAP-GEN-Y-5
+				     ,MAP-GEN-X-4 0 ,MAP-BOX-WIDTH>)>
+		<COND (<FSET? ,LOWER-HALL ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-WEST-SYMBOL ,MAP-GEN-Y-5
+				     ,MAP-GEN-X-6 0 ,MAP-BOX-WIDTH>)>)
+	       (<EQUAL? .MAP-NUM ,LAKE-MAP-NUM>
+	 	<DISPLAY-ROOM ,LAKE-TITLE
+			      ,LAKE-TITLE-LOC ,LAKE-TITLE-LOC>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-6 ,MAP-GEN-X-8>
+	 	<COND (<FSET? ,HOLD ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-SOUTH-SYMBOL ,MAP-GEN-Y-4
+				     ,MAP-GEN-X-1 ,MAP-BOX-HEIGHT>
+		       <DISPLAY-ROOM ,DOWN-SOUTH-SYMBOL ,MAP-GEN-Y-5
+				     ,MAP-GEN-X-1 ,MAP-BOX-HEIGHT>)>
+	 	<COND (<FSET? ,UNDERWATER ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-SOUTH-SYMBOL ,MAP-GEN-Y-6
+				     ,MAP-GEN-X-1 ,MAP-BOX-HEIGHT>)>
+	        <COND (<FSET? ,GROTTO ,TOUCHBIT>
+		       <DISPLAY-ROOM ,N-S-CON ,MAP-GEN-Y-4 ,MAP-GEN-X-7>
+		       <SET TMP <MAP-Y ,5-FUDGE>>
+		       <DISPLAY-ROOM ,N-S-CON
+				     ,MAP-GEN-Y-4 ,MAP-GEN-X-7 .TMP>
+		       <DISPLAY-ROOM ,N-S-CON
+				     ,MAP-GEN-Y-4 ,MAP-GEN-X-7 <* .TMP 2>>
+		       <DISPLAY-ROOM ,N-S-CON
+				     ,MAP-GEN-Y-4 ,MAP-GEN-X-7 <* .TMP 3>>)>
+	 	<COND (<FSET? ,CONDUCTOR-PIT ,TOUCHBIT>
+		       <DISPLAY-ROOM ,DOWN-WEST-SYMBOL ,MAP-GEN-Y-3
+				     ,MAP-GEN-X-3 0 ,MAP-BOX-WIDTH>)>)
+	       (<EQUAL? .MAP-NUM ,DESERT-MAP-NUM>
+		<DISPLAY-ROOM ,DESERT-TITLE ,MAP-GEN-Y-2 ,MAP-GEN-X-2>
+		<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-3 ,MAP-GEN-X-8>)
+	       (<EQUAL? .MAP-NUM ,FOOZLE-MAP-NUM>
+	 	<DISPLAY-ROOM ,FOOZLE-TITLE ,MAP-GEN-Y-1 ,MAP-GEN-X-2>
+	 	<DISPLAY-ROOM ,VERTICAL-LEGEND ,MAP-GEN-Y-1 ,MAP-GEN-X-10>
+	 	<DISPLAY-ROOM ,FOOZLE-MAP-ILL ,MAP-GEN-Y-6 ,MAP-GEN-X-8>
+		<COND (<FSET? ,WISHYFOO-TERRITORY ,TOUCHBIT>
+		       <DISPLAY-ROOM ,WISHYFOO-FORK-CON ,MAP-GEN-Y-4
+				     ,MAP-GEN-X-4 ,MAP-BOX-HEIGHT>)>
+		<COND (<FSET? ,CAVE-IN ,TOUCHBIT>
+		       <DISPLAY-ROOM ,E-W-CON ,MAP-GEN-Y-3
+				     ,MAP-GEN-X-8 0 ,MAP-BOX-WIDTH>)>
+	 	<COND (<FSET? ,FISSURE-EDGE ,TOUCHBIT>
+		       <DISPLAY-ROOM ,N-S-CON ,MAP-GEN-Y-4
+				     ,MAP-GEN-X-7 ,MAP-BOX-HEIGHT>)>)
+	       (<EQUAL? .MAP-NUM ,FENSHIRE-MAP-NUM>
+	 	<DISPLAY-ROOM ,FENSHIRE-TITLE ,MAP-GEN-Y-3 ,MAP-GEN-X-5>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-6 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,FENSHIRE-MAP-ILL ,MAP-GEN-Y-5 ,MAP-GEN-X-6>)
+	       (<EQUAL? .MAP-NUM ,FJORD-MAP-NUM>
+	 	<DISPLAY-ROOM ,FJORD-TITLE ,MAP-GEN-Y-2 ,MAP-GEN-X-8>
+		<DISPLAY-ROOM ,VERTICAL-LEGEND ,MAP-GEN-Y-1 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,FJORD-MAP-ILL ,MAP-GEN-Y-6 ,MAP-GEN-X-5>
+		<DISPLAY-ROOM ,RV-TELEPORT-ARROW
+			      ,MAP-GEN-Y-4 ,MAP-GEN-X-4 ,MAP-BOX-HEIGHT>
+		<COND (<AND <FSET? ,CRAG ,TOUCHBIT>
+			    <FSET? ,NATURAL-ARCH ,TOUCHBIT>>
+		       <DISPLAY-ROOM ,ARCH-N-CON
+				     ,MAP-GEN-Y-4 ,MAP-GEN-X-4
+				     <+ <- <MAP-Y ,ARCH-N-CON-SIZE>> 1>
+				     ,MAP-BOX-WIDTH>
+		       <DISPLAY-ROOM ,ARCH-S-CON
+				     ,MAP-GEN-Y-4 ,MAP-GEN-X-4
+				     ,MAP-BOX-HEIGHT
+				     ,MAP-BOX-WIDTH>)>)
+	       (<EQUAL? .MAP-NUM ,GRAY-MOUNTAINS-MAP-NUM>
+		<DISPLAY-ROOM ,GRAY-MTS-TITLE ,MAP-GEN-Y-5 ,MAP-GEN-X-7>
+		<DISPLAY-ROOM ,VERTICAL-LEGEND ,MAP-GEN-Y-1 ,MAP-GEN-X-2>
+	 	<DISPLAY-ROOM ,GRAY-MTS-MAP-ILL ,MAP-GEN-Y-5 ,MAP-GEN-X-1>
+		<DISPLAY-ROOM ,RV-TELEPORT-ARROW
+			      ,MAP-GEN-Y-1 ,MAP-GEN-X-10 ,MAP-BOX-HEIGHT>
+		<COND (<FSET? ,GLACIER ,TOUCHBIT>
+		       <DISPLAY-ROOM ,GLACIER-MIRROR-CON
+				     ,MAP-GEN-Y-1 ,MAP-GEN-X-8
+				     <- ,MAP-BOX-HEIGHT 2>
+				     <- ,MAP-BOX-WIDTH 2>>)>)
+	       (<EQUAL? .MAP-NUM ,DELTA-MAP-NUM>
+	 	<DISPLAY-ROOM ,DELTA-TITLE ,MAP-GEN-Y-6 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-3 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,DELTA-MAP-ILL ,MAP-GEN-Y-1 ,MAP-GEN-X-1>
+		<DISPLAY-ROOM ,RV-TELEPORT-ARROW
+			      ,MAP-GEN-Y-5 ,MAP-GEN-X-10 ,MAP-BOX-HEIGHT>
+		<COND (<AND <FIRST? ,DELTA-1>
+			    <FIRST? ,DELTA-2>>
+		       <DISPLAY-ROOM ,ARCH-S-CON
+				     ,MAP-GEN-Y-5 ,MAP-GEN-X-8
+				     ,MAP-BOX-HEIGHT ,MAP-BOX-WIDTH>
+		       <DISPLAY-ROOM ,ARCH-N-CON
+				     ,MAP-GEN-Y-5 ,MAP-GEN-X-8
+				     <+ <- <MAP-Y ,ARCH-N-CON-SIZE>> 1>
+				     ,MAP-BOX-WIDTH>)>
+		<COND (<AND <FIRST? ,DELTA-1>
+			    <FIRST? ,DELTA-3>>
+		       <DISPLAY-ROOM ,DELTA-1-3-CON ,MAP-GEN-Y-3 ,MAP-GEN-X-8
+				  <- </ ,MAP-BOX-HEIGHT 2> 1> ,MAP-BOX-WIDTH>)>
+		<COND (<AND <FIRST? ,DELTA-1>
+			    <FIRST? ,DELTA-4>>
+		       <DISPLAY-ROOM ,DELTA-1-4-CON ,MAP-GEN-Y-2 ,MAP-GEN-X-9
+				     0 ,MAP-BOX-WIDTH>)>
+		<COND (<AND <FIRST? ,DELTA-2>
+			    <FIRST? ,DELTA-7>>
+		       <DISPLAY-ROOM ,RUBBLE-SE-CON
+				     ,MAP-GEN-Y-5 ,MAP-GEN-X-7
+				     ,MAP-BOX-HEIGHT ,MAP-BOX-WIDTH>)>
+		<COND (<AND <FIRST? ,DELTA-2>
+			    <FIRST? ,DELTA-3>>
+		       <DISPLAY-ROOM ,DELTA-2-3-CON
+				     ,MAP-GEN-Y-3 ,MAP-GEN-X-8 ,MAP-BOX-HEIGHT
+				     <+ <- <MAP-X ,2-3-CON-SIZE>> 1>>)>
+		<COND (<AND <FIRST? ,DELTA-3>
+			    <FIRST? ,DELTA-4>>
+		       <DISPLAY-ROOM ,RUBBLE-NW-CON
+				    ,MAP-GEN-Y-3 ,MAP-GEN-X-9
+				    <- <- <MAP-Y ,RUBBLE-CON-SIZE>> 1>
+				    <- <- <MAP-X ,RUBBLE-CON-SIZE>> 1>>)>
+		<COND (<AND <FIRST? ,DELTA-3>
+			    <FIRST? ,DELTA-5>>
+		       <DISPLAY-ROOM ,DELTA-3-5-CON
+				     ,MAP-GEN-Y-2 ,MAP-GEN-X-8
+				     ,MAP-BOX-HEIGHT
+				     <+ <- <MAP-X ,3-5-CON-SIZE>> 1>>)>
+		<COND (<AND <FIRST? ,DELTA-4>
+			    <FIRST? ,DELTA-5>>
+		       <DISPLAY-ROOM ,ARCH-N-CON
+				     ,MAP-GEN-Y-2 ,MAP-GEN-X-7
+				     <+ <- <MAP-Y ,ARCH-N-CON-SIZE>> 1>
+				     ,MAP-BOX-WIDTH>)>
+		<COND (<AND <FIRST? ,DELTA-5>
+			    <FIRST? ,DELTA-6>
+			    <FSET? ,DELTA-6 ,TOUCHBIT>>
+		       <DISPLAY-ROOM ,DELTA-5-6-CON
+				     ,MAP-GEN-Y-2 ,MAP-GEN-X-7
+				     ,MAP-BOX-HEIGHT
+				     <+ <- <MAP-X ,5-6-CON-SIZE>> 1>>)>
+		<COND (<AND <FIRST? ,DELTA-6>
+			    <FSET? ,DELTA-6 ,TOUCHBIT>
+			    <FIRST? ,DELTA-7>>
+		       <DISPLAY-ROOM ,DELTA-6-7-CON
+				     ,MAP-GEN-Y-5 ,MAP-GEN-X-7
+				     0 <- <MAP-X ,6-7-CON-SIZE>>>)>)
+	       (<EQUAL? .MAP-NUM ,FUBLIO-MAP-NUM>
+	 	<DISPLAY-ROOM ,FUBLIO-TITLE ,MAP-GEN-Y-2 ,MAP-GEN-X-9>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-4 ,MAP-GEN-X-1>
+		<DISPLAY-ROOM ,TELEPORT-ARROW ,MAP-GEN-Y-4 ,MAP-GEN-X-8
+			      <- <MAP-Y ,TELEPORT-ARROW-SIZE>>>)
+	       (<EQUAL? .MAP-NUM ,ANTHARIA-MAP-NUM>
+	 	<DISPLAY-ROOM ,ANTHARIA-TITLE ,MAP-GEN-Y-5 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,HORIZONTAL-LEGEND ,MAP-GEN-Y-6 ,MAP-GEN-X-1>
+	 	<DISPLAY-ROOM ,ANTHARIA-MAP-ILL ,MAP-GEN-Y-1 ,MAP-GEN-X-1>
+		<DISPLAY-ROOM ,TELEPORT-ARROW ,MAP-GEN-Y-4 ,MAP-GEN-X-8
+			      <- <MAP-Y ,TELEPORT-ARROW-SIZE>>>
+		<COND (<AND <FSET? ,RUBBLE-ROOM ,TOUCHBIT>
+			    <FSET? ,HEART-OF-MINE ,TOUCHBIT>>
+		       <DISPLAY-ROOM ,RUBBLE-SE-CON
+				     ,MAP-GEN-Y-3 ,MAP-GEN-X-9
+				     ,MAP-BOX-HEIGHT ,MAP-BOX-WIDTH>
+		       <DISPLAY-ROOM ,RUBBLE-NW-CON
+				    ,MAP-GEN-Y-4 ,MAP-GEN-X-10
+				    <- <- <MAP-Y ,RUBBLE-CON-SIZE>> 1>
+				    <- <- <MAP-X ,RUBBLE-CON-SIZE>> 1>>)>
+		<COND (<FSET? ,NORTH-OF-ANTHAR ,TOUCHBIT>
+		       <DISPLAY-ROOM ,N-S-CON ,MAP-GEN-Y-6 ,MAP-GEN-X-6
+				     ,MAP-BOX-HEIGHT>)>)>>
+
+<ROUTINE DRAW-CONS (RM TBL "AUX" Y X PTS NEXT-RM NEXT-TBL NEXT-Y NEXT-X)
+ <SET Y <MAP-Y <GET .TBL 1>>>
+ <SET X <MAP-X <GET .TBL 2>>>
+ <COND (<SHOW-DIRECTION? .RM ,P?NORTH>
+	<DISPLAY ,N-S-CON <- .Y ,MAP-SPACE-HEIGHT> .X>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?NE>
+	<DISPLAY ,NE-SW-CON
+		 <- .Y ,MAP-SPACE-HEIGHT> <+ .X ,MAP-BOX-WIDTH>>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?EAST>
+	<DISPLAY ,E-W-CON .Y <+ .X ,MAP-BOX-WIDTH>>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?SE>
+	<DISPLAY ,NW-SE-CON
+		 <+ .Y ,MAP-BOX-HEIGHT> <+ .X ,MAP-BOX-WIDTH>>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?SOUTH>
+	<DISPLAY ,N-S-CON <+ .Y ,MAP-BOX-HEIGHT> .X>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?SW>
+	<DISPLAY ,NE-SW-CON
+		 <+ .Y ,MAP-BOX-HEIGHT> <- .X ,MAP-SPACE-WIDTH>>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?WEST>
+	<DISPLAY ,E-W-CON .Y <- .X ,MAP-SPACE-WIDTH>>)>
+ <COND (<SHOW-DIRECTION? .RM ,P?NW>
+	<DISPLAY ,NW-SE-CON
+		 <- .Y ,MAP-SPACE-HEIGHT> <- .X ,MAP-SPACE-WIDTH>>)>
+ <COND (<SET PTS <GETPT .RM ,P?DOWN>>
+	<COND (<EQUAL? <PTSIZE .PTS> ,UEXIT ,CEXIT>
+	       <SET NEXT-RM <GETB .PTS ,REXIT>>)
+	      (<EQUAL? <PTSIZE .PTS> ,DEXIT>
+	       <SET NEXT-RM <GETB .PTS ,DEXITRM>>)>
+	<COND (<AND <EQUAL? .RM ,LOWER-HALL>
+		    <FSET? ,LOWEST-HALL ,TOUCHBIT>>
+	       T)
+	      (<EQUAL? .RM ,WISHYFOO-TERRITORY>
+	       T)
+	      (<AND .NEXT-RM
+		    <SET NEXT-TBL <GETP .NEXT-RM ,P?MAP-LOC>>
+		    <EQUAL? <GET .NEXT-TBL 0> <GET .TBL 0>>>
+	       <SET NEXT-Y <MAP-Y <GET .NEXT-TBL 1>>>
+	       <SET NEXT-X <MAP-X <GET .NEXT-TBL 2>>>
+	       <COND (<EQUAL? .X .NEXT-X>
+		      <COND (<G? .Y .NEXT-Y>
+			     <DISPLAY ,DOWN-NORTH-SYMBOL
+				      <- .Y ,MAP-SPACE-HEIGHT> .X>)
+			    (T
+			     <DISPLAY ,DOWN-SOUTH-SYMBOL
+				      <+ .Y ,MAP-BOX-HEIGHT> .X>)>)
+		     (<EQUAL? .Y .NEXT-Y>
+		      <COND (<G? .X .NEXT-X>
+			     <DISPLAY ,DOWN-WEST-SYMBOL
+				      .Y <- .X ,MAP-SPACE-WIDTH>>)
+			    (T
+			     <DISPLAY ,DOWN-EAST-SYMBOL
+				      .Y <+ .X ,MAP-BOX-WIDTH>>)>)>)>)>
+ <SET NEXT-RM <>> ;"it might not be, if it got set by the DOWN clause"
+ <COND (<SET PTS <GETPT .RM ,P?UP>>
+	<COND (<EQUAL? <PTSIZE .PTS> ,UEXIT ,CEXIT>
+	       <SET NEXT-RM <GETB .PTS ,REXIT>>)
+	      (<EQUAL? <PTSIZE .PTS> ,DEXIT>
+	       <SET NEXT-RM <GETB .PTS ,DEXITRM>>)>
+	<COND (<AND .NEXT-RM
+		    <SET NEXT-TBL <GETP .NEXT-RM ,P?MAP-LOC>>
+		    <EQUAL? <GET .NEXT-TBL 0> <GET .TBL 0>>>
+	       <SET NEXT-Y <MAP-Y <GET .NEXT-TBL 1>>>
+	       <SET NEXT-X <MAP-X <GET .NEXT-TBL 2>>>
+	       <COND (<EQUAL? .X .NEXT-X>
+		      <COND (<G? .Y .NEXT-Y>
+			     <DISPLAY ,DOWN-SOUTH-SYMBOL
+				      <- .Y ,MAP-SPACE-HEIGHT> .X>)
+			    (T
+			     <DISPLAY ,DOWN-NORTH-SYMBOL
+				      <+ .Y ,MAP-BOX-HEIGHT> .X>)>)
+		     (<EQUAL? .Y .NEXT-Y>
+		      <COND (<G? .X .NEXT-X>
+			     <DISPLAY ,DOWN-EAST-SYMBOL
+				      .Y <- .X ,MAP-SPACE-WIDTH>>)
+			    (T
+			     <DISPLAY ,DOWN-WEST-SYMBOL
+				      .Y <+ .X ,MAP-BOX-WIDTH>>)>)>)>)>>
+
+<ROUTINE V-MAYBE ()
+	 <YOU-SOUND "indecis">>
+
+<ROUTINE V-MEET ()
+	 <PERFORM ,V?TELL ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-MEASURE ()
+	 <COND (<OR <FSET? ,PRSO ,PARTBIT>
+		    <PRSO? ,ME>>
+		<TELL "Usual size." CR>)
+	       (T
+	 	<TELL "The same size as any other " D ,PRSO ,PERIOD-CR>)>>
+
+<ROUTINE V-MIRROR-LOOK ()
+	 <COND (<IN? ,PRSO ,PRSI>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "But" T ,PRSO " isn't in" TR ,PRSI>)>>
+
+<ROUTINE V-MOVE ()
+	 <COND (<ULTIMATELY-IN? ,PRSO>
+		<WASTES>)
+	       (<FSET? ,PRSO ,INTEGRALBIT>
+		<PART-OF>)
+	       (<LOC-CLOSED ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "Moving" T ,PRSO " reveals nothing." CR>)
+	       (<EQUAL? ,P-PRSA-WORD ,W?PULL>
+		<HACK-HACK "Pulling">)
+	       (<AND <EQUAL? ,P-PRSA-WORD ,W?MOVE>
+		     <PRSO? ,INTDIR>>
+		<DO-WALK <DIRECTION-CONVERSION>>)
+	       (T
+		<CANT-VERB-A-PRSO "move">)>>
+
+<ROUTINE V-MOVE-DIR ()
+	 <TELL "Pick up" T ,PRSO " and go that way!" CR>>
+
+<ROUTINE V-MOVE-TO ()
+	 <COND (<NOT <ULTIMATELY-IN? ,PRSO>>
+		<TELL ,YNH TR ,PRSO>)
+	       (T
+		<PERFORM ,V?PUT ,PRSO ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE V-MUNG ()
+         <HACK-HACK "Trying to destroy">>
+
+<ROUTINE V-NO ()
+	 <COND (<EQUAL? ,AWAITING-REPLY 1>
+		<V-YES>)
+	       (<EQUAL? ,AWAITING-REPLY 2>
+		<TELL "\"You're right, you don't. I do.\"" CR>)
+	       (T
+		<YOU-SOUND "negat">)>>
+
+;<ROUTINE V-NO-VERB ()
+	 <COND (<NOUN-USED? ,ME ,W?I>
+		<V-INVENTORY>)
+	       (,ORPHAN-FLAG
+		<WASTES>)
+	       (<NOT <VISIBLE? ,PRSO>>
+		<CANT-SEE ,PRSO>)
+	       ;(<FSET? ,PRSO ,ACTORBIT> 
+		<PERFORM ,V?TELL ,PRSO>
+		<RTRUE>)
+	       (,P-CONT
+		<PERFORM ,V?TELL ,PRSO>
+		<RTRUE>)
+	       (T
+		;<TELL "[Examine" T ,PRSO "]" CR CR>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)>>
+
+;<GLOBAL ORPHAN-FLAG <>>
+
+;<ROUTINE I-ORPHAN ()
+	 <SETG ORPHAN-FLAG <>>
+	 <RFALSE>>
+
+<ROUTINE NO-WORD (WRD)
+	 <COND (<OR <EQUAL? .WRD ,W?NO ,W?NOPE>
+		    <EQUAL? .WRD ,W?NAH ,W?UH-UH>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-OFF ()
+	 <COND (<FSET? ,PRSO ,LIGHTBIT>
+		<COND (<FSET? ,PRSO ,ONBIT>
+		       <FCLEAR ,PRSO ,ONBIT>
+		       <FCLEAR ,PRSO ,FLAMEBIT>
+		       <TELL "Okay," T ,PRSO " is now o">
+		       <COND (<PRSO? ,CANDLE>
+			      <TELL "ut">)
+			     (T
+			      <TELL "ff">)>
+		       <TELL ,PERIOD-CR>
+		       <NOW-DARK?>)
+		      (T
+		       <TELL "It isn't on!" CR>)>)
+	       (T
+		<CANT-TURN "ff">)>>
+
+<ROUTINE V-ON ()
+	 <COND ;(<FSET? ,PRSO ,ACTORBIT>
+		<TELL "Hopefully, your sexy body will do the trick." CR>)
+	       (<FSET? ,PRSO ,LIGHTBIT>
+		<COND (<FSET? ,PRSO ,ONBIT>
+		       <TELL ,ALREADY-IS>)
+		      (T
+		       <FSET ,PRSO ,ONBIT>
+		       <TELL "Okay," T ,PRSO " is now on." CR>
+		       <NOW-LIT?>)>)
+	       (T
+		<CANT-TURN "n">)>>
+
+<ROUTINE V-OPEN ()
+	 <COND (<AND ,PRSI
+		     <FSET? ,PRSI ,KEYBIT>>
+		<PERFORM ,V?UNLOCK ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<OR <FSET? ,PRSO ,SURFACEBIT>
+		    <FSET? ,PRSO ,ACTORBIT>
+		    <AND <FSET? ,PRSO ,VEHBIT>
+			 <NOT <PRSO? ,DB ,LADDER
+				     ,IRON-MAIDEN ,SNAKE-PIT ,WATER-CHAMBER>>>>
+		<IMPOSSIBLES>)
+	       (<FSET? ,PRSO ,OPENBIT>
+		<TELL ,ALREADY-IS>)
+	       (<FSET? ,PRSO ,LOCKEDBIT>
+		<TELL "The " D ,PRSO " is locked." CR>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<FSET ,PRSO ,OPENBIT>
+		<TELL "The " D ,PRSO " swings open." CR>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<FSET ,PRSO ,OPENBIT>
+		<FSET ,PRSO ,TOUCHBIT>
+		<COND (<OR <NOT <FIRST? ,PRSO>>
+			   <FSET? ,PRSO ,TRANSBIT>
+			   <PRSO? ,DB>>
+		       <TELL "Opened." CR>)
+		      (T
+		       <TELL "Opening" T ,PRSO " reveals">
+		       <COND (<NOT <D-NOTHING>>
+			      <TELL ,PERIOD-CR>)>
+		       <NOW-LIT?>)>
+		<RTRUE>)
+	       (T
+		<YOU-MUST-TELL-ME>)>>
+
+<ROUTINE V-PAY ("AUX" (MONEY <>))
+	 <COND (<ULTIMATELY-IN? ,ZORKMID-BILL>
+		<SET MONEY ,ZORKMID-BILL>)
+	       (<ULTIMATELY-IN? ,ZORKMID-COIN>
+		<SET MONEY ,ZORKMID-COIN>)>
+	 <COND (.MONEY
+		<PERFORM ,V?GIVE .MONEY ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You have no money!" CR>)>>
+
+<ROUTINE V-PICK ()
+	 <CANT-VERB-A-PRSO "pick">>
+
+<ROUTINE V-PLAY ()
+	 <CANT-VERB-A-PRSO "play">>
+
+<ROUTINE V-POINT ()
+	 <TELL "That would be pointless." CR>>
+
+<ROUTINE V-POUR ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-PRAY ()
+	 <COND (<AND <NOT ,PRSO>
+		     <EQUAL? ,HERE ,ORACLE>>
+		<PERFORM ,V?PRAY ,ORACLE-OBJECT>
+		<RTRUE>)
+	       (T
+		<TELL
+"If you pray long enough, your prayers may be answered." CR>)>>
+
+;<ROUTINE V-PULL-OVER ()
+	 <HACK-HACK "Pulling">>
+
+<ROUTINE V-PUSH ()
+	 <HACK-HACK "Pushing">>
+
+<ROUTINE V-PUSH-DIR ()
+	 <V-PUSH>>
+
+;<ROUTINE V-PUSH-OFF ()
+	 <COND (<AND <PRSO? ,ROOMS ,DOCK-OBJECT ,RAFT ,BARGE>
+		     <NOT <IN? ,PROTAGONIST ,HERE>>>
+		<PERFORM ,V?LAUNCH <LOC ,PROTAGONIST>>
+		<RTRUE>)
+	       (T
+		<TELL ,HUH>)>>
+
+<ROUTINE PRE-PUT ()
+	 <COND (<PRSI? ,GROUND ,CEILING>
+		<COND (<AND <PRSO? ,N-S-PASSAGE ,NW-SE-PASSAGE>
+		            <VERB? PUT>>
+		       <TELL "You can only install the passage in a wall!" CR>)
+		      (T
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)>)
+	       (<PRSO? ,HANDS>
+		<COND (<AND <VERB? PUT-ON PUT>
+			    <FSET? ,PRSI ,PARTBIT>>
+		       <RFALSE>)
+		      (<VERB? PUT>
+		       <PERFORM ,V?REACH-IN ,PRSI>
+		       <RTRUE>)
+		      (<AND <VERB? PUT-ON>
+			    <PRSI? ,STRAW>>
+		       <SETG FINGER-ON-STRAW T>
+		       <COND (<IN? ,STRAW ,BOWL>
+			      <SETG ELIXIR-TRAPPED T>)>
+		       <QUEUE I-FINGER-OFF-STRAW 2>
+		       <TELL
+"You put your finger over the end of the straw." CR>)
+		      (T
+		       <IMPOSSIBLES>)>)
+	       (<AND <PRSO? ,GLOVE>
+		     <PRSI? ,HANDS>>
+		<PERFORM ,V?WEAR ,GLOVE>
+		<RTRUE>)
+	       (<IN? ,PRSO ,WALDO>
+		<TELL
+"The waldo seems incapable of more than just picking something up
+and dropping it." CR>)
+	       (<AND <NOT <FSET? ,PRSI ,PARTBIT>>
+		     <PRE-LOOK>>		     
+		<RTRUE>)
+	       (<ULTIMATELY-IN? ,PRSI ,PRSO>		      
+		<TELL ,YOU-CANT "put" T ,PRSO>
+		<COND (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?ON>
+		       ;<FSET? ,PRSO ,SURFACEBIT>
+		       ;<EQUAL? <GET ,P-ITBL ,P-PREP2> ,PR?ON>
+		       <TELL " on">)
+		      (T
+		       <TELL " in">)>
+		<TELL T ,PRSI " when" T ,PRSI " is already ">
+		<COND (<FSET? ,PRSO ,SURFACEBIT>
+		       <TELL "on">)
+		      (T
+		       <TELL "in">)>
+		<TELL T ,PRSO "!" CR>)
+	       (<UNTOUCHABLE? ,PRSI>
+		<CANT-REACH ,PRSI>)
+	       ;(,IN-FRONT-FLAG  ;"you dont have to have it"
+		<PERFORM ,V?PUT-IN-FRONT ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<IDROP>
+		<RTRUE>)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<FSET? ,PRSI ,WATERBIT>
+		<COND (<PRSO? ,SMALL-VIAL ,LARGE-VIAL>
+		       <PERFORM ,V?FILL ,PRSO ,WATER>
+		       <RTRUE>)
+		      (T
+		       <PERFORM-PRSA ,PRSO ,WATER>)>)
+	       (<AND <NOT <FSET? ,PRSI ,OPENBIT>>
+		     <NOT <FSET? ,PRSI ,CONTBIT>>
+		     <NOT <FSET? ,PRSI ,SURFACEBIT>>
+		     <NOT <FSET? ,PRSI ,VEHBIT>>>
+		<TELL ,YOU-CANT "put" T ,PRSO " in" A ,PRSI "!" CR>)
+	       (<OR <PRSI? ,PRSO>
+		    <AND <ULTIMATELY-IN? ,PRSO>
+			 <NOT <FSET? ,PRSO ,TAKEBIT>>>>
+		<TELL "How can you do that?" CR>)
+	       (<FSET? ,PRSI ,DOORBIT>
+		<TELL ,CANT-FROM-HERE>)
+	       (<AND <NOT <FSET? ,PRSI ,OPENBIT>>
+		     <NOT <FSET? ,PRSI ,SURFACEBIT>>>
+		<THIS-IS-IT ,PRSI>
+		<DO-FIRST "open" ,PRSI>)
+	       (<IN? ,PRSO ,PRSI>
+		<TELL "But" T ,PRSO " is already in" TR ,PRSI>)
+	       (<FSET? ,PRSI ,ACTORBIT>
+		<TELL ,HUH>)
+	       (<AND <G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>>
+			    <GETP ,PRSI ,P?SIZE>>
+		    	 <GETP ,PRSI ,P?CAPACITY>>
+		     <NOT <ULTIMATELY-IN? ,PRSO ,PRSI>>>
+		<TELL "There's no room ">
+		<COND (<FSET? ,PRSI ,SURFACEBIT>
+		       <TELL "on">)
+		      (T
+		       <TELL "in">)>
+		<TELL T ,PRSI " for" TR ,PRSO>)
+	       (<AND <NOT <ULTIMATELY-IN? ,PRSO>>
+		     <EQUAL? <ITAKE> ,M-FATAL <>>>
+		<RTRUE>)
+	       (<AND <PRSO? ,FOX ,ROOSTER ,WORM>
+		     <FSET? ,PRSO ,ANIMATEDBIT>>
+		<TELL "You try, but" T ,PRSO " seems agitated and ">
+		<COND (<PRSO? ,FOX>
+		       <TELL "slyly jumps">)
+		      (<PRSO? ,ROOSTER>
+		       <TELL "hops">)
+		      (T
+		       <TELL "wriggles">)>
+		<TELL " out." CR>) 
+	       (T
+		<MOVE ,PRSO ,PRSI>
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL "Done." CR>
+		<SCORE-OBJ ,PRSO>)>>
+
+<ROUTINE V-PUT-BEHIND ()
+	 <WASTES>>
+
+;<ROUTINE V-PUT-NEAR ()
+	 <WASTES>>
+
+<ROUTINE V-PUT-ON ()
+	 <COND (<PRSI? ,ME>
+		<PERFORM ,V?WEAR ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSI ,SURFACEBIT>
+		<V-PUT>)
+	       (<AND <FSET? ,PRSI ,ACTORBIT>
+		     <FSET? ,PRSO ,WEARBIT>>
+		<TELL "But it's not" T ,PRSI"'s size." CR>)
+	       (T
+		<TELL "There's no good surface on" TR ,PRSI>)>>
+
+<ROUTINE V-PUT-THROUGH ()
+	 <COND (<FSET? ,PRSI ,DOORBIT>
+		<COND (<FSET? ,PRSI ,OPENBIT>
+		       <V-THROW>)
+		      (T
+		       <DO-FIRST "open" ,PRSI>)>)
+	       (<AND <PRSI? <LOC ,PROTAGONIST>>
+		     <EQUAL? ,P-PRSA-WORD ,W?THROW ,W?TOSS ,W?HURL>>
+		<SETG PRSI <>>
+		<V-THROW>)
+	       (T
+	 	<IMPOSSIBLES>)>>
+
+<ROUTINE V-PUT-TO ()
+	 <WASTES>>
+
+<ROUTINE V-PUT-UNDER ()
+         <WASTES>>
+
+<ROUTINE V-RAISE ()
+	 <HACK-HACK "Playing in this way with">>
+
+<ROUTINE PRE-RESEARCH ()
+	 <COND (<AND <NOT ,PRSI>
+		     <EQUAL? ,HERE ,LIBRARY>>
+		<SETG PRSI ,ENCYCLOPEDIA>)>
+	 <COND (<PRSO? ,ROOMS> ;"input was LOOK UP"
+		<COND (<NOT ,LIT>
+		       <TELL ,TOO-DARK CR>)
+		      (<EQUAL? ,HERE ,ON-TOP-OF-THE-WORLD>
+		       <PERFORM ,V?EXAMINE ,BROGMOID>
+		       <RTRUE>)
+		      (<FSET? ,HERE ,OUTSIDEBIT>
+		       <TELL "Sunlight filters through heavy cloud cover." CR>)
+		      (<EQUAL? ,HERE ,ON-TOP-OF-THE-WORLD>
+		       <TELL
+"You see a gray misty void, stretching upward as far as you can see." CR>)
+		      (T
+		       <PERFORM ,V?EXAMINE ,CEILING>
+		       <RTRUE>)>)
+	       (<NOT ,LIT>
+		<PERFORM ,V?READ ,ENCYCLOPEDIA>
+		<RTRUE>)
+	       (<NOT ,PRSI>
+		<TELL "There's no encyclopedia here to look it up in." CR>)
+	       (<NOT <EQUAL? ,PRSI ,ENCYCLOPEDIA>>
+		<TELL ,YOU-CANT "read about things in" AR ,PRSI>)
+	       (T
+		<SETG VOLUME-USED T>
+		<RFALSE>)>>
+
+<ROUTINE V-RESEARCH ("AUX" ENTRY PIC-NUM)
+	 <COND (<SET ENTRY <GETP ,PRSO ,P?RESEARCH>>
+		<TELL .ENTRY CR>)
+	       (<EQUAL? ,PRSO ,INTQUOTE>
+		<COND (<EQUAL? <GET <NP-LEXBEG <SET ENTRY <GET-NP ,PRSO>>> 0>
+			       ,W?QUOTE>
+		       <CHANGE-LEXV <NP-LEXBEG .ENTRY> ,W?NO.WORD>)>
+		<COND (<EQUAL? <GET <NP-LEXEND .ENTRY> 0>
+			       ,W?QUOTE>
+		       <CHANGE-LEXV <NP-LEXEND .ENTRY> ,W?NO.WORD>)>
+		;<DO-IT-AGAIN>
+		<SETG P-CONT <GET ,OOPS-TABLE ,O-START>>
+		<SETG P-LEN ,P-WORDS-AGAIN>
+		<TELL "[Uh, the quotation marks confused me...]" CR>)
+	       (T
+		<TELL "You look up \"">
+		<NP-PRINT <GET-NP ,PRSO>>
+		<TELL "\" in the encyclopedia, but find no entry." CR>)>>
+
+<ROUTINE V-SRESEARCH ()
+	 <PERFORM ,V?RESEARCH ,PRSI ,PRSO>
+	 <RTRUE>>
+
+;<ROUTINE V-RAPE ()
+	 <TELL "Unacceptably ungallant behavior." CR>>
+
+<ROUTINE V-SRIDE-DIR ()
+	 <PERFORM ,V?RIDE-DIR ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-RIDE-DIR ()
+	 <COND (<NOT <IN? ,PROTAGONIST ,PRSO>>
+		<TELL "But you're not even ">
+		<COND (<FSET? ,PRSO ,INBIT>
+		       <TELL "i">)
+		      (T
+		       <TELL "o">)>
+		<TELL "n" TR ,PRSO>)
+	       (<PRSI? ,INTDIR>
+		<DO-WALK <WORD-DIR-ID <NP-NAME <GET-NP ,PRSI>>>>)
+	       (<PRSO? ,CAMEL>
+		<TELL "Please use directions, as in RIDE CAMEL WEST." CR>)
+	       (T
+		<TELL "How can you do that?" CR>)>>
+
+;<ROUTINE V-RIDE-TO ("AUX" V)
+	 <COND (<SET V <FIND-IN ,HERE ,VEHBIT>>
+		<PERFORM ,V?ENTER .V>
+		<RTRUE>)
+	       (T
+		<TELL ,THERES-NOTHING "to ride." CR>)>>
+
+<ROUTINE V-REACH-IN ("AUX" OBJ)
+	 <SET OBJ <FIRST? ,PRSO>>
+	 <COND (<FSET? ,PRSO ,WATERBIT>
+		<PERFORM-PRSA ,WATER>)
+	       (<OR <FSET? ,PRSO ,ACTORBIT>
+		    <FSET? ,PRSO ,SURFACEBIT>
+		    <NOT <FSET? ,PRSO ,CONTBIT>>>
+		<YUKS>)
+	       (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<DO-FIRST "open" ,PRSO>)
+	       (<OR <NOT .OBJ>
+		    <FSET? .OBJ ,INVISIBLE>
+		    <NOT <FSET? .OBJ ,TRYTAKEBIT>>>
+		<TELL ,THERES-NOTHING "in" TR ,PRSO>)
+	       (T
+		<TELL "You feel something inside" TR ,PRSO>)>>
+
+<ROUTINE V-READ ()
+	 <COND (<FSET? ,PRSO ,READBIT>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>)
+               (T
+                <CANT-VERB-A-PRSO "read">)>>
+
+;<ROUTINE V-RELIEVE ()
+	 <TELL ,HUH>>
+
+<ROUTINE V-REMOVE ()
+	 <COND (<FSET? ,PRSO ,WEARBIT>
+		<PERFORM ,V?TAKE-OFF ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-ROLL ()
+	 <TELL "A rolling " D ,PRSO " gathers no moss." CR>>
+
+<ROUTINE V-ROLL-DIR ("AUX" OHERE)
+	 <COND ;(<NOT <PRSI? ,INTDIR>>
+		<RECOGNIZE>)
+	       (<PRSO? ,DUMBBELL ,CANNONBALL>
+		<COND (<AND <ULTIMATELY-IN? ,PRSO>
+			    <NOT <IN? ,PRSO ,WALDO>>>
+		       <TELL ,HOLDING-IT>
+		       <RTRUE>)>
+		<SET OHERE ,HERE>
+		<DO-WALK <DIRECTION-CONVERSION>>
+		<COND (<EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS>
+		       <REMOVE ,PRSO>
+		       <TELL
+"   The " D ,PRSO " disappointingly fails to roll along the ground ABOVE
+you, and plunges into the void." CR>)
+		      (<NOT <EQUAL? ,HERE .OHERE>>
+		       <MOVE ,PRSO ,HERE>
+		       <TELL "   The " D ,PRSO " rolls to a stop." CR>)>
+		<RTRUE>)
+	       (T
+		<V-ROLL>)>>
+
+<ROUTINE V-ROLL-DOWN ("AUX" OHERE)
+	 <COND (<PRSO? ,DUMBBELL ,CANNONBALL>
+		<COND (<AND <ULTIMATELY-IN? ,PRSO>
+			    <NOT <IN? ,PRSO ,WALDO>>>
+		       <TELL ,HOLDING-IT>
+		       <RTRUE>)>
+		<SET OHERE ,HERE>
+		<DO-WALK ,P?DOWN>
+		<COND (<NOT <EQUAL? ,HERE .OHERE>>
+		       <TELL "   The " D ,PRSO>
+		       <COND (<EQUAL? ,HERE ,OUBLIETTE>
+			      <REMOVE ,PRSO>
+			      <TELL " sinks into the mud">)
+			     (T
+			      <MOVE ,PRSO ,HERE>
+			      <TELL " rolls to a stop">)>
+		       <TELL ,PERIOD-CR>)>
+		<RTRUE>)
+	       (T
+		<V-ROLL>)>>
+
+<ROUTINE V-ROLL-UP ("AUX" OHERE)
+	 <COND (<PRSO? ,DUMBBELL ,CANNONBALL>
+		<COND (<AND <ULTIMATELY-IN? ,PRSO>
+			    <NOT <IN? ,PRSO ,WALDO>>>
+		       <TELL ,HOLDING-IT>
+		       <RTRUE>)>
+		<SET OHERE ,HERE>
+		<DO-WALK ,P?UP>
+		<COND (<NOT <EQUAL? ,HERE .OHERE>>
+		       <MOVE ,PRSO ,HERE>
+		       <TELL "   The " D ,PRSO " rolls to a stop." CR>)>
+		<RTRUE>)
+	       (T
+		<V-ROLL>)>>
+
+<ROUTINE V-SACRED-WORD ()
+	 <COND (<AND <NOT <EQUAL? ,SACRED-WORD-NUMBER 10>> ;"haven't seen word"
+		     <EQUAL? ,P-PRSA-WORD
+			     <GET ,SACRED-WORD-WORDS ,SACRED-WORD-NUMBER>>
+		     ,TIME-STOPPED>
+		<SETG TIME-STOPPED <>>
+		<FSET ,OUTER-GATE ,OPENBIT>
+		<FSET ,PERIMETER-WALL ,REDESCBIT>
+		<QUEUE I-END-GAME -1>
+		<TELL
+"As you utter the sacred word, time resumes its normal motion! ">
+		<COND (<EQUAL? ,HERE ,PERIMETER-WALL>
+		       <TELL "The huge outer gates burst open, and t">)
+		      (T
+		       <TELL
+"You hear a distant grinding sound like the opening of a huge door. T">)>
+		<TELL
+"he entire structure around you begins to shake and tremble; the last moments
+of the castle are at hand!" CR>)
+	       (T
+	 	<TELL
+"As you utter it, the power of the sacred word sends you staggering." CR>)>>
+
+<ROUTINE V-NOT-SO-SACRED-WORD ()
+	 <TELL
+"The word hangs in the air like a damp fog before dissipating." CR>>
+
+<ROUTINE V-SADDLE ()
+	 <COND (<NOT ,PRSI>
+		<COND (<ULTIMATELY-IN? ,SADDLE>
+		       <PERFORM ,V?PUT-ON ,SADDLE ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <TELL "You don't have a saddle!" CR>)>)
+	       (<PRSI? ,SADDLE>
+		<PERFORM ,V?PUT-ON ,SADDLE ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL
+"You can only saddle something with a saddle! In fact, that's probably
+where the word comes from!" CR>)>>
+
+<ROUTINE V-SAVE-SOMETHING ()
+	 <COND (<PRSO? ,ME>
+		<V-HINT>)
+	       (T
+		<TELL "Sorry, but" T ,PRSO " is beyond help." CR>)>>
+
+"<ADD-WORD 'TIME'	MISCWORD>
+<ADD-WORD 'TRIPLET'	MISCWORD>
+<ADD-WORD 'TRIPLETS'	MISCWORD>
+<ADD-WORD 'QUADRUPLET'	MISCWORD>
+<ADD-WORD 'QUINTUPLET'	MISCWORD>
+<ADD-WORD 'LETTER'	MISCWORD>
+<ADD-WORD 'A'		MISCWORD>
+<ADD-WORD 'THE'		MISCWORD>
+<ADD-WORD 'Y'		MISCWORD>
+<ADD-WORD 'MUSIC'	MISCWORD>
+<ADD-WORD 'MUSICAL'	MISCWORD>
+<ADD-WORD 'INSTRUMENTS'	MISCWORD>
+<ADD-WORD 'BOOKKEEPER'  MISCWORD>
+<ADD-WORD 'BOOKKEEPING'  MISCWORD>"
+
+<ROUTINE V-SAY ("AUX" V V2 TMP)
+	 <SET TMP <NP-LEXBEG <GET-NP>>>
+	 <COND (<EQUAL? ,PRSO ,INTQUOTE>
+		<SET TMP <ZREST .TMP <* 2 ;3 ,LEXV-ELEMENT-SIZE-BYTES>>>)>
+	 <SET V <GET .TMP 0>>
+	 <SET V2 <GET .TMP ,P-LEXELEN>>
+	 <COND (<AND ,AWAITING-REPLY
+		     <YES-WORD .V>>
+		<V-YES>)
+	       (<AND ,AWAITING-REPLY
+		     <NO-WORD .V>>
+		<V-NO>)
+	       (<INTBL? .V ,SACRED-WORD-WORDS ,SACRED-WORD-WORDS-LENGTH>
+		<SETG P-PRSA-WORD .V>
+		<V-SACRED-WORD>)
+	       (<AND ,PRSO
+		     <PRSO? ,SACRED-WORD-OBJ>>
+		<SETG P-PRSA-WORD <NP-NAME <GET-NP ,PRSO>>>
+	        <V-SACRED-WORD>)
+	       (<EQUAL? .V ,W?FLODOOR ,W?ZIPSO ,W?FURGALNETI>
+		<V-NOT-SO-SACRED-WORD>)
+	       (<AND <EQUAL? ,HERE ,ENTRANCE-HALL>
+		     <IN? ,JESTER ,HERE>
+		     <NOT <FSET? ,PORTCULLIS ,OPENBIT>>>
+		<COND (<OR <PRSO? ,TIME-OBJECT>
+			   <EQUAL? .V ,W?TIME>>
+		       <FSET ,PORTCULLIS ,OPENBIT>
+		       <TELL
+"The portcullis creaks open. \"Friend or foe, you're free to go!\"">
+		       <J-EXITS>
+		       <INC-SCORE 20>)
+		      (T
+		       <DONT-CRY>)>)
+	       (<AND <EQUAL? ,HERE ,OUBLIETTE>
+		     <IN? ,JESTER ,HERE>>
+		<COND (<OR <PRSO? ,TRIPLET>
+			   <EQUAL? .V ,W?TRIPLET ,W?TRIPLETS
+				      ,W?QUADRUPLET ,W?QUINTUPLET>
+			   <EQUAL? .V2 ,W?TRIPLET ,W?TRIPLETS
+			       	       ,W?QUADRUPLET ,W?QUINTUPLET>>
+		       <TELL
+"The jester solemnly shakes your hand, and you feel yourself rising
+out of the oubliette." CR CR>
+		       <GOTO ,DUNGEON>
+		       <INC-SCORE ,OUBLIETTE-SCORE>
+		       <SETG OUBLIETTE-SCORE 0>
+		       <RTRUE>)
+		      (T
+		       <DONT-CRY>)>)
+	       (<AND <IN? ,EAST-KEY ,JESTER>
+		     <IN? ,JESTER ,HERE>>
+		<COND (<OR <PRSO? ,LETTER-Y>
+			   <EQUAL? .V ,W?Y>
+			   <AND <EQUAL? .V ,W?A ,W?LETTER>
+				<EQUAL? .V ,W?Y>>
+			   <AND <EQUAL? .V ,W?A ,W?THE>
+				<EQUAL? .V2 ,W?LETTER>
+				<EQUAL? <GET .TMP <* 2 ,P-LEXELEN>> ,W?Y>>>
+		       <MOVE ,EAST-KEY ,PROTAGONIST>
+		       <FSET ,EAST-KEY ,TOUCHBIT>
+		       <FCLEAR ,EAST-KEY ,TRYTAKEBIT>
+		       <TELL
+"The jester grins and tosses you the key. \"Way to be -- Here's the key!\"">
+		       <J-EXITS>
+		       <INC-SCORE 20>)
+		      (T
+		       <DONT-CRY>)>)
+	       (<AND <IN? ,DIPLOMA ,JESTER>
+		     <IN? ,JESTER ,HERE>>
+		<COND (<OR <PRSO? ,MUSIC>
+			   <EQUAL? .V ,W?MUSIC>
+			   <AND <EQUAL? .V ,W?MUSICAL>
+				<EQUAL? .V2 ,W?INSTRUMENTS>>>
+		       <MOVE ,DIPLOMA ,PROTAGONIST>
+		       <FCLEAR ,DIPLOMA ,TRYTAKEBIT>
+		       <FCLEAR ,DIPLOMA ,NDESCBIT>
+		       <FSET ,DIPLOMA ,TOUCHBIT>
+		       <SETG COMPASS-CHANGED T>
+		       <TELL
+"\"Go to the head of the class!\" The jester hands you the framed
+document. \"With flying colors, you pass!\"">
+		       <J-EXITS>
+		       <INC-SCORE 12>)
+		      (T
+		       <DONT-CRY>)>)
+	       (<AND <EQUAL? ,HERE ,TAX-OFFICE>
+		     <IN? ,ZORKMID-COIN ,LOCAL-GLOBALS>
+		     <IN? ,JESTER ,HERE>>
+		<COND (<OR <PRSO? ,BOOKKEEPER>
+			   <EQUAL? .V ,W?BOOKKEEPER ,W?BOOKKEEPING>>
+		       <MOVE ,ZORKMID-COIN ,HERE>
+		       <TELL
+"You hear a \"clink\" by your feet. \"You're fast as a bunny
+and right on the money!\"">
+		       <J-EXITS>
+		       <INC-SCORE 6>)
+		      (T
+		       <DONT-CRY>)>)
+	       (<AND <EQUAL? ,HERE ,CAVE-IN>
+		     <IN? ,PIT-BOMB ,LOCAL-GLOBALS>
+		     <IN? ,JESTER ,HERE>>
+		<COND (<OR <AND <PRSO? ,MID-NAME>
+				<NOUN-USED? ,MID-NAME
+				  	  <GET ,MID-NAME-WORDS ,MID-NAME-NUM>>>
+			    <EQUAL? .V <GET ,MID-NAME-WORDS ,MID-NAME-NUM>>>
+		       <MOVE ,PIT-BOMB ,HERE>
+		       <TELL
+"\"That's my proper appellation; the finest in the nation!\"">
+		       <J-EXITS>
+		       <INC-SCORE 6>
+		       <CRLF>
+		       <COND (<EQUAL? ,HERE ,CAVE-IN>
+			      <V-LOOK>)>
+		       <RTRUE>)
+		      (<OR <PRSO? ,OTHER-J-NAMES>
+			   <EQUAL? .V ,W?BARBAZZO ,W?FERNAP>>
+		       <TELL
+"\"That's my name, but not my middle; try again to win this riddle!\"" CR>)
+		      (T
+		       <TELL
+"\"That's not my middle moniker; and I should know! I just looked it up
+this morning! Try again.\"" CR>)>)
+	       (<AND <EQUAL? ,HERE ,ON-TOP-OF-THE-WORLD>
+		     <IN? ,LITTLE-FUNGUS ,GLOBAL-OBJECTS>
+		     ,PLANT-TALKER
+		     <NOT <EQUAL? ,FUNGUS-NUMBER 12>> ;"not chosen yet"
+		     <EQUAL? .V <GET ,FUNGUS-WORDS ,FUNGUS-NUMBER>>>
+		<GET-LITTLE-FUNGUS>)
+	       (<SET V <FIND-IN ,HERE ,ACTORBIT>>
+		<SETG CLOCK-WAIT T>
+		<TELL
+"[If you want" T .V " to do something, the proper way is|
+   >" D .V ", do something]" CR>) 
+	       (T
+		<TELL "You say that out loud, but with no effect." CR>)>
+	 <STOP>>
+
+;<ROUTINE V-ANSWER-KLUDGE ()
+	 <COND (<NOUN-USED? ,W?I ,ME>
+		<V-INVENTORY>)
+	       (T
+	 	<SETG P-WON <>>
+		<TELL ,NO-VERB>
+		<STOP>)>>
+
+<ROUTINE V-SCORE ()
+	 <TELL "You have scored " N ,SCORE " point">
+	 <COND (<NOT <EQUAL? ,SCORE 1>>
+		<TELL "s">)>
+	 <TELL " (out of 1000) in " N ,MOVES " turn">
+	 <COND (<NOT <EQUAL? ,MOVES 1>>
+		<TELL "s">)>
+	 <TELL ". This gives you the rank of ">
+	 <COND (<EQUAL? ,SCORE 1000>
+		<TELL "Dungeon Master">)
+	       (<G? ,SCORE 875>
+		<TELL "Cursebuster">)
+	       (<G? ,SCORE 750>
+		<TELL "Master Explorer">)
+	       (<G? ,SCORE 625>
+		<TELL "Expert Adventurer">)
+	       (<G? ,SCORE 500>
+		<TELL "Respected Adventurer">)
+	       (<G? ,SCORE 375>
+		<TELL "Nobleman">)
+	       (<G? ,SCORE 250>
+		<TELL "Knight">)
+	       (<G? ,SCORE 125>
+		<TELL "Tradesman">)
+	       (T
+		<COND (<L? ,SCORE 0>
+		       <TELL "Incompetent ">)>
+		<TELL "Peasant">)>
+	 <TELL ,PERIOD-CR>>
+
+<ROUTINE SCORE-OBJ (OBJ "AUX" VAL)
+	 <SET VAL <GETP .OBJ ,P?VALUE>>
+	 <COND (.VAL
+		<INC-SCORE .VAL>
+		<PUTP .OBJ ,P?VALUE 0>)>>
+
+<ROUTINE V-NOTIFY ()
+	 <TELL "Okay, you will no">
+	 <COND (,NOTIFICATION-ON
+		<SETG NOTIFICATION-ON <>>
+		<TELL " longer">)
+	       (T
+		<SETG NOTIFICATION-ON T>
+		<TELL "w">)>
+	 <TELL " be notified when your score changes." CR>>
+
+<GLOBAL NOTIFICATION-ON T>
+
+<GLOBAL NOTIFICATION-WARNING <>>
+
+<ROUTINE INC-SCORE (PTS)
+	 <COND (<NOT <EQUAL? .PTS 0>>
+		<COND (,NOTIFICATION-ON
+		       <SOUND 1>
+		       <HLIGHT ,H-BOLD>
+		       <TELL "   [Your score has just gone ">
+		       <COND (<G? .PTS 0>
+			      <TELL "up">)
+			     (T
+			      <TELL "down">)>
+		       <TELL " by ">
+		       <COND (<G? .PTS 0>
+			      <PRINTN .PTS>)
+			     (T
+			      <PRINTN <* .PTS -1>>)>
+		       <TELL ".">
+		       <COND (<NOT ,NOTIFICATION-WARNING>
+			      <SETG NOTIFICATION-WARNING T>
+			      <TELL
+" Note: you can turn this feature on and off using the NOTIFY command.">)>
+		       <TELL "]" CR>
+		       <HLIGHT ,H-NORMAL>)>
+		<SETG SCORE <+ ,SCORE .PTS>>)>
+	 <RTRUE>>
+
+<ROUTINE V-SEARCH ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<V-SHAKE>)
+	       (<IN? ,PROTAGONIST ,PRSO>
+		<D-VEHICLE>)
+	       (<AND <FSET? ,PRSO ,CONTBIT>
+		     <NOT <FSET? ,PRSO ,OPENBIT>>>
+		<DO-FIRST "open" ,PRSO>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<TELL "You find">
+		<COND (<NOT <D-NOTHING>>
+		       <TELL ,PERIOD-CR>)>
+		<RTRUE>)
+	       (T
+		<CANT-VERB-A-PRSO "search">)>>
+
+<ROUTINE V-SSEARCH-OBJECT-FOR ()
+	 <PERFORM ,V?SEARCH-OBJECT-FOR ,PRSI, PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SEARCH-OBJECT-FOR ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<PERFORM ,V?SEARCH ,PRSO>
+		<RTRUE>)
+	       (<AND <FSET? ,PRSO ,CONTBIT>
+		     <NOT <FSET? ,PRSO ,OPENBIT>>>
+		<DO-FIRST "open" ,PRSO>)
+	       (<OR <IN? ,PRSI ,PRSO>
+		    <IN? ,PRSI ,HERE>>
+		<TELL "Very observant. There "
+		      <COND (<FSET? ,PRSI ,FEMALEBIT>
+			     "she")
+			    (<FSET? ,PRSI ,ACTORBIT>
+			     "he")
+			    (T
+			     "it")>
+		      " is." CR>)
+	       (T 
+		<TELL "You don't find" T ,PRSI " there." CR>)>>
+
+<ROUTINE V-SEND ()
+	 <TELL
+"You haven't any stamps, and there isn't a mailbox in sight!" CR>>
+
+<ROUTINE V-SET ()
+	 <COND (<NOT ,PRSI>
+		<COND (<PRSO? ,ROOMS> ;"input was TURN AROUND"
+		       <TELL
+"You do a 360 degree spin, but no agents appear to sign you
+up for the Borphee Metropolitan Ballet Company." CR>)
+		      (<OR <FSET? ,PRSO ,TAKEBIT>
+			   <FSET? ,PRSO ,INTEGRALBIT>>
+		       <HACK-HACK "Turning">)
+		      (T
+		       <TELL ,YNH TR ,PRSO>)>) 
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-SET-DIR ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-SGIVE ()
+	 <PERFORM ,V?GIVE ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SHAKE ("AUX" PERSON)
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "That wouldn't be polite." CR>)
+	       ;(<EQUAL? ,PRSO ,HANDS> ;"in hands-f"
+		<COND (<SET PERSON <FIND-IN ,HERE ,ACTORBIT "with">>
+		       <PERFORM ,V?SHAKE-WITH ,PRSO .PERSON>
+		       <RTRUE>)>)
+	       (T
+		<HACK-HACK "Shaking">)>>
+
+<ROUTINE V-SHAKE-WITH ()
+	 <COND (<NOT ,PRSI>
+		<PERFORM ,V?SHAKE-WITH ,HANDS ,PRSO>
+		<RTRUE>)
+	       (<NOT <PRSO? ,HANDS>>
+		<RECOGNIZE>)
+	       (<NOT <FSET? ,PRSI ,ACTORBIT>>
+		<TELL "I don't think" T ,PRSI " even has hands." CR>)
+	       (T
+		<PERFORM ,V?THANK ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE V-SHOW ("AUX" ACTOR)
+	 <COND (<AND <NOT ,PRSI>
+		     <SET ACTOR <FIND-IN ,HERE ,ACTORBIT>>>
+		<PERFORM ,V?SHOW ,PRSO .ACTOR>
+		<RTRUE>)
+	       (<NOT ,PRSI>
+		<TELL "There's no one here to show it to." CR>)
+	       (T
+		<TELL 
+"It doesn't look like" T-IS-ARE ,PRSI "interested." CR>)>>
+
+<ROUTINE V-SHUT-UP ()
+	 <COND (<PRSO? ,ROOMS>
+		<TELL "[I hope you're not addressing me...]" CR>)
+	       (T
+		<PERFORM ,V?CLOSE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-SING ()
+	 <TELL ,HUH>>
+
+<ROUTINE V-SING-TO ()
+	 <COND (<PRSO? ,BEDBUG>
+		<PERFORM ,V?PUT-TO ,BEDBUG ,GLOBAL-SLEEP>
+		<RTRUE>)
+	       (T
+	 	<WASTES>)>>
+
+<ROUTINE V-SINK ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-SIT ("AUX" VEHICLE)
+	 <COND (<AND ,PRSO
+		     <NOT <PRSO? ,ROOMS>>>
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<NOT <IN? ,PROTAGONIST ,HERE>>
+		<TELL ,LOOK-AROUND>)
+	       (<EQUAL? ,HERE ,CASINO>
+		<TELL "[at the card table]" CR>
+		<PERFORM ,V?ENTER ,CARD-TABLE>
+		<RTRUE>)
+	       (<SET VEHICLE <FIND-IN ,HERE ,VEHBIT "on">>
+		<PERFORM ,V?ENTER .VEHICLE>
+		<RTRUE>)
+               (T
+		<WASTES>)>>
+
+<ROUTINE V-SKIP ()
+	 <COND (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>
+		     <NOT <EQUAL? ,TURNED-INTO ,LITTLE-FUNGUS>>>
+		<SETG P-CONT -1> ;<RFATAL>
+		<TELL "Ahem..." A ,TURNED-INTO>
+		<COND (<FSET? ,TURNED-INTO ,PLURALBIT>
+		       <TELL " are">)
+		      (T
+		       <TELL " is">)>
+		<TELL" usually incapable of locomotion." CR>)
+	       (T
+		<TELL "Wasn't that fun?" CR>)>>
+
+<ROUTINE V-SLEEP ()
+	 <TELL "You're not tired">
+	 <COND (<IN? ,BEDBUG ,HERE>
+		<TELL ", but you curl up for a moment and fake sleep. ">
+		<REMOVE-BEDBUG "see">)
+	       (T
+		<TELL ,PERIOD-CR>)>>
+
+<ROUTINE PRE-SMELL ()
+	 <COND (<FSET? ,CLOWN-NOSE ,WORNBIT>
+		<TELL ,YOU-CANT "smell a thing with this clown nose on!" CR>)>>
+
+<ROUTINE V-SMELL ()
+	 <COND (<NOT ,PRSO>
+		<COND (<EQUAL? ,HERE ,WEST-WING>
+		       <TELL ,FUDGE CR>)
+		      (<EQUAL? ,HERE ,FISHY-ODOR>
+		       <TELL "Phew! Rotten fish!" CR>)
+		      (T
+		       <TELL "You smell nothing unusual at the moment." CR>)>)
+	       (T
+		<SENSE-OBJECT "smell">)>>
+
+<ROUTINE SENSE-OBJECT (STRING)
+	 <PRONOUN>
+	 <TELL " " .STRING>
+	 <COND (<AND <NOT <FSET? ,PRSO ,PLURALBIT>>
+		     <NOT <PRSO? ,ME>>>
+		<TELL "s">)>
+	 <TELL " just like" AR ,PRSO>>
+
+<ROUTINE V-SNAP ()
+	 <TELL "Perhaps it's your mind that has snapped." CR>>
+
+<ROUTINE V-SPUT-ON ()
+         <PERFORM ,V?PUT-ON ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SSHOW ()
+	 <PERFORM ,V?SHOW ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-STAND ()
+	 <COND (<EQUAL? ,P-PRSA-WORD ,W?HOLD> ;"for HOLD UP OBJECT"
+		<WASTES>)
+	       (<AND ,PRSO
+		     <FSET? ,PRSO ,TAKEBIT>
+		     <EQUAL? ,P-PRSA-WORD ,W?STAND> ;"for STAND UP OBJECT">
+		<WASTES>)
+	       (<AND <EQUAL? ,P-PRSA-WORD ,W?GET> ;"for GET UP ON OBJECT"
+		     ,PRSO
+		     <NOT <PRSO? ,ROOMS>>> ;"not GET UP"
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<NOT <IN? ,PROTAGONIST ,HERE>>
+		<PERFORM ,V?EXIT <LOC ,PROTAGONIST>>
+		<RTRUE>)
+	       (<AND <NOT <PRSO? ,ROOMS <>>>
+		     <NOT <EQUAL? ,P-PRSA-WORD ,W?STAND>>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (,UNDER-TABLE
+		<SETG UNDER-TABLE <>>
+		<SETG OLD-HERE <>>
+		<TELL "You get out from under the table." CR>)
+	       (T
+		<TELL "You're already standing." CR>)>>
+
+<ROUTINE V-STAND-ON ()
+	 <COND (<PRSO? ,EAST-DOCK ,WEST-DOCK ,NORTH-DOCK ,SOUTH-DOCK
+		       ,TREE-STUMP ,YACHT ,TOBOGGAN ,CONDUCTOR-STAND>
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (T
+	 	<WASTES>)>>
+
+<ROUTINE V-STELL ()
+	 <PERFORM ,V?TELL ,PRSI>
+	 <RTRUE>>
+
+<ROUTINE V-STHROW ()
+	 <COND (<PRSI? ,INTDIR>
+		<PERFORM ,V?THROW ,PRSO ,PRSI>)
+	       (T
+	 	<PERFORM ,V?THROW-TO ,PRSI ,PRSO>)>
+	 <RTRUE>>
+
+<ROUTINE V-SUCK-ON ()
+	 <PERFORM ,V?TASTE ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SUCK-WITH ()
+	 <PERFORM ,V?DRINK ,PRSO ,PRSI>
+	 <RTRUE>>
+
+<ROUTINE V-SWAT ()
+	 <COND (,PRSI
+		<TELL "Sorry, but" A ,PRSI " makes a poor ">)
+	       (T
+		<TELL "You don't have a ">)>
+	 <COND (<PRSO? ,LARGE-FLY ,LARGER-FLY ,EVEN-LARGER-FLY ,LARGEST-FLY>
+		<TELL "fly">)
+	       (T
+		<TELL D ,PRSO>)>
+	 <TELL "swatter." CR>>
+
+<ROUTINE V-SWIM ("AUX" X)
+	 <COND (,PRSO
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<SET X <FIND-WATER>>
+		<PERFORM ,V?ENTER .X>
+		<RTRUE>)
+	       (T
+		<TELL "Your head must be swimming." CR>)>>
+
+<ROUTINE V-SWING ()
+	 ;<COND (,PRSI
+		<PERFORM ,V?KILL ,PRSI ,PRSO>
+		<RTRUE>)>
+	 <TELL "\"Whoosh.\"" CR>>
+
+;"called from syntaxes that switch the prso and prsi"
+<ROUTINE PRE-SWITCH ()
+	 <SETG OBJ-SWAP T>
+	 <RFALSE>>
+
+;<ROUTINE PRE-SWITCH ("AUX" I O IA OA)
+	 <SET O <NP-NAME <GET-NP ,PRSO>>>
+	 <SET I <NP-NAME <GET-NP ,PRSI>>>
+	 <SET OA <GET <NP-ADJS <GET-NP ,PRSO>> 1>>
+	 <SET IA <GET <NP-ADJS <GET-NP ,PRSI>> 1>>
+	 <NP-NAME <GET-NP ,PRSO> .I>
+	 <NP-NAME <GET-NP ,PRSI> .O>
+	 <PUT <NP-ADJS <GET-NP ,PRSO>> 1 .IA>
+	 <PUT <NP-ADJS <GET-NP ,PRSO>> 1 .OA> 
+	 <RFALSE>>		
+
+<ROUTINE V-SWRAP ()
+	 <PERFORM ,V?WRAP ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<AND <NOT <FSET? ,PRSO ,PARTBIT>>
+		     <PRE-LOOK>>
+		<RTRUE>)
+	       (<AND <PRSO? ,HANDS>
+		     ,PRSI
+		     <OR <AND <PRSI? ,HAND-HOLE ,WALDO>
+		     	      ,HAND-IN-WALDO>
+			 <AND <PRSI? ,STRAW>
+			      ,FINGER-ON-STRAW>>>
+		<PERFORM ,V?REMOVE ,HANDS>
+		<RTRUE>)
+	       (<IN? ,PROTAGONIST ,PRSO>		     
+		<TELL "You're ">
+		<COND (<FSET? ,PRSO ,INBIT>
+		       <TELL "i">)
+		      (T
+		       <TELL "o">)>
+		<TELL "n it!" CR>)
+	       (<AND <ULTIMATELY-IN? ,PRSO>
+		     ,PRSI
+		     <IN? ,PRSI ,ROOMS>> ;"such as TAKE PLATTER IN SCULLERY"
+		<V-WALK-AROUND>)
+	       (<OR <IN? ,PRSO ,PROTAGONIST>
+		    <AND <ULTIMATELY-IN? ,PRSO>
+			 <NOT <FSET? ,PRSO ,TAKEBIT>>
+			 <NOT <PRSO? ,WALDO ,SMALL-VIAL-WATER
+				     ,LARGE-VIAL-WATER>>>>
+		<COND (<FSET? ,PRSO ,WORNBIT>
+		       <COND (<PRSO? ,CLOWN-NOSE>
+			      <PERFORM ,V?TAKE-OFF ,CLOWN-NOSE>
+			      <RTRUE>)>
+		       <TELL "You're already wearing">)
+		      (T
+		       <TELL "You already have">)>
+		<TELL T ,PRSO ,PERIOD-CR>)
+	       (<UNTOUCHABLE? ,PRSO>
+		<COND (,HAND-IN-WALDO
+		       <WALDO-TAKE>
+		       <RTRUE>)
+		      (T
+		       <CANT-REACH ,PRSO>)>)
+	       (<NOT ,PRSI>
+		<RFALSE>)
+	       (<PRSI? ,ME>
+		<PERFORM ,V?DROP ,PRSI>
+		<RTRUE>)
+	       (<AND <PRSO? ,WATER>
+		     <EQUAL? ,P-PRSA-WORD ,W?REMOVE>
+		     <OR <AND <PRSI? ,LARGE-VIAL>
+			      <G? ,LARGE-VIAL-WATER 0>>
+			 <AND <PRSI? ,SMALL-VIAL>
+			      <G? ,SMALL-VIAL-WATER 0>>>>
+		<PERFORM ,V?EMPTY-FROM ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<AND <NOT <IN? ,PRSO ,PRSI>>
+		     <NOT <EQUAL? ,PRSI <GETP ,PRSO ,P?OWNER>>>>
+		<NOT-IN>)
+	       (,PRSI
+		<SETG PRSI <>>
+		<RFALSE>)>>
+
+<ROUTINE V-TAKE ("AUX" (L <LOC ,PRSO>))
+	 <COND (<NOT <EQUAL? <ITAKE T> ,M-FATAL>>
+		<COND (<OR <EQUAL? .L ,HERE>
+			   <EQUAL? .L <LOC ,PROTAGONIST>>>
+		       <TELL "You pick up" TR ,PRSO>)
+		      (T
+		       <TELL "You take" T ,PRSO " from" TR .L>)>
+		<SCORE-OBJ ,PRSO>)>>
+
+<ROUTINE V-TAKE-OFF ("AUX" (VEHICLE <LOC ,PROTAGONIST>))
+	 <COND (<PRSO? ,ROOMS>
+		<COND (<FSET? .VEHICLE ,VEHBIT>
+		       <PERFORM ,V?EXIT .VEHICLE>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,GONDOLA>
+		       <DO-WALK ,P?OUT>)
+		      (T
+		       <TELL "You're not ">
+		       <COND (<EQUAL? <PARSE-PARTICLE1 ,PARSE-RESULT> ,W?OUT>
+			      <TELL "i">)
+			     (T ;"get off"
+			      <TELL "o">)>
+		       <TELL "n anything." CR>)>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<FCLEAR ,PRSO ,WORNBIT>
+		<THIS-IS-IT ,PRSO>
+		<TELL "You remove" TR ,PRSO>)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?EXIT ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You aren't wearing" TR ,PRSO>)>>
+
+<ROUTINE V-TAKE-WITH ()
+	 <COND (<NOT <ULTIMATELY-IN? ,PRSI>>
+		<TELL ,YNH TR ,PRSI>)
+	       (T
+		<TELL "Sorry," T-IS-ARE ,PRSI "no help in getting" TR ,PRSO>)>>
+
+<ROUTINE V-TASTE ()
+	 <SENSE-OBJECT "taste">>
+
+<ROUTINE PRE-TELL ()
+	 <COND (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>>
+		<SETG P-CONT -1>
+		<TO-SPEAK-OF "mouth">)
+	       (<OR <VERB? SING SING-TO SAY>
+		    <NOT ,PRSO>> ;"for example, V-YELL"
+		<RFALSE>)
+	       (<AND <FSET? ,PRSO ,PLANTBIT>
+		     ,PLANT-TALKER>
+		<RFALSE>)
+	       (<AND <OR <PRSO? ,OTHER-J-NAMES>
+			 <AND <PRSO? ,MID-NAME>
+			      <NOUN-USED? ,MID-NAME
+					 <GET ,MID-NAME-WORDS ,MID-NAME-NUM>>>>
+		     <VISIBLE? ,JESTER>>
+		<PERFORM-PRSA ,JESTER>
+		<RTRUE>)
+	       (<PRSO? ,OTHER-J-NAMES ,MID-NAME>
+		<TELL ,BY-THAT-NAME>
+		<STOP>)
+	       (<AND <PRSO? ,LITTLE-FUNGUS>
+		     <IN? ,LITTLE-FUNGUS ,GLOBAL-OBJECTS>>
+		<COND (<EQUAL? ,HERE ,ON-TOP-OF-THE-WORLD>
+		       <PERFORM ,V?CALL ,PRSO>)
+		      (T
+		       <TELL ,BY-THAT-NAME>)>
+		<STOP>)
+	       (<AND <NOT <FSET? ,PRSO ,ACTORBIT>>
+	             <NOT <PRSO? ,ME ,ORACLE-OBJECT ,SAILOR ,INTQUOTE>>>
+		<V-TELL>
+		<STOP>)>>
+
+<ROUTINE V-TELL ()
+	 <COND (<OR <FSET? ,PRSO ,ACTORBIT>
+		    <PRSO? ,SAILOR>
+		    <AND <FSET? ,PRSO ,PLANTBIT>
+			 ,PLANT-TALKER>>
+		<COND (<OR ,P-CONT
+			   <PRSO? ,SAILOR>>
+		       <SETG WINNER ,PRSO>
+		       <SETG CLOCK-WAIT T>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"Hmmm..." T ,PRSO " looks at you expectantly,
+as if you seemed to be about to talk." CR>)>)
+	       (<PRSO? ,BROGMOID>
+		<TELL ,TALK-TO-BROGMOID>)
+	       (T
+		<TELL
+"It's a well-known fact that only schizophrenics talk to" AR ,PRSO>
+	        <STOP>)>>
+
+<ROUTINE V-TELL-ABOUT ()
+	 <COND (<PRSO? ,ME>
+		<TELL
+"[Maybe you could find an encyclopedia to look that up in.]" CR>)
+	       (T
+		<PERFORM ,V?SHOW ,PRSI ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-THANK ()
+	 <COND (<NOT ,PRSO>
+		<TELL "[Just doing my job.]" CR>)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "It seems" T ,PRSO " is unmoved by your politeness." CR>)
+	       (T
+		<IMPOSSIBLES>)>>
+
+<ROUTINE V-THROW ()
+	 <COND (<NOT <SPECIAL-DROP ,PRSO>>
+	 	<COND (<EQUAL? <LOC ,PROTAGONIST> ,YACHT ,DB>
+		       <MOVE ,PRSO <LOC ,PROTAGONIST>>)
+		      (T
+		       <MOVE ,PRSO ,HERE>)>
+		<COND (<AND ,PRSI
+			    <NOT <PRSI? ,GROUND ,INTDIR>>>
+		       <TELL "You missed." CR>)
+		      (T
+		       <THIS-IS-IT ,PRSO>
+		       <TELL "Thrown." CR>)>)>>
+
+<ROUTINE V-THROW-OVER ()
+	 <WASTES>>
+
+<ROUTINE V-THROW-FROM ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-THROW-OVERBOARD ()
+	 <COND (<IN? ,PROTAGONIST ,YACHT>
+		<PERFORM ,V?PUT ,PRSO ,WATER>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,HOLD>
+		<TELL ,YOULL-HAVE-TO "go up on deck to do that." CR>)
+	       (T
+		<TELL "You generally have to be on a boat to do that." CR>)>>
+
+<ROUTINE V-THROW-TO ()
+	 <COND (<FSET? ,PRSI ,ACTORBIT>
+		<PERFORM ,V?GIVE ,PRSO ,PRSI>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?THROW ,PRSO ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE V-TIE ()
+	 <TELL ,YOU-CANT "tie" TR ,PRSO>>
+
+<ROUTINE V-TIME ()
+	 <TELL "It is daytime. You have taken " N ,MOVES " turn">
+	 <COND (<NOT <EQUAL? ,MOVES 1>>
+		<TELL "s">)>
+	 <COND (<G? ,MOVES 1000>
+		<TELL
+". (The day really seems to be dragging, doesn't it?)" CR>)
+	       (T
+		<TELL ,PERIOD-CR>)>>
+
+<ROUTINE V-TIP ()
+	 <TELL
+"You tell" T ,PRSO " about Lucky Brogmoid in the seventh race
+at Bozbar Downs, but ">
+	 <COND (<FSET? ,PRSO ,PLURALBIT>
+		<TELL "they don't">)
+	       (T
+		<COND (<NOT <FSET? ,PRSO ,ACTORBIT>>
+		       <TELL "it">)
+		      (<FSET? ,PRSO ,FEMALEBIT>
+		       <TELL "she">)
+		      (T
+		       <TELL "he">)>
+		<TELL " doesn't">)>
+	 <TELL " seem too interested." CR>>
+
+<ROUTINE V-TIP-OVER ()
+	 <WASTES>>
+
+<ROUTINE PRE-TOUCH ()
+	 <COND (<UNTOUCHABLE? ,PRSO>
+		<CANT-REACH ,PRSO>
+		<RTRUE>)
+	       (,TURNED-INTO
+		<COND (<AND <VERB? OFF>
+			    <EQUAL? ,P-PRSA-WORD ,W?BLOW>>
+		       <COND (<FSET? ,TURNED-INTO ,ANIMATEDBIT>
+			      <RFALSE>)
+			     (T
+			      <PRE-TELL>)>)
+		      (T
+		       <SETG P-CONT -1>
+		       <TO-SPEAK-OF "hands">)>)>>
+
+<ROUTINE V-STOUCH ()
+	 <PERFORM ,V?TOUCH ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-TOUCH ()
+	 <COND (<LOC-CLOSED ,PRSO>
+		<RTRUE>)
+	       (T
+		<HACK-HACK "Fiddling with">)>>
+
+<ROUTINE V-UNLOCK ()
+	 <COND (<FSET? ,PRSO ,LOCKEDBIT>
+		<TELL "Unfortunately," T ,PRSI " do">
+		<COND (<NOT <FSET? ,PRSI ,PLURALBIT>>
+		       <TELL "es">)>
+		<TELL "n't unlock" TR ,PRSO>)
+	       (T
+		<TELL "But" T ,PRSO " isn't locked." CR>)>>
+
+<ROUTINE V-UNTIE ()
+	 <IMPOSSIBLES>>
+
+<ROUTINE V-USE ()
+	 <TELL
+,YOULL-HAVE-TO "be more specific about how you want to use" TR ,PRSO>>
+
+;<ROUTINE V-USE-QUOTES ()
+	 <COND ;(<IN? ,HAREM-GUARD ,HERE>
+		<PICK-WIFE ,PRSO>)
+	       (T
+	        <TELL
+"[You need quotes to say something \"out loud.\" See the instruction manual
+section entitled \"Communicating With Infocom's Interactive Fiction.\"]" CR>)>>
+
+<ROUTINE V-WALK ("AUX" (AV <LOC ,PROTAGONIST>) VEHICLE PT PTS STR OBJ RM)
+	 <COND (<NOT ,P-WALK-DIR>
+		<USE-PREPOSITIONS "WALK " "TO" "THROUGH" "AROUND">)
+	       (<AND <EQUAL? ,HERE ,BANQUET-HALL>
+		     <RUNNING? ,I-PROLOGUE>
+		     <G? ,PROLOGUE-COUNTER 2>>
+		<SETG P-CONT -1> ;<RFATAL>
+		<RETURN-FROM-MAP>
+		<TELL "Thick black smoke blocks every exit." CR>)
+	       (<AND ,TURNED-INTO
+		     <NOT <FSET? ,TURNED-INTO ,ANIMATEDBIT>>
+		     <NOT <EQUAL? ,TURNED-INTO ,LITTLE-FUNGUS>>>
+		<RETURN-FROM-MAP>
+		<V-SKIP>)
+	       (<AND <PRSO? ,P?OUT>
+		     <FSET? .AV ,DROPBIT>>
+		<RETURN-FROM-MAP>
+		<PERFORM ,V?EXIT .AV>
+		<RTRUE>)	        
+	       (<AND <PRSO? ,P?IN>
+		     <NOT <GETPT ,HERE ,P?IN>>
+		     <SET VEHICLE <FIND-IN ,HERE ,VEHBIT>>
+		     <NOT <ULTIMATELY-IN? .VEHICLE>>>
+		<RETURN-FROM-MAP>
+		<COND (<EQUAL? ,P-PRSA-WORD ,W?ENTER>
+		       <TELL "[">
+		       <COND (<NOT <FSET? .VEHICLE ,NARTICLEBIT>>
+			      <TELL "the ">)>
+		       <TELL D .VEHICLE "]" CR>)>
+		<PERFORM ,V?ENTER .VEHICLE>
+		<RTRUE>)
+	       (<AND <IN? ,BEDBUG ,HERE>
+		     <NOT ,TIME-STOPPED>>
+		<SETG P-CONT -1> ;<RFATAL>
+		<RETURN-FROM-MAP>
+		<TELL
+"With a flurry of its powerful, hairy legs, the bedbug scuttles over
+to block your way." CR>)
+	       (<AND <PRSO? ,P?DOWN>
+		     <IN? ,PROTAGONIST ,YACHT>>
+		<GOTO ,HOLD>)
+	       (,UNDER-TABLE
+		<RETURN-FROM-MAP>
+		<DO-FIRST "get out from under the table">)
+	       (<AND <FSET? .AV ,VEHBIT>
+		     <NOT <AND <EQUAL? .AV ,LADDER>
+			       <PRSO? ,P?UP>>>
+		     <NOT <AND <EQUAL? .AV ,CAMEL>
+			       <FSET? ,CAMEL ,ANIMATEDBIT>>>>
+		<COND (<AND <EQUAL? .AV ,DB>
+			    <PRSO? ,P?UP>
+			    <NOT <EQUAL? ,HERE ,HOLD>>>
+		       <PERFORM ,V?RAISE ,LEVER>
+		       <RTRUE>)
+		      (<AND <EQUAL? .AV ,DB>
+			    <PRSO? ,P?DOWN>
+			    <NOT <EQUAL? ,HERE ,LAKE-BOTTOM>>>
+		       <PERFORM ,V?LOWER ,LEVER>
+		       <RTRUE>)>
+		<RETURN-FROM-MAP>
+		<TELL "You're not going anywhere until you get ">
+		<COND (<EQUAL? .AV ,CARD-TABLE>
+		       <TELL "up from">)
+		      (<FSET? .AV ,INBIT>
+		       <TELL "out of">)
+		      (T
+		       <TELL "off">)>
+		<SETG P-CONT -1> ;<RFATAL>
+		<TELL TR .AV>)
+	       (<AND <FSET? ,RING ,WORNBIT>
+		     <OR <PROB 40>
+			 <EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS
+				 ,LEDGE-IN-PIT ,MOUTH-OF-CAVE>>>
+		<RETURN-FROM-MAP>
+		<TELL "Oops! You awkwardly ">
+		<COND (<EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS
+			       ,LEDGE-IN-PIT ,MOUTH-OF-CAVE>
+		       <TELL "lost your grip! ">
+		       <PERFORM ,V?LEAP ,ROOMS>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"tripped over your own feet and fell down trying to walk. Fortunately,
+you're not seriously hurt." CR>)>)
+	       (<SET PT <GETPT ,HERE ,PRSO>>
+		<COND (<EQUAL? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <GOTO <GETB .PT ,REXIT>>)
+		      (<EQUAL? .PTS ,NEXIT>
+		       <RETURN-FROM-MAP>
+		       <SETG P-CONT -1> ;<RFATAL>
+		       <TELL <GET .PT ,NEXITSTR> CR>)
+		      (<EQUAL? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <GOTO .RM>)
+			     (T
+			      <SETG P-CONT -1> ;<RFATAL>)>)
+		      (<EQUAL? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <SETG P-CONT -1> ;<RFATAL>
+			      <RETURN-FROM-MAP>
+			      <TELL .STR CR>)
+			     (T
+			      <SETG P-CONT -1> ;<RFATAL>
+			      <CANT-GO>)>)
+		      (<EQUAL? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GET .PT ,DEXITOBJ>> ,OPENBIT>
+			      <GOTO <GETB .PT ,DEXITRM>>)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <RETURN-FROM-MAP>
+			      <THIS-IS-IT .OBJ>
+			      <SETG P-CONT -1> ;<RFATAL>
+			      <TELL .STR CR>)
+			     (T
+			      <RETURN-FROM-MAP>
+			      <THIS-IS-IT .OBJ>
+			      <SETG P-CONT -1> ;<RFATAL>
+			      <DO-FIRST "open" .OBJ>)>)>)
+	       (T
+		<COND (<PRSO? ,P?OUT ,P?IN>
+		       <V-WALK-AROUND>)
+		      (T
+		       <CANT-GO>)>
+		<SETG P-CONT -1> ;<RFATAL>)>>
+
+<ROUTINE CANT-GO ()
+	 <COND (<AND <NOT ,LIT>
+		     <NOT <EQUAL? <LOC ,PROTAGONIST> ,DB ,HOLD>>
+		     <NOT <EQUAL? ,HERE ,PIT-BOMB-LOC>>
+		     <NOT ,TIME-STOPPED>
+		     <PROB 75>>
+		<RETURN-FROM-MAP>
+		<DARK-DEATH>)
+	       (<OR <AND <IN? ,N-S-PASSAGE ,HERE>
+			 <EQUAL? ,PRSO ,N-S-PASSAGE-DIR>>
+		    <AND <IN? ,NW-SE-PASSAGE ,HERE>
+			 <EQUAL? ,PRSO ,NW-SE-PASSAGE-DIR>>>
+		<COND (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+			    <NOT <EQUAL? ,CONSTRUCTION-LOC ,N-S-PASSAGE-LOC>>
+			    <PRSO? ,N-S-PASSAGE-DIR>>
+		       <BEEP-OR-CANT-GO>)
+		      (<AND <EQUAL? ,HERE ,CONSTRUCTION>
+			    <NOT <EQUAL? ,CONSTRUCTION-LOC ,NW-SE-PASSAGE-LOC>>
+			    <PRSO? ,NW-SE-PASSAGE-DIR>>
+		       <BEEP-OR-CANT-GO>)
+		      (T
+		       <RETURN-FROM-MAP>
+		       <TELL
+"You walk down the Frobozz Magic Passage Company passage, but it ends in a
+dead end and you are forced to return to" TR ,HERE>)>)
+	       (T
+		<BEEP-OR-CANT-GO>)>>
+
+<ROUTINE BEEP-OR-CANT-GO ()
+	 <COND (<EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>
+		<SOUND 1>)
+	       (T
+		<TELL "You can't go that way." CR>)>>
+
+<ROUTINE V-WALK-AROUND ()
+	 <TELL "Please use compass directions to move around." CR>>
+
+<ROUTINE V-WALK-TO ()
+	 <COND (<OR <IN? ,PRSO ,HERE>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<COND (<FSET? ,PRSO ,ACTORBIT>
+		       <COND (<PRSO? ,SICKLY-WITCH ,PRICKLY-WITCH>
+			      <TELL "She's">)
+			     (T
+		       	      <TELL "He's">)>)
+		      (<FSET? ,PRSO ,PLURALBIT>
+		       <TELL "They're">)
+		      (T
+		       <TELL "It's">)>
+		<TELL " here!" CR>)
+	       (T
+		<V-WALK-AROUND>)>>
+
+<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))
+	 <TELL "Time ">
+	 <COND (,TIME-STOPPED
+		<TELL "doesn't pass">)
+	       (T
+		<TELL "passes">)>
+	 <TELL "..." CR>
+	 <REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0>
+			<RETURN>)
+		       (<CLOCKER>
+			<RETURN>)>>
+	 <COND (<AND <SET NUM <LOC ,WINNER>>
+		     <NOT <IN? .NUM ,ROOMS>>
+		     ;<FSET? .NUM ,VEHBIT>>
+		<SET NUM <D-APPLY "M-END" <GETP .NUM ,P?ACTION> ,M-END>>)>
+	 <SET NUM <D-APPLY "M-END" <GETP ,HERE ,P?ACTION> ,M-END>>
+	 <COND (<EQUAL? ,M-FATAL .NUM>
+		<SETG P-CONT -1>)>
+	 <SETG CLOCK-WAIT T>>
+
+<ROUTINE V-WAIT-FOR ()
+	 <COND (<VISIBLE? ,PRSO>
+		<V-FOLLOW>)
+	       (T
+	 	<TELL "You may be waiting quite a while." CR>)>>
+
+;<ROUTINE V-WAVE ()
+	 <COND (<AND ,PRSI
+		     <NOT ,IN-FRONT-FLAG>>
+		<RECOGNIZE>)
+	       (<ULTIMATELY-IN? ,PRSO>
+		<WASTES>)	       	       
+	       (T
+		<TELL ,YNH TR ,PRSO>)>>
+
+<ROUTINE V-WEAR ()
+         <COND (<NOT <FSET? ,PRSO ,WEARBIT>>
+		<CANT-VERB-A-PRSO "wear">)
+	       (<IN? ,PRSO ,WALDO>
+		<TELL ,YNH TR ,PRSO>)
+	       (T
+		<TELL "You're ">
+		<COND (<FSET? ,PRSO ,WORNBIT>
+		       <TELL "already">)
+		      (T
+		       <MOVE ,PRSO ,PROTAGONIST>
+		       <FSET ,PRSO ,WORNBIT>
+		       <TELL "now">)>
+		<TELL " wearing" TR ,PRSO>)>>
+
+<ROUTINE V-WRAP ()
+	 <WASTES>>
+
+<ROUTINE V-YAWN ()
+	 <COND (<IN? ,BEDBUG ,HERE>
+		<REMOVE-BEDBUG "see">)
+	       (T
+		<SETG AWAITING-REPLY 1>
+		<QUEUE I-REPLY 2>
+		<TELL "[Is the game boring you?]" CR>)>>
+
+<ROUTINE REMOVE-BEDBUG (STRING)
+	 <REMOVE ,BEDBUG>
+	 <TELL
+"That was all the bedbug needed to " .STRING ". It curls up into a well-armed
+piece of sleeping bedbug armor. You hear a chuckle from an invisible source,
+and the sleeping bedbug disappears!" CR>>
+
+<ROUTINE V-YELL ()
+	 <COND (<PRSO? ,INTQUOTE>
+		<V-SAY>)
+	       (T
+	 	<TELL "Aaaarrrggghhhh!" CR>
+	 	<STOP>)>>
+
+<ROUTINE I-REPLY ()
+	 <SETG AWAITING-REPLY <>>
+	 <RFALSE>>
+
+<GLOBAL AWAITING-REPLY <>>
+
+<ROUTINE V-YES ()
+	 <COND (<EQUAL? ,AWAITING-REPLY 1> 
+	        <TELL "That was just a rhetorical question." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 2>
+		<TELL
+"\"Well, you don't. This swamp is owned by a cartel of lily pad farmers in
+Borphee, who are indebted up to their ears to a conglomerate of Gurthian
+banks, of which I am the primary stockholder. Ergo, you could safely say
+that I own this swamp.\"" CR>) 
+	       (T
+	 	<YOU-SOUND "posit">)>>
+
+<ROUTINE YOU-SOUND (STRING)
+	 <TELL "You sound rather " .STRING "ive." CR>>
+
+<ROUTINE YES-WORD (WRD)
+	 <COND (<OR <EQUAL? .WRD ,W?YES ,W?Y ,W?YUP>
+		    <EQUAL? .WRD ,W?OK ,W?OKAY ,W?SURE>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-ZAP ()
+	 <COND (,PRSI
+		<PERFORM ,V?POINT ,PRSI ,PRSO>
+		<RTRUE>)
+	       (<PRSO? ,WAND>
+		<TELL "Try waving the wand at something in particular." CR>)
+	       (<AND <ULTIMATELY-IN? ,WAND>
+		     <VISIBLE? ,WAND>>
+		<PERFORM ,V?POINT ,WAND ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You have neither a magical wand nor a ray gun." CR>)>>
+
+;"subtitle object manipulation"
+
+<ROUTINE ITAKE ("OPTIONAL" (VB T) (OBJ 0))
+	 <COND (<ZERO? .OBJ>
+		<SET OBJ ,PRSO>)>
+	 <COND (<FSET? .OBJ ,INTEGRALBIT>
+		<COND (.VB
+		       <PART-OF>)>
+		<RFATAL>)
+	       (<NOT <FSET? .OBJ ,TAKEBIT>>
+		<COND (.VB
+		       <YUKS>)>
+		<RFATAL>)
+	       (,ALLIGATOR
+		<SETG P-CONT -1>
+		<COND (.VB
+		       <TELL
+,YOU-CANT "pick anything up right now. The logic goes something like this:|
+   1. You need hands to pick something up.|
+   2. You've been turned into an alligator.|
+   3. Alligators don't have hands." CR>)>
+		<RFATAL>)
+	       (,TURNED-INTO
+		<COND (.VB
+		       <TELL
+"Surely you realize that" A ,TURNED-INTO " is hardly equipped to
+carry items around!" CR>)>
+		<RFATAL>)
+	       (<LOC-CLOSED .OBJ .VB>
+		<RFATAL>)
+	       (<UNTOUCHABLE? .OBJ>
+		<COND (.VB
+		       <CANT-REACH .OBJ>)>
+		<RFATAL>)
+	       (<AND <FSET? ,RING ,WORNBIT>
+		     <G? <CCOUNT ,PROTAGONIST> 4>>
+		<COND (.VB
+		       <TELL
+"Oops! While trying to pick up" T .OBJ ", you accidentally dropped
+everything you were holding! How clumsy!">
+		       <ROB ,PROTAGONIST
+			    <COND (<FSET? <LOC ,PROTAGONIST> ,DROPBIT>
+		       	      	   <LOC ,PROTAGONIST>)
+				  (T
+				   ,HERE)>
+			    T>
+		       <CRLF>)>
+		<RFATAL>)
+	       (<G? <CCOUNT ,PROTAGONIST> 10>
+		<COND (.VB
+		       <TELL
+"You're already juggling as many items as you could possibly carry." CR>)>
+		<RFATAL>)
+	       (<AND <NOT <ULTIMATELY-IN? .OBJ>>
+		     <G? <+ <WEIGHT .OBJ> <WEIGHT ,PROTAGONIST>> 100>>
+		<COND (.VB
+		       <COND (<FSET? .OBJ ,PLURALBIT>
+			      <TELL "They're">)
+			     (T
+			      <TELL "It's">)>
+		       <TELL " too heavy">
+		       <COND (<FIRST? ,PROTAGONIST>
+			      <TELL ", considering your current load">)>
+		       <TELL ,PERIOD-CR>)>
+		<RFATAL>)>
+	 <FSET .OBJ ,TOUCHBIT>
+	 <FCLEAR .OBJ ,NDESCBIT>
+	 <COND (<IN? ,PROTAGONIST .OBJ>
+		<RFALSE> ;"Hope this is right -- pdl 4/22/86")>
+	 <COND (<NOT .VB> ;"called by PARSER for implicit take"
+		<TELL "[taking" T .OBJ " first]" CR>
+		<SCORE-OBJ .OBJ>)>
+	 <MOVE .OBJ ,PROTAGONIST>>
+
+;"IDROP is called by PRE-GIVE and PRE-PUT.
+  IDROP acts directly as PRE-DROP, PRE-THROW and PRE-PUT-THROUGH."
+<ROUTINE IDROP ()
+	 <COND (<AND <EQUAL? ,HERE ,HANGING-FROM-ROOTS>
+		     <PRSO? ,ROOMS ,ROOTS>> ;"LET GO or LET GO OF ROOTS"
+		<PERFORM ,V?LEAP>
+		<RTRUE>)
+	       (<PRSO? ,ROOMS> ;"input was LET GO"
+		<TELL "You're not hanging onto anything." CR>)
+	       (<PRSO? ,HANDS>
+		<COND (<VERB? DROP THROW GIVE>
+		       <IMPOSSIBLES>)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <VERB? THROW>
+		     <PRSO? ,EYES>>
+		<COND (<NOT ,PRSI>
+		       <V-LOOK>
+		       <RTRUE>)>
+		<PRE-SWITCH>
+		<PERFORM ,V?EXAMINE ,PRSI ,EYES>
+		<RTRUE>)
+	       (<AND <PRSO? ,ME>
+		     <VERB? PUT>
+		     <FSET? ,PRSI ,ACTORBIT>>
+		<PERFORM ,V?ENTER ,PRSI>
+		<RTRUE>)
+	       (<AND <PRSI? ,ME>
+		     <VERB? PUT>
+		     <FSET? ,PRSO ,ACTORBIT>>
+		<PERFORM ,V?ENTER ,PRSO>
+		<RTRUE>)
+	       (<AND <VERB? DROP>
+		     <IN? ,PRSO ,WALDO>>
+		<RFALSE>)
+	       (<NOT <ULTIMATELY-IN? ,PRSO>>
+		<COND (<OR <PRSO? ,ME>
+			   <FSET? ,PRSO ,PARTBIT>>
+		       <IMPOSSIBLES>)
+		      (T
+		       <TELL
+"That's easy for you to say since you don't even have" TR ,PRSO>)>
+		<RFATAL>)
+	       (<FSET? ,PRSO ,INTEGRALBIT>
+		<PART-OF>)
+	       (<AND <NOT <IN? ,PRSO ,PROTAGONIST>>
+		     <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<DO-FIRST "open" <LOC ,PRSO>>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<DO-FIRST "remove" ,PRSO>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE CCOUNT	(OBJ "OPTIONAL" (DESCRIBED-ITEMS-ONLY <>) "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<AND .DESCRIBED-ITEMS-ONLY
+				    <FSET? .X ,NDESCBIT>>
+			       T)
+			      (<NOT <FSET? .X ,WORNBIT>>
+			       <SET CNT <+ .CNT 1>>)>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+;"Gets SIZE of supplied object, recursing to 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>>>
+
+;"subtitle describers"
+
+<ROUTINE D-ROOM ("OPTIONAL" (VERB-IS-LOOK <>) "AUX" (FIRST-VISIT <>) PIC)
+	 <COND (<NOT ,LIT>
+		<TELL ,TOO-DARK>
+		<GRUE-PIT-WARNING>
+		<RFALSE>)
+	       (<OR <NOT <FSET? ,HERE ,TOUCHBIT>>
+		    <FSET? ,HERE ,REDESCBIT>>
+		<SET FIRST-VISIT T>)>
+	 <HLIGHT ,H-BOLD>
+	 <SAY-HERE>
+	 <HLIGHT ,H-NORMAL>
+	 <CRLF>
+	 <COND (<OR .VERB-IS-LOOK
+		    <EQUAL? ,VERBOSITY 2>
+		    <AND .FIRST-VISIT
+			 <EQUAL? ,VERBOSITY 1>>>
+		<COND (<SET PIC <GETP ,HERE ,P?ICON>>
+		       <MARGINAL-PIC .PIC>)
+		      (T
+		       <TELL "   ">)>
+		<COND (<NOT <APPLY <GETP ,HERE ,P?ACTION> ,M-LOOK>>
+		       <TELL <GETP ,HERE ,P?LDESC>>)>
+		<CRLF>)>
+	 <FCLEAR ,HERE ,REDESCBIT>
+	 <FSET ,HERE ,TOUCHBIT>
+	 <COND (<EQUAL? ,HERE ,CONSTRUCTION ,PLAIN ,FR-OFFICES ,OFFICES-NORTH
+			      ,OFFICES-SOUTH ,OFFICES-EAST ,OFFICES-WEST>
+		<FSET ,HERE ,REDESCBIT>)>
+	 <RTRUE>>
+
+;"Print FDESCs, then DESCFCNs and LDESCs, then everything else. DESCFCNs
+must handle M-OBJDESC? by RTRUEing (but not printing) if the DESCFCN would
+like to handle printing the object's description. RFALSE otherwise. DESCFCNs
+are responsible for doing the beginning-of-paragraph indentation."
+
+<ROUTINE D-OBJECTS ("AUX" O STR (1ST? T) (AV <LOC ,PROTAGONIST>))
+	 <SET O <FIRST? ,HERE>>
+	 <COND (<NOT .O>
+		<RFALSE>)>
+	 <REPEAT () ;"FDESCS and MISC."
+		 <COND (<NOT .O>
+			<RETURN>)
+		       (<AND <DESCRIBABLE? .O>
+			     <NOT <FSET? .O ,TOUCHBIT>>
+			     <SET STR <GETP .O ,P?FDESC>>>
+			<TELL "   " .STR>
+			<COND (<FSET? .O ,CONTBIT>
+			       <D-CONTENTS .O T <+ ,D-ALL? ,D-PARA?>>)>
+			<CRLF>)>
+		 <SET O <NEXT? .O>>>
+	 <SET O <FIRST? ,HERE>>
+	 <SET 1ST? T>
+	 <REPEAT () ;"DESCFCNS"
+		 <COND (<NOT .O>
+			<RETURN>)
+		       (<OR <NOT <DESCRIBABLE? .O>>
+			    <AND <GETP .O ,P?FDESC>
+				 <NOT <FSET? .O ,TOUCHBIT>>>>
+			T)
+		       (<AND <SET STR <GETP .O ,P?DESCFCN>>
+			     <SET STR <APPLY .STR ,M-OBJDESC>>>
+			;" *** make sure descfcns rtrue, after printing!"
+			<COND (<AND <FSET? .O ,CONTBIT>
+				    <N==? .STR ,M-FATAL>>
+			       <D-CONTENTS .O T <+ ,D-ALL? ,D-PARA?>>)>
+			<CRLF>)
+		       (<SET STR <GETP .O ,P?LDESC>>
+			<TELL "   " .STR>
+			<COND (<FSET? .O ,CONTBIT>
+			       <D-CONTENTS .O T <+ ,D-ALL? ,D-PARA?>>)>
+			<CRLF>)>
+		 <SET O <NEXT? .O>>>
+	 <D-CONTENTS ,HERE <> 0>
+	 <COND (<AND .AV <NOT <EQUAL? ,HERE .AV>>>
+		<D-CONTENTS .AV <> ,D-ALL? ;"was 0">)>>
+
+<CONSTANT D-ALL? 1> ;"print everything?"
+<CONSTANT D-PARA? 2> ;"started paragraph?"
+
+"<D-CONTENTS ,OBJECT-WHOSE-CONTENTS-YOU-WANT-DESCRIBED
+		    level: -1 means only top level
+			    0 means top-level (include crlf)
+			    1 for all other levels
+			    or string to print
+		    all?: t if not being called from room-desc >"
+
+<ROUTINE ORDER-GRAVEL (OBJ)
+	 <COND (<IN? ,EVEN-MORE-GRAVEL .OBJ>
+		<MOVE ,EVEN-MORE-GRAVEL .OBJ>)>
+	 <COND (<IN? ,MORE-GRAVEL .OBJ>
+		<MOVE ,MORE-GRAVEL .OBJ>)>
+	 <COND (<IN? ,GRAVEL .OBJ>
+		<MOVE ,GRAVEL .OBJ>)>>
+
+<ROUTINE ORDER-FLIES (OBJ)
+	 <COND (<IN? ,LARGEST-FLY .OBJ>
+		<MOVE ,LARGEST-FLY .OBJ>)>
+	 <COND (<IN? ,EVEN-LARGER-FLY .OBJ>
+		<MOVE ,EVEN-LARGER-FLY .OBJ>)>
+	 <COND (<IN? ,LARGER-FLY .OBJ>
+		<MOVE ,LARGER-FLY .OBJ>)>
+	 <COND (<IN? ,LARGE-FLY .OBJ>
+		<MOVE ,LARGE-FLY .OBJ>)>>
+
+<ROUTINE D-CONTENTS (OBJ "OPTIONAL" (LEVEL -1) (ALL? ,D-ALL?)
+  "AUX" (F <>) N (1ST? T) (IT? <>) DB (START? <>) (TWO? <>) (PARA? <>))
+  <ORDER-FLIES .OBJ>
+  <ORDER-GRAVEL .OBJ>
+  <COND (<EQUAL? .LEVEL 2>
+	 <SET LEVEL T>
+	 <SET PARA? T>
+	 <SET START? T>)
+	(<BTST .ALL? ,D-PARA?>
+	 <SET PARA? T>)>
+  <SET N <FIRST? .OBJ>>
+  <COND (<OR .START?
+	     <IN? .OBJ ,ROOMS>
+	     <FSET? .OBJ ,ACTORBIT>
+	     <EQUAL? .OBJ ,PROTAGONIST>
+	     <AND <FSET? .OBJ ,CONTBIT>
+		  <OR <FSET? .OBJ ,OPENBIT>
+		      <FSET? .OBJ ,TRANSBIT>>
+		  <FSET? .OBJ ,SEARCHBIT>
+		  .N>>
+	 <REPEAT ()
+	  <COND (<OR <NOT .N>
+		     <AND <DESCRIBABLE? .N>
+			  <OR <BTST .ALL? ,D-ALL?>
+			      <SIMPLE-DESC? .N>>>>
+		 <COND
+		  (.F
+		   <COND
+		    (.1ST?
+		     <SET 1ST? <>>
+		     <COND (<EQUAL? .LEVEL <> T>
+			    <COND (<NOT .START?>
+				   <COND (<NOT .PARA?>
+					  <COND (<NOT <EQUAL? .OBJ
+							      ,PROTAGONIST>>
+						 <TELL "   ">)>
+					  <SET PARA? T>)
+					 (<EQUAL? .LEVEL T>
+					  <TELL " ">)>
+				   <COND (<EQUAL? .OBJ ,HERE>
+					  <TELL ,YOU-SEE>)
+					 (<EQUAL? .OBJ ,PROTAGONIST>
+					  <COND (<EQUAL? ,D-BIT ,WORNBIT>
+						 <TELL " You are wearing">)
+						(T
+						 <TELL "You are carrying">)>)
+					 (<EQUAL? .OBJ ,YACHT>
+					  <TELL
+"Sitting on the deck of the royal yacht">
+					  <COND (<AND
+						  <EQUAL? <CCOUNT .OBJ T> 1>
+						  <NOT <FSET? <FIRST? .OBJ>
+							      ,PLURALBIT>>>
+						 <TELL " is">)
+					        (T
+						 <TELL " are">)>)
+					 (<FSET? .OBJ ,SURFACEBIT>
+					  <TELL "Sitting on" T .OBJ>
+					  <COND (<AND
+						  <EQUAL? <CCOUNT .OBJ T> 1>
+						  <NOT <FSET? <FIRST? .OBJ>
+							      ,PLURALBIT>>>
+						 <TELL " is">)
+					        (T
+						 <TELL " are">)>)
+					 (T
+					  <TELL ,IT-SEEMS-THAT T .OBJ>
+					  <COND (<FSET? .OBJ ,ACTORBIT>
+						 <TELL " has">)
+						(T
+						 <TELL " contains">)>)>)>)
+			   (<NOT <EQUAL? .LEVEL -1>>
+			    <TELL .LEVEL>)>)
+		    (.N
+		     <TELL ",">)
+		    (T
+		     <TELL " and">)>
+		   <TELL A .F>
+		   <COND (<FSET? .F ,ONBIT>
+			  <TELL " (providing light)">)
+			 (<AND <EQUAL? .F ,LARGE-VIAL>
+			       <G? ,LARGE-VIAL-GLOOPS 0>>
+			  <HOLDING-GLOOPS ,LARGE-VIAL-GLOOPS
+					  ,LARGE-VIAL-IMPRECISE>)
+			 (<AND <EQUAL? .F ,SMALL-VIAL>
+			       <G? ,SMALL-VIAL-GLOOPS 0>>
+			  <HOLDING-GLOOPS ,SMALL-VIAL-GLOOPS
+					  ,SMALL-VIAL-IMPRECISE>)>
+		   <COND (<AND <NOT .IT?> <NOT .TWO?>>
+			  <SET IT? .F>)
+			 (T
+			  <SET TWO? T>
+			  <SET IT? <>>)>)>
+		 <SET F .N>)>
+	  <COND (.N
+		 <SET N <NEXT? .N>>)>
+	  <COND (<AND <NOT .F>
+		      <NOT .N>>
+		 <COND (<AND .IT?
+			     <NOT .TWO?>>
+			<THIS-IS-IT .IT?>)>
+		 <COND (<AND .1ST? .START?>
+			;<SET 1ST? <>>
+			<TELL " nothing">
+			<RFALSE>)>
+		 <COND (<AND <NOT .1ST?>
+			     <EQUAL? .LEVEL <> T>>
+			<COND (<EQUAL? .OBJ ,HERE>
+			       <TELL " here">)>
+			<TELL ".">)>
+		 <RETURN>)>>
+	 <COND (<EQUAL? .LEVEL <> T>
+		<SET F <FIRST? .OBJ>>
+		<REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       
+		       (<AND <FSET? .F ,CONTBIT>
+			     <DESCRIBABLE? .F T>
+			     <OR <BTST .ALL? ,D-ALL?>
+				 <SIMPLE-DESC? .F>>>
+			<SET DB ,D-BIT>
+			<SETG D-BIT <>>
+			<COND (<D-CONTENTS .F T
+						  <COND (.PARA?
+							 <+ ,D-ALL? ,D-PARA?>)
+							(T
+							 ,D-ALL?)>>
+			       <SET 1ST? <>>
+			       <SET PARA? T>)>
+			<SETG D-BIT .DB>)>
+		 <SET F <NEXT? .F>>>)>
+	 <COND (<AND <NOT .1ST?>
+		     <EQUAL? .LEVEL <> T>
+		     <EQUAL? .OBJ ,HERE <LOC ,WINNER>>>
+		<CRLF>)>
+	 <NOT .1ST?>)>>
+
+<GLOBAL D-BIT <>> ;"bit to screen objects"
+
+<ROUTINE DESCRIBABLE? (OBJ "OPT" (CONT? <>))
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       (<EQUAL? .OBJ ,WINNER>
+		<RFALSE>)
+	       (<AND <EQUAL? .OBJ <LOC ,WINNER>>
+		     <NOT <EQUAL? ,HERE <LOC ,WINNER>>>>
+		<RFALSE>)
+	       (<AND <NOT .CONT?>
+		     <FSET? .OBJ ,NDESCBIT>>
+		<RFALSE>)
+	       (,D-BIT
+		<COND (<G? ,D-BIT 0>
+		       <COND (<FSET? .OBJ ,D-BIT>
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (<NOT <FSET? .OBJ <- ,D-BIT>>>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (T
+		<RTRUE>)>>
+
+<ROUTINE SIMPLE-DESC? (OBJ "AUX" STR)
+	 <COND (<AND <GETP .OBJ ,P?FDESC>
+		     <NOT <FSET? .OBJ ,TOUCHBIT>>>
+		<RFALSE>)
+	       (<AND <SET STR <GETP .OBJ ,P?DESCFCN>>
+		     <APPLY .STR ,M-OBJDESC?>>
+		<RFALSE>)
+	       (<GETP .OBJ ,P?LDESC>
+		<RFALSE>)
+	       (T
+		<RTRUE>)>>
+
+<ROUTINE D-VEHICLE () ;"for LOOK AT/IN vehicle when you're in it"
+	 <TELL "Other than yourself, you can see"> 
+	 <COND (<NOT <D-NOTHING>>
+		<COND (<FSET? ,PRSO ,INBIT>
+		       <TELL " in">)
+		      (T
+		       <TELL " on">)>
+		<TELL TR ,PRSO>)>
+	 <RTRUE>>
+
+<ROUTINE D-NOTHING ()
+	 <COND (<D-CONTENTS ,PRSO 2>
+	 	<COND (<NOT <IN? ,PROTAGONIST ,PRSO>>
+		       <CRLF>)>
+		<RTRUE>)
+	       (T ;"nothing"
+		<RFALSE>)>>
+
+<ROUTINE HOLDING-GLOOPS (NUM IMPRECISE)
+	 <TELL " (holding ">
+	 <COND (.IMPRECISE
+		<TELL "around ">)>
+	 <TELL N .NUM " gloop">
+	 <COND (<NOT <EQUAL? .NUM 1>>
+		<TELL "s">)>
+	 <TELL " of water)">>
+
+;"subtitle movement and death"
+
+;"<CONSTANT REXIT 0>
+<CONSTANT UEXIT 1 ;2>
+<CONSTANT NEXIT 2 ;3>
+<CONSTANT FEXIT 3 ;4>
+<CONSTANT CEXIT 4 ;5>
+<CONSTANT DEXIT 5 ;6>
+
+<CONSTANT NEXITSTR 0>
+<CONSTANT FEXITFCN 0>
+<CONSTANT CEXITFLAG 1 ;4>
+<CONSTANT CEXITSTR 1>
+<CONSTANT DEXITOBJ 0 ;1>
+<CONSTANT DEXITSTR 1 ;2>
+<CONSTANT DEXITRM 5>"
+
+<GLOBAL CURRENT-BORDER <>> ;"set to CASTLE-BORDER in GO"
+
+<ROUTINE GOTO (NEW-LOC "AUX" OHERE OLIT BORDER X)
+	 <SETG JUMP-X 99>
+	 <SETG JUMP-Y 99>
+	 <SETG FINGER-ON-STRAW <>>
+	 <SETG ELIXIR-TRAPPED <>>
+	 <COND (<IN? ,JESTER ,HERE>
+		<REMOVE-J>)>
+	 <SET OLIT <LIT? ,HERE>>
+	 <SET OHERE ,HERE>
+	 <COND (<AND <IN? ,PROTAGONIST ,CAMEL>
+		     <FSET? ,CAMEL ,ANIMATEDBIT>>
+		<FCLEAR ,CAMEL ,TOUCHBIT>
+		<MOVE ,CAMEL .NEW-LOC>)
+	       (T
+	 	<MOVE ,PROTAGONIST .NEW-LOC>)>
+	 <COND (<IN? .NEW-LOC ,ROOMS>
+		<SETG HERE .NEW-LOC>)
+	       (T
+		<SETG HERE <LOC .NEW-LOC>>)>
+	 <SETG COMPASS-CHANGED T>
+	 <SETG LIT <LIT? ,HERE>>
+	 <SET BORDER <SET-BORDER>>
+	 <COND (<NOT <EQUAL? .BORDER ,CURRENT-BORDER>>
+		<SETG CURRENT-BORDER .BORDER>
+		<COND (<AND ,BORDER-ON
+			    <NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>>
+		       <CLEAR-BORDER>
+		       <INIT-SL-WITH-SPLIT ,TEXT-WINDOW-PIC-LOC T>)>)>
+	 <COND (<NOT ,LIT>
+		<RETURN-FROM-MAP>
+		<COND (.OLIT
+		       <TELL "You have moved into a dark place.">
+		       <GRUE-PIT-WARNING>)
+		      (<AND <NOT <EQUAL? <LOC ,PROTAGONIST>
+					 ,DB ,HOLD ,PIT-BOMB-LOC>>
+			    <NOT ,TIME-STOPPED>
+			    <PROB 75>>
+		       <DARK-DEATH>)
+		      (T
+		       <TELL ,TOO-DARK>
+		       <GRUE-PIT-WARNING>)>)
+	       (T
+	 	<APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
+	 	<COND (<AND <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>
+			    <NOT <FSET? ,HERE ,TOUCHBIT>>>
+		       <RETURN-FROM-MAP>)>
+		<COND (<AND <NOT <EQUAL? ,CURRENT-SPLIT ,MAP-TOP-LEFT-LOC>>
+			    <D-ROOM>
+			    <NOT <EQUAL? ,VERBOSITY 0>>>
+		       <D-OBJECTS>)>)>
+	 <COND (<AND <GLOBAL-IN? ,WATER ,HERE>
+		     <SET X <FIND-WATER>>>
+		;"so you can say GET WATER FROM OASIS, or whatever"
+		<PUTP ,WATER ,P?OWNER .X>)>
+	 <SCORE-OBJ ,HERE>
+	 <RTRUE>>
+
+<ROUTINE JIGS-UP (DESC)
+	 <TELL .DESC>
+	 <TELL CR CR
+"      ****  You have died  ****" CR>
+	 <FINISH>>
+
+;"subtitle useful utility routines"
+
+<ROUTINE ACCESSIBLE? (OBJ "AUX" L) ;"revised 2/18/86 by SEM"
+	 <COND (<NOT .OBJ>
+		<RFALSE>)>
+	 <SET L <LOC .OBJ>>
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       (<NOT .L>
+		<RFALSE>)
+	       (<EQUAL? .OBJ ,PSEUDO-OBJECT>
+		<COND (<EQUAL? ,LAST-PSEUDO-LOC ,HERE>
+		       <RTRUE>)
+		      (T
+		       <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 ,PROTAGONIST>
+		<RTRUE>)
+	       (<AND <OR <FSET? .L ,OPENBIT>
+			 <IN? ,PROTAGONIST .L> ;"you can be in closed sphere">
+		     <ACCESSIBLE? .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 UNTOUCHABLE? (OBJ)
+;"figures out whether, due to vehicle-related locations, object is touchable"
+	 <COND (<NOT .OBJ>
+		<RFALSE>)
+	       (<AND <EQUAL? .OBJ ,PARCHMENT>
+		     ,UNDER-TABLE>
+		<RTRUE>)
+	       (<AND <EQUAL? .OBJ ,LANTERN>
+		     <FSET? ,LANTERN ,TRYTAKEBIT>>
+		<RTRUE>)
+	       (<ULTIMATELY-IN? .OBJ ,SNAKE-PIT>
+		<RTRUE>)
+	       (<AND <ULTIMATELY-IN? .OBJ ,YACHT>
+		     <IN? ,PROTAGONIST ,HERE>>
+		<RTRUE>)
+	       (<IN? ,PROTAGONIST ,HERE>
+		<RFALSE>)
+	       (<AND <EQUAL? .OBJ ,YACHT ,LAKE-FLATHEAD ,WEST-DOCK ,EAST-DOCK
+			     	  ,NORTH-DOCK ,SOUTH-DOCK>
+		     <EQUAL? <LOC ,PROTAGONIST> ,YACHT ,WEST-DOCK ,EAST-DOCK
+			     			,NORTH-DOCK ,SOUTH-DOCK>>
+		<RFALSE>)
+	       (<AND <EQUAL? .OBJ ,WALDO>
+		     ,HAND-IN-WALDO
+		     <VERB? OPEN CLOSE>>
+		<RFALSE>)
+	       (<AND <EQUAL? .OBJ ,MEGABOZ-TRAP-DOOR>
+		     <IN? ,PROTAGONIST ,LADDER>>
+		<RFALSE>)
+	       (<OR <ULTIMATELY-IN? .OBJ <LOC ,PROTAGONIST>>
+		    <EQUAL? .OBJ <LOC ,PROTAGONIST>>
+		    <IN? .OBJ ,GLOBAL-OBJECTS> ;"me, hands, etc.">
+		<RFALSE>)
+	       (T
+		<RTRUE>)>>
+
+;<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ>
+			<RFALSE>)
+		       (<IN? .OBJ ,GLOBAL-OBJECTS>
+			<RETURN ,GLOBAL-OBJECTS>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (T
+			<SET OBJ <LOC .OBJ>>)>>>
+
+<ROUTINE OTHER-SIDE (DOBJ "AUX" (P 0) TEE) ;"finds room on other side of door"
+	 <REPEAT ()
+		 <COND (<L? <SET P <NEXTP ,HERE .P>> ,LOW-DIRECTION>
+			<RETURN <>>)
+		       (T
+			<SET TEE <GETPT ,HERE .P>>
+			<COND (<AND <EQUAL? <PTSIZE .TEE> ,DEXIT>
+				    <EQUAL? <GET .TEE ,DEXITOBJ> .DOBJ>>
+			       <RETURN .P>)>)>>>
+
+<ROUTINE HELD? (X Y) <ULTIMATELY-IN? .X .Y>>
+
+<ROUTINE ULTIMATELY-IN? (OBJ "OPTIONAL" (CONT <>)) ;"formerly HELD?"
+	 <COND (<NOT .CONT>
+		<SET CONT ,PROTAGONIST>)>
+	 <COND (<NOT .OBJ>
+		<RFALSE>)
+	       (<AND <VERB? EMPTY>
+		     <EQUAL? .OBJ ,WATER>
+		     <NOUN-USED? ,WATER ,W?GLOOP ,W?GLOOPS>
+		     <OR <AND <ULTIMATELY-IN? ,LARGE-VIAL>
+			      <G? ,LARGE-VIAL-GLOOPS 0>>
+			 <AND <ULTIMATELY-IN? ,SMALL-VIAL>
+			      <G? ,SMALL-VIAL-GLOOPS 0>>>>
+		<RTRUE>)
+	       (<AND <IN? .OBJ ,WALDO>
+		     ,HAND-IN-WALDO
+		     <VERB? DROP>>
+	        <RTRUE>)
+	       (<AND ,HAND-IN-WALDO
+		     <EQUAL? .OBJ ,WALDO>
+		     <EQUAL? .CONT ,PROTAGONIST>>
+		;"so syntaxes with HAVE won't say YOU'RE NOT HOLDING THE WALDO"
+		<RTRUE>)
+	       (<AND <EQUAL? .OBJ ,WATER>
+		     <VERB? POUR>
+		     <OR <ULTIMATELY-IN? ,LARGE-VIAL-WATER>
+			 <ULTIMATELY-IN? ,SMALL-VIAL-WATER>>>
+		<RTRUE>)
+	       (<IN? .OBJ .CONT>
+		<RTRUE>)
+	       (<IN? .OBJ ,ROOMS>
+		<RFALSE>)
+	       ;(<IN? .OBJ ,GLOBAL-OBJECTS>
+		<RFALSE>)
+	       (T
+		<ULTIMATELY-IN? <LOC .OBJ> .CONT>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <COND (<AND .OBJ
+		     <NOT <FSET? .OBJ ,INVISIBLE>>
+		     <OR <FSET? .OBJ ,TRANSBIT>
+			 <FSET? .OBJ ,OPENBIT>
+			 <AND <FSET? ,GOGGLES ,WORNBIT>
+			      <EQUAL? ,WINNER ,PROTAGONIST>>>>
+		<RTRUE>)>>
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TEE)
+	 <COND (<SET TEE <GETPT .OBJ2 ,P?GLOBAL>>
+		<INTBL? .OBJ1 .TEE </ <PTSIZE .TEE> 2>>)>>
+
+<ROUTINE FIND-IN (WHERE FLAG-IN-QUESTION
+		  "OPTIONAL" (STRING <>) "AUX" OBJ RECURSIVE-OBJ)
+	 <SET OBJ <FIRST? .WHERE>>
+	 <COND (<NOT .OBJ>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <COND (<AND <FSET? .OBJ .FLAG-IN-QUESTION>
+			     <NOT <FSET? .OBJ ,INVISIBLE>>>
+			<COND (.STRING
+			       <TELL "[" .STRING T .OBJ "]" CR>)>
+			<RETURN .OBJ>)
+		       (<SET RECURSIVE-OBJ
+			     <FIND-IN .OBJ .FLAG-IN-QUESTION .STRING>>
+			<RETURN .RECURSIVE-OBJ>)
+		       (<NOT <SET OBJ <NEXT? .OBJ>>>
+			<RETURN <>>)>>>
+
+<ROUTINE WITHIN? (TL-X TL-Y BR-X BR-Y) ;"mouse click in rectangle?"
+	 ;<COND (,DEBUG
+		<TELL CR
+"[Calling WITHIN? with X = " N ,MOUSE-LOC-X ", Y = " N ,MOUSE-LOC-Y
+"; top-left is " N .TL-X "," N .TL-Y
+" and bottom-right is " N .BR-X "," N .BR-Y ".]" CR>)>
+	 <COND (<AND <NOT <L? ,MOUSE-LOC-X .TL-X>>
+		     <NOT <G? ,MOUSE-LOC-X .BR-X>>
+		     <NOT <L? ,MOUSE-LOC-Y .TL-Y>>
+		     <NOT <G? ,MOUSE-LOC-Y .BR-Y>>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+;<ROUTINE DIRECTION? (OBJ)
+	 <COND (<OR <EQUAL? .OBJ ,P?NORTH ,P?SOUTH ,P?EAST>
+		    <EQUAL? .OBJ ,P?WEST ,P?NE ,P?NW>
+		    <EQUAL? .OBJ ,P?SE ,P?SW>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE NOW-DARK? ()
+	 <COND (<AND ,LIT
+		     <NOT <LIT? ,HERE>>>
+		<SETG LIT <>>
+		<SETG COMPASS-CHANGED T>
+		<TELL "   It is now too dark to see.">
+		<COND (<IN? ,JESTER ,HERE>
+		       <REMOVE-J>
+		       <TELL
+" A sound of jingling bells becomes increasingly
+distant before fading entirely.">)>
+		<CRLF>)>
+	 <RTRUE>>
+
+<ROUTINE NOW-LIT? ()
+	 <COND (<AND <NOT ,LIT>
+		     <LIT? ,HERE>>
+		<SETG LIT T>
+		<SETG COMPASS-CHANGED T>
+		<CRLF>
+		<V-LOOK>)>>
+
+<ROUTINE LOC-CLOSED (OBJ "OPTIONAL" (VB T) "AUX" (L <LOC .OBJ>))
+	 <COND (<AND <FSET? .L ,CONTBIT>
+		     <NOT <FSET? .L ,OPENBIT>>
+		     <FSET? .OBJ ,TAKEBIT>
+		     <NOT <IN? ,PROTAGONIST .L>> ;"bathysphere, for example">
+		<COND (.VB
+		       <DO-FIRST "open" .L>)>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <PERFORM ,V?WALK .DIR>
+	 <RTRUE>>
+
+<ROUTINE STOP ()
+	 <SETG P-CONT -1>
+	 <RFATAL>>
+
+<ROUTINE ROB (WHO "OPT" (WHERE <>) (EXCLUDE-WORN-ITEM <>)
+	      	  "AUX" (TAKER <>) (TOOK-PIGEON <>) N X)
+      <SET X <FIRST? .WHO>>
+      <REPEAT ()
+	   <COND (<ZERO? .X>
+		  <RETURN>)>
+	   <SET N <NEXT? .X>>
+	   <COND (<AND .EXCLUDE-WORN-ITEM
+		       <FSET? .X ,WORNBIT>>
+		  T)
+		 (.WHERE
+		  <FCLEAR .X ,WORNBIT>
+		  <COND (<OR .TAKER
+			     <AND <IN? .WHERE ,ROOMS>
+				  <OR <SET TAKER <FIND-IN .WHERE ,BLACKBIT>>
+				      <SET TAKER <FIND-IN .WHERE ,WHITEBIT>>>>>
+			 <COND (<EQUAL? .X ,PIGEON>
+				<SET TOOK-PIGEON T>)>
+			 <MOVE .X .TAKER>)
+			(<NOT <SPECIAL-DROP .X T>>
+			 <MOVE .X .WHERE>)>)
+		 (T
+		  <FCLEAR .X ,WORNBIT>
+		  <REMOVE .X>)>
+	   <SET X .N>>
+      <COND (.TAKER
+	     <COND (<VISIBLE? .TAKER>
+	     	    <TELL
+" The " D .TAKER " is only too happy to pick it all up">
+		    <COND (<AND .TOOK-PIGEON
+				<NOT <EQUAL? ,HERE <META-LOC ,PERCH>>>>
+			   <TELL ", including the pigeon.">
+			   <PIECE-TAKES-PIGEON .TAKER <> ;"no CR">)
+			  (T
+			   <TELL ".">)>)
+		   (.TOOK-PIGEON
+		    <MOVE-TO-PERCH .TAKER>)>)>
+      <RTRUE>>
+
+<ROUTINE HACK-HACK (STR)
+	 <TELL .STR T ,PRSO>
+	 <HO-HUM>>
+
+<ROUTINE HO-HUM ()
+	 <TELL <PICK-ONE ,HO-HUM-LIST> CR>>
+
+<CONSTANT HO-HUM-LIST
+	<LTABLE
+	 0 
+	 " doesn't do anything."
+	 " accomplishes nothing."
+	 " has no desirable effect.">>		 
+
+<ROUTINE YUKS ()
+	 <TELL <PICK-ONE ,YUK-LIST> CR>>
+
+<CONSTANT YUK-LIST
+	<LTABLE
+	 0 
+	 "What a concept!"
+	 "Not bloody likely."
+	 "A valiant attempt."
+         "Nice try."
+	 "You can't be serious.">>
+
+<ROUTINE IMPOSSIBLES ()
+	 <TELL <PICK-ONE ,IMPOSSIBLE-LIST> CR>>
+
+<CONSTANT IMPOSSIBLE-LIST
+	<LTABLE
+	 0
+	 "Fat chance."
+	 "Dream on."
+	 "Impossible!!!"
+	 "You've got to be kidding."
+	 "Out of the question.">>
+
+<ROUTINE WASTES ()
+	 <TELL <PICK-ONE ,WASTE-LIST> CR>>
+
+<CONSTANT WASTE-LIST
+	<LTABLE
+	 0
+	 "That would be a waste of time."
+	 "There's no point in doing that."
+	 "There's another turn down the drain."
+	 "Why bother?">>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/village.zabstr b/village.zabstr
new file mode 100644
index 0000000..2cd6b6a
--- /dev/null
+++ b/village.zabstr
@@ -0,0 +1,277 @@
+
+<BEGIN-SEGMENT VILLAGE> 
+<OBJECT VILLAGE (LOC LOCAL-GLOBALS) (DESC "village") (SYNONYM VILLAGE) (ACTION
+VILLAGE-F)> 
+<DEFINE-ROUTINE VILLAGE-F> 
+<ROOM OUTER-BAILEY (LOC ROOMS) (REGION "Flatheadia") (DESC "Outer Bailey") (SE
+TO DRAWBRIDGE IF DRAWBRIDGE IS OPEN ELSE "The drawbridge isn't down.") (SW TO
+GARRISON) (NE TO BEND) (NW TO PERIMETER-WALL) (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+(SYNONYM BAILEY) (ADJECTIVE OUTER) (GLOBAL DRAWBRIDGE MOAT ROOTS) (MAP-LOC <
+PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-2>) (ICON OUTER-BAILEY-ICON) (
+ACTION OUTER-BAILEY-F)> 
+<DEFINE-ROUTINE OUTER-BAILEY-F> 
+<OBJECT TREE-STUMP (LOC OUTER-BAILEY) (DESC "tree stump") (LDESC
+"A mighty, rotting tree stump spreads its roots across the bailey.") (SYNONYM
+STUMP) (ADJECTIVE LARGE TREE WEATHERED) (CAPACITY 100) (FLAGS CONTBIT VEHBIT
+SURFACEBIT OPENBIT SEARCHBIT) (ACTION TREE-STUMP-F)> 
+<GLOBAL JUMP-X 99> 
+<GLOBAL JUMP-Y 99> 
+<DEFINE-ROUTINE TREE-STUMP-F> 
+<OBJECT TREASURE-CHEST (LOC LOCAL-GLOBALS) (DESC "treasure chest") (SYNONYM
+CHEST) (ADJECTIVE TREASURE) (FLAGS TAKEBIT CONTBIT SEARCHBIT) (SIZE 25) (
+CAPACITY 50)> 
+<OBJECT CROWN (LOC DIMWIT) (DESC "gaudy crown") (SYNONYM CROWN) (ADJECTIVE
+GAUDY) (VALUE 12) (FLAGS NDESCBIT MAGICBIT WEARBIT)> 
+<ROOM PERIMETER-WALL (LOC ROOMS) (REGION "Flatheadia") (DESC "Perimeter Wall")
+(SE TO OUTER-BAILEY) (NW PER WEST-OF-HOUSE-ENTER-F) (OUT PER
+WEST-OF-HOUSE-ENTER-F) (FLAGS RLANDBIT OUTSIDEBIT ONBIT) (ICON
+PERIMETER-WALL-ICON) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-1>)
+(ACTION PERIMETER-WALL-F)> 
+<DEFINE-ROUTINE PERIMETER-WALL-F> 
+<DEFINE-ROUTINE WEST-OF-HOUSE-ENTER-F> 
+<OBJECT OUTER-GATE (LOC PERIMETER-WALL) (DESC "outer gate") (SYNONYM GATE GATES
+DOOR) (ADJECTIVE OUTER INCREDIBLY LARGE IRON-REINFORCED OAKEN) (FLAGS NDESCBIT
+DOORBIT VOWELBIT) (ACTION OUTER-GATE-F)> 
+<DEFINE-ROUTINE OUTER-GATE-F> 
+<GLOBAL END-GAME-COUNTER 0> 
+<DEFINE-ROUTINE I-END-GAME> 
+<ROOM WEST-OF-HOUSE (LOC ROOMS) (DESC "West of House") (REGION
+"(formerly) Flatheadia") (LDESC
+"You are standing in an open field west of a white house, with a
+boarded front door.|
+   There is a small mailbox here.") (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (ACTION
+WEST-OF-HOUSE-F)> 
+<DEFINE-ROUTINE WEST-OF-HOUSE-F> 
+<ROOM GARRISON (LOC ROOMS) (REGION "Flatheadia") (DESC "Garrison") (LDESC
+"This is where the castle's army was quartered. The garrison fell into
+disuse as all known lands fell under the rule of the Flatheads; the army
+had little to do except quell an occasional tax revolt. In fact, the only
+evidence of the garrison is a rusty locker. A road leads northeast.") (NE TO
+OUTER-BAILEY) (OUT TO OUTER-BAILEY) (FLAGS RLANDBIT ONBIT) (SYNONYM GARRISON) (
+MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-1>) (ICON GARRISON-ICON)>
+
+<OBJECT LOCKER (LOC GARRISON) (DESC "locker") (SYNONYM LOCKER) (ADJECTIVE RUSTY
+) (CAPACITY 100) (FLAGS CONTBIT SEARCHBIT NDESCBIT) (ACTION LOCKER-F)> 
+<DEFINE-ROUTINE LOCKER-F> 
+<OBJECT POSTER (LOC LOCKER) (OWNER POSTER) (DESC "poster of Ursula Flathead") (
+SYNONYM POSTER URSULA FLATHEAD) (ADJECTIVE URSULA) (FLAGS TAKEBIT BURNBIT) (
+SIZE 2) (RESEARCH
+"\"Ursula Flathead, the former Miss Miznia, has been called the 'Sex Goddess
+of the GUE.' The editors would be hard-pressed to disagree with the phrase.\"")
+(ACTION POSTER-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE POSTER-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT VILLAGE> 
+<OBJECT WEST-KEY (LOC LOCKER) (DESC "steel key") (SYNONYM KEY) (ADJECTIVE STEEL
+) (FLAGS TAKEBIT KEYBIT) (SIZE 2)> 
+<ROOM BEND (LOC ROOMS) (REGION "Flatheadia") (DESC "Bend") (LDESC
+"The road curves along the moat, turning southeast and southwest.") (SE TO
+VILLAGE-GATE) (SW TO OUTER-BAILEY) (FLAGS RLANDBIT OUTSIDEBIT ONBIT) (GLOBAL
+MOAT) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>)> 
+<ROOM VILLAGE-GATE (LOC ROOMS) (REGION "Flatheadia") (DESC "Village Gate") (
+LDESC "To the east, a stone arch forms the entrance to the castle's village. (The
+village lies outside the castle proper but is still comfortably within the
+outer perimeter wall.) The arch is flanked by two medium-sized elms, one more
+gnarled than the other. The road passes under the arch; in the other direction,
+it follows the moat to the northwest.") (NW TO BEND) (EAST TO SHADY-PARK) (
+FLAGS RLANDBIT OUTSIDEBIT ONBIT) (GLOBAL VILLAGE ARCH MOAT) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-4>) (THINGS VILLAGE GATE GATE-PS)> 
+<DEFINE-ROUTINE GATE-PS> 
+<OBJECT GNARLED-ELM (LOC VILLAGE-GATE) (DESC "gnarled elm tree") (SYNONYM TREE
+ELM) (ADJECTIVE GNARLED ELM) (FLAGS NDESCBIT PLANTBIT) (ACTION TREE-F)> 
+<OBJECT UNGNARLED-ELM (LOC VILLAGE-GATE) (DESC "ungnarled elm tree") (SYNONYM
+TREE ELM) (ADJECTIVE UNGNARLED ELM) (FLAGS NDESCBIT VOWELBIT PLANTBIT) (ACTION
+TREE-F)> 
+<ROOM SHADY-PARK (LOC ROOMS) (REGION "Flatheadia") (DESC "Shady Park") (LDESC
+"This grassy mall must have been a nice area at one time, but it is now
+overgrown with weeds, and soiled by windblown litter. The shade comes from
+a mighty elm which spreads its thick green branches over the park. A wide
+east-west boulevard bisects the park, and impressive buildings flank it on
+the north and south.") (EAST TO VILLAGE-CENTER) (WEST TO VILLAGE-GATE) (SOUTH
+TO CHURCH) (NORTH TO TAX-OFFICE) (FLAGS RLANDBIT OUTSIDEBIT ONBIT) (SYNONYM
+PARK) (ADJECTIVE SHADY) (GLOBAL VILLAGE GLOBAL-BLDG) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>) (ICON SHADY-PARK-ICON)> 
+<OBJECT MIGHTY-ELM (LOC SHADY-PARK) (DESC "mighty elm tree") (SYNONYM TREE ELM)
+(ADJECTIVE LARGE ELM) (FLAGS NDESCBIT PLANTBIT) (ACTION TREE-F)> 
+<ROOM CHURCH (LOC ROOMS) (REGION "Flatheadia") (DESC "Church") (LDESC
+"This is a house of worship of Brogmoidism. The tenets of this rather silly
+religion are engraved on the wall. The only exit is north.") (NORTH TO
+SHADY-PARK) (OUT TO SHADY-PARK) (FLAGS RLANDBIT ONBIT) (SYNONYM CHURCH) (GLOBAL
+GLOBAL-BLDG) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-5>) (ICON
+CHURCH-ICON)> 
+<OBJECT TENET (LOC CHURCH) (DESC "engraved tenet") (SYNONYM TENET TENETS
+ENGRAVING) (ADJECTIVE ENGRAVED) (FLAGS NDESCBIT READBIT) (TEXT
+"\"Thou shalt worship the Great Brogmoid to thine utmost, for upon his shoulder
+rests the world -- thus he saveth us from plunging into the Great Void...\"
+The tenets go on and on about the brogmoid who supports the world. It's hard to
+believe that anyone EVER believed such drivel, let alone in today's enlightened
+age. As the great modern thinker, Zorbius Blattus, is fond of saying, \"If a
+giant brogmoid were holding up the world, where would he stand?\"")> 
+<ROOM TAX-OFFICE (LOC ROOMS) (REGION "Flatheadia") (DESC "URS Office") (LDESC
+"This huge hall was the main office of the Underground Revenue Service. Until
+the construction of the FrobozzCo Building, it was the largest structure in
+the Empire. Here, thousands upon thousands of accountants and auditors once
+sat, tabulating the proceeds from Dimwit's astronomical taxations. The only
+exit is south.") (SOUTH TO SHADY-PARK) (OUT TO SHADY-PARK) (FLAGS RLANDBIT
+ONBIT) (GLOBAL GLOBAL-BLDG) (RIDDLE
+"I once heard of a bookkeeper who, while working on the accounts of the Frobozz
+Magic Balloon Company, noted that the word 'balloon' has two double letters in
+a row! Stretching his limited imagination to the limit, this bookkeeper
+wondered if there were any words with THREE double letters in a row. He
+couldn't think of one -- but I'll bet that YOU can!\"") (ICON URS-OFFICE-ICON)
+(MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 URS-ICON-LOC>) (ACTION
+TAX-OFFICE-F)> 
+<DEFINE-ROUTINE TAX-OFFICE-F> 
+<OBJECT BOOKKEEPER (LOC GLOBAL-OBJECTS) (DESC "bookkeeper") (SYNONYM BOOKKEEPER
+BOOKKEEPING)> 
+<OBJECT ZORKMID-COIN (LOC LOCAL-GLOBALS) (DESC "zorkmid coin") (SYNONYM ZORKMID
+COIN MONEY) (ADJECTIVE ONE ZORKMID) (FLAGS TRYTAKEBIT TAKEBIT READBIT) (SIZE 1)
+(TEXT "The coin bears the likeness of Belwit the Flat, along with the inscriptions,
+\"One Zorkmid,\" and \"699 GUE.\" On the other side, the coin depicts Egreth
+Castle, and says \"In Frobs We Trust\" in several languages.")> 
+<ROOM VILLAGE-CENTER (LOC ROOMS) (REGION "Flatheadia") (DESC "Village Center")
+(LDESC "You are in the midst of the village. At least, at some distant time it may
+have been a village. More recently, it was a bustling metropolis. Now it's a
+deserted metropolis. A fantastically tall building rises just east of you and
+a road heads west. To the south is a post office; to the north, beyond granite
+stairs flanked by stone toads, is the Courthouse entrance.") (EAST TO FR-HQ) (
+WEST TO SHADY-PARK) (SOUTH TO POST-OFFICE) (NORTH TO COURTROOM) (FLAGS RLANDBIT
+ONBIT OUTSIDEBIT) (GLOBAL VILLAGE FR-BLDG) (MAP-LOC <PTABLE VILLAGE-MAP-NUM
+MAP-GEN-Y-3 MAP-GEN-X-7>)> 
+<OBJECT STONE-TOADS (LOC VILLAGE-CENTER) (OWNER STONE-TOADS) (DESC
+"pair of stone toads") (SYNONYM PAIR TOAD TOADS) (ADJECTIVE STONE) (FLAGS
+NDESCBIT)> 
+<ROOM COURTROOM (LOC ROOMS) (REGION "Flatheadia") (DESC "Courtroom") (LDESC
+"This is where the great jurist, Oliver Wendell Flathead, would hand down
+decisions from the bench. The only exit is south.") (SOUTH TO VILLAGE-CENTER) (
+OUT TO VILLAGE-CENTER) (FLAGS RLANDBIT ONBIT) (SYNONYM COURTROOM) (GLOBAL
+GLOBAL-BLDG) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 COURTROOM-ICON-LOC>)
+(ICON COURTROOM-ICON)> 
+<ROOM POST-OFFICE (LOC ROOMS) (REGION "Flatheadia") (DESC "Post Office") (LDESC
+"Once the main branch of the Flatheadia Postal Service, this edifice now lies
+in deserted silence. A doorway leads north.") (NORTH TO VILLAGE-CENTER) (OUT TO
+VILLAGE-CENTER) (FLAGS RLANDBIT ONBIT) (GLOBAL GLOBAL-BLDG) (MAP-LOC <PTABLE
+VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>) (ICON POST-OFFICE-ICON)> 
+<OBJECT PACKAGE (LOC POST-OFFICE) (DESC "package") (FDESC
+"A package rests on one of the counters. Although a collector has stolen
+the stamp, the address is still legible.") (SYNONYM PACKAGE ADDRESS) (FLAGS
+TAKEBIT READBIT CONTBIT SEARCHBIT) (CAPACITY 12) (TEXT
+"\"From: Belznork Gibblewitz      To: Eek Numblatz|
+       F. M. Homing Pigeon Co        Int'l Curios, Inc|
+       FrobozzCo Bldg, 193-E        28 Volcano View Ln|
+       Flatheadia, FRV-9179         Gurth City, GTH-3791\"")> 
+<OBJECT PERCH (LOC PACKAGE) (DESC "ceramic perch") (PLURAL "perches") (SYNONYM
+PERCH WRITING PRINT LETTERING) (ADJECTIVE CERAMIC SMALL) (FLAGS TAKEBIT READBIT
+) (OWNER PERCH) (TEXT
+"Tiny lettering says, \"Frobozz Magic Homing Pigeon Company.\"")> 
+<BEGIN-SEGMENT 0> 
+<OBJECT PIGEON (LOC PACKAGE) (DESC "ceramic pigeon") (SYNONYM PIGEON BIRD
+REPRODUCTION WRITING PRINT LETTERING) (ADJECTIVE CERAMIC CLAY HOMING SMALL) (
+FLAGS TAKEBIT READBIT) (OWNER PIGEON) (TEXT
+"Tiny lettering says, \"Frobozz Magic Homing Pigeon Company.\"") (ACTION
+PIGEON-F)> 
+<DEFINE-ROUTINE PIGEON-F> 
+<GLOBAL REMOVED-PERCH-LOC <>> 
+<DEFINE-ROUTINE MOVE-TO-PERCH> 
+<DEFINE-ROUTINE FIND-PERCH> 
+<END-SEGMENT> 
+\ 
+<BEGIN-SEGMENT VILLAGE> 
+<OBJECT FR-BLDG (LOC LOCAL-GLOBALS) (DESC "Frobozzco Building") (SYNONYM
+BUILDING HEADQUARTERS HQ) (ADJECTIVE TALL FROBOZZCO INTERNATIONAL WORLD
+HEADQUARTERS HQ) (ACTION FR-BLDG-F)> 
+<DEFINE-ROUTINE FR-BLDG-F> 
+<ROOM FR-HQ (LOC ROOMS) (REGION "Flatheadia") (DESC "FrobozzCo HQ") (LDESC
+"You are in the lobby of FrobozzCo International's World Headquarters, an
+impressive four hundred story structure. Wide stairs lead up and down; the
+main exit is to the west; an emergency exit leads east.") (WEST TO
+VILLAGE-CENTER) (EAST TO BACK-ALLEY) (DOWN TO FR-BASEMENT) (UP PER
+FR-OFFICES-ENTER-F) (FLAGS RLANDBIT ONBIT) (GLOBAL STAIRS FR-BLDG) (MAP-LOC <
+PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>) (ICON FR-HQ-ICON)> 
+<OBJECT MEMO (DESC "memo") (SYNONYM MEMO) (FLAGS READBIT TAKEBIT) (SIZE 2) (
+TEXT "FROM: Spaulding Flathead, Seventh Asst. Bldg. Mgr.|
+TO:   All tenants|
+RE:   New stairway policy|
+To relieve overcrowding in the stairwells, employees who work above the 75th
+floor will be given teleportation tokens. Company officers will continue to
+receive teleportation tokens regardless of floor. Note: employees with tokens
+will no longer be dismissed early for \"stair-climbing\" time.")> 
+<OBJECT INSTRUCTION-BOOKLET (DESC "damaged instruction booklet") (SYNONYM BOOK
+BOOKLET INSTRUCTIONS) (ADJECTIVE INSTRUCTIONS DAMAGED) (FLAGS TAKEBIT READBIT)
+(SIZE 3) (TEXT "The booklet is badly torn and faded. You can make out only a few phrases:
+\"...ozz Magic Homing Pi...\" and \"...eave the perch in the location you wish
+t...\" and \"...eturn warranty card within 90 d...\"")> 
+<DEFINE-ROUTINE FR-OFFICES-ENTER-F> 
+<ROOM FR-OFFICES (LOC ROOMS) (REGION "Flatheadia") (DESC "FrobozzCo Offices") (
+NORTH TO OFFICES-NORTH) (EAST TO OFFICES-EAST) (WEST TO OFFICES-WEST) (SOUTH TO
+OFFICES-SOUTH) (UP PER FR-FLOOR-F) (DOWN PER FR-FLOOR-F) (FLAGS RLANDBIT ONBIT)
+(GLOBAL FR-BLDG STAIRS) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-5
+MAP-GEN-X-10>) (ACTION OFFICES-F)> 
+<DEFINE-ROUTINE OFFICES-F> 
+<GLOBAL BEEN-IN-FR-UPPER-FLOORS <>> 
+<GLOBAL FLOOR-NUMBER 2> 
+<DEFINE-ROUTINE FR-FLOOR-F> 
+<DEFINE-ROUTINE OFFICE-UNSTORE> 
+<OBJECT T-SQUARE (DESC "T-square") (SYNONYM T-SQUARE) (FLAGS TAKEBIT MAGICBIT)
+(VALUE 12)> 
+<ROOM OFFICES-NORTH (LOC ROOMS) (REGION "Flatheadia") (DESC
+"FrobozzCo Offices North") (SOUTH TO FR-OFFICES) (FLAGS RLANDBIT ONBIT) (GLOBAL
+FR-BLDG WINDOW) (ICON OFFICES-ICON) (MAP-LOC <PTABLE VILLAGE-MAP-NUM
+MAP-GEN-Y-4 MAP-GEN-X-10>) (ACTION FR-OUTER-OFFICES-F)> 
+<ROOM OFFICES-EAST (LOC ROOMS) (REGION "Flatheadia") (DESC
+"FrobozzCo Offices East") (WEST TO FR-OFFICES) (FLAGS RLANDBIT ONBIT) (GLOBAL
+FR-BLDG WINDOW) (ICON OFFICES-ICON) (MAP-LOC <PTABLE VILLAGE-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-11>) (ACTION FR-OUTER-OFFICES-F)> 
+<ROOM OFFICES-WEST (LOC ROOMS) (REGION "Flatheadia") (DESC
+"FrobozzCo Offices West") (EAST TO FR-OFFICES) (FLAGS RLANDBIT ONBIT) (GLOBAL
+FR-BLDG WINDOW) (ICON OFFICES-ICON) (MAP-LOC <PTABLE VILLAGE-MAP-NUM
+MAP-GEN-Y-5 MAP-GEN-X-9>) (ACTION FR-OUTER-OFFICES-F)> 
+<ROOM OFFICES-SOUTH (LOC ROOMS) (REGION "Flatheadia") (DESC
+"FrobozzCo Offices South") (NORTH TO FR-OFFICES) (FLAGS RLANDBIT ONBIT) (GLOBAL
+FR-BLDG WINDOW) (ICON OFFICES-ICON) (MAP-LOC <PTABLE VILLAGE-MAP-NUM
+MAP-GEN-Y-6 MAP-GEN-X-10>) (ACTION FR-OUTER-OFFICES-F)> 
+<DEFINE-ROUTINE FR-OUTER-OFFICES-F> 
+<ROOM FR-PENTHOUSE (LOC ROOMS) (REGION "Flatheadia") (DESC
+"FrobozzCo Penthouse") (LDESC
+"You have reached the top floor! On a clear day, one can see hundreds of
+bloits from here; too bad it's so smoggy today. A stair leads down.") (DOWN PER
+FR-OFFICES-ENTER-F) (FLAGS RLANDBIT ONBIT) (GLOBAL FR-BLDG WINDOW STAIRS) (
+MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-8>) (ICON PENTHOUSE-ICON)
+(ACTION FR-PENTHOUSE-F)> 
+<DEFINE-ROUTINE FR-PENTHOUSE-F> 
+<ROOM FR-BASEMENT (LOC ROOMS) (REGION "Flatheadia") (DESC "FrobozzCo Basement")
+(LDESC "The basement of the FrobozzCo Building is a place of sturdy walls, designed
+to support the 400 stories above. A stair leads up and a passage heads south.")
+(UP TO FR-HQ) (SOUTH PER PHIL-ENTER-F) (FLAGS RLANDBIT) (GLOBAL STAIRS FR-BLDG)
+(MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>)> 
+<OBJECT BASEMENT-REBUS-BUTTON (LOC FR-BASEMENT) (SDESC
+"blinking key-shaped button") (FDESC
+"In a dark corner, a blinking button catches your eye. It seems to be in the
+shape of a key.") (SYNONYM BUTTON) (ADJECTIVE KEY-SHAPED BLINKING) (ACTION
+REBUS-BUTTON-F)> 
+<DEFINE-ROUTINE PHIL-ENTER-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT LAKE> 
+<DEFINE-ROUTINE FR-BASEMENT-ENTER-F> 
+<END-SEGMENT> 
+<BEGIN-SEGMENT VILLAGE> 
+<ROOM BACK-ALLEY (LOC ROOMS) (DESC "Back Alley") (REGION "Flatheadia") (LDESC
+"This is a grungy, foul-smelling lane. A large building can be entered
+to the west, and a much smaller one to the north.") (NORTH TO MAGIC-SHOP) (WEST
+TO FR-HQ) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (SYNONYM ALLEY) (ADJECTIVE BACK) (
+GLOBAL FR-BLDG GLOBAL-BLDG) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3
+MAP-GEN-X-9>) (ICON BACK-ALLEY-ICON)> 
+<ROOM MAGIC-SHOP (LOC ROOMS) (DESC "Magic Shop") (REGION "Flatheadia") (LDESC
+"Perhaps this was once a thriving shop, but now, like the rest of Flatheadia,
+it lies deserted, gutted by looters. The exit is south.") (SOUTH TO BACK-ALLEY)
+(OUT TO BACK-ALLEY) (FLAGS RLANDBIT ONBIT) (SYNONYM SHOP STORE) (ADJECTIVE
+MAGIC) (GLOBAL GLOBAL-BLDG) (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2
+MAP-GEN-X-9>) (ICON MAGIC-SHOP-ICON)> 
+<OBJECT RING (LOC MAGIC-SHOP) (OWNER RING) (DESC "ring of ineptitude") (FDESC
+"The only thing the looters ignored was a ring. Not surprising, as it is a
+ring of ineptitude. Fun at parties, but not good for much else.") (SYNONYM RING
+INEPTITUDE) (FLAGS TAKEBIT WEARBIT) (SIZE 1) (ACTION RING-F)> 
+<BEGIN-SEGMENT 0> 
+<DEFINE-ROUTINE RING-F> 
+<END-SEGMENT> 
\ No newline at end of file
diff --git a/village.zap b/village.zap
new file mode 100644
index 0000000..a17bf5b
--- /dev/null
+++ b/village.zap
@@ -0,0 +1,613 @@
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	VILLAGE-F
+	EQUAL?	HERE,PARAPET \?CCL3
+	CALL2	TOUCHING?,VILLAGE
+	ZERO?	STACK /?CCL3
+	CALL2	CANT-REACH,VILLAGE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?ENTER \?CCL7
+	EQUAL?	HERE,VILLAGE-GATE \?CCL10
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL10:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?EXIT \FALSE
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	OUTER-BAILEY-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This open area is a rolling meadow extending from the moat to the distant perimeter fortifications. A drawbridge "
+	FSET?	DRAWBRIDGE,OPENBIT \?CCL6
+	PRINTI	"leads over the"
+	JUMP	?CND4
+?CCL6:	PRINTI	"is raised, leaving an impassable"
+?CND4:	PRINTI	" moat to the southeast, and roads lead northeast, southwest, and northwest."
+	RTRUE	
+
+
+	.FUNCT	TREE-STUMP-F,VARG
+	ZERO?	VARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	GETP	TREE-STUMP,P?LDESC
+	PRINT	STACK
+	FIRST?	TREE-STUMP \?CCL8
+	PRINTC	32
+	RFALSE	
+?CCL8:	CRLF	
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?GET-NEAR \?CCL10
+	ICALL	PERFORM,V?ENTER,TREE-STUMP
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?LISTEN \?CCL12
+	ZERO?	PLANT-TALKER /?CCL12
+	PRINTR	"The stump is dead and silent."
+?CCL12:	EQUAL?	PRSA,V?ENTER \?CCL16
+	SET	'JUMP-X,0
+	SET	'JUMP-Y,0
+	RFALSE	
+?CCL16:	EQUAL?	PRSA,V?EXIT \?CCL18
+	SET	'JUMP-X,99
+	SET	'JUMP-Y,99
+	RFALSE	
+?CCL18:	EQUAL?	PRSA,V?RAISE,V?TAKE,V?LOOK-UNDER \FALSE
+	PRINTR	"100 men couldn't uproot this stump!"
+
+
+	.FUNCT	PERIMETER-WALL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"Before you rises the massive stone wall which forms the first line of defense for the castle grounds. To the northwest, the huge oak gates "
+	FSET?	OUTER-GATE,OPENBIT \?CCL6
+	PRINTI	"lie wide open, revealing dense forest beyond!"
+	RTRUE	
+?CCL6:	PRINTI	"are closed and reinforced, forming an impassable barrier across the road from the southeast."
+	RTRUE	
+
+
+	.FUNCT	WEST-OF-HOUSE-ENTER-F,RARG
+	FSET?	OUTER-GATE,OPENBIT \?CCL3
+	ZERO?	RARG \?CND4
+	ICALL1	RETURN-FROM-MAP
+	ICALL2	INC-SCORE,30
+	PRINTI	"You dive through the doors as the castle begins its final tremors! Landing on soft grass, you roll to a stop, and turn to see the castle's final moments. But, oddly, though it is collapsing, it doesn't seem to be getting destroyed. Instead, it is merely shrinking, shrivelling... You rub your eyes in disbelief, as the once mighty castle transforms itself into ever tinier structures. At long last there is stillness, and the dust begins to clear"
+	PRINT	ELLIPSIS
+?CND4:	RETURN	WEST-OF-HOUSE
+?CCL3:	IN?	NW-SE-PASSAGE,HERE \?CCL7
+	EQUAL?	NW-SE-PASSAGE-DIR,P?NW \?CCL7
+	ZERO?	RARG \FALSE
+	ICALL1	CANT-GO
+	RFALSE	
+?CCL7:	ZERO?	RARG \FALSE
+	ICALL1	RETURN-FROM-MAP
+	ICALL2	THIS-IS-IT,OUTER-GATE
+	ICALL2	DO-FIRST,STR?527
+	RFALSE	
+
+
+	.FUNCT	OUTER-GATE-F
+	EQUAL?	PRSA,V?OPEN \FALSE
+	PRINTR	"It would take the power of a wizard to open these massive doors."
+
+
+	.FUNCT	I-END-GAME
+	INC	'END-GAME-COUNTER
+	EQUAL?	END-GAME-COUNTER,12 \?CCL3
+	ICALL1	RETURN-FROM-MAP
+	CALL2	JIGS-UP,STR?528
+	RSTACK	
+?CCL3:	EQUAL?	END-GAME-COUNTER,11 \?CCL5
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   A great rumble fills the air, and the buildings around you teeter like drunken dancers!"
+?CCL5:	EQUAL?	END-GAME-COUNTER,9 \?CCL7
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   Boulders of rubble roll past, threatening to crush you!"
+?CCL7:	EQUAL?	END-GAME-COUNTER,6 \?CCL9
+	ICALL1	RETURN-FROM-MAP
+	PRINTR	"   As the grounds continue to shake, a multitude of rats well up from within and flee toward the perimeter wall."
+?CCL9:	EQUAL?	END-GAME-COUNTER,3 \FALSE
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   The "
+	FSET?	HERE,OUTSIDEBIT \?CCL14
+	PRINTI	"ground"
+	JUMP	?CND12
+?CCL14:	PRINTI	"floor"
+?CND12:	PRINTR	" rolls and shudders, making it difficult to stay on your feet."
+
+
+	.FUNCT	WEST-OF-HOUSE-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	ICALL1	RETURN-FROM-MAP
+	CALL1	UPDATE-STATUS-LINE
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	ICALL1	RETURN-FROM-MAP
+	CRLF	
+	ICALL1	HIT-ANY-KEY
+	CLEAR	0
+	CRLF	
+	ICALL2	MARGINAL-PIC,EPILOGUE-LETTER
+	DIROUT	D-SCREEN-OFF
+	PRINTC	65
+	DIROUT	D-SCREEN-ON
+	PRINTI	"s you stare dumbfounded at the white house, the jester appears, laughing as though at some supreme trick. Then, a low moaning wind begins to blow, and slowly, ever so slowly, his appearance shifts, until you see before you a wizard of incredible age and obvious power. His hoary visage stirs an ancient ancestral memory. He speaks in a new voice, tired but commanding of instant respect. ""I am Megaboz,"" he states, and your skin tingles at the presence of a legend.
+   ""Yes, I still live. I have waited a long time for this day; to meet the one who would guard after I am gone.
+   ""The Great Underground Empire is no more; but Quendor remains. The white house will stand as a warning and reminder of the excesses of the Flatheads. Some day, a new Empire may rise; you -- and your successors -- shall watch over the land, and ensure that future Empire be benevolent. Henceforth, you shall be known as Dungeon Master.
+   ""As promised by Decree, half the wealth of the kingdom is yours!"" Your mind is suddenly filled with images of a vast underground Treasury, piled with unfathomable wealth. But the image is tempered by the ironic knowledge that you will never have use for such wealth. As the image fades, you hear tinkling bells and the voice of the jester/Megaboz: ""Well, I'm outta here! Over to you, Dungeon Master!"" You find yourself alone, left to ponder the years ahead, long years of keeping watch over Quendor and searching, ever searching, for your successor"
+	PRINT	ELLIPSIS
+	CALL1	FINISH
+	RSTACK	
+
+
+	.FUNCT	LOCKER-F
+	EQUAL?	PRSA,V?LOCK \FALSE
+	EQUAL?	PRSO,LOCKER \FALSE
+	PRINTR	"You don't have the right key."
+
+	.SEGMENT "0"
+
+
+	.FUNCT	POSTER-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The poster shows pin-up model Ursula Flathead (Miss Miznia, 878 GUE) in a typical suggestive pose and minimal cover."
+?CCL3:	EQUAL?	PRSA,V?ROLL \FALSE
+	PRINTR	"You curl it into a tube, but as you let go it flattens again."
+
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	GATE-PS
+	CALL2	PERFORM-PRSA,ARCH
+	RSTACK	
+
+
+	.FUNCT	TAX-OFFICE-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	IN?	ZORKMID-COIN,LOCAL-GLOBALS \FALSE
+	ICALL2	SETUP-ORPHAN,STR?44
+	IN?	JESTER,HERE /FALSE
+	ICALL2	DEQUEUE,I-JESTER
+	MOVE	JESTER,HERE
+	ICALL2	THIS-IS-IT,JESTER
+	ICALL1	RETURN-FROM-MAP
+	PRINTI	"   A bookkeeper is hunched over one of the desks. He looks up as you enter, and you see that it is the jester, wearing suspenders, a bow tie, thick eyeglasses, and a green visor.
+   """
+	GETP	TAX-OFFICE,P?RIDDLE
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+	.SEGMENT "0"
+
+
+	.FUNCT	PIGEON-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The pigeon, though strikingly lifelike, is merely a clay reproduction. On the bottom is some tiny writing."
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
+	EQUAL?	PRSO,PIGEON \?CCL5
+	CALL2	ULTIMATELY-IN?,PIGEON
+	ZERO?	STACK \FALSE
+	FSET?	OUTER-GATE,OPENBIT /FALSE
+	ZERO?	TIME-STOPPED \FALSE
+	RANDOM	100
+	LESS?	10,STACK \?CTR14
+	GRTR?	P-MULT,1 \?CCL15
+?CTR14:	PRINTI	"Your eyes must be starting to play tricks on you. It almost seemed like the clay pigeon "
+	IN?	PIGEON,HERE \?CCL20
+	PRINTI	"hopped"
+	JUMP	?CND18
+?CCL20:	PRINTI	"squirmed"
+?CND18:	PRINTR	" out of reach at the last second."
+?CCL15:	CALL2	ITAKE,TRUE-VALUE
+	EQUAL?	STACK,M-FATAL /TRUE
+	CALL2	ULTIMATELY-IN?,PERCH
+	ZERO?	STACK /?CCL24
+	PRINTR	"Taken."
+?CCL24:	PRINTI	"As you take the pigeon, you feel a dizziness, like that which one gets from drinking Miznian wines too quickly. "
+	CALL2	META-LOC,PERCH
+	EQUAL?	STACK,HERE /?CTR26
+	EQUAL?	HERE,OUBLIETTE \?CCL27
+	EQUAL?	REMOVED-PERCH-LOC,OUBLIETTE \?CCL27
+?CTR26:	LOC	PROTAGONIST
+	EQUAL?	STACK,YACHT,DB /?CND32
+	MOVE	PROTAGONIST,HERE
+?CND32:	PRINTR	"When the disorientation passes, you seem to have moved a few feet."
+?CCL27:	ICALL1	CAST-HUNGER-SPELL
+	PRINTI	"The world blurs, then darkens. You blink"
+	PRINT	ELLIPSIS
+	SET	'HAND-IN-WALDO,FALSE-VALUE
+	CALL2	MOVE-TO-PERCH,PROTAGONIST
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSI,PERCH \FALSE
+	PRINTR	"There's no apparent way to put the pigeon on the perch."
+
+
+	.FUNCT	MOVE-TO-PERCH,WHAT,PERCH-LOC,L,OFFSET,RM,OBJ,X,N,TOOK-STUFF
+	CALL2	META-LOC,PERCH >PERCH-LOC
+	ZERO?	PERCH-LOC /?CND1
+	IN?	PERCH-LOC,ROOMS \?CND1
+	LOC	PERCH
+	EQUAL?	STACK,YACHT,DB \?CND1
+	LOC	PERCH >PERCH-LOC
+?CND1:	EQUAL?	WHAT,PROTAGONIST \?CND6
+	EQUAL?	HERE,PLAIN \?CCL10
+	ICALL	STORE,PLAIN-OFFSET,PLAIN-LOC,PLAIN
+	JUMP	?CND6
+?CCL10:	EQUAL?	HERE,CONSTRUCTION \?CCL12
+	ICALL	STORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC,CONSTRUCTION
+	JUMP	?CND6
+?CCL12:	EQUAL?	HERE,FR-OFFICES \?CCL14
+	ICALL	STORE,OFFICES-OFFSET,FLOOR-NUMBER,FR-OFFICES
+	JUMP	?CND6
+?CCL14:	EQUAL?	HERE,OFFICES-NORTH \?CCL16
+	ICALL	STORE,OFFICES-N-OFFSET,FLOOR-NUMBER,OFFICES-NORTH
+	JUMP	?CND6
+?CCL16:	EQUAL?	HERE,OFFICES-SOUTH \?CCL18
+	ICALL	STORE,OFFICES-S-OFFSET,FLOOR-NUMBER,OFFICES-SOUTH
+	JUMP	?CND6
+?CCL18:	EQUAL?	HERE,OFFICES-EAST \?CCL20
+	ICALL	STORE,OFFICES-E-OFFSET,FLOOR-NUMBER,OFFICES-EAST
+	JUMP	?CND6
+?CCL20:	EQUAL?	HERE,OFFICES-WEST \?CND6
+	ICALL	STORE,OFFICES-W-OFFSET,FLOOR-NUMBER,OFFICES-WEST
+?CND6:	ZERO?	PERCH-LOC /?CCL24
+	EQUAL?	WHAT,PROTAGONIST \?CCL27
+	EQUAL?	HERE,MARSH \?CND28
+	IN?	JESTER,NICE-LUNCH-SPOT \?CND28
+	ICALL1	REMOVE-J
+?CND28:	ICALL2	GOTO,PERCH-LOC
+	EQUAL?	HERE,LAKE-BOTTOM \?CCL34
+	ICALL2	JIGS-UP,DROWN
+	RTRUE	
+?CCL34:	EQUAL?	HERE,PLAIN /TRUE
+	FCLEAR	CLOAK,WORNBIT
+	RTRUE	
+?CCL27:	EQUAL?	PERCH-LOC,LAKE-BOTTOM \?CCL37
+	SET	'PIECE-DROWNED,1
+	ICALL	ROB,WHAT,LAKE-BOTTOM
+	REMOVE	WHAT
+	RTRUE	
+?CCL37:	CALL	FIND-IN,PERCH-LOC,WHITEBIT >X
+	ZERO?	X \?CCL39
+	CALL	FIND-IN,PERCH-LOC,BLACKBIT >X
+	ZERO?	X /?CND38
+?CCL39:	ICALL	ROB,X,WHAT
+	REMOVE	X
+?CND38:	FIRST?	PERCH-LOC >X /?PRG43
+?PRG43:	ZERO?	X /?REP44
+	NEXT?	X >N /?BOGUS47
+?BOGUS47:	FSET?	X,TAKEBIT \?CND48
+	FSET?	X,TRYTAKEBIT /?CND48
+	CALL	FIND-IN,X,TRYTAKEBIT
+	ZERO?	STACK \?CND48
+	SET	'TOOK-STUFF,TRUE-VALUE
+	MOVE	X,WHAT
+?CND48:	SET	'X,N
+	JUMP	?PRG43
+?REP44:	MOVE	WHAT,PERCH-LOC
+	EQUAL?	PERCH-LOC,HERE \FALSE
+	PRINTI	"   With a surprisingly high-pitched squeal of alarm,"
+	ICALL2	APRINT,WHAT
+	PRINTI	" materializes nearby. "
+	FSET?	WHAT,FEMALEBIT \?CCL58
+	PRINTI	"Sh"
+	JUMP	?CND56
+?CCL58:	PRINTC	72
+?CND56:	PRINTI	"e seems somewhat dazed by the experience"
+	ZERO?	TOOK-STUFF /?CCL61
+	PRINTR	", but not too dazed to pick the ground clean."
+?CCL61:	PRINT	PERIOD-CR
+	RTRUE	
+?CCL24:	CALL2	FIND-PERCH,PERCH >L
+	ZERO?	L /?CCL63
+	GRTR?	L,5000 \?CCL66
+	SET	'OFFSET,OFFICES-W-OFFSET
+	SET	'RM,OFFICES-WEST
+	JUMP	?CND64
+?CCL66:	GRTR?	L,4000 \?CCL68
+	SET	'OFFSET,OFFICES-E-OFFSET
+	SET	'RM,OFFICES-EAST
+	JUMP	?CND64
+?CCL68:	GRTR?	L,3000 \?CCL70
+	SET	'OFFSET,OFFICES-S-OFFSET
+	SET	'RM,OFFICES-SOUTH
+	JUMP	?CND64
+?CCL70:	GRTR?	L,2000 \?CCL72
+	SET	'OFFSET,OFFICES-N-OFFSET
+	SET	'RM,OFFICES-NORTH
+	JUMP	?CND64
+?CCL72:	GRTR?	L,1000 \?CCL74
+	SET	'OFFSET,OFFICES-OFFSET
+	SET	'RM,FR-OFFICES
+	JUMP	?CND64
+?CCL74:	GRTR?	L,399 \?CCL76
+	SET	'OFFSET,CONSTRUCTION-OFFSET
+	SET	'RM,CONSTRUCTION
+	JUMP	?CND64
+?CCL76:	SET	'OFFSET,PLAIN-OFFSET
+	SET	'RM,PLAIN
+?CND64:	EQUAL?	WHAT,PROTAGONIST \?CCL79
+	SUB	L,OFFSET >L
+	EQUAL?	RM,PLAIN \?CCL82
+	DIV	L,8
+	ADD	STACK,1 >RANK
+	MOD	L,8
+	ADD	STACK,1 >FILE
+	SET	'PLAIN-LOC,L
+	EQUAL?	HERE,PLAIN /?CND83
+	MOVE	CLOAK,PROTAGONIST
+	FSET	CLOAK,WORNBIT
+	LOC	PROTAGONIST
+	FSET?	STACK,TAKEBIT \?CCL87
+	SET	'CLOAK-LOC,HERE
+	JUMP	?CND83
+?CCL87:	LOC	PROTAGONIST >CLOAK-LOC
+?CND83:	ICALL	UNSTORE,OFFSET,L,RM
+	JUMP	?CND80
+?CCL82:	EQUAL?	RM,CONSTRUCTION \?CCL89
+	DIV	L,8
+	ADD	STACK,1 >RANK
+	MOD	L,8
+	ADD	STACK,1 >FILE
+	SET	'CONSTRUCTION-LOC,L
+	ICALL	UNSTORE,OFFSET,L,RM
+	JUMP	?CND80
+?CCL89:	SET	'FLOOR-NUMBER,L
+	ICALL2	OFFICE-UNSTORE,L
+?CND80:	EQUAL?	RM,PLAIN /?CND90
+	FCLEAR	CLOAK,WORNBIT
+?CND90:	EQUAL?	HERE,MARSH \?CND92
+	IN?	JESTER,NICE-LUNCH-SPOT \?CND92
+	ICALL1	REMOVE-J
+?CND92:	CALL2	GOTO,RM
+	RSTACK	
+?CCL79:	EQUAL?	WHAT,WHITE-PAWN \?CCL98
+	EQUAL?	RM,PLAIN \?CCL98
+	SUB	L,OFFSET
+	LESS?	STACK,8 \?CCL98
+	ICALL	ROB,WHITE-PAWN,WHITE-QUEEN
+	SET	'WHAT,WHITE-QUEEN
+	JUMP	?CND96
+?CCL98:	EQUAL?	WHAT,BLACK-PAWN \?CND96
+	EQUAL?	RM,PLAIN \?CND96
+	SUB	L,OFFSET
+	GRTR?	STACK,55 \?CND96
+	ICALL	ROB,BLACK-PAWN,BLACK-QUEEN
+	SET	'WHAT,BLACK-QUEEN
+?CND96:	REMOVE	WHAT
+	ICALL	REMOVE-ANY-PIECE,L,WHAT
+	ICALL	PIECE-SNARF,L,WHAT
+	SUB	L,OFFSET
+	CALL	PUT-IN-STORAGE,OFFSET,WHAT,STACK
+	RSTACK	
+?CCL63:	EQUAL?	WHAT,PROTAGONIST \?CCL107
+	EQUAL?	REMOVED-PERCH-LOC,WATER \?CCL110
+	HLIGHT	H-BOLD
+	PRINTI	"Surrounded by Water"
+	CRLF	
+	HLIGHT	H-NORMAL
+	CALL2	JIGS-UP,DROWN
+	RSTACK	
+?CCL110:	EQUAL?	REMOVED-PERCH-LOC,GROUND,OUBLIETTE \?CCL112
+	PRINTI	"You appear "
+	EQUAL?	REMOVED-PERCH-LOC,OUBLIETTE \?CCL115
+	PRINTI	"knee deep in mud"
+	PRINT	ELLIPSIS
+	FCLEAR	CLOAK,WORNBIT
+	EQUAL?	HERE,MARSH \?CND116
+	IN?	JESTER,NICE-LUNCH-SPOT \?CND116
+	ICALL1	REMOVE-J
+?CND116:	CALL2	GOTO,OUBLIETTE
+	RSTACK	
+?CCL115:	CALL2	JIGS-UP,STR?548
+	RSTACK	
+?CCL112:	EQUAL?	REMOVED-PERCH-LOC,PSEUDO-OBJECT \?CCL121
+	CALL2	JIGS-UP,STR?549
+	RSTACK	
+?CCL121:	EQUAL?	REMOVED-PERCH-LOC,BROGMOID \?CCL123
+	CALL2	JIGS-UP,STR?550
+	RSTACK	
+?CCL123:	CALL2	JIGS-UP,STR?551
+	RSTACK	
+?CCL107:	EQUAL?	REMOVED-PERCH-LOC,OUBLIETTE \?CCL125
+	MOVE	WHAT,OUBLIETTE
+	ICALL	REMOVE-ANY-PIECE,L,WHAT
+	CALL	PIECE-SNARF,L,WHAT
+	RSTACK	
+?CCL125:	REMOVE	WHAT
+	RTRUE	
+
+
+	.FUNCT	FIND-PERCH,OBJ,L,CNT
+?PRG1:	LESS?	CNT,STORAGE-TABLE-LENGTH /?CCL5
+	LOC	OBJ
+	ZERO?	STACK /?REP2
+	LOC	OBJ
+	CALL2	FIND-PERCH,STACK >L
+	RETURN	L
+?CCL5:	ADD	CNT,1
+	GET	STORAGE-TABLE,STACK
+	EQUAL?	STACK,OBJ \?CND3
+	GET	STORAGE-TABLE,CNT >L
+	RETURN	L
+?CND3:	ADD	CNT,2 >CNT
+	JUMP	?PRG1
+?REP2:	RETURN	L
+
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	FR-BLDG-F
+	EQUAL?	PRSA,V?RESEARCH \?CCL3
+	CALL	PICTURED-ENTRY,FR-ILL,STR?552
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	EQUAL?	HERE,VILLAGE-CENTER \?CCL8
+	PRINTR	"Most of the building is lost in the clouds."
+?CCL8:	PRINTR	"You're in it!"
+?CCL5:	EQUAL?	PRSA,V?ENTER \?CCL10
+	EQUAL?	HERE,VILLAGE-CENTER \?CCL13
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL13:	EQUAL?	HERE,PHIL-HALL \?CCL15
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?CCL15:	PRINT	LOOK-AROUND
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?EXIT \FALSE
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	FR-OFFICES-ENTER-F,RARG
+	ZERO?	RARG /?CCL3
+	RETURN	FR-OFFICES
+?CCL3:	EQUAL?	HERE,FR-HQ \?CCL5
+	SET	'FLOOR-NUMBER,2
+	JUMP	?CND1
+?CCL5:	SET	'FLOOR-NUMBER,399
+?CND1:	ICALL2	OFFICE-UNSTORE,FLOOR-NUMBER
+	RETURN	FR-OFFICES
+
+
+	.FUNCT	OFFICES-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	SET	'BEEN-IN-FR-UPPER-FLOORS,TRUE-VALUE
+	RETURN	BEEN-IN-FR-UPPER-FLOORS
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are on Floor "
+	PRINTN	FLOOR-NUMBER
+	PRINTI	" of the FrobozzCo Building. The offices of one subsidiary or another can be entered in all four directions. Stairs lead up and down."
+	RTRUE	
+
+
+	.FUNCT	FR-FLOOR-F,RARG
+	EQUAL?	PRSO,P?UP \?CCL3
+	EQUAL?	FLOOR-NUMBER,399 \?CCL3
+	RETURN	FR-PENTHOUSE
+?CCL3:	EQUAL?	PRSO,P?DOWN \?CCL7
+	EQUAL?	FLOOR-NUMBER,2 \?CCL7
+	RETURN	FR-HQ
+?CCL7:	ZERO?	RARG \FALSE
+	ICALL	STORE,OFFICES-OFFSET,FLOOR-NUMBER
+	ICALL	STORE,OFFICES-N-OFFSET,FLOOR-NUMBER,OFFICES-NORTH
+	ICALL	STORE,OFFICES-S-OFFSET,FLOOR-NUMBER,OFFICES-SOUTH
+	ICALL	STORE,OFFICES-E-OFFSET,FLOOR-NUMBER,OFFICES-EAST
+	ICALL	STORE,OFFICES-W-OFFSET,FLOOR-NUMBER,OFFICES-WEST
+	EQUAL?	PRSO,P?UP \?CCL14
+	INC	'FLOOR-NUMBER
+	JUMP	?CND12
+?CCL14:	DEC	'FLOOR-NUMBER
+?CND12:	ICALL2	OFFICE-UNSTORE,FLOOR-NUMBER
+	RETURN	FR-OFFICES
+
+
+	.FUNCT	OFFICE-UNSTORE,L
+	ICALL	UNSTORE,OFFICES-OFFSET,L,FR-OFFICES
+	ICALL	UNSTORE,OFFICES-N-OFFSET,L,OFFICES-NORTH
+	ICALL	UNSTORE,OFFICES-S-OFFSET,L,OFFICES-SOUTH
+	ICALL	UNSTORE,OFFICES-E-OFFSET,L,OFFICES-EAST
+	CALL	UNSTORE,OFFICES-W-OFFSET,L,OFFICES-WEST
+	RSTACK	
+
+
+	.FUNCT	FR-OUTER-OFFICES-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in an office on floor "
+	PRINTN	FLOOR-NUMBER
+	PRINTI	" of the FrobozzCo Building. The office has a lovely "
+	EQUAL?	HERE,OFFICES-NORTH \?CCL6
+	PRINTI	"north"
+	JUMP	?CND4
+?CCL6:	EQUAL?	HERE,OFFICES-SOUTH \?CCL8
+	PRINTI	"south"
+	JUMP	?CND4
+?CCL8:	EQUAL?	HERE,OFFICES-EAST \?CCL10
+	PRINTI	"east"
+	JUMP	?CND4
+?CCL10:	PRINTI	"west"
+?CND4:	PRINTI	"ern exposure. The only exit is to the "
+	EQUAL?	HERE,OFFICES-NORTH \?CCL13
+	PRINTI	"south"
+	JUMP	?CND11
+?CCL13:	EQUAL?	HERE,OFFICES-SOUTH \?CCL15
+	PRINTI	"north"
+	JUMP	?CND11
+?CCL15:	EQUAL?	HERE,OFFICES-EAST \?CCL17
+	PRINTI	"west"
+	JUMP	?CND11
+?CCL17:	PRINTI	"east"
+?CND11:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	FR-PENTHOUSE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	FR-PENTHOUSE,TOUCHBIT /FALSE
+	SET	'DO-J,TRUE-VALUE
+	CALL	QUEUE,I-JESTER,1
+	RSTACK	
+
+
+	.FUNCT	PHIL-ENTER-F,RARG
+	ZERO?	RARG \?CND1
+	EQUAL?	CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC /?CCL2
+	RETURN	PHIL-HALL
+?CCL2:	PRINTI	"The passage takes you from the FrobozzCo Building back into the castle. It widens"
+	PRINT	ELLIPSIS
+?CND1:	RETURN	PHIL-HALL
+
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+
+	.FUNCT	FR-BASEMENT-ENTER-F,RARG
+	ZERO?	RARG \?CND1
+	EQUAL?	CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC /?CCL2
+	RETURN	FR-BASEMENT
+?CCL2:	PRINTI	"The passage narrows as it leaves the castle, then widens again as it enters"
+	PRINT	ELLIPSIS
+?CND1:	RETURN	FR-BASEMENT
+
+	.ENDSEG
+
+	.SEGMENT "0"
+
+	.SEGMENT "VILLAGE"
+
+
+	.FUNCT	RING-F,AV,HOLDING-STUFF
+	EQUAL?	PRSA,V?WEAR \FALSE
+	LOC	PROTAGONIST >AV
+	MOVE	RING,PROTAGONIST
+	FSET	RING,WORNBIT
+	PRINTI	"As you slip the ring onto your finger, you clumsily "
+	EQUAL?	HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS,LEDGE-IN-PIT /?CTR5
+	EQUAL?	HERE,MOUTH-OF-CAVE \?CCL6
+?CTR5:	PRINTI	"lose your grip, and plunge downward. "
+	ICALL	PERFORM,V?LEAP,ROOMS
+	RTRUE	
+?CCL6:	CALL2	CCOUNT,PROTAGONIST
+	GRTR?	STACK,1 \?CCL10
+	PRINTI	"drop everything you were holding."
+	FSET?	AV,DROPBIT \?CCL13
+	PUSH	AV
+	JUMP	?CND11
+?CCL13:	PUSH	HERE
+?CND11:	ICALL	ROB,PROTAGONIST,STACK,TRUE-VALUE
+	CRLF	
+	RTRUE	
+?CCL10:	PRINTR	"trip over your own feet and just barely manage to keep your balance."
+
+	.ENDSEG
+
+	.ENDI
diff --git a/village.zil b/village.zil
new file mode 100644
index 0000000..3971483
--- /dev/null
+++ b/village.zil
@@ -0,0 +1,1171 @@
+"VILLAGE for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<BEGIN-SEGMENT VILLAGE>
+
+<OBJECT VILLAGE
+	(LOC LOCAL-GLOBALS)
+	(DESC "village")
+	(SYNONYM VILLAGE)
+	(ACTION VILLAGE-F)>
+
+<ROUTINE VILLAGE-F ()
+	 <COND (<AND <EQUAL? ,HERE ,PARAPET>
+		     <TOUCHING? ,VILLAGE>>
+		<CANT-REACH ,VILLAGE>)
+	       (<VERB? ENTER>
+		<COND (<EQUAL? ,HERE ,VILLAGE-GATE>
+		       <DO-WALK ,P?EAST>)
+		      (T
+		       <V-WALK-AROUND>)>)
+	       (<VERB? EXIT>
+		<V-WALK-AROUND>)>>
+
+<ROOM OUTER-BAILEY
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Outer Bailey")
+      (SE TO DRAWBRIDGE IF DRAWBRIDGE IS OPEN ELSE
+       "The drawbridge isn't down.")
+      (SW TO GARRISON)
+      (NE TO BEND)
+      (NW TO PERIMETER-WALL)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (SYNONYM BAILEY)
+      (ADJECTIVE OUTER)
+      (GLOBAL DRAWBRIDGE MOAT ROOTS)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-2>)
+      (ICON OUTER-BAILEY-ICON)
+      (ACTION OUTER-BAILEY-F)>
+
+<ROUTINE OUTER-BAILEY-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This open area is a rolling meadow extending from the moat to the distant
+perimeter fortifications. A drawbridge ">
+		<COND (<FSET? ,DRAWBRIDGE ,OPENBIT>
+		       <TELL "leads over the">)
+		      (T
+		       <TELL "is raised, leaving an impassable">)>
+		<TELL
+" moat to the southeast, and roads lead northeast, southwest, and
+northwest.">)>>
+
+<OBJECT TREE-STUMP
+	(LOC OUTER-BAILEY)
+	(DESC "tree stump")
+	(LDESC
+"A mighty, rotting tree stump spreads its roots across the bailey.")
+	(SYNONYM STUMP)
+	(ADJECTIVE LARGE TREE WEATHERED)
+	(CAPACITY 100)
+	(FLAGS CONTBIT VEHBIT SURFACEBIT OPENBIT SEARCHBIT)
+	(ACTION TREE-STUMP-F)>
+
+<GLOBAL JUMP-X 99> ;"0 means you're on the stump, 99 means you're anywhere"
+
+<GLOBAL JUMP-Y 99> ;"0 means you're on the stump, 99 means you're anywhere"
+
+<ROUTINE TREE-STUMP-F ("OPTIONAL" (VARG <>))
+	 <COND (.VARG
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<TELL <GETP ,TREE-STUMP ,P?LDESC>>
+		<COND (<FIRST? ,TREE-STUMP>
+		       <TELL " ">
+		       <RFALSE>)
+		      (T
+		       <CRLF>)>)
+	       (<VERB? GET-NEAR>
+		<PERFORM ,V?ENTER ,TREE-STUMP>
+		<RTRUE>)
+	       (<AND <VERB? LISTEN>
+		     ,PLANT-TALKER>
+		<TELL "The stump is dead and silent." CR>)
+	       (<VERB? ENTER> ;"see V-LEAP"
+		<SETG JUMP-X 0>
+		<SETG JUMP-Y 0>
+		<RFALSE>)
+	       (<VERB? EXIT>
+		<SETG JUMP-X 99>
+		<SETG JUMP-Y 99>
+		<RFALSE>)
+	       (<VERB? LOOK-UNDER TAKE RAISE>
+		<TELL "100 men couldn't uproot this stump!" CR>)>>
+
+<OBJECT TREASURE-CHEST
+	(LOC LOCAL-GLOBALS)
+	(DESC "treasure chest")
+	(SYNONYM CHEST)
+	(ADJECTIVE TREASURE)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT)
+	(SIZE 25)
+	(CAPACITY 50)>
+
+<OBJECT CROWN
+	(LOC DIMWIT)
+	(DESC "gaudy crown")
+	(SYNONYM CROWN)
+	(ADJECTIVE GAUDY)
+	(VALUE 12)
+	(FLAGS NDESCBIT ;"cleared after prologue" MAGICBIT WEARBIT)>
+
+<ROOM PERIMETER-WALL
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Perimeter Wall")
+      (SE TO OUTER-BAILEY)
+      (NW PER WEST-OF-HOUSE-ENTER-F)
+      (OUT PER WEST-OF-HOUSE-ENTER-F)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (ICON PERIMETER-WALL-ICON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-1>)
+      (ACTION PERIMETER-WALL-F)>
+
+<ROUTINE PERIMETER-WALL-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"Before you rises the massive stone wall which forms the first line of
+defense for the castle grounds. To the northwest, the huge oak gates ">
+		<COND (<FSET? ,OUTER-GATE ,OPENBIT>
+		       <TELL "lie wide open, revealing dense forest beyond!">)
+		      (T
+		       <TELL
+"are closed and reinforced, forming an impassable barrier across the road from
+the southeast.">)>)>>
+
+<ROUTINE WEST-OF-HOUSE-ENTER-F ("OPT" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<FSET? ,OUTER-GATE ,OPENBIT>
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <INC-SCORE 30>
+		       <TELL
+"You dive through the doors as the castle begins its final tremors! Landing on
+soft grass, you roll to a stop, and turn to see the castle's final moments.
+But, oddly, though it is collapsing, it doesn't seem to be getting destroyed.
+Instead, it is merely shrinking, shrivelling... You rub your eyes in disbelief,
+as the once mighty castle transforms itself into ever tinier structures. At
+long last there is stillness, and the dust begins to clear" ,ELLIPSIS>)>
+		,WEST-OF-HOUSE)
+	       (<AND <IN? ,NW-SE-PASSAGE ,HERE>
+		     <EQUAL? ,NW-SE-PASSAGE-DIR ,P?NW>>
+		<COND (<NOT .RARG>
+		       <CANT-GO>)>
+		<RFALSE>) ;"you walk down the Magic Passage..."
+	       (T
+		<COND (<NOT .RARG>
+		       <RETURN-FROM-MAP>
+		       <THIS-IS-IT ,OUTER-GATE>
+		       <DO-FIRST "open the gate">)>
+		<RFALSE>)>>
+
+<OBJECT OUTER-GATE
+	(LOC PERIMETER-WALL)
+	(DESC "outer gate")
+	(SYNONYM GATE GATES DOOR)
+	(ADJECTIVE OUTER INCREDIBLY LARGE IRON-REINFORCED OAKEN)
+	(FLAGS NDESCBIT DOORBIT VOWELBIT)
+	(ACTION OUTER-GATE-F)>
+
+<ROUTINE OUTER-GATE-F ()
+	 <COND (<VERB? OPEN>
+		<TELL
+"It would take the power of a wizard to open these massive doors." CR>)>>
+
+<GLOBAL END-GAME-COUNTER 0>
+
+<ROUTINE I-END-GAME ()
+	 <SETG END-GAME-COUNTER <+ ,END-GAME-COUNTER 1>>
+	 <COND (<EQUAL? ,END-GAME-COUNTER 12>
+		<RETURN-FROM-MAP>
+		<JIGS-UP
+"   The castle buildings are collapsing around you. No, \"shrinking and
+changing\" would be more accurate... stone becoming wood... walls and
+ceilings rushing in toward you... but before you can witness the final form of
+this amazing metamorphosis, you are transformed into a large oriental rug.">)
+	       (<EQUAL? ,END-GAME-COUNTER 11>
+		<RETURN-FROM-MAP>
+		<TELL
+"   A great rumble fills the air, and the buildings around you teeter
+like drunken dancers!" CR>)
+	       (<EQUAL? ,END-GAME-COUNTER 9>
+		<RETURN-FROM-MAP>
+		<TELL
+"   Boulders of rubble roll past, threatening to crush you!" CR>)
+	       (<EQUAL? ,END-GAME-COUNTER 6>
+		<RETURN-FROM-MAP>
+		<TELL
+"   As the grounds continue to shake, a multitude of rats well up from
+within and flee toward the perimeter wall." CR>)
+	       (<EQUAL? ,END-GAME-COUNTER 3>
+		<RETURN-FROM-MAP>
+		<TELL "   The ">
+		<COND (<FSET? ,HERE ,OUTSIDEBIT>
+		       <TELL "ground">)
+		      (T
+		       <TELL "floor">)>
+		<TELL
+" rolls and shudders, making it difficult to stay on your feet." CR>)>>
+
+<ROOM WEST-OF-HOUSE
+      (LOC ROOMS)
+      (DESC "West of House")
+      (REGION "(formerly) Flatheadia")
+      (LDESC
+"You are standing in an open field west of a white house, with a
+boarded front door.|
+   There is a small mailbox here.")
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (ACTION WEST-OF-HOUSE-F)>
+
+<ROUTINE WEST-OF-HOUSE-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<RETURN-FROM-MAP>
+		<UPDATE-STATUS-LINE>)
+	       (<EQUAL? .RARG ,M-END>
+		<RETURN-FROM-MAP>
+		<CRLF>
+		<HIT-ANY-KEY>
+		<CLEAR 0>
+		<CRLF>
+		<MARGINAL-PIC ,EPILOGUE-LETTER>
+		<DIROUT ,D-SCREEN-OFF>
+	 	<TELL "A"> ;"so script doesn't say S YOU STARE..."
+	 	<DIROUT ,D-SCREEN-ON>
+		<TELL
+"s you stare dumbfounded at the white house, the jester appears, laughing as
+though at some supreme trick. Then, a low moaning wind begins to blow, and
+slowly, ever so slowly, his appearance shifts, until you see before you a
+wizard of incredible age and obvious power. His hoary visage stirs an ancient
+ancestral memory. He speaks in a new voice, tired but commanding of instant
+respect. \"I am Megaboz,\" he states, and your skin tingles at the presence
+of a legend.|
+   \"Yes, I still live. I have waited a long time for this day; to meet the
+one who would guard after I am gone.|
+   \"The Great Underground Empire is no more; but Quendor remains. The white
+house will stand as a warning and reminder of the excesses of the Flatheads.
+Some day, a new Empire may rise; you -- and your successors -- shall watch
+over the land, and ensure that future Empire be benevolent. Henceforth, you
+shall be known as Dungeon Master.|
+   \"As promised by Decree, half the wealth of the kingdom is yours!\" Your
+mind is suddenly filled with images of a vast underground Treasury, piled
+with unfathomable wealth. But the image is tempered by the ironic knowledge
+that you will never have use for such wealth. As the image fades, you hear
+tinkling bells and the voice of the jester/Megaboz: \"Well, I'm outta here!
+Over to you, Dungeon Master!\" You find yourself alone, left to ponder the
+years ahead, long years of keeping watch over Quendor and searching, ever
+searching, for your successor" ,ELLIPSIS>
+		<FINISH>)>>
+
+<ROOM GARRISON
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Garrison")
+      (LDESC
+"This is where the castle's army was quartered. The garrison fell into
+disuse as all known lands fell under the rule of the Flatheads; the army
+had little to do except quell an occasional tax revolt. In fact, the only
+evidence of the garrison is a rusty locker. A road leads northeast.")
+      (NE TO OUTER-BAILEY)
+      (OUT TO OUTER-BAILEY)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM GARRISON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-1>)
+      (ICON GARRISON-ICON)>
+
+<OBJECT LOCKER
+	(LOC GARRISON)
+	(DESC "locker")
+	(SYNONYM LOCKER)
+	(ADJECTIVE RUSTY)
+	(CAPACITY 100)
+	(FLAGS CONTBIT SEARCHBIT NDESCBIT)
+	(ACTION LOCKER-F)>
+
+<ROUTINE LOCKER-F ()
+	 <COND (<AND <VERB? LOCK>
+		     <PRSO? ,LOCKER>>
+		<TELL "You don't have the right key." CR>)>>
+
+<OBJECT POSTER
+	(LOC LOCKER)
+	(OWNER POSTER)
+	(DESC "poster of Ursula Flathead")
+	(SYNONYM POSTER URSULA FLATHEAD)
+	(ADJECTIVE URSULA)
+	(FLAGS TAKEBIT BURNBIT)
+	(SIZE 2)
+	(RESEARCH
+"\"Ursula Flathead, the former Miss Miznia, has been called the 'Sex Goddess
+of the GUE.' The editors would be hard-pressed to disagree with the phrase.\"")
+	(ACTION POSTER-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE POSTER-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The poster shows pin-up model Ursula Flathead (Miss Miznia, 878 GUE)
+in a typical suggestive pose and minimal cover." CR>)
+	       (<VERB? ROLL>
+		<TELL
+"You curl it into a tube, but as you let go it flattens again." CR>)>>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT VILLAGE>
+
+<OBJECT WEST-KEY
+	(LOC LOCKER)
+	(DESC "steel key")
+	(SYNONYM KEY)
+	(ADJECTIVE STEEL)
+	(FLAGS TAKEBIT KEYBIT)
+	(SIZE 2)>
+
+<ROOM BEND
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Bend")
+      (LDESC
+"The road curves along the moat, turning southeast and southwest.")
+      (SE TO VILLAGE-GATE)
+      (SW TO OUTER-BAILEY)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (GLOBAL MOAT)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-3>)>
+
+<ROOM VILLAGE-GATE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Village Gate")
+      (LDESC
+"To the east, a stone arch forms the entrance to the castle's village. (The
+village lies outside the castle proper but is still comfortably within the
+outer perimeter wall.) The arch is flanked by two medium-sized elms, one more
+gnarled than the other. The road passes under the arch; in the other direction,
+it follows the moat to the northwest.")
+      (NW TO BEND)
+      (EAST TO SHADY-PARK)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (GLOBAL VILLAGE ARCH MOAT)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-4>)
+      (THINGS VILLAGE GATE GATE-PS)>
+
+<ROUTINE GATE-PS ()
+	 <PERFORM-PRSA ,ARCH>>
+
+<OBJECT GNARLED-ELM
+	(LOC VILLAGE-GATE)
+	(DESC "gnarled elm tree")
+	(SYNONYM TREE ELM)
+	(ADJECTIVE GNARLED ELM)
+	(FLAGS NDESCBIT PLANTBIT)
+	(ACTION TREE-F)>
+
+<OBJECT UNGNARLED-ELM
+	(LOC VILLAGE-GATE)
+	(DESC "ungnarled elm tree")
+	(SYNONYM TREE ELM)
+	(ADJECTIVE UNGNARLED ELM)
+	(FLAGS NDESCBIT VOWELBIT PLANTBIT)
+	(ACTION TREE-F)>
+
+<ROOM SHADY-PARK
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Shady Park")
+      (LDESC
+"This grassy mall must have been a nice area at one time, but it is now
+overgrown with weeds, and soiled by windblown litter. The shade comes from
+a mighty elm which spreads its thick green branches over the park. A wide
+east-west boulevard bisects the park, and impressive buildings flank it on
+the north and south.")
+      (EAST TO VILLAGE-CENTER)
+      (WEST TO VILLAGE-GATE)
+      (SOUTH TO CHURCH)
+      (NORTH TO TAX-OFFICE)
+      (FLAGS RLANDBIT OUTSIDEBIT ONBIT)
+      (SYNONYM PARK)
+      (ADJECTIVE SHADY)
+      (GLOBAL VILLAGE GLOBAL-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-5>)
+      (ICON SHADY-PARK-ICON)>
+
+<OBJECT MIGHTY-ELM
+	(LOC SHADY-PARK)
+	(DESC "mighty elm tree")
+	(SYNONYM TREE ELM)
+	(ADJECTIVE LARGE ELM)
+	(FLAGS NDESCBIT PLANTBIT)
+	(ACTION TREE-F)>
+
+<ROOM CHURCH
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Church")
+      (LDESC
+"This is a house of worship of Brogmoidism. The tenets of this rather silly
+religion are engraved on the wall. The only exit is north.")
+      (NORTH TO SHADY-PARK)
+      (OUT TO SHADY-PARK)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM CHURCH)
+      (GLOBAL GLOBAL-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-5>)
+      (ICON CHURCH-ICON)>
+
+<OBJECT TENET
+	(LOC CHURCH)
+	(DESC "engraved tenet")
+	(SYNONYM TENET TENETS ENGRAVING)
+	(ADJECTIVE ENGRAVED)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT
+"\"Thou shalt worship the Great Brogmoid to thine utmost, for upon his shoulder
+rests the world -- thus he saveth us from plunging into the Great Void...\"
+The tenets go on and on about the brogmoid who supports the world. It's hard to
+believe that anyone EVER believed such drivel, let alone in today's enlightened
+age. As the great modern thinker, Zorbius Blattus, is fond of saying, \"If a
+giant brogmoid were holding up the world, where would he stand?\"")>
+
+<ROOM TAX-OFFICE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "URS Office")
+      (LDESC
+"This huge hall was the main office of the Underground Revenue Service. Until
+the construction of the FrobozzCo Building, it was the largest structure in
+the Empire. Here, thousands upon thousands of accountants and auditors once
+sat, tabulating the proceeds from Dimwit's astronomical taxations. The only
+exit is south.")
+      (SOUTH TO SHADY-PARK)
+      (OUT TO SHADY-PARK)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GLOBAL-BLDG)
+      (RIDDLE
+"I once heard of a bookkeeper who, while working on the accounts of the Frobozz
+Magic Balloon Company, noted that the word 'balloon' has two double letters in
+a row! Stretching his limited imagination to the limit, this bookkeeper
+wondered if there were any words with THREE double letters in a row. He
+couldn't think of one -- but I'll bet that YOU can!\"")
+      (ICON URS-OFFICE-ICON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 URS-ICON-LOC>)
+      (ACTION TAX-OFFICE-F)>
+
+<ROUTINE TAX-OFFICE-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,ZORKMID-COIN ,LOCAL-GLOBALS>>
+		<SETUP-ORPHAN "answer">
+		<COND (<NOT <IN? ,JESTER ,HERE>>
+		       <DEQUEUE I-JESTER>
+		       <MOVE ,JESTER ,HERE>
+		       <THIS-IS-IT ,JESTER>
+		       <RETURN-FROM-MAP>
+		       <TELL
+"   A bookkeeper is hunched over one of the desks. He looks up as you enter,
+and you see that it is the jester, wearing suspenders, a bow tie, thick
+eyeglasses, and a green visor.|
+   \"" <GETP ,TAX-OFFICE ,P?RIDDLE> CR>)>)>>
+
+<OBJECT BOOKKEEPER
+	(LOC GLOBAL-OBJECTS)
+	(DESC "bookkeeper")
+	(SYNONYM BOOKKEEPER BOOKKEEPING)>
+
+<OBJECT ZORKMID-COIN
+	(LOC LOCAL-GLOBALS)
+	(DESC "zorkmid coin")
+	(SYNONYM ZORKMID COIN MONEY)
+	(ADJECTIVE ONE ZORKMID)
+	(FLAGS TRYTAKEBIT TAKEBIT READBIT)
+	(SIZE 1)
+	(TEXT
+"The coin bears the likeness of Belwit the Flat, along with the inscriptions,
+\"One Zorkmid,\" and \"699 GUE.\" On the other side, the coin depicts Egreth
+Castle, and says \"In Frobs We Trust\" in several languages.")>
+
+<ROOM VILLAGE-CENTER
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Village Center")
+      (LDESC
+"You are in the midst of the village. At least, at some distant time it may
+have been a village. More recently, it was a bustling metropolis. Now it's a
+deserted metropolis. A fantastically tall building rises just east of you and
+a road heads west. To the south is a post office; to the north, beyond granite
+stairs flanked by stone toads, is the Courthouse entrance.")
+      (EAST TO FR-HQ)
+      (WEST TO SHADY-PARK)
+      (SOUTH TO POST-OFFICE)
+      (NORTH TO COURTROOM)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL VILLAGE FR-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-7>)>
+
+<OBJECT STONE-TOADS
+	(LOC VILLAGE-CENTER)
+	(OWNER STONE-TOADS)
+	(DESC "pair of stone toads")
+	(SYNONYM PAIR TOAD TOADS)
+	(ADJECTIVE STONE)
+	(FLAGS NDESCBIT)>
+
+<ROOM COURTROOM
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Courtroom")
+      (LDESC
+"This is where the great jurist, Oliver Wendell Flathead, would hand down
+decisions from the bench. The only exit is south.")
+      (SOUTH TO VILLAGE-CENTER)
+      (OUT TO VILLAGE-CENTER)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM COURTROOM)
+      (GLOBAL GLOBAL-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 COURTROOM-ICON-LOC>)
+      (ICON COURTROOM-ICON)>
+
+<ROOM POST-OFFICE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "Post Office")
+      (LDESC
+"Once the main branch of the Flatheadia Postal Service, this edifice now lies
+in deserted silence. A doorway leads north.")
+      (NORTH TO VILLAGE-CENTER)
+      (OUT TO VILLAGE-CENTER)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GLOBAL-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-7>)
+      (ICON POST-OFFICE-ICON)>
+
+<OBJECT PACKAGE
+	(LOC POST-OFFICE)
+	(DESC "package")
+	(FDESC
+"A package rests on one of the counters. Although a collector has stolen
+the stamp, the address is still legible.")
+	(SYNONYM PACKAGE ADDRESS)
+	(FLAGS TAKEBIT READBIT CONTBIT SEARCHBIT)
+	(CAPACITY 12)
+	(TEXT
+"\"From: Belznork Gibblewitz      To: Eek Numblatz|
+       F. M. Homing Pigeon Co        Int'l Curios, Inc|
+       FrobozzCo Bldg, 193-E        28 Volcano View Ln|
+       Flatheadia, FRV-9179         Gurth City, GTH-3791\"")>
+
+<OBJECT PERCH
+	(LOC PACKAGE)
+	(DESC "ceramic perch")
+	(PLURAL "perches")
+	(SYNONYM PERCH WRITING PRINT LETTERING)
+	(ADJECTIVE CERAMIC SMALL)
+	(FLAGS TAKEBIT READBIT)
+	(OWNER PERCH) ;"read writing on perch"
+	(TEXT
+"Tiny lettering says, \"Frobozz Magic Homing Pigeon Company.\"")>
+
+<BEGIN-SEGMENT 0>
+
+<OBJECT PIGEON
+	(LOC PACKAGE)
+	(DESC "ceramic pigeon")
+	(SYNONYM PIGEON BIRD REPRODUCTION WRITING PRINT LETTERING)
+	(ADJECTIVE CERAMIC CLAY HOMING SMALL)
+	(FLAGS TAKEBIT READBIT)
+	(OWNER PIGEON) ;"read writing on pigeon"
+	(TEXT
+"Tiny lettering says, \"Frobozz Magic Homing Pigeon Company.\"")
+	(ACTION PIGEON-F)>
+
+<ROUTINE PIGEON-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The pigeon, though strikingly lifelike, is merely a clay reproduction. On
+the bottom is some tiny writing." CR>)
+	       (<AND <VERB? TAKE>
+		     <PRSO? ,PIGEON>>
+		<COND (<OR <ULTIMATELY-IN? ,PIGEON>
+			   <FSET? ,OUTER-GATE ,OPENBIT>
+			   ,TIME-STOPPED>
+		       <RFALSE>)
+		      (<OR <PROB 10>
+			   <G? ,P-MULT 1>>
+		       <TELL
+"Your eyes must be starting to play tricks on you. It almost
+seemed like the clay pigeon ">
+		       <COND (<IN? ,PIGEON ,HERE>
+			      <TELL "hopped">)
+			     (T
+			      <TELL "squirmed">)>
+		       <TELL " out of reach at the last second." CR>)
+		      (<EQUAL? <ITAKE T> ,M-FATAL>
+		       <RTRUE>)
+		      (<ULTIMATELY-IN? ,PERCH>
+		       <TELL "Taken." CR>)
+		      (T
+		       <TELL
+"As you take the pigeon, you feel a dizziness, like that which one gets from
+drinking Miznian wines too quickly. ">
+		       <COND (<OR <EQUAL? <META-LOC ,PERCH> ,HERE>
+				  <AND <EQUAL? ,HERE ,OUBLIETTE>
+				       <EQUAL? ,REMOVED-PERCH-LOC ,OUBLIETTE>>>
+			      <COND (<NOT <EQUAL? <LOC ,PROTAGONIST>
+						  ,YACHT ,DB>>
+				     <MOVE ,PROTAGONIST ,HERE>)>
+			      <TELL
+"When the disorientation passes, you seem to have moved a few feet." CR>)
+			     (T
+			      <CAST-HUNGER-SPELL>
+			      <TELL
+"The world blurs, then darkens. You blink" ,ELLIPSIS>
+			      <SETG HAND-IN-WALDO <>>
+			      <MOVE-TO-PERCH ,PROTAGONIST>)>)>)
+	       (<AND <VERB? PUT-ON>
+		     <PRSI? ,PERCH>>
+		<TELL
+"There's no apparent way to put the pigeon on the perch." CR>)>>
+
+<GLOBAL REMOVED-PERCH-LOC <>> ;"where is perch when it's REMOVEd?"
+
+<ROUTINE MOVE-TO-PERCH (WHAT "AUX" PERCH-LOC L OFFSET RM OBJ X N TOOK-STUFF)
+   <SET PERCH-LOC <META-LOC ,PERCH>>
+   <COND (<AND .PERCH-LOC
+	       <IN? .PERCH-LOC ,ROOMS>
+	       <EQUAL? <LOC ,PERCH> ,YACHT ,DB>>
+	  <SET PERCH-LOC <LOC ,PERCH>>)>
+   <COND (<EQUAL? .WHAT ,PROTAGONIST>
+	  <COND (<EQUAL? ,HERE ,PLAIN>
+		 <STORE ,PLAIN-OFFSET ,PLAIN-LOC ,PLAIN>)
+		(<EQUAL? ,HERE ,CONSTRUCTION>
+		 <STORE ,CONSTRUCTION-OFFSET ,CONSTRUCTION-LOC ,CONSTRUCTION>)
+		(<EQUAL? ,HERE ,FR-OFFICES>
+		 <STORE ,OFFICES-OFFSET ,FLOOR-NUMBER ,FR-OFFICES>)
+		(<EQUAL? ,HERE ,OFFICES-NORTH>
+		 <STORE ,OFFICES-N-OFFSET ,FLOOR-NUMBER ,OFFICES-NORTH>)
+		(<EQUAL? ,HERE ,OFFICES-SOUTH>
+		 <STORE ,OFFICES-S-OFFSET ,FLOOR-NUMBER ,OFFICES-SOUTH>)
+		(<EQUAL? ,HERE ,OFFICES-EAST>
+		 <STORE ,OFFICES-E-OFFSET ,FLOOR-NUMBER ,OFFICES-EAST>)
+		(<EQUAL? ,HERE ,OFFICES-WEST>
+		 <STORE ,OFFICES-W-OFFSET ,FLOOR-NUMBER ,OFFICES-WEST>)>)>
+   <COND (.PERCH-LOC
+	  <COND (<EQUAL? .WHAT ,PROTAGONIST>
+		 <COND (<AND <EQUAL? ,HERE ,MARSH>
+			     <IN? ,JESTER ,NICE-LUNCH-SPOT>>
+			<REMOVE-J>)>
+		 <GOTO .PERCH-LOC>
+		 <COND (<EQUAL? ,HERE ,LAKE-BOTTOM>
+			<JIGS-UP ,DROWN>)
+		       (<NOT <EQUAL? ,HERE ,PLAIN>>
+			<FCLEAR ,CLOAK ,WORNBIT>)>
+		 <RTRUE>)
+		(<EQUAL? .PERCH-LOC ,LAKE-BOTTOM>
+		 <SETG PIECE-DROWNED 1>
+		 <ROB .WHAT ,LAKE-BOTTOM>
+		 <REMOVE .WHAT>)
+		(T
+		 <COND (<OR <SET X <FIND-IN .PERCH-LOC ,WHITEBIT>>
+			    <SET X <FIND-IN .PERCH-LOC ,BLACKBIT>>>
+			<ROB .X .WHAT>
+			<REMOVE .X>)>
+		 <SET X <FIRST? .PERCH-LOC>>
+		 <REPEAT () ;"have chess piece snarf all takeable objects"
+			 <COND (<NOT .X>
+				<RETURN>)>
+			 <SET N <NEXT? .X>>
+			 <COND (<AND <FSET? .X ,TAKEBIT>
+				     <NOT <FSET? .X ,TRYTAKEBIT>>
+				     <NOT <FIND-IN .X ,TRYTAKEBIT>>>
+				<SET TOOK-STUFF T>
+				<MOVE .X .WHAT>)>
+			 <SET X .N>>
+		 <MOVE .WHAT .PERCH-LOC>
+		 <COND (<EQUAL? .PERCH-LOC ,HERE>
+			;"happens if you have perch and throw pigeon into
+			  oracle, and chess piece is waiting at other end"
+			<TELL
+"   With a surprisingly high-pitched squeal of alarm,"
+A .WHAT " materializes nearby. ">
+			<COND (<FSET? .WHAT ,FEMALEBIT>
+			       <TELL "Sh">)
+			      (T
+			       <TELL "H">)>
+			<TELL "e seems somewhat dazed by the experience">
+			<COND (.TOOK-STUFF
+			       <TELL
+", but not too dazed to pick the ground clean." CR>)
+			      (T
+			       <TELL ,PERIOD-CR>)>)>)>)
+	 (<SET L <FIND-PERCH ,PERCH>>
+	  <COND (<G? .L 5000>
+		 <SET OFFSET ,OFFICES-W-OFFSET>
+		 <SET RM ,OFFICES-WEST>)
+		(<G? .L 4000>
+		 <SET OFFSET ,OFFICES-E-OFFSET>
+		 <SET RM ,OFFICES-EAST>)
+		(<G? .L 3000>
+		 <SET OFFSET ,OFFICES-S-OFFSET>
+		 <SET RM ,OFFICES-SOUTH>)
+		(<G? .L 2000>
+		 <SET OFFSET ,OFFICES-N-OFFSET>
+		 <SET RM ,OFFICES-NORTH>)
+		(<G? .L 1000>
+		 <SET OFFSET ,OFFICES-OFFSET>
+		 <SET RM ,FR-OFFICES>)
+		(<G? .L 399>
+		 <SET OFFSET ,CONSTRUCTION-OFFSET>
+		 <SET RM ,CONSTRUCTION>)
+		(T
+		 <SET OFFSET ,PLAIN-OFFSET>
+		 <SET RM ,PLAIN>)>
+	  <COND (<EQUAL? .WHAT ,PROTAGONIST>
+		 <SET L <- .L .OFFSET>>
+		 <COND (<EQUAL? .RM ,PLAIN>
+			<SETG RANK <+ </ .L 8> 1>>
+		 	<SETG FILE <+ <MOD .L 8> 1>>
+			<SETG PLAIN-LOC .L>
+			<COND (<NOT <EQUAL? ,HERE ,PLAIN>>
+			       <MOVE ,CLOAK ,PROTAGONIST>
+			       <FSET ,CLOAK ,WORNBIT>
+			       <SETG CLOAK-LOC
+				     <COND (<FSET? <LOC ,PROTAGONIST> ,TAKEBIT>
+					    ,HERE)
+					   (T
+					    <LOC ,PROTAGONIST>)>>)>
+			<UNSTORE .OFFSET .L .RM>)
+		       (<EQUAL? .RM ,CONSTRUCTION>
+			<SETG RANK <+ </ .L 8> 1>>
+	 	 	<SETG FILE <+ <MOD .L 8> 1>>
+			<SETG CONSTRUCTION-LOC .L>
+			<UNSTORE .OFFSET .L .RM>)
+		       (T
+			<SETG FLOOR-NUMBER .L>
+			<OFFICE-UNSTORE .L>)>
+		 <COND (<NOT <EQUAL? .RM ,PLAIN>>
+			<FCLEAR ,CLOAK ,WORNBIT>)>
+		 <COND (<AND <EQUAL? ,HERE ,MARSH>
+			     <IN? ,JESTER ,NICE-LUNCH-SPOT>>
+			<REMOVE-J>)>
+		 <GOTO .RM>)
+		(T
+		 <COND (<AND <EQUAL? .WHAT ,WHITE-PAWN>
+			     <EQUAL? .RM ,PLAIN>
+			     <L? <- .L .OFFSET> 8>> ;"promote pawn to queen"
+			<ROB ,WHITE-PAWN ,WHITE-QUEEN>
+			<SET WHAT ,WHITE-QUEEN>)
+		       (<AND <EQUAL? .WHAT ,BLACK-PAWN>
+			     <EQUAL? .RM ,PLAIN>
+			     <G? <- .L .OFFSET> 55>> ;"promote pawn to queen"
+			<ROB ,BLACK-PAWN ,BLACK-QUEEN>
+			<SET WHAT ,BLACK-QUEEN>)>
+		 <REMOVE .WHAT>
+		 <REMOVE-ANY-PIECE .L .WHAT>
+		 <PIECE-SNARF .L .WHAT>
+		 <PUT-IN-STORAGE .OFFSET .WHAT <- .L .OFFSET>>)>)
+	 (<EQUAL? .WHAT ,PROTAGONIST>
+	  <COND (<EQUAL? ,REMOVED-PERCH-LOC ,WATER>
+		 <HLIGHT ,H-BOLD>
+		 <TELL "Surrounded by Water" CR>
+		 <HLIGHT ,H-NORMAL>
+		 <JIGS-UP ,DROWN>)
+		(<EQUAL? ,REMOVED-PERCH-LOC ,GROUND ,OUBLIETTE>
+		 <TELL "You appear ">
+		 <COND (<EQUAL? ,REMOVED-PERCH-LOC ,OUBLIETTE>
+			<TELL "knee deep in mud" ,ELLIPSIS>
+			<FCLEAR ,CLOAK ,WORNBIT>
+			<COND (<AND <EQUAL? ,HERE ,MARSH>
+				    <IN? ,JESTER ,NICE-LUNCH-SPOT>>
+			       <REMOVE-J>)>
+			<GOTO ,OUBLIETTE>)
+		       (T
+			<JIGS-UP
+"several feet underground, thus saving the Undertakers Guild some work.">)>)
+		(<EQUAL? ,REMOVED-PERCH-LOC ,PSEUDO-OBJECT> ;"Antharia fence"
+		 <JIGS-UP
+"North of Anthar|
+   You find yourself coiled up inside a very nasty bunch of sharp,
+rusty, barbed wire.">)
+		(<EQUAL? ,REMOVED-PERCH-LOC ,BROGMOID>
+		 <JIGS-UP
+"You appear in a totally alien world, near a purple forest and a lake of
+molten rock. A giant slug-shaped creature oozes up and devours you.">)
+		(T ;"perch temporarily in cauldron"
+		 <JIGS-UP
+"You find yourself in a gray void. The life is sucked slowly from you.">)>)
+	 (<EQUAL? ,REMOVED-PERCH-LOC ,OUBLIETTE>
+	  <MOVE .WHAT ,OUBLIETTE>
+	  <REMOVE-ANY-PIECE .L .WHAT>
+	  <PIECE-SNARF .L .WHAT>)
+	 (T
+	  <REMOVE .WHAT>)>>
+
+<ROUTINE FIND-PERCH (OBJ "AUX" (L <>) (CNT 0))
+	 <REPEAT ()
+	       <COND (<NOT <L? .CNT ,STORAGE-TABLE-LENGTH>>
+		      <COND (<LOC .OBJ>
+			     <SET L <FIND-PERCH <LOC .OBJ>>>)>
+		      <RETURN>)
+		     (<EQUAL? <GET ,STORAGE-TABLE <+ .CNT 1>> .OBJ>
+		      <SET L <GET ,STORAGE-TABLE .CNT>>
+		      <RETURN>)>
+	       <SET CNT <+ .CNT 2>>>
+	 <RETURN .L>>
+
+<END-SEGMENT>
+\
+<BEGIN-SEGMENT VILLAGE>
+
+<OBJECT FR-BLDG
+	(LOC LOCAL-GLOBALS)
+	(DESC "Frobozzco Building")
+	(SYNONYM BUILDING HEADQUARTERS HQ)
+	(ADJECTIVE TALL FROBOZZCO INTERNATIONAL WORLD HEADQUARTERS HQ)
+	(ACTION FR-BLDG-F)>
+
+<ROUTINE FR-BLDG-F ()
+	 <COND (<VERB? RESEARCH>
+		<PICTURED-ENTRY ,FR-ILL
+"The FrobozzCo World Headquaters Building in Flatheadia, designed by Frank
+Lloyd Flathead and built by the Frobozz Magic Construction Company in
+781 GUE, is easily the tallest, most impressive building in all of Quendor.">)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,VILLAGE-CENTER>
+		       <TELL "Most of the building is lost in the clouds." CR>)
+		      (T
+		       <TELL "You're in it!" CR>)>)
+	       (<VERB? ENTER>
+	        <COND (<EQUAL? ,HERE ,VILLAGE-CENTER>
+		       <DO-WALK ,P?EAST>)
+		      (<EQUAL? ,HERE ,PHIL-HALL>
+		       <DO-WALK ,P?NORTH>)
+		      (T
+		       <TELL ,LOOK-AROUND>)>)
+	       (<VERB? EXIT>
+		<V-WALK-AROUND>)>>
+
+<ROOM FR-HQ
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo HQ")
+      (LDESC
+"You are in the lobby of FrobozzCo International's World Headquarters, an
+impressive four hundred story structure. Wide stairs lead up and down; the
+main exit is to the west; an emergency exit leads east.")
+      (WEST TO VILLAGE-CENTER)
+      (EAST TO BACK-ALLEY)
+      (DOWN TO FR-BASEMENT)
+      (UP PER FR-OFFICES-ENTER-F)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STAIRS FR-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-8>)
+      (ICON FR-HQ-ICON)>
+
+<OBJECT MEMO ;"in Frobozzco Offices, at fourth floor"
+	(DESC "memo")
+	(SYNONYM MEMO)
+	(FLAGS READBIT TAKEBIT)
+	(SIZE 2)
+	(TEXT
+"FROM: Spaulding Flathead, Seventh Asst. Bldg. Mgr.|
+TO:   All tenants|
+RE:   New stairway policy|
+To relieve overcrowding in the stairwells, employees who work above the 75th
+floor will be given teleportation tokens. Company officers will continue to
+receive teleportation tokens regardless of floor. Note: employees with tokens
+will no longer be dismissed early for \"stair-climbing\" time.")>
+
+<OBJECT INSTRUCTION-BOOKLET ;"193rd floor of FrobozzCo Bldg."
+	(DESC "damaged instruction booklet")
+	(SYNONYM BOOK BOOKLET INSTRUCTIONS)
+	(ADJECTIVE INSTRUCTIONS DAMAGED)
+	(FLAGS TAKEBIT READBIT)
+	(SIZE 3)
+	(TEXT
+"The booklet is badly torn and faded. You can make out only a few phrases:
+\"...ozz Magic Homing Pi...\" and \"...eave the perch in the location you wish
+t...\" and \"...eturn warranty card within 90 d...\"")>
+
+<ROUTINE FR-OFFICES-ENTER-F ("OPT" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (.RARG
+		<RETURN ,FR-OFFICES>)
+	       (<EQUAL? ,HERE ,FR-HQ>
+		<SETG FLOOR-NUMBER 2>)
+	       (T
+		<SETG FLOOR-NUMBER 399>)>
+	 <OFFICE-UNSTORE ,FLOOR-NUMBER>
+	 ,FR-OFFICES>
+
+<ROOM FR-OFFICES
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Offices")
+      (NORTH TO OFFICES-NORTH)
+      (EAST TO OFFICES-EAST)
+      (WEST TO OFFICES-WEST)
+      (SOUTH TO OFFICES-SOUTH)
+      (UP PER FR-FLOOR-F)
+      (DOWN PER FR-FLOOR-F)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FR-BLDG STAIRS)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-10>)
+      (ACTION OFFICES-F)>
+
+<ROUTINE OFFICES-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<SETG BEEN-IN-FR-UPPER-FLOORS T>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are on Floor " N ,FLOOR-NUMBER " of the FrobozzCo Building. The offices
+of one subsidiary or another can be entered in all four directions. Stairs
+lead up and down.">)>>
+
+<GLOBAL BEEN-IN-FR-UPPER-FLOORS <>>
+;"for on-screen maps, since touchbit is never set in FrobozzCo office rooms"
+
+<GLOBAL FLOOR-NUMBER 2>
+
+<ROUTINE FR-FLOOR-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+     <COND (<AND <PRSO? ,P?UP>
+		 <EQUAL? ,FLOOR-NUMBER 399>>
+	    ,FR-PENTHOUSE)
+	   (<AND <PRSO? ,P?DOWN>
+		 <EQUAL? ,FLOOR-NUMBER 2>>
+	    ,FR-HQ)
+	   (.RARG
+	    ;"else clicking on offices-icon when you're there causes
+	      you to go (invisibly) up one floor"
+	    <RFALSE>)
+	   (T
+	    <STORE ,OFFICES-OFFSET ,FLOOR-NUMBER>
+	    <STORE ,OFFICES-N-OFFSET ,FLOOR-NUMBER ,OFFICES-NORTH>
+	    <STORE ,OFFICES-S-OFFSET ,FLOOR-NUMBER ,OFFICES-SOUTH>
+	    <STORE ,OFFICES-E-OFFSET ,FLOOR-NUMBER ,OFFICES-EAST>
+	    <STORE ,OFFICES-W-OFFSET ,FLOOR-NUMBER ,OFFICES-WEST>
+	    <SETG FLOOR-NUMBER <COND (<PRSO? ,P?UP>
+				      <+ ,FLOOR-NUMBER 1>)
+				     (T
+				      <- ,FLOOR-NUMBER 1>)>>
+	    <OFFICE-UNSTORE ,FLOOR-NUMBER>
+	    ,FR-OFFICES)>>
+
+<ROUTINE OFFICE-UNSTORE (L)
+	 <UNSTORE ,OFFICES-OFFSET .L ,FR-OFFICES>
+	 <UNSTORE ,OFFICES-N-OFFSET .L ,OFFICES-NORTH>
+	 <UNSTORE ,OFFICES-S-OFFSET .L ,OFFICES-SOUTH>
+	 <UNSTORE ,OFFICES-E-OFFSET .L ,OFFICES-EAST>
+	 <UNSTORE ,OFFICES-W-OFFSET .L ,OFFICES-WEST>>
+
+<OBJECT T-SQUARE
+	(DESC "T-square")
+	(SYNONYM T-SQUARE)
+	(FLAGS TAKEBIT MAGICBIT)
+	(VALUE 12)>
+
+<ROOM OFFICES-NORTH
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Offices North")
+      (SOUTH TO FR-OFFICES)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FR-BLDG WINDOW)
+      (ICON OFFICES-ICON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-10>)
+      (ACTION FR-OUTER-OFFICES-F)>
+
+<ROOM OFFICES-EAST
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Offices East")
+      (WEST TO FR-OFFICES)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FR-BLDG WINDOW)
+      (ICON OFFICES-ICON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-11>)
+      (ACTION FR-OUTER-OFFICES-F)>
+
+<ROOM OFFICES-WEST
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Offices West")
+      (EAST TO FR-OFFICES)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FR-BLDG WINDOW)
+      (ICON OFFICES-ICON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-5 MAP-GEN-X-9>)
+      (ACTION FR-OUTER-OFFICES-F)>
+
+<ROOM OFFICES-SOUTH
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Offices South")
+      (NORTH TO FR-OFFICES)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FR-BLDG WINDOW)
+      (ICON OFFICES-ICON)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-6 MAP-GEN-X-10>)
+      (ACTION FR-OUTER-OFFICES-F)>
+
+<ROUTINE FR-OUTER-OFFICES-F ("OPT" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in an office on floor " N ,FLOOR-NUMBER " of the FrobozzCo Building.
+The office has a lovely ">
+		<COND (<EQUAL? ,HERE ,OFFICES-NORTH>
+		       <TELL "north">)
+		      (<EQUAL? ,HERE ,OFFICES-SOUTH>
+		       <TELL "south">)
+		      (<EQUAL? ,HERE ,OFFICES-EAST>
+		       <TELL "east">)
+		      (T
+		       <TELL "west">)>
+		<TELL "ern exposure. The only exit is to the ">
+		<COND (<EQUAL? ,HERE ,OFFICES-NORTH>
+		       <TELL "south">)
+		      (<EQUAL? ,HERE ,OFFICES-SOUTH>
+		       <TELL "north">)
+		      (<EQUAL? ,HERE ,OFFICES-EAST>
+		       <TELL "west">)
+		      (T
+		       <TELL "east">)>
+		<TELL ".">)>>
+
+<ROOM FR-PENTHOUSE
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Penthouse")
+      (LDESC
+"You have reached the top floor! On a clear day, one can see hundreds of
+bloits from here; too bad it's so smoggy today. A stair leads down.")
+      (DOWN PER FR-OFFICES-ENTER-F)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FR-BLDG WINDOW STAIRS)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-7 MAP-GEN-X-8>)
+      (ICON PENTHOUSE-ICON)
+      (ACTION FR-PENTHOUSE-F)>
+
+<ROUTINE FR-PENTHOUSE-F ("OPT" (RARG <>))
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,FR-PENTHOUSE ,TOUCHBIT>>>
+		<SETG DO-J T>
+		<QUEUE I-JESTER 1>)>>
+
+<ROOM FR-BASEMENT
+      (LOC ROOMS)
+      (REGION "Flatheadia")
+      (DESC "FrobozzCo Basement")
+      (LDESC
+"The basement of the FrobozzCo Building is a place of sturdy walls, designed
+to support the 400 stories above. A stair leads up and a passage heads south.")
+      (UP TO FR-HQ)
+      (SOUTH PER PHIL-ENTER-F)
+      (FLAGS RLANDBIT)
+      (GLOBAL STAIRS FR-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-4 MAP-GEN-X-8>)>
+
+<OBJECT BASEMENT-REBUS-BUTTON
+	(LOC FR-BASEMENT)
+	(SDESC "blinking key-shaped button")
+	(FDESC
+"In a dark corner, a blinking button catches your eye. It seems to be in the
+shape of a key.")
+	(SYNONYM BUTTON)
+	(ADJECTIVE KEY-SHAPED BLINKING)
+	(ACTION REBUS-BUTTON-F)>
+
+<ROUTINE PHIL-ENTER-F ("OPTIONAL" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<AND <NOT .RARG>
+		     <EQUAL? ,CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>>
+		<TELL
+"The passage takes you from the FrobozzCo Building back into
+the castle. It widens" ,ELLIPSIS>)>
+	 ,PHIL-HALL>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT LAKE>
+
+<ROUTINE FR-BASEMENT-ENTER-F ("OPT" (RARG <>)) ;"called by NEXT-ROOM?"
+	 <COND (<AND <NOT .RARG>
+		     <EQUAL? ,CURRENT-SPLIT ,TEXT-WINDOW-PIC-LOC>>
+		<TELL
+"The passage narrows as it leaves the castle, then widens again as it
+enters" ,ELLIPSIS>)>
+	 ,FR-BASEMENT>
+
+<END-SEGMENT>
+
+<BEGIN-SEGMENT VILLAGE>
+
+<ROOM BACK-ALLEY
+      (LOC ROOMS)
+      (DESC "Back Alley")
+      (REGION "Flatheadia")
+      (LDESC
+"This is a grungy, foul-smelling lane. A large building can be entered
+to the west, and a much smaller one to the north.")
+      (NORTH TO MAGIC-SHOP)
+      (WEST TO FR-HQ)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (SYNONYM ALLEY)
+      (ADJECTIVE BACK)
+      (GLOBAL FR-BLDG GLOBAL-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-3 MAP-GEN-X-9>)
+      (ICON BACK-ALLEY-ICON)>
+
+<ROOM MAGIC-SHOP
+      (LOC ROOMS)
+      (DESC "Magic Shop")
+      (REGION "Flatheadia")
+      (LDESC
+"Perhaps this was once a thriving shop, but now, like the rest of Flatheadia,
+it lies deserted, gutted by looters. The exit is south.")
+      (SOUTH TO BACK-ALLEY)
+      (OUT TO BACK-ALLEY)
+      (FLAGS RLANDBIT ONBIT)
+      (SYNONYM SHOP STORE)
+      (ADJECTIVE MAGIC)
+      (GLOBAL GLOBAL-BLDG)
+      (MAP-LOC <PTABLE VILLAGE-MAP-NUM MAP-GEN-Y-2 MAP-GEN-X-9>)
+      (ICON MAGIC-SHOP-ICON)>
+
+<OBJECT RING
+	(LOC MAGIC-SHOP)
+	(OWNER RING)
+	(DESC "ring of ineptitude" ;"ring of spasticity")
+	(FDESC
+"The only thing the looters ignored was a ring. Not surprising, as it is a
+ring of ineptitude. Fun at parties, but not good for much else.")
+	(SYNONYM RING INEPTITUDE ;SPASTICITY)
+	(FLAGS TAKEBIT WEARBIT)
+	(SIZE 1)
+	(ACTION RING-F)>
+
+<BEGIN-SEGMENT 0>
+
+<ROUTINE RING-F ("AUX" AV HOLDING-STUFF)
+	 <COND (<VERB? WEAR>
+		<SET AV <LOC ,PROTAGONIST>>
+		<MOVE ,RING ,PROTAGONIST>
+		<FSET ,RING ,WORNBIT>
+		<TELL "As you slip the ring onto your finger, you clumsily ">
+		<COND (<EQUAL? ,HERE ,UNDER-THE-WORLD ,HANGING-FROM-ROOTS
+			       ,LEDGE-IN-PIT ,MOUTH-OF-CAVE>
+		       <TELL "lose your grip, and plunge downward. ">
+		       <PERFORM ,V?LEAP ,ROOMS>
+		       <RTRUE>)
+		      (<G? <CCOUNT ,PROTAGONIST> 1>
+		       <TELL "drop everything you were holding.">
+		       <ROB ,PROTAGONIST
+			    <COND (<FSET? .AV ,DROPBIT> .AV)
+				  (T ,HERE)>
+			    T ;"T arg tells ROB not to drop worn items">
+		       <CRLF>)
+		      (T
+		       <TELL
+"trip over your own feet and just barely manage to keep your balance." CR>)>)>>
+
+<END-SEGMENT>
\ No newline at end of file
diff --git a/zork0.errors b/zork0.errors
new file mode 100644
index 0000000..d211bce
--- /dev/null
+++ b/zork0.errors
@@ -0,0 +1,39 @@
+Assembling ZORK0.ZAP.1 on Wednesday, October 19, 1988 19:35:38
+Release: 296
+
+    64	Inserting ZORK0FREQ.XZAP.4	   (628 bytes)
+   692	Inserting ZORK0DAT.ZAP.1	 (53436 bytes)
+ 54128	Inserting ZORK0PUR.ZAP.1	  (6732 bytes)
+ 60860	Inserting PSTACK.ZAP.1	    (38 bytes)
+ 60898	Inserting PMEM.ZAP.1	   (104 bytes)
+ 61002	Inserting DEFS2.ZAP.1	    (19 bytes)
+ 61021	Inserting PARSER.ZAP.1	  (4286 bytes)
+ 65307	Inserting FIND.ZAP.1	  (1913 bytes)
+ 67220	Inserting REDS.ZAP.1	  (5796 bytes)
+ 73016	Inserting TOP.ZAP.1	  (2319 bytes)
+ 75335	Inserting PRARE.ZAP.1	  (4325 bytes)
+ 79660	Inserting MISC.ZAP.1	  (1498 bytes)
+ 81158	Inserting INPUT.ZAP.1	  (2001 bytes)
+ 83159	Inserting VERBS.ZAP.1	 (26809 bytes)
+109968	Inserting GLOBALS.ZAP.1	 (11891 bytes)
+121859	Inserting PIC.ZAP.1	   (340 bytes)
+122199	Inserting PROLOGUE.ZAP.1	  (9969 bytes)
+132168	Inserting CASTLE.ZAP.1	 (19888 bytes)
+152056	Inserting LIBRARY.ZAP.1	  (1736 bytes)
+153792	Inserting VILLAGE.ZAP.1	  (4709 bytes)
+158501	Inserting LAKE.ZAP.1	 (10317 bytes)
+168818	Inserting HIGHWAY.ZAP.1	  (9986 bytes)
+178804	Inserting ORACLE.ZAP.1	 (15063 bytes)
+193867	Inserting CHESS.ZAP.1	  (3763 bytes)
+197630	Inserting JESTER.ZAP.1	 (11786 bytes)
+209416	Inserting FENSHIRE.ZAP.1	  (6166 bytes)
+215582	Inserting CLUES.ZAP.1	  (1912 bytes)
+217494	Inserting ZORK0STR.ZAP.1	 (78038 bytes)
+603 objects.
+226 globals.
+1619 word vocabulary.
+
+295532 bytes (289K).
+ 54128 bytes of preload.
+ 32134 bytes of impure.
+Outputting symbol tables
diff --git a/zork0.pic b/zork0.pic
new file mode 100644
index 0000000..c1e4f1b
Binary files /dev/null and b/zork0.pic differ
diff --git a/zork0.zap b/zork0.zap
new file mode 100644
index 0000000..c863275
--- /dev/null
+++ b/zork0.zap
@@ -0,0 +1,84 @@
+	.NEW 6
+; Low core locations
+%ZVERSION::	.BYTE	6
+		.BYTE	FLAGS
+%ZORKID::	ZORKID
+%ENDLOD::	ENDLOD
+%START::	GO
+%VOCAB::	VOCAB
+%OBJECT::	OBJECT
+%GLOBAL::	GLOBAL
+%PURBOT::	IMPURE
+%FLAGS::	.WORD 48
+%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
+%FOFF::	FOFF
+%SOFF::	SOFF
+%CLRWRD::	.WORD	0
+%TCHAR::	TCHARS
+%TWID::	.WORD	0
+%CRFUNC::	.WORD	0
+%CHRSET::	.WORD	0
+%EXTAB::	LOWCORE-TABLE
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+
+	.DEFSEG "CASTLE",0,"FENSHIRE","LOWER","SECRET","VILLAGE","STARTUP"
+
+	.DEFSEG "FENSHIRE",0,"CASTLE"
+
+	.DEFSEG "FOOZLE",0,"LOWER"
+
+	.DEFSEG "LAKE",0,"ORACLE","LOWER","VILLAGE"
+
+	.DEFSEG "LOWER",0,"FOOZLE","LAKE","CASTLE"
+
+	.DEFSEG "ORACLE",0,"LAKE","SECRET"
+
+	.DEFSEG "SECRET",0,"ORACLE","CASTLE"
+
+	.DEFSEG "STARTUP",1,"CASTLE"
+
+	.DEFSEG "VILLAGE",0,"LAKE","CASTLE"
+	.INSERT "PS:<ZORK0>ZORK0FREQ"	;Frequent word table
+	.INSERT "PS:<ZORK0>ZORK0DAT"	; Data file
+	.INSERT "PS:<ZORK0>ZORK0PUR"
+	.INSERT "PS:<ZORK0>PSTACK"
+	.INSERT "PS:<ZORK0>PMEM"
+	.INSERT "PS:<ZORK0>DEFS2"
+	.INSERT "PS:<ZORK0>PARSER"
+	.INSERT "PS:<ZORK0>FIND"
+	.INSERT "PS:<ZORK0>REDS"
+	.INSERT "PS:<ZORK0>TOP"
+	.INSERT "PS:<ZORK0>PRARE"
+	.INSERT "PS:<ZORK0>MISC"
+	.INSERT "PS:<ZORK0>INPUT"
+	.INSERT "PS:<ZORK0>VERBS"
+	.INSERT "PS:<ZORK0>GLOBALS"
+	.INSERT "PS:<ZORK0>PIC"
+	.INSERT "PS:<ZORK0>PROLOGUE"
+	.INSERT "PS:<ZORK0>CASTLE"
+	.INSERT "PS:<ZORK0>LIBRARY"
+	.INSERT "PS:<ZORK0>VILLAGE"
+	.INSERT "PS:<ZORK0>LAKE"
+	.INSERT "PS:<ZORK0>HIGHWAY"
+	.INSERT "PS:<ZORK0>ORACLE"
+	.INSERT "PS:<ZORK0>CHESS"
+	.INSERT "PS:<ZORK0>JESTER"
+	.INSERT "PS:<ZORK0>FENSHIRE"
+	.INSERT "PS:<ZORK0>CLUES"
+
+	.INSERT "PS:<ZORK0>ZORK0STR"
+
+	.END
diff --git a/zork0.zil b/zork0.zil
new file mode 100644
index 0000000..42ed293
--- /dev/null
+++ b/zork0.zil
@@ -0,0 +1,62 @@
+"ZORK0 for
+
+			       ZORK ZERO
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+<PRINC "
+ *** Zork Zero ***
+">
+
+ON!-INITIAL
+OFF!-INITIAL	;"makes ZIL debugging possible -- pdl"
+
+<VERSION YZIP>
+<ZIP-OPTIONS UNDO BIG MOUSE ;"COLOR DISPLAY">
+<FREQUENT-WORDS?>
+<LONG-WORDS?>
+<ORDER-OBJECTS? ROOMS-FIRST>
+
+<DEFINE-SEGMENT STARTUP T CASTLE>
+<DEFINE-SEGMENT CASTLE <> VILLAGE SECRET LOWER FENSHIRE>
+<DEFINE-SEGMENT VILLAGE <> CASTLE LAKE>
+<DEFINE-SEGMENT SECRET <> CASTLE ORACLE>
+<DEFINE-SEGMENT LOWER <> CASTLE LAKE FOOZLE>
+<DEFINE-SEGMENT LAKE <> VILLAGE LOWER ORACLE>
+<DEFINE-SEGMENT FOOZLE <> LOWER>
+<DEFINE-SEGMENT FENSHIRE <> CASTLE>
+<DEFINE-SEGMENT ORACLE <> LAKE SECRET>
+<DEFINE-SEGMENT HINTS <>>
+<DEFINE-SEGMENT SOFT <>>
+
+<SET REDEFINE T>
+<SETG NEW-PARSER? T>
+<SETG NEW-VOC? T>
+<COMPILATION-FLAG ONE-BYTE-PARTS-OF-SPEECH T>
+
+<SETG L-SEARCH-PATH (["P" ""] !,L-SEARCH-PATH)>
+<INSERT-FILE "DEFS">
+<XFLOAD "P:PARSER.ZORK0">
+
+<INSERT-FILE "MISC">
+<INSERT-FILE "INPUT">
+<INSERT-FILE "SYNTAX">
+<INSERT-FILE "VERBS">
+;<PUT-PURE-HERE>
+<INSERT-FILE "GLOBALS">
+<INSERT-FILE "PIC">
+<INSERT-FILE "PICDEF">
+<INSERT-FILE "PROLOGUE">
+<INSERT-FILE "CASTLE">
+<INSERT-FILE "LIBRARY">
+<INSERT-FILE "VILLAGE">
+<INSERT-FILE "LAKE">
+<INSERT-FILE "HIGHWAY">
+<INSERT-FILE "ORACLE">
+<INSERT-FILE "CHESS">
+<INSERT-FILE "JESTER">
+<INSERT-FILE "FENSHIRE">
+<XFLOAD "<ZILLIB>CLUES.XFLOAD">
+<INSERT-FILE "HINTS">
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 5>
\ No newline at end of file
diff --git a/zork0.zip b/zork0.zip
new file mode 100644
index 0000000..026f027
Binary files /dev/null and b/zork0.zip differ
diff --git a/zork0.zpic b/zork0.zpic
new file mode 100644
index 0000000..302cb18
--- /dev/null
+++ b/zork0.zpic
@@ -0,0 +1,2108 @@
+P-TITLE ;zork zero title screen
++---------------------------------------------------------------------------+
+|                  ZZZZZZZZ   OOOOOO   RRRRRRR   K       K                  |
+|                        Z   O      O  R      R  K     K                    |
+|                       Z    O      O  R      R  K   K                      |
+|                      Z     O      O  RRRRRRR   K K                        |
+|                     Z      O      O  R   R     K K                        |
+|                    Z       O      O  R    R    K   K                      |
+|                   Z        O      O  R     R   K     K                    |
+|                  ZZZZZZZZ   OOOOOO   R      R  K       K                  |
+|                                                                           |
+|                  ZZZZZZZZ  EEEEEEEE  RRRRRRR    OOOOOO                    |
+|                        Z   E         R      R  O      O                   |
+|                       Z    E         R      R  O      O                   |
+|                      Z     EEEEEE    RRRRRRR   O      O                   |
+|                     Z      E         R   R     O      O                   |
+|                    Z       E         R    R    O      O                   |
+|                   Z        E         R     R   O      O                   |
+|                  ZZZZZZZZ  EEEEEEEE  R      R   OOOOOO                    |
+|                                                                           |
+|                      *** THE REVENGE OF MEGABOZ ***                       |
++---------------------------------------------------------------------------+
+
+PROLOGUE-LETTER ;illuminated letter at opening of prologue
+   ^   
+  / \  
+ /---\ 
+/     \

+
+MAIN-LETTER ;illuminated letter at opening of main body of game
+ \   / 
+  \ / 
+   |  
+   |   

+
+EPILOGUE-LETTER ;illuminated letter at opening of epilogue
+   ^   
+  / \  
+ /---\ 
+/     \

+
+CASTLE-BORDER ;screen border when you're in the castle
+|                                       N                                    |
+|                                   NW  ^  NE                                |
+|                                   W  /|\  E                                |
+|                                   SW  S  SE                                |

+
+OUTSIDE-BORDER ;screen border when you're outdoors
+|                                       N                                    |
+|                                   NW  ^  NE                                |
+|                                   W  /|\  E                                |
+|                                   SW  S  SE                                |

+
+UNDERGROUND-BORDER ;screen border when you're underground
+|                                       N                                    |
+|                                   NW  ^  NE                                |
+|                                   W  /|\  E                                |
+|                                   SW  S  SE                                |

+
+HINT-BORDER ;screen border for when you're using on-line hints
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+????                                                                       ????
+
+N-HL ;highlighted NORTH point on status line compass rose
+    N

+
+NE-HL ;highlighted NORTHEAST point on status line compass rose
+
+      NE

+
+E-HL ;highlighted EAST point on status line compass rose
+
+
+        E

+
+SE-HL ;highlighted SOUTHEAST point on status line compass rose
+
+
+
+      SE

+
+S-HL ;highlighted SOUTH point on status line compass rose
+
+
+
+    S

+
+SW-HL ;highlighted SOUTHWEST point on status line compass rose
+
+
+
+ SW

+
+W-HL ;highlighted WEST point on status line compass rose
+
+
+W

+
+NW-HL ;highlighted NW point on status line compass rose
+
+ NW

+
+N-UNHL ;unhighlighted NORTH point on status line compass rose
+    N
+
+NE-UNHL ;unhighlighted NORTHEAST point on status line compass rose
+
+      NE
+
+E-UNHL ;unhighlighted EAST point on status line compass rose
+
+
+        E
+
+SE-UNHL ;unhighlighted SOUTHEAST point on status line compass rose
+
+
+
+      SE
+
+S-UNHL ;unhighlighted SOUTH point on status line compass rose
+
+
+
+    S
+
+SW-UNHL ;unhighlighted SOUTHWEST point on status line compass rose
+
+
+
+ SW
+
+W-UNHL ;unhighlighted WEST point on status line compass rose
+
+
+W
+
+NW-UNHL ;unhighlighted NW point on status line compass rose
+
+ NW
+
+ENC-BORDER ;border for encyclopedia entries with illustrations
++-----------------------------------------------------------------------------+
+|                           ENCYCLOPEDIA FROBOZZICA                           |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
+|                                                                             |
++-----------------------------------------------------------------------------+
+
+ZILBEETHA-ILL ;encyclopedia entry for Zilbeetha
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|       Zilbeetha       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+BROGMOIDISM-ILL ;encyclopedia entry for Brogmoidism
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|      Brogmoidism      |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+DIMWIT-ILL ;encyclopedia entry for Dimwit Flathead
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|        Dimwit         |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+MEGABOZ-ILL ;encyclopedia entry for Megaboz
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|        Megaboz        |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+J-ILL ;encyclopedia entry for Jester
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|       torn page       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+FLATHEADIA-ILL ;encyclopedia entry for Flatheadia
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|      Flatheadia       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+FR-ILL ;encyclopedia entry for Frobozzco
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|       FrobozzCo       |
+|       Building        |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+FOUR-FLIES-ILL ;encyclopedia entry for Four Fantastic Flies of Famathria
++-----------------------+
+|                       |
+|                       |
+|                       |
+|                       |
+|     illustration      |
+|          of           |
+|      ceremonial       |
+|      flyswatter       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
+|                       |
++-----------------------+
+
+REBUS-0 ;the entire rebus, as seen in mirror image
++---------------------------------------------------------------------------+
+|                                                                           |
+|                                                                           |
+|                                                                           |
+|        (TIE)   +   (BIRD)   -   (B)                  (PIE)   +   N        |
+|                                                                           |
+|                                                                           |
+|        (EYE)   +   (URN)                          (MIND)   -   (D)        |
+|                                                                           |
+|                                                                           |
+|        (W)   +   (OAR)                                                    |
+|                                                                           |
+|                                                                           |
+|        (MATCH)   +   (CHICK)                       (STORM)  -  (M)        |
+|                                                                           |
+|                                                                           |
+|                                                                           |
++---------------------------------------------------------------------------+
+
+REBUS-1 ;the rebus with 1 covering animal
++---------------------------------------------------------------------------+
+| FISHFISHFISHFIS                                                           |
+| ISHFISHFISHFISH                                                           |
+| SHFISHFISHFISHF                                                           |
+| HFISHFISHFISHFI+   (BIRD)   -   (B)                  (PIE)   +   N        |
+| FISHFISHFISHFIS                                                           |
+| ISHFISHFISHFISH                                                           |
+| SHFISHFISHFISHF+   (URN)                          (MIND)   -   (D)        |
+| HFISHFISHFISHFI                                                           |
+| FISHFISHFISHFIS                                                           |
+|        (W)   +   (OAR)                                                    |
+|                                                                           |
+|                                                                           |
+|        (MATCH)   +   (CHICK)                       (STORM)  -  (M)        |
+|                                                                           |
+|                                                                           |
+|                                                                           |
++---------------------------------------------------------------------------+
+
+REBUS-2 ;the rebus with 2 covering animals
++---------------------------------------------------------------------------+
+| FISHFISHFISHFIS            SNAKESNAKESNAKESN                              |
+| ISHFISHFISHFISH            NAKESNAKESNAKESNA                              |
+| SHFISHFISHFISHF            AKESNAKESNAKESNAK                              |
+| HFISHFISHFISHFI+   (BIRD)  KESNAKESNAKESNAKE         (PIE)   +   N        |
+| FISHFISHFISHFIS            ESNAKESNAKESNAKES                              |
+| ISHFISHFISHFISH                                                           |
+| SHFISHFISHFISHF+   (URN)                          (MIND)   -   (D)        |
+| HFISHFISHFISHFI                                                           |
+| FISHFISHFISHFIS                                                           |
+|        (W)   +   (OAR)                                                    |
+|                                                                           |
+|                                                                           |
+|        (MATCH)   +   (CHICK)                       (STORM)  -  (M)        |
+|                                                                           |
+|                                                                           |
+|                                                                           |
++---------------------------------------------------------------------------+
+
+REBUS-3 ;the rebus with 3 covering animals
++---------------------------------------------------------------------------+
+| FISHFISHFISHFIS            SNAKESNAKESNAKESN                              |
+| ISHFISHFISHFISH            NAKESNAKESNAKESNA                              |
+| SHFISHFISHFISHF            AKESNAKESNAKESNAK                              |
+| HFISHFISHFISHFI+   (BIRD)  KESNAKESNAKESNAKE         (PIE)   +   N        |
+| FISHFISHFISHFIS            ESNAKESNAKESNAKES                              |
+| ISHFISHFISHFISH                                                           |
+| SHFISHFISHFISHF+   (URN)   CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+| HFISHFISHFISHFI            AMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+| FISHFISHFISHFIS            MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|        (W)   +   (OAR)     ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+|                            LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
+|                            CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+|        (MATCH)   +   (CHICKAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+|                            MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|                            ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+|                            LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
++---------------------------------------------------------------------------+
+
+REBUS-4 ;the rebus with 4 covering animals
++---------------------------------------------------------------------------+
+| FISHFISHFISHFIS            SNAKESNAKESNAKESN  SLIMESLIMESLIMESLIMESLIMESL |
+| ISHFISHFISHFISH            NAKESNAKESNAKESNA  LIMESLIMESLIMESLIMESLIMESLI |
+| SHFISHFISHFISHF            AKESNAKESNAKESNAK  IMESLIMESLIMESLIMESLIMESLIM |
+| HFISHFISHFISHFI+   (BIRD)  KESNAKESNAKESNAKE  MESLIMESLIMESLIMESLIMESLIME |
+| FISHFISHFISHFIS            ESNAKESNAKESNAKES  ESLIMESLIMESLIMESLIMESLIMES |
+| ISHFISHFISHFISH                                                           |
+| SHFISHFISHFISHF+   (URN)   CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+| HFISHFISHFISHFI            AMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+| FISHFISHFISHFIS            MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|        (W)   +   (OAR)     ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+|                            LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
+|                            CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+|        (MATCH)   +   (CHICKAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+|                            MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|                            ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+|                            LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
++---------------------------------------------------------------------------+
+
+REBUS-5 ;the rebus with 5 covering animals
++---------------------------------------------------------------------------+
+| FISHFISHFISHFIS  GOOSEGOO  SNAKESNAKESNAKESN  SLIMESLIMESLIMESLIMESLIMESL |
+| ISHFISHFISHFISH  OOSEGOOS  NAKESNAKESNAKESNA  LIMESLIMESLIMESLIMESLIMESLI |
+| SHFISHFISHFISHF  OSEGOOSE  AKESNAKESNAKESNAK  IMESLIMESLIMESLIMESLIMESLIM |
+| HFISHFISHFISHFI+ SEGOOSEG  KESNAKESNAKESNAKE  MESLIMESLIMESLIMESLIMESLIME |
+| FISHFISHFISHFIS  EGOOSEGO  ESNAKESNAKESNAKES  ESLIMESLIMESLIMESLIMESLIMES |
+| ISHFISHFISHFISH  GOOSEGOO                                                 |
+| SHFISHFISHFISHF+ OOSEGOOS  CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+| HFISHFISHFISHFI  OSEGOOSE  AMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+| FISHFISHFISHFIS  SEGOOSEG  MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|        (W)   +   (OAR)     ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+|                            LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
+|                            CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+|        (MATCH)   +   (CHICKAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+|                            MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|                            ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+|                            LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
++---------------------------------------------------------------------------+
+
+REBUS-6 ;the rebus with 6 covering animals
++---------------------------------------------------------------------------+
+| FISHFISHFISHFIS  GOOSEGOO  SNAKESNAKESNAKESN  SLIMESLIMESLIMESLIMESLIMESL |
+| ISHFISHFISHFISH  OOSEGOOS  NAKESNAKESNAKESNA  LIMESLIMESLIMESLIMESLIMESLI |
+| SHFISHFISHFISHF  OSEGOOSE  AKESNAKESNAKESNAK  IMESLIMESLIMESLIMESLIMESLIM |
+| HFISHFISHFISHFI+ SEGOOSEG  KESNAKESNAKESNAKE  MESLIMESLIMESLIMESLIMESLIME |
+| FISHFISHFISHFIS  EGOOSEGO  ESNAKESNAKESNAKES  ESLIMESLIMESLIMESLIMESLIMES |
+| ISHFISHFISHFISH  GOOSEGOO                                                 |
+| SHFISHFISHFISHF+ OOSEGOOS  CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+| HFISHFISHFISHFI  OSEGOOSE  AMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+| FISHFISHFISHFIS  SEGOOSEG  MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+|        (W)   +   (OAR)     ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+| MOUSEMOUSEMOUSEMOUSEMOUSE  LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
+| OUSEMOUSEMOUSEMOUSEMOUSEM  CAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELC |
+| USEMOUSEMOUSEMOUSEMOUSEMOCKAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCA |
+| SEMOUSEMOUSEMOUSEMOUSEMOU  MELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAM |
+| EMOUSEMOUSEMOUSEMOUSEMOUS  ELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAME |
+| MOUSEMOUSEMOUSEMOUSEMOUSE  LCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMELCAMEL |
++---------------------------------------------------------------------------+
+
+B-BORDER ;the border for Tower of Bozbar, including the three pegs
+                              Tower of Bozbar                              

+
+
+
+
+
+                       I               I               I
+                       I               I               I
+                       I               I               I
+                       I               I               I
+                       I               I               I
+                       I               I               I
+                       I               I               I
+              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+
+B-RESTORE-PEG ;restoring the bit of peg when a weight is moved
+      I      
+
+B-1-WEIGHT ;the 1-ugh weight from the Tower of Bozbar
+     *1*     
+
+B-2-WEIGHT ;the 2-ugh weight from the Tower of Bozbar
+    **2**    
+
+B-3-WEIGHT ;the 3-ugh weight from the Tower of Bozbar
+   ***3***   
+
+B-4-WEIGHT ;the 4-ugh weight from the Tower of Bozbar
+  ****4****  
+
+B-5-WEIGHT ;the 5-ugh weight from the Tower of Bozbar
+ *****5***** 
+
+B-6-WEIGHT ;the 6-ugh weight from the Tower of Bozbar
+******6******
+
+PBOZ-BORDER ;the border for Peggleboz, including the pegboard itself
+                                  Peggleboz                                

+
+
+                                     .a  .b
+                                       .c
+                                     .d  .e
+                                   .f  .g  .h
+                                 .i  .j  .k  .l
+                           .m  .n  .o  .p  .q  .r  .s
+                             .t                  .u
+
+UNHL-PEG ;the unhighlighted peg
+l

+
+HL-PEG ;the highlighted peg
+l

+
+BG-A ;restore background when peg at A is moved
+.
+
+BG-B ;restore background when peg at B is moved
+.
+
+BG-C ;restore background when peg at C is moved
+.
+
+BG-D ;restore background when peg at D is moved
+.
+
+BG-E ;restore background when peg at E is moved
+.
+
+BG-F ;restore background when peg at F is moved
+.
+
+BG-G ;restore background when peg at G is moved
+.
+
+BG-H ;restore background when peg at H is moved
+.
+
+BG-I ;restore background when peg at I is moved
+.
+
+BG-J ;restore background when peg at J is moved
+.
+
+BG-K ;restore background when peg at K is moved
+.
+
+BG-L ;restore background when peg at L is moved
+.
+
+BG-M ;restore background when peg at M is moved
+.
+
+BG-N ;restore background when peg at N is moved
+.
+
+BG-O ;restore background when peg at O is moved
+.
+
+BG-P ;restore background when peg at P is moved
+.
+
+BG-Q ;restore background when peg at Q is moved
+.
+
+BG-R ;restore background when peg at R is moved
+.
+
+BG-S ;restore background when peg at S is moved
+.
+
+BG-T ;restore background when peg at T is moved
+.
+
+BG-U ;restore background when peg at U is moved
+.
+
+SN-BORDER ;border for Snarfem
+                                 Snarfem                                   

+
+
+
+
+
+
+
+
+
+                   1            2            3            4                  
+
+PILE-OF-0 ;an empty pile for Snarfem
+       
+       
+       
+
+PILE-OF-1 ;a pile of 1 pebbles for Snarfem
+       
+       
+   @   
+
+PILE-OF-2 ;a pile of 2 pebbles for Snarfem
+       
+       
+@  @   
+
+PILE-OF-3 ;a pile of 3 pebbles for Snarfem
+       
+       
+@  @  @
+
+PILE-OF-4 ;a pile of 4 pebbles for Snarfem
+       
+      @
+@  @  @
+
+PILE-OF-5 ;a pile of 5 pebbles for Snarfem
+       
+@  @   
+@  @  @
+
+PILE-OF-6 ;a pile of 6 pebbles for Snarfem
+       
+@  @  @
+@  @  @
+
+PILE-OF-7 ;a pile of 7 pebbles for Snarfem
+@      
+@  @  @
+@  @  @
+
+PILE-OF-8 ;a pile of 8 pebbles for Snarfem
+   @  @
+@  @  @
+@  @  @
+
+PILE-OF-9 ;a pile of 9 pebbles for Snarfem
+@  @  @
+@  @  @
+@  @  @
+
+R-FLOWERS-0 ;right-hand corner flowers with none blooming
+.  .  .
+.  .  .
+.  .  .
+
+R-FLOWERS-1 ;right-hand corner flowers with 1 blooming
+.  .  .
+.  *  .
+.  .  .
+
+R-FLOWERS-2 ;right-hand corner flowers with 2 blooming
+*  .  .
+.  .  *
+.  .  .
+
+R-FLOWERS-3 ;right-hand corner flowers with 3 blooming
+.  *  .
+*  .  .
+.  .  *
+
+R-FLOWERS-4 ;right-hand corner flowers with 4 blooming
+*  .  .
+*  .  *
+.  *  .
+
+R-FLOWERS-5 ;right-hand corner flowers with 5 blooming
+.  *  *
+*  .  *
+*  .  .
+
+R-FLOWERS-6 ;right-hand corner flowers with 6 blooming
+.  *  .
+*  *  *
+*  *  .
+
+R-FLOWERS-7 ;right-hand corner flowers with 7 blooming
+*  *  *
+*  .  *
+.  *  *
+
+R-FLOWERS-8 ;right-hand corner flowers with 8 blooming
+*  *  .
+*  *  *
+*  *  *
+
+R-FLOWERS-9 ;right-hand corner flowers with 9 blooming
+*  *  *
+*  *  *
+*  *  *
+
+L-FLOWERS-0 ;left-hand corner flowers with none blooming
+.  .  .
+.  .  .
+.  .  .
+
+L-FLOWERS-1 ;left-hand corner flowers with 1 blooming
+.  .  *
+.  .  .
+.  .  .
+
+L-FLOWERS-2 ;left-hand corner flowers with 2 blooming
+.  *  .
+.  .  .
+*  .  .
+
+L-FLOWERS-3 ;left-hand corner flowers with 3 blooming
+*  .  *
+.  .  .
+.  *  .
+
+L-FLOWERS-4 ;left-hand corner flowers with 4 blooming
+*  .  .
+.  *  *
+.  *  .
+
+F-BORDER ;border for Double Fanucci
+                               Double Fanucci                              

+
+F-CARD-BACK ;back of a Double Fanucci card
++--------+
+| FFFFFF |
+| F      |
+| FFFF   |
+| F      |
+| F      |
++--------+
+
+F-CARD ;outline of a card before adding rank and suit
++--------+
+|        |
+|        |
+|        |
+|        |
+|        |
++--------+
+
+F-INKBLOTS ;right-side-up black icon for Inkblots suit
+IB
+
+F-PLUNGERS ;right-side-up black icon for Plungers suit
+PL
+
+F-BUGS ;right-side-up black icon for Bugs suit
+BG
+
+F-ZURFS ;right-side-up black icon for Zurfs suit
+ZF
+
+F-EARS ;right-side-up black icon for Ears suit
+ER
+
+F-TOPS ;right-side-up black icon for Tops suit
+TP
+
+F-RAIN ;right-side-up black icon for Rain suit
+RN
+
+F-HIVES ;right-side-up black icon for Hives suit
+HV
+
+F-FACES ;right-side-up black icon for Faces suit
+FC
+
+F-MAZES ;right-side-up black icon for Mazes suit
+MZ
+
+F-LAMPS ;right-side-up black icon for Lamps suit
+LP
+
+F-TIME ;right-side-up black icon for Time suit
+TM
+
+F-BOOKS ;right-side-up black icon for Books suit
+BK
+
+F-SCYTHES ;right-side-up black icon for Scythes suit
+SC
+
+F-FROMPS ;right-side-up black icon for Fromps suit
+FR
+
+F-RV-INKBLOTS ;upside-down black icon for Inkblots suit
+IB
+
+F-RV-PLUNGERS ;upside-down black icon for Plungers suit
+PL
+
+F-RV-BUGS ;upside-down black icon for Bugs suit
+BG
+
+F-RV-ZURFS ;upside-down black icon for Zurfs suit
+ZF
+
+F-RV-EARS ;upside-down black icon for Ears suit
+ER
+
+F-RV-TOPS ;upside-down black icon for Tops suit
+TP
+
+F-RV-RAIN ;upside-down black icon for Rain suit
+RN
+
+F-RV-HIVES ;upside-down black icon for Hives suit
+HV
+
+F-RV-FACES ;upside-down black icon for Faces suit
+FC
+
+F-RV-MAZES ;upside-down black icon for Mazes suit
+MZ
+
+F-RV-LAMPS ;upside-down black icon for Lamps suit
+LP
+
+F-RV-TIME ;upside-down black icon for Time suit
+TM
+
+F-RV-BOOKS ;upside-down black icon for Books suit
+BK
+
+F-RV-SCYTHES ;upside-down black icon for Scythes suit
+SC
+
+F-RV-FROMPS ;upside-down black icon for Fromps suit
+FR
+
+F-0 ;right-side-up black 0 for Double Fanucci
+ 0
+
+F-1 ;right-side-up black 1 for Double Fanucci
+ 1
+
+F-2 ;right-side-up black 2 for Double Fanucci
+ 2
+
+F-3 ;right-side-up black 3 for Double Fanucci
+ 3
+
+F-4 ;right-side-up black 4 for Double Fanucci
+ 4
+
+F-5 ;right-side-up black 5 for Double Fanucci
+ 5
+
+F-6 ;right-side-up black 6 for Double Fanucci
+ 6
+
+F-7 ;right-side-up black 7 for Double Fanucci
+ 7
+
+F-8 ;right-side-up black 8 for Double Fanucci
+ 8
+
+F-9 ;right-side-up black 9 for Double Fanucci
+ 9
+
+F-INFINITY ;right-side-up black infinity for Double Fanucci
+00
+
+F-RV-0 ;upside-down black 0 for Double Fanucci
+ 0
+
+F-RV-1 ;upside-down black 1 for Double Fanucci
+ 1
+
+F-RV-2 ;upside-down black 2 for Double Fanucci
+ 2
+
+F-RV-3 ;upside-down black 3 for Double Fanucci
+ 3
+
+F-RV-4 ;upside-down black 4 for Double Fanucci
+ 4
+
+F-RV-5 ;upside-down black 5 for Double Fanucci
+ 5
+
+F-RV-6 ;upside-down black 6 for Double Fanucci
+ 6
+
+F-RV-7 ;upside-down black 7 for Double Fanucci
+ 7
+
+F-RV-8 ;upside-down black 8 for Double Fanucci
+ 8
+
+F-RV-9 ;upside-down black 9 for Double Fanucci
+ 9
+
+F-RV-INFINITY ;upside-down black infinity for Double Fanucci
+00
+
+F-GRANOLA ;granola face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| GRNOLA |
+| ^^^^^^ |
+|        |
++--------+
+
+F-LOBSTER ;lobster face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| LBSTER |
+| ^^^^^^ |
+|        |
++--------+
+
+F-SNAIL ;snail face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| SNAIL  |
+| ^^^^^^ |
+|        |
++--------+
+
+F-JESTER ;jester face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| JESTER |
+| ^^^^^^ |
+|        |
++--------+
+
+F-HOURGLASS ;hourglass face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+|  TIME  |
+| ^^^^^^ |
+|        |
++--------+
+
+F-LIGHT ;candle face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| LIGHT  |
+| ^^^^^^ |
+|        |
++--------+
+
+F-BEAUTY ;rose face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| BEAUTY |
+| ^^^^^^ |
+|        |
++--------+
+
+F-DEATH ;executioner face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+| DEATH  |
+| ^^^^^^ |
+|        |
++--------+
+
+F-GRUE ;grue face card for Double Fanucci
++--------+
+|        |
+| vvvvvv |
+|  GRUE  |
+| ^^^^^^ |
+|        |
++--------+
+
+MAP-BORDER ;border for on-screen maps
+     +--------------------------------------------------------------------+
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     |                                                                    |
+     +--------------------------------------------------------------------+
+
+MAIN-TITLE ;title for main floor on-screen map
+  THE
+  MAIN
+ FLOOR
+OF THE CASTLE
+
+SECRET-WING-TITLE ;title for secret wing on-screen map
+    THE
+SECRET WING
+   OF THE
+   CASTLE
+
+VILLAGE-TITLE ;title for village area on-screen map
+  THE
+VILLAGE
+AREA OF
+  THE
+CASTLE
+
+LOWER-LEVEL-TITLE ;title for lower levels on-screen map
+    THE
+LOWER LEVELS
+   OF THE
+   CASTLE
+
+LAKE-TITLE ;title for Lake Flathead on-screen map
+   THE
+LAKE AREA
+  OF THE
+  CASTLE
+
+DESERT-TITLE ;title for the desert area on-screen map
+      THE
+GREAT UNDERGROUND
+     DESERT
+
+FOOZLE-TITLE ;title for the Port Foozle on-screen map
+ PORT
+FOOZLE
+
+FENSHIRE-TITLE ;title for the Fenshire on-screen map
+     THE
+SUMMER CASTLE
+ AT FENSHIRE
+
+FJORD-TITLE ;title for the fjord area on-screen map
+  THE
+FLATHEAD
+ FJORD
+
+GRAY-MTS-TITLE ;title for the Gray Mountains on-screen map
+   THE
+   GRAY
+MOUNTAINS
+
+DELTA-TITLE ;title for the delta area on-screen map
+    THE
+FRIGID RIVER
+   DELTA
+
+FUBLIO-TITLE ;title for the Fublio Valley on-screen map
+FUBLIO
+VALLEY
+
+ANTHARIA-TITLE ;title for the Antharia on-screen map
+ANTHARIA
+
+FOOZLE-MAP-ILL ;illustration for Port Foozle on-screen map
+   _       /\/\
+  /|\     /    \______
+ / | \    |    |  O  O
+~~~~~~~~~~|    |  O  O
+~~~~~~~~~~~~
+~~~~~~~~~~~~~~~~
+
+FENSHIRE-MAP-ILL ;illustration for Fenshire on-screen map
+     ________| II |
+     |            |
+   ,///''       ``\\\
+--------------------------------
+  lllll                llllll
+    lllllll          llllll
+        llllllllllllllll
+
+FJORD-MAP-ILL ;illustration for Fjord on-screen map
+             ______/------\______
+         __/      /        |      \_
+        /        |          \        \
+----------------------------------------
+
+GRAY-MTS-MAP-ILL ;illustration for Gray Mountains on-screen map
+        /--\__/-\
+-------/         \----------------------
+  /\  /           \    /--\
+ /  \/             \  /    \
+     \              \/      \
+      \             /        \
+       \___________/
+
+DELTA-MAP-ILL ;illustration for Delta on-screen map
+__/\______/  \_/ \______
+      \
+       \\
+       /|\\
+   __//||\\\\___
+
+ANTHARIA-MAP-ILL ;illustration for Antharia on-screen map
+           cccccc
+     ccc   cccccc
+    ccccc    __________
+     ccc    /    /   /
+~~~~~~~~~~~~    /   /
+~~~~~~~~~~     ... . ..
+~~~~~~~~~~~~ ..  .   .
+~~~~~~~~~~    .   . .
+~~~~~~~~   . ....  .  .
+
+HORIZONTAL-LEGEND ;horizontally-aspected legend box for on-screen maps
++--------------------+
+| Legend             |
+| -------   >>>>>>>  |
+| ------>   - - - -  |
++--------------------+
+
+VERTICAL-LEGEND ;vertically-aspected legend box for on-screen maps
++--------+
+| Legend |
+|        |
+| ------ |
+| -----> |
+| >>>>>> |
+|        |
++--------+
+
+N-S-CON ;north-south room connector for on-screen maps
+ || 
+
+E-W-CON ;east-west room connector for on-screen maps
+__
+--
+
+NE-SW-CON ;northeast-southwest room connector for on-screen maps
+//
+
+NW-SE-CON ;northwest-southeast room connector for on-screen maps
+\\
+
+DOWN-NORTH-SYMBOL ;when down is show to the north on an on-screen map
+ ^   
+
+DOWN-SOUTH-SYMBOL ;when down is shown to the south on an on-screen map
+ v   
+
+DOWN-EAST-SYMBOL ;when down is shown to the east on an on-screen map
+>>
+
+DOWN-WEST-SYMBOL ;when down is shown to the west on an on-screen map
+<<
+
+DOWN-NE-SYMBOL ;when down is shown to the northeast on an on-screen map
+,'
+
+DOWN-NW-SYMBOL ;when down is shown to the northwest on an on-screen map
+`.
+
+DOWN-SW-SYMBOL ;when down is shown to the southwest on an on-screen map
+,'
+
+DOWN-SE-SYMBOL ;when down is shown to the southeast on an on-screen map
+`.
+
+TELEPORT-ARROW ;shows where the oracle teleports you on on-screen maps
+ ||
+\||/
+ \/
+
+RV-TELEPORT-ARROW ;also shows where the oracle teleports you
+ /\
+/||\
+ ||
+
+ARCH-N-CON ;special-case for Crag and Natural Arch
+  ____
+ /____\
+//    \\
+
+ARCH-S-CON ;special-case for Crag and Natural Arch
+\\____//
+ \____/
+
+RUBBLE-NW-CON ;special-case for Rubble Room & Heart of Mine
+ ____
+/,---
+||
+
+RUBBLE-SE-CON ;special-case for Rubble Room & Heart of Mine
+   ||
+___'/
+---'
+
+ICONLESS-ROOM-BOX ;box for rooms without icons for on-screen maps
+|''|
+|,,|

+
+YOU-ARE-HERE-SYMBOL ;blinks w/ room icon to show current room on on-screen map
+\\//
+//\\

+
+GONDOLA-ICON ;map icon for Gondola room
+|Go|
+|Go|

+
+PEG-ROOM-ICON ;map icon for Peg Room
+|PR|
+|PR|

+
+WEST-WING-ICON ;map icon for West Wing room
+|WW|
+|WW|

+
+GYM-ICON ;map icon for Gym room
+|Gy|
+|Gy|

+
+TORCH-ROOM-ICON ;map icon for Torch Room
+|TR|
+|TR|

+
+ROOF-ICON ;map icon for Roof room
+|Rf|
+|Rf|

+
+PARLOR-ICON ;map icon for Parlor room
+|Pa|
+|Pa|

+
+FORMAL-GARDEN-ICON ;map icon for Formal Garden room
+|FG|
+|FG|

+
+BALCONY-ICON ;map icon for Balcony room
+|Ba|
+|Ba|

+
+GALLERY-ICON ;map icon for Gallery room
+|Ga|
+|Ga|

+
+THRONE-ROOM-ICON ;map icon for Throne Room
+|TR|
+|TR|

+
+BANQUET-HALL-ICON ;map icon for Banquet Hall room
+|BH|
+|BH|

+
+KITCHEN-ICON ;map icon for Kitchen room
+|Ki|
+|Ki|

+
+WINE-CELLAR-ICON ;map icon for Wine Cellar room
+|WC|
+|WC|

+
+LIBRARY-ICON ;map icon for Library room
+|Li|
+|Li|

+
+EAST-WING-ICON ;map icon for East Wing room
+|EW|
+|EW|

+
+CHAPEL-ICON ;map icon for Chapel room
+|Ch|
+|Ch|

+
+J-QUARTER-ICON ;map icon for Jester's Quarters room
+|JQ|
+|JQ|

+
+PYRAMID-ICON ;map icon for Pyramid Room
+|PR|
+|PR|

+
+DIMWITS-ROOM-ICON ;map icon for Dimwit's Room
+|DR|
+|DR|

+
+MAGIC-CLOSET-ICON ;map icon for Magic Clothes Closet room
+|MC|
+|MC|

+
+PARAPET-ICON ;map icon for Parapet room
+|Pa|
+|Pa|

+
+BASTION-ICON ;map icon for Bastion room
+|Ba|
+|Ba|

+
+SECRET-PASSAGE-ICON ;map icon for Secret Passage room
+|SP|
+|SP|

+
+TEE-ICON ;map icon for Tee room
+|Te|
+|Te|

+
+TOP-OF-STAIR-ICON ;map icon for Top of Stair room
+|TS|
+|TS|

+
+BOTTOM-OF-STAIR-ICON ;map icon for Bottom of Stair room
+|BS|
+|BS|

+
+ORACLE-ICON ;map icon for Oracle room
+|Or|
+|Or|

+
+DUNGEON-ICON ;map icon for Dungeon room
+|Du|
+|Du|

+
+CELL-ICON ;map icon for Cell room
+|Ce|
+|Ce|

+
+PERIMETER-WALL-ICON ;map icon for Perimeter Wall room
+|PW|
+|PW|

+
+GARRISON-ICON ;map icon for Garrison room
+|Ga|
+|Ga|

+
+OUTER-BAILEY-ICON ;map icon for Outer Bailey room
+|OB|
+|OB|

+
+DRAWBRIDGE-ICON ;map icon for Drawbridge room
+|DB|
+|DB|

+
+BARBICAN-ICON ;map icon for Barbican room
+|Ba|
+|Ba|

+
+UPPER-BARBICAN-ICON ;map icon for Upper Barbican room
+|UB|
+|UB|

+
+CAUSEWAY-ICON ;map icon for Causeway room
+|CW|
+|CW|

+
+INNER-BAILEY-ICON ;map icon for Inner Bailey room
+|IB|
+|IB|

+
+URS-OFFICE-ICON ;map icon for URS Office room
+|UO|
+|UO|

+
+SHADY-PARK-ICON ;map icon for Shady Park room
+|SP|
+|SP|

+
+CHURCH-ICON ;map icon for Church room
+|Ch|
+|Ch|

+
+COURTROOM-ICON ;map icon for Courtroom room
+|CR|
+|CR|

+
+POST-OFFICE-ICON ;map icon for Post Office room
+|PO|
+|PO|

+
+FR-HQ-ICON ;map icon for FrobozzCo World HQ room
+|HQ|
+|HQ|

+
+MAGIC-SHOP-ICON ;map icon for Magic Shop room
+|MS|
+|MS|

+
+BACK-ALLEY-ICON ;map icon for Back Alley room
+|BA|
+|BA|

+
+OFFICES-ICON ;map icon for FrobozzCo Offices North room
+|FO|
+|FO|

+
+PENTHOUSE-ICON ;map icon for FrobozzCo Penthouse room
+|FP|
+|FP|

+
+ROOTS-ICON ;map icon for Hanging From Roots room
+|HR|
+|HR|

+
+EAR-ICON ;map icon for Ear room
+|Ea|
+|Ea|

+
+MOUTH-OF-CAVE-ICON ;map icon for Mouth of Cave room
+|MC|
+|MC|

+
+LEDGE-IN-PIT-ICON ;map icon for Ledge in Bottomless Pit room
+|LP|
+|LP|

+
+PASSAGE-STORAGE-ICON ;map icon for Passage Storage Room
+|PS|
+|PS|

+
+VAULT-ICON ;map icon for Vault room
+|Va|
+|Va|

+
+G-U-HIGHWAY-ICON ;map icon for Great Underground Highway room
+|UH|
+|UH|

+
+EXIT-ICON ;map icon for Exit room
+|Ex|
+|Ex|

+
+KENNELS-ICON ;map icon for Kennel room
+|Ke|
+|Ke|

+
+ROYAL-ZOO-ICON ;map icon for Zoo room
+|ZO|
+|ZO|

+
+LABORATORY-ICON ;map icon for Laboratory room
+|La|
+|La|

+
+HOLD-ICON ;map icon for Hold room
+|Ho|
+|Ho|

+
+UNDERWATER-ICON ;map icon for Underwater room
+|UW|
+|UW|

+
+LAKE-BOTTOM-ICON ;map icon for Lake Bottom room
+|LB|
+|LB|

+
+EAST-SHORE-ICON ;map icon for East Shore room
+|ES|
+|ES|

+
+WEST-SHORE-ICON ;map icon for West Shore room
+|WS|
+|WS|

+
+NORTH-SHORE-ICON ;map icon for North Shore room
+|NS|
+|NS|

+
+SOUTH-SHORE-ICON ;map icon for South Shore room
+|SS|
+|SS|

+
+LAKE-FLATHEAD-ICON ;map icon for Lake Flathead room
+|LF|
+|LF|

+
+RING-OF-DUNES-ICON ;map icon for Ring of Dunes room
+|RD|
+|RD|

+
+G-U-SAVANNAH-ICON ;map icon for Great Underground Savannah room
+|US|
+|US|

+
+BATS-LAIR-ICON ;map icon for Bat's Lair room
+|BL|
+|BL|

+
+BASE-OF-MT-ICON ;map icon for Base of Mountain room
+|BM|
+|BM|

+
+G-U-MOUNTAIN-ICON ;map icon for Great Underground Mountain room
+|UM|
+|UM|

+
+STABLE-ICON ;map icon for Stable room
+|St|
+|St|

+
+SHRINE-ICON ;map icon for Shrine room
+|Sh|
+|Sh|

+
+CACTUS-PATCH-ICON ;map icon for Cactus Patch room
+|CP|
+|CP|

+
+TALL-DUNES-ICON ;map icon for Tall Dunes room
+|TD|
+|TD|

+
+G-U-OASIS-ICON ;map icon for Great Underground Oasis room
+|UO|
+|UO|

+
+WHARF-ICON ;map icon for Wharf room
+|Wh|
+|Wh|

+
+FISHING-VILLAGE-ICON ;map icon for Fishing Village room
+|FV|
+|FV|

+
+QUILBOZZA-BEACH-ICON ;map icon for Quilbozza Beach room
+|QB|
+|QB|

+
+WARNING-ROOM-ICON ;map icon for Warning Room
+|WR|
+|WR|

+
+FISHY-ODOR-ICON ;map icon for Fishy Odor room
+|FO|
+|FO|

+
+ROOM-OF-3-DOORS-ICON ;map icon for Room of Three Doors room
+|3D|
+|3D|

+
+FORK-ICON ;map icon for Fork room
+|Fo|
+|Fo|

+
+WISHYFOO-ICON ;map icon for Wishyfoo Territory room
+|WT|
+|WT|

+
+REST-STOP-ICON ;map icon for Rest Stop room
+|RS|
+|RS|

+
+CROSSROADS-ICON ;map icon for Crossroads room
+|CR|
+|CR|

+
+TOLL-PLAZA-ICON ;map icon for Toll Plaza room
+|TP|
+|TP|

+
+FISSURES-EDGE-ICON ;map icon for Fissures-Edge room
+|FE|
+|FE|

+
+ORB-ROOM-ICON ;map icon for Orb Room
+|OR|
+|OR|

+
+RUINED-HALL-ICON ;map icon for Ruined Hall room
+|RH|
+|RH|

+
+SECRET-ROOM-ICON ;map icon for Secret Room
+|SR|
+|SR|

+
+HOTHOUSE-ICON ;map icon for Hothouse room
+|HH|
+|HH|

+
+MARSH-ICON ;map icon for Marsh room
+|MA|
+|MA|

+
+CRAG-ICON ;map icon for Crag room
+|Cr|
+|Cr|

+
+UPPER-LEDGE-ICON ;map icon for Upper Ledge room
+|UL|
+|UL|

+
+LOWER-LEDGE-ICON ;map icon for Lower Ledge room
+|LL|
+|LL|

+
+IRON-MINE-ICON ;map icon for Iron Mine room
+|IM|
+|IM|

+
+NATURAL-ARCH-ICON ;map icon for Natural Arch room
+|NA|
+|NA|

+
+ENCHANTED-CAVE-ICON ;map icon for Enchanted Cave room
+|EC|
+|EC|

+
+MIRROR-LAKE-ICON ;map icon for Mirror Lake room
+|ML|
+|ML|

+
+CHALET-ICON ;map icon for Chalet room
+|Ch|
+|Ch|

+
+RIVERS-END-ICON ;map icon for River's End room
+|RE|
+|RE|

+
+OCEANS-EDGE-ICON ;map icon for Ocean's Edge room
+|OE|
+|OE|

+
+DELTA-ICON ;map icon for every (seven) Delta room
+|De|
+|De|

+
+ON-TOP-OF-WORLD-ICON ;map icon for On Top of the World room
+|OW|
+|OW|

+
+AMONGST-CLOUDS-ICON ;map icon for Amongst the Clouds room
+|AC|
+|AC|

+
+TIMBERLINE-ICON ;map icon for Timberline room
+|TL|
+|TL|

+
+AVALANCHE-ICON ;map icon for Avalanche room
+|AV|
+|AV|

+
+ZORBEL-PASS-ICON ;map icon for Zorbel Pass room
+|ZP|
+|ZP|

+
+BASE-OF-MTS-ICON ;map icon for Base of Mountains room
+|BM|
+|BM|

+
+FOOT-OF-STATUE-ICON ;map icon for Foot of Statue room
+|FS|
+|FS|

+
+OUTSIDE-HUT-ICON ;map icon for Outside Hut room
+|OH|
+|OH|

+
+ATTIC-ICON ;map icon for Attic room
+|At|
+|At|

+
+CAIRN-ICON ;map icon for Cairn room
+|Ca|
+|Ca|

+
+QUARRYS-EDGE-ICON ;map icon for Quarry's Edge room
+|QE|
+|QE|

+
+QUARRY-ICON ;map icon for Quarry room
+|Qu|
+|Qu|

+
+STADIUM-ICON ;map icon for Flathead Stadium room
+|FS|
+|FS|

+
+COAST-ROAD-ICON ;map icon for Coast Road room
+|CR|
+|CR|

+
+MINE-ENTRANCE-ICON ;map icon for Mine Entrance room
+|ME|
+|ME|

+
+DEAD-END-ICON ;map icon for Dead End room
+|DE|
+|DE|

+
+CLIFF-BOTTOM-ICON ;map icon for Cliff Bottom room
+|CB|
+|CB|

+
+PRECIPICE-ICON ;map icon for Precipice room
+|Pr|
+|Pr|

+
+AERIE-ICON ;map icon for Aerie room
+|Ae|
+|Ae|

+
+ICKY-CAVE-ICON ;map icon for Icky Cave room
+|IC|
+|IC|

+
+MAP-N-HL ;highlighted NORTH point on map compass rose
+N
+
+MAP-NE-HL ;highlighted NORTHEAST point on map compass rose
+NE
+
+MAP-E-HL ;highlighted EAST point on map compass rose
+E
+
+MAP-SE-HL ;highlighted SOUTHEAST point on map compass rose
+SE
+
+MAP-S-HL ;highlighted SOUTH point on map compass rose
+S
+
+MAP-SW-HL ;highlighted SOUTHWEST point on map compass rose
+SW
+
+MAP-W-HL ;highlighted WEST point on map compass rose
+W
+
+MAP-NW-HL ;highlighted NW point on map compass rose
+NW
+
+MAP-N-UNHL ;unhighlighted NORTH point on map compass rose
+N
+
+MAP-NE-UNHL ;unhighlighted NORTHEAST point on map compass rose
+NE
+
+MAP-E-UNHL ;unhighlighted EAST point on map compass rose
+E
+
+MAP-SE-UNHL ;unhighlighted SOUTHEAST point on map compass rose
+SE
+
+MAP-S-UNHL ;unhighlighted SOUTH point on map compass rose
+S
+
+MAP-SW-UNHL ;unhighlighted SOUTHWEST point on map compass rose
+SW
+
+MAP-W-UNHL ;unhighlighted WEST point on map compass rose
+W
+
+MAP-NW-UNHL ;unhighlighted NW point on map compass rose
+NW
+
+LOBBY-OFFICE-CON ;a longer version of DOWN-NW-SYMBOL
+`.
+  `.
+    `.
+      `.
+
+OFFICE-PENTHOUSE-CON ;a longer version of DOWN-NE-SYMBOL
+      ,'
+    ,'
+  ,'
+,'
+
+LOW-HALL-CON ;a longer version of DOWN-WEST-SYMBOL
+<<<<<<<<
+
+
+WISHYFOO-FORK-CON ;a longer version of DOWN-NORTH-SYMBOL
+ ^  
+ ^  
+ ^  
+ ^  
+ ^  
+ ^  
+ ^  
+ ^  
+
+GLACIER-MIRROR-CON ;a longer version of DOWN-SW-SYMBOL
+      ,'
+    ,'
+  ,'
+,'
+
+DELTA-6-7-CON ;special-case delta maze passage
+ ____
+/,---
+||  
+\`_________
+ `---------
+
+DELTA-1-3-CON ;special-case delta maze passage
+__________
+---------.\
+         ||
+         ||
+         ||
+         ||
+
+DELTA-5-6-CON ;special-case delta maze passage
+    //
+   //
+  //
+ //
+||
+||
+||
+
+DELTA-2-3-CON ;special-case delta maze passage
+ //
+//
+\\
+ \\
+
+DELTA-1-4-CON ;special-case delta maze passage
+_______
+------.\
+      ||
+      ||
+      ||
+      ||
+      ||
+      //
+     //
+
+DELTA-3-5-CON ;special-case delta maze passage
+||
+\ \__
+ `---
+
+PILE-1-PIC-LOC=61x113
+PILE-2-PIC-LOC=61x204
+PILE-3-PIC-LOC=61x295
+PILE-4-PIC-LOC=61x386
+L-FLOWERS-PIC-LOC=21x1
+R-FLOWERS-PIC-LOC=21x505
+B-1-L-PIC-LOC=71x120
+B-2-C-PIC-LOC=81x232
+B-3-R-PIC-LOC=91x344
+B-4-PIC-LOC=101x0
+B-5-PIC-LOC=111x0
+B-6-PIC-LOC=121x0
+F-DISCARD-PIC-LOC=51x29
+F-1-PIC-LOC=51x155
+F-2-PIC-LOC=51x253
+F-3-PIC-LOC=51x351
+F-4-PIC-LOC=51x449
+F-RANK-PIC-LOC=20x14
+F-REV-RANK-PIC-LOC=40x42
+F-SUIT-PIC-LOC=10x14
+F-REV-SUIT-PIC-LOC=50x42
+ENC-PIC-LOC=31x50
+ENC-TXT-LOC=31x274
+ENC-TXT-WINDOW-SIZE=180x238
+COMPASS-PIC-LOC=1x246
+HERE-LOC=11x8
+REGION-LOC=11x540
+F-MENU-LOC=151x78
+J-SCORE-LOC=21x29
+YOUR-SCORE-LOC=21x442
+TEXT-WINDOW-PIC-LOC=41x0
+PBOZ-H-LOC=61x302
+PBOZ-I-LOC=71x232
+PBOZ-J-LOC=71x260
+PBOZ-K-LOC=71x288
+PBOZ-L-LOC=71x316
+PBOZ-M-LOC=81x190
+PBOZ-N-LOC=81x218
+PBOZ-O-LOC=81x246
+PBOZ-P-LOC=81x274
+PBOZ-Q-LOC=81x302
+PBOZ-R-LOC=81x330
+PBOZ-S-LOC=81x358
+PBOZ-T-LOC=91x204
+PBOZ-U-LOC=91x344
+PBOZ-SPLIT=150x0
+MAP-TOP-LEFT-LOC=21x57
+MAP-BASIC-ELT-SIZE=30x42
+MAP-BOX-SIZE=20x28
+MAP-SPACE-SIZE=10x14
+GONDOLA-AT-FLATHEADIA-LOC=121x0
+5-FUDGE=5x5
+GONDOLA-AT-FENSHIRE-LOC=51x0
+ARCH-N-CON-SIZE=20x0
+RUBBLE-CON-SIZE=30x35
+2-3-CON-SIZE=0x14
+3-5-CON-SIZE=0x35
+5-6-CON-SIZE=0x35
+6-7-CON-SIZE=0x77
+TELEPORT-ARROW-SIZE=30x0
+WISHYFOO-ICON-LOC=181x0
+EAR-ICON-LOC=0x295
+F-DISCARD-LOC=121x43
+F-CARD-1-LOC=121x190
+F-CARD-SPACE=0x98
+F-SPLIT=180x0
+F-BOTTOM=10x0
+PBOZ-BOTTOM=10x0
+SN-BOTTOM=10x0
+B-BOTTOM=10x0
+SN-SPLIT=180x0
+B-SPLIT=180x0
+URS-ICON-LOC=0x217
+COURTROOM-ICON-LOC=0x329
+MAIN-TITLE-LOC=0x260
+PBOZ-A-LOC=31x260
+PBOZ-B-LOC=31x288
+PBOZ-C-LOC=41x274
+PBOZ-D-LOC=51x260
+PBOZ-E-LOC=51x288
+PBOZ-F-LOC=61x246
+PBOZ-G-LOC=61x274
+LAKE-TITLE-LOC=120x196
+TELEPORT-LETTER ;illuminated letter at first oracle teleport
+|---\
+|    |
+|    |
+|___/

+
+SECRET-WING-TITLE-LOC=25x0
+MAP-ROSE-BG ;compass rose for on-screen maps
+   N
+  \|/
+W--+--E
+  /|\
+   S
+
+MAP-ROSE-LOC=1x260
+MAP-COMPASS-PIC-LOC=1x260
+BOX-1 ;dialog box 1 for snarfem
++-----+
+|  1  |
++-----+
+
+BOX-2 ;dialog box 2 for snarfem
++-----+
+|  2  |
++-----+
+
+BOX-3 ;dialog box 3 for snarfem
++-----+
+|  3  |
++-----+
+
+BOX-4 ;dialog box 4 for snarfem
++-----+
+|  4  |
++-----+
+
+BOX-5 ;dialog box 5 for snarfem
++-----+
+|  5  |
++-----+
+
+BOX-6 ;dialog box 6 for snarfem
++-----+
+|  6  |
++-----+
+
+BOX-7 ;dialog box 7 for snarfem
++-----+
+|  7  |
++-----+
+
+BOX-8 ;dialog box 8 for snarfem
++-----+
+|  8  |
++-----+
+
+BOX-9 ;dialog box 9 for snarfem
++-----+
+|  9  |
++-----+
+
+DIM-BOX-1 ;screened dialog box 1 for snarfem
++-----+
+|  1  |
++-----+
+
+DIM-BOX-2 ;screened dialog box 2 for snarfem
++-----+
+|  2  |
++-----+
+
+DIM-BOX-3 ;screened dialog box 3 for snarfem
++-----+
+|  3  |
++-----+
+
+DIM-BOX-4 ;screened dialog box 4 for snarfem
++-----+
+|  4  |
++-----+
+
+DIM-BOX-5 ;screened dialog box 5 for snarfem
++-----+
+|  5  |
++-----+
+
+DIM-BOX-6 ;screened dialog box 6 for snarfem
++-----+
+|  6  |
++-----+
+
+DIM-BOX-7 ;screened dialog box 7 for snarfem
++-----+
+|  7  |
++-----+
+
+DIM-BOX-8 ;screened dialog box 8 for snarfem
++-----+
+|  8  |
++-----+
+
+DIM-BOX-9 ;screened dialog box 9 for snarfem
++-----+
+|  9  |
++-----+
+
+EXIT-BOX ;exit dialog box
++----------+
+|   EXIT   |
++----------+
+
+SHOW-MOVES-BOX ;show moves dialog box
++----------+
+|SHOW MOVES|
++----------+
+
+UNDO-BOX ;undo dialog box
++----------+
+|   UNDO   |
++----------+
+
+RESTART-BOX ;restart dialog box
++----------+
+| RESTART  |
++----------+
+
+DIM-SHOW-MOVES-BOX ;screened show moves dialog box
++----------+
+|SHOW MOVES|
++----------+
+
+DIM-UNDO-BOX ;screened undo dialog box
++----------+
+|   UNDO   |
++----------+
+
+DIM-RESTART-BOX ;screend restart dialog box
++----------+
+| RESTART  |
++----------+
+
+BOX-1-LOC=151x1
+SN-BOX-SPACE=0x8
+PBOZ-RESTART-BOX-LOC=11x1
+PBOZ-SHOW-MOVES-BOX-LOC=41x1
+PBOZ-EXIT-BOX-LOC=71x1
+TOWER-UNDO-BOX-LOC=11x1
+TOWER-EXIT-BOX-LOC=11x470
+EXPAND-HOT-SPOT=1x1
+ICON-OFFSET=0x0
+U-BOX ;indicates UP on status line
++-+
+|U|
++-+
+
+D-BOX ;indicates DOWN on status line
++-+
+|D|
++-+
+
+BOX-COVER ;covers UP and DOWN boxes on status line
++-+
+| |
++-+
+
+U-BOX-LOC=11x211
+D-BOX-LOC=11x316
diff --git a/zork0dat.zap b/zork0dat.zap
new file mode 100644
index 0000000..00ee01b
--- /dev/null
+++ b/zork0dat.zap
@@ -0,0 +1,26969 @@
+
+
+; TOP LEVEL DEFINITIONS
+
+	TRUE-VALUE=1
+	FALSE-VALUE=0
+	FATAL-VALUE=2
+
+	O?ANY=1
+
+
+; OBJECT FLAGS ARE DEFINED HERE
+
+
+	WHITEBIT=2
+	FX?WHITEBIT=8192
+
+	BLACKBIT=3
+	FX?BLACKBIT=4096
+
+	DELTABIT=4
+	FX?DELTABIT=2048
+
+	BEYONDBIT=5
+	FX?BEYONDBIT=1024
+
+	DESERTBIT=6
+	FX?DESERTBIT=512
+
+	MAGICBIT=7
+	FX?MAGICBIT=256
+
+	PLANTBIT=8
+	FX?PLANTBIT=128
+
+	ANIMATEDBIT=9
+	FX?ANIMATEDBIT=64
+
+	WATERBIT=10
+	FX?WATERBIT=32
+
+	PLURALBIT=11
+	FX?PLURALBIT=16
+
+	NARTICLEBIT=12
+	FX?NARTICLEBIT=8
+
+	REDESCBIT=13
+	FX?REDESCBIT=4
+
+	UNDERGROUNDBIT=14
+	FX?UNDERGROUNDBIT=2
+
+	NALLBIT=15
+	FX?NALLBIT=1
+
+	FLAMEBIT=16
+	FX?FLAMEBIT=32768
+
+	ORBBIT=17
+	FX?ORBBIT=16384
+
+	DROPBIT=18
+	FX?DROPBIT=8192
+
+	FEMALEBIT=19
+	FX?FEMALEBIT=4096
+
+	INBIT=20
+	FX?INBIT=2048
+
+	PARTBIT=21
+	FX?PARTBIT=1024
+
+	NDESCBIT=22
+	FX?NDESCBIT=512
+
+	LOCKEDBIT=23
+	FX?LOCKEDBIT=256
+
+	VOWELBIT=24
+	FX?VOWELBIT=128
+
+	OUTSIDEBIT=25
+	FX?OUTSIDEBIT=64
+
+	INTEGRALBIT=26
+	FX?INTEGRALBIT=32
+
+	RLANDBIT=27
+	FX?RLANDBIT=16
+
+	TRANSBIT=28
+	FX?TRANSBIT=8
+
+	SEARCHBIT=29
+	FX?SEARCHBIT=4
+
+	TRYTAKEBIT=30
+	FX?TRYTAKEBIT=2
+
+	SURFACEBIT=31
+	FX?SURFACEBIT=1
+
+	TOUCHBIT=32
+	FX?TOUCHBIT=32768
+
+	INVISIBLE=33
+	FX?INVISIBLE=16384
+
+	WEARBIT=34
+	FX?WEARBIT=8192
+
+	CONTBIT=35
+	FX?CONTBIT=4096
+
+	WORNBIT=36
+	FX?WORNBIT=2048
+
+	READBIT=37
+	FX?READBIT=1024
+
+	DOORBIT=38
+	FX?DOORBIT=512
+
+	TAKEBIT=39
+	FX?TAKEBIT=256
+
+	KEYBIT=40
+	FX?KEYBIT=128
+
+	LIGHTBIT=41
+	FX?LIGHTBIT=64
+
+	OPENBIT=42
+	FX?OPENBIT=32
+
+	KLUDGEBIT=43
+	FX?KLUDGEBIT=16
+
+	BURNBIT=44
+	FX?BURNBIT=8
+
+	VEHBIT=45
+	FX?VEHBIT=4
+
+	ONBIT=46
+	FX?ONBIT=2
+
+	ACTORBIT=47
+	FX?ACTORBIT=1
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?$NUDGE=0
+	V?DEFINE=1
+	V?VERBOSE=2
+	V?BRIEF=3
+	V?SUPERBRIEF=4
+	V?COLOR=5
+	V?CREDITS=6
+	V?DIAGNOSE=7
+	V?INVENTORY=8
+	V?MODE=9
+	V?QUIT=10
+	V?RESTART=11
+	V?RESTORE=12
+	V?SAVE=13
+	V?UNDO=14
+	V?SCORE=15
+	V?NOTIFY=16
+	V?SCRIPT=17
+	V?UNSCRIPT=18
+	V?VERSION=19
+	V?$RANDOM=20
+	V?$COMMAND=21
+	V?$RECORD=22
+	V?$UNRECORD=23
+	V?$REFRESH=24
+	V?$VERIFY=25
+	V?WALK-TO=26
+	V?ASK-ABOUT=27
+	V?ASK-FOR=28
+	V?ASK-NO-ONE-FOR=29
+	V?KILL=30
+	V?BEHEAD=31
+	V?BITE=32
+	V?INFLATE=33
+	V?OFF=34
+	V?ENTER=35
+	V?BURN=36
+	V?BUY=37
+	V?CALL=38
+	V?CATCH=39
+	V?WALK-AROUND=40
+	V?CLIMB=41
+	V?CLIMB-ON=42
+	V?CLIMB-UP=43
+	V?CLIMB-DOWN=44
+	V?EXIT=45
+	V?CLIMB-OVER=46
+	V?CRAWL-UNDER=47
+	V?CLOSE=48
+	V?SHUT-UP=49
+	V?LOCK=50
+	V?SRESEARCH=51
+	V?COUGH=52
+	V?COUNT=53
+	V?SPUT-ON=54
+	V?CROSS=55
+	V?DATE=56
+	V?DECODE=57
+	V?MUNG=58
+	V?DIG=59
+	V?DIG-WITH=60
+	V?TAKE-OFF=61
+	V?DRINK=62
+	V?DRINK-FROM=63
+	V?DRINK-WITH=64
+	V?DROP=65
+	V?PUT=66
+	V?PUT-ON=67
+	V?THROW-FROM=68
+	V?PUT-THROUGH=69
+	V?EAT=70
+	V?EMPTY=71
+	V?EMPTY-FROM=72
+	V?IN=73
+	V?EXAMINE=74
+	V?MIRROR-LOOK=75
+	V?FEED=76
+	V?GIVE=77
+	V?SGIVE=78
+	V?FILL=79
+	V?FIND=80
+	V?SSEARCH-OBJECT-FOR=81
+	V?FLY=82
+	V?FOLLOW=83
+	V?GIVE-UP=84
+	V?HANG=85
+	V?LISTEN=86
+	V?HELLO=87
+	V?HINT=88
+	V?HINTS-NO=89
+	V?SAVE-SOMETHING=90
+	V?HIDE=91
+	V?LEAP=92
+	V?LEAP-OFF=93
+	V?STAND-ON=94
+	V?KICK=95
+	V?KISS=96
+	V?KNOCK=97
+	V?RIDE-DIR=98
+	V?LEAD-TO=99
+	V?LEAVE=100
+	V?LET-OUT=101
+	V?LIE-DOWN=102
+	V?ON=103
+	V?LOOK=104
+	V?LOOK-DOWN=105
+	V?LOOK-INSIDE=106
+	V?LOOK-UNDER=107
+	V?LOOK-BEHIND=108
+	V?LOOK-OVER=109
+	V?RESEARCH=110
+	V?CHASTISE=111
+	V?LOWER=112
+	V?MAP=113
+	V?MAYBE=114
+	V?MEASURE=115
+	V?MEET=116
+	V?MOVE=117
+	V?MOVE-DIR=118
+	V?MOVE-TO=119
+	V?RAISE=120
+	V?TAKE=121
+	V?NO=122
+	V?OPEN=123
+	V?PAY=124
+	V?PICK=125
+	V?TOUCH=126
+	V?PLAY=127
+	V?POINT=128
+	V?POUR=129
+	V?PRAY=130
+	V?PUSH=131
+	V?PUSH-DIR=132
+	V?PUT-UNDER=133
+	V?REACH-IN=134
+	V?READ=135
+	V?REMOVE=136
+	V?TAKE-WITH=137
+	V?ROLL=138
+	V?ROLL-DOWN=139
+	V?ROLL-UP=140
+	V?ROLL-DIR=141
+	V?SADDLE=142
+	V?SAY=143
+	V?SEARCH=144
+	V?SEARCH-OBJECT-FOR=145
+	V?SEND=146
+	V?SHAKE=147
+	V?SHAKE-WITH=148
+	V?SHOW=149
+	V?SSHOW=150
+	V?SING=151
+	V?SING-TO=152
+	V?SINK=153
+	V?SIT=154
+	V?SKIP=155
+	V?SLEEP=156
+	V?CUT=157
+	V?SMELL=158
+	V?SNAP=159
+	V?STAND=160
+	V?GET-NEAR=161
+	V?WEAR=162
+	V?PUT-BEHIND=163
+	V?PUT-TO=164
+	V?SUCK-ON=165
+	V?SUCK-WITH=166
+	V?SWAT=167
+	V?SWIM=168
+	V?SWING=169
+	V?TELL=170
+	V?TASTE=171
+	V?TELL-ABOUT=172
+	V?STELL=173
+	V?THANK=174
+	V?THROW=175
+	V?THROW-OVERBOARD=176
+	V?THROW-TO=177
+	V?STHROW=178
+	V?THROW-OVER=179
+	V?TIE=180
+	V?TIME=181
+	V?TIP=182
+	V?TIP-OVER=183
+	V?STOUCH=184
+	V?SET=185
+	V?SET-DIR=186
+	V?UNLOCK=187
+	V?UNTIE=188
+	V?USE=189
+	V?WAIT=190
+	V?WAIT-FOR=191
+	V?ALARM=192
+	V?WALK=193
+	V?SRIDE-DIR=194
+	V?CLEAN=195
+	V?WRAP=196
+	V?SWRAP=197
+	V?YAWN=198
+	V?YELL=199
+	V?YES=200
+	V?SACRED-WORD=201
+	V?ZAP=202
+	V?NOT-SO-SACRED-WORD=203
+
+; 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?ACTION=50
+	P?ADJACENT=49
+	P?CONTFCN=48
+	P?THINGS=47
+	P?ADJECTIVE=46
+	P?RESEARCH=45
+	P?SDESC=44
+	P?GENERIC=43
+	P?OWNER=42
+	P?SIZE=41
+	P?TEXT=40
+	P?REGION=39
+	P?MAP-LOC=38
+	P?ICON=37
+	P?GLOBAL=36
+	P?LDESC=35
+	P?FDESC=34
+	P?PLURAL=33
+	P?CAPACITY=32
+	P?DESCFCN=31
+	P?RIDDLE=30
+	P?INANIMATE-DESC=29
+	P?WAND-TEXT=28
+	P?ANIMATE-ROUTINE=27
+	P?VALUE=26
+	P?PICTURE=25
+
+; ADJECTIVES ARE DEFINED HERE
+
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	ARCH-S-CON=200
+	MAP-NE-HL=331
+	REGION-LOC=383
+	F10=142
+	PMEM-STORE-LENGTH=180
+	F-RAIN=108
+	BASE-OF-MTS-ICON=315
+	THIRD-PERSON=64
+	YES?=0
+	ENC-BORDER=25
+	PARLOR-ICON=211
+	O-VERB=0
+	URS-ICON-LOC=429
+	PBOZ-SHOW-MOVES-BOX-LOC=473
+	PERSONBIT=ACTORBIT
+	MAIN-MAP-NUM=1
+	REBUS-1=35
+	MAP-GEN-Y-6=-5
+	B-6-WEIGHT=48
+	BG-E=56
+	PILE-OF-2=76
+	ENCHANTED-CAVE-ICON=304
+	COURTROOM-ICON-LOC=430
+	MAP-NW-HL=337
+	EXPAND-HOT-SPOT=477
+	NP-QUANT-A=1
+	F-RV-RAIN=123
+	F-RV-BOOKS=129
+	DOWN-SOUTH-SYMBOL=190
+	F-MOUSE=32
+	PM-HEADER-LEN=1
+	RUINED-HALL-ICON=295
+	ICON-OFFSET=478
+	PMEM-TYPE-NOUN-PHRASE=4
+	LAKE-FLATHEAD-ICON=271
+	ARCH-N-CON-SIZE=410
+	DEXITSTR=1
+	REBUS-3=37
+	F-JESTER=157
+	TELEPORT-LETTER=440
+	XEQUAL?=4
+	MAP-GEN-X-5=-4
+	O-AGAIN=4
+	F-RV-BUGS=119
+	F-BEAUTY=160
+	ROOM-OF-3-DOORS-ICON=287
+	GONDOLA-AT-FENSHIRE-LOC=409
+	NW-HL=16
+	BG-Q=68
+	F-RV-7=150
+	PAD0=145
+	R-FLOWERS-3=87
+	ICONLESS-ROOM-BOX=203
+	B-BOTTOM=426
+	OFFICES-OFFSET=1000
+	D-PRINTER=2
+	F2=134
+	E-UNHL=19
+	PILE-3-PIC-LOC=359
+	D-KEYBOARD=0
+	PARSER-RESULT-FAILED=1
+	MAP-BASIC-ELT-SIZE=404
+	MAP-ROSE-BG=442
+	TOWER-EXIT-BOX-LOC=476
+	ATARI-ST=5
+	C-INTLEN=4
+	BARBICAN-ICON=239
+	B-3-R-PIC-LOC=365
+	HOLD-ICON=264
+	W-UNHL=23
+	BG-D=55
+	PILE-OF-3=77
+	F-BORDER=99
+	COURTROOM-ICON=246
+	ICKY-CAVE-ICON=329
+	WLCNT=15
+	F4=136
+	O-START=0
+	SEARCH-IN-LG?=0
+	PBOZ-H-LOC=388
+	SN-BOTTOM=425
+	BOX-COVER=481
+	OFFICES-E-OFFSET=4000
+	F-UNDO=16
+	ROYAL-ZOO-ICON=262
+	NP-QUANT-ALL=3
+	F-HIVES=109
+	F-7=139
+	DEXITRM=4
+	HORIZONTAL-LEGEND=183
+	DEMO-TIMEOUT=600
+	DEXITOBJ=0
+	FUTURE-TENSE=1024
+	WWIDE=3
+	WLMARGIN=6
+	YOU-ARE-HERE-SYMBOL=204
+	CAIRN-ICON=319
+	MAP-GEN-Y-5=-4
+	TOP-OF-STAIR-ICON=230
+	DELTA-6-7-CON=351
+	H-ITALIC=4
+	F6=138
+	NP-QUANT-BOTH=4
+	DOWN-SW-SYMBOL=195
+	LAKE-BOTTOM-ICON=266
+	TEXT-WINDOW-PIC-LOC=387
+	BOX-1-LOC=470
+	WHIGH=2
+	P-ADJ-CODE=1
+	BG-P=67
+	S-TEXT=0
+	P-PREP-CODE=4
+	F-DEATH=161
+	S-HL=13
+	M-OBJDESC?=9
+	FLEN=30
+	TALL-DUNES-ICON=280
+	F-2-PIC-LOC=371
+	SN-BOX-SPACE=471
+	C-MAGENTA=7
+	O-SUBJECT=6
+	O-PTR=3
+	MAP-GEN-X-4=-3
+	F-3=135
+	FORK-ICON=288
+	F8=140
+	F-BOOKS=114
+	F-RV-TOPS=122
+	B-4-PIC-LOC=366
+	F-OLD=0
+	O-LENGTH=1
+	F-RV-6=149
+	SHADY-PARK-ICON=244
+	UNDERWATER-ICON=265
+	TOWER-UNDO-BOX-LOC=475
+	F-PICTURES=2
+	A-BUFFER=8
+	R-FLOWERS-0=84
+	S-START=2
+	F-BUGS=104
+	CHAPEL-ICON=221
+	YOUR-SCORE-LOC=386
+	BG-C=54
+	PILE-OF-0=74
+	AMIGA=4
+	D-TABLE-OFF=-3
+	C-TABLELEN=60
+	F-RV-INFINITY=153
+	GLACIER-MIRROR-CON=350
+	DIM-BOX-8=461
+	TANGENT-VALUE=41
+	ROOF-ICON=210
+	DRAWBRIDGE-ICON=238
+	PBOZ-U-LOC=401
+	VILLAGE-MAP-NUM=3
+	DOWN-NORTH-SYMBOL=189
+	MAP-GEN-X-10=-9
+	LAKE-MAP-NUM=5
+	FKEYS-STRTABLE-LEN=448
+	FORMAL-GARDEN-ICON=212
+	WISHYFOO-FORK-CON=349
+	PMEM-TYPE-NPP=3
+	LOWER-LEDGE-ICON=301
+	RIVERS-END-ICON=307
+	SN-SPLIT=427
+	PBOZ-G-LOC=438
+	A-SCROLL=2
+	SETUP-ORPHAN-NP=0
+	BG-O=66
+	DOWN-NW-SYMBOL=194
+	OUTSIDE-HUT-ICON=317
+	WLEFT=1
+	F-DISPLAY=8
+	FD-INCLUDE?=1
+	F-SCYTHES=115
+	ENC-PIC-LOC=378
+	PBOZ-RESTART-BOX-LOC=472
+	PARSER-ERROR-NOOBJ=248
+	J-ILL=30
+	WHARF-ICON=282
+	D-SCREEN-ON=1
+	PARSE-QUESTION=2
+	B-3-WEIGHT=45
+	MAP-GEN-Y-4=-3
+	DUNGEON-ICON=233
+	SE-HL=12
+	DESERT-TITLE=169
+	2-3-CON-SIZE=412
+	O-COMP=3
+	DEC-20=1
+	P-WORDLEN=4
+	DELTA-MAP-ILL=181
+	H-MONO=8
+	D-SCREEN-OFF=-1
+	FD-NOTOP?=8
+	WINE-CELLAR-ICON=218
+	LOW-HALL-CON=348
+	SERIAL=0
+	BG-B=53
+	PILE-OF-1=75
+	SECOND-PERSON=32
+	FOOT-OF-STATUE-ICON=316
+	DIM-BOX-9=462
+	M-MONOSPACE=16
+	MAP-GEN-X-3=-2
+	L-FLOWERS-0=94
+	MAP-SPACE-SIZE=406
+	RESTART-BOX=466
+	FEXIT=3
+	C-RED=3
+	FJORD-TITLE=172
+	PBOZ-BOTTOM=424
+	NP-LENGTH=9
+	EAR-ICON-LOC=418
+	R-FLOWERS-1=85
+	LABORATORY-ICON=263
+	FLATHEADIA-ILL=31
+	FENSHIRE-TITLE=171
+	FIRST-HINT-LINE=5
+	DIMWITS-ROOM-ICON=224
+	PARSE-NOT=1
+	R-FLOWERS-8=92
+	DELTA-1-3-CON=352
+	PILE-1-PIC-LOC=357
+	SECRET-WING-TITLE-LOC=441
+	PARSER-ERROR-NOMULT=252
+	BG-N=65
+	LIBRARY-ICON=219
+	GARRISON-ICON=236
+	OFFICES-ICON=251
+	PBOZ-T-LOC=400
+	LEXV-LENGTH-BYTES=238
+	F-RV-HIVES=124
+	M-SUBJ=12
+	LEDGE-IN-PIT-ICON=256
+	ENC-TXT-LOC=379
+	B-SPLIT=428
+	D-RECORD=4
+	NP-QUANT-NONE=0
+	NOUN-PHRASE-HEADER-LEN=3
+	C128=7
+	D-PRINTER-OFF=-2
+	WYPOS=4
+	FIND-RES-LENGTH=10
+	ZILBEETHA-ILL=26
+	PYRAMID-ICON=223
+	AERIE-ICON=328
+	F-CARD-1-LOC=420
+	PBOZ-F-LOC=437
+	D-BOX-LOC=483
+	D-COMMAND-FILE=1
+	P-EOI-CODE=8
+	ARCH-N-CON=199
+	EPILOGUE-LETTER=4
+	NATURAL-ARCH-ICON=303
+	BOX-9=453
+	M-BEG=1
+	GRAY-MTS-TITLE=173
+	CACTUS-PATCH-ICON=279
+	PBOZ-O-LOC=395
+	PAD9=154
+	PMEM-TYPE-LOCATION=6
+	BG-A=52
+	PILE-OF-6=80
+	F-RANK-PIC-LOC=374
+	BOX-8=452
+	F-NEWFONT=3
+	PARSER-RESULT-DEAD=0
+	RUBBLE-NW-CON=201
+	NORTH-SHORE-ICON=269
+	HERE-LOC=382
+	5-FUDGE=408
+	MAP-GEN-Y-3=-2
+	F-RV-ZURFS=120
+	BOX-7=451
+	F-TIME=113
+	FENSHIRE-MAP-ILL=178
+	RUBBLE-CON-SIZE=411
+	BOX-6=450
+	PLAIN-OFFSET=300
+	PARSER-ERROR-ORPH-NP=250
+	LOWER-LEVEL-TITLE=167
+	G-U-OASIS-ICON=281
+	STORAGE-TABLE-LENGTH=200
+	UP-ARROW=129
+	O-PART=4
+	MAP-GEN-X-9=-8
+	RV-TELEPORT-ARROW=198
+	BOX-5=449
+	F-RV-PLUNGERS=118
+	BACK-ALLEY-ICON=250
+	XDIV=3
+	NOUN-PHRASE-MIN-LENGTH=4
+	DESERT-MAP-NUM=6
+	OUTSIDE-BORDER=6
+	F-6=138
+	BOX-4=448
+	M-FATAL=2
+	MAP-GEN-X-2=-1
+	BG-M=64
+	L-FLOWERS-1=95
+	D-BOX=480
+	M-WINNER=11
+	FD-NEST?=4
+	BOX-3=447
+	DIM-BOX-2=455
+	XGRTR?=5
+	NEXITSTR=0
+	PENTHOUSE-ICON=252
+	ROOMSBIT=KLUDGEBIT
+	R-FLOWERS-6=90
+	G-U-SAVANNAH-ICON=273
+	BOX-2=446
+	NEXIT=2
+	UNDERGROUND-BORDER=7
+	S-CLEANUP=4
+	F-FROMPS=116
+	F-RV-1=144
+	BOX-1=445
+	F-SOUND=128
+	R-FLOWERS-9=93
+	J-SCORE-LOC=385
+	S-WINDOW=1
+	QUARRY-ICON=321
+	PBOZ-S-LOC=399
+	A-WRAP=1
+	F-MAZES=111
+	F-LIGHT=159
+	STADIUM-ICON=322
+	CLIFF-BOTTOM-ICON=326
+	TELL-SAMPLE-COMMANDS-NUMBER=3
+	J-QUARTER-ICON=222
+	F-3-PIC-LOC=372
+	MAP-TOP-LEFT-LOC=403
+	D-PRINTER-ON=2
+	PAD8=153
+	MAIN-LETTER=3
+	SE-UNHL=20
+	PILE-OF-7=81
+	F-2=134
+	S-INIT=1
+	C-BLUE=6
+	PEG-ROOM-ICON=206
+	VAULT-ICON=258
+	B-5-PIC-LOC=367
+	F-DISCARD-PIC-LOC=369
+	SHOW-MOVES-BOX=464
+	HOTHOUSE-ICON=297
+	QUARRYS-EDGE-ICON=320
+	XLESS?=6
+	R-FLOWERS-PIC-LOC=362
+	PBOZ-E-LOC=436
+	F-FACES=110
+	C-HERE=-1
+	F-REFRESH=4
+	EAST-SHORE-ICON=267
+	APPLE-2E=2
+	FUBLIO-TITLE=175
+	TORCH-ROOM-ICON=209
+	PBOZ-N-LOC=394
+	LAKE-TITLE-LOC=439
+	WRMARGIN=7
+	S-BEEP=1
+	POST-OFFICE-ICON=247
+	STABLE-ICON=277
+	AMONGST-CLOUDS-ICON=311
+	MAP-W-HL=336
+	M-DISPLAY=2
+	MAP-GEN-Y-2=-1
+	BG-L=63
+	GONDOLA-ICON=205
+	DELTA-ICON=309
+	DIMWIT-ILL=28
+	DIM-BOX-3=456
+	FOOZLE-MAP-ILL=177
+	LOBBY-OFFICE-CON=346
+	WCRFUNC=8
+	PARSER-RESULT-AGAIN=3
+	PMEM-TYPE-OBJLIST=7
+	REBUS-4=38
+	PRINT-INTQUOTE=0
+	MAP-GEN-X-8=-7
+	WEST-SHORE-ICON=268
+	M-ENTER=3
+	F12=144
+	CLICKM=252
+	PMEM-TYPE-ADJS=1
+	NP-QUANT-TBL-LEN=6
+	F-RV-EARS=121
+	F-RV-FROMPS=131
+	SHRINE-ICON=278
+	ADJS-MAX-COUNT=4
+	F-RV-TIME=128
+	MAP-S-HL=334
+	DIM-UNDO-BOX=468
+	P-NOUN-CODE=2
+	MAP-GEN-X-1=0
+	L-FLOWERS-2=96
+	ATTIC-ICON=318
+	DEXIT=5
+	H-NORMAL=0
+	B-4-WEIGHT=46
+	B-2-C-PIC-LOC=364
+	C-DEFAULT=1
+	PAD7=152
+	REBUS-6=40
+	PILE-OF-4=78
+	R-FLOWERS-7=91
+	DELTA-TITLE=174
+	GONDOLA-AT-FLATHEADIA-LOC=407
+	F-BOTTOM=423
+	UPPER-LEDGE-ICON=300
+	EXIT-BOX=463
+	WCOLOR=11
+	F-STATUS=4
+	SW-HL=14
+	F-CARD=101
+	F-RV-0=143
+	M-OBJDESC=7
+	COAST-ROAD-ICON=323
+	U-BOX=479
+	NP-QUANT-PLURAL=6
+	TEE-ICON=229
+	PBOZ-R-LOC=398
+	MAP-ROSE-LOC=443
+	C-CYAN=8
+	O-WHICH=3
+	F-RV-9=152
+	BASE-OF-MT-ICON=275
+	F-RV-INKBLOTS=117
+	MAP-N-HL=330
+	APPLE-2GS=10
+	CLICK1=254
+	ANTHARIA-MAP-NUM=13
+	REBUS-0=34
+	CONSTRUCTION-OFFSET=400
+	MACINTOSH=3
+	H-INVERSE=1
+	NP-QUANT-NOTHING=5
+	MAP-COMPASS-PIC-LOC=444
+	BG-K=62
+	PILE-OF-8=82
+	OFFICE-PENTHOUSE-CON=347
+	O-OBJECT=5
+	BROGMOIDISM-ILL=27
+	EXIT-ICON=260
+	PBOZ-D-LOC=435
+	NE-SW-CON=187
+	OFFICES-W-OFFSET=5000
+	M-SCENE-SETUP=10
+	F-RV-FACES=125
+	PBOZ-M-LOC=393
+	XSUB=1
+	O-SET=1
+	F1=133
+	REBUS-2=36
+	SECRET-WING-TITLE=165
+	FJORD-MAP-ILL=179
+	S-BOOP=2
+	URS-OFFICE-ICON=243
+	MOUTH-OF-CAVE-ICON=255
+	A-SCRIPT=4
+	C-GREEN=4
+	PARSER-REPORT=0
+	MAP-GEN-Y-1=0
+	FJORD-MAP-NUM=9
+	F-HOURGLASS=158
+	TELEPORT-ARROW=197
+	MIRROR-LAKE-ICON=305
+	MAP-S-UNHL=342
+	P-QW1-CODE=6
+	FR-HQ-ICON=248
+	XADD=0
+	PAD6=151
+	FD-SEARCH?=2
+	PILE-OF-5=79
+	PROLOGUE-LETTER=2
+	DOWN-WEST-SYMBOL=192
+	GALLERY-ICON=214
+	F3=135
+	PLURAL-FLAG=16
+	PAST-TENSE=512
+	F-9=141
+	G-U-MOUNTAIN-ICON=276
+	M-CONTAINER=8
+	C-BLACK=2
+	PRECIPICE-ICON=327
+	L-FLOWERS-3=97
+	F-REV-RANK-PIC-LOC=375
+	LETTER-OFFSET=64
+	CEXIT=4
+	H-BOLD=2
+	P-COMMA-CODE=10
+	F-CARD-BACK=100
+	ON-TOP-OF-WORLD-ICON=310
+	MAP-E-HL=332
+	PBOZ-SPLIT=402
+	M-LEAVE=4
+	P-LEXSTART=1
+	MAP-W-UNHL=344
+	R-FLOWERS-4=88
+	WATTRS=14
+	DELTA-MAP-NUM=11
+	F-GRANOLA=154
+	M-LOOK=5
+	F5=137
+	BG-J=61
+	PILE-OF-9=83
+	F-RV-3=146
+	ROOTS-ICON=253
+	PILE-4-PIC-LOC=360
+	F-SUIT-PIC-LOC=376
+	DIM-BOX-1=454
+	UEXIT=1
+	D-RECORD-ON=4
+	PBOZ-Q-LOC=397
+	WTOP=0
+	O-CLEAR=2
+	PARSER-ERROR-ORPH-S=251
+	F-INKBLOTS=102
+	F-RV-8=151
+	TELEPORT-ARROW-SIZE=416
+	O-END=2
+	F-5=137
+	FOOZLE-TITLE=170
+	INNER-BAILEY-ICON=242
+	FROMP-SUIT=15
+	CLICK2=253
+	OUTER-BAILEY-ICON=237
+	B-6-PIC-LOC=368
+	P-LEXELEN=2
+	ORB-ROOM-ICON=294
+	F7=139
+	M-COLOR=1
+	FIND-FLAGS-GWIM=1
+	UPPER-BARBICAN-ICON=240
+	CHURCH-ICON=245
+	DIM-RESTART-BOX=469
+	PBOZ-EXIT-BOX-LOC=474
+	P-LEXWORDS=1
+	PBOZ-C-LOC=434
+	BALCONY-ICON=213
+	SOUTH-SHORE-ICON=270
+	COMPASS-PIC-LOC=381
+	PAD5=150
+	PRESENT-TENSE=256
+	S-UNHL=21
+	B-BORDER=41
+	CELL-ICON=234
+	OCEANS-EDGE-ICON=308
+	G-U-HIGHWAY-ICON=259
+	PBOZ-L-LOC=392
+	XMUL=2
+	PMEM-TYPE-PP=5
+	DOWN-EAST-SYMBOL=191
+	CAUSEWAY-ICON=241
+	WCRCNT=9
+	WHLIGHT=10
+	FIRST-PERSON=8
+	FISHY-ODOR-ICON=286
+	F9=141
+	FIND-RES-MAXOBJ=6
+	MAP-SE-UNHL=341
+	U-BOX-LOC=482
+	MAP-GEN-X-11=-10
+	E-HL=11
+	F-1=133
+	PERIMETER-WALL-ICON=235
+	REST-STOP-ICON=290
+	F-DISCARD-LOC=419
+	SYN-FIND-PROP=256
+	SW-UNHL=22
+	FISSURES-EDGE-ICON=293
+	AVALANCHE-ICON=313
+	N-HL=9
+	F-CARD-SPACE=421
+	SLIDE-SHOW-TIMEOUT=150
+	TITLE-SCREEN-PICTURE=1
+	BG-I=60
+	F-LAMPS=112
+	MINE-ENTRANCE-ICON=324
+	F-REV-SUIT-PIC-LOC=377
+	HL-PEG=51
+	F-RV-MAZES=126
+	MAP-SW-UNHL=343
+	DIM-BOX-6=459
+	CEXITFLAG=1
+	P-QUANT-CODE=5
+	FOOZLE-MAP-NUM=7
+	W-HL=15
+	LOWER-LEVEL-MAP-NUM=4
+	B-1-WEIGHT=43
+	UNHL-PEG=50
+	S-STOP=3
+	D-RECORD-OFF=-4
+	R-FLOWERS-5=89
+	NE-UNHL=18
+	F-4-PIC-LOC=373
+	WFSIZE=13
+	F-RV-2=145
+	6-7-CON-SIZE=415
+	PARSER-RESULT-WON=2
+	F-PLUNGERS=103
+	EAST-WING-ICON=220
+	BG-U=72
+	F-MENU-LOC=384
+	PBOZ-P-LOC=396
+	M-FLASH=6
+	F11=143
+	PAD4=149
+	F-MENU=256
+	F-LOBSTER=155
+	MAIN-TITLE=164
+	DELTA-3-5-CON=356
+	FENSHIRE-MAP-NUM=8
+	F-RV-SCYTHES=130
+	RING-OF-DUNES-ICON=272
+	QUILBOZZA-BEACH-ICON=284
+	DELTA-2-3-CON=354
+	GRAY-MTS-MAP-ILL=180
+	DELTA-5-6-CON=353
+	MAIN-TITLE-LOC=431
+	M-UNDERLINE=8
+	O-LEXPTR=1
+	B-5-WEIGHT=47
+	MAP-E-UNHL=340
+	TOLL-PLAZA-ICON=292
+	PBOZ-B-LOC=433
+	FEXITFCN=0
+	PMEM-TYPE-NP=2
+	F-SNAIL=156
+	WEST-WING-ICON=207
+	MAGIC-CLOSET-ICON=225
+	D-SCREEN=1
+	LAKE-TITLE=168
+	ANTHARIA-MAP-ILL=182
+	D-TABLE-ON=3
+	EXCLUDE-HERE-OBJECT?=0
+	B-RESTORE-PEG=42
+	PBOZ-K-LOC=391
+	BG-H=59
+	FIRST-HINT-COLUMN=7
+	DIM-BOX-7=460
+	BOTTOM-OF-STAIR-ICON=231
+	NE-HL=10
+	SOFT-WINDOW=2
+	CROSSROADS-ICON=291
+	TIMBERLINE-ICON=312
+	5-6-CON-SIZE=414
+	F-SCRIPT=1
+	F-ZURFS=105
+	PASSAGE-STORAGE-ICON=257
+	WXPOS=5
+	F-FIXED=2
+	CEXITSTR=1
+	P-DIR-CODE=9
+	ORACLE-ICON=232
+	INBUF-LENGTH=60
+	PBOZ-BORDER=49
+	BG-T=71
+	MAP-N-UNHL=338
+	PAD3=148
+	B-1-L-PIC-LOC=363
+	MAP-BOX-SIZE=405
+	MAP-GEN-X-7=-6
+	L-FLOWERS-4=98
+	IBM=6
+	F-RV-LAMPS=127
+	F-RV-5=148
+	N-UNHL=17
+	FR-ILL=32
+	ANTHARIA-TITLE=176
+	BANQUET-HALL-ICON=216
+	L-FLOWERS-PIC-LOC=361
+	F-8=140
+	MAP-BORDER=163
+	M-END=2
+	MAP-NE-UNHL=339
+	DELTA-1-4-CON=355
+	C64=8
+	O-MOVE=0
+	C-WHITE=9
+	BG-G=58
+	MARSH-ICON=298
+	FOUR-FLIES-ILL=33
+	BASTION-ICON=227
+	FISHING-VILLAGE-ICON=283
+	CHALET-ICON=306
+	DIM-BOX-4=457
+	LOW-DIRECTION=52
+	DOWN-SE-SYMBOL=196
+	F-SPLIT=422
+	TREBLED-RANK=11
+	OFFICES-S-OFFSET=3000
+	PARSER-ERROR-TMNOUN=247
+	F-TOPS=107
+	GYM-ICON=208
+	PBOZ-A-LOC=432
+	WFONT=12
+	NOUN-PHRASE-ENTLENB=4
+	POSSESSIVE=16384
+	SN-BORDER=73
+	H-UNDER=4
+	F-COLOR=64
+	D-PARA?=2
+	RUBBLE-SE-CON=202
+	MAP-NW-UNHL=345
+	CRAG-ICON=299
+	PBOZ-J-LOC=390
+	C-TICK=1
+	SECRET-PASSAGE-ICON=228
+	MAGIC-SHOP-ICON=249
+	BG-S=70
+	F-4=136
+	DEAD-END-ICON=325
+	PAD2=147
+	F-EARS=106
+	NOUN-PHRASE-ENTLEN=2
+	NW-SE-CON=188
+	KENNELS-ICON=261
+	D-TABLE=3
+	MAP-GEN-Y-7=-6
+	KITCHEN-ICON=217
+	WISHYFOO-ICON=289
+	ENC-TXT-WINDOW-SIZE=380
+	RIGHT-ARROW=132
+	P-TITLE=1
+	3-5-CON-SIZE=413
+	C-SAME=0
+	MEGABOZ-ILL=29
+	E-W-CON=186
+	DIM-SHOW-MOVES-BOX=467
+	M-BOLD=4
+	BATS-LAIR-ICON=274
+	IRON-MINE-ICON=302
+	PICTURE-CARD-PROB=20
+	CASTLE-BORDER=5
+	SECRET-ROOM-ICON=296
+	MAP-GEN-X-6=-5
+	BG-F=57
+	F-1-PIC-LOC=370
+	SACRED-WORD-WORDS-LENGTH=10
+	F-0=132
+	DIM-BOX-5=458
+	D-ALL?=1
+	F-RV-4=147
+	UNDO-BOX=465
+	F-DEFAULT=1
+	M-SOUND=32
+	R-FLOWERS-2=86
+	DOWN-NE-SYMBOL=193
+	ZORBEL-PASS-ICON=314
+	REXIT=0
+	DOWN-ARROW=130
+	O-SYNTAX=2
+	GRAY-MOUNTAINS-MAP-NUM=10
+	FUBLIO-MAP-NUM=12
+	REBUS-5=39
+	THRONE-ROOM-ICON=215
+	MAP-SE-HL=333
+	C-YELLOW=5
+	P-PARTICLE-CODE=3
+	N-S-CON=185
+	PARAPET-ICON=226
+	WISHYFOO-ICON-LOC=417
+	NP-FLAG-MULTI=1
+	HINT-BORDER=8
+	F-INFINITY=142
+	F-GRUE=162
+	VERTICAL-LEGEND=184
+	PILE-2-PIC-LOC=358
+	APPLE-2C=9
+	SECRET-WING-MAP-NUM=2
+	B-2-WEIGHT=44
+	PARSER-ERROR-NOUND=253
+	LEXV-LENGTH=59
+	BG-R=69
+	WARNING-ROOM-ICON=285
+	LEFT-ARROW=131
+	PAD1=146
+	VILLAGE-TITLE=166
+	MAP-SW-HL=335
+	C-RTN=0
+	OFFICES-N-OFFSET=2000
+	S-FULL=7
+	P-VERB-CODE=7
+	NW-UNHL=24
+	EAR-ICON=254
+	PBOZ-I-LOC=389
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR SUFFOCATE-COUNTER=0
+	.GVAR PARSER-RESULT=0
+	.GVAR HUNGER-SPELL-CAST=0
+	.GVAR FLOOR-NUMBER=2
+	.GVAR SEARCH-FLAGS=0,NUMBER
+	.GVAR RANK=2
+	.GVAR P-HIM-OBJECT=0,OBJECT
+	.GVAR OLD-REGION=0
+	.GVAR ROOSTER-BURP=0
+	.GVAR IRON-MINE-OPEN=0
+	.GVAR ROPE-PLACED=0
+	.GVAR TLEXV=0
+	.GVAR GLOVE-COMMENT=0
+	.GVAR P-WORDS-AGAIN=0,NUMBER
+	.GVAR TYPED-TIMED-OUT=0
+	.GVAR ELIXIR-TRAPPED=0
+	.GVAR P-MULT=0
+	.GVAR CLOCK-WAIT=0
+	.GVAR H-QUEST-NUM=1
+	.GVAR P-WORD-NUMBER=0,NUMBER
+	.GVAR C-MAXINTS=60
+	.GVAR REMOVED-PERCH-LOC=0
+	.GVAR FLY-IN-TRUNK=1
+	.GVAR J-ON-RAFT=0
+	.GVAR MAP-ELEMENT-WIDTH=0
+	.GVAR BEEN-IN-FR-UPPER-FLOORS=0
+	.GVAR J-SCORE=0
+	.GVAR NUMBER-TAKEN=0
+	.GVAR CLOAK-LOC=0
+	.GVAR TURNED-INTO=0
+	.GVAR P-WALK-DIR=0
+	.GVAR LARGE-VIAL-IMPRECISE=0
+	.GVAR CLOCK-HAND=0
+	.GVAR CHANGED-MAP-WARNING=0
+	.GVAR PLAIN-LOC=12
+	.GVAR F-WIN-COUNT=0
+	.GVAR LAST-PSEUDO-LOC=0,OBJECT
+	.GVAR P-CONT=0,NUMBER
+	.GVAR DIR-CNT=0
+	.GVAR NOW-PRSI=0,FLAG
+	.GVAR P-PRSI=0
+	.GVAR FLICKERING-TORCH-COUNT=0
+	.GVAR VERBOSITY=1
+	.GVAR P-DIRECTION=0,NUMBER
+	.GVAR N-S-PASSAGE-LOC=0
+	.GVAR HAND-IN-WALDO=0
+	.GVAR MAP-BOX-WIDTH=0
+	.GVAR ORACLE-USED=0
+	.GVAR LEFT-HINT-COLUMN=0,NUMBER
+	.GVAR P-CAN-UNDO=0,NUMBER
+	.GVAR LARGE-VIAL-GLOOPS=0
+	.GVAR HUNGER-COUNT=0
+	.GVAR LIT=1,OBJECT
+	.GVAR N-S-PASSAGE-DIR=0
+	.GVAR STUMP-X=0
+	.GVAR RUBBLE-SCORE=9
+	.GVAR NUT-SHOWN=0
+	.GVAR OTTO-NAME-COUNTER=0
+	.GVAR PRSO-NP=0
+	.GVAR BG-COLOR=1
+	.GVAR COLOR-NOTE=0
+	.GVAR NOTIFICATION-ON=1
+	.GVAR MOUSE-LOC-Y=0
+	.GVAR MAP-BOX-HEIGHT=0
+	.GVAR TIME-STOPPED=0
+	.GVAR SECRET-PASSAGE-DISCOVERED=0
+	.GVAR PEG-MOVE-NUMBER=0
+	.GVAR P-LEN=0,NUMBER
+	.GVAR OTLEXV=0
+	.GVAR ROOSTER-PROB=100
+	.GVAR C-INTS=60
+	.GVAR SECRET-PASSAGE-SCORE=18
+	.GVAR NOTIFICATION-WARNING=0
+	.GVAR J-INQ-SCENE=0
+	.GVAR OUBLIETTE-SCORE=20
+	.GVAR M-PTR=0,NUMBER
+	.GVAR ARMOR-TOUCH=0
+	.GVAR DESCRIBED-TANK-AS-LARGE=0
+	.GVAR PEG-PASSAGE-OPENED=0
+	.GVAR YOUR-SCORE=0
+	.GVAR ORBS-EXAMINED=0
+	.GVAR ERROR-PRIORITY=0,NUMBER
+	.GVAR PRSO=0,OBJECT
+	.GVAR DESCRIBED-TANK-AS-SMALL=0
+	.GVAR TOWER-CHANGED=0
+	.GVAR DESTINATION=0
+	.GVAR GET-HINT-ROUTINE=0
+	.GVAR SLATE-PROB=33
+	.GVAR NUMBER-OF-ITEMS=0
+	.GVAR J-DISPOSED=0
+	.GVAR TOP-HINT-LINE=0,NUMBER
+	.GVAR MOUSE-LOC-X=0
+	.GVAR MAP-TOP-LEFT-X=0
+	.GVAR CURRENT-SPLIT=0
+	.GVAR POTION-GULPS=4
+	.GVAR MAP-SPACE-WIDTH=0
+	.GVAR SECRET-PASSAGE-OPEN=0
+	.GVAR ORB-FOUND=0
+	.GVAR PROLOGUE-COUNTER=0
+	.GVAR GUESSES=0
+	.GVAR FUNNY-PAPER-PROB=20
+	.GVAR METRONOME-ON=0
+	.GVAR ROSE-NEEDS-UPDATING=0
+	.GVAR CAMEL-THIRSTY=1
+	.GVAR ORACLE-SCORE=9
+	.GVAR FILE=5
+	.GVAR MOVES=0
+	.GVAR DEMO-VERSION?=0
+	.GVAR NW-SE-PASSAGE-LOC=0
+	.GVAR BAT-SWINGS=0
+	.GVAR STEPPING-STONES-VISIBLE=0
+	.GVAR P-ERRS=0,NUMBER
+	.GVAR MAP-TOP-LEFT-Y=0
+	.GVAR NW-SE-PASSAGE-DIR=0
+	.GVAR DO-J=0
+	.GVAR PARSE-SENTENCE-ACTIVATION=0
+	.GVAR PLANT-TALKER=0
+	.GVAR P-OLEN=0,NUMBER
+	.GVAR PRSA=0
+	.GVAR P-PRSA-WORD=0
+	.GVAR MAP-ELEMENT-HEIGHT=0
+	.GVAR HINT-COUNTER=0
+	.GVAR WISHYFOO-DOOR=0
+	.GVAR LANTERN-COUNTER=500
+	.GVAR H-CHAPT-NUM=1
+	.GVAR P-PRSO=0
+	.GVAR VIAL-GIVEN=0
+	.GVAR ACTIVE-MOUSE=0
+	.GVAR YACHT-DESTINATION=0
+	.GVAR CURRENT-BORDER=0
+	.GVAR UNDER-TABLE=0
+	.GVAR SACRED-WORD-NUMBER=10
+	.GVAR SCROLL-PROB=33
+	.GVAR MID-NAME-NUM=0
+	.GVAR ARCHWAY-OPEN=1
+	.GVAR END-GAME-COUNTER=0
+	.GVAR PMEM-STORE-POINTER=PMEM-STORE
+	.GVAR SCORE=0
+	.GVAR FOX-BURP=0
+	.GVAR INQ-SCORE=25
+	.GVAR COMPASS-CHANGED=1
+	.GVAR WAND-LIFE=5
+	.GVAR J-APPEAR-PROB=0
+	.GVAR ORACLE-EXIT-NUMBER=5
+	.GVAR MAP-SPACE-HEIGHT=0
+	.GVAR DIAL-NUMBER=0
+	.GVAR PIECE-DROWNED=0
+	.GVAR SMALL-VIAL-GLOOPS=0
+	.GVAR P-WON=0
+	.GVAR HERE=BANQUET-HALL,OBJECT
+	.GVAR METRONOME-LOC=0
+	.GVAR M-LEN=0,NUMBER
+	.GVAR DB-DEPTH=0
+	.GVAR LARGE-VIAL-TAINTED=0
+	.GVAR CURRENT-REDUCTION=0
+	.GVAR QCONTEXT=0,OBJECT
+	.GVAR DIRIGIBLE-COUNTER=0
+	.GVAR CLOCKER-RUNNING=2,NUMBER
+	.GVAR NUT-OPENED=0
+	.GVAR BORDER-ON=1
+	.GVAR FOX-PROB=100
+	.GVAR VERITASSI-DOOR=0
+	.GVAR JUMP-Y=99
+	.GVAR ERROR-STRING=0,STRING
+	.GVAR FONT-Y=10
+	.GVAR P-RUNNING=0,TABLE
+	.GVAR FG-COLOR=1
+	.GVAR OPRSO=0
+	.GVAR P-NUMBER=0,NUMBER
+	.GVAR DB-DIRECTION=0
+	.GVAR EARWAX-GIVEN=0
+	.GVAR P-OFLAG=0,NUMBER
+	.GVAR FUNGUS-NUMBER=12
+	.GVAR DONT-KNOW-ABOUT-XRAY=1
+	.GVAR WINNER=PLAYER,OBJECT
+	.GVAR PRSI-NP=0
+	.GVAR HINTS-OFF=-1,NUMBER
+	.GVAR CHANGE-MAP=0
+	.GVAR OBJ-SWAP=0,FLAG
+	.GVAR PMEM-WORDS-USED=0
+	.GVAR HOLEY-SLAB=0
+	.GVAR ALLIGATOR=0
+	.GVAR STUMP-Y=0
+	.GVAR METRONOME-COUNTER=0
+	.GVAR TOWER-BEATEN=0
+	.GVAR MAP-NOTE=0
+	.GVAR VOLUME-USED=0
+	.GVAR BOTTOM-HINT-NUM=0,NUMBER
+	.GVAR DONE-DEFINE?=0
+	.GVAR JUMP-X=99
+	.GVAR AWAITING-REPLY=0
+	.GVAR P-IT-OBJECT=0,OBJECT
+	.GVAR FONT-X=7
+	.GVAR DESERT-DEATH=0
+	.GVAR NUMBER-ON-LINE=0
+	.GVAR PMEM-STORE-WORDS=PMEM-STORE-LENGTH,NUMBER
+	.GVAR OLD-HERE=0
+	.GVAR SMALL-VIAL-TAINTED=0
+	.GVAR EAR-PASSAGE-OPEN=0
+	.GVAR DB-CONTROLS-DESCRIBED=0
+	.GVAR SMALL-VIAL-IMPRECISE=0
+	.GVAR PRSI=0,OBJECT
+	.GVAR F-PLAYS=0
+	.GVAR J-CARDS=4
+	.GVAR D-BIT=0
+	.GVAR WRITING-CHANGED=0
+	.GVAR CAULDRON-MUNGED=0
+	.GVAR NUT-EATEN=0
+	.GVAR J-DISCARD-FROMP-PROB=0
+	.GVAR PIT-BOMB-LOC=0
+	.GVAR WIDTH=0
+	.GVAR FINGER-ON-STRAW=0
+	.GVAR INQ-NUMBER=0
+	.GVAR GUTTERING-TORCH-COUNT=0
+	.GVAR FLIES-EATEN=0
+	.GVAR MIRROR-SCORE=14
+	.GVAR SL-SCORE=-1
+	.GVAR PROLOGUE-NOVICE-COUNTER=1
+	.GVAR P-NOT-HERE=0,NUMBER
+	.GVAR ENCHANTED-ORB=0
+	.GVAR SECRET-ROOM-REVEALED=0
+	.GVAR PREVARICON-DOOR=0
+	.GVAR P-HER-OBJECT=0,OBJECT
+	.GVAR CONSTRUCTION-LOC=47
+	.GVAR ACTIONS=ATBL,TABLE
+	.GVAR PREACTIONS=PATBL,TABLE
+	.ENDT
+
+GLOEND::
+
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+.ALIGN	2
+
+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			;(P?PICTURE)
+	0			;(P?VALUE)
+	0			;(P?ANIMATE-ROUTINE)
+	0			;(P?WAND-TEXT)
+	0			;(P?INANIMATE-DESC)
+	0			;(P?RIDDLE)
+	0			;(P?DESCFCN)
+	5			;(P?CAPACITY)
+	0			;(P?PLURAL)
+	0			;(P?FDESC)
+	0			;(P?LDESC)
+	0			;(P?GLOBAL)
+	0			;(P?ICON)
+	0			;(P?MAP-LOC)
+	0			;(P?REGION)
+	0			;(P?TEXT)
+	5			;(P?SIZE)
+	0			;(P?OWNER)
+	0			;(P?GENERIC)
+	0			;(P?SDESC)
+	0			;(P?RESEARCH)
+	0			;(P?ADJECTIVE)
+	0			;(P?THINGS)
+	0			;(P?CONTFCN)
+	0			;(P?ADJACENT)
+	0			;(P?ACTION)
+	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 VAULT,0,FX?RLANDBIT,0,ROOMS,LOWEST-HALL,STOCK-CERTIFICATE,T?VAULT
+	.OBJECT OFFICES-NORTH,0,FX?RLANDBIT,FX?ONBIT,ROOMS,FR-OFFICES,0,T?OFFICES-NORTH
+	.OBJECT DUNGEON,0,FX?RLANDBIT,0,ROOMS,CRYPT,DUNGEON-HOLE,T?DUNGEON
+	.OBJECT DELTA-7,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-6,0,T?DELTA-7
+	.OBJECT VIEW-OF-STATUE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,FOOT-OF-STATUE,0,T?VIEW-OF-STATUE
+	.OBJECT PARLOR,0,FX?RLANDBIT,FX?ONBIT,ROOMS,DRAWBRIDGE,FISH-TANK,T?PARLOR
+	.OBJECT TOLL-PLAZA,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,CAVE-IN,BASKET,T?TOLL-PLAZA
+	.OBJECT POST-OFFICE,0,FX?RLANDBIT,FX?ONBIT,ROOMS,COURTROOM,PACKAGE,T?POST-OFFICE
+	.OBJECT COURTYARD,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,FORMAL-GARDEN,0,T?COURTYARD
+	.OBJECT DELTA-1,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,CHALET,0,T?DELTA-1
+	.OBJECT PASSAGE-STORAGE-ROOM,0,FX?RLANDBIT,0,ROOMS,VAULT,N-S-PASSAGE,T?PASSAGE-STORAGE-ROOM
+	.OBJECT NORTH-SHORE,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,WEST-SHORE,NORTH-DOCK,T?NORTH-SHORE
+	.OBJECT THEATRE,0,FX?RLANDBIT,FX?ONBIT,ROOMS,CONDUCTOR-PIT,0,T?THEATRE
+	.OBJECT G-U-SAVANNAH,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,G-U-WOODS,UNICORNS,T?G-U-SAVANNAH
+	.OBJECT DELTA-3,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-2,0,T?DELTA-3
+	.OBJECT TORCH-ROOM,0,FX?RLANDBIT,FX?ONBIT,ROOMS,PARLOR,GUTTERING-TORCH,T?TORCH-ROOM
+	.OBJECT ORACLE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,WISHYFOO-TERRITORY,DEPRESSION,T?ORACLE
+	.OBJECT SOUTH-OF-MIRROR,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,NORTH-OF-MIRROR,0,T?SOUTH-OF-MIRROR
+	.OBJECT KITCHEN,0,FX?RLANDBIT,FX?ONBIT,ROOMS,BANQUET-HALL,0,T?KITCHEN
+	.OBJECT BALCONY,0,FX?RLANDBIT,FX?ONBIT,ROOMS,COURTYARD,0,T?BALCONY
+	.OBJECT UPPER-BARBICAN,0,FX?RLANDBIT,FX?ONBIT,ROOMS,BARBICAN,WHEEL,T?UPPER-BARBICAN
+	.OBJECT SHOULDER,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,HANGING-FROM-ROOTS,0,T?SHOULDER
+	.OBJECT COURTROOM,0,FX?RLANDBIT,FX?ONBIT,ROOMS,VILLAGE-CENTER,0,T?COURTROOM
+	.OBJECT G-U-DESERT,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,RING-OF-DUNES,0,T?G-U-DESERT
+	.OBJECT TOP-OF-STAIR,0,FX?RLANDBIT,0,ROOMS,PARAPET,0,T?TOP-OF-STAIR
+	.OBJECT FR-OFFICES,0,FX?RLANDBIT,FX?ONBIT,ROOMS,FR-HQ,0,T?FR-OFFICES
+	.OBJECT WINDBLOWN-SANDS,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,G-U-DESERT,0,T?WINDBLOWN-SANDS
+	.OBJECT DESERT-PLAIN,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,CACTUS-PATCH,0,T?DESERT-PLAIN
+	.OBJECT EAST-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,STEAM-BATH,0,T?EAST-HALL
+	.OBJECT OUTER-BAILEY,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,LIBRARY,TREE-STUMP,T?OUTER-BAILEY
+	.OBJECT PARAPET,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,BASTION,MACHICOLATION,T?PARAPET
+	.OBJECT AMONGST-THE-CLOUDS,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,TIMBERLINE,0,T?AMONGST-THE-CLOUDS
+	.OBJECT TIGHT-SQUEEZE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,FISSURE-EDGE,0,T?TIGHT-SQUEEZE
+	.OBJECT CRAG,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,ORACLE,CRAG-REBUS-BUTTON,T?CRAG
+	.OBJECT MAGIC-SHOP,0,FX?RLANDBIT,FX?ONBIT,ROOMS,BACK-ALLEY,RING,T?MAGIC-SHOP
+	.OBJECT PITS,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,PASSAGE-STORAGE-ROOM,LANTERN,T?PITS
+	.OBJECT GUMBOZ-SHACK,FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,OUTSIDE-SHACK,SMALL-VIAL,T?GUMBOZ-SHACK
+	.OBJECT ROOT-CELLAR,0,FX?RLANDBIT,FX?ONBIT,ROOMS,SCULLERY,0,T?ROOT-CELLAR
+	.OBJECT RING-OF-DUNES,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,EDGE-OF-DESERT,CAMEL,T?RING-OF-DUNES
+	.OBJECT CELL,0,FX?RLANDBIT,0,ROOMS,OUBLIETTE,COBWEBS,T?CELL
+	.OBJECT CAVE-IN,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,CROSSROADS,0,T?CAVE-IN
+	.OBJECT MIRROR-LAKE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,GLACIER,REFLECTION,T?MIRROR-LAKE
+	.OBJECT GROTTO,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,G-U-MOUNTAIN,GROTTO-REBUS-BUTTON,T?GROTTO
+	.OBJECT NORTH-OF-MIRROR,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,WEST-OF-MIRROR,0,T?NORTH-OF-MIRROR
+	.OBJECT BASTION,0,FX?RLANDBIT,FX?ONBIT,ROOMS,CLOTHES-CLOSET,0,T?BASTION
+	.OBJECT TALL-DUNES,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,DESERT-PLAIN,0,T?TALL-DUNES
+	.OBJECT GLACIER,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,LOWER-LEDGE,0,T?GLACIER
+	.OBJECT PRECIPICE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,CLIFF-BOTTOM,0,T?PRECIPICE
+	.OBJECT JESTERS-QUARTERS,0,FX?RLANDBIT,0,ROOMS,CONSTRUCTION,0,T?JESTERS-QUARTERS
+	.OBJECT WEST-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,TORTURE-CHAMBER,0,T?WEST-HALL
+	.OBJECT WEST-OF-HOUSE,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,PERIMETER-WALL,0,T?WEST-OF-HOUSE
+	.OBJECT LOWER-HALL,0,FX?RLANDBIT,0,ROOMS,CHAPEL,0,T?LOWER-HALL
+	.OBJECT INNER-EAR,0,FX?OUTSIDEBIT+FX?RLANDBIT,0,ROOMS,EAR,EARWAX,T?INNER-EAR
+	.OBJECT CRAWL,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,HEART-OF-MINE,CRAWL-REBUS-BUTTON,T?CRAWL
+	.OBJECT DIRIGIBLE-HANGAR,0,FX?RLANDBIT,FX?ONBIT,ROOMS,PYRAMID-L,DIRIGIBLE,T?DIRIGIBLE-HANGAR
+	.OBJECT OFFICES-WEST,0,FX?RLANDBIT,FX?ONBIT,ROOMS,OFFICES-EAST,0,T?OFFICES-WEST
+	.OBJECT PYRAMID-L,0,FX?RLANDBIT,0,ROOMS,PYRAMID-R,CUP,T?PYRAMID-L
+	.OBJECT TEE,0,FX?RLANDBIT,0,ROOMS,SECRET-PASSAGE,0,T?TEE
+	.OBJECT ENCHANTED-CAVE,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,NATURAL-ARCH,FLOWER,T?ENCHANTED-CAVE
+	.OBJECT GUEST-ROOMS,0,FX?RLANDBIT,FX?ONBIT,ROOMS,EAST-WING,WAND,T?GUEST-ROOMS
+	.OBJECT TAX-OFFICE,0,FX?RLANDBIT,FX?ONBIT,ROOMS,CHURCH,0,T?TAX-OFFICE
+	.OBJECT G-U-WOODS,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,BATS-LAIR,FOX,T?G-U-WOODS
+	.OBJECT FOOT-OF-STATUE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,OCEANS-EDGE,0,T?FOOT-OF-STATUE
+	.OBJECT PHIL-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,OASIS,CONDUCTOR-STAND,T?PHIL-HALL
+	.OBJECT KENNELS,0,FX?RLANDBIT,0,ROOMS,TESTING-ROOM,TOBOGGAN,T?KENNELS
+	.OBJECT UNDERWATER,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,LAKE-FLATHEAD,0,T?UNDERWATER
+	.OBJECT MARSH,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,SECRET-ROOM,0,T?MARSH
+	.OBJECT OUBLIETTE,0,FX?RLANDBIT,0,ROOMS,DUNGEON,SEAMANS-CAP,T?OUBLIETTE
+	.OBJECT FR-HQ,0,FX?RLANDBIT,FX?ONBIT,ROOMS,POST-OFFICE,0,T?FR-HQ
+	.OBJECT RIVERS-END,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-7,FRIGID-RIVER,T?RIVERS-END
+	.OBJECT BACK-ALLEY,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,FR-BASEMENT,0,T?BACK-ALLEY
+	.OBJECT FISHING-VILLAGE,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,SALTY-SMELL,0,T?FISHING-VILLAGE
+	.OBJECT HOTHOUSE,0,FX?RLANDBIT,FX?ONBIT,ROOMS,NICE-LUNCH-SPOT,0,T?HOTHOUSE
+	.OBJECT HANGING-FROM-ROOTS,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,UNDER-THE-WORLD,0,T?HANGING-FROM-ROOTS
+	.OBJECT MOUTH-OF-CAVE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,LEDGE-IN-PIT,0,T?MOUTH-OF-CAVE
+	.OBJECT WINE-CELLAR,0,FX?RLANDBIT,FX?ONBIT,ROOMS,ROOT-CELLAR,0,T?WINE-CELLAR
+	.OBJECT PERIMETER-WALL,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,OUTER-BAILEY,OUTER-GATE,T?PERIMETER-WALL
+	.OBJECT WHARF,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,INQUISITION,0,T?WHARF
+	.OBJECT ROYAL-ZOO,0,FX?RLANDBIT,0,ROOMS,KENNELS,CAGE,T?ROYAL-ZOO
+	.OBJECT RUINED-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,DESERTED-CASTLE,VASE,T?RUINED-HALL
+	.OBJECT SANDBAR,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,CASINO,0,T?SANDBAR
+	.OBJECT ROOM-OF-THREE-DOORS,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,WARNING-ROOM,CENTER-DOOR,T?ROOM-OF-THREE-DOORS
+	.OBJECT OCEANS-EDGE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,RIVERS-END,0,T?OCEANS-EDGE
+	.OBJECT FIELD-OFFICE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,PLAIN,BLUEPRINT,T?FIELD-OFFICE
+	.OBJECT ROOF,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,CLOSET,0,T?ROOF
+	.OBJECT DEAD-END,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,CRAWL,QUILL-PEN,T?DEAD-END
+	.OBJECT CHAPEL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,SERVANTS-QUARTERS,CHAPEL-ALTAR,T?CHAPEL
+	.OBJECT UNDER-THE-WORLD,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,TOP-OF-WELL,0,T?UNDER-THE-WORLD
+	.OBJECT BATS-LAIR,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,SHRINE,0,T?BATS-LAIR
+	.OBJECT STREAM,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,G-U-SAVANNAH,DIPLOMA,T?STREAM
+	.OBJECT CAUSEWAY,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,INNER-BAILEY,0,T?CAUSEWAY
+	.OBJECT KORBOZ-HOVEL,FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,OUTSIDE-HOVEL,0,T?KORBOZ-HOVEL
+	.OBJECT BEND,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,GARRISON,0,T?BEND
+	.OBJECT CONDUCTOR-PIT,0,FX?RLANDBIT,0,ROOMS,PHIL-HALL,VIOLIN,T?CONDUCTOR-PIT
+	.OBJECT EAST-OF-MIRROR,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,MIRROR-LAKE,0,T?EAST-OF-MIRROR
+	.OBJECT RIPPLED-SANDS,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,TALL-DUNES,0,T?RIPPLED-SANDS
+	.OBJECT HOLD,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,SOUTH-SHORE,WALDO,T?HOLD
+	.OBJECT EAR,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,SHOULDER,EAR-FUNGUS,T?EAR
+	.OBJECT SCULLERY,0,FX?RLANDBIT,FX?ONBIT,ROOMS,KITCHEN,0,T?SCULLERY
+	.OBJECT EDGE-OF-DESERT,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,STREAM,0,T?EDGE-OF-DESERT
+	.OBJECT CRYPT,0,FX?RLANDBIT,0,ROOMS,OUTSIDE-CRYPT,NEWEST-SLAB,T?CRYPT
+	.OBJECT GONDOLA,0,FX?RLANDBIT,FX?ONBIT,ROOMS,DIRIGIBLE-HANGAR,RIGHT-GONDOLA-BUTTON,T?GONDOLA
+	.OBJECT BOTTOM-OF-STAIR,0,FX?RLANDBIT,0,ROOMS,TOP-OF-STAIR,0,T?BOTTOM-OF-STAIR
+	.OBJECT CHURCH,0,FX?RLANDBIT,FX?ONBIT,ROOMS,SHADY-PARK,TENET,T?CHURCH
+	.OBJECT GREAT-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,WINE-CELLAR,0,T?GREAT-HALL
+	.OBJECT FR-PENTHOUSE,0,FX?RLANDBIT,FX?ONBIT,ROOMS,OFFICES-SOUTH,0,T?FR-PENTHOUSE
+	.OBJECT EDGE-OF-BOG,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,NORTH-OF-ANTHAR,0,T?EDGE-OF-BOG
+	.OBJECT GALLERY,0,FX?RLANDBIT,FX?ONBIT,ROOMS,BALCONY,DIMWIT-PORTRAIT,T?GALLERY
+	.OBJECT SERVANTS-QUARTERS,0,FX?RLANDBIT,0,ROOMS,GUEST-ROOMS,0,T?SERVANTS-QUARTERS
+	.OBJECT OUTSIDE-HOVEL,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,QUARRY,0,T?OUTSIDE-HOVEL
+	.OBJECT GARRISON,0,FX?RLANDBIT,FX?ONBIT,ROOMS,WEST-OF-HOUSE,LOCKER,T?GARRISON
+	.OBJECT DELTA-4,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-3,0,T?DELTA-4
+	.OBJECT HEART-OF-MINE,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,RUBBLE-ROOM,0,T?HEART-OF-MINE
+	.OBJECT AERIE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,PRECIPICE,NEST,T?AERIE
+	.OBJECT CLOTHES-CLOSET,0,FX?RLANDBIT,0,ROOMS,DIMWITS-ROOM,GLOVE,T?CLOTHES-CLOSET
+	.OBJECT BANQUET-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,0,TABLES,T?BANQUET-HALL
+	.OBJECT EAST-SHORE,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,NORTH-SHORE,EAST-DOCK,T?EAST-SHORE
+	.OBJECT DELTA-6,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-5,SMALL-LILY-PAD,T?DELTA-6
+	.OBJECT OUTSIDE-SHACK,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,CAIRN,0,T?OUTSIDE-SHACK
+	.OBJECT AVALANCHE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,ZORBEL-PASS,0,T?AVALANCHE
+	.OBJECT FORK,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,REST-STOP,0,T?FORK
+	.OBJECT OASIS,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,RIPPLED-SANDS,OASIS-OBJECT,T?OASIS
+	.OBJECT ON-TOP-OF-THE-WORLD,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,AMONGST-THE-CLOUDS,TOE-FUNGUS,T?ON-TOP-OF-THE-WORLD
+	.OBJECT LIBRARY,0,FX?RLANDBIT,FX?ONBIT,ROOMS,INNER-EAR,ARMOR,T?LIBRARY
+	.OBJECT CROSSROADS,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,EXIT,0,T?CROSSROADS
+	.OBJECT LOWEST-HALL,0,FX?RLANDBIT,0,ROOMS,ROYAL-ZOO,DIAL,T?LOWEST-HALL
+	.OBJECT QUARRYS-EDGE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,GUMBOZ-SHACK,0,T?QUARRYS-EDGE
+	.OBJECT DONJON,0,FX?RLANDBIT,0,ROOMS,FOREBLDG,0,T?DONJON
+	.OBJECT LABORATORY,0,FX?RLANDBIT,0,ROOMS,LOWER-HALL,SCREWDRIVER,T?LABORATORY
+	.OBJECT GAMING-ROOM,0,FX?RLANDBIT,FX?ONBIT,ROOMS,PEG-ROOM,0,T?GAMING-ROOM
+	.OBJECT WEST-SHORE,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,MAGIC-SHOP,YACHT,T?WEST-SHORE
+	.OBJECT LAKE-BOTTOM,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,UNDERWATER,LAKE-BOTTOM-FISH,T?LAKE-BOTTOM
+	.OBJECT TORTURE-CHAMBER,0,FX?RLANDBIT,0,ROOMS,CELL,SNAKE-PIT,T?TORTURE-CHAMBER
+	.OBJECT SECRET-ROOM,0,FX?RLANDBIT,0,ROOMS,RUINED-HALL,LADDER,T?SECRET-ROOM
+	.OBJECT DELTA-2,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-1,0,T?DELTA-2
+	.OBJECT G-U-HIGHWAY,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,THEATRE,0,T?G-U-HIGHWAY
+	.OBJECT QUARRY,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,QUARRYS-EDGE,0,T?QUARRY
+	.OBJECT FORMAL-GARDEN,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,TORCH-ROOM,FLAMINGO,T?FORMAL-GARDEN
+	.OBJECT REST-STOP,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,POTHOLES,0,T?REST-STOP
+	.OBJECT LEDGE-IN-PIT,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,PITS,0,T?LEDGE-IN-PIT
+	.OBJECT FISSURE-EDGE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,TOLL-PLAZA,0,T?FISSURE-EDGE
+	.OBJECT HOLLOW,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,CRAG,BIRCH,T?HOLLOW
+	.OBJECT LOWER-LEDGE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,UPPER-LEDGE,EASLE,T?LOWER-LEDGE
+	.OBJECT SHADY-PARK,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,VILLAGE-GATE,MIGHTY-ELM,T?SHADY-PARK
+	.OBJECT COAST-ROAD,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,MINE-ENTRANCE,0,T?COAST-ROAD
+	.OBJECT EAST-WING,0,FX?RLANDBIT,FX?ONBIT,ROOMS,EAST-HALL,0,T?EAST-WING
+	.OBJECT BARBICAN,0,FX?RLANDBIT,FX?ONBIT,ROOMS,CAUSEWAY,0,T?BARBICAN
+	.OBJECT RUBBLE-ROOM,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,ICKY-CAVE,0,T?RUBBLE-ROOM
+	.OBJECT WARNING-ROOM,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,QUILBOZZA-BEACH,0,T?WARNING-ROOM
+	.OBJECT OUTSIDE-CRYPT,0,FX?RLANDBIT,0,ROOMS,BOTTOM-OF-STAIR,0,T?OUTSIDE-CRYPT
+	.OBJECT WEST-WING,0,FX?RLANDBIT,FX?ONBIT,ROOMS,WEST-HALL,0,T?WEST-WING
+	.OBJECT SHRINE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,GROTTO,BOWL,T?SHRINE
+	.OBJECT CLOSET,0,FX?RLANDBIT,FX?ONBIT,ROOMS,GALLERY,BAG,T?CLOSET
+	.OBJECT FISHY-ODOR,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,FORK,0,T?FISHY-ODOR
+	.OBJECT ORB-ROOM,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,TIGHT-SQUEEZE,GLITTERY-ORB,T?ORB-ROOM
+	.OBJECT CLIFF-BOTTOM,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,EDGE-OF-BOG,0,T?CLIFF-BOTTOM
+	.OBJECT SLOPING-CAVE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,MOUTH-OF-CAVE,0,T?SLOPING-CAVE
+	.OBJECT OFFICES-SOUTH,0,FX?RLANDBIT,FX?ONBIT,ROOMS,OFFICES-WEST,0,T?OFFICES-SOUTH
+	.OBJECT ICKY-CAVE,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,AERIE,0,T?ICKY-CAVE
+	.OBJECT ATTIC,FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,MEGABOZ-HUT,TRUNK,T?ATTIC
+	.OBJECT MINE-ENTRANCE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,ON-TOP-OF-THE-WORLD,0,T?MINE-ENTRANCE
+	.OBJECT DESERTED-CASTLE,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,SMALLER-HANGAR,0,T?DESERTED-CASTLE
+	.OBJECT CONSTRUCTION,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,FIELD-OFFICE,0,T?CONSTRUCTION
+	.OBJECT OFFICES-EAST,0,FX?RLANDBIT,FX?ONBIT,ROOMS,OFFICES-NORTH,0,T?OFFICES-EAST
+	.OBJECT STEAM-BATH,0,FX?RLANDBIT,FX?ONBIT,ROOMS,GYM,0,T?STEAM-BATH
+	.OBJECT WEIRD,0,FX?RLANDBIT,0,ROOMS,JESTERS-QUARTERS,0,T?WEIRD
+	.OBJECT FLATHEAD-STADIUM,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,COAST-ROAD,BAT,T?FLATHEAD-STADIUM
+	.OBJECT BASE-OF-MOUNTAINS,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,KORBOZ-HOVEL,0,T?BASE-OF-MOUNTAINS
+	.OBJECT VILLAGE-GATE,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,BEND,UNGNARLED-ELM,T?VILLAGE-GATE
+	.OBJECT ENTRANCE-HALL,0,FX?RLANDBIT,FX?ONBIT,ROOMS,GREAT-HALL,DOORBELL,T?ENTRANCE-HALL
+	.OBJECT OUTSIDE-HUT,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,VIEW-OF-STATUE,0,T?OUTSIDE-HUT
+	.OBJECT CACTUS-PATCH,FX?UNDERGROUNDBIT+FX?DESERTBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,WINDBLOWN-SANDS,CACTI,T?CACTUS-PATCH
+	.OBJECT PYRAMID-R,0,FX?RLANDBIT,0,ROOMS,PYRAMID,MANUSCRIPT,T?PYRAMID-R
+	.OBJECT SOLAR,0,FX?RLANDBIT,FX?ONBIT,ROOMS,DONJON,EAST-KEY,T?SOLAR
+	.OBJECT CAIRN,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,ATTIC,CAIRN-OBJECT,T?CAIRN
+	.OBJECT POTHOLES,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,ORB-ROOM,0,T?POTHOLES
+	.OBJECT INQUISITION,0,FX?RLANDBIT,FX?ONBIT,ROOMS,FISHING-VILLAGE,EXECUTIONER,T?INQUISITION
+	.OBJECT DIMWITS-ROOM,0,FX?RLANDBIT,0,ROOMS,SOLAR,DIMWITS-BED,T?DIMWITS-ROOM
+	.OBJECT G-U-MOUNTAIN,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,STABLE,AMULET,T?G-U-MOUNTAIN
+	.OBJECT PEG-ROOM,0,FX?RLANDBIT,FX?ONBIT,ROOMS,WEST-WING,SET-OF-INSTRUCTIONS,T?PEG-ROOM
+	.OBJECT WISHYFOO-TERRITORY,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,ROOM-OF-THREE-DOORS,SHOVEL,T?WISHYFOO-TERRITORY
+	.OBJECT DRAWBRIDGE,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,UPPER-BARBICAN,0,T?DRAWBRIDGE
+	.OBJECT PLAIN,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DEAD-END,0,T?PLAIN
+	.OBJECT SECRET-PASSAGE,0,FX?RLANDBIT,0,ROOMS,THRONE-ROOM,CANDLE,T?SECRET-PASSAGE
+	.OBJECT LAKE-FLATHEAD,FX?WATERBIT+FX?NARTICLEBIT+FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,HOLD,0,T?LAKE-FLATHEAD
+	.OBJECT CHALET,FX?BEYONDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,SOUTH-OF-MIRROR,SCALE-MODEL,T?CHALET
+	.OBJECT TESTING-ROOM,0,FX?RLANDBIT,0,ROOMS,LABORATORY,RIGHT-BOOTH,T?TESTING-ROOM
+	.OBJECT PYRAMID,0,FX?RLANDBIT,0,ROOMS,WEIRD,CRATE,T?PYRAMID
+	.OBJECT STABLE,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,BASE-OF-MOUNTAIN,ROOSTER,T?STABLE
+	.OBJECT SMALLER-HANGAR,0,FX?RLANDBIT,FX?ONBIT,ROOMS,GONDOLA,0,T?SMALLER-HANGAR
+	.OBJECT MEGABOZ-HUT,FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,OUTSIDE-HUT,WALL-HANGINGS,T?MEGABOZ-HUT
+	.OBJECT GYM,0,FX?RLANDBIT,FX?ONBIT,ROOMS,GAMING-ROOM,DUMBBELL,T?GYM
+	.OBJECT TIMBERLINE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,AVALANCHE,0,T?TIMBERLINE
+	.OBJECT THRONE-ROOM,0,FX?RLANDBIT,FX?ONBIT,ROOMS,AUDIENCE-CHAMBER,SMALL-THRONE,T?THRONE-ROOM
+	.OBJECT NICE-LUNCH-SPOT,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,MARSH,0,T?NICE-LUNCH-SPOT
+	.OBJECT EXIT,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,G-U-HIGHWAY,0,T?EXIT
+	.OBJECT CASINO,0,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF,CARD-TABLE,T?CASINO
+	.OBJECT WEST-OF-MIRROR,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,EAST-OF-MIRROR,0,T?WEST-OF-MIRROR
+	.OBJECT FR-BASEMENT,0,FX?RLANDBIT,0,ROOMS,FR-PENTHOUSE,BASEMENT-REBUS-BUTTON,T?FR-BASEMENT
+	.OBJECT IRON-MINE,FX?UNDERGROUNDBIT+FX?BEYONDBIT,FX?RLANDBIT,0,ROOMS,HOLLOW,SAPPHIRE,T?IRON-MINE
+	.OBJECT NATURAL-ARCH,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,IRON-MINE,NATURAL-ARCH-OBJECT,T?NATURAL-ARCH
+	.OBJECT FOOTHILLS,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,BASE-OF-MOUNTAINS,0,T?FOOTHILLS
+	.OBJECT ZORBEL-PASS,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,FOOTHILLS,0,T?ZORBEL-PASS
+	.OBJECT TOP-OF-WELL,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,SLOPING-CAVE,0,T?TOP-OF-WELL
+	.OBJECT BASE-OF-MOUNTAIN,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,LAKE-BOTTOM,0,T?BASE-OF-MOUNTAIN
+	.OBJECT SOUTH-SHORE,FX?UNDERGROUNDBIT,FX?RLANDBIT,FX?ONBIT,ROOMS,EAST-SHORE,SOUTH-DOCK,T?SOUTH-SHORE
+	.OBJECT UPPER-LEDGE,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,ENCHANTED-CAVE,SPIRE,T?UPPER-LEDGE
+	.OBJECT SALTY-SMELL,FX?UNDERGROUNDBIT,FX?RLANDBIT,0,ROOMS,FISHY-ODOR,0,T?SALTY-SMELL
+	.OBJECT NORTH-OF-ANTHAR,FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,FLATHEAD-STADIUM,0,T?NORTH-OF-ANTHAR
+	.OBJECT FOREBLDG,0,FX?RLANDBIT,0,ROOMS,TEE,0,T?FOREBLDG
+	.OBJECT AUDIENCE-CHAMBER,0,FX?RLANDBIT,FX?ONBIT,ROOMS,ROOF,LARGE-THRONE,T?AUDIENCE-CHAMBER
+	.OBJECT QUILBOZZA-BEACH,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,SANDBAR,0,T?QUILBOZZA-BEACH
+	.OBJECT VILLAGE-CENTER,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,TAX-OFFICE,STONE-TOADS,T?VILLAGE-CENTER
+	.OBJECT DELTA-5,FX?DELTABIT+FX?BEYONDBIT,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,DELTA-4,0,T?DELTA-5
+	.OBJECT INNER-BAILEY,0,FX?OUTSIDEBIT+FX?RLANDBIT,FX?ONBIT,ROOMS,ENTRANCE-HALL,SMALL-ELM,T?INNER-BAILEY
+	.OBJECT CANNONBALL,0,0,FX?TAKEBIT,UPPER-BARBICAN,0,0,T?CANNONBALL
+	.OBJECT VAULT-DOOR,0,FX?LOCKEDBIT,FX?DOORBIT,LOCAL-GLOBALS,EAST-DOOR,0,T?VAULT-DOOR
+	.OBJECT WEST-DOCK,0,FX?SURFACEBIT+FX?SEARCHBIT+FX?DROPBIT+FX?NDESCBIT,FX?CONTBIT+FX?OPENBIT+FX?VEHBIT,WEST-SHORE,0,0,T?WEST-DOCK
+	.OBJECT BLACK-KING-ROBE,0,FX?NDESCBIT,0,BLACK-KING,0,0,T?BLACK-KING-ROBE
+	.OBJECT REBUS-SNAKE,0,FX?NDESCBIT,0,REBUS,REBUS-MOUSE,0,T?REBUS-SNAKE
+	.OBJECT GRAY-MOUNTAINS,0,0,0,LOCAL-GLOBALS,FJORD,0,T?GRAY-MOUNTAINS
+	.OBJECT HANDS,FX?PLURALBIT,FX?PARTBIT+FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,WATER,0,T?HANDS
+	.OBJECT CAGE,0,FX?TRANSBIT+FX?SEARCHBIT,FX?CONTBIT,ROYAL-ZOO,0,SNAKE,T?CAGE
+	.OBJECT TOLL-BOOTH,0,FX?NDESCBIT,0,TOLL-PLAZA,0,0,T?TOLL-BOOTH
+	.OBJECT DIAL,0,FX?NDESCBIT,0,LOWEST-HALL,0,0,T?DIAL
+	.OBJECT REBUS-FISH,0,FX?NDESCBIT,0,REBUS,REBUS-GOOSE,0,T?REBUS-FISH
+	.OBJECT LEFT-BOOTH-BUTTON,0,FX?NDESCBIT,0,LEFT-BOOTH,0,0,T?LEFT-BOOTH-BUTTON
+	.OBJECT EAST-DOCK,0,FX?SURFACEBIT+FX?SEARCHBIT+FX?DROPBIT+FX?NDESCBIT,FX?CONTBIT+FX?OPENBIT+FX?VEHBIT,EAST-SHORE,0,0,T?EAST-DOCK
+	.OBJECT GLOBAL-BLDG,0,0,0,LOCAL-GLOBALS,SLIME,0,T?GLOBAL-BLDG
+	.OBJECT TOBOGGAN,0,FX?SURFACEBIT+FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT+FX?READBIT+FX?TAKEBIT,KENNELS,0,0,T?TOBOGGAN
+	.OBJECT QUILL-PEN,FX?MAGICBIT,0,FX?TAKEBIT,DEAD-END,0,0,T?QUILL-PEN
+	.OBJECT GLOBAL-PASSAGE,0,0,0,GLOBAL-OBJECTS,WALL,0,T?GLOBAL-PASSAGE
+	.OBJECT WINDOW,0,FX?NDESCBIT,0,LOCAL-GLOBALS,ARCH,0,T?WINDOW
+	.OBJECT LEFT-DOOR,0,FX?NDESCBIT,FX?DOORBIT,ROOM-OF-THREE-DOORS,0,0,T?LEFT-DOOR
+	.OBJECT PRICKLY-WITCH,FX?ANIMATEDBIT,FX?NDESCBIT+FX?FEMALEBIT,FX?ACTORBIT,0,0,0,T?PRICKLY-WITCH
+	.OBJECT LAKE-BOTTOM-FISH,0,FX?NDESCBIT,0,LAKE-BOTTOM,RUBY,0,T?LAKE-BOTTOM-FISH
+	.OBJECT INTQUOTE,0,0,0,GLOBAL-OBJECTS,INTDIR,0,T?INTQUOTE
+	.OBJECT NOTICE,0,0,FX?READBIT+FX?BURNBIT+FX?TAKEBIT,0,0,0,T?NOTICE
+	.OBJECT SICKLY-WITCH,FX?ANIMATEDBIT,FX?FEMALEBIT,FX?ACTORBIT,0,0,0,T?SICKLY-WITCH
+	.OBJECT TRIPLET,0,0,0,GLOBAL-OBJECTS,LETTER-Y,0,T?TRIPLET
+	.OBJECT PBOZ-OBJECT,0,0,0,GLOBAL-OBJECTS,TRIPLET,0,T?PBOZ-OBJECT
+	.OBJECT FEET,FX?PLURALBIT,FX?PARTBIT+FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,HANDS,0,T?FEET
+	.OBJECT ROC-TERIYAKI,0,0,FX?TAKEBIT,0,0,0,T?ROC-TERIYAKI
+	.OBJECT RIGHT-DOOR,0,FX?NDESCBIT,FX?DOORBIT,ROOM-OF-THREE-DOORS,LEFT-DOOR,0,T?RIGHT-DOOR
+	.OBJECT CRAWL-REBUS-BUTTON,0,0,0,CRAWL,0,0,T?CRAWL-REBUS-BUTTON
+	.OBJECT LIQUID,0,FX?NDESCBIT,0,FLASK,0,0,T?LIQUID
+	.OBJECT WAND,0,0,FX?READBIT+FX?TAKEBIT,GUEST-ROOMS,0,0,T?WAND
+	.OBJECT ATTIC-REBUS-BUTTON,0,0,0,ATTIC,0,0,T?ATTIC-REBUS-BUTTON
+	.OBJECT WHITE-KING,FX?WHITEBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,WHITE-KING-ROBE,T?WHITE-KING
+	.OBJECT TOE-FUNGUS,FX?PLANTBIT,FX?NDESCBIT,0,ON-TOP-OF-THE-WORLD,0,0,T?TOE-FUNGUS
+	.OBJECT BLACK-KING-CROWN,0,FX?NDESCBIT,0,BLACK-KING,BLACK-KING-ROBE,0,T?BLACK-KING-CROWN
+	.OBJECT DIMWIT,FX?NARTICLEBIT,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,BANQUET-HALL,PROTAGONIST,CROWN,T?DIMWIT
+	.OBJECT ME,FX?NARTICLEBIT,0,FX?TOUCHBIT,GLOBAL-OBJECTS,MOUTH,0,T?ME
+	.OBJECT CLOSET-REBUS-BUTTON,0,0,0,CLOSET,0,0,T?CLOSET-REBUS-BUTTON
+	.OBJECT T-OF-B,0,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT,0,0,RIGHT-PEG,T?T-OF-B
+	.OBJECT GUTTERING-TORCH,0,FX?FLAMEBIT+FX?TRYTAKEBIT,FX?ONBIT+FX?TAKEBIT,TORCH-ROOM,MUTTERING-TORCH,0,T?GUTTERING-TORCH
+	.OBJECT PARCHMENT,0,FX?NDESCBIT,FX?BURNBIT+FX?TAKEBIT+FX?READBIT,0,0,0,T?PARCHMENT
+	.OBJECT T-SQUARE,FX?MAGICBIT,0,FX?TAKEBIT,0,0,0,T?T-SQUARE
+	.OBJECT SPENSEWEED,FX?PLANTBIT,FX?TRYTAKEBIT,0,FISH-TANK,0,0,T?SPENSEWEED
+	.OBJECT J-PIERPONT-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,STONEWALL-PORTRAIT,0,T?J-PIERPONT-PORTRAIT
+	.OBJECT LULLABY,0,0,0,GLOBAL-OBJECTS,GLOBAL-SLEEP,0,T?LULLABY
+	.OBJECT FIXED-LADDER,0,0,0,LOCAL-GLOBALS,STAIRS,0,T?FIXED-LADDER
+	.OBJECT WHITE-KNIGHT,FX?WHITEBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?WHITE-KNIGHT
+	.OBJECT DIMWIT-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,J-PIERPONT-PORTRAIT,0,T?DIMWIT-PORTRAIT
+	.OBJECT ALTAR,0,FX?SEARCHBIT+FX?SURFACEBIT+FX?VOWELBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,ENCHANTED-CAVE,STATUE,0,T?ALTAR
+	.OBJECT 1-WEIGHT,0,FX?NDESCBIT,0,CENTER-PEG,0,0,T?1-WEIGHT
+	.OBJECT STREAM-OBJECT,FX?WATERBIT,FX?NDESCBIT,0,STREAM,BRIDGE,0,T?STREAM-OBJECT
+	.OBJECT RUNES,FX?NARTICLEBIT,FX?NDESCBIT,FX?READBIT,HOLLOW,0,0,T?RUNES
+	.OBJECT INTDIR,0,0,0,GLOBAL-OBJECTS,0,0,T?INTDIR
+	.OBJECT DARKEST-SLAB,0,FX?NDESCBIT,0,CRYPT,DUSTIEST-SLAB,0,T?DARKEST-SLAB
+	.OBJECT LARGE-FLY,0,FX?TRYTAKEBIT,FX?TAKEBIT,LOCAL-GLOBALS,SWAMP,0,T?LARGE-FLY
+	.OBJECT ROOMS,0,0,0,0,0,HOTHOUSE,T?ROOMS
+	.OBJECT DUSTIEST-SLAB,0,FX?NDESCBIT,0,CRYPT,LONGEST-SLAB,0,T?DUSTIEST-SLAB
+	.OBJECT MURDER-HOLE,0,FX?NDESCBIT,0,UPPER-BARBICAN,CANNONBALL,0,T?MURDER-HOLE
+	.OBJECT EXTERIOR-LIGHT,0,FX?VOWELBIT+FX?NDESCBIT,FX?LIGHTBIT,DB,PORTHOLE,0,T?EXTERIOR-LIGHT
+	.OBJECT SADDLE,FX?MAGICBIT,0,FX?READBIT+FX?TAKEBIT,STABLE,0,0,T?SADDLE
+	.OBJECT SMOKY-ORB,0,FX?NDESCBIT+FX?TRYTAKEBIT,FX?TAKEBIT,ORB-ROOM,FIERY-ORB,0,T?SMOKY-ORB
+	.OBJECT SACRED-WORD-OBJ,0,0,0,0,0,0,T?SACRED-WORD-OBJ
+	.OBJECT ZORKMID-BILL,FX?MAGICBIT,0,FX?READBIT+FX?BURNBIT+FX?TAKEBIT,LOCAL-GLOBALS,SCROLL,0,T?ZORKMID-BILL
+	.OBJECT FLASK,FX?MAGICBIT,FX?SEARCHBIT+FX?TRANSBIT,FX?READBIT+FX?TAKEBIT,0,0,LIQUID,T?FLASK
+	.OBJECT BEDBUG,0,0,0,0,0,0,T?BEDBUG
+	.OBJECT GRANOLA-MINE,0,0,0,LOCAL-GLOBALS,LARGE-VIAL,0,T?GRANOLA-MINE
+	.OBJECT REBUS-GOOSE,0,FX?NDESCBIT,0,REBUS,REBUS-SNAKE,0,T?REBUS-GOOSE
+	.OBJECT LOCAL-GLOBALS,0,0,0,GLOBAL-OBJECTS,INTQUOTE,HEXAGONAL-BLOCK,T?LOCAL-GLOBALS
+	.OBJECT SLIME,FX?NARTICLEBIT,0,0,LOCAL-GLOBALS,PSEUDO-OBJECT,0,T?SLIME
+	.OBJECT HEAD,0,FX?PARTBIT,0,GLOBAL-OBJECTS,FEET,0,T?HEAD
+	.OBJECT HER,FX?NARTICLEBIT,0,FX?TOUCHBIT,GLOBAL-OBJECTS,HIM,0,T?HER
+	.OBJECT SOUTH-DOCK,0,FX?SURFACEBIT+FX?SEARCHBIT+FX?DROPBIT+FX?NDESCBIT,FX?CONTBIT+FX?OPENBIT+FX?VEHBIT,SOUTH-SHORE,0,0,T?SOUTH-DOCK
+	.OBJECT CALENDAR,0,0,FX?TAKEBIT+FX?READBIT,0,0,0,T?CALENDAR
+	.OBJECT SMALL-ELM,FX?PLANTBIT,FX?NDESCBIT,0,INNER-BAILEY,WORM,0,T?SMALL-ELM
+	.OBJECT TREASURE-CHEST,0,FX?SEARCHBIT,FX?CONTBIT+FX?TAKEBIT,LOCAL-GLOBALS,VILLAGE,0,T?TREASURE-CHEST
+	.OBJECT SMALL-VIAL-WATER,FX?NARTICLEBIT,0,0,0,0,0,T?SMALL-VIAL-WATER
+	.OBJECT WEST-KEY,0,0,FX?KEYBIT+FX?TAKEBIT,LOCKER,POSTER,0,T?WEST-KEY
+	.OBJECT MUSIC,FX?NARTICLEBIT,0,0,GLOBAL-OBJECTS,BOOKKEEPER,0,T?MUSIC
+	.OBJECT GLOBAL-SLEEP,FX?NARTICLEBIT,0,0,GLOBAL-OBJECTS,SAILOR,0,T?GLOBAL-SLEEP
+	.OBJECT GLOVE,0,0,FX?READBIT+FX?WEARBIT+FX?TAKEBIT,CLOTHES-CLOSET,CLOAK,0,T?GLOVE
+	.OBJECT BLACK-KING,FX?BLACKBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,BLACK-KING-CROWN,T?BLACK-KING
+	.OBJECT MID-NAME,0,0,0,GLOBAL-OBJECTS,LITTLE-FUNGUS,0,T?MID-NAME
+	.OBJECT WHITE-KING-CROWN,0,FX?NDESCBIT,0,WHITE-KING,0,0,T?WHITE-KING-CROWN
+	.OBJECT FLATTEST-SLAB,0,FX?NDESCBIT,0,CRYPT,0,0,T?FLATTEST-SLAB
+	.OBJECT HAND-HOLE,0,FX?NDESCBIT,0,DB,EXTERIOR-LIGHT,0,T?HAND-HOLE
+	.OBJECT MIGHTY-ELM,FX?PLANTBIT,FX?NDESCBIT,0,SHADY-PARK,0,0,T?MIGHTY-ELM
+	.OBJECT COOKPOT,0,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT,0,0,0,T?COOKPOT
+	.OBJECT STARFISH,FX?ANIMATEDBIT,0,FX?TAKEBIT,FISH-TANK,LOBSTER,0,T?STARFISH
+	.OBJECT PEGBOARD,0,FX?TRYTAKEBIT+FX?NDESCBIT,0,PEG-ROOM,0,0,T?PEGBOARD
+	.OBJECT BABE-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,PAINTINGS,0,T?BABE-PORTRAIT
+	.OBJECT GLOBAL-OBJECTS,FX?REDESCBIT+FX?UNDERGROUNDBIT+FX?NALLBIT,FX?FLAMEBIT+FX?ORBBIT+FX?DROPBIT+FX?FEMALEBIT+FX?INBIT+FX?PARTBIT+FX?NDESCBIT+FX?LOCKEDBIT+FX?VOWELBIT+FX?OUTSIDEBIT+FX?INTEGRALBIT+FX?RLANDBIT+FX?TRANSBIT+FX?SEARCHBIT+FX?TRYTAKEBIT+FX?SURFACEBIT,FX?KEYBIT+FX?BURNBIT+FX?KLUDGEBIT+FX?ACTORBIT+FX?DOORBIT+FX?CONTBIT+FX?VEHBIT+FX?WORNBIT+FX?LIGHTBIT+FX?ONBIT+FX?WEARBIT+FX?OPENBIT+FX?TOUCHBIT+FX?INVISIBLE,0,0,OTHER-J-NAMES,T?GLOBAL-OBJECTS
+	.OBJECT NUT,0,0,FX?TAKEBIT,UNOPENED-NUT,0,0,T?NUT
+	.OBJECT 2-WEIGHT,0,FX?NDESCBIT,0,CENTER-PEG,1-WEIGHT,0,T?2-WEIGHT
+	.OBJECT YELLOW-BUTTON,0,FX?NDESCBIT,0,YACHT,GREEN-BUTTON,0,T?YELLOW-BUTTON
+	.OBJECT IT,FX?NARTICLEBIT,FX?VOWELBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,INTNUM,0,T?IT
+	.OBJECT BROGMOID,0,0,0,LOCAL-GLOBALS,ROOTS,0,T?BROGMOID
+	.OBJECT LOCKER,0,FX?NDESCBIT+FX?SEARCHBIT,FX?CONTBIT,GARRISON,0,WEST-KEY,T?LOCKER
+	.OBJECT CACTI,FX?PLANTBIT,FX?NDESCBIT,0,CACTUS-PATCH,0,0,T?CACTI
+	.OBJECT SQUID-REPELLENT,0,0,FX?TAKEBIT,BOX,0,0,T?SQUID-REPELLENT
+	.OBJECT TIME-OBJECT,FX?NARTICLEBIT,0,0,GLOBAL-OBJECTS,BANQUET-FOOD,0,T?TIME-OBJECT
+	.OBJECT BOULDER,0,FX?NDESCBIT,0,G-U-MOUNTAIN,0,0,T?BOULDER
+	.OBJECT IDOL,0,FX?VOWELBIT+FX?NDESCBIT,0,SHRINE,0,0,T?IDOL
+	.OBJECT MILKY-ORB,0,FX?TRYTAKEBIT,FX?TAKEBIT,ORB-ROOM,0,0,T?MILKY-ORB
+	.OBJECT JOHN-PAUL-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,FRANK-LLOYD-PORTRAIT,0,T?JOHN-PAUL-PORTRAIT
+	.OBJECT BAT,FX?MAGICBIT,FX?TRYTAKEBIT,FX?READBIT+FX?BURNBIT+FX?TAKEBIT,FLATHEAD-STADIUM,0,0,T?BAT
+	.OBJECT OTHER-FLATHEADS,0,0,0,0,0,0,T?OTHER-FLATHEADS
+	.OBJECT CONDUCTOR-STAND,0,FX?SEARCHBIT+FX?SURFACEBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,PHIL-HALL,0,0,T?CONDUCTOR-STAND
+	.OBJECT PAINTINGS,FX?NARTICLEBIT,FX?TRYTAKEBIT+FX?NDESCBIT,0,GALLERY,REBUS,0,T?PAINTINGS
+	.OBJECT CLOAK,0,0,FX?TAKEBIT+FX?WEARBIT,CLOTHES-CLOSET,0,0,T?CLOAK
+	.OBJECT OTTO,0,FX?SEARCHBIT+FX?VOWELBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,LARGE-LILY-PAD,0,0,T?OTTO
+	.OBJECT GOGGLES,FX?PLURALBIT,FX?TRANSBIT,FX?WEARBIT+FX?TAKEBIT,PYRAMID,0,0,T?GOGGLES
+	.OBJECT DIMWITS-BED,FX?NARTICLEBIT,FX?SURFACEBIT+FX?NDESCBIT+FX?DROPBIT+FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,DIMWITS-ROOM,0,0,T?DIMWITS-BED
+	.OBJECT BASEMENT-REBUS-BUTTON,0,0,0,FR-BASEMENT,0,0,T?BASEMENT-REBUS-BUTTON
+	.OBJECT BRIDGE,0,FX?NDESCBIT+FX?VOWELBIT,0,STREAM,0,0,T?BRIDGE
+	.OBJECT OLDEST-SLAB,0,FX?NDESCBIT,0,CRYPT,DARKEST-SLAB,0,T?OLDEST-SLAB
+	.OBJECT PAN,0,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?TAKEBIT,TRUNK,0,0,T?PAN
+	.OBJECT CANDLE,0,FX?FLAMEBIT,FX?TAKEBIT+FX?ONBIT+FX?LIGHTBIT,SECRET-PASSAGE,0,0,T?CANDLE
+	.OBJECT NW-SE-PASSAGE,0,FX?TRYTAKEBIT,FX?TAKEBIT,PASSAGE-STORAGE-ROOM,0,0,T?NW-SE-PASSAGE
+	.OBJECT EARWAX,0,0,FX?TAKEBIT,INNER-EAR,0,0,T?EARWAX
+	.OBJECT SMALL-THRONE,0,FX?SEARCHBIT+FX?SURFACEBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,THRONE-ROOM,SCEPTRE,0,T?SMALL-THRONE
+	.OBJECT LOBSTER,FX?ANIMATEDBIT,FX?TRYTAKEBIT,FX?TAKEBIT,FISH-TANK,SPENSEWEED,0,T?LOBSTER
+	.OBJECT FOUR-FLIES,0,0,0,GENERIC-OBJECTS,LOCKET-MOOSE,0,T?FOUR-FLIES
+	.OBJECT HARDHAT,0,0,FX?WEARBIT+FX?TAKEBIT,0,0,0,T?HARDHAT
+	.OBJECT J-HAT,0,FX?NDESCBIT,0,JESTER,J-POCKET,0,T?J-HAT
+	.OBJECT WHEEL,0,FX?NDESCBIT,0,UPPER-BARBICAN,MURDER-HOLE,0,T?WHEEL
+	.OBJECT REBUS-SLIME-MONSTER,0,FX?NDESCBIT,0,REBUS,REBUS-FISH,0,T?REBUS-SLIME-MONSTER
+	.OBJECT FLATHEAD-MOUNTAINS,0,0,0,LOCAL-GLOBALS,BROOM,0,T?FLATHEAD-MOUNTAINS
+	.OBJECT FIERY-ORB,0,FX?NDESCBIT+FX?TRYTAKEBIT,FX?TAKEBIT,ORB-ROOM,MILKY-ORB,0,T?FIERY-ORB
+	.OBJECT FLAMINGO,FX?ANIMATEDBIT,FX?TRYTAKEBIT,FX?TAKEBIT,FORMAL-GARDEN,FLORA,0,T?FLAMINGO
+	.OBJECT PERCH,0,0,FX?READBIT+FX?TAKEBIT,PACKAGE,0,0,T?PERCH
+	.OBJECT BROOM,0,FX?TRYTAKEBIT,FX?TAKEBIT,LOCAL-GLOBALS,THOUSAND-ZORKMIDS,0,T?BROOM
+	.OBJECT CENTER-DOOR,0,FX?NDESCBIT,FX?DOORBIT,ROOM-OF-THREE-DOORS,RIGHT-DOOR,0,T?CENTER-DOOR
+	.OBJECT LADDER,0,FX?SURFACEBIT+FX?SEARCHBIT,FX?CONTBIT+FX?VEHBIT+FX?TAKEBIT,SECRET-ROOM,0,0,T?LADDER
+	.OBJECT REBUS-MOUSE,0,FX?NDESCBIT,0,REBUS,REBUS-CAMEL,0,T?REBUS-MOUSE
+	.OBJECT 3-WEIGHT,0,FX?NDESCBIT,0,CENTER-PEG,2-WEIGHT,0,T?3-WEIGHT
+	.OBJECT LEFT-RIGHT,FX?NARTICLEBIT,0,0,GLOBAL-OBJECTS,HER,0,T?LEFT-RIGHT
+	.OBJECT NORTH-DOCK,0,FX?SURFACEBIT+FX?SEARCHBIT+FX?DROPBIT+FX?NDESCBIT,FX?CONTBIT+FX?OPENBIT+FX?VEHBIT,NORTH-SHORE,0,0,T?NORTH-DOCK
+	.OBJECT J-SHOE,0,FX?NDESCBIT,0,JESTER,J-HAT,0,T?J-SHOE
+	.OBJECT DB-CONTROLS,FX?PLURALBIT+FX?NARTICLEBIT,FX?NDESCBIT,0,DB,0,0,T?DB-CONTROLS
+	.OBJECT STATUE,0,FX?NDESCBIT,0,ENCHANTED-CAVE,0,0,T?STATUE
+	.OBJECT UNOPENED-NUT,0,FX?SEARCHBIT+FX?VOWELBIT,FX?CONTBIT+FX?TAKEBIT,0,0,NUT,T?UNOPENED-NUT
+	.OBJECT ROOSTER,FX?ANIMATEDBIT,FX?TRYTAKEBIT,FX?TAKEBIT,STABLE,SADDLE,0,T?ROOSTER
+	.OBJECT RUBY,0,FX?TRYTAKEBIT,FX?READBIT+FX?TAKEBIT,LAKE-BOTTOM,0,0,T?RUBY
+	.OBJECT HARMONICA,0,0,FX?TAKEBIT,TRUNK,NOTEBOOK,0,T?HARMONICA
+	.OBJECT CHAPEL-ALTAR,0,FX?SEARCHBIT+FX?SURFACEBIT+FX?VOWELBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,CHAPEL,0,0,T?CHAPEL-ALTAR
+	.OBJECT LEONARDO-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,LUCREZIA-PORTRAIT,0,T?LEONARDO-PORTRAIT
+	.OBJECT UNICORNS,0,FX?NDESCBIT,0,G-U-SAVANNAH,0,0,T?UNICORNS
+	.OBJECT MEGABOZ,0,FX?SEARCHBIT+FX?VOWELBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,ROBE,T?MEGABOZ
+	.OBJECT FAN,FX?MAGICBIT,FX?TRYTAKEBIT,FX?TAKEBIT,0,0,0,T?FAN
+	.OBJECT SAINTS,0,FX?VOWELBIT+FX?NDESCBIT,0,0,0,0,T?SAINTS
+	.OBJECT FRANK-LLOYD-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,BABE-PORTRAIT,0,T?FRANK-LLOYD-PORTRAIT
+	.OBJECT LEFT-BOOTH,0,FX?SEARCHBIT+FX?DROPBIT+FX?INBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,TESTING-ROOM,0,LEFT-BOOTH-BUTTON,T?LEFT-BOOTH
+	.OBJECT GNARLED-ELM,FX?PLANTBIT,FX?NDESCBIT,0,VILLAGE-GATE,0,0,T?GNARLED-ELM
+	.OBJECT GLOBAL-HOLE,0,0,0,GLOBAL-OBJECTS,GROUND,0,T?GLOBAL-HOLE
+	.OBJECT SAPPHIRE,0,FX?TRYTAKEBIT,FX?TAKEBIT,IRON-MINE,0,0,T?SAPPHIRE
+	.OBJECT WATER-CHAMBER,0,FX?SEARCHBIT+FX?INBIT+FX?NDESCBIT,FX?VEHBIT+FX?CONTBIT,TORTURE-CHAMBER,IRON-MAIDEN,0,T?WATER-CHAMBER
+	.OBJECT POSTER,0,0,FX?BURNBIT+FX?TAKEBIT,LOCKER,0,0,T?POSTER
+	.OBJECT SCALE-MODEL,FX?MAGICBIT,0,FX?TAKEBIT,CHALET,0,0,T?SCALE-MODEL
+	.OBJECT AMULET,0,FX?VOWELBIT,FX?WEARBIT+FX?TAKEBIT,G-U-MOUNTAIN,BOULDER,0,T?AMULET
+	.OBJECT BOX,0,FX?SEARCHBIT,FX?READBIT+FX?CONTBIT+FX?TAKEBIT,INQUISITION,TICKET,SQUID-REPELLENT,T?BOX
+	.OBJECT RIGHT-GONDOLA-BUTTON,0,FX?NDESCBIT,0,GONDOLA,LEFT-GONDOLA-BUTTON,0,T?RIGHT-GONDOLA-BUTTON
+	.OBJECT WHITE-CASTLE,FX?WHITEBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?WHITE-CASTLE
+	.OBJECT DUNGEON-HOLE,0,FX?NDESCBIT,0,DUNGEON,0,0,T?DUNGEON-HOLE
+	.OBJECT IRON-MAIDEN,0,FX?SEARCHBIT+FX?INBIT+FX?VOWELBIT+FX?NDESCBIT,FX?VEHBIT+FX?CONTBIT,TORTURE-CHAMBER,COMFY-CHAIR,0,T?IRON-MAIDEN
+	.OBJECT LEFT-GONDOLA-BUTTON,0,FX?NDESCBIT,0,GONDOLA,GONDOLA-CONTROLS,0,T?LEFT-GONDOLA-BUTTON
+	.OBJECT JOHN-D-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,THOMAS-ALVA-PORTRAIT,0,T?JOHN-D-PORTRAIT
+	.OBJECT TREE-STUMP,0,FX?SEARCHBIT+FX?SURFACEBIT,FX?OPENBIT+FX?VEHBIT+FX?CONTBIT,OUTER-BAILEY,0,0,T?TREE-STUMP
+	.OBJECT DIPLOMA,FX?MAGICBIT,FX?NDESCBIT+FX?TRYTAKEBIT,FX?READBIT+FX?TAKEBIT,STREAM,STREAM-OBJECT,0,T?DIPLOMA
+	.OBJECT LARGE-LILY-PAD,FX?PLANTBIT,FX?SEARCHBIT+FX?SURFACEBIT,FX?OPENBIT+FX?CONTBIT,DELTA-6,0,OTTO,T?LARGE-LILY-PAD
+	.OBJECT CENTER-PEG,0,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,T-OF-B,LEFT-PEG,6-WEIGHT,T?CENTER-PEG
+	.OBJECT PACKAGE,0,FX?SEARCHBIT,FX?CONTBIT+FX?READBIT+FX?TAKEBIT,POST-OFFICE,0,PIGEON,T?PACKAGE
+	.OBJECT LARGE-THRONE,0,FX?SEARCHBIT+FX?SURFACEBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,AUDIENCE-CHAMBER,0,0,T?LARGE-THRONE
+	.OBJECT TICKET,0,FX?NDESCBIT+FX?TRYTAKEBIT,FX?BURNBIT+FX?READBIT+FX?TAKEBIT,INQUISITION,0,0,T?TICKET
+	.OBJECT HEXAGONAL-HOLE,0,FX?NDESCBIT,0,HOLLOW,RUNES,0,T?HEXAGONAL-HOLE
+	.OBJECT BANNER,0,0,0,LOCAL-GLOBALS,MOAT,0,T?BANNER
+	.OBJECT SCREWDRIVER,FX?MAGICBIT,0,FX?TAKEBIT,LABORATORY,0,0,T?SCREWDRIVER
+	.OBJECT 4-WEIGHT,0,FX?NDESCBIT,0,CENTER-PEG,3-WEIGHT,0,T?4-WEIGHT
+	.OBJECT SNAKE,FX?ANIMATEDBIT,0,FX?TAKEBIT,CAGE,0,0,T?SNAKE
+	.OBJECT WIZARD-OF-FROBOZZ,0,0,0,0,0,0,T?WIZARD-OF-FROBOZZ
+	.OBJECT BLACK-QUEEN,FX?BLACKBIT,FX?SEARCHBIT+FX?FEMALEBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?BLACK-QUEEN
+	.OBJECT BLACK-BISHOP,FX?BLACKBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?BLACK-BISHOP
+	.OBJECT WHITE-QUEEN,FX?WHITEBIT,FX?SEARCHBIT+FX?FEMALEBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?WHITE-QUEEN
+	.OBJECT COBWEBS,FX?PLURALBIT+FX?NARTICLEBIT,FX?NDESCBIT,0,CELL,GIANT-SPIDERS,0,T?COBWEBS
+	.OBJECT SNAKE-PIT,0,FX?SEARCHBIT+FX?INBIT+FX?NDESCBIT,FX?VEHBIT+FX?CONTBIT,TORTURE-CHAMBER,WATER-CHAMBER,THOUSANDS-OF-SNAKES,T?SNAKE-PIT
+	.OBJECT LEVER,0,FX?VOWELBIT+FX?NDESCBIT,0,DB,HAND-HOLE,0,T?LEVER
+	.OBJECT J-POCKET,0,FX?NDESCBIT,0,JESTER,0,0,T?J-POCKET
+	.OBJECT OUTER-GATE,0,FX?VOWELBIT+FX?NDESCBIT,FX?DOORBIT,PERIMETER-WALL,0,0,T?OUTER-GATE
+	.OBJECT MIRROR,0,FX?NDESCBIT,0,MIRROR-LAKE,0,0,T?MIRROR
+	.OBJECT SILK-TIE,FX?MAGICBIT,0,FX?READBIT+FX?WEARBIT+FX?TAKEBIT,LOCAL-GLOBALS,RUSTY-KEY,0,T?SILK-TIE
+	.OBJECT CARPET,0,0,0,LOCAL-GLOBALS,WEST-DOOR,0,T?CARPET
+	.OBJECT GLITTERY-ORB,0,FX?NDESCBIT+FX?TRYTAKEBIT,FX?TAKEBIT,ORB-ROOM,SMOKY-ORB,0,T?GLITTERY-ORB
+	.OBJECT SAILOR,0,0,0,GLOBAL-OBJECTS,GRUE,0,T?SAILOR
+	.OBJECT CAIRN-OBJECT,0,FX?NDESCBIT,0,CAIRN,0,0,T?CAIRN-OBJECT
+	.OBJECT CUP,0,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?TAKEBIT,PYRAMID-L,0,POTION,T?CUP
+	.OBJECT MOAT,FX?WATERBIT,0,0,LOCAL-GLOBALS,PORTCULLIS,0,T?MOAT
+	.OBJECT BAR-OF-FOOD,0,0,FX?TAKEBIT,BAG,0,0,T?BAR-OF-FOOD
+	.OBJECT RING,0,0,FX?WEARBIT+FX?TAKEBIT,MAGIC-SHOP,0,0,T?RING
+	.OBJECT JOHANN-SEBASTIAN-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,JOHN-D-PORTRAIT,0,T?JOHANN-SEBASTIAN-PORTRAIT
+	.OBJECT PIGEON,0,0,FX?READBIT+FX?TAKEBIT,PACKAGE,PERCH,0,T?PIGEON
+	.OBJECT DB-PLAQUE,0,FX?NDESCBIT,FX?READBIT,DB,DB-CONTROLS,0,T?DB-PLAQUE
+	.OBJECT DOORBELL,0,FX?NDESCBIT,0,ENTRANCE-HALL,0,0,T?DOORBELL
+	.OBJECT WORM,FX?ANIMATEDBIT,0,FX?TAKEBIT,INNER-BAILEY,0,0,T?WORM
+	.OBJECT SHOVEL,0,0,FX?TAKEBIT,WISHYFOO-TERRITORY,0,0,T?SHOVEL
+	.OBJECT OTHER-J-NAMES,0,0,0,GLOBAL-OBJECTS,MID-NAME,0,T?OTHER-J-NAMES
+	.OBJECT CENTER-SHELL,0,0,0,SHELL-TABLE,LEFT-SHELL,0,T?CENTER-SHELL
+	.OBJECT SEAMANS-CAP,FX?MAGICBIT,0,FX?WEARBIT+FX?TAKEBIT,OUBLIETTE,0,0,T?SEAMANS-CAP
+	.OBJECT GRAVEL,FX?NARTICLEBIT,0,FX?TAKEBIT,LOCAL-GLOBALS,FR-BLDG,0,T?GRAVEL
+	.OBJECT EASLE,FX?MAGICBIT,FX?VOWELBIT+FX?SURFACEBIT+FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?TAKEBIT,LOWER-LEDGE,0,LANDSCAPE,T?EASLE
+	.OBJECT RIGHT-PEG,0,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,T-OF-B,CENTER-PEG,0,T?RIGHT-PEG
+	.OBJECT LETTER-Y,FX?NARTICLEBIT,0,0,GLOBAL-OBJECTS,TIME-OBJECT,0,T?LETTER-Y
+	.OBJECT LARGE-DOOR,0,0,FX?DOORBIT,LOCAL-GLOBALS,ZORKMID-BILL,0,T?LARGE-DOOR
+	.OBJECT DB,0,FX?TRANSBIT+FX?SEARCHBIT+FX?DROPBIT+FX?INBIT,FX?CONTBIT+FX?VEHBIT,HOLD,0,LEVER,T?DB
+	.OBJECT NEST,0,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,AERIE,0,0,T?NEST
+	.OBJECT UNGNARLED-ELM,FX?PLANTBIT,FX?VOWELBIT+FX?NDESCBIT,0,VILLAGE-GATE,GNARLED-ELM,0,T?UNGNARLED-ELM
+	.OBJECT LEFT-PEG,0,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,T-OF-B,0,0,T?LEFT-PEG
+	.OBJECT HIM,FX?NARTICLEBIT,0,FX?TOUCHBIT,GLOBAL-OBJECTS,IT,0,T?HIM
+	.OBJECT EYES,FX?PLURALBIT,FX?PARTBIT,0,GLOBAL-OBJECTS,HEAD,0,T?EYES
+	.OBJECT STOCK-CERTIFICATE,FX?MAGICBIT,0,FX?READBIT+FX?BURNBIT+FX?TAKEBIT,VAULT,0,0,T?STOCK-CERTIFICATE
+	.OBJECT GREEN-BUTTON,0,FX?NDESCBIT,0,YACHT,BLUE-BUTTON,0,T?GREEN-BUTTON
+	.OBJECT CRATE,0,FX?SEARCHBIT,FX?TAKEBIT+FX?CONTBIT+FX?BURNBIT+FX?READBIT,PYRAMID,GOGGLES,0,T?CRATE
+	.OBJECT ORACLE-OBJECT,0,FX?DROPBIT+FX?SEARCHBIT+FX?INBIT+FX?VOWELBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,ORACLE,0,0,T?ORACLE-OBJECT
+	.OBJECT NATURAL-ARCH-OBJECT,0,FX?NDESCBIT,0,NATURAL-ARCH,0,0,T?NATURAL-ARCH-OBJECT
+	.OBJECT WHITE-PAWN,FX?WHITEBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?WHITE-PAWN
+	.OBJECT VIOLIN,FX?MAGICBIT,0,FX?BURNBIT+FX?TAKEBIT,CONDUCTOR-PIT,0,0,T?VIOLIN
+	.OBJECT CLOWN-NOSE,0,0,FX?TAKEBIT+FX?WEARBIT,0,0,0,T?CLOWN-NOSE
+	.OBJECT 5-WEIGHT,0,FX?NDESCBIT,0,CENTER-PEG,4-WEIGHT,0,T?5-WEIGHT
+	.OBJECT GENERIC-OBJECTS,0,0,0,0,0,FLATHEADIA,T?GENERIC-OBJECTS
+	.OBJECT BODIES,FX?NARTICLEBIT+FX?PLURALBIT,FX?NDESCBIT,0,LOCAL-GLOBALS,BANNER,0,T?BODIES
+	.OBJECT CROWN,FX?MAGICBIT,FX?NDESCBIT,FX?WEARBIT,DIMWIT,0,0,T?CROWN
+	.OBJECT LITTLE-FUNGUS,FX?PLANTBIT,0,0,GLOBAL-OBJECTS,DOUBLE-FANUCCI,0,T?LITTLE-FUNGUS
+	.OBJECT COMFY-CHAIR,0,FX?SURFACEBIT+FX?SEARCHBIT+FX?INBIT+FX?NDESCBIT,FX?OPENBIT+FX?VEHBIT+FX?CONTBIT,TORTURE-CHAMBER,0,0,T?COMFY-CHAIR
+	.OBJECT ROOTS,0,0,0,LOCAL-GLOBALS,PITS-OBJECT,0,T?ROOTS
+	.OBJECT THOMAS-ALVA-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,LEONARDO-PORTRAIT,0,T?THOMAS-ALVA-PORTRAIT
+	.OBJECT BOWL,0,FX?SEARCHBIT+FX?TRYTAKEBIT,FX?OPENBIT+FX?CONTBIT,SHRINE,IDOL,ELIXIR,T?BOWL
+	.OBJECT REBUS-CAMEL,0,FX?NDESCBIT,0,REBUS,0,0,T?REBUS-CAMEL
+	.OBJECT LARGE-VIAL,0,0,FX?READBIT+FX?TAKEBIT,LOCAL-GLOBALS,SILK-TIE,0,T?LARGE-VIAL
+	.OBJECT RALPH-WALDO-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,JOHN-PAUL-PORTRAIT,0,T?RALPH-WALDO-PORTRAIT
+	.OBJECT CAULDRON,0,0,FX?OPENBIT+FX?CONTBIT,0,0,0,T?CAULDRON
+	.OBJECT BLACK-PAWN,FX?BLACKBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?BLACK-PAWN
+	.OBJECT COOKFIRE,0,FX?FLAMEBIT,0,0,0,0,T?COOKFIRE
+	.OBJECT MEMO,0,0,FX?TAKEBIT+FX?READBIT,0,0,0,T?MEMO
+	.OBJECT FJORD,FX?WATERBIT+FX?NARTICLEBIT,0,0,LOCAL-GLOBALS,FLATHEAD-MOUNTAINS,0,T?FJORD
+	.OBJECT SPYGLASS,FX?MAGICBIT,FX?TRYTAKEBIT,FX?TAKEBIT,SMALL-LILY-PAD,0,0,T?SPYGLASS
+	.OBJECT BLACK-KNIGHT,FX?BLACKBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,0,T?BLACK-KNIGHT
+	.OBJECT RIGHT-SHELL,0,0,0,SHELL-TABLE,CENTER-SHELL,0,T?RIGHT-SHELL
+	.OBJECT EXECUTIONER,FX?ANIMATEDBIT,FX?NDESCBIT+FX?VOWELBIT,FX?ACTORBIT,INQUISITION,BOX,0,T?EXECUTIONER
+	.OBJECT REFLECTION,0,FX?NDESCBIT,0,MIRROR-LAKE,MIRROR,0,T?REFLECTION
+	.OBJECT BROGMOIDISM,0,0,0,GENERIC-OBJECTS,ZILBEETHA,0,T?BROGMOIDISM
+	.OBJECT DUMBBELL,FX?MAGICBIT,0,FX?TAKEBIT,GYM,0,0,T?DUMBBELL
+	.OBJECT GRANOLA,FX?NARTICLEBIT,0,0,LOCAL-GLOBALS,GRANOLA-MINE,0,T?GRANOLA
+	.OBJECT FLATHEADIA,0,0,0,GENERIC-OBJECTS,BROGMOIDISM,0,T?FLATHEADIA
+	.OBJECT ZILBEETHA,0,0,0,GENERIC-OBJECTS,FOUR-FLIES,0,T?ZILBEETHA
+	.OBJECT CAVE-OBJECT,0,FX?NDESCBIT,0,0,0,0,T?CAVE-OBJECT
+	.OBJECT MOUTH,0,FX?PARTBIT,0,GLOBAL-OBJECTS,NOSE,0,T?MOUTH
+	.OBJECT TIRED-PINE,FX?PLANTBIT,FX?VOWELBIT,0,LOCAL-GLOBALS,MEGABOZ-TRAP-DOOR,0,T?TIRED-PINE
+	.OBJECT SCROLL,0,0,FX?BURNBIT+FX?TAKEBIT+FX?READBIT,LOCAL-GLOBALS,SLATE,0,T?SCROLL
+	.OBJECT SIGN,0,0,FX?READBIT,LOCAL-GLOBALS,LOCK-OBJECT,0,T?SIGN
+	.OBJECT LINEN,0,0,FX?READBIT+FX?TAKEBIT,0,0,0,T?LINEN
+	.OBJECT BAG,0,FX?SEARCHBIT,FX?READBIT+FX?CONTBIT+FX?TAKEBIT,CLOSET,CLOSET-REBUS-BUTTON,BAR-OF-FOOD,T?BAG
+	.OBJECT ENCYCLOPEDIA,0,FX?VOWELBIT,FX?READBIT,LIBRARY,0,0,T?ENCYCLOPEDIA
+	.OBJECT GROTTO-REBUS-BUTTON,0,0,0,GROTTO,0,0,T?GROTTO-REBUS-BUTTON
+	.OBJECT DIMWIT-STATUE,0,0,0,LOCAL-GLOBALS,FLATHEAD-OCEAN,0,T?DIMWIT-STATUE
+	.OBJECT GRUE,0,0,0,GLOBAL-OBJECTS,LEFT-RIGHT,0,T?GRUE
+	.OBJECT FLORA,FX?PLURALBIT+FX?NARTICLEBIT+FX?PLANTBIT,FX?NDESCBIT,0,FORMAL-GARDEN,0,0,T?FLORA
+	.OBJECT EAR-FUNGUS,FX?PLANTBIT,FX?NDESCBIT+FX?VOWELBIT,0,EAR,0,0,T?EAR-FUNGUS
+	.OBJECT SMALL-DOOR,0,FX?NDESCBIT,0,LOCAL-GLOBALS,LARGE-DOOR,0,T?SMALL-DOOR
+	.OBJECT TENET,0,FX?NDESCBIT,FX?READBIT,CHURCH,0,0,T?TENET
+	.OBJECT INSTRUCTION-BOOKLET,0,0,FX?READBIT+FX?TAKEBIT,0,0,0,T?INSTRUCTION-BOOKLET
+	.OBJECT 6-WEIGHT,0,FX?NDESCBIT,0,CENTER-PEG,5-WEIGHT,0,T?6-WEIGHT
+	.OBJECT GONDOLA-CONTROLS,0,FX?NDESCBIT,0,GONDOLA,0,0,T?GONDOLA-CONTROLS
+	.OBJECT PORTCULLIS,0,0,FX?DOORBIT,LOCAL-GLOBALS,BONES,0,T?PORTCULLIS
+	.OBJECT POEM,0,FX?NDESCBIT,FX?READBIT,MEGABOZ-HUT,0,0,T?POEM
+	.OBJECT STAIRS,0,0,0,LOCAL-GLOBALS,SIGN,0,T?STAIRS
+	.OBJECT NOTEBOOK,0,0,FX?READBIT+FX?TAKEBIT,TRUNK,PAN,0,T?NOTEBOOK
+	.OBJECT FLOWER,FX?PLANTBIT,FX?TRYTAKEBIT+FX?NDESCBIT,FX?TAKEBIT,ENCHANTED-CAVE,ALTAR,0,T?FLOWER
+	.OBJECT LANTERN,FX?MAGICBIT,FX?TRYTAKEBIT,FX?READBIT+FX?LIGHTBIT+FX?TAKEBIT,PITS,0,0,T?LANTERN
+	.OBJECT YACHT,0,FX?SURFACEBIT+FX?SEARCHBIT+FX?DROPBIT,FX?CONTBIT+FX?OPENBIT+FX?VEHBIT,WEST-SHORE,WEST-DOCK,WHITE-BUTTON,T?YACHT
+	.OBJECT HAMMER,0,0,FX?TAKEBIT,0,0,0,T?HAMMER
+	.OBJECT BLUEPRINT,0,0,FX?READBIT+FX?BURNBIT+FX?TAKEBIT,FIELD-OFFICE,0,0,T?BLUEPRINT
+	.OBJECT SLATE,0,0,FX?TAKEBIT+FX?READBIT,LOCAL-GLOBALS,FUNNY-PAPER,0,T?SLATE
+	.OBJECT MACHICOLATION,0,FX?NDESCBIT,0,PARAPET,0,0,T?MACHICOLATION
+	.OBJECT WHITE-BUTTON,0,FX?NDESCBIT,0,YACHT,YELLOW-BUTTON,0,T?WHITE-BUTTON
+	.OBJECT LANDSCAPE,FX?MAGICBIT,0,FX?TAKEBIT,EASLE,0,0,T?LANDSCAPE
+	.OBJECT J-SUIT,0,FX?NDESCBIT,0,JESTER,J-SHOE,0,T?J-SUIT
+	.OBJECT WATER,FX?NARTICLEBIT,0,0,GLOBAL-OBJECTS,CEILING,0,T?WATER
+	.OBJECT KEG,0,0,FX?TAKEBIT,0,0,0,T?KEG
+	.OBJECT PIT-BOMB,0,FX?VOWELBIT,FX?READBIT+FX?TAKEBIT,LOCAL-GLOBALS,EVEN-MORE-GRAVEL,0,T?PIT-BOMB
+	.OBJECT BASKET,0,FX?SEARCHBIT+FX?NDESCBIT+FX?VOWELBIT,FX?OPENBIT+FX?CONTBIT,TOLL-PLAZA,TOLL-GATE,0,T?BASKET
+	.OBJECT GROUND,0,0,0,GLOBAL-OBJECTS,LULLABY,0,T?GROUND
+	.OBJECT EVEN-MORE-GRAVEL,FX?NARTICLEBIT,0,FX?TAKEBIT,LOCAL-GLOBALS,MORE-GRAVEL,0,T?EVEN-MORE-GRAVEL
+	.OBJECT TOLL-GATE,0,FX?NDESCBIT,FX?DOORBIT,TOLL-PLAZA,TOLL-BOOTH,0,T?TOLL-GATE
+	.OBJECT MEGABOZ-TRAP-DOOR,0,0,FX?DOORBIT,LOCAL-GLOBALS,DIMWIT-STATUE,0,T?MEGABOZ-TRAP-DOOR
+	.OBJECT NOT-HERE-OBJECT,0,0,0,0,0,0,T?NOT-HERE-OBJECT
+	.OBJECT TABLES,0,FX?SURFACEBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,BANQUET-HALL,DIMWIT,0,T?TABLES
+	.OBJECT FUNNY-PAPER,0,0,FX?READBIT+FX?BURNBIT+FX?TAKEBIT,LOCAL-GLOBALS,GRANOLA,0,T?FUNNY-PAPER
+	.OBJECT STRAW,0,0,FX?TAKEBIT,0,0,0,T?STRAW
+	.OBJECT EVEN-LARGER-FLY,0,FX?TRYTAKEBIT+FX?VOWELBIT,FX?TAKEBIT,LOCAL-GLOBALS,LARGER-FLY,0,T?EVEN-LARGER-FLY
+	.OBJECT LOCK-OBJECT,0,0,0,LOCAL-GLOBALS,WINDOW,0,T?LOCK-OBJECT
+	.OBJECT REBUS,0,FX?SURFACEBIT+FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?READBIT,GALLERY,0,REBUS-SLIME-MONSTER,T?REBUS
+	.OBJECT LEFT-SHELL,0,0,0,SHELL-TABLE,0,0,T?LEFT-SHELL
+	.OBJECT INTNUM,0,0,0,GLOBAL-OBJECTS,LOCAL-GLOBALS,0,T?INTNUM
+	.OBJECT METRONOME,FX?MAGICBIT,FX?TRYTAKEBIT,FX?TAKEBIT,0,0,0,T?METRONOME
+	.OBJECT WALL-HANGINGS,0,FX?NDESCBIT,FX?READBIT,MEGABOZ-HUT,POEM,0,T?WALL-HANGINGS
+	.OBJECT BICKERING-TORCH,0,FX?TRYTAKEBIT,FX?TAKEBIT,TORCH-ROOM,0,0,T?BICKERING-TORCH
+	.OBJECT CARD-TABLE,0,FX?SEARCHBIT+FX?SURFACEBIT+FX?NDESCBIT,FX?VEHBIT+FX?OPENBIT+FX?CONTBIT,CASINO,0,0,T?CARD-TABLE
+	.OBJECT LARGEST-FLY,FX?NARTICLEBIT,FX?TRYTAKEBIT,FX?TAKEBIT,LOCAL-GLOBALS,EVEN-LARGER-FLY,0,T?LARGEST-FLY
+	.OBJECT SHELL-TABLE,0,FX?SEARCHBIT+FX?SURFACEBIT,FX?OPENBIT+FX?CONTBIT,0,0,RIGHT-SHELL,T?SHELL-TABLE
+	.OBJECT THOUSAND-ZORKMIDS,FX?NARTICLEBIT,0,0,LOCAL-GLOBALS,PIT-BOMB,0,T?THOUSAND-ZORKMIDS
+	.OBJECT STONEWALL-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,JOHANN-SEBASTIAN-PORTRAIT,0,T?STONEWALL-PORTRAIT
+	.OBJECT LANCE,FX?MAGICBIT,0,FX?TAKEBIT,0,0,0,T?LANCE
+	.OBJECT ZORKMID-COIN,0,FX?TRYTAKEBIT,FX?READBIT+FX?TAKEBIT,LOCAL-GLOBALS,TREASURE-CHEST,0,T?ZORKMID-COIN
+	.OBJECT PORTHOLE,0,FX?NDESCBIT,0,DB,DB-PLAQUE,0,T?PORTHOLE
+	.OBJECT VILLAGE,0,0,0,LOCAL-GLOBALS,BROGMOID,0,T?VILLAGE
+	.OBJECT EAST-KEY,0,FX?VOWELBIT+FX?TRYTAKEBIT,FX?TAKEBIT+FX?KEYBIT,SOLAR,0,0,T?EAST-KEY
+	.OBJECT CEILING,0,FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,GLOBAL-PASSAGE,0,T?CEILING
+	.OBJECT ARCH,0,FX?VOWELBIT,0,LOCAL-GLOBALS,GLOBAL-BLDG,0,T?ARCH
+	.OBJECT LOCKET-MOOSE,0,0,0,GENERIC-OBJECTS,CALENDAR-ITEMS,0,T?LOCKET-MOOSE
+	.OBJECT VASE,0,FX?TRYTAKEBIT+FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,RUINED-HALL,FRESCO,0,T?VASE
+	.OBJECT SCEPTRE,FX?MAGICBIT,0,FX?TAKEBIT,THRONE-ROOM,0,0,T?SCEPTRE
+	.OBJECT FLATHEAD-OCEAN,FX?WATERBIT+FX?NARTICLEBIT,0,0,LOCAL-GLOBALS,LARGEST-FLY,0,T?FLATHEAD-OCEAN
+	.OBJECT BONES,0,FX?NDESCBIT,0,LOCAL-GLOBALS,FIXED-LADDER,0,T?BONES
+	.OBJECT LUCREZIA-PORTRAIT,0,FX?NDESCBIT,0,GALLERY,RALPH-WALDO-PORTRAIT,0,T?LUCREZIA-PORTRAIT
+	.OBJECT CAMEL,FX?ANIMATEDBIT,FX?SEARCHBIT,FX?OPENBIT+FX?VEHBIT+FX?ACTORBIT,RING-OF-DUNES,0,0,T?CAMEL
+	.OBJECT NUT-SHELL,0,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?TAKEBIT,0,0,0,T?NUT-SHELL
+	.OBJECT DIRIGIBLE,0,0,FX?VEHBIT,DIRIGIBLE-HANGAR,0,0,T?DIRIGIBLE
+	.OBJECT ELIXIR,0,FX?VOWELBIT,0,BOWL,0,0,T?ELIXIR
+	.OBJECT OASIS-OBJECT,FX?WATERBIT,FX?NDESCBIT+FX?VOWELBIT,0,OASIS,0,0,T?OASIS-OBJECT
+	.OBJECT RED-BUTTON,0,FX?NDESCBIT,0,YACHT,YACHT-PLAQUE,0,T?RED-BUTTON
+	.OBJECT CRAG-REBUS-BUTTON,0,0,0,CRAG,0,0,T?CRAG-REBUS-BUTTON
+	.OBJECT GLOBAL-HERE,0,0,0,GLOBAL-OBJECTS,ME,0,T?GLOBAL-HERE
+	.OBJECT HELLHOUND-BONES,0,0,FX?TAKEBIT,0,0,0,T?HELLHOUND-BONES
+	.OBJECT DEPRESSION,0,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,ORACLE,ORACLE-OBJECT,0,T?DEPRESSION
+	.OBJECT SPIRE,0,FX?NDESCBIT,0,UPPER-LEDGE,0,0,T?SPIRE
+	.OBJECT SWAMP,FX?WATERBIT,0,0,LOCAL-GLOBALS,GRAY-MOUNTAINS,0,T?SWAMP
+	.OBJECT STONE-TOADS,0,FX?NDESCBIT,0,VILLAGE-CENTER,0,0,T?STONE-TOADS
+	.OBJECT WHITE-KING-ROBE,0,FX?NDESCBIT,0,WHITE-KING,WHITE-KING-CROWN,0,T?WHITE-KING-ROBE
+	.OBJECT BANQUET-FOOD,0,0,0,GLOBAL-OBJECTS,GLOBAL-HERE,0,T?BANQUET-FOOD
+	.OBJECT PROCLAMATION,0,FX?TRYTAKEBIT,FX?BURNBIT+FX?TAKEBIT+FX?READBIT,0,0,0,T?PROCLAMATION
+	.OBJECT JESTER,FX?ANIMATEDBIT,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,0,0,J-SUIT,T?JESTER
+	.OBJECT PROTAGONIST,0,FX?SEARCHBIT+FX?TRANSBIT+FX?NDESCBIT,0,BANQUET-HALL,0,0,T?PROTAGONIST
+	.OBJECT WEST-DOOR,0,FX?LOCKEDBIT,FX?DOORBIT,LOCAL-GLOBALS,TRAP-DOOR,0,T?WEST-DOOR
+	.OBJECT RIGHT-BOOTH-BUTTON,0,FX?NDESCBIT,0,RIGHT-BOOTH,0,0,T?RIGHT-BOOTH-BUTTON
+	.OBJECT BLUE-BUTTON,0,FX?NDESCBIT,0,YACHT,RED-BUTTON,0,T?BLUE-BUTTON
+	.OBJECT POTION,FX?NARTICLEBIT,0,0,CUP,0,0,T?POTION
+	.OBJECT NOSE,0,FX?PARTBIT,0,GLOBAL-OBJECTS,EYES,0,T?NOSE
+	.OBJECT FR-BLDG,0,0,0,LOCAL-GLOBALS,ZORKMID-COIN,0,T?FR-BLDG
+	.OBJECT SMALL-LILY-PAD,FX?PLANTBIT,FX?SEARCHBIT+FX?SURFACEBIT,FX?OPENBIT+FX?CONTBIT,DELTA-6,LARGE-LILY-PAD,SPYGLASS,T?SMALL-LILY-PAD
+	.OBJECT LARGE-VIAL-WATER,FX?NARTICLEBIT,0,0,0,0,0,T?LARGE-VIAL-WATER
+	.OBJECT TRUNK,0,FX?LOCKEDBIT+FX?SEARCHBIT+FX?TRYTAKEBIT,FX?CONTBIT,ATTIC,ATTIC-REBUS-BUTTON,HARMONICA,T?TRUNK
+	.OBJECT ROBE,0,0,FX?WEARBIT,MEGABOZ,0,0,T?ROBE
+	.OBJECT PEGBOARD-PEGS,0,FX?TRYTAKEBIT+FX?NDESCBIT,0,PEG-ROOM,PEGBOARD,0,T?PEGBOARD-PEGS
+	.OBJECT MORE-GRAVEL,FX?NARTICLEBIT,0,FX?TAKEBIT,LOCAL-GLOBALS,GRAVEL,0,T?MORE-GRAVEL
+	.OBJECT FIREPLACE,0,FX?NDESCBIT,0,RUINED-HALL,0,0,T?FIREPLACE
+	.OBJECT EAST-DOOR,0,FX?LOCKEDBIT,FX?DOORBIT,LOCAL-GLOBALS,CARPET,0,T?EAST-DOOR
+	.OBJECT N-S-PASSAGE,0,FX?TRYTAKEBIT,FX?TAKEBIT,PASSAGE-STORAGE-ROOM,NW-SE-PASSAGE,0,T?N-S-PASSAGE
+	.OBJECT YACHT-CONTROLS,FX?PLURALBIT+FX?NARTICLEBIT,FX?NDESCBIT,0,YACHT,0,0,T?YACHT-CONTROLS
+	.OBJECT THOUSANDS-OF-SNAKES,0,0,0,SNAKE-PIT,0,0,T?THOUSANDS-OF-SNAKES
+	.OBJECT PITS-OBJECT,0,0,0,LOCAL-GLOBALS,VAULT-DOOR,0,T?PITS-OBJECT
+	.OBJECT DOUBLE-FANUCCI,0,0,0,GLOBAL-OBJECTS,MUSIC,0,T?DOUBLE-FANUCCI
+	.OBJECT BIRCH,FX?PLANTBIT,0,0,HOLLOW,HEXAGONAL-HOLE,0,T?BIRCH
+	.OBJECT CALENDAR-ITEMS,0,0,0,GENERIC-OBJECTS,0,0,T?CALENDAR-ITEMS
+	.OBJECT ARMOR,0,FX?TRYTAKEBIT,0,LIBRARY,ENCYCLOPEDIA,0,T?ARMOR
+	.OBJECT YACHT-PLAQUE,0,FX?NDESCBIT,FX?READBIT,YACHT,YACHT-CONTROLS,0,T?YACHT-PLAQUE
+	.OBJECT FISH-TANK,FX?WATERBIT,FX?TRYTAKEBIT+FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT,PARLOR,0,STARFISH,T?FISH-TANK
+	.OBJECT BOOKKEEPER,0,0,0,GLOBAL-OBJECTS,PBOZ-OBJECT,0,T?BOOKKEEPER
+	.OBJECT WALDO,0,FX?SEARCHBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT,HOLD,DB,0,T?WALDO
+	.OBJECT RECIPE,0,0,FX?READBIT+FX?TAKEBIT,0,0,0,T?RECIPE
+	.OBJECT LONGEST-SLAB,0,FX?NDESCBIT,0,CRYPT,SHORTEST-SLAB,0,T?LONGEST-SLAB
+	.OBJECT GIANT-SPIDERS,0,FX?NDESCBIT,0,CELL,0,0,T?GIANT-SPIDERS
+	.OBJECT FRIGID-RIVER,FX?WATERBIT+FX?NARTICLEBIT,FX?NDESCBIT,0,RIVERS-END,0,0,T?FRIGID-RIVER
+	.OBJECT SHORTEST-SLAB,0,FX?NDESCBIT,0,CRYPT,FLATTEST-SLAB,0,T?SHORTEST-SLAB
+	.OBJECT SET-OF-INSTRUCTIONS,0,FX?NDESCBIT,FX?READBIT,PEG-ROOM,PEGBOARD-PEGS,0,T?SET-OF-INSTRUCTIONS
+	.OBJECT LARGER-FLY,0,FX?TRYTAKEBIT,FX?TAKEBIT,LOCAL-GLOBALS,LARGE-FLY,0,T?LARGER-FLY
+	.OBJECT MANUSCRIPT,FX?MAGICBIT,0,FX?BURNBIT+FX?TAKEBIT+FX?READBIT,PYRAMID-R,0,0,T?MANUSCRIPT
+	.OBJECT FRESCO,0,FX?NDESCBIT,0,RUINED-HALL,FIREPLACE,0,T?FRESCO
+	.OBJECT WALL,0,FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,GLOBAL-HOLE,0,T?WALL
+	.OBJECT SMALL-VIAL,0,FX?TRYTAKEBIT,FX?READBIT+FX?TAKEBIT,GUMBOZ-SHACK,0,0,T?SMALL-VIAL
+	.OBJECT TRAP-DOOR,0,0,FX?DOORBIT,LOCAL-GLOBALS,BODIES,0,T?TRAP-DOOR
+	.OBJECT HEXAGONAL-BLOCK,0,0,FX?TAKEBIT,LOCAL-GLOBALS,SMALL-DOOR,0,T?HEXAGONAL-BLOCK
+	.OBJECT FLICKERING-TORCH,0,FX?FLAMEBIT+FX?TRYTAKEBIT,FX?ONBIT+FX?TAKEBIT,TORCH-ROOM,BICKERING-TORCH,0,T?FLICKERING-TORCH
+	.OBJECT RIGHT-BOOTH,0,FX?SEARCHBIT+FX?DROPBIT+FX?INBIT+FX?NDESCBIT,FX?OPENBIT+FX?CONTBIT+FX?VEHBIT,TESTING-ROOM,LEFT-BOOTH,RIGHT-BOOTH-BUTTON,T?RIGHT-BOOTH
+	.OBJECT CAKE,0,0,FX?TAKEBIT,0,0,0,T?CAKE
+	.OBJECT NEWEST-SLAB,0,FX?NDESCBIT,0,CRYPT,OLDEST-SLAB,0,T?NEWEST-SLAB
+	.OBJECT RUSTY-KEY,0,0,FX?KEYBIT+FX?TAKEBIT,LOCAL-GLOBALS,TIRED-PINE,0,T?RUSTY-KEY
+	.OBJECT FOX,FX?ANIMATEDBIT,FX?TRYTAKEBIT,FX?TAKEBIT,G-U-WOODS,0,0,T?FOX
+	.OBJECT PSEUDO-OBJECT,0,0,0,LOCAL-GLOBALS,0,0,T?PSEUDO-OBJECT
+	.OBJECT MUTTERING-TORCH,0,FX?TRYTAKEBIT,FX?TAKEBIT,TORCH-ROOM,FLICKERING-TORCH,0,T?MUTTERING-TORCH
+	.ENDT
+
+	LAST-OBJECT=603
+
+	PLAYER=PROTAGONIST
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+OBJPRP::
+
+T?CANNONBALL::	.TABLE			; TABLE FOR OBJECT CANNONBALL
+	.STRL "cannonball"
+	.PROP 4,P?SYNONYM
+	W?CANNONBALL
+	W?BALL
+	.PROP 2,P?ACTION
+	CANNONBALL-F
+	.PROP 2,P?ADJECTIVE
+	W?HEAVY
+	.PROP 2,P?SIZE
+	50
+	.BYTE	0
+	.ENDT
+
+T?VAULT-DOOR::	.TABLE			; TABLE FOR OBJECT VAULT-DOOR
+	.STRL "vault door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	VAULT-DOOR-F
+	.PROP 2,P?ADJECTIVE
+	W?VAULT
+	.BYTE	0
+	.ENDT
+
+T?VAULT::	.TABLE			; TABLE FOR OBJECT VAULT
+	.STRL "Vault"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	VAULT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE LOWEST-HALL		; TO ROOM
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	VAULT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE LOWEST-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?VAULT
+	.PROP 2,P?ACTION
+	VAULT-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9921
+	.PROP 2,P?ICON
+	VAULT-ICON
+	.PROP 2,P?GLOBAL
+	VAULT-DOOR
+	.PROP 2,P?LDESC
+	STR?403
+	.BYTE	0
+	.ENDT
+
+T?OFFICES-NORTH::	.TABLE			; TABLE FOR OBJECT OFFICES-NORTH
+	.STRL "FrobozzCo Offices North"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE FR-OFFICES		; TO ROOM
+	.PROP 2,P?ACTION
+	FR-OUTER-OFFICES-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1723
+	.PROP 2,P?ICON
+	OFFICES-ICON
+	.PROP 4,P?GLOBAL
+	FR-BLDG
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?DUNGEON::	.TABLE			; TABLE FOR OBJECT DUNGEON
+	.STRL "Dungeon"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE BOTTOM-OF-STAIR		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE CELL		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE TORTURE-CHAMBER		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE OUBLIETTE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?DUNGEON
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5321
+	.PROP 2,P?ICON
+	DUNGEON-ICON
+	.PROP 2,P?LDESC
+	STR?359
+	.BYTE	0
+	.ENDT
+
+T?WEST-DOCK::	.TABLE			; TABLE FOR OBJECT WEST-DOCK
+	.STRL "yellow dock"
+	.PROP 2,P?SYNONYM
+	W?DOCK
+	.PROP 2,P?ACTION
+	DOCK-F
+	.PROP 4,P?ADJECTIVE
+	W?YELLOW
+	W?WEST
+	.PROP 2,P?CAPACITY
+	200
+	.BYTE	0
+	.ENDT
+
+T?BLACK-KING-ROBE::	.TABLE			; TABLE FOR OBJECT BLACK-KING-ROBE
+	.STRL "robe"
+	.PROP 2,P?SYNONYM
+	W?ROBE
+	.BYTE	0
+	.ENDT
+
+T?REBUS-SNAKE::	.TABLE			; TABLE FOR OBJECT REBUS-SNAKE
+	.STRL "flattened snake"
+	.PROP 6,P?SYNONYM
+	W?SNAKE
+	W?ANIMAL
+	W?REPRESENTATION
+	.PROP 2,P?ACTION
+	REBUS-ANIMAL-F
+	.PROP 4,P?ADJECTIVE
+	W?FLATTENED
+	W?LAYERED
+	.PROP 2,P?OWNER
+	REBUS
+	.BYTE	0
+	.ENDT
+
+T?GRAY-MOUNTAINS::	.TABLE			; TABLE FOR OBJECT GRAY-MOUNTAINS
+	.STRL "Gray Mountains"
+	.PROP 2,P?SYNONYM
+	W?MOUNTAINS
+	.PROP 2,P?ACTION
+	FLATHEAD-MOUNTAINS-F
+	.PROP 4,P?ADJECTIVE
+	W?GRAY
+	W?GREY
+	.PROP 2,P?RESEARCH
+	STR?813
+	.BYTE	0
+	.ENDT
+
+T?DELTA-7::	.TABLE			; TABLE FOR OBJECT DELTA-7
+	.STRL "Delta"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-2		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-2		; TO ROOM
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE OCEANS-EDGE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-6		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-6		; TO ROOM
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3826
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.BYTE	0
+	.ENDT
+
+T?VIEW-OF-STATUE::	.TABLE			; TABLE FOR OBJECT VIEW-OF-STATUE
+	.STRL "View of Statue"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE FOOT-OF-STATUE		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE CAIRN		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-HUT		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAINS		; TO ROOM
+	.PROP 2,P?ACTION
+	VIEW-OF-STATUE-F
+	.PROP 2,P?THINGS
+	PT?4626
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?4226
+	.PROP 2,P?GLOBAL
+	DIMWIT-STATUE
+	.BYTE	0
+	.ENDT
+
+T?HANDS::	.TABLE			; TABLE FOR OBJECT HANDS
+	.STRL "hands"
+	.PROP 10,P?SYNONYM
+	W?HANDS
+	W?HAND
+	W?PALM
+	W?FINGER
+	W?FINGERS
+	.PROP 2,P?ACTION
+	HANDS-F
+	.PROP 4,P?ADJECTIVE
+	W?BARE
+	W?YOUR
+	.PROP 2,P?OWNER
+	BODY-PART-OWNERS
+	.BYTE	0
+	.ENDT
+
+T?CAGE::	.TABLE			; TABLE FOR OBJECT CAGE
+	.STRL "cage"
+	.PROP 2,P?SYNONYM
+	W?CAGE
+	.PROP 2,P?ACTION
+	CAGE-F
+	.PROP 2,P?FDESC
+	STR?395
+	.BYTE	0
+	.ENDT
+
+T?TOLL-BOOTH::	.TABLE			; TABLE FOR OBJECT TOLL-BOOTH
+	.STRL "toll booth"
+	.PROP 2,P?SYNONYM
+	W?BOOTH
+	.PROP 2,P?ACTION
+	TOLL-BOOTH-F
+	.PROP 2,P?ADJECTIVE
+	W?TOLL
+	.BYTE	0
+	.ENDT
+
+T?PARLOR::	.TABLE			; TABLE FOR OBJECT PARLOR
+	.STRL "Parlor"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE ENTRANCE-HALL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE FORMAL-GARDEN		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE TORCH-ROOM		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?PARLOR
+	.PROP 2,P?ACTION
+	PARLOR-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?821
+	.PROP 2,P?ICON
+	PARLOR-ICON
+	.PROP 2,P?LDESC
+	STR?300
+	.BYTE	0
+	.ENDT
+
+T?TOLL-PLAZA::	.TABLE			; TABLE FOR OBJECT TOLL-PLAZA
+	.STRL "Toll Plaza"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE CROSSROADS		; TO ROOM
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	TOLL-GATE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE FISSURE-EDGE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?PLAZA
+	.PROP 2,P?ACTION
+	TOLL-PLAZA-F
+	.PROP 2,P?ADJECTIVE
+	W?TOLL
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?525
+	.PROP 2,P?ICON
+	TOLL-PLAZA-ICON
+	.PROP 2,P?GLOBAL
+	SIGN
+	.BYTE	0
+	.ENDT
+
+T?POST-OFFICE::	.TABLE			; TABLE FOR OBJECT POST-OFFICE
+	.STRL "Post Office"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-CENTER		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-CENTER		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1423
+	.PROP 2,P?ICON
+	POST-OFFICE-ICON
+	.PROP 2,P?GLOBAL
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?543
+	.BYTE	0
+	.ENDT
+
+T?DIAL::	.TABLE			; TABLE FOR OBJECT DIAL
+	.STRL "dial"
+	.PROP 2,P?SYNONYM
+	W?DIAL
+	.PROP 2,P?ACTION
+	DIAL-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGE
+	.PROP 2,P?OWNER
+	VAULT-DOOR
+	.BYTE	0
+	.ENDT
+
+T?REBUS-FISH::	.TABLE			; TABLE FOR OBJECT REBUS-FISH
+	.STRL "flattened fish"
+	.PROP 6,P?SYNONYM
+	W?FISH
+	W?ANIMAL
+	W?REPRESENTATION
+	.PROP 2,P?ACTION
+	REBUS-ANIMAL-F
+	.PROP 4,P?ADJECTIVE
+	W?FLATTENED
+	W?LAYERED
+	.PROP 2,P?OWNER
+	REBUS
+	.BYTE	0
+	.ENDT
+
+T?LEFT-BOOTH-BUTTON::	.TABLE			; TABLE FOR OBJECT LEFT-BOOTH-BUTTON
+	.STRL "ominous black button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	BOOTH-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?OMINOUS
+	W?BLACK
+	.PROP 2,P?GENERIC
+	G-BUTTON-F
+	.BYTE	0
+	.ENDT
+
+T?EAST-DOCK::	.TABLE			; TABLE FOR OBJECT EAST-DOCK
+	.STRL "blue dock"
+	.PROP 2,P?SYNONYM
+	W?DOCK
+	.PROP 2,P?ACTION
+	DOCK-F
+	.PROP 4,P?ADJECTIVE
+	W?BLUE
+	W?EAST
+	.PROP 2,P?CAPACITY
+	200
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-BLDG::	.TABLE			; TABLE FOR OBJECT GLOBAL-BLDG
+	.STRL "building"
+	.PROP 4,P?SYNONYM
+	W?BUILDING
+	W?CLUSTER
+	.PROP 2,P?ACTION
+	GLOBAL-BLDG-F
+	.PROP 8,P?ADJECTIVE
+	W?NEW
+	W?SMALL
+	W?STONE
+	W?IMPRESSIVE
+	.BYTE	0
+	.ENDT
+
+T?COURTYARD::	.TABLE			; TABLE FOR OBJECT COURTYARD
+	.STRL "Courtyard"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE BANQUET-HALL		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE EAST-HALL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?COURTYARD
+	.PROP 2,P?ACTION
+	COURTYARD-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1321
+	.BYTE	0
+	.ENDT
+
+T?TOBOGGAN::	.TABLE			; TABLE FOR OBJECT TOBOGGAN
+	.STRL "toboggan"
+	.PROP 6,P?SYNONYM
+	W?TOBOGGAN
+	W?SLED
+	W?INSCRIPTION
+	.PROP 2,P?ACTION
+	TOBOGGAN-F
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?TEXT
+	STR?393
+	.PROP 2,P?CAPACITY
+	30
+	.BYTE	0
+	.ENDT
+
+T?DELTA-1::	.TABLE			; TABLE FOR OBJECT DELTA-1
+	.STRL "Delta"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE DELTA-3		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-4		; TO ROOM
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-2		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-2		; TO ROOM
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3226
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.PROP 2,P?VALUE
+	10
+	.BYTE	0
+	.ENDT
+
+T?QUILL-PEN::	.TABLE			; TABLE FOR OBJECT QUILL-PEN
+	.STRL "quill pen"
+	.PROP 4,P?SYNONYM
+	W?PEN
+	W?QUILL
+	.PROP 2,P?ADJECTIVE
+	W?QUILL
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-PASSAGE::	.TABLE			; TABLE FOR OBJECT GLOBAL-PASSAGE
+	.STRL "passage"
+	.PROP 6,P?SYNONYM
+	W?PASSAGE
+	W?PASSAGEWAY
+	W?TUNNEL
+	.PROP 2,P?ACTION
+	GLOBAL-PASSAGE-F
+	.PROP 34,P?ADJECTIVE
+	W?GLOOMY
+	W?DARK
+	W?SECRET
+	W?HIDDEN
+	W?WIDE
+	W?NARROW
+	W?LOW
+	W?STEEP
+	W?SLOPING
+	W?DUSTY
+	W?UNEVEN
+	W?WINDING
+	W?FORBIDDING
+	W?GRAVELLY
+	W?HALF-BURIED
+	W?HIGHWAY
+	W?POORLY-DUG
+	.BYTE	0
+	.ENDT
+
+T?WINDOW::	.TABLE			; TABLE FOR OBJECT WINDOW
+	.STRL "window"
+	.PROP 10,P?SYNONYM
+	W?WINDOW
+	W?WINDOWS
+	W?GLASS
+	W?PANE
+	W?PANES
+	.PROP 2,P?ACTION
+	WINDOW-F
+	.PROP 12,P?ADJECTIVE
+	W?NARROW
+	W?WIDER
+	W?SLITTED
+	W?GLASS
+	W?BROKEN
+	W?WINDOW
+	.BYTE	0
+	.ENDT
+
+T?LEFT-DOOR::	.TABLE			; TABLE FOR OBJECT LEFT-DOOR
+	.STRL "left door"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?WRITING
+	.PROP 2,P?ACTION
+	THREE-DOORS-F
+	.PROP 4,P?ADJECTIVE
+	W?LEFT
+	W?FIRST
+	.PROP 2,P?OWNER
+	LEFT-DOOR
+	.BYTE	0
+	.ENDT
+
+T?PRICKLY-WITCH::	.TABLE			; TABLE FOR OBJECT PRICKLY-WITCH
+	.STRL "prickly witch"
+	.PROP 2,P?SYNONYM
+	W?WITCH
+	.PROP 2,P?ACTION
+	WITCH-F
+	.PROP 6,P?ADJECTIVE
+	W?PRICKLY
+	W?UNFRIENDLY
+	W?HEALTHY
+	.BYTE	0
+	.ENDT
+
+T?PASSAGE-STORAGE-ROOM::	.TABLE			; TABLE FOR OBJECT PASSAGE-STORAGE-ROOM
+	.STRL "Passage Storage Room"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE LOWEST-HALL		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE LOWEST-HALL		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?10021
+	.PROP 2,P?ICON
+	PASSAGE-STORAGE-ICON
+	.PROP 2,P?LDESC
+	STR?405
+	.BYTE	0
+	.ENDT
+
+T?NORTH-SHORE::	.TABLE			; TABLE FOR OBJECT NORTH-SHORE
+	.STRL "North Shore"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE PHIL-HALL		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE THEATRE		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?562		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	NORTH-SHORE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?224
+	.PROP 2,P?ICON
+	NORTH-SHORE-ICON
+	.PROP 4,P?GLOBAL
+	LAKE-FLATHEAD
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?LAKE-BOTTOM-FISH::	.TABLE			; TABLE FOR OBJECT LAKE-BOTTOM-FISH
+	.STRL "freshwater fish"
+	.PROP 2,P?SYNONYM
+	W?FISH
+	.PROP 2,P?ACTION
+	LAKE-BOTTOM-FISH-F
+	.PROP 4,P?ADJECTIVE
+	W?BEAUTIFUL
+	W?FRESHWATER
+	.BYTE	0
+	.ENDT
+
+T?THEATRE::	.TABLE			; TABLE FOR OBJECT THEATRE
+	.STRL "Theatre"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE NORTH-SHORE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE PHIL-HALL		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?THEATRE
+	W?THEATER
+	.PROP 2,P?THINGS
+	PT?4724
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4424
+	.PROP 2,P?LDESC
+	STR?615
+	.BYTE	0
+	.ENDT
+
+T?INTQUOTE::	.TABLE			; TABLE FOR OBJECT INTQUOTE
+	.STRL "quotation"
+	.BYTE	0
+	.ENDT
+
+T?NOTICE::	.TABLE			; TABLE FOR OBJECT NOTICE
+	.STRL "notice"
+	.PROP 2,P?SYNONYM
+	W?NOTICE
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?406
+	.BYTE	0
+	.ENDT
+
+T?SICKLY-WITCH::	.TABLE			; TABLE FOR OBJECT SICKLY-WITCH
+	.STRL "sickly witch"
+	.PROP 2,P?SYNONYM
+	W?WITCH
+	.PROP 2,P?ACTION
+	WITCH-F
+	.PROP 6,P?ADJECTIVE
+	W?SICKLY
+	W?FRIENDLY
+	W?UNHEALTHY
+	.PROP 2,P?LDESC
+	STR?891
+	.BYTE	0
+	.ENDT
+
+T?TRIPLET::	.TABLE			; TABLE FOR OBJECT TRIPLET
+	.STRL "triplet"
+	.PROP 8,P?SYNONYM
+	W?TRIPLET
+	W?TRIPLETS
+	W?QUADRUPLET
+	W?QUINTUPLET
+	.BYTE	0
+	.ENDT
+
+T?PBOZ-OBJECT::	.TABLE			; TABLE FOR OBJECT PBOZ-OBJECT
+	.STRL "Peggleboz"
+	.PROP 2,P?SYNONYM
+	W?PEGGLEBOZ
+	.PROP 2,P?ACTION
+	PBOZ-OBJECT-F
+	.PROP 2,P?ADJECTIVE
+	W?GUSTAV
+	.PROP 2,P?RESEARCH
+	STR?371
+	.BYTE	0
+	.ENDT
+
+T?G-U-SAVANNAH::	.TABLE			; TABLE FOR OBJECT G-U-SAVANNAH
+	.STRL "Great Underground Savannah"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE G-U-WOODS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-DESERT		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?SAVANNAH
+	.PROP 2,P?ACTION
+	FLY-ROOM-F
+	.PROP 4,P?ADJECTIVE
+	W?GREAT
+	W?UNDERGROUND
+	.PROP 2,P?RESEARCH
+	STR?585
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2724
+	.PROP 2,P?ICON
+	G-U-SAVANNAH-ICON
+	.PROP 2,P?LDESC
+	STR?598
+	.BYTE	0
+	.ENDT
+
+T?FEET::	.TABLE			; TABLE FOR OBJECT FEET
+	.STRL "feet"
+	.PROP 8,P?SYNONYM
+	W?FEET
+	W?FOOT
+	W?TOE
+	W?TOES
+	.PROP 2,P?ACTION
+	FEET-F
+	.PROP 2,P?ADJECTIVE
+	W?YOUR
+	.PROP 2,P?OWNER
+	BODY-PART-OWNERS
+	.BYTE	0
+	.ENDT
+
+T?ROC-TERIYAKI::	.TABLE			; TABLE FOR OBJECT ROC-TERIYAKI
+	.STRL "tray of roc teriyaki"
+	.PROP 6,P?SYNONYM
+	W?TERIYAKI
+	W?TRAY
+	W?APPETIZER
+	.PROP 2,P?ACTION
+	SERVANT-ITEM-F
+	.PROP 2,P?ADJECTIVE
+	W?ROC
+	.PROP 2,P?OWNER
+	ROC-TERIYAKI
+	.BYTE	0
+	.ENDT
+
+T?RIGHT-DOOR::	.TABLE			; TABLE FOR OBJECT RIGHT-DOOR
+	.STRL "right door"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?WRITING
+	.PROP 2,P?ACTION
+	THREE-DOORS-F
+	.PROP 4,P?ADJECTIVE
+	W?RIGHT
+	W?THIRD
+	.PROP 2,P?OWNER
+	RIGHT-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CRAWL-REBUS-BUTTON::	.TABLE			; TABLE FOR OBJECT CRAWL-REBUS-BUTTON
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	REBUS-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?KEY-SHAPED
+	W?BLINKING
+	.PROP 2,P?SDESC
+	STR?334
+	.PROP 2,P?FDESC
+	STR?587
+	.BYTE	0
+	.ENDT
+
+T?LIQUID::	.TABLE			; TABLE FOR OBJECT LIQUID
+	.STRL "clear liquid"
+	.PROP 2,P?SYNONYM
+	W?LIQUID
+	.PROP 2,P?ACTION
+	LIQUID-F
+	.PROP 2,P?ADJECTIVE
+	W?CLEAR
+	.BYTE	0
+	.ENDT
+
+T?WAND::	.TABLE			; TABLE FOR OBJECT WAND
+	.STRL "wand"
+	.PROP 4,P?SYNONYM
+	W?WAND
+	W?WANDS
+	.PROP 2,P?ACTION
+	WAND-F
+	.PROP 8,P?ADJECTIVE
+	W?TYPICAL
+	W?WIZARDLY
+	W?INANIMATION
+	W?MAGIC
+	.PROP 2,P?RESEARCH
+	STR?380
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?FDESC
+	STR?379
+	.BYTE	0
+	.ENDT
+
+T?DELTA-3::	.TABLE			; TABLE FOR OBJECT DELTA-3
+	.STRL "Delta"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE DELTA-4		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-4		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-1		; TO ROOM
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-2		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-5		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-5		; TO ROOM
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3426
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.BYTE	0
+	.ENDT
+
+T?ATTIC-REBUS-BUTTON::	.TABLE			; TABLE FOR OBJECT ATTIC-REBUS-BUTTON
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	REBUS-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?KEY-SHAPED
+	W?BLINKING
+	.PROP 2,P?SDESC
+	STR?334
+	.BYTE	0
+	.ENDT
+
+T?WHITE-KING::	.TABLE			; TABLE FOR OBJECT WHITE-KING
+	.STRL "royal leader"
+	.PROP 6,P?SYNONYM
+	W?LEADER
+	W?KING
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 6,P?ADJECTIVE
+	W?ROYAL
+	W?WHITE
+	W?TALL
+	.PROP 2,P?LDESC
+	STR?910
+	.BYTE	0
+	.ENDT
+
+T?TORCH-ROOM::	.TABLE			; TABLE FOR OBJECT TORCH-ROOM
+	.STRL "Torch Room"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE PARLOR		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE PARLOR		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?921
+	.PROP 2,P?ICON
+	TORCH-ROOM-ICON
+	.PROP 2,P?LDESC
+	STR?308
+	.BYTE	0
+	.ENDT
+
+T?TOE-FUNGUS::	.TABLE			; TABLE FOR OBJECT TOE-FUNGUS
+	.STRL "toe fungus"
+	.PROP 4,P?SYNONYM
+	W?FUNGUS
+	W?FUNGI
+	.PROP 2,P?ACTION
+	TOE-FUNGUS-F
+	.PROP 2,P?ADJECTIVE
+	W?TOE
+	.PROP 2,P?RESEARCH
+	STR?423
+	.PROP 2,P?GENERIC
+	G-FUNGUS-F
+	.BYTE	0
+	.ENDT
+
+T?BLACK-KING-CROWN::	.TABLE			; TABLE FOR OBJECT BLACK-KING-CROWN
+	.STRL "crown"
+	.PROP 2,P?SYNONYM
+	W?CROWN
+	.BYTE	0
+	.ENDT
+
+T?DIMWIT::	.TABLE			; TABLE FOR OBJECT DIMWIT
+	.STRL "Lord Dimwit Flathead the Excessive"
+	.PROP 4,P?SYNONYM
+	W?FLATHEAD
+	W?DIMWIT
+	.PROP 2,P?ACTION
+	DIMWIT-F
+	.PROP 6,P?ADJECTIVE
+	W?LORD
+	W?DIMWIT
+	W?EXCESSIVE
+	.PROP 2,P?GENERIC
+	G-DIMWIT-F
+	.PROP 2,P?LDESC
+	STR?268
+	.BYTE	0
+	.ENDT
+
+T?ME::	.TABLE			; TABLE FOR OBJECT ME
+	.STRL "yourself"
+	.PROP 6,P?SYNONYM
+	W?ME
+	W?MYSELF
+	W?SELF
+	.PROP 2,P?ACTION
+	ME-F
+	.PROP 2,P?RESEARCH
+	STR?203
+	.BYTE	0
+	.ENDT
+
+T?CLOSET-REBUS-BUTTON::	.TABLE			; TABLE FOR OBJECT CLOSET-REBUS-BUTTON
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	REBUS-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?KEY-SHAPED
+	W?BLINKING
+	.PROP 2,P?SDESC
+	STR?334
+	.PROP 2,P?FDESC
+	STR?335
+	.BYTE	0
+	.ENDT
+
+T?T-OF-B::	.TABLE			; TABLE FOR OBJECT T-OF-B
+	.STRL "Tower of Bozbar"
+	.PROP 4,P?SYNONYM
+	W?TOWER
+	W?BOZBAR
+	.PROP 2,P?RESEARCH
+	STR?930
+	.PROP 2,P?OWNER
+	T-OF-B
+	.BYTE	0
+	.ENDT
+
+T?GUTTERING-TORCH::	.TABLE			; TABLE FOR OBJECT GUTTERING-TORCH
+	.STRL ""
+	.PROP 4,P?SYNONYM
+	W?TORCH
+	W?TORCHES
+	.PROP 2,P?ACTION
+	GUTTERING-TORCH-F
+	.PROP 2,P?ADJECTIVE
+	W?GUTTERING
+	.PROP 2,P?SDESC
+	STR?323
+	.PROP 2,P?PLURAL
+	STR?309
+	.BYTE	0
+	.ENDT
+
+T?ORACLE::	.TABLE			; TABLE FOR OBJECT ORACLE
+	.STRL "Oracle"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE CRYPT		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE CRYPT		; TO ROOM
+	.PROP 2,P?ACTION
+	ORACLE-F
+	.PROP 2,P?THINGS
+	PT?326
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?126
+	.PROP 2,P?ICON
+	ORACLE-ICON
+	.PROP 2,P?GLOBAL
+	SLIME
+	.PROP 2,P?VALUE
+	10
+	.BYTE	0
+	.ENDT
+
+T?PARCHMENT::	.TABLE			; TABLE FOR OBJECT PARCHMENT
+	.STRL "scrap of parchment"
+	.PROP 8,P?SYNONYM
+	W?PAPER
+	W?SCRAP
+	W?PIECE
+	W?PARCHMENT
+	.PROP 2,P?ACTION
+	PARCHMENT-F
+	.PROP 2,P?ADJECTIVE
+	W?PARCHMENT
+	.PROP 2,P?OWNER
+	PARCHMENT
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?PLURAL
+	STR?267
+	.BYTE	0
+	.ENDT
+
+T?T-SQUARE::	.TABLE			; TABLE FOR OBJECT T-SQUARE
+	.STRL "T-square"
+	.PROP 2,P?SYNONYM
+	W?T-SQUARE
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?SOUTH-OF-MIRROR::	.TABLE			; TABLE FOR OBJECT SOUTH-OF-MIRROR
+	.STRL "South of Mirror"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?823		; FAILURE MESSAGE
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE EAST-OF-MIRROR		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE WEST-OF-MIRROR		; TO ROOM
+	.PROP 2,P?ACTION
+	SOUTH-OF-MIRROR-F
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?3026
+	.PROP 2,P?GLOBAL
+	GRAY-MOUNTAINS
+	.BYTE	0
+	.ENDT
+
+T?KITCHEN::	.TABLE			; TABLE FOR OBJECT KITCHEN
+	.STRL "Kitchen"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SCULLERY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE BANQUET-HALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE ROOT-CELLAR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?KITCHEN
+	.PROP 2,P?ACTION
+	KITCHEN-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?520
+	.PROP 2,P?ICON
+	KITCHEN-ICON
+	.PROP 6,P?GLOBAL
+	STAIRS
+	BANQUET-HALL
+	SCULLERY
+	.BYTE	0
+	.ENDT
+
+T?SPENSEWEED::	.TABLE			; TABLE FOR OBJECT SPENSEWEED
+	.STRL "clump of spenseweed"
+	.PROP 6,P?SYNONYM
+	W?CLUMP
+	W?SPENSEWEED
+	W?WEED
+	.PROP 2,P?ACTION
+	SPENSEWEED-F
+	.PROP 2,P?ADJECTIVE
+	W?SPENSE
+	.PROP 2,P?RESEARCH
+	STR?301
+	.PROP 2,P?OWNER
+	SPENSEWEED
+	.BYTE	0
+	.ENDT
+
+T?J-PIERPONT-PORTRAIT::	.TABLE			; TABLE FOR OBJECT J-PIERPONT-PORTRAIT
+	.STRL "portrait of J. Pierpont Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?J
+	W?PIERPONT
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?J
+	W?PIERPONT
+	.PROP 2,P?OWNER
+	PT?2621
+	.BYTE	0
+	.ENDT
+
+T?LULLABY::	.TABLE			; TABLE FOR OBJECT LULLABY
+	.STRL "lullaby"
+	.PROP 6,P?SYNONYM
+	W?LULLABY
+	W?LULLABYE
+	W?SONG
+	.PROP 2,P?ACTION
+	LULLABY-F
+	.BYTE	0
+	.ENDT
+
+T?FIXED-LADDER::	.TABLE			; TABLE FOR OBJECT FIXED-LADDER
+	.STRL "ladder"
+	.PROP 2,P?SYNONYM
+	W?LADDER
+	.PROP 2,P?ACTION
+	FIXED-LADDER-F
+	.PROP 2,P?ADJECTIVE
+	W?RICKETY
+	.BYTE	0
+	.ENDT
+
+T?BALCONY::	.TABLE			; TABLE FOR OBJECT BALCONY
+	.STRL "Balcony"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?BALCONY
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1421
+	.PROP 2,P?ICON
+	BALCONY-ICON
+	.PROP 4,P?GLOBAL
+	STAIRS
+	BANNER
+	.PROP 2,P?LDESC
+	STR?330
+	.BYTE	0
+	.ENDT
+
+T?UPPER-BARBICAN::	.TABLE			; TABLE FOR OBJECT UPPER-BARBICAN
+	.STRL "Upper Barbican"
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE BARBICAN		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?BARBICAN
+	W?TOWER
+	.PROP 2,P?ADJECTIVE
+	W?UPPER
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?621
+	.PROP 2,P?ICON
+	UPPER-BARBICAN-ICON
+	.PROP 4,P?GLOBAL
+	FIXED-LADDER
+	MOAT
+	.PROP 2,P?LDESC
+	STR?299
+	.BYTE	0
+	.ENDT
+
+T?SHOULDER::	.TABLE			; TABLE FOR OBJECT SHOULDER
+	.STRL "Shoulder"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE HANGING-FROM-ROOTS		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE EAR		; TO ROOM
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?11321
+	.PROP 4,P?GLOBAL
+	BROGMOID
+	ROOTS
+	.PROP 2,P?LDESC
+	STR?421
+	.BYTE	0
+	.ENDT
+
+T?WHITE-KNIGHT::	.TABLE			; TABLE FOR OBJECT WHITE-KNIGHT
+	.STRL "mounted soldier"
+	.PROP 8,P?SYNONYM
+	W?SOLDIER
+	W?KNIGHT
+	W?HORSE
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 4,P?ADJECTIVE
+	W?MOUNTED
+	W?WHITE
+	.PROP 2,P?LDESC
+	STR?903
+	.BYTE	0
+	.ENDT
+
+T?DIMWIT-PORTRAIT::	.TABLE			; TABLE FOR OBJECT DIMWIT-PORTRAIT
+	.STRL "portrait of Dimwit Flathead"
+	.PROP 8,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?DIMWIT
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?DIMWIT
+	W?LORD
+	.PROP 2,P?GENERIC
+	G-DIMWIT-F
+	.PROP 2,P?OWNER
+	PT?2721
+	.BYTE	0
+	.ENDT
+
+T?ALTAR::	.TABLE			; TABLE FOR OBJECT ALTAR
+	.STRL "altar"
+	.PROP 2,P?SYNONYM
+	W?ALTAR
+	.PROP 2,P?ACTION
+	ALTAR-F
+	.BYTE	0
+	.ENDT
+
+T?1-WEIGHT::	.TABLE			; TABLE FOR OBJECT 1-WEIGHT
+	.STRL "1-ugh weight"
+	.PROP 2,P?SYNONYM
+	W?WEIGHT
+	.PROP 2,P?ACTION
+	WEIGHT-F
+	.PROP 2,P?ADJECTIVE
+	W?1-UGH
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?COURTROOM::	.TABLE			; TABLE FOR OBJECT COURTROOM
+	.STRL "Courtroom"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-CENTER		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-CENTER		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?COURTROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1323
+	.PROP 2,P?ICON
+	COURTROOM-ICON
+	.PROP 2,P?GLOBAL
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?542
+	.BYTE	0
+	.ENDT
+
+T?G-U-DESERT::	.TABLE			; TABLE FOR OBJECT G-U-DESERT
+	.STRL "Great Underground Desert"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-DESERT		; TO ROOM
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CACTUS-PATCH		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE WINDBLOWN-SANDS		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?DESERT
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 4,P?ADJECTIVE
+	W?GREAT
+	W?UNDERGROUND
+	.PROP 2,P?RESEARCH
+	STR?585
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3124
+	.PROP 2,P?LDESC
+	STR?609
+	.BYTE	0
+	.ENDT
+
+T?TOP-OF-STAIR::	.TABLE			; TABLE FOR OBJECT TOP-OF-STAIR
+	.STRL "Top of Stair"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE TEE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE BOTTOM-OF-STAIR		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4821
+	.PROP 2,P?ICON
+	TOP-OF-STAIR-ICON
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?356
+	.BYTE	0
+	.ENDT
+
+T?FR-OFFICES::	.TABLE			; TABLE FOR OBJECT FR-OFFICES
+	.STRL "FrobozzCo Offices"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE OFFICES-NORTH		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE OFFICES-EAST		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE OFFICES-SOUTH		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE OFFICES-WEST		; TO ROOM
+	.PROP 3,P?UP		; CONDITIONAL EXIT
+	FR-FLOOR-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	FR-FLOOR-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	OFFICES-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1623
+	.PROP 4,P?GLOBAL
+	FR-BLDG
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?STREAM-OBJECT::	.TABLE			; TABLE FOR OBJECT STREAM-OBJECT
+	.STRL "stream"
+	.PROP 2,P?SYNONYM
+	W?STREAM
+	.PROP 2,P?ACTION
+	STREAM-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?RUNES::	.TABLE			; TABLE FOR OBJECT RUNES
+	.STRL "runes"
+	.PROP 2,P?SYNONYM
+	W?RUNES
+	.PROP 4,P?ADJECTIVE
+	W?STRANGE
+	W?FRIGHTENING
+	.PROP 2,P?TEXT
+	STR?797
+	.BYTE	0
+	.ENDT
+
+T?INTDIR::	.TABLE			; TABLE FOR OBJECT INTDIR
+	.STRL "direction"
+	.PROP 16,P?SYNONYM
+	W?NORTH
+	W?NE
+	W?EAST
+	W?SE
+	W?SOUTH
+	W?SW
+	W?WEST
+	W?NW
+	.BYTE	0
+	.ENDT
+
+T?DARKEST-SLAB::	.TABLE			; TABLE FOR OBJECT DARKEST-SLAB
+	.STRL "darkest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?DARKEST
+	.BYTE	0
+	.ENDT
+
+T?LARGE-FLY::	.TABLE			; TABLE FOR OBJECT LARGE-FLY
+	.STRL "large fly"
+	.PROP 2,P?SYNONYM
+	W?FLY
+	.PROP 2,P?ACTION
+	FLY-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGE
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?PLURAL
+	STR?835
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL "it"
+	.BYTE	0
+	.ENDT
+
+T?DUSTIEST-SLAB::	.TABLE			; TABLE FOR OBJECT DUSTIEST-SLAB
+	.STRL "dustiest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?DUSTIEST
+	.BYTE	0
+	.ENDT
+
+T?WINDBLOWN-SANDS::	.TABLE			; TABLE FOR OBJECT WINDBLOWN-SANDS
+	.STRL "Windblown Sands"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE G-U-DESERT		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE CACTUS-PATCH		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE DESERT-PLAIN		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3224
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?609
+	.BYTE	0
+	.ENDT
+
+T?DESERT-PLAIN::	.TABLE			; TABLE FOR OBJECT DESERT-PLAIN
+	.STRL "Desert Plain"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE TALL-DUNES		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RIPPLED-SANDS		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE WINDBLOWN-SANDS		; TO ROOM
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3424
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?609
+	.BYTE	0
+	.ENDT
+
+T?MURDER-HOLE::	.TABLE			; TABLE FOR OBJECT MURDER-HOLE
+	.STRL "murder hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ACTION
+	MURDER-HOLE-F
+	.PROP 2,P?ADJECTIVE
+	W?MURDER
+	.BYTE	0
+	.ENDT
+
+T?EAST-HALL::	.TABLE			; TABLE FOR OBJECT EAST-HALL
+	.STRL "East Hall"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	EAST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE EAST-WING		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.PROP 2,P?ACTION
+	EAST-HALL-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?8821
+	.PROP 4,P?GLOBAL
+	EAST-DOOR
+	LOCK-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?OUTER-BAILEY::	.TABLE			; TABLE FOR OBJECT OUTER-BAILEY
+	.STRL "Outer Bailey"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE BEND		; TO ROOM
+	.PROP 5,P?SE		; CONDITIONAL EXIT
+	DRAWBRIDGE		; IF DOOR IS OPEN
+	STR?525		; FAILURE MESSAGE
+	.BYTE DRAWBRIDGE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE GARRISON		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE PERIMETER-WALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?BAILEY
+	.PROP 2,P?ACTION
+	OUTER-BAILEY-F
+	.PROP 2,P?ADJECTIVE
+	W?OUTER
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?123
+	.PROP 2,P?ICON
+	OUTER-BAILEY-ICON
+	.PROP 6,P?GLOBAL
+	DRAWBRIDGE
+	MOAT
+	ROOTS
+	.BYTE	0
+	.ENDT
+
+T?EXTERIOR-LIGHT::	.TABLE			; TABLE FOR OBJECT EXTERIOR-LIGHT
+	.STRL "exterior light"
+	.PROP 4,P?SYNONYM
+	W?LIGHT
+	W?LIGHTS
+	.PROP 2,P?ADJECTIVE
+	W?EXTERIOR
+	.BYTE	0
+	.ENDT
+
+T?SADDLE::	.TABLE			; TABLE FOR OBJECT SADDLE
+	.STRL "saddle"
+	.PROP 2,P?SYNONYM
+	W?SADDLE
+	.PROP 2,P?ACTION
+	SADDLE-F
+	.PROP 6,P?ADJECTIVE
+	W?WELL-WORN
+	W?UNICORN
+	W?MILITARY
+	.PROP 2,P?SIZE
+	15
+	.PROP 2,P?TEXT
+	STR?581
+	.PROP 2,P?FDESC
+	STR?580
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?PARAPET::	.TABLE			; TABLE FOR OBJECT PARAPET
+	.STRL "Parapet"
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE BASTION		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?PARAPET
+	W?TOWER
+	.PROP 2,P?ACTION
+	FLY-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4721
+	.PROP 2,P?ICON
+	PARAPET-ICON
+	.PROP 6,P?GLOBAL
+	STAIRS
+	MOAT
+	VILLAGE
+	.PROP 2,P?LDESC
+	STR?355
+	.BYTE	0
+	.ENDT
+
+T?SMOKY-ORB::	.TABLE			; TABLE FOR OBJECT SMOKY-ORB
+	.STRL "smoky orb"
+	.PROP 2,P?SYNONYM
+	W?ORB
+	.PROP 2,P?ACTION
+	ORB-F
+	.PROP 4,P?ADJECTIVE
+	W?SMOKY
+	W?GRAY
+	.BYTE	0
+	.ENDT
+
+T?SACRED-WORD-OBJ::	.TABLE			; TABLE FOR OBJECT SACRED-WORD-OBJ
+	.STRL "sacred word"
+	.PROP 20,P?SYNONYM
+	W?SIZUL
+	W?FZORTY
+	W?XZILCH
+	W?FUBLITSKEE
+	W?ZASTIC
+	W?AULDERFOO
+	W?LIZOWURT
+	W?ELDABLITZ
+	W?MORDEX
+	W?HILDEBUD
+	.BYTE	0
+	.ENDT
+
+T?ZORKMID-BILL::	.TABLE			; TABLE FOR OBJECT ZORKMID-BILL
+	.STRL "zorkmid bill"
+	.PROP 4,P?SYNONYM
+	W?BILL
+	W?MONEY
+	.PROP 2,P?ADJECTIVE
+	W?ZORKMID
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?TEXT
+	STR?929
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?FLASK::	.TABLE			; TABLE FOR OBJECT FLASK
+	.STRL "stoppered glass flask filled with liquid"
+	.PROP 2,P?SYNONYM
+	W?FLASK
+	.PROP 2,P?ACTION
+	FLASK-F
+	.PROP 2,P?ADJECTIVE
+	W?GLASS
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?TEXT
+	STR?364
+	.PROP 2,P?LDESC
+	STR?363
+	.PROP 2,P?CAPACITY
+	5
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?BEDBUG::	.TABLE			; TABLE FOR OBJECT BEDBUG
+	.STRL "giant bedbug"
+	.PROP 4,P?SYNONYM
+	W?BUG
+	W?BEDBUG
+	.PROP 2,P?ACTION
+	BEDBUG-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?BED
+	.BYTE	0
+	.ENDT
+
+T?AMONGST-THE-CLOUDS::	.TABLE			; TABLE FOR OBJECT AMONGST-THE-CLOUDS
+	.STRL "Amongst the Clouds"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE ON-TOP-OF-THE-WORLD		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE TIMBERLINE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?7026
+	.PROP 2,P?ICON
+	AMONGST-CLOUDS-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?874
+	.BYTE	0
+	.ENDT
+
+T?GRANOLA-MINE::	.TABLE			; TABLE FOR OBJECT GRANOLA-MINE
+	.STRL "granola mine"
+	.PROP 2,P?SYNONYM
+	W?MINE
+	.PROP 2,P?ACTION
+	GRANOLA-MINE-F
+	.PROP 2,P?ADJECTIVE
+	W?GRANOLA
+	.PROP 2,P?RESEARCH
+	STR?508
+	.BYTE	0
+	.ENDT
+
+T?REBUS-GOOSE::	.TABLE			; TABLE FOR OBJECT REBUS-GOOSE
+	.STRL "flattened goose"
+	.PROP 6,P?SYNONYM
+	W?GOOSE
+	W?ANIMAL
+	W?REPRESENTATION
+	.PROP 2,P?ACTION
+	REBUS-ANIMAL-F
+	.PROP 4,P?ADJECTIVE
+	W?FLATTENED
+	W?LAYERED
+	.PROP 2,P?OWNER
+	REBUS
+	.BYTE	0
+	.ENDT
+
+T?TIGHT-SQUEEZE::	.TABLE			; TABLE FOR OBJECT TIGHT-SQUEEZE
+	.STRL "Tight Squeeze"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FISSURE-EDGE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE ORB-ROOM		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?FISSURE
+	.PROP 2,P?ADJECTIVE
+	W?NARROW
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?1225
+	.PROP 2,P?LDESC
+	STR?627
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL "it"
+	.BYTE	0
+	.ENDT
+
+T?SLIME::	.TABLE			; TABLE FOR OBJECT SLIME
+	.STRL "slime"
+	.PROP 2,P?SYNONYM
+	W?SLIME
+	.PROP 2,P?ACTION
+	SLIME-F
+	.PROP 4,P?ADJECTIVE
+	W?THICK
+	W?BLACK
+	.BYTE	0
+	.ENDT
+
+T?HEAD::	.TABLE			; TABLE FOR OBJECT HEAD
+	.STRL "head"
+	.PROP 2,P?SYNONYM
+	W?HEAD
+	.PROP 2,P?OWNER
+	BODY-PART-OWNERS
+	.BYTE	0
+	.ENDT
+
+T?CRAG::	.TABLE			; TABLE FOR OBJECT CRAG
+	.STRL "Crag"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE NATURAL-ARCH		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE NATURAL-ARCH		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE HOLLOW		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE UPPER-LEDGE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CRAG
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?626
+	.PROP 2,P?ICON
+	CRAG-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?796
+	.PROP 2,P?VALUE
+	10
+	.BYTE	0
+	.ENDT
+
+T?HER::	.TABLE			; TABLE FOR OBJECT HER
+	.STRL "her"
+	.PROP 4,P?SYNONYM
+	W?HER
+	W?HERSELF
+	.BYTE	0
+	.ENDT
+
+T?MAGIC-SHOP::	.TABLE			; TABLE FOR OBJECT MAGIC-SHOP
+	.STRL "Magic Shop"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?SHOP
+	W?STORE
+	.PROP 2,P?ADJECTIVE
+	W?MAGIC
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2423
+	.PROP 2,P?ICON
+	MAGIC-SHOP-ICON
+	.PROP 2,P?GLOBAL
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?560
+	.BYTE	0
+	.ENDT
+
+T?SOUTH-DOCK::	.TABLE			; TABLE FOR OBJECT SOUTH-DOCK
+	.STRL "green dock"
+	.PROP 2,P?SYNONYM
+	W?DOCK
+	.PROP 2,P?ACTION
+	DOCK-F
+	.PROP 4,P?ADJECTIVE
+	W?GREEN
+	W?SOUTH
+	.PROP 2,P?CAPACITY
+	200
+	.BYTE	0
+	.ENDT
+
+T?CALENDAR::	.TABLE			; TABLE FOR OBJECT CALENDAR
+	.STRL "calendar"
+	.PROP 2,P?SYNONYM
+	W?CALENDAR
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?TEXT
+	STR?289
+	.PROP 2,P?LDESC
+	STR?288
+	.BYTE	0
+	.ENDT
+
+T?SMALL-ELM::	.TABLE			; TABLE FOR OBJECT SMALL-ELM
+	.STRL "small elm tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?ELM
+	.PROP 2,P?ACTION
+	TREE-F
+	.PROP 6,P?ADJECTIVE
+	W?YOUNG
+	W?SMALL
+	W?ELM
+	.BYTE	0
+	.ENDT
+
+T?PITS::	.TABLE			; TABLE FOR OBJECT PITS
+	.STRL "Pits"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE LOWEST-HALL		; TO ROOM
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	PIT-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	PITS-F
+	.PROP 2,P?THINGS
+	PT?10321
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?10121
+	.PROP 4,P?GLOBAL
+	FIXED-LADDER
+	PITS-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?TREASURE-CHEST::	.TABLE			; TABLE FOR OBJECT TREASURE-CHEST
+	.STRL "treasure chest"
+	.PROP 2,P?SYNONYM
+	W?CHEST
+	.PROP 2,P?ADJECTIVE
+	W?TREASURE
+	.PROP 2,P?SIZE
+	25
+	.PROP 2,P?CAPACITY
+	50
+	.BYTE	0
+	.ENDT
+
+T?GUMBOZ-SHACK::	.TABLE			; TABLE FOR OBJECT GUMBOZ-SHACK
+	.STRL "Gumboz's Shack"
+	.PROP 3,P?SW		; CONDITIONAL EXIT
+	SHACK-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	SHACK-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?SHACK
+	.PROP 2,P?ACTION
+	GUMBOZ-SHACK-F
+	.PROP 2,P?ADJECTIVE
+	W?GUMBOZ'S
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?5626
+	.PROP 2,P?LDESC
+	STR?862
+	.BYTE	0
+	.ENDT
+
+T?SMALL-VIAL-WATER::	.TABLE			; TABLE FOR OBJECT SMALL-VIAL-WATER
+	.STRL "water in the small vial"
+	.PROP 6,P?SYNONYM
+	W?WATER
+	W?GLOOP
+	W?GLOOPS
+	.PROP 2,P?ACTION
+	VIAL-WATER-F
+	.PROP 10,P?ADJECTIVE
+	W?ONE
+	W?TWO
+	W?THREE
+	W?FOUR
+	W?INT.NUM
+	.PROP 2,P?GENERIC
+	G-VIAL-WATER-F
+	.BYTE	0
+	.ENDT
+
+T?ROOT-CELLAR::	.TABLE			; TABLE FOR OBJECT ROOT-CELLAR
+	.STRL "Root Cellar"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE WINE-CELLAR		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE KITCHEN		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CELLAR
+	.PROP 2,P?ADJECTIVE
+	W?ROOT
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?720
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?251
+	.BYTE	0
+	.ENDT
+
+T?WEST-KEY::	.TABLE			; TABLE FOR OBJECT WEST-KEY
+	.STRL "steel key"
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ADJECTIVE
+	W?STEEL
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?MUSIC::	.TABLE			; TABLE FOR OBJECT MUSIC
+	.STRL "music"
+	.PROP 4,P?SYNONYM
+	W?MUSIC
+	W?INSTRUMENTS
+	.PROP 2,P?ACTION
+	MUSIC-F
+	.PROP 2,P?ADJECTIVE
+	W?MUSICAL
+	.BYTE	0
+	.ENDT
+
+T?RING-OF-DUNES::	.TABLE			; TABLE FOR OBJECT RING-OF-DUNES
+	.STRL "Ring of Dunes"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-DESERT		; TO ROOM
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3024
+	.PROP 2,P?ICON
+	RING-OF-DUNES-ICON
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?605
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SLEEP::	.TABLE			; TABLE FOR OBJECT GLOBAL-SLEEP
+	.STRL "sleep"
+	.PROP 6,P?SYNONYM
+	W?SLEEP
+	W?NAP
+	W?SNOOZE
+	.PROP 2,P?ACTION
+	GLOBAL-SLEEP-F
+	.BYTE	0
+	.ENDT
+
+T?GLOVE::	.TABLE			; TABLE FOR OBJECT GLOVE
+	.STRL "glove"
+	.PROP 6,P?SYNONYM
+	W?GLOVE
+	W?WRITING
+	W?EMBROIDER
+	.PROP 2,P?ACTION
+	GLOVE-F
+	.PROP 4,P?ADJECTIVE
+	W?TINY
+	W?EMBROIDER
+	.PROP 2,P?OWNER
+	GLOVE
+	.PROP 2,P?SIZE
+	3
+	.BYTE	0
+	.ENDT
+
+T?BLACK-KING::	.TABLE			; TABLE FOR OBJECT BLACK-KING
+	.STRL "royal leader"
+	.PROP 6,P?SYNONYM
+	W?LEADER
+	W?KING
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 6,P?ADJECTIVE
+	W?ROYAL
+	W?BLACK
+	W?TALL
+	.PROP 2,P?LDESC
+	STR?911
+	.BYTE	0
+	.ENDT
+
+T?CELL::	.TABLE			; TABLE FOR OBJECT CELL
+	.STRL "Cell"
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CELL
+	.PROP 2,P?ACTION
+	CELL-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5521
+	.PROP 2,P?ICON
+	CELL-ICON
+	.BYTE	0
+	.ENDT
+
+T?CAVE-IN::	.TABLE			; TABLE FOR OBJECT CAVE-IN
+	.STRL "Cave-In"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE CROSSROADS		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE CROSSROADS		; TO ROOM
+	.PROP 2,P?ACTION
+	CAVE-IN-F
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?425
+	.PROP 2,P?LDESC
+	STR?620
+	.BYTE	0
+	.ENDT
+
+T?MID-NAME::	.TABLE			; TABLE FOR OBJECT MID-NAME
+	.STRL "middle name"
+	.PROP 24,P?SYNONYM
+	W?HIDEOZ
+	W?BIVOTAR
+	W?URGWITZ
+	W?FOOFOONAP
+	W?ELDERBAR
+	W?GOOZUMS
+	W?SYOVAR
+	W?BUCK
+	W?SPIKE
+	W?ZIPPY
+	W?MAGGLEBAR
+	W?BARFOO
+	.PROP 2,P?ACTION
+	MID-NAME-F
+	.BYTE	0
+	.ENDT
+
+T?MIRROR-LAKE::	.TABLE			; TABLE FOR OBJECT MIRROR-LAKE
+	.STRL "Mirror Lake"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?818		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	MIRROR-LAKE-F
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?2626
+	.PROP 2,P?ICON
+	MIRROR-LAKE-ICON
+	.PROP 2,P?GLOBAL
+	GRAY-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?817
+	.BYTE	0
+	.ENDT
+
+T?WHITE-KING-CROWN::	.TABLE			; TABLE FOR OBJECT WHITE-KING-CROWN
+	.STRL "crown"
+	.PROP 2,P?SYNONYM
+	W?CROWN
+	.BYTE	0
+	.ENDT
+
+T?FLATTEST-SLAB::	.TABLE			; TABLE FOR OBJECT FLATTEST-SLAB
+	.STRL "flattest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?FLATTEST
+	.BYTE	0
+	.ENDT
+
+T?HAND-HOLE::	.TABLE			; TABLE FOR OBJECT HAND-HOLE
+	.STRL "hand-hole"
+	.PROP 6,P?SYNONYM
+	W?HOLE
+	W?HAND-HOLE
+	W?CONTROL
+	.PROP 2,P?ACTION
+	HAND-HOLE-F
+	.PROP 4,P?ADJECTIVE
+	W?HAND
+	W?WALDO
+	.PROP 2,P?GENERIC
+	G-DB-HOLE-F
+	.BYTE	0
+	.ENDT
+
+T?GROTTO::	.TABLE			; TABLE FOR OBJECT GROTTO
+	.STRL "Grotto"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE SHRINE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE G-U-MOUNTAIN		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	LOWEST-HALL-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	LOWEST-HALL-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?GROTTO
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?1424
+	.PROP 2,P?LDESC
+	STR?586
+	.BYTE	0
+	.ENDT
+
+T?MIGHTY-ELM::	.TABLE			; TABLE FOR OBJECT MIGHTY-ELM
+	.STRL "mighty elm tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?ELM
+	.PROP 2,P?ACTION
+	TREE-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?ELM
+	.BYTE	0
+	.ENDT
+
+T?NORTH-OF-MIRROR::	.TABLE			; TABLE FOR OBJECT NORTH-OF-MIRROR
+	.STRL "North of Mirror"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE EAST-OF-MIRROR		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?823		; FAILURE MESSAGE
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE WEST-OF-MIRROR		; TO ROOM
+	.PROP 2,P?ACTION
+	NORTH-OF-MIRROR-F
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?2926
+	.PROP 2,P?GLOBAL
+	GRAY-MOUNTAINS
+	.BYTE	0
+	.ENDT
+
+T?COOKPOT::	.TABLE			; TABLE FOR OBJECT COOKPOT
+	.STRL "cookpot"
+	.PROP 4,P?SYNONYM
+	W?COOKPOT
+	W?POT
+	.PROP 2,P?ACTION
+	COOKPOT-F
+	.PROP 2,P?CAPACITY
+	50
+	.BYTE	0
+	.ENDT
+
+T?STARFISH::	.TABLE			; TABLE FOR OBJECT STARFISH
+	.STRL "starfish"
+	.PROP 6,P?SYNONYM
+	W?STARFISH
+	W?FISH
+	W?STAR
+	.PROP 2,P?ACTION
+	STARFISH-F
+	.PROP 2,P?ADJECTIVE
+	W?STAR
+	.PROP 2,P?PLURAL
+	STR?305
+	.PROP 2,P?INANIMATE-DESC
+	STR?306
+	.PROP 2,P?WAND-TEXT
+	STR?307
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-STARFISH
+	.BYTE	0
+	.ENDT
+
+T?BASTION::	.TABLE			; TABLE FOR OBJECT BASTION
+	.STRL "Bastion"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE PARAPET		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE SOLAR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?BASTION
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4621
+	.PROP 2,P?ICON
+	BASTION-ICON
+	.PROP 4,P?GLOBAL
+	STAIRS
+	WINDOW
+	.PROP 2,P?LDESC
+	STR?354
+	.BYTE	0
+	.ENDT
+
+T?PEGBOARD::	.TABLE			; TABLE FOR OBJECT PEGBOARD
+	.STRL "pegboard"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?PEGBOARD
+	.PROP 2,P?ACTION
+	PEGBOARD-F
+	.PROP 2,P?ADJECTIVE
+	W?PEG
+	.BYTE	0
+	.ENDT
+
+T?TALL-DUNES::	.TABLE			; TABLE FOR OBJECT TALL-DUNES
+	.STRL "Tall Dunes"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RIPPLED-SANDS		; TO ROOM
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DESERT-PLAIN		; TO ROOM
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3524
+	.PROP 2,P?ICON
+	TALL-DUNES-ICON
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?609
+	.BYTE	0
+	.ENDT
+
+T?GLACIER::	.TABLE			; TABLE FOR OBJECT GLACIER
+	.STRL "Glacier"
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	GLACIER-DEATH		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?GLACIER
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?2526
+	.PROP 2,P?GLOBAL
+	GRAY-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?815
+	.PROP 2,P?VALUE
+	10
+	.BYTE	0
+	.ENDT
+
+T?PRECIPICE::	.TABLE			; TABLE FOR OBJECT PRECIPICE
+	.STRL "Precipice"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE AERIE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE CLIFF-BOTTOM		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8026
+	.PROP 2,P?ICON
+	PRECIPICE-ICON
+	.PROP 8,P?GLOBAL
+	SWAMP
+	FLATHEAD-OCEAN
+	FLATHEAD-STADIUM
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?888
+	.BYTE	0
+	.ENDT
+
+T?JESTERS-QUARTERS::	.TABLE			; TABLE FOR OBJECT JESTERS-QUARTERS
+	.STRL "Jester's Quarters"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	LARGE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE WEIRD		; TO ROOM
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	SMALL-DOOR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE SERVANTS-QUARTERS		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE SERVANTS-QUARTERS		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?QUARTERS
+	.PROP 2,P?ACTION
+	JESTERS-QUARTERS-F
+	.PROP 2,P?OWNER
+	JESTER
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?328
+	.PROP 2,P?ICON
+	J-QUARTER-ICON
+	.PROP 6,P?GLOBAL
+	STAIRS
+	LARGE-DOOR
+	SMALL-DOOR
+	.BYTE	0
+	.ENDT
+
+T?BABE-PORTRAIT::	.TABLE			; TABLE FOR OBJECT BABE-PORTRAIT
+	.STRL "portrait of Babe Flathead"
+	.PROP 8,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?BABE
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 2,P?ADJECTIVE
+	W?BABE
+	.PROP 2,P?OWNER
+	PT?1621
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL "it"
+	.BYTE	0
+	.ENDT
+
+T?NUT::	.TABLE			; TABLE FOR OBJECT NUT
+	.STRL "walnut"
+	.PROP 4,P?SYNONYM
+	W?WALNUT
+	W?NUT
+	.PROP 2,P?ACTION
+	NUT-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?WEST-HALL::	.TABLE			; TABLE FOR OBJECT WEST-HALL
+	.STRL "West Hall"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE FORMAL-GARDEN		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	WEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 2,P?ACTION
+	WEST-HALL-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5721
+	.PROP 4,P?GLOBAL
+	WEST-DOOR
+	LOCK-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?2-WEIGHT::	.TABLE			; TABLE FOR OBJECT 2-WEIGHT
+	.STRL "2-ugh weight"
+	.PROP 2,P?SYNONYM
+	W?WEIGHT
+	.PROP 2,P?ACTION
+	WEIGHT-F
+	.PROP 2,P?ADJECTIVE
+	W?2-UGH
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?WEST-OF-HOUSE::	.TABLE			; TABLE FOR OBJECT WEST-OF-HOUSE
+	.STRL "West of House"
+	.PROP 2,P?ACTION
+	WEST-OF-HOUSE-F
+	.PROP 2,P?REGION
+	STR?529
+	.PROP 2,P?LDESC
+	STR?530
+	.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
+	YACHT-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?YELLOW
+	.BYTE	0
+	.ENDT
+
+T?IT::	.TABLE			; TABLE FOR OBJECT IT
+	.STRL "it"
+	.PROP 2,P?SYNONYM
+	W?IT
+	.BYTE	0
+	.ENDT
+
+T?LOWER-HALL::	.TABLE			; TABLE FOR OBJECT LOWER-HALL
+	.STRL "Lower Hall"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE LABORATORY		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE ROYAL-ZOO		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE KENNELS		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE G-U-HIGHWAY		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE LOWEST-HALL		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9321
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?386
+	.BYTE	0
+	.ENDT
+
+T?BROGMOID::	.TABLE			; TABLE FOR OBJECT BROGMOID
+	.STRL "giant brogmoid"
+	.PROP 10,P?SYNONYM
+	W?BROGMOID
+	W?BROGMOIDS
+	W?SHOULDER
+	W?EAR
+	W?TOE
+	.PROP 2,P?ACTION
+	BROGMOID-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGE
+	.BYTE	0
+	.ENDT
+
+T?INNER-EAR::	.TABLE			; TABLE FOR OBJECT INNER-EAR
+	.STRL "Inner Ear"
+	.PROP 2,P?IN		; IMPOSSIBLE EXIT
+	STR?437		; FAILURE MESSAGE
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE EAR		; TO ROOM
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?11721
+	.PROP 2,P?LDESC
+	STR?436
+	.BYTE	0
+	.ENDT
+
+T?LOCKER::	.TABLE			; TABLE FOR OBJECT LOCKER
+	.STRL "locker"
+	.PROP 2,P?SYNONYM
+	W?LOCKER
+	.PROP 2,P?ACTION
+	LOCKER-F
+	.PROP 2,P?ADJECTIVE
+	W?RUSTY
+	.PROP 2,P?CAPACITY
+	100
+	.BYTE	0
+	.ENDT
+
+T?CACTI::	.TABLE			; TABLE FOR OBJECT CACTI
+	.STRL "cactus"
+	.PROP 4,P?SYNONYM
+	W?CACTUS
+	W?CACTI
+	.PROP 2,P?ACTION
+	CACTI-F
+	.BYTE	0
+	.ENDT
+
+T?SQUID-REPELLENT::	.TABLE			; TABLE FOR OBJECT SQUID-REPELLENT
+	.STRL "pellet of squid repellent"
+	.PROP 4,P?SYNONYM
+	W?PELLET
+	W?REPELLENT
+	.PROP 2,P?ACTION
+	SQUID-REPELLENT-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?SQUID
+	.PROP 2,P?OWNER
+	SQUID-REPELLENT
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?TIME-OBJECT::	.TABLE			; TABLE FOR OBJECT TIME-OBJECT
+	.STRL "time"
+	.PROP 2,P?SYNONYM
+	W?TIME
+	.BYTE	0
+	.ENDT
+
+T?BOULDER::	.TABLE			; TABLE FOR OBJECT BOULDER
+	.STRL "boulder"
+	.PROP 4,P?SYNONYM
+	W?BOULDER
+	W?ROCK
+	.PROP 2,P?ACTION
+	BOULDER-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGE
+	.BYTE	0
+	.ENDT
+
+T?IDOL::	.TABLE			; TABLE FOR OBJECT IDOL
+	.STRL "idol"
+	.PROP 12,P?SYNONYM
+	W?ST
+	W?SAINT
+	W?IDOL
+	W?FOOBUS
+	W?GALEPATH
+	W?SHRINE
+	.PROP 2,P?ACTION
+	IDOL-F
+	.PROP 4,P?ADJECTIVE
+	W?SAINT
+	W?ST
+	.PROP 2,P?RESEARCH
+	STR?590
+	.BYTE	0
+	.ENDT
+
+T?MILKY-ORB::	.TABLE			; TABLE FOR OBJECT MILKY-ORB
+	.STRL "milky orb"
+	.PROP 2,P?SYNONYM
+	W?ORB
+	.PROP 2,P?ACTION
+	ORB-F
+	.PROP 4,P?ADJECTIVE
+	W?MILKY
+	W?WHITE
+	.PROP 2,P?FDESC
+	STR?629
+	.BYTE	0
+	.ENDT
+
+T?JOHN-PAUL-PORTRAIT::	.TABLE			; TABLE FOR OBJECT JOHN-PAUL-PORTRAIT
+	.STRL "portrait of John Paul Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?JOHN
+	W?PAUL
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?JOHN
+	W?PAUL
+	.PROP 2,P?OWNER
+	PT?1821
+	.BYTE	0
+	.ENDT
+
+T?CRAWL::	.TABLE			; TABLE FOR OBJECT CRAWL
+	.STRL "Crawl"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE HEART-OF-MINE		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DEAD-END		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8626
+	.PROP 4,P?GLOBAL
+	GRANOLA
+	GRANOLA-MINE
+	.PROP 2,P?LDESC
+	STR?896
+	.BYTE	0
+	.ENDT
+
+T?BAT::	.TABLE			; TABLE FOR OBJECT BAT
+	.STRL "wooden club"
+	.PROP 4,P?SYNONYM
+	W?CLUB
+	W?BAT
+	.PROP 2,P?ACTION
+	BAT-F
+	.PROP 4,P?ADJECTIVE
+	W?WOODEN
+	W?BASEBALL
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?TEXT
+	STR?882
+	.PROP 2,P?FDESC
+	STR?881
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?DIRIGIBLE-HANGAR::	.TABLE			; TABLE FOR OBJECT DIRIGIBLE-HANGAR
+	.STRL "Dirigible Hangar"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	DIRIGIBLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?HANGAR
+	.PROP 2,P?ACTION
+	DIRIGIBLE-HANGAR-F
+	.PROP 4,P?ADJECTIVE
+	W?DIRIGIBLE
+	W?LARGE
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?129
+	.PROP 2,P?GLOBAL
+	GONDOLA
+	.PROP 2,P?LDESC
+	STR?936
+	.BYTE	0
+	.ENDT
+
+T?OFFICES-WEST::	.TABLE			; TABLE FOR OBJECT OFFICES-WEST
+	.STRL "FrobozzCo Offices West"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE FR-OFFICES		; TO ROOM
+	.PROP 2,P?ACTION
+	FR-OUTER-OFFICES-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1923
+	.PROP 2,P?ICON
+	OFFICES-ICON
+	.PROP 4,P?GLOBAL
+	FR-BLDG
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?PYRAMID-L::	.TABLE			; TABLE FOR OBJECT PYRAMID-L
+	.STRL "Pyramid Room"
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	WEIRD-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	WEIRD-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	PYRAMID-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?728
+	.PROP 2,P?ICON
+	PYRAMID-ICON
+	.PROP 2,P?VALUE
+	7
+	.BYTE	0
+	.ENDT
+
+T?TEE::	.TABLE			; TABLE FOR OBJECT TEE
+	.STRL "Tee"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SECRET-PASSAGE		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE TOP-OF-STAIR		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FOREBLDG		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4021
+	.PROP 2,P?ICON
+	TEE-ICON
+	.PROP 2,P?LDESC
+	STR?346
+	.BYTE	0
+	.ENDT
+
+T?ENCHANTED-CAVE::	.TABLE			; TABLE FOR OBJECT ENCHANTED-CAVE
+	.STRL "Enchanted Cave"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE NATURAL-ARCH		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE NATURAL-ARCH		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CAVE
+	.PROP 2,P?ACTION
+	ENCHANTED-CAVE-F
+	.PROP 2,P?ADJECTIVE
+	W?ENCHANTED
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?1926
+	.PROP 2,P?ICON
+	ENCHANTED-CAVE-ICON
+	.PROP 4,P?GLOBAL
+	BONES
+	FLATHEAD-MOUNTAINS
+	.BYTE	0
+	.ENDT
+
+T?GUEST-ROOMS::	.TABLE			; TABLE FOR OBJECT GUEST-ROOMS
+	.STRL "Guest Rooms"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SERVANTS-QUARTERS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE EAST-WING		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9021
+	.PROP 2,P?LDESC
+	STR?378
+	.BYTE	0
+	.ENDT
+
+T?OTHER-FLATHEADS::	.TABLE			; TABLE FOR OBJECT OTHER-FLATHEADS
+	.STRL "member of the Flathead family"
+	.PROP 2,P?SYNONYM
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	OTHER-FLATHEADS-F
+	.PROP 10,P?ADJECTIVE
+	W?MICHAEL
+	W?WURB
+	W?KING
+	W?OLIVER
+	W?WENDELL
+	.BYTE	0
+	.ENDT
+
+T?TAX-OFFICE::	.TABLE			; TABLE FOR OBJECT TAX-OFFICE
+	.STRL "URS Office"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE SHADY-PARK		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE SHADY-PARK		; TO ROOM
+	.PROP 2,P?ACTION
+	TAX-OFFICE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1123
+	.PROP 2,P?ICON
+	URS-OFFICE-ICON
+	.PROP 2,P?GLOBAL
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?538
+	.PROP 2,P?RIDDLE
+	STR?539
+	.BYTE	0
+	.ENDT
+
+T?CONDUCTOR-STAND::	.TABLE			; TABLE FOR OBJECT CONDUCTOR-STAND
+	.STRL "conductor's stand"
+	.PROP 4,P?SYNONYM
+	W?STAND
+	W?PLATFORM
+	.PROP 2,P?ACTION
+	CONDUCTOR-STAND-F
+	.PROP 4,P?ADJECTIVE
+	W?CONDUCTOR
+	W?RECTANGULAR
+	.PROP 2,P?CAPACITY
+	50
+	.BYTE	0
+	.ENDT
+
+T?PAINTINGS::	.TABLE			; TABLE FOR OBJECT PAINTINGS
+	.STRL "twelve paintings"
+	.PROP 4,P?SYNONYM
+	W?PAINTINGS
+	W?PORTRAITS
+	.PROP 2,P?ACTION
+	PAINTINGS-F
+	.PROP 26,P?ADJECTIVE
+	W?TWELVE
+	W?FIRST
+	W?SECOND
+	W?THIRD
+	W?FOURTH
+	W?FIFTH
+	W?SIXTH
+	W?SEVENTH
+	W?EIGHTH
+	W?NINTH
+	W?TENTH
+	W?ELEVENTH
+	W?TWELVTH
+	.PROP 2,P?GENERIC
+	G-PAINTING-F
+	.PROP 2,P?OWNER
+	WALL
+	.BYTE	0
+	.ENDT
+
+T?CLOAK::	.TABLE			; TABLE FOR OBJECT CLOAK
+	.STRL "cloak"
+	.PROP 6,P?SYNONYM
+	W?CLOAK
+	W?LABEL
+	W?WRITING
+	.PROP 2,P?ACTION
+	CLOAK-F
+	.PROP 2,P?ADJECTIVE
+	W?MAGIC
+	.PROP 2,P?OWNER
+	CLOAK
+	.BYTE	0
+	.ENDT
+
+T?G-U-WOODS::	.TABLE			; TABLE FOR OBJECT G-U-WOODS
+	.STRL "Great Underground Woods"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAIN		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE G-U-SAVANNAH		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?WOODS
+	.PROP 2,P?ACTION
+	G-U-WOODS-F
+	.PROP 2,P?THINGS
+	PT?2624
+	.PROP 4,P?ADJECTIVE
+	W?GREAT
+	W?UNDERGROUND
+	.PROP 2,P?RESEARCH
+	STR?585
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1724
+	.PROP 2,P?LDESC
+	STR?593
+	.BYTE	0
+	.ENDT
+
+T?OTTO::	.TABLE			; TABLE FOR OBJECT OTTO
+	.STRL "ugly toad"
+	.PROP 4,P?SYNONYM
+	W?TOAD
+	W?OTTO
+	.PROP 2,P?ACTION
+	OTTO-F
+	.PROP 8,P?ADJECTIVE
+	W?UGLY
+	W?LARGE
+	W?BLUE
+	W?GRUMPY
+	.BYTE	0
+	.ENDT
+
+T?GOGGLES::	.TABLE			; TABLE FOR OBJECT GOGGLES
+	.STRL "pair of goggles"
+	.PROP 6,P?SYNONYM
+	W?GOGGLES
+	W?PAIR
+	W?ETCHING
+	.PROP 2,P?ACTION
+	GOGGLES-F
+	.PROP 2,P?OWNER
+	GOGGLES
+	.PROP 2,P?PLURAL
+	STR?931
+	.BYTE	0
+	.ENDT
+
+T?DIMWITS-BED::	.TABLE			; TABLE FOR OBJECT DIMWITS-BED
+	.STRL "Dimwit's bed"
+	.PROP 2,P?SYNONYM
+	W?BED
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?CANOPIED
+	.PROP 2,P?OWNER
+	DIMWIT
+	.PROP 2,P?CAPACITY
+	250
+	.BYTE	0
+	.ENDT
+
+T?BASEMENT-REBUS-BUTTON::	.TABLE			; TABLE FOR OBJECT BASEMENT-REBUS-BUTTON
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	REBUS-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?KEY-SHAPED
+	W?BLINKING
+	.PROP 2,P?SDESC
+	STR?334
+	.PROP 2,P?FDESC
+	STR?558
+	.BYTE	0
+	.ENDT
+
+T?BRIDGE::	.TABLE			; TABLE FOR OBJECT BRIDGE
+	.STRL "odd green bridge"
+	.PROP 2,P?SYNONYM
+	W?BRIDGE
+	.PROP 2,P?ACTION
+	BRIDGE-F
+	.PROP 8,P?ADJECTIVE
+	W?STRANGE
+	W?ODD
+	W?UNUSUAL
+	W?GREEN
+	.BYTE	0
+	.ENDT
+
+T?FOOT-OF-STATUE::	.TABLE			; TABLE FOR OBJECT FOOT-OF-STATUE
+	.STRL "Foot of Statue"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE VIEW-OF-STATUE		; TO ROOM
+	.PROP 2,P?ACTION
+	FOOT-OF-STATUE-F
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?4126
+	.PROP 2,P?ICON
+	FOOT-OF-STATUE-ICON
+	.PROP 2,P?GLOBAL
+	DIMWIT-STATUE
+	.PROP 2,P?VALUE
+	10
+	.BYTE	0
+	.ENDT
+
+T?OLDEST-SLAB::	.TABLE			; TABLE FOR OBJECT OLDEST-SLAB
+	.STRL "oldest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?OLDEST
+	.BYTE	0
+	.ENDT
+
+T?PAN::	.TABLE			; TABLE FOR OBJECT PAN
+	.STRL "saucepan"
+	.PROP 4,P?SYNONYM
+	W?SAUCEPAN
+	W?PAN
+	.PROP 2,P?ACTION
+	PAN-F
+	.BYTE	0
+	.ENDT
+
+T?CANDLE::	.TABLE			; TABLE FOR OBJECT CANDLE
+	.STRL "candle"
+	.PROP 2,P?SYNONYM
+	W?CANDLE
+	.PROP 2,P?ACTION
+	CANDLE-F
+	.PROP 2,P?FDESC
+	STR?345
+	.BYTE	0
+	.ENDT
+
+T?NW-SE-PASSAGE::	.TABLE			; TABLE FOR OBJECT NW-SE-PASSAGE
+	.STRL "northwest-southeast passage"
+	.PROP 4,P?SYNONYM
+	W?PASSAGE
+	W?PASSAGEWAY
+	.PROP 2,P?ACTION
+	PASSAGE-F
+	.PROP 10,P?ADJECTIVE
+	W?MAGIC
+	W?NW
+	W?NW-SE
+	W?SLIGHTLY
+	W?IRREGULAR
+	.PROP 2,P?OWNER
+	0
+	.PROP 2,P?SIZE
+	25
+	.PROP 2,P?DESCFCN
+	NW-SE-PASSAGE-F
+	.BYTE	0
+	.ENDT
+
+T?EARWAX::	.TABLE			; TABLE FOR OBJECT EARWAX
+	.STRL "hunk of brogmoid ear wax"
+	.PROP 6,P?SYNONYM
+	W?HUNK
+	W?WAX
+	W?EARWAX
+	.PROP 4,P?ADJECTIVE
+	W?BROGMOID
+	W?EAR
+	.PROP 2,P?OWNER
+	EARWAX
+	.BYTE	0
+	.ENDT
+
+T?SMALL-THRONE::	.TABLE			; TABLE FOR OBJECT SMALL-THRONE
+	.STRL "small throne"
+	.PROP 2,P?SYNONYM
+	W?THRONE
+	.PROP 2,P?ACTION
+	THRONE-F
+	.PROP 6,P?ADJECTIVE
+	W?GAUDY
+	W?SMALL
+	W?COMFORTABLE
+	.PROP 2,P?CAPACITY
+	25
+	.BYTE	0
+	.ENDT
+
+T?LOBSTER::	.TABLE			; TABLE FOR OBJECT LOBSTER
+	.STRL "lobster"
+	.PROP 6,P?SYNONYM
+	W?LOBSTER
+	W?NUTCRACKER
+	W?CRACKER
+	.PROP 2,P?ACTION
+	LOBSTER-F
+	.PROP 2,P?ADJECTIVE
+	W?NUT
+	.PROP 2,P?INANIMATE-DESC
+	STR?302
+	.PROP 2,P?WAND-TEXT
+	STR?303
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-LOBSTER
+	.BYTE	0
+	.ENDT
+
+T?FOUR-FLIES::	.TABLE			; TABLE FOR OBJECT FOUR-FLIES
+	.STRL "it"
+	.PROP 4,P?SYNONYM
+	W?FLIES
+	W?FAMATHRIA
+	.PROP 2,P?ACTION
+	ENC-ENTRY-F
+	.PROP 6,P?ADJECTIVE
+	W?FOUR
+	W?FANTASTIC
+	W?INT.NUM
+	.PROP 2,P?RESEARCH
+	STR?521
+	.PROP 2,P?OWNER
+	FOUR-FLIES
+	.PROP 2,P?PICTURE
+	FOUR-FLIES-ILL
+	.BYTE	0
+	.ENDT
+
+T?PHIL-HALL::	.TABLE			; TABLE FOR OBJECT PHIL-HALL
+	.STRL "Frobozz Philharmonic Hall"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	FR-BASEMENT-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE THEATRE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE NORTH-SHORE		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?HALL
+	W?ORCHESTRA
+	.PROP 2,P?ACTION
+	PHIL-HALL-F
+	.PROP 2,P?THINGS
+	PT?4224
+	.PROP 4,P?ADJECTIVE
+	W?FROBOZZ
+	W?PHILHARMONIC
+	.PROP 2,P?RESEARCH
+	STR?611
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3824
+	.PROP 2,P?GLOBAL
+	FR-BLDG
+	.BYTE	0
+	.ENDT
+
+T?HARDHAT::	.TABLE			; TABLE FOR OBJECT HARDHAT
+	.STRL "hardhat"
+	.PROP 4,P?SYNONYM
+	W?HARDHAT
+	W?HAT
+	.PROP 2,P?ADJECTIVE
+	W?HARD
+	.PROP 2,P?GENERIC
+	G-HAT-F
+	.PROP 2,P?VALUE
+	25
+	.BYTE	0
+	.ENDT
+
+T?J-HAT::	.TABLE			; TABLE FOR OBJECT J-HAT
+	.STRL "jester's hat"
+	.PROP 6,P?SYNONYM
+	W?HAT
+	W?BELL
+	W?BELLS
+	.PROP 2,P?ACTION
+	J-GARMENT-F
+	.PROP 8,P?ADJECTIVE
+	W?HIS
+	W?JESTER'S
+	W?SMALL
+	W?GAUDY
+	.PROP 2,P?GENERIC
+	G-HAT-F
+	.PROP 2,P?OWNER
+	JESTER
+	.BYTE	0
+	.ENDT
+
+T?WHEEL::	.TABLE			; TABLE FOR OBJECT WHEEL
+	.STRL "wheel"
+	.PROP 2,P?SYNONYM
+	W?WHEEL
+	.PROP 2,P?ACTION
+	WHEEL-F
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?CAST
+	W?IRON
+	.BYTE	0
+	.ENDT
+
+T?REBUS-SLIME-MONSTER::	.TABLE			; TABLE FOR OBJECT REBUS-SLIME-MONSTER
+	.STRL "flattened slime monster"
+	.PROP 6,P?SYNONYM
+	W?MONSTER
+	W?ANIMAL
+	W?REPRESENTATION
+	.PROP 2,P?ACTION
+	REBUS-ANIMAL-F
+	.PROP 6,P?ADJECTIVE
+	W?SLIME
+	W?FLATTENED
+	W?LAYERED
+	.PROP 2,P?OWNER
+	REBUS
+	.BYTE	0
+	.ENDT
+
+T?KENNELS::	.TABLE			; TABLE FOR OBJECT KENNELS
+	.STRL "Kennels"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE LOWER-HALL		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE ROYAL-ZOO		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?KENNEL
+	W?KENNELS
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9621
+	.PROP 2,P?ICON
+	KENNELS-ICON
+	.PROP 2,P?LDESC
+	STR?392
+	.BYTE	0
+	.ENDT
+
+T?UNDERWATER::	.TABLE			; TABLE FOR OBJECT UNDERWATER
+	.STRL "Underwater"
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?724
+	.PROP 2,P?ICON
+	UNDERWATER-ICON
+	.PROP 2,P?GLOBAL
+	LAKE-FLATHEAD
+	.PROP 2,P?LDESC
+	STR?576
+	.BYTE	0
+	.ENDT
+
+T?FLATHEAD-MOUNTAINS::	.TABLE			; TABLE FOR OBJECT FLATHEAD-MOUNTAINS
+	.STRL "Flathead Mountains"
+	.PROP 4,P?SYNONYM
+	W?MOUNTAIN
+	W?MOUNTAINS
+	.PROP 2,P?ACTION
+	FLATHEAD-MOUNTAINS-F
+	.PROP 2,P?ADJECTIVE
+	W?FLATHEAD
+	.PROP 2,P?RESEARCH
+	STR?794
+	.BYTE	0
+	.ENDT
+
+T?FIERY-ORB::	.TABLE			; TABLE FOR OBJECT FIERY-ORB
+	.STRL "fiery orb"
+	.PROP 2,P?SYNONYM
+	W?ORB
+	.PROP 2,P?ACTION
+	ORB-F
+	.PROP 4,P?ADJECTIVE
+	W?FIERY
+	W?ORANGE
+	.BYTE	0
+	.ENDT
+
+T?MARSH::	.TABLE			; TABLE FOR OBJECT MARSH
+	.STRL "Marsh"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	STEPPING-STONES-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE RUINED-HALL		; TO ROOM
+	.BYTE ARCHWAY-OPEN		; IF FLAG IS TRUE
+	STR?952		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	MARSH-F
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?729
+	.PROP 2,P?ICON
+	MARSH-ICON
+	.PROP 4,P?GLOBAL
+	SWAMP
+	ARCH
+	.BYTE	0
+	.ENDT
+
+T?OUBLIETTE::	.TABLE			; TABLE FOR OBJECT OUBLIETTE
+	.STRL "Oubliette"
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?360		; FAILURE MESSAGE
+	.PROP 2,P?OUT		; IMPOSSIBLE EXIT
+	STR?360		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?OUBLIETTE
+	.PROP 2,P?ACTION
+	OUBLIETTE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5421
+	.PROP 2,P?RIDDLE
+	STR?361
+	.BYTE	0
+	.ENDT
+
+T?FR-HQ::	.TABLE			; TABLE FOR OBJECT FR-HQ
+	.STRL "FrobozzCo HQ"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-CENTER		; TO ROOM
+	.PROP 3,P?UP		; CONDITIONAL EXIT
+	FR-OFFICES-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE FR-BASEMENT		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1523
+	.PROP 2,P?ICON
+	FR-HQ-ICON
+	.PROP 4,P?GLOBAL
+	STAIRS
+	FR-BLDG
+	.PROP 2,P?LDESC
+	STR?553
+	.BYTE	0
+	.ENDT
+
+T?RIVERS-END::	.TABLE			; TABLE FOR OBJECT RIVERS-END
+	.STRL "River's End"
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?837		; FAILURE MESSAGE
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-4		; TO ROOM
+	.PROP 2,P?ACTION
+	FLY-ROOM-F
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3926
+	.PROP 2,P?ICON
+	RIVERS-END-ICON
+	.PROP 2,P?LDESC
+	STR?836
+	.BYTE	0
+	.ENDT
+
+T?FLAMINGO::	.TABLE			; TABLE FOR OBJECT FLAMINGO
+	.STRL "flamingo"
+	.PROP 6,P?SYNONYM
+	W?FLAMINGO
+	W?BIRD
+	W?ORNAMENT
+	.PROP 2,P?ACTION
+	FLAMINGO-F
+	.PROP 2,P?ADJECTIVE
+	W?LAWN
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?FDESC
+	STR?327
+	.PROP 2,P?INANIMATE-DESC
+	STR?328
+	.PROP 2,P?WAND-TEXT
+	STR?329
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-FLAMINGO
+	.BYTE	0
+	.ENDT
+
+T?PERCH::	.TABLE			; TABLE FOR OBJECT PERCH
+	.STRL "ceramic perch"
+	.PROP 8,P?SYNONYM
+	W?PERCH
+	W?WRITING
+	W?PRINT
+	W?LETTERING
+	.PROP 4,P?ADJECTIVE
+	W?CERAMIC
+	W?SMALL
+	.PROP 2,P?OWNER
+	PERCH
+	.PROP 2,P?TEXT
+	STR?547
+	.PROP 2,P?PLURAL
+	STR?546
+	.BYTE	0
+	.ENDT
+
+T?BACK-ALLEY::	.TABLE			; TABLE FOR OBJECT BACK-ALLEY
+	.STRL "Back Alley"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE MAGIC-SHOP		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FR-HQ		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?ALLEY
+	.PROP 2,P?ADJECTIVE
+	W?BACK
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2323
+	.PROP 2,P?ICON
+	BACK-ALLEY-ICON
+	.PROP 4,P?GLOBAL
+	FR-BLDG
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?559
+	.BYTE	0
+	.ENDT
+
+T?FISHING-VILLAGE::	.TABLE			; TABLE FOR OBJECT FISHING-VILLAGE
+	.STRL "Fishing Village"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE INQUISITION		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE FISHY-ODOR		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE SANDBAR		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE WHARF		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE INQUISITION		; TO ROOM
+	.PROP 2,P?ACTION
+	FISHING-VILLAGE-F
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?2625
+	.PROP 2,P?ICON
+	FISHING-VILLAGE-ICON
+	.PROP 10,P?GLOBAL
+	VILLAGE
+	SIGN
+	FLATHEAD-OCEAN
+	WHARF
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?636
+	.BYTE	0
+	.ENDT
+
+T?BROOM::	.TABLE			; TABLE FOR OBJECT BROOM
+	.STRL "broom"
+	.PROP 2,P?SYNONYM
+	W?BROOM
+	.PROP 2,P?SIZE
+	10
+	.BYTE	0
+	.ENDT
+
+T?CENTER-DOOR::	.TABLE			; TABLE FOR OBJECT CENTER-DOOR
+	.STRL "center door"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?WRITING
+	.PROP 2,P?ACTION
+	THREE-DOORS-F
+	.PROP 6,P?ADJECTIVE
+	W?CENTER
+	W?MIDDLE
+	W?SECOND
+	.PROP 2,P?OWNER
+	CENTER-DOOR
+	.BYTE	0
+	.ENDT
+
+T?LADDER::	.TABLE			; TABLE FOR OBJECT LADDER
+	.STRL "ladder"
+	.PROP 4,P?SYNONYM
+	W?LADDER
+	W?STEPLADDER
+	.PROP 2,P?ACTION
+	LADDER-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?FDESC
+	STR?951
+	.PROP 2,P?CAPACITY
+	20
+	.BYTE	0
+	.ENDT
+
+T?HOTHOUSE::	.TABLE			; TABLE FOR OBJECT HOTHOUSE
+	.STRL "Hothouse"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RUINED-HALL		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RUINED-HALL		; TO ROOM
+	.PROP 6,P?SYNONYM
+	W?HOTHOUSE
+	W?GREENHOUSE
+	W?ARBORETUM
+	.PROP 2,P?ACTION
+	HOTHOUSE-F
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?929
+	.PROP 2,P?ICON
+	HOTHOUSE-ICON
+	.PROP 2,P?GLOBAL
+	WINDOW
+	.PROP 2,P?LDESC
+	STR?954
+	.BYTE	0
+	.ENDT
+
+T?HANGING-FROM-ROOTS::	.TABLE			; TABLE FOR OBJECT HANGING-FROM-ROOTS
+	.STRL "Hanging From Roots"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE UNDER-THE-WORLD		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE SHOULDER		; TO ROOM
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?420		; FAILURE MESSAGE
+	.PROP 2,P?DOWN		; IMPOSSIBLE EXIT
+	STR?417		; FAILURE MESSAGE
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?11221
+	.PROP 2,P?ICON
+	ROOTS-ICON
+	.PROP 4,P?GLOBAL
+	BROGMOID
+	ROOTS
+	.PROP 2,P?LDESC
+	STR?419
+	.BYTE	0
+	.ENDT
+
+T?REBUS-MOUSE::	.TABLE			; TABLE FOR OBJECT REBUS-MOUSE
+	.STRL "flattened mouse"
+	.PROP 6,P?SYNONYM
+	W?MOUSE
+	W?ANIMAL
+	W?REPRESENTATION
+	.PROP 2,P?ACTION
+	REBUS-ANIMAL-F
+	.PROP 4,P?ADJECTIVE
+	W?FLATTENED
+	W?LAYERED
+	.PROP 2,P?OWNER
+	REBUS
+	.BYTE	0
+	.ENDT
+
+T?3-WEIGHT::	.TABLE			; TABLE FOR OBJECT 3-WEIGHT
+	.STRL "3-ugh weight"
+	.PROP 2,P?SYNONYM
+	W?WEIGHT
+	.PROP 2,P?ACTION
+	WEIGHT-F
+	.PROP 2,P?ADJECTIVE
+	W?3-UGH
+	.PROP 2,P?SIZE
+	3
+	.BYTE	0
+	.ENDT
+
+T?LEFT-RIGHT::	.TABLE			; TABLE FOR OBJECT LEFT-RIGHT
+	.STRL "that way"
+	.PROP 4,P?SYNONYM
+	W?LEFT
+	W?RIGHT
+	.PROP 2,P?ACTION
+	LEFT-RIGHT-F
+	.BYTE	0
+	.ENDT
+
+T?MOUTH-OF-CAVE::	.TABLE			; TABLE FOR OBJECT MOUTH-OF-CAVE
+	.STRL "Mouth of Cave"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE SLOPING-CAVE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE LEDGE-IN-PIT		; TO ROOM
+	.PROP 2,P?DOWN		; IMPOSSIBLE EXIT
+	STR?413		; FAILURE MESSAGE
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?10821
+	.PROP 2,P?ICON
+	MOUTH-OF-CAVE-ICON
+	.PROP 2,P?GLOBAL
+	PITS-OBJECT
+	.PROP 2,P?LDESC
+	STR?412
+	.BYTE	0
+	.ENDT
+
+T?WINE-CELLAR::	.TABLE			; TABLE FOR OBJECT WINE-CELLAR
+	.STRL "Wine Cellar"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE ROOT-CELLAR		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE SCULLERY		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CELLAR
+	.PROP 2,P?ADJECTIVE
+	W?WINE
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?820
+	.PROP 2,P?ICON
+	WINE-CELLAR-ICON
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?253
+	.BYTE	0
+	.ENDT
+
+T?NORTH-DOCK::	.TABLE			; TABLE FOR OBJECT NORTH-DOCK
+	.STRL "red dock"
+	.PROP 2,P?SYNONYM
+	W?DOCK
+	.PROP 2,P?ACTION
+	DOCK-F
+	.PROP 4,P?ADJECTIVE
+	W?RED
+	W?NORTH
+	.PROP 2,P?CAPACITY
+	200
+	.BYTE	0
+	.ENDT
+
+T?J-SHOE::	.TABLE			; TABLE FOR OBJECT J-SHOE
+	.STRL "jester's shoe"
+	.PROP 2,P?SYNONYM
+	W?SHOE
+	.PROP 2,P?ACTION
+	J-GARMENT-F
+	.PROP 4,P?ADJECTIVE
+	W?HIS
+	W?JESTER'S
+	.PROP 2,P?OWNER
+	JESTER
+	.BYTE	0
+	.ENDT
+
+T?PERIMETER-WALL::	.TABLE			; TABLE FOR OBJECT PERIMETER-WALL
+	.STRL "Perimeter Wall"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE OUTER-BAILEY		; TO ROOM
+	.PROP 3,P?NW		; CONDITIONAL EXIT
+	WEST-OF-HOUSE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	WEST-OF-HOUSE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	PERIMETER-WALL-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?223
+	.PROP 2,P?ICON
+	PERIMETER-WALL-ICON
+	.BYTE	0
+	.ENDT
+
+T?DB-CONTROLS::	.TABLE			; TABLE FOR OBJECT DB-CONTROLS
+	.STRL "controls"
+	.PROP 4,P?SYNONYM
+	W?CONTROL
+	W?CONTROLS
+	.PROP 2,P?ACTION
+	DB-CONTROLS-F
+	.PROP 2,P?GENERIC
+	G-DB-HOLE-F
+	.BYTE	0
+	.ENDT
+
+T?WHARF::	.TABLE			; TABLE FOR OBJECT WHARF
+	.STRL "Wharf"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE CASINO		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE FISHING-VILLAGE		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?652		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?WHARF
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?2825
+	.PROP 2,P?ICON
+	WHARF-ICON
+	.PROP 6,P?GLOBAL
+	VILLAGE
+	GLOBAL-BLDG
+	FLATHEAD-OCEAN
+	.PROP 2,P?LDESC
+	STR?651
+	.BYTE	0
+	.ENDT
+
+T?STATUE::	.TABLE			; TABLE FOR OBJECT STATUE
+	.STRL "statue"
+	.PROP 4,P?SYNONYM
+	W?STATUE
+	W?MAN
+	.PROP 2,P?ACTION
+	STATUE-F
+	.PROP 2,P?ADJECTIVE
+	W?YOUNG
+	.PROP 2,P?GENERIC
+	G-DIMWIT-F
+	.BYTE	0
+	.ENDT
+
+T?UNOPENED-NUT::	.TABLE			; TABLE FOR OBJECT UNOPENED-NUT
+	.STRL "unopened walnut"
+	.PROP 8,P?SYNONYM
+	W?SHELL
+	W?NUTSHELL
+	W?WALNUT
+	W?NUT
+	.PROP 2,P?ACTION
+	UNOPENED-NUT-F
+	.PROP 4,P?ADJECTIVE
+	W?WALNUT
+	W?UNOPENED
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?FDESC
+	STR?252
+	.BYTE	0
+	.ENDT
+
+T?ROOSTER::	.TABLE			; TABLE FOR OBJECT ROOSTER
+	.STRL "rooster"
+	.PROP 6,P?SYNONYM
+	W?ROOSTER
+	W?BIRD
+	W?VANE
+	.PROP 2,P?ACTION
+	ROOSTER-F
+	.PROP 2,P?ADJECTIVE
+	W?WEATHER
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?FDESC
+	STR?582
+	.PROP 2,P?INANIMATE-DESC
+	STR?583
+	.PROP 2,P?WAND-TEXT
+	STR?584
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-ROOSTER
+	.BYTE	0
+	.ENDT
+
+T?ROYAL-ZOO::	.TABLE			; TABLE FOR OBJECT ROYAL-ZOO
+	.STRL "Royal Zoo"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE WEST-SHORE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE KENNELS		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE LOWER-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?ZOO
+	.PROP 2,P?ADJECTIVE
+	W?ROYAL
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9721
+	.PROP 2,P?ICON
+	ROYAL-ZOO-ICON
+	.PROP 2,P?LDESC
+	STR?394
+	.BYTE	0
+	.ENDT
+
+T?RUBY::	.TABLE			; TABLE FOR OBJECT RUBY
+	.STRL "moby ruby"
+	.PROP 4,P?SYNONYM
+	W?RUBY
+	W?JEWEL
+	.PROP 8,P?ADJECTIVE
+	W?RED
+	W?MOBY
+	W?LARGE
+	W?BEAUTIFUL
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?TEXT
+	STR?572
+	.PROP 2,P?FDESC
+	STR?571
+	.PROP 2,P?PLURAL
+	STR?570
+	.PROP 2,P?VALUE
+	25
+	.BYTE	0
+	.ENDT
+
+T?RUINED-HALL::	.TABLE			; TABLE FOR OBJECT RUINED-HALL
+	.STRL "Ruined Hall"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	.BYTE MARSH		; TO ROOM
+	.BYTE ARCHWAY-OPEN		; IF FLAG IS TRUE
+	STR?947		; FAILURE MESSAGE
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	.BYTE SECRET-ROOM		; TO ROOM
+	.BYTE SECRET-ROOM-REVEALED		; IF FLAG IS TRUE
+	0		; FAILURE MESSAGE
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE HOTHOUSE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DESERTED-CASTLE		; TO ROOM
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?948		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	RUINED-HALL-F
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?529
+	.PROP 2,P?ICON
+	RUINED-HALL-ICON
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?HARMONICA::	.TABLE			; TABLE FOR OBJECT HARMONICA
+	.STRL "harmonica"
+	.PROP 2,P?SYNONYM
+	W?HARMONICA
+	.PROP 2,P?ACTION
+	HARMONICA-F
+	.PROP 2,P?SIZE
+	3
+	.BYTE	0
+	.ENDT
+
+T?CHAPEL-ALTAR::	.TABLE			; TABLE FOR OBJECT CHAPEL-ALTAR
+	.STRL "altar"
+	.PROP 2,P?SYNONYM
+	W?ALTAR
+	.BYTE	0
+	.ENDT
+
+T?LEONARDO-PORTRAIT::	.TABLE			; TABLE FOR OBJECT LEONARDO-PORTRAIT
+	.STRL "portrait of Leonardo Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?SELF-PORTRAIT
+	W?LEONARDO
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 2,P?ADJECTIVE
+	W?LEONARDO
+	.PROP 2,P?OWNER
+	PT?2121
+	.BYTE	0
+	.ENDT
+
+T?UNICORNS::	.TABLE			; TABLE FOR OBJECT UNICORNS
+	.STRL "herd of unicorns"
+	.PROP 6,P?SYNONYM
+	W?UNICORN
+	W?UNICORNS
+	W?HERD
+	.PROP 2,P?ACTION
+	UNICORNS-F
+	.PROP 2,P?ADJECTIVE
+	W?GRAZING
+	.PROP 2,P?RESEARCH
+	STR?599
+	.PROP 2,P?OWNER
+	UNICORNS
+	.BYTE	0
+	.ENDT
+
+T?SANDBAR::	.TABLE			; TABLE FOR OBJECT SANDBAR
+	.STRL "Sandbar"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE FISHING-VILLAGE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE QUILBOZZA-BEACH		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?SANDBAR
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?4625
+	.PROP 2,P?GLOBAL
+	FLATHEAD-OCEAN
+	.PROP 2,P?LDESC
+	STR?780
+	.BYTE	0
+	.ENDT
+
+T?MEGABOZ::	.TABLE			; TABLE FOR OBJECT MEGABOZ
+	.STRL "angry wizard"
+	.PROP 6,P?SYNONYM
+	W?WIZARD
+	W?MEGABOZ
+	W?MAN
+	.PROP 2,P?ACTION
+	MEGABOZ-F
+	.PROP 6,P?ADJECTIVE
+	W?GAUNT
+	W?OLD
+	W?ANGRY
+	.PROP 2,P?DESCFCN
+	MEGABOZ-F
+	.BYTE	0
+	.ENDT
+
+T?FAN::	.TABLE			; TABLE FOR OBJECT FAN
+	.STRL "fan"
+	.PROP 2,P?SYNONYM
+	W?FAN
+	.PROP 2,P?ACTION
+	FAN-F
+	.PROP 6,P?ADJECTIVE
+	W?DELICATE
+	W?DAINTY
+	W?PAPER
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?SAINTS::	.TABLE			; TABLE FOR OBJECT SAINTS
+	.STRL "saint"
+	.PROP 14,P?SYNONYM
+	W?SAINT
+	W?ST
+	W?BALHU
+	W?HONKO
+	W?QUAKKO
+	W?BOVUS
+	W?WISKUS
+	.PROP 2,P?ACTION
+	SAINTS-F
+	.PROP 4,P?ADJECTIVE
+	W?SAINT
+	W?ST
+	.BYTE	0
+	.ENDT
+
+T?ROOM-OF-THREE-DOORS::	.TABLE			; TABLE FOR OBJECT ROOM-OF-THREE-DOORS
+	.STRL "Room of Three Doors"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE WARNING-ROOM		; TO ROOM
+	.PROP 2,P?IN		; IMPOSSIBLE EXIT
+	STR?784		; FAILURE MESSAGE
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WARNING-ROOM		; TO ROOM
+	.PROP 2,P?ACTION
+	ROOM-OF-THREE-DOORS-F
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?4925
+	.PROP 2,P?ICON
+	ROOM-OF-3-DOORS-ICON
+	.BYTE	0
+	.ENDT
+
+T?FRANK-LLOYD-PORTRAIT::	.TABLE			; TABLE FOR OBJECT FRANK-LLOYD-PORTRAIT
+	.STRL "portrait of Frank Lloyd Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?FRANK
+	W?LLOYD
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?FRANK
+	W?LLOYD
+	.PROP 2,P?OWNER
+	PT?1721
+	.BYTE	0
+	.ENDT
+
+T?LEFT-BOOTH::	.TABLE			; TABLE FOR OBJECT LEFT-BOOTH
+	.STRL "left booth"
+	.PROP 2,P?SYNONYM
+	W?BOOTH
+	.PROP 2,P?ACTION
+	BOOTH-F
+	.PROP 2,P?ADJECTIVE
+	W?LEFT
+	.PROP 2,P?GENERIC
+	G-BOOTH-F
+	.PROP 2,P?CAPACITY
+	60
+	.BYTE	0
+	.ENDT
+
+T?GNARLED-ELM::	.TABLE			; TABLE FOR OBJECT GNARLED-ELM
+	.STRL "gnarled elm tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?ELM
+	.PROP 2,P?ACTION
+	TREE-F
+	.PROP 4,P?ADJECTIVE
+	W?GNARLED
+	W?ELM
+	.BYTE	0
+	.ENDT
+
+T?OCEANS-EDGE::	.TABLE			; TABLE FOR OBJECT OCEANS-EDGE
+	.STRL "Ocean's Edge"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-7		; TO ROOM
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?4026
+	.PROP 2,P?ICON
+	OCEANS-EDGE-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-OCEAN
+	.PROP 2,P?LDESC
+	STR?839
+	.BYTE	0
+	.ENDT
+
+T?FIELD-OFFICE::	.TABLE			; TABLE FOR OBJECT FIELD-OFFICE
+	.STRL "Field Office"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE EXIT		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	CONSTRUCTION-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?127
+	.PROP 2,P?LDESC
+	STR?914
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-HOLE::	.TABLE			; TABLE FOR OBJECT GLOBAL-HOLE
+	.STRL "hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ACTION
+	GLOBAL-HOLE-F
+	.BYTE	0
+	.ENDT
+
+T?ROOF::	.TABLE			; TABLE FOR OBJECT ROOF
+	.STRL "Roof"
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE CLOSET		; TO ROOM
+	.PROP 2,P?THINGS
+	PT?3421
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3121
+	.PROP 2,P?ICON
+	ROOF-ICON
+	.PROP 2,P?GLOBAL
+	FIXED-LADDER
+	.PROP 2,P?LDESC
+	STR?340
+	.BYTE	0
+	.ENDT
+
+T?SAPPHIRE::	.TABLE			; TABLE FOR OBJECT SAPPHIRE
+	.STRL "sapphire"
+	.PROP 6,P?SYNONYM
+	W?SAPPHIRE
+	W?JEWEL
+	W?JERRIMORE
+	.PROP 2,P?ACTION
+	SAPPHIRE-F
+	.PROP 10,P?ADJECTIVE
+	W?STUNNING
+	W?STUNNINGLY
+	W?BEAUTIFUL
+	W?CURSED
+	W?ACCURSED
+	.PROP 2,P?RESEARCH
+	STR?801
+	.PROP 2,P?OWNER
+	SAPPHIRE
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?FDESC
+	STR?800
+	.BYTE	0
+	.ENDT
+
+T?DEAD-END::	.TABLE			; TABLE FOR OBJECT DEAD-END
+	.STRL "Dead End"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE CRAWL		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE CRAWL		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8726
+	.PROP 2,P?ICON
+	DEAD-END-ICON
+	.PROP 4,P?GLOBAL
+	GRANOLA
+	GRANOLA-MINE
+	.PROP 2,P?LDESC
+	STR?897
+	.BYTE	0
+	.ENDT
+
+T?WATER-CHAMBER::	.TABLE			; TABLE FOR OBJECT WATER-CHAMBER
+	.STRL "water chamber"
+	.PROP 2,P?SYNONYM
+	W?CHAMBER
+	.PROP 2,P?ACTION
+	TORTURE-DEVICE-F
+	.PROP 2,P?ADJECTIVE
+	W?WATER
+	.BYTE	0
+	.ENDT
+
+T?CHAPEL::	.TABLE			; TABLE FOR OBJECT CHAPEL
+	.STRL "Chapel"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE EAST-WING		; TO ROOM
+	.PROP 5,P?DOWN		; CONDITIONAL EXIT
+	TRAP-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE CRYPT		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CHAPEL
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9221
+	.PROP 2,P?ICON
+	CHAPEL-ICON
+	.PROP 2,P?GLOBAL
+	TRAP-DOOR
+	.PROP 2,P?LDESC
+	STR?385
+	.BYTE	0
+	.ENDT
+
+T?UNDER-THE-WORLD::	.TABLE			; TABLE FOR OBJECT UNDER-THE-WORLD
+	.STRL "Under the World"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE HANGING-FROM-ROOTS		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE TOP-OF-WELL		; TO ROOM
+	.PROP 2,P?DOWN		; IMPOSSIBLE EXIT
+	STR?417		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	UNDER-THE-WORLD-F
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?11121
+	.PROP 4,P?GLOBAL
+	BROGMOID
+	ROOTS
+	.PROP 2,P?LDESC
+	STR?416
+	.BYTE	0
+	.ENDT
+
+T?POSTER::	.TABLE			; TABLE FOR OBJECT POSTER
+	.STRL "poster of Ursula Flathead"
+	.PROP 6,P?SYNONYM
+	W?POSTER
+	W?URSULA
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	POSTER-F
+	.PROP 2,P?ADJECTIVE
+	W?URSULA
+	.PROP 2,P?RESEARCH
+	STR?532
+	.PROP 2,P?OWNER
+	POSTER
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?BATS-LAIR::	.TABLE			; TABLE FOR OBJECT BATS-LAIR
+	.STRL "Bat's Lair"
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	LAIR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	LAIR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	LAIR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?LAIR
+	.PROP 2,P?ADJECTIVE
+	W?BAT'S
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?1624
+	.PROP 2,P?ICON
+	BATS-LAIR-ICON
+	.PROP 2,P?LDESC
+	STR?592
+	.BYTE	0
+	.ENDT
+
+T?STREAM::	.TABLE			; TABLE FOR OBJECT STREAM
+	.STRL "Stream"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SOUTH-SHORE		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	BRIDGE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	CAMEL-DRINK-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2824
+	.PROP 2,P?GLOBAL
+	LAKE-FLATHEAD
+	.PROP 2,P?RIDDLE
+	STR?600
+	.BYTE	0
+	.ENDT
+
+T?SCALE-MODEL::	.TABLE			; TABLE FOR OBJECT SCALE-MODEL
+	.STRL "scale model"
+	.PROP 2,P?SYNONYM
+	W?MODEL
+	.PROP 2,P?ADJECTIVE
+	W?SCALE
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?FDESC
+	STR?830
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?AMULET::	.TABLE			; TABLE FOR OBJECT AMULET
+	.STRL "amulet"
+	.PROP 2,P?SYNONYM
+	W?AMULET
+	.PROP 2,P?ACTION
+	AMULET-F
+	.BYTE	0
+	.ENDT
+
+T?BOX::	.TABLE			; TABLE FOR OBJECT BOX
+	.STRL "box"
+	.PROP 4,P?SYNONYM
+	W?BOX
+	W?WRITING
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?OWNER
+	BOX
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?TEXT
+	STR?648
+	.PROP 2,P?FDESC
+	STR?647
+	.PROP 2,P?PLURAL
+	STR?646
+	.PROP 2,P?CAPACITY
+	3
+	.BYTE	0
+	.ENDT
+
+T?RIGHT-GONDOLA-BUTTON::	.TABLE			; TABLE FOR OBJECT RIGHT-GONDOLA-BUTTON
+	.STRL "right button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	GONDOLA-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?RIGHT
+	.BYTE	0
+	.ENDT
+
+T?CAUSEWAY::	.TABLE			; TABLE FOR OBJECT CAUSEWAY
+	.STRL "Causeway"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE INNER-BAILEY		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE BARBICAN		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CAUSEWAY
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?421
+	.PROP 2,P?ICON
+	CAUSEWAY-ICON
+	.PROP 4,P?GLOBAL
+	MOAT
+	BARBICAN
+	.PROP 2,P?LDESC
+	STR?298
+	.BYTE	0
+	.ENDT
+
+T?KORBOZ-HOVEL::	.TABLE			; TABLE FOR OBJECT KORBOZ-HOVEL
+	.STRL "Korboz's Hovel"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-HOVEL		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-HOVEL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?HOVEL
+	.PROP 2,P?ADJECTIVE
+	W?KORBOZ'S
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?6426
+	.PROP 2,P?LDESC
+	STR?867
+	.BYTE	0
+	.ENDT
+
+T?WHITE-CASTLE::	.TABLE			; TABLE FOR OBJECT WHITE-CASTLE
+	.STRL "man atop a castle tower"
+	.PROP 8,P?SYNONYM
+	W?MAN
+	W?TOWER
+	W?CASTLE
+	W?ROOK
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 4,P?ADJECTIVE
+	W?CASTLE
+	W?WHITE
+	.PROP 2,P?LDESC
+	STR?906
+	.BYTE	0
+	.ENDT
+
+T?DUNGEON-HOLE::	.TABLE			; TABLE FOR OBJECT DUNGEON-HOLE
+	.STRL "hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ACTION
+	DUNGEON-HOLE-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?OWNER
+	GROUND
+	.BYTE	0
+	.ENDT
+
+T?IRON-MAIDEN::	.TABLE			; TABLE FOR OBJECT IRON-MAIDEN
+	.STRL "iron maiden"
+	.PROP 2,P?SYNONYM
+	W?MAIDEN
+	.PROP 2,P?ACTION
+	TORTURE-DEVICE-F
+	.PROP 2,P?ADJECTIVE
+	W?IRON
+	.BYTE	0
+	.ENDT
+
+T?LEFT-GONDOLA-BUTTON::	.TABLE			; TABLE FOR OBJECT LEFT-GONDOLA-BUTTON
+	.STRL "left button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	GONDOLA-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?LEFT
+	.BYTE	0
+	.ENDT
+
+T?JOHN-D-PORTRAIT::	.TABLE			; TABLE FOR OBJECT JOHN-D-PORTRAIT
+	.STRL "portrait of John D. Flathead"
+	.PROP 12,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?JOHN
+	W?DAVISON
+	W?FLATHEAD
+	W?DOWN
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 6,P?ADJECTIVE
+	W?JOHN
+	W?DAVISON
+	W?DOWN
+	.PROP 2,P?OWNER
+	PT?2321
+	.BYTE	0
+	.ENDT
+
+T?TREE-STUMP::	.TABLE			; TABLE FOR OBJECT TREE-STUMP
+	.STRL "tree stump"
+	.PROP 2,P?SYNONYM
+	W?STUMP
+	.PROP 2,P?ACTION
+	TREE-STUMP-F
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?TREE
+	W?WEATHERED
+	.PROP 2,P?LDESC
+	STR?526
+	.PROP 2,P?CAPACITY
+	100
+	.BYTE	0
+	.ENDT
+
+T?BEND::	.TABLE			; TABLE FOR OBJECT BEND
+	.STRL "Bend"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-GATE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE OUTER-BAILEY		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?423
+	.PROP 2,P?GLOBAL
+	MOAT
+	.PROP 2,P?LDESC
+	STR?533
+	.BYTE	0
+	.ENDT
+
+T?DIPLOMA::	.TABLE			; TABLE FOR OBJECT DIPLOMA
+	.STRL "diploma"
+	.PROP 4,P?SYNONYM
+	W?DIPLOMA
+	W?DOCUMENT
+	.PROP 2,P?ACTION
+	DIPLOMA-F
+	.PROP 2,P?ADJECTIVE
+	W?FRAMED
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?601
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?CONDUCTOR-PIT::	.TABLE			; TABLE FOR OBJECT CONDUCTOR-PIT
+	.STRL "Conductor's Pit"
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?613		; FAILURE MESSAGE
+	.PROP 2,P?OUT		; IMPOSSIBLE EXIT
+	STR?613		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?PIT
+	.PROP 2,P?ACTION
+	CONDUCTOR-PIT-F
+	.PROP 2,P?ADJECTIVE
+	W?CONDUCTOR
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4324
+	.PROP 2,P?LDESC
+	STR?612
+	.BYTE	0
+	.ENDT
+
+T?LARGE-LILY-PAD::	.TABLE			; TABLE FOR OBJECT LARGE-LILY-PAD
+	.STRL "huge lily pad"
+	.PROP 2,P?SYNONYM
+	W?PAD
+	.PROP 2,P?ACTION
+	LILY-PAD-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?LILY
+	.PROP 2,P?CAPACITY
+	100
+	.BYTE	0
+	.ENDT
+
+T?CENTER-PEG::	.TABLE			; TABLE FOR OBJECT CENTER-PEG
+	.STRL "center peg"
+	.PROP 4,P?SYNONYM
+	W?PEG
+	W?POST
+	.PROP 6,P?ADJECTIVE
+	W?SECOND
+	W?CENTER
+	W?MIDDLE
+	.BYTE	0
+	.ENDT
+
+T?PACKAGE::	.TABLE			; TABLE FOR OBJECT PACKAGE
+	.STRL "package"
+	.PROP 4,P?SYNONYM
+	W?PACKAGE
+	W?ADDRESS
+	.PROP 2,P?TEXT
+	STR?545
+	.PROP 2,P?FDESC
+	STR?544
+	.PROP 2,P?CAPACITY
+	12
+	.BYTE	0
+	.ENDT
+
+T?EAST-OF-MIRROR::	.TABLE			; TABLE FOR OBJECT EAST-OF-MIRROR
+	.STRL "East of Mirror"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE SOUTH-OF-MIRROR		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?823		; FAILURE MESSAGE
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE NORTH-OF-MIRROR		; TO ROOM
+	.PROP 2,P?ACTION
+	EAST-OF-MIRROR-F
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?2726
+	.PROP 2,P?GLOBAL
+	GRAY-MOUNTAINS
+	.BYTE	0
+	.ENDT
+
+T?RIPPLED-SANDS::	.TABLE			; TABLE FOR OBJECT RIPPLED-SANDS
+	.STRL "Rippled Sands"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE TALL-DUNES		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE OASIS		; TO ROOM
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DESERT-PLAIN		; TO ROOM
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3624
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?609
+	.BYTE	0
+	.ENDT
+
+T?LARGE-THRONE::	.TABLE			; TABLE FOR OBJECT LARGE-THRONE
+	.STRL "large golden throne"
+	.PROP 4,P?SYNONYM
+	W?THRONE
+	W?TASSLES
+	.PROP 2,P?ACTION
+	THRONE-F
+	.PROP 8,P?ADJECTIVE
+	W?GOLDEN
+	W?LARGE
+	W?TOWERING
+	W?RED
+	.PROP 2,P?CAPACITY
+	50
+	.BYTE	0
+	.ENDT
+
+T?HOLD::	.TABLE			; TABLE FOR OBJECT HOLD
+	.STRL "Hold"
+	.PROP 3,P?UP		; CONDITIONAL EXIT
+	YACHT-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	DB-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?HOLD
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?524
+	.PROP 2,P?ICON
+	HOLD-ICON
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?565
+	.BYTE	0
+	.ENDT
+
+T?TICKET::	.TABLE			; TABLE FOR OBJECT TICKET
+	.STRL "ticket"
+	.PROP 4,P?SYNONYM
+	W?TICKET
+	W?NUMBER
+	.PROP 2,P?ACTION
+	TICKET-F
+	.PROP 2,P?OWNER
+	PROTAGONIST
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?HEXAGONAL-HOLE::	.TABLE			; TABLE FOR OBJECT HEXAGONAL-HOLE
+	.STRL "six-sided hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ACTION
+	HEXAGONAL-HOLE-F
+	.PROP 6,P?ADJECTIVE
+	W?SMALL
+	W?SIX-SIDED
+	W?HEXAGONAL
+	.BYTE	0
+	.ENDT
+
+T?EAR::	.TABLE			; TABLE FOR OBJECT EAR
+	.STRL "Ear"
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE SHOULDER		; TO ROOM
+	.PROP 4,P?IN		; CONDITIONAL EXIT
+	.BYTE INNER-EAR		; TO ROOM
+	.BYTE EAR-PASSAGE-OPEN		; IF FLAG IS TRUE
+	STR?422		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	EAR-F
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?11421
+	.PROP 2,P?ICON
+	EAR-ICON
+	.PROP 2,P?GLOBAL
+	BROGMOID
+	.BYTE	0
+	.ENDT
+
+T?SCULLERY::	.TABLE			; TABLE FOR OBJECT SCULLERY
+	.STRL "Scullery"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE KITCHEN		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE BANQUET-HALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE WINE-CELLAR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?SCULLERY
+	.PROP 2,P?ACTION
+	SCULLERY-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?620
+	.PROP 6,P?GLOBAL
+	STAIRS
+	KITCHEN
+	BANQUET-HALL
+	.BYTE	0
+	.ENDT
+
+T?BANNER::	.TABLE			; TABLE FOR OBJECT BANNER
+	.STRL "banner"
+	.PROP 8,P?SYNONYM
+	W?BANNER
+	W?BANNERS
+	W?PENNANT
+	W?PENNANTS
+	.PROP 2,P?ACTION
+	BANNER-F
+	.PROP 2,P?ADJECTIVE
+	W?COLORFUL
+	.BYTE	0
+	.ENDT
+
+T?SCREWDRIVER::	.TABLE			; TABLE FOR OBJECT SCREWDRIVER
+	.STRL "screwdriver"
+	.PROP 4,P?SYNONYM
+	W?SCREWDRIVER
+	W?DRIVER
+	.PROP 4,P?ADJECTIVE
+	W?SCREW
+	W?OLD
+	.PROP 2,P?FDESC
+	STR?388
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?EDGE-OF-DESERT::	.TABLE			; TABLE FOR OBJECT EDGE-OF-DESERT
+	.STRL "Edge of Desert"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SOUTH-SHORE		; TO ROOM
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE G-U-SAVANNAH		; TO ROOM
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	DESERT-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RING-OF-DUNES		; TO ROOM
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2924
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?603
+	.BYTE	0
+	.ENDT
+
+T?4-WEIGHT::	.TABLE			; TABLE FOR OBJECT 4-WEIGHT
+	.STRL "4-ugh weight"
+	.PROP 2,P?SYNONYM
+	W?WEIGHT
+	.PROP 2,P?ACTION
+	WEIGHT-F
+	.PROP 2,P?ADJECTIVE
+	W?4-UGH
+	.PROP 2,P?SIZE
+	4
+	.BYTE	0
+	.ENDT
+
+T?SNAKE::	.TABLE			; TABLE FOR OBJECT SNAKE
+	.STRL "snake"
+	.PROP 4,P?SYNONYM
+	W?SNAKE
+	W?ROPE
+	.PROP 2,P?ACTION
+	SNAKE-F
+	.PROP 2,P?INANIMATE-DESC
+	STR?397
+	.PROP 2,P?WAND-TEXT
+	STR?398
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-SNAKE
+	.BYTE	0
+	.ENDT
+
+T?WIZARD-OF-FROBOZZ::	.TABLE			; TABLE FOR OBJECT WIZARD-OF-FROBOZZ
+	.STRL "Wiazard of Frobozz"
+	.PROP 4,P?SYNONYM
+	W?WIZARD
+	W?FROBOZZ
+	.PROP 2,P?ACTION
+	WIZARD-OF-FROBOZZ-F
+	.PROP 2,P?OWNER
+	WIZARD-OF-FROBOZZ
+	.BYTE	0
+	.ENDT
+
+T?CRYPT::	.TABLE			; TABLE FOR OBJECT CRYPT
+	.STRL "Crypt"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-CRYPT		; TO ROOM
+	.PROP 5,P?UP		; CONDITIONAL EXIT
+	TRAP-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE CHAPEL		; TO ROOM
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	ORACLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-CRYPT		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?CRYPT
+	W?TOMB
+	.PROP 2,P?ACTION
+	CRYPT-F
+	.PROP 4,P?ADJECTIVE
+	W?SPOOKY
+	W?UNDERGROUND
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5121
+	.PROP 6,P?GLOBAL
+	TRAP-DOOR
+	SLIME
+	BODIES
+	.BYTE	0
+	.ENDT
+
+T?BLACK-QUEEN::	.TABLE			; TABLE FOR OBJECT BLACK-QUEEN
+	.STRL "queen"
+	.PROP 4,P?SYNONYM
+	W?QUEEN
+	W?WOMAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 8,P?ADJECTIVE
+	W?REGAL
+	W?PROUD
+	W?DARK
+	W?BLACK
+	.PROP 2,P?LDESC
+	STR?905
+	.BYTE	0
+	.ENDT
+
+T?BLACK-BISHOP::	.TABLE			; TABLE FOR OBJECT BLACK-BISHOP
+	.STRL "high priest"
+	.PROP 6,P?SYNONYM
+	W?PRIEST
+	W?BISHOP
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 4,P?ADJECTIVE
+	W?HIGH
+	W?BLACK
+	.PROP 2,P?LDESC
+	STR?907
+	.BYTE	0
+	.ENDT
+
+T?WHITE-QUEEN::	.TABLE			; TABLE FOR OBJECT WHITE-QUEEN
+	.STRL "queen"
+	.PROP 4,P?SYNONYM
+	W?QUEEN
+	W?WOMAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 6,P?ADJECTIVE
+	W?REGAL
+	W?PROUD
+	W?WHITE
+	.PROP 2,P?LDESC
+	STR?909
+	.BYTE	0
+	.ENDT
+
+T?GONDOLA::	.TABLE			; TABLE FOR OBJECT GONDOLA
+	.STRL "Gondola"
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	GONDOLA-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?GONDOLA
+	.PROP 2,P?ACTION
+	GONDOLA-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	T?129
+	.PROP 2,P?ICON
+	GONDOLA-ICON
+	.PROP 8,P?GLOBAL
+	WINDOW
+	DIRIGIBLE
+	DIRIGIBLE-HANGAR
+	SMALLER-HANGAR
+	.BYTE	0
+	.ENDT
+
+T?BOTTOM-OF-STAIR::	.TABLE			; TABLE FOR OBJECT BOTTOM-OF-STAIR
+	.STRL "Bottom of Stair"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-CRYPT		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE TOP-OF-STAIR		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4921
+	.PROP 2,P?ICON
+	BOTTOM-OF-STAIR-ICON
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?357
+	.BYTE	0
+	.ENDT
+
+T?COBWEBS::	.TABLE			; TABLE FOR OBJECT COBWEBS
+	.STRL "cobwebs"
+	.PROP 8,P?SYNONYM
+	W?COBWEBS
+	W?WEB
+	W?COBWEB
+	W?WEBS
+	.PROP 2,P?ACTION
+	COBWEBS-F
+	.PROP 2,P?ADJECTIVE
+	W?THICK
+	.BYTE	0
+	.ENDT
+
+T?SNAKE-PIT::	.TABLE			; TABLE FOR OBJECT SNAKE-PIT
+	.STRL "snake pit"
+	.PROP 4,P?SYNONYM
+	W?PIT
+	W?LID
+	.PROP 2,P?ACTION
+	TORTURE-DEVICE-F
+	.PROP 2,P?ADJECTIVE
+	W?SNAKE
+	.BYTE	0
+	.ENDT
+
+T?CHURCH::	.TABLE			; TABLE FOR OBJECT CHURCH
+	.STRL "Church"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SHADY-PARK		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE SHADY-PARK		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CHURCH
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1023
+	.PROP 2,P?ICON
+	CHURCH-ICON
+	.PROP 2,P?GLOBAL
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?536
+	.BYTE	0
+	.ENDT
+
+T?LEVER::	.TABLE			; TABLE FOR OBJECT LEVER
+	.STRL "up-down lever"
+	.PROP 2,P?SYNONYM
+	W?LEVER
+	.PROP 2,P?ACTION
+	LEVER-F
+	.PROP 2,P?ADJECTIVE
+	W?UP-DOWN
+	.BYTE	0
+	.ENDT
+
+T?J-POCKET::	.TABLE			; TABLE FOR OBJECT J-POCKET
+	.STRL "jester's pocket"
+	.PROP 2,P?SYNONYM
+	W?POCKET
+	.PROP 2,P?ACTION
+	J-GARMENT-F
+	.PROP 4,P?ADJECTIVE
+	W?HIS
+	W?JESTER'S
+	.PROP 2,P?OWNER
+	JESTER
+	.BYTE	0
+	.ENDT
+
+T?GREAT-HALL::	.TABLE			; TABLE FOR OBJECT GREAT-HALL
+	.STRL "Great Hall"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE ENTRANCE-HALL		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE AUDIENCE-CHAMBER		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FORMAL-GARDEN		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE BALCONY		; TO ROOM
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	LOWER-HALL-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?121
+	.PROP 4,P?GLOBAL
+	STAIRS
+	BANNER
+	.PROP 2,P?LDESC
+	STR?287
+	.BYTE	0
+	.ENDT
+
+T?OUTER-GATE::	.TABLE			; TABLE FOR OBJECT OUTER-GATE
+	.STRL "outer gate"
+	.PROP 6,P?SYNONYM
+	W?GATE
+	W?GATES
+	W?DOOR
+	.PROP 2,P?ACTION
+	OUTER-GATE-F
+	.PROP 10,P?ADJECTIVE
+	W?OUTER
+	W?INCREDIBLY
+	W?LARGE
+	W?IRON-REINFORCED
+	W?OAKEN
+	.BYTE	0
+	.ENDT
+
+T?FR-PENTHOUSE::	.TABLE			; TABLE FOR OBJECT FR-PENTHOUSE
+	.STRL "FrobozzCo Penthouse"
+	.PROP 3,P?DOWN		; CONDITIONAL EXIT
+	FR-OFFICES-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	FR-PENTHOUSE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2123
+	.PROP 2,P?ICON
+	PENTHOUSE-ICON
+	.PROP 6,P?GLOBAL
+	FR-BLDG
+	WINDOW
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?556
+	.BYTE	0
+	.ENDT
+
+T?MIRROR::	.TABLE			; TABLE FOR OBJECT MIRROR
+	.STRL "mirror"
+	.PROP 8,P?SYNONYM
+	W?MIRROR
+	W?LAKE
+	W?SURFACE
+	W?ICE
+	.PROP 2,P?ACTION
+	MIRROR-F
+	.PROP 8,P?ADJECTIVE
+	W?MIRROR
+	W?FROZEN
+	W?SMOOTH
+	W?REFLECTIVE
+	.PROP 2,P?RESEARCH
+	STR?821
+	.BYTE	0
+	.ENDT
+
+T?EDGE-OF-BOG::	.TABLE			; TABLE FOR OBJECT EDGE-OF-BOG
+	.STRL "Edge of Bog"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE CLIFF-BOTTOM		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE NORTH-OF-ANTHAR		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE FLATHEAD-STADIUM		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?7826
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?886
+	.BYTE	0
+	.ENDT
+
+T?SILK-TIE::	.TABLE			; TABLE FOR OBJECT SILK-TIE
+	.STRL "silk tie"
+	.PROP 2,P?SYNONYM
+	W?TIE
+	.PROP 4,P?ADJECTIVE
+	W?FADED
+	W?GRAY
+	.PROP 2,P?TEXT
+	STR?890
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?CARPET::	.TABLE			; TABLE FOR OBJECT CARPET
+	.STRL "carpet"
+	.PROP 4,P?SYNONYM
+	W?CARPET
+	W?CARPETING
+	.PROP 2,P?ACTION
+	CARPET-F
+	.PROP 4,P?ADJECTIVE
+	W?PLUSH
+	W?RED
+	.BYTE	0
+	.ENDT
+
+T?GLITTERY-ORB::	.TABLE			; TABLE FOR OBJECT GLITTERY-ORB
+	.STRL "glittery orb"
+	.PROP 2,P?SYNONYM
+	W?ORB
+	.PROP 2,P?ACTION
+	ORB-F
+	.PROP 6,P?ADJECTIVE
+	W?GLITTERY
+	W?GOLD
+	W?GOLDEN
+	.BYTE	0
+	.ENDT
+
+T?SAILOR::	.TABLE			; TABLE FOR OBJECT SAILOR
+	.STRL "sailor"
+	.PROP 2,P?SYNONYM
+	W?SAILOR
+	.PROP 2,P?ACTION
+	SAILOR-F
+	.BYTE	0
+	.ENDT
+
+T?GALLERY::	.TABLE			; TABLE FOR OBJECT GALLERY
+	.STRL "Gallery"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE BALCONY		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CLOSET		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?GALLERY
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1521
+	.PROP 2,P?ICON
+	GALLERY-ICON
+	.PROP 2,P?LDESC
+	STR?331
+	.BYTE	0
+	.ENDT
+
+T?SERVANTS-QUARTERS::	.TABLE			; TABLE FOR OBJECT SERVANTS-QUARTERS
+	.STRL "Servants' Quarters"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE GUEST-ROOMS		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE JESTERS-QUARTERS		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?QUARTERS
+	.PROP 2,P?ADJECTIVE
+	W?SERVANT'S
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9121
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?384
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-HOVEL::	.TABLE			; TABLE FOR OBJECT OUTSIDE-HOVEL
+	.STRL "Outside Hovel"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE KORBOZ-HOVEL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE QUARRYS-EDGE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?6326
+	.PROP 4,P?GLOBAL
+	SIGN
+	KORBOZ-HOVEL
+	.PROP 2,P?LDESC
+	STR?866
+	.BYTE	0
+	.ENDT
+
+T?GARRISON::	.TABLE			; TABLE FOR OBJECT GARRISON
+	.STRL "Garrison"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE OUTER-BAILEY		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE OUTER-BAILEY		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?GARRISON
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?323
+	.PROP 2,P?ICON
+	GARRISON-ICON
+	.PROP 2,P?LDESC
+	STR?531
+	.BYTE	0
+	.ENDT
+
+T?CAIRN-OBJECT::	.TABLE			; TABLE FOR OBJECT CAIRN-OBJECT
+	.STRL "pile of stones"
+	.PROP 8,P?SYNONYM
+	W?PILE
+	W?STONE
+	W?STONES
+	W?CAIRN
+	.PROP 2,P?ACTION
+	CAIRN-OBJECT-F
+	.PROP 2,P?ADJECTIVE
+	W?HAPHAZARD
+	.BYTE	0
+	.ENDT
+
+T?CUP::	.TABLE			; TABLE FOR OBJECT CUP
+	.STRL "cup"
+	.PROP 2,P?SYNONYM
+	W?CUP
+	.PROP 2,P?ACTION
+	CUP-F
+	.BYTE	0
+	.ENDT
+
+T?MOAT::	.TABLE			; TABLE FOR OBJECT MOAT
+	.STRL "moat"
+	.PROP 2,P?SYNONYM
+	W?MOAT
+	.PROP 2,P?ACTION
+	MOAT-F
+	.BYTE	0
+	.ENDT
+
+T?BAR-OF-FOOD::	.TABLE			; TABLE FOR OBJECT BAR-OF-FOOD
+	.STRL "bar of food"
+	.PROP 4,P?SYNONYM
+	W?BAR
+	W?FOOD
+	.PROP 2,P?ACTION
+	BAR-OF-FOOD-F
+	.PROP 2,P?OWNER
+	BAR-OF-FOOD
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?PLURAL
+	STR?338
+	.BYTE	0
+	.ENDT
+
+T?RING::	.TABLE			; TABLE FOR OBJECT RING
+	.STRL "ring of ineptitude"
+	.PROP 4,P?SYNONYM
+	W?RING
+	W?INEPTITUDE
+	.PROP 2,P?ACTION
+	RING-F
+	.PROP 2,P?OWNER
+	RING
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?FDESC
+	STR?561
+	.BYTE	0
+	.ENDT
+
+T?DELTA-4::	.TABLE			; TABLE FOR OBJECT DELTA-4
+	.STRL "Delta"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RIVERS-END		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-1		; TO ROOM
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-3		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-3		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-5		; TO ROOM
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3526
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.BYTE	0
+	.ENDT
+
+T?JOHANN-SEBASTIAN-PORTRAIT::	.TABLE			; TABLE FOR OBJECT JOHANN-SEBASTIAN-PORTRAIT
+	.STRL "portrait of Johann Sebastian Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?JOHANN
+	W?SEBASTIAN
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?JOHANN
+	W?SEBASTIAN
+	.PROP 2,P?OWNER
+	PT?2421
+	.BYTE	0
+	.ENDT
+
+T?PIGEON::	.TABLE			; TABLE FOR OBJECT PIGEON
+	.STRL "ceramic pigeon"
+	.PROP 12,P?SYNONYM
+	W?PIGEON
+	W?BIRD
+	W?REPRODUCTION
+	W?WRITING
+	W?PRINT
+	W?LETTERING
+	.PROP 2,P?ACTION
+	PIGEON-F
+	.PROP 8,P?ADJECTIVE
+	W?CERAMIC
+	W?CLAY
+	W?HOMING
+	W?SMALL
+	.PROP 2,P?OWNER
+	PIGEON
+	.PROP 2,P?TEXT
+	STR?547
+	.BYTE	0
+	.ENDT
+
+T?DB-PLAQUE::	.TABLE			; TABLE FOR OBJECT DB-PLAQUE
+	.STRL "brass plaque"
+	.PROP 2,P?SYNONYM
+	W?PLAQUE
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?BRASS
+	.PROP 2,P?TEXT
+	STR?569
+	.BYTE	0
+	.ENDT
+
+T?DOORBELL::	.TABLE			; TABLE FOR OBJECT DOORBELL
+	.STRL "doorbell"
+	.PROP 4,P?SYNONYM
+	W?DOORBELL
+	W?BELL
+	.PROP 2,P?ACTION
+	DOORBELL-F
+	.PROP 2,P?ADJECTIVE
+	W?DOOR
+	.PROP 2,P?GENERIC
+	G-HAT-F
+	.BYTE	0
+	.ENDT
+
+T?WORM::	.TABLE			; TABLE FOR OBJECT WORM
+	.STRL "worm"
+	.PROP 8,P?SYNONYM
+	W?WORM
+	W?EARTHWORM
+	W?PIECE
+	W?RUBBER
+	.PROP 2,P?ACTION
+	WORM-F
+	.PROP 2,P?ADJECTIVE
+	W?COMMON
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?FDESC
+	STR?295
+	.PROP 2,P?INANIMATE-DESC
+	STR?296
+	.PROP 2,P?WAND-TEXT
+	STR?297
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-WORM
+	.BYTE	0
+	.ENDT
+
+T?SHOVEL::	.TABLE			; TABLE FOR OBJECT SHOVEL
+	.STRL "shovel"
+	.PROP 2,P?SYNONYM
+	W?SHOVEL
+	.PROP 2,P?SIZE
+	20
+	.BYTE	0
+	.ENDT
+
+T?HEART-OF-MINE::	.TABLE			; TABLE FOR OBJECT HEART-OF-MINE
+	.STRL "Heart of Mine"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE CRAWL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RUBBLE-ROOM		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RUBBLE-ROOM		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RUBBLE-ROOM		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8526
+	.PROP 4,P?GLOBAL
+	GRANOLA
+	GRANOLA-MINE
+	.PROP 2,P?LDESC
+	STR?895
+	.BYTE	0
+	.ENDT
+
+T?OTHER-J-NAMES::	.TABLE			; TABLE FOR OBJECT OTHER-J-NAMES
+	.STRL "jester's name"
+	.PROP 4,P?SYNONYM
+	W?BARBAZZO
+	W?FERNAP
+	.PROP 2,P?ACTION
+	OTHER-J-NAMES-F
+	.BYTE	0
+	.ENDT
+
+T?CENTER-SHELL::	.TABLE			; TABLE FOR OBJECT CENTER-SHELL
+	.STRL "center shell"
+	.PROP 2,P?SYNONYM
+	W?SHELL
+	.PROP 2,P?ACTION
+	SHELL-F
+	.PROP 6,P?ADJECTIVE
+	W?CENTER
+	W?MIDDLE
+	W?SECOND
+	.BYTE	0
+	.ENDT
+
+T?SEAMANS-CAP::	.TABLE			; TABLE FOR OBJECT SEAMANS-CAP
+	.STRL "seaman's cap"
+	.PROP 4,P?SYNONYM
+	W?CAP
+	W?HAT
+	.PROP 6,P?ADJECTIVE
+	W?OLD
+	W?SEAMAN'S
+	W?SEAMAN
+	.PROP 2,P?GENERIC
+	G-HAT-F
+	.PROP 2,P?FDESC
+	STR?362
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?GRAVEL::	.TABLE			; TABLE FOR OBJECT GRAVEL
+	.STRL "gravel"
+	.PROP 2,P?SYNONYM
+	W?GRAVEL
+	.PROP 2,P?ACTION
+	GRAVEL-F
+	.PROP 2,P?GENERIC
+	G-GRAVEL-F
+	.PROP 2,P?PLURAL
+	STR?588
+	.BYTE	0
+	.ENDT
+
+T?EASLE::	.TABLE			; TABLE FOR OBJECT EASLE
+	.STRL "easel"
+	.PROP 4,P?SYNONYM
+	W?EASLE
+	W?EASEL
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?FDESC
+	STR?811
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?AERIE::	.TABLE			; TABLE FOR OBJECT AERIE
+	.STRL "Aerie"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE ICKY-CAVE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE PRECIPICE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?AERIE
+	.PROP 2,P?ACTION
+	AERIE-F
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8126
+	.PROP 2,P?ICON
+	AERIE-ICON
+	.PROP 2,P?LDESC
+	STR?889
+	.BYTE	0
+	.ENDT
+
+T?RIGHT-PEG::	.TABLE			; TABLE FOR OBJECT RIGHT-PEG
+	.STRL "right peg"
+	.PROP 4,P?SYNONYM
+	W?PEG
+	W?POST
+	.PROP 4,P?ADJECTIVE
+	W?THIRD
+	W?RIGHT
+	.BYTE	0
+	.ENDT
+
+T?LETTER-Y::	.TABLE			; TABLE FOR OBJECT LETTER-Y
+	.STRL "the letter y"
+	.PROP 2,P?SYNONYM
+	W?Y
+	.PROP 2,P?ADJECTIVE
+	W?LETTER
+	.BYTE	0
+	.ENDT
+
+T?CLOTHES-CLOSET::	.TABLE			; TABLE FOR OBJECT CLOTHES-CLOSET
+	.STRL "Magic Clothes Closet"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE DIMWITS-ROOM		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CLOSET
+	.PROP 4,P?ADJECTIVE
+	W?MAGIC
+	W?CLOTHES
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4521
+	.PROP 2,P?ICON
+	MAGIC-CLOSET-ICON
+	.PROP 2,P?LDESC
+	STR?353
+	.BYTE	0
+	.ENDT
+
+T?LARGE-DOOR::	.TABLE			; TABLE FOR OBJECT LARGE-DOOR
+	.STRL "large arched door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	LARGE-DOOR-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?ARCHED
+	.PROP 2,P?GENERIC
+	G-J-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?BANQUET-HALL::	.TABLE			; TABLE FOR OBJECT BANQUET-HALL
+	.STRL "Banquet Hall"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE SCULLERY		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE KITCHEN		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE ENTRANCE-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?HALL
+	.PROP 2,P?ACTION
+	BANQUET-HALL-F
+	.PROP 2,P?THINGS
+	PT?420
+	.PROP 2,P?ADJECTIVE
+	W?BANQUET
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?120
+	.PROP 2,P?ICON
+	BANQUET-HALL-ICON
+	.PROP 4,P?GLOBAL
+	KITCHEN
+	SCULLERY
+	.BYTE	0
+	.ENDT
+
+T?EAST-SHORE::	.TABLE			; TABLE FOR OBJECT EAST-SHORE
+	.STRL "East Shore"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAIN		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?562		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	EAST-SHORE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?324
+	.PROP 2,P?ICON
+	EAST-SHORE-ICON
+	.PROP 6,P?GLOBAL
+	LAKE-FLATHEAD
+	STAIRS
+	G-U-MOUNTAIN
+	.BYTE	0
+	.ENDT
+
+T?DB::	.TABLE			; TABLE FOR OBJECT DB
+	.STRL "bathysphere"
+	.PROP 10,P?SYNONYM
+	W?SPHERE
+	W?BATHYSPHERE
+	W?DOOR
+	W?HATCH
+	W?BELL
+	.PROP 2,P?ACTION
+	DB-F
+	.PROP 2,P?ADJECTIVE
+	W?DIVING
+	.PROP 2,P?CAPACITY
+	200
+	.BYTE	0
+	.ENDT
+
+T?DELTA-6::	.TABLE			; TABLE FOR OBJECT DELTA-6
+	.STRL "Delta"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE DELTA-5		; TO ROOM
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-7		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DELTA-7		; TO ROOM
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3726
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.BYTE	0
+	.ENDT
+
+T?NEST::	.TABLE			; TABLE FOR OBJECT NEST
+	.STRL "nest"
+	.PROP 2,P?SYNONYM
+	W?NEST
+	.PROP 2,P?ACTION
+	NEST-F
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?BIRD
+	W?BIRD'S
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-SHACK::	.TABLE			; TABLE FOR OBJECT OUTSIDE-SHACK
+	.STRL "Outside Shack"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE GUMBOZ-SHACK		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE CAIRN		; TO ROOM
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?5526
+	.PROP 4,P?GLOBAL
+	GUMBOZ-SHACK
+	SIGN
+	.PROP 2,P?LDESC
+	STR?861
+	.BYTE	0
+	.ENDT
+
+T?AVALANCHE::	.TABLE			; TABLE FOR OBJECT AVALANCHE
+	.STRL "Avalanche"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE ZORBEL-PASS		; TO ROOM
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?872		; FAILURE MESSAGE
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE TIMBERLINE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE ZORBEL-PASS		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?6826
+	.PROP 2,P?ICON
+	AVALANCHE-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?871
+	.BYTE	0
+	.ENDT
+
+T?FORK::	.TABLE			; TABLE FOR OBJECT FORK
+	.STRL "Fork"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE REST-STOP		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE SALTY-SMELL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FISHY-ODOR		; TO ROOM
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?2325
+	.PROP 2,P?ICON
+	FORK-ICON
+	.PROP 2,P?LDESC
+	STR?632
+	.BYTE	0
+	.ENDT
+
+T?OASIS::	.TABLE			; TABLE FOR OBJECT OASIS
+	.STRL "Great Underground Oasis"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RIPPLED-SANDS		; TO ROOM
+	.PROP 2,P?ACTION
+	CAMEL-DRINK-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3724
+	.PROP 2,P?ICON
+	G-U-OASIS-ICON
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?VALUE
+	8
+	.BYTE	0
+	.ENDT
+
+T?ON-TOP-OF-THE-WORLD::	.TABLE			; TABLE FOR OBJECT ON-TOP-OF-THE-WORLD
+	.STRL "On Top of the World"
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?876		; FAILURE MESSAGE
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE AMONGST-THE-CLOUDS		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?7126
+	.PROP 2,P?ICON
+	ON-TOP-OF-WORLD-ICON
+	.PROP 4,P?GLOBAL
+	BROGMOID
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?875
+	.BYTE	0
+	.ENDT
+
+T?UNGNARLED-ELM::	.TABLE			; TABLE FOR OBJECT UNGNARLED-ELM
+	.STRL "ungnarled elm tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?ELM
+	.PROP 2,P?ACTION
+	TREE-F
+	.PROP 4,P?ADJECTIVE
+	W?UNGNARLED
+	W?ELM
+	.BYTE	0
+	.ENDT
+
+T?LEFT-PEG::	.TABLE			; TABLE FOR OBJECT LEFT-PEG
+	.STRL "left peg"
+	.PROP 4,P?SYNONYM
+	W?PEG
+	W?POST
+	.PROP 4,P?ADJECTIVE
+	W?FIRST
+	W?LEFT
+	.BYTE	0
+	.ENDT
+
+T?HIM::	.TABLE			; TABLE FOR OBJECT HIM
+	.STRL "him"
+	.PROP 4,P?SYNONYM
+	W?HIM
+	W?HIMSELF
+	.BYTE	0
+	.ENDT
+
+T?LIBRARY::	.TABLE			; TABLE FOR OBJECT LIBRARY
+	.STRL "Library"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE EAST-WING		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE EAST-WING		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?LIBRARY
+	.PROP 2,P?ACTION
+	LIBRARY-F
+	.PROP 2,P?THINGS
+	PT?11822
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?122
+	.PROP 2,P?ICON
+	LIBRARY-ICON
+	.PROP 2,P?LDESC
+	STR?438
+	.BYTE	0
+	.ENDT
+
+T?CROSSROADS::	.TABLE			; TABLE FOR OBJECT CROSSROADS
+	.STRL "Crossroads"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE EXIT		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE CAVE-IN		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE TOLL-PLAZA		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE POTHOLES		; TO ROOM
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?325
+	.PROP 2,P?ICON
+	CROSSROADS-ICON
+	.PROP 2,P?GLOBAL
+	SIGN
+	.PROP 2,P?LDESC
+	STR?619
+	.BYTE	0
+	.ENDT
+
+T?EYES::	.TABLE			; TABLE FOR OBJECT EYES
+	.STRL "eyes"
+	.PROP 4,P?SYNONYM
+	W?EYE
+	W?EYES
+	.PROP 2,P?ACTION
+	EYES-F
+	.PROP 24,P?ADJECTIVE
+	W?MY
+	W?MINE
+	W?ORACLE'S
+	W?AMULET'S
+	W?FIRST
+	W?SECOND
+	W?THIRD
+	W?FOURTH
+	W?ONE
+	W?TWO
+	W?THREE
+	W?FOUR
+	.PROP 2,P?OWNER
+	BODY-PART-OWNERS
+	.BYTE	0
+	.ENDT
+
+T?LOWEST-HALL::	.TABLE			; TABLE FOR OBJECT LOWEST-HALL
+	.STRL "Lowest Hall"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-STORAGE-ROOM		; TO ROOM
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?401		; FAILURE MESSAGE
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	VAULT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE VAULT		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE LOWER-HALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE PITS		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9821
+	.PROP 10,P?GLOBAL
+	VAULT
+	VAULT-DOOR
+	LOCK-OBJECT
+	FIXED-LADDER
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?400
+	.BYTE	0
+	.ENDT
+
+T?STOCK-CERTIFICATE::	.TABLE			; TABLE FOR OBJECT STOCK-CERTIFICATE
+	.STRL "stock certificate"
+	.PROP 4,P?SYNONYM
+	W?CERTIFICATE
+	W?STOCK
+	.PROP 4,P?ADJECTIVE
+	W?STOCK
+	W?RARE
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?404
+	.PROP 2,P?VALUE
+	12
+	.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
+	YACHT-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?GREEN
+	.BYTE	0
+	.ENDT
+
+T?QUARRYS-EDGE::	.TABLE			; TABLE FOR OBJECT QUARRYS-EDGE
+	.STRL "Quarry's Edge"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE CAIRN		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-HOVEL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE QUARRY		; TO ROOM
+	.PROP 2,P?THINGS
+	PT?5926
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?5726
+	.PROP 2,P?ICON
+	QUARRYS-EDGE-ICON
+	.PROP 4,P?GLOBAL
+	TIRED-PINE
+	QUARRY
+	.PROP 2,P?LDESC
+	STR?864
+	.BYTE	0
+	.ENDT
+
+T?CRATE::	.TABLE			; TABLE FOR OBJECT CRATE
+	.STRL "crate"
+	.PROP 4,P?SYNONYM
+	W?CRATE
+	W?WRITING
+	.PROP 6,P?ADJECTIVE
+	W?WOODEN
+	W?SHIPPING
+	W?STENCILLED
+	.PROP 2,P?OWNER
+	CRATE
+	.PROP 2,P?SIZE
+	80
+	.PROP 2,P?TEXT
+	STR?933
+	.PROP 2,P?LDESC
+	STR?932
+	.PROP 2,P?CAPACITY
+	100
+	.BYTE	0
+	.ENDT
+
+T?DONJON::	.TABLE			; TABLE FOR OBJECT DONJON
+	.STRL "Donjon"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE FOREBLDG		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE SOLAR		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE FOREBLDG		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4221
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?348
+	.BYTE	0
+	.ENDT
+
+T?LABORATORY::	.TABLE			; TABLE FOR OBJECT LABORATORY
+	.STRL "Laboratory"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE TESTING-ROOM		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE LOWER-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?LABORATORY
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9421
+	.PROP 2,P?ICON
+	LABORATORY-ICON
+	.PROP 2,P?LDESC
+	STR?387
+	.BYTE	0
+	.ENDT
+
+T?ORACLE-OBJECT::	.TABLE			; TABLE FOR OBJECT ORACLE-OBJECT
+	.STRL "oracle"
+	.PROP 8,P?SYNONYM
+	W?ORACLE
+	W?BARGTH
+	W?MOUTH
+	W?HEAD
+	.PROP 2,P?ACTION
+	ORACLE-OBJECT-F
+	.PROP 6,P?ADJECTIVE
+	W?HUGE
+	W?ORACLE'S
+	W?SERPENT'S
+	.PROP 2,P?RESEARCH
+	STR?788
+	.PROP 2,P?OWNER
+	ORACLE-OBJECT
+	.PROP 2,P?CAPACITY
+	100
+	.BYTE	0
+	.ENDT
+
+T?NATURAL-ARCH-OBJECT::	.TABLE			; TABLE FOR OBJECT NATURAL-ARCH-OBJECT
+	.STRL "sandstone arch"
+	.PROP 4,P?SYNONYM
+	W?ARCH
+	W?BRIDGE
+	.PROP 2,P?ACTION
+	NATURAL-ARCH-OBJECT-F
+	.PROP 8,P?ADJECTIVE
+	W?SANDSTONE
+	W?NATURAL
+	W?SLENDER
+	W?GRACEFUL
+	.BYTE	0
+	.ENDT
+
+T?WHITE-PAWN::	.TABLE			; TABLE FOR OBJECT WHITE-PAWN
+	.STRL "foot soldier"
+	.PROP 6,P?SYNONYM
+	W?SOLDIER
+	W?PAWN
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 4,P?ADJECTIVE
+	W?WHITE
+	W?FOOT
+	.PROP 2,P?LDESC
+	STR?908
+	.BYTE	0
+	.ENDT
+
+T?GAMING-ROOM::	.TABLE			; TABLE FOR OBJECT GAMING-ROOM
+	.STRL "Gaming Room"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE PEG-ROOM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 2,P?ACTION
+	GAMING-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?8521
+	.PROP 2,P?GLOBAL
+	CARPET
+	.PROP 2,P?LDESC
+	STR?373
+	.BYTE	0
+	.ENDT
+
+T?WEST-SHORE::	.TABLE			; TABLE FOR OBJECT WEST-SHORE
+	.STRL "West Shore"
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?562		; FAILURE MESSAGE
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE ROYAL-ZOO		; TO ROOM
+	.PROP 2,P?ACTION
+	WEST-SHORE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?124
+	.PROP 2,P?ICON
+	WEST-SHORE-ICON
+	.PROP 4,P?GLOBAL
+	LAKE-FLATHEAD
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?VIOLIN::	.TABLE			; TABLE FOR OBJECT VIOLIN
+	.STRL "fancy violin"
+	.PROP 4,P?SYNONYM
+	W?STRADIVARIUS
+	W?VIOLIN
+	.PROP 2,P?ACTION
+	VIOLIN-F
+	.PROP 8,P?ADJECTIVE
+	W?FANCY
+	W?BEAUTIFUL
+	W?HANDMADE
+	W?STRADIVARIUS
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?FDESC
+	STR?614
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?CLOWN-NOSE::	.TABLE			; TABLE FOR OBJECT CLOWN-NOSE
+	.STRL "red clown nose"
+	.PROP 2,P?SYNONYM
+	W?NOSE
+	.PROP 2,P?ACTION
+	CLOWN-NOSE-F
+	.PROP 4,P?ADJECTIVE
+	W?RED
+	W?CLOWN
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?5-WEIGHT::	.TABLE			; TABLE FOR OBJECT 5-WEIGHT
+	.STRL "5-ugh weight"
+	.PROP 2,P?SYNONYM
+	W?WEIGHT
+	.PROP 2,P?ACTION
+	WEIGHT-F
+	.PROP 2,P?ADJECTIVE
+	W?5-UGH
+	.PROP 2,P?SIZE
+	5
+	.BYTE	0
+	.ENDT
+
+T?GENERIC-OBJECTS::	.TABLE			; TABLE FOR OBJECT GENERIC-OBJECTS
+	.STRL ""
+	.PROP 2,P?ADJACENT
+	0
+	.BYTE	0
+	.ENDT
+
+T?BODIES::	.TABLE			; TABLE FOR OBJECT BODIES
+	.STRL "bodies"
+	.PROP 4,P?SYNONYM
+	W?BODIES
+	W?REMAINS
+	.PROP 2,P?ACTION
+	BODIES-F
+	.BYTE	0
+	.ENDT
+
+T?LAKE-BOTTOM::	.TABLE			; TABLE FOR OBJECT LAKE-BOTTOM
+	.STRL "Lake Bottom"
+	.PROP 2,P?ACTION
+	LAKE-BOTTOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?824
+	.PROP 2,P?ICON
+	LAKE-BOTTOM-ICON
+	.PROP 2,P?GLOBAL
+	LAKE-FLATHEAD
+	.PROP 2,P?LDESC
+	STR?577
+	.BYTE	0
+	.ENDT
+
+T?TORTURE-CHAMBER::	.TABLE			; TABLE FOR OBJECT TORTURE-CHAMBER
+	.STRL "Torture Chamber"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CHAMBER
+	.PROP 2,P?ACTION
+	TORTURE-CHAMBER-F
+	.PROP 2,P?ADJECTIVE
+	W?TORTURE
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5621
+	.PROP 2,P?LDESC
+	STR?366
+	.BYTE	0
+	.ENDT
+
+T?CROWN::	.TABLE			; TABLE FOR OBJECT CROWN
+	.STRL "gaudy crown"
+	.PROP 2,P?SYNONYM
+	W?CROWN
+	.PROP 2,P?ADJECTIVE
+	W?GAUDY
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?SECRET-ROOM::	.TABLE			; TABLE FOR OBJECT SECRET-ROOM
+	.STRL "Secret Room"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RUINED-HALL		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RUINED-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?ROOM
+	.PROP 2,P?ADJECTIVE
+	W?SECRET
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?629
+	.PROP 2,P?ICON
+	SECRET-ROOM-ICON
+	.PROP 2,P?LDESC
+	STR?950
+	.BYTE	0
+	.ENDT
+
+T?LITTLE-FUNGUS::	.TABLE			; TABLE FOR OBJECT LITTLE-FUNGUS
+	.STRL "little fungus"
+	.PROP 28,P?SYNONYM
+	W?SEYMOUR
+	W?SHERMAN
+	W?IRVING
+	W?SAMMY
+	W?MYRON
+	W?BORIS
+	W?MELVIN
+	W?LESTER
+	W?JULIUS
+	W?RICARDO
+	W?OMAR
+	W?BARNABY
+	W?FUNGUS
+	W?COUSIN
+	.PROP 2,P?ACTION
+	LITTLE-FUNGUS-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?RESEARCH
+	STR?423
+	.PROP 2,P?GENERIC
+	G-FUNGUS-F
+	.BYTE	0
+	.ENDT
+
+T?COMFY-CHAIR::	.TABLE			; TABLE FOR OBJECT COMFY-CHAIR
+	.STRL "comfy chair"
+	.PROP 2,P?SYNONYM
+	W?CHAIR
+	.PROP 2,P?ACTION
+	TORTURE-DEVICE-F
+	.PROP 2,P?ADJECTIVE
+	W?COMFY
+	.BYTE	0
+	.ENDT
+
+T?ROOTS::	.TABLE			; TABLE FOR OBJECT ROOTS
+	.STRL "root"
+	.PROP 4,P?SYNONYM
+	W?ROOTS
+	W?ROOT
+	.PROP 2,P?ACTION
+	ROOTS-F
+	.PROP 4,P?ADJECTIVE
+	W?HARDY
+	W?TREE
+	.BYTE	0
+	.ENDT
+
+T?THOMAS-ALVA-PORTRAIT::	.TABLE			; TABLE FOR OBJECT THOMAS-ALVA-PORTRAIT
+	.STRL "portrait of Thomas Alva Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?THOMAS
+	W?ALVA
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?THOMAS
+	W?ALVA
+	.PROP 2,P?OWNER
+	PT?2221
+	.BYTE	0
+	.ENDT
+
+T?BOWL::	.TABLE			; TABLE FOR OBJECT BOWL
+	.STRL "bowl"
+	.PROP 4,P?SYNONYM
+	W?BOWL
+	W?CARAFE
+	.PROP 2,P?ACTION
+	BOWL-F
+	.PROP 6,P?ADJECTIVE
+	W?TRANSLUCENT
+	W?TALL
+	W?NARROW
+	.PROP 2,P?LDESC
+	STR?591
+	.PROP 2,P?CAPACITY
+	25
+	.BYTE	0
+	.ENDT
+
+T?DELTA-2::	.TABLE			; TABLE FOR OBJECT DELTA-2
+	.STRL "Delta"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-1		; TO ROOM
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-1		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE DELTA-7		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-7		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-3		; TO ROOM
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3326
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.BYTE	0
+	.ENDT
+
+T?REBUS-CAMEL::	.TABLE			; TABLE FOR OBJECT REBUS-CAMEL
+	.STRL "flattened camel"
+	.PROP 6,P?SYNONYM
+	W?CAMEL
+	W?ANIMAL
+	W?REPRESENTATION
+	.PROP 2,P?ACTION
+	REBUS-ANIMAL-F
+	.PROP 4,P?ADJECTIVE
+	W?FLATTENED
+	W?LAYERED
+	.PROP 2,P?GENERIC
+	G-CAMEL-F
+	.PROP 2,P?OWNER
+	REBUS
+	.BYTE	0
+	.ENDT
+
+T?G-U-HIGHWAY::	.TABLE			; TABLE FOR OBJECT G-U-HIGHWAY
+	.STRL "Great Underground Highway"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE LOWER-HALL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE EXIT		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?125
+	.PROP 2,P?ICON
+	G-U-HIGHWAY-ICON
+	.PROP 2,P?LDESC
+	STR?616
+	.BYTE	0
+	.ENDT
+
+T?LARGE-VIAL::	.TABLE			; TABLE FOR OBJECT LARGE-VIAL
+	.STRL "nine-gloop vial"
+	.PROP 4,P?SYNONYM
+	W?VIAL
+	W?WRITING
+	.PROP 2,P?ACTION
+	VIAL-F
+	.PROP 12,P?ADJECTIVE
+	W?NINE-GLOOP
+	W?9-GLOOP
+	W?NINE
+	W?GLOOP
+	W?LARGE
+	W?INT.NUM
+	.PROP 2,P?GENERIC
+	G-VIAL-F
+	.PROP 2,P?OWNER
+	LARGE-VIAL
+	.BYTE	0
+	.ENDT
+
+T?RALPH-WALDO-PORTRAIT::	.TABLE			; TABLE FOR OBJECT RALPH-WALDO-PORTRAIT
+	.STRL "portrait of Ralph Waldo Flathead"
+	.PROP 10,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?RALPH
+	W?WALDO
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 4,P?ADJECTIVE
+	W?RALPH
+	W?WALDO
+	.PROP 2,P?OWNER
+	PT?1921
+	.BYTE	0
+	.ENDT
+
+T?QUARRY::	.TABLE			; TABLE FOR OBJECT QUARRY
+	.STRL "Quarry"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE QUARRYS-EDGE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE QUARRYS-EDGE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?QUARRY
+	.PROP 2,P?ACTION
+	QUARRY-F
+	.PROP 2,P?THINGS
+	PT?6226
+	.PROP 6,P?ADJECTIVE
+	W?ABANDONED
+	W?OLD
+	W?STONE
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?6026
+	.PROP 2,P?ICON
+	QUARRY-ICON
+	.PROP 2,P?GLOBAL
+	TIRED-PINE
+	.PROP 2,P?LDESC
+	STR?865
+	.BYTE	0
+	.ENDT
+
+T?CAULDRON::	.TABLE			; TABLE FOR OBJECT CAULDRON
+	.STRL "cauldron"
+	.PROP 4,P?SYNONYM
+	W?CAULDRON
+	W?KETTLE
+	.PROP 2,P?ACTION
+	CAULDRON-F
+	.PROP 6,P?ADJECTIVE
+	W?BUBBLING
+	W?ROILING
+	W?FUMING
+	.BYTE	0
+	.ENDT
+
+T?FORMAL-GARDEN::	.TABLE			; TABLE FOR OBJECT FORMAL-GARDEN
+	.STRL "Formal Garden"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE PARLOR		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE WEST-HALL		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?GARDEN
+	.PROP 2,P?THINGS
+	PT?1221
+	.PROP 2,P?ADJECTIVE
+	W?FORMAL
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1021
+	.PROP 2,P?ICON
+	FORMAL-GARDEN-ICON
+	.PROP 2,P?LDESC
+	STR?326
+	.BYTE	0
+	.ENDT
+
+T?BLACK-PAWN::	.TABLE			; TABLE FOR OBJECT BLACK-PAWN
+	.STRL "foot soldier"
+	.PROP 6,P?SYNONYM
+	W?SOLDIER
+	W?PAWN
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 4,P?ADJECTIVE
+	W?FOOT
+	W?BLACK
+	.PROP 2,P?LDESC
+	STR?904
+	.BYTE	0
+	.ENDT
+
+T?COOKFIRE::	.TABLE			; TABLE FOR OBJECT COOKFIRE
+	.STRL "cookfire"
+	.PROP 4,P?SYNONYM
+	W?COOKFIRE
+	W?FIRE
+	.BYTE	0
+	.ENDT
+
+T?MEMO::	.TABLE			; TABLE FOR OBJECT MEMO
+	.STRL "memo"
+	.PROP 2,P?SYNONYM
+	W?MEMO
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?554
+	.BYTE	0
+	.ENDT
+
+T?REST-STOP::	.TABLE			; TABLE FOR OBJECT REST-STOP
+	.STRL "Rest Stop"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE POTHOLES		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE FORK		; TO ROOM
+	.PROP 2,P?THINGS
+	PT?2225
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?1725
+	.PROP 2,P?ICON
+	REST-STOP-ICON
+	.PROP 2,P?LDESC
+	STR?631
+	.BYTE	0
+	.ENDT
+
+T?LEDGE-IN-PIT::	.TABLE			; TABLE FOR OBJECT LEDGE-IN-PIT
+	.STRL "Ledge in Bottomless Pit"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE PITS		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE MOUTH-OF-CAVE		; TO ROOM
+	.PROP 2,P?THINGS
+	PT?10721
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?10421
+	.PROP 2,P?ICON
+	LEDGE-IN-PIT-ICON
+	.PROP 4,P?GLOBAL
+	BONES
+	PITS-OBJECT
+	.PROP 2,P?LDESC
+	STR?411
+	.BYTE	0
+	.ENDT
+
+T?FJORD::	.TABLE			; TABLE FOR OBJECT FJORD
+	.STRL "the Flathead Fjord"
+	.PROP 2,P?SYNONYM
+	W?FJORD
+	.PROP 2,P?ACTION
+	FJORD-F
+	.PROP 2,P?ADJECTIVE
+	W?FLATHEAD
+	.PROP 2,P?RESEARCH
+	STR?812
+	.BYTE	0
+	.ENDT
+
+T?SPYGLASS::	.TABLE			; TABLE FOR OBJECT SPYGLASS
+	.STRL "spyglass"
+	.PROP 4,P?SYNONYM
+	W?SPYGLASS
+	W?TELESCOPE
+	.PROP 2,P?ACTION
+	SPYGLASS-F
+	.PROP 2,P?PLURAL
+	STR?834
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?BLACK-KNIGHT::	.TABLE			; TABLE FOR OBJECT BLACK-KNIGHT
+	.STRL "mounted soldier"
+	.PROP 8,P?SYNONYM
+	W?SOLDIER
+	W?KNIGHT
+	W?HORSE
+	W?MAN
+	.PROP 2,P?ACTION
+	PIECE-F
+	.PROP 4,P?ADJECTIVE
+	W?MOUNTED
+	W?BLACK
+	.PROP 2,P?LDESC
+	STR?902
+	.BYTE	0
+	.ENDT
+
+T?RIGHT-SHELL::	.TABLE			; TABLE FOR OBJECT RIGHT-SHELL
+	.STRL "right shell"
+	.PROP 2,P?SYNONYM
+	W?SHELL
+	.PROP 2,P?ACTION
+	SHELL-F
+	.PROP 4,P?ADJECTIVE
+	W?RIGHT
+	W?THIRD
+	.BYTE	0
+	.ENDT
+
+T?FISSURE-EDGE::	.TABLE			; TABLE FOR OBJECT FISSURE-EDGE
+	.STRL "Fissure's Edge"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE TOLL-PLAZA		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE TIGHT-SQUEEZE		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?625		; FAILURE MESSAGE
+	.PROP 2,P?DOWN		; IMPOSSIBLE EXIT
+	STR?626		; FAILURE MESSAGE
+	.PROP 2,P?THINGS
+	PT?1125
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?625
+	.PROP 2,P?ICON
+	FISSURES-EDGE-ICON
+	.PROP 2,P?LDESC
+	STR?624
+	.BYTE	0
+	.ENDT
+
+T?HOLLOW::	.TABLE			; TABLE FOR OBJECT HOLLOW
+	.STRL "Hollow"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE CRAG		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE IRON-MINE		; TO ROOM
+	.BYTE IRON-MINE-OPEN		; IF FLAG IS TRUE
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	HOLLOW-F
+	.PROP 2,P?THINGS
+	PT?1026
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?726
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.BYTE	0
+	.ENDT
+
+T?EXECUTIONER::	.TABLE			; TABLE FOR OBJECT EXECUTIONER
+	.STRL "executioner"
+	.PROP 4,P?SYNONYM
+	W?EXECUTIONER
+	W?MAN
+	.PROP 2,P?ACTION
+	EXECUTIONER-F
+	.BYTE	0
+	.ENDT
+
+T?LOWER-LEDGE::	.TABLE			; TABLE FOR OBJECT LOWER-LEDGE
+	.STRL "Lower Ledge"
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?808		; FAILURE MESSAGE
+	.PROP 2,P?DOWN		; IMPOSSIBLE EXIT
+	STR?809		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?LEDGE
+	.PROP 2,P?ACTION
+	LOWER-LEDGE-F
+	.PROP 2,P?THINGS
+	PT?2426
+	.PROP 2,P?ADJECTIVE
+	W?LOWER
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?2126
+	.PROP 2,P?ICON
+	LOWER-LEDGE-ICON
+	.PROP 6,P?GLOBAL
+	FJORD
+	UPPER-LEDGE
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?807
+	.BYTE	0
+	.ENDT
+
+T?REFLECTION::	.TABLE			; TABLE FOR OBJECT REFLECTION
+	.STRL "reflection"
+	.PROP 2,P?SYNONYM
+	W?REFLECTION
+	.PROP 2,P?ACTION
+	REFLECTION-F
+	.PROP 2,P?OWNER
+	ROOMS
+	.BYTE	0
+	.ENDT
+
+T?SHADY-PARK::	.TABLE			; TABLE FOR OBJECT SHADY-PARK
+	.STRL "Shady Park"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE TAX-OFFICE		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-CENTER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CHURCH		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE VILLAGE-GATE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?PARK
+	.PROP 2,P?ADJECTIVE
+	W?SHADY
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?923
+	.PROP 2,P?ICON
+	SHADY-PARK-ICON
+	.PROP 4,P?GLOBAL
+	VILLAGE
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?535
+	.BYTE	0
+	.ENDT
+
+T?COAST-ROAD::	.TABLE			; TABLE FOR OBJECT COAST-ROAD
+	.STRL "Coast Road"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE MINE-ENTRANCE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE FLATHEAD-STADIUM		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?7326
+	.PROP 2,P?ICON
+	COAST-ROAD-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-OCEAN
+	.PROP 2,P?LDESC
+	STR?879
+	.BYTE	0
+	.ENDT
+
+T?BROGMOIDISM::	.TABLE			; TABLE FOR OBJECT BROGMOIDISM
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BROGMOIDISM
+	.PROP 2,P?ACTION
+	ENC-ENTRY-F
+	.PROP 2,P?RESEARCH
+	STR?523
+	.PROP 2,P?PICTURE
+	BROGMOIDISM-ILL
+	.BYTE	0
+	.ENDT
+
+T?DUMBBELL::	.TABLE			; TABLE FOR OBJECT DUMBBELL
+	.STRL "dumbbell"
+	.PROP 6,P?SYNONYM
+	W?DUMBBELL
+	W?WEIGHTS
+	W?SET
+	.PROP 2,P?ACTION
+	DUMBELL-F
+	.PROP 4,P?ADJECTIVE
+	W?HEAVY
+	W?100-UGH
+	.PROP 2,P?SIZE
+	99
+	.PROP 2,P?LDESC
+	STR?375
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?GRANOLA::	.TABLE			; TABLE FOR OBJECT GRANOLA
+	.STRL "granola"
+	.PROP 2,P?SYNONYM
+	W?GRANOLA
+	.PROP 2,P?ACTION
+	GRANOLA-F
+	.PROP 2,P?RESEARCH
+	STR?508
+	.BYTE	0
+	.ENDT
+
+T?EAST-WING::	.TABLE			; TABLE FOR OBJECT EAST-WING
+	.STRL "East Wing"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE LIBRARY		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE GUEST-ROOMS		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CHAPEL		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	EAST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE EAST-HALL		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?8921
+	.PROP 2,P?ICON
+	EAST-WING-ICON
+	.PROP 4,P?GLOBAL
+	EAST-DOOR
+	LOCK-OBJECT
+	.PROP 2,P?LDESC
+	STR?377
+	.PROP 2,P?VALUE
+	8
+	.BYTE	0
+	.ENDT
+
+T?FLATHEADIA::	.TABLE			; TABLE FOR OBJECT FLATHEADIA
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?FLATHEADIA
+	.PROP 2,P?ACTION
+	ENC-ENTRY-F
+	.PROP 2,P?RESEARCH
+	STR?524
+	.PROP 2,P?PICTURE
+	FLATHEADIA-ILL
+	.BYTE	0
+	.ENDT
+
+T?BARBICAN::	.TABLE			; TABLE FOR OBJECT BARBICAN
+	.STRL "Barbican"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE CAUSEWAY		; TO ROOM
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	DRAWBRIDGE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE DRAWBRIDGE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE UPPER-BARBICAN		; TO ROOM
+	.PROP 6,P?SYNONYM
+	W?BARBICAN
+	W?TOWER
+	W?GATE-TOWER
+	.PROP 2,P?ACTION
+	BARBICAN-F
+	.PROP 4,P?ADJECTIVE
+	W?TALL
+	W?LOWER
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?521
+	.PROP 2,P?ICON
+	BARBICAN-ICON
+	.PROP 8,P?GLOBAL
+	MOAT
+	DRAWBRIDGE
+	FIXED-LADDER
+	UPPER-BARBICAN
+	.BYTE	0
+	.ENDT
+
+T?ZILBEETHA::	.TABLE			; TABLE FOR OBJECT ZILBEETHA
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?ZILBEETHA
+	.PROP 2,P?ACTION
+	ENC-ENTRY-F
+	.PROP 2,P?RESEARCH
+	STR?522
+	.PROP 2,P?PICTURE
+	ZILBEETHA-ILL
+	.BYTE	0
+	.ENDT
+
+T?CAVE-OBJECT::	.TABLE			; TABLE FOR OBJECT CAVE-OBJECT
+	.STRL "cave"
+	.PROP 2,P?SYNONYM
+	W?CAVE
+	.PROP 2,P?ACTION
+	CAVE-OBJECT-F
+	.PROP 2,P?ADJECTIVE
+	W?TINY
+	.BYTE	0
+	.ENDT
+
+T?MOUTH::	.TABLE			; TABLE FOR OBJECT MOUTH
+	.STRL "mouth"
+	.PROP 2,P?SYNONYM
+	W?MOUTH
+	.PROP 2,P?ACTION
+	MOUTH-F
+	.PROP 2,P?ADJECTIVE
+	W?YOUR
+	.PROP 2,P?OWNER
+	BODY-PART-OWNERS
+	.BYTE	0
+	.ENDT
+
+T?TIRED-PINE::	.TABLE			; TABLE FOR OBJECT TIRED-PINE
+	.STRL "ancient pine tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?PINE
+	.PROP 2,P?ACTION
+	TIRED-PINE-F
+	.PROP 10,P?ADJECTIVE
+	W?PINE
+	W?TIRED
+	W?ANCIENT
+	W?OLD
+	W?LARGE
+	.BYTE	0
+	.ENDT
+
+T?SCROLL::	.TABLE			; TABLE FOR OBJECT SCROLL
+	.STRL "scroll"
+	.PROP 4,P?SYNONYM
+	W?SCROLL
+	W?PAPER
+	.PROP 2,P?ACTION
+	SCROLL-F
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?SIGN::	.TABLE			; TABLE FOR OBJECT SIGN
+	.STRL "sign"
+	.PROP 2,P?SYNONYM
+	W?SIGN
+	.PROP 2,P?ACTION
+	SIGN-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?EYE-CATCHING
+	.BYTE	0
+	.ENDT
+
+T?LINEN::	.TABLE			; TABLE FOR OBJECT LINEN
+	.STRL "pile of napkins"
+	.PROP 6,P?SYNONYM
+	W?PILE
+	W?NAPKINS
+	W?LINEN
+	.PROP 2,P?ACTION
+	SERVANT-ITEM-F
+	.PROP 2,P?ADJECTIVE
+	W?MONOGRAMMED
+	.PROP 2,P?OWNER
+	LINEN
+	.PROP 2,P?TEXT
+	STR?266
+	.BYTE	0
+	.ENDT
+
+T?BAG::	.TABLE			; TABLE FOR OBJECT BAG
+	.STRL "bag"
+	.PROP 4,P?SYNONYM
+	W?BAG
+	W?PRINTING
+	.PROP 2,P?ACTION
+	BAG-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?337
+	.PROP 2,P?FDESC
+	STR?336
+	.BYTE	0
+	.ENDT
+
+T?RUBBLE-ROOM::	.TABLE			; TABLE FOR OBJECT RUBBLE-ROOM
+	.STRL "Rubble Room"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE HEART-OF-MINE		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE HEART-OF-MINE		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE HEART-OF-MINE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE MINE-ENTRANCE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE MINE-ENTRANCE		; TO ROOM
+	.PROP 2,P?ACTION
+	RUBBLE-ROOM-F
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8426
+	.PROP 4,P?GLOBAL
+	GRANOLA
+	GRANOLA-MINE
+	.PROP 2,P?LDESC
+	STR?893
+	.BYTE	0
+	.ENDT
+
+T?ENCYCLOPEDIA::	.TABLE			; TABLE FOR OBJECT ENCYCLOPEDIA
+	.STRL "Encyclopedia Frobozzica"
+	.PROP 6,P?SYNONYM
+	W?ENCYCLOPEDIA
+	W?FROBOZZICA
+	W?BOOK
+	.PROP 2,P?ACTION
+	ENCYCLOPEDIA-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?ENCYCLOPEDIA
+	.PROP 2,P?TEXT
+	STR?520
+	.PROP 2,P?LDESC
+	STR?519
+	.BYTE	0
+	.ENDT
+
+T?GROTTO-REBUS-BUTTON::	.TABLE			; TABLE FOR OBJECT GROTTO-REBUS-BUTTON
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	REBUS-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?KEY-SHAPED
+	W?BLINKING
+	.PROP 2,P?SDESC
+	STR?334
+	.PROP 2,P?FDESC
+	STR?587
+	.BYTE	0
+	.ENDT
+
+T?DIMWIT-STATUE::	.TABLE			; TABLE FOR OBJECT DIMWIT-STATUE
+	.STRL "statue of Dimwit Flathead"
+	.PROP 6,P?SYNONYM
+	W?STATUE
+	W?DIMWIT
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	DIMWIT-STATUE-F
+	.PROP 4,P?ADJECTIVE
+	W?LORD
+	W?DIMWIT
+	.PROP 2,P?GENERIC
+	G-DIMWIT-F
+	.PROP 2,P?OWNER
+	DIMWIT-STATUE
+	.BYTE	0
+	.ENDT
+
+T?GRUE::	.TABLE			; TABLE FOR OBJECT GRUE
+	.STRL "lurking grue"
+	.PROP 4,P?SYNONYM
+	W?GRUE
+	W?GRUES
+	.PROP 2,P?ACTION
+	GRUE-F
+	.PROP 8,P?ADJECTIVE
+	W?LURKING
+	W?SINISTER
+	W?HUNGRY
+	W?SILENT
+	.PROP 2,P?RESEARCH
+	STR?193
+	.BYTE	0
+	.ENDT
+
+T?FLORA::	.TABLE			; TABLE FOR OBJECT FLORA
+	.STRL "flora"
+	.PROP 14,P?SYNONYM
+	W?SHRUB
+	W?SHRUBS
+	W?SHRUBBERY
+	W?TREE
+	W?FLORA
+	W?PLANT
+	W?PLANTS
+	.PROP 2,P?ACTION
+	FLORA-F
+	.BYTE	0
+	.ENDT
+
+T?EAR-FUNGUS::	.TABLE			; TABLE FOR OBJECT EAR-FUNGUS
+	.STRL "ear fungus"
+	.PROP 4,P?SYNONYM
+	W?FUNGUS
+	W?FUNGI
+	.PROP 2,P?ACTION
+	EAR-FUNGUS-F
+	.PROP 2,P?ADJECTIVE
+	W?EAR
+	.PROP 2,P?RESEARCH
+	STR?423
+	.PROP 2,P?GENERIC
+	G-FUNGUS-F
+	.BYTE	0
+	.ENDT
+
+T?WARNING-ROOM::	.TABLE			; TABLE FOR OBJECT WARNING-ROOM
+	.STRL "Warning Room"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE ROOM-OF-THREE-DOORS		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE QUILBOZZA-BEACH		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE ROOM-OF-THREE-DOORS		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE QUILBOZZA-BEACH		; TO ROOM
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?4825
+	.PROP 2,P?ICON
+	WARNING-ROOM-ICON
+	.PROP 2,P?GLOBAL
+	SIGN
+	.PROP 2,P?LDESC
+	STR?783
+	.BYTE	0
+	.ENDT
+
+T?SMALL-DOOR::	.TABLE			; TABLE FOR OBJECT SMALL-DOOR
+	.STRL "small louvered door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	SMALL-DOOR-F
+	.PROP 6,P?ADJECTIVE
+	W?SMALL
+	W?SOUTH
+	W?LOUVERED
+	.PROP 2,P?GENERIC
+	G-J-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?TENET::	.TABLE			; TABLE FOR OBJECT TENET
+	.STRL "engraved tenet"
+	.PROP 6,P?SYNONYM
+	W?TENET
+	W?TENETS
+	W?ENGRAVING
+	.PROP 2,P?ADJECTIVE
+	W?ENGRAVED
+	.PROP 2,P?TEXT
+	STR?537
+	.BYTE	0
+	.ENDT
+
+T?INSTRUCTION-BOOKLET::	.TABLE			; TABLE FOR OBJECT INSTRUCTION-BOOKLET
+	.STRL "damaged instruction booklet"
+	.PROP 6,P?SYNONYM
+	W?BOOK
+	W?BOOKLET
+	W?INSTRUCTIONS
+	.PROP 4,P?ADJECTIVE
+	W?INSTRUCTIONS
+	W?DAMAGED
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?TEXT
+	STR?555
+	.BYTE	0
+	.ENDT
+
+T?6-WEIGHT::	.TABLE			; TABLE FOR OBJECT 6-WEIGHT
+	.STRL "6-ugh weight"
+	.PROP 2,P?SYNONYM
+	W?WEIGHT
+	.PROP 2,P?ACTION
+	WEIGHT-F
+	.PROP 2,P?ADJECTIVE
+	W?6-UGH
+	.PROP 2,P?SIZE
+	6
+	.BYTE	0
+	.ENDT
+
+T?GONDOLA-CONTROLS::	.TABLE			; TABLE FOR OBJECT GONDOLA-CONTROLS
+	.STRL "controls"
+	.PROP 4,P?SYNONYM
+	W?CONTROL
+	W?CONTROLS
+	.PROP 2,P?ACTION
+	GONDOLA-CONTROLS-F
+	.BYTE	0
+	.ENDT
+
+T?PORTCULLIS::	.TABLE			; TABLE FOR OBJECT PORTCULLIS
+	.STRL "portcullis"
+	.PROP 2,P?SYNONYM
+	W?PORTCULLIS
+	.PROP 2,P?ACTION
+	PORTCULLIS-F
+	.PROP 6,P?ADJECTIVE
+	W?STURDY
+	W?HEAVY
+	W?IRON
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-CRYPT::	.TABLE			; TABLE FOR OBJECT OUTSIDE-CRYPT
+	.STRL "Outside Crypt"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE CRYPT		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE BOTTOM-OF-STAIR		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE CRYPT		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5021
+	.PROP 2,P?GLOBAL
+	CRYPT
+	.PROP 2,P?LDESC
+	STR?358
+	.BYTE	0
+	.ENDT
+
+T?WEST-WING::	.TABLE			; TABLE FOR OBJECT WEST-WING
+	.STRL "West Wing"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE PEG-ROOM		; TO ROOM
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	WEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE WEST-HALL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE GYM		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	DIRIGIBLE-HANGAR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	WEST-WING-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5821
+	.PROP 2,P?ICON
+	WEST-WING-ICON
+	.PROP 4,P?GLOBAL
+	WEST-DOOR
+	LOCK-OBJECT
+	.PROP 2,P?VALUE
+	8
+	.BYTE	0
+	.ENDT
+
+T?SHRINE::	.TABLE			; TABLE FOR OBJECT SHRINE
+	.STRL "Shrine"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE GROTTO		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE GROTTO		; TO ROOM
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?1524
+	.PROP 2,P?ICON
+	SHRINE-ICON
+	.PROP 2,P?LDESC
+	STR?589
+	.BYTE	0
+	.ENDT
+
+T?POEM::	.TABLE			; TABLE FOR OBJECT POEM
+	.STRL "poem"
+	.PROP 2,P?SYNONYM
+	W?POEM
+	.PROP 2,P?TEXT
+	STR?846
+	.BYTE	0
+	.ENDT
+
+T?STAIRS::	.TABLE			; TABLE FOR OBJECT STAIRS
+	.STRL "stair"
+	.PROP 16,P?SYNONYM
+	W?FLIGHT
+	W?STAIR
+	W?STAIRS
+	W?STAIRWAY
+	W?STEP
+	W?STEPS
+	W?STAIRCASE
+	W?GANGWAY
+	.PROP 2,P?ACTION
+	STAIRS-F
+	.PROP 24,P?ADJECTIVE
+	W?STEEP
+	W?OMINOUS
+	W?DARK
+	W?WIDE
+	W?STONE
+	W?CIRCULAR
+	W?WINDING
+	W?SPIRAL
+	W?COBWEBBY
+	W?CRUDE
+	W?FORBIDDING
+	W?DECREPIT
+	.BYTE	0
+	.ENDT
+
+T?NOTEBOOK::	.TABLE			; TABLE FOR OBJECT NOTEBOOK
+	.STRL "notebook"
+	.PROP 2,P?SYNONYM
+	W?NOTEBOOK
+	.PROP 2,P?ACTION
+	NOTEBOOK-F
+	.BYTE	0
+	.ENDT
+
+T?CLOSET::	.TABLE			; TABLE FOR OBJECT CLOSET
+	.STRL "Closet"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE ROOF		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CLOSET
+	.PROP 2,P?THINGS
+	PT?3021
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2821
+	.PROP 2,P?GLOBAL
+	FIXED-LADDER
+	.PROP 2,P?LDESC
+	STR?333
+	.BYTE	0
+	.ENDT
+
+T?FISHY-ODOR::	.TABLE			; TABLE FOR OBJECT FISHY-ODOR
+	.STRL "Fishy Odor"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE FORK		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FISHING-VILLAGE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?2425
+	.PROP 2,P?ICON
+	FISHY-ODOR-ICON
+	.PROP 2,P?LDESC
+	STR?634
+	.BYTE	0
+	.ENDT
+
+T?ORB-ROOM::	.TABLE			; TABLE FOR OBJECT ORB-ROOM
+	.STRL "Orb Room"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE TIGHT-SQUEEZE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE TIGHT-SQUEEZE		; TO ROOM
+	.PROP 2,P?THINGS
+	PT?1525
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?1325
+	.PROP 2,P?ICON
+	ORB-ROOM-ICON
+	.PROP 2,P?LDESC
+	STR?628
+	.BYTE	0
+	.ENDT
+
+T?FLOWER::	.TABLE			; TABLE FOR OBJECT FLOWER
+	.STRL "flower"
+	.PROP 2,P?SYNONYM
+	W?FLOWER
+	.PROP 2,P?ACTION
+	FLOWER-F
+	.BYTE	0
+	.ENDT
+
+T?CLIFF-BOTTOM::	.TABLE			; TABLE FOR OBJECT CLIFF-BOTTOM
+	.STRL "Cliff Bottom"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-BOG		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE PRECIPICE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?7926
+	.PROP 2,P?ICON
+	CLIFF-BOTTOM-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?887
+	.BYTE	0
+	.ENDT
+
+T?LANTERN::	.TABLE			; TABLE FOR OBJECT LANTERN
+	.STRL "brass lantern"
+	.PROP 8,P?SYNONYM
+	W?LAMP
+	W?LANTERN
+	W?LIGHT
+	W?MONOGRAM
+	.PROP 2,P?ACTION
+	LANTERN-F
+	.PROP 6,P?ADJECTIVE
+	W?ANCIENT
+	W?BRASS
+	W?BATTERY-POWERED
+	.PROP 2,P?SIZE
+	15
+	.PROP 2,P?TEXT
+	STR?409
+	.PROP 2,P?FDESC
+	STR?408
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?YACHT::	.TABLE			; TABLE FOR OBJECT YACHT
+	.STRL "royal yacht"
+	.PROP 4,P?SYNONYM
+	W?YACHT
+	W?BOAT
+	.PROP 2,P?ACTION
+	YACHT-F
+	.PROP 2,P?ADJECTIVE
+	W?ROYAL
+	.PROP 2,P?LDESC
+	STR?563
+	.PROP 2,P?CAPACITY
+	200
+	.BYTE	0
+	.ENDT
+
+T?HAMMER::	.TABLE			; TABLE FOR OBJECT HAMMER
+	.STRL "hammer"
+	.PROP 2,P?SYNONYM
+	W?HAMMER
+	.PROP 2,P?ACTION
+	HAMMER-F
+	.PROP 2,P?SIZE
+	16
+	.BYTE	0
+	.ENDT
+
+T?SLOPING-CAVE::	.TABLE			; TABLE FOR OBJECT SLOPING-CAVE
+	.STRL "Sloping Cave"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE TOP-OF-WELL		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE MOUTH-OF-CAVE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE MOUTH-OF-CAVE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE TOP-OF-WELL		; TO ROOM
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?10921
+	.PROP 2,P?LDESC
+	STR?414
+	.BYTE	0
+	.ENDT
+
+T?OFFICES-SOUTH::	.TABLE			; TABLE FOR OBJECT OFFICES-SOUTH
+	.STRL "FrobozzCo Offices South"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE FR-OFFICES		; TO ROOM
+	.PROP 2,P?ACTION
+	FR-OUTER-OFFICES-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2023
+	.PROP 2,P?ICON
+	OFFICES-ICON
+	.PROP 4,P?GLOBAL
+	FR-BLDG
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?BLUEPRINT::	.TABLE			; TABLE FOR OBJECT BLUEPRINT
+	.STRL "blueprint"
+	.PROP 2,P?SYNONYM
+	W?BLUEPRINT
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?915
+	.BYTE	0
+	.ENDT
+
+T?SLATE::	.TABLE			; TABLE FOR OBJECT SLATE
+	.STRL "dusty slate"
+	.PROP 2,P?SYNONYM
+	W?SLATE
+	.PROP 2,P?ACTION
+	SLATE-F
+	.PROP 8,P?ADJECTIVE
+	W?DUSTY
+	W?SMALL
+	W?SILLY
+	W?OLD
+	.BYTE	0
+	.ENDT
+
+T?MACHICOLATION::	.TABLE			; TABLE FOR OBJECT MACHICOLATION
+	.STRL "machicolation"
+	.PROP 4,P?SYNONYM
+	W?MACHICOLATION
+	W?HOLE
+	.PROP 2,P?ACTION
+	MACHICOLATION-F
+	.BYTE	0
+	.ENDT
+
+T?WHITE-BUTTON::	.TABLE			; TABLE FOR OBJECT WHITE-BUTTON
+	.STRL "white button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	YACHT-BUTTON-F
+	.PROP 8,P?ADJECTIVE
+	W?WHITE
+	W?FIFTH
+	W?CENTER
+	W?MIDDLE
+	.BYTE	0
+	.ENDT
+
+T?ICKY-CAVE::	.TABLE			; TABLE FOR OBJECT ICKY-CAVE
+	.STRL "Icky Cave"
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE AERIE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE AERIE		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?CAVE
+	W?CAVERN
+	.PROP 2,P?ACTION
+	ICKY-CAVE-F
+	.PROP 4,P?ADJECTIVE
+	W?ICKY
+	W?SMALL
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?8226
+	.PROP 2,P?ICON
+	ICKY-CAVE-ICON
+	.PROP 2,P?GLOBAL
+	SLIME
+	.BYTE	0
+	.ENDT
+
+T?LANDSCAPE::	.TABLE			; TABLE FOR OBJECT LANDSCAPE
+	.STRL "landscape"
+	.PROP 4,P?SYNONYM
+	W?LANDSCAPE
+	W?PAINTING
+	.PROP 2,P?ACTION
+	LANDSCAPE-F
+	.PROP 2,P?GENERIC
+	G-PAINTING-F
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?J-SUIT::	.TABLE			; TABLE FOR OBJECT J-SUIT
+	.STRL "jester's suit"
+	.PROP 2,P?SYNONYM
+	W?SUIT
+	.PROP 4,P?ADJECTIVE
+	W?GREEN
+	W?SKIN-TIGHT
+	.PROP 2,P?OWNER
+	JESTER
+	.BYTE	0
+	.ENDT
+
+T?WATER::	.TABLE			; TABLE FOR OBJECT WATER
+	.STRL "water"
+	.PROP 8,P?SYNONYM
+	W?WATER
+	W?WATERS
+	W?GLOOP
+	W?GLOOPS
+	.PROP 2,P?ACTION
+	WATER-F
+	.PROP 20,P?ADJECTIVE
+	W?ONE
+	W?TWO
+	W?THREE
+	W?FOUR
+	W?FIVE
+	W?SIX
+	W?SEVEN
+	W?EIGHT
+	W?NINE
+	W?INT.NUM
+	.PROP 2,P?GENERIC
+	G-VIAL-WATER-F
+	.PROP 2,P?OWNER
+	0
+	.BYTE	0
+	.ENDT
+
+T?KEG::	.TABLE			; TABLE FOR OBJECT KEG
+	.STRL "wine keg"
+	.PROP 4,P?SYNONYM
+	W?KEG
+	W?WINE
+	.PROP 2,P?ACTION
+	SERVANT-ITEM-F
+	.PROP 2,P?ADJECTIVE
+	W?WINE
+	.BYTE	0
+	.ENDT
+
+T?PIT-BOMB::	.TABLE			; TABLE FOR OBJECT PIT-BOMB
+	.STRL "anti-pit bomb"
+	.PROP 4,P?SYNONYM
+	W?BOMB
+	W?LABEL
+	.PROP 2,P?ACTION
+	PIT-BOMB-F
+	.PROP 4,P?ADJECTIVE
+	W?BOTTOMLESS
+	W?ANTI-PIT
+	.PROP 2,P?TEXT
+	STR?622
+	.PROP 2,P?FDESC
+	STR?621
+	.BYTE	0
+	.ENDT
+
+T?BASKET::	.TABLE			; TABLE FOR OBJECT BASKET
+	.STRL "exact change basket"
+	.PROP 2,P?SYNONYM
+	W?BASKET
+	.PROP 2,P?ACTION
+	BASKET-F
+	.PROP 4,P?ADJECTIVE
+	W?EXACT
+	W?CHANGE
+	.BYTE	0
+	.ENDT
+
+T?ATTIC::	.TABLE			; TABLE FOR OBJECT ATTIC
+	.STRL "Attic"
+	.PROP 5,P?DOWN		; CONDITIONAL EXIT
+	MEGABOZ-TRAP-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE MEGABOZ-HUT		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?ATTIC
+	.PROP 2,P?THINGS
+	PT?5126
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?4926
+	.PROP 2,P?ICON
+	ATTIC-ICON
+	.PROP 4,P?GLOBAL
+	MEGABOZ-TRAP-DOOR
+	LOCK-OBJECT
+	.PROP 2,P?LDESC
+	STR?848
+	.PROP 2,P?VALUE
+	8
+	.BYTE	0
+	.ENDT
+
+T?MINE-ENTRANCE::	.TABLE			; TABLE FOR OBJECT MINE-ENTRANCE
+	.STRL "Mine Entrance"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RUBBLE-ROOM		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE COAST-ROAD		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RUBBLE-ROOM		; TO ROOM
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?7226
+	.PROP 2,P?ICON
+	MINE-ENTRANCE-ICON
+	.PROP 4,P?GLOBAL
+	SIGN
+	GRANOLA-MINE
+	.PROP 2,P?LDESC
+	STR?878
+	.PROP 2,P?VALUE
+	10
+	.BYTE	0
+	.ENDT
+
+T?DESERTED-CASTLE::	.TABLE			; TABLE FOR OBJECT DESERTED-CASTLE
+	.STRL "Deserted Castle"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SMALLER-HANGAR		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RUINED-HALL		; TO ROOM
+	.PROP 2,P?ACTION
+	0
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?429
+	.PROP 2,P?GLOBAL
+	SMALLER-HANGAR
+	.PROP 2,P?LDESC
+	STR?946
+	.BYTE	0
+	.ENDT
+
+T?GROUND::	.TABLE			; TABLE FOR OBJECT GROUND
+	.STRL ""
+	.PROP 6,P?SYNONYM
+	W?FLOOR
+	W?GROUND
+	W?SAND
+	.PROP 2,P?ACTION
+	GROUND-F
+	.PROP 2,P?SDESC
+	STR?195
+	.BYTE	0
+	.ENDT
+
+T?EVEN-MORE-GRAVEL::	.TABLE			; TABLE FOR OBJECT EVEN-MORE-GRAVEL
+	.STRL "even more gravel"
+	.PROP 2,P?SYNONYM
+	W?GRAVEL
+	.PROP 2,P?ACTION
+	GRAVEL-F
+	.PROP 4,P?ADJECTIVE
+	W?EVEN
+	W?MORE
+	.PROP 2,P?GENERIC
+	G-GRAVEL-F
+	.PROP 2,P?PLURAL
+	STR?588
+	.BYTE	0
+	.ENDT
+
+T?TOLL-GATE::	.TABLE			; TABLE FOR OBJECT TOLL-GATE
+	.STRL "toll gate"
+	.PROP 2,P?SYNONYM
+	W?GATE
+	.PROP 2,P?ACTION
+	TOLL-GATE-F
+	.PROP 2,P?ADJECTIVE
+	W?TOLL
+	.BYTE	0
+	.ENDT
+
+T?MEGABOZ-TRAP-DOOR::	.TABLE			; TABLE FOR OBJECT MEGABOZ-TRAP-DOOR
+	.STRL "trap door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	MEGABOZ-TRAP-DOOR-F
+	.PROP 2,P?ADJECTIVE
+	W?TRAP
+	.BYTE	0
+	.ENDT
+
+T?CONSTRUCTION::	.TABLE			; TABLE FOR OBJECT CONSTRUCTION
+	.STRL "Construction"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?NE		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SE		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SW		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?NW		; CONDITIONAL EXIT
+	CONSTRUCTION-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	CONSTRUCTION-F
+	.PROP 2,P?REGION
+	STR?250
+	.BYTE	0
+	.ENDT
+
+T?OFFICES-EAST::	.TABLE			; TABLE FOR OBJECT OFFICES-EAST
+	.STRL "FrobozzCo Offices East"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FR-OFFICES		; TO ROOM
+	.PROP 2,P?ACTION
+	FR-OUTER-OFFICES-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1823
+	.PROP 2,P?ICON
+	OFFICES-ICON
+	.PROP 4,P?GLOBAL
+	FR-BLDG
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT NOT-HERE-OBJECT
+	.STRL ""
+	.PROP 2,P?CONTFCN
+	0
+	.PROP 2,P?THINGS
+	PT?211
+	.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 2,P?CAPACITY
+	100
+	.BYTE	0
+	.ENDT
+
+T?STEAM-BATH::	.TABLE			; TABLE FOR OBJECT STEAM-BATH
+	.STRL "Steam Bath"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE GYM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE GYM		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?8721
+	.PROP 2,P?LDESC
+	STR?376
+	.BYTE	0
+	.ENDT
+
+T?WEIRD::	.TABLE			; TABLE FOR OBJECT WEIRD
+	.STRL "Weird Passageway"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	WEIRD-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	WEIRD-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	LARGE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE JESTERS-QUARTERS		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	WEIRD-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	WEIRD-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?428
+	.PROP 2,P?GLOBAL
+	LARGE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?FUNNY-PAPER::	.TABLE			; TABLE FOR OBJECT FUNNY-PAPER
+	.STRL "funny paper"
+	.PROP 8,P?SYNONYM
+	W?PAPER
+	W?PIECE
+	W?NEWSPAPER
+	W?COMICS
+	.PROP 2,P?ACTION
+	FUNNY-PAPER-F
+	.PROP 4,P?ADJECTIVE
+	W?COLORFUL
+	W?FUNNY
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?STRAW::	.TABLE			; TABLE FOR OBJECT STRAW
+	.STRL "drinking straw"
+	.PROP 2,P?SYNONYM
+	W?STRAW
+	.PROP 2,P?ACTION
+	STRAW-F
+	.PROP 2,P?ADJECTIVE
+	W?DRINKING
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?EVEN-LARGER-FLY::	.TABLE			; TABLE FOR OBJECT EVEN-LARGER-FLY
+	.STRL "even larger fly"
+	.PROP 2,P?SYNONYM
+	W?FLY
+	.PROP 2,P?ACTION
+	FLY-F
+	.PROP 4,P?ADJECTIVE
+	W?EVEN
+	W?LARGER
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?PLURAL
+	STR?835
+	.BYTE	0
+	.ENDT
+
+T?FLATHEAD-STADIUM::	.TABLE			; TABLE FOR OBJECT FLATHEAD-STADIUM
+	.STRL "Flathead Stadium"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE COAST-ROAD		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-BOG		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE NORTH-OF-ANTHAR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?STADIUM
+	.PROP 4,P?ADJECTIVE
+	W?FLATHEAD
+	W?LARGE
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?7426
+	.PROP 2,P?ICON
+	STADIUM-ICON
+	.PROP 2,P?LDESC
+	STR?880
+	.BYTE	0
+	.ENDT
+
+T?LOCK-OBJECT::	.TABLE			; TABLE FOR OBJECT LOCK-OBJECT
+	.STRL "lock"
+	.PROP 6,P?SYNONYM
+	W?LOCK
+	W?KEYHOLE
+	W?HOLE
+	.PROP 2,P?ACTION
+	LOCK-OBJECT-F
+	.PROP 8,P?ADJECTIVE
+	W?LARGE
+	W?BASIC
+	W?COMBINATION
+	W?KEY
+	.BYTE	0
+	.ENDT
+
+T?REBUS::	.TABLE			; TABLE FOR OBJECT REBUS
+	.STRL "rebus"
+	.PROP 2,P?SYNONYM
+	W?REBUS
+	.PROP 2,P?ACTION
+	REBUS-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?FRAMED
+	.PROP 2,P?RESEARCH
+	STR?332
+	.PROP 2,P?OWNER
+	WALL
+	.PROP 2,P?DESCFCN
+	REBUS-F
+	.BYTE	0
+	.ENDT
+
+T?LEFT-SHELL::	.TABLE			; TABLE FOR OBJECT LEFT-SHELL
+	.STRL "left shell"
+	.PROP 2,P?SYNONYM
+	W?SHELL
+	.PROP 2,P?ACTION
+	SHELL-F
+	.PROP 4,P?ADJECTIVE
+	W?LEFT
+	W?FIRST
+	.BYTE	0
+	.ENDT
+
+T?INTNUM::	.TABLE			; TABLE FOR OBJECT INTNUM
+	.STRL "number"
+	.PROP 6,P?SYNONYM
+	W?NUMBER
+	W?NUMBERS
+	W?INT.NUM
+	.PROP 2,P?ACTION
+	INTNUM-F
+	.PROP 4,P?ADJECTIVE
+	W?INT.NUM
+	W?INT.TIM
+	.BYTE	0
+	.ENDT
+
+T?METRONOME::	.TABLE			; TABLE FOR OBJECT METRONOME
+	.STRL "metronome"
+	.PROP 2,P?SYNONYM
+	W?METRONOME
+	.PROP 2,P?ACTION
+	METRONOME-F
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?WALL-HANGINGS::	.TABLE			; TABLE FOR OBJECT WALL-HANGINGS
+	.STRL "wall hangings"
+	.PROP 4,P?SYNONYM
+	W?HANGING
+	W?HANGINGS
+	.PROP 4,P?ADJECTIVE
+	W?EMBROIDER
+	W?WALL
+	.PROP 2,P?TEXT
+	STR?847
+	.BYTE	0
+	.ENDT
+
+T?BASE-OF-MOUNTAINS::	.TABLE			; TABLE FOR OBJECT BASE-OF-MOUNTAINS
+	.STRL "Base of Mountains"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE FOOTHILLS		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE VIEW-OF-STATUE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE FOOTHILLS		; TO ROOM
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?6526
+	.PROP 2,P?ICON
+	BASE-OF-MTS-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?868
+	.BYTE	0
+	.ENDT
+
+T?BICKERING-TORCH::	.TABLE			; TABLE FOR OBJECT BICKERING-TORCH
+	.STRL "bickering torch"
+	.PROP 4,P?SYNONYM
+	W?TORCH
+	W?TORCHES
+	.PROP 2,P?ACTION
+	BICKERING-TORCH-F
+	.PROP 2,P?ADJECTIVE
+	W?BICKERING
+	.PROP 2,P?PLURAL
+	STR?309
+	.BYTE	0
+	.ENDT
+
+T?VILLAGE-GATE::	.TABLE			; TABLE FOR OBJECT VILLAGE-GATE
+	.STRL "Village Gate"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SHADY-PARK		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE BEND		; TO ROOM
+	.PROP 2,P?THINGS
+	PT?823
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?523
+	.PROP 6,P?GLOBAL
+	VILLAGE
+	ARCH
+	MOAT
+	.PROP 2,P?LDESC
+	STR?534
+	.BYTE	0
+	.ENDT
+
+T?CARD-TABLE::	.TABLE			; TABLE FOR OBJECT CARD-TABLE
+	.STRL "card table"
+	.PROP 4,P?SYNONYM
+	W?TABLE
+	W?CHAIR
+	.PROP 2,P?ACTION
+	CARD-TABLE-F
+	.PROP 2,P?ADJECTIVE
+	W?CARD
+	.PROP 2,P?CAPACITY
+	50
+	.BYTE	0
+	.ENDT
+
+T?LARGEST-FLY::	.TABLE			; TABLE FOR OBJECT LARGEST-FLY
+	.STRL "the largest fly"
+	.PROP 2,P?SYNONYM
+	W?FLY
+	.PROP 2,P?ACTION
+	FLY-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGEST
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?PLURAL
+	STR?835
+	.BYTE	0
+	.ENDT
+
+T?SHELL-TABLE::	.TABLE			; TABLE FOR OBJECT SHELL-TABLE
+	.STRL "small table"
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.BYTE	0
+	.ENDT
+
+T?ENTRANCE-HALL::	.TABLE			; TABLE FOR OBJECT ENTRANCE-HALL
+	.STRL "Entrance Hall"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	PORTCULLIS		; IF DOOR IS OPEN
+	STR?292		; FAILURE MESSAGE
+	.BYTE INNER-BAILEY		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE BANQUET-HALL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE PARLOR		; TO ROOM
+	.PROP 2,P?ACTION
+	ENTRANCE-HALL-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?221
+	.PROP 2,P?GLOBAL
+	PORTCULLIS
+	.PROP 2,P?RIDDLE
+	STR?293
+	.BYTE	0
+	.ENDT
+
+T?THOUSAND-ZORKMIDS::	.TABLE			; TABLE FOR OBJECT THOUSAND-ZORKMIDS
+	.STRL "lots of zorkmids"
+	.PROP 2,P?SYNONYM
+	W?ZORKMIDS
+	.PROP 8,P?ADJECTIVE
+	W?HUNDRED
+	W?THOUSAND
+	W?MILLION
+	W?INT.NUM
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-HUT::	.TABLE			; TABLE FOR OBJECT OUTSIDE-HUT
+	.STRL "Outside Hut"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE VIEW-OF-STATUE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE MEGABOZ-HUT		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE MEGABOZ-HUT		; TO ROOM
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?4726
+	.PROP 2,P?ICON
+	OUTSIDE-HUT-ICON
+	.PROP 2,P?GLOBAL
+	MEGABOZ-HUT
+	.PROP 2,P?LDESC
+	STR?844
+	.BYTE	0
+	.ENDT
+
+T?STONEWALL-PORTRAIT::	.TABLE			; TABLE FOR OBJECT STONEWALL-PORTRAIT
+	.STRL "portrait of Stonewall Flathead"
+	.PROP 8,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?STONEWALL
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 2,P?ADJECTIVE
+	W?STONEWALL
+	.PROP 2,P?OWNER
+	PT?2521
+	.BYTE	0
+	.ENDT
+
+T?LANCE::	.TABLE			; TABLE FOR OBJECT LANCE
+	.STRL "lance"
+	.PROP 2,P?SYNONYM
+	W?LANCE
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?VALUE
+	0
+	.BYTE	0
+	.ENDT
+
+T?ZORKMID-COIN::	.TABLE			; TABLE FOR OBJECT ZORKMID-COIN
+	.STRL "zorkmid coin"
+	.PROP 6,P?SYNONYM
+	W?ZORKMID
+	W?COIN
+	W?MONEY
+	.PROP 4,P?ADJECTIVE
+	W?ONE
+	W?ZORKMID
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?TEXT
+	STR?540
+	.BYTE	0
+	.ENDT
+
+T?PORTHOLE::	.TABLE			; TABLE FOR OBJECT PORTHOLE
+	.STRL "porthole"
+	.PROP 6,P?SYNONYM
+	W?PORTHOLE
+	W?PORT
+	W?HOLE
+	.PROP 2,P?ACTION
+	PORTHOLE-F
+	.PROP 2,P?ADJECTIVE
+	W?PORT
+	.PROP 2,P?GENERIC
+	G-DB-HOLE-F
+	.BYTE	0
+	.ENDT
+
+T?CACTUS-PATCH::	.TABLE			; TABLE FOR OBJECT CACTUS-PATCH
+	.STRL "Cactus Patch"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE G-U-DESERT		; TO ROOM
+	.PROP 2,P?NE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SE		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE WINDBLOWN-SANDS		; TO ROOM
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?604		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DESERT-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3324
+	.PROP 2,P?ICON
+	CACTUS-PATCH-ICON
+	.PROP 2,P?GLOBAL
+	G-U-DESERT
+	.PROP 2,P?LDESC
+	STR?609
+	.BYTE	0
+	.ENDT
+
+T?VILLAGE::	.TABLE			; TABLE FOR OBJECT VILLAGE
+	.STRL "village"
+	.PROP 2,P?SYNONYM
+	W?VILLAGE
+	.PROP 2,P?ACTION
+	VILLAGE-F
+	.BYTE	0
+	.ENDT
+
+T?PYRAMID-R::	.TABLE			; TABLE FOR OBJECT PYRAMID-R
+	.STRL "Pyramid Room"
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	WEIRD-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	WEIRD-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	PYRAMID-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?628
+	.PROP 2,P?ICON
+	PYRAMID-ICON
+	.PROP 2,P?VALUE
+	7
+	.BYTE	0
+	.ENDT
+
+T?EAST-KEY::	.TABLE			; TABLE FOR OBJECT EAST-KEY
+	.STRL "iron key"
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ACTION
+	EAST-KEY-F
+	.PROP 4,P?ADJECTIVE
+	W?ANCIENT
+	W?IRON
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?FDESC
+	STR?351
+	.BYTE	0
+	.ENDT
+
+T?CEILING::	.TABLE			; TABLE FOR OBJECT CEILING
+	.STRL "ceiling"
+	.PROP 4,P?SYNONYM
+	W?CEILING
+	W?ROOF
+	.PROP 2,P?ACTION
+	CEILING-F
+	.PROP 4,P?ADJECTIVE
+	W?LOW
+	W?HIGH
+	.BYTE	0
+	.ENDT
+
+T?SOLAR::	.TABLE			; TABLE FOR OBJECT SOLAR
+	.STRL "Solar"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DIMWITS-ROOM		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE BASTION		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE DONJON		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?SOLAR
+	.PROP 2,P?ACTION
+	SOLAR-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4321
+	.PROP 4,P?GLOBAL
+	STAIRS
+	WINDOW
+	.PROP 2,P?LDESC
+	STR?349
+	.PROP 2,P?RIDDLE
+	STR?350
+	.BYTE	0
+	.ENDT
+
+T?ARCH::	.TABLE			; TABLE FOR OBJECT ARCH
+	.STRL "arch"
+	.PROP 4,P?SYNONYM
+	W?ARCH
+	W?ARCHWAY
+	.PROP 2,P?ACTION
+	ARCH-F
+	.PROP 4,P?ADJECTIVE
+	W?STONE
+	W?CRUMBLING
+	.BYTE	0
+	.ENDT
+
+T?LOCKET-MOOSE::	.TABLE			; TABLE FOR OBJECT LOCKET-MOOSE
+	.STRL "it"
+	.PROP 4,P?SYNONYM
+	W?LOCKET
+	W?MOOSE
+	.BYTE	0
+	.ENDT
+
+T?CAIRN::	.TABLE			; TABLE FOR OBJECT CAIRN
+	.STRL "Cairn"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-SHACK		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE QUARRYS-EDGE		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE VIEW-OF-STATUE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?5426
+	.PROP 2,P?ICON
+	CAIRN-ICON
+	.PROP 2,P?LDESC
+	STR?860
+	.BYTE	0
+	.ENDT
+
+T?VASE::	.TABLE			; TABLE FOR OBJECT VASE
+	.STRL "vase"
+	.PROP 2,P?SYNONYM
+	W?VASE
+	.PROP 2,P?ACTION
+	VASE-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.BYTE	0
+	.ENDT
+
+T?SCEPTRE::	.TABLE			; TABLE FOR OBJECT SCEPTRE
+	.STRL "sceptre"
+	.PROP 4,P?SYNONYM
+	W?SCEPTRE
+	W?SCEPTER
+	.PROP 8,P?ADJECTIVE
+	W?SHARP
+	W?ENAMELED
+	W?ORNAMENTED
+	W?OVERDONE
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?FDESC
+	STR?342
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?POTHOLES::	.TABLE			; TABLE FOR OBJECT POTHOLES
+	.STRL "Potholes"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE CROSSROADS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE REST-STOP		; TO ROOM
+	.PROP 2,P?REGION
+	STR?618
+	.PROP 2,P?MAP-LOC
+	PT?1625
+	.PROP 2,P?LDESC
+	STR?630
+	.BYTE	0
+	.ENDT
+
+T?INQUISITION::	.TABLE			; TABLE FOR OBJECT INQUISITION
+	.STRL "Inquisition"
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?644		; FAILURE MESSAGE
+	.PROP 2,P?OUT		; IMPOSSIBLE EXIT
+	STR?644		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	INQUISITION-F
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?2725
+	.PROP 4,P?GLOBAL
+	SIGN
+	GLOBAL-BLDG
+	.BYTE	0
+	.ENDT
+
+T?FLATHEAD-OCEAN::	.TABLE			; TABLE FOR OBJECT FLATHEAD-OCEAN
+	.STRL "the Flathead Ocean"
+	.PROP 4,P?SYNONYM
+	W?OCEAN
+	W?SEA
+	.PROP 6,P?ADJECTIVE
+	W?FLATHEAD
+	W?MIGHTY
+	W?GREAT
+	.PROP 2,P?RESEARCH
+	STR?840
+	.BYTE	0
+	.ENDT
+
+T?BONES::	.TABLE			; TABLE FOR OBJECT BONES
+	.STRL "pile of old bones"
+	.PROP 14,P?SYNONYM
+	W?BONE
+	W?BONES
+	W?PILE
+	W?CREATURE
+	W?ADVENTURER
+	W?SKELETON
+	W?SKELETONS
+	.PROP 2,P?ACTION
+	BONES-F
+	.PROP 6,P?ADJECTIVE
+	W?ADVENTURER
+	W?CREATURE
+	W?OLD
+	.PROP 2,P?OWNER
+	BONES
+	.BYTE	0
+	.ENDT
+
+T?LUCREZIA-PORTRAIT::	.TABLE			; TABLE FOR OBJECT LUCREZIA-PORTRAIT
+	.STRL "portrait of Lucrezia Flathead"
+	.PROP 8,P?SYNONYM
+	W?PAINTING
+	W?PORTRAIT
+	W?LUCREZIA
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	PAINTING-F
+	.PROP 2,P?ADJECTIVE
+	W?LUCREZIA
+	.PROP 2,P?OWNER
+	PT?2021
+	.BYTE	0
+	.ENDT
+
+T?CAMEL::	.TABLE			; TABLE FOR OBJECT CAMEL
+	.STRL "camel"
+	.PROP 4,P?SYNONYM
+	W?CAMEL
+	W?FIXTURE
+	.PROP 2,P?ACTION
+	CAMEL-F
+	.PROP 2,P?ADJECTIVE
+	W?MERRY-GO-ROUND
+	.PROP 2,P?RESEARCH
+	STR?606
+	.PROP 2,P?GENERIC
+	G-CAMEL-F
+	.PROP 2,P?INANIMATE-DESC
+	STR?607
+	.PROP 2,P?WAND-TEXT
+	STR?608
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-CAMEL
+	.BYTE	0
+	.ENDT
+
+T?DIMWITS-ROOM::	.TABLE			; TABLE FOR OBJECT DIMWITS-ROOM
+	.STRL "Dimwit's Room"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SOLAR		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CLOTHES-CLOSET		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?ROOM
+	.PROP 2,P?OWNER
+	DIMWIT
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4421
+	.PROP 2,P?ICON
+	DIMWITS-ROOM-ICON
+	.PROP 2,P?GLOBAL
+	WINDOW
+	.PROP 2,P?LDESC
+	STR?352
+	.BYTE	0
+	.ENDT
+
+T?NUT-SHELL::	.TABLE			; TABLE FOR OBJECT NUT-SHELL
+	.STRL "walnut shell"
+	.PROP 4,P?SYNONYM
+	W?SHELL
+	W?NUTSHELL
+	.PROP 2,P?ACTION
+	NUT-SHELL-F
+	.PROP 2,P?ADJECTIVE
+	W?WALNUT
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?G-U-MOUNTAIN::	.TABLE			; TABLE FOR OBJECT G-U-MOUNTAIN
+	.STRL "Great Underground Mountain"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	CAVE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAIN		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAIN		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	CAVE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?MOUNTAIN
+	.PROP 2,P?ACTION
+	G-U-MOUNTAIN-F
+	.PROP 4,P?ADJECTIVE
+	W?GREAT
+	W?UNDERGROUND
+	.PROP 2,P?RESEARCH
+	STR?585
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1324
+	.PROP 2,P?ICON
+	G-U-MOUNTAIN-ICON
+	.PROP 2,P?GLOBAL
+	LAKE-FLATHEAD
+	.BYTE	0
+	.ENDT
+
+T?DIRIGIBLE::	.TABLE			; TABLE FOR OBJECT DIRIGIBLE
+	.STRL "dirigible"
+	.PROP 2,P?SYNONYM
+	W?DIRIGIBLE
+	.PROP 2,P?ACTION
+	DIRIGIBLE-F
+	.PROP 2,P?LDESC
+	STR?937
+	.BYTE	0
+	.ENDT
+
+T?PEG-ROOM::	.TABLE			; TABLE FOR OBJECT PEG-ROOM
+	.STRL "Peg Room"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	.BYTE GAMING-ROOM		; TO ROOM
+	.BYTE PEG-PASSAGE-OPENED		; IF FLAG IS TRUE
+	0		; FAILURE MESSAGE
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 2,P?ACTION
+	PEG-ROOM-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?5921
+	.PROP 2,P?ICON
+	PEG-ROOM-ICON
+	.BYTE	0
+	.ENDT
+
+T?ELIXIR::	.TABLE			; TABLE FOR OBJECT ELIXIR
+	.STRL "elixir"
+	.PROP 4,P?SYNONYM
+	W?ELIXIR
+	W?LIQUID
+	.PROP 2,P?ACTION
+	ELIXIR-F
+	.PROP 2,P?ADJECTIVE
+	W?MILKY
+	.BYTE	0
+	.ENDT
+
+T?WISHYFOO-TERRITORY::	.TABLE			; TABLE FOR OBJECT WISHYFOO-TERRITORY
+	.STRL "Wishyfoo Territory"
+	.PROP 2,P?SW		; IMPOSSIBLE EXIT
+	STR?787		; FAILURE MESSAGE
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?787		; FAILURE MESSAGE
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE FORK		; TO ROOM
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?5025
+	.PROP 2,P?ICON
+	WISHYFOO-ICON
+	.PROP 2,P?LDESC
+	STR?786
+	.PROP 2,P?VALUE
+	6
+	.BYTE	0
+	.ENDT
+
+T?DRAWBRIDGE::	.TABLE			; TABLE FOR OBJECT DRAWBRIDGE
+	.STRL "Drawbridge"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE BARBICAN		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE OUTER-BAILEY		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?BRIDGE
+	W?DRAWBRIDGE
+	.PROP 2,P?ACTION
+	DRAWBRIDGE-F
+	.PROP 6,P?ADJECTIVE
+	W?DRAW
+	W?STURDY
+	W?WOODEN
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?721
+	.PROP 2,P?ICON
+	DRAWBRIDGE-ICON
+	.PROP 4,P?GLOBAL
+	DRAWBRIDGE
+	MOAT
+	.BYTE	0
+	.ENDT
+
+T?OASIS-OBJECT::	.TABLE			; TABLE FOR OBJECT OASIS-OBJECT
+	.STRL "oasis"
+	.PROP 6,P?SYNONYM
+	W?OASIS
+	W?POOL
+	W?SPRING
+	.PROP 10,P?ADJECTIVE
+	W?GREAT
+	W?UNDERGROUND
+	W?INCREDIBLY
+	W?CLEAR
+	W?COLD
+	.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
+	YACHT-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?RED
+	.BYTE	0
+	.ENDT
+
+T?CRAG-REBUS-BUTTON::	.TABLE			; TABLE FOR OBJECT CRAG-REBUS-BUTTON
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	REBUS-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?KEY-SHAPED
+	W?BLINKING
+	.PROP 2,P?SDESC
+	STR?334
+	.PROP 2,P?FDESC
+	STR?587
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-HERE::	.TABLE			; TABLE FOR OBJECT GLOBAL-HERE
+	.STRL "room"
+	.PROP 14,P?SYNONYM
+	W?ROOM
+	W?PLACE
+	W?LOCATION
+	W?HALL
+	W?AREA
+	W?THERE
+	W?HERE
+	.PROP 2,P?ACTION
+	GLOBAL-HERE-F
+	.BYTE	0
+	.ENDT
+
+T?HELLHOUND-BONES::	.TABLE			; TABLE FOR OBJECT HELLHOUND-BONES
+	.STRL "platter of hellhound bones"
+	.PROP 4,P?SYNONYM
+	W?BONES
+	W?PLATTER
+	.PROP 2,P?ACTION
+	SERVANT-ITEM-F
+	.PROP 2,P?ADJECTIVE
+	W?HELLHOUND
+	.PROP 2,P?OWNER
+	HELLHOUND-BONES
+	.BYTE	0
+	.ENDT
+
+T?DEPRESSION::	.TABLE			; TABLE FOR OBJECT DEPRESSION
+	.STRL "depression"
+	.PROP 2,P?SYNONYM
+	W?DEPRESSION
+	.PROP 2,P?ACTION
+	DEPRESSION-F
+	.BYTE	0
+	.ENDT
+
+T?SPIRE::	.TABLE			; TABLE FOR OBJECT SPIRE
+	.STRL "rocky spire"
+	.PROP 4,P?SYNONYM
+	W?SPIRE
+	W?ROCK
+	.PROP 2,P?ADJECTIVE
+	W?ROCKY
+	.BYTE	0
+	.ENDT
+
+T?SWAMP::	.TABLE			; TABLE FOR OBJECT SWAMP
+	.STRL "swamp"
+	.PROP 12,P?SYNONYM
+	W?SWAMP
+	W?BAYOU
+	W?DELTA
+	W?MARSH
+	W?MUCK
+	W?BOG
+	.PROP 8,P?ADJECTIVE
+	W?SWAMPY
+	W?MAZE-LIKE
+	W?FOGGY
+	W?MIST-COVERED
+	.BYTE	0
+	.ENDT
+
+T?STONE-TOADS::	.TABLE			; TABLE FOR OBJECT STONE-TOADS
+	.STRL "pair of stone toads"
+	.PROP 6,P?SYNONYM
+	W?PAIR
+	W?TOAD
+	W?TOADS
+	.PROP 2,P?ADJECTIVE
+	W?STONE
+	.PROP 2,P?OWNER
+	STONE-TOADS
+	.BYTE	0
+	.ENDT
+
+T?PLAIN::	.TABLE			; TABLE FOR OBJECT PLAIN
+	.STRL "Plain"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?NE		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SE		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SW		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?NW		; CONDITIONAL EXIT
+	PLAIN-MOVEMENT-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	PLAIN-F
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?VALUE
+	16
+	.BYTE	0
+	.ENDT
+
+T?WHITE-KING-ROBE::	.TABLE			; TABLE FOR OBJECT WHITE-KING-ROBE
+	.STRL "robe"
+	.PROP 2,P?SYNONYM
+	W?ROBE
+	.BYTE	0
+	.ENDT
+
+T?BANQUET-FOOD::	.TABLE			; TABLE FOR OBJECT BANQUET-FOOD
+	.STRL "banquet meal"
+	.PROP 4,P?SYNONYM
+	W?FOOD
+	W?WINE
+	.PROP 2,P?ACTION
+	BANQUET-FOOD-F
+	.BYTE	0
+	.ENDT
+
+T?PROCLAMATION::	.TABLE			; TABLE FOR OBJECT PROCLAMATION
+	.STRL "proclamation"
+	.PROP 4,P?SYNONYM
+	W?PROCLAMATION
+	W?DECREE
+	.PROP 2,P?ACTION
+	PROCLAMATION-F
+	.PROP 2,P?OWNER
+	WALL
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?TEXT
+	STR?291
+	.PROP 2,P?FDESC
+	STR?290
+	.BYTE	0
+	.ENDT
+
+T?SECRET-PASSAGE::	.TABLE			; TABLE FOR OBJECT SECRET-PASSAGE
+	.STRL "Secret Passage"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	.BYTE THRONE-ROOM		; TO ROOM
+	.BYTE SECRET-PASSAGE-OPEN		; IF FLAG IS TRUE
+	STR?344		; FAILURE MESSAGE
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE TEE		; TO ROOM
+	.PROP 2,P?ACTION
+	SECRET-PASSAGE-F
+	.PROP 2,P?THINGS
+	PT?3921
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3721
+	.PROP 2,P?ICON
+	SECRET-PASSAGE-ICON
+	.PROP 2,P?LDESC
+	STR?343
+	.BYTE	0
+	.ENDT
+
+T?LAKE-FLATHEAD::	.TABLE			; TABLE FOR OBJECT LAKE-FLATHEAD
+	.STRL "Lake Flathead"
+	.PROP 4,P?SYNONYM
+	W?LAKE
+	W?FLATHEAD
+	.PROP 2,P?ACTION
+	LAKE-FLATHEAD-F
+	.PROP 10,P?ADJECTIVE
+	W?FLATHEAD
+	W?LAKE
+	W?PLACID
+	W?CLEAR
+	W?CRYSTAL
+	.PROP 2,P?RESEARCH
+	STR?575
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?624
+	.PROP 2,P?ICON
+	LAKE-FLATHEAD-ICON
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.PROP 2,P?LDESC
+	STR?574
+	.PROP 2,P?VALUE
+	18
+	.BYTE	0
+	.ENDT
+
+T?JESTER::	.TABLE			; TABLE FOR OBJECT JESTER
+	.STRL "jester"
+	.PROP 8,P?SYNONYM
+	W?JESTER
+	W?JESTERS
+	W?JOKER
+	W?MAN
+	.PROP 2,P?ACTION
+	JESTER-F
+	.PROP 2,P?DESCFCN
+	JESTER-F
+	.BYTE	0
+	.ENDT
+
+T?PROTAGONIST::	.TABLE			; TABLE FOR OBJECT PROTAGONIST
+	.STRL "self"
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?CHALET::	.TABLE			; TABLE FOR OBJECT CHALET
+	.STRL "Chalet"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE WEST-OF-MIRROR		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WEST-OF-MIRROR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CHALET
+	.PROP 2,P?ADJECTIVE
+	W?SKI
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?3126
+	.PROP 2,P?ICON
+	CHALET-ICON
+	.PROP 2,P?GLOBAL
+	GRAY-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?829
+	.BYTE	0
+	.ENDT
+
+T?TESTING-ROOM::	.TABLE			; TABLE FOR OBJECT TESTING-ROOM
+	.STRL "Testing Room"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE LABORATORY		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE LABORATORY		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?9521
+	.PROP 2,P?LDESC
+	STR?389
+	.BYTE	0
+	.ENDT
+
+T?PYRAMID::	.TABLE			; TABLE FOR OBJECT PYRAMID
+	.STRL "Pyramid Room"
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	WEIRD-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	WEIRD-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	PYRAMID-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?528
+	.PROP 2,P?ICON
+	PYRAMID-ICON
+	.PROP 2,P?VALUE
+	7
+	.BYTE	0
+	.ENDT
+
+T?WEST-DOOR::	.TABLE			; TABLE FOR OBJECT WEST-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	WEST-DOOR-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?OAK
+	.BYTE	0
+	.ENDT
+
+T?RIGHT-BOOTH-BUTTON::	.TABLE			; TABLE FOR OBJECT RIGHT-BOOTH-BUTTON
+	.STRL "ominous black button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	BOOTH-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?OMINOUS
+	W?BLACK
+	.PROP 2,P?GENERIC
+	G-BUTTON-F
+	.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
+	YACHT-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?BLUE
+	.BYTE	0
+	.ENDT
+
+T?POTION::	.TABLE			; TABLE FOR OBJECT POTION
+	.STRL "magic potion"
+	.PROP 6,P?SYNONYM
+	W?POTION
+	W?POTIONS
+	W?LIQUID
+	.PROP 2,P?ACTION
+	POTION-F
+	.PROP 4,P?ADJECTIVE
+	W?MAGIC
+	W?YELLOW-GREEN
+	.PROP 2,P?RESEARCH
+	STR?935
+	.BYTE	0
+	.ENDT
+
+T?NOSE::	.TABLE			; TABLE FOR OBJECT NOSE
+	.STRL "nose"
+	.PROP 4,P?SYNONYM
+	W?NOSE
+	W?NOSTRIL
+	.PROP 2,P?ACTION
+	NOSE-F
+	.PROP 2,P?ADJECTIVE
+	W?YOUR
+	.PROP 2,P?OWNER
+	BODY-PART-OWNERS
+	.BYTE	0
+	.ENDT
+
+T?FR-BLDG::	.TABLE			; TABLE FOR OBJECT FR-BLDG
+	.STRL "Frobozzco Building"
+	.PROP 6,P?SYNONYM
+	W?BUILDING
+	W?HEADQUARTERS
+	W?HQ
+	.PROP 2,P?ACTION
+	FR-BLDG-F
+	.PROP 12,P?ADJECTIVE
+	W?TALL
+	W?FROBOZZCO
+	W?INTERNATIONAL
+	W?WORLD
+	W?HEADQUARTERS
+	W?HQ
+	.BYTE	0
+	.ENDT
+
+T?SMALL-LILY-PAD::	.TABLE			; TABLE FOR OBJECT SMALL-LILY-PAD
+	.STRL "small lily pad"
+	.PROP 2,P?SYNONYM
+	W?PAD
+	.PROP 2,P?ACTION
+	LILY-PAD-F
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?LILY
+	.PROP 2,P?CAPACITY
+	20
+	.BYTE	0
+	.ENDT
+
+T?STABLE::	.TABLE			; TABLE FOR OBJECT STABLE
+	.STRL "Stable"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAIN		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAIN		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?STABLE
+	.PROP 2,P?ACTION
+	STABLE-F
+	.PROP 2,P?THINGS
+	PT?1224
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1024
+	.PROP 2,P?ICON
+	STABLE-ICON
+	.PROP 2,P?LDESC
+	STR?579
+	.BYTE	0
+	.ENDT
+
+T?SMALLER-HANGAR::	.TABLE			; TABLE FOR OBJECT SMALLER-HANGAR
+	.STRL "Smaller Hangar"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE DESERTED-CASTLE		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	DIRIGIBLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE DESERTED-CASTLE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?HANGAR
+	.PROP 2,P?ACTION
+	0
+	.PROP 2,P?ADJECTIVE
+	W?SMALLER
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?329
+	.PROP 2,P?GLOBAL
+	GONDOLA
+	.PROP 2,P?LDESC
+	STR?945
+	.PROP 2,P?VALUE
+	6
+	.BYTE	0
+	.ENDT
+
+T?LARGE-VIAL-WATER::	.TABLE			; TABLE FOR OBJECT LARGE-VIAL-WATER
+	.STRL "water in the large vial"
+	.PROP 6,P?SYNONYM
+	W?WATER
+	W?GLOOP
+	W?GLOOPS
+	.PROP 2,P?ACTION
+	VIAL-WATER-F
+	.PROP 20,P?ADJECTIVE
+	W?ONE
+	W?TWO
+	W?THREE
+	W?FOUR
+	W?FIVE
+	W?SIX
+	W?SEVEN
+	W?EIGHT
+	W?NINE
+	W?INT.NUM
+	.PROP 2,P?GENERIC
+	G-VIAL-WATER-F
+	.BYTE	0
+	.ENDT
+
+T?TRUNK::	.TABLE			; TABLE FOR OBJECT TRUNK
+	.STRL "trunk"
+	.PROP 2,P?SYNONYM
+	W?TRUNK
+	.PROP 2,P?ACTION
+	TRUNK-F
+	.PROP 4,P?ADJECTIVE
+	W?ANCIENT
+	W?DUSTY
+	.PROP 2,P?LDESC
+	STR?849
+	.PROP 2,P?CAPACITY
+	75
+	.BYTE	0
+	.ENDT
+
+T?ROBE::	.TABLE			; TABLE FOR OBJECT ROBE
+	.STRL "wizardly robe"
+	.PROP 2,P?SYNONYM
+	W?ROBE
+	.PROP 2,P?ADJECTIVE
+	W?WIZARDLY
+	.BYTE	0
+	.ENDT
+
+T?PEGBOARD-PEGS::	.TABLE			; TABLE FOR OBJECT PEGBOARD-PEGS
+	.STRL "peg"
+	.PROP 2,P?SYNONYM
+	W?PEG
+	.PROP 2,P?ACTION
+	PEGBOARD-PEGS-F
+	.BYTE	0
+	.ENDT
+
+T?MORE-GRAVEL::	.TABLE			; TABLE FOR OBJECT MORE-GRAVEL
+	.STRL "more gravel"
+	.PROP 2,P?SYNONYM
+	W?GRAVEL
+	.PROP 2,P?ACTION
+	GRAVEL-F
+	.PROP 2,P?ADJECTIVE
+	W?MORE
+	.PROP 2,P?GENERIC
+	G-GRAVEL-F
+	.PROP 2,P?PLURAL
+	STR?588
+	.BYTE	0
+	.ENDT
+
+T?MEGABOZ-HUT::	.TABLE			; TABLE FOR OBJECT MEGABOZ-HUT
+	.STRL "Megaboz's Hut"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-HUT		; TO ROOM
+	.PROP 3,P?UP		; CONDITIONAL EXIT
+	ATTIC-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE OUTSIDE-HUT		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?HUT
+	.PROP 2,P?ACTION
+	MEGABOZ-HUT-F
+	.PROP 2,P?OWNER
+	MEGABOZ
+	.PROP 2,P?REGION
+	STR?841
+	.PROP 2,P?MAP-LOC
+	PT?4826
+	.PROP 2,P?GLOBAL
+	MEGABOZ-TRAP-DOOR
+	.BYTE	0
+	.ENDT
+
+T?FIREPLACE::	.TABLE			; TABLE FOR OBJECT FIREPLACE
+	.STRL "fireplace"
+	.PROP 2,P?SYNONYM
+	W?FIREPLACE
+	.PROP 2,P?ACTION
+	FIREPLACE-F
+	.PROP 2,P?ADJECTIVE
+	W?CHOKED
+	.BYTE	0
+	.ENDT
+
+T?GYM::	.TABLE			; TABLE FOR OBJECT GYM
+	.STRL "Gym"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE WEST-WING		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE STEAM-BATH		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?GYM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?8621
+	.PROP 2,P?ICON
+	GYM-ICON
+	.PROP 2,P?LDESC
+	STR?374
+	.BYTE	0
+	.ENDT
+
+T?TIMBERLINE::	.TABLE			; TABLE FOR OBJECT TIMBERLINE
+	.STRL "Timberline"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE AMONGST-THE-CLOUDS		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE AVALANCHE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?6926
+	.PROP 2,P?ICON
+	TIMBERLINE-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?873
+	.BYTE	0
+	.ENDT
+
+T?THRONE-ROOM::	.TABLE			; TABLE FOR OBJECT THRONE-ROOM
+	.STRL "Throne Room"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE AUDIENCE-CHAMBER		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE SECRET-PASSAGE		; TO ROOM
+	.BYTE SECRET-PASSAGE-OPEN		; IF FLAG IS TRUE
+	0		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?ROOM
+	.PROP 2,P?ACTION
+	THRONE-ROOM-F
+	.PROP 2,P?ADJECTIVE
+	W?THRONE
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3621
+	.PROP 2,P?ICON
+	THRONE-ROOM-ICON
+	.BYTE	0
+	.ENDT
+
+T?EAST-DOOR::	.TABLE			; TABLE FOR OBJECT EAST-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	EAST-DOOR-F
+	.PROP 8,P?ADJECTIVE
+	W?LARGE
+	W?HEAVY
+	W?OAK
+	W?OAKEN
+	.BYTE	0
+	.ENDT
+
+T?N-S-PASSAGE::	.TABLE			; TABLE FOR OBJECT N-S-PASSAGE
+	.STRL "north-south passage"
+	.PROP 4,P?SYNONYM
+	W?PASSAGE
+	W?PASSAGEWAY
+	.PROP 2,P?ACTION
+	PASSAGE-F
+	.PROP 10,P?ADJECTIVE
+	W?MAGIC
+	W?NORTH-SOUTH
+	W?N-S
+	W?SLIGHTLY
+	W?DAMAGED
+	.PROP 2,P?OWNER
+	0
+	.PROP 2,P?SIZE
+	25
+	.PROP 2,P?DESCFCN
+	N-S-PASSAGE-F
+	.BYTE	0
+	.ENDT
+
+T?YACHT-CONTROLS::	.TABLE			; TABLE FOR OBJECT YACHT-CONTROLS
+	.STRL "controls"
+	.PROP 8,P?SYNONYM
+	W?CONTROL
+	W?CONTROLS
+	W?ROSE
+	W?COMPASS
+	.PROP 2,P?ACTION
+	YACHT-CONTROLS-F
+	.PROP 2,P?ADJECTIVE
+	W?COMPASS
+	.BYTE	0
+	.ENDT
+
+T?THOUSANDS-OF-SNAKES::	.TABLE			; TABLE FOR OBJECT THOUSANDS-OF-SNAKES
+	.STRL "writhing mass of snakes"
+	.PROP 4,P?SYNONYM
+	W?SNAKE
+	W?MASS
+	.PROP 2,P?ADJECTIVE
+	W?WRITHING
+	.BYTE	0
+	.ENDT
+
+T?PITS-OBJECT::	.TABLE			; TABLE FOR OBJECT PITS-OBJECT
+	.STRL "bottomless pit"
+	.PROP 4,P?SYNONYM
+	W?PIT
+	W?PITS
+	.PROP 2,P?ACTION
+	PITS-OBJECT-F
+	.PROP 2,P?ADJECTIVE
+	W?BOTTOMLESS
+	.BYTE	0
+	.ENDT
+
+T?DOUBLE-FANUCCI::	.TABLE			; TABLE FOR OBJECT DOUBLE-FANUCCI
+	.STRL "Double Fanucci"
+	.PROP 4,P?SYNONYM
+	W?FANUCCI
+	W?FANNUCCI
+	.PROP 2,P?ACTION
+	DOUBLE-FANUCCI-F
+	.PROP 2,P?ADJECTIVE
+	W?DOUBLE
+	.PROP 2,P?RESEARCH
+	STR?654
+	.BYTE	0
+	.ENDT
+
+T?NICE-LUNCH-SPOT::	.TABLE			; TABLE FOR OBJECT NICE-LUNCH-SPOT
+	.STRL "Nice Lunch Spot"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE MARSH		; TO ROOM
+	.PROP 2,P?ACTION
+	NICE-LUNCH-SPOT-F
+	.PROP 2,P?REGION
+	STR?249
+	.PROP 2,P?MAP-LOC
+	PT?829
+	.PROP 2,P?LDESC
+	STR?953
+	.BYTE	0
+	.ENDT
+
+T?EXIT::	.TABLE			; TABLE FOR OBJECT EXIT
+	.STRL "Exit"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE G-U-HIGHWAY		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CROSSROADS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE FIELD-OFFICE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?225
+	.PROP 2,P?ICON
+	EXIT-ICON
+	.PROP 2,P?GLOBAL
+	SIGN
+	.PROP 2,P?LDESC
+	STR?617
+	.BYTE	0
+	.ENDT
+
+T?CASINO::	.TABLE			; TABLE FOR OBJECT CASINO
+	.STRL "Casino"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE WHARF		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WHARF		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CASINO
+	.PROP 2,P?ACTION
+	CASINO-F
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?2925
+	.PROP 2,P?GLOBAL
+	GLOBAL-BLDG
+	.PROP 2,P?LDESC
+	STR?653
+	.BYTE	0
+	.ENDT
+
+T?WEST-OF-MIRROR::	.TABLE			; TABLE FOR OBJECT WEST-OF-MIRROR
+	.STRL "West of Mirror"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE NORTH-OF-MIRROR		; TO ROOM
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?823		; FAILURE MESSAGE
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE SOUTH-OF-MIRROR		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE CHALET		; TO ROOM
+	.PROP 2,P?ACTION
+	WEST-OF-MIRROR-F
+	.PROP 2,P?REGION
+	STR?814
+	.PROP 2,P?MAP-LOC
+	PT?2826
+	.PROP 4,P?GLOBAL
+	CHALET
+	GRAY-MOUNTAINS
+	.BYTE	0
+	.ENDT
+
+T?FR-BASEMENT::	.TABLE			; TABLE FOR OBJECT FR-BASEMENT
+	.STRL "FrobozzCo Basement"
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	PHIL-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE FR-HQ		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?2223
+	.PROP 4,P?GLOBAL
+	STAIRS
+	FR-BLDG
+	.PROP 2,P?LDESC
+	STR?557
+	.BYTE	0
+	.ENDT
+
+T?BIRCH::	.TABLE			; TABLE FOR OBJECT BIRCH
+	.STRL "birch tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?BIRCH
+	.PROP 2,P?ACTION
+	BIRCH-F
+	.PROP 2,P?ADJECTIVE
+	W?BIRCH
+	.PROP 2,P?FDESC
+	STR?798
+	.BYTE	0
+	.ENDT
+
+T?CALENDAR-ITEMS::	.TABLE			; TABLE FOR OBJECT CALENDAR-ITEMS
+	.STRL "it"
+	.PROP 62,P?SYNONYM
+	W?POISON
+	W?AX
+	W?AXE
+	W?COBRA
+	W?SKULL
+	W?KNIFE
+	W?DAGGER
+	W?TROPHY
+	W?STICK
+	W?BALL
+	W?HELMET
+	W?EPAULET
+	W?EPAULETTE
+	W?MEDAL
+	W?TEMPLATE
+	W?PENCIL
+	W?TRIANGLE
+	W?CRAYON
+	W?COMPASS
+	W?ELEPHANT
+	W?VOLCANO
+	W?BRUSH
+	W?AVOCADO
+	W?INKWELL
+	W?RAVEN
+	W?STAMP
+	W?CIGAR
+	W?BURNER
+	W?CELERY
+	W?MATCH
+	W?BOWTIE
+	.PROP 6,P?ADJECTIVE
+	W?HOCKEY
+	W?RUBBER
+	W?BUNSEN
+	.BYTE	0
+	.ENDT
+
+T?ARMOR::	.TABLE			; TABLE FOR OBJECT ARMOR
+	.STRL "suit of armor"
+	.PROP 6,P?SYNONYM
+	W?SUIT
+	W?ARMOR
+	W?ARMOUR
+	.PROP 2,P?ACTION
+	ARMOR-F
+	.PROP 2,P?OWNER
+	ARMOR
+	.BYTE	0
+	.ENDT
+
+T?YACHT-PLAQUE::	.TABLE			; TABLE FOR OBJECT YACHT-PLAQUE
+	.STRL "brass plaque"
+	.PROP 2,P?SYNONYM
+	W?PLAQUE
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?BRASS
+	.PROP 2,P?TEXT
+	STR?564
+	.BYTE	0
+	.ENDT
+
+T?FISH-TANK::	.TABLE			; TABLE FOR OBJECT FISH-TANK
+	.STRL "fish tank"
+	.PROP 4,P?SYNONYM
+	W?TANK
+	W?AQUARIUM
+	.PROP 2,P?ACTION
+	FISH-TANK-F
+	.PROP 2,P?ADJECTIVE
+	W?FISH
+	.PROP 2,P?CAPACITY
+	50
+	.BYTE	0
+	.ENDT
+
+T?BOOKKEEPER::	.TABLE			; TABLE FOR OBJECT BOOKKEEPER
+	.STRL "bookkeeper"
+	.PROP 4,P?SYNONYM
+	W?BOOKKEEPER
+	W?BOOKKEEPING
+	.BYTE	0
+	.ENDT
+
+T?WALDO::	.TABLE			; TABLE FOR OBJECT WALDO
+	.STRL "waldo"
+	.PROP 2,P?SYNONYM
+	W?WALDO
+	.PROP 2,P?ACTION
+	WALDO-F
+	.PROP 2,P?ADJECTIVE
+	W?EXTERIOR
+	.BYTE	0
+	.ENDT
+
+T?IRON-MINE::	.TABLE			; TABLE FOR OBJECT IRON-MINE
+	.STRL "Iron Mine"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE HOLLOW		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE HOLLOW		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?MINE
+	.PROP 2,P?THINGS
+	PT?1626
+	.PROP 2,P?ADJECTIVE
+	W?IRON
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?1726
+	.PROP 2,P?ICON
+	IRON-MINE-ICON
+	.PROP 6,P?GLOBAL
+	BONES
+	BODIES
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?799
+	.BYTE	0
+	.ENDT
+
+T?RECIPE::	.TABLE			; TABLE FOR OBJECT RECIPE
+	.STRL "recipe card"
+	.PROP 4,P?SYNONYM
+	W?RECIPE
+	W?CARD
+	.PROP 2,P?ADJECTIVE
+	W?RECIPE
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?TEXT
+	BORPHBELLY-TEXT
+	.BYTE	0
+	.ENDT
+
+T?LONGEST-SLAB::	.TABLE			; TABLE FOR OBJECT LONGEST-SLAB
+	.STRL "longest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?LONGEST
+	.BYTE	0
+	.ENDT
+
+T?GIANT-SPIDERS::	.TABLE			; TABLE FOR OBJECT GIANT-SPIDERS
+	.STRL "giant spider"
+	.PROP 4,P?SYNONYM
+	W?SPIDER
+	W?SPIDERS
+	.PROP 2,P?ACTION
+	GIANT-SPIDERS-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGE
+	.BYTE	0
+	.ENDT
+
+T?NATURAL-ARCH::	.TABLE			; TABLE FOR OBJECT NATURAL-ARCH
+	.STRL "Natural Arch"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE CRAG		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE CRAG		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE ENCHANTED-CAVE		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?1826
+	.PROP 2,P?ICON
+	NATURAL-ARCH-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?802
+	.BYTE	0
+	.ENDT
+
+T?FOOTHILLS::	.TABLE			; TABLE FOR OBJECT FOOTHILLS
+	.STRL "Foothills"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAINS		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE ZORBEL-PASS		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE ZORBEL-PASS		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE BASE-OF-MOUNTAINS		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?6626
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?869
+	.BYTE	0
+	.ENDT
+
+T?FRIGID-RIVER::	.TABLE			; TABLE FOR OBJECT FRIGID-RIVER
+	.STRL "the Frigid River"
+	.PROP 2,P?SYNONYM
+	W?RIVER
+	.PROP 2,P?ADJECTIVE
+	W?FRIGID
+	.PROP 2,P?RESEARCH
+	STR?838
+	.BYTE	0
+	.ENDT
+
+T?ZORBEL-PASS::	.TABLE			; TABLE FOR OBJECT ZORBEL-PASS
+	.STRL "Zorbel Pass"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE FOOTHILLS		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE AVALANCHE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE AVALANCHE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE FOOTHILLS		; TO ROOM
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?6726
+	.PROP 2,P?ICON
+	ZORBEL-PASS-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?870
+	.BYTE	0
+	.ENDT
+
+T?SHORTEST-SLAB::	.TABLE			; TABLE FOR OBJECT SHORTEST-SLAB
+	.STRL "shortest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?SHORTEST
+	.BYTE	0
+	.ENDT
+
+T?SET-OF-INSTRUCTIONS::	.TABLE			; TABLE FOR OBJECT SET-OF-INSTRUCTIONS
+	.STRL "set of instructions"
+	.PROP 6,P?SYNONYM
+	W?SET
+	W?INSTRUCTIONS
+	W?RULES
+	.PROP 2,P?OWNER
+	SET-OF-INSTRUCTIONS
+	.PROP 2,P?TEXT
+	STR?372
+	.BYTE	0
+	.ENDT
+
+T?LARGER-FLY::	.TABLE			; TABLE FOR OBJECT LARGER-FLY
+	.STRL "larger fly"
+	.PROP 2,P?SYNONYM
+	W?FLY
+	.PROP 2,P?ACTION
+	FLY-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGER
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?PLURAL
+	STR?835
+	.BYTE	0
+	.ENDT
+
+T?MANUSCRIPT::	.TABLE			; TABLE FOR OBJECT MANUSCRIPT
+	.STRL "manuscript"
+	.PROP 2,P?SYNONYM
+	W?MANUSCRIPT
+	.PROP 2,P?TEXT
+	STR?934
+	.PROP 2,P?VALUE
+	12
+	.BYTE	0
+	.ENDT
+
+T?FRESCO::	.TABLE			; TABLE FOR OBJECT FRESCO
+	.STRL "fresco"
+	.PROP 2,P?SYNONYM
+	W?FRESCO
+	.PROP 2,P?ACTION
+	FRESCO-F
+	.PROP 2,P?ADJECTIVE
+	W?FADED
+	.BYTE	0
+	.ENDT
+
+T?WALL::	.TABLE			; TABLE FOR OBJECT WALL
+	.STRL "wall"
+	.PROP 4,P?SYNONYM
+	W?WALL
+	W?WALLS
+	.PROP 2,P?ACTION
+	WALL-F
+	.PROP 20,P?ADJECTIVE
+	W?NORTH
+	W?NE
+	W?EAST
+	W?SE
+	W?SOUTH
+	W?SW
+	W?WEST
+	W?NW
+	W?REAR
+	W?FAR
+	.BYTE	0
+	.ENDT
+
+T?TOP-OF-WELL::	.TABLE			; TABLE FOR OBJECT TOP-OF-WELL
+	.STRL "Top of Well"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE SLOPING-CAVE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE SLOPING-CAVE		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE UNDER-THE-WORLD		; TO ROOM
+	.PROP 2,P?REGION
+	STR?410
+	.PROP 2,P?MAP-LOC
+	PT?11021
+	.PROP 2,P?LDESC
+	STR?415
+	.BYTE	0
+	.ENDT
+
+T?BASE-OF-MOUNTAIN::	.TABLE			; TABLE FOR OBJECT BASE-OF-MOUNTAIN
+	.STRL "Base of Mountain"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE STABLE		; TO ROOM
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	G-U-MOUNTAIN-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE G-U-WOODS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE EAST-SHORE		; TO ROOM
+	.PROP 3,P?UP		; CONDITIONAL EXIT
+	G-U-MOUNTAIN-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?924
+	.PROP 2,P?ICON
+	BASE-OF-MT-ICON
+	.PROP 2,P?GLOBAL
+	G-U-MOUNTAIN
+	.PROP 2,P?LDESC
+	STR?578
+	.BYTE	0
+	.ENDT
+
+T?SMALL-VIAL::	.TABLE			; TABLE FOR OBJECT SMALL-VIAL
+	.STRL "four-gloop vial"
+	.PROP 4,P?SYNONYM
+	W?VIAL
+	W?WRITING
+	.PROP 2,P?ACTION
+	VIAL-F
+	.PROP 12,P?ADJECTIVE
+	W?FOUR-GLOOP
+	W?4-GLOOP
+	W?FOUR
+	W?GLOOP
+	W?SMALL
+	W?INT.NUM
+	.PROP 2,P?GENERIC
+	G-VIAL-F
+	.PROP 2,P?OWNER
+	SMALL-VIAL
+	.PROP 2,P?SIZE
+	3
+	.BYTE	0
+	.ENDT
+
+T?TRAP-DOOR::	.TABLE			; TABLE FOR OBJECT TRAP-DOOR
+	.STRL "trap door"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?TRAPDOOR
+	.PROP 2,P?ACTION
+	TRAP-DOOR-F
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?TRAP
+	.BYTE	0
+	.ENDT
+
+T?SOUTH-SHORE::	.TABLE			; TABLE FOR OBJECT SOUTH-SHORE
+	.STRL "South Shore"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?562		; FAILURE MESSAGE
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-DESERT		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE STREAM		; TO ROOM
+	.PROP 2,P?ACTION
+	SOUTH-SHORE-F
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?424
+	.PROP 2,P?ICON
+	SOUTH-SHORE-ICON
+	.PROP 4,P?GLOBAL
+	LAKE-FLATHEAD
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?UPPER-LEDGE::	.TABLE			; TABLE FOR OBJECT UPPER-LEDGE
+	.STRL "Upper Ledge"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE CRAG		; TO ROOM
+	.PROP 4,P?DOWN		; CONDITIONAL EXIT
+	.BYTE LOWER-LEDGE		; TO ROOM
+	.BYTE ROPE-PLACED		; IF FLAG IS TRUE
+	STR?806		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?LEDGE
+	.PROP 2,P?ADJECTIVE
+	W?UPPER
+	.PROP 2,P?REGION
+	STR?795
+	.PROP 2,P?MAP-LOC
+	PT?2026
+	.PROP 2,P?ICON
+	UPPER-LEDGE-ICON
+	.PROP 8,P?GLOBAL
+	FJORD
+	LOWER-LEDGE
+	FLATHEAD-MOUNTAINS
+	GRAY-MOUNTAINS
+	.PROP 2,P?LDESC
+	STR?805
+	.BYTE	0
+	.ENDT
+
+T?HEXAGONAL-BLOCK::	.TABLE			; TABLE FOR OBJECT HEXAGONAL-BLOCK
+	.STRL "hexagonal block"
+	.PROP 4,P?SYNONYM
+	W?BLOCK
+	W?ROCK
+	.PROP 2,P?ACTION
+	HEXAGONAL-BLOCK-F
+	.PROP 8,P?ADJECTIVE
+	W?SMALL
+	W?ELONGATED
+	W?HEXAGONAL
+	W?HEXAGON-SHAPED
+	.PROP 2,P?SIZE
+	3
+	.BYTE	0
+	.ENDT
+
+T?FLICKERING-TORCH::	.TABLE			; TABLE FOR OBJECT FLICKERING-TORCH
+	.STRL ""
+	.PROP 4,P?SYNONYM
+	W?TORCH
+	W?TORCHES
+	.PROP 2,P?ACTION
+	FLICKERING-TORCH-F
+	.PROP 2,P?ADJECTIVE
+	W?FLICKERING
+	.PROP 2,P?SDESC
+	STR?315
+	.PROP 2,P?PLURAL
+	STR?309
+	.BYTE	0
+	.ENDT
+
+T?RIGHT-BOOTH::	.TABLE			; TABLE FOR OBJECT RIGHT-BOOTH
+	.STRL "right booth"
+	.PROP 2,P?SYNONYM
+	W?BOOTH
+	.PROP 2,P?ACTION
+	BOOTH-F
+	.PROP 2,P?ADJECTIVE
+	W?RIGHT
+	.PROP 2,P?GENERIC
+	G-BOOTH-F
+	.PROP 2,P?CAPACITY
+	60
+	.BYTE	0
+	.ENDT
+
+T?CAKE::	.TABLE			; TABLE FOR OBJECT CAKE
+	.STRL "cake"
+	.PROP 2,P?SYNONYM
+	W?CAKE
+	.PROP 2,P?ACTION
+	SERVANT-ITEM-F
+	.BYTE	0
+	.ENDT
+
+T?SALTY-SMELL::	.TABLE			; TABLE FOR OBJECT SALTY-SMELL
+	.STRL "Salty Smell"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE FORK		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE QUILBOZZA-BEACH		; TO ROOM
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?2525
+	.PROP 2,P?LDESC
+	STR?635
+	.BYTE	0
+	.ENDT
+
+T?NORTH-OF-ANTHAR::	.TABLE			; TABLE FOR OBJECT NORTH-OF-ANTHAR
+	.STRL "North of Anthar"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE FLATHEAD-STADIUM		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE EDGE-OF-BOG		; TO ROOM
+	.PROP 2,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?885		; FAILURE MESSAGE
+	.PROP 2,P?THINGS
+	PT?7726
+	.PROP 2,P?REGION
+	STR?877
+	.PROP 2,P?MAP-LOC
+	PT?7526
+	.PROP 2,P?GLOBAL
+	SIGN
+	.PROP 2,P?LDESC
+	STR?884
+	.BYTE	0
+	.ENDT
+
+T?FOREBLDG::	.TABLE			; TABLE FOR OBJECT FOREBLDG
+	.STRL "Forebuilding"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE TEE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DONJON		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE DONJON		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?4121
+	.PROP 2,P?LDESC
+	STR?347
+	.BYTE	0
+	.ENDT
+
+T?NEWEST-SLAB::	.TABLE			; TABLE FOR OBJECT NEWEST-SLAB
+	.STRL "newest slab"
+	.PROP 2,P?SYNONYM
+	W?SLAB
+	.PROP 2,P?ACTION
+	SLAB-F
+	.PROP 2,P?ADJECTIVE
+	W?NEWEST
+	.BYTE	0
+	.ENDT
+
+T?RUSTY-KEY::	.TABLE			; TABLE FOR OBJECT RUSTY-KEY
+	.STRL "rusty key"
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ACTION
+	RUSTY-KEY-F
+	.PROP 4,P?ADJECTIVE
+	W?RUSTY
+	W?OLD
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?AUDIENCE-CHAMBER::	.TABLE			; TABLE FOR OBJECT AUDIENCE-CHAMBER
+	.STRL "Audience Chamber"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE THRONE-ROOM		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?CHAMBER
+	.PROP 2,P?ADJECTIVE
+	W?AUDIENCE
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?3521
+	.PROP 2,P?GLOBAL
+	CARPET
+	.PROP 2,P?LDESC
+	STR?341
+	.BYTE	0
+	.ENDT
+
+T?FOX::	.TABLE			; TABLE FOR OBJECT FOX
+	.STRL "fox"
+	.PROP 4,P?SYNONYM
+	W?FOX
+	W?STOLE
+	.PROP 2,P?ACTION
+	FOX-F
+	.PROP 2,P?ADJECTIVE
+	W?FOX
+	.PROP 2,P?SIZE
+	15
+	.PROP 2,P?FDESC
+	STR?595
+	.PROP 2,P?PLURAL
+	STR?594
+	.PROP 2,P?INANIMATE-DESC
+	STR?596
+	.PROP 2,P?WAND-TEXT
+	STR?597
+	.PROP 2,P?ANIMATE-ROUTINE
+	I-W-FOX
+	.BYTE	0
+	.ENDT
+
+T?QUILBOZZA-BEACH::	.TABLE			; TABLE FOR OBJECT QUILBOZZA-BEACH
+	.STRL "Quilbozza Beach"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SANDBAR		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE SALTY-SMELL		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE WARNING-ROOM		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?BEACH
+	.PROP 2,P?ACTION
+	QUILBOZZA-BEACH-F
+	.PROP 2,P?ADJECTIVE
+	W?QUILBOZZA
+	.PROP 2,P?RESEARCH
+	STR?782
+	.PROP 2,P?REGION
+	STR?633
+	.PROP 2,P?MAP-LOC
+	PT?4725
+	.PROP 2,P?ICON
+	QUILBOZZA-BEACH-ICON
+	.PROP 2,P?GLOBAL
+	FLATHEAD-OCEAN
+	.PROP 2,P?LDESC
+	STR?781
+	.BYTE	0
+	.ENDT
+
+T?VILLAGE-CENTER::	.TABLE			; TABLE FOR OBJECT VILLAGE-CENTER
+	.STRL "Village Center"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE COURTROOM		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE FR-HQ		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE POST-OFFICE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE SHADY-PARK		; TO ROOM
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?1223
+	.PROP 4,P?GLOBAL
+	VILLAGE
+	FR-BLDG
+	.PROP 2,P?LDESC
+	STR?541
+	.BYTE	0
+	.ENDT
+
+T?DELTA-5::	.TABLE			; TABLE FOR OBJECT DELTA-5
+	.STRL "Delta"
+	.PROP 2,P?NORTH		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-4		; TO ROOM
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE DELTA-3		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE DELTA-3		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE DELTA-6		; TO ROOM
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?NW		; IMPOSSIBLE EXIT
+	STR?833		; FAILURE MESSAGE
+	.PROP 2,P?REGION
+	STR?831
+	.PROP 2,P?MAP-LOC
+	PT?3626
+	.PROP 2,P?ICON
+	DELTA-ICON
+	.PROP 2,P?GLOBAL
+	SWAMP
+	.PROP 2,P?LDESC
+	STR?832
+	.BYTE	0
+	.ENDT
+
+T?PSEUDO-OBJECT::	.TABLE			; TABLE FOR OBJECT PSEUDO-OBJECT
+	.STRL "pseudoxxx"
+	.PROP 2,P?ACTION
+	0
+	.BYTE	0
+	.ENDT
+
+T?INNER-BAILEY::	.TABLE			; TABLE FOR OBJECT INNER-BAILEY
+	.STRL "Inner Bailey"
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	PORTCULLIS		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE ENTRANCE-HALL		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE CAUSEWAY		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?BAILEY
+	.PROP 2,P?ACTION
+	INNER-BAILEY-F
+	.PROP 2,P?ADJECTIVE
+	W?INNER
+	.PROP 2,P?REGION
+	STR?250
+	.PROP 2,P?MAP-LOC
+	PT?321
+	.PROP 2,P?ICON
+	INNER-BAILEY-ICON
+	.PROP 6,P?GLOBAL
+	PORTCULLIS
+	MOAT
+	CAUSEWAY
+	.PROP 2,P?LDESC
+	STR?294
+	.BYTE	0
+	.ENDT
+
+T?MUTTERING-TORCH::	.TABLE			; TABLE FOR OBJECT MUTTERING-TORCH
+	.STRL "muttering torch"
+	.PROP 4,P?SYNONYM
+	W?TORCH
+	W?TORCHES
+	.PROP 2,P?ACTION
+	MUTTERING-TORCH-F
+	.PROP 2,P?ADJECTIVE
+	W?MUTTERING
+	.PROP 2,P?PLURAL
+	STR?309
+	.BYTE	0
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+IMPTBL::
+
+T?2431::
+LOWCORE-TABLE::	.TABLE
+	2
+	0
+	0
+	.ENDT
+
+T?104::
+PMEM-STORE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	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::
+ORPHAN-ADJS::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?205::
+ORPHAN-NP::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?305::
+ORPHAN-NP2::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?405::
+ORPHAN-S::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?505::
+SEARCH-RES::	.TABLE
+	6
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?605::
+ORPHAN-SR::	.TABLE
+	6
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?705::
+OWNER-SR-HERE::	.TABLE
+	6
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?805::
+OWNER-SR-THERE::	.TABLE
+	6
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?107::
+STATE-STACK::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?207::
+SPLIT-STACK::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?307::
+DATA-STACK::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?407::
+P-LEXV::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.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?507::
+G-LEXV::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.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?607::
+O-LEXV::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.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?707::
+M-LEXV::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.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?807::
+P-INBUF::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.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?907::
+G-INBUF::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.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?1007::
+O-INBUF::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.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?1107::
+M-INBUF::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.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?1207::
+OOPS-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1307::
+ERROR-ARGS::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1407::
+GWIM-MSG::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1507::
+PARSE-RESULT::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1607::
+OFFENDED::	.TABLE
+	7
+	0
+	STR?1
+	STR?2
+	STR?3
+	STR?4
+	STR?5
+	STR?6
+	.ENDT
+
+T?108::
+FINDER::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?109::
+PREP-BIT::	.TABLE
+	0
+	0
+	0
+	.ENDT
+
+T?113::
+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
+	.ENDT
+
+T?213::
+PICINF-TBL::	.TABLE
+	0
+	0
+	.ENDT
+
+T?114::
+TCHARS::	.TABLE
+	.BYTE 255
+	.BYTE 0
+	.ENDT
+
+T?214::
+DIROUT-TABLE::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.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?314::
+FNAMES::	.TABLE
+	28
+	129
+	STR?26
+	130
+	STR?27
+	131
+	STR?28
+	132
+	STR?29
+	133
+	STR?30
+	134
+	STR?31
+	135
+	STR?32
+	136
+	STR?33
+	137
+	STR?34
+	138
+	STR?35
+	139
+	STR?36
+	140
+	STR?37
+	141
+	STR?38
+	142
+	STR?39
+	.ENDT
+
+T?414::
+DEFS-NAME::	.TABLE
+	.BYTE 4
+	.BYTE 68
+	.BYTE 69
+	.BYTE 70
+	.BYTE 83
+	.ENDT
+
+T?514::
+FKEY-TBL::	.TABLE
+	.BYTE 30
+	.BYTE 2
+	.BYTE 110
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?614::	.TABLE
+	.BYTE 30
+	.BYTE 2
+	.BYTE 115
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?714::	.TABLE
+	.BYTE 30
+	.BYTE 2
+	.BYTE 119
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?814::	.TABLE
+	.BYTE 30
+	.BYTE 2
+	.BYTE 101
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?914::	.TABLE
+	.BYTE 30
+	.BYTE 5
+	.BYTE 116
+	.BYTE 97
+	.BYTE 107
+	.BYTE 101
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1014::	.TABLE
+	.BYTE 30
+	.BYTE 9
+	.BYTE 116
+	.BYTE 97
+	.BYTE 107
+	.BYTE 101
+	.BYTE 32
+	.BYTE 97
+	.BYTE 108
+	.BYTE 108
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1114::	.TABLE
+	.BYTE 30
+	.BYTE 5
+	.BYTE 100
+	.BYTE 114
+	.BYTE 111
+	.BYTE 112
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1214::	.TABLE
+	.BYTE 30
+	.BYTE 12
+	.BYTE 108
+	.BYTE 111
+	.BYTE 111
+	.BYTE 107
+	.BYTE 32
+	.BYTE 97
+	.BYTE 114
+	.BYTE 111
+	.BYTE 117
+	.BYTE 110
+	.BYTE 100
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1314::	.TABLE
+	.BYTE 30
+	.BYTE 10
+	.BYTE 105
+	.BYTE 110
+	.BYTE 118
+	.BYTE 101
+	.BYTE 110
+	.BYTE 116
+	.BYTE 111
+	.BYTE 114
+	.BYTE 121
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1414::	.TABLE
+	.BYTE 30
+	.BYTE 12
+	.BYTE 117
+	.BYTE 110
+	.BYTE 108
+	.BYTE 111
+	.BYTE 99
+	.BYTE 107
+	.BYTE 32
+	.BYTE 100
+	.BYTE 111
+	.BYTE 111
+	.BYTE 114
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1514::	.TABLE
+	.BYTE 30
+	.BYTE 8
+	.BYTE 106
+	.BYTE 101
+	.BYTE 115
+	.BYTE 116
+	.BYTE 101
+	.BYTE 114
+	.BYTE 44
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1614::	.TABLE
+	.BYTE 30
+	.BYTE 27
+	.BYTE 103
+	.BYTE 105
+	.BYTE 118
+	.BYTE 101
+	.BYTE 32
+	.BYTE 109
+	.BYTE 97
+	.BYTE 103
+	.BYTE 105
+	.BYTE 99
+	.BYTE 32
+	.BYTE 108
+	.BYTE 111
+	.BYTE 99
+	.BYTE 107
+	.BYTE 101
+	.BYTE 116
+	.BYTE 32
+	.BYTE 116
+	.BYTE 111
+	.BYTE 32
+	.BYTE 109
+	.BYTE 111
+	.BYTE 111
+	.BYTE 115
+	.BYTE 101
+	.BYTE 13
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1714::	.TABLE
+	.BYTE 30
+	.BYTE 11
+	.BYTE 114
+	.BYTE 101
+	.BYTE 97
+	.BYTE 100
+	.BYTE 32
+	.BYTE 97
+	.BYTE 98
+	.BYTE 111
+	.BYTE 117
+	.BYTE 116
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1814::	.TABLE
+	.BYTE 30
+	.BYTE 8
+	.BYTE 101
+	.BYTE 120
+	.BYTE 97
+	.BYTE 109
+	.BYTE 105
+	.BYTE 110
+	.BYTE 101
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?1914::	.TABLE
+	STR?40
+	SOFT-SAVE-DEFS
+	.ENDT
+
+T?2014::	.TABLE
+	STR?41
+	SOFT-RESTORE-DEFS
+	.ENDT
+
+T?2114::	.TABLE
+	STR?42
+	SOFT-RESET-DEFAULTS
+	.ENDT
+
+T?2214::	.TABLE
+	STR?43
+	SOFT-EXIT
+	.ENDT
+
+T?2314::
+DEFAULT-FKEYS::	.TABLE
+	.BYTE F10
+	.BYTE 8
+	.BYTE 101
+	.BYTE 120
+	.BYTE 97
+	.BYTE 109
+	.BYTE 105
+	.BYTE 110
+	.BYTE 101
+	.BYTE 32
+	.BYTE F9
+	.BYTE 11
+	.BYTE 114
+	.BYTE 101
+	.BYTE 97
+	.BYTE 100
+	.BYTE 32
+	.BYTE 97
+	.BYTE 98
+	.BYTE 111
+	.BYTE 117
+	.BYTE 116
+	.BYTE 32
+	.BYTE F8
+	.BYTE 27
+	.BYTE 103
+	.BYTE 105
+	.BYTE 118
+	.BYTE 101
+	.BYTE 32
+	.BYTE 109
+	.BYTE 97
+	.BYTE 103
+	.BYTE 105
+	.BYTE 99
+	.BYTE 32
+	.BYTE 108
+	.BYTE 111
+	.BYTE 99
+	.BYTE 107
+	.BYTE 101
+	.BYTE 116
+	.BYTE 32
+	.BYTE 116
+	.BYTE 111
+	.BYTE 32
+	.BYTE 109
+	.BYTE 111
+	.BYTE 111
+	.BYTE 115
+	.BYTE 101
+	.BYTE 13
+	.BYTE F7
+	.BYTE 8
+	.BYTE 106
+	.BYTE 101
+	.BYTE 115
+	.BYTE 116
+	.BYTE 101
+	.BYTE 114
+	.BYTE 44
+	.BYTE 32
+	.BYTE F6
+	.BYTE 12
+	.BYTE 117
+	.BYTE 110
+	.BYTE 108
+	.BYTE 111
+	.BYTE 99
+	.BYTE 107
+	.BYTE 32
+	.BYTE 100
+	.BYTE 111
+	.BYTE 111
+	.BYTE 114
+	.BYTE 32
+	.BYTE F5
+	.BYTE 10
+	.BYTE 105
+	.BYTE 110
+	.BYTE 118
+	.BYTE 101
+	.BYTE 110
+	.BYTE 116
+	.BYTE 111
+	.BYTE 114
+	.BYTE 121
+	.BYTE 13
+	.BYTE F4
+	.BYTE 12
+	.BYTE 108
+	.BYTE 111
+	.BYTE 111
+	.BYTE 107
+	.BYTE 32
+	.BYTE 97
+	.BYTE 114
+	.BYTE 111
+	.BYTE 117
+	.BYTE 110
+	.BYTE 100
+	.BYTE 13
+	.BYTE F3
+	.BYTE 5
+	.BYTE 100
+	.BYTE 114
+	.BYTE 111
+	.BYTE 112
+	.BYTE 32
+	.BYTE F2
+	.BYTE 9
+	.BYTE 116
+	.BYTE 97
+	.BYTE 107
+	.BYTE 101
+	.BYTE 32
+	.BYTE 97
+	.BYTE 108
+	.BYTE 108
+	.BYTE 13
+	.BYTE F1
+	.BYTE 5
+	.BYTE 116
+	.BYTE 97
+	.BYTE 107
+	.BYTE 101
+	.BYTE 32
+	.BYTE RIGHT-ARROW
+	.BYTE 2
+	.BYTE 101
+	.BYTE 13
+	.BYTE LEFT-ARROW
+	.BYTE 2
+	.BYTE 119
+	.BYTE 13
+	.BYTE DOWN-ARROW
+	.BYTE 2
+	.BYTE 115
+	.BYTE 13
+	.BYTE UP-ARROW
+	.BYTE 2
+	.BYTE 110
+	.BYTE 13
+	.BYTE 0
+	.ENDT
+
+T?2414::
+FKEYS::	.TABLE
+	36
+	UP-ARROW
+	T?514
+	DOWN-ARROW
+	T?614
+	LEFT-ARROW
+	T?714
+	RIGHT-ARROW
+	T?814
+	F1
+	T?914
+	F2
+	T?1014
+	F3
+	T?1114
+	F4
+	T?1214
+	F5
+	T?1314
+	F6
+	T?1414
+	F7
+	T?1514
+	F8
+	T?1614
+	F9
+	T?1714
+	F10
+	T?1814
+	-4
+	T?1914
+	-5
+	T?2014
+	-6
+	T?2114
+	-2
+	T?2214
+	.ENDT
+
+T?116::
+COLOR-TABLE::	.TABLE
+	STR?49
+	STR?50
+	STR?51
+	STR?52
+	STR?53
+	STR?54
+	STR?55
+	STR?56
+	STR?57
+	STR?58
+	.ENDT
+
+T?216::
+MACHINES::	.TABLE
+	12
+	STR?106
+	STR?107
+	STR?108
+	STR?109
+	STR?110
+	STR?111
+	STR?112
+	STR?113
+	STR?114
+	STR?115
+	STR?116
+	STR?116
+	.ENDT
+
+T?316::
+MAP-PICSET-TBL::	.TABLE
+	ICONLESS-ROOM-BOX
+	YOU-ARE-HERE-SYMBOL
+	N-S-CON
+	E-W-CON
+	NE-SW-CON
+	NW-SE-CON
+	MAP-N-HL
+	MAP-NE-HL
+	MAP-E-HL
+	MAP-SE-HL
+	MAP-S-HL
+	MAP-SW-HL
+	MAP-W-HL
+	MAP-NW-HL
+	MAP-N-UNHL
+	MAP-NE-UNHL
+	MAP-E-UNHL
+	MAP-SE-UNHL
+	MAP-S-UNHL
+	MAP-SW-UNHL
+	MAP-W-UNHL
+	MAP-NW-UNHL
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?416::
+MAIN-ICON-TBL::	.TABLE
+	20
+	GONDOLA-ICON
+	PEG-ROOM-ICON
+	WEST-WING-ICON
+	GYM-ICON
+	TORCH-ROOM-ICON
+	ROOF-ICON
+	PARLOR-ICON
+	FORMAL-GARDEN-ICON
+	BALCONY-ICON
+	GALLERY-ICON
+	THRONE-ROOM-ICON
+	BANQUET-HALL-ICON
+	KITCHEN-ICON
+	WINE-CELLAR-ICON
+	LIBRARY-ICON
+	EAST-WING-ICON
+	CHAPEL-ICON
+	J-QUARTER-ICON
+	PYRAMID-ICON
+	0
+	.ENDT
+
+T?516::
+SECRET-WING-ICON-TBL::	.TABLE
+	12
+	DIMWITS-ROOM-ICON
+	MAGIC-CLOSET-ICON
+	PARAPET-ICON
+	BASTION-ICON
+	SECRET-PASSAGE-ICON
+	TEE-ICON
+	TOP-OF-STAIR-ICON
+	BOTTOM-OF-STAIR-ICON
+	ORACLE-ICON
+	DUNGEON-ICON
+	CELL-ICON
+	0
+	.ENDT
+
+T?616::
+VILLAGE-ICON-TBL::	.TABLE
+	19
+	PERIMETER-WALL-ICON
+	GARRISON-ICON
+	OUTER-BAILEY-ICON
+	DRAWBRIDGE-ICON
+	BARBICAN-ICON
+	UPPER-BARBICAN-ICON
+	CAUSEWAY-ICON
+	INNER-BAILEY-ICON
+	URS-OFFICE-ICON
+	SHADY-PARK-ICON
+	CHURCH-ICON
+	COURTROOM-ICON
+	POST-OFFICE-ICON
+	FR-HQ-ICON
+	MAGIC-SHOP-ICON
+	BACK-ALLEY-ICON
+	OFFICES-ICON
+	PENTHOUSE-ICON
+	0
+	.ENDT
+
+T?716::
+LOWER-LEVEL-ICON-TBL::	.TABLE
+	12
+	ROOTS-ICON
+	EAR-ICON
+	MOUTH-OF-CAVE-ICON
+	LEDGE-IN-PIT-ICON
+	PASSAGE-STORAGE-ICON
+	VAULT-ICON
+	G-U-HIGHWAY-ICON
+	EXIT-ICON
+	KENNELS-ICON
+	ROYAL-ZOO-ICON
+	LABORATORY-ICON
+	0
+	.ENDT
+
+T?816::
+LAKE-ICON-TBL::	.TABLE
+	16
+	HOLD-ICON
+	UNDERWATER-ICON
+	LAKE-BOTTOM-ICON
+	EAST-SHORE-ICON
+	WEST-SHORE-ICON
+	NORTH-SHORE-ICON
+	SOUTH-SHORE-ICON
+	LAKE-FLATHEAD-ICON
+	RING-OF-DUNES-ICON
+	G-U-SAVANNAH-ICON
+	BATS-LAIR-ICON
+	BASE-OF-MT-ICON
+	G-U-MOUNTAIN-ICON
+	STABLE-ICON
+	SHRINE-ICON
+	0
+	.ENDT
+
+T?916::
+DESERT-ICON-TBL::	.TABLE
+	4
+	CACTUS-PATCH-ICON
+	TALL-DUNES-ICON
+	G-U-OASIS-ICON
+	0
+	.ENDT
+
+T?1016::
+FOOZLE-ICON-TBL::	.TABLE
+	14
+	WHARF-ICON
+	FISHING-VILLAGE-ICON
+	QUILBOZZA-BEACH-ICON
+	WARNING-ROOM-ICON
+	FISHY-ODOR-ICON
+	ROOM-OF-3-DOORS-ICON
+	FORK-ICON
+	WISHYFOO-ICON
+	REST-STOP-ICON
+	CROSSROADS-ICON
+	TOLL-PLAZA-ICON
+	FISSURES-EDGE-ICON
+	ORB-ROOM-ICON
+	0
+	.ENDT
+
+T?1116::
+FENSHIRE-ICON-TBL::	.TABLE
+	6
+	GONDOLA-ICON
+	RUINED-HALL-ICON
+	SECRET-ROOM-ICON
+	HOTHOUSE-ICON
+	MARSH-ICON
+	0
+	.ENDT
+
+T?1216::
+CRAG-ICON-TBL::	.TABLE
+	7
+	CRAG-ICON
+	UPPER-LEDGE-ICON
+	LOWER-LEDGE-ICON
+	IRON-MINE-ICON
+	NATURAL-ARCH-ICON
+	ENCHANTED-CAVE-ICON
+	0
+	.ENDT
+
+T?1316::
+GLACIER-ICON-TBL::	.TABLE
+	3
+	MIRROR-LAKE-ICON
+	CHALET-ICON
+	0
+	.ENDT
+
+T?1416::
+DELTA-ICON-TBL::	.TABLE
+	4
+	RIVERS-END-ICON
+	OCEANS-EDGE-ICON
+	DELTA-ICON
+	0
+	.ENDT
+
+T?1516::
+FUBLIO-ICON-TBL::	.TABLE
+	13
+	ON-TOP-OF-WORLD-ICON
+	AMONGST-CLOUDS-ICON
+	TIMBERLINE-ICON
+	AVALANCHE-ICON
+	ZORBEL-PASS-ICON
+	BASE-OF-MTS-ICON
+	FOOT-OF-STATUE-ICON
+	OUTSIDE-HUT-ICON
+	ATTIC-ICON
+	CAIRN-ICON
+	QUARRYS-EDGE-ICON
+	QUARRY-ICON
+	0
+	.ENDT
+
+T?1616::
+ANTHARIA-ICON-TBL::	.TABLE
+	12
+	STADIUM-ICON
+	COAST-ROAD-ICON
+	MINE-ENTRANCE-ICON
+	STADIUM-ICON
+	COAST-ROAD-ICON
+	MINE-ENTRANCE-ICON
+	DEAD-END-ICON
+	CLIFF-BOTTOM-ICON
+	PRECIPICE-ICON
+	AERIE-ICON
+	ICKY-CAVE-ICON
+	0
+	.ENDT
+
+T?1716::
+HO-HUM-LIST::	.TABLE
+	4
+	0
+	STR?176
+	STR?177
+	STR?178
+	.ENDT
+
+T?1816::
+YUK-LIST::	.TABLE
+	6
+	0
+	STR?179
+	STR?180
+	STR?181
+	STR?182
+	STR?183
+	.ENDT
+
+T?1916::
+IMPOSSIBLE-LIST::	.TABLE
+	6
+	0
+	STR?184
+	STR?185
+	STR?186
+	STR?187
+	STR?188
+	.ENDT
+
+T?2016::
+WASTE-LIST::	.TABLE
+	5
+	0
+	STR?189
+	STR?190
+	STR?191
+	STR?192
+	.ENDT
+
+T?117::
+SLINE::	.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
+	.ENDT
+
+T?217::
+COMPASS-PICSET-TBL::	.TABLE
+	N-HL
+	NE-HL
+	E-HL
+	SE-HL
+	S-HL
+	SW-HL
+	W-HL
+	NW-HL
+	N-UNHL
+	NE-UNHL
+	E-UNHL
+	SE-UNHL
+	S-UNHL
+	SW-UNHL
+	W-UNHL
+	NW-UNHL
+	U-BOX
+	D-BOX
+	BOX-COVER
+	0
+	.ENDT
+
+T?118::
+YX-TBL::	.TABLE
+	0
+	0
+	.ENDT
+
+T?218::
+WIN-TBL::	.TABLE
+	0
+	0
+	0
+	.ENDT
+
+T?318::
+WTBL::	.TABLE
+	1
+	0
+	.ENDT
+
+T?121::
+BITCHES::	.TABLE
+	6
+	0
+	STR?310
+	STR?311
+	STR?312
+	STR?313
+	STR?314
+	.ENDT
+
+T?221::
+MUTTERS::	.TABLE
+	6
+	0
+	STR?318
+	STR?319
+	STR?320
+	STR?321
+	STR?322
+	.ENDT
+
+T?321::
+PBOZ-PICSET-TBL::	.TABLE
+	UNHL-PEG
+	HL-PEG
+	BG-A
+	BG-B
+	BG-C
+	BG-D
+	BG-E
+	BG-F
+	BG-G
+	BG-H
+	BG-I
+	BG-J
+	BG-K
+	BG-L
+	BG-M
+	BG-N
+	BG-O
+	BG-P
+	BG-Q
+	BG-R
+	BG-S
+	BG-T
+	BG-U
+	RESTART-BOX
+	EXIT-BOX
+	SHOW-MOVES-BOX
+	DIM-RESTART-BOX
+	DIM-SHOW-MOVES-BOX
+	0
+	.ENDT
+
+T?421::
+BOARD-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
+	.ENDT
+
+T?521::
+PEG-TABLE::	.TABLE
+	0
+	1
+	1
+	1
+	1
+	1
+	1
+	0
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	1
+	.ENDT
+
+T?621::
+PEG-MOVE-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
+	.ENDT
+
+T?125::
+DOABLE-REQUESTS::	.TABLE
+	4
+	0
+	STR?638
+	STR?639
+	STR?640
+	.ENDT
+
+T?225::
+UNDOABLE-REQUESTS::	.TABLE
+	4
+	0
+	STR?641
+	STR?642
+	STR?643
+	.ENDT
+
+T?325::
+F-PICSET-TBL::	.TABLE
+	F-CARD-BACK
+	F-CARD
+	F-INKBLOTS
+	F-PLUNGERS
+	F-BUGS
+	F-ZURFS
+	F-EARS
+	F-TOPS
+	F-RAIN
+	F-HIVES
+	F-FACES
+	F-MAZES
+	F-LAMPS
+	F-TIME
+	F-BOOKS
+	F-SCYTHES
+	F-FROMPS
+	F-RV-INKBLOTS
+	F-RV-PLUNGERS
+	F-RV-BUGS
+	F-RV-ZURFS
+	F-RV-EARS
+	F-RV-TOPS
+	F-RV-RAIN
+	F-RV-HIVES
+	F-RV-FACES
+	F-RV-MAZES
+	F-RV-LAMPS
+	F-RV-TIME
+	F-RV-BOOKS
+	F-RV-SCYTHES
+	F-RV-FROMPS
+	F-0
+	F-1
+	F-2
+	F-3
+	F-4
+	F-5
+	F-6
+	F-7
+	F-8
+	F-9
+	F-INFINITY
+	F-RV-0
+	F-RV-1
+	F-RV-2
+	F-RV-3
+	F-RV-4
+	F-RV-5
+	F-RV-6
+	F-RV-7
+	F-RV-8
+	F-RV-9
+	F-RV-INFINITY
+	F-GRANOLA
+	F-LOBSTER
+	F-SNAIL
+	F-JESTER
+	F-HOURGLASS
+	F-LIGHT
+	F-BEAUTY
+	F-DEATH
+	F-GRUE
+	0
+	.ENDT
+
+T?425::
+DRAW-CARDS-TABLE::	.TABLE
+	1
+	1
+	1
+	1
+	1
+	.ENDT
+
+T?525::
+J-LAST-CARD::	.TABLE
+	0
+	0
+	.ENDT
+
+T?625::
+F-CARD-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?127::
+PIECE-MOVE-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?227::
+NORTH-EXITS::	.TABLE
+	99
+	20
+	33
+	37
+	40
+	46
+	48
+	50
+	55
+	59
+	61
+	.ENDT
+
+T?327::
+NE-EXITS::	.TABLE
+	12
+	13
+	14
+	20
+	22
+	27
+	28
+	29
+	33
+	36
+	41
+	43
+	46
+	49
+	50
+	53
+	54
+	.ENDT
+
+T?427::
+EAST-EXITS::	.TABLE
+	5
+	6
+	12
+	22
+	26
+	30
+	34
+	38
+	42
+	44
+	51
+	56
+	57
+	61
+	62
+	.ENDT
+
+T?527::
+SE-EXITS::	.TABLE
+	99
+	17
+	40
+	43
+	48
+	51
+	54
+	.ENDT
+
+T?627::
+STORAGE-TABLE::	.TABLE
+	301
+	BLACK-KNIGHT
+	314
+	BLACK-PAWN
+	315
+	WHITE-KNIGHT
+	328
+	BLACK-BISHOP
+	337
+	BLACK-KING
+	349
+	WHITE-PAWN
+	357
+	WHITE-KING
+	363
+	WHITE-CASTLE
+	400
+	HARDHAT
+	461
+	HAMMER
+	1004
+	MEMO
+	3019
+	T-SQUARE
+	4193
+	INSTRUCTION-BOOKLET
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	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?128::
+B-X-TBL::	.TABLE
+	0
+	0
+	0
+	.ENDT
+
+T?228::
+B-Y-TBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?328::
+TOWER-UNDO-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
+	.ENDT
+
+T?428::
+LEFT-PEG-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?528::
+CENTER-PEG-TABLE::	.TABLE
+	6-WEIGHT
+	5-WEIGHT
+	4-WEIGHT
+	3-WEIGHT
+	2-WEIGHT
+	1-WEIGHT
+	.ENDT
+
+T?628::
+RIGHT-PEG-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?728::
+B-PICSET-TBL::	.TABLE
+	B-RESTORE-PEG
+	1-WEIGHT
+	2-WEIGHT
+	3-WEIGHT
+	4-WEIGHT
+	5-WEIGHT
+	6-WEIGHT
+	0
+	.ENDT
+
+T?129::	.TABLE
+	MAIN-MAP-NUM
+	GONDOLA-AT-FLATHEADIA-LOC
+	MAP-GEN-X-1
+	.ENDT
+
+T?229::
+SN-PICSET-TBL::	.TABLE
+	BOX-1
+	BOX-2
+	BOX-3
+	BOX-4
+	BOX-5
+	BOX-6
+	BOX-7
+	BOX-8
+	BOX-9
+	DIM-BOX-1
+	DIM-BOX-2
+	DIM-BOX-3
+	DIM-BOX-4
+	DIM-BOX-5
+	DIM-BOX-6
+	DIM-BOX-7
+	DIM-BOX-8
+	DIM-BOX-9
+	PILE-OF-0
+	PILE-OF-1
+	PILE-OF-2
+	PILE-OF-3
+	PILE-OF-4
+	PILE-OF-5
+	PILE-OF-6
+	PILE-OF-7
+	PILE-OF-8
+	PILE-OF-9
+	R-FLOWERS-0
+	R-FLOWERS-1
+	R-FLOWERS-2
+	R-FLOWERS-3
+	R-FLOWERS-4
+	R-FLOWERS-5
+	R-FLOWERS-6
+	R-FLOWERS-7
+	R-FLOWERS-8
+	R-FLOWERS-9
+	L-FLOWERS-0
+	L-FLOWERS-1
+	L-FLOWERS-2
+	L-FLOWERS-3
+	L-FLOWERS-4
+	0
+	.ENDT
+
+T?329::
+PILE-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?429::
+TEMP-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?131::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?231::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?331::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?431::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?531::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?631::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?731::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?831::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?931::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1031::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1131::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1231::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1331::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1431::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1531::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1631::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1731::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1831::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1931::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?2031::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?2131::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?2231::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?2331::
+WORD-FLAG-TABLE::	.TABLE
+	52
+	W?JESTER'S
+	16384
+	W?DIMWIT'S
+	16384
+	W?SHUTTERS
+	16
+	W?BOARDS
+	16
+	W?FLOWERS
+	16
+	W?PASSAGES
+	16
+	W?WITCHES
+	16
+	W?PINES
+	16
+	W?OAKS
+	16
+	W?ELMS
+	16
+	W?TREES
+	16
+	W?VIALS
+	16
+	W?FLIES
+	16
+	W?SHELLS
+	16
+	W?POSTS
+	16
+	W?PEGS
+	16
+	W?KEYS
+	16
+	W?SNAKES
+	16
+	W?ANIMALS
+	16
+	W?WEIGHTS
+	16
+	W?SLABS
+	16
+	W?ORBS
+	16
+	W?BUTTONS
+	16
+	W?DOORS
+	16
+	W?STALLS
+	16
+	W?CAGES
+	16
+	.ENDT
+
+
+; END OF IMPURENESS
+
+IMPURE::
+
+
+
+; VERB STUFF FOR WORDS IS DEFINED HERE
+
+NVTBL::	.TABLE
+ACT?HELLO::			; VERB-DATA FOR HELLO
+	V?HELLO
+	0
+	RT?131
+	0
+ACT?ASK::			; VERB-DATA FOR ASK
+	-1
+	0
+	RT?231
+	RT?331
+ACT?SLICE::			; VERB-DATA FOR SLICE
+	-1
+	0
+	0
+	RT?431
+ACT?DECODE::			; VERB-DATA FOR DECODE
+	-1
+	0
+	RT?531
+	0
+ACT?CLIMB::			; VERB-DATA FOR CLIMB
+	-1
+	0
+	RT?631
+	0
+ACT?SWAT::			; VERB-DATA FOR SWAT
+	-1
+	0
+	RT?731
+	RT?831
+ACT?FILL::			; VERB-DATA FOR FILL
+	-1
+	0
+	RT?931
+	RT?1031
+ACT?BEHEAD::			; VERB-DATA FOR BEHEAD
+	-1
+	0
+	RT?1131
+	0
+ACT?EAT::			; VERB-DATA FOR EAT
+	-1
+	0
+	RT?1231
+	0
+ACT?EXAMINE::			; VERB-DATA FOR EXAMINE
+	-1
+	0
+	RT?1331
+	RT?1431
+ACT?MODE::			; VERB-DATA FOR MODE
+	V?MODE
+	0
+	0
+	0
+ACT?SLIDE::			; VERB-DATA FOR SLIDE
+	-1
+	0
+	RT?1531
+	0
+ACT?CLOSE::			; VERB-DATA FOR CLOSE
+	-1
+	0
+	RT?1631
+	RT?1731
+ACT?RESTORE::			; VERB-DATA FOR RESTORE
+	V?RESTORE
+	0
+	0
+	0
+ACT?MAYBE::			; VERB-DATA FOR MAYBE
+	V?MAYBE
+	0
+	0
+	0
+ACT?CREDITS::			; VERB-DATA FOR CREDITS
+	V?CREDITS
+	0
+	0
+	0
+ACT?CROSS::			; VERB-DATA FOR CROSS
+	-1
+	0
+	RT?1831
+	0
+ACT?#RECORD::			; VERB-DATA FOR #RECORD
+	V?$RECORD
+	0
+	0
+	0
+ACT?TURN::			; VERB-DATA FOR TURN
+	-1
+	0
+	RT?1931
+	RT?2031
+ACT?POINT::			; VERB-DATA FOR POINT
+	-1
+	0
+	RT?2131
+	RT?2231
+ACT?BITE::			; VERB-DATA FOR BITE
+	-1
+	0
+	RT?2331
+	0
+ACT?KICK::			; VERB-DATA FOR KICK
+	-1
+	0
+	RT?2431
+	0
+ACT?BURN::			; VERB-DATA FOR BURN
+	-1
+	0
+	RT?2531
+	RT?2631
+ACT?LOCK::			; VERB-DATA FOR LOCK
+	-1
+	0
+	0
+	RT?2731
+ACT?YELL::			; VERB-DATA FOR YELL
+	V?YELL
+	0
+	RT?2831
+	0
+ACT?COUGH::			; VERB-DATA FOR COUGH
+	V?COUGH
+	0
+	0
+	0
+ACT?REMOVE::			; VERB-DATA FOR REMOVE
+	-1
+	0
+	RT?2931
+	RT?3031
+ACT?DRINK::			; VERB-DATA FOR DRINK
+	-1
+	0
+	RT?3131
+	RT?3231
+ACT?WAKE::			; VERB-DATA FOR WAKE
+	-1
+	0
+	RT?3331
+	0
+ACT?SLEEP::			; VERB-DATA FOR SLEEP
+	V?SLEEP
+	0
+	RT?3431
+	0
+ACT?DIAGNOSE::			; VERB-DATA FOR DIAGNOSE
+	V?DIAGNOSE
+	0
+	0
+	0
+ACT?BRIEF::			; VERB-DATA FOR BRIEF
+	V?BRIEF
+	0
+	0
+	0
+ACT?SMELL::			; VERB-DATA FOR SMELL
+	V?SMELL
+	0
+	RT?3531
+	0
+ACT?RESTART::			; VERB-DATA FOR RESTART
+	V?RESTART
+	0
+	0
+	0
+ACT?SWING::			; VERB-DATA FOR SWING
+	-1
+	0
+	RT?3631
+	0
+ACT?EXTINGUISH::			; VERB-DATA FOR EXTINGUISH
+	-1
+	0
+	RT?3731
+	0
+ACT?DESCEND::			; VERB-DATA FOR DESCEND
+	-1
+	0
+	RT?3831
+	0
+ACT?$VERIFY::			; VERB-DATA FOR $VERIFY
+	V?$VERIFY
+	0
+	RT?3931
+	0
+ACT?LEAD::			; VERB-DATA FOR LEAD
+	-1
+	0
+	0
+	RT?4031
+ACT?SCRIPT::			; VERB-DATA FOR SCRIPT
+	V?SCRIPT
+	0
+	0
+	0
+ACT?HAND::			; VERB-DATA FOR HAND
+	-1
+	0
+	RT?4131
+	RT?4231
+ACT?NOTIFY::			; VERB-DATA FOR NOTIFY
+	V?NOTIFY
+	0
+	0
+	0
+ACT?UNDO::			; VERB-DATA FOR UNDO
+	V?UNDO
+	0
+	0
+	0
+ACT?LEAVE::			; VERB-DATA FOR LEAVE
+	V?EXIT
+	0
+	RT?4331
+	RT?4431
+ACT?ROLL::			; VERB-DATA FOR ROLL
+	-1
+	0
+	RT?4531
+	RT?4631
+ACT?TIME::			; VERB-DATA FOR TIME
+	V?TIME
+	0
+	0
+	0
+ACT?YAWN::			; VERB-DATA FOR YAWN
+	V?YAWN
+	0
+	RT?4731
+	0
+ACT?DROP::			; VERB-DATA FOR DROP
+	-1
+	0
+	RT?4831
+	RT?4931
+ACT?ZAP::			; VERB-DATA FOR ZAP
+	-1
+	0
+	RT?5031
+	RT?5131
+ACT?EMPTY::			; VERB-DATA FOR EMPTY
+	-1
+	0
+	RT?5231
+	RT?5331
+ACT?LOOK::			; VERB-DATA FOR LOOK
+	V?LOOK
+	0
+	RT?5431
+	RT?5531
+ACT?SNAP::			; VERB-DATA FOR SNAP
+	-1
+	0
+	RT?5631
+	0
+ACT?DEMOLISH::			; VERB-DATA FOR DEMOLISH
+	-1
+	0
+	RT?5731
+	RT?5831
+ACT?COVER::			; VERB-DATA FOR COVER
+	-1
+	0
+	0
+	RT?5931
+ACT?DEFINE::			; VERB-DATA FOR DEFINE
+	V?DEFINE
+	0
+	0
+	0
+ACT?SCORE::			; VERB-DATA FOR SCORE
+	V?SCORE
+	0
+	0
+	0
+ACT?SEND::			; VERB-DATA FOR SEND
+	-1
+	0
+	0
+	RT?6031
+ACT?DIG::			; VERB-DATA FOR DIG
+	-1
+	0
+	RT?6131
+	RT?6231
+ACT?REACH::			; VERB-DATA FOR REACH
+	-1
+	0
+	RT?6331
+	0
+ACT?SIT::			; VERB-DATA FOR SIT
+	V?SIT
+	0
+	RT?6431
+	0
+ACT?PUSH::			; VERB-DATA FOR PUSH
+	-1
+	0
+	RT?6531
+	RT?6631
+ACT?DATE::			; VERB-DATA FOR DATE
+	V?DATE
+	0
+	0
+	0
+ACT?SIZUL::			; VERB-DATA FOR SIZUL
+	V?SACRED-WORD
+	0
+	0
+	0
+ACT?HANG::			; VERB-DATA FOR HANG
+	-1
+	0
+	RT?6731
+	0
+ACT?ZIPSO::			; VERB-DATA FOR ZIPSO
+	V?NOT-SO-SACRED-WORD
+	0
+	0
+	0
+ACT?CONSULT::			; VERB-DATA FOR CONSULT
+	-1
+	0
+	0
+	RT?6831
+ACT?UNSCRIPT::			; VERB-DATA FOR UNSCRIPT
+	V?UNSCRIPT
+	0
+	0
+	0
+ACT?TIP::			; VERB-DATA FOR TIP
+	-1
+	0
+	RT?6931
+	0
+ACT?CIRCLE::			; VERB-DATA FOR CIRCLE
+	-1
+	0
+	RT?7031
+	0
+ACT?WASH::			; VERB-DATA FOR WASH
+	-1
+	0
+	RT?7131
+	RT?7231
+ACT?UNTIE::			; VERB-DATA FOR UNTIE
+	-1
+	0
+	RT?7331
+	0
+ACT?SWIM::			; VERB-DATA FOR SWIM
+	V?SWIM
+	0
+	RT?7431
+	0
+ACT?COLOR::			; VERB-DATA FOR COLOR
+	V?COLOR
+	0
+	0
+	0
+ACT?DISEMBARK::			; VERB-DATA FOR DISEMBARK
+	V?EXIT
+	0
+	RT?7531
+	0
+ACT?PAY::			; VERB-DATA FOR PAY
+	-1
+	0
+	RT?7631
+	RT?7731
+ACT?WEAR::			; VERB-DATA FOR WEAR
+	-1
+	0
+	RT?7831
+	0
+ACT?SEARCH::			; VERB-DATA FOR SEARCH
+	-1
+	0
+	RT?7931
+	RT?8031
+ACT?THANKS::			; VERB-DATA FOR THANKS
+	V?THANK
+	0
+	RT?8131
+	0
+ACT?ENTER::			; VERB-DATA FOR ENTER
+	V?IN
+	0
+	RT?8231
+	0
+ACT?SING::			; VERB-DATA FOR SING
+	-1
+	0
+	RT?8331
+	RT?8431
+ACT?ATTACK::			; VERB-DATA FOR ATTACK
+	-1
+	0
+	RT?8531
+	RT?8631
+ACT?INVENTORY::			; VERB-DATA FOR INVENTORY
+	V?INVENTORY
+	0
+	0
+	0
+ACT?SHAKE::			; VERB-DATA FOR SHAKE
+	-1
+	0
+	RT?8731
+	RT?8831
+ACT?HIDE::			; VERB-DATA FOR HIDE
+	-1
+	0
+	RT?8931
+	0
+ACT?USE::			; VERB-DATA FOR USE
+	-1
+	0
+	RT?9031
+	0
+ACT?TALK::			; VERB-DATA FOR TALK
+	-1
+	0
+	RT?9131
+	0
+ACT?LOWER::			; VERB-DATA FOR LOWER
+	-1
+	0
+	RT?9231
+	RT?9331
+ACT?FEED::			; VERB-DATA FOR FEED
+	-1
+	0
+	RT?9431
+	RT?9531
+ACT?THROW::			; VERB-DATA FOR THROW
+	-1
+	0
+	RT?9631
+	RT?9731
+ACT?TELL::			; VERB-DATA FOR TELL
+	-1
+	0
+	RT?9831
+	RT?9931
+ACT?HELP::			; VERB-DATA FOR HELP
+	V?HINT
+	0
+	RT?10031
+	0
+ACT?SAVE::			; VERB-DATA FOR SAVE
+	V?SAVE
+	0
+	RT?10131
+	0
+ACT?SHOW::			; VERB-DATA FOR SHOW
+	-1
+	0
+	RT?10231
+	RT?10331
+ACT?TIE::			; VERB-DATA FOR TIE
+	-1
+	0
+	0
+	RT?10431
+ACT?LISTEN::			; VERB-DATA FOR LISTEN
+	V?LISTEN
+	0
+	RT?10531
+	0
+ACT?STAND::			; VERB-DATA FOR STAND
+	V?STAND
+	0
+	RT?10631
+	0
+ACT?PRAY::			; VERB-DATA FOR PRAY
+	V?PRAY
+	0
+	RT?10731
+	0
+ACT?MEET::			; VERB-DATA FOR MEET
+	-1
+	0
+	RT?10831
+	0
+ACT?DOFF::			; VERB-DATA FOR DOFF
+	-1
+	0
+	RT?10931
+	0
+ACT?#RANDOM::			; VERB-DATA FOR #RANDOM
+	-1
+	0
+	RT?11031
+	0
+ACT?BOARD::			; VERB-DATA FOR BOARD
+	-1
+	0
+	RT?11131
+	0
+ACT?RIDE::			; VERB-DATA FOR RIDE
+	-1
+	0
+	RT?11231
+	RT?11331
+ACT?PICK::			; VERB-DATA FOR PICK
+	-1
+	0
+	RT?11431
+	RT?11531
+ACT?KNOCK::			; VERB-DATA FOR KNOCK
+	-1
+	0
+	RT?11631
+	0
+ACT?WRAP::			; VERB-DATA FOR WRAP
+	-1
+	0
+	0
+	RT?11731
+ACT?CRAWL::			; VERB-DATA FOR CRAWL
+	-1
+	0
+	RT?11831
+	0
+ACT?BLOW::			; VERB-DATA FOR BLOW
+	-1
+	0
+	RT?11931
+	0
+ACT?APPROACH::			; VERB-DATA FOR APPROACH
+	-1
+	0
+	RT?12031
+	0
+ACT?#COMMAND::			; VERB-DATA FOR #COMMAND
+	V?$COMMAND
+	0
+	0
+	0
+ACT?TOUCH::			; VERB-DATA FOR TOUCH
+	-1
+	0
+	RT?12131
+	RT?12231
+ACT?BUY::			; VERB-DATA FOR BUY
+	-1
+	0
+	RT?12331
+	RT?12431
+ACT?$NUDGE::			; VERB-DATA FOR $NUDGE
+	V?$NUDGE
+	0
+	RT?12531
+	0
+ACT?TASTE::			; VERB-DATA FOR TASTE
+	-1
+	0
+	RT?12631
+	0
+ACT?OPEN::			; VERB-DATA FOR OPEN
+	-1
+	0
+	RT?12731
+	RT?12831
+ACT?PLAY::			; VERB-DATA FOR PLAY
+	-1
+	0
+	RT?12931
+	0
+ACT?LET::			; VERB-DATA FOR LET
+	-1
+	0
+	RT?13031
+	RT?13131
+ACT?MEASURE::			; VERB-DATA FOR MEASURE
+	-1
+	0
+	RT?13231
+	0
+ACT?MOVE::			; VERB-DATA FOR MOVE
+	-1
+	0
+	RT?13331
+	RT?13431
+ACT?LIE::			; VERB-DATA FOR LIE
+	-1
+	0
+	RT?13531
+	0
+ACT?LIGHT::			; VERB-DATA FOR LIGHT
+	-1
+	0
+	RT?13631
+	RT?13731
+ACT?#UNRECORD::			; VERB-DATA FOR #UNRECORD
+	V?$UNRECORD
+	0
+	0
+	0
+ACT?VERSION::			; VERB-DATA FOR VERSION
+	V?VERSION
+	0
+	0
+	0
+ACT?$REFRESH::			; VERB-DATA FOR $REFRESH
+	V?$REFRESH
+	0
+	0
+	0
+ACT?FLY::			; VERB-DATA FOR FLY
+	V?FLY
+	0
+	RT?13831
+	0
+ACT?CATCH::			; VERB-DATA FOR CATCH
+	-1
+	0
+	RT?13931
+	RT?14031
+ACT?SADDLE::			; VERB-DATA FOR SADDLE
+	-1
+	0
+	RT?14131
+	RT?14231
+ACT?FOLLOW::			; VERB-DATA FOR FOLLOW
+	-1
+	0
+	RT?14331
+	0
+ACT?CALL::			; VERB-DATA FOR CALL
+	-1
+	0
+	RT?14431
+	0
+ACT?RAISE::			; VERB-DATA FOR RAISE
+	-1
+	0
+	RT?14531
+	0
+ACT?COUNT::			; VERB-DATA FOR COUNT
+	-1
+	0
+	RT?14631
+	0
+ACT?SUCK::			; VERB-DATA FOR SUCK
+	-1
+	0
+	RT?14731
+	RT?14831
+ACT?NO::			; VERB-DATA FOR NO
+	V?NO
+	0
+	0
+	0
+ACT?TAKE::			; VERB-DATA FOR TAKE
+	-1
+	0
+	RT?14931
+	RT?15031
+ACT?MAP::			; VERB-DATA FOR MAP
+	V?MAP
+	0
+	0
+	0
+ACT?WAIT::			; VERB-DATA FOR WAIT
+	V?WAIT
+	0
+	RT?15131
+	0
+ACT?POUR::			; VERB-DATA FOR POUR
+	-1
+	0
+	0
+	RT?15231
+ACT?JUMP::			; VERB-DATA FOR JUMP
+	V?LEAP
+	0
+	RT?15331
+	RT?15431
+ACT?SAY::			; VERB-DATA FOR SAY
+	-1
+	0
+	RT?15531
+	0
+ACT?READ::			; VERB-DATA FOR READ
+	-1
+	0
+	RT?15631
+	RT?15731
+ACT?UNLOCK::			; VERB-DATA FOR UNLOCK
+	-1
+	0
+	0
+	RT?15831
+ACT?SINK::			; VERB-DATA FOR SINK
+	-1
+	0
+	RT?15931
+	0
+ACT?YES::			; VERB-DATA FOR YES
+	V?YES
+	0
+	0
+	0
+ACT?HEAR::			; VERB-DATA FOR HEAR
+	-1
+	0
+	RT?16031
+	0
+ACT?FIND::			; VERB-DATA FOR FIND
+	-1
+	0
+	RT?16131
+	RT?16231
+ACT?QUIT::			; VERB-DATA FOR QUIT
+	V?QUIT
+	0
+	0
+	0
+ACT?STICK::			; VERB-DATA FOR STICK
+	-1
+	0
+	RT?16331
+	RT?16431
+ACT?WALK::			; VERB-DATA FOR WALK
+	V?WALK-AROUND
+	0
+	RT?16531
+	RT?16631
+ACT?VERBOSE::			; VERB-DATA FOR VERBOSE
+	V?VERBOSE
+	0
+	0
+	0
+ACT?SUPERBRIEF::			; VERB-DATA FOR SUPERBRIEF
+	V?SUPERBRIEF
+	0
+	0
+	0
+ACT?SKIP::			; VERB-DATA FOR SKIP
+	V?SKIP
+	0
+	0
+	0
+ACT?KISS::			; VERB-DATA FOR KISS
+	-1
+	0
+	RT?16731
+	0
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ATBL::	.TABLE
+	V-$NUDGE
+	V-DEFINE
+	V-VERBOSE
+	V-BRIEF
+	V-SUPERBRIEF
+	V-COLOR
+	V-CREDITS
+	V-DIAGNOSE
+	V-INVENTORY
+	V-MODE
+	V-QUIT
+	V-RESTART
+	V-RESTORE
+	V-SAVE
+	V-UNDO
+	V-SCORE
+	V-NOTIFY
+	V-SCRIPT
+	V-UNSCRIPT
+	V-VERSION
+	V-$RANDOM
+	V-$COMMAND
+	V-$RECORD
+	V-$UNRECORD
+	V-$REFRESH
+	V-$VERIFY
+	V-WALK-TO
+	V-ASK-ABOUT
+	V-ASK-FOR
+	V-ASK-NO-ONE-FOR
+	V-KILL
+	V-BEHEAD
+	V-BITE
+	V-INFLATE
+	V-OFF
+	V-ENTER
+	V-BURN
+	V-BUY
+	V-CALL
+	V-CATCH
+	V-WALK-AROUND
+	V-CLIMB
+	V-CLIMB-ON
+	V-CLIMB-UP
+	V-CLIMB-DOWN
+	V-EXIT
+	V-CLIMB-OVER
+	V-CRAWL-UNDER
+	V-CLOSE
+	V-SHUT-UP
+	V-LOCK
+	V-SRESEARCH
+	V-COUGH
+	V-COUNT
+	V-SPUT-ON
+	V-CROSS
+	V-DATE
+	V-DECODE
+	V-MUNG
+	V-DIG
+	V-DIG-WITH
+	V-TAKE-OFF
+	V-DRINK
+	V-DRINK-FROM
+	V-DRINK-WITH
+	V-DROP
+	V-PUT
+	V-PUT-ON
+	V-THROW-FROM
+	V-PUT-THROUGH
+	V-EAT
+	V-EMPTY
+	V-EMPTY-FROM
+	V-IN
+	V-EXAMINE
+	V-MIRROR-LOOK
+	V-FEED
+	V-GIVE
+	V-SGIVE
+	V-FILL
+	V-FIND
+	V-SSEARCH-OBJECT-FOR
+	V-FLY
+	V-FOLLOW
+	V-GIVE-UP
+	V-HANG
+	V-LISTEN
+	V-HELLO
+	V-HINT
+	V-HINTS-NO
+	V-SAVE-SOMETHING
+	V-HIDE
+	V-LEAP
+	V-LEAP-OFF
+	V-STAND-ON
+	V-KICK
+	V-KISS
+	V-KNOCK
+	V-RIDE-DIR
+	V-LEAD-TO
+	V-LEAVE
+	V-LET-OUT
+	V-LIE-DOWN
+	V-ON
+	V-LOOK
+	V-LOOK-DOWN
+	V-LOOK-INSIDE
+	V-LOOK-UNDER
+	V-LOOK-BEHIND
+	V-LOOK-OVER
+	V-RESEARCH
+	V-CHASTISE
+	V-LOWER
+	V-MAP
+	V-MAYBE
+	V-MEASURE
+	V-MEET
+	V-MOVE
+	V-MOVE-DIR
+	V-MOVE-TO
+	V-RAISE
+	V-TAKE
+	V-NO
+	V-OPEN
+	V-PAY
+	V-PICK
+	V-TOUCH
+	V-PLAY
+	V-POINT
+	V-POUR
+	V-PRAY
+	V-PUSH
+	V-PUSH-DIR
+	V-PUT-UNDER
+	V-REACH-IN
+	V-READ
+	V-REMOVE
+	V-TAKE-WITH
+	V-ROLL
+	V-ROLL-DOWN
+	V-ROLL-UP
+	V-ROLL-DIR
+	V-SADDLE
+	V-SAY
+	V-SEARCH
+	V-SEARCH-OBJECT-FOR
+	V-SEND
+	V-SHAKE
+	V-SHAKE-WITH
+	V-SHOW
+	V-SSHOW
+	V-SING
+	V-SING-TO
+	V-SINK
+	V-SIT
+	V-SKIP
+	V-SLEEP
+	V-CUT
+	V-SMELL
+	V-SNAP
+	V-STAND
+	V-GET-NEAR
+	V-WEAR
+	V-PUT-BEHIND
+	V-PUT-TO
+	V-SUCK-ON
+	V-SUCK-WITH
+	V-SWAT
+	V-SWIM
+	V-SWING
+	V-TELL
+	V-TASTE
+	V-TELL-ABOUT
+	V-STELL
+	V-THANK
+	V-THROW
+	V-THROW-OVERBOARD
+	V-THROW-TO
+	V-STHROW
+	V-THROW-OVER
+	V-TIE
+	V-TIME
+	V-TIP
+	V-TIP-OVER
+	V-STOUCH
+	V-SET
+	V-SET-DIR
+	V-UNLOCK
+	V-UNTIE
+	V-USE
+	V-WAIT
+	V-WAIT-FOR
+	V-ALARM
+	V-WALK
+	V-SRIDE-DIR
+	V-CLEAN
+	V-WRAP
+	V-SWRAP
+	V-YAWN
+	V-YELL
+	V-YES
+	V-SACRED-WORD
+	V-ZAP
+	V-NOT-SO-SACRED-WORD
+	.ENDT
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PATBL::	.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
+	PRE-TOUCH
+	PRE-ENTER
+	PRE-TOUCH
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TOUCH
+	PRE-SWITCH
+	PRE-LOCK
+	PRE-SWITCH
+	0
+	PRE-COUNT
+	PRE-SWITCH
+	0
+	0
+	0
+	PRE-TOUCH
+	0
+	0
+	0
+	PRE-INGEST
+	PRE-INGEST
+	PRE-INGEST
+	IDROP
+	PRE-PUT
+	PRE-PUT
+	IDROP
+	IDROP
+	PRE-INGEST
+	PRE-TOUCH
+	0
+	0
+	PRE-LOOK
+	0
+	0
+	PRE-GIVE
+	PRE-SWITCH
+	PRE-FILL
+	0
+	PRE-SWITCH
+	0
+	0
+	0
+	0
+	PRE-LISTEN
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TOUCH
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TOUCH
+	0
+	PRE-LOOK
+	PRE-LOOK
+	PRE-LOOK
+	PRE-LOOK
+	PRE-LOOK
+	PRE-RESEARCH
+	0
+	PRE-TOUCH
+	0
+	0
+	0
+	0
+	PRE-TOUCH
+	PRE-TOUCH
+	PRE-TOUCH
+	PRE-TOUCH
+	PRE-TAKE
+	0
+	PRE-TOUCH
+	0
+	0
+	PRE-TOUCH
+	0
+	0
+	0
+	0
+	PRE-TOUCH
+	PRE-TOUCH
+	0
+	0
+	PRE-LOOK
+	0
+	0
+	PRE-TOUCH
+	PRE-TOUCH
+	PRE-TOUCH
+	PRE-TOUCH
+	0
+	PRE-TELL
+	PRE-TOUCH
+	0
+	0
+	0
+	0
+	0
+	PRE-SWITCH
+	PRE-TELL
+	PRE-TELL
+	0
+	0
+	0
+	0
+	0
+	PRE-SMELL
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TOUCH
+	0
+	0
+	0
+	0
+	PRE-TELL
+	0
+	0
+	0
+	0
+	IDROP
+	IDROP
+	IDROP
+	PRE-SWITCH
+	IDROP
+	0
+	0
+	0
+	0
+	PRE-SWITCH
+	0
+	0
+	PRE-LOCK
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-SWITCH
+	0
+	PRE-PUT
+	PRE-SWITCH
+	0
+	PRE-TELL
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 5
+	.BYTE 46
+	.BYTE 44
+	.BYTE 34
+	.BYTE 33
+	.BYTE 63
+	.BYTE 9
+	1619
+	.VOCBEG 9,6
+W?$NUDGE::	.ZWORD	"$nudge"
+	ACT?$NUDGE
+	.BYTE	1
+W?$REFRESH::	.ZWORD	"$refresh"
+	ACT?$REFRESH
+	.BYTE	1
+W?$VER::	.ZWORD	"$ver"
+	ACT?$VERIFY
+	.BYTE	1
+W?$VERIFY::	.ZWORD	"$verify"
+	ACT?$VERIFY
+	.BYTE	1
+W?100-UGH::	.ZWORD	"100-ugh"
+	0
+	.BYTE	4
+W?1-UGH::	.ZWORD	"1-ugh"
+	0
+	.BYTE	4
+W?2-UGH::	.ZWORD	"2-ugh"
+	0
+	.BYTE	4
+W?3-UGH::	.ZWORD	"3-ugh"
+	0
+	.BYTE	4
+W?4-GLOOP::	.ZWORD	"4-gloop"
+	0
+	.BYTE	4
+W?4-UGH::	.ZWORD	"4-ugh"
+	0
+	.BYTE	4
+W?5-UGH::	.ZWORD	"5-ugh"
+	0
+	.BYTE	4
+W?6-UGH::	.ZWORD	"6-ugh"
+	0
+	.BYTE	4
+W?9-GLOOP::	.ZWORD	"9-gloop"
+	0
+	.BYTE	4
+W?PERIOD::	.ZWORD	"."
+	0
+	.BYTE	192
+W?COMMA::	.ZWORD	","
+	0
+	.BYTE	132
+W?!::	.ZWORD	"!"
+	0
+	.BYTE	192
+W??::	.ZWORD	"?"
+	0
+	.BYTE	192
+W?#3::	.ZWORD	"#3"
+	0
+	.BYTE	2
+W?#COMMAND::	.ZWORD	"#command"
+	ACT?#COMMAND
+	.BYTE	1
+W?#RANDOM::	.ZWORD	"#random"
+	ACT?#RANDOM
+	.BYTE	1
+W?#RECORD::	.ZWORD	"#record"
+	ACT?#RECORD
+	.BYTE	1
+W?#UNRECORD::	.ZWORD	"#unrecord"
+	ACT?#UNRECORD
+	.BYTE	1
+W?APOSTROPHE::	.ZWORD	"'"
+	0
+	.BYTE	160
+W?QUOTE::	.ZWORD	""""
+	0
+	.BYTE	130
+W?(SOMETHI::	.ZWORD	"(somethi"
+	0
+	.BYTE	0
+W?A::	.ZWORD	"a"
+	0
+	.BYTE	144
+W?ABANDONED::	.ZWORD	"abandoned"
+	0
+	.BYTE	4
+W?ABOUT::	.ZWORD	"about"
+	0
+	.BYTE	16
+W?ACCARDI::	.ZWORD	"accardi"
+	0
+	.BYTE	2
+W?ACCARDI-BY-THE-SEA::	.ZWORD	"accardi-b"
+	0
+	.BYTE	2
+W?ACCURSED::	.ZWORD	"accursed"
+	0
+	.BYTE	4
+W?ACROSS::	.ZWORD	"across"
+	0
+	.BYTE	16
+W?ACTIVATE::	.ZWORD	"activate"
+	ACT?LIGHT
+	.BYTE	1
+W?ADDRESS::	.ZWORD	"address"
+	0
+	.BYTE	2
+W?ADVENTURER::	.ZWORD	"adventure"
+	0
+	.BYTE	6
+W?AERIE::	.ZWORD	"aerie"
+	0
+	.BYTE	2
+W?AGAIN::	.ZWORD	"again"
+	0
+	.BYTE	160
+W?AIM::	.ZWORD	"aim"
+	ACT?POINT
+	.BYTE	1
+W?ALL::	.ZWORD	"all"
+	0
+	.BYTE	144
+W?ALLEY::	.ZWORD	"alley"
+	0
+	.BYTE	2
+W?ALONG::	.ZWORD	"along"
+	W?AROUND
+	.BYTE	0
+W?ALTAR::	.ZWORD	"altar"
+	0
+	.BYTE	2
+W?ALVA::	.ZWORD	"alva"
+	0
+	.BYTE	6
+W?AM::	.ZWORD	"am"
+	0
+	.BYTE	0
+W?AMULET::	.ZWORD	"amulet"
+	0
+	.BYTE	2
+W?AMULET'S::	.ZWORD	"amulet's"
+	0
+	.BYTE	4
+W?AN::	.ZWORD	"an"
+	0
+	.BYTE	144
+W?ANAGRAM::	.ZWORD	"anagram"
+	ACT?DECODE
+	.BYTE	1
+W?ANCIENT::	.ZWORD	"ancient"
+	0
+	.BYTE	4
+W?AND::	.ZWORD	"and"
+	0
+	.BYTE	132
+W?ANGRY::	.ZWORD	"angry"
+	0
+	.BYTE	4
+W?ANIMAL::	.ZWORD	"animal"
+	0
+	.BYTE	2
+W?ANIMALS::	.ZWORD	"animals"
+	W?ANIMAL
+	.BYTE	2
+W?ANSWER::	.ZWORD	"answer"
+	ACT?SAY
+	.BYTE	3
+W?ANTHAR::	.ZWORD	"anthar"
+	0
+	.BYTE	2
+W?ANTHARIA::	.ZWORD	"antharia"
+	0
+	.BYTE	2
+W?ANTI-PIT::	.ZWORD	"anti-pit"
+	0
+	.BYTE	4
+W?ANY::	.ZWORD	"any"
+	0
+	.BYTE	144
+W?APPETIZER::	.ZWORD	"appetizer"
+	0
+	.BYTE	2
+W?APPROACH::	.ZWORD	"approach"
+	ACT?APPROACH
+	.BYTE	1
+W?AQUARIUM::	.ZWORD	"aquarium"
+	0
+	.BYTE	2
+W?ARAGAIN::	.ZWORD	"aragain"
+	0
+	.BYTE	4
+W?ARBORETUM::	.ZWORD	"arboretum"
+	0
+	.BYTE	2
+W?ARCH::	.ZWORD	"arch"
+	0
+	.BYTE	2
+W?ARCHED::	.ZWORD	"arched"
+	0
+	.BYTE	4
+W?ARCHWAY::	.ZWORD	"archway"
+	0
+	.BYTE	2
+W?ARE::	.ZWORD	"are"
+	0
+	.BYTE	0
+W?AREA::	.ZWORD	"area"
+	0
+	.BYTE	2
+W?AREN'T::	.ZWORD	"aren't"
+	0
+	.BYTE	0
+W?ARMOR::	.ZWORD	"armor"
+	0
+	.BYTE	2
+W?ARMOUR::	.ZWORD	"armour"
+	0
+	.BYTE	2
+W?AROUND::	.ZWORD	"around"
+	0
+	.BYTE	16
+W?ASK::	.ZWORD	"ask"
+	ACT?ASK
+	.BYTE	65
+W?ASS::	.ZWORD	"ass"
+	0
+	.BYTE	0
+W?ASSHOLE::	.ZWORD	"asshole"
+	0
+	.BYTE	0
+W?AT::	.ZWORD	"at"
+	0
+	.BYTE	16
+W?ATOP::	.ZWORD	"atop"
+	W?ON
+	.BYTE	0
+W?ATTACH::	.ZWORD	"attach"
+	ACT?TIE
+	.BYTE	1
+W?ATTACK::	.ZWORD	"attack"
+	ACT?ATTACK
+	.BYTE	1
+W?ATTIC::	.ZWORD	"attic"
+	0
+	.BYTE	2
+W?AUDIENCE::	.ZWORD	"audience"
+	0
+	.BYTE	4
+W?AUGUR::	.ZWORD	"augur"
+	0
+	.BYTE	2
+W?AULDERFOO::	.ZWORD	"aulderfoo"
+	ACT?SIZUL
+	.BYTE	3
+W?AVOCADO::	.ZWORD	"avocado"
+	0
+	.BYTE	2
+W?AWAKE::	.ZWORD	"awake"
+	ACT?WAKE
+	.BYTE	1
+W?AWAY::	.ZWORD	"away"
+	0
+	.BYTE	16
+W?AX::	.ZWORD	"ax"
+	0
+	.BYTE	2
+W?AXE::	.ZWORD	"axe"
+	0
+	.BYTE	2
+W?BABE::	.ZWORD	"babe"
+	0
+	.BYTE	6
+W?BACK::	.ZWORD	"back"
+	0
+	.BYTE	4
+W?BAG::	.ZWORD	"bag"
+	0
+	.BYTE	2
+W?BAILEY::	.ZWORD	"bailey"
+	0
+	.BYTE	2
+W?BALCONY::	.ZWORD	"balcony"
+	0
+	.BYTE	2
+W?BALHU::	.ZWORD	"balhu"
+	0
+	.BYTE	2
+W?BALL::	.ZWORD	"ball"
+	0
+	.BYTE	2
+W?BANNER::	.ZWORD	"banner"
+	0
+	.BYTE	2
+W?BANNERS::	.ZWORD	"banners"
+	0
+	.BYTE	2
+W?BANQUET::	.ZWORD	"banquet"
+	0
+	.BYTE	4
+W?BAR::	.ZWORD	"bar"
+	0
+	.BYTE	2
+W?BARBAZZO::	.ZWORD	"barbazzo"
+	0
+	.BYTE	2
+W?BARBEL::	.ZWORD	"barbel"
+	0
+	.BYTE	2
+W?BARBICAN::	.ZWORD	"barbican"
+	0
+	.BYTE	2
+W?BARE::	.ZWORD	"bare"
+	0
+	.BYTE	4
+W?BARFOO::	.ZWORD	"barfoo"
+	0
+	.BYTE	2
+W?BARGTH::	.ZWORD	"bargth"
+	0
+	.BYTE	2
+W?BARNABY::	.ZWORD	"barnaby"
+	0
+	.BYTE	2
+W?BARSAP::	.ZWORD	"barsap"
+	0
+	.BYTE	2
+W?BARWELL::	.ZWORD	"barwell"
+	0
+	.BYTE	2
+W?BASEBALL::	.ZWORD	"baseball"
+	0
+	.BYTE	4
+W?BASIC::	.ZWORD	"basic"
+	0
+	.BYTE	4
+W?BASKET::	.ZWORD	"basket"
+	0
+	.BYTE	2
+W?BASTARD::	.ZWORD	"bastard"
+	0
+	.BYTE	0
+W?BASTION::	.ZWORD	"bastion"
+	0
+	.BYTE	2
+W?BAT::	.ZWORD	"bat"
+	0
+	.BYTE	2
+W?BAT'S::	.ZWORD	"bat's"
+	0
+	.BYTE	4
+W?BATHYSPHERE::	.ZWORD	"bathysphe"
+	0
+	.BYTE	2
+W?BATTERY-POWERED::	.ZWORD	"battery-p"
+	0
+	.BYTE	4
+W?BATTLE::	.ZWORD	"battle"
+	0
+	.BYTE	2
+W?BAYOU::	.ZWORD	"bayou"
+	0
+	.BYTE	2
+W?BEACH::	.ZWORD	"beach"
+	0
+	.BYTE	2
+W?BEAUTIFUL::	.ZWORD	"beautiful"
+	0
+	.BYTE	4
+W?BED::	.ZWORD	"bed"
+	0
+	.BYTE	6
+W?BEDBUG::	.ZWORD	"bedbug"
+	0
+	.BYTE	2
+W?BEFORE::	.ZWORD	"before"
+	0
+	.BYTE	16
+W?BEHEAD::	.ZWORD	"behead"
+	ACT?BEHEAD
+	.BYTE	1
+W?BEHIND::	.ZWORD	"behind"
+	0
+	.BYTE	16
+W?BELBOZ::	.ZWORD	"belboz"
+	0
+	.BYTE	2
+W?BELL::	.ZWORD	"bell"
+	0
+	.BYTE	2
+W?BELLS::	.ZWORD	"bells"
+	0
+	.BYTE	2
+W?BELOW::	.ZWORD	"below"
+	W?UNDER
+	.BYTE	0
+W?BELOWDECKS::	.ZWORD	"belowdeck"
+	W?DOWN
+	.BYTE	0
+W?BELWIT::	.ZWORD	"belwit"
+	0
+	.BYTE	2
+W?BENEATH::	.ZWORD	"beneath"
+	W?UNDER
+	.BYTE	0
+W?BERKNIP::	.ZWORD	"berknip"
+	0
+	.BYTE	2
+W?BICKERING::	.ZWORD	"bickering"
+	0
+	.BYTE	4
+W?BIG::	.ZWORD	"big"
+	W?LARGE
+	.BYTE	0
+W?BILL::	.ZWORD	"bill"
+	0
+	.BYTE	2
+W?BILLION::	.ZWORD	"billion"
+	0
+	.BYTE	0
+W?BIRCH::	.ZWORD	"birch"
+	0
+	.BYTE	6
+W?BIRD::	.ZWORD	"bird"
+	0
+	.BYTE	6
+W?BIRD'S::	.ZWORD	"bird's"
+	0
+	.BYTE	4
+W?BISHOP::	.ZWORD	"bishop"
+	0
+	.BYTE	2
+W?BITCH::	.ZWORD	"bitch"
+	0
+	.BYTE	0
+W?BITE::	.ZWORD	"bite"
+	ACT?BITE
+	.BYTE	1
+W?BIVOTAR::	.ZWORD	"bivotar"
+	0
+	.BYTE	2
+W?BLACK::	.ZWORD	"black"
+	0
+	.BYTE	4
+W?BLATTUS::	.ZWORD	"blattus"
+	0
+	.BYTE	2
+W?BLINKING::	.ZWORD	"blinking"
+	0
+	.BYTE	4
+W?BLOCK::	.ZWORD	"block"
+	0
+	.BYTE	2
+W?BLOIT::	.ZWORD	"bloit"
+	0
+	.BYTE	2
+W?BLOITS::	.ZWORD	"bloits"
+	0
+	.BYTE	2
+W?BLOW::	.ZWORD	"blow"
+	ACT?BLOW
+	.BYTE	1
+W?BLUE::	.ZWORD	"blue"
+	0
+	.BYTE	4
+W?BLUEPRINT::	.ZWORD	"blueprint"
+	0
+	.BYTE	2
+W?BOARD::	.ZWORD	"board"
+	ACT?BOARD
+	.BYTE	3
+W?BOARDS::	.ZWORD	"boards"
+	W?BOARD
+	.BYTE	2
+W?BOAT::	.ZWORD	"boat"
+	0
+	.BYTE	2
+W?BODIES::	.ZWORD	"bodies"
+	0
+	.BYTE	2
+W?BOG::	.ZWORD	"bog"
+	0
+	.BYTE	2
+W?BOMB::	.ZWORD	"bomb"
+	0
+	.BYTE	2
+W?BONE::	.ZWORD	"bone"
+	0
+	.BYTE	2
+W?BONES::	.ZWORD	"bones"
+	0
+	.BYTE	2
+W?BOOK::	.ZWORD	"book"
+	0
+	.BYTE	2
+W?BOOKKEEPER::	.ZWORD	"bookkeepe"
+	0
+	.BYTE	2
+W?BOOKKEEPING::	.ZWORD	"bookkeepi"
+	0
+	.BYTE	2
+W?BOOKLET::	.ZWORD	"booklet"
+	0
+	.BYTE	2
+W?BOOST::	.ZWORD	"boost"
+	ACT?RAISE
+	.BYTE	1
+W?BOOTH::	.ZWORD	"booth"
+	0
+	.BYTE	2
+W?BORIS::	.ZWORD	"boris"
+	0
+	.BYTE	2
+W?BORPHBELLY::	.ZWORD	"borphbell"
+	0
+	.BYTE	4
+W?BORPHEE::	.ZWORD	"borphee"
+	0
+	.BYTE	2
+W?BOSWELL::	.ZWORD	"boswell"
+	0
+	.BYTE	4
+W?BOTH::	.ZWORD	"both"
+	W?ALL
+	.BYTE	0
+W?BOTTOMLESS::	.ZWORD	"bottomles"
+	0
+	.BYTE	4
+W?BOULDER::	.ZWORD	"boulder"
+	0
+	.BYTE	2
+W?BOUNCE::	.ZWORD	"bounce"
+	ACT?SHAKE
+	.BYTE	1
+W?BOVUS::	.ZWORD	"bovus"
+	0
+	.BYTE	2
+W?BOWL::	.ZWORD	"bowl"
+	0
+	.BYTE	2
+W?BOWTIE::	.ZWORD	"bowtie"
+	0
+	.BYTE	2
+W?BOX::	.ZWORD	"box"
+	0
+	.BYTE	2
+W?BOZBAR::	.ZWORD	"bozbar"
+	0
+	.BYTE	2
+W?BOZBO::	.ZWORD	"bozbo"
+	0
+	.BYTE	6
+W?BRASS::	.ZWORD	"brass"
+	0
+	.BYTE	4
+W?BREAK::	.ZWORD	"break"
+	ACT?DEMOLISH
+	.BYTE	1
+W?BRIDGE::	.ZWORD	"bridge"
+	0
+	.BYTE	2
+W?BRIEF::	.ZWORD	"brief"
+	ACT?BRIEF
+	.BYTE	1
+W?BROGMOID::	.ZWORD	"brogmoid"
+	0
+	.BYTE	6
+W?BROGMOIDISM::	.ZWORD	"brogmoidi"
+	0
+	.BYTE	2
+W?BROGMOIDS::	.ZWORD	"brogmoids"
+	0
+	.BYTE	2
+W?BROKEN::	.ZWORD	"broken"
+	0
+	.BYTE	4
+W?BROOM::	.ZWORD	"broom"
+	0
+	.BYTE	2
+W?BROWSE::	.ZWORD	"browse"
+	ACT?READ
+	.BYTE	1
+W?BRUSH::	.ZWORD	"brush"
+	0
+	.BYTE	2
+W?BUBBLING::	.ZWORD	"bubbling"
+	0
+	.BYTE	4
+W?BUCK::	.ZWORD	"buck"
+	0
+	.BYTE	2
+W?BUG::	.ZWORD	"bug"
+	0
+	.BYTE	2
+W?BUILDING::	.ZWORD	"building"
+	0
+	.BYTE	2
+W?BUNSEN::	.ZWORD	"bunsen"
+	0
+	.BYTE	4
+W?BURN::	.ZWORD	"burn"
+	ACT?BURN
+	.BYTE	1
+W?BURNER::	.ZWORD	"burner"
+	0
+	.BYTE	2
+W?BUT::	.ZWORD	"but"
+	0
+	.BYTE	32
+W?BUTTON::	.ZWORD	"button"
+	0
+	.BYTE	2
+W?BUTTONS::	.ZWORD	"buttons"
+	W?BUTTON
+	.BYTE	2
+W?BUY::	.ZWORD	"buy"
+	ACT?BUY
+	.BYTE	1
+W?BY::	.ZWORD	"by"
+	W?BEFORE
+	.BYTE	0
+W?CACTI::	.ZWORD	"cacti"
+	0
+	.BYTE	2
+W?CACTUS::	.ZWORD	"cactus"
+	0
+	.BYTE	2
+W?CAGE::	.ZWORD	"cage"
+	0
+	.BYTE	2
+W?CAGES::	.ZWORD	"cages"
+	W?CAGE
+	.BYTE	2
+W?CAIRN::	.ZWORD	"cairn"
+	0
+	.BYTE	2
+W?CAKE::	.ZWORD	"cake"
+	0
+	.BYTE	2
+W?CALENDAR::	.ZWORD	"calendar"
+	0
+	.BYTE	2
+W?CALL::	.ZWORD	"call"
+	ACT?CALL
+	.BYTE	1
+W?CAMEL::	.ZWORD	"camel"
+	0
+	.BYTE	2
+W?CAN::	.ZWORD	"can"
+	0
+	.BYTE	0
+W?CAN'T::	.ZWORD	"can't"
+	0
+	.BYTE	0
+W?CANDLE::	.ZWORD	"candle"
+	0
+	.BYTE	2
+W?CANNONBALL::	.ZWORD	"cannonbal"
+	0
+	.BYTE	2
+W?CANOPIED::	.ZWORD	"canopied"
+	0
+	.BYTE	4
+W?CAP::	.ZWORD	"cap"
+	0
+	.BYTE	2
+W?CARAFE::	.ZWORD	"carafe"
+	0
+	.BYTE	2
+W?CARD::	.ZWORD	"card"
+	0
+	.BYTE	6
+W?CARPET::	.ZWORD	"carpet"
+	0
+	.BYTE	2
+W?CARPETING::	.ZWORD	"carpeting"
+	0
+	.BYTE	2
+W?CARRY::	.ZWORD	"carry"
+	ACT?TAKE
+	.BYTE	1
+W?CASINO::	.ZWORD	"casino"
+	0
+	.BYTE	2
+W?CAST::	.ZWORD	"cast"
+	ACT?THROW
+	.BYTE	5
+W?CASTLE::	.ZWORD	"castle"
+	0
+	.BYTE	6
+W?CATCH::	.ZWORD	"catch"
+	ACT?CATCH
+	.BYTE	1
+W?CAULDRON::	.ZWORD	"cauldron"
+	0
+	.BYTE	2
+W?CAUSEWAY::	.ZWORD	"causeway"
+	0
+	.BYTE	2
+W?CAVE::	.ZWORD	"cave"
+	0
+	.BYTE	2
+W?CAVERN::	.ZWORD	"cavern"
+	0
+	.BYTE	2
+W?CEILING::	.ZWORD	"ceiling"
+	0
+	.BYTE	2
+W?CELERY::	.ZWORD	"celery"
+	0
+	.BYTE	2
+W?CELL::	.ZWORD	"cell"
+	0
+	.BYTE	2
+W?CELLAR::	.ZWORD	"cellar"
+	0
+	.BYTE	2
+W?CENTER::	.ZWORD	"center"
+	0
+	.BYTE	4
+W?CERAMIC::	.ZWORD	"ceramic"
+	0
+	.BYTE	4
+W?CERTIFICATE::	.ZWORD	"certifica"
+	0
+	.BYTE	2
+W?CHAIR::	.ZWORD	"chair"
+	0
+	.BYTE	2
+W?CHALET::	.ZWORD	"chalet"
+	0
+	.BYTE	2
+W?CHAMBER::	.ZWORD	"chamber"
+	0
+	.BYTE	2
+W?CHAMELEON::	.ZWORD	"chameleon"
+	0
+	.BYTE	2
+W?CHANGE::	.ZWORD	"change"
+	0
+	.BYTE	4
+W?CHAPEL::	.ZWORD	"chapel"
+	0
+	.BYTE	2
+W?CHASE::	.ZWORD	"chase"
+	ACT?FOLLOW
+	.BYTE	1
+W?CHESS::	.ZWORD	"chess"
+	0
+	.BYTE	2
+W?CHEST::	.ZWORD	"chest"
+	0
+	.BYTE	2
+W?CHOKED::	.ZWORD	"choked"
+	0
+	.BYTE	4
+W?CHOP::	.ZWORD	"chop"
+	ACT?SLICE
+	.BYTE	1
+W?CHURCH::	.ZWORD	"church"
+	0
+	.BYTE	2
+W?CIGAR::	.ZWORD	"cigar"
+	0
+	.BYTE	2
+W?CIRCLE::	.ZWORD	"circle"
+	ACT?CIRCLE
+	.BYTE	1
+W?CIRCULAR::	.ZWORD	"circular"
+	0
+	.BYTE	4
+W?CITY::	.ZWORD	"city"
+	0
+	.BYTE	2
+W?CLAY::	.ZWORD	"clay"
+	0
+	.BYTE	4
+W?CLEAN::	.ZWORD	"clean"
+	ACT?WASH
+	.BYTE	1
+W?CLEAR::	.ZWORD	"clear"
+	ACT?WASH
+	.BYTE	5
+W?CLIMB::	.ZWORD	"climb"
+	ACT?CLIMB
+	.BYTE	1
+W?CLOAK::	.ZWORD	"cloak"
+	0
+	.BYTE	2
+W?CLOSE::	.ZWORD	"close"
+	ACT?CLOSE
+	.BYTE	1
+W?CLOSED::	.ZWORD	"closed"
+	0
+	.BYTE	4
+W?CLOSET::	.ZWORD	"closet"
+	0
+	.BYTE	2
+W?CLOTHES::	.ZWORD	"clothes"
+	0
+	.BYTE	4
+W?CLOWN::	.ZWORD	"clown"
+	0
+	.BYTE	4
+W?CLUB::	.ZWORD	"club"
+	0
+	.BYTE	2
+W?CLUE::	.ZWORD	"clue"
+	ACT?HELP
+	.BYTE	1
+W?CLUES::	.ZWORD	"clues"
+	ACT?HELP
+	.BYTE	1
+W?CLUMP::	.ZWORD	"clump"
+	0
+	.BYTE	2
+W?CLUSTER::	.ZWORD	"cluster"
+	0
+	.BYTE	2
+W?COBRA::	.ZWORD	"cobra"
+	0
+	.BYTE	2
+W?COBWEB::	.ZWORD	"cobweb"
+	0
+	.BYTE	2
+W?COBWEBBY::	.ZWORD	"cobwebby"
+	0
+	.BYTE	4
+W?COBWEBS::	.ZWORD	"cobwebs"
+	0
+	.BYTE	2
+W?COCK::	.ZWORD	"cock"
+	0
+	.BYTE	0
+W?COCKSUCKER::	.ZWORD	"cocksucke"
+	0
+	.BYTE	0
+W?COIN::	.ZWORD	"coin"
+	0
+	.BYTE	2
+W?COLD::	.ZWORD	"cold"
+	0
+	.BYTE	4
+W?COLOR::	.ZWORD	"color"
+	ACT?COLOR
+	.BYTE	1
+W?COLORFUL::	.ZWORD	"colorful"
+	0
+	.BYTE	4
+W?COMBINATION::	.ZWORD	"combinati"
+	0
+	.BYTE	4
+W?COMFORTABLE::	.ZWORD	"comfortab"
+	0
+	.BYTE	4
+W?COMFY::	.ZWORD	"comfy"
+	0
+	.BYTE	4
+W?COMICS::	.ZWORD	"comics"
+	0
+	.BYTE	2
+W?COMMON::	.ZWORD	"common"
+	0
+	.BYTE	4
+W?COMPASS::	.ZWORD	"compass"
+	0
+	.BYTE	6
+W?CONDUCTOR::	.ZWORD	"conductor"
+	0
+	.BYTE	4
+W?CONSTRUCTION::	.ZWORD	"construct"
+	0
+	.BYTE	2
+W?CONSULT::	.ZWORD	"consult"
+	ACT?CONSULT
+	.BYTE	1
+W?CONTROL::	.ZWORD	"control"
+	0
+	.BYTE	6
+W?CONTROLS::	.ZWORD	"controls"
+	0
+	.BYTE	2
+W?COOKFIRE::	.ZWORD	"cookfire"
+	0
+	.BYTE	2
+W?COOKPOT::	.ZWORD	"cookpot"
+	0
+	.BYTE	2
+W?COUGH::	.ZWORD	"cough"
+	ACT?COUGH
+	.BYTE	1
+W?COULD::	.ZWORD	"could"
+	0
+	.BYTE	0
+W?COULDN'T::	.ZWORD	"couldn't"
+	0
+	.BYTE	0
+W?COUNT::	.ZWORD	"count"
+	ACT?COUNT
+	.BYTE	1
+W?COURTROOM::	.ZWORD	"courtroom"
+	0
+	.BYTE	2
+W?COURTYARD::	.ZWORD	"courtyard"
+	0
+	.BYTE	2
+W?COUSIN::	.ZWORD	"cousin"
+	0
+	.BYTE	2
+W?COVER::	.ZWORD	"cover"
+	ACT?COVER
+	.BYTE	1
+W?CRACK::	.ZWORD	"crack"
+	ACT?DEMOLISH
+	.BYTE	3
+W?CRACKER::	.ZWORD	"cracker"
+	0
+	.BYTE	2
+W?CRAG::	.ZWORD	"crag"
+	0
+	.BYTE	2
+W?CRAP::	.ZWORD	"crap"
+	0
+	.BYTE	0
+W?CRATE::	.ZWORD	"crate"
+	0
+	.BYTE	2
+W?CRAWL::	.ZWORD	"crawl"
+	ACT?CRAWL
+	.BYTE	1
+W?CRAYON::	.ZWORD	"crayon"
+	0
+	.BYTE	2
+W?CREATURE::	.ZWORD	"creature"
+	0
+	.BYTE	6
+W?CREDIT::	.ZWORD	"credit"
+	ACT?CREDITS
+	.BYTE	1
+W?CREDITS::	.ZWORD	"credits"
+	ACT?CREDITS
+	.BYTE	1
+W?CROSS::	.ZWORD	"cross"
+	ACT?CROSS
+	.BYTE	1
+W?CROWN::	.ZWORD	"crown"
+	0
+	.BYTE	2
+W?CRUDE::	.ZWORD	"crude"
+	0
+	.BYTE	4
+W?CRUMBLING::	.ZWORD	"crumbling"
+	0
+	.BYTE	4
+W?CRYPT::	.ZWORD	"crypt"
+	0
+	.BYTE	2
+W?CRYSTAL::	.ZWORD	"crystal"
+	0
+	.BYTE	4
+W?CUNT::	.ZWORD	"cunt"
+	0
+	.BYTE	0
+W?CUP::	.ZWORD	"cup"
+	0
+	.BYTE	2
+W?CURSE::	.ZWORD	"curse"
+	0
+	.BYTE	6
+W?CURSED::	.ZWORD	"cursed"
+	0
+	.BYTE	4
+W?CUSS::	.ZWORD	"cuss"
+	0
+	.BYTE	0
+W?CUT::	.ZWORD	"cut"
+	ACT?SLICE
+	.BYTE	1
+W?D::	.ZWORD	"d"
+	W?DOWN
+	.BYTE	0
+W?DAGGER::	.ZWORD	"dagger"
+	0
+	.BYTE	2
+W?DAINTY::	.ZWORD	"dainty"
+	0
+	.BYTE	4
+W?DAM::	.ZWORD	"dam"
+	0
+	.BYTE	6
+W?DAMAGE::	.ZWORD	"damage"
+	ACT?DEMOLISH
+	.BYTE	1
+W?DAMAGED::	.ZWORD	"damaged"
+	0
+	.BYTE	4
+W?DAMN::	.ZWORD	"damn"
+	0
+	.BYTE	0
+W?DAMNED::	.ZWORD	"damned"
+	0
+	.BYTE	0
+W?DARK::	.ZWORD	"dark"
+	0
+	.BYTE	4
+W?DARKEST::	.ZWORD	"darkest"
+	0
+	.BYTE	4
+W?DATE::	.ZWORD	"date"
+	ACT?DATE
+	.BYTE	1
+W?DAVISON::	.ZWORD	"davison"
+	0
+	.BYTE	6
+W?DAVMAR::	.ZWORD	"davmar"
+	0
+	.BYTE	2
+W?DAY::	.ZWORD	"day"
+	0
+	.BYTE	2
+W?DEACTIVATE::	.ZWORD	"deactivat"
+	ACT?EXTINGUISH
+	.BYTE	1
+W?DEBARK::	.ZWORD	"debark"
+	ACT?DISEMBARK
+	.BYTE	1
+W?DECIPHER::	.ZWORD	"decipher"
+	ACT?DECODE
+	.BYTE	1
+W?DECODE::	.ZWORD	"decode"
+	ACT?DECODE
+	.BYTE	1
+W?DECREE::	.ZWORD	"decree"
+	0
+	.BYTE	2
+W?DECREPIT::	.ZWORD	"decrepit"
+	0
+	.BYTE	4
+W?DEFINE::	.ZWORD	"define"
+	ACT?DEFINE
+	.BYTE	1
+W?DELICATE::	.ZWORD	"delicate"
+	0
+	.BYTE	4
+W?DELTA::	.ZWORD	"delta"
+	0
+	.BYTE	2
+W?DEMOLISH::	.ZWORD	"demolish"
+	ACT?DEMOLISH
+	.BYTE	1
+W?DEPART::	.ZWORD	"depart"
+	ACT?DISEMBARK
+	.BYTE	1
+W?DEPRESSION::	.ZWORD	"depressio"
+	0
+	.BYTE	2
+W?DESCEND::	.ZWORD	"descend"
+	ACT?DESCEND
+	.BYTE	1
+W?DESCRIBE::	.ZWORD	"describe"
+	ACT?EXAMINE
+	.BYTE	1
+W?DESERT::	.ZWORD	"desert"
+	0
+	.BYTE	2
+W?DESTROY::	.ZWORD	"destroy"
+	ACT?DEMOLISH
+	.BYTE	1
+W?DEVOUR::	.ZWORD	"devour"
+	ACT?EAT
+	.BYTE	1
+W?DIABLO::	.ZWORD	"diablo"
+	0
+	.BYTE	4
+W?DIAGNOSE::	.ZWORD	"diagnose"
+	ACT?DIAGNOSE
+	.BYTE	1
+W?DIAL::	.ZWORD	"dial"
+	ACT?TURN
+	.BYTE	3
+W?DID::	.ZWORD	"did"
+	0
+	.BYTE	0
+W?DIDN'T::	.ZWORD	"didn't"
+	0
+	.BYTE	0
+W?DIG::	.ZWORD	"dig"
+	ACT?DIG
+	.BYTE	1
+W?DIMWIT::	.ZWORD	"dimwit"
+	0
+	.BYTE	6
+W?DIMWIT'S::	.ZWORD	"dimwit's"
+	DIMWIT
+	.BYTE	4
+W?DIPLOMA::	.ZWORD	"diploma"
+	0
+	.BYTE	2
+W?DIRIGIBLE::	.ZWORD	"dirigible"
+	0
+	.BYTE	6
+W?DISEMBARK::	.ZWORD	"disembark"
+	ACT?DISEMBARK
+	.BYTE	1
+W?DISMEMBUR::	.ZWORD	"dismembur"
+	0
+	.BYTE	2
+W?DISMOUNT::	.ZWORD	"dismount"
+	ACT?DISEMBARK
+	.BYTE	1
+W?DIVE::	.ZWORD	"dive"
+	ACT?JUMP
+	.BYTE	1
+W?DIVING::	.ZWORD	"diving"
+	0
+	.BYTE	4
+W?DO::	.ZWORD	"do"
+	0
+	.BYTE	0
+W?DOCK::	.ZWORD	"dock"
+	0
+	.BYTE	2
+W?DOCUMENT::	.ZWORD	"document"
+	0
+	.BYTE	2
+W?DOESN'T::	.ZWORD	"doesn't"
+	0
+	.BYTE	0
+W?DOFF::	.ZWORD	"doff"
+	ACT?DOFF
+	.BYTE	1
+W?DON::	.ZWORD	"don"
+	ACT?WEAR
+	.BYTE	1
+W?DON'T::	.ZWORD	"don't"
+	0
+	.BYTE	136
+W?DOOR::	.ZWORD	"door"
+	0
+	.BYTE	6
+W?DOORBELL::	.ZWORD	"doorbell"
+	0
+	.BYTE	2
+W?DOORS::	.ZWORD	"doors"
+	W?DOOR
+	.BYTE	2
+W?DOUBLE::	.ZWORD	"double"
+	0
+	.BYTE	4
+W?DOWN::	.ZWORD	"down"
+	.BYTE	54
+	.BYTE 0
+	.BYTE	30
+W?DOWNSTAIRS::	.ZWORD	"downstair"
+	W?DOWN
+	.BYTE	0
+W?DOZE::	.ZWORD	"doze"
+	ACT?SLEEP
+	.BYTE	1
+W?DRAW::	.ZWORD	"draw"
+	0
+	.BYTE	4
+W?DRAWBRIDGE::	.ZWORD	"drawbridg"
+	0
+	.BYTE	2
+W?DRINK::	.ZWORD	"drink"
+	ACT?DRINK
+	.BYTE	1
+W?DRINKING::	.ZWORD	"drinking"
+	0
+	.BYTE	4
+W?DRIVER::	.ZWORD	"driver"
+	0
+	.BYTE	2
+W?DROP::	.ZWORD	"drop"
+	ACT?DROP
+	.BYTE	1
+W?DUMBBELL::	.ZWORD	"dumbbell"
+	0
+	.BYTE	2
+W?DUMP::	.ZWORD	"dump"
+	ACT?DROP
+	.BYTE	1
+W?DUNCANTHRAX::	.ZWORD	"duncanthr"
+	0
+	.BYTE	2
+W?DUNGEON::	.ZWORD	"dungeon"
+	0
+	.BYTE	2
+W?DUSTIEST::	.ZWORD	"dustiest"
+	0
+	.BYTE	4
+W?DUSTY::	.ZWORD	"dusty"
+	0
+	.BYTE	4
+W?E::	.ZWORD	"e"
+	W?EAST
+	.BYTE	0
+W?EAR::	.ZWORD	"ear"
+	0
+	.BYTE	6
+W?EARTHWORM::	.ZWORD	"earthworm"
+	0
+	.BYTE	2
+W?EARWAX::	.ZWORD	"earwax"
+	0
+	.BYTE	2
+W?EASEL::	.ZWORD	"easel"
+	0
+	.BYTE	2
+W?EASLE::	.ZWORD	"easle"
+	0
+	.BYTE	2
+W?EAST::	.ZWORD	"east"
+	.BYTE	61
+	.BYTE 0
+	.BYTE	14
+W?EASTLAND::	.ZWORD	"eastland"
+	0
+	.BYTE	2
+W?EASTLANDS::	.ZWORD	"eastlands"
+	0
+	.BYTE	2
+W?EAT::	.ZWORD	"eat"
+	ACT?EAT
+	.BYTE	1
+W?EGRETH::	.ZWORD	"egreth"
+	0
+	.BYTE	6
+W?EIGHT::	.ZWORD	"eight"
+	0
+	.BYTE	4
+W?EIGHTEEN::	.ZWORD	"eighteen"
+	0
+	.BYTE	0
+W?EIGHTH::	.ZWORD	"eighth"
+	0
+	.BYTE	4
+W?EIGHTY::	.ZWORD	"eighty"
+	0
+	.BYTE	0
+W?EITHER::	.ZWORD	"either"
+	0
+	.BYTE	144
+W?ELDABLITZ::	.ZWORD	"eldablitz"
+	ACT?SIZUL
+	.BYTE	3
+W?ELDERBAR::	.ZWORD	"elderbar"
+	0
+	.BYTE	2
+W?ELEPHANT::	.ZWORD	"elephant"
+	0
+	.BYTE	2
+W?ELEVEN::	.ZWORD	"eleven"
+	0
+	.BYTE	0
+W?ELEVENTH::	.ZWORD	"eleventh"
+	0
+	.BYTE	4
+W?ELIXIR::	.ZWORD	"elixir"
+	0
+	.BYTE	2
+W?ELM::	.ZWORD	"elm"
+	0
+	.BYTE	6
+W?ELMS::	.ZWORD	"elms"
+	W?ELM
+	.BYTE	2
+W?ELONGATED::	.ZWORD	"elongated"
+	0
+	.BYTE	4
+W?EMBROIDER::	.ZWORD	"embroider"
+	0
+	.BYTE	6
+W?EMPIRE::	.ZWORD	"empire"
+	0
+	.BYTE	2
+W?EMPTY::	.ZWORD	"empty"
+	ACT?EMPTY
+	.BYTE	1
+W?ENAMELED::	.ZWORD	"enameled"
+	0
+	.BYTE	4
+W?ENCHANTED::	.ZWORD	"enchanted"
+	0
+	.BYTE	4
+W?ENCHANTER::	.ZWORD	"enchanter"
+	0
+	.BYTE	6
+W?ENCYCLOPEDIA::	.ZWORD	"encyclope"
+	0
+	.BYTE	6
+W?END.OF.INPUT::	.ZWORD	"end.of.in"
+	0
+	.BYTE	192
+W?ENDLESS::	.ZWORD	"endless"
+	0
+	.BYTE	4
+W?ENGRAVED::	.ZWORD	"engraved"
+	0
+	.BYTE	4
+W?ENGRAVING::	.ZWORD	"engraving"
+	0
+	.BYTE	2
+W?ENORMOUS::	.ZWORD	"enormous"
+	W?LARGE
+	.BYTE	0
+W?ENTER::	.ZWORD	"enter"
+	ACT?ENTER
+	.BYTE	1
+W?ENTHARION::	.ZWORD	"entharion"
+	0
+	.BYTE	2
+W?EPAULET::	.ZWORD	"epaulet"
+	0
+	.BYTE	2
+W?EPAULETTE::	.ZWORD	"epaulette"
+	0
+	.BYTE	2
+W?ESTATES::	.ZWORD	"estates"
+	0
+	.BYTE	2
+W?ESTUARY::	.ZWORD	"estuary"
+	0
+	.BYTE	2
+W?ETCHING::	.ZWORD	"etching"
+	0
+	.BYTE	2
+W?EVEN::	.ZWORD	"even"
+	0
+	.BYTE	4
+W?EVERYTHING::	.ZWORD	"everythin"
+	W?ALL
+	.BYTE	0
+W?EXACT::	.ZWORD	"exact"
+	0
+	.BYTE	4
+W?EXAMINE::	.ZWORD	"examine"
+	ACT?EXAMINE
+	.BYTE	1
+W?EXCEPT::	.ZWORD	"except"
+	0
+	.BYTE	32
+W?EXCESSIVE::	.ZWORD	"excessive"
+	0
+	.BYTE	4
+W?EXECUTIONER::	.ZWORD	"execution"
+	0
+	.BYTE	2
+W?EXIT::	.ZWORD	"exit"
+	ACT?DISEMBARK
+	.BYTE	1
+W?EXTERIOR::	.ZWORD	"exterior"
+	0
+	.BYTE	4
+W?EXTINGUISH::	.ZWORD	"extinguis"
+	ACT?EXTINGUISH
+	.BYTE	1
+W?EYE::	.ZWORD	"eye"
+	0
+	.BYTE	2
+W?EYE-CATCHING::	.ZWORD	"eye-catch"
+	0
+	.BYTE	4
+W?EYES::	.ZWORD	"eyes"
+	0
+	.BYTE	2
+W?FADED::	.ZWORD	"faded"
+	0
+	.BYTE	4
+W?FALLS::	.ZWORD	"falls"
+	0
+	.BYTE	2
+W?FAMATHRIA::	.ZWORD	"famathria"
+	0
+	.BYTE	2
+W?FAN::	.ZWORD	"fan"
+	0
+	.BYTE	2
+W?FANCY::	.ZWORD	"fancy"
+	0
+	.BYTE	4
+W?FANNUCCI::	.ZWORD	"fannucci"
+	0
+	.BYTE	2
+W?FANTASTIC::	.ZWORD	"fantastic"
+	0
+	.BYTE	4
+W?FANUCCI::	.ZWORD	"fanucci"
+	0
+	.BYTE	2
+W?FAR::	.ZWORD	"far"
+	0
+	.BYTE	4
+W?FASTEN::	.ZWORD	"fasten"
+	ACT?TIE
+	.BYTE	1
+W?FCD::	.ZWORD	"fcd"
+	0
+	.BYTE	4
+W?FCD#3::	.ZWORD	"fcd#3"
+	0
+	.BYTE	2
+W?FEED::	.ZWORD	"feed"
+	ACT?FEED
+	.BYTE	1
+W?FEEL::	.ZWORD	"feel"
+	ACT?TOUCH
+	.BYTE	1
+W?FEET::	.ZWORD	"feet"
+	0
+	.BYTE	2
+W?FENCE::	.ZWORD	"fence"
+	0
+	.BYTE	2
+W?FENSHIRE::	.ZWORD	"fenshire"
+	0
+	.BYTE	2
+W?FERNAP::	.ZWORD	"fernap"
+	0
+	.BYTE	2
+W?FESTERON::	.ZWORD	"festeron"
+	0
+	.BYTE	2
+W?FIELDS::	.ZWORD	"fields"
+	0
+	.BYTE	2
+W?FIERY::	.ZWORD	"fiery"
+	0
+	.BYTE	4
+W?FIFTEEN::	.ZWORD	"fifteen"
+	0
+	.BYTE	0
+W?FIFTH::	.ZWORD	"fifth"
+	0
+	.BYTE	4
+W?FIFTY::	.ZWORD	"fifty"
+	0
+	.BYTE	0
+W?FIGHT::	.ZWORD	"fight"
+	ACT?ATTACK
+	.BYTE	1
+W?FILL::	.ZWORD	"fill"
+	ACT?FILL
+	.BYTE	1
+W?FIND::	.ZWORD	"find"
+	ACT?FIND
+	.BYTE	1
+W?FINGER::	.ZWORD	"finger"
+	0
+	.BYTE	2
+W?FINGERS::	.ZWORD	"fingers"
+	0
+	.BYTE	2
+W?FIRE::	.ZWORD	"fire"
+	ACT?POINT
+	.BYTE	3
+W?FIREPLACE::	.ZWORD	"fireplace"
+	0
+	.BYTE	2
+W?FIRST::	.ZWORD	"first"
+	0
+	.BYTE	4
+W?FISH::	.ZWORD	"fish"
+	0
+	.BYTE	6
+W?FISHA::	.ZWORD	"fisha"
+	0
+	.BYTE	2
+W?FISSURE::	.ZWORD	"fissure"
+	0
+	.BYTE	2
+W?FIVE::	.ZWORD	"five"
+	0
+	.BYTE	4
+W?FIXTURE::	.ZWORD	"fixture"
+	0
+	.BYTE	2
+W?FJORD::	.ZWORD	"fjord"
+	0
+	.BYTE	2
+W?FLAMINGO::	.ZWORD	"flamingo"
+	0
+	.BYTE	2
+W?FLASK::	.ZWORD	"flask"
+	0
+	.BYTE	2
+W?FLATHEAD::	.ZWORD	"flathead"
+	0
+	.BYTE	6
+W?FLATHEADIA::	.ZWORD	"flatheadi"
+	0
+	.BYTE	2
+W?FLATHEADS::	.ZWORD	"flatheads"
+	0
+	.BYTE	2
+W?FLATTENED::	.ZWORD	"flattened"
+	0
+	.BYTE	4
+W?FLATTEST::	.ZWORD	"flattest"
+	0
+	.BYTE	4
+W?FLICKERING::	.ZWORD	"flickerin"
+	0
+	.BYTE	4
+W?FLIES::	.ZWORD	"flies"
+	W?FLY
+	.BYTE	2
+W?FLIGHT::	.ZWORD	"flight"
+	0
+	.BYTE	2
+W?FLODOOR::	.ZWORD	"flodoor"
+	ACT?ZIPSO
+	.BYTE	1
+W?FLOOD::	.ZWORD	"flood"
+	0
+	.BYTE	4
+W?FLOOR::	.ZWORD	"floor"
+	0
+	.BYTE	2
+W?FLORA::	.ZWORD	"flora"
+	0
+	.BYTE	2
+W?FLOWER::	.ZWORD	"flower"
+	0
+	.BYTE	2
+W?FLOWERS::	.ZWORD	"flowers"
+	W?FLOWER
+	.BYTE	2
+W?FLY::	.ZWORD	"fly"
+	ACT?FLY
+	.BYTE	3
+W?FOGGY::	.ZWORD	"foggy"
+	0
+	.BYTE	4
+W?FOLLOW::	.ZWORD	"follow"
+	ACT?FOLLOW
+	.BYTE	1
+W?FOOBIA::	.ZWORD	"foobia"
+	0
+	.BYTE	2
+W?FOOBUS::	.ZWORD	"foobus"
+	0
+	.BYTE	2
+W?FOOD::	.ZWORD	"food"
+	0
+	.BYTE	2
+W?FOOFOONAP::	.ZWORD	"foofoonap"
+	0
+	.BYTE	2
+W?FOOT::	.ZWORD	"foot"
+	0
+	.BYTE	6
+W?FOOZLE::	.ZWORD	"foozle"
+	0
+	.BYTE	2
+W?FOR::	.ZWORD	"for"
+	0
+	.BYTE	16
+W?FORBIDDING::	.ZWORD	"forbiddin"
+	0
+	.BYTE	4
+W?FORD::	.ZWORD	"ford"
+	ACT?CROSS
+	.BYTE	1
+W?FORMAL::	.ZWORD	"formal"
+	0
+	.BYTE	4
+W?FORTY::	.ZWORD	"forty"
+	0
+	.BYTE	0
+W?FOUR::	.ZWORD	"four"
+	0
+	.BYTE	4
+W?FOUR-GLOOP::	.ZWORD	"four-gloo"
+	0
+	.BYTE	4
+W?FOURTEEN::	.ZWORD	"fourteen"
+	0
+	.BYTE	0
+W?FOURTH::	.ZWORD	"fourth"
+	0
+	.BYTE	4
+W?FOX::	.ZWORD	"fox"
+	0
+	.BYTE	6
+W?FRAMED::	.ZWORD	"framed"
+	0
+	.BYTE	4
+W?FRANK::	.ZWORD	"frank"
+	0
+	.BYTE	6
+W?FREE::	.ZWORD	"free"
+	ACT?UNTIE
+	.BYTE	1
+W?FRESCO::	.ZWORD	"fresco"
+	0
+	.BYTE	2
+W?FRESHWATER::	.ZWORD	"freshwate"
+	0
+	.BYTE	4
+W?FRIENDLY::	.ZWORD	"friendly"
+	0
+	.BYTE	4
+W?FRIGHTENING::	.ZWORD	"frighteni"
+	0
+	.BYTE	4
+W?FRIGID::	.ZWORD	"frigid"
+	0
+	.BYTE	4
+W?FROBESIUS::	.ZWORD	"frobesius"
+	0
+	.BYTE	6
+W?FROBLO::	.ZWORD	"froblo"
+	0
+	.BYTE	4
+W?FROBOZZ::	.ZWORD	"frobozz"
+	0
+	.BYTE	6
+W?FROBOZZCO::	.ZWORD	"frobozzco"
+	0
+	.BYTE	6
+W?FROBOZZICA::	.ZWORD	"frobozzic"
+	0
+	.BYTE	2
+W?FROBUARY::	.ZWORD	"frobuary"
+	0
+	.BYTE	2
+W?FROM::	.ZWORD	"from"
+	0
+	.BYTE	48
+W?FRONT::	.ZWORD	"front"
+	0
+	.BYTE	0
+W?FROTZEN::	.ZWORD	"frotzen"
+	0
+	.BYTE	2
+W?FROZEN::	.ZWORD	"frozen"
+	0
+	.BYTE	4
+W?FUBLIO::	.ZWORD	"fublio"
+	0
+	.BYTE	4
+W?FUBLITSKEE::	.ZWORD	"fublitske"
+	ACT?SIZUL
+	.BYTE	3
+W?FUBLIUS::	.ZWORD	"fublius"
+	0
+	.BYTE	2
+W?FUCK::	.ZWORD	"fuck"
+	0
+	.BYTE	0
+W?FUCKED::	.ZWORD	"fucked"
+	0
+	.BYTE	0
+W?FUCKER::	.ZWORD	"fucker"
+	0
+	.BYTE	0
+W?FUCKING::	.ZWORD	"fucking"
+	0
+	.BYTE	0
+W?FUMING::	.ZWORD	"fuming"
+	0
+	.BYTE	4
+W?FUNGI::	.ZWORD	"fungi"
+	0
+	.BYTE	2
+W?FUNGUS::	.ZWORD	"fungus"
+	0
+	.BYTE	2
+W?FUNNY::	.ZWORD	"funny"
+	0
+	.BYTE	4
+W?FURGALNETI::	.ZWORD	"furgalnet"
+	ACT?ZIPSO
+	.BYTE	1
+W?FZORTY::	.ZWORD	"fzorty"
+	ACT?SIZUL
+	.BYTE	3
+W?G::	.ZWORD	"g"
+	0
+	.BYTE	160
+W?GALEPATH::	.ZWORD	"galepath"
+	0
+	.BYTE	2
+W?GALLERY::	.ZWORD	"gallery"
+	0
+	.BYTE	2
+W?GANGWAY::	.ZWORD	"gangway"
+	0
+	.BYTE	2
+W?GARDEN::	.ZWORD	"garden"
+	0
+	.BYTE	2
+W?GARRISON::	.ZWORD	"garrison"
+	0
+	.BYTE	2
+W?GATE::	.ZWORD	"gate"
+	0
+	.BYTE	2
+W?GATE-TOWER::	.ZWORD	"gate-towe"
+	0
+	.BYTE	2
+W?GATES::	.ZWORD	"gates"
+	0
+	.BYTE	2
+W?GAUDY::	.ZWORD	"gaudy"
+	0
+	.BYTE	4
+W?GAUNT::	.ZWORD	"gaunt"
+	0
+	.BYTE	4
+W?GET::	.ZWORD	"get"
+	ACT?TAKE
+	.BYTE	1
+W?GIANT::	.ZWORD	"giant"
+	W?LARGE
+	.BYTE	0
+W?GIGANTIC::	.ZWORD	"gigantic"
+	W?LARGE
+	.BYTE	0
+W?GIVE::	.ZWORD	"give"
+	ACT?HAND
+	.BYTE	1
+W?GLACIER::	.ZWORD	"glacier"
+	0
+	.BYTE	2
+W?GLASS::	.ZWORD	"glass"
+	0
+	.BYTE	6
+W?GLITTERY::	.ZWORD	"glittery"
+	0
+	.BYTE	4
+W?GLOOMY::	.ZWORD	"gloomy"
+	0
+	.BYTE	4
+W?GLOOP::	.ZWORD	"gloop"
+	0
+	.BYTE	6
+W?GLOOPS::	.ZWORD	"gloops"
+	0
+	.BYTE	2
+W?GLOVE::	.ZWORD	"glove"
+	0
+	.BYTE	2
+W?GNARLED::	.ZWORD	"gnarled"
+	0
+	.BYTE	4
+W?GO::	.ZWORD	"go"
+	ACT?WALK
+	.BYTE	17
+W?GODDAMN::	.ZWORD	"goddamn"
+	0
+	.BYTE	0
+W?GODDAMNED::	.ZWORD	"goddamned"
+	0
+	.BYTE	0
+W?GOGGLES::	.ZWORD	"goggles"
+	0
+	.BYTE	2
+W?GOLD::	.ZWORD	"gold"
+	0
+	.BYTE	4
+W?GOLDEN::	.ZWORD	"golden"
+	0
+	.BYTE	4
+W?GONDOLA::	.ZWORD	"gondola"
+	0
+	.BYTE	2
+W?GOOSE::	.ZWORD	"goose"
+	0
+	.BYTE	2
+W?GOOZUMS::	.ZWORD	"goozums"
+	0
+	.BYTE	2
+W?GRAB::	.ZWORD	"grab"
+	ACT?TAKE
+	.BYTE	1
+W?GRACEFUL::	.ZWORD	"graceful"
+	0
+	.BYTE	4
+W?GRANOLA::	.ZWORD	"granola"
+	0
+	.BYTE	6
+W?GRAVEL::	.ZWORD	"gravel"
+	0
+	.BYTE	2
+W?GRAVELLY::	.ZWORD	"gravelly"
+	0
+	.BYTE	4
+W?GRAY::	.ZWORD	"gray"
+	0
+	.BYTE	4
+W?GRAZING::	.ZWORD	"grazing"
+	0
+	.BYTE	4
+W?GREAT::	.ZWORD	"great"
+	0
+	.BYTE	4
+W?GREATER::	.ZWORD	"greater"
+	0
+	.BYTE	4
+W?GREEN::	.ZWORD	"green"
+	0
+	.BYTE	4
+W?GREENHOUSE::	.ZWORD	"greenhous"
+	0
+	.BYTE	2
+W?GREET::	.ZWORD	"greet"
+	W?MEET
+	.BYTE	0
+W?GREY::	.ZWORD	"grey"
+	0
+	.BYTE	4
+W?GROTTO::	.ZWORD	"grotto"
+	0
+	.BYTE	2
+W?GROUND::	.ZWORD	"ground"
+	0
+	.BYTE	2
+W?GRUBBO::	.ZWORD	"grubbo"
+	0
+	.BYTE	2
+W?GRUBBO-BY-THE-SEA::	.ZWORD	"grubbo-by"
+	0
+	.BYTE	2
+W?GRUE::	.ZWORD	"grue"
+	0
+	.BYTE	2
+W?GRUES::	.ZWORD	"grues"
+	0
+	.BYTE	2
+W?GRUMPY::	.ZWORD	"grumpy"
+	0
+	.BYTE	4
+W?GUE::	.ZWORD	"gue"
+	0
+	.BYTE	2
+W?GUESS::	.ZWORD	"guess"
+	ACT?SAY
+	.BYTE	1
+W?GUILD::	.ZWORD	"guild"
+	0
+	.BYTE	2
+W?GULCH::	.ZWORD	"gulch"
+	0
+	.BYTE	2
+W?GUMBOZ::	.ZWORD	"gumboz"
+	0
+	.BYTE	2
+W?GUMBOZ'S::	.ZWORD	"gumboz's"
+	0
+	.BYTE	4
+W?GUMFFBEAST::	.ZWORD	"gumffbeas"
+	0
+	.BYTE	2
+W?GURTH::	.ZWORD	"gurth"
+	0
+	.BYTE	6
+W?GUSTAV::	.ZWORD	"gustav"
+	0
+	.BYTE	4
+W?GUTTERING::	.ZWORD	"guttering"
+	0
+	.BYTE	4
+W?GYM::	.ZWORD	"gym"
+	0
+	.BYTE	2
+W?HALF-BURIED::	.ZWORD	"half-buri"
+	0
+	.BYTE	4
+W?HALL::	.ZWORD	"hall"
+	0
+	.BYTE	2
+W?HAMMER::	.ZWORD	"hammer"
+	0
+	.BYTE	2
+W?HAND::	.ZWORD	"hand"
+	ACT?HAND
+	.BYTE	7
+W?HAND-HOLE::	.ZWORD	"hand-hole"
+	0
+	.BYTE	2
+W?HANDMADE::	.ZWORD	"handmade"
+	0
+	.BYTE	4
+W?HANDS::	.ZWORD	"hands"
+	0
+	.BYTE	2
+W?HANG::	.ZWORD	"hang"
+	ACT?HANG
+	.BYTE	1
+W?HANGAR::	.ZWORD	"hangar"
+	0
+	.BYTE	2
+W?HANGING::	.ZWORD	"hanging"
+	0
+	.BYTE	2
+W?HANGINGS::	.ZWORD	"hangings"
+	0
+	.BYTE	2
+W?HAPHAZARD::	.ZWORD	"haphazard"
+	0
+	.BYTE	4
+W?HARD::	.ZWORD	"hard"
+	0
+	.BYTE	4
+W?HARDHAT::	.ZWORD	"hardhat"
+	0
+	.BYTE	2
+W?HARDY::	.ZWORD	"hardy"
+	0
+	.BYTE	4
+W?HARMONICA::	.ZWORD	"harmonica"
+	0
+	.BYTE	2
+W?HAS::	.ZWORD	"has"
+	0
+	.BYTE	0
+W?HASN'T::	.ZWORD	"hasn't"
+	0
+	.BYTE	0
+W?HAT::	.ZWORD	"hat"
+	0
+	.BYTE	2
+W?HATCH::	.ZWORD	"hatch"
+	0
+	.BYTE	2
+W?HAVE::	.ZWORD	"have"
+	0
+	.BYTE	0
+W?HAVEN'T::	.ZWORD	"haven't"
+	0
+	.BYTE	0
+W?HE'S::	.ZWORD	"he's"
+	0
+	.BYTE	0
+W?HEAD::	.ZWORD	"head"
+	0
+	.BYTE	2
+W?HEADQUARTERS::	.ZWORD	"headquart"
+	0
+	.BYTE	6
+W?HEALTHY::	.ZWORD	"healthy"
+	0
+	.BYTE	4
+W?HEAR::	.ZWORD	"hear"
+	ACT?HEAR
+	.BYTE	1
+W?HEAVY::	.ZWORD	"heavy"
+	0
+	.BYTE	4
+W?HELL::	.ZWORD	"hell"
+	0
+	.BYTE	0
+W?HELLHOUND::	.ZWORD	"hellhound"
+	0
+	.BYTE	6
+W?HELLO::	.ZWORD	"hello"
+	ACT?HELLO
+	.BYTE	1
+W?HELMET::	.ZWORD	"helmet"
+	0
+	.BYTE	2
+W?HELP::	.ZWORD	"help"
+	ACT?HELP
+	.BYTE	1
+W?HER::	.ZWORD	"her"
+	0
+	.BYTE	2
+W?HERD::	.ZWORD	"herd"
+	0
+	.BYTE	2
+W?HERE::	.ZWORD	"here"
+	0
+	.BYTE	2
+W?HERSELF::	.ZWORD	"herself"
+	0
+	.BYTE	2
+W?HEXAGON-SHAPED::	.ZWORD	"hexagon-s"
+	0
+	.BYTE	4
+W?HEXAGONAL::	.ZWORD	"hexagonal"
+	0
+	.BYTE	4
+W?HI::	.ZWORD	"hi"
+	ACT?HELLO
+	.BYTE	1
+W?HIDDEN::	.ZWORD	"hidden"
+	0
+	.BYTE	4
+W?HIDE::	.ZWORD	"hide"
+	ACT?HIDE
+	.BYTE	1
+W?HIDEOZ::	.ZWORD	"hideoz"
+	0
+	.BYTE	2
+W?HIGH::	.ZWORD	"high"
+	0
+	.BYTE	4
+W?HIGHWAY::	.ZWORD	"highway"
+	0
+	.BYTE	6
+W?HILDEBUD::	.ZWORD	"hildebud"
+	ACT?SIZUL
+	.BYTE	3
+W?HIM::	.ZWORD	"him"
+	0
+	.BYTE	2
+W?HIMSELF::	.ZWORD	"himself"
+	0
+	.BYTE	2
+W?HINT::	.ZWORD	"hint"
+	ACT?HELP
+	.BYTE	1
+W?HINTS::	.ZWORD	"hints"
+	ACT?HELP
+	.BYTE	1
+W?HIS::	.ZWORD	"his"
+	0
+	.BYTE	4
+W?HIT::	.ZWORD	"hit"
+	ACT?ATTACK
+	.BYTE	1
+W?HOCKEY::	.ZWORD	"hockey"
+	0
+	.BYTE	4
+W?HOLD::	.ZWORD	"hold"
+	ACT?TAKE
+	.BYTE	3
+W?HOLE::	.ZWORD	"hole"
+	0
+	.BYTE	2
+W?HOMING::	.ZWORD	"homing"
+	0
+	.BYTE	4
+W?HONKO::	.ZWORD	"honko"
+	0
+	.BYTE	2
+W?HOP::	.ZWORD	"hop"
+	ACT?SKIP
+	.BYTE	1
+W?HORSE::	.ZWORD	"horse"
+	0
+	.BYTE	2
+W?HOTHOUSE::	.ZWORD	"hothouse"
+	0
+	.BYTE	2
+W?HOVEL::	.ZWORD	"hovel"
+	0
+	.BYTE	2
+W?HOW::	.ZWORD	"how"
+	0
+	.BYTE	0
+W?HOW'S::	.ZWORD	"how's"
+	0
+	.BYTE	0
+W?HQ::	.ZWORD	"hq"
+	0
+	.BYTE	6
+W?HUGE::	.ZWORD	"huge"
+	W?LARGE
+	.BYTE	0
+W?HUNDRED::	.ZWORD	"hundred"
+	0
+	.BYTE	4
+W?HUNGRY::	.ZWORD	"hungry"
+	0
+	.BYTE	4
+W?HUNK::	.ZWORD	"hunk"
+	0
+	.BYTE	2
+W?HURL::	.ZWORD	"hurl"
+	ACT?THROW
+	.BYTE	1
+W?HUT::	.ZWORD	"hut"
+	0
+	.BYTE	2
+W?I::	.ZWORD	"i"
+	ACT?INVENTORY
+	.BYTE	1
+W?I'D::	.ZWORD	"i'd"
+	0
+	.BYTE	0
+W?I'LL::	.ZWORD	"i'll"
+	0
+	.BYTE	0
+W?I'M::	.ZWORD	"i'm"
+	0
+	.BYTE	0
+W?I'VE::	.ZWORD	"i've"
+	0
+	.BYTE	0
+W?ICE::	.ZWORD	"ice"
+	0
+	.BYTE	2
+W?ICKY::	.ZWORD	"icky"
+	0
+	.BYTE	4
+W?IDOL::	.ZWORD	"idol"
+	0
+	.BYTE	2
+W?II::	.ZWORD	"ii"
+	0
+	.BYTE	2
+W?III::	.ZWORD	"iii"
+	0
+	.BYTE	2
+W?IMPRESSIVE::	.ZWORD	"impressiv"
+	0
+	.BYTE	4
+W?IN::	.ZWORD	"in"
+	.BYTE	53
+	.BYTE 0
+	.BYTE	56
+W?INANIMATION::	.ZWORD	"inanimati"
+	0
+	.BYTE	4
+W?INCREDIBLY::	.ZWORD	"incredibl"
+	0
+	.BYTE	4
+W?INEPTITUDE::	.ZWORD	"ineptitud"
+	0
+	.BYTE	2
+W?INFOCOM::	.ZWORD	"infocom"
+	0
+	.BYTE	2
+W?INGREDIENTS::	.ZWORD	"ingredien"
+	0
+	.BYTE	2
+W?INKWELL::	.ZWORD	"inkwell"
+	0
+	.BYTE	2
+W?INNER::	.ZWORD	"inner"
+	0
+	.BYTE	4
+W?INQUISITION::	.ZWORD	"inquisiti"
+	0
+	.BYTE	2
+W?INSCRIPTION::	.ZWORD	"inscripti"
+	0
+	.BYTE	2
+W?INSERT::	.ZWORD	"insert"
+	ACT?STICK
+	.BYTE	1
+W?INSIDE::	.ZWORD	"inside"
+	W?IN
+	.BYTE	0
+W?INSPECT::	.ZWORD	"inspect"
+	ACT?EXAMINE
+	.BYTE	1
+W?INSTALL::	.ZWORD	"install"
+	ACT?STICK
+	.BYTE	1
+W?INSTRUCTIONS::	.ZWORD	"instructi"
+	0
+	.BYTE	6
+W?INSTRUMENTS::	.ZWORD	"instrumen"
+	0
+	.BYTE	2
+W?INT.NUM::	.ZWORD	"int.num"
+	0
+	.BYTE	6
+W?INT.TIM::	.ZWORD	"int.tim"
+	0
+	.BYTE	6
+W?INTERNATIONAL::	.ZWORD	"internati"
+	0
+	.BYTE	6
+W?INTO::	.ZWORD	"into"
+	W?IN
+	.BYTE	0
+W?INVENTORY::	.ZWORD	"inventory"
+	ACT?INVENTORY
+	.BYTE	1
+W?INVISICLUES::	.ZWORD	"invisiclu"
+	ACT?HELP
+	.BYTE	1
+W?IRON::	.ZWORD	"iron"
+	0
+	.BYTE	6
+W?IRON-REINFORCED::	.ZWORD	"iron-rein"
+	0
+	.BYTE	4
+W?IRREGULAR::	.ZWORD	"irregular"
+	0
+	.BYTE	4
+W?IRVING::	.ZWORD	"irving"
+	0
+	.BYTE	2
+W?IS::	.ZWORD	"is"
+	0
+	.BYTE	0
+W?ISN'T::	.ZWORD	"isn't"
+	0
+	.BYTE	0
+W?IT::	.ZWORD	"it"
+	0
+	.BYTE	2
+W?IT'S::	.ZWORD	"it's"
+	0
+	.BYTE	0
+W?ITS::	.ZWORD	"its"
+	0
+	.BYTE	4
+W?IV::	.ZWORD	"iv"
+	0
+	.BYTE	2
+W?J::	.ZWORD	"j"
+	0
+	.BYTE	6
+W?JAM::	.ZWORD	"jam"
+	0
+	.BYTE	2
+W?JELLY::	.ZWORD	"jelly"
+	0
+	.BYTE	2
+W?JERRIMORE::	.ZWORD	"jerrimore"
+	0
+	.BYTE	2
+W?JESTER::	.ZWORD	"jester"
+	0
+	.BYTE	2
+W?JESTER'S::	.ZWORD	"jester's"
+	JESTER
+	.BYTE	4
+W?JESTERS::	.ZWORD	"jesters"
+	0
+	.BYTE	2
+W?JEWEL::	.ZWORD	"jewel"
+	0
+	.BYTE	2
+W?JOHANN::	.ZWORD	"johann"
+	0
+	.BYTE	6
+W?JOHN::	.ZWORD	"john"
+	0
+	.BYTE	6
+W?JOKER::	.ZWORD	"joker"
+	0
+	.BYTE	2
+W?JULIUS::	.ZWORD	"julius"
+	0
+	.BYTE	2
+W?JUMP::	.ZWORD	"jump"
+	ACT?JUMP
+	.BYTE	1
+W?KEG::	.ZWORD	"keg"
+	0
+	.BYTE	2
+W?KENNEL::	.ZWORD	"kennel"
+	0
+	.BYTE	2
+W?KENNELS::	.ZWORD	"kennels"
+	0
+	.BYTE	2
+W?KETTLE::	.ZWORD	"kettle"
+	0
+	.BYTE	2
+W?KEY::	.ZWORD	"key"
+	0
+	.BYTE	6
+W?KEY-SHAPED::	.ZWORD	"key-shape"
+	0
+	.BYTE	4
+W?KEYHOLE::	.ZWORD	"keyhole"
+	0
+	.BYTE	2
+W?KEYS::	.ZWORD	"keys"
+	W?KEY
+	.BYTE	2
+W?KICK::	.ZWORD	"kick"
+	ACT?KICK
+	.BYTE	1
+W?KILL::	.ZWORD	"kill"
+	ACT?ATTACK
+	.BYTE	1
+W?KING::	.ZWORD	"king"
+	0
+	.BYTE	6
+W?KISS::	.ZWORD	"kiss"
+	ACT?KISS
+	.BYTE	1
+W?KITCHEN::	.ZWORD	"kitchen"
+	0
+	.BYTE	2
+W?KNIFE::	.ZWORD	"knife"
+	0
+	.BYTE	2
+W?KNIGHT::	.ZWORD	"knight"
+	0
+	.BYTE	2
+W?KNOCK::	.ZWORD	"knock"
+	ACT?KNOCK
+	.BYTE	1
+W?KORBOZ::	.ZWORD	"korboz"
+	0
+	.BYTE	2
+W?KORBOZ'S::	.ZWORD	"korboz's"
+	0
+	.BYTE	4
+W?L::	.ZWORD	"l"
+	ACT?LOOK
+	.BYTE	1
+W?LABEL::	.ZWORD	"label"
+	0
+	.BYTE	2
+W?LABORATORY::	.ZWORD	"laborator"
+	0
+	.BYTE	2
+W?LADDER::	.ZWORD	"ladder"
+	0
+	.BYTE	2
+W?LAIR::	.ZWORD	"lair"
+	0
+	.BYTE	2
+W?LAKE::	.ZWORD	"lake"
+	0
+	.BYTE	6
+W?LAMP::	.ZWORD	"lamp"
+	0
+	.BYTE	2
+W?LANCE::	.ZWORD	"lance"
+	0
+	.BYTE	2
+W?LAND::	.ZWORD	"land"
+	0
+	.BYTE	2
+W?LANDSCAPE::	.ZWORD	"landscape"
+	0
+	.BYTE	2
+W?LANTERN::	.ZWORD	"lantern"
+	0
+	.BYTE	2
+W?LARGE::	.ZWORD	"large"
+	0
+	.BYTE	4
+W?LARGER::	.ZWORD	"larger"
+	0
+	.BYTE	4
+W?LARGEST::	.ZWORD	"largest"
+	0
+	.BYTE	4
+W?LARGONETH::	.ZWORD	"largoneth"
+	0
+	.BYTE	6
+W?LAWN::	.ZWORD	"lawn"
+	0
+	.BYTE	4
+W?LAYERED::	.ZWORD	"layered"
+	0
+	.BYTE	4
+W?LEAD::	.ZWORD	"lead"
+	ACT?LEAD
+	.BYTE	1
+W?LEADER::	.ZWORD	"leader"
+	0
+	.BYTE	2
+W?LEAP::	.ZWORD	"leap"
+	ACT?JUMP
+	.BYTE	1
+W?LEAVE::	.ZWORD	"leave"
+	ACT?LEAVE
+	.BYTE	1
+W?LEDGE::	.ZWORD	"ledge"
+	0
+	.BYTE	2
+W?LEFT::	.ZWORD	"left"
+	0
+	.BYTE	6
+W?LEONARDO::	.ZWORD	"leonardo"
+	0
+	.BYTE	6
+W?LESTER::	.ZWORD	"lester"
+	0
+	.BYTE	2
+W?LET::	.ZWORD	"let"
+	ACT?LET
+	.BYTE	1
+W?LET'S::	.ZWORD	"let's"
+	0
+	.BYTE	0
+W?LETTER::	.ZWORD	"letter"
+	0
+	.BYTE	4
+W?LETTERING::	.ZWORD	"lettering"
+	0
+	.BYTE	2
+W?LEVER::	.ZWORD	"lever"
+	0
+	.BYTE	2
+W?LIBRARY::	.ZWORD	"library"
+	0
+	.BYTE	2
+W?LICK::	.ZWORD	"lick"
+	ACT?TASTE
+	.BYTE	1
+W?LID::	.ZWORD	"lid"
+	0
+	.BYTE	2
+W?LIE::	.ZWORD	"lie"
+	ACT?LIE
+	.BYTE	1
+W?LIFT::	.ZWORD	"lift"
+	ACT?RAISE
+	.BYTE	1
+W?LIGHT::	.ZWORD	"light"
+	ACT?LIGHT
+	.BYTE	3
+W?LIGHTS::	.ZWORD	"lights"
+	0
+	.BYTE	2
+W?LIKE::	.ZWORD	"like"
+	0
+	.BYTE	0
+W?LILY::	.ZWORD	"lily"
+	0
+	.BYTE	4
+W?LINEN::	.ZWORD	"linen"
+	0
+	.BYTE	2
+W?LIQUID::	.ZWORD	"liquid"
+	0
+	.BYTE	2
+W?LISTEN::	.ZWORD	"listen"
+	ACT?LISTEN
+	.BYTE	1
+W?LITTLE::	.ZWORD	"little"
+	W?SMALL
+	.BYTE	0
+W?LIZOWURT::	.ZWORD	"lizowurt"
+	ACT?SIZUL
+	.BYTE	3
+W?LLOYD::	.ZWORD	"lloyd"
+	0
+	.BYTE	6
+W?LOBSTER::	.ZWORD	"lobster"
+	0
+	.BYTE	2
+W?LOCATION::	.ZWORD	"location"
+	0
+	.BYTE	2
+W?LOCK::	.ZWORD	"lock"
+	ACT?LOCK
+	.BYTE	3
+W?LOCKER::	.ZWORD	"locker"
+	0
+	.BYTE	2
+W?LOCKET::	.ZWORD	"locket"
+	0
+	.BYTE	2
+W?LONE::	.ZWORD	"lone"
+	0
+	.BYTE	4
+W?LONGEST::	.ZWORD	"longest"
+	0
+	.BYTE	4
+W?LOOK::	.ZWORD	"look"
+	ACT?LOOK
+	.BYTE	1
+W?LORD::	.ZWORD	"lord"
+	0
+	.BYTE	4
+W?LOUVERED::	.ZWORD	"louvered"
+	0
+	.BYTE	4
+W?LOW::	.ZWORD	"low"
+	0
+	.BYTE	4
+W?LOWER::	.ZWORD	"lower"
+	ACT?LOWER
+	.BYTE	5
+W?LUCREZIA::	.ZWORD	"lucrezia"
+	0
+	.BYTE	6
+W?LULLABY::	.ZWORD	"lullaby"
+	0
+	.BYTE	2
+W?LULLABYE::	.ZWORD	"lullabye"
+	0
+	.BYTE	2
+W?LURKING::	.ZWORD	"lurking"
+	0
+	.BYTE	4
+W?MACHICOLATION::	.ZWORD	"machicola"
+	0
+	.BYTE	2
+W?MAGE::	.ZWORD	"mage"
+	0
+	.BYTE	2
+W?MAGGLEBAR::	.ZWORD	"magglebar"
+	0
+	.BYTE	2
+W?MAGIC::	.ZWORD	"magic"
+	0
+	.BYTE	4
+W?MAIDEN::	.ZWORD	"maiden"
+	0
+	.BYTE	2
+W?MAIL::	.ZWORD	"mail"
+	ACT?SEND
+	.BYTE	1
+W?MAN::	.ZWORD	"man"
+	0
+	.BYTE	2
+W?MAN'S::	.ZWORD	"man's"
+	0
+	.BYTE	4
+W?MANUSCRIPT::	.ZWORD	"manuscrip"
+	0
+	.BYTE	2
+W?MAP::	.ZWORD	"map"
+	ACT?MAP
+	.BYTE	1
+W?MAREILON::	.ZWORD	"mareilon"
+	0
+	.BYTE	2
+W?MARSH::	.ZWORD	"marsh"
+	0
+	.BYTE	2
+W?MASS::	.ZWORD	"mass"
+	0
+	.BYTE	2
+W?MASSACRE::	.ZWORD	"massacre"
+	0
+	.BYTE	2
+W?MASSIVE::	.ZWORD	"massive"
+	W?LARGE
+	.BYTE	0
+W?MATCH::	.ZWORD	"match"
+	0
+	.BYTE	2
+W?MAYBE::	.ZWORD	"maybe"
+	ACT?MAYBE
+	.BYTE	1
+W?MAZE-LIKE::	.ZWORD	"maze-like"
+	0
+	.BYTE	4
+W?ME::	.ZWORD	"me"
+	0
+	.BYTE	2
+W?MEASURE::	.ZWORD	"measure"
+	ACT?MEASURE
+	.BYTE	1
+W?MEDAL::	.ZWORD	"medal"
+	0
+	.BYTE	2
+W?MEET::	.ZWORD	"meet"
+	ACT?MEET
+	.BYTE	1
+W?MEGABOZ::	.ZWORD	"megaboz"
+	0
+	.BYTE	2
+W?MELVIN::	.ZWORD	"melvin"
+	0
+	.BYTE	2
+W?MEMO::	.ZWORD	"memo"
+	0
+	.BYTE	2
+W?MERETZKY::	.ZWORD	"meretzky"
+	0
+	.BYTE	2
+W?MERRY-GO-ROUND::	.ZWORD	"merry-go-"
+	0
+	.BYTE	4
+W?METRONOME::	.ZWORD	"metronome"
+	0
+	.BYTE	2
+W?MICHAEL::	.ZWORD	"michael"
+	0
+	.BYTE	4
+W?MIDDLE::	.ZWORD	"middle"
+	0
+	.BYTE	4
+W?MIGHTY::	.ZWORD	"mighty"
+	W?LARGE
+	.BYTE	0
+W?MILITARY::	.ZWORD	"military"
+	0
+	.BYTE	4
+W?MILKY::	.ZWORD	"milky"
+	0
+	.BYTE	4
+W?MILLION::	.ZWORD	"million"
+	0
+	.BYTE	4
+W?MINE::	.ZWORD	"mine"
+	0
+	.BYTE	6
+W?MINES::	.ZWORD	"mines"
+	0
+	.BYTE	2
+W?MINX::	.ZWORD	"minx"
+	0
+	.BYTE	2
+W?MIRROR::	.ZWORD	"mirror"
+	0
+	.BYTE	6
+W?MIST-COVERED::	.ZWORD	"mist-cove"
+	0
+	.BYTE	4
+W?MITHICAN::	.ZWORD	"mithican"
+	0
+	.BYTE	4
+W?MITHICUS::	.ZWORD	"mithicus"
+	0
+	.BYTE	2
+W?MIZNIA::	.ZWORD	"miznia"
+	0
+	.BYTE	2
+W?MIZNIAPORT::	.ZWORD	"mizniapor"
+	0
+	.BYTE	2
+W?MOAT::	.ZWORD	"moat"
+	0
+	.BYTE	2
+W?MOBY::	.ZWORD	"moby"
+	0
+	.BYTE	4
+W?MODE::	.ZWORD	"mode"
+	ACT?MODE
+	.BYTE	1
+W?MODEL::	.ZWORD	"model"
+	0
+	.BYTE	2
+W?MONEY::	.ZWORD	"money"
+	0
+	.BYTE	2
+W?MONOGRAM::	.ZWORD	"monogram"
+	0
+	.BYTE	2
+W?MONOGRAMMED::	.ZWORD	"monogramm"
+	0
+	.BYTE	4
+W?MONSTER::	.ZWORD	"monster"
+	0
+	.BYTE	2
+W?MOOSE::	.ZWORD	"moose"
+	0
+	.BYTE	2
+W?MORDEX::	.ZWORD	"mordex"
+	ACT?SIZUL
+	.BYTE	3
+W?MORE::	.ZWORD	"more"
+	0
+	.BYTE	4
+W?MOUNT::	.ZWORD	"mount"
+	ACT?BOARD
+	.BYTE	5
+W?MOUNTAIN::	.ZWORD	"mountain"
+	0
+	.BYTE	2
+W?MOUNTAINS::	.ZWORD	"mountains"
+	0
+	.BYTE	2
+W?MOUNTED::	.ZWORD	"mounted"
+	0
+	.BYTE	4
+W?MOUSE::	.ZWORD	"mouse"
+	0
+	.BYTE	2
+W?MOUTH::	.ZWORD	"mouth"
+	0
+	.BYTE	2
+W?MOVE::	.ZWORD	"move"
+	ACT?MOVE
+	.BYTE	1
+W?MUCK::	.ZWORD	"muck"
+	0
+	.BYTE	2
+W?MUMBERBUR::	.ZWORD	"mumberbur"
+	0
+	.BYTE	2
+W?MUMBERTHRAX::	.ZWORD	"mumberthr"
+	0
+	.BYTE	2
+W?MUMBO::	.ZWORD	"mumbo"
+	0
+	.BYTE	6
+W?MURDER::	.ZWORD	"murder"
+	ACT?ATTACK
+	.BYTE	5
+W?MUSEUM::	.ZWORD	"museum"
+	0
+	.BYTE	2
+W?MUSIC::	.ZWORD	"music"
+	0
+	.BYTE	2
+W?MUSICAL::	.ZWORD	"musical"
+	0
+	.BYTE	4
+W?MUTTERING::	.ZWORD	"muttering"
+	0
+	.BYTE	4
+W?MY::	.ZWORD	"my"
+	0
+	.BYTE	4
+W?MYRON::	.ZWORD	"myron"
+	0
+	.BYTE	2
+W?MYSELF::	.ZWORD	"myself"
+	0
+	.BYTE	2
+W?N::	.ZWORD	"n"
+	W?NORTH
+	.BYTE	0
+W?N-S::	.ZWORD	"n-s"
+	0
+	.BYTE	4
+W?NAH::	.ZWORD	"nah"
+	ACT?NO
+	.BYTE	1
+W?NAP::	.ZWORD	"nap"
+	ACT?SLEEP
+	.BYTE	3
+W?NAPKINS::	.ZWORD	"napkins"
+	0
+	.BYTE	2
+W?NARROW::	.ZWORD	"narrow"
+	0
+	.BYTE	4
+W?NATURAL::	.ZWORD	"natural"
+	0
+	.BYTE	4
+W?NE::	.ZWORD	"ne"
+	.BYTE	62
+	.BYTE 0
+	.BYTE	14
+W?NEAR::	.ZWORD	"near"
+	W?BEFORE
+	.BYTE	0
+W?NEST::	.ZWORD	"nest"
+	0
+	.BYTE	2
+W?NEW::	.ZWORD	"new"
+	0
+	.BYTE	4
+W?NEWEST::	.ZWORD	"newest"
+	0
+	.BYTE	4
+W?NEWSPAPER::	.ZWORD	"newspaper"
+	0
+	.BYTE	2
+W?NEXT::	.ZWORD	"next"
+	W?BEFORE
+	.BYTE	0
+W?NIBBLE::	.ZWORD	"nibble"
+	ACT?TASTE
+	.BYTE	1
+W?NINE::	.ZWORD	"nine"
+	0
+	.BYTE	4
+W?NINE-GLOOP::	.ZWORD	"nine-gloo"
+	0
+	.BYTE	4
+W?NINETEEN::	.ZWORD	"nineteen"
+	0
+	.BYTE	0
+W?NINETY::	.ZWORD	"ninety"
+	0
+	.BYTE	0
+W?NINTH::	.ZWORD	"ninth"
+	0
+	.BYTE	4
+W?NO::	.ZWORD	"no"
+	ACT?NO
+	.BYTE	1
+W?NO.WORD::	.ZWORD	"no.word"
+	0
+	.BYTE	4
+W?NOPE::	.ZWORD	"nope"
+	ACT?NO
+	.BYTE	1
+W?NORTH::	.ZWORD	"north"
+	.BYTE	63
+	.BYTE 0
+	.BYTE	14
+W?NORTH-SOUTH::	.ZWORD	"north-sou"
+	0
+	.BYTE	4
+W?NORTHE::	.ZWORD	"northe"
+	W?NE
+	.BYTE	0
+W?NORTHEAST::	.ZWORD	"northeast"
+	W?NE
+	.BYTE	0
+W?NORTHW::	.ZWORD	"northw"
+	W?NW
+	.BYTE	0
+W?NORTHWEST::	.ZWORD	"northwest"
+	W?NW
+	.BYTE	0
+W?NOSE::	.ZWORD	"nose"
+	0
+	.BYTE	2
+W?NOSTRIL::	.ZWORD	"nostril"
+	0
+	.BYTE	2
+W?NOT::	.ZWORD	"not"
+	0
+	.BYTE	32
+W?NOTEBOOK::	.ZWORD	"notebook"
+	0
+	.BYTE	2
+W?NOTICE::	.ZWORD	"notice"
+	0
+	.BYTE	2
+W?NOTIFY::	.ZWORD	"notify"
+	ACT?NOTIFY
+	.BYTE	1
+W?NUMBER::	.ZWORD	"number"
+	0
+	.BYTE	2
+W?NUMBERS::	.ZWORD	"numbers"
+	0
+	.BYTE	2
+W?NUT::	.ZWORD	"nut"
+	0
+	.BYTE	6
+W?NUTCRACKER::	.ZWORD	"nutcracke"
+	0
+	.BYTE	2
+W?NUTSHELL::	.ZWORD	"nutshell"
+	0
+	.BYTE	2
+W?NW::	.ZWORD	"nw"
+	.BYTE	56
+	.BYTE 0
+	.BYTE	14
+W?NW-SE::	.ZWORD	"nw-se"
+	0
+	.BYTE	4
+W?O::	.ZWORD	"o"
+	0
+	.BYTE	160
+W?OAK::	.ZWORD	"oak"
+	0
+	.BYTE	6
+W?OAKEN::	.ZWORD	"oaken"
+	0
+	.BYTE	4
+W?OAKS::	.ZWORD	"oaks"
+	W?OAK
+	.BYTE	2
+W?OASIS::	.ZWORD	"oasis"
+	0
+	.BYTE	2
+W?OBSERVE::	.ZWORD	"observe"
+	ACT?EXAMINE
+	.BYTE	1
+W?OCEAN::	.ZWORD	"ocean"
+	0
+	.BYTE	2
+W?ODD::	.ZWORD	"odd"
+	0
+	.BYTE	4
+W?OF::	.ZWORD	"of"
+	0
+	.BYTE	129
+W?OFF::	.ZWORD	"off"
+	0
+	.BYTE	16
+W?OFFER::	.ZWORD	"offer"
+	ACT?HAND
+	.BYTE	1
+W?OK::	.ZWORD	"ok"
+	ACT?YES
+	.BYTE	1
+W?OKAY::	.ZWORD	"okay"
+	ACT?YES
+	.BYTE	1
+W?OLD::	.ZWORD	"old"
+	0
+	.BYTE	4
+W?OLDEST::	.ZWORD	"oldest"
+	0
+	.BYTE	4
+W?OLIVER::	.ZWORD	"oliver"
+	0
+	.BYTE	4
+W?OMAR::	.ZWORD	"omar"
+	0
+	.BYTE	2
+W?OMINOUS::	.ZWORD	"ominous"
+	0
+	.BYTE	4
+W?ON::	.ZWORD	"on"
+	0
+	.BYTE	48
+W?ONCE::	.ZWORD	"once"
+	0
+	.BYTE	136
+W?ONE::	.ZWORD	"one"
+	0
+	.BYTE	6
+W?ONTO::	.ZWORD	"onto"
+	W?ON
+	.BYTE	0
+W?OOPS::	.ZWORD	"oops"
+	0
+	.BYTE	160
+W?OPEN::	.ZWORD	"open"
+	ACT?OPEN
+	.BYTE	5
+W?ORACLE::	.ZWORD	"oracle"
+	0
+	.BYTE	2
+W?ORACLE'S::	.ZWORD	"oracle's"
+	0
+	.BYTE	4
+W?ORANGE::	.ZWORD	"orange"
+	0
+	.BYTE	4
+W?ORB::	.ZWORD	"orb"
+	0
+	.BYTE	2
+W?ORBS::	.ZWORD	"orbs"
+	W?ORB
+	.BYTE	2
+W?ORCHESTRA::	.ZWORD	"orchestra"
+	0
+	.BYTE	2
+W?ORDER::	.ZWORD	"order"
+	ACT?BUY
+	.BYTE	65
+W?ORE::	.ZWORD	"ore"
+	0
+	.BYTE	2
+W?ORNAMENT::	.ZWORD	"ornament"
+	0
+	.BYTE	2
+W?ORNAMENTED::	.ZWORD	"ornamente"
+	0
+	.BYTE	4
+W?OTTO::	.ZWORD	"otto"
+	0
+	.BYTE	2
+W?OTTOBUR::	.ZWORD	"ottobur"
+	0
+	.BYTE	2
+W?OUBLIETTE::	.ZWORD	"oubliette"
+	0
+	.BYTE	2
+W?OUT::	.ZWORD	"out"
+	.BYTE	52
+	.BYTE 0
+	.BYTE	24
+W?OUTER::	.ZWORD	"outer"
+	0
+	.BYTE	4
+W?OUTSIDE::	.ZWORD	"outside"
+	W?OUT
+	.BYTE	0
+W?OVER::	.ZWORD	"over"
+	0
+	.BYTE	16
+W?OVERBOARD::	.ZWORD	"overboard"
+	0
+	.BYTE	16
+W?OVERDONE::	.ZWORD	"overdone"
+	0
+	.BYTE	4
+W?PACKAGE::	.ZWORD	"package"
+	0
+	.BYTE	2
+W?PAD::	.ZWORD	"pad"
+	0
+	.BYTE	2
+W?PAINTING::	.ZWORD	"painting"
+	0
+	.BYTE	2
+W?PAINTINGS::	.ZWORD	"paintings"
+	0
+	.BYTE	2
+W?PAIR::	.ZWORD	"pair"
+	0
+	.BYTE	2
+W?PALM::	.ZWORD	"palm"
+	0
+	.BYTE	2
+W?PAN::	.ZWORD	"pan"
+	0
+	.BYTE	2
+W?PANE::	.ZWORD	"pane"
+	0
+	.BYTE	2
+W?PANES::	.ZWORD	"panes"
+	0
+	.BYTE	2
+W?PAPER::	.ZWORD	"paper"
+	0
+	.BYTE	6
+W?PARAPET::	.ZWORD	"parapet"
+	0
+	.BYTE	2
+W?PARCHMENT::	.ZWORD	"parchment"
+	0
+	.BYTE	6
+W?PARK::	.ZWORD	"park"
+	0
+	.BYTE	2
+W?PARLOR::	.ZWORD	"parlor"
+	0
+	.BYTE	2
+W?PASS::	.ZWORD	"pass"
+	0
+	.BYTE	2
+W?PASSAGE::	.ZWORD	"passage"
+	0
+	.BYTE	2
+W?PASSAGES::	.ZWORD	"passages"
+	W?PASSAGE
+	.BYTE	2
+W?PASSAGEWAY::	.ZWORD	"passagewa"
+	0
+	.BYTE	2
+W?PAT::	.ZWORD	"pat"
+	ACT?TOUCH
+	.BYTE	1
+W?PAUL::	.ZWORD	"paul"
+	0
+	.BYTE	6
+W?PAWN::	.ZWORD	"pawn"
+	0
+	.BYTE	2
+W?PAY::	.ZWORD	"pay"
+	ACT?PAY
+	.BYTE	1
+W?PEG::	.ZWORD	"peg"
+	0
+	.BYTE	6
+W?PEGBOARD::	.ZWORD	"pegboard"
+	0
+	.BYTE	2
+W?PEGGLEBOZ::	.ZWORD	"peggleboz"
+	0
+	.BYTE	2
+W?PEGS::	.ZWORD	"pegs"
+	W?PEG
+	.BYTE	2
+W?PELLET::	.ZWORD	"pellet"
+	0
+	.BYTE	2
+W?PEN::	.ZWORD	"pen"
+	0
+	.BYTE	2
+W?PENCIL::	.ZWORD	"pencil"
+	0
+	.BYTE	2
+W?PENNANT::	.ZWORD	"pennant"
+	0
+	.BYTE	2
+W?PENNANTS::	.ZWORD	"pennants"
+	0
+	.BYTE	2
+W?PERCH::	.ZWORD	"perch"
+	0
+	.BYTE	2
+W?PET::	.ZWORD	"pet"
+	ACT?TOUCH
+	.BYTE	1
+W?PETITE::	.ZWORD	"petite"
+	W?SMALL
+	.BYTE	0
+W?PHEEBOR::	.ZWORD	"pheebor"
+	0
+	.BYTE	2
+W?PHILHARMONIC::	.ZWORD	"philharmo"
+	0
+	.BYTE	4
+W?PHLOID::	.ZWORD	"phloid"
+	0
+	.BYTE	2
+W?PICK::	.ZWORD	"pick"
+	ACT?PICK
+	.BYTE	1
+W?PICKTHORN::	.ZWORD	"pickthorn"
+	0
+	.BYTE	2
+W?PIECE::	.ZWORD	"piece"
+	0
+	.BYTE	2
+W?PIERPONT::	.ZWORD	"pierpont"
+	0
+	.BYTE	6
+W?PIGEON::	.ZWORD	"pigeon"
+	0
+	.BYTE	2
+W?PILE::	.ZWORD	"pile"
+	0
+	.BYTE	2
+W?PINE::	.ZWORD	"pine"
+	0
+	.BYTE	6
+W?PINES::	.ZWORD	"pines"
+	W?PINE
+	.BYTE	2
+W?PISS::	.ZWORD	"piss"
+	0
+	.BYTE	0
+W?PIT::	.ZWORD	"pit"
+	0
+	.BYTE	2
+W?PITS::	.ZWORD	"pits"
+	0
+	.BYTE	2
+W?PLACE::	.ZWORD	"place"
+	ACT?STICK
+	.BYTE	3
+W?PLACID::	.ZWORD	"placid"
+	0
+	.BYTE	4
+W?PLANT::	.ZWORD	"plant"
+	0
+	.BYTE	2
+W?PLANTS::	.ZWORD	"plants"
+	0
+	.BYTE	2
+W?PLAQUE::	.ZWORD	"plaque"
+	0
+	.BYTE	2
+W?PLATFORM::	.ZWORD	"platform"
+	0
+	.BYTE	2
+W?PLATTER::	.ZWORD	"platter"
+	0
+	.BYTE	2
+W?PLAY::	.ZWORD	"play"
+	ACT?PLAY
+	.BYTE	1
+W?PLAZA::	.ZWORD	"plaza"
+	0
+	.BYTE	2
+W?PLEASE::	.ZWORD	"please"
+	0
+	.BYTE	0
+W?PLUSH::	.ZWORD	"plush"
+	0
+	.BYTE	4
+W?POCKET::	.ZWORD	"pocket"
+	0
+	.BYTE	2
+W?POEM::	.ZWORD	"poem"
+	0
+	.BYTE	2
+W?POINT::	.ZWORD	"point"
+	ACT?POINT
+	.BYTE	1
+W?POISON::	.ZWORD	"poison"
+	0
+	.BYTE	2
+W?POLAR::	.ZWORD	"polar"
+	0
+	.BYTE	4
+W?POOL::	.ZWORD	"pool"
+	0
+	.BYTE	2
+W?POORLY-DUG::	.ZWORD	"poorly-du"
+	0
+	.BYTE	4
+W?PORT::	.ZWORD	"port"
+	0
+	.BYTE	6
+W?PORTCULLIS::	.ZWORD	"portculli"
+	0
+	.BYTE	2
+W?PORTHOLE::	.ZWORD	"porthole"
+	0
+	.BYTE	2
+W?PORTRAIT::	.ZWORD	"portrait"
+	0
+	.BYTE	2
+W?PORTRAITS::	.ZWORD	"portraits"
+	0
+	.BYTE	2
+W?POST::	.ZWORD	"post"
+	0
+	.BYTE	2
+W?POSTER::	.ZWORD	"poster"
+	0
+	.BYTE	2
+W?POSTS::	.ZWORD	"posts"
+	W?POST
+	.BYTE	2
+W?POT::	.ZWORD	"pot"
+	0
+	.BYTE	2
+W?POTION::	.ZWORD	"potion"
+	0
+	.BYTE	2
+W?POTIONS::	.ZWORD	"potions"
+	0
+	.BYTE	2
+W?POUR::	.ZWORD	"pour"
+	ACT?POUR
+	.BYTE	1
+W?PRAY::	.ZWORD	"pray"
+	ACT?PRAY
+	.BYTE	1
+W?PRESS::	.ZWORD	"press"
+	ACT?PUSH
+	.BYTE	1
+W?PREVARICON::	.ZWORD	"prevarico"
+	0
+	.BYTE	2
+W?PRICKLY::	.ZWORD	"prickly"
+	0
+	.BYTE	4
+W?PRIEST::	.ZWORD	"priest"
+	0
+	.BYTE	2
+W?PRINT::	.ZWORD	"print"
+	0
+	.BYTE	2
+W?PRINTING::	.ZWORD	"printing"
+	0
+	.BYTE	2
+W?PROCEED::	.ZWORD	"proceed"
+	ACT?WALK
+	.BYTE	1
+W?PROCLAMATION::	.ZWORD	"proclamat"
+	0
+	.BYTE	2
+W?PROUD::	.ZWORD	"proud"
+	0
+	.BYTE	4
+W?PRY::	.ZWORD	"pry"
+	0
+	.BYTE	0
+W?PULL::	.ZWORD	"pull"
+	ACT?MOVE
+	.BYTE	1
+W?PURCHASE::	.ZWORD	"purchase"
+	ACT?BUY
+	.BYTE	1
+W?PURSUE::	.ZWORD	"pursue"
+	ACT?FOLLOW
+	.BYTE	1
+W?PUSH::	.ZWORD	"push"
+	ACT?PUSH
+	.BYTE	1
+W?PUT::	.ZWORD	"put"
+	ACT?STICK
+	.BYTE	1
+W?Q::	.ZWORD	"q"
+	ACT?QUIT
+	.BYTE	1
+W?QUADRUPLET::	.ZWORD	"quadruple"
+	0
+	.BYTE	2
+W?QUAKKO::	.ZWORD	"quakko"
+	0
+	.BYTE	2
+W?QUARRY::	.ZWORD	"quarry"
+	0
+	.BYTE	2
+W?QUARTERS::	.ZWORD	"quarters"
+	0
+	.BYTE	2
+W?QUEEN::	.ZWORD	"queen"
+	0
+	.BYTE	2
+W?QUENDOR::	.ZWORD	"quendor"
+	0
+	.BYTE	2
+W?QUILBOZZA::	.ZWORD	"quilbozza"
+	0
+	.BYTE	4
+W?QUILL::	.ZWORD	"quill"
+	0
+	.BYTE	6
+W?QUINTUPLET::	.ZWORD	"quintuple"
+	0
+	.BYTE	2
+W?QUIT::	.ZWORD	"quit"
+	ACT?QUIT
+	.BYTE	1
+W?RAGWEED::	.ZWORD	"ragweed"
+	0
+	.BYTE	4
+W?RAISE::	.ZWORD	"raise"
+	ACT?RAISE
+	.BYTE	1
+W?RALPH::	.ZWORD	"ralph"
+	0
+	.BYTE	6
+W?RAP::	.ZWORD	"rap"
+	ACT?KNOCK
+	.BYTE	1
+W?RARE::	.ZWORD	"rare"
+	0
+	.BYTE	4
+W?RAVEN::	.ZWORD	"raven"
+	0
+	.BYTE	2
+W?REACH::	.ZWORD	"reach"
+	ACT?REACH
+	.BYTE	1
+W?READ::	.ZWORD	"read"
+	ACT?READ
+	.BYTE	1
+W?REAR::	.ZWORD	"rear"
+	0
+	.BYTE	4
+W?REBUS::	.ZWORD	"rebus"
+	0
+	.BYTE	2
+W?RECIPE::	.ZWORD	"recipe"
+	0
+	.BYTE	6
+W?RECTANGULAR::	.ZWORD	"rectangul"
+	0
+	.BYTE	4
+W?RED::	.ZWORD	"red"
+	0
+	.BYTE	4
+W?REFLECTION::	.ZWORD	"reflectio"
+	0
+	.BYTE	2
+W?REFLECTIVE::	.ZWORD	"reflectiv"
+	0
+	.BYTE	4
+W?REFRESH::	.ZWORD	"refresh"
+	ACT?$REFRESH
+	.BYTE	1
+W?REGAL::	.ZWORD	"regal"
+	0
+	.BYTE	4
+W?RELEASE::	.ZWORD	"release"
+	ACT?DROP
+	.BYTE	1
+W?REMAINS::	.ZWORD	"remains"
+	0
+	.BYTE	2
+W?REMOVE::	.ZWORD	"remove"
+	ACT?REMOVE
+	.BYTE	1
+W?REPELLENT::	.ZWORD	"repellent"
+	0
+	.BYTE	2
+W?REPLY::	.ZWORD	"reply"
+	ACT?SAY
+	.BYTE	1
+W?REPRESENTATION::	.ZWORD	"represent"
+	0
+	.BYTE	2
+W?REPRODUCTION::	.ZWORD	"reproduct"
+	0
+	.BYTE	2
+W?RESCUE::	.ZWORD	"rescue"
+	ACT?SAVE
+	.BYTE	1
+W?REST::	.ZWORD	"rest"
+	ACT?SLEEP
+	.BYTE	5
+W?RESTART::	.ZWORD	"restart"
+	ACT?RESTART
+	.BYTE	1
+W?RESTORE::	.ZWORD	"restore"
+	ACT?RESTORE
+	.BYTE	1
+W?REVOLVE::	.ZWORD	"revolve"
+	ACT?TURN
+	.BYTE	1
+W?RICARDO::	.ZWORD	"ricardo"
+	0
+	.BYTE	2
+W?RICKETY::	.ZWORD	"rickety"
+	0
+	.BYTE	4
+W?RIDDLE::	.ZWORD	"riddle"
+	0
+	.BYTE	2
+W?RIDE::	.ZWORD	"ride"
+	ACT?RIDE
+	.BYTE	1
+W?RIGHT::	.ZWORD	"right"
+	0
+	.BYTE	6
+W?RING::	.ZWORD	"ring"
+	ACT?PUSH
+	.BYTE	3
+W?RIOTS::	.ZWORD	"riots"
+	0
+	.BYTE	2
+W?RISE::	.ZWORD	"rise"
+	ACT?STAND
+	.BYTE	1
+W?RIVER::	.ZWORD	"river"
+	0
+	.BYTE	6
+W?ROBE::	.ZWORD	"robe"
+	0
+	.BYTE	2
+W?ROC::	.ZWORD	"roc"
+	0
+	.BYTE	4
+W?ROCK::	.ZWORD	"rock"
+	0
+	.BYTE	2
+W?ROCKVILLE::	.ZWORD	"rockville"
+	0
+	.BYTE	4
+W?ROCKY::	.ZWORD	"rocky"
+	0
+	.BYTE	4
+W?ROILING::	.ZWORD	"roiling"
+	0
+	.BYTE	4
+W?ROLL::	.ZWORD	"roll"
+	ACT?ROLL
+	.BYTE	1
+W?ROOF::	.ZWORD	"roof"
+	0
+	.BYTE	2
+W?ROOK::	.ZWORD	"rook"
+	0
+	.BYTE	2
+W?ROOM::	.ZWORD	"room"
+	0
+	.BYTE	2
+W?ROOSTER::	.ZWORD	"rooster"
+	0
+	.BYTE	2
+W?ROOT::	.ZWORD	"root"
+	0
+	.BYTE	6
+W?ROOTS::	.ZWORD	"roots"
+	0
+	.BYTE	2
+W?ROPE::	.ZWORD	"rope"
+	0
+	.BYTE	2
+W?ROSE::	.ZWORD	"rose"
+	0
+	.BYTE	2
+W?ROTATE::	.ZWORD	"rotate"
+	ACT?TURN
+	.BYTE	1
+W?ROUSE::	.ZWORD	"rouse"
+	ACT?WAKE
+	.BYTE	1
+W?ROYAL::	.ZWORD	"royal"
+	0
+	.BYTE	4
+W?RUB::	.ZWORD	"rub"
+	ACT?TOUCH
+	.BYTE	1
+W?RUBBER::	.ZWORD	"rubber"
+	0
+	.BYTE	6
+W?RUBY::	.ZWORD	"ruby"
+	0
+	.BYTE	2
+W?RULES::	.ZWORD	"rules"
+	0
+	.BYTE	2
+W?RUMMAGE::	.ZWORD	"rummage"
+	ACT?SEARCH
+	.BYTE	1
+W?RUN::	.ZWORD	"run"
+	ACT?WALK
+	.BYTE	1
+W?RUNES::	.ZWORD	"runes"
+	0
+	.BYTE	2
+W?RUSTY::	.ZWORD	"rusty"
+	0
+	.BYTE	4
+W?S::	.ZWORD	"s"
+	W?SOUTH
+	.BYTE	0
+W?SADDLE::	.ZWORD	"saddle"
+	ACT?SADDLE
+	.BYTE	3
+W?SAILOR::	.ZWORD	"sailor"
+	0
+	.BYTE	2
+W?SAINT::	.ZWORD	"saint"
+	0
+	.BYTE	6
+W?SAMMY::	.ZWORD	"sammy"
+	0
+	.BYTE	2
+W?SAND::	.ZWORD	"sand"
+	0
+	.BYTE	2
+W?SANDBAR::	.ZWORD	"sandbar"
+	0
+	.BYTE	2
+W?SANDSTONE::	.ZWORD	"sandstone"
+	0
+	.BYTE	4
+W?SAPPHIRE::	.ZWORD	"sapphire"
+	0
+	.BYTE	2
+W?SAUCEPAN::	.ZWORD	"saucepan"
+	0
+	.BYTE	2
+W?SAVANNAH::	.ZWORD	"savannah"
+	0
+	.BYTE	2
+W?SAVE::	.ZWORD	"save"
+	ACT?SAVE
+	.BYTE	1
+W?SAY::	.ZWORD	"say"
+	ACT?SAY
+	.BYTE	1
+W?SCALE::	.ZWORD	"scale"
+	ACT?CLIMB
+	.BYTE	5
+W?SCEPTER::	.ZWORD	"scepter"
+	0
+	.BYTE	2
+W?SCEPTRE::	.ZWORD	"sceptre"
+	0
+	.BYTE	2
+W?SCORE::	.ZWORD	"score"
+	ACT?SCORE
+	.BYTE	1
+W?SCRAP::	.ZWORD	"scrap"
+	0
+	.BYTE	2
+W?SCREAM::	.ZWORD	"scream"
+	ACT?YELL
+	.BYTE	1
+W?SCREW::	.ZWORD	"screw"
+	0
+	.BYTE	4
+W?SCREWDRIVER::	.ZWORD	"screwdriv"
+	0
+	.BYTE	2
+W?SCRIPT::	.ZWORD	"script"
+	ACT?SCRIPT
+	.BYTE	1
+W?SCROLL::	.ZWORD	"scroll"
+	0
+	.BYTE	2
+W?SCULLERY::	.ZWORD	"scullery"
+	0
+	.BYTE	2
+W?SE::	.ZWORD	"se"
+	.BYTE	60
+	.BYTE 0
+	.BYTE	14
+W?SEA::	.ZWORD	"sea"
+	0
+	.BYTE	2
+W?SEAMAN::	.ZWORD	"seaman"
+	0
+	.BYTE	4
+W?SEAMAN'S::	.ZWORD	"seaman's"
+	0
+	.BYTE	4
+W?SEARCH::	.ZWORD	"search"
+	ACT?SEARCH
+	.BYTE	1
+W?SEBASTIAN::	.ZWORD	"sebastian"
+	0
+	.BYTE	6
+W?SECOND::	.ZWORD	"second"
+	0
+	.BYTE	4
+W?SECRET::	.ZWORD	"secret"
+	0
+	.BYTE	4
+W?SEEK::	.ZWORD	"seek"
+	ACT?FIND
+	.BYTE	1
+W?SELF::	.ZWORD	"self"
+	0
+	.BYTE	2
+W?SELF-PORTRAIT::	.ZWORD	"self-port"
+	0
+	.BYTE	2
+W?SEND::	.ZWORD	"send"
+	ACT?SEND
+	.BYTE	1
+W?SERPENT'S::	.ZWORD	"serpent's"
+	0
+	.BYTE	4
+W?SERVANT'S::	.ZWORD	"servant's"
+	0
+	.BYTE	4
+W?SET::	.ZWORD	"set"
+	ACT?TURN
+	.BYTE	3
+W?SEVEN::	.ZWORD	"seven"
+	0
+	.BYTE	4
+W?SEVENTEEN::	.ZWORD	"seventeen"
+	0
+	.BYTE	0
+W?SEVENTH::	.ZWORD	"seventh"
+	0
+	.BYTE	4
+W?SEVENTY::	.ZWORD	"seventy"
+	0
+	.BYTE	0
+W?SEYMOUR::	.ZWORD	"seymour"
+	0
+	.BYTE	2
+W?SHACK::	.ZWORD	"shack"
+	0
+	.BYTE	2
+W?SHADOW::	.ZWORD	"shadow"
+	0
+	.BYTE	2
+W?SHADOWLAND::	.ZWORD	"shadowlan"
+	0
+	.BYTE	2
+W?SHADY::	.ZWORD	"shady"
+	0
+	.BYTE	4
+W?SHAKE::	.ZWORD	"shake"
+	ACT?SHAKE
+	.BYTE	1
+W?SHARP::	.ZWORD	"sharp"
+	0
+	.BYTE	4
+W?SHE'S::	.ZWORD	"she's"
+	0
+	.BYTE	0
+W?SHELL::	.ZWORD	"shell"
+	0
+	.BYTE	2
+W?SHELLS::	.ZWORD	"shells"
+	W?SHELL
+	.BYTE	2
+W?SHERMAN::	.ZWORD	"sherman"
+	0
+	.BYTE	2
+W?SHINE::	.ZWORD	"shine"
+	ACT?WASH
+	.BYTE	1
+W?SHIP::	.ZWORD	"ship"
+	ACT?SEND
+	.BYTE	1
+W?SHIPPING::	.ZWORD	"shipping"
+	0
+	.BYTE	4
+W?SHIT::	.ZWORD	"shit"
+	0
+	.BYTE	0
+W?SHITHEAD::	.ZWORD	"shithead"
+	0
+	.BYTE	0
+W?SHOE::	.ZWORD	"shoe"
+	0
+	.BYTE	2
+W?SHOP::	.ZWORD	"shop"
+	0
+	.BYTE	2
+W?SHORTEST::	.ZWORD	"shortest"
+	0
+	.BYTE	4
+W?SHOULD::	.ZWORD	"should"
+	0
+	.BYTE	0
+W?SHOULDER::	.ZWORD	"shoulder"
+	0
+	.BYTE	2
+W?SHOULDN'T::	.ZWORD	"shouldn't"
+	0
+	.BYTE	0
+W?SHOUT::	.ZWORD	"shout"
+	ACT?YELL
+	.BYTE	1
+W?SHOVEL::	.ZWORD	"shovel"
+	0
+	.BYTE	2
+W?SHOW::	.ZWORD	"show"
+	ACT?SHOW
+	.BYTE	1
+W?SHRINE::	.ZWORD	"shrine"
+	0
+	.BYTE	2
+W?SHRUB::	.ZWORD	"shrub"
+	0
+	.BYTE	2
+W?SHRUBBERY::	.ZWORD	"shrubbery"
+	0
+	.BYTE	2
+W?SHRUBS::	.ZWORD	"shrubs"
+	0
+	.BYTE	2
+W?SHUT::	.ZWORD	"shut"
+	ACT?CLOSE
+	.BYTE	5
+W?SHUTTER::	.ZWORD	"shutter"
+	ACT?CLOSE
+	.BYTE	3
+W?SHUTTERS::	.ZWORD	"shutters"
+	W?SHUTTER
+	.BYTE	2
+W?SICKLY::	.ZWORD	"sickly"
+	0
+	.BYTE	4
+W?SIGN::	.ZWORD	"sign"
+	0
+	.BYTE	2
+W?SILENT::	.ZWORD	"silent"
+	0
+	.BYTE	4
+W?SILLY::	.ZWORD	"silly"
+	0
+	.BYTE	4
+W?SING::	.ZWORD	"sing"
+	ACT?SING
+	.BYTE	1
+W?SINISTER::	.ZWORD	"sinister"
+	0
+	.BYTE	4
+W?SINK::	.ZWORD	"sink"
+	ACT?SINK
+	.BYTE	1
+W?SIP::	.ZWORD	"sip"
+	ACT?DRINK
+	.BYTE	1
+W?SIT::	.ZWORD	"sit"
+	ACT?SIT
+	.BYTE	1
+W?SIX::	.ZWORD	"six"
+	0
+	.BYTE	4
+W?SIX-SIDED::	.ZWORD	"six-sided"
+	0
+	.BYTE	4
+W?SIXTEEN::	.ZWORD	"sixteen"
+	0
+	.BYTE	0
+W?SIXTH::	.ZWORD	"sixth"
+	0
+	.BYTE	4
+W?SIXTY::	.ZWORD	"sixty"
+	0
+	.BYTE	0
+W?SIZUL::	.ZWORD	"sizul"
+	ACT?SIZUL
+	.BYTE	3
+W?SKELETON::	.ZWORD	"skeleton"
+	0
+	.BYTE	2
+W?SKELETONS::	.ZWORD	"skeletons"
+	0
+	.BYTE	2
+W?SKI::	.ZWORD	"ski"
+	0
+	.BYTE	4
+W?SKIM::	.ZWORD	"skim"
+	ACT?READ
+	.BYTE	1
+W?SKIN-TIGHT::	.ZWORD	"skin-tigh"
+	0
+	.BYTE	4
+W?SKIP::	.ZWORD	"skip"
+	ACT?SKIP
+	.BYTE	1
+W?SKULL::	.ZWORD	"skull"
+	0
+	.BYTE	2
+W?SLAB::	.ZWORD	"slab"
+	0
+	.BYTE	2
+W?SLABS::	.ZWORD	"slabs"
+	W?SLAB
+	.BYTE	2
+W?SLAP::	.ZWORD	"slap"
+	ACT?ATTACK
+	.BYTE	1
+W?SLATE::	.ZWORD	"slate"
+	0
+	.BYTE	2
+W?SLED::	.ZWORD	"sled"
+	0
+	.BYTE	2
+W?SLEEP::	.ZWORD	"sleep"
+	ACT?SLEEP
+	.BYTE	3
+W?SLENDER::	.ZWORD	"slender"
+	0
+	.BYTE	4
+W?SLICE::	.ZWORD	"slice"
+	ACT?SLICE
+	.BYTE	1
+W?SLIDE::	.ZWORD	"slide"
+	ACT?SLIDE
+	.BYTE	1
+W?SLIGHTLY::	.ZWORD	"slightly"
+	0
+	.BYTE	4
+W?SLIME::	.ZWORD	"slime"
+	0
+	.BYTE	6
+W?SLITTED::	.ZWORD	"slitted"
+	0
+	.BYTE	4
+W?SLOPING::	.ZWORD	"sloping"
+	0
+	.BYTE	4
+W?SMALL::	.ZWORD	"small"
+	0
+	.BYTE	4
+W?SMALLER::	.ZWORD	"smaller"
+	W?SMALL
+	.BYTE	0
+W?SMASH::	.ZWORD	"smash"
+	ACT?DEMOLISH
+	.BYTE	1
+W?SMELL::	.ZWORD	"smell"
+	ACT?SMELL
+	.BYTE	1
+W?SMOKE::	.ZWORD	"smoke"
+	0
+	.BYTE	2
+W?SMOKY::	.ZWORD	"smoky"
+	0
+	.BYTE	4
+W?SMOOTH::	.ZWORD	"smooth"
+	0
+	.BYTE	4
+W?SNAKE::	.ZWORD	"snake"
+	0
+	.BYTE	6
+W?SNAKES::	.ZWORD	"snakes"
+	W?SNAKE
+	.BYTE	2
+W?SNAP::	.ZWORD	"snap"
+	ACT?SNAP
+	.BYTE	1
+W?SNARFEM::	.ZWORD	"snarfem"
+	0
+	.BYTE	2
+W?SNIFF::	.ZWORD	"sniff"
+	ACT?SMELL
+	.BYTE	1
+W?SNOOZE::	.ZWORD	"snooze"
+	ACT?SLEEP
+	.BYTE	3
+W?SOAK::	.ZWORD	"soak"
+	ACT?WASH
+	.BYTE	1
+W?SOLAR::	.ZWORD	"solar"
+	0
+	.BYTE	2
+W?SOLDIER::	.ZWORD	"soldier"
+	0
+	.BYTE	2
+W?SOME::	.ZWORD	"some"
+	0
+	.BYTE	0
+W?SOMETHING::	.ZWORD	"something"
+	0
+	.BYTE	0
+W?SONG::	.ZWORD	"song"
+	0
+	.BYTE	2
+W?SOUTH::	.ZWORD	"south"
+	.BYTE	59
+	.BYTE 0
+	.BYTE	14
+W?SOUTHE::	.ZWORD	"southe"
+	W?SE
+	.BYTE	0
+W?SOUTHEAST::	.ZWORD	"southeast"
+	W?SE
+	.BYTE	0
+W?SOUTHW::	.ZWORD	"southw"
+	W?SW
+	.BYTE	0
+W?SOUTHWEST::	.ZWORD	"southwest"
+	W?SW
+	.BYTE	0
+W?SPEAK::	.ZWORD	"speak"
+	ACT?TALK
+	.BYTE	1
+W?SPENSE::	.ZWORD	"spense"
+	0
+	.BYTE	4
+W?SPENSEWEED::	.ZWORD	"spensewee"
+	0
+	.BYTE	2
+W?SPHERE::	.ZWORD	"sphere"
+	0
+	.BYTE	2
+W?SPIDER::	.ZWORD	"spider"
+	0
+	.BYTE	2
+W?SPIDERS::	.ZWORD	"spiders"
+	0
+	.BYTE	2
+W?SPIKE::	.ZWORD	"spike"
+	0
+	.BYTE	2
+W?SPILL::	.ZWORD	"spill"
+	ACT?POUR
+	.BYTE	1
+W?SPIN::	.ZWORD	"spin"
+	ACT?TURN
+	.BYTE	1
+W?SPIRAL::	.ZWORD	"spiral"
+	0
+	.BYTE	4
+W?SPIRE::	.ZWORD	"spire"
+	0
+	.BYTE	2
+W?SPOOKY::	.ZWORD	"spooky"
+	0
+	.BYTE	4
+W?SPOTLIGHT::	.ZWORD	"spotlight"
+	0
+	.BYTE	2
+W?SPRING::	.ZWORD	"spring"
+	0
+	.BYTE	2
+W?SPYGLASS::	.ZWORD	"spyglass"
+	0
+	.BYTE	2
+W?SQUID::	.ZWORD	"squid"
+	0
+	.BYTE	6
+W?ST::	.ZWORD	"st"
+	0
+	.BYTE	6
+W?STAB::	.ZWORD	"stab"
+	ACT?ATTACK
+	.BYTE	1
+W?STABLE::	.ZWORD	"stable"
+	0
+	.BYTE	2
+W?STADIUM::	.ZWORD	"stadium"
+	0
+	.BYTE	2
+W?STAIR::	.ZWORD	"stair"
+	0
+	.BYTE	2
+W?STAIRCASE::	.ZWORD	"staircase"
+	0
+	.BYTE	2
+W?STAIRS::	.ZWORD	"stairs"
+	0
+	.BYTE	2
+W?STAIRWAY::	.ZWORD	"stairway"
+	0
+	.BYTE	2
+W?STALL::	.ZWORD	"stall"
+	0
+	.BYTE	2
+W?STALLS::	.ZWORD	"stalls"
+	W?STALL
+	.BYTE	2
+W?STAMP::	.ZWORD	"stamp"
+	0
+	.BYTE	2
+W?STAND::	.ZWORD	"stand"
+	ACT?STAND
+	.BYTE	3
+W?STAR::	.ZWORD	"star"
+	0
+	.BYTE	6
+W?STARFISH::	.ZWORD	"starfish"
+	0
+	.BYTE	2
+W?START::	.ZWORD	"start"
+	ACT?LIGHT
+	.BYTE	1
+W?STATUE::	.ZWORD	"statue"
+	0
+	.BYTE	2
+W?STATUS::	.ZWORD	"status"
+	ACT?SCORE
+	.BYTE	1
+W?STEEL::	.ZWORD	"steel"
+	0
+	.BYTE	4
+W?STEEP::	.ZWORD	"steep"
+	0
+	.BYTE	4
+W?STEER::	.ZWORD	"steer"
+	ACT?TURN
+	.BYTE	1
+W?STENCILLED::	.ZWORD	"stencille"
+	0
+	.BYTE	4
+W?STEP::	.ZWORD	"step"
+	ACT?WALK
+	.BYTE	3
+W?STEPLADDER::	.ZWORD	"stepladde"
+	0
+	.BYTE	2
+W?STEPS::	.ZWORD	"steps"
+	0
+	.BYTE	2
+W?STEVE::	.ZWORD	"steve"
+	0
+	.BYTE	4
+W?STEVEN::	.ZWORD	"steven"
+	0
+	.BYTE	4
+W?STEW::	.ZWORD	"stew"
+	0
+	.BYTE	2
+W?STICK::	.ZWORD	"stick"
+	ACT?STICK
+	.BYTE	3
+W?STOCK::	.ZWORD	"stock"
+	0
+	.BYTE	6
+W?STOLE::	.ZWORD	"stole"
+	0
+	.BYTE	2
+W?STONE::	.ZWORD	"stone"
+	0
+	.BYTE	6
+W?STONES::	.ZWORD	"stones"
+	0
+	.BYTE	2
+W?STONEWALL::	.ZWORD	"stonewall"
+	0
+	.BYTE	6
+W?STOP::	.ZWORD	"stop"
+	0
+	.BYTE	2
+W?STORE::	.ZWORD	"store"
+	0
+	.BYTE	2
+W?STRADIVARIUS::	.ZWORD	"stradivar"
+	0
+	.BYTE	6
+W?STRANGE::	.ZWORD	"strange"
+	0
+	.BYTE	4
+W?STRAW::	.ZWORD	"straw"
+	0
+	.BYTE	2
+W?STREAM::	.ZWORD	"stream"
+	0
+	.BYTE	2
+W?STRIKE::	.ZWORD	"strike"
+	ACT?ATTACK
+	.BYTE	1
+W?STUDY::	.ZWORD	"study"
+	ACT?EXAMINE
+	.BYTE	1
+W?STUFF::	.ZWORD	"stuff"
+	ACT?STICK
+	.BYTE	1
+W?STUMP::	.ZWORD	"stump"
+	0
+	.BYTE	2
+W?STUNNING::	.ZWORD	"stunning"
+	0
+	.BYTE	4
+W?STUNNINGLY::	.ZWORD	"stunningl"
+	0
+	.BYTE	4
+W?STURDY::	.ZWORD	"sturdy"
+	0
+	.BYTE	4
+W?SUCK::	.ZWORD	"suck"
+	ACT?SUCK
+	.BYTE	1
+W?SUCKS::	.ZWORD	"sucks"
+	0
+	.BYTE	0
+W?SUIT::	.ZWORD	"suit"
+	0
+	.BYTE	2
+W?SUPERBRIEF::	.ZWORD	"superbrie"
+	ACT?SUPERBRIEF
+	.BYTE	1
+W?SURE::	.ZWORD	"sure"
+	ACT?YES
+	.BYTE	1
+W?SURFACE::	.ZWORD	"surface"
+	0
+	.BYTE	2
+W?SUSPENDUR::	.ZWORD	"suspendur"
+	0
+	.BYTE	2
+W?SW::	.ZWORD	"sw"
+	.BYTE	58
+	.BYTE 0
+	.BYTE	14
+W?SWALLOW::	.ZWORD	"swallow"
+	ACT?EAT
+	.BYTE	1
+W?SWAMP::	.ZWORD	"swamp"
+	0
+	.BYTE	2
+W?SWAMPY::	.ZWORD	"swampy"
+	0
+	.BYTE	4
+W?SWAT::	.ZWORD	"swat"
+	ACT?SWAT
+	.BYTE	1
+W?SWEEP::	.ZWORD	"sweep"
+	ACT?WASH
+	.BYTE	1
+W?SWIM::	.ZWORD	"swim"
+	ACT?SWIM
+	.BYTE	1
+W?SWING::	.ZWORD	"swing"
+	ACT?SWING
+	.BYTE	1
+W?SYOVAR::	.ZWORD	"syovar"
+	0
+	.BYTE	2
+W?T::	.ZWORD	"t"
+	ACT?TIME
+	.BYTE	1
+W?T-SQUARE::	.ZWORD	"t-square"
+	0
+	.BYTE	2
+W?TABLE::	.ZWORD	"table"
+	0
+	.BYTE	2
+W?TABLES::	.ZWORD	"tables"
+	0
+	.BYTE	2
+W?TAKE::	.ZWORD	"take"
+	ACT?TAKE
+	.BYTE	1
+W?TALK::	.ZWORD	"talk"
+	ACT?TALK
+	.BYTE	1
+W?TALL::	.ZWORD	"tall"
+	0
+	.BYTE	4
+W?TANK::	.ZWORD	"tank"
+	0
+	.BYTE	2
+W?TASSLES::	.ZWORD	"tassles"
+	0
+	.BYTE	2
+W?TASTE::	.ZWORD	"taste"
+	ACT?TASTE
+	.BYTE	1
+W?TEENSY::	.ZWORD	"teensy"
+	W?SMALL
+	.BYTE	0
+W?TELESCOPE::	.ZWORD	"telescope"
+	0
+	.BYTE	2
+W?TELL::	.ZWORD	"tell"
+	ACT?TELL
+	.BYTE	65
+W?TEMPLATE::	.ZWORD	"template"
+	0
+	.BYTE	2
+W?TEN::	.ZWORD	"ten"
+	0
+	.BYTE	0
+W?TENET::	.ZWORD	"tenet"
+	0
+	.BYTE	2
+W?TENETS::	.ZWORD	"tenets"
+	0
+	.BYTE	2
+W?TENTH::	.ZWORD	"tenth"
+	0
+	.BYTE	4
+W?TERIYAKI::	.ZWORD	"teriyaki"
+	0
+	.BYTE	2
+W?THANK::	.ZWORD	"thank"
+	ACT?THANKS
+	.BYTE	1
+W?THANKS::	.ZWORD	"thanks"
+	ACT?THANKS
+	.BYTE	1
+W?THAT::	.ZWORD	"that"
+	0
+	.BYTE	0
+W?THAT'S::	.ZWORD	"that's"
+	0
+	.BYTE	0
+W?THE::	.ZWORD	"the"
+	0
+	.BYTE	160
+W?THEATER::	.ZWORD	"theater"
+	0
+	.BYTE	2
+W?THEATRE::	.ZWORD	"theatre"
+	0
+	.BYTE	2
+W?THEN::	.ZWORD	"then"
+	0
+	.BYTE	192
+W?THERE::	.ZWORD	"there"
+	0
+	.BYTE	2
+W?THEY'RE::	.ZWORD	"they're"
+	0
+	.BYTE	0
+W?THICK::	.ZWORD	"thick"
+	0
+	.BYTE	4
+W?THIRD::	.ZWORD	"third"
+	0
+	.BYTE	4
+W?THIRTEEN::	.ZWORD	"thirteen"
+	0
+	.BYTE	0
+W?THIRTY::	.ZWORD	"thirty"
+	0
+	.BYTE	0
+W?THIS::	.ZWORD	"this"
+	0
+	.BYTE	0
+W?THOMAS::	.ZWORD	"thomas"
+	0
+	.BYTE	6
+W?THOUSAND::	.ZWORD	"thousand"
+	0
+	.BYTE	4
+W?THREE::	.ZWORD	"three"
+	0
+	.BYTE	4
+W?THRICE::	.ZWORD	"thrice"
+	0
+	.BYTE	136
+W?THRIFF::	.ZWORD	"thriff"
+	0
+	.BYTE	2
+W?THRONE::	.ZWORD	"throne"
+	0
+	.BYTE	6
+W?THROUGH::	.ZWORD	"through"
+	0
+	.BYTE	16
+W?THROW::	.ZWORD	"throw"
+	ACT?THROW
+	.BYTE	1
+W?THRU::	.ZWORD	"thru"
+	W?THROUGH
+	.BYTE	0
+W?TICKET::	.ZWORD	"ticket"
+	0
+	.BYTE	2
+W?TIE::	.ZWORD	"tie"
+	ACT?TIE
+	.BYTE	3
+W?TIME::	.ZWORD	"time"
+	ACT?TIME
+	.BYTE	3
+W?TINIER::	.ZWORD	"tinier"
+	W?SMALL
+	.BYTE	0
+W?TINY::	.ZWORD	"tiny"
+	W?SMALL
+	.BYTE	0
+W?TIP::	.ZWORD	"tip"
+	ACT?TIP
+	.BYTE	1
+W?TIRED::	.ZWORD	"tired"
+	0
+	.BYTE	4
+W?TO::	.ZWORD	"to"
+	0
+	.BYTE	16
+W?TOAD::	.ZWORD	"toad"
+	0
+	.BYTE	2
+W?TOADS::	.ZWORD	"toads"
+	0
+	.BYTE	2
+W?TOBOGGAN::	.ZWORD	"toboggan"
+	0
+	.BYTE	2
+W?TOE::	.ZWORD	"toe"
+	0
+	.BYTE	6
+W?TOES::	.ZWORD	"toes"
+	0
+	.BYTE	2
+W?TOLL::	.ZWORD	"toll"
+	0
+	.BYTE	6
+W?TOMB::	.ZWORD	"tomb"
+	0
+	.BYTE	2
+W?TOP::	.ZWORD	"top"
+	0
+	.BYTE	16
+W?TORCH::	.ZWORD	"torch"
+	0
+	.BYTE	2
+W?TORCHES::	.ZWORD	"torches"
+	0
+	.BYTE	2
+W?TORTURE::	.ZWORD	"torture"
+	0
+	.BYTE	4
+W?TOSS::	.ZWORD	"toss"
+	ACT?THROW
+	.BYTE	1
+W?TOUCH::	.ZWORD	"touch"
+	ACT?TOUCH
+	.BYTE	1
+W?TOWARD::	.ZWORD	"toward"
+	W?TO
+	.BYTE	0
+W?TOWER::	.ZWORD	"tower"
+	0
+	.BYTE	2
+W?TOWERING::	.ZWORD	"towering"
+	0
+	.BYTE	4
+W?TRANSLUCENT::	.ZWORD	"transluce"
+	0
+	.BYTE	4
+W?TRAP::	.ZWORD	"trap"
+	ACT?CATCH
+	.BYTE	5
+W?TRAPDOOR::	.ZWORD	"trapdoor"
+	0
+	.BYTE	2
+W?TRAY::	.ZWORD	"tray"
+	0
+	.BYTE	2
+W?TREASURE::	.ZWORD	"treasure"
+	0
+	.BYTE	4
+W?TREATY::	.ZWORD	"treaty"
+	0
+	.BYTE	2
+W?TREE::	.ZWORD	"tree"
+	0
+	.BYTE	6
+W?TREES::	.ZWORD	"trees"
+	W?TREE
+	.BYTE	2
+W?TREMENDOUS::	.ZWORD	"tremendou"
+	W?LARGE
+	.BYTE	0
+W?TRIANGLE::	.ZWORD	"triangle"
+	0
+	.BYTE	2
+W?TRIPLET::	.ZWORD	"triplet"
+	0
+	.BYTE	2
+W?TRIPLETS::	.ZWORD	"triplets"
+	0
+	.BYTE	2
+W?TROPHY::	.ZWORD	"trophy"
+	0
+	.BYTE	2
+W?TRUNK::	.ZWORD	"trunk"
+	0
+	.BYTE	2
+W?TUNNEL::	.ZWORD	"tunnel"
+	0
+	.BYTE	2
+W?TURN::	.ZWORD	"turn"
+	ACT?TURN
+	.BYTE	1
+W?TWELVE::	.ZWORD	"twelve"
+	0
+	.BYTE	4
+W?TWELVTH::	.ZWORD	"twelvth"
+	0
+	.BYTE	4
+W?TWENTY::	.ZWORD	"twenty"
+	0
+	.BYTE	0
+W?TWICE::	.ZWORD	"twice"
+	0
+	.BYTE	136
+W?TWO::	.ZWORD	"two"
+	0
+	.BYTE	4
+W?TYPICAL::	.ZWORD	"typical"
+	0
+	.BYTE	4
+W?U::	.ZWORD	"u"
+	W?UP
+	.BYTE	0
+W?UGLY::	.ZWORD	"ugly"
+	0
+	.BYTE	4
+W?UH-UH::	.ZWORD	"uh-uh"
+	ACT?NO
+	.BYTE	1
+W?UNATTACH::	.ZWORD	"unattach"
+	ACT?UNTIE
+	.BYTE	1
+W?UNDER::	.ZWORD	"under"
+	0
+	.BYTE	16
+W?UNDERGROUND::	.ZWORD	"undergrou"
+	0
+	.BYTE	4
+W?UNDERNEATH::	.ZWORD	"underneat"
+	W?UNDER
+	.BYTE	0
+W?UNDO::	.ZWORD	"undo"
+	ACT?UNDO
+	.BYTE	1
+W?UNEVEN::	.ZWORD	"uneven"
+	0
+	.BYTE	4
+W?UNFASTEN::	.ZWORD	"unfasten"
+	ACT?UNTIE
+	.BYTE	1
+W?UNFRIENDLY::	.ZWORD	"unfriendl"
+	0
+	.BYTE	4
+W?UNGNARLED::	.ZWORD	"ungnarled"
+	0
+	.BYTE	4
+W?UNHEALTHY::	.ZWORD	"unhealthy"
+	0
+	.BYTE	4
+W?UNICORN::	.ZWORD	"unicorn"
+	0
+	.BYTE	6
+W?UNICORNS::	.ZWORD	"unicorns"
+	0
+	.BYTE	2
+W?UNKNOT::	.ZWORD	"unknot"
+	ACT?UNTIE
+	.BYTE	1
+W?UNLOCK::	.ZWORD	"unlock"
+	ACT?UNLOCK
+	.BYTE	1
+W?UNOPENED::	.ZWORD	"unopened"
+	0
+	.BYTE	4
+W?UNSCRIPT::	.ZWORD	"unscript"
+	ACT?UNSCRIPT
+	.BYTE	1
+W?UNSHUTTER::	.ZWORD	"unshutter"
+	ACT?OPEN
+	.BYTE	1
+W?UNSTRAP::	.ZWORD	"unstrap"
+	ACT?UNTIE
+	.BYTE	1
+W?UNTIE::	.ZWORD	"untie"
+	ACT?UNTIE
+	.BYTE	1
+W?UNUSUAL::	.ZWORD	"unusual"
+	0
+	.BYTE	4
+W?UNWRAP::	.ZWORD	"unwrap"
+	ACT?REMOVE
+	.BYTE	1
+W?UP::	.ZWORD	"up"
+	.BYTE	55
+	.BYTE 0
+	.BYTE	24
+W?UP-DOWN::	.ZWORD	"up-down"
+	0
+	.BYTE	4
+W?UPON::	.ZWORD	"upon"
+	W?ON
+	.BYTE	0
+W?UPPER::	.ZWORD	"upper"
+	0
+	.BYTE	4
+W?UPSTAIRS::	.ZWORD	"upstairs"
+	W?UP
+	.BYTE	0
+W?URGWITZ::	.ZWORD	"urgwitz"
+	0
+	.BYTE	2
+W?URSULA::	.ZWORD	"ursula"
+	0
+	.BYTE	6
+W?USE::	.ZWORD	"use"
+	ACT?USE
+	.BYTE	1
+W?USING::	.ZWORD	"using"
+	W?WITH
+	.BYTE	0
+W?UTTER::	.ZWORD	"utter"
+	ACT?SAY
+	.BYTE	1
+W?VALLEY::	.ZWORD	"valley"
+	0
+	.BYTE	2
+W?VANE::	.ZWORD	"vane"
+	0
+	.BYTE	2
+W?VAPOR::	.ZWORD	"vapor"
+	0
+	.BYTE	2
+W?VASE::	.ZWORD	"vase"
+	0
+	.BYTE	2
+W?VAULT::	.ZWORD	"vault"
+	ACT?JUMP
+	.BYTE	7
+W?VERBOSE::	.ZWORD	"verbose"
+	ACT?VERBOSE
+	.BYTE	1
+W?VERITASS::	.ZWORD	"veritass"
+	0
+	.BYTE	2
+W?VERITASSI::	.ZWORD	"veritassi"
+	0
+	.BYTE	2
+W?VERSION::	.ZWORD	"version"
+	ACT?VERSION
+	.BYTE	1
+W?VIAL::	.ZWORD	"vial"
+	0
+	.BYTE	2
+W?VIALS::	.ZWORD	"vials"
+	W?VIAL
+	.BYTE	2
+W?VILLAGE::	.ZWORD	"village"
+	0
+	.BYTE	6
+W?VIOLIN::	.ZWORD	"violin"
+	0
+	.BYTE	2
+W?VOLCANO::	.ZWORD	"volcano"
+	0
+	.BYTE	2
+W?W::	.ZWORD	"w"
+	W?WEST
+	.BYTE	0
+W?WAIT::	.ZWORD	"wait"
+	ACT?WAIT
+	.BYTE	1
+W?WAKE::	.ZWORD	"wake"
+	ACT?WAKE
+	.BYTE	1
+W?WALDO::	.ZWORD	"waldo"
+	0
+	.BYTE	6
+W?WALK::	.ZWORD	"walk"
+	ACT?WALK
+	.BYTE	1
+W?WALL::	.ZWORD	"wall"
+	0
+	.BYTE	6
+W?WALLS::	.ZWORD	"walls"
+	0
+	.BYTE	2
+W?WALNUT::	.ZWORD	"walnut"
+	0
+	.BYTE	6
+W?WAND::	.ZWORD	"wand"
+	0
+	.BYTE	2
+W?WANDS::	.ZWORD	"wands"
+	0
+	.BYTE	2
+W?WANT::	.ZWORD	"want"
+	0
+	.BYTE	0
+W?WAR::	.ZWORD	"war"
+	0
+	.BYTE	2
+W?WARS::	.ZWORD	"wars"
+	0
+	.BYTE	2
+W?WAS::	.ZWORD	"was"
+	0
+	.BYTE	0
+W?WASH::	.ZWORD	"wash"
+	ACT?WASH
+	.BYTE	1
+W?WASN'T::	.ZWORD	"wasn't"
+	0
+	.BYTE	0
+W?WATCH::	.ZWORD	"watch"
+	ACT?EXAMINE
+	.BYTE	1
+W?WATER::	.ZWORD	"water"
+	0
+	.BYTE	6
+W?WATERS::	.ZWORD	"waters"
+	0
+	.BYTE	2
+W?WAVE::	.ZWORD	"wave"
+	ACT?POINT
+	.BYTE	1
+W?WAX::	.ZWORD	"wax"
+	0
+	.BYTE	2
+W?WE'LL::	.ZWORD	"we'll"
+	0
+	.BYTE	0
+W?WE'RE::	.ZWORD	"we're"
+	0
+	.BYTE	0
+W?WEAR::	.ZWORD	"wear"
+	ACT?WEAR
+	.BYTE	1
+W?WEATHER::	.ZWORD	"weather"
+	0
+	.BYTE	4
+W?WEATHERED::	.ZWORD	"weathered"
+	0
+	.BYTE	4
+W?WEB::	.ZWORD	"web"
+	0
+	.BYTE	2
+W?WEBS::	.ZWORD	"webs"
+	0
+	.BYTE	2
+W?WEED::	.ZWORD	"weed"
+	0
+	.BYTE	2
+W?WEENSY::	.ZWORD	"weensy"
+	W?SMALL
+	.BYTE	0
+W?WEIGHT::	.ZWORD	"weight"
+	0
+	.BYTE	2
+W?WEIGHTS::	.ZWORD	"weights"
+	W?WEIGHT
+	.BYTE	2
+W?WELL-WORN::	.ZWORD	"well-worn"
+	0
+	.BYTE	4
+W?WENDELL::	.ZWORD	"wendell"
+	0
+	.BYTE	4
+W?WERE::	.ZWORD	"were"
+	0
+	.BYTE	0
+W?WEREN'T::	.ZWORD	"weren't"
+	0
+	.BYTE	0
+W?WEST::	.ZWORD	"west"
+	.BYTE	57
+	.BYTE 0
+	.BYTE	14
+W?WESTLAND::	.ZWORD	"westland"
+	0
+	.BYTE	2
+W?WESTLANDS::	.ZWORD	"westlands"
+	0
+	.BYTE	2
+W?WHARF::	.ZWORD	"wharf"
+	0
+	.BYTE	2
+W?WHAT::	.ZWORD	"what"
+	0
+	.BYTE	0
+W?WHAT'S::	.ZWORD	"what's"
+	0
+	.BYTE	0
+W?WHEEL::	.ZWORD	"wheel"
+	0
+	.BYTE	2
+W?WHEN::	.ZWORD	"when"
+	0
+	.BYTE	0
+W?WHEN'S::	.ZWORD	"when's"
+	0
+	.BYTE	0
+W?WHERE::	.ZWORD	"where"
+	0
+	.BYTE	0
+W?WHERE'S::	.ZWORD	"where's"
+	0
+	.BYTE	0
+W?WHITE::	.ZWORD	"white"
+	0
+	.BYTE	4
+W?WHO::	.ZWORD	"who"
+	0
+	.BYTE	0
+W?WHO'S::	.ZWORD	"who's"
+	0
+	.BYTE	0
+W?WHY::	.ZWORD	"why"
+	0
+	.BYTE	0
+W?WHY'S::	.ZWORD	"why's"
+	0
+	.BYTE	0
+W?WIDE::	.ZWORD	"wide"
+	0
+	.BYTE	4
+W?WIDER::	.ZWORD	"wider"
+	0
+	.BYTE	4
+W?WILL::	.ZWORD	"will"
+	0
+	.BYTE	0
+W?WINDCAT::	.ZWORD	"windcat"
+	0
+	.BYTE	2
+W?WINDING::	.ZWORD	"winding"
+	0
+	.BYTE	4
+W?WINDOW::	.ZWORD	"window"
+	0
+	.BYTE	6
+W?WINDOWS::	.ZWORD	"windows"
+	0
+	.BYTE	2
+W?WINE::	.ZWORD	"wine"
+	0
+	.BYTE	6
+W?WIPE::	.ZWORD	"wipe"
+	ACT?WASH
+	.BYTE	1
+W?WISHYFOO::	.ZWORD	"wishyfoo"
+	0
+	.BYTE	2
+W?WISHYFOOS::	.ZWORD	"wishyfoos"
+	0
+	.BYTE	2
+W?WISKUS::	.ZWORD	"wiskus"
+	0
+	.BYTE	2
+W?WITCH::	.ZWORD	"witch"
+	0
+	.BYTE	2
+W?WITCHES::	.ZWORD	"witches"
+	W?WITCH
+	.BYTE	2
+W?WITH::	.ZWORD	"with"
+	0
+	.BYTE	16
+W?WITHDRAW::	.ZWORD	"withdraw"
+	ACT?DISEMBARK
+	.BYTE	1
+W?WIZARD::	.ZWORD	"wizard"
+	0
+	.BYTE	2
+W?WIZARDLY::	.ZWORD	"wizardly"
+	0
+	.BYTE	4
+W?WOMAN::	.ZWORD	"woman"
+	0
+	.BYTE	2
+W?WOMAN'S::	.ZWORD	"woman's"
+	0
+	.BYTE	4
+W?WON'T::	.ZWORD	"won't"
+	0
+	.BYTE	0
+W?WOODEN::	.ZWORD	"wooden"
+	0
+	.BYTE	4
+W?WOODS::	.ZWORD	"woods"
+	0
+	.BYTE	2
+W?WORLD::	.ZWORD	"world"
+	0
+	.BYTE	4
+W?WORM::	.ZWORD	"worm"
+	0
+	.BYTE	2
+W?WORSHIP::	.ZWORD	"worship"
+	ACT?PRAY
+	.BYTE	1
+W?WOULD::	.ZWORD	"would"
+	0
+	.BYTE	0
+W?WOULDN'T::	.ZWORD	"wouldn't"
+	0
+	.BYTE	0
+W?WRAP::	.ZWORD	"wrap"
+	ACT?WRAP
+	.BYTE	1
+W?WRECK::	.ZWORD	"wreck"
+	ACT?DEMOLISH
+	.BYTE	1
+W?WRITHING::	.ZWORD	"writhing"
+	0
+	.BYTE	4
+W?WRITING::	.ZWORD	"writing"
+	0
+	.BYTE	2
+W?WURB::	.ZWORD	"wurb"
+	0
+	.BYTE	4
+W?X::	.ZWORD	"x"
+	ACT?EXAMINE
+	.BYTE	1
+W?XZILCH::	.ZWORD	"xzilch"
+	ACT?SIZUL
+	.BYTE	3
+W?Y::	.ZWORD	"y"
+	ACT?YES
+	.BYTE	3
+W?YACHT::	.ZWORD	"yacht"
+	0
+	.BYTE	2
+W?YAWN::	.ZWORD	"yawn"
+	ACT?YAWN
+	.BYTE	1
+W?YEAH::	.ZWORD	"yeah"
+	ACT?YES
+	.BYTE	1
+W?YELL::	.ZWORD	"yell"
+	ACT?YELL
+	.BYTE	1
+W?YELLOW::	.ZWORD	"yellow"
+	0
+	.BYTE	4
+W?YELLOW-GREEN::	.ZWORD	"yellow-gr"
+	0
+	.BYTE	4
+W?YEP::	.ZWORD	"yep"
+	ACT?YES
+	.BYTE	1
+W?YES::	.ZWORD	"yes"
+	ACT?YES
+	.BYTE	1
+W?YOU::	.ZWORD	"you"
+	0
+	.BYTE	2
+W?YOU'RE::	.ZWORD	"you're"
+	0
+	.BYTE	0
+W?YOUNG::	.ZWORD	"young"
+	0
+	.BYTE	4
+W?YOUR::	.ZWORD	"your"
+	0
+	.BYTE	4
+W?YUP::	.ZWORD	"yup"
+	ACT?YES
+	.BYTE	1
+W?Z::	.ZWORD	"z"
+	ACT?WAIT
+	.BYTE	1
+W?ZAP::	.ZWORD	"zap"
+	ACT?ZAP
+	.BYTE	1
+W?ZASTIC::	.ZWORD	"zastic"
+	ACT?SIZUL
+	.BYTE	3
+W?ZERO::	.ZWORD	"zero"
+	0
+	.BYTE	0
+W?ZILBEETHA::	.ZWORD	"zilbeetha"
+	0
+	.BYTE	2
+W?ZILBO::	.ZWORD	"zilbo"
+	0
+	.BYTE	6
+W?ZIPPY::	.ZWORD	"zippy"
+	0
+	.BYTE	2
+W?ZIPSO::	.ZWORD	"zipso"
+	ACT?ZIPSO
+	.BYTE	1
+W?ZNURG::	.ZWORD	"znurg"
+	0
+	.BYTE	2
+W?ZOO::	.ZWORD	"zoo"
+	0
+	.BYTE	2
+W?ZORBEL::	.ZWORD	"zorbel"
+	0
+	.BYTE	4
+W?ZORBIUS::	.ZWORD	"zorbius"
+	0
+	.BYTE	4
+W?ZORK::	.ZWORD	"zork"
+	0
+	.BYTE	2
+W?ZORKMID::	.ZWORD	"zorkmid"
+	0
+	.BYTE	6
+W?ZORKMIDS::	.ZWORD	"zorkmids"
+	0
+	.BYTE	2
+W?ZUCCHINI::	.ZWORD	"zucchini"
+	0
+	.BYTE	4
+W?ZYLO::	.ZWORD	"zylo"
+	0
+	.BYTE	4
+	.VOCEND
+	.ENDT
+
+
+; PARSER TABLES ARE DEFINED HERE
+
+PRSTBL::
+
+RT?110::	.TABLE
+	3
+	RED-SP
+	1
+	0
+	1
+	.ENDT
+
+RT?210::	.TABLE
+	2
+	RED-SV
+	2
+	0
+	3
+	.ENDT
+
+RT?310::	.TABLE
+	3
+	RED-SVN
+	2
+	0
+	3
+	.ENDT
+
+RT?410::	.TABLE
+	3
+	RED-SVNP
+	2
+	0
+	3
+	.ENDT
+
+RT?510::	.TABLE
+	4
+	RED-SVPNN
+	2
+	0
+	3
+	.ENDT
+
+RT?610::	.TABLE
+	4
+	RED-SVNPN
+	2
+	0
+	3
+	.ENDT
+
+RT?710::	.TABLE
+	5
+	RED-SVPNPN
+	2
+	0
+	3
+	.ENDT
+
+RT?810::	.TABLE
+	1
+	RED-SD
+	2
+	0
+	3
+	.ENDT
+
+RT?910::	.TABLE
+	2
+	RED-SVD
+	2
+	0
+	3
+	.ENDT
+
+RT?1010::	.TABLE
+	3
+	RED-VP
+	3
+	0
+	5
+	.ENDT
+
+RT?1110::	.TABLE
+	0
+	RED-PART
+	1
+	0
+	6
+	.ENDT
+
+RT?1210::
+RT?1310::	.TABLE
+	2
+	RED-PART
+	1
+	0
+	6
+	.ENDT
+
+RT?1410::	.TABLE
+	0
+	RED-FCN
+	1
+	0
+	4
+	.ENDT
+
+RT?1510::	.TABLE
+	1
+	RED-FCN
+	1
+	0
+	4
+	.ENDT
+
+RT?1610::	.TABLE
+	1
+	RED-NPP
+	4
+	0
+	7
+	.ENDT
+
+RT?1710::	.TABLE
+	2
+	RED-NPP
+	4
+	0
+	7
+	.ENDT
+
+RT?1810::	.TABLE
+	3
+	RED-NPP
+	4
+	0
+	7
+	.ENDT
+
+RT?1910::	.TABLE
+	2
+	RED-NP
+	6
+	0
+	8
+	.ENDT
+
+RT?2010::	.TABLE
+	3
+	RED-OF
+	5
+	0
+	8
+	.ENDT
+
+RT?2110::	.TABLE
+	1
+	RED-QT
+	7
+	0
+	8
+	.ENDT
+
+RT?2210::	.TABLE
+	2
+	RED-QN
+	5
+	0
+	8
+	.ENDT
+
+RT?2310::	.TABLE
+	1
+	RED-QUOTE
+	7
+	0
+	8
+	.ENDT
+
+RT?2410::
+RT?2510::	.TABLE
+	2
+	RED-PP
+	3
+	0
+	9
+	.ENDT
+
+RT?2610::
+RT?2710::	.TABLE
+	3
+	RED-PP
+	3
+	0
+	9
+	.ENDT
+
+RT?2810::	.TABLE
+	0
+	RED-ADJ
+	8
+	0
+	10
+	.ENDT
+
+RT?2910::
+RT?3010::
+RT?3110::	.TABLE
+	2
+	RED-ADJ
+	8
+	0
+	10
+	.ENDT
+
+RT?3210::	.TABLE
+	3
+	RED-POSS
+	8
+	0
+	11
+	.ENDT
+
+RT?3310::	.TABLE
+	0
+	RED-PERS
+	2
+	0
+	2
+	.ENDT
+
+RT?3410::	.TABLE
+	2
+	RED-PERS
+	2
+	0
+	2
+	.ENDT
+
+RT?3510::	.TABLE
+	3
+	RED-PERS
+	2
+	0
+	2
+	.ENDT
+
+RT?3610::	.TABLE
+	1
+	RED-O-NP
+	1
+	0
+	3
+	.ENDT
+
+RT?3710::	.TABLE
+	2
+	RED-O-NP
+	1
+	0
+	3
+	.ENDT
+
+RT?3810::	.TABLE
+	1
+	RED-O-ADJ
+	1
+	0
+	3
+	.ENDT
+
+RT?3910::	.TABLE
+	1
+	RED-O-PP
+	1
+	0
+	3
+	.ENDT
+
+RT?4010::	.TABLE
+	2
+	RED-O-PP
+	1
+	0
+	3
+	.ENDT
+
+RT?4110::
+REDUCTION-TABLE::	.TABLE
+	RT?110
+	RT?210
+	RT?310
+	RT?410
+	RT?510
+	RT?610
+	RT?710
+	RT?810
+	RT?910
+	RT?1010
+	RT?1110
+	RT?1210
+	RT?1310
+	RT?1410
+	RT?1510
+	RT?1610
+	RT?1710
+	RT?1810
+	RT?1910
+	RT?2010
+	RT?2110
+	RT?2210
+	RT?2310
+	RT?2410
+	RT?2510
+	RT?2610
+	RT?2710
+	RT?2810
+	RT?2910
+	RT?3010
+	RT?3110
+	RT?3210
+	RT?3310
+	RT?3410
+	RT?3510
+	RT?3610
+	RT?3710
+	RT?3810
+	RT?3910
+	RT?4010
+	.ENDT
+
+RT?4210::	.TABLE
+	.BYTE 2
+	.BYTE 161
+	.BYTE 156
+	.ENDT
+
+RT?4310::	.TABLE
+	.BYTE 2
+	.BYTE 12
+	.BYTE 161
+	.ENDT
+
+RT?4410::	.TABLE
+	.BYTE 2
+	.BYTE 10
+	.BYTE 161
+	.ENDT
+
+RT?4510::	.TABLE
+	.BYTE 2
+	.BYTE 9
+	.BYTE 161
+	.ENDT
+
+RT?4610::	.TABLE
+	.BYTE 2
+	.BYTE 8
+	.BYTE 161
+	.ENDT
+
+RT?4710::	.TABLE
+	9273
+	161
+	2
+	RT?4210
+	4
+	RT?4310
+	64
+	11
+	256
+	RT?4410
+	2048
+	RT?4510
+	4096
+	RT?4610
+	0
+	.ENDT
+
+RT?4810::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 5
+	.BYTE 2
+	.BYTE 6
+	.BYTE 1
+	.BYTE 7
+	.BYTE 0
+	.ENDT
+
+RT?4910::	.TABLE
+	RT?4710
+	RT?4810
+	.ENDT
+
+RT?5010::
+RT?6710::
+RT?8310::	.TABLE
+	9218
+	156
+	4
+	12
+	256
+	10
+	2048
+	9
+	4096
+	8
+	0
+	.ENDT
+
+RT?5110::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 65
+	.BYTE 8
+	.BYTE 14
+	.BYTE 0
+	.ENDT
+
+RT?5210::	.TABLE
+	RT?5010
+	RT?5110
+	.ENDT
+
+RT?5310::	.TABLE
+	2
+	19
+	0
+	.ENDT
+
+RT?5410::	.TABLE
+	RT?5310
+	0
+	.ENDT
+
+RT?5510::	.TABLE
+	.BYTE 2
+	.BYTE 15
+	.BYTE 144
+	.ENDT
+
+RT?5610::	.TABLE
+	12086
+	144
+	128
+	16
+	4096
+	RT?5510
+	0
+	.ENDT
+
+RT?5710::	.TABLE
+	RT?5610
+	0
+	.ENDT
+
+RT?5810::	.TABLE
+	16
+	28
+	32
+	23
+	512
+	64
+	0
+	.ENDT
+
+RT?5910::
+RT?10510::
+RT?12710::
+RT?13610::
+RT?14510::
+RT?15410::
+RT?22910::
+RT?25110::
+RT?26510::	.TABLE
+	.BYTE 9
+	.BYTE 21
+	.BYTE 0
+	.ENDT
+
+RT?6010::	.TABLE
+	RT?5810
+	RT?5910
+	.ENDT
+
+RT?6110::	.TABLE
+	.BYTE 2
+	.BYTE 41
+	.BYTE 156
+	.ENDT
+
+RT?6210::	.TABLE
+	8194
+	156
+	1
+	142
+	4
+	12
+	8
+	43
+	16
+	42
+	32
+	23
+	256
+	10
+	1024
+	RT?6110
+	2048
+	9
+	4096
+	8
+	0
+	.ENDT
+
+RT?6310::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 35
+	.BYTE 9
+	.BYTE 36
+	.BYTE 8
+	.BYTE 37
+	.BYTE 5
+	.BYTE 38
+	.BYTE 4
+	.BYTE 39
+	.BYTE 3
+	.BYTE 40
+	.BYTE 0
+	.ENDT
+
+RT?6410::	.TABLE
+	RT?6210
+	RT?6310
+	.ENDT
+
+RT?6510::	.TABLE
+	8192
+	128
+	0
+	.ENDT
+
+RT?6610::	.TABLE
+	RT?6510
+	0
+	.ENDT
+
+RT?6810::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 34
+	.BYTE 8
+	.BYTE 14
+	.BYTE 0
+	.ENDT
+
+RT?6910::	.TABLE
+	RT?6710
+	RT?6810
+	.ENDT
+
+RT?7010::	.TABLE
+	.BYTE 2
+	.BYTE 149
+	.BYTE 156
+	.ENDT
+
+RT?7110::	.TABLE
+	.BYTE 2
+	.BYTE 12
+	.BYTE 149
+	.ENDT
+
+RT?7210::	.TABLE
+	.BYTE 2
+	.BYTE 10
+	.BYTE 149
+	.ENDT
+
+RT?7310::	.TABLE
+	.BYTE 2
+	.BYTE 9
+	.BYTE 149
+	.ENDT
+
+RT?7410::	.TABLE
+	.BYTE 2
+	.BYTE 8
+	.BYTE 149
+	.ENDT
+
+RT?7510::	.TABLE
+	9904
+	149
+	2
+	RT?7010
+	4
+	RT?7110
+	256
+	RT?7210
+	2048
+	RT?7310
+	4096
+	RT?7410
+	0
+	.ENDT
+
+RT?7610::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 33
+	.BYTE 0
+	.ENDT
+
+RT?7710::	.TABLE
+	RT?7510
+	RT?7610
+	.ENDT
+
+RT?7810::	.TABLE
+	16310
+	151
+	0
+	.ENDT
+
+RT?7910::	.TABLE
+	RT?7810
+	0
+	.ENDT
+
+RT?8010::
+RT?9310::
+RT?10910::
+RT?12910::
+RT?14710::
+RT?23110::
+RT?25310::	.TABLE
+	2
+	156
+	4
+	12
+	256
+	10
+	2048
+	9
+	4096
+	8
+	0
+	.ENDT
+
+RT?8110::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 20
+	.BYTE 0
+	.ENDT
+
+RT?8210::	.TABLE
+	RT?8010
+	RT?8110
+	.ENDT
+
+RT?8410::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 13
+	.BYTE 8
+	.BYTE 14
+	.BYTE 0
+	.ENDT
+
+RT?8510::	.TABLE
+	RT?8310
+	RT?8410
+	.ENDT
+
+RT?8610::	.TABLE
+	.BYTE 2
+	.BYTE 19
+	.BYTE 157
+	.ENDT
+
+RT?8710::	.TABLE
+	9216
+	157
+	2
+	RT?8610
+	0
+	.ENDT
+
+RT?8810::	.TABLE
+	RT?8710
+	0
+	.ENDT
+
+RT?8910::	.TABLE
+	128
+	16
+	4096
+	15
+	0
+	.ENDT
+
+RT?9010::	.TABLE
+	RT?8910
+	0
+	.ENDT
+
+RT?9110::	.TABLE
+	4096
+	18
+	0
+	.ENDT
+
+RT?9210::	.TABLE
+	RT?9110
+	0
+	.ENDT
+
+RT?9410::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 17
+	.BYTE 0
+	.ENDT
+
+RT?9510::	.TABLE
+	RT?9310
+	RT?9410
+	.ENDT
+
+RT?9610::	.TABLE
+	.BYTE 2
+	.BYTE 16
+	.BYTE 148
+	.ENDT
+
+RT?9710::	.TABLE
+	.BYTE 2
+	.BYTE 15
+	.BYTE 148
+	.ENDT
+
+RT?9810::	.TABLE
+	12086
+	148
+	128
+	RT?9610
+	4096
+	RT?9710
+	0
+	.ENDT
+
+RT?9910::	.TABLE
+	RT?9810
+	0
+	.ENDT
+
+RT?10010::	.TABLE
+	15622
+	160
+	0
+	.ENDT
+
+RT?10110::	.TABLE
+	RT?10010
+	0
+	.ENDT
+
+RT?10210::	.TABLE
+	16310
+	147
+	0
+	.ENDT
+
+RT?10310::	.TABLE
+	RT?10210
+	0
+	.ENDT
+
+RT?10410::	.TABLE
+	16
+	24
+	32
+	23
+	512
+	22
+	0
+	.ENDT
+
+RT?10610::	.TABLE
+	RT?10410
+	RT?10510
+	.ENDT
+
+RT?10710::	.TABLE
+	16182
+	145
+	0
+	.ENDT
+
+RT?10810::	.TABLE
+	RT?10710
+	0
+	.ENDT
+
+RT?11010::
+RT?27510::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 32
+	.BYTE 0
+	.ENDT
+
+RT?11110::	.TABLE
+	RT?10910
+	RT?11010
+	.ENDT
+
+RT?11210::	.TABLE
+	2
+	156
+	4
+	12
+	128
+	30
+	256
+	10
+	2048
+	9
+	4096
+	8
+	0
+	.ENDT
+
+RT?11310::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 29
+	.BYTE 0
+	.ENDT
+
+RT?11410::	.TABLE
+	RT?11210
+	RT?11310
+	.ENDT
+
+RT?11510::	.TABLE
+	.BYTE 2
+	.BYTE 163
+	.BYTE 156
+	.ENDT
+
+RT?11610::	.TABLE
+	.BYTE 2
+	.BYTE 12
+	.BYTE 163
+	.ENDT
+
+RT?11710::	.TABLE
+	.BYTE 2
+	.BYTE 10
+	.BYTE 163
+	.ENDT
+
+RT?11810::	.TABLE
+	.BYTE 2
+	.BYTE 9
+	.BYTE 163
+	.ENDT
+
+RT?11910::	.TABLE
+	.BYTE 2
+	.BYTE 8
+	.BYTE 163
+	.ENDT
+
+RT?12010::	.TABLE
+	9273
+	163
+	2
+	RT?11510
+	4
+	RT?11610
+	128
+	26
+	256
+	RT?11710
+	2048
+	RT?11810
+	4096
+	RT?11910
+	0
+	.ENDT
+
+RT?12110::
+RT?13910::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 25
+	.BYTE 0
+	.ENDT
+
+RT?12210::	.TABLE
+	RT?12010
+	RT?12110
+	.ENDT
+
+RT?12310::	.TABLE
+	.BYTE 2
+	.BYTE 28
+	.BYTE 153
+	.ENDT
+
+RT?12410::	.TABLE
+	.BYTE 2
+	.BYTE 23
+	.BYTE 153
+	.ENDT
+
+RT?12510::	.TABLE
+	.BYTE 2
+	.BYTE 22
+	.BYTE 153
+	.ENDT
+
+RT?12610::	.TABLE
+	15622
+	153
+	16
+	RT?12310
+	32
+	RT?12410
+	512
+	RT?12510
+	0
+	.ENDT
+
+RT?12810::	.TABLE
+	RT?12610
+	RT?12710
+	.ENDT
+
+RT?13010::
+RT?24810::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 27
+	.BYTE 0
+	.ENDT
+
+RT?13110::	.TABLE
+	RT?12910
+	RT?13010
+	.ENDT
+
+RT?13210::	.TABLE
+	.BYTE 2
+	.BYTE 28
+	.BYTE 155
+	.ENDT
+
+RT?13310::	.TABLE
+	.BYTE 2
+	.BYTE 23
+	.BYTE 155
+	.ENDT
+
+RT?13410::	.TABLE
+	.BYTE 2
+	.BYTE 22
+	.BYTE 155
+	.ENDT
+
+RT?13510::	.TABLE
+	15622
+	155
+	16
+	RT?13210
+	32
+	RT?13310
+	512
+	RT?13410
+	0
+	.ENDT
+
+RT?13710::	.TABLE
+	RT?13510
+	RT?13610
+	.ENDT
+
+RT?13810::
+RT?18810::	.TABLE
+	2
+	156
+	4
+	12
+	128
+	26
+	256
+	10
+	2048
+	9
+	4096
+	8
+	0
+	.ENDT
+
+RT?14010::	.TABLE
+	RT?13810
+	RT?13910
+	.ENDT
+
+RT?14110::	.TABLE
+	.BYTE 2
+	.BYTE 28
+	.BYTE 152
+	.ENDT
+
+RT?14210::	.TABLE
+	.BYTE 2
+	.BYTE 23
+	.BYTE 152
+	.ENDT
+
+RT?14310::	.TABLE
+	.BYTE 2
+	.BYTE 22
+	.BYTE 152
+	.ENDT
+
+RT?14410::	.TABLE
+	15622
+	152
+	16
+	RT?14110
+	32
+	RT?14210
+	512
+	RT?14310
+	0
+	.ENDT
+
+RT?14610::	.TABLE
+	RT?14410
+	RT?14510
+	.ENDT
+
+RT?14810::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 31
+	.BYTE 0
+	.ENDT
+
+RT?14910::	.TABLE
+	RT?14710
+	RT?14810
+	.ENDT
+
+RT?15010::	.TABLE
+	.BYTE 2
+	.BYTE 28
+	.BYTE 154
+	.ENDT
+
+RT?15110::	.TABLE
+	.BYTE 2
+	.BYTE 23
+	.BYTE 154
+	.ENDT
+
+RT?15210::	.TABLE
+	.BYTE 2
+	.BYTE 22
+	.BYTE 154
+	.ENDT
+
+RT?15310::	.TABLE
+	15622
+	154
+	16
+	RT?15010
+	32
+	RT?15110
+	512
+	RT?15210
+	0
+	.ENDT
+
+RT?15510::	.TABLE
+	RT?15310
+	RT?15410
+	.ENDT
+
+RT?15610::	.TABLE
+	.BYTE 2
+	.BYTE 15
+	.BYTE 146
+	.ENDT
+
+RT?15710::	.TABLE
+	12086
+	146
+	128
+	16
+	4096
+	RT?15610
+	0
+	.ENDT
+
+RT?15810::	.TABLE
+	RT?15710
+	0
+	.ENDT
+
+RT?15910::	.TABLE
+	.BYTE 2
+	.BYTE 16
+	.BYTE 150
+	.ENDT
+
+RT?16010::	.TABLE
+	.BYTE 2
+	.BYTE 15
+	.BYTE 150
+	.ENDT
+
+RT?16110::	.TABLE
+	12086
+	150
+	128
+	RT?15910
+	4096
+	RT?16010
+	0
+	.ENDT
+
+RT?16210::	.TABLE
+	RT?16110
+	0
+	.ENDT
+
+RT?16310::	.TABLE
+	.BYTE 2
+	.BYTE 19
+	.BYTE 158
+	.ENDT
+
+RT?16410::	.TABLE
+	9216
+	158
+	2
+	RT?16310
+	0
+	.ENDT
+
+RT?16510::	.TABLE
+	RT?16410
+	0
+	.ENDT
+
+RT?16610::	.TABLE
+	9216
+	166
+	2
+	19
+	0
+	.ENDT
+
+RT?16710::	.TABLE
+	RT?16610
+	0
+	.ENDT
+
+RT?16810::	.TABLE
+	9216
+	167
+	0
+	.ENDT
+
+RT?16910::	.TABLE
+	RT?16810
+	0
+	.ENDT
+
+RT?17010::	.TABLE
+	9216
+	164
+	16
+	28
+	32
+	23
+	128
+	16
+	4096
+	15
+	0
+	.ENDT
+
+RT?17110::	.TABLE
+	.BYTE 9
+	.BYTE 63
+	.BYTE 0
+	.ENDT
+
+RT?17210::	.TABLE
+	RT?17010
+	RT?17110
+	.ENDT
+
+RT?17310::
+RT?22010::
+RT?23410::
+RT?25610::	.TABLE
+	.BYTE 2
+	.BYTE 139
+	.BYTE 156
+	.ENDT
+
+RT?17410::
+RT?22110::
+RT?23510::
+RT?25710::	.TABLE
+	.BYTE 2
+	.BYTE 12
+	.BYTE 139
+	.ENDT
+
+RT?17510::
+RT?22210::
+RT?23610::
+RT?25810::	.TABLE
+	.BYTE 2
+	.BYTE 10
+	.BYTE 139
+	.ENDT
+
+RT?17610::
+RT?22310::
+RT?23710::
+RT?25910::	.TABLE
+	.BYTE 2
+	.BYTE 9
+	.BYTE 139
+	.ENDT
+
+RT?17710::
+RT?22410::
+RT?23810::
+RT?26010::	.TABLE
+	.BYTE 2
+	.BYTE 8
+	.BYTE 139
+	.ENDT
+
+RT?17810::	.TABLE
+	9216
+	139
+	2
+	RT?17310
+	4
+	RT?17410
+	8
+	51
+	16
+	50
+	256
+	RT?17510
+	2048
+	RT?17610
+	4096
+	RT?17710
+	0
+	.ENDT
+
+RT?17910::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 48
+	.BYTE 6
+	.BYTE 49
+	.BYTE 0
+	.ENDT
+
+RT?18010::	.TABLE
+	RT?17810
+	RT?17910
+	.ENDT
+
+RT?18110::	.TABLE
+	1
+	46
+	0
+	.ENDT
+
+RT?18210::	.TABLE
+	RT?18110
+	0
+	.ENDT
+
+RT?18310::	.TABLE
+	1024
+	41
+	8192
+	142
+	0
+	.ENDT
+
+RT?18410::	.TABLE
+	.BYTE 4
+	.BYTE 45
+	.BYTE 0
+	.ENDT
+
+RT?18510::	.TABLE
+	RT?18310
+	RT?18410
+	.ENDT
+
+RT?18610::	.TABLE
+	15647
+	143
+	0
+	.ENDT
+
+RT?18710::	.TABLE
+	RT?18610
+	0
+	.ENDT
+
+RT?18910::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 44
+	.BYTE 7
+	.BYTE 25
+	.BYTE 0
+	.ENDT
+
+RT?19010::	.TABLE
+	RT?18810
+	RT?18910
+	.ENDT
+
+RT?19110::	.TABLE
+	9216
+	136
+	0
+	.ENDT
+
+RT?19210::	.TABLE
+	RT?19110
+	0
+	.ENDT
+
+RT?19310::
+RT?19410::	.TABLE
+	.BYTE 2
+	.BYTE 168
+	.BYTE 144
+	.ENDT
+
+RT?19510::	.TABLE
+	560
+	144
+	9216
+	RT?19310
+	128
+	16
+	4096
+	15
+	0
+	.ENDT
+
+RT?19610::	.TABLE
+	RT?19510
+	0
+	.ENDT
+
+RT?19710::	.TABLE
+	8192
+	129
+	0
+	.ENDT
+
+RT?19810::	.TABLE
+	RT?19710
+	0
+	.ENDT
+
+RT?19910::	.TABLE
+	.BYTE 2
+	.BYTE 41
+	.BYTE 142
+	.ENDT
+
+RT?20010::	.TABLE
+	14622
+	142
+	1024
+	RT?19910
+	0
+	.ENDT
+
+RT?20110::	.TABLE
+	.BYTE 4
+	.BYTE 47
+	.BYTE 0
+	.ENDT
+
+RT?20210::	.TABLE
+	RT?20010
+	RT?20110
+	.ENDT
+
+RT?20310::	.TABLE
+	15646
+	138
+	0
+	.ENDT
+
+RT?20410::	.TABLE
+	RT?20310
+	0
+	.ENDT
+
+RT?20510::	.TABLE
+	6406
+	139
+	16
+	61
+	32
+	23
+	512
+	22
+	0
+	.ENDT
+
+RT?20610::	.TABLE
+	.BYTE 9
+	.BYTE 21
+	.BYTE 6
+	.BYTE 60
+	.BYTE 0
+	.ENDT
+
+RT?20710::	.TABLE
+	RT?20510
+	RT?20610
+	.ENDT
+
+RT?20810::	.TABLE
+	9216
+	130
+	2
+	156
+	4
+	12
+	256
+	10
+	2048
+	9
+	4096
+	8
+	0
+	.ENDT
+
+RT?20910::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 54
+	.BYTE 0
+	.ENDT
+
+RT?21010::	.TABLE
+	RT?20810
+	RT?20910
+	.ENDT
+
+RT?21110::	.TABLE
+	15622
+	139
+	16
+	50
+	128
+	53
+	0
+	.ENDT
+
+RT?21210::	.TABLE
+	.BYTE 6
+	.BYTE 52
+	.BYTE 0
+	.ENDT
+
+RT?21310::	.TABLE
+	RT?21110
+	RT?21210
+	.ENDT
+
+RT?21410::	.TABLE
+	9216
+	137
+	0
+	.ENDT
+
+RT?21510::	.TABLE
+	RT?21410
+	0
+	.ENDT
+
+RT?21610::	.TABLE
+	15622
+	141
+	0
+	.ENDT
+
+RT?21710::	.TABLE
+	RT?21610
+	0
+	.ENDT
+
+RT?21810::	.TABLE
+	15622
+	140
+	0
+	.ENDT
+
+RT?21910::	.TABLE
+	RT?21810
+	0
+	.ENDT
+
+RT?22510::	.TABLE
+	9216
+	131
+	2
+	RT?22010
+	4
+	RT?22110
+	16
+	57
+	32
+	23
+	256
+	RT?22210
+	512
+	22
+	2048
+	RT?22310
+	4096
+	RT?22410
+	0
+	.ENDT
+
+RT?22610::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 9
+	.BYTE 21
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 55
+	.BYTE 6
+	.BYTE 56
+	.BYTE 0
+	.ENDT
+
+RT?22710::	.TABLE
+	RT?22510
+	RT?22610
+	.ENDT
+
+RT?22810::	.TABLE
+	9216
+	133
+	16
+	28
+	32
+	23
+	512
+	22
+	0
+	.ENDT
+
+RT?23010::	.TABLE
+	RT?22810
+	RT?22910
+	.ENDT
+
+RT?23210::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 59
+	.BYTE 0
+	.ENDT
+
+RT?23310::	.TABLE
+	RT?23110
+	RT?23210
+	.ENDT
+
+RT?23910::	.TABLE
+	2
+	RT?23410
+	4
+	RT?23510
+	16
+	50
+	128
+	58
+	256
+	RT?23610
+	2048
+	RT?23710
+	4096
+	RT?23810
+	0
+	.ENDT
+
+RT?24010::
+RT?26210::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 25
+	.BYTE 6
+	.BYTE 52
+	.BYTE 0
+	.ENDT
+
+RT?24110::	.TABLE
+	RT?23910
+	RT?24010
+	.ENDT
+
+RT?24210::	.TABLE
+	.BYTE 2
+	.BYTE 140
+	.BYTE 156
+	.ENDT
+
+RT?24310::	.TABLE
+	.BYTE 2
+	.BYTE 12
+	.BYTE 140
+	.ENDT
+
+RT?24410::	.TABLE
+	.BYTE 2
+	.BYTE 10
+	.BYTE 140
+	.ENDT
+
+RT?24510::	.TABLE
+	.BYTE 2
+	.BYTE 9
+	.BYTE 140
+	.ENDT
+
+RT?24610::	.TABLE
+	.BYTE 2
+	.BYTE 8
+	.BYTE 140
+	.ENDT
+
+RT?24710::	.TABLE
+	2
+	RT?24210
+	4
+	RT?24310
+	256
+	RT?24410
+	2048
+	RT?24510
+	4096
+	RT?24610
+	0
+	.ENDT
+
+RT?24910::	.TABLE
+	RT?24710
+	RT?24810
+	.ENDT
+
+RT?25010::	.TABLE
+	9216
+	135
+	16
+	28
+	32
+	23
+	512
+	22
+	0
+	.ENDT
+
+RT?25210::	.TABLE
+	RT?25010
+	RT?25110
+	.ENDT
+
+RT?25410::	.TABLE
+	.BYTE 11
+	.BYTE 2
+	.BYTE 10
+	.BYTE 3
+	.BYTE 8
+	.BYTE 4
+	.BYTE 7
+	.BYTE 62
+	.BYTE 0
+	.ENDT
+
+RT?25510::	.TABLE
+	RT?25310
+	RT?25410
+	.ENDT
+
+RT?26110::	.TABLE
+	9216
+	132
+	2
+	RT?25610
+	4
+	RT?25710
+	16
+	50
+	128
+	58
+	256
+	RT?25810
+	2048
+	RT?25910
+	4096
+	RT?26010
+	0
+	.ENDT
+
+RT?26310::	.TABLE
+	RT?26110
+	RT?26210
+	.ENDT
+
+RT?26410::	.TABLE
+	9216
+	134
+	16
+	28
+	32
+	23
+	512
+	22
+	0
+	.ENDT
+
+RT?26610::	.TABLE
+	RT?26410
+	RT?26510
+	.ENDT
+
+RT?26710::	.TABLE
+	9216
+	165
+	0
+	.ENDT
+
+RT?26810::	.TABLE
+	RT?26710
+	0
+	.ENDT
+
+RT?26910::	.TABLE
+	.BYTE 2
+	.BYTE 162
+	.BYTE 156
+	.ENDT
+
+RT?27010::	.TABLE
+	.BYTE 2
+	.BYTE 12
+	.BYTE 162
+	.ENDT
+
+RT?27110::	.TABLE
+	.BYTE 2
+	.BYTE 10
+	.BYTE 162
+	.ENDT
+
+RT?27210::	.TABLE
+	.BYTE 2
+	.BYTE 9
+	.BYTE 162
+	.ENDT
+
+RT?27310::	.TABLE
+	.BYTE 2
+	.BYTE 8
+	.BYTE 162
+	.ENDT
+
+RT?27410::	.TABLE
+	9273
+	162
+	2
+	RT?26910
+	4
+	RT?27010
+	256
+	RT?27110
+	2048
+	RT?27210
+	4096
+	RT?27310
+	0
+	.ENDT
+
+RT?27610::	.TABLE
+	RT?27410
+	RT?27510
+	.ENDT
+
+RT?27710::	.TABLE
+	.BYTE 2
+	.BYTE 19
+	.BYTE 159
+	.ENDT
+
+RT?27810::	.TABLE
+	9216
+	159
+	2
+	RT?27710
+	0
+	.ENDT
+
+RT?27910::	.TABLE
+	RT?27810
+	0
+	.ENDT
+
+RT?28010::
+ACTION-TABLE::	.TABLE
+	65
+	RT?4910
+	RT?5210
+	RT?5410
+	RT?5710
+	RT?6010
+	RT?6410
+	RT?6610
+	RT?6910
+	RT?7710
+	RT?7910
+	RT?8210
+	RT?8510
+	RT?8810
+	RT?9010
+	RT?9210
+	RT?9510
+	RT?9910
+	RT?10110
+	RT?10310
+	RT?10610
+	RT?10810
+	RT?11110
+	RT?11410
+	RT?12210
+	RT?12810
+	RT?13110
+	RT?13710
+	RT?14010
+	RT?14610
+	RT?14910
+	RT?15510
+	RT?15810
+	RT?16210
+	RT?16510
+	RT?16710
+	RT?16910
+	RT?17210
+	RT?18010
+	RT?18210
+	RT?18510
+	RT?18710
+	RT?19010
+	RT?19210
+	RT?19610
+	RT?19810
+	RT?20210
+	RT?20410
+	RT?20710
+	RT?21010
+	RT?21310
+	RT?21510
+	RT?21710
+	RT?21910
+	RT?22710
+	RT?23010
+	RT?23310
+	RT?24110
+	RT?24910
+	RT?25210
+	RT?25510
+	RT?26310
+	RT?26610
+	RT?26810
+	RT?27610
+	RT?27910
+	.ENDT
+
+RT?131::	.TABLE
+	1
+	V?HELLO
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?231::	.TABLE
+	1
+	V?ASK-NO-ONE-FOR
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?331::	.TABLE
+	3
+	V?ASK-ABOUT
+	0
+	.BYTE 47
+	.BYTE 15
+	W?ABOUT
+	.BYTE 0
+	.BYTE 128
+	V?ASK-ABOUT
+	0
+	.BYTE 47
+	.BYTE 15
+	W?ON
+	.BYTE 0
+	.BYTE 128
+	V?ASK-FOR
+	0
+	.BYTE 47
+	.BYTE 15
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?431::	.TABLE
+	5
+	V?CUT
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 12
+	V?CUT
+	0
+	.BYTE 0
+	.BYTE 15
+	W?OFF
+	.BYTE 43
+	.BYTE 15
+	V?CUT
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 12
+	V?CUT
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 12
+	V?CUT
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+RT?531::	.TABLE
+	1
+	V?DECODE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?631::	.TABLE
+	10
+	V?CLIMB
+	0
+	.BYTE 0
+	.BYTE 3
+	V?CLIMB-ON
+	W?ON
+	.BYTE 45
+	.BYTE 3
+	V?CLIMB-UP
+	W?UP
+	.BYTE 43
+	.BYTE 3
+	V?CLIMB-DOWN
+	W?DOWN
+	.BYTE 43
+	.BYTE 3
+	V?EXIT
+	W?OUT
+	.BYTE 43
+	.BYTE 3
+	V?EXIT
+	W?OFF
+	.BYTE 43
+	.BYTE 3
+	V?CLIMB-OVER
+	W?OVER
+	.BYTE 0
+	.BYTE 3
+	V?ENTER
+	W?IN
+	.BYTE 45
+	.BYTE 3
+	V?ENTER
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?CRAWL-UNDER
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?731::	.TABLE
+	1
+	V?SWAT
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?831::	.TABLE
+	1
+	V?SWAT
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?931::	.TABLE
+	1
+	V?FILL
+	0
+	.BYTE 0
+	.BYTE 76
+	.ENDT
+
+RT?1031::	.TABLE
+	3
+	V?FILL
+	0
+	.BYTE 0
+	.BYTE 76
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	V?FILL
+	0
+	.BYTE 0
+	.BYTE 76
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	V?FILL
+	0
+	.BYTE 0
+	.BYTE 76
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?1131::	.TABLE
+	1
+	V?BEHEAD
+	0
+	.BYTE 47
+	.BYTE 15
+	.ENDT
+
+RT?1231::	.TABLE
+	1
+	V?EAT
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?1331::	.TABLE
+	1
+	V?EXAMINE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?1431::	.TABLE
+	1
+	V?MIRROR-LOOK
+	0
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?1531::	.TABLE
+	1
+	V?CLIMB-DOWN
+	W?DOWN
+	.BYTE 43
+	.BYTE 3
+	.ENDT
+
+RT?1631::	.TABLE
+	3
+	V?CLOSE
+	0
+	.BYTE 42
+	.BYTE 15
+	V?OFF
+	W?OFF
+	.BYTE 41
+	.BYTE 47
+	V?SHUT-UP
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?1731::
+RT?2731::	.TABLE
+	1
+	V?LOCK
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 40
+	.BYTE 79
+	.ENDT
+
+RT?1831::	.TABLE
+	1
+	V?CROSS
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?1931::	.TABLE
+	4
+	V?SET
+	0
+	.BYTE 0
+	.BYTE 15
+	V?SET
+	W?AROUND
+	.BYTE 43
+	.BYTE 15
+	V?ON
+	W?ON
+	.BYTE 41
+	.BYTE 15
+	V?OFF
+	W?OFF
+	.BYTE 41
+	.BYTE 15
+	.ENDT
+
+RT?2031::	.TABLE
+	3
+	V?SET-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?SET
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?2131::	.TABLE
+	2
+	V?POINT
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	V?POINT
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?2231::	.TABLE
+	2
+	V?POINT
+	0
+	.BYTE 0
+	.BYTE 111
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	V?POINT
+	0
+	.BYTE 0
+	.BYTE 111
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?2331::	.TABLE
+	1
+	V?BITE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?2431::	.TABLE
+	1
+	V?KICK
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?2531::	.TABLE
+	2
+	V?BURN
+	0
+	.BYTE 44
+	.BYTE 15
+	V?BURN
+	W?UP
+	.BYTE 44
+	.BYTE 15
+	.ENDT
+
+RT?2631::	.TABLE
+	2
+	V?BURN
+	0
+	.BYTE 44
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?BURN
+	W?UP
+	.BYTE 44
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?2831::	.TABLE
+	3
+	V?YELL
+	0
+	.BYTE 0
+	.BYTE 15
+	V?YELL
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	V?YELL
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?2931::	.TABLE
+	1
+	V?REMOVE
+	0
+	.BYTE 36
+	.BYTE 20
+	.ENDT
+
+RT?3031::	.TABLE
+	2
+	V?TAKE-WITH
+	0
+	.BYTE 0
+	.BYTE 31
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 39
+	.BYTE 31
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?3131::	.TABLE
+	2
+	V?DRINK
+	0
+	.BYTE 0
+	.BYTE 15
+	V?DRINK-FROM
+	W?FROM
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+RT?3231::	.TABLE
+	2
+	V?DRINK-WITH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	V?DRINK-WITH
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?3331::	.TABLE
+	2
+	V?ALARM
+	0
+	.BYTE 43
+	.BYTE 15
+	V?ALARM
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?3431::	.TABLE
+	2
+	V?ENTER
+	W?IN
+	.BYTE 0
+	.BYTE 3
+	V?ENTER
+	W?ON
+	.BYTE 0
+	.BYTE 3
+	.ENDT
+
+RT?3531::	.TABLE
+	1
+	V?SMELL
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?3631::	.TABLE
+	1
+	V?SWING
+	0
+	.BYTE 0
+	.BYTE 76
+	.ENDT
+
+RT?3731::	.TABLE
+	1
+	V?OFF
+	0
+	.BYTE 46
+	.BYTE 15
+	.ENDT
+
+RT?3831::	.TABLE
+	1
+	V?CLIMB-DOWN
+	0
+	.BYTE 0
+	.BYTE 3
+	.ENDT
+
+RT?3931::	.TABLE
+	1
+	V?$VERIFY
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?4031::	.TABLE
+	2
+	V?RIDE-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?LEAD-TO
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?4131::	.TABLE
+	1
+	V?GIVE-UP
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?4231::	.TABLE
+	2
+	V?SGIVE
+	0
+	.BYTE 47
+	.BYTE 1
+	0
+	.BYTE 0
+	.BYTE 84
+	V?GIVE
+	0
+	.BYTE 39
+	.BYTE 84
+	W?TO
+	.BYTE 47
+	.BYTE 1
+	.ENDT
+
+RT?4331::	.TABLE
+	1
+	V?LEAVE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?4431::	.TABLE
+	2
+	V?PUT
+	0
+	.BYTE 0
+	.BYTE 20
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?4531::	.TABLE
+	2
+	V?ROLL
+	0
+	.BYTE 0
+	.BYTE 15
+	V?ROLL
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?4631::	.TABLE
+	3
+	V?ROLL-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?ROLL-DOWN
+	0
+	.BYTE 0
+	.BYTE 15
+	W?DOWN
+	.BYTE 43
+	.BYTE 15
+	V?ROLL-UP
+	0
+	.BYTE 0
+	.BYTE 15
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?4731::	.TABLE
+	1
+	V?YAWN
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?4831::	.TABLE
+	1
+	V?DROP
+	0
+	.BYTE 0
+	.BYTE 84
+	.ENDT
+
+RT?4931::	.TABLE
+	7
+	V?PUT
+	0
+	.BYTE 0
+	.BYTE 20
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	V?PUT
+	0
+	.BYTE 0
+	.BYTE 20
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?THROW-FROM
+	0
+	.BYTE 0
+	.BYTE 12
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	V?THROW-FROM
+	0
+	.BYTE 0
+	.BYTE 12
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 20
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 20
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?5031::	.TABLE
+	1
+	V?ZAP
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?5131::	.TABLE
+	2
+	V?ZAP
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 111
+	V?POINT
+	0
+	.BYTE 0
+	.BYTE 111
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?5231::	.TABLE
+	2
+	V?EMPTY
+	0
+	.BYTE 0
+	.BYTE 111
+	V?EMPTY
+	W?OUT
+	.BYTE 0
+	.BYTE 111
+	.ENDT
+
+RT?5331::	.TABLE
+	6
+	V?EMPTY
+	0
+	.BYTE 0
+	.BYTE 111
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	V?EMPTY
+	0
+	.BYTE 0
+	.BYTE 111
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?EMPTY
+	0
+	.BYTE 0
+	.BYTE 111
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?EMPTY
+	0
+	.BYTE 0
+	.BYTE 111
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?EMPTY-FROM
+	0
+	.BYTE 0
+	.BYTE 31
+	W?FROM
+	.BYTE 0
+	.BYTE 111
+	V?EMPTY-FROM
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OUT
+	.BYTE 0
+	.BYTE 111
+	.ENDT
+
+RT?5431::	.TABLE
+	14
+	V?CHASTISE
+	0
+	.BYTE 0
+	.BYTE 15
+	V?LOOK
+	W?AROUND
+	.BYTE 43
+	.BYTE 15
+	V?LOOK-DOWN
+	W?DOWN
+	.BYTE 43
+	.BYTE 15
+	V?EXAMINE
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	V?EXAMINE
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?EXAMINE
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?LOOK-INSIDE
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?LOOK-INSIDE
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?LOOK-INSIDE
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?LOOK-UNDER
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?LOOK-BEHIND
+	W?BEHIND
+	.BYTE 0
+	.BYTE 15
+	V?LOOK-OVER
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	V?FIND
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	V?RESEARCH
+	W?UP
+	.BYTE 43
+	.BYTE 128
+	.ENDT
+
+RT?5531::	.TABLE
+	6
+	V?EXAMINE
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?EXAMINE
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	W?THROUGH
+	.BYTE 0
+	.BYTE 79
+	V?EXAMINE
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?MIRROR-LOOK
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?SSEARCH-OBJECT-FOR
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?RESEARCH
+	W?UP
+	.BYTE 0
+	.BYTE 128
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?5631::	.TABLE
+	1
+	V?SNAP
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?5731::	.TABLE
+	4
+	V?MUNG
+	0
+	.BYTE 0
+	.BYTE 3
+	V?MUNG
+	W?OUT
+	.BYTE 43
+	.BYTE 15
+	V?KILL
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	V?MUNG
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?5831::	.TABLE
+	1
+	V?MUNG
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 44
+	.ENDT
+
+RT?5931::	.TABLE
+	1
+	V?SPUT-ON
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 20
+	.ENDT
+
+RT?6031::	.TABLE
+	1
+	V?SEND
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?6131::	.TABLE
+	1
+	V?DIG-WITH
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?6231::	.TABLE
+	4
+	V?DIG
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?DIG
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?DIG
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?DIG
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?6331::	.TABLE
+	1
+	V?REACH-IN
+	W?IN
+	.BYTE 0
+	.BYTE 3
+	.ENDT
+
+RT?6431::	.TABLE
+	4
+	V?CLIMB-ON
+	W?ON
+	.BYTE 0
+	.BYTE 3
+	V?SIT
+	W?DOWN
+	.BYTE 43
+	.BYTE 3
+	V?SIT
+	W?AT
+	.BYTE 0
+	.BYTE 3
+	V?CLIMB-ON
+	W?IN
+	.BYTE 0
+	.BYTE 3
+	.ENDT
+
+RT?6531::	.TABLE
+	4
+	V?PUSH
+	0
+	.BYTE 0
+	.BYTE 3
+	V?PUSH
+	W?ON
+	.BYTE 0
+	.BYTE 3
+	V?LOWER
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	V?RAISE
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?6631::	.TABLE
+	3
+	V?PUSH-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?PUT-UNDER
+	0
+	.BYTE 0
+	.BYTE 15
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?PUT
+	0
+	.BYTE 0
+	.BYTE 20
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?6731::	.TABLE
+	1
+	V?HANG
+	0
+	.BYTE 47
+	.BYTE 15
+	.ENDT
+
+RT?6831::	.TABLE
+	2
+	V?SRESEARCH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?ABOUT
+	.BYTE 0
+	.BYTE 128
+	V?SRESEARCH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?ON
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?6931::	.TABLE
+	2
+	V?TIP
+	0
+	.BYTE 0
+	.BYTE 15
+	V?TIP-OVER
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?7031::	.TABLE
+	1
+	V?WALK-AROUND
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?7131::	.TABLE
+	4
+	V?CLEAN
+	0
+	.BYTE 0
+	.BYTE 15
+	V?CLEAN
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	V?CLEAN
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	V?CLEAN
+	W?AWAY
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?7231::	.TABLE
+	5
+	V?CLEAN
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?CLEAN
+	0
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?CLEAN
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?CLEAN
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?CLEAN
+	W?AWAY
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?7331::	.TABLE
+	1
+	V?UNTIE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?7431::	.TABLE
+	2
+	V?SWIM
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?SWIM
+	W?ACROSS
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?7531::	.TABLE
+	2
+	V?EXIT
+	0
+	.BYTE 45
+	.BYTE 3
+	V?EXIT
+	W?FROM
+	.BYTE 45
+	.BYTE 3
+	.ENDT
+
+RT?7631::	.TABLE
+	2
+	V?PAY
+	0
+	.BYTE 47
+	.BYTE 15
+	V?BUY
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?7731::	.TABLE
+	1
+	V?GIVE
+	0
+	.BYTE 0
+	.BYTE 84
+	W?TO
+	.BYTE 47
+	.BYTE 1
+	.ENDT
+
+RT?7831::	.TABLE
+	1
+	V?WEAR
+	0
+	.BYTE 34
+	.BYTE 124
+	.ENDT
+
+RT?7931::	.TABLE
+	4
+	V?SEARCH
+	0
+	.BYTE 0
+	.BYTE 15
+	V?SEARCH
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?FIND
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	V?SEARCH
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8031::	.TABLE
+	2
+	V?SEARCH-OBJECT-FOR
+	0
+	.BYTE 0
+	.BYTE 15
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	V?SSEARCH-OBJECT-FOR
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8131::	.TABLE
+	1
+	V?THANK
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8231::	.TABLE
+	1
+	V?ENTER
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8331::	.TABLE
+	2
+	V?SING
+	0
+	.BYTE 0
+	.BYTE 15
+	V?SING-TO
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8431::	.TABLE
+	1
+	V?SING
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8531::	.TABLE
+	1
+	V?KILL
+	0
+	.BYTE 47
+	.BYTE 3
+	.ENDT
+
+RT?8631::	.TABLE
+	1
+	V?KILL
+	0
+	.BYTE 47
+	.BYTE 3
+	W?WITH
+	.BYTE 0
+	.BYTE 76
+	.ENDT
+
+RT?8731::	.TABLE
+	2
+	V?SHAKE
+	0
+	.BYTE 0
+	.BYTE 15
+	V?SHAKE-WITH
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8831::	.TABLE
+	1
+	V?SHAKE-WITH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?8931::	.TABLE
+	2
+	V?HIDE
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?HIDE
+	W?BEHIND
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?9031::	.TABLE
+	1
+	V?USE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?9131::	.TABLE
+	1
+	V?TELL
+	W?TO
+	.BYTE 47
+	.BYTE 3
+	.ENDT
+
+RT?9231::	.TABLE
+	1
+	V?LOWER
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?9331::	.TABLE
+	2
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?9431::	.TABLE
+	1
+	V?FEED
+	0
+	.BYTE 47
+	.BYTE 15
+	.ENDT
+
+RT?9531::	.TABLE
+	2
+	V?SGIVE
+	0
+	.BYTE 47
+	.BYTE 1
+	0
+	.BYTE 0
+	.BYTE 84
+	V?GIVE
+	0
+	.BYTE 0
+	.BYTE 84
+	W?TO
+	.BYTE 47
+	.BYTE 1
+	.ENDT
+
+RT?9631::	.TABLE
+	3
+	V?THROW
+	0
+	.BYTE 0
+	.BYTE 12
+	V?THROW
+	W?AWAY
+	.BYTE 0
+	.BYTE 12
+	V?THROW-OVERBOARD
+	W?OVERBOARD
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+RT?9731::	.TABLE
+	11
+	V?STHROW
+	0
+	.BYTE 0
+	.BYTE 3
+	0
+	.BYTE 0
+	.BYTE 12
+	V?PUT
+	0
+	.BYTE 0
+	.BYTE 12
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?THROW
+	0
+	.BYTE 0
+	.BYTE 12
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	V?THROW
+	0
+	.BYTE 0
+	.BYTE 12
+	W?AT
+	.BYTE 0
+	.BYTE 3
+	V?THROW
+	0
+	.BYTE 0
+	.BYTE 12
+	W?ON
+	.BYTE 0
+	.BYTE 3
+	V?THROW-TO
+	0
+	.BYTE 0
+	.BYTE 12
+	W?TO
+	.BYTE 0
+	.BYTE 3
+	V?THROW-FROM
+	0
+	.BYTE 0
+	.BYTE 12
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	V?THROW-FROM
+	0
+	.BYTE 0
+	.BYTE 12
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	V?THROW-OVER
+	0
+	.BYTE 0
+	.BYTE 12
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 12
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 12
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?9831::	.TABLE
+	1
+	V?TELL
+	0
+	.BYTE 47
+	.BYTE 3
+	.ENDT
+
+RT?9931::	.TABLE
+	2
+	V?STELL
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?TELL-ABOUT
+	0
+	.BYTE 47
+	.BYTE 15
+	W?ABOUT
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?10031::	.TABLE
+	2
+	V?SAVE-SOMETHING
+	0
+	.BYTE 0
+	.BYTE 15
+	V?HINTS-NO
+	W?OFF
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?10131::	.TABLE
+	1
+	V?SAVE-SOMETHING
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10231::	.TABLE
+	1
+	V?SHOW
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10331::	.TABLE
+	2
+	V?SSHOW
+	0
+	.BYTE 47
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 28
+	V?SHOW
+	0
+	.BYTE 0
+	.BYTE 28
+	W?TO
+	.BYTE 47
+	.BYTE 15
+	.ENDT
+
+RT?10431::	.TABLE
+	3
+	V?TIE
+	0
+	.BYTE 0
+	.BYTE 4
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?TIE
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?TIE
+	0
+	.BYTE 0
+	.BYTE 4
+	W?AROUND
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10531::	.TABLE
+	1
+	V?LISTEN
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10631::	.TABLE
+	7
+	V?STAND
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	V?STAND-ON
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?HIDE
+	W?BEHIND
+	.BYTE 0
+	.BYTE 15
+	V?GET-NEAR
+	W?AT
+	.BYTE 0
+	.BYTE 15
+	V?GET-NEAR
+	W?BEFORE
+	.BYTE 0
+	.BYTE 15
+	V?GET-NEAR
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10731::	.TABLE
+	1
+	V?PRAY
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10831::	.TABLE
+	1
+	V?MEET
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?10931::	.TABLE
+	1
+	V?TAKE-OFF
+	0
+	.BYTE 0
+	.BYTE 31
+	.ENDT
+
+RT?11031::	.TABLE
+	1
+	V?$RANDOM
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?11131::	.TABLE
+	1
+	V?ENTER
+	0
+	.BYTE 45
+	.BYTE 3
+	.ENDT
+
+RT?11231::	.TABLE
+	1
+	V?CLIMB-ON
+	0
+	.BYTE 45
+	.BYTE 15
+	.ENDT
+
+RT?11331::	.TABLE
+	4
+	V?RIDE-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?RIDE-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 128
+	V?RIDE-DIR
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 128
+	V?RIDE-DIR
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?11431::	.TABLE
+	2
+	V?PICK
+	0
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	W?UP
+	.BYTE 39
+	.BYTE 19
+	.ENDT
+
+RT?11531::	.TABLE
+	1
+	V?PICK
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?11631::	.TABLE
+	4
+	V?MUNG
+	0
+	.BYTE 0
+	.BYTE 15
+	V?KNOCK
+	W?ON
+	.BYTE 38
+	.BYTE 15
+	V?KNOCK
+	W?AT
+	.BYTE 38
+	.BYTE 15
+	V?KILL
+	W?DOWN
+	.BYTE 47
+	.BYTE 3
+	.ENDT
+
+RT?11731::	.TABLE
+	2
+	V?WRAP
+	0
+	.BYTE 0
+	.BYTE 20
+	W?AROUND
+	.BYTE 0
+	.BYTE 15
+	V?SWRAP
+	0
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 20
+	.ENDT
+
+RT?11831::	.TABLE
+	2
+	V?CRAWL-UNDER
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?EXIT
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?11931::	.TABLE
+	3
+	V?INFLATE
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?INFLATE
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	V?OFF
+	W?OUT
+	.BYTE 46
+	.BYTE 15
+	.ENDT
+
+RT?12031::	.TABLE
+	1
+	V?WALK-TO
+	0
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?12131::	.TABLE
+	1
+	V?TOUCH
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?12231::	.TABLE
+	3
+	V?TOUCH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?STOUCH
+	0
+	.BYTE 0
+	.BYTE 79
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?STOUCH
+	0
+	.BYTE 0
+	.BYTE 79
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?12331::	.TABLE
+	1
+	V?BUY
+	0
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?12431::	.TABLE
+	1
+	V?BUY
+	0
+	.BYTE 0
+	.BYTE 128
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?12531::	.TABLE
+	1
+	V?$NUDGE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?12631::	.TABLE
+	1
+	V?TASTE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?12731::	.TABLE
+	2
+	V?OPEN
+	0
+	.BYTE 38
+	.BYTE 15
+	V?OPEN
+	W?UP
+	.BYTE 38
+	.BYTE 15
+	.ENDT
+
+RT?12831::	.TABLE
+	1
+	V?OPEN
+	0
+	.BYTE 38
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?12931::	.TABLE
+	2
+	V?PLAY
+	0
+	.BYTE 0
+	.BYTE 15
+	V?TOUCH
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?13031::	.TABLE
+	2
+	V?DROP
+	W?GO
+	.BYTE 43
+	.BYTE 84
+	V?LET-OUT
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?13131::	.TABLE
+	1
+	V?EMPTY-FROM
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OUT
+	.BYTE 0
+	.BYTE 111
+	.ENDT
+
+RT?13231::	.TABLE
+	1
+	V?MEASURE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?13331::	.TABLE
+	5
+	V?MOVE
+	0
+	.BYTE 0
+	.BYTE 3
+	V?LOWER
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	V?RAISE
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	V?WALK-AROUND
+	W?AROUND
+	.BYTE 43
+	.BYTE 15
+	V?MOVE
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?13431::	.TABLE
+	5
+	V?MOVE-DIR
+	0
+	.BYTE 0
+	.BYTE 15
+	0
+	.BYTE 0
+	.BYTE 15
+	V?MOVE
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	V?MOVE-TO
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?13531::	.TABLE
+	3
+	V?LIE-DOWN
+	W?ON
+	.BYTE 45
+	.BYTE 15
+	V?LIE-DOWN
+	W?IN
+	.BYTE 45
+	.BYTE 15
+	V?LIE-DOWN
+	W?DOWN
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?13631::	.TABLE
+	1
+	V?ON
+	0
+	.BYTE 41
+	.BYTE 15
+	.ENDT
+
+RT?13731::	.TABLE
+	1
+	V?BURN
+	0
+	.BYTE 44
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+RT?13831::	.TABLE
+	1
+	V?FLY
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?13931::	.TABLE
+	1
+	V?CATCH
+	0
+	.BYTE 0
+	.BYTE 3
+	.ENDT
+
+RT?14031::	.TABLE
+	2
+	V?CATCH
+	0
+	.BYTE 0
+	.BYTE 3
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?CATCH
+	0
+	.BYTE 0
+	.BYTE 3
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?14131::	.TABLE
+	1
+	V?SADDLE
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?14231::	.TABLE
+	1
+	V?SADDLE
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?14331::	.TABLE
+	1
+	V?FOLLOW
+	0
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?14431::	.TABLE
+	4
+	V?CALL
+	0
+	.BYTE 0
+	.BYTE 128
+	V?CALL
+	W?OUT
+	.BYTE 0
+	.BYTE 128
+	V?CALL
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	V?CALL
+	W?TO
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?14531::	.TABLE
+	2
+	V?RAISE
+	0
+	.BYTE 0
+	.BYTE 15
+	V?RAISE
+	W?UP
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?14631::	.TABLE
+	1
+	V?COUNT
+	0
+	.BYTE 0
+	.BYTE 31
+	.ENDT
+
+RT?14731::	.TABLE
+	2
+	V?SUCK-ON
+	0
+	.BYTE 0
+	.BYTE 15
+	V?SUCK-ON
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?14831::	.TABLE
+	1
+	V?SUCK-WITH
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 0
+	.BYTE 79
+	.ENDT
+
+RT?14931::	.TABLE
+	9
+	V?TAKE
+	0
+	.BYTE 39
+	.BYTE 19
+	V?TAKE-OFF
+	W?OFF
+	.BYTE 43
+	.BYTE 31
+	V?EXIT
+	W?OUT
+	.BYTE 43
+	.BYTE 15
+	V?EXIT
+	W?DOWN
+	.BYTE 43
+	.BYTE 15
+	V?ENTER
+	W?IN
+	.BYTE 45
+	.BYTE 3
+	V?ENTER
+	W?ON
+	.BYTE 45
+	.BYTE 3
+	V?STAND
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	V?CRAWL-UNDER
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?GET-NEAR
+	W?BEFORE
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?15031::	.TABLE
+	6
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?TAKE
+	0
+	.BYTE 0
+	.BYTE 31
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?TAKE-WITH
+	0
+	.BYTE 0
+	.BYTE 31
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?15131::	.TABLE
+	1
+	V?WAIT-FOR
+	W?FOR
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?15231::	.TABLE
+	6
+	V?POUR
+	0
+	.BYTE 0
+	.BYTE 108
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?POUR
+	0
+	.BYTE 0
+	.BYTE 108
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?EMPTY-FROM
+	0
+	.BYTE 0
+	.BYTE 31
+	W?FROM
+	.BYTE 0
+	.BYTE 111
+	V?EMPTY-FROM
+	W?OUT
+	.BYTE 0
+	.BYTE 31
+	W?FROM
+	.BYTE 0
+	.BYTE 111
+	V?POUR
+	W?OUT
+	.BYTE 0
+	.BYTE 108
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?EMPTY-FROM
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OUT
+	.BYTE 0
+	.BYTE 111
+	.ENDT
+
+RT?15331::	.TABLE
+	13
+	V?LEAP
+	0
+	.BYTE 0
+	.BYTE 15
+	V?LEAP
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	V?LEAP
+	W?ACROSS
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?LEAP-OFF
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	V?LEAP-OFF
+	W?OFF
+	.BYTE 0
+	.BYTE 15
+	V?STAND-ON
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?LEAP-OFF
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?LEAP
+	W?UP
+	.BYTE 43
+	.BYTE 15
+	V?LEAP
+	W?DOWN
+	.BYTE 43
+	.BYTE 15
+	V?LEAP
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	V?CRAWL-UNDER
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?15431::	.TABLE
+	3
+	V?LEAP-OFF
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?LEAP-OFF
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?LEAP-OFF
+	W?FROM
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?15531::	.TABLE
+	1
+	V?SAY
+	0
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?15631::	.TABLE
+	3
+	V?READ
+	0
+	.BYTE 37
+	.BYTE 47
+	V?READ
+	W?THROUGH
+	.BYTE 37
+	.BYTE 47
+	V?RESEARCH
+	W?ABOUT
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?15731::	.TABLE
+	4
+	V?READ
+	0
+	.BYTE 37
+	.BYTE 47
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?READ
+	0
+	.BYTE 37
+	.BYTE 47
+	W?WITH
+	.BYTE 0
+	.BYTE 15
+	V?RESEARCH
+	W?ABOUT
+	.BYTE 0
+	.BYTE 128
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?SRESEARCH
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	W?ABOUT
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?15831::	.TABLE
+	1
+	V?UNLOCK
+	0
+	.BYTE 0
+	.BYTE 15
+	W?WITH
+	.BYTE 40
+	.BYTE 79
+	.ENDT
+
+RT?15931::	.TABLE
+	1
+	V?SINK
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?16031::	.TABLE
+	1
+	V?LISTEN
+	0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?16131::	.TABLE
+	1
+	V?FIND
+	0
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+RT?16231::	.TABLE
+	1
+	V?SSEARCH-OBJECT-FOR
+	0
+	.BYTE 0
+	.BYTE 128
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?16331::	.TABLE
+	3
+	V?DROP
+	W?DOWN
+	.BYTE 0
+	.BYTE 84
+	V?WEAR
+	W?ON
+	.BYTE 34
+	.BYTE 127
+	V?OFF
+	W?OUT
+	.BYTE 46
+	.BYTE 15
+	.ENDT
+
+RT?16431::	.TABLE
+	11
+	V?PUT
+	0
+	.BYTE 39
+	.BYTE 20
+	W?IN
+	.BYTE 35
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?DOWN
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?AROUND
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	V?PUT-ON
+	0
+	.BYTE 0
+	.BYTE 20
+	W?ACROSS
+	.BYTE 0
+	.BYTE 15
+	V?PUT-UNDER
+	0
+	.BYTE 0
+	.BYTE 84
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?PUT-BEHIND
+	0
+	.BYTE 0
+	.BYTE 15
+	W?BEHIND
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 31
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?PUT-THROUGH
+	0
+	.BYTE 0
+	.BYTE 31
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?PUT-TO
+	0
+	.BYTE 0
+	.BYTE 15
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?16531::	.TABLE
+	15
+	V?WALK
+	0
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?OUT
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?ACROSS
+	.BYTE 0
+	.BYTE 15
+	V?STAND-ON
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?ENTER
+	W?OVER
+	.BYTE 0
+	.BYTE 15
+	V?FOLLOW
+	W?WITH
+	.BYTE 0
+	.BYTE 128
+	V?ENTER
+	W?THROUGH
+	.BYTE 0
+	.BYTE 15
+	V?WALK-AROUND
+	W?AROUND
+	.BYTE 43
+	.BYTE 15
+	V?CRAWL-UNDER
+	W?UNDER
+	.BYTE 0
+	.BYTE 15
+	V?HIDE
+	W?BEHIND
+	.BYTE 0
+	.BYTE 15
+	V?CLIMB-UP
+	W?UP
+	.BYTE 0
+	.BYTE 3
+	V?CLIMB-DOWN
+	W?DOWN
+	.BYTE 0
+	.BYTE 3
+	V?WALK-TO
+	W?TO
+	.BYTE 0
+	.BYTE 128
+	V?LEAVE
+	W?AWAY
+	.BYTE 43
+	.BYTE 15
+	.ENDT
+
+RT?16631::	.TABLE
+	2
+	V?SRIDE-DIR
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	W?ON
+	.BYTE 0
+	.BYTE 15
+	V?SRIDE-DIR
+	W?TO
+	.BYTE 0
+	.BYTE 15
+	W?IN
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+RT?16731::	.TABLE
+	1
+	V?KISS
+	0
+	.BYTE 47
+	.BYTE 3
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+	.ENDI
diff --git a/zork0freq.xzap b/zork0freq.xzap
new file mode 100644
index 0000000..7c0a038
--- /dev/null
+++ b/zork0freq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;6216	3109
+	.FSTR FSTR?2,"The "	;2115	706
+	.FSTR FSTR?3,", "	;2067	2068
+	.FSTR FSTR?4,"and "	;1476	739
+	.FSTR FSTR?5,"You "	;1290	431
+	.FSTR FSTR?6,"of "	;1241	1242
+	.FSTR FSTR?7,"you "	;1180	591
+	.FSTR FSTR?8,". "	;1149	1150
+	.FSTR FSTR?9,"to "	;965	966
+	.FSTR FSTR?10,"is "	;669	670
+	.FSTR FSTR?11,"your "	;666	223
+	.FSTR FSTR?12,"that "	;666	223
+	.FSTR FSTR?13,"from "	;651	218
+	.FSTR FSTR?14,"in "	;593	594
+	.FSTR FSTR?15,"with "	;588	197
+	.FSTR FSTR?16,"into "	;504	169
+	.FSTR FSTR?17,"which "	;492	124
+	.FSTR FSTR?18,"are "	;490	246
+	.FSTR FSTR?19,"There's "	;448	57
+	.FSTR FSTR?20,"jester "	;440	89
+	.FSTR FSTR?21,"Flathead "	;440	56
+	.FSTR FSTR?22,"have "	;438	147
+	.FSTR FSTR?23,"This "	;428	108
+	.FSTR FSTR?24,"this "	;366	123
+	.FSTR FSTR?25,"for "	;346	174
+	.FSTR FSTR?26,"Underground "	;330	31
+	.FSTR FSTR?27,"It's "	;320	65
+	.FSTR FSTR?28,"something "	;312	40
+	.FSTR FSTR?29,"Flathead"	;301	44
+	.FSTR FSTR?30,"You're "	;294	43
+	.FSTR FSTR?31,"about "	;260	66
+	.FSTR FSTR?32,"can't "	;255	52
+	.FSTR FSTR?33,"There "	;250	51
+	.FSTR FSTR?34,"on "	;246	247
+	.FSTR FSTR?35,"but "	;246	124
+	.FSTR FSTR?36,"small "	;244	62
+	.FSTR FSTR?37,"A "	;243	244
+	.FSTR FSTR?38,"can "	;242	122
+	.FSTR FSTR?39,"through "	;240	41
+	.FSTR FSTR?40,"only "	;237	80
+	.FSTR FSTR?41,"passage "	;234	40
+	.FSTR FSTR?42,"Dimwit "	;234	40
+	.FSTR FSTR?43,"FrobozzCo "	;234	27
+	.FSTR FSTR?44,"one "	;226	114
+	.FSTR FSTR?45,"Frobozz "	;224	33
+	.FSTR FSTR?46,"leads "	;216	55
+	.FSTR FSTR?47,"large "	;216	55
+	.FSTR FSTR?48,"Great "	;215	44
+	.FSTR FSTR?49,"been "	;213	72
+	.FSTR FSTR?50,"seems "	;212	54
+	.FSTR FSTR?51,"you've "	;210	36
+	.FSTR FSTR?52,"you're "	;210	36
+	.FSTR FSTR?53,"his "	;200	101
+	.FSTR FSTR?54,"around "	;200	41
+	.FSTR FSTR?55,"just "	;198	67
+	.FSTR FSTR?56,"out "	;196	99
+	.FSTR FSTR?57,"south"	;195	66
+	.FSTR FSTR?58,"at "	;189	190
+	.FSTR FSTR?59,"it "	;188	189
+	.FSTR FSTR?60,"will "	;183	62
+	.FSTR FSTR?61,"be "	;180	181
+	.FSTR FSTR?62,"has "	;180	91
+	.FSTR FSTR?63,"Magic "	;180	37
+	.FSTR FSTR?64,"would "	;176	45
+	.FSTR FSTR?65,"southwest"	;175	26
+	.FSTR FSTR?66,"northeast"	;175	26
+	.FSTR FSTR?67,"! "	;174	175
+	.FSTR FSTR?68,"getting "	;174	30
+	.FSTR FSTR?69,"Flatheadia"	;171	20
+	.FSTR FSTR?70,"as "	;168	169
+	.FSTR FSTR?71,"like "	;165	56
+	.FSTR FSTR?72,"all "	;162	82
+	.FSTR FSTR?73,"It "	;162	82
+	.FSTR FSTR?74,"there's "	;161	24
+	.FSTR FSTR?75,"You'll "	;161	24
+	.FSTR FSTR?76,"other "	;160	41
+	.FSTR FSTR?77,"north"	;159	54
+	.FSTR FSTR?78,"not "	;158	80
+	.FSTR FSTR?79,"get "	;156	79
+	.FSTR FSTR?80,"where "	;156	40
+	.FSTR FSTR?81,"by "	;155	156
+	.FSTR FSTR?82,"don't "	;155	32
+	.FSTR FSTR?83,"center "	;155	32
+	.FSTR FSTR?84,"right "	;152	39
+	.FSTR FSTR?85,"looks "	;152	39
+	.FSTR FSTR?86,"number "	;150	31
+	.FSTR FSTR?87,"castle "	;150	31
+	.FSTR FSTR?88,"already "	;150	26
+	.FSTR FSTR?89,"Company"	;150	26
+	.FSTR FSTR?90,"was "	;148	75
+	.FSTR FSTR?91,"Your "	;148	38
+	.FSTR FSTR?92,"than "	;147	50
+	.FSTR FSTR?93,"must "	;144	49
+	.FSTR FSTR?94,"opening "	;144	25
+	.FSTR FSTR?95,"its "	;142	72
+	.FSTR FSTR?96,"here"	;140	71
+
+
+;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/zork0pur.zap b/zork0pur.zap
new file mode 100644
index 0000000..5cebd6c
--- /dev/null
+++ b/zork0pur.zap
@@ -0,0 +1,5247 @@
+
+
+; PURE TABLES ARE DEFINED HERE
+
+PURTBL::
+
+PT?105::
+NP-QUANT-TBL::	.TABLE
+	NP-QUANT-ALL
+	W?ALL
+	NP-QUANT-BOTH
+	W?BOTH
+	NP-QUANT-A
+	W?ONE
+	NP-QUANT-A
+	W?EITHER
+	NP-QUANT-A
+	W?ANY
+	.ENDT
+
+PT?107::
+P-W-WORDS::	.TABLE
+	18
+	W?WHAT
+	W?WHAT'S
+	W?WHEN
+	W?WHEN'S
+	W?WHERE
+	W?WHERE'S
+	W?WHO
+	W?WHO'S
+	W?WHY
+	W?WHY'S
+	W?HOW
+	W?HOW'S
+	W?WOULD
+	W?WOULDN'T
+	W?COULD
+	W?COULDN'T
+	W?SHOULD
+	W?SHOULDN'T
+	.ENDT
+
+PT?207::
+P-Q-WORDS1::	.TABLE
+	27
+	W?AREN'T
+	W?CAN'T
+	W?COULDN'T
+	W?DIDN'T
+	W?DOESN'T
+	W?DON'T
+	W?HASN'T
+	W?HAVEN'T
+	W?HE'S
+	W?I'D
+	W?I'LL
+	W?I'M
+	W?I'VE
+	W?ISN'T
+	W?IT'S
+	W?LET'S
+	W?SHE'S
+	W?SHOULDN'T
+	W?THAT'S
+	W?THEY'RE
+	W?WASN'T
+	W?WE'RE
+	W?WE'LL
+	W?WEREN'T
+	W?WON'T
+	W?WOULDN'T
+	W?YOU'RE
+	.ENDT
+
+PT?307::
+P-N-WORDS::	.TABLE
+	23
+	W?ZERO
+	W?TEN
+	W?ELEVEN
+	W?TWELVE
+	W?THIRTEEN
+	W?FOURTEEN
+	W?FIFTEEN
+	W?SIXTEEN
+	W?SEVENTEEN
+	W?EIGHTEEN
+	W?NINETEEN
+	W?TWENTY
+	W?THIRTY
+	W?FORTY
+	W?FIFTY
+	W?SIXTY
+	W?SEVENTY
+	W?EIGHTY
+	W?NINETY
+	W?HUNDRED
+	W?THOUSAND
+	W?MILLION
+	W?BILLION
+	.ENDT
+
+PT?407::
+P-C-WORDS::	.TABLE
+	23
+	W?ASS
+	W?ASSHOLE
+	W?BASTARD
+	W?BITCH
+	W?COCK
+	W?COCKSUCKER
+	W?CRAP
+	W?CUNT
+	W?CUSS
+	W?DAMN
+	W?DAMNED
+	W?FUCK
+	W?FUCKED
+	W?FUCKER
+	W?FUCKING
+	W?GODDAMN
+	W?GODDAMNED
+	W?HELL
+	W?PISS
+	W?SCREW
+	W?SHIT
+	W?SHITHEAD
+	W?SUCKS
+	.ENDT
+
+PT?507::
+P-Q-WORDS::	.TABLE
+	16
+	W?AM
+	W?ARE
+	W?CAN
+	W?COULD
+	W?DID
+	W?DO
+	W?HAS
+	W?HAVE
+	W?IS
+	W?LIKE
+	W?SHOULD
+	W?WANT
+	W?WAS
+	W?WERE
+	W?WILL
+	W?WOULD
+	.ENDT
+
+PT?111::
+OWNERS::	.TABLE
+	2
+	JESTER
+	WALL
+	.ENDT
+
+PT?211::	.TABLE
+	1
+	0
+	.ENDT
+
+PT?112::
+SAMPLE-COMMANDS-TABLE-0::	.TABLE
+	4
+	W?GO
+	W?INVENTORY
+	W?LOOK
+	W?WAIT
+	.ENDT
+
+PT?212::
+SAMPLE-COMMANDS-TABLE-1::	.TABLE
+	10
+	W?TAKE
+	W?DROP
+	W?EXAMINE
+	W?READ
+	W?OPEN
+	W?CLOSE
+	W?BOARD
+	W?EXIT
+	W?WEAR
+	W?REMOVE
+	.ENDT
+
+PT?312::
+SAMPLE-COMMANDS-TABLE-2::	.TABLE
+	6
+	W?PUT
+	W?IN
+	W?GIVE
+	W?TO
+	W?ASK
+	W?ABOUT
+	.ENDT
+
+PT?117::
+BODY-PART-OWNERS::	.TABLE
+	6
+	PROTAGONIST
+	DIMWIT
+	JESTER
+	EXECUTIONER
+	SICKLY-WITCH
+	PRICKLY-WITCH
+	.ENDT
+
+PT?120::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-6
+	.ENDT
+
+PT?220::	.TABLE
+	1
+	W?SMOKE
+	.ENDT
+
+PT?320::	.TABLE
+	1
+	W?VAPOR
+	.ENDT
+
+PT?420::	.TABLE
+	2
+	0
+	PT?220
+	SMOKE-PS
+	0
+	PT?320
+	SMOKE-PS
+	.ENDT
+
+PT?520::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-7
+	.ENDT
+
+PT?620::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-7
+	.ENDT
+
+PT?720::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-8
+	.ENDT
+
+PT?820::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-8
+	.ENDT
+
+PT?920::
+NOVICE-MOVES::	.TABLE
+	STR?254
+	STR?255
+	STR?256
+	STR?257
+	STR?258
+	STR?259
+	STR?260
+	STR?261
+	STR?172
+	STR?262
+	STR?198
+	STR?263
+	.ENDT
+
+PT?1020::
+CAULDRON-DESCS::	.TABLE
+	STR?271
+	STR?272
+	STR?273
+	STR?274
+	STR?275
+	STR?276
+	STR?277
+	STR?278
+	STR?279
+	STR?280
+	STR?281
+	STR?282
+	STR?283
+	.ENDT
+
+PT?121::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-5
+	.ENDT
+
+PT?221::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-5
+	.ENDT
+
+PT?321::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-6
+	.ENDT
+
+PT?421::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-5
+	.ENDT
+
+PT?521::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-4
+	.ENDT
+
+PT?621::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?721::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-3
+	.ENDT
+
+PT?821::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-4
+	.ENDT
+
+PT?921::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-3
+	.ENDT
+
+PT?1021::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?1121::	.TABLE
+	1
+	W?FLOWER
+	.ENDT
+
+PT?1221::	.TABLE
+	1
+	0
+	PT?1121
+	GARDEN-FLOWER-PS
+	.ENDT
+
+PT?1321::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-6
+	.ENDT
+
+PT?1421::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-4
+	.ENDT
+
+PT?1521::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-4
+	.ENDT
+
+PT?1621::	.TABLE
+	2
+	WALL
+	BABE-PORTRAIT
+	.ENDT
+
+PT?1721::	.TABLE
+	2
+	WALL
+	FRANK-LLOYD-PORTRAIT
+	.ENDT
+
+PT?1821::	.TABLE
+	2
+	WALL
+	JOHN-PAUL-PORTRAIT
+	.ENDT
+
+PT?1921::	.TABLE
+	2
+	WALL
+	RALPH-WALDO-PORTRAIT
+	.ENDT
+
+PT?2021::	.TABLE
+	2
+	WALL
+	LUCREZIA-PORTRAIT
+	.ENDT
+
+PT?2121::	.TABLE
+	2
+	WALL
+	LEONARDO-PORTRAIT
+	.ENDT
+
+PT?2221::	.TABLE
+	2
+	WALL
+	THOMAS-ALVA-PORTRAIT
+	.ENDT
+
+PT?2321::	.TABLE
+	2
+	WALL
+	JOHN-D-PORTRAIT
+	.ENDT
+
+PT?2421::	.TABLE
+	2
+	WALL
+	JOHANN-SEBASTIAN-PORTRAIT
+	.ENDT
+
+PT?2521::	.TABLE
+	2
+	WALL
+	STONEWALL-PORTRAIT
+	.ENDT
+
+PT?2621::	.TABLE
+	2
+	WALL
+	J-PIERPONT-PORTRAIT
+	.ENDT
+
+PT?2721::	.TABLE
+	2
+	WALL
+	DIMWIT-PORTRAIT
+	.ENDT
+
+PT?2821::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-4
+	.ENDT
+
+PT?2921::
+PT?3821::
+PT?10221::
+PT?4124::
+PT?226::
+PT?4326::
+PT?5026::
+PT?5826::
+PT?6126::	.TABLE
+	1
+	W?SHADOW
+	.ENDT
+
+PT?3021::
+PT?3921::
+PT?10321::
+PT?326::
+PT?5126::	.TABLE
+	1
+	0
+	PT?2921
+	PHIL-SHADOW-PS
+	.ENDT
+
+PT?3121::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-3
+	.ENDT
+
+PT?3221::
+PT?1824::	.TABLE
+	1
+	W?TALL
+	.ENDT
+
+PT?3321::	.TABLE
+	1
+	W?TOWER
+	.ENDT
+
+PT?3421::	.TABLE
+	1
+	PT?3221
+	PT?3321
+	TOWER-PS
+	.ENDT
+
+PT?3521::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-5
+	.ENDT
+
+PT?3621::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-5
+	.ENDT
+
+PT?3721::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-7
+	.ENDT
+
+PT?4021::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-7
+	.ENDT
+
+PT?4121::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?4221::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-5
+	.ENDT
+
+PT?4321::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-5
+	.ENDT
+
+PT?4421::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-4
+	.ENDT
+
+PT?4521::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-4
+	.ENDT
+
+PT?4621::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-5
+	.ENDT
+
+PT?4721::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-5
+	.ENDT
+
+PT?4821::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-8
+	.ENDT
+
+PT?4921::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-9
+	.ENDT
+
+PT?5021::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-9
+	.ENDT
+
+PT?5121::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-9
+	.ENDT
+
+PT?5221::
+SLAB-TABLE::	.TABLE
+	FLATTEST-SLAB
+	SHORTEST-SLAB
+	LONGEST-SLAB
+	DUSTIEST-SLAB
+	DARKEST-SLAB
+	OLDEST-SLAB
+	NEWEST-SLAB
+	.ENDT
+
+PT?5321::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-9
+	.ENDT
+
+PT?5421::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-9
+	.ENDT
+
+PT?5521::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-10
+	.ENDT
+
+PT?5621::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-8
+	.ENDT
+
+PT?5721::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-3
+	.ENDT
+
+PT?5821::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-2
+	.ENDT
+
+PT?5921::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-2
+	.ENDT
+
+PT?6021::
+PBOZ-PIC-TABLE::	.TABLE
+	432
+	433
+	434
+	435
+	436
+	437
+	438
+	388
+	389
+	390
+	391
+	392
+	393
+	394
+	395
+	396
+	397
+	398
+	399
+	400
+	401
+	.ENDT
+
+PT?6121::
+PEG-BG-PIC-TBL::	.TABLE
+	21
+	BG-A
+	BG-B
+	BG-C
+	BG-D
+	BG-E
+	BG-F
+	BG-G
+	BG-H
+	BG-I
+	BG-J
+	BG-K
+	BG-L
+	BG-M
+	BG-N
+	BG-O
+	BG-P
+	BG-Q
+	BG-R
+	BG-S
+	BG-T
+	BG-U
+	.ENDT
+
+PT?6221::	.TABLE
+	0
+	0
+	.ENDT
+
+PT?6321::	.TABLE
+	5
+	3
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?6421::	.TABLE
+	4
+	3
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?6521::	.TABLE
+	6
+	4
+	8
+	5
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?6621::	.TABLE
+	2
+	3
+	9
+	6
+	11
+	7
+	0
+	0
+	.ENDT
+
+PT?6721::	.TABLE
+	1
+	3
+	10
+	7
+	12
+	8
+	0
+	0
+	.ENDT
+
+PT?6821::	.TABLE
+	3
+	4
+	8
+	7
+	14
+	9
+	16
+	10
+	.ENDT
+
+PT?6921::	.TABLE
+	15
+	10
+	17
+	11
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?7021::	.TABLE
+	3
+	5
+	6
+	7
+	16
+	11
+	18
+	12
+	.ENDT
+
+PT?7121::	.TABLE
+	4
+	6
+	11
+	10
+	20
+	14
+	0
+	0
+	.ENDT
+
+PT?7221::	.TABLE
+	5
+	7
+	12
+	11
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?7321::	.TABLE
+	4
+	7
+	9
+	10
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?7421::	.TABLE
+	5
+	8
+	10
+	11
+	21
+	18
+	0
+	0
+	.ENDT
+
+PT?7521::	.TABLE
+	15
+	14
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?7621::	.TABLE
+	6
+	9
+	16
+	15
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?7721::	.TABLE
+	7
+	10
+	13
+	14
+	17
+	16
+	0
+	0
+	.ENDT
+
+PT?7821::	.TABLE
+	6
+	10
+	8
+	11
+	14
+	15
+	18
+	17
+	.ENDT
+
+PT?7921::	.TABLE
+	7
+	11
+	15
+	16
+	19
+	18
+	0
+	0
+	.ENDT
+
+PT?8021::	.TABLE
+	8
+	12
+	16
+	17
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?8121::	.TABLE
+	17
+	18
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?8221::	.TABLE
+	9
+	14
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?8321::	.TABLE
+	12
+	18
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+PT?8421::
+LEGAL-MOVE-TABLE::	.TABLE
+	PT?6221
+	PT?6321
+	PT?6421
+	PT?6521
+	PT?6621
+	PT?6721
+	PT?6821
+	PT?6921
+	PT?7021
+	PT?7121
+	PT?7221
+	PT?7321
+	PT?7421
+	PT?7521
+	PT?7621
+	PT?7721
+	PT?7821
+	PT?7921
+	PT?8021
+	PT?8121
+	PT?8221
+	PT?8321
+	.ENDT
+
+PT?8521::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-2
+	.ENDT
+
+PT?8621::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-2
+	.ENDT
+
+PT?8721::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-1
+	.ENDT
+
+PT?8821::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-7
+	.ENDT
+
+PT?8921::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-8
+	.ENDT
+
+PT?9021::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-9
+	.ENDT
+
+PT?9121::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-10
+	.ENDT
+
+PT?9221::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-8
+	.ENDT
+
+PT?9321::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?9421::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-6
+	.ENDT
+
+PT?9521::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-6
+	.ENDT
+
+PT?9621::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-6
+	.ENDT
+
+PT?9721::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-7
+	.ENDT
+
+PT?9821::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-4
+	.ENDT
+
+PT?9921::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-4
+	.ENDT
+
+PT?10021::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?10121::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-3
+	.ENDT
+
+PT?10421::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-2
+	.ENDT
+
+PT?10521::
+PT?2024::
+PT?925::	.TABLE
+	1
+	W?WIDE
+	.ENDT
+
+PT?10621::	.TABLE
+	1
+	W?LEDGE
+	.ENDT
+
+PT?10721::	.TABLE
+	1
+	PT?10521
+	PT?10621
+	LEDGE-IN-PIT-PS
+	.ENDT
+
+PT?10821::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-1
+	.ENDT
+
+PT?10921::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-2
+	.ENDT
+
+PT?11021::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-3
+	.ENDT
+
+PT?11121::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-3
+	.ENDT
+
+PT?11221::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-2
+	.ENDT
+
+PT?11321::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-1
+	.ENDT
+
+PT?11421::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-1
+	MAP-GEN-X-1
+	.ENDT
+
+PT?11521::
+FUNGUS-TABLE::	.TABLE
+	STR?424
+	STR?425
+	STR?426
+	STR?427
+	STR?428
+	STR?429
+	STR?430
+	STR?431
+	STR?432
+	STR?433
+	STR?434
+	STR?435
+	.ENDT
+
+PT?11621::
+FUNGUS-WORDS::	.TABLE
+	W?SEYMOUR
+	W?SHERMAN
+	W?IRVING
+	W?SAMMY
+	W?MYRON
+	W?BORIS
+	W?MELVIN
+	W?LESTER
+	W?JULIUS
+	W?RICARDO
+	W?OMAR
+	W?BARNABY
+	.ENDT
+
+PT?11721::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-1
+	EAR-ICON-LOC
+	.ENDT
+
+PT?122::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-8
+	.ENDT
+
+PT?222::	.TABLE
+	2
+	W?ANSWER
+	W?RIDDLE
+	.ENDT
+
+PT?322::	.TABLE
+	1
+	W?FROBOZZCO
+	.ENDT
+
+PT?422::	.TABLE
+	2
+	W?FROBOZZCO
+	W?INTERNATIONAL
+	.ENDT
+
+PT?522::
+PT?11022::	.TABLE
+	2
+	W?GREAT
+	W?UNDERGROUND
+	.ENDT
+
+PT?622::	.TABLE
+	2
+	W?HIGHWAY
+	W?TOLL
+	.ENDT
+
+PT?722::	.TABLE
+	1
+	W?SQUID
+	.ENDT
+
+PT?822::	.TABLE
+	1
+	W?HELLHOUND
+	.ENDT
+
+PT?922::	.TABLE
+	1
+	W?SNARFEM
+	.ENDT
+
+PT?1022::	.TABLE
+	1
+	W?FISHA
+	.ENDT
+
+PT?1122::	.TABLE
+	3
+	W?BOZBO
+	W?MUMBO
+	W?ZILBO
+	.ENDT
+
+PT?1222::	.TABLE
+	6
+	W?BOZBO
+	W?MUMBO
+	W?ZILBO
+	W?II
+	W?III
+	W?IV
+	.ENDT
+
+PT?1322::	.TABLE
+	3
+	W?BELWIT
+	W?MUMBERTHRAX
+	W?PHLOID
+	.ENDT
+
+PT?1422::	.TABLE
+	11
+	W?ESTUARY
+	W?FROBUARY
+	W?ARCH
+	W?MAGE
+	W?JAM
+	W?JELLY
+	W?AUGUR
+	W?SUSPENDUR
+	W?OTTOBUR
+	W?MUMBERBUR
+	W?DISMEMBUR
+	.ENDT
+
+PT?1522::	.TABLE
+	2
+	W?EASTLAND
+	W?EASTLANDS
+	.ENDT
+
+PT?1622::	.TABLE
+	2
+	W?WESTLAND
+	W?WESTLANDS
+	.ENDT
+
+PT?1722::	.TABLE
+	1
+	W?MITHICAN
+	.ENDT
+
+PT?1822::	.TABLE
+	1
+	W?CHAMELEON
+	.ENDT
+
+PT?1922::
+PT?7322::	.TABLE
+	1
+	W?CURSE
+	.ENDT
+
+PT?2022::	.TABLE
+	2
+	W?CURSE
+	W?DAY
+	.ENDT
+
+PT?2122::	.TABLE
+	2
+	W?ZORKMID
+	W?ZORKMIDS
+	.ENDT
+
+PT?2222::	.TABLE
+	1
+	W?ENCHANTER
+	.ENDT
+
+PT?2322::	.TABLE
+	2
+	W?ENCHANTER
+	W?GUILD
+	.ENDT
+
+PT?2422::	.TABLE
+	1
+	W?FROBLO
+	.ENDT
+
+PT?2522::	.TABLE
+	1
+	W?PARK
+	.ENDT
+
+PT?2622::	.TABLE
+	1
+	W?BOSWELL
+	.ENDT
+
+PT?2722::	.TABLE
+	1
+	W?BARWELL
+	.ENDT
+
+PT?2822::	.TABLE
+	1
+	W?MINX
+	.ENDT
+
+PT?2922::	.TABLE
+	1
+	W?WINDCAT
+	.ENDT
+
+PT?3022::	.TABLE
+	1
+	W?ENDLESS
+	.ENDT
+
+PT?3122::	.TABLE
+	1
+	W?FIRE
+	.ENDT
+
+PT?3222::	.TABLE
+	1
+	W?ZORK
+	.ENDT
+
+PT?3322::	.TABLE
+	1
+	W?DAVMAR
+	.ENDT
+
+PT?3422::	.TABLE
+	1
+	W?PHEEBOR
+	.ENDT
+
+PT?3522::	.TABLE
+	2
+	W?BLOIT
+	W?BLOITS
+	.ENDT
+
+PT?3622::	.TABLE
+	1
+	W?FUBLIO
+	.ENDT
+
+PT?3722::
+PT?5922::	.TABLE
+	1
+	W?VALLEY
+	.ENDT
+
+PT?3822::	.TABLE
+	1
+	W?KORBOZ
+	.ENDT
+
+PT?3922::	.TABLE
+	1
+	W?GUMBOZ
+	.ENDT
+
+PT?4022::	.TABLE
+	4
+	W?FLOOD
+	W?CONTROL
+	W?DAM
+	W?FCD
+	.ENDT
+
+PT?4122::	.TABLE
+	3
+	W?#3
+	W?FCD#3
+	W?DAM
+	.ENDT
+
+PT?4222::	.TABLE
+	1
+	W?DIABLO
+	.ENDT
+
+PT?4322::	.TABLE
+	1
+	W?MASSACRE
+	.ENDT
+
+PT?4422::	.TABLE
+	1
+	W?ZORBIUS
+	.ENDT
+
+PT?4522::	.TABLE
+	1
+	W?BLATTUS
+	.ENDT
+
+PT?4622::	.TABLE
+	3
+	W?SHADOWLAND
+	W?LAND
+	W?SHADOW
+	.ENDT
+
+PT?4722::	.TABLE
+	1
+	W?ROYAL
+	.ENDT
+
+PT?4822::	.TABLE
+	1
+	W?MUSEUM
+	.ENDT
+
+PT?4922::	.TABLE
+	1
+	W?ROCKVILLE
+	.ENDT
+
+PT?5022::	.TABLE
+	2
+	W?ESTATES
+	W?CONSTRUCTION
+	.ENDT
+
+PT?5122::	.TABLE
+	1
+	W?ZYLO
+	.ENDT
+
+PT?5222::	.TABLE
+	1
+	W?PICKTHORN
+	.ENDT
+
+PT?5322::	.TABLE
+	1
+	W?MOUNT
+	.ENDT
+
+PT?5422::	.TABLE
+	1
+	W?FOOBIA
+	.ENDT
+
+PT?5522::	.TABLE
+	2
+	W?STEVE
+	W?STEVEN
+	.ENDT
+
+PT?5622::	.TABLE
+	1
+	W?MERETZKY
+	.ENDT
+
+PT?5722::	.TABLE
+	1
+	W?INFOCOM
+	.ENDT
+
+PT?5822::	.TABLE
+	2
+	W?FRIGID
+	W?RIVER
+	.ENDT
+
+PT?6022::	.TABLE
+	1
+	W?POLAR
+	.ENDT
+
+PT?6122::	.TABLE
+	1
+	W?GUMFFBEAST
+	.ENDT
+
+PT?6222::	.TABLE
+	1
+	W?DUNCANTHRAX
+	.ENDT
+
+PT?6322::
+PT?6422::	.TABLE
+	2
+	W?EGRETH
+	W?CASTLE
+	.ENDT
+
+PT?6522::	.TABLE
+	2
+	W?LARGONETH
+	W?CASTLE
+	.ENDT
+
+PT?6622::	.TABLE
+	2
+	W?CASTLE
+	W?LARGONETH
+	.ENDT
+
+PT?6722::	.TABLE
+	1
+	W?FROBESIUS
+	.ENDT
+
+PT?6822::	.TABLE
+	2
+	W?FROBESIUS
+	W?FUBLIUS
+	.ENDT
+
+PT?6922::	.TABLE
+	1
+	W?BORPHBELLY
+	.ENDT
+
+PT?7022::	.TABLE
+	2
+	W?STEW
+	W?INGREDIENTS
+	.ENDT
+
+PT?7122::	.TABLE
+	1
+	W?FENSHIRE
+	.ENDT
+
+PT?7222::	.TABLE
+	1
+	W?CHESS
+	.ENDT
+
+PT?7422::	.TABLE
+	2
+	W?TREATY
+	W?ZNURG
+	.ENDT
+
+PT?7522::	.TABLE
+	1
+	W?ZUCCHINI
+	.ENDT
+
+PT?7622::	.TABLE
+	2
+	W?WAR
+	W?WARS
+	.ENDT
+
+PT?7722::	.TABLE
+	1
+	W?RAGWEED
+	.ENDT
+
+PT?7822::	.TABLE
+	2
+	W?BATTLE
+	W?GULCH
+	.ENDT
+
+PT?7922::	.TABLE
+	3
+	W?BARBEL
+	W?BERKNIP
+	W?BARSAP
+	.ENDT
+
+PT?8022::	.TABLE
+	1
+	W?GREATER
+	.ENDT
+
+PT?8122::	.TABLE
+	1
+	W?BORPHEE
+	.ENDT
+
+PT?8222::	.TABLE
+	1
+	W?INQUISITION
+	.ENDT
+
+PT?8322::	.TABLE
+	4
+	W?GRUBBO
+	W?GRUBBO-BY-THE-SEA
+	W?ACCARDI
+	W?ACCARDI-BY-THE-SEA
+	.ENDT
+
+PT?8422::	.TABLE
+	2
+	W?WISHYFOO
+	W?WISHYFOOS
+	.ENDT
+
+PT?8522::	.TABLE
+	1
+	W?PREVARICON
+	.ENDT
+
+PT?8622::	.TABLE
+	2
+	W?VERITASSI
+	W?VERITASS
+	.ENDT
+
+PT?8722::	.TABLE
+	1
+	W?MIZNIA
+	.ENDT
+
+PT?8822::	.TABLE
+	1
+	W?MIZNIAPORT
+	.ENDT
+
+PT?8922::
+PT?9022::	.TABLE
+	1
+	W?GURTH
+	.ENDT
+
+PT?9122::	.TABLE
+	1
+	W?CITY
+	.ENDT
+
+PT?9222::	.TABLE
+	1
+	W?MITHICUS
+	.ENDT
+
+PT?9322::	.TABLE
+	2
+	W?FIELDS
+	W?FROTZEN
+	.ENDT
+
+PT?9422::	.TABLE
+	1
+	W?FESTERON
+	.ENDT
+
+PT?9522::	.TABLE
+	1
+	W?THRIFF
+	.ENDT
+
+PT?9622::	.TABLE
+	1
+	W?ENTHARION
+	.ENDT
+
+PT?9722::	.TABLE
+	2
+	W?GALEPATH
+	W?MAREILON
+	.ENDT
+
+PT?9822::	.TABLE
+	1
+	W?ANTHARIA
+	.ENDT
+
+PT?9922::	.TABLE
+	1
+	W?ANTHAR
+	.ENDT
+
+PT?10022::	.TABLE
+	1
+	W?GRANOLA
+	.ENDT
+
+PT?10122::	.TABLE
+	2
+	W?MINES
+	W?RIOTS
+	.ENDT
+
+PT?10222::	.TABLE
+	1
+	W?FLATHEAD
+	.ENDT
+
+PT?10322::	.TABLE
+	1
+	W?STADIUM
+	.ENDT
+
+PT?10422::	.TABLE
+	1
+	W?PORT
+	.ENDT
+
+PT?10522::	.TABLE
+	1
+	W?FOOZLE
+	.ENDT
+
+PT?10622::	.TABLE
+	1
+	W?BELBOZ
+	.ENDT
+
+PT?10722::	.TABLE
+	1
+	W?ZORBEL
+	.ENDT
+
+PT?10822::	.TABLE
+	1
+	W?PASS
+	.ENDT
+
+PT?10922::	.TABLE
+	1
+	W?QUENDOR
+	.ENDT
+
+PT?11122::	.TABLE
+	2
+	W?EMPIRE
+	W?GUE
+	.ENDT
+
+PT?11222::	.TABLE
+	1
+	W?GREAT
+	.ENDT
+
+PT?11322::	.TABLE
+	1
+	W?SEA
+	.ENDT
+
+PT?11422::	.TABLE
+	1
+	W?ARAGAIN
+	.ENDT
+
+PT?11522::	.TABLE
+	1
+	W?FALLS
+	.ENDT
+
+PT?11622::	.TABLE
+	1
+	W?TWELVE
+	.ENDT
+
+PT?11722::	.TABLE
+	1
+	W?FLATHEADS
+	.ENDT
+
+PT?11822::	.TABLE
+	80
+	0
+	PT?222
+	STR?439
+	PT?322
+	PT?422
+	STR?440
+	PT?522
+	PT?622
+	STR?441
+	0
+	PT?722
+	STR?442
+	0
+	PT?822
+	STR?443
+	0
+	PT?922
+	STR?444
+	0
+	PT?1022
+	STR?445
+	PT?1122
+	PT?1222
+	STR?446
+	0
+	PT?1322
+	STR?447
+	0
+	PT?1422
+	STR?448
+	0
+	PT?1522
+	STR?449
+	0
+	PT?1622
+	STR?450
+	PT?1722
+	PT?1822
+	STR?451
+	PT?1922
+	PT?2022
+	STR?452
+	0
+	PT?2122
+	STR?453
+	PT?2222
+	PT?2322
+	STR?454
+	PT?2422
+	PT?2522
+	STR?455
+	PT?2622
+	PT?2722
+	STR?456
+	0
+	PT?2822
+	STR?457
+	0
+	PT?2922
+	STR?458
+	PT?3022
+	PT?3122
+	STR?459
+	0
+	PT?3222
+	STR?460
+	0
+	PT?3322
+	STR?461
+	0
+	PT?3422
+	STR?462
+	0
+	PT?3522
+	STR?463
+	PT?3622
+	PT?3722
+	STR?464
+	0
+	PT?3822
+	STR?465
+	0
+	PT?3922
+	STR?466
+	PT?4022
+	PT?4122
+	STR?467
+	PT?4222
+	PT?4322
+	STR?468
+	PT?4422
+	PT?4522
+	STR?469
+	0
+	PT?4622
+	STR?470
+	PT?4722
+	PT?4822
+	STR?471
+	PT?4922
+	PT?5022
+	STR?472
+	PT?5122
+	PT?5222
+	STR?473
+	PT?5322
+	PT?5422
+	STR?474
+	PT?5522
+	PT?5622
+	STR?475
+	0
+	PT?5722
+	STR?476
+	PT?5822
+	PT?5922
+	STR?477
+	PT?6022
+	PT?6122
+	STR?478
+	0
+	PT?6222
+	STR?479
+	PT?6322
+	PT?6422
+	STR?480
+	PT?6522
+	PT?6622
+	STR?481
+	PT?6722
+	PT?6822
+	STR?482
+	PT?6922
+	PT?7022
+	BORPHBELLY-TEXT
+	0
+	PT?7122
+	STR?483
+	0
+	PT?7222
+	STR?484
+	0
+	PT?7322
+	STR?485
+	0
+	PT?7422
+	STR?486
+	PT?7522
+	PT?7622
+	STR?487
+	PT?7722
+	PT?7822
+	STR?488
+	0
+	PT?7922
+	STR?489
+	PT?8022
+	PT?8122
+	STR?490
+	0
+	PT?8222
+	STR?491
+	0
+	PT?8322
+	STR?492
+	0
+	PT?8422
+	STR?493
+	0
+	PT?8522
+	STR?494
+	0
+	PT?8622
+	STR?495
+	0
+	PT?8722
+	STR?496
+	0
+	PT?8822
+	STR?497
+	0
+	PT?8922
+	STR?498
+	PT?9022
+	PT?9122
+	STR?499
+	0
+	PT?9222
+	STR?500
+	0
+	PT?9322
+	STR?501
+	0
+	PT?9422
+	STR?502
+	0
+	PT?9522
+	STR?503
+	0
+	PT?9622
+	STR?504
+	0
+	PT?9722
+	STR?505
+	0
+	PT?9822
+	STR?506
+	0
+	PT?9922
+	STR?507
+	PT?10022
+	PT?10122
+	STR?508
+	PT?10222
+	PT?10322
+	STR?509
+	PT?10422
+	PT?10522
+	STR?510
+	0
+	PT?10622
+	STR?511
+	PT?10722
+	PT?10822
+	STR?512
+	0
+	PT?10922
+	STR?513
+	PT?11022
+	PT?11122
+	STR?514
+	PT?11222
+	PT?11322
+	STR?515
+	PT?11422
+	PT?11522
+	STR?516
+	PT?11622
+	PT?11722
+	STR?517
+	.ENDT
+
+PT?123::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-2
+	.ENDT
+
+PT?223::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-1
+	.ENDT
+
+PT?323::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-1
+	.ENDT
+
+PT?423::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-3
+	.ENDT
+
+PT?523::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-4
+	.ENDT
+
+PT?623::	.TABLE
+	1
+	W?VILLAGE
+	.ENDT
+
+PT?723::	.TABLE
+	1
+	W?GATE
+	.ENDT
+
+PT?823::	.TABLE
+	1
+	PT?623
+	PT?723
+	GATE-PS
+	.ENDT
+
+PT?923::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-5
+	.ENDT
+
+PT?1023::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-5
+	.ENDT
+
+PT?1123::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-2
+	URS-ICON-LOC
+	.ENDT
+
+PT?1223::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-7
+	.ENDT
+
+PT?1323::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-2
+	COURTROOM-ICON-LOC
+	.ENDT
+
+PT?1423::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-7
+	.ENDT
+
+PT?1523::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-8
+	.ENDT
+
+PT?1623::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-10
+	.ENDT
+
+PT?1723::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-10
+	.ENDT
+
+PT?1823::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-11
+	.ENDT
+
+PT?1923::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-9
+	.ENDT
+
+PT?2023::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-10
+	.ENDT
+
+PT?2123::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-8
+	.ENDT
+
+PT?2223::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-8
+	.ENDT
+
+PT?2323::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-9
+	.ENDT
+
+PT?2423::	.TABLE
+	VILLAGE-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-9
+	.ENDT
+
+PT?124::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-3
+	.ENDT
+
+PT?224::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?324::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-5
+	.ENDT
+
+PT?424::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-4
+	.ENDT
+
+PT?524::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-1
+	.ENDT
+
+PT?624::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-4
+	.ENDT
+
+PT?724::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-1
+	.ENDT
+
+PT?824::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-1
+	.ENDT
+
+PT?924::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?1024::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-6
+	.ENDT
+
+PT?1124::	.TABLE
+	1
+	W?STALL
+	.ENDT
+
+PT?1224::	.TABLE
+	1
+	0
+	PT?1124
+	STALL-PS
+	.ENDT
+
+PT?1324::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-7
+	.ENDT
+
+PT?1424::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-7
+	.ENDT
+
+PT?1524::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-8
+	.ENDT
+
+PT?1624::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-7
+	.ENDT
+
+PT?1724::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-6
+	.ENDT
+
+PT?1924::
+PT?2424::	.TABLE
+	1
+	W?OAK
+	.ENDT
+
+PT?2124::
+PT?2224::	.TABLE
+	1
+	W?PINE
+	.ENDT
+
+PT?2324::
+PT?2524::	.TABLE
+	1
+	W?TREE
+	.ENDT
+
+PT?2624::	.TABLE
+	4
+	PT?1824
+	PT?1924
+	TREE-PS
+	PT?2024
+	PT?2124
+	TREE-PS
+	PT?2224
+	PT?2324
+	TREE-PS
+	PT?2424
+	PT?2524
+	TREE-PS
+	.ENDT
+
+PT?2724::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-5
+	.ENDT
+
+PT?2824::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-3
+	.ENDT
+
+PT?2924::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-4
+	.ENDT
+
+PT?3024::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-3
+	.ENDT
+
+PT?3124::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-6
+	.ENDT
+
+PT?3224::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-5
+	.ENDT
+
+PT?3324::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?3424::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-6
+	.ENDT
+
+PT?3524::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-7
+	.ENDT
+
+PT?3624::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-7
+	.ENDT
+
+PT?3724::	.TABLE
+	DESERT-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-8
+	.ENDT
+
+PT?3824::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-4
+	.ENDT
+
+PT?3924::	.TABLE
+	1
+	W?LONE
+	.ENDT
+
+PT?4024::	.TABLE
+	1
+	W?SPOTLIGHT
+	.ENDT
+
+PT?4224::	.TABLE
+	2
+	PT?3924
+	PT?4024
+	SPOTLIGHT-PS
+	0
+	PT?4124
+	PHIL-SHADOW-PS
+	.ENDT
+
+PT?4324::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-3
+	.ENDT
+
+PT?4424::	.TABLE
+	LAKE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-5
+	.ENDT
+
+PT?4524::	.TABLE
+	1
+	W?DIMWIT'S
+	.ENDT
+
+PT?4624::	.TABLE
+	1
+	W?BOX
+	.ENDT
+
+PT?4724::	.TABLE
+	1
+	PT?4524
+	PT?4624
+	DIMWIT-BOX-PS
+	.ENDT
+
+PT?125::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-5
+	.ENDT
+
+PT?225::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-5
+	.ENDT
+
+PT?325::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-7
+	.ENDT
+
+PT?425::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-8
+	.ENDT
+
+PT?525::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-7
+	.ENDT
+
+PT?625::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-7
+	.ENDT
+
+PT?725::
+PT?2226::	.TABLE
+	1
+	W?NARROW
+	.ENDT
+
+PT?825::
+PT?2326::	.TABLE
+	1
+	W?CRACK
+	.ENDT
+
+PT?1025::	.TABLE
+	1
+	W?FISSURE
+	.ENDT
+
+PT?1125::	.TABLE
+	2
+	PT?725
+	PT?825
+	FISSURE-CRACK-PS
+	PT?925
+	PT?1025
+	FISSURE-PS
+	.ENDT
+
+PT?1225::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-8
+	.ENDT
+
+PT?1325::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-9
+	.ENDT
+
+PT?1425::	.TABLE
+	1
+	W?ICE
+	.ENDT
+
+PT?1525::	.TABLE
+	1
+	0
+	PT?1425
+	ICE-PS
+	.ENDT
+
+PT?1625::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-6
+	.ENDT
+
+PT?1725::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-5
+	.ENDT
+
+PT?1825::	.TABLE
+	1
+	W?REST
+	.ENDT
+
+PT?1925::	.TABLE
+	1
+	W?STOP
+	.ENDT
+
+PT?2025::	.TABLE
+	1
+	W?BOARD
+	.ENDT
+
+PT?2125::	.TABLE
+	1
+	W?SHUTTER
+	.ENDT
+
+PT?2225::	.TABLE
+	3
+	PT?1825
+	PT?1925
+	REST-STOP-PS
+	0
+	PT?2025
+	SHUTTER-PS
+	0
+	PT?2125
+	SHUTTER-PS
+	.ENDT
+
+PT?2325::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?2425::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-3
+	.ENDT
+
+PT?2525::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-3
+	.ENDT
+
+PT?2625::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-2
+	.ENDT
+
+PT?2725::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-2
+	.ENDT
+
+PT?2825::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-1
+	.ENDT
+
+PT?2925::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-1
+	.ENDT
+
+PT?3025::
+F-PIC-LOCS::	.TABLE
+	369
+	370
+	371
+	372
+	373
+	.ENDT
+
+PT?3125::
+F-FACE-CARD-PIC-TBL::	.TABLE
+	154
+	155
+	156
+	157
+	158
+	159
+	160
+	161
+	162
+	.ENDT
+
+PT?3225::
+J-PLAY-TABLE::	.TABLE
+	STR?656
+	STR?657
+	STR?658
+	STR?659
+	STR?660
+	STR?661
+	STR?662
+	STR?663
+	STR?664
+	STR?665
+	STR?666
+	STR?667
+	STR?668
+	STR?669
+	STR?670
+	STR?671
+	STR?672
+	.ENDT
+
+PT?3325::
+J-PLAY-SCORES::	.TABLE
+	-10
+	-78
+	44
+	-21
+	-95
+	-31
+	22
+	-42
+	34
+	-56
+	-4
+	-28
+	-16
+	-37
+	-25
+	15
+	-22
+	.ENDT
+
+PT?3425::
+F-PLAY-TABLE::	.TABLE
+	STR?673
+	STR?674
+	STR?675
+	STR?676
+	STR?677
+	STR?678
+	STR?679
+	STR?680
+	STR?681
+	STR?682
+	STR?683
+	STR?684
+	STR?685
+	STR?686
+	STR?687
+	.ENDT
+
+PT?3525::
+F-PLAY-TABLE-LC::	.TABLE
+	STR?688
+	STR?689
+	STR?690
+	STR?691
+	STR?692
+	STR?693
+	STR?694
+	STR?695
+	STR?696
+	STR?697
+	STR?698
+	STR?699
+	STR?700
+	STR?701
+	STR?702
+	.ENDT
+
+PT?3625::
+RANK-PIC-TBL::	.TABLE
+	0
+	F-4
+	F-5
+	F-6
+	F-7
+	F-8
+	F-9
+	F-0
+	F-INFINITY
+	F-1
+	F-2
+	F-3
+	.ENDT
+
+PT?3725::
+RANK-REV-TBL::	.TABLE
+	0
+	F-RV-4
+	F-RV-5
+	F-RV-6
+	F-RV-7
+	F-RV-8
+	F-RV-9
+	F-RV-0
+	F-RV-INFINITY
+	F-RV-1
+	F-RV-2
+	F-RV-3
+	.ENDT
+
+PT?3825::
+F-RANK-TABLE::	.TABLE
+	0
+	STR?703
+	STR?704
+	STR?705
+	STR?706
+	STR?707
+	STR?708
+	STR?709
+	STR?710
+	STR?711
+	STR?712
+	STR?713
+	STR?714
+	STR?715
+	STR?716
+	STR?717
+	STR?718
+	STR?719
+	STR?720
+	STR?721
+	STR?722
+	.ENDT
+
+PT?3925::
+SUIT-PIC-TBL::	.TABLE
+	0
+	F-INKBLOTS
+	F-PLUNGERS
+	F-BUGS
+	F-ZURFS
+	F-EARS
+	F-TOPS
+	F-RAIN
+	F-HIVES
+	F-FACES
+	F-MAZES
+	F-LAMPS
+	F-TIME
+	F-BOOKS
+	F-SCYTHES
+	F-FROMPS
+	.ENDT
+
+PT?4025::
+SUIT-REV-TBL::	.TABLE
+	0
+	F-RV-INKBLOTS
+	F-RV-PLUNGERS
+	F-RV-BUGS
+	F-RV-ZURFS
+	F-RV-EARS
+	F-RV-TOPS
+	F-RV-RAIN
+	F-RV-HIVES
+	F-RV-FACES
+	F-RV-MAZES
+	F-RV-LAMPS
+	F-RV-TIME
+	F-RV-BOOKS
+	F-RV-SCYTHES
+	F-RV-FROMPS
+	.ENDT
+
+PT?4125::
+F-SUIT-TABLE::	.TABLE
+	0
+	STR?723
+	STR?724
+	STR?725
+	STR?726
+	STR?727
+	STR?728
+	STR?729
+	STR?730
+	STR?731
+	STR?732
+	STR?733
+	STR?718
+	STR?734
+	STR?735
+	STR?736
+	.ENDT
+
+PT?4225::
+CHEAT-WINS::	.TABLE
+	3
+	STR?737
+	45
+	STR?738
+	23
+	STR?739
+	19
+	.ENDT
+
+PT?4325::
+CHEAT-LOSSES::	.TABLE
+	3
+	STR?740
+	-60
+	STR?741
+	-47
+	STR?742
+	-33
+	.ENDT
+
+PT?4425::
+J-RESPONSES::	.TABLE
+	STR?743
+	STR?744
+	STR?745
+	STR?746
+	STR?747
+	STR?748
+	STR?749
+	STR?750
+	STR?751
+	STR?752
+	STR?753
+	STR?754
+	STR?755
+	STR?756
+	STR?757
+	STR?758
+	STR?759
+	STR?760
+	STR?761
+	STR?762
+	STR?763
+	STR?764
+	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
+	.ENDT
+
+PT?4525::
+F-SCORES::	.TABLE
+	0
+	0
+	0
+	24
+	10
+	28
+	41
+	-12
+	-81
+	37
+	54
+	-29
+	17
+	66
+	-35
+	14
+	18
+	13
+	-79
+	-41
+	-15
+	60
+	64
+	-99
+	10
+	-73
+	12
+	-55
+	-20
+	-77
+	-11
+	-14
+	0
+	0
+	0
+	0
+	-38
+	.ENDT
+
+PT?4625::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-2
+	.ENDT
+
+PT?4725::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-2
+	.ENDT
+
+PT?4825::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-3
+	.ENDT
+
+PT?4925::	.TABLE
+	FOOZLE-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-4
+	.ENDT
+
+PT?5025::	.TABLE
+	FOOZLE-MAP-NUM
+	WISHYFOO-ICON-LOC
+	MAP-GEN-X-4
+	.ENDT
+
+PT?126::	.TABLE
+	SECRET-WING-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-10
+	.ENDT
+
+PT?426::
+ORACLE-TABLE::	.TABLE
+	CRAG
+	GLACIER
+	DELTA-1
+	FOOT-OF-STATUE
+	MINE-ENTRANCE
+	.ENDT
+
+PT?526::
+EYE-TABLE::	.TABLE
+	STR?789
+	STR?790
+	STR?791
+	STR?792
+	STR?793
+	.ENDT
+
+PT?626::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?726::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-3
+	.ENDT
+
+PT?826::
+PT?1126::
+PT?1326::
+PT?1426::	.TABLE
+	1
+	W?IRON
+	.ENDT
+
+PT?926::
+PT?1226::	.TABLE
+	1
+	W?MINE
+	.ENDT
+
+PT?1026::	.TABLE
+	1
+	PT?826
+	PT?926
+	IRON-MINE-PS
+	.ENDT
+
+PT?1526::	.TABLE
+	1
+	W?ORE
+	.ENDT
+
+PT?1626::	.TABLE
+	3
+	PT?1126
+	PT?1226
+	IRON-MINE-PS
+	0
+	PT?1326
+	IRON-PS
+	PT?1426
+	PT?1526
+	IRON-PS
+	.ENDT
+
+PT?1726::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-3
+	.ENDT
+
+PT?1826::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-6
+	.ENDT
+
+PT?1926::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-7
+	.ENDT
+
+PT?2026::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-4
+	.ENDT
+
+PT?2126::	.TABLE
+	FJORD-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-4
+	.ENDT
+
+PT?2426::	.TABLE
+	1
+	PT?2226
+	PT?2326
+	NARROW-CRACK-PS
+	.ENDT
+
+PT?2526::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-1
+	MAP-GEN-X-10
+	.ENDT
+
+PT?2626::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-8
+	.ENDT
+
+PT?2726::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-9
+	.ENDT
+
+PT?2826::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-7
+	.ENDT
+
+PT?2926::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-8
+	.ENDT
+
+PT?3026::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-8
+	.ENDT
+
+PT?3126::	.TABLE
+	GRAY-MOUNTAINS-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-6
+	.ENDT
+
+PT?3226::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-10
+	.ENDT
+
+PT?3326::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-8
+	.ENDT
+
+PT?3426::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-8
+	.ENDT
+
+PT?3526::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-9
+	.ENDT
+
+PT?3626::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-7
+	.ENDT
+
+PT?3726::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?3826::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-7
+	.ENDT
+
+PT?3926::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-1
+	MAP-GEN-X-10
+	.ENDT
+
+PT?4026::	.TABLE
+	DELTA-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-6
+	.ENDT
+
+PT?4126::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-8
+	.ENDT
+
+PT?4226::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-7
+	.ENDT
+
+PT?4426::	.TABLE
+	1
+	W?SMALL
+	.ENDT
+
+PT?4526::	.TABLE
+	1
+	W?TREES
+	.ENDT
+
+PT?4626::	.TABLE
+	2
+	0
+	PT?4326
+	PHIL-SHADOW-PS
+	PT?4426
+	PT?4526
+	TREE-PS
+	.ENDT
+
+PT?4726::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-7
+	.ENDT
+
+PT?4826::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-6
+	.ENDT
+
+PT?4926::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-5
+	.ENDT
+
+PT?5226::
+SACRED-WORDS::	.TABLE
+	STR?850
+	STR?851
+	STR?852
+	STR?853
+	STR?854
+	STR?855
+	STR?856
+	STR?857
+	STR?858
+	STR?859
+	.ENDT
+
+PT?5326::
+SACRED-WORD-WORDS::	.TABLE
+	W?SIZUL
+	W?FZORTY
+	W?XZILCH
+	W?FUBLITSKEE
+	W?ZASTIC
+	W?AULDERFOO
+	W?LIZOWURT
+	W?ELDABLITZ
+	W?MORDEX
+	W?HILDEBUD
+	.ENDT
+
+PT?5426::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-8
+	.ENDT
+
+PT?5526::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-9
+	.ENDT
+
+PT?5626::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-10
+	.ENDT
+
+PT?5726::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-8
+	.ENDT
+
+PT?5926::
+PT?6226::	.TABLE
+	1
+	0
+	PT?5826
+	QUARRY-SHADOW-PS
+	.ENDT
+
+PT?6026::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-7
+	.ENDT
+
+PT?6326::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-9
+	.ENDT
+
+PT?6426::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-10
+	.ENDT
+
+PT?6526::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?6626::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-6
+	.ENDT
+
+PT?6726::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-5
+	.ENDT
+
+PT?6826::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-4
+	.ENDT
+
+PT?6926::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-3
+	.ENDT
+
+PT?7026::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-2
+	.ENDT
+
+PT?7126::	.TABLE
+	FUBLIO-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-1
+	.ENDT
+
+PT?7226::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-8
+	.ENDT
+
+PT?7326::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-7
+	.ENDT
+
+PT?7426::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-6
+	.ENDT
+
+PT?7526::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-6
+	.ENDT
+
+PT?7626::	.TABLE
+	1
+	W?FENCE
+	.ENDT
+
+PT?7726::	.TABLE
+	1
+	0
+	PT?7626
+	FENCE-PS
+	.ENDT
+
+PT?7826::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-7
+	.ENDT
+
+PT?7926::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-8
+	.ENDT
+
+PT?8026::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-8
+	.ENDT
+
+PT?8126::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-9
+	.ENDT
+
+PT?8226::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-6
+	MAP-GEN-X-10
+	.ENDT
+
+PT?8326::
+INTEGERS::	.TABLE
+	9
+	W?ONE
+	W?TWO
+	W?THREE
+	W?FOUR
+	W?FIVE
+	W?SIX
+	W?SEVEN
+	W?EIGHT
+	W?NINE
+	.ENDT
+
+PT?8426::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-9
+	.ENDT
+
+PT?8526::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-10
+	.ENDT
+
+PT?8626::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-10
+	.ENDT
+
+PT?8726::	.TABLE
+	ANTHARIA-MAP-NUM
+	MAP-GEN-Y-1
+	MAP-GEN-X-9
+	.ENDT
+
+PT?127::	.TABLE
+	LOWER-LEVEL-MAP-NUM
+	MAP-GEN-Y-7
+	MAP-GEN-X-4
+	.ENDT
+
+PT?128::
+MID-NAMES::	.TABLE
+	STR?916
+	STR?917
+	STR?918
+	STR?919
+	STR?920
+	STR?921
+	STR?922
+	STR?923
+	STR?924
+	STR?925
+	STR?926
+	STR?927
+	.ENDT
+
+PT?228::
+MID-NAME-WORDS::	.TABLE
+	W?HIDEOZ
+	W?BIVOTAR
+	W?URGWITZ
+	W?FOOFOONAP
+	W?ELDERBAR
+	W?GOOZUMS
+	W?SYOVAR
+	W?BUCK
+	W?SPIKE
+	W?ZIPPY
+	W?MAGGLEBAR
+	W?BARFOO
+	.ENDT
+
+PT?328::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-10
+	.ENDT
+
+PT?428::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-10
+	.ENDT
+
+PT?528::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-10
+	.ENDT
+
+PT?628::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-11
+	.ENDT
+
+PT?728::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-9
+	.ENDT
+
+PT?129::	.TABLE
+	MAIN-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-1
+	.ENDT
+
+PT?229::
+DIRIGIBLE-TRIP-DESCS::	.TABLE
+	STR?941
+	STR?942
+	STR?943
+	STR?944
+	.ENDT
+
+PT?329::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-2
+	.ENDT
+
+PT?429::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-2
+	.ENDT
+
+PT?529::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-3
+	.ENDT
+
+PT?629::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-4
+	MAP-GEN-X-4
+	.ENDT
+
+PT?729::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-3
+	MAP-GEN-X-3
+	.ENDT
+
+PT?829::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-2
+	MAP-GEN-X-3
+	.ENDT
+
+PT?929::	.TABLE
+	FENSHIRE-MAP-NUM
+	MAP-GEN-Y-5
+	MAP-GEN-X-3
+	.ENDT
+
+PT?1029::
+BOX-TBL::	.TABLE
+	0
+	BOX-1
+	BOX-2
+	BOX-3
+	BOX-4
+	BOX-5
+	BOX-6
+	BOX-7
+	BOX-8
+	BOX-9
+	.ENDT
+
+PT?1129::
+DIM-BOX-TBL::	.TABLE
+	0
+	DIM-BOX-1
+	DIM-BOX-2
+	DIM-BOX-3
+	DIM-BOX-4
+	DIM-BOX-5
+	DIM-BOX-6
+	DIM-BOX-7
+	DIM-BOX-8
+	DIM-BOX-9
+	.ENDT
+
+PT?1229::
+BINARY-TABLE::	.TABLE
+	0
+	1
+	10
+	11
+	100
+	101
+	110
+	111
+	1000
+	1001
+	.ENDT
+
+PT?131::	.TABLE
+	2
+	STR?966
+	STR?967
+	.ENDT
+
+PT?231::	.TABLE
+	2
+	STR?968
+	STR?969
+	.ENDT
+
+PT?331::	.TABLE
+	5
+	STR?970
+	STR?971
+	STR?972
+	STR?973
+	STR?974
+	.ENDT
+
+PT?431::	.TABLE
+	4
+	STR?975
+	STR?976
+	STR?977
+	STR?978
+	.ENDT
+
+PT?531::	.TABLE
+	3
+	STR?979
+	STR?980
+	STR?981
+	.ENDT
+
+PT?631::	.TABLE
+	2
+	STR?982
+	STR?983
+	.ENDT
+
+PT?731::	.TABLE
+	10
+	STR?984
+	STR?985
+	STR?986
+	STR?987
+	STR?988
+	STR?989
+	STR?990
+	STR?991
+	STR?992
+	STR?993
+	.ENDT
+
+PT?831::	.TABLE
+	6
+	STR?994
+	STR?995
+	STR?996
+	STR?997
+	STR?998
+	STR?999
+	.ENDT
+
+PT?931::	.TABLE
+	3
+	STR?1000
+	STR?1001
+	STR?1002
+	.ENDT
+
+PT?1031::	.TABLE
+	2
+	STR?1003
+	STR?1004
+	.ENDT
+
+PT?1131::	.TABLE
+	5
+	STR?1005
+	STR?1006
+	STR?1007
+	STR?1008
+	STR?1009
+	.ENDT
+
+PT?1231::	.TABLE
+	6
+	STR?1010
+	STR?1011
+	STR?1012
+	STR?1013
+	STR?1014
+	STR?1015
+	.ENDT
+
+PT?1331::	.TABLE
+	2
+	STR?1016
+	STR?1017
+	.ENDT
+
+PT?1431::	.TABLE
+	5
+	STR?1018
+	STR?1019
+	STR?1020
+	STR?1021
+	STR?1022
+	.ENDT
+
+PT?1531::	.TABLE
+	3
+	STR?1023
+	STR?1001
+	STR?1024
+	.ENDT
+
+PT?1631::	.TABLE
+	6
+	STR?1025
+	STR?1026
+	STR?1027
+	STR?1028
+	STR?1029
+	STR?1030
+	.ENDT
+
+PT?1731::	.TABLE
+	3
+	STR?1031
+	STR?1032
+	STR?1033
+	.ENDT
+
+PT?1831::	.TABLE
+	8
+	STR?1034
+	STR?1035
+	STR?1036
+	STR?1037
+	STR?1038
+	STR?1039
+	STR?1040
+	STR?1041
+	.ENDT
+
+PT?1931::	.TABLE
+	5
+	STR?1042
+	STR?1043
+	STR?1044
+	STR?1045
+	STR?1046
+	.ENDT
+
+PT?2031::	.TABLE
+	2
+	STR?1047
+	STR?981
+	.ENDT
+
+PT?2131::	.TABLE
+	6
+	STR?1048
+	STR?1049
+	STR?1050
+	STR?1051
+	STR?1052
+	STR?1053
+	.ENDT
+
+PT?2231::	.TABLE
+	2
+	STR?1054
+	STR?1055
+	.ENDT
+
+PT?2331::	.TABLE
+	3
+	STR?1056
+	STR?1057
+	STR?1058
+	.ENDT
+
+PT?2431::	.TABLE
+	2
+	STR?1059
+	STR?1060
+	.ENDT
+
+PT?2531::	.TABLE
+	4
+	STR?1061
+	STR?1062
+	STR?1063
+	STR?1064
+	.ENDT
+
+PT?2631::	.TABLE
+	2
+	STR?1065
+	STR?1066
+	.ENDT
+
+PT?2731::	.TABLE
+	4
+	STR?1067
+	STR?1068
+	STR?1069
+	STR?1070
+	.ENDT
+
+PT?2831::	.TABLE
+	2
+	STR?1071
+	STR?1072
+	.ENDT
+
+PT?2931::	.TABLE
+	15
+	STR?1073
+	STR?1074
+	STR?1075
+	STR?1076
+	STR?1077
+	STR?1078
+	STR?1079
+	STR?1080
+	STR?1081
+	STR?1082
+	STR?1083
+	STR?1084
+	STR?1085
+	STR?1086
+	STR?1087
+	.ENDT
+
+PT?3031::	.TABLE
+	4
+	STR?1088
+	STR?1089
+	STR?1090
+	STR?1091
+	.ENDT
+
+PT?3131::	.TABLE
+	2
+	STR?1092
+	STR?1093
+	.ENDT
+
+PT?3231::	.TABLE
+	5
+	STR?1094
+	STR?1095
+	STR?1096
+	STR?1097
+	STR?1098
+	.ENDT
+
+PT?3331::	.TABLE
+	4
+	STR?1099
+	STR?1100
+	STR?1101
+	STR?1102
+	.ENDT
+
+PT?3431::	.TABLE
+	3
+	STR?1103
+	STR?1104
+	STR?1105
+	.ENDT
+
+PT?3531::	.TABLE
+	8
+	STR?1106
+	STR?1107
+	STR?1108
+	STR?1109
+	STR?1110
+	STR?1111
+	STR?1112
+	STR?1113
+	.ENDT
+
+PT?3631::	.TABLE
+	5
+	STR?1114
+	STR?1115
+	STR?1116
+	STR?1117
+	STR?1118
+	.ENDT
+
+PT?3731::	.TABLE
+	4
+	STR?1119
+	STR?1120
+	STR?1121
+	STR?1122
+	.ENDT
+
+PT?3831::	.TABLE
+	4
+	STR?1123
+	STR?1120
+	STR?1124
+	STR?1125
+	.ENDT
+
+PT?3931::	.TABLE
+	4
+	STR?1126
+	STR?1127
+	STR?1128
+	STR?1129
+	.ENDT
+
+PT?4031::	.TABLE
+	5
+	STR?1130
+	STR?1131
+	STR?1132
+	STR?1133
+	STR?1134
+	.ENDT
+
+PT?4131::	.TABLE
+	17
+	STR?1135
+	STR?1136
+	STR?1137
+	STR?1138
+	STR?1139
+	STR?1140
+	STR?1141
+	STR?1142
+	STR?1143
+	STR?1144
+	STR?1145
+	STR?1146
+	STR?1147
+	STR?1148
+	STR?1149
+	STR?1150
+	STR?1151
+	.ENDT
+
+PT?4231::	.TABLE
+	4
+	STR?1152
+	STR?1153
+	STR?1154
+	STR?1155
+	.ENDT
+
+PT?4331::	.TABLE
+	4
+	STR?1156
+	STR?1157
+	STR?1158
+	STR?1159
+	.ENDT
+
+PT?4431::	.TABLE
+	2
+	STR?1160
+	STR?1161
+	.ENDT
+
+PT?4531::	.TABLE
+	2
+	STR?1162
+	STR?1163
+	.ENDT
+
+PT?4631::	.TABLE
+	3
+	STR?1164
+	STR?1165
+	STR?1166
+	.ENDT
+
+PT?4731::	.TABLE
+	5
+	STR?1167
+	STR?1168
+	STR?1169
+	STR?1170
+	STR?1171
+	.ENDT
+
+PT?4831::	.TABLE
+	11
+	STR?1172
+	STR?1173
+	STR?1174
+	STR?1175
+	STR?1176
+	STR?1177
+	STR?1178
+	STR?1179
+	STR?1180
+	STR?1181
+	STR?1182
+	.ENDT
+
+PT?4931::	.TABLE
+	6
+	STR?1183
+	STR?1184
+	STR?1185
+	STR?1186
+	STR?1187
+	STR?1188
+	.ENDT
+
+PT?5031::	.TABLE
+	5
+	STR?1189
+	STR?1190
+	STR?1191
+	STR?1192
+	STR?1193
+	.ENDT
+
+PT?5131::	.TABLE
+	5
+	STR?1194
+	STR?1195
+	STR?1196
+	STR?1197
+	STR?1198
+	.ENDT
+
+PT?5231::	.TABLE
+	10
+	STR?1199
+	STR?1200
+	STR?1201
+	STR?1202
+	STR?1203
+	STR?1204
+	STR?1205
+	STR?1206
+	STR?1207
+	STR?1208
+	.ENDT
+
+PT?5331::	.TABLE
+	5
+	STR?1209
+	STR?1210
+	STR?1211
+	STR?1212
+	STR?1213
+	.ENDT
+
+PT?5431::	.TABLE
+	2
+	STR?1214
+	STR?1215
+	.ENDT
+
+PT?5531::	.TABLE
+	3
+	STR?1216
+	STR?1217
+	STR?1218
+	.ENDT
+
+PT?5631::	.TABLE
+	4
+	STR?1219
+	STR?1220
+	STR?1221
+	STR?1222
+	.ENDT
+
+PT?5731::	.TABLE
+	5
+	STR?1223
+	STR?1224
+	STR?1225
+	STR?1226
+	STR?1227
+	.ENDT
+
+PT?5831::	.TABLE
+	3
+	STR?1228
+	STR?1229
+	STR?1230
+	.ENDT
+
+PT?5931::	.TABLE
+	3
+	STR?1231
+	STR?1232
+	STR?1233
+	.ENDT
+
+PT?6031::	.TABLE
+	14
+	STR?1234
+	STR?1235
+	STR?1236
+	STR?1237
+	STR?1238
+	STR?1239
+	STR?1240
+	STR?1241
+	STR?1242
+	STR?1243
+	STR?1244
+	STR?1245
+	STR?1246
+	STR?1247
+	.ENDT
+
+PT?6131::	.TABLE
+	8
+	STR?1248
+	STR?1249
+	STR?1250
+	STR?1251
+	STR?1252
+	STR?1253
+	STR?1254
+	STR?1255
+	.ENDT
+
+PT?6231::	.TABLE
+	10
+	STR?1256
+	STR?1257
+	STR?1258
+	STR?1259
+	STR?1260
+	STR?1261
+	STR?1262
+	STR?1263
+	STR?1264
+	STR?1265
+	.ENDT
+
+PT?6331::	.TABLE
+	5
+	STR?1266
+	STR?1267
+	STR?1268
+	STR?1269
+	STR?1270
+	.ENDT
+
+PT?6431::
+PT?6831::
+PT?7231::
+PT?7731::
+PT?8331::	.TABLE
+	8
+	STR?1271
+	STR?1272
+	STR?1273
+	STR?1274
+	STR?1275
+	STR?1276
+	STR?1277
+	STR?1278
+	.ENDT
+
+PT?6531::	.TABLE
+	4
+	STR?1279
+	STR?1280
+	STR?1281
+	STR?1282
+	.ENDT
+
+PT?6631::	.TABLE
+	7
+	STR?1283
+	STR?1284
+	STR?1285
+	STR?1286
+	STR?1287
+	STR?1288
+	STR?1289
+	.ENDT
+
+PT?6731::	.TABLE
+	5
+	STR?1290
+	STR?1291
+	STR?1292
+	STR?1293
+	STR?1294
+	.ENDT
+
+PT?6931::	.TABLE
+	4
+	STR?1295
+	STR?1296
+	STR?1297
+	STR?1298
+	.ENDT
+
+PT?7031::	.TABLE
+	9
+	STR?1299
+	STR?1300
+	STR?1301
+	STR?1302
+	STR?1303
+	STR?1304
+	STR?1305
+	STR?1306
+	STR?1307
+	.ENDT
+
+PT?7131::	.TABLE
+	4
+	STR?1308
+	STR?1309
+	STR?1310
+	STR?1311
+	.ENDT
+
+PT?7331::	.TABLE
+	6
+	STR?1312
+	STR?1313
+	STR?1314
+	STR?1315
+	STR?1316
+	STR?1317
+	.ENDT
+
+PT?7431::	.TABLE
+	8
+	STR?1318
+	STR?1319
+	STR?1320
+	STR?1321
+	STR?1322
+	STR?1323
+	STR?1324
+	STR?1325
+	.ENDT
+
+PT?7531::	.TABLE
+	9
+	STR?1326
+	STR?1327
+	STR?1328
+	STR?1329
+	STR?1330
+	STR?1331
+	STR?1332
+	STR?1333
+	STR?1334
+	.ENDT
+
+PT?7631::	.TABLE
+	4
+	STR?1335
+	STR?1336
+	STR?1337
+	STR?1338
+	.ENDT
+
+PT?7831::	.TABLE
+	3
+	STR?1339
+	STR?1340
+	STR?1341
+	.ENDT
+
+PT?7931::	.TABLE
+	5
+	STR?1342
+	STR?1343
+	STR?1344
+	STR?1345
+	STR?1346
+	.ENDT
+
+PT?8031::	.TABLE
+	6
+	STR?1347
+	STR?1348
+	STR?1349
+	STR?1350
+	STR?1351
+	STR?1352
+	.ENDT
+
+PT?8131::	.TABLE
+	7
+	STR?1353
+	STR?1354
+	STR?1355
+	STR?1356
+	STR?1357
+	STR?1358
+	STR?1359
+	.ENDT
+
+PT?8231::	.TABLE
+	16
+	STR?1360
+	STR?1361
+	STR?1362
+	STR?1363
+	STR?1364
+	STR?1365
+	STR?1366
+	STR?1367
+	STR?1368
+	STR?1369
+	STR?1370
+	STR?1371
+	STR?1372
+	STR?1373
+	STR?1374
+	STR?1375
+	.ENDT
+
+PT?8431::	.TABLE
+	4
+	STR?1376
+	STR?1377
+	STR?1378
+	STR?1379
+	.ENDT
+
+PT?8531::	.TABLE
+	5
+	STR?1380
+	STR?1381
+	STR?1382
+	STR?1383
+	STR?1384
+	.ENDT
+
+PT?8631::	.TABLE
+	6
+	STR?1385
+	STR?1386
+	STR?1387
+	STR?1388
+	STR?1389
+	STR?1390
+	.ENDT
+
+PT?8731::	.TABLE
+	3
+	STR?1391
+	STR?1392
+	STR?1393
+	.ENDT
+
+PT?8831::	.TABLE
+	4
+	STR?1394
+	STR?1395
+	STR?1396
+	STR?1397
+	.ENDT
+
+PT?8931::	.TABLE
+	2
+	STR?1398
+	STR?1399
+	.ENDT
+
+PT?9031::	.TABLE
+	4
+	STR?1400
+	STR?1401
+	STR?1402
+	STR?1403
+	.ENDT
+
+PT?9131::	.TABLE
+	10
+	STR?955
+	STR?1404
+	STR?1405
+	STR?1406
+	STR?1407
+	STR?1408
+	STR?1409
+	STR?1410
+	STR?1411
+	STR?1412
+	.ENDT
+
+PT?9231::	.TABLE
+	6
+	STR?1413
+	STR?1414
+	STR?1415
+	STR?1416
+	STR?1417
+	STR?1418
+	.ENDT
+
+PT?9331::	.TABLE
+	7
+	STR?1419
+	STR?1420
+	STR?1421
+	STR?1422
+	STR?1423
+	STR?1424
+	STR?1425
+	.ENDT
+
+PT?9431::	.TABLE
+	7
+	STR?1426
+	STR?1427
+	STR?1428
+	STR?1429
+	STR?1430
+	STR?1431
+	STR?1432
+	.ENDT
+
+PT?9531::	.TABLE
+	3
+	STR?1433
+	STR?1434
+	STR?1435
+	.ENDT
+
+PT?9631::	.TABLE
+	2
+	STR?1436
+	STR?1437
+	.ENDT
+
+PT?9731::	.TABLE
+	2
+	STR?1438
+	STR?1439
+	.ENDT
+
+PT?9831::	.TABLE
+	5
+	STR?1440
+	STR?1441
+	STR?1442
+	STR?1443
+	STR?1444
+	.ENDT
+
+PT?9931::	.TABLE
+	11
+	STR?1445
+	STR?1446
+	STR?1447
+	STR?1448
+	STR?1449
+	STR?1450
+	STR?1451
+	STR?1452
+	STR?1453
+	STR?1454
+	STR?1455
+	.ENDT
+
+PT?10031::	.TABLE
+	8
+	STR?1456
+	STR?1457
+	STR?1458
+	STR?1459
+	STR?1460
+	STR?1461
+	STR?1462
+	STR?1463
+	.ENDT
+
+PT?10131::	.TABLE
+	3
+	STR?1464
+	STR?1465
+	STR?1466
+	.ENDT
+
+PT?10231::	.TABLE
+	6
+	STR?1467
+	STR?1468
+	STR?1469
+	STR?1470
+	STR?1471
+	STR?1472
+	.ENDT
+
+PT?10331::	.TABLE
+	5
+	STR?1473
+	STR?1474
+	STR?1475
+	STR?1476
+	STR?1477
+	.ENDT
+
+PT?10431::	.TABLE
+	6
+	STR?1478
+	STR?1479
+	STR?1480
+	STR?1481
+	STR?1482
+	STR?1483
+	.ENDT
+
+PT?10531::	.TABLE
+	4
+	STR?1484
+	STR?1485
+	STR?1486
+	STR?1487
+	.ENDT
+
+PT?10631::	.TABLE
+	2
+	STR?1488
+	STR?1489
+	.ENDT
+
+PT?10731::	.TABLE
+	14
+	STR?1490
+	STR?1491
+	STR?1492
+	STR?1493
+	STR?1494
+	STR?1495
+	STR?1496
+	STR?1497
+	STR?1498
+	STR?1499
+	STR?1500
+	STR?1501
+	STR?1502
+	STR?1503
+	.ENDT
+
+PT?10831::	.TABLE
+	14
+	STR?1504
+	STR?1491
+	STR?1505
+	STR?1506
+	STR?1507
+	STR?1508
+	STR?1509
+	STR?1510
+	STR?1511
+	STR?1512
+	STR?1513
+	STR?1514
+	STR?1515
+	STR?1516
+	.ENDT
+
+PT?10931::	.TABLE
+	15
+	STR?1517
+	STR?1518
+	STR?1519
+	STR?1520
+	STR?1521
+	STR?1522
+	STR?1523
+	STR?1524
+	STR?1525
+	STR?1526
+	STR?1527
+	STR?1528
+	STR?1529
+	STR?1530
+	STR?1531
+	.ENDT
+
+PT?11031::	.TABLE
+	15
+	STR?1532
+	STR?1533
+	STR?1534
+	STR?1535
+	STR?1536
+	STR?1537
+	STR?1538
+	STR?1539
+	STR?1540
+	STR?1541
+	STR?1542
+	STR?1543
+	STR?1544
+	STR?1545
+	STR?1546
+	.ENDT
+
+PT?11131::	.TABLE
+	13
+	STR?1547
+	STR?1548
+	STR?1549
+	STR?1550
+	STR?1551
+	STR?1552
+	STR?1553
+	STR?1554
+	STR?1555
+	STR?1556
+	STR?1557
+	STR?1558
+	STR?1559
+	.ENDT
+
+PT?11231::	.TABLE
+	13
+	STR?1560
+	STR?1561
+	STR?1562
+	STR?1563
+	STR?1564
+	STR?1565
+	STR?1566
+	STR?1567
+	STR?1568
+	STR?1569
+	STR?1570
+	STR?1571
+	STR?1572
+	.ENDT
+
+PT?11331::	.TABLE
+	2
+	STR?1488
+	STR?1573
+	.ENDT
+
+PT?11431::	.TABLE
+	17
+	STR?1574
+	STR?1575
+	STR?1576
+	STR?1577
+	STR?1578
+	STR?1579
+	STR?1580
+	STR?1581
+	STR?1582
+	STR?1583
+	STR?1584
+	STR?1585
+	STR?1586
+	STR?1587
+	STR?1588
+	STR?1589
+	STR?1590
+	.ENDT
+
+PT?11531::	.TABLE
+	4
+	STR?1591
+	STR?1592
+	STR?1593
+	STR?1594
+	.ENDT
+
+PT?11631::	.TABLE
+	9
+	STR?1595
+	STR?1596
+	STR?1597
+	STR?1598
+	STR?1599
+	STR?1600
+	STR?1601
+	STR?1602
+	STR?1603
+	.ENDT
+
+PT?11731::	.TABLE
+	10
+	STR?1604
+	STR?1605
+	STR?1606
+	STR?1607
+	STR?1608
+	STR?1609
+	STR?1610
+	STR?1611
+	STR?1612
+	STR?1613
+	.ENDT
+
+PT?11831::	.TABLE
+	10
+	STR?1614
+	STR?1615
+	STR?1616
+	STR?1617
+	STR?1618
+	STR?1619
+	STR?1620
+	STR?1621
+	STR?1622
+	STR?1623
+	.ENDT
+
+PT?11931::	.TABLE
+	6
+	STR?1624
+	STR?1625
+	STR?1626
+	STR?1627
+	STR?1628
+	STR?1629
+	.ENDT
+
+PT?12031::	.TABLE
+	8
+	STR?1630
+	STR?1631
+	STR?1632
+	STR?1633
+	STR?1634
+	STR?1635
+	STR?1636
+	STR?1637
+	.ENDT
+
+PT?12131::	.TABLE
+	4
+	STR?1638
+	PT?131
+	PT?231
+	PT?331
+	.ENDT
+
+PT?12231::	.TABLE
+	6
+	STR?1639
+	PT?431
+	PT?531
+	PT?631
+	PT?731
+	PT?831
+	.ENDT
+
+PT?12331::	.TABLE
+	7
+	STR?1640
+	PT?931
+	PT?1031
+	PT?1131
+	PT?1231
+	PT?1331
+	PT?1431
+	.ENDT
+
+PT?12431::	.TABLE
+	6
+	STR?1641
+	PT?1531
+	PT?1631
+	PT?1731
+	PT?1831
+	PT?1931
+	.ENDT
+
+PT?12531::	.TABLE
+	11
+	STR?1642
+	PT?2031
+	PT?2131
+	PT?2231
+	PT?2331
+	PT?2431
+	PT?2531
+	PT?2631
+	PT?2731
+	PT?2831
+	PT?2931
+	.ENDT
+
+PT?12631::	.TABLE
+	8
+	STR?1643
+	PT?3031
+	PT?3131
+	PT?3231
+	PT?3331
+	PT?3431
+	PT?3531
+	PT?3631
+	.ENDT
+
+PT?12731::	.TABLE
+	5
+	STR?1644
+	PT?3731
+	PT?3831
+	PT?3931
+	PT?4031
+	.ENDT
+
+PT?12831::	.TABLE
+	6
+	STR?1645
+	PT?4131
+	PT?4231
+	PT?4331
+	PT?4431
+	PT?4531
+	.ENDT
+
+PT?12931::	.TABLE
+	5
+	STR?1646
+	PT?4631
+	PT?4731
+	PT?4831
+	PT?4931
+	.ENDT
+
+PT?13031::	.TABLE
+	12
+	STR?1647
+	PT?5031
+	PT?5131
+	PT?5231
+	PT?5331
+	PT?5431
+	PT?5531
+	PT?5631
+	PT?5731
+	PT?5831
+	PT?5931
+	PT?6031
+	.ENDT
+
+PT?13131::	.TABLE
+	5
+	STR?1648
+	PT?6131
+	PT?6231
+	PT?6331
+	PT?6431
+	.ENDT
+
+PT?13231::	.TABLE
+	5
+	STR?1649
+	PT?6531
+	PT?6631
+	PT?6731
+	PT?6831
+	.ENDT
+
+PT?13331::	.TABLE
+	5
+	STR?1650
+	PT?6931
+	PT?7031
+	PT?7131
+	PT?7231
+	.ENDT
+
+PT?13431::	.TABLE
+	6
+	STR?1651
+	PT?7331
+	PT?7431
+	PT?7531
+	PT?7631
+	PT?7731
+	.ENDT
+
+PT?13531::	.TABLE
+	7
+	STR?1652
+	PT?7831
+	PT?7931
+	PT?8031
+	PT?8131
+	PT?8231
+	PT?8331
+	.ENDT
+
+PT?13631::	.TABLE
+	5
+	STR?1653
+	PT?8431
+	PT?8531
+	PT?8631
+	PT?8731
+	.ENDT
+
+PT?13731::	.TABLE
+	6
+	STR?1654
+	PT?8831
+	PT?8931
+	PT?9031
+	PT?9131
+	PT?9231
+	.ENDT
+
+PT?13831::	.TABLE
+	4
+	STR?1655
+	PT?9331
+	PT?9431
+	PT?9531
+	.ENDT
+
+PT?13931::	.TABLE
+	7
+	STR?1656
+	PT?9631
+	PT?9731
+	PT?9831
+	PT?9931
+	PT?10031
+	PT?10131
+	.ENDT
+
+PT?14031::	.TABLE
+	5
+	STR?1657
+	PT?10231
+	PT?10331
+	PT?10431
+	PT?10531
+	.ENDT
+
+PT?14131::	.TABLE
+	8
+	STR?1658
+	PT?10631
+	PT?10731
+	PT?10831
+	PT?10931
+	PT?11031
+	PT?11131
+	PT?11231
+	.ENDT
+
+PT?14231::	.TABLE
+	9
+	STR?1659
+	PT?11331
+	PT?11431
+	PT?11531
+	PT?11631
+	PT?11731
+	PT?11831
+	PT?11931
+	PT?12031
+	.ENDT
+
+PT?14331::
+HINT-COUNTS::	.TABLE
+	T?131
+	T?231
+	T?331
+	T?431
+	T?531
+	T?631
+	T?731
+	T?831
+	T?931
+	T?1031
+	T?1131
+	T?1231
+	T?1331
+	T?1431
+	T?1531
+	T?1631
+	T?1731
+	T?1831
+	T?1931
+	T?2031
+	T?2131
+	T?2231
+	.ENDT
+
+PT?14431::
+HINTS::	.TABLE
+	22
+	PT?12131
+	PT?12231
+	PT?12331
+	PT?12431
+	PT?12531
+	PT?12631
+	PT?12731
+	PT?12831
+	PT?12931
+	PT?13031
+	PT?13131
+	PT?13231
+	PT?13331
+	PT?13431
+	PT?13531
+	PT?13631
+	PT?13731
+	PT?13831
+	PT?13931
+	PT?14031
+	PT?14131
+	PT?14231
+	.ENDT
+
+
+; LONG WORD TABLE
+
+LONG-WORD-TABLE::	 .TABLE
+	194
+	W?YELLOW-GREEN
+	STR?1660
+	W?UNFRIENDLY
+	STR?1661
+	W?UNDERNEATH
+	STR?1662
+	W?UNDERGROUND
+	STR?1663
+	W?TREMENDOUS
+	STR?1664
+	W?TRANSLUCENT
+	STR?1665
+	W?SUPERBRIEF
+	STR?1666
+	W?STUNNINGLY
+	STR?1667
+	W?STRADIVARIUS
+	STR?1668
+	W?STEPLADDER
+	STR?1669
+	W?STENCILLED
+	STR?1670
+	W?SPENSEWEED
+	STR?1671
+	W?SKIN-TIGHT
+	STR?1672
+	W?SHADOWLAND
+	STR?1673
+	W?SELF-PORTRAIT
+	STR?1674
+	W?SCREWDRIVER
+	STR?1675
+	W?REPRODUCTION
+	STR?1676
+	W?REPRESENTATION
+	STR?1677
+	W?REFLECTIVE
+	STR?1678
+	W?REFLECTION
+	STR?1679
+	W?RECTANGULAR
+	STR?1680
+	W?QUINTUPLET
+	STR?1681
+	W?QUADRUPLET
+	STR?1682
+	W?PROCLAMATION
+	STR?1683
+	W?PREVARICON
+	STR?1684
+	W?PORTCULLIS
+	STR?1685
+	W?POORLY-DUG
+	STR?1686
+	W?PHILHARMONIC
+	STR?1687
+	W?PASSAGEWAY
+	STR?1688
+	W?ORNAMENTED
+	STR?1689
+	W?NUTCRACKER
+	STR?302
+	W?NORTH-SOUTH
+	STR?1690
+	W?NINE-GLOOP
+	STR?1691
+	W?MUMBERTHRAX
+	STR?1692
+	W?MONOGRAMMED
+	STR?1693
+	W?MIZNIAPORT
+	STR?1694
+	W?MIST-COVERED
+	STR?1695
+	W?MERRY-GO-ROUND
+	STR?1696
+	W?MANUSCRIPT
+	STR?1697
+	W?MACHICOLATION
+	STR?1698
+	W?LABORATORY
+	STR?1699
+	W?KEY-SHAPED
+	STR?1700
+	W?IRON-REINFORCED
+	STR?1701
+	W?INVISICLUES
+	STR?1702
+	W?INTERNATIONAL
+	STR?1703
+	W?INSTRUMENTS
+	STR?1704
+	W?INSTRUCTIONS
+	STR?1705
+	W?INSCRIPTION
+	STR?1706
+	W?INQUISITION
+	STR?1707
+	W?INGREDIENTS
+	STR?1708
+	W?INEPTITUDE
+	STR?1709
+	W?INCREDIBLY
+	STR?1710
+	W?INANIMATION
+	STR?1711
+	W?IMPRESSIVE
+	STR?1712
+	W?HEXAGON-SHAPED
+	STR?1713
+	W?HEADQUARTERS
+	STR?1714
+	W?HALF-BURIED
+	STR?1715
+	W?GUMFFBEAST
+	STR?1716
+	W?GRUBBO-BY-THE-SEA
+	STR?1717
+	W?GREENHOUSE
+	STR?1718
+	W?GATE-TOWER
+	STR?1719
+	W?FURGALNETI
+	STR?1720
+	W?FUBLITSKEE
+	STR?853
+	W?FROBOZZICA
+	STR?1721
+	W?FRIGHTENING
+	STR?1722
+	W?FRESHWATER
+	STR?1723
+	W?FOUR-GLOOP
+	STR?1724
+	W?FORBIDDING
+	STR?1725
+	W?FLICKERING
+	STR?1726
+	W?FLATHEADIA
+	STR?1727
+	W?EYE-CATCHING
+	STR?1728
+	W?EXTINGUISH
+	STR?1729
+	W?EXECUTIONER
+	STR?1730
+	W?EVERYTHING
+	STR?1731
+	W?END.OF.INPUT
+	STR?1732
+	W?ENCYCLOPEDIA
+	STR?1733
+	W?DUNCANTHRAX
+	STR?1734
+	W?DRAWBRIDGE
+	STR?1735
+	W?DOWNSTAIRS
+	STR?1736
+	W?DEPRESSION
+	STR?1737
+	W?DEACTIVATE
+	STR?1738
+	W?CONSTRUCTION
+	STR?1739
+	W?COMFORTABLE
+	STR?1740
+	W?COMBINATION
+	STR?1741
+	W?COCKSUCKER
+	STR?1742
+	W?CERTIFICATE
+	STR?1743
+	W?CANNONBALL
+	STR?1744
+	W?BROGMOIDISM
+	STR?1745
+	W?BOTTOMLESS
+	STR?1746
+	W?BORPHBELLY
+	STR?1747
+	W?BOOKKEEPING
+	STR?1748
+	W?BOOKKEEPER
+	STR?1749
+	W?BELOWDECKS
+	STR?1750
+	W?BATTERY-POWERED
+	STR?1751
+	W?BATHYSPHERE
+	STR?1194
+	W?ADVENTURER
+	STR?1752
+	W?ACCARDI-BY-THE-SEA
+	STR?1753
+
+	.ENDT
+PURTND::
+	.ENDI
diff --git a/zork0str.zap b/zork0str.zap
new file mode 100644
index 0000000..61c7138
--- /dev/null
+++ b/zork0str.zap
@@ -0,0 +1,2108 @@
+
+
+; STRINGS ARE DEFINED HERE
+
+STRBEG::
+
+	.SEGMENT "0"
+
+	.GSTR STR?1,"What charming language!"
+	.GSTR STR?2,"Computers aren't impressed by naughty words!"
+	.GSTR STR?3,"You ought to be ashamed of yourself!"
+	.GSTR STR?4,"Hey, save that talk for the locker room!"
+	.GSTR STR?5,"Step outside and say that!"
+	.GSTR STR?6,"And so's your old man!"
+	.GSTR STR?7,"locate"
+	.GSTR STR?8,"FIND"
+	.GSTR STR?9,"ask about"
+	.GSTR STR?10,"TELL ME ABOUT"
+	.GSTR STR?11," (something).]
+"
+P-SOMETHING=STR?11
+	.GSTR STR?12,"Please use commands"
+	.GSTR STR?13,"No inside"
+P-NO-INSIDE=STR?13
+	.GSTR STR?14,"No surface"
+P-NO-SURFACE=STR?14
+	.GSTR STR?15,"Nothing"
+P-NOTHING=STR?15
+	.GSTR STR?16,"M-END"
+	.GSTR STR?17,"Winner"
+	.GSTR STR?18,"M-BEG"
+	.GSTR STR?19,"Preaction"
+	.GSTR STR?20,"Container"
+	.GSTR STR?21,"PRSI"
+	.GSTR STR?22,"PRSO"
+	.GSTR STR?23,"word"
+	.GSTR STR?24,"letter"
+	.GSTR STR?25,"verb"
+	.GSTR STR?44,"answer"
+	.GSTR STR?45,"begins"
+	.GSTR STR?46,"ends"
+	.GSTR STR?47,"text"
+	.GSTR STR?48,"background"
+	.GSTR STR?49,"no change"
+	.GSTR STR?50,"the default color"
+	.GSTR STR?51,"black"
+	.GSTR STR?52,"red"
+	.GSTR STR?53,"green"
+	.GSTR STR?54,"yellow"
+	.GSTR STR?55,"blue"
+	.GSTR STR?56,"magenta"
+	.GSTR STR?57,"cyan"
+	.GSTR STR?58,"white"
+	.GSTR STR?104,"leave the game"
+	.GSTR STR?105,"restart"
+	.GSTR STR?106,"Dec-20"
+	.GSTR STR?107,"Apple IIe"
+	.GSTR STR?108,"Macintosh"
+	.GSTR STR?109,"Amiga"
+	.GSTR STR?110,"Atari ST"
+	.GSTR STR?111,"IBM"
+	.GSTR STR?112,"Commodore 128"
+	.GSTR STR?113,"Commodore 64"
+	.GSTR STR?114,"Apple IIc"
+	.GSTR STR?115,"Apple IIgs"
+	.GSTR STR?116,""
+	.GSTR STR?117,"Biting"
+	.GSTR STR?118," Unfortunately, you were holding it at the time."
+	.GSTR STR?119,"invent the telephone"
+	.GSTR STR?120,"LOOK "
+	.GSTR STR?121,"AT"
+	.GSTR STR?122,"INSIDE"
+	.GSTR STR?123,"UNDER"
+	.GSTR STR?124,"mount"
+	.GSTR STR?125,"climb into"
+	.GSTR STR?126,"climb onto"
+	.GSTR STR?127,"drink"
+	.GSTR STR?128,"After a moment of ecstasy, the elixir fries your brain. Your last sight is of creatures crawling from unseen crevices, waiting to feast on your corpse."
+	.GSTR STR?129,"get into"
+	.GSTR STR?130,"get onto"
+	.GSTR STR?131,"look"
+	.GSTR STR?132,"Kicking"
+	.GSTR STR?133,"Knocking on"
+	.GSTR STR?134,"You sail down through the mist for a seemingly endless time, passing giant brogmoid shoulders, hips, and knees. Eventually, the mist begins to thin, and you see a strange land below: Purple forests surround lakes of molten rock. Volcanoes belch green-blue smoke into the sky. Enormous slug-shaped creatures, a bloit long, engage in fierce combat. Suddenly, the feeling of floating endlessly changes to a feeling of falling very quickly, and this strange new world rushes up and smashes you to pulp."
+	.GSTR STR?135,"!"
+	.GSTR STR?136,"see"
+	.GSTR STR?137,"ears"
+	.GSTR STR?138,"sound"
+	.GSTR STR?139,"eyes"
+	.GSTR STR?140,"open"
+	.GSTR STR?141,"look inside"
+	.GSTR STR?142,"look through"
+	.GSTR STR?143,"map"
+	.GSTR STR?144,"indecis"
+	.GSTR STR?145,"Pulling"
+	.GSTR STR?146,"move"
+	.GSTR STR?147,"Trying to destroy"
+	.GSTR STR?148,"negat"
+	.GSTR STR?149,"ff"
+	.GSTR STR?150,"n"
+	.GSTR STR?151,"pick"
+	.GSTR STR?152,"play"
+	.GSTR STR?153,"Pushing"
+	.GSTR STR?154,"Playing in this way with"
+	.GSTR STR?155,"read"
+	.GSTR STR?156,"search"
+	.GSTR STR?157,"she"
+	.GSTR STR?158,"he"
+	.GSTR STR?159,"it"
+	.GSTR STR?160,"Turning"
+	.GSTR STR?161,"Shaking"
+	.GSTR STR?162,"on"
+	.GSTR STR?163,"smell"
+	.GSTR STR?164,"taste"
+	.GSTR STR?165,"mouth"
+	.GSTR STR?166,"hands"
+	.GSTR STR?167,"Fiddling with"
+	.GSTR STR?168,"WALK "
+	.GSTR STR?169,"TO"
+	.GSTR STR?170,"THROUGH"
+	.GSTR STR?171,"AROUND"
+	.GSTR STR?172,"get out from under the table"
+	.GSTR STR?173,"wear"
+	.GSTR STR?174,"posit"
+	.GSTR STR?175,"remove"
+	.GSTR STR?176," doesn't do anything."
+	.GSTR STR?177," accomplishes nothing."
+	.GSTR STR?178," has no desirable effect."
+	.GSTR STR?179,"What a concept!"
+	.GSTR STR?180,"Not bloody likely."
+	.GSTR STR?181,"A valiant attempt."
+	.GSTR STR?182,"Nice try."
+	.GSTR STR?183,"You can't be serious."
+	.GSTR STR?184,"Fat chance."
+	.GSTR STR?185,"Dream on."
+	.GSTR STR?186,"Impossible!!!"
+	.GSTR STR?187,"You've got to be kidding."
+	.GSTR STR?188,"Out of the question."
+	.GSTR STR?189,"That would be a waste of time."
+	.GSTR STR?190,"There's no point in doing that."
+	.GSTR STR?191,"There's another turn down the drain."
+	.GSTR STR?192,"Why bother?"
+	.GSTR STR?194,"hear"
+	.GSTR STR?195,"ground"
+	.GSTR STR?196,"sand"
+	.GSTR STR?197,"floor"
+	.GSTR STR?198,"north"
+	.GSTR STR?199,"south"
+	.GSTR STR?200,"The Loch Flatheadia Monster, usually dismissed as a fairy tale, wells up from the depths of the lake and swallows you."
+	.GSTR STR?201,"The much, much larger alligator who lives in the moat apparently considers this a territorial invasion."
+	.GSTR STR?202,"with"
+	.GSTR STR?204,"Done."
+	.GSTR STR?205,"It's too dark to see a thing."
+TOO-DARK=STR?205
+	.GSTR STR?206,"You're not holding"
+YNH=STR?206
+	.GSTR STR?207,"There's nothing "
+THERES-NOTHING=STR?207
+	.GSTR STR?208,"You can see"
+YOU-SEE=STR?208
+	.GSTR STR?209,"It seems that"
+IT-SEEMS-THAT=STR?209
+	.GSTR STR?210,"[You can't see any "
+YOU-CANT-SEE-ANY=STR?210
+	.GSTR STR?211,"You can't "
+YOU-CANT=STR?211
+	.GSTR STR?212,"You'll have to "
+YOULL-HAVE-TO=STR?212
+	.GSTR STR?213,"Look around you.
+"
+LOOK-AROUND=STR?213
+	.GSTR STR?214,"You can't do that from here.
+"
+CANT-FROM-HERE=STR?214
+	.GSTR STR?215,"You're holding it!
+"
+HOLDING-IT=STR?215
+	.GSTR STR?216,".
+"
+PERIOD-CR=STR?216
+	.GSTR STR?217,"...
+
+"
+ELLIPSIS=STR?217
+	.GSTR STR?218,"Failed.
+"
+FAILED=STR?218
+	.GSTR STR?219,"Okay.
+"
+OK=STR?219
+	.GSTR STR?220,"Huh?
+"
+HUH=STR?220
+	.GSTR STR?221,"Nothing happens.
+"
+NOTHING-HAPPENS=STR?221
+	.GSTR STR?222,"It already is!
+"
+ALREADY-IS=STR?222
+	.GSTR STR?223,"This reveals nothing new.
+"
+NOTHING-NEW=STR?223
+	.GSTR STR?224,"You see only blackness.
+"
+ONLY-BLACKNESS=STR?224
+	.GSTR STR?225,"[There was no verb in that sentence!]
+"
+NO-VERB=STR?225
+	.GSTR STR?226,"You're wearing it!
+"
+WEARING-IT=STR?226
+	.GSTR STR?227,"; the royal yacht is moored at the dock"
+YACHT-MOORED=STR?227
+	.GSTR STR?228,"[You'll have to specify which water you mean by referring to the vial that contains it.]
+"
+WHICH-WATER=STR?228
+	.GSTR STR?229,"In the center of the ceiling, a small trap door is visible."
+MEGABOZ-CEILING-DESC=STR?229
+	.GSTR STR?230,"Thick cobwebs obscure the rear wall."
+CELL-WALL-DESC=STR?230
+	.GSTR STR?231,"You nearly make it, but the branches are just too poorly configured for climbing.
+"
+POORLY-CONFIGURED=STR?231
+	.GSTR STR?232,"""I regret that I cannot travel that way.""
+"
+CANNOT-TRAVEL=STR?232
+	.GSTR STR?233,"""You'll have to answer my riddle first!""
+"
+ANSWER-MY-RIDDLE=STR?233
+	.GSTR STR?234,"You can see some light through the crack.
+"
+SOME-LIGHT=STR?234
+	.GSTR STR?235,"Please type a number between 1 and "
+TYPE-A-NUMBER=STR?235
+	.GSTR STR?236,"   Since you have no diving gear, and you are not amphibious, you drown in a swift but still unpleasant fashion."
+DROWN=STR?236
+	.GSTR STR?237,"A faint smell of fudge hangs in the air."
+FUDGE=STR?237
+	.GSTR STR?238,"The brogmoid could no more hear your shouting than you could hear the shouting of a bacterium.
+"
+TALK-TO-BROGMOID=STR?238
+	.GSTR STR?239,"You're already at the "
+ALREADY-AT=STR?239
+	.GSTR STR?240," Immediately, the witches begin beating at the jester with brushes and broomsticks. ""Scat, you filthy jester, scat!"" He vanishes hastily.
+"
+WITCH-REMOVES-J=STR?240
+	.GSTR STR?241,"There's no one here by that name.
+"
+BY-THAT-NAME=STR?241
+	.GSTR STR?242,"You reach in as far as you can, but feel nothing.
+"
+NOTHING-IN-REACH=STR?242
+	.GSTR STR?243,"It won't budge.
+"
+WONT-BUDGE=STR?243
+	.GSTR STR?244,"garbed in a white apron and wearing a puffy white chef's hat."
+COOK-DESC=STR?244
+	.GSTR STR?245,"is hunched over one of the desks, wearing suspenders, a bow tie, thick eyeglasses, and a green visor."
+BOOKKEEPER-DESC=STR?245
+	.GSTR STR?246,"""'Ere you pass to the west, you must first pass this test! Show me an object which no one has ever seen before and which no one will ever see again!""
+"
+ERE-YOU-PASS=STR?246
+	.GSTR STR?247,"Not a chance -- unless you have a team of carpenters in your pocket.
+"
+CARPENTERS=STR?247
+	.GSTR STR?248,"The spenseweed is deeply rooted.
+"
+DEEPLY-ROOTED=STR?248
+	.GSTR STR?249,"Fenshire"
+	.GSTR STR?252,"The cellar has been picked clean by the fleeing thousands -- but wait, what's this in the corner? Ah, an unopened walnut!"
+	.GSTR STR?263,"southeast"
+	.GSTR STR?267,"parchments"
+	.GSTR STR?268,"Dimwit is seated at the dais, surrounded by his most trusted advisors."
+	.GSTR STR?269,"Lord Dimwit Flathead the Excessive ruled the Great Underground Empire from 770 GUE through 789 GUE. For more information about the life of Dimwit, we refer the reader to 'The Lives of the Twelve Flatheads' by Boswell Barwell."
+	.GSTR STR?295,"A common earthworm is wriggling through the grass."
+	.GSTR STR?296,"piece of rubber"
+	.GSTR STR?297,"Instantly, the worm stops wriggling."
+	.GSTR STR?302,"nutcracker"
+	.GSTR STR?303,"The lobster stops moving. Frozen as it is, with pincers outstretched, it looks like nothing less than a large nutcracker. In fact, it IS a nutcracker!"
+	.GSTR STR?304,"""A common aquarium pet."""
+	.GSTR STR?305,"starfish"
+	.GSTR STR?306,"star"
+	.GSTR STR?307,"The starfish, as still as it was before, becomes even more still."
+	.GSTR STR?309,"torches"
+	.GSTR STR?310,"All the other torches were picking on me."
+	.GSTR STR?311,"Everyone likes the flickering torch better than me."
+	.GSTR STR?312,"I saw the guttering torch wasting oil!"
+	.GSTR STR?313,"How come I didn't get made out of top-quality wood like the other torches?"
+	.GSTR STR?314,"The muttering torch was talking about burning down the castle."
+	.GSTR STR?315,"flickering torch"
+	.GSTR STR?316,"formerly flickering torch"
+	.GSTR STR?317,"flick"
+	.GSTR STR?318,"human palm odors"
+	.GSTR STR?319,"the unfairness of existence as a torch"
+	.GSTR STR?320,"being held too tightly"
+	.GSTR STR?321,"the callous discarding of burned-out torches"
+	.GSTR STR?322,"the uncomfortableness of most sconces"
+	.GSTR STR?323,"guttering torch"
+	.GSTR STR?324,"formerly guttering torch"
+	.GSTR STR?325,"gutt"
+	.GSTR STR?327,"You spot a flash of pink amongst the flora. It's a flamingo!"
+	.GSTR STR?328,"lawn ornament"
+	.GSTR STR?329,"The flamingo becomes motionless."
+	.GSTR STR?336,"The shelves are all dusty and bare -- except for one small bag with some printing on it."
+	.GSTR STR?337,"""Hello, Flamingo Owner! The enclosed food provides a balanced, nutritious diet for your flamingo. Our food is specially formulated for the finicky flamingo. WARNING: Poisonous to humans. Another fine product of the Frobozz Magic Flamingo Food Company."""
+	.GSTR STR?338,"bars of food"
+	.GSTR STR?339,"Aarrgghh! Poison!"
+	.GSTR STR?345,"Although no one has entered this secret passage in years, a lit candle is mounted here, its flame casting dancing shadows across the uneven walls."
+	.GSTR STR?351,"Sitting on a cushioned window seat, illuminated by a shaft of sunlight, rests an ancient iron key."
+	.GSTR STR?362,"The last prisoner in the oubliette must have been a sailor; an old seaman's cap lies discarded in the corner."
+	.GSTR STR?363,"A stoppered glass flask with a skull-and-crossbones marking is here. The flask is filled with some clear liquid."
+	.GSTR STR?364,"There is a skull-and-crossbones engraved on the glass."
+	.GSTR STR?365,"fatal."
+	.GSTR STR?375,"A 100-ugh dumbbell is sitting here, looking heavy."
+	.GSTR STR?379,"It seems that a wizard must have been a recent guest at the castle, since a rather typical wizardly wand is lying here."
+	.GSTR STR?380,"""Wands are among the most useful forms of magic; the wand is merely pointed at the object to be ensorcelled."""
+	.GSTR STR?381,"One of the unicorns stiffens; its mate is understandably disturbed and, in an un-unicorn-like display of temper, impales you on the tip of a pointy horn."
+	.GSTR STR?382,"You turn into a handsome statue of yourself. A pigeon swoops down, lands on your head, and gives a pigeony whistle which translates roughly to, ""Hey, guys, I've found a really great new statue for shitting on!"" Several thousand additional pigeons swoop down, and you're crushed to dust under the resultant tonnage of excrement."
+	.GSTR STR?383,"The executioner solidifies into a stone statue of himself! After a pair of grunting guards finish dragging him away and a replacement executioner arrives, you are led into a back room, where people who deserve something even worse than hanging are taken."
+	.GSTR STR?393,"A large inscription says, ""Made by the Frobozz Magic Toboggan Company."" Below that is a faded image of a blooming morgia plant, with the name ""Morgiabud."" It's possible that this sled may have once belonged to publishing giant William Randolph Flathead (a.k.a. ""Citizen Flathead"")."
+	.GSTR STR?397,"rope"
+	.GSTR STR?398,"The snake shivers and shimmers and is then still. Too still. You approach, tentatively at first, then with more conviction. The snake is gone, replaced by (or turned into!) a good, heavy rope."
+	.GSTR STR?399," and bites you viciously on the wrist."
+	.GSTR STR?406,"""Hello, Builder!
+   Your Magic Passage should last you for many useful years. To install, simply INSTALL THE PASSAGE IN THE _____ WALL. Remember, your Magic Passage, once installed, is not removable! Please contact your dealer with any questions or problems!
+   Another fine product of the Frobozz Magic Passage Company."""
+	.GSTR STR?408,"At the far end of the cavern sits an ancient battery-powered brass lantern."
+	.GSTR STR?409,"You can barely read the worn letters: ""T. A. F."""
+	.GSTR STR?423,"""A class of saprophytic parasitical plants which lack chlorophyll and are frequently found in the less hygienic cavities of brogmoids."""
+	.GSTR STR?547,"Tiny lettering says, ""Frobozz Magic Homing Pigeon Company."""
+	.GSTR STR?548,"several feet underground, thus saving the Undertakers Guild some work."
+	.GSTR STR?549,"North of Anthar
+   You find yourself coiled up inside a very nasty bunch of sharp, rusty, barbed wire."
+	.GSTR STR?550,"You appear in a totally alien world, near a purple forest and a lake of molten rock. A giant slug-shaped creature oozes up and devours you."
+	.GSTR STR?551,"You find yourself in a gray void. The life is sucked slowly from you."
+	.GSTR STR?582,"There's not a horse in sight. However, there is a rooster here, strutting back and forth between the stalls."
+	.GSTR STR?583,"weather vane"
+	.GSTR STR?584,"The rooster stops moving and takes on the complexion of wrought iron."
+	.GSTR STR?594,"foxes"
+	.GSTR STR?595,"A fox is leaning against a nearby tree, looking sly."
+	.GSTR STR?596,"fox stole"
+	.GSTR STR?597,"The fox's eyes turn glassy."
+	.GSTR STR?602,"cross the bridge"
+	.GSTR STR?621,"Sitting on a piece of rubble is an anti-pit bomb."
+	.GSTR STR?622,"""Is your cavern infested with bottomless pits? If so, this anti-pit bomb is the answer to your prayers! Instructions: simply enter the pitted room and throw the bomb. All pit-filling agents are harmless; no protective gear is required!
+   Another fine product of the Frobozz Magic Bottomless Pit Bomb Company."""
+	.GSTR STR?623,"You hear the pits filling in, accompanied by the sound of a legion of slavering creatures lurking forth. Unhindered by the darkness, they converge on you, with sharp fangs and ravenous appetites."
+	.GSTR STR?629,"The only intact orbs seem to be a milky orb, a fiery orb, a glittery orb, and a smoky orb."
+	.GSTR STR?646,"boxes"
+	.GSTR STR?647,"One of the sinners has apparently dropped a box here. The box has some writing on it."
+	.GSTR STR?648,"""Squid Repellent! Contents: 1 pellet. Dissolves slowly in water, keeps squid away for hours! Another fine product of the Frobozz Magic Squid Repellent Company."""
+	.GSTR STR?789,"None"
+	.GSTR STR?790,"One"
+	.GSTR STR?791,"Two"
+	.GSTR STR?792,"Three"
+	.GSTR STR?793,"All"
+	.GSTR STR?824,"west"
+	.GSTR STR?825,"northwest"
+	.GSTR STR?826,"southwest"
+	.GSTR STR?827,"east"
+	.GSTR STR?828,"northeast"
+	.GSTR STR?834,"spyglasses"
+	.GSTR STR?835,"flies"
+	.GSTR STR?850,"sizul"
+	.GSTR STR?851,"fzorty"
+	.GSTR STR?852,"xzilch"
+	.GSTR STR?853,"fublitskee"
+	.GSTR STR?854,"zastic"
+	.GSTR STR?855,"aulderfoo"
+	.GSTR STR?856,"lizowurt"
+	.GSTR STR?857,"eldablitz"
+	.GSTR STR?858,"mordex"
+	.GSTR STR?859,"hildebud"
+	.GSTR STR?863,"You pass out from extreme hunger."
+	.GSTR STR?881,"A long wooden club lies on the turf. There is something engraved on the club's thick end."
+	.GSTR STR?882,"A symbol which resembles a winged rodent is engraved on the barrel of the club."
+	.GSTR STR?883," Yer out!"""
+	.GSTR STR?912,"up"
+	.GSTR STR?913,"down"
+	.GSTR STR?916,"Hideoz"
+	.GSTR STR?917,"Bivotar"
+	.GSTR STR?918,"Urgwitz"
+	.GSTR STR?919,"Foofoonap"
+	.GSTR STR?920,"Elderbar"
+	.GSTR STR?921,"Goozums"
+	.GSTR STR?922,"Syovar"
+	.GSTR STR?923,"Buck"
+	.GSTR STR?924,"Spike"
+	.GSTR STR?925,"Zippy"
+	.GSTR STR?926,"Magglebar"
+	.GSTR STR?927,"Barfoo"
+	.GSTR STR?928,"   You pass out from a shortage of air."
+	.GSTR STR?931,"goggles"
+	.GSTR STR?932,"Sitting in the corner is a wooden shipping crate with some writing stencilled across the top."
+	.GSTR STR?933,"""1000 Clown Noses, Red
+Frobozz Magic Clown Nose Company"""
+	.GSTR STR?1660,"yellow-green"
+	.GSTR STR?1661,"unfriendly"
+	.GSTR STR?1662,"underneath"
+	.GSTR STR?1663,"underground"
+	.GSTR STR?1664,"tremendous"
+	.GSTR STR?1665,"translucent"
+	.GSTR STR?1666,"superbrief"
+	.GSTR STR?1667,"stunningly"
+	.GSTR STR?1668,"stradivarius"
+	.GSTR STR?1669,"stepladder"
+	.GSTR STR?1670,"stencilled"
+	.GSTR STR?1671,"spenseweed"
+	.GSTR STR?1672,"skin-tight"
+	.GSTR STR?1673,"shadowland"
+	.GSTR STR?1674,"self-portrait"
+	.GSTR STR?1675,"screwdriver"
+	.GSTR STR?1676,"reproduction"
+	.GSTR STR?1677,"representation"
+	.GSTR STR?1678,"reflective"
+	.GSTR STR?1679,"reflection"
+	.GSTR STR?1680,"rectangular"
+	.GSTR STR?1681,"quintuplet"
+	.GSTR STR?1682,"quadruplet"
+	.GSTR STR?1683,"proclamation"
+	.GSTR STR?1684,"prevaricon"
+	.GSTR STR?1685,"portcullis"
+	.GSTR STR?1686,"poorly-dug"
+	.GSTR STR?1687,"philharmonic"
+	.GSTR STR?1688,"passageway"
+	.GSTR STR?1689,"ornamented"
+	.GSTR STR?1690,"north-south"
+	.GSTR STR?1691,"nine-gloop"
+	.GSTR STR?1692,"mumberthrax"
+	.GSTR STR?1693,"monogrammed"
+	.GSTR STR?1694,"mizniaport"
+	.GSTR STR?1695,"mist-covered"
+	.GSTR STR?1696,"merry-go-round"
+	.GSTR STR?1697,"manuscript"
+	.GSTR STR?1698,"machicolation"
+	.GSTR STR?1699,"laboratory"
+	.GSTR STR?1700,"key-shaped"
+	.GSTR STR?1701,"iron-reinforced"
+	.GSTR STR?1702,"invisiclues"
+	.GSTR STR?1703,"international"
+	.GSTR STR?1704,"instruments"
+	.GSTR STR?1705,"instructions"
+	.GSTR STR?1706,"inscription"
+	.GSTR STR?1707,"inquisition"
+	.GSTR STR?1708,"ingredients"
+	.GSTR STR?1709,"ineptitude"
+	.GSTR STR?1710,"incredibly"
+	.GSTR STR?1711,"inanimation"
+	.GSTR STR?1712,"impressive"
+	.GSTR STR?1713,"hexagon-shaped"
+	.GSTR STR?1714,"headquarters"
+	.GSTR STR?1715,"half-buried"
+	.GSTR STR?1716,"gumffbeast"
+	.GSTR STR?1717,"grubbo-by-the-sea"
+	.GSTR STR?1718,"greenhouse"
+	.GSTR STR?1719,"gate-tower"
+	.GSTR STR?1720,"furgalneti"
+	.GSTR STR?1721,"frobozzica"
+	.GSTR STR?1722,"frightening"
+	.GSTR STR?1723,"freshwater"
+	.GSTR STR?1724,"four-gloop"
+	.GSTR STR?1725,"forbidding"
+	.GSTR STR?1726,"flickering"
+	.GSTR STR?1727,"flatheadia"
+	.GSTR STR?1728,"eye-catching"
+	.GSTR STR?1729,"extinguish"
+	.GSTR STR?1730,"executioner"
+	.GSTR STR?1731,"everything"
+	.GSTR STR?1732,"end.of.input"
+	.GSTR STR?1733,"encyclopedia"
+	.GSTR STR?1734,"duncanthrax"
+	.GSTR STR?1735,"drawbridge"
+	.GSTR STR?1736,"downstairs"
+	.GSTR STR?1737,"depression"
+	.GSTR STR?1738,"deactivate"
+	.GSTR STR?1739,"construction"
+	.GSTR STR?1740,"comfortable"
+	.GSTR STR?1741,"combination"
+	.GSTR STR?1742,"cocksucker"
+	.GSTR STR?1743,"certificate"
+	.GSTR STR?1744,"cannonball"
+	.GSTR STR?1745,"brogmoidism"
+	.GSTR STR?1746,"bottomless"
+	.GSTR STR?1747,"borphbelly"
+	.GSTR STR?1748,"bookkeeping"
+	.GSTR STR?1749,"bookkeeper"
+	.GSTR STR?1750,"belowdecks"
+	.GSTR STR?1751,"battery-powered"
+	.GSTR STR?1752,"adventurer"
+	.GSTR STR?1753,"accardi-by-the-sea"
+	.ENDSEG
+
+	.SEGMENT "STARTUP"
+
+	.GSTR STR?59,"Z O R K   Z E R O"
+	.GSTR STR?60,"The Revenge of Megaboz"
+	.GSTR STR?61,"designed and written by"
+	.GSTR STR?62,"Steve Meretzky"
+	.GSTR STR?63,"based on a concept by"
+	.GSTR STR?64,"Tim Anderson"
+	.GSTR STR?65,"Marc Blank"
+	.GSTR STR?66,"Dave Lebling"
+	.GSTR STR?67,"original graphics designed for the Amiga by"
+	.GSTR STR?68,"James Shook"
+	.GSTR STR?69,"graphical translations"
+	.GSTR STR?70,"Tanya Allan"
+	.GSTR STR?71,"Andy Briggs"
+	.GSTR STR?72,"Denise Audette"
+	.GSTR STR?73,"Joy Pulver"
+	.GSTR STR?74,"Charlie Voner"
+	.GSTR STR?75,"design and implementation of InfoParser Mark Two"
+	.GSTR STR?76,"Stu Galley"
+	.GSTR STR?77,"design and implementation of XZIP development system"
+	.GSTR STR?78,"interpreter implementation"
+	.GSTR STR?79,"Macintosh:  Duncan Blanchard"
+	.GSTR STR?80,"Apple II:  Jon Arnold"
+	.GSTR STR?81,"IBM: Scott Fray"
+	.GSTR STR?82,"Amiga: Clarence Din"
+	.GSTR STR?83,"testing"
+	.GSTR STR?84,"Kurt Boutin"
+	.GSTR STR?85,"Gary Brennan"
+	.GSTR STR?86,"Amy Briggs"
+	.GSTR STR?87,"Liz Cyr-Jones"
+	.GSTR STR?88,"Craig Fields"
+	.GSTR STR?89,"Jacob Galley"
+	.GSTR STR?90,"Adam Glass"
+	.GSTR STR?91,"Tyler Gore"
+	.GSTR STR?92,"Matt Hillman"
+	.GSTR STR?93,"Shaun Kelly"
+	.GSTR STR?94,"Adam Levesque"
+	.GSTR STR?95,"Patti Pizer"
+	.GSTR STR?96,"Joe Prosser"
+	.GSTR STR?97,"Steve Watkins"
+	.GSTR STR?98,"package design"
+	.GSTR STR?99,"Carl Genatassio"
+	.GSTR STR?100,"Elizabeth Langosy"
+	.GSTR STR?101,"calendar design"
+	.GSTR STR?102,"calendar art"
+	.GSTR STR?103,"Ed Parker"
+	.GSTR STR?285,"The wizard casually dispatches you with a shaft of fire, much as you might casually dispatch a mosquito that was bothering you."
+	.SEGMENT "CASTLE"
+
+	.SEGMENT "FENSHIRE"
+
+	.SEGMENT "ORACLE"
+
+	.GSTR STR?261,"dive under the table"
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+	.SEGMENT "STARTUP"
+
+	.GSTR STR?286,"Megaboz was a mysterious wizard who lived a hermit's life in the Fublio Valley. Some say he cast a Curse which will someday destroy the Empire, but royal spokesmen have denied all such rumors. Megaboz vanished in 789 GUE; it is said that the effort of casting the Curse destroyed him."
+MEGABOZ-TEXT=STR?286
+	.SEGMENT "FENSHIRE"
+
+	.SEGMENT "ORACLE"
+
+	.GSTR STR?265,"""Servant! You're supposed to be waiting on guests! This is uncalled for... unheard of... unforgivable!"" Your execution is quick but painful."
+	.GSTR STR?257,"go west"
+	.GSTR STR?254,"wait"
+	.GSTR STR?255,"go northeast"
+	.GSTR STR?259,"enter the banquet hall"
+	.GSTR STR?266,"The napkin is embroidered with a large, flowery ""F."""
+	.GSTR STR?264,", including you. I guess those people who dove under tables knew what they were doing."
+	.GSTR STR?253,"Every keg has been removed, and the floor is mottled with purple stains. Stone stairs lead upward, and the cellar continues to the south."
+	.GSTR STR?260,"examine the gaunt man"
+	.GSTR STR?258,"walk east"
+	.GSTR STR?256,"walk south"
+	.GSTR STR?262,"pick up the scrap of parchment"
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?193,"""The grue was once a sinister, lurking presence in the dark places of the earth. Its favorite diet was adventurers, but its insatiable appetite was tempered by its fear of light. No grue was ever seen by the light of day, and few ever survived its fearsome jaws to tell the tale.""
+   The encyclopedia goes on to say, ""Grues were eradicated from the face of the world during the time of Entharion, many by his own hand and his legendary blade Grueslayer. Although it has now been many a century since the last grue sighting, old hags still delight in scaring children by telling them that grues still lurk in the bottomless pits of the Empire, and will one day lurk forth again."""
+	.GSTR STR?203,"Son of a gun! There's no entry about you! This is one worthless encyclopedia, huh? Why, you're about as famous as they come! At least a third of the people in your village have heard of you, for instance..."
+	.GSTR STR?251,"This is where food is stored. A stair leads up, and another part of the cellar lies to the north."
+	.GSTR STR?287,"This is the huge central chamber of Dimwit's castle. The ceiling was lowered at some point in the past, which helped reduce the frequency of storm clouds forming in the upper regions of the hall. Arched openings lead off in the four cardinal directions. A wide stair leads up to the balcony, and an equally wide but ominously dark stair leads downward."
+	.GSTR STR?288,"A calendar for 883 GUE is lying here."
+	.GSTR STR?289,"[This is the ""Lives of the Twelve Flatheads Calendar"" which you can find in your Zork Zero package.]"
+	.GSTR STR?290,"A proclamation hangs on the wall."
+	.GSTR STR?291,"""The one who can stop the Curse of Megaboz, and save the land from destruction, shall be rewarded with half the wealth of the Empire.
+   (signed) Wurb Flathead
+            King of Quendor
+	    Protector of the Empire
+            Ruler of all the Known Lands"""
+	.GSTR STR?292,"The closed portcullis covers the doorway."
+	.GSTR STR?293,"Some say I fly, but I'm not a bird; I'm often wasted, or so I've heard. Though I go on endlessly, there's never enough of me! What am I?"""
+	.GSTR STR?300,"This is where many of Dimwit's guests would come and sit after dinner, for wine, conversation, and any other whim that might pop into Dimwit's head. There are doorways to the east, west and south."
+	.GSTR STR?301,"""A deep-rooting underwater plant. Once established, it can usually only be removed by using certain spells of wilting. The misconception that spenseweed is a common roadside weed has been perpetuated by grossly inaccurate entries in the last several editions of THE LORE AND LEGENDS OF QUENDOR."""
+	.GSTR STR?308,"This is a small room for the storage of torches. The torches kept here are generally short-lived, for the purpose of brief forays into the darker regions of the castle. To the east is the lone exit."
+	.GSTR STR?326,"Dimwit designed this garden to match a fairy tale he enjoyed as a child, and subsequent kings added their own touches, creating a hugely confusing maze of flowers and shrubbery and statuary and trees and fountains and pools and bridges and gazebos. Now somewhat overgrown, the garden is seemingly endless, but you recall that the primary exits lie to the north, east, and southwest."
+	.GSTR STR?340,"You stand atop the main building of the castle. A tall tower is visible to the south, but can't be reached from here. The only exit is down a ladder."
+	.GSTR STR?341,"This is a tremendous meeting room where thousands of visitors would queue up every day for an audience with Dimwit or one of his successors. Such visitors were usually wasting their time; Dimwit rarely had the patience to see even one person a day. A plush red carpet leads from the main doorway on the north wall to the golden throne, fringed with red tassels, which towers above the floor. Behind the throne, a smaller doorway leads south."
+	.GSTR STR?342,"An overdone sceptre, ornamented with colored enamel and tapering to a sharp point, is lying by the throne."
+	.GSTR STR?371,"""Peggleboz, a popular game of jumping pegs, is named after its creator, Gustav Peggleboz (399 - 456 GUE)."""
+	.GSTR STR?372,"""Rules for PEGGLEBOZ:
+1. Pegs can only move by jumping another peg.
+2. Pegs can only jump one peg per move.
+3. Pegs jumped are removed.
+4. Your goal is to end up with one peg in the starting hole.
+5. To begin, simply type PLAY PEGGLEBOZ!"""
+	.GSTR STR?373,"This is a plushly carpeted room draped in deeply hued velvets and satins. The sole exit is south."
+	.GSTR STR?374,"Dimwit despised all forms of exercise; this room must have been a later addition by one of his successors. Doorways lead north and southwest."
+	.GSTR STR?376,"For generations, the Kings of Quendor have come here to sweat off excess pounds (which, given their excessive infatuation with chocolate truffles, was plenty often). The only exit is northeast."
+	.GSTR STR?377,"This wide corridor runs the length of the east wing of the castle. The corridor ends at a large door to the west. There are openings to the north, south and east."
+	.GSTR STR?378,"This is where visitors to the castle would stay. Many stayed for decades. Passages lead east and west."
+	.GSTR STR?384,"These are the spartan rooms where the servants lived (if you can actually call this ""living""). A passage leads west and a narrow stair spirals upward."
+	.GSTR STR?385,"None of the Flatheads were particularly religious, but that didn't stop Dimwit from building the biggest chapel in all of Quendor. The exit is north, at the rear of the chapel. Just below the altar is a small trap door."
+	.GSTR STR?788,"The encyclopedia scoffs at this silly little legend about an oracle which offered bits of wisdom and could transport believers to distant regions."
+	.GSTR STR?929,"The denomination of the bill is 100,000 zorkmids. Only one such bill was ever printed, and that was at the personal request of J. Pierpont Flathead."
+	.GSTR STR?930,"The Tower of Bozbar, an ancient game of unknown origin, consists of three pegs and a pile of weights. The goal is to move the pile from one peg to another, moving one weight at a time, with the constraint that no weight can ever be placed atop a smaller weight. Many people say that the Tower of Bozbar is a superb method of mental relaxation. [Obviously, none of these people have ever played Zork Zero.]"
+	.GSTR STR?934,"The manuscript is entitled ""On the Discoloration of Roadside Slush."" You try reading it, but keep dozing off on the third or fourth word."
+	.GSTR STR?935,"""Potions are the most accessible form of magic for the masses, since they are simply drunk like water. No lessons in complicated spell-casting are required."""
+	.SEGMENT "ORACLE"
+
+	.GSTR STR?800,"In the bony hand of one of the skeletons, locked in its death grip, is a stunningly beautiful sapphire."
+	.GSTR STR?504,"""Entharion the Wise united the warring city-states of Galepath and Mareilon, forming the kingdom of Quendor. As Quendor's first king, Entharion built the castle Largoneth, and ruled over a kingdom which was little more than what is currently the province of Frobozz. Our current calendar dates from the first year of Entharion's reign."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?335,"In the shadow of one of the shelves is a key-shaped button, which is blinking rhythmically."
+	.GSTR STR?282,"boiling with amazing energy, sending steaming geysers shooting up into the roiling black clouds which swirl around it"
+	.GSTR STR?281,"boiling violently beneath a gathering storm of noisome smoke"
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?483,"""Fenshire is a swampy region which stretches east of the Flathead Mountains to the edge of the world. The summer castle of the Flatheads is located in a remote section of Fenshire."""
+	.GSTR STR?445,"""Fisha is a small wand producer in Foozle, specializing in Wands of Inanimation. Their wands tend to have a very limited life."""
+	.GSTR STR?444,"""Snarfem, a two-player game of removing pebbles, originated in Mithicus and comes from an ancient Mithican word meaning 'to collect pebbles or small stones.'"""
+	.GSTR STR?490,"""Borphee, a large industrial city in the westlands, is the capital of the Greater Borphee province."""
+	.GSTR STR?517,"[Please see ""The Lives of the Twelve Flatheads Calendar"" that came in your Zork Zero package.]"
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?333,"You are in some sort of storage closet, which opens to the north. A ladder leads upward."
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?511,"A tiny entry mentions that Belboz is the name of a young enchanter in the Accardi chapter of the Enchanter's Guild."
+	.GSTR STR?491,"""A crackpot religious sect; its followers believe that the Curse of Megaboz can be forestalled by executing every person in the Empire."""
+	.GSTR STR?484,"""An ancient game of warfare, playing on a checkered field of 64 squares."""
+	.GSTR STR?478,"""A creature, possibly mythical, said to live in the extreme northlands of Quendor."""
+	.GSTR STR?473,"""An architect known for his underground condominium complexes, Pickthorn is an avid enthusiast of jousting, chess, and tiddlywinks, and has been known to incorporate some or all of these themes into his designs."""
+	.GSTR STR?457,"""An irrestibly cuddly animal."""
+	.GSTR STR?452,"""Curse Day is the anniversary of the death of Lord Dimwit Flathead the Excessive. Some aver that, on that day in 779 GUE, a great wizard cast a mighty Curse, and that on the 94th anniversary of that day the Empire will collapse. Historians today dismiss this as a silly schoolyard legend."""
+	.GSTR STR?442,"""A bottom-dwelling aquatic creature."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?271,"barely bubbling"
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?469,"""Greatest of the modern philosophers, Zorbius Blattus is a popular debunker of Brogmoidism and other strange religious sects."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?270,"key-shaped button"
+	.GSTR STR?334,"blinking key-shaped button"
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?447,"""One of the kings of the Flathead Dynasty."""
+	.GSTR STR?446,"""One of the kings of the Entharion Dynasty."""
+	.GSTR STR?506,"""Antharia, the island province, is located in the middle of the Flathead Ocean. It is known for its shipbuilding, marble cutting, and granola mining industries, and is the home of Flathead Stadium. The capital is Anthar."""
+	.GSTR STR?505,"""Galepath and Mareilon were the two ancient cities of Quendor, which were united by Entharion the Wise in the distant past. Mareilon was destroyed in 773 GUE by the Endless Fire."""
+	.GSTR STR?464,"""Once a richly verdant area at the southern tip of the Flathead Mountains, the valley was defoliated in the late eighth century. For some odd reason, it has always been a favorite spot for wizards who enjoy a hermitic lifestyle."""
+	.GSTR STR?521,"The Four Fantastic Flies of Famathria, each bigger and more succulent than the last, is a legend fabricated by a race of toad creatures who once lived somewhere beyond the oceans of the world. Seafarers report that these toads were ugly, cantankerous, and eternally hungry."
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?278,"violently churning and emitting huge puffs of dark smoke"
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?460,"There's no entry for ""Zork."" Not surprising. This is just the prequel; it hasn't been written yet!"
+	.GSTR STR?515,"""See FLATHEAD OCEAN."""
+	.GSTR STR?513,"""See GREAT UNDERGROUND EMPIRE."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?280,"churning and roiling beneath a whirlpool of thick black smoke"
+	.GSTR STR?279,"churning very violently and giving off clouds of black smoke"
+	.GSTR STR?277,"churning actively and emitting large puffs of smoke"
+	.GSTR STR?331,"Twelve large paintings cover the walls of this long, tall room. The main exit is north, but there's also a small opening to the south."
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?482,"""Frobesius Fublius was a painter who specialized in rebuses. A mysterious figure, he reputedly lived near the Zorbel Pass and vanished toward the end of the eighth century."""
+	.GSTR STR?455,"""Froblo Park was Thomas Alva Edison's laboratory."""
+	.GSTR STR?440,"""FrobozzCo International is a vast conglomerate of thousands upon thousands of companies. It can trace its origin to the Frobozz Magic Cave Company, which was formed at the behest of King Duncanthraz in 668 GUE. Headquartered in the 400-story FrobozzCo Building in Flatheadia, FrobozzCo's corporate motto is 'You name it, we do it!'"""
+	.GSTR STR?439,"""Nice try, but no help here! (signed) The Jester."""
+	.GSTR STR?512,"""This wide pass through the Flathead Mountains, at the southern end of the range, connects the Fublio and Frigid River valleys. The Zorbel Pass was the site of the Diablo Massacre in 666 GUE."""
+	.GSTR STR?500,"""This small, mountainous province, sandwiched between Gurth and Miznia, is a popular vacation spot."""
+	.GSTR STR?498,"""This province, which lies to the north of Miznia and Mithicus, is chiefly woods and farmland. The Fields of Frotzen, in central Gurth, are known as the Breadbasket of Quendor. The capital of the province is Gurth City."""
+	.GSTR STR?451,"""A Mithican chameleon skin's is said to be able to imitate any color the eye can see... and more."""
+	.GSTR STR?479,"""Duncanthrax the Bellicose, the first king of the Flathead Dynasty, took the throne from Zilbo III during a palace revolt on the last day of 659 GUE. Duncanthrax expanded the kingdom by conquering Antharia and most of the eastlands. He also moved the capital from Largoneth to Egreth."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?283,"almost lost amongst the clouds of dark power and energy which surround the kettle, glowing and expanding from explosions deep within"
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?801,"""The legend of the accursed Jewel of Jerrimore can trace its origins to the third century B.E. in the northlands of Frobozz. This jewel, which in most versions of the legend is a star sapphire, is said to have been cursed by the Mage of Jerrimore as he lay upon his deathbed.
+   As he sickened, this powerful but twisted wizard became convinced that his enemies had poisoned him to gain possession of his greatest treasure, the Jewel of Jerrimore. With his dying breath, he loosed a great and evil curse upon the Jewel and all who would possess it.
+   After the Mage's death, each of his heirs took possession of the jewel; each held it jealously, mistrusting any who might look upon it; each became obsessed with the greed and treachery they perceived around them; and each came to early and horrible deaths. Thus grew the legend of the cursed Jewel.
+   Although the legends vary, all versions say that the Jewel travelled through many lands, always leaving a wake of misery and death, and finally became lost in a forgotten iron mine."""
+	.GSTR STR?514,"""The kingdom of Quendor was renamed the Great Underground Empire by Lord Dimwit Flathead when he became ruler in 770 GUE. It encompasses all the lands on both sides of the Great Sea, although most of the underground portions of the empire are in the eastlands."""
+	.GSTR STR?508,"""The granola mines in northern Antharia once supplied seemingly limitless quantities of granola. Since the Granola Riots of 865 GUE, the causes of which are well known, the output of the mines has fallen sharply."""
+	.GSTR STR?507,"""The capital of Antharia."""
+	.GSTR STR?503,"""The strange wandering village of Thriff has, at one time or another, been located in most of the provinces of the westlands. Rumor has it that the Guildmaster of Thriff's enchanters constantly moves the town in an attempt to find a more benevolent climate for his terrible hayfever."""
+	.GSTR STR?501,"""The Fields of Frotzen, fertile farmland in the heart of Gurth province, produces an annual bounty of grain and are freqently referred to as the Breadbasket of Quendor."""
+	.GSTR STR?497,"""The capital and largest city in Miznia."""
+	.GSTR STR?495,"""The Veritassi, who dwell near Port Foozle, have two interesting quirks: They never lie, and they feed unwelcome visitors to ravenous hellhounds."""
+	.GSTR STR?494,"""The Prevaricons, who dwell near Port Foozle, have two interesting quirks: They always lie, and they feed unwelcome visitors to ravenous hellhounds."""
+	.GSTR STR?493,"""The Wishyfoo, who live in the vicinity of Port Foozle, alternately tell the truth and tell a lie with every successive statement they make. Sometimes they start with a lie, sometimes with a truth, but they always alternate thereafter."""
+	.GSTR STR?488,"""The Battle of Ragweed Gulch, fought in 789 GUE, is most notable for the death of Stonewall Flathead."""
+	.GSTR STR?487,"""The Zucchini Wars, which devastated seven provinces during the fifth century, were finally ended by the Treaty of Znurg."""
+	.GSTR STR?486,"""The Treaty of Znurg, signed in 474 GUE, ended the Zucchini Wars."""
+	.GSTR STR?481,"""The Castle Largoneth was built by Entharion the Wise back in the misty times at the dawn of the empire. It served as the capital of the kingdom until Duncanthrax constructed Egreth in 660 GUE. Largoneth still stands, lonely and deserted, on the coast of Frobozz."""
+	.GSTR STR?480,"""The Castle Egreth served as the seat of royal power from the reign of Duncanthrax (who moved the capital from Largoneth in 660 GUE) through the reign of Dimwit (who moved the capital to Flatheadia in 771 GUE). Egreth was, and still is, reputed to be the most dangerous locale in the kingdom."""
+	.GSTR STR?477,"""The Frigid River Valley, a province of the Great Underground Empire, encompasses the 15,322 square bloits which form the runoff basin of the Frigid River."""
+	.GSTR STR?471,"""The Royal Museum, built by Lord Dimwit Flathead in 777 GUE, houses the crown jewels, a technology display, and a famous royal puzzle-maze."""
+	.GSTR STR?470,"""The Shadowland (a.k.a. the Land of Shadow) is a barren area of rolling hills, south of Flatheadia and deep underground. It lies near the point where the Flathead Ocean's eastern shore dips underground."""
+	.GSTR STR?468,"""The Diablo Massacre occured at the Zorbel Pass in 666 GUE when the invading armies of King Duncanthrax met a native militia of trollish warriors. The invaders were outnumbered but well-armed; the natives were equipped only with wooden clubs and a large piece of very strong garlic. Military historians consider the routing of the native militia as a key moment in the conquering of the eastlands."""
+	.GSTR STR?463,"""The bloit is the Empire's most common unit for measuring distances. The bloit is defined as the distance the king's favorite pet runs in an hour. As the discerning reader can tell from this definition, the length of the bloit changes dramatically from ruler to ruler. (Rarely more dramatically than in 619 GUE, when Bozbo IV -- who adored his windcat -- died, and was succeeded by Mumbo II -- who was equally enamored of his very, very ancient turtle). Land is usually measured in square bloits."""
+	.GSTR STR?459,"""The Endless Fire destroyed Mareilon in 773 GUE."""
+	.GSTR STR?458,"""The fleetest land animal."""
+	.GSTR STR?456,"""The official biographer of the Flatheads, Boswell Barwell is the author of such notable works as THE LIVES OF THE TWELVE FLATHEADS and MUMBERTHRAX: THE MAN BEHIND THE LEGEND."""
+	.GSTR STR?454,"""The Enchanter's Guild has several thousand members scattered in chapters throughout the land. Amongst the more influential chapters are the ones located in Thriff and Accardi."""
+	.GSTR STR?453,"""The Zorkmid is the unit of currency of the Great Underground Empire."""
+	.GSTR STR?450,"""The westlands comprise those provinces which lie on the western shore of the Great Sea, such as Borphee, Gurth and Frobozz."""
+	.GSTR STR?449,"""The eastlands comprise those provinces which lie on the eastern shore of the Great Sea, such as Flatheadia and the Fublio Valley."""
+	.GSTR STR?441,"""The Great Underground Highway is a system of toll roads stretching thoughout both the eastland and westland provinces."""
+	.GSTR STR?485,"According to this article, Megaboz was a mysterious wizard who lived a hermit's life in the Fublio Valley. It is said he cast a Curse which will someday bring down the Empire, but royal spokesmen have denied all such rumors. Megaboz vanished in 789 GUE; some say the effort of casting the Curse destroyed him."
+	.GSTR STR?509,"The entry calls Flathead Stadium ""The House that Babe Built,"" a tribute to Babe Flathead's popularity as a gate attraction. Located just outside Anthar, the stadium was supposedly large enough to hold every man, woman, and child in Quendor."
+	.GSTR STR?476,"The entry simply reads, ""There are some things that man was not meant to know."""
+	.GSTR STR?467,"The entry describes Flood Control Dam #3 as a great engineering feat of the late 8th century, made possible by a grant of 37 million zorkmids from Dimwit Flathead the Excessive. The dam forms a huge reservoir, and its spillover is the source of the Frigid River. The article goes into construction techniques, the dam's appeal as a tourist attraction, and the financial impact of the dam's cost on the economy of the GUE."
+	.GSTR STR?466,"""A very obscure hermit enchanter."""
+	.GSTR STR?510,"""Foozle, which lies several bloits west of Flatheadia, is the primary seaport of the Frigid River Valley, and is a common departure point for ships to Antharia."""
+	.GSTR STR?499,"""Gurth City is the capital of Gurth province."""
+	.GSTR STR?474,"""Foobia is the tallest peak in the Flathead Mountains, perhaps in the entire world. It lies toward the southern end of the range, near the Zorbel Pass, and its apex is always hidden by clouds. It is believed that no one has ever scaled this mighty peak."""
+	.GSTR STR?522,"This is one of the oldest and dearest legends in the annals of Quendor. Zilbeetha, a beautiful maiden, somehow angered an evil mage, and was placed under enchantment and turned into a crystal orb on the very day that she was to be wed. The heartbroken groom, who is always depicted holding a fragile bloom, sought help from the wizard's goodly twin. The good wizard turned the groom to stone, that he might stay young until the day Zilbeetha was returned to him. The legend also has an ominous note; returning a false orb would result in death."
+	.GSTR STR?520,"The cover reads ""Encyclopedia Frobozzica, Illustrated Edition. Copyright 882 GUE. A publication of the Frobozz Magic Encyclopedia Company."" It would take weeks to read the entire encyclopedia, but you could read about specific persons or things."
+	.GSTR STR?438,"This dust-filled chamber once contained copies of every book ever written, but all of them have been taken by the fleeing populace as reading material for their long journeys to safe havens. The only exit is south."
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?330,"This wide balcony, itself larger than most castles, overlooks the Great Hall. Banners and pennants are draped from the railing into the hall below, which can be reached via the wide stair. A passage leads off to the south."
+	.GSTR STR?276,"bubbling, churning, and smoking heavily"
+	.GSTR STR?275,"bubbling and churning"
+	.GSTR STR?274,"bubbling very actively"
+	.GSTR STR?273,"bubbling actively"
+	.GSTR STR?272,"bubbling quietly"
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?524,"Flatheadia has been the capital of the Great Underground Empire since Dimwit built his castle there in 770 GUE. (The former seat of royal government was Egreth, in the Westlands.) Although still the largest population center in the Eastlands, Flatheadia has been in a steady decline since a Curse cast by Megaboz toward the end of the last century."
+	.GSTR STR?502,"""A small village in Antharia."""
+	.GSTR STR?492,"""A small village in the westlands."""
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+	.SEGMENT "FENSHIRE"
+
+	.SEGMENT "LAKE"
+
+	.SEGMENT "LOWER"
+
+	.SEGMENT "SECRET"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?250,"Flatheadia"
+	.ENDSEG
+
+	.SEGMENT "CASTLE"
+
+	.SEGMENT "ORACLE"
+
+	.GSTR STR?516,"The article calls Aragain Falls the most breathtaking and awesome waterfall in all the known lands. Found toward the northern part of the Frigid River, the falls are a popular honeymoon spot."
+	.GSTR STR?489,"""A respected member of the Enchanters Guild."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?332,"""A rebus is an illustration whose component pictures spell out a word or words, usually through the addition and subtraction of sounds or letters. The most famous creator of rebuses was Frobesius Fublius."""
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?519,"A copy of the Encyclopedia Frobozzica is the only book still left in the Library, probably because it's so huge that it can't be moved except by a team of mules."
+	.GSTR STR?518,"""A popular lunchtime meal in the province of Fenshire, Borphbelly Stew is made from fox, fowl, and earthworm. Proper preparation mandates the simultaneous addition of the ingredients to a boiling cookpot."""
+BORPHBELLY-TEXT=STR?518
+	.GSTR STR?496,"""A province at the southern fringe of the westlands, mostly jungle. Its capital is Mizniaport."""
+	.GSTR STR?472,"""Rockville Estates is an upscale housing complex being planned by the Frobozz Magic Construction Company for a piece of prime cavern space on the Great Underground Highway near Flatheadia. It was designed by the renowned architect, Zylo Pickthorn."""
+	.SEGMENT "LAKE"
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?284,"strikes your head with unnatural force, sending you to an unnatural death."
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "CASTLE"
+
+	.GSTR STR?462,"""Along with Borphee, Pheebor was one of the great city-states that lay at the convergence of the Bor River and the Phee River. Borphee defeated Pheebor in a massive battle that took place long before the age of Entharion."""
+	.GSTR STR?443,"""When you spot a hellhound, run in the other direction as fast as you can! Hellhounds are fast, fierce, and capable of devouring a human twelve times their size in three-and-a-half seconds. They normally inhabit burnt-out or enchanted woods and rarely venture beyond their turf, even in pursuit of prey."""
+	.GSTR STR?475,"""A mysterious mage who is said to live in the lands beyond the borders of the world."""
+	.GSTR STR?465,"""A moderately famous hermit enchanter."""
+	.GSTR STR?461,"""Davmar was the great Thaumaturgist who discovered that the power of magic spells could be stored on paper scrolls."""
+	.GSTR STR?448,"""A month of the year."""
+	.GSTR STR?523,"Brogmoidists, followers of the tenets of Brogmoidism, believe that a Great Brogmoid supports the world upon his shoulders. The religion, which originated sometime during the fourth century, is commonly ridiculed nowadays, and has lost most of its adherents."
+	.ENDSEG
+
+	.SEGMENT "FENSHIRE"
+
+	.GSTR STR?902,"There is a soldier on horseback here. His armor is made of the dullest metals, and his steed is darker than the night."
+	.GSTR STR?903,"There is a soldier on horseback here. His armor is made of the shiniest metals, and his steed is lighter than drifted snow."
+	.GSTR STR?904,"You spot a solitary, bored-looking foot soldier. His face is smudged with coal dust, his uniform is sewn from deeply dyed wool, and the handle of his sword is solid obsidian."
+	.GSTR STR?905,"A regal woman proudly surveys the landscape in all directions. Her skin is dark; her royal garments even darker."
+	.GSTR STR?906,"Nearby rises a small tower keep, made of creamy marble. Between the crenellations of the parapet you spot a man, dressed in an ivory chain mail and carrying a crossbow made of birch."
+	.GSTR STR?907,"You hear a sing-song prayer chant and turn to see a high priest of some sort. His tall, ebony headpiece bears a religious cipher, and his vestments seem to soak up all light."
+	.GSTR STR?908,"You spot a solitary, bored-looking foot soldier. His face is smudged with flour, his uniform is sewn from pure undyed cotton, and the handle of his sword is solid quartz."
+	.GSTR STR?909,"A regal woman proudly surveys the landscape in all directions. Her royal garments are as white as her pale complexion."
+	.GSTR STR?910,"A tall man wearing princely robes stands nearby. His bearing indicates that this is a man accustomed to command. His linen robes are trimmed with ermine, and his crown is studded with diamonds and opals."
+	.GSTR STR?911,"A tall man wearing princely robes stands nearby. His bearing indicates that this is a man accustomed to command. His velvet robes are trimmed with mink, and his crown is studded with polished onyx."
+	.GSTR STR?936,"Even after becoming accustomed to the oversized scale of the castle, this hangar seems tremendous. The only exit on foot is to the east."
+	.GSTR STR?937,"A tremendous dirigible is moored here. The gondola is just a few inches off the ground."
+	.GSTR STR?938,"The controls consist of merely two buttons: the left button is marked ""Flatheadia"" and the right button is marked ""Fenshire."""
+GONDOLA-CONTROLS-DESC=STR?938
+	.GSTR STR?939,"In the Air"
+	.GSTR STR?940,"The experience is exhilarating, but you don't have much time to enjoy it. Not as much time as you would've had if, for instance, you'd worn a parachute."
+	.GSTR STR?941,"It is now passing over a thickly tangled woods, stretching for miles in every direction."
+	.GSTR STR?942,"You are now above the Frigid River. Cliffs crowd the river on both sides. To the south, you can just make out the spray of Aragain Falls."
+	.GSTR STR?943,"The dirigible rises even higher as it crosses the Flathead Mountains. Jagged, snow-topped peaks slide by below."
+	.GSTR STR?944,"Below you are vast square bloits of dismal swampland: the endless marshes of Fenshire."
+	.GSTR STR?945,"This hangar, though still large, is smaller than the one in Flatheadia. The only exit is south."
+	.GSTR STR?946,"The summer palace of the Kings of Quendor now lies in ruins, unoccupied and uncared for, forgotten for many years. What's left of the castle can be entered to the east, and a hangar lies to the north."
+	.GSTR STR?947,"That archway has crumbled!"
+	.GSTR STR?948,"The stairs have crumbled beyond use."
+	.GSTR STR?949,"clear out all the rubble"
+	.GSTR STR?950,"You are the first person to breathe the air of this room in uncounted years. The only exit is west."
+	.GSTR STR?951,"This room was probably intended as a hiding place for the royal family in the event of a revolution, and may have once been well-stocked with supplies. Now, however, the only item here is a small stepladder."
+	.GSTR STR?952,"The archway has collapsed; that way is now impassable."
+	.GSTR STR?953,"Maybe the jester likes the ambience here, but to you it just looks like a slightly drier spot amidst a reedy marsh. The reeds are impassably thick in every direction, except to the south where a series of stepping stones offers a way to cross a malodorous patch of quicksand."
+	.SEGMENT "FOOZLE"
+
+	.SEGMENT "LAKE"
+
+	.SEGMENT "LOWER"
+
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "SECRET"
+
+	.GSTR STR?410,"Region:  Unknown"
+	.ENDSEG
+
+	.SEGMENT "FENSHIRE"
+
+	.SEGMENT "HINTS"
+
+	.GSTR STR?954,"This enclosed arboretum must have been a breathtaking room at one time. Now, much of the glass is broken and the foliage has run wild, nearly obscuring the exit to the north. Despite the broken glass, it's stiflingly hot in here."
+	.GSTR STR?955,"Snarfem"
+	.ENDSEG
+
+	.SEGMENT "LOWER"
+
+	.GSTR STR?386,"This large hall, barely illuminated by your light, has seen its better days; based on the dust and debris, the lower levels of the castle probably haven't been maintained since Dimwit's death. Stairs lead up and down; the latter stair looks particularly forbidding. Passages head off to the north, south, southeast, and southwest."
+	.GSTR STR?387,"You have entered the lab that was affectionately known as Froblo Park. The main exit is south, but there's a narrow doorway on the north wall."
+	.GSTR STR?388,"Sitting on the lab bench is an old screwdriver."
+	.GSTR STR?389,"This is where certain dangerous experiments would take place. There are two large booths, one on the left side of the room, the other on the right side. The only exit is south."
+	.GSTR STR?390,". The rooster happily nibbles you up for a snack."
+	.GSTR STR?391,". The fox is only too glad to make you its dinner."
+	.GSTR STR?392,"This was once where the royal bloodhounds lived. Considering the size of the leash and collar fragments scattered around, the royal bloodhounds were BIG. Passages lead east and north."
+	.GSTR STR?394,"Dimwit loved zoos, because he loved imprisonment of any kind -- if the dungeons were full of prisoners he could at least get some joy from throwing a couple of minxes behind bars. This zoo, with 69,105 cages, is easily the largest in Quendor. There are passages to the west and northwest, and a wide tunnel leads east."
+	.GSTR STR?395,"The zoo has been extensively looted; only one of the many nearby cages still seems to be occupied."
+	.GSTR STR?396,"As you open the door, the snake, with blurring speed, strikes at your hand. Tendrils of poison reach through your veins and grab your heart..."
+	.GSTR STR?400,"You get the feeling that no ray of light has touched these walls in ages. Few have even ventured down here since the Curse was laid upon the castle those many years ago. A decrepit stair leads upward, and there's an opening to the north. The bottom of a steep, gravelly passage is visible to the east. To the south is the most massively reinforced door you've ever seen. A rickety ladder can take you down to even lower domains."
+	.GSTR STR?401,"You can't get a footing on the steep, gravelly passage."
+	.GSTR STR?402,"close"
+	.GSTR STR?403,"This was just the vault where Dimwit stored his trifles; his valuables were stored in a hidden vault buried seven miles under the Flathead Mountains, accessible only by a chain of sixty-three secret teleportation spells. The only exit is north."
+	.GSTR STR?404,"The certificate reads ""FrobozzCo International -- 923,130,877 shares."""
+	.GSTR STR?405,"This is a tremendous warehouse where passageways and tunnels would be stored before being installed as part of the Great Underground Empire. The only exit is south."
+	.GSTR STR?407,"As you plunge down the bottomless pit, you smash against the irregular walls. The result isn't...shall we say...pretty."
+	.GSTR STR?616,"This is the northern terminus of one of the branches of the Great Underground Highway system, one of the ambitious construction projects conceived by King Duncanthrax and executed by the Frobozz Magic Cave Company. A tunnel leads northeast."
+	.GSTR STR?617,"A wide underground road runs north and south. There's an eye-catching sign next to a tunnel leading west."
+	.GSTR STR?914,"This is a temporary headquarters for a construction site to the west. Another exit leads east."
+	.GSTR STR?915,"[This is the blueprint from your ZORK ZERO package.]"
+	.SEGMENT "ORACLE"
+
+	.SEGMENT "SECRET"
+
+	.GSTR STR?428,"Myron"
+	.GSTR STR?419,"You are clutching some hardy tree roots, between a seemingly infinite plane of earth above you, and a seemingly infinite haze below. To the east, a tiny black spot indicates the opening of a well leading upward. To the west, part of the shoulder, neck, and ear of an incredibly gigantic brogmoid fills your view."
+	.GSTR STR?414,"You are in a cramped cave with disgustingly sticky walls which press in against you. The cave drops sharply to the northeast, and rises sharply to the southwest."
+	.GSTR STR?434,"Omar"
+	.GSTR STR?427,"Sammy"
+	.GSTR STR?429,"Boris"
+	.GSTR STR?424,"Seymour"
+	.GSTR STR?420,"The world is in the way."
+	.GSTR STR?418,"The well opens into a vast nothingness. You grab at a few protruding roots, but being currently equipped with paws instead of hands, you fail. You plunge into an abyss."
+	.GSTR STR?412,"A narrow, slimy cave connects here with the bottomless pit, leading roughly northeast. The handholds in the rock walls of the pit, which have been fairly dependable down to here, seem to peter out just below you."
+	.GSTR STR?417,"There's nothing there -- literally."
+	.GSTR STR?413,"There are no more handholds!"
+	.GSTR STR?426,"Irving"
+	.GSTR STR?437,"The membrane of the eardrum is tougher than most walls."
+	.GSTR STR?422,"The mound of ear fungus blocks entry into the ear."
+	.GSTR STR?435,"Barnaby"
+	.GSTR STR?433,"Ricardo"
+	.GSTR STR?416,"This is surely the most incredible sight that any pair of eyes has ever gazed upon: You have reached the underside of the world, which hangs above you, an enormous slab of dirt and rock which stretches as far as you can see in all directions! A glowing white haze stretches below you.
+   To the west, you can see the head and shoulders of a muscular brogmoid; the rest of his body seems to be lost in the haze. As your mind adjusts to the scale of this place, you realize that the brogmoid is tremendous beyond description, and that he is holding the world upon his shoulder and upper back.
+   Thanks to some hardy roots which hang below the world, it looks like you could swing over to the shoulder of the brogmoid. Above you, a hole leads up into the world."
+	.GSTR STR?415,"The cave ends here at the opening of a natural well. The walls of the well look irregular enough to climb down. The sensation of being deep within the bowels of the earth is overpowering here; you feel as though you are farther down than anyone has ever been before."
+	.GSTR STR?411,"This is a wide, irregular ledge, far below the lip of the pit. The ledge is strewn with the bones of creatures (including a few luckless humans) who fell into the pit and landed here, to be devoured by grues. Rough handholds, possibly natural, lead upward and downward."
+	.GSTR STR?430,"Melvin"
+	.GSTR STR?431,"Lester"
+	.GSTR STR?432,"Julius"
+	.GSTR STR?425,"Sherman"
+	.GSTR STR?436,"You have reached the brogmoid's eardrum, which prevents any farther travel inward. A passage through a forest of fungus leads back out."
+	.GSTR STR?421,"You have landed on a shoulder of mind-numbing dimension. The hairs of the shoulder are like mighty trees, the pores like deep craters. Thanks to the thickness of the hair/trees, you could probably climb up the neck to the ear which looms above you. A series of underhanging roots make it possible to swing off to the east."
+	.ENDSEG
+
+	.SEGMENT "FOOZLE"
+
+	.GSTR STR?618,"Somewhere Along the GUH"
+	.GSTR STR?619,"You stand at the junction of two underground highways, one north-south and the other east-west. A sign hangs in the center of the junction."
+	.GSTR STR?620,"Just ahead, the roof of the highway tunnel has collapsed, creating a dead end. (Decades of non-maintenance of the Empire's infrastructure are taking their toll.) Your only choice is to return to the west."
+	.GSTR STR?624,"To the south, the road is rent by a wide fissure, the reminder of a recent quake. Judging by the footprints in the dust, many travellers have reached this point, only to turn around and head back to the north. The quake has also opened a narrow crack in the eastern wall of the tunnel; you might be able to squeeze into it."
+	.GSTR STR?625,"The fissure is uncrossable."
+	.GSTR STR?626,"A plunge into the fissure would be fatal."
+	.GSTR STR?627,"You are in a narrow fissure which widens to the west. A cool breeze seems to blow upon you from below."
+	.GSTR STR?628,"The air is chilly, the walls are covered with ice, and the floor is piled high with crystal spheres of varying sizes and colors; most are chipped or shattered. Your light reveals no visible exits, although a trickle of warm, dry air caresses you from above."
+	.GSTR STR?630,"The road, which runs east to west, is in bad shape here, pitted with holes and ruts."
+	.GSTR STR?631,"By the north side of the road is a rest stop, closed and boarded up. The road continues east and southwest."
+	.GSTR STR?632,"The tunnel forks here, with roads leading northeast, west, and southwest."
+	.GSTR STR?633,"Port Foozle"
+	.GSTR STR?634,"The tunnel narrows toward a spot of light to the west. The stench of dead, rotting fish hangs in the air."
+	.GSTR STR?635,"The tunnel from the northeast is narrower here, and pervaded with the scent of the sea. You can hear breakers to the southwest."
+	.GSTR STR?636,"This once-busy port, on the shore of the Great Sea, lies deserted. A tunnel opens to the east, the shoreline can be followed south along the ocean's edge, and a wharf juts into the harbor to the west. A newly constructed stone building lies to the north; an eye-catching sign has been erected next to its entrance."
+	.GSTR STR?637,"   The executioner says, ""Well, we can't wait around forever; we've got thousands to execute! Hang 'em!"" You swing."
+	.GSTR STR?638,"sing a song"
+	.GSTR STR?639,"kick me"
+	.GSTR STR?640,"kiss me"
+	.GSTR STR?641,"give me a thousand zorkmids"
+	.GSTR STR?642,"give me Ursula Flathead"
+	.GSTR STR?643,"send me to Antharia"
+	.GSTR STR?644,"A trollish guard blocks the exit. ""No one leave!"""
+	.GSTR STR?645,"   The guard loses his patience and skewers you."
+	.GSTR STR?649,"""Done!"" You learn that hanging is as excrutiatingly painful as promised."
+	.GSTR STR?650,"""Sorry, can't do that."" You learn that beheading is indeed quite quick and painless."
+	.GSTR STR?651,"This wharf extends into the harbor from a village to the east. Along the north side of the wharf, a building rests on piers over the water."
+	.GSTR STR?652,"The wharf ends a few steps to the west."
+	.GSTR STR?653,"This is the Port Foozle Casino, once a world-famous gambling spot, but now deserted and showing the effects of years of ocean storms. The casino has been heavily looted; only a single card table seems untouched. An exit leads south."
+	.GSTR STR?654,"""Legend has it that Double Fanucci (or Fannucci) was invented by the deposed Zilbo III in the late seventh century. A game of tremendous complexity and almost infinite rules, King Mumberthrax proclaimed it the national sport of the Empire in 757 GUE. The annual Double Fanucci Championships, held in Borphee during early autumn, frequently leave thousands homeless."""
+	.GSTR STR?655,"Double Fanucci"
+	.GSTR STR?656,"shrugs. ""Just a simple Borphee Bluff."""
+	.GSTR STR?657,"smiles. ""A devilish Kovalli Hustle, don't you think?"""
+	.GSTR STR?658,"shudders. ""Babe would turn over in his grave if he could see my playing."""
+	.GSTR STR?659,"looks satisfied. ""That ought to up the ante toward a Doubleton Duck."""
+	.GSTR STR?660,"resists an urge to spike his cards. ""You fell for my Festeron Finesse! I get Honors!"""
+	.GSTR STR?661,"shouts, ""Whangdoogle! Four to the kitty! Minor ruff!"" and massages the resulting torn shoulder muscle."
+	.GSTR STR?662,"kicks himself. ""I should've revoked a Singleton in the third frame!"""
+	.GSTR STR?663,"snickers at you. ""Bet you didn't see that Segmented Shuffle coming!"""
+	.GSTR STR?664,"complains. ""Shy Openers! All I get are Shy Openers!"""
+	.GSTR STR?665,"applauds with delight. ""Zilbo's Half-Renege! I love it!"""
+	.GSTR STR?666,"sighs. ""I came so close to a Full Foozle Progression."""
+	.GSTR STR?667,"produces two large mallard ducks out of thin air, thus Royal Bidding his play."
+	.GSTR STR?668,"takes a third of the deck and burns it. ""Unlimited Singleton Bids for the rest of the game!"""
+	.GSTR STR?669,"invokes the Grand Slam clause and reshuffles the deck. ""Slice and Call,"" he claims."
+	.GSTR STR?670,"exhales a deep breath. ""I wasn't sure I'd have time for that Inside Duo-Trick."""
+	.GSTR STR?671,"gulps. ""I came close to having to invoke the Golden Fromp clause!"""
+	.GSTR STR?672,"scowls. ""An Unrejuvenated Slamboozle!"" To repent, he changes shape to a hawk, then a milk cow, then a large carpenter ant, and finally back to a jester. ""Full repentance; losses halved,"" he states."
+	.GSTR STR?673,"DRAW "
+	.GSTR STR?674,"DISCARD "
+	.GSTR STR?675,"DIVIDE "
+	.GSTR STR?676,"REVERSE "
+	.GSTR STR?677,"TRUMP "
+	.GSTR STR?678,"UNDERTRUMP "
+	.GSTR STR?679,"COMBINE "
+	.GSTR STR?680,"PASS "
+	.GSTR STR?681,"OVERPASS "
+	.GSTR STR?682,"SINGLE-PLAY "
+	.GSTR STR?683,"DOUBLE-PLAY "
+	.GSTR STR?684,"MUTTONATE "
+	.GSTR STR?685,"IONIZE "
+	.GSTR STR?686,"CHEAT "
+	.GSTR STR?687,"RESIGN "
+	.GSTR STR?688,"draw"
+	.GSTR STR?689,"discard"
+	.GSTR STR?690,"divide"
+	.GSTR STR?691,"reverse"
+	.GSTR STR?692,"trump"
+	.GSTR STR?693,"undertrump"
+	.GSTR STR?694,"combine"
+	.GSTR STR?695,"pass"
+	.GSTR STR?696,"overpass"
+	.GSTR STR?697,"single-play"
+	.GSTR STR?698,"double-play"
+	.GSTR STR?699,"muttonate"
+	.GSTR STR?700,"ionize"
+	.GSTR STR?701,"cheat"
+	.GSTR STR?702,"resign"
+	.GSTR STR?703,"the Four of"
+	.GSTR STR?704,"the Five of"
+	.GSTR STR?705,"the Six of"
+	.GSTR STR?706,"the Seven of"
+	.GSTR STR?707,"the Eight of"
+	.GSTR STR?708,"the Nine of"
+	.GSTR STR?709,"the Naught of"
+	.GSTR STR?710,"Infinite"
+	.GSTR STR?711,"Singled"
+	.GSTR STR?712,"Doubled"
+	.GSTR STR?713,"Trebled"
+	.GSTR STR?714,"Granola"
+	.GSTR STR?715,"the Lobster"
+	.GSTR STR?716,"the Snail"
+	.GSTR STR?717,"the Jester"
+	.GSTR STR?718,"Time"
+	.GSTR STR?719,"Light"
+	.GSTR STR?720,"Beauty"
+	.GSTR STR?721,"Death"
+	.GSTR STR?722,"the Grue"
+	.GSTR STR?723,"Inkblots"
+	.GSTR STR?724,"Plungers"
+	.GSTR STR?725,"Bugs"
+	.GSTR STR?726,"Zurfs"
+	.GSTR STR?727,"Ears"
+	.GSTR STR?728,"Tops"
+	.GSTR STR?729,"Rain"
+	.GSTR STR?730,"Hives"
+	.GSTR STR?731,"Faces"
+	.GSTR STR?732,"Mazes"
+	.GSTR STR?733,"Lamps"
+	.GSTR STR?734,"Books"
+	.GSTR STR?735,"Scythes"
+	.GSTR STR?736,"Fromps"
+	.GSTR STR?737,"You catch the jester looking out the window, and take the opportunity to alter the scores."
+	.GSTR STR?738,"You distract the jester by faking a muscle cramp."
+	.GSTR STR?739,"You successfully slip a card out of your sleeve."
+	.GSTR STR?740,"The jester seems to doze off for a moment, and you try to take advantage by fudging the scores. However, the jester stirs, and in your haste you help the jester instead of yourself!"
+	.GSTR STR?741,"The jester catches you marking the cards, and assesses a stiff penalty."
+	.GSTR STR?742,"You substitute a card from the middle of the deck, but the new card places you in an even worse position!"
+	.GSTR STR?743,"during the middle third of Mumberber!"""
+	.GSTR STR?744,"before a New Sun!"""
+	.GSTR STR?745,"in a two-person game!"""
+	.GSTR STR?746,"cries, ""Daring move!"""
+	.GSTR STR?747,"looks bored. ""The old Oddzio Gambit."""
+	.GSTR STR?748,"says, ""A gutsy play!"""
+	.GSTR STR?749,"applauds. ""A brilliant Festeron Feint!"""
+	.GSTR STR?750,"sneers. ""A transparent maneuver."""
+	.GSTR STR?751,"shakes his head. ""A poorly executed Antharian Attack."""
+	.GSTR STR?752,"exclaims, ""A skillful finesse!"""
+	.GSTR STR?753,"is obviously impressed. ""A spectacular Bloodworm Defense!"""
+	.GSTR STR?754,"sniffs. ""A weak response."""
+	.GSTR STR?755,"smiles mysteriously. ""An unusual Balsawood Convention!"""
+	.GSTR STR?756,"looks impressed. ""That was a stroke of genius!"""
+	.GSTR STR?757,"taps his fingers impatiently. ""A typical Egreth Convention."""
+	.GSTR STR?758,"whispers, ""Crude, but effective."""
+	.GSTR STR?759,"tips his hat to you. ""A well-executed Zilbo Standard!"""
+	.GSTR STR?760,"looks unimpressed. ""Just a lucky stroke!"""
+	.GSTR STR?761,"smirks. ""A poorly timed Forborn Chisel, wouldn't you say?"""
+	.GSTR STR?762,"laughs. ""That was a sign of panic on your part, if you ask me."""
+	.GSTR STR?763,"peruses your move. ""Ah, yes. The Accardi Variation. I haven't seen that one in a while."""
+	.GSTR STR?764,"bows his head with respect. ""You're a regular Fanuccimeister, eh?"""
+	.GSTR STR?765,"salutes you. ""A well-timed Frotz Factor! Bravo!"""
+	.GSTR STR?766,"scratches his head. ""A thoroughly mystifying maneuver."""
+	.GSTR STR?767,"yawns. ""The dependable Zibble Ploy."""
+	.GSTR STR?768,"laughs derisively. ""An amateurish blunder!"""
+	.GSTR STR?769,"says, ""A classic Frotzen Ploy."""
+	.GSTR STR?770,"shrugs. ""Oh, well... If people never made mistakes, they wouldn't put erasers on pencils..."""
+	.GSTR STR?771,"looks at you with scorn. ""A lukewarm Porridge Variation."""
+	.GSTR STR?772,"blinks. Then blinks again. ""Now I've seen EVERYTHING!"""
+	.GSTR STR?773,"nods knowingly. ""An obvious Fublian Gambit."""
+	.GSTR STR?774,"offers you some advice. ""Remember the words of Leo 'the Lip' Flathead: 'Nice guys finish last.'"""
+	.GSTR STR?775,"under Miznian rules!"""
+	.GSTR STR?776,"without a note from your doctor!"""
+	.GSTR STR?777,"except after a third-level Hamster Substitution!"""
+	.GSTR STR?778,"in a coastal city without first eating the rind of a burnt casaba melon!"""
+	.GSTR STR?779,"chortles gratingly. ""Who taught you how to play cards? Vanna Flathead?"""
+	.GSTR STR?780,"You are on a wide sandbar, which almost certainly vanishes at high tide. The only ways off the sandbar are to the north and south."
+	.GSTR STR?781,"You are on a wide beach of fine pinkish-white sand. The ocean stretches west to the horizon. Due to the low tide, it looks as if you could travel north. In addition, tunnels open to the northeast and southeast."
+	.GSTR STR?782,"""Quilbozza, just south of Port Foozle, is considered the nicest beachfront in the eastlands, if not all of Quendor."""
+	.GSTR STR?783,"You are in a tunnel which curves northwest and northeast. The tunnel rises at the latter end, and passes a large, eye-catching sign."
+	.GSTR STR?784,"Pick a door... any door..."
+	.GSTR STR?785,"   You are immediately fed to ravenous hellhounds."
+	.GSTR STR?786,"You are in a medium-sized cavern, which appears to have been recently occupied. The steep passage which brought you here leads southwest. Also, a passage just large enough to fit through leads downward."
+	.GSTR STR?787,"The passage is too steep to climb back."
+	.ENDSEG
+
+	.SEGMENT "LAKE"
+
+	.GSTR STR?562,"These waters are known for their hungry denizens."
+	.GSTR STR?563,"The royal yacht sits by the dock, bobbing gently in the swell of the lake."
+	.GSTR STR?564,"""Made by the Frobozz Magic Royal Yacht Company."""
+	.GSTR STR?565,"You are in a cabin under the deck of the royal yacht. A steep gangway leads upward."
+	.GSTR STR?566,"open the bathysphere"
+	.GSTR STR?567,"remove your hand from the waldo"
+	.GSTR STR?568,"Having thus flooded the bathysphere, you drown."
+	.GSTR STR?569,"""A product of the Frobozz Magic Bathysphere Company, designed by Jacques Yves Flathead."""
+	.GSTR STR?570,"rubies"
+	.GSTR STR?571,"A ruby of incredible size and beauty is buried in the sand."
+	.GSTR STR?572,"This ruby must surely be the largest jewel in the land."
+	.GSTR STR?573,"The bathysphere descends, filling with water through its open door. As you are not a fish, this is fatal."
+	.GSTR STR?574,"You are in the center of a once-handsome lake, lit from the roof high overhead. On the distant shores, you can spot docks in all four cardinal directions."
+	.GSTR STR?575,"""This large and handsome lake lies entirely within the royal castle at Flatheadia."""
+	.GSTR STR?576,"Here, between the surface and floor of Lake Flathead, the water is somewhat clearer."
+	.GSTR STR?577,"You have reached the sandy bottom at the deepest point of Lake Flathead. Beautiful freshwater fish swim among slowly waving spenseweeds."
+	.GSTR STR?578,"In a rare moment of restraint, Dimwit scaled back his plans for putting an entire mountain range in the castle, settling for merely a single mountain. A difficult trail leads east up the mountain; easier paths head north, west, and south."
+	.GSTR STR?579,"The stalls here once held thousands of royal mounts. The only exit is south."
+	.GSTR STR?580,"A well-worn unicorn saddle, of military style, is hanging at the far end of the stable."
+	.GSTR STR?581,"You can barely make out the name ""Wilma."""
+	.GSTR STR?589,"You have stumbled upon a long-hidden shrine to Saint Foobus of Galepath. An idol of Foobus is carved from the very rock that forms this cave. The only exit is southwest."
+	.GSTR STR?590,"""The legendary Saint Foobus was said to have power over lowly insects."""
+	.GSTR STR?591,"Sitting before the idol is a translucent bowl, extremely tall and narrow, like a carafe."
+	.GSTR STR?592,"Only a deranged bat would live in this disgusting nesting space, caked with layer upon layer of dried guano. A precarious path leads down to the west; there's little chance you'd be able to climb back."
+	.GSTR STR?593,"You are surrounded by tall oaks and wide pines. Birds chirp in the distance. Trails wind north and southwest among the trees."
+	.GSTR STR?598,"Dimwit's mania for including every conceivable ecosystem under his roof continues here. This flat grassland ends at woods to the northeast, and at a desert to the west. A herd of unicorns is grazing nearby."
+	.GSTR STR?599,"""A magical beast, sometimes used as a combat mount."""
+	.GSTR STR?600,"
+  'One night four men sat down to play;
+     They played and played till break of day.
+       They played for money; not for fun,
+         With separate scores for every one.
+           And when time came to square accounts,
+             They all had made quite nice amounts!'
+What were the men playing?"" As the jester awaits your answer, you notice that he is holding the framed document."
+	.GSTR STR?601,"The diploma is from the Borphee Business School, but the name of the recipient is too faded to read."
+	.GSTR STR?603,"Dimwit wanted a sandbox, but thanks to his lack of perspective he ended up with a desert. The bulk of the desert lies to the south; paths lead in the other cardinal directions."
+	.GSTR STR?604,"Sand dunes block your way."
+	.GSTR STR?605,"You are surrounded by sand dunes on all sides but the east."
+	.GSTR STR?606,"""A desert animal."""
+	.GSTR STR?607,"merry-go-round fixture"
+	.GSTR STR?608,"The camel, never a speed demon to begin with, becomes still. His coloring grows gaudier, and a few bars of honky-tonk music drift through the air."
+	.GSTR STR?609,"You are in the midst of a searingly hot desert. Trails snake amongst the dunes in many directions."
+	.GSTR STR?610,"   As with so many unprepared travellers before you, you succumb to the merciless justice of the desert."
+	.GSTR STR?611,"""Frobozz Philharmonic Hall is the home of the renowned Frobozz Philharmonic Orchestra."""
+	.GSTR STR?612,"You are in a tiny space beneath the stage. There are no visible exits."
+	.GSTR STR?613,"There are no visible exits."
+	.GSTR STR?614,"Sitting by the edge of the stand is a beautiful, handmade violin; possibly a Stradivarius."
+	.GSTR STR?615,"This twenty-thousand-seat theatre was renowned for its terrible acoustics, although Dimwit always claimed he could ""hear things great"" from his box in the front of the theatre. Exits lead west and southwest."
+	.SEGMENT "ORACLE"
+
+	.GSTR STR?586,"You are in a damp grotto near the peak of the Great Underground Mountain. Slimy moss covers the irregular rock walls. Winding passages lead south and northeast, and a steep gravelly passage leads downward at an alarming angle."
+	.GSTR STR?585,"""One of the many awe-inspiring features of Dimwit's castle in Flatheadia."""
+	.GSTR STR?588,"gravel"
+	.GSTR STR?587,"Imbedded in the rocky wall is a blinking button in the shape of a key."
+	.ENDSEG
+
+	.SEGMENT "ORACLE"
+
+	.GSTR STR?794,"""This towering range runs north to south, forming the eastern border of the Frigid River Valley. Beyond the mountains, uninhabitable swamps extend to the edge of the world. Near the southern end of the range, the Zorbel Pass permits passage to the Fublio Valley."""
+	.GSTR STR?795,"Flathead Mountains"
+	.GSTR STR?796,"You are high in the mountains, surrounded by jagged, rocky peaks. Paths squeeze northeast, southeast, and southwest, and it looks like you could also climb down."
+	.GSTR STR?797,"The runes are in an ancient and unfamiliar language; you can translate only a handful of phrases: ""accursed sapphire"" and ""sealed their tomb"" and ""death awaits."""
+	.GSTR STR?798,"A stubborn birch tree has been eking out an existence in this rocky hollow for, judging by its size, fifty to a hundred years -- though, in this barren spot, who can guess the growth rate of a tree?"
+	.GSTR STR?799,"This appears to have been a mine for the excavation of iron ore, possibly dating to the earliest days of recorded history. There seems to have been a struggle here, in the distant past: two decayed skeletons locked in vicious combat. The rusty strips of metal by their side may have once been weapons."
+	.GSTR STR?802,"You are on a windswept rock mesa. Paths lead northwest and southwest around an outcropping. A slender bridge of sandstone arcs gracefully above you. Beneath the center of the arch, timeworn stairs lead down into a dark cave."
+	.GSTR STR?803,"Behind the altar is a statue of a young man holding a frail flower. His face shows heartbreak and despair, with a single tear just beginning to slide down his cheek."
+STATUE-DESC=STR?803
+	.GSTR STR?804,"An explosion of vengeful magic leaps from the altar, instantly melting your flesh away. Your bones clatter amidst the others in the cave."
+	.GSTR STR?805,"You are on a mountain ledge with a spectacular view of the Flathead Fjord, which separates the Flathead Mountains (which you are at the northern tip of) from the Gray Mountains, across the fjord to the north. The ocean, to the west, is lost amidst the dense fog which rolls up the fjord. A rocky spire stands like a finger at the very edge of the ledge. A steep path climbs farther up the mountain. A short distance below is another, smaller ledge."
+	.GSTR STR?806,"There are no handholds to climb down."
+	.GSTR STR?807,"The view of the fjord isn't as good, as you are surrounded on three sides by nearly vertical cliffs. There don't seem to be any exits."
+	.GSTR STR?808,"You can't even see the rope anymore, let alone reach it."
+	.GSTR STR?809,"It's still a good five hundred foot drop to the fjord!"
+	.GSTR STR?810,"Yeow! Fangs sink into your hand."
+	.GSTR STR?811,"Despite the inferior view, someone has been painting here. An easel is set up on the ledge."
+	.GSTR STR?812,"""The beautiful Flathead Fjord is an ocean inlet which divides the great mountains of the eastlands into two ranges: the Gray Mountains, on the north side of the fjord, and the Flathead Mountains, south of the fjord."""
+	.GSTR STR?813,"""The Gray Mountains refer to both a mountain range and a province. Lying in the far northern part of the eastlands, the Gray Mountains are a harsh environment, but a mecca for winter sport enthusiasts."""
+	.GSTR STR?814,"Gray Mountains"
+	.GSTR STR?815,"You are on a glacier high atop the Gray Mountains. Far below is a frozen lake, brilliantly reflective in the midday sunshine. The climb down looks extremely hazardous."
+	.GSTR STR?816,"You knock loose a tiny pebble of ice, which starts some other pebbles going, and pretty soon there's this whole huge incredible avalanche of dirt and snow and ice and by the way, you're at the bottom of it."
+	.GSTR STR?817,"You are in the center of a lake whose frozen surface is more reflective than the finest mirror. It's almost impossible to tell where the sky ends and the ice begins. Worse, the surface is so smooth it's impossible to move!
+   Looking into the mirror, everything seems somehow... different."
+	.GSTR STR?818,"Slip. Slide. No Progress."
+	.GSTR STR?819,"throw"
+	.GSTR STR?820,"push"
+	.GSTR STR?821,"""Mirror Lake, in the Gray Mountains, is believed to possess certain magical powers. Frank Lloyd Flathead's ski chalet was located nearby."""
+	.GSTR STR?822,"Lines radiate outward to the edge of the lake. The ice under you opens, spilling you into frigid water. Instantly, the surfaces refreezes, trapping you below."
+	.GSTR STR?823,"The surface of the lake is too slippery."
+	.GSTR STR?829,"You are in a handsomely designed vacation chalet, with an exit to the east."
+	.GSTR STR?830,"Leaning unobtrusively in one corner is a scale model of the FrobozzCo World Headquarters Building. The scale appears to be around 1:1000."
+	.GSTR STR?831,"Frigid River Valley"
+	.GSTR STR?832,"You are in the midst of the maze-like, swampy bayou where the Frigid River dumps its silt before reaching the sea. Twisting paths appear to lead into the growth in all directions."
+	.GSTR STR?833,"The path dead ends as the growth closes to an unpassable tangle."
+	.GSTR STR?836,"The Frigid River ends its long journey from Flood Control Dam #3 here, losing its speed and turning into a delta of meandering channels to the southwest. To continue northeast up the river, you'd need a boat and a number of strong oarsmen."
+	.GSTR STR?837,"Where's the boat? Where're the oarsmen?"
+	.GSTR STR?838,"""The Frigid River, the mightiest in the Great Underground Empire, forms at the spilloff of Flood Control Dam #3, pours over Aragain Falls, and finally empties into the Great Sea at the southern end of the Frigid River Valley. The total length, from dam to river delta, is over 150 bloits."""
+	.GSTR STR?839,"The channels of the river trickle into the mighty Flathead Ocean, which extends west to the horizon. A path leads into the delta to the northeast."
+	.GSTR STR?840,"""The Flathead Ocean divides the world into the eastlands and westlands. It was called the Great Sea until the time of Dimwit Flathead, and it is still known by its earlier name in many parts of the kingdom."""
+	.GSTR STR?841,"Fublio Valley"
+	.GSTR STR?842,"Towering above you is a statue so tall that you can't see much beyond the knees."
+NEAR-STATUE-DESC=STR?842
+	.GSTR STR?843,"To the northeast, a huge statue of Dimwit Flathead casts a dark shadow across the land. The statue is beginning to deteriorate; vines cover the lower bloit or so, and some pterodactyls have begun nesting on the flat top of the statue's head."
+DISTANT-STATUE-DESC=STR?843
+	.GSTR STR?844,"A trail from the north ends here. To the west is a decaying hut."
+	.GSTR STR?845,"open the trap door"
+	.GSTR STR?846,"""She stood in the shade of a _ _ _ _ _   _ _ _ _
+She held the prize of an _ _ _ _   _ _ _ _
+And all beheld that she proudly _ _ _ _
+A relic found in a _ _ _ _ _   _ _ _ _ _"""
+	.GSTR STR?847,"One hanging reads ""Hut Sweet Hut"" and the other reads ""Forget the rest; Megaboz is the best."""
+	.GSTR STR?848,"This musty little room is barely more than a crawl space beneath the roof of the hut."
+	.GSTR STR?849,"In the shadows under the eaves, you spot an ancient trunk, covered with dust and cobwebs."
+	.GSTR STR?860,"Paths lead around this haphazard pile of stones to the northwest, east, and south."
+	.GSTR STR?861,"To the northeast is a run-down little shack. A sign is posted by the entrance, and a path runs off to the west."
+	.GSTR STR?862,"You are in a small shack, the home of an obscure magician named Gumboz. The only exit is southwest."
+	.GSTR STR?864,"The trail curves north and east around an abandoned quarry.
+   An ancient pine clings to the rim of the quarry. Its needles are brown with age, and its drooping branches cast a dark shadow across the quarry below."
+	.GSTR STR?865,"The branches of a weary old pine cast a dark shadow across the floor of this old stone quarry."
+	.GSTR STR?866,"A trail from the west ends here at this tiny structure. Next to the hovel's entrance, to the east, is a faded sign."
+	.GSTR STR?867,"This tiny shack looks like the living quarters of a hermit wizard. The only exit is west."
+	.GSTR STR?868,"You are near the base of the mighty Flathead Mountains, toward the southernmost end of the range. The mountains run approximately northeast to southwest here. The path turns here, heading east into the valley and north into the foothills."
+	.GSTR STR?869,"You are in the foothills of the Flathead Mountains, at the entrance to the Zorbel Pass. The pass rises to the northwest, and a path leads downward to the south."
+	.GSTR STR?870,"This pass is reputed to be the only crossable point along the entire range. You are now far above the valley floor, which spreads out below you like a map, but you have still not reached the highest point of the pass."
+	.GSTR STR?871,"As you near the highest point of the pass, you find it blocked by a recent avalanche. Though you can travel no farther to the northwest, the avalanche has revealed an ancient ravine leading up the side of the mountain."
+	.GSTR STR?872,"The way is blocked by an avalanche."
+	.GSTR STR?873,"You are on the slopes of Mount Foobia, the tallest peak in the Flathead Mountains. A narrow ravine leads almost straight downward. The vegetation thins out here, and the air is getting a bit thin as well. Not too far above you, the slope disappears into the thick clouds which eternally shroud the apex of Foobia."
+	.GSTR STR?874,"You are surrounded by the thick white clouds which perpetually hide the peak of Mount Foobia. Visibility is severely limited; you can only assume that the slope continues to be climbable above you. Breathing here is a chore."
+	.GSTR STR?875,"You have emerged above the cloud layer, at a plateau which forms the apex of Foobia. There is no sign that anyone has ever been here before. Nearby is a huge object, which vanishes into the mists above. It's difficult to be certain, but it looks a bit like a piece of a corner of an edge of a toe of an enormously tremendous brogmoid. A huge colony of fungus clogs the cracks in the toe."
+	.GSTR STR?876,"The brogmoid toe is unclimbable."
+	.GSTR STR?877,"Antharia"
+	.GSTR STR?878,"The Antharian granola mines can be entered to the east, and a major road leads west. Signs of the granola riots are everywhere. Speaking of signs, there's one next to the mine entrance."
+	.GSTR STR?879,"This is a bend in a wide dirt road running along the ocean's edge. You can go east or southwest."
+	.GSTR STR?880,"This was one of Dimwit's most impressive projects: a stadium which would hold the entire population of the Great Underground Empire. A whole range of sporting matches were held here, from dragonfights to Double Fanucci tournaments. Arched exits lead northeast, southeast, and south."
+	.GSTR STR?884,"You are on a road at the fringe of Anthar. The road continues north and south. In the latter direction, a hastily constructed fence of rock and wire blocks the road. A sign is posted in front of the fence. A smaller path heads eastward."
+	.GSTR STR?885,"The fence is very tall and covered with sharp nasties."
+	.GSTR STR?886,"A series of flat stones leads east into a mist-covered marsh. Paths lead northwest and west."
+	.GSTR STR?887,"You are at the bottom of a sheer granite cliff. A foggy swamp lies to the west. Rough handholds have been carved into the face of the cliff."
+	.GSTR STR?888,"This is a tiny shelf of granite atop a sheer cliff. Below, you can see a misty bog and, beyond that, the ocean. Far to the northwest is a large stadium; to the southwest, a town. A path leads east into a hollow."
+	.GSTR STR?889,"You are in a natural bowl-shaped depression, hollowed out by eons of howling wind. At the bottom is a huge bird nest, built of myriad bits of scavenged twigs and debris. Beyond the nest, to the southeast, is a dark opening. A trail leads west."
+	.GSTR STR?890,"Although terribly old and faded, you can tell that the tie was once gray with little green zorkmid symbols all over it."
+	.GSTR STR?891,"In the dimmest corner of the cave huddle a pair of witches. One looks healthier but less friendly than the other."
+	.GSTR STR?892," Camel sweat! Rotgrub heart! The enchantment begone!"" A palpable wave of magic sweeps over you and out of the cave.
+"
+FINISH-ENCHANTMENT=STR?892
+	.GSTR STR?893,"You are just within the mouth of a granola mine. Daylight is visible to the west. Tunnels wind downward to the north, northeast, and east. Chunks of loose rubble, disturbed by the first visitor since the granola riots, fall from the roof of the mine."
+	.GSTR STR?894,"A piece of rubble lands on your head."
+	.GSTR STR?895,"You are in a major granola mine. Half-mined granola is everywhere. The remains of a vast transportation system lies in ruins. Tunnels wind south, southwest, and west, and a tiny half-buried tunnel leads downward to the north."
+	.GSTR STR?896,"You are in a poorly dug tunnel, not even tall enough to stand up in. The tunnel curves slightly, running from south to northwest."
+	.GSTR STR?897,"The low tunnel ends here in a small cul-de-sac. The way back is southeast."
+	.GSTR STR?898,"looks"
+	.GSTR STR?899,"tastes"
+	.GSTR STR?900,"smells"
+	.GSTR STR?901,"feels"
+	.ENDSEG
+
+	.SEGMENT "SECRET"
+
+	.GSTR STR?343,"You are in a secret passage running north and south."
+	.GSTR STR?344,"The passage ends at a blank wall!"
+	.GSTR STR?346,"A secret passage from the north ends here at this east-west corridor."
+	.GSTR STR?347,"The secret passage from the east ends here. An easily defensible hallway rises into the keep, to the southwest."
+	.GSTR STR?348,"You are in the lowest level of the castle's keep. A stone stair winds up into the keep, and a sloping passage leads northeast."
+	.GSTR STR?349,"This is the king's solar, where he would bathe and dress and meet his most trusted advisors and intimate guests. Dim light enters through narrow, slitted windows. The solar has obviously lain unused for many decades. The circular stair continues up and down, and a doorway leads west."
+	.GSTR STR?350,"You can find me at the beginning of youth, in the center of every eye, and at the end of eternity. What am I?"""
+	.GSTR STR?352,"You stare around in awe as you realize that you are within the private bedroom of Lord Dimwit Flathead. The canopied bed alone is larger than most of the farms in your home province. Light seeps in through slitted windows, and doorways lead east and south."
+	.GSTR STR?353,"This is a small closet. Well, it's small by the standards of this castle; in a pinch, it could probably sleep a few regiments. The only exit is north."
+	.GSTR STR?354,"This room occupies a taller tower rising from the corner of the keep. The slitted windows are wider here, presumably to accomodate the weaponry of the period. The stair winds up and down from here."
+	.GSTR STR?355,"You are on the roof of the tower, a virtual museum of state-of-the-art castle defense from the eighth century. A fortified parapet, resting on stone corbels, rims the roof. Machicolations, holes between the corbels, allow massive weights to be dropped on invaders below. (More often, they were dropped rather painfully on the soldier's own toe.) Crenellations are spaced around the parapet, providing openings for armaments and offering a commanding view of the castle grounds: the main castle just below, and beyond the moat, the castle's village and garrison. The sole exit is the stairway down."
+	.GSTR STR?356,"A secret passage from the west ends here, at the top of these dark, cobwebby stairs."
+	.GSTR STR?357,"You are in the center of a gloomy, north-south passage. A crude stairway leads upward."
+	.GSTR STR?358,"A hall from the south ends here at the entrance to a spooky crypt."
+	.GSTR STR?359,"A century's worth of prisoners have languished in this dismal prison. In addition to a hole in the floor, passages lead north, southeast, and southwest."
+	.GSTR STR?360,"You're trapped."
+	.GSTR STR?361,"I look just like my brother; we have the same father and mother! We're identical in every way; we were born on the very same day. I'm younger by seconds, but as everyone reckons, I'm not a twin, and never have been. What am I?"""
+	.GSTR STR?366,"This room contains all your standard torture devices: an iron maiden, a water chamber, a snake pit, a comfy chair, and so forth. The only obvious exit is northeast."
+	.GSTR STR?367,"It's so, so comfy that you can't get up, and you sit there comfortably until you starve to death."
+	.GSTR STR?368,"It shuts around you, piercing you with its sharp spikes."
+	.GSTR STR?369,"Immediately, the chamber locks behind you, and water begins rhythmically dripping onto your head. Sometime later you go mad, and rip yourself into small pieces."
+	.GSTR STR?370,"A thousand snakes converge on you. In their overeagerness to dine, they skip right over the part where they kill you, and instead get right to the part where they eat you."
+	.ENDSEG
+
+	.SEGMENT "VILLAGE"
+
+	.GSTR STR?294,"You are on a narrow grassy strip between the castle (which can be entered to the south) and the moat. A young elm grows by the side of the moat. A causeway leads out into the moat to the northwest."
+	.GSTR STR?298,"You are on a peninsula of dirt and gravel which extends into the moat from the southeast. A tall barbican towers over the end of the causeway, to the northwest."
+	.GSTR STR?299,"This upper level is key to defending the outer perimeter of the castle, with its commanding view of the causeway, moat and baileys. The floor is filled with ""murder holes"" for dropping heavy cannonballs onto unwanted visitors who penetrate as far as the barbican's lower level, just below. A large cast iron wheel is mounted in the center of the room. The only exit is a ladder leading down."
+	.GSTR STR?525,"The drawbridge isn't down."
+	.GSTR STR?526,"A mighty, rotting tree stump spreads its roots across the bailey."
+	.GSTR STR?527,"open the gate"
+	.GSTR STR?528,"   The castle buildings are collapsing around you. No, ""shrinking and changing"" would be more accurate... stone becoming wood... walls and ceilings rushing in toward you... but before you can witness the final form of this amazing metamorphosis, you are transformed into a large oriental rug."
+	.GSTR STR?529,"(formerly) Flatheadia"
+	.GSTR STR?530,"You are standing in an open field west of a white house, with a boarded front door.
+   There is a small mailbox here."
+	.GSTR STR?531,"This is where the castle's army was quartered. The garrison fell into disuse as all known lands fell under the rule of the Flatheads; the army had little to do except quell an occasional tax revolt. In fact, the only evidence of the garrison is a rusty locker. A road leads northeast."
+	.GSTR STR?532,"""Ursula Flathead, the former Miss Miznia, has been called the 'Sex Goddess of the GUE.' The editors would be hard-pressed to disagree with the phrase."""
+	.GSTR STR?533,"The road curves along the moat, turning southeast and southwest."
+	.GSTR STR?534,"To the east, a stone arch forms the entrance to the castle's village. (The village lies outside the castle proper but is still comfortably within the outer perimeter wall.) The arch is flanked by two medium-sized elms, one more gnarled than the other. The road passes under the arch; in the other direction, it follows the moat to the northwest."
+	.GSTR STR?535,"This grassy mall must have been a nice area at one time, but it is now overgrown with weeds, and soiled by windblown litter. The shade comes from a mighty elm which spreads its thick green branches over the park. A wide east-west boulevard bisects the park, and impressive buildings flank it on the north and south."
+	.GSTR STR?536,"This is a house of worship of Brogmoidism. The tenets of this rather silly religion are engraved on the wall. The only exit is north."
+	.GSTR STR?537,"""Thou shalt worship the Great Brogmoid to thine utmost, for upon his shoulder rests the world -- thus he saveth us from plunging into the Great Void..."" The tenets go on and on about the brogmoid who supports the world. It's hard to believe that anyone EVER believed such drivel, let alone in today's enlightened age. As the great modern thinker, Zorbius Blattus, is fond of saying, ""If a giant brogmoid were holding up the world, where would he stand?"""
+	.GSTR STR?538,"This huge hall was the main office of the Underground Revenue Service. Until the construction of the FrobozzCo Building, it was the largest structure in the Empire. Here, thousands upon thousands of accountants and auditors once sat, tabulating the proceeds from Dimwit's astronomical taxations. The only exit is south."
+	.GSTR STR?539,"I once heard of a bookkeeper who, while working on the accounts of the Frobozz Magic Balloon Company, noted that the word 'balloon' has two double letters in a row! Stretching his limited imagination to the limit, this bookkeeper wondered if there were any words with THREE double letters in a row. He couldn't think of one -- but I'll bet that YOU can!"""
+	.GSTR STR?540,"The coin bears the likeness of Belwit the Flat, along with the inscriptions, ""One Zorkmid,"" and ""699 GUE."" On the other side, the coin depicts Egreth Castle, and says ""In Frobs We Trust"" in several languages."
+	.GSTR STR?541,"You are in the midst of the village. At least, at some distant time it may have been a village. More recently, it was a bustling metropolis. Now it's a deserted metropolis. A fantastically tall building rises just east of you and a road heads west. To the south is a post office; to the north, beyond granite stairs flanked by stone toads, is the Courthouse entrance."
+	.GSTR STR?542,"This is where the great jurist, Oliver Wendell Flathead, would hand down decisions from the bench. The only exit is south."
+	.GSTR STR?543,"Once the main branch of the Flatheadia Postal Service, this edifice now lies in deserted silence. A doorway leads north."
+	.GSTR STR?544,"A package rests on one of the counters. Although a collector has stolen the stamp, the address is still legible."
+	.GSTR STR?545,"""From: Belznork Gibblewitz      To: Eek Numblatz
+       F. M. Homing Pigeon Co        Int'l Curios, Inc
+       FrobozzCo Bldg, 193-E        28 Volcano View Ln
+       Flatheadia, FRV-9179         Gurth City, GTH-3791"""
+	.GSTR STR?546,"perches"
+	.GSTR STR?552,"The FrobozzCo World Headquaters Building in Flatheadia, designed by Frank Lloyd Flathead and built by the Frobozz Magic Construction Company in 781 GUE, is easily the tallest, most impressive building in all of Quendor."
+	.GSTR STR?553,"You are in the lobby of FrobozzCo International's World Headquarters, an impressive four hundred story structure. Wide stairs lead up and down; the main exit is to the west; an emergency exit leads east."
+	.GSTR STR?554,"FROM: Spaulding Flathead, Seventh Asst. Bldg. Mgr.
+TO:   All tenants
+RE:   New stairway policy
+To relieve overcrowding in the stairwells, employees who work above the 75th floor will be given teleportation tokens. Company officers will continue to receive teleportation tokens regardless of floor. Note: employees with tokens will no longer be dismissed early for ""stair-climbing"" time."
+	.GSTR STR?555,"The booklet is badly torn and faded. You can make out only a few phrases: ""...ozz Magic Homing Pi..."" and ""...eave the perch in the location you wish t..."" and ""...eturn warranty card within 90 d..."""
+	.GSTR STR?556,"You have reached the top floor! On a clear day, one can see hundreds of bloits from here; too bad it's so smoggy today. A stair leads down."
+	.GSTR STR?557,"The basement of the FrobozzCo Building is a place of sturdy walls, designed to support the 400 stories above. A stair leads up and a passage heads south."
+	.GSTR STR?558,"In a dark corner, a blinking button catches your eye. It seems to be in the shape of a key."
+	.GSTR STR?559,"This is a grungy, foul-smelling lane. A large building can be entered to the west, and a much smaller one to the north."
+	.GSTR STR?560,"Perhaps this was once a thriving shop, but now, like the rest of Flatheadia, it lies deserted, gutted by looters. The exit is south."
+	.GSTR STR?561,"The only thing the looters ignored was a ring. Not surprising, as it is a ring of ineptitude. Fun at parties, but not good for much else."
+	.ENDSEG
+
+	.SEGMENT "HINTS"
+
+	.GSTR STR?956,"Hit Return to see hints."
+RETURN-SEE-HINT=STR?956
+	.GSTR STR?957,"Hit Return to see a hint."
+RETURN-SEE-NEW-HINT=STR?957
+	.GSTR STR?958,"InvisiClues (tm)"
+INVISICLUES=STR?958
+	.GSTR STR?959,"Hit M to see main menu."
+M-MAIN-HINT-MENU=STR?959
+	.GSTR STR?960,"Hit M to see hint menu."
+M-SEE-HINT-MENU=STR?960
+	.GSTR STR?961,"Hit P for previous item."
+PREVIOUS-HINT=STR?961
+	.GSTR STR?962,"Hit N for next item."
+NEXT-HINT=STR?962
+	.GSTR STR?963,"Hit Q to resume story."
+Q-RESUME-STORY=STR?963
+	.GSTR STR?964,"(Or use your mouse.)"
+H-OR-USE-MOUSE=STR?964
+	.GSTR STR?965,"[No more hints.]"
+NO-MORE-HINTS=STR?965
+	.GSTR STR?966,"surviving Megaboz's attack"
+	.GSTR STR?967,"Just DIVE UNDER A TABLE when everyone else does."
+	.GSTR STR?968,"getting the scrap of parchment"
+	.GSTR STR?969,"After Megaboz's departure, just get out from under the table. You can now pick up the scrap."
+	.GSTR STR?970,"saving Dimwit from the evil witch"
+	.GSTR STR?971,"Don't go on until you've read the enchanted fairy tale book."
+	.GSTR STR?972,"First you must get to the parapet area."
+	.GSTR STR?973,"Then say DIMWIT, DIMWIT, LET DOWN YOUR GOLDEN HAIR."
+	.GSTR STR?974,"There is no evil witch. There is no enchanted fairy tale book. And there is no reason that you should be reading this hint, unless you want to ruin the game for yourself by looking at hints you don't need!"
+	.GSTR STR?975,"opening the portcullis"
+	.GSTR STR?976,"Ring the bell."
+	.GSTR STR?977,"Answer the jester's riddle!"
+	.GSTR STR?978,"ANSWER ""TIME"""
+	.GSTR STR?979,"the four torches"
+	.GSTR STR?980,"Two of the torches are already burned out and the other two burn out within about 12 turns. Not too useful, eh?"
+	.GSTR STR?981,"See the hints about finding a permanent light source in the General Questions section."
+	.GSTR STR?982,"about the cauldron"
+	.GSTR STR?983,"See the hints about the goal of the game in the General Questions section."
+	.GSTR STR?984,"reading the rebus"
+	.GSTR STR?985,"You'll have to remove those flattened animals."
+	.GSTR STR?986,"Something in the vicinity of the Gallery does something regarding the rebus."
+	.GSTR STR?987,"The key-shaped button in the closet. See the hints about these buttons in the General Questions section."
+	.GSTR STR?988,"You probably won't be able to remove all the animals until almost the very end of ZORK ZERO."
+	.GSTR STR?989,"Once you've removed all the animals, you should be able to decipher the rebus -- if you've noticed one key point."
+	.GSTR STR?990,"Look at the ""N"" in the upper left corner of the rebus."
+	.GSTR STR?991,"It's a mirror image of an ""N."" In fact, the entire rebus is a mirror image. Read it from right to left."
+	.GSTR STR?992,"The rebus, in text form, reads: (first line) TIE + BIRD - B + PIE + N (second line) EYE + URN + MIND - D (third line) W + OAR (fourth line) MATCH + CHICK + STORM - M"
+	.GSTR STR?993,"This forms the words (first line) ""tired pine"" (second line) ""iron mine"" (third line) ""wore"" (fourth line) ""magic store."" Now you just have to figure out what to do with these words!"""
+	.GSTR STR?994,"opening the walnut"
+	.GSTR STR?995,"You can't open the nutshell without a tool."
+	.GSTR STR?996,"Namely, a nutcracker. Magic is also involved."
+	.GSTR STR?997,"Don't go on until you've found the magic wand and know what it does."
+	.GSTR STR?998,"The wand can turn something into a nutcracker."
+	.GSTR STR?999,"Point wand at lobster."
+	.GSTR STR?1000,"opening the door in East Hall"
+	.GSTR STR?1001,"You'll need a key from another section of the game."
+	.GSTR STR?1002,"It's the iron key from the Solar (in the secret wing)."
+	.GSTR STR?1003,"Encyclopedia Frobozzica"
+	.GSTR STR?1004,"It's extremely useful for reading about all sorts of interesting things. For example, try READ ABOUT MEGABOZ."
+	.GSTR STR?1005,"using the wand"
+	.GSTR STR?1006,"Have you read the writing on the wand?"
+	.GSTR STR?1007,"You can find out what the wand does by looking up ""Fisha"" in the encyclopedia."
+	.GSTR STR?1008,"Try pointing the wand at various living creatures to see what they turn into."
+	.GSTR STR?1009,"For example, the flamingo turns into a lawn ornament. Anything inanimated using the wand will return to its former state after 16 turns. Also, the wand can only be used 5 times, so don't waste it!"
+	.GSTR STR?1010,"Tower of Bozbar"
+	.GSTR STR?1011,"To find out the rules, read about Tower of Bozbar in the encyclopedia."
+	.GSTR STR?1012,"To move the tower to (for example) the right peg, you must get the 6-ugh weight to the right peg without crushing any other weight. Therefore, you must get the 5-ugh weight to the left peg without crushing other weights. And so on..."
+	.GSTR STR?1013,"Here are the keystrokes required to move the pile of weights to the left peg: 1R 2L 1L 3R 1C 2R 1R 4L 1L 2C 1C 3L 1R 2L 1L 5R 1C 2R 1R 3C 1L 2C 1C 4R 1R 2L 1L 3R 1C 2R 1R 6L 1L 2C 1C 3L 1R 2L 1L 4C 1C 2R 1R 3C 1L 2C 1C 5L 1R 2L 1L 3R 1C 2R 1R 4L 1L 2C 1C 3L 1R 2L 1L."
+	.GSTR STR?1014,"When you ""win,"" you'll be able to get to a new room by going north from the Jester's Quarters."
+	.GSTR STR?1015,"There are three different Pyramid Rooms, depending on whether the six weights are on the left peg, the center peg, or the right peg."
+	.GSTR STR?1016,"large arched door"
+	.GSTR STR?1017,"It cannot be opened unless all six Tower of Bozbar weights are on the same peg. See the Tower of Bozbar hints in this section."
+	.GSTR STR?1018,"magic goggles"
+	.GSTR STR?1019,"Wear them."
+	.GSTR STR?1020,"Try looking at various things."
+	.GSTR STR?1021,"Try looking at a closed container with something inside, such as the package."
+	.GSTR STR?1022,"The goggles give you x-ray vision."
+	.GSTR STR?1023,"opening the door in West Hall"
+	.GSTR STR?1024,"It's the steel key from the locker in the Garrison (in the bailey area)."
+	.GSTR STR?1025,"riddle of the West Wing"
+	.GSTR STR?1026,"You can't go west from the West Wing until you've solved the jester's puzzle. You must physically show him something that satisfies his conditions."
+	.GSTR STR?1027,"It's an object from a dark area of the castle."
+	.GSTR STR?1028,"The walnut from the Root Cellar."
+	.GSTR STR?1029,"You must open it in his presence (to prove that no one has seen it before) and then SHOW THE WALNUT TO THE JESTER."
+	.GSTR STR?1030,"To prove that no one will ever see it again, simply EAT THE WALNUT."
+	.GSTR STR?1031,"winning Peggleboz"
+	.GSTR STR?1032,"Unfortunately, there's no good way to give hints for Peggleboz. There's no ""trick"" to it. Just keep trying, and if you finally give up, look at the next hint for one set of winning moves."
+	.GSTR STR?1033,"Move the peg at Q to G. Then S to Q. H to R. U to L. I to K. T to I. E to J. O to G. A to E. F to N. M to O. L to J. P to F. F to C. B to D. D to K. Q to G. E to J. O to G. Other solutions are possible."
+	.GSTR STR?1034,"jester's shell game"
+	.GSTR STR?1035,"The jester is obviously pretty handy with magic, and is the sort of person who wouldn't be above cheating at a game like this."
+	.GSTR STR?1036,"You can point at various shells all day long, but it won't get you the zorkmid bill!"
+	.GSTR STR?1037,"You must use magic yourself, and catch the jester cheating."
+	.GSTR STR?1038,"You'll need a magical item from another area."
+	.GSTR STR?1039,"It's something from the East Wing. Don't read on unless you've been there."
+	.GSTR STR?1040,"The goggles from the Pyramid Room. Do you know what they do?"
+	.GSTR STR?1041,"They give you x-ray vision. If you go into the Gaming Room wearing them, you'll see where the zorkmid bill really is. Just point at that location."
+	.GSTR STR?1042,"flying the dirigible"
+	.GSTR STR?1043,"First, ENTER THE GONDOLA."
+	.GSTR STR?1044,"Next, EXAMINE THE CONTROLS."
+	.GSTR STR?1045,"Since you're in Flatheadia now, PUSH THE RIGHT BUTTON."
+	.GSTR STR?1046,"Later, when you want to return from Fenshire, use the left button."
+	.GSTR STR?1047,"getting into the secret wing"
+	.GSTR STR?1048,"getting the iron key"
+	.GSTR STR?1049,"When you try to take it the jester will ask you a riddle."
+	.GSTR STR?1050,"Don't take the riddle too literally. There's a trick to it."
+	.GSTR STR?1051,"""...beginning of youth...center of eye...end of eternity..."""
+	.GSTR STR?1052,"...Youth...eYe...eternitY.."
+	.GSTR STR?1053,"ANSWER ""THE LETTER Y"""
+	.GSTR STR?1054,"magic glove"
+	.GSTR STR?1055,"Putting the glove on gives you additional sensory keeness and dexterity."
+	.GSTR STR?1056,"magic cloak"
+	.GSTR STR?1057,"Wear it."
+	.GSTR STR?1058,"You've been teleported to a strange new region. See the hints about the Plain in that section."
+	.GSTR STR?1059,"getting the fly"
+	.GSTR STR?1060,"See the hints about flies in the General Questions section."
+	.GSTR STR?1061,"getting out of the Oubliette"
+	.GSTR STR?1062,"A few turns after picking up the seaman's cap, the jester should appear and ask a riddle."
+	.GSTR STR?1063,"It will help if you think of ""twins"" as ""doublets."""
+	.GSTR STR?1064,"ANSWER ""A TRIPLET"""
+	.GSTR STR?1065,"Torture Chamber ticking noise"
+	.GSTR STR?1066,"Just look inside each of the torture devices."
+	.GSTR STR?1067,"cobwebs in the Cell"
+	.GSTR STR?1068,"You want to clear them away, but you can't do it by hand."
+	.GSTR STR?1069,"You need a cleaning implement, which you'll find in a later section."
+	.GSTR STR?1070,"The broom from winning Double Fanucci in Port Foozle."
+	.GSTR STR?1071,"Crypt"
+	.GSTR STR?1072,"See the General Questions hints about the funny paper."
+	.GSTR STR?1073,"Oracle"
+	.GSTR STR?1074,"Read about the Oracle of Bargth in the encyclopedia."
+	.GSTR STR?1075,"The oracle can do amazing things -- if activated. See anything that might activate it?"
+	.GSTR STR?1076,"There's that depression on the forehead."
+	.GSTR STR?1077,"You must put something in the depression."
+	.GSTR STR?1078,"Something from the lake area."
+	.GSTR STR?1079,"The moby ruby from the Lake Bottom."
+	.GSTR STR?1080,"Once you've put the ruby in the depression, you can use the oracle. Don't expect it to talk to you though."
+	.GSTR STR?1081,"ENTER THE ORACLE'S MOUTH. This will transport you to a new region!"
+	.GSTR STR?1082,"But wait -- there's more! Have you found the amulet?"
+	.GSTR STR?1083,"Notice any similarities between the amulet and the oracle?"
+	.GSTR STR?1084,"They're both serpent's heads with four eyes. Examine the amulet at several different times."
+	.GSTR STR?1085,"Every four turns, the amulet will display a different number of open eyes."
+	.GSTR STR?1086,"The oracle will transport you to a different region depending on how many eyes are open on the amulet."
+	.GSTR STR?1087,"When no eyes are open, you'll go to the Crag. One eye --> Glacier. Two eyes --> Delta. Three eyes --> Foot of Statue. All four eyes --> Mine Entrance."
+	.GSTR STR?1088,"opening the drawbridge"
+	.GSTR STR?1089,"You can't open it from the Barbican..."
+	.GSTR STR?1090,"...but you can from the Upper Barbican."
+	.GSTR STR?1091,"TURN THE WHEEL. This will raise and lower the drawbridge."
+	.GSTR STR?1092,"opening the locker"
+	.GSTR STR?1093,"Try OPEN THE LOCKER."
+	.GSTR STR?1094,"Ursula Flathead"
+	.GSTR STR?1095,"Don't read any further until you've summoned Ursula using the ouija board."
+	.GSTR STR?1096,"Examine Ursula's legs."
+	.GSTR STR?1097,"Nice legs, huh?"
+	.GSTR STR?1098,"There's no ouija board and no way to summon Ursula Flathead. If you read hints about areas you're not stuck at, you'll ruin the game for yourself!"
+	.GSTR STR?1099,"opening the doors at Perimeter Wall"
+	.GSTR STR?1100,"""It would take the power of a mighty wizard..."""
+	.GSTR STR?1101,"...such as Megaboz."
+	.GSTR STR?1102,"You won't be able to open these doors until you've stopped the Curse."
+	.GSTR STR?1103,"URS Office riddle"
+	.GSTR STR?1104,"Read it carefully."
+	.GSTR STR?1105,"ANSWER ""BOOKKEEPER"""
+	.GSTR STR?1106,"pigeon and perch"
+	.GSTR STR?1107,"The address on the package should give you a clue."
+	.GSTR STR?1108,"The pigeon is some kind of homing pigeon -- and the perch is presumably its ""home."""
+	.GSTR STR?1109,"Have you noticed anything unusual about the behavior of the pigeon, such as when you pick it up."
+	.GSTR STR?1110,"The address on the package refers to FrobozzCo Bldg, 193-E. If you go to the 193rd floor and go east, you'll find a clue -- but you should be able to figure it out without it."
+	.GSTR STR?1111,"Try dropping both the pigeon and perch, and picking up the pigeon."
+	.GSTR STR?1112,"Try dropping the perch in one room, the pigeon in another, and picking up the pigeon."
+	.GSTR STR?1113,"The pigeon is a teleportation device. When a person, such as yourself, takes the pigeon, it teleports that person to the location of the perch. This can be quite useful."
+	.GSTR STR?1114,"climbing the FrobozzCo Building"
+	.GSTR STR?1115,"Since you have no rappelling equipment, you'd best do your climbing INSIDE the building."
+	.GSTR STR?1116,"Have you found the memo on the fourth floor?"
+	.GSTR STR?1117,"Don't bother trying to find any of those teleportation tokens. The memo is just a ""red herring."" You'll have to climb the building on foot."
+	.GSTR STR?1118,"Of course, other than your driving curiosity, there's no reason to go all the way to the top."
+	.GSTR STR?1119,"opening the vault"
+	.GSTR STR?1120,"You'll need something from elsewhere."
+	.GSTR STR?1121,"Have you found anything which increases your dexterity?"
+	.GSTR STR?1122,"Wearing the glove from the Magic Clothes Closet, turn the dial to any number."
+	.GSTR STR?1123,"getting the brass lantern"
+	.GSTR STR?1124,"Have you been to the Cave-In?"
+	.GSTR STR?1125,"THROW THE ANTI-PIT BOMB when you're in Pits."
+	.GSTR STR?1126,"Testing Room booths"
+	.GSTR STR?1127,"Have you entered either booth? Pushed the black button?"
+	.GSTR STR?1128,"Try dropping one (and only one) thing in one booth, getting in the other booth, and pushing the button."
+	.GSTR STR?1129,"The above procedure turns you into whatever you put in the first booth. This is useful for solving a puzzle from another part of the game."
+	.GSTR STR?1130,"snake"
+	.GSTR STR?1131,"As long as there's a snake in the cage, you can't open the cage...and live."
+	.GSTR STR?1132,"When is a snake not a snake?"
+	.GSTR STR?1133,"Have you found the magic wand and used it on the snake?"
+	.GSTR STR?1134,"Once you've turned the snake into a rope, you can safely open the cage. The rope is useful elsewhere."
+	.GSTR STR?1135,"Construction site"
+	.GSTR STR?1136,"First, refer to the blueprint of this area that came in your Zork Zero package."
+	.GSTR STR?1137,"You want to get to the room where Quizbo left his hardhat, but it isn't currently accessible."
+	.GSTR STR?1138,"You can get a lot closer using the Frobozz Magic Passages."
+	.GSTR STR?1139,"The closest you can get is room #17."
+	.GSTR STR?1140,"Have you noticed any similarity between the Construction area geography and the geography of any other section of the game?"
+	.GSTR STR?1141,"Count the number of rooms in the Construction area. Don't go on until you've been somewhere else with the same number of rooms."
+	.GSTR STR?1142,"The Plain. There's a connection between it and the Construction area. Read the hints about the Plain."
+	.GSTR STR?1143,"Look at the relationship of room #17 and the hardhat room."
+	.GSTR STR?1144,"You need someone's help..."
+	.GSTR STR?1145,"...someone who can ""jump"" over the walls between you and the hardhat..."
+	.GSTR STR?1146,"...such as the black knight or the white knight."
+	.GSTR STR?1147,"You must figure out a way to get one of the knights to room #17."
+	.GSTR STR?1148,"See the question about the pigeon and perch."
+	.GSTR STR?1149,"Leave the perch in room #17, and give the pigeon to one of the knights. Return to room #17 by removing the cloak. The knight will have picked up the perch."
+	.GSTR STR?1150,"Next, take the pigeon, and give the knight directions to send him to the hardhat room. Drop the pigeon, and pick it up again to teleport yourself to the hardhat room."
+	.GSTR STR?1151,"Reverse the process to get the knight and yourself back to room #17. Take the hardhat from the knight, and wend your way back out of the Construction area. That's all, folks! There's no other purpose of the chess/Plain area besides supplying you with a knight!"
+	.GSTR STR?1152,"the jester's middle name"
+	.GSTR STR?1153,"Any wrong guess will give you a clue."
+	.GSTR STR?1154,"""I should know...I LOOKED IT UP this morning."""
+	.GSTR STR?1155,"Go to the Library and read about the jester."
+	.GSTR STR?1156,"getting past the toll gate"
+	.GSTR STR?1157,"Examine the toll gate."
+	.GSTR STR?1158,"You can get a coin at the URS Office in the village."
+	.GSTR STR?1159,"Put the coin in the basket."
+	.GSTR STR?1160,"crossing the fissure"
+	.GSTR STR?1161,"No way, Jose."
+	.GSTR STR?1162,"entering the rest stop"
+	.GSTR STR?1163,"You can't."
+	.GSTR STR?1164,"giant sandcrab"
+	.GSTR STR?1165,"Use the tartar sauce."
+	.GSTR STR?1166,"There's no giant sandcrab in ZORK ZERO."
+	.GSTR STR?1167,"Inquisition"
+	.GSTR STR?1168,"You need to go in there to get the box and its contents. Then of course, you need to get out alive."
+	.GSTR STR?1169,"It's a logic puzzle. Read the rules, and think about their implication."
+	.GSTR STR?1170,"When it's your turn, you need to ask the executioner one particular request."
+	.GSTR STR?1171,"Upon entering, take a ticket. When your number is called, say EXECUTIONER, BEHEAD ME. (Don't forget to pick up the box while you're waiting.)"
+	.GSTR STR?1172,"playing Double Fanucci"
+	.GSTR STR?1173,"Just play for a while, have fun, and try to deduce rules."
+	.GSTR STR?1174,"For one thing, everything is consistent. For example, every time you single-play the Seven of Plungers, you will get the same result."
+	.GSTR STR?1175,"So, if a particular play is illegal (the jester won't let you do it) that will always be true."
+	.GSTR STR?1176,"There are, however, far too many rules for you to ever learn them all. Also, when either player exceeds a score of 1241 points, the game ends in a tie."
+	.GSTR STR?1177,"You can cheat to your heart's content..."
+	.GSTR STR?1178,"...but to win, you need an indefensible gambit."
+	.GSTR STR?1179,"Sound familiar?"
+	.GSTR STR?1180,"Re-read your calendar."
+	.GSTR STR?1181,"Specifically, the bio of Babe Flathead."
+	.GSTR STR?1182,"Now that you know an indefensible gambit, wait for your opening and play it! (If any of the plays during your gambit are illegal, you're out of luck -- you'll just have to try again later.)"
+	.GSTR STR?1183,"Room of Three Doors"
+	.GSTR STR?1184,"Read the sign in the Warning Room. Also read each of the three doors."
+	.GSTR STR?1185,"This is just a straightforward logic puzzle. You must solve it every time you enter this room, because the signs on the doors are randomized each time."
+	.GSTR STR?1186,"Make a list of all six possible combinations of doors:  1) Wishyfoo - Prevaricon - Veritassi  2) W - V - P  3) V - W - P  4) V - P - W  5) P - W - V  6) P - V - W"
+	.GSTR STR?1187,"Now, using the rules from the sign in the Warning Room, and the facts on each of the three doors, test the six combinations. Only one combination will fit all the rules."
+	.GSTR STR?1188,"If you're still stuck, or want to save time in future visits to this area, here's a convenient rule: the door to Wishyfoo Territory is the one door whose sign mentions the Veritassi in statement #2."
+	.GSTR STR?1189,"royal yacht"
+	.GSTR STR?1190,"""You need nautical gear."""
+	.GSTR STR?1191,"Have you seen anything a sailor might wear?"
+	.GSTR STR?1192,"You must be wearing the seaman's cap from the Oubliette."
+	.GSTR STR?1193,"Pushing each of the four colored buttons will send you to a different shore. Pushing the white button will send you to the center of the lake."
+	.GSTR STR?1194,"bathysphere"
+	.GSTR STR?1195,"You must be in it."
+	.GSTR STR?1196,"You should close the door."
+	.GSTR STR?1197,"PUSH THE LEVER DOWN to lower the bathysphere."
+	.GSTR STR?1198,"The diving bell won't work when the yacht is docked at the shore, only when it's in the center of the lake."
+	.GSTR STR?1199,"that darn squid"
+	.GSTR STR?1200,"You won't be able to get that ruby until you deal with the squid."
+	.GSTR STR?1201,"Don't look any further until you've explored Port Foozle."
+	.GSTR STR?1202,"You need something from the Inquisition. See those hints."
+	.GSTR STR?1203,"The pellet of squid repellent. Read the instructions on the box."
+	.GSTR STR?1204,"You must get the pellet into the vicinity of the squid."
+	.GSTR STR?1205,"You can drop it in the Hold..."
+	.GSTR STR?1206,"...then go into the bathysphere and use the waldo to pick it up..."
+	.GSTR STR?1207,"...then drop it when you get to Lake Bottom. You'll then be able to pick up the ruby in the waldo, unmolested."
+	.GSTR STR?1208,"Aternately, you could throw the pellet off the yacht when you're in the center of the lake; it will sink to Lake Bottom."
+	.GSTR STR?1209,"Philharmonic Hall"
+	.GSTR STR?1210,"Something in the room's description is highlighted."
+	.GSTR STR?1211,"Or, should we say, ""spotlighted."""
+	.GSTR STR?1212,"The conductor's stand. STAND ON THE STAND."
+	.GSTR STR?1213,"To get back from the Conductor's Pit, get off the stand and then stand on it again."
+	.GSTR STR?1214,"Theatre"
+	.GSTR STR?1215,"There's nothing important here."
+	.GSTR STR?1216,"crossing the bridge"
+	.GSTR STR?1217,"Try CROSS THE BRIDGE."
+	.GSTR STR?1218,"There's no way to cross the stream. However, if you answer the jester's riddle here, you'll get the object that was on the other side of the stream."
+	.GSTR STR?1219,"riddle of the four men"
+	.GSTR STR?1220,"The men were not playing cards or any other kind of game. Reread the riddle with that in mind."
+	.GSTR STR?1221,"Key words are ""play"" and ""score."""
+	.GSTR STR?1222,"The men were musicians in a band. ANSWER ""MUSIC."""
+	.GSTR STR?1223,"riding the camel"
+	.GSTR STR?1224,"First, get on the camel."
+	.GSTR STR?1225,"Then, just type the direction you want to move in, as you normally do."
+	.GSTR STR?1226,"The camel will only enter the desert if ""watered."""
+	.GSTR STR?1227,"Ride the camel to the Stream. He will now be willing to enter the desert. Once in the desert, you must locate the Great Underground Oasis, which will be useful later."
+	.GSTR STR?1228,"riding the unicorn"
+	.GSTR STR?1229,"First, get on the unicorn."
+	.GSTR STR?1230,"It looks as if you can't ride a unicorn."
+	.GSTR STR?1231,"boulder"
+	.GSTR STR?1232,"Try PUSH THE BOULDER."
+	.GSTR STR?1233,"If you don't want to sink the yacht, leave it docked at the South Shore when you push the boulder."
+	.GSTR STR?1234,"bowl of elixir"
+	.GSTR STR?1235,"You can't drink the elixir without a straw."
+	.GSTR STR?1236,"There's a straw in the Kitchen, but if you've already tried, you know that it's deadly to drink the elixir. You want to do something else with the elixir."
+	.GSTR STR?1237,"You simply want to touch the elixir."
+	.GSTR STR?1238,"Since the bowl is so narrow, you can't reach the elixir -- at its current level."
+	.GSTR STR?1239,"But there's a way to raise the level of the elixir."
+	.GSTR STR?1240,"Have you ever gone DOWN from the Grotto?"
+	.GSTR STR?1241,"Put the gravel in the bowl."
+	.GSTR STR?1242,"Each of the first three times you slide down the chute from the Grotto, you'll get a pile of gravel. If you put all three in the bowl, the level of the elixir will be raised enough to touch it."
+	.GSTR STR?1243,"Now that you've touched the elixir, do you have a clue about what you've accomplished?"
+	.GSTR STR?1244,"The description you get from touching the elixir contains a clue. Also, look up St. Foobus in the encyclopedia."
+	.GSTR STR?1245,"The elixir has given you ""power over small insects."""
+	.GSTR STR?1246,"Such as flies."
+	.GSTR STR?1247,"You can now take all the flies."
+	.GSTR STR?1248,"getting to the lower ledge"
+	.GSTR STR?1249,"The spire is important."
+	.GSTR STR?1250,"You need to tie a rope to the spire."
+	.GSTR STR?1251,"You won't find a rope anywhere..."
+	.GSTR STR?1252,"...but you can ""make"" one..."
+	.GSTR STR?1253,"...using magic."
+	.GSTR STR?1254,"Have you found the magic wand? Read the hints about it."
+	.GSTR STR?1255,"Turn the snake into a rope, tie the rope to the spire, and climb down. The snake will only stay a rope for 16 turns, so you have few turns to waste."
+	.GSTR STR?1256,"Enchanted Cave"
+	.GSTR STR?1257,"Read about Zilbeetha in the encyclopedia."
+	.GSTR STR?1258,"You must find the orb in which Zilbeetha is imprisoned."
+	.GSTR STR?1259,"You'll find four orbs beyond the toll gate."
+	.GSTR STR?1260,"You must identify the correct orb or else (like many before you) you will die."
+	.GSTR STR?1261,"There's a location somewhere in Zork Zero where the true essence of a magically-imbued item can be seen."
+	.GSTR STR?1262,"It's somewhere ""beyond"" the oracle."
+	.GSTR STR?1263,"It's the Mirror Lake below the Glacier."
+	.GSTR STR?1264,"Look at each of the orbs in the mirror."
+	.GSTR STR?1265,"Now return to the Enchanted Cave with Zilbeetha's orb and place it on the altar. The fragile flower is your prize."
+	.GSTR STR?1266,"hexagonal hole"
+	.GSTR STR?1267,"Most likely, when you're able to solve this puzzle, you'll know it."
+	.GSTR STR?1268,"You must get a hexagonal block from somewhere in Fenshire."
+	.GSTR STR?1269,"By solving the borphbelly stew puzzle."
+	.GSTR STR?1270,"Put the hexagonal block into the hexagonal hole."
+	.GSTR STR?1271,"getting back to Flatheadia"
+	.GSTR STR?1272,"There are a couple of ways. One involves something from the lake area."
+	.GSTR STR?1273,"It something which has an obvious link with the oracle."
+	.GSTR STR?1274,"It's the amulet from the Great Underground Mountain. (See the oracle hints.)"
+	.GSTR STR?1275,"To get back, you simply need to rub the amulet..."
+	.GSTR STR?1276,"...while wearing it."
+	.GSTR STR?1277,"The other method involves the pigeon and perch. See those hints."
+	.GSTR STR?1278,"Just leave the pigeon somewhere in Flatheadia, bring the pigeon with you when you enter the oracle, and use it to teleport back."
+	.GSTR STR?1279,"surviving the climb down"
+	.GSTR STR?1280,"You'll never make it on foot."
+	.GSTR STR?1281,"You must ride something."
+	.GSTR STR?1282,"The toboggan from the Kennel."
+	.GSTR STR?1283,"mirror"
+	.GSTR STR?1284,"The mirror has certain magical properties."
+	.GSTR STR?1285,"LOOK AT THE MIRROR."
+	.GSTR STR?1286,"As suggested by the previous response, look at the reflection of various things in the mirror."
+	.GSTR STR?1287,"The mirror reveals the unseen essence of magically-imbued items, such as the amulet, pigeon, wand, etc."
+	.GSTR STR?1288,"You'll need the mirror to solve a puzzle which you'll come across elsewhere."
+	.GSTR STR?1289,"Specifically, the Enchanted Cave puzzle."
+	.GSTR STR?1290,"Chalet"
+	.GSTR STR?1291,"To get to Frank Lloyd Flathead's chalet, you have to get off Mirror Lake."
+	.GSTR STR?1292,"In addition to its magical properties, the lake also seems to be a frictionless surface, making walking impossible."
+	.GSTR STR?1293,"Other methods of propulsion are possible, though."
+	.GSTR STR?1294,"Throw something. You can pick a direction, if you like, and you'll go in the opposite direction. Otherwise, you'll go in a random direction. For example, THROW TOBOGGAN NORTH."
+	.GSTR STR?1295,"Help! I'm lost"
+	.GSTR STR?1296,"There's a common method in interactive fiction for mapping maze-like regions. It's a way to make seemingly identical rooms non-identical."
+	.GSTR STR?1297,"Drop a different object in each room. Then you'll be able to map the geography with no trouble!"
+	.GSTR STR?1298,"Delta locations will appear on the on-screen map only if you've dropped an object there."
+	.GSTR STR?1299,"toad and spyglass"
+	.GSTR STR?1300,"You must ask the toad for the spyglass."
+	.GSTR STR?1301,"But he'll only allow himself to be addressed by his proper name. You must find out his name."
+	.GSTR STR?1302,"Look to your packaging."
+	.GSTR STR?1303,"More specifically, the calendar."
+	.GSTR STR?1304,"More specifically, the biography on John Paul Flathead."
+	.GSTR STR?1305,"Now that you know the toad's name, ask him for the spyglass."
+	.GSTR STR?1306,"The flies which you've probably run across in various places are the Four Fantastic Flies of Famathria. See the hints in General Questions about the flies."
+	.GSTR STR?1307,"Once you've gotten all four flies, give them to the toad and ask him again for the spyglass."
+	.GSTR STR?1308,"riddle of the lily pad"
+	.GSTR STR?1309,"Read the riddle again carefully, noting the various puns and allusions."
+	.GSTR STR?1310,"The key words are ""fool,"" ""nonsense,"" and ""wildebeest."""
+	.GSTR STR?1311,"There's no riddle of the lily pad. You shouldn't have even been looking at these hints!"
+	.GSTR STR?1312,"opening Megaboz's trap door"
+	.GSTR STR?1313,"You can't reach it without help."
+	.GSTR STR?1314,"There's a ladder elsewhere in the game."
+	.GSTR STR?1315,"In Fenshire."
+	.GSTR STR?1316,"See the hints about the vase."
+	.GSTR STR?1317,"Once you have the ladder, put it down, stand on it, and open the trap door."
+	.GSTR STR?1318,"opening Megaboz's trunk"
+	.GSTR STR?1319,"The poem in Megaboz's hut is the key to finding the key."
+	.GSTR STR?1320,"You must find the words to fill in the blanks."
+	.GSTR STR?1321,"The blank words come from the rebus. See those hints."
+	.GSTR STR?1322,"As the complete poem indicates, you must stand in a shade of a tired pine. Find it."
+	.GSTR STR?1323,"It's at the Quarry's Edge. You must be in the Quarry to be in the tree's shadow."
+	.GSTR STR?1324,"Furthermore, you must be wearing the ring of ineptitude from the Magic Shop (in Flatheadia) and carrying the sapphire from the iron mine (near the Crag)."
+	.GSTR STR?1325,"If you've satisfied those three conditions, a key will appear that will open the trunk."
+	.GSTR STR?1326,"getting the four-gloop vial"
+	.GSTR STR?1327,"There's no way without getting zapped with the hunger spell."
+	.GSTR STR?1328,"You'll have to find something to eat."
+	.GSTR STR?1329,"There's nothing in the entire game that's edible by a human (except the walnut, which isn't enough for a meal)."
+	.GSTR STR?1330,"But there are several things which are edible by animals."
+	.GSTR STR?1331,"Too bad you're not an animal."
+	.GSTR STR?1332,"For example, if you were a flamingo, you could eat the flamingo food from the closet near the Gallery."
+	.GSTR STR?1333,"See the hints about the booths in the Laboratory..."
+	.GSTR STR?1334,"...and about the wand."
+	.GSTR STR?1335,"toe fungus"
+	.GSTR STR?1336,"Have you seen any other fungus?"
+	.GSTR STR?1337,"Remember these two groups of fungi; they'll be important later."
+	.GSTR STR?1338,"See the hints about the witches in the Antharia section."
+	.GSTR STR?1339,"entering the mine and surviving"
+	.GSTR STR?1340,"Yes. You'll need something, though. Look to your packaging for inspiration."
+	.GSTR STR?1341,"You'll need the hardhat that's mentioned in the note attached to your blueprint. See the hints about the construction site."
+	.GSTR STR?1342,"picking up the club"
+	.GSTR STR?1343,"It's enchanted."
+	.GSTR STR?1344,"You need the help of others."
+	.GSTR STR?1345,"Met the witches in the Icky Cave? If not, read the TID BITZ from Ottobur (on your calendar) to find out how to summon them."
+	.GSTR STR?1346,"Try speaking to the witches. If you do what they want, they'll remove the enchantment on the club."
+	.GSTR STR?1347,"that darn black bird"
+	.GSTR STR?1348,"There's no way to keep the bird from snatching your light source."
+	.GSTR STR?1349,"But the bird will only snatch one light source for each turn you're in the Aerie."
+	.GSTR STR?1350,"So, if you had two light sources, and didn't dawdle, you could get light into the cave."
+	.GSTR STR?1351,"Bring both the candle from the Secret Passage and the brass lantern from the Pits."
+	.GSTR STR?1352,"Once you're in the Icky Cave with a light source, consult the Ottobur TID BITZ (in the calendar from your package) to learn how to summon the witches."
+	.GSTR STR?1353,"helping the witches, part 1"
+	.GSTR STR?1354,"Talk to either witch. Example: SICKLY WITCH, HELLO."
+	.GSTR STR?1355,"To fulfill the witches' task, you'll need to get to the Great Underground Oasis. It's beyond the desert to the south of Lake Flathead. See the hints about the desert."
+	.GSTR STR?1356,"It's impossible to measure exactly six gloops using only the nine-gloop vial, since the vial isn't calibrated. You need something else."
+	.GSTR STR?1357,"You need the four-gloop vial from Gumboz's Shack in the Fublio Valley. See the hints about getting that vial."
+	.GSTR STR?1358,"Once you have both vials at the oasis, use the following procedure. (The numbers in brackets refer to the number of gloops that will be in the large and small vials after each step.) 1) fill the large vial [L:9,S:0] 2) pour the large vial into the small vial [L:5,S:4] 3) empty the small vial [L:5,S:0] 4) pour the large vial into the small vial [L:1,S:4] 5) empty the small vial [L:1,S:0] 6) pour the large vial into the small vial [L:0,S:1] 7) fill the large vial [L:9,S:1] 8) pour the large vial into the small vial [L:6,S:4]"
+	.GSTR STR?1359,"To get the large vial with six gloops back to the witches, you'll have to use the yacht to cross the lake, since taking the chute from the Grotto will spill the oasis water."
+	.GSTR STR?1360,"helping the witches, part 2"
+	.GSTR STR?1361,"Once you've given water to the witches, you'll discover that they need something else: brogmoid ear wax. Have you seen a brogmoid ear anywhere?"
+	.GSTR STR?1362,"Climb down the one pit that remains open in Pits after you throw the bomb. You'll eventually meet the giant brogmoid who holds up the world. But the passage into his ear is blocked by fungus."
+	.GSTR STR?1363,"There's a way to get the fungus to part. It involves magic."
+	.GSTR STR?1364,"If you haven't solved the Tower of Bozbar, see those hints."
+	.GSTR STR?1365,"The potion from the left-hand Pyramid Room is useful. If you don't know what it does, your calendar might be helpful."
+	.GSTR STR?1366,"Read the bio of Thomas Alva."
+	.GSTR STR?1367,"Fungus is a plant."
+	.GSTR STR?1368,"At the Ear, drink the potion and listen to the fungus."
+	.GSTR STR?1369,"The fungus would probably be very appreciative if you were to restore their long-lost cousin. Have you seen any other fungus?"
+	.GSTR STR?1370,"Have you been to Fublio Valley?"
+	.GSTR STR?1371,"Keep climbing up into the mountains, and you'll eventually get to the foot of the giant brogmoid who holds up the ""next"" world. There's more fungus there."
+	.GSTR STR?1372,"Drink more potion, then call the name of the lost cousin. [Note: this name changes each time you play.] For example, >CALL RALPH."
+	.GSTR STR?1373,"Take the little fungus, return to the Ear, and give it to the ear fungus. Now, go IN to the Inner Ear to get the ear wax."
+	.GSTR STR?1374,"Bring the ear wax back to the witches and give it to them. They will now remove the enchantment..."
+	.GSTR STR?1375,"...and the club in the stadium is now takeable!"
+	.GSTR STR?1376,"travelling in time"
+	.GSTR STR?1377,"You must be in the metal cage."
+	.GSTR STR?1378,"You select a destination year using the beaver pelts."
+	.GSTR STR?1379,"Don't forget to say the magic word, GEEKO."
+	.GSTR STR?1380,"stopping the Endless Fire"
+	.GSTR STR?1381,"Have you been to Outside the Tavern?"
+	.GSTR STR?1382,"Examine the utility pole."
+	.GSTR STR?1383,"That red box is a fire alarm. Pull it."
+	.GSTR STR?1384,"The firemen will leave after seven turns unless you give them the glass wombat."
+	.GSTR STR?1385,"the moss salesman"
+	.GSTR STR?1386,"Don't read on until you've been the to Moss Farm."
+	.GSTR STR?1387,"Are you aware that hedgehogs love moss?"
+	.GSTR STR?1388,"Are you aware that diamonds come from coal?"
+	.GSTR STR?1389,"Are you aware that good dental hygiene prevents cavities?"
+	.GSTR STR?1390,"Are you aware that there's no moss salesman in Zork Zero? Are you aware that there isn't even a scene in Mareilon? Are you aware that you shouldn't be reading this section? Are you aware?"
+	.GSTR STR?1391,"returning to Flatheadia"
+	.GSTR STR?1392,"You get back the same way you got here to Mareilon."
+	.GSTR STR?1393,"In other words, fantasize!"
+	.GSTR STR?1394,"fireplace"
+	.GSTR STR?1395,"If you could clean out the rubble, you might be able to climb up the chimney."
+	.GSTR STR?1396,"But you can't clean out the rubble."
+	.GSTR STR?1397,"This space intentionally left blank."
+	.GSTR STR?1398,"mural"
+	.GSTR STR?1399,"Nice picture of a ladder, eh?"
+	.GSTR STR?1400,"vase"
+	.GSTR STR?1401,"What do you normally use a vase for?"
+	.GSTR STR?1402,"Seen a flower?"
+	.GSTR STR?1403,"You can get a flower if you solve the Enchanted Cave puzzle. Put the flower in the vase."
+	.GSTR STR?1404,"It's a math puzzle."
+	.GSTR STR?1405,"The number of pebbles in each pile can be translated into a binary form: 0=0, 1=1, 2=10, 3=11, 4=100, 5=101, 6=110, 7=111, 8=1000, 9=1001. Then, add the four resulting numbers as though they were in base 10, not base 2. This sum should then be adjusted so that each digit is even (0, 2 or 4). Examine the four binary numbers, and determine which one must be reduced in order to create a sum whose digits are all even. Next, determine the number of pebbles you need to take from the appropriate pile in order to achieve the new binary number which will result in the all-even sum. That's your correct move for the current turn! For example, if you had piles of 7, 3, 9, and 2 pebbles, the binary equivalents would be 111, 11, 1001, and 10. The non-binary sum of those four numbers is 1133. If 1001 were reduced to 110, the new sum would be 242 -- all digits even! In order to change 1001 (binary 9) to 110 (binary 6), remove 3 pebbles from pile 3. It's that simple!"
+	.GSTR STR?1406,"Some of you may be just a tad confused. Take heart! There's also a non-mathematical solution!"
+	.GSTR STR?1407,"As you play, watch the screen carefully."
+	.GSTR STR?1408,"Specifically, keep an eye on the blossoms."
+	.GSTR STR?1409,"Notice how they are constantly opening and closing. Notice any pattern?"
+	.GSTR STR?1410,"How many flowers are on each side?"
+	.GSTR STR?1411,"The four flowers on the left side are telling you (or the jester) which pile to select. The nine flowers on the right side indicate how many pebbles to remove from that pile."
+	.GSTR STR?1412,"If there's no ""correct"" move to make, all the blossoms will be closed. However, since you get to go first, if you keep making the ""correct"" move every turn, it will be the jester who will never have a ""correct"" move, and you will win every time!"
+	.GSTR STR?1413,"borphbelly stew"
+	.GSTR STR?1414,"To find out the ingredients, look up borphbelly stew in the encyclopedia."
+	.GSTR STR?1415,"Bring the three ingredients to the Marsh. The rooster and fox can be found on the far side of the lake, and the worm is found just beyond the castle portcullis."
+	.GSTR STR?1416,"If the jester has crossed the quicksand, you've got to bring the ingredients to him. But you can only carry one thing at a time across the rocks. Worse, the fox will eat the rooster if you leave them alone, and the rooster will eat the worm if you leave them alone."
+	.GSTR STR?1417,"Drop everything but the rooster. Cross the quicksand. Drop the rooster. Go back and get the fox. Cross the quicksand. Drop the fox and get the rooster..."
+	.GSTR STR?1418,"Go back, drop the rooster, and get the worm. Cross the quicksand and drop the worm. Finally, go back and get the rooster!"
+	.GSTR STR?1419,"explain the geography"
+	.GSTR STR?1420,"Walk around as much as you can, making a map and noticing how the descriptions change and the characters you meet."
+	.GSTR STR?1421,"You seem to be in a region of 64 locations..."
+	.GSTR STR?1422,"...arranged in an 8 by 8 matrix..."
+	.GSTR STR?1423,"...with alternating locations dark and light..."
+	.GSTR STR?1424,"...and various dark- and light-colored royal and martial characters."
+	.GSTR STR?1425,"You are on a giant chessboard."
+	.GSTR STR?1426,"explain the puzzle"
+	.GSTR STR?1427,"Don't read on until you understand the geography."
+	.GSTR STR?1428,"Although you're on a giant chessboard, this isn't a chess puzzle. (That is, you don't have to figure out how to checkmate one of the kings or whatever.) But you do need to know how chess pieces move."
+	.GSTR STR?1429,"Actually, there's no puzzle on the Plain at all; but the Plain DOES relate to another puzzle elsewhere in Zork Zero."
+	.GSTR STR?1430,"Have you seen a geography which is similar to the Plain?"
+	.GSTR STR?1431,"How many rooms are there in the Plain?"
+	.GSTR STR?1432,"There are also 64 rooms, arranged in a 8 by 8 matrix, in the Construction area! See those hints."
+	.GSTR STR?1433,"getting back from the Plain"
+	.GSTR STR?1434,"How did you get here?"
+	.GSTR STR?1435,"Just remove the cloak!"
+	.GSTR STR?1436,"read this note about riddles!"
+	.GSTR STR?1437,"Riddle hints are in the sections relating to the location where you're asked the riddle."
+	.GSTR STR?1438,"killing the jester"
+	.GSTR STR?1439,"You can't. There's no way to get the jester to leave you alone. In fact, you wouldn't want him to -- he does some useful things as well as annoying things."
+	.GSTR STR?1440,"scroll"
+	.GSTR STR?1441,"The scroll is a word puzzle."
+	.GSTR STR?1442,"Try rearranging the letters in ""RAM A NAG."""
+	.GSTR STR?1443,"They rearrange to ""ANAGRAM,"" of which this message is an example."
+	.GSTR STR?1444,"The scroll anagrams to ""ENTER LIBRARY; TOUCH ARMOR THRICE."" So -- do so!"
+	.GSTR STR?1445,"slate"
+	.GSTR STR?1446,"The first step is finding the tree in question. The dusty old slate refers to the tree as the oldest elm around."
+	.GSTR STR?1447,"Examine the slate."
+	.GSTR STR?1448,"The slate itself is very old!"
+	.GSTR STR?1449,"So, you're looking for what was the oldest elm tree around...a century ago!"
+	.GSTR STR?1450,"The elm in question has since died..."
+	.GSTR STR?1451,"...and is now the stump in the Outer Bailey."
+	.GSTR STR?1452,"Stand on the stump and follow the instructions on the slate (these directions vary each time you play). You've now identified a spot."
+	.GSTR STR?1453,"But, as you can tell by the fact that nothing happened, you're not done yet. Do these directions remind you of any sort of classic directions?"
+	.GSTR STR?1454,"They're just like the directions you might expect to find on a map leading to buried treasure!"
+	.GSTR STR?1455,"Once you've obtained the shovel from Wishyfoo Territory, follow the slate directions from the stump and dig a hole in the ground."
+	.GSTR STR?1456,"that pesky bedbug"
+	.GSTR STR?1457,"Re-read the jester's parting comment for a clue."
+	.GSTR STR?1458,"Also, examine the bedbug."
+	.GSTR STR?1459,"The bedbug is very, very tired."
+	.GSTR STR?1460,"You need to put it to sleep."
+	.GSTR STR?1461,"How would you normally put someone or something to sleep? Like a child, for instance..."
+	.GSTR STR?1462,"Try singing a lullaby, or yawning, or lying down, or going to sleep yourself..."
+	.GSTR STR?1463,"Alternately, you could use the wand, but that would waste precious wand shots."
+	.GSTR STR?1464,"funny paper"
+	.GSTR STR?1465,"Read it."
+	.GSTR STR?1466,"Once you've gotten to the Crypt, look under the slab mentioned in the funny paper! (The slab in question changes each time you play.)"
+	.GSTR STR?1467,"permanent light source"
+	.GSTR STR?1468,"Forget the torches. They'll always burn out right away. Look elsewhere."
+	.GSTR STR?1469,"You software pirates might as well give up now."
+	.GSTR STR?1470,"Peruse your Lives of the Twelve Flatheads calendar."
+	.GSTR STR?1471,"Especially the Suspendur FUN FAX."
+	.GSTR STR?1472,"Do what this FUN FAX suggests, in order to find Dimwit's secret wing. You'll find a light source there. (Note: there are two locations where you could perform this act -- so try them both!)"
+	.GSTR STR?1473,"goal of the game"
+	.GSTR STR?1474,"The key to stopping the Curse is contained on the scrap of parchment which fell out of Megaboz's pocket (and which is enclosed in your Zork Zero package). Read it carefully."
+	.GSTR STR?1475,"Only the long piece of writing toward the left-center of the scrap is important -- but some of it is cut off."
+	.GSTR STR?1476,"This missing text is:
+   The Curse cannot...
+   Except by...
+   Tossing it...
+   Then...
+"
+	.GSTR STR?1477,"Good luck, Blackbeard."
+	.GSTR STR?1478,"all those key-shaped buttons"
+	.GSTR STR?1479,"Try pushing them, of course!"
+	.GSTR STR?1480,"The first time you push a button, it produces a sound. Do these sounds remind you of anything?"
+	.GSTR STR?1481,"The sounds are like the sounds made by certain animals..."
+	.GSTR STR?1482,"...specifically, the animals covering the rebus!"
+	.GSTR STR?1483,"Each time you push a button, one of the rebus animals will go away. There are six buttons, corresponding to the six animals, located in the Closet, the FrobozzCo Basement, the Grotto, the Crag, the Crawl, and the Attic."
+	.GSTR STR?1484,"getting the flies"
+	.GSTR STR?1485,"You can't catch them, even with the added help of the Frobozz Magic Glove."
+	.GSTR STR?1486,"You need to do something magical before you can get the flies. You'll probably know it when you come to it."
+	.GSTR STR?1487,"See the hints about the elixir in the Lake Area section."
+	.GSTR STR?1488,"read this note first"
+	.GSTR STR?1489,"Use this section as a last resort if you can't find the information you need anywhere else in the hints. The first part is a list of the 24 items you need, and where to find them. The second and third parts are a list of how all 1000 points are scored."
+	.GSTR STR?1490,"the Flathead Items, part 1"
+	.GSTR STR?1491,"The following hints each tell you everything you need to know about one Flathead Item: what it is, which Flathead it belongs to, and where to find it."
+	.GSTR STR?1492,"gaudy crown (Dimwit): buried in the Outer Bailey according to the slate puzzle"
+	.GSTR STR?1493,"sceptre (Dimwit): in the Throne Room"
+	.GSTR STR?1494,"diploma (John D.): solving the riddle at the Stream"
+	.GSTR STR?1495,"stock certificate (John D.): in the Vault"
+	.GSTR STR?1496,"saddle (Stonewall): in the Stable"
+	.GSTR STR?1497,"lance (Stonewall): inside the armor in the Library according the the scroll puzzle"
+	.GSTR STR?1498,"violin (Johann Sebastian): in the Conductor's Pit"
+	.GSTR STR?1499,"metronome (Johann Sebastian): hidden in the Torture Chamber"
+	.GSTR STR?1500,"zorkmid bill (J. Pierpont): winning the shell game in the Gaming Room."
+	.GSTR STR?1501,"silk tie (J. Pierpont): in the nest in the Aerie"
+	.GSTR STR?1502,"screwdriver (Thomas Alva): in the Laboratory"
+	.GSTR STR?1503,"brass lantern (Thomas Alva): in the Pits"
+	.GSTR STR?1504,"the Flathead Items, part 2"
+	.GSTR STR?1505,"landscape (Leonardo): on the Lower Ledge"
+	.GSTR STR?1506,"easel (Leonardo): also on the Lower Ledge"
+	.GSTR STR?1507,"flask (Lucrezia): behind the cobwebs in the Cell"
+	.GSTR STR?1508,"fan (Lucrezia): winning Snarfem in the Hothouse"
+	.GSTR STR?1509,"manuscript (Ralph Waldo): in the rightmost Pyramid Room which can be accessed by solving the Tower of Bozbar to the right peg"
+	.GSTR STR?1510,"quill pen (Ralph Waldo): in a Dead End of the granola mine"
+	.GSTR STR?1511,"seaman's cap (John Paul): in the Oubliette"
+	.GSTR STR?1512,"spyglass (John Paul): in one of the Delta rooms"
+	.GSTR STR?1513,"scale model (Frank Lloyd): in the Chalet"
+	.GSTR STR?1514,"t-square (Frank Lloyd): in the room of the FrobozzCo Building where Frank Lloyd had to move his office to due to acrophobia, according to his bio in the calendar"
+	.GSTR STR?1515,"club (Babe): in Flathead Stadium"
+	.GSTR STR?1516,"dumbbell (Babe): in the Gym"
+	.GSTR STR?1517,"how all points are scored, part 1"
+	.GSTR STR?1518,"The list of points is broken down into four parts due to length. The hints in each part tell all the places in which your score increases, and the number of points (in parentheses)."
+	.GSTR STR?1519,"You get 12 points for getting each of the Flathead Items (12 x 24 = 288)"
+	.GSTR STR?1520,"You get 5 points for putting each Flathead Item in the ""right place"" (see ""goal of the game"") (5 x 24 = 120). You will also LOSE 5 points if you put anything OTHER than a Flathead Item in the ""right place."""
+	.GSTR STR?1521,"opening the portcullis (20)"
+	.GSTR STR?1522,"opening the Secret Passage (18)"
+	.GSTR STR?1523,"getting the iron key (20)"
+	.GSTR STR?1524,"leaving the Oubliette (20)"
+	.GSTR STR?1525,"entering the East Wing (8)"
+	.GSTR STR?1526,"entering the West Wing (8)"
+	.GSTR STR?1527,"winning Peggleboz (16)"
+	.GSTR STR?1528,"entering the center Pyramid Room (7)"
+	.GSTR STR?1529,"entering the left Pyramid Room (7)"
+	.GSTR STR?1530,"entering the right Pyramid Room (7)"
+	.GSTR STR?1531,"[continued in part 2]"
+	.GSTR STR?1532,"how all points are scored, part 2"
+	.GSTR STR?1533,"[continued from part 1]"
+	.GSTR STR?1534,"solving the walnut riddle (20)"
+	.GSTR STR?1535,"getting the zorkmid coin (6)"
+	.GSTR STR?1536,"opening the toll gate (14)"
+	.GSTR STR?1537,"entering Wishyfoo Territory (6)"
+	.GSTR STR?1538,"getting out of the Inquisition (25)"
+	.GSTR STR?1539,"winning Double Fanucci (18)"
+	.GSTR STR?1540,"getting the anti-pit bomb (6)"
+	.GSTR STR?1541,"reaching the center of Lake Flathead (18)"
+	.GSTR STR?1542,"pushing the boulder (6)"
+	.GSTR STR?1543,"getting the moby ruby (25)"
+	.GSTR STR?1544,"reaching the Oracle (10)"
+	.GSTR STR?1545,"putting the ruby in the depression (9)"
+	.GSTR STR?1546,"[continued in part 3]"
+	.GSTR STR?1547,"how all points are scored, part 3"
+	.GSTR STR?1548,"[continued from part 2]"
+	.GSTR STR?1549,"reaching the Crag (10)"
+	.GSTR STR?1550,"reaching the Glacier (10)"
+	.GSTR STR?1551,"reaching the Delta (10)"
+	.GSTR STR?1552,"reaching the Foot of Statue (10)"
+	.GSTR STR?1553,"reaching the Mine Entrance (10)"
+	.GSTR STR?1554,"throwing something at Mirror Lake (14)"
+	.GSTR STR?1555,"getting the flower (25)"
+	.GSTR STR?1556,"reaching the Smaller Hangar (6)"
+	.GSTR STR?1557,"entering the Secret Room at Fenshire (16)"
+	.GSTR STR?1558,"solving the borphbelly stew puzzle (9)"
+	.GSTR STR?1559,"[continued in part 4]"
+	.GSTR STR?1560,"how all points are scored, part 4"
+	.GSTR STR?1561,"[continued from part 3]"
+	.GSTR STR?1562,"entering the Iron Mine (14)"
+	.GSTR STR?1563,"abating your hunger (20)"
+	.GSTR STR?1564,"reaching the Great Underground Oasis (8)"
+	.GSTR STR?1565,"entering the Plain (16)"
+	.GSTR STR?1566,"getting the hardhat (25)"
+	.GSTR STR?1567,"entering the Rubble Room and surviving (9)"
+	.GSTR STR?1568,"entering the Inner Ear (18)"
+	.GSTR STR?1569,"touching the elixir (16)"
+	.GSTR STR?1570,"getting the rusty key (14)"
+	.GSTR STR?1571,"entering the Attic (8)"
+	.GSTR STR?1572,"winning the game (30)"
+	.GSTR STR?1573,"These are for your amusement after you have completed Zork Zero. We recommend against looking at these before finishing, since many of them give away the answers to various puzzles."
+	.GSTR STR?1574,"things to try around Flatheadia"
+	.GSTR STR?1575,"Examine the tables in the Banquet Hall during the prologue."
+	.GSTR STR?1576,"Try eating the lobster."
+	.GSTR STR?1577,"Try entering the fish tank after trying to take it. Or, after restarting, try to take the fish tank after trying to enter it."
+	.GSTR STR?1578,"Try to close the walnut shell after opening it."
+	.GSTR STR?1579,"Put the drinking straw in your mouth."
+	.GSTR STR?1580,"Climb down the banner from the Balcony."
+	.GSTR STR?1581,"Drop the cannonball through the murder hole in the Upper Barbican, while you're holding a lit candle."
+	.GSTR STR?1582,"Try to enter the moat. Now, wait until the jester turns you into an alligator then enter the moat."
+	.GSTR STR?1583,"Climb to the 400th floor of the FrobozzCo Building."
+	.GSTR STR?1584,"Drop something through the machicolation in the Parapet."
+	.GSTR STR?1585,"Try killing the giant spiders in the Cell."
+	.GSTR STR?1586,"Use the Testing Room booths to turn yourself into a violin. Then DIAGNOSE."
+	.GSTR STR?1587,"Read the inscription on the toboggan."
+	.GSTR STR?1588,"Look inside the camel. And at the South Shore, type CAMEL, DRINK WATER."
+	.GSTR STR?1589,"At Hanging from Roots, let go."
+	.GSTR STR?1590,"Talk to the giant brogmoid."
+	.GSTR STR?1591,"fun at Fenshire"
+	.GSTR STR?1592,"Leave the Gondola in mid-flight."
+	.GSTR STR?1593,"Try to clean the fireplace in the Ruined Hall."
+	.GSTR STR?1594,"Try to put something into the Borphbelly Stew cookpot."
+	.GSTR STR?1595,"stuff to try the beyond the oracle"
+	.GSTR STR?1596,"Try to wake the statue in the Enchanted Cave."
+	.GSTR STR?1597,"Look at the reflection of the following things in Mirror Lake: the candle, the magic wand, the flask, the cloak, the glove, the goggles, the pigeon, the perch, the amulet, the jester, the potion, the sapphire, the scrap of parchment, one of the magic passages, and a chesspiece."
+	.GSTR STR?1598,"Answer YES when Otto asks ""Do you think you own this swamp?"""
+	.GSTR STR?1599,"Play the harmonica."
+	.GSTR STR?1600,"Clean the rusty key, then read it."
+	.GSTR STR?1601,"Enter the Icky Cave, for the first time, with no light source, then cough."
+	.GSTR STR?1602,"Swing the bat...three times."
+	.GSTR STR?1603,"Taste, smell, touch, then step in the granola in the granola mines."
+	.GSTR STR?1604,"fun with magic"
+	.GSTR STR?1605,"Point the wand at a chess piece, the bedbug, a fly, the giant brogmoid, the jester, one of the witches, the executioner, a unicorn, and Otto. (In Otto's case, wait around until the magic wears off.)"
+	.GSTR STR?1606,"Listen to the various elm trees, the birch, the pine, the spenseweed, the large and small lily pads, the flower, and the roots below the world (after drinking the potion, of course)."
+	.GSTR STR?1607,"Drop the perch out of the Gondola in mid-air, or into the abyss from Under the World, or into the Oubliette, or over the fence at North of Anthar... and then pigeon to it."
+	.GSTR STR?1608,"Put a chess piece at (for example) Foot of Statue, then return to the Oracle. Holding the perch, put the pigeon in the oracle's mouth."
+	.GSTR STR?1609,"Carry the pigeon and perch into the Inquisition after leaving a chess piece out in the Fishing Village."
+	.GSTR STR?1610,"Carry the cloak into the Inquisition."
+	.GSTR STR?1611,"Smash the four orbs."
+	.GSTR STR?1612,"Try to install a magic passage in one of the walls of the bathysphere or dirigible."
+	.GSTR STR?1613,"Instead of going though the gates at the Perimeter Wall, stay in the castle when it turns into the white house."
+	.GSTR STR?1614,"things to try anywhere"
+	.GSTR STR?1615,"Cough anywhere besides the Icky Cave."
+	.GSTR STR?1616,"Type DATE."
+	.GSTR STR?1617,"When you're over 1000 turns, type TIME."
+	.GSTR STR?1618,"Count your eyes."
+	.GSTR STR?1619,"Try to remove your hand (other than when it's in the waldo hole)."
+	.GSTR STR?1620,"Sing a lullaby when no one (including the bedbug) is around. Sing it when the jester is around. SING A LULLABY TO (an inanimate object)."
+	.GSTR STR?1621,"Turn around."
+	.GSTR STR?1622,"Look through any keyhole."
+	.GSTR STR?1623,"For Zork Trilogy players: type HELLO SAILOR."
+	.GSTR STR?1624,"fun things to do with the jester"
+	.GSTR STR?1625,"Examine the jester while wearing the goggles."
+	.GSTR STR?1626,"When the jester is preventing you from entering the Dirigible Hangar, teleport him away using the pigeon, then go west again."
+	.GSTR STR?1627,"Wait for the jester to appear: at the Pits, before you've sealed them up; at the Icky Cave; at the Delta location where Otto sits; at the Testing Room while you're turned into something."
+	.GSTR STR?1628,"Wait at the Hold for the jester to appear, then enter the diving bell and use the waldo to pick up the jester."
+	.GSTR STR?1629,"Type TIP THE JESTER."
+	.GSTR STR?1630,"encyclopedia entries"
+	.GSTR STR?1631,"The illustrated entries are: Dimwit Flathead, Megaboz, Flatheadia, the FrobozzCo Building, Brogmoidism, Zilbeetha, the Jester, and the Four Fantastic Flies of Famathria."
+	.GSTR STR?1632,"You can read about the following people: Boswell Barwell, Frobesius Fublius, Entharion, Korboz, Gumboz, the Wizard of Frobozz, Zorbius Blattus, Zylo Pickthorn, Belboz, Davmar, Duncanthrax, Wurb Flathead, Ursula Flathead, Saint Foobus, Saint Bovus, Saint Quakko, Saint Wiskus, Saint Honko, and Saint Balhu."
+	.GSTR STR?1633,"You can look up the following places: Fublio Valley, Fenshire, Quilbozza Beach, the Flathead Ocean, Frigid River, Frigid River Valley, Mirror Lake, Eastlands, Westlands, Froblo Park, Borphee, Pheebor, Flood Control Dam #3, Lake Flathead, Largoneth Castle, Egreth Castle, Mount Foobia, Land of Shadow, Rockville Estates, Royal Museum, Mareilon, Antharia, Flathead Stadium, Gray Mountains, Flathead Mountains, Zorbel Pass, Thriff, Gurth, Miznia, Mithicus, Fields of Frotzen, Port Foozle, Frobozz, Aragain Falls, Flathead Fjord, and the Great Underground Empire."
+	.GSTR STR?1634,"There are entries on the following events: Diablo Massacre, Zucchini Wars, Treaty of Znurg, Battle of Ragweed Gulch, Endless Fire, and Granola Riots."
+	.GSTR STR?1635,"You'll find moderately interesting entries on these items: Peggleboz, Tower of Bozbar, Snarfem, Double Fanucci, Oracle of Bargth, Inquisition, Encyclopedia Frobozzica, Borphbelly Stew, Jewel of Jerrimore, zorkmid, bloit, chess, the Curse, Curse Day, brogmoid, grue, hellhound, Mithican chameleon, Polar Gumffbeast, spenseweed, fungus, Wishyfoo, Prevaricon, Veritassi, Great Underground Highway, FrobozzCo International, Enchanters Guild, magic potion, magic wand, and rebus."
+	.GSTR STR?1636,"Don't forget to try to READ ABOUT ME."
+	.GSTR STR?1637,"Finally, the hopelessly fannish among you can look up Zork, Infocom, and Steve Meretzky."
+	.GSTR STR?1638,"PROLOGUE"
+	.GSTR STR?1639,"GREAT HALL AREA"
+	.GSTR STR?1640,"EAST WING"
+	.GSTR STR?1641,"WEST WING"
+	.GSTR STR?1642,"SECRET WING"
+	.GSTR STR?1643,"BAILEY/VILLAGE AREA"
+	.GSTR STR?1644,"LOWER LEVELS"
+	.GSTR STR?1645,"G. U. HIGHWAY"
+	.GSTR STR?1646,"PORT FOOZLE"
+	.GSTR STR?1647,"LAKE/DESERT AREA"
+	.GSTR STR?1648,"CRAG & ENVIRONS"
+	.GSTR STR?1649,"GLACIER"
+	.GSTR STR?1650,"DELTA"
+	.GSTR STR?1651,"FUBLIO VALLEY"
+	.GSTR STR?1652,"ANTHARIA"
+	.GSTR STR?1653,"MAREILON"
+	.GSTR STR?1654,"FENSHIRE"
+	.GSTR STR?1655,"PLAIN"
+	.GSTR STR?1656,"THE JESTER"
+	.GSTR STR?1657,"GENERAL QUESTIONS"
+	.GSTR STR?1658,"AS A LAST RESORT"
+	.GSTR STR?1659,"FOR YOUR AMUSEMENT"
+	.ENDSEG
+
+	.SEGMENT "SOFT"
+
+	.GSTR STR?26," UP"
+	.GSTR STR?27," DN"
+	.GSTR STR?28," LF"
+	.GSTR STR?29," RT"
+	.GSTR STR?30," F1"
+	.GSTR STR?31," F2"
+	.GSTR STR?32," F3"
+	.GSTR STR?33," F4"
+	.GSTR STR?34," F5"
+	.GSTR STR?35," F6"
+	.GSTR STR?36," F7"
+	.GSTR STR?37," F8"
+	.GSTR STR?38," F9"
+	.GSTR STR?39,"F10"
+	.GSTR STR?40,"Save Defs"
+	.GSTR STR?41,"Restore Defs"
+	.GSTR STR?42,"Reset Defaults"
+	.GSTR STR?43,"Exit"
+	.ENDSEG
+
+
+	.ENDI