AT       ROAD
         MOVE ROAD,HILL
         MOVE WEST,HILL
         MOVE UP,HILL
         MOVE ENTER,BUILDING
         MOVE BUILDING,BUILDING
         MOVE INWARD,BUILDING
         MOVE EAST,BUILDING
         MOVE DOWNSTREAM,VALLEY
         MOVE GULLY,VALLEY
         MOVE STREAM,VALLEY
         MOVE SOUTH,VALLEY
         MOVE DOWN,VALLEY
         MOVE FOREST,FOREST
         MOVE NORTH,FOREST
         MOVE EAST,FOREST
         MOVE DEPRESSION,DEPRESSION
AT       HILL
         MOVE ROAD,ROAD
         MOVE BUILDING,ROAD
         MOVE FORWARD,ROAD
         MOVE EAST,ROAD
         MOVE NORTH,ROAD
         MOVE FOREST,FOREST
         MOVE NORTH,FOREST
         MOVE SOUTH,FOREST
AT       BUILDING
         MOVE ROAD,ROAD
         MOVE OUT,ROAD
         MOVE OUTDOORS,ROAD
         MOVE WEST,ROAD
         IFLT  CLOSURE,2      {is the cave open?}
            SMOVE XYZZY,DEBRIS,FOOF
            SMOVE PLUGH,Y2,FOOF
         FIN
AT       BUILDING
         ANYOF STREAM,DOWNSTREAM
         SAY   PIPEFIT
         QUIT
AT       VALLEY
         MOVE UPSTREAM,ROAD
         MOVE BUILDING,ROAD
         MOVE NORTH,ROAD
         MOVE FOREST,FOREST
         MOVE EAST,FOREST
         MOVE WEST,FOREST
         MOVE UP,FOREST
         MOVE DEPRESSION,DEPRESSION
         ANYOF SOUTH,DOWN,DOWNSTREAM
         IFLT  CLOSURE,2
            GOTO  SLIT
         ELSE
            GOTO  FAKE.SLIT
         FIN
         QUIT
AT       FOREST
         MOVE VALLEY,VALLEY
         MOVE EAST,VALLEY
         MOVE DOWN,VALLEY
         MOVE SOUTH,FOREST
AT       FOREST
         ANYOF     FOREST,FORWARD,NORTH
         CHANCE    50
             GOTO FOREST
         ELSE
             GOTO FOREST2
         FIN
         QUIT
AT       FOREST2
         MOVE ROAD,ROAD
         MOVE NORTH,ROAD
         MOVE VALLEY,VALLEY
         MOVE EAST,VALLEY
         MOVE WEST,VALLEY
         MOVE DOWN,VALLEY
         MOVE FOREST,FOREST
         MOVE SOUTH,FOREST
AT       SLIT
         MOVE BUILDING,ROAD
         MOVE UPSTREAM,VALLEY
         MOVE NORTH,VALLEY
         MOVE FOREST,FOREST
         MOVE EAST,FOREST
         MOVE WEST,FOREST
         MOVE DOWNSTREAM,DEPRESSION
         MOVE ROCK,DEPRESSION
         MOVE BED,DEPRESSION
         MOVE SOUTH,DEPRESSION
AT       FAKE.SLIT
         MOVE BUILDING,ROAD
         MOVE UPSTREAM,VALLEY
         MOVE NORTH,VALLEY
         MOVE FOREST,FOREST
         MOVE EAST,FOREST
         MOVE WEST,FOREST
         MOVE DOWNSTREAM,DEPRESSION
         MOVE ROCK,DEPRESSION
         MOVE BED,DEPRESSION
         MOVE SOUTH,DEPRESSION
AT       SLIT
         ANYOF     SLIT,STREAM,DOWN,ENTER
         SAY  DONTFITSLIT
         QUIT
AT       FAKE.SLIT
         ANYOF SLIT,STREAM,DOWN,ENTER
         SET   CLOSURE,5      {victory!}
         BIC   STATUS,FASTMODE
         BIC   STATUS,QUICKIE
         SAY   TREASUREROOM   {describe the booty}
         SET   QUITTING,0
         CALL  FINIS          {end the game in triumph}
AT       DEPRESSION
         MOVE FOREST,FOREST
         MOVE EAST,FOREST2
         MOVE WEST,FOREST
         MOVE SOUTH,FOREST2
         MOVE BUILDING,ROAD
         ANYOF UPSTREAM,GULLY,NORTH,SLIT
         IFLT  CLOSURE,2
            GOTO  SLIT
         ELSE
            GOTO  FAKE.SLIT
         FIN
         QUIT
AT       DEPRESSION
         ANYOF     IN,DOWN,ENTER
         IFEQ GRATE,1
             GOTO INCAVE
         ELSE
             SAY  CANTPASSLOCK
         FIN
         QUIT
AT       INCAVE
         ANYOF     UP,OUT,LEAVE,SURFACE
         IFEQ GRATE,1
             GOTO DEPRESSION
         ELSE
             SAY  CANTPASSLOCK
         FIN
         QUIT
AT       INCAVE
         MOVE CRAWL,COBBLES
         MOVE COBBLES,COBBLES
         MOVE INWARD,COBBLES
         MOVE WEST,COBBLES
         MOVE PIT,PIT
         MOVE DEBRIS,DEBRIS
AT       COBBLES
         MOVE OUT,INCAVE
         MOVE SURFACE,INCAVE
         MOVE NULL,INCAVE
         MOVE ENTRANCE,INCAVE
         MOVE EAST,INCAVE
         MOVE INWARD,DEBRIS
         MOVE DARK,DEBRIS
         MOVE WEST,DEBRIS
         MOVE DEBRIS,DEBRIS
         MOVE PIT,PIT
AT       DEBRIS
         MOVE ENTRANCE,INCAVE
         MOVE CRAWL,COBBLES
         MOVE COBBLES,COBBLES
         MOVE PASSAGE,COBBLES
         MOVE LOW,COBBLES
         MOVE EAST,COBBLES
         MOVE CANYON,CANYON
         MOVE INWARD,CANYON
         MOVE UP,CANYON
         MOVE WEST,CANYON
         MOVE PIT,PIT
         IFEQ  GRATE,1
            MOVE  DEPRESSION,DEPRESSION
         ELSE
            SMOVE DEPRESSION,INCAVE,CANTPASSLOCK
         FIN
AT       DEBRIS
         IFGT  CLOSURE,1
            OR
         BIT   ADMIN,NOMAGIC
            SAY   NOTHING
            BIS   ADMIN,PANICED
            QUIT
         ELSE
            SMOVE XYZZY,BUILDING,FOOF
         FIN
         QUIT
AT       CANYON
         MOVE ENTRANCE,INCAVE
         MOVE DOWN,DEBRIS
         MOVE EAST,DEBRIS
         MOVE DEBRIS,DEBRIS
         MOVE INWARD,BIRDCHAMBER
         MOVE UP,BIRDCHAMBER
         MOVE WEST,BIRDCHAMBER
         MOVE PIT,PIT
         IFEQ  GRATE,1
            MOVE  DEPRESSION,DEPRESSION
         ELSE
            SMOVE DEPRESSION,INCAVE,CANTPASSLOCK
         FIN
AT       BIRDCHAMBER
         MOVE ENTRANCE,INCAVE
         MOVE DEBRIS,DEBRIS
         MOVE CANYON,CANYON
         MOVE EAST,CANYON
         MOVE PASSAGE,PIT
         MOVE PIT,PIT
         MOVE WEST,PIT
         IFEQ  GRATE,1
            MOVE  DEPRESSION,DEPRESSION
         ELSE
            SMOVE DEPRESSION,INCAVE,CANTPASSLOCK
         FIN
AT       PIT
         MOVE ENTRANCE,INCAVE
         MOVE DEBRIS,DEBRIS
         MOVE PASSAGE,BIRDCHAMBER
         MOVE EAST,BIRDCHAMBER
         MOVE DOWN,MISTS
         IFEQ  GRATE,1
            MOVE  DEPRESSION,DEPRESSION
         ELSE
            SMOVE DEPRESSION,INCAVE,CANTPASSLOCK
         FIN
AT       PIT
         ANYOF     DOWN,STEPS,PIT
         IFHAVE    GOLD
             SAY  BROKENECK
               GOTO MISTS
             CALL CORONER
         ELSE
             GOTO MISTS
         FIN
         QUIT
AT       PIT
         ANYOF     WEST,CRACK
         SAY  MISTCRACK
         QUIT
AT       PIT
         KEYWORD  JUMP
         GOTO  MISTS
         CALL  SPLATTER
         QUIT
AT       MISTS
         MOVE LEFT,GOLDROOM
         MOVE SOUTH,GOLDROOM
         MOVE  EAST,SANDSTONE
         MOVE FORWARD,EASTOFFISSUR
         MOVE HALL,EASTOFFISSUR
         MOVE WEST,EASTOFFISSUR
         MOVE STAIRS,MTKING
         MOVE DOWN,MTKING
         MOVE NORTH,MTKING
         MOVE Y2,JUMBLE
AT       MISTS
         ANYOF     UP,PIT,STEPS,DOME,PASSAGE,ENTER
         IFHAVE    GOLD
             SAY  UNCLIMBABLE
         ELSE
             GOTO PIT
         FIN
         QUIT
AT       EASTOFFISSUR
         MOVE HALL,MISTS
         MOVE EAST,MISTS
AT       EASTOFFISSURE
         ANYOF     FORWARD,OVER,WEST
         IFEQ FISSURE,0
            SAY   NOWAYACROSS
         ELSE
             GOTO WESTOFFISSURE
         FIN
         QUIT
AT       EASTOFFISSURE
         KEYWORD   JUMP
         IFEQ FISSURE,1
             SAY  TRYTHEBRIDGE
         ELSE
            GOTO  CAVERN
            CALL  SPLATTER
         FIN
         QUIT
AT       GOLDROOM
         MOVE HALL,MISTS
         MOVE OUT,MISTS
         MOVE NORTH,MISTS
AT       MTKING
         MOVE STAIRS,MISTS
         MOVE UP,MISTS
         MOVE EAST,MISTS
AT       MTKING
         ANYOF     NORTH,LEFT,SOUTH,RIGHT,WEST,FORWARD,SW,SECRET
         ANYOF     NW,SE,NE,DOWN
         IFNEAR    SNAKE
             SAY  SNAKEBLOCKS
             QUIT
         ELSE
             MOVE NORTH,LOWNSPASSAGE
             MOVE SOUTH,SOUTHSIDE
             MOVE RIGHT,SOUTHSIDE
             MOVE WEST,WESTSIDE
             MOVE FORWARD,WESTSIDE
             MOVE DOWN,VAULT
             MOVE NORTHEAST,MORION
             MOVE NORTHWEST,CORRID.3
             MOVE SOUTHEAST,CORRID.1
             MOVE SECRET,SECRETEW.TITE
             CHANCE    35        {Assumes "SW" typed here}
                  MOVE SW,SECRETEW.TITE
             ELSE
                  SAY  YOUDIDNTMOVE
             FIN
             QUIT
AT       WEND2PIT
         MOVE EAST,EEND2PIT
         MOVE CROSS,EEND2PIT
         MOVE WEST,SLAB
         MOVE SLAB,SLAB
         MOVE DOWN,WESTPIT
         MOVE PIT,WESTPIT
AT       WEND2PIT
         KEYWORD   HOLE
         SAY  TOO.FAR.UP
         QUIT
AT       EASTPIT
         MOVE UP,EEND2PIT
         MOVE OUT,EEND2PIT
AT       WESTPIT
         MOVE UP,WEND2PIT
         MOVE OUT,WEND2PIT
AT       WESTPIT
         KEYWORD  CLIMB
         IFEQ  PLANT,0
            SAY   NOCLIMBUP
         ELSE
            IFEQ  PLANT,2
               SAY   SHORTPLANT
               GOTO  WEND2PIT
            ELSE
               SAY   LONGPLANT
               GOTO NARROWCORRIDOR
            FIN
         FIN
         QUIT
AT       WESTPIT
         KEYWORD  GET,PLANT
         SAY   GET..PLANT
         QUIT
AT       WESTOFFISSUR
         MOVE WEST,WENDMISTS
AT       WESTOFFISSURE
         ANYOF     FORWARD,OVER,EAST
         IFEQ FISSURE,0
             SAY  NOWAYACROSS
         ELSE
         FIN
         QUIT
AT       WESTOFFISSURE
         KEYWORD   JUMP
         IFEQ FISSURE,1
             SAY  TRYTHEBRIDGE
         ELSE
            GOTO  CAVERN
             CALL SPLATTER
         FIN
         QUIT
AT       WESTOFFISSURE
         KEYWORD   NORTH
         SAY  MISTCRAWL
         GOTO WENDMISTS
         QUIT
AT       LOWNSPASSAGE
         MOVE HALL,MTKING
         MOVE OUT,MTKING
         MOVE SOUTH,MTKING
         MOVE NORTH,Y2
         MOVE Y2,Y2
         MOVE DOWN,DIRTY
         MOVE HOLE,DIRTY
AT       SOUTHSIDE
         MOVE HALL,MTKING
         MOVE OUT,MTKING
         MOVE NORTH,MTKING
AT       WESTSIDE
         MOVE HALL,MTKING
         MOVE OUT,MTKING
         MOVE EAST,MTKING
         MOVE WEST,CROSSOVER
         MOVE UP,CROSSOVER
AT       Y2
         MOVE SOUTH,LOWNSPASSAGE
         MOVE EAST,JUMBLE
         MOVE JUMBLE,JUMBLE
         MOVE WEST,WINDOW
AT       Y2
         ANYOF    PLUGH,PLOVER
         IFGT  CLOSURE,1
            OR
         BIT   ADMIN,NOMAGIC
            SAY   NOTHING
            BIS   ADMIN,PANICED
            QUIT
         ELSE
            SMOVE PLUGH,BUILDING,FOOF
            SMOVE PLOVER,PLOVER,FOOF
         FIN
AT       JUMBLE
         MOVE DOWN,Y2
         MOVE Y2,Y2
         MOVE UP,MISTS
AT       WINDOW
         MOVE EAST,Y2
         MOVE Y2,Y2
AT       WINDOW
         KEYWORD  JUMP
         SAY   BROKENECK
         GOTO  MIRRORCNYN
         CALL  CORONER
AT       DIRTY
         MOVE EAST,BRINK
         MOVE CRAWL,BRINK
         MOVE UP,LOWNSPASSAGE
         MOVE HOLE,LOWNSPASSAGE
         MOVE WEST,DUSTY
         MOVE BEDQUILT,BEDQUILT
AT       BRINK
         MOVE WEST,DIRTY
         MOVE CRAWL,DIRTY
         MOVE DOWN,STREAMPIT
         MOVE PIT,STREAMPIT
         MOVE CLIMB,STREAMPIT
AT       STREAMPIT
         MOVE CLIMB,BRINK
         MOVE UP,BRINK
         MOVE OUT,BRINK
AT       STREAMPIT
         ANYOF     SLIT,STREAM,DOWN,UPSTREAM,DOWNSTREAM
         SAY  DONTFITSLIT
         QUIT
AT       DUSTY
         MOVE EAST,DIRTY
         MOVE PASSAGE,DIRTY
         MOVE DOWN,COMPLEX
         MOVE HOLE,COMPLEX
         MOVE BEDQUILT,BEDQUILT
AT       WENDMISTS
         MOVE SOUTH,MAZEA.42
         MOVE UP,MAZEA.42
         MOVE PASSAGE,MAZEA.42
         MOVE CLIMB,MAZEA.42
         MOVE EAST,WESTOFFISSUR
         MOVE WEST,LONGHALLEAST
         MOVE CRAWL,LONGHALLEAST
AT       WENDMISTS
         KEYWORD  NORTH
         SAY   MISTCRAWL
         GOTO  WESTOFFISSUR
         QUIT
AT       MAZEA.42
         MOVE UP,WENDMISTS
         MOVE NORTH,MAZEA.42
         MOVE EAST,MAZEA.43
         MOVE SOUTH,MAZEA.45
         MOVE WEST,MAZEA.80
AT       MAZEA.43
         MOVE WEST,MAZEA.42
         MOVE SOUTH,MAZEA.44
         MOVE EAST,MAZEA.45
AT       MAZEA.44
         MOVE EAST,MAZEA.43
         MOVE DOWN,MAZEA.48
         MOVE SOUTH,MAZEA.50
         MOVE NORTH,MAZEA.82
AT       MAZEA.45
         MOVE WEST,MAZEA.42
         MOVE NORTH,MAZEA.43
         MOVE EAST,MAZEA.46
         MOVE SOUTH,MAZEA.47
         MOVE DOWN,MAZEA.87
AT       MAZEA.46
         MOVE WEST,MAZEA.45
         MOVE OUT,MAZEA.45
AT       MAZEA.47
         MOVE EAST,MAZEA.45
         MOVE OUT,MAZEA.45
AT       MAZEA.48
         MOVE UP,MAZEA.44
         MOVE OUT,MAZEA.44
AT       MAZEA.49
         MOVE EAST,MAZEA.50
         MOVE WEST,MAZEA.51
AT       MAZEA.50
         MOVE EAST,MAZEA.44
         MOVE WEST,MAZEA.49
         MOVE DOWN,MAZEA.51
         MOVE SOUTH,MAZEA.52
AT       MAZEA.51
         MOVE WEST,MAZEA.49
         MOVE UP,MAZEA.50
         MOVE EAST,MAZEA.52
         MOVE SOUTH,MAZEA.53
AT       MAZEA.52
         MOVE WEST,MAZEA.50
         MOVE EAST,MAZEA.51
         MOVE SOUTH,MAZEA.52
         MOVE UP,MAZEA.53
         MOVE NORTH,MAZEA.55
         MOVE DOWN,MAZEA.86
AT       MAZEA.53
         MOVE WEST,MAZEA.51
         MOVE NORTH,MAZEA.52
         MOVE SOUTH,MAZEA.54
AT       MAZEA.54
         MOVE WEST,MAZEA.53
         MOVE OUT,MAZEA.53
AT       MAZEA.55
         MOVE WEST,MAZEA.52
         MOVE NORTH,MAZEA.55
         MOVE DOWN,MAZEA.56
         MOVE EAST,MAZEA.57.PIT
AT       MAZEA.56
         MOVE UP,MAZEA.55
         MOVE OUT,MAZEA.55
AT       MAZEA.57.PIT
         MOVE DOWN,BIRDCHAMBER
         MOVE CLIMB,BIRDCHAMBER
         MOVE WEST,MAZEA.55
         MOVE SOUTH,MAZEA.58
         MOVE NORTH,MAZEA.83
         MOVE EAST,MAZEA.84
AT       MAZEA.58
         MOVE EAST,MAZEA.57.PIT
         MOVE OUT,MAZEA.57.PIT
AT       LONGHALLEAST
         MOVE EAST,WENDMISTS
         MOVE UP,WENDMISTS
         MOVE WEST,LONGHALLWEST
         MOVE NORTH,CROSSOVER
         MOVE DOWN,CROSSOVER
         MOVE HOLE,CROSSOVER
AT       LONGHALLWEST
         MOVE EAST,LONGHALLEAST
         MOVE NORTH,CROSSOVER
         MOVE SOUTH,MAZED.107
AT       CROSSOVER
         MOVE WEST,LONGHALLEAST
         MOVE NORTH,DEADEND1
         MOVE EAST,WESTSIDE
         MOVE SOUTH,LONGHALLWEST
AT       DEADEND1
         MOVE SOUTH,CROSSOVER
         MOVE OUT,CROSSOVER
AT       COMPLEX
         MOVE UP,DUSTY
         MOVE CLIMB,DUSTY
         MOVE WEST,BEDQUILT
         MOVE BEDQUILT,BEDQUILT
         MOVE NORTH,SHELL
         MOVE SHELL,SHELL
         MOVE EAST,ANTEROOM
AT       BEDQUILT
         MOVE EAST,COMPLEX
         MOVE WEST,SWISS
         MOVE SLAB,SLAB
AT       BEDQUILT
         ANYOF     NORTH,SOUTH,UP,DOWN
         CHANCE    65
             SAY  CRAWL..CAVEIN
             QUIT
         ELSE
            MOVE  DOWN,ANTEROOM
             CHANCE    75
                  MOVE NORTH,LOW
                  MOVE UP,DUSTY
                  MOVE SOUTH,SLAB
             ELSE
                  MOVE NORTH,SECRETJUNCTION
                  MOVE UP,SECRETNSCPAS
                  MOVE SOUTH,TALLEWCNYN
            FIN
         FIN
AT       BEDQUILT
         KEYWORD   NW
         CHANCE   50
            SAY   YOUDIDNTMOVE
         ELSE
            GOTO  ORIENTAL
         FIN
         QUIT
AT       SWISS
         MOVE NE,BEDQUILT
         MOVE WEST,EEND2PIT
         MOVE CANYON,TALLEWCNYN
         MOVE EAST,SOFT
         MOVE ORIENTAL,ORIENTAL
         MOVE  SOFT,SOFT
         ANYOF NW,SOUTH
            CHANCE   65
               MOVE  NW,ORIENTAL
               SAY   YOUDIDNTMOVE
            ELSE
               MOVE  SOUTH,TALLEWCNYN
               SAY   YOUDIDNTMOVE
            FIN
            QUIT
         FIN
AT       EEND2PIT
         MOVE EAST,SWISS
         MOVE WEST,WEND2PIT
         MOVE CROSS,WEND2PIT
         MOVE DOWN,EASTPIT
         MOVE PIT,EASTPIT
AT       SLAB
         MOVE SOUTH,WEND2PIT
         MOVE UP,SECRETNSCYN
         MOVE CLIMB,SECRETNSCYN
         MOVE NORTH,BEDQUILT
         MOVE  BEDQUILT,BEDQUILT
AT       SECRETNSCYN
         MOVE DOWN,SLAB
         MOVE SLAB,SLAB
         MOVE NORTH,MIRRORCNYN
         MOVE MIRROR,MIRRORCNYN
         MOVE RESERVOIR,RESERVOIR
         MOVE  SOUTH,SECRETCYNNE1
AT       SECRETNSCPAS
         MOVE NORTH,SECRETJUNCTION
         MOVE DOWN,BEDQUILT
         MOVE PASSAGE,BEDQUILT
         MOVE SOUTH,STALACT
AT       SECRETJUNCTION
         MOVE SE,BEDQUILT
         MOVE SOUTH,SECRETNSCPAS
         MOVE NORTH,WINDOW2
AT       LOW
         MOVE BEDQUILT,BEDQUILT
         MOVE SW,SLOPING
         MOVE NORTH,DEADEND2
         MOVE SE,ORIENTAL
         MOVE ORIENTAL,ORIENTAL
AT       DEADEND2
         MOVE SOUTH,LOW
         MOVE CRAWL,LOW
         MOVE OUT,LOW
AT       SECRETEW.TITE
         MOVE EAST,MTKING
         MOVE DOWN,NSCANYONWIDE
AT       SECRETEW.TITE
         KEYWORD   WEST
         IFEQ DRAGON,0       * If it's alive...
             GOTO SECRETCYNNE2
         ELSE
             GOTO SECRETCYNNE1
         FIN
         QUIT
AT       NSCANYONWIDE
         MOVE SOUTH,TIGHTERSTILL
         MOVE NORTH,TALLEWCNYN
AT       TIGHTERSTILL
         MOVE NORTH,NSCANYONWIDE
AT       TALLEWCNYN
         MOVE EAST,NSCANYONWIDE
         MOVE WEST,DEADEND3
         MOVE NORTH,SWISS
         MOVE CRAWL,SWISS
AT       DEADEND3
         MOVE SOUTH,TALLEWCNYN
AT       MAZEA.80
         MOVE NORTH,MAZEA.42
         MOVE WEST,MAZEA.80
         MOVE SOUTH,MAZEA.80
         MOVE EAST,MAZEA.81
AT       MAZEA.81
         MOVE WEST,MAZEA.80
         MOVE OUT,MAZEA.80
AT       MAZEA.82
         MOVE SOUTH,MAZEA.44
         MOVE OUT,MAZEA.44
AT       MAZEA.83
         MOVE SOUTH,MAZEA.57.PIT
         MOVE EAST,MAZEA.84
         MOVE WEST,MAZEA.85
AT       MAZEA.84
         MOVE NORTH,MAZEA.57.PIT
         MOVE WEST,MAZEA.83
         MOVE NW,MAZEA.114
AT       MAZEA.85
         MOVE EAST,MAZEA.83
         MOVE OUT,MAZEA.83
AT       MAZEA.86
         MOVE UP,MAZEA.52
         MOVE OUT,MAZEA.52
AT       MAZEA.87
         MOVE UP,MAZEA.45
         MOVE DOWN,MAZEA.45
AT       NARROWCORRID
         MOVE DOWN,WESTPIT
         MOVE CLIMB,WESTPIT
         MOVE EAST,WESTPIT
         MOVE WEST,GIANT
         MOVE GIANT,GIANT
AT       NARROWCORRIDOR
         KEYWORD  JUMP
         GOTO  WESTPIT
         CALL  SPLATTER
AT       INCLINE
         MOVE NORTH,CAVERN
         MOVE CAVERN,CAVERN
         MOVE PASSAGE,CAVERN
         SMOVE DOWN,LOW,OOF
         SMOVE CLIMB,LOW,OOF
AT       GIANT
         MOVE CORRIDOR,NARROWCORRID
         MOVE EAST,TUNNEL.1
         MOVE NORTH,IMMENSENSPASS
AT       IMMENSENSPASS
         MOVE SOUTH,GIANT
         MOVE GIANT,GIANT
         MOVE PASSAGE,GIANT
AT       IMMENSENSPASS
         ANYOF     NORTH,ENTER,CAVERN
         IFEQ DOOR,0
             SAY  DOORNEEDSOIL
         ELSE
             GOTO CAVERN
         FIN
         QUIT
AT       CAVERN
         MOVE SOUTH,IMMENSENSPASS
         MOVE OUT,IMMENSENSPASS
         MOVE GIANT,GIANT
         MOVE WEST,INCLINE
         MOVE INCLINE,INCLINE
AT       CAVERN
         ANYOF DOWN,JUMP      {jumping into whirlpool}
         QUERY WHIRLPOOL?
            LDA   J,LAMP
            SET   K,0
            ITOBJ I
               IFHAVE   I
                  AND
                  NOT
               IFEQ  I,J
                  APPORT   I,YLEM
                  ADD   K,1
               FIN
            EOI
            IFHAVE   LAMP
               SET   INVCT,1
               IFEQ  K,0
                  SAY   FLOW.DOWN
               ELSE
                  SAY   FLOW.RIP
               FIN
            ELSE
               SET   INVCT,0
               IFEQ  K,0
                  SAY   FLOW.DARK
               ELSE
                  SAY   FLOW.D.RIP
               FIN
            FIN
            GOTO  RESERVOIR.N
            SAY   WHIRL.LAND
         ELSE
            SAY   OK
         FIN
         QUIT
AT       SOFT
         MOVE WEST,SWISS
         MOVE OUT,SWISS
         MOVE  SWISS,SWISS
AT       ORIENTAL
         MOVE SE,SWISS
         MOVE WEST,LOW
         MOVE CRAWL,LOW
         MOVE UP,MISTY
         MOVE NORTH,MISTY
         MOVE CAVERN,MISTY
AT       MISTY
         MOVE SOUTH,ORIENTAL
         MOVE ORIENTAL,ORIENTAL
         MOVE WEST,ALCOVE
AT       MISTY
         KEYWORD  JUMP
         GOTO  CAVERN
         CALL  SPLATTER
         QUIT
AT       ALCOVE
         ANYOF EAST,PASSAGE,PLOVER
         IFEQ  INVCT,0
            GOTO PLOVER
         ELSE
            IFEQ  INVCT,1
               IFHAVE   EMERALD
                  GOTO PLOVER
               ELSE
                  SAY   WONT..FIT
               FIN
            ELSE
               SAY   WONT..FIT
            FIN
         FIN
         QUIT
AT       ALCOVE
         MOVE NW,MISTY
         MOVE CAVERN,MISTY
AT       PLOVER
         AT    PLOVER      {'cause can get here via "SAY PLOVER" too}
         KEYWORD  PLOVER
         IFEQ  STATUS,1
            OR
         IFKEY SAY
            IFHAVE   EMERALD
               DROP  EMERALD
            FIN
            SAY   FOOF
            GOTO Y2
            QUIT
         FIN
AT       PLOVER
         ANYOF WEST,PASSAGE,ALCOVE
         IFEQ  INVCT,0
            GOTO ALCOVE
         ELSE
            IFEQ  INVCT,1
               IFHAVE   EMERALD
                  GOTO ALCOVE
               ELSE
                  SAY   WONT..FIT
               FIN
            ELSE
               SAY   WONT..FIT
            FIN
         FIN
         QUIT
         MOVE NE,DARK
         MOVE DARK,DARK
AT       DARK
         MOVE SOUTH,PLOVER
         MOVE PLOVER,PLOVER
         MOVE OUT,PLOVER
AT       ARCHED
         MOVE DOWN,SHELL
         MOVE SHELL,SHELL
         MOVE  UP,ARCH.COR.1
         MOVE  EAST,ARCH.COR.1
AT       SHELL
         MOVE UP,ARCHED
         MOVE HALL,ARCHED
         MOVE DOWN,RAGGEDCORRID
         MOVE  CORRIDOR,RAGGEDCORRID
AT       SHELL
         ANYOF     SOUTH,COMPLEX
         IFHAVE    CLAM
             SAY  CLAM.2.BIG
         ELSE
             IFHAVE    OYSTER
                  SAY  OYSTER.2.BIG
             ELSE
                  GOTO COMPLEX
         EOF
         QUIT
AT       RAGGEDCORRID
         MOVE UP,SHELL
         MOVE SHELL,SHELL
         MOVE DOWN,CULDESAC
AT       CULDESAC
         MOVE UP,RAGGEDCORRID
         MOVE OUT,RAGGEDCORRID
         MOVE  CORRIDOR,RAGGEDCORRID
         MOVE SHELL,SHELL
AT       ANTEROOM
         MOVE UP,COMPLEX
         MOVE WEST,BEDQUILT
         MOVE EAST,WITTSEND
AT       MAZED.107
         MOVE SOUTH,MAZED.131
         MOVE SW,MAZED.132
         MOVE NE,MAZED.133
         MOVE SE,MAZED.134
         MOVE UP,MAZED.135
         MOVE NW,MAZED.136
         MOVE EAST,MAZED.137
         MOVE WEST,MAZED.138
         MOVE NORTH,MAZED.139
         MOVE DOWN,LONGHALLWEST
AT       WITTSEND
         ANYOF     NORTH,SOUTH,EAST,UP,DOWN,NE,NW,SE,SW
         CHANCE    95
             GOTO WITTSEND
         ELSE
             GOTO ANTEROOM
         FIN
         QUIT
         KEYWORD   WEST
         GOTO  WITTSEND
         QUIT
AT       MIRRORCNYN
         KEYWORD  MIRROR
         SAY   TOO.FAR.UP
         QUIT
AT       MIRRORCNYN
         MOVE SOUTH,SECRETNSCYN
         MOVE NORTH,RESERVOIR
         MOVE RESERVOIR,RESERVOIR
AT       WINDOW2
         MOVE WEST,SECRETJUNCTION
AT       WINDOW2
         KEYWORD  JUMP
         SAY   BROKENECK
         GOTO  MIRRORCNYN
         CALL  CORONER
AT       STALACT
         MOVE NORTH,SECRETNSCPAS
AT       STALACT
         ANYOF     DOWN,JUMP,CLIMB
         CHANCE    40
             GOTO MAZEA.50
         ELSE
             CHANCE    50
                  GOTO MAZEA.53
             ELSE
                  GOTO MAZEA.45
         EOF
         QUIT
AT       MAZED.112
         MOVE SW,MAZED.131
         MOVE NORTH,MAZED.132
         MOVE EAST,MAZED.133
         MOVE NW,MAZED.134
         MOVE SE,MAZED.135
         MOVE NE,MAZED.136
         MOVE WEST,MAZED.137
         MOVE DOWN,MAZED.138
         MOVE UP,MAZED.139
         MOVE SOUTH,MAZED.140
AT       RESERVOIR
         MOVE SOUTH,MIRRORCNYN
         MOVE OUT,MIRRORCNYN
         MOVE MIRROR,MIRRORCNYN
         ANYOF NORTH,CROSS
         SAY   CANT.SWIM
         QUIT
AT       RESERVOIR.N
         MOVE  NORTH,WARM
         MOVE  PASSAGE,WARM
         MOVE  WARM,WARM
         MOVE  BALCONY,BALCONY
         ANYOF SOUTH,CROSS
         IFNEAR   TURTLE
            SAY   TURTLE.BACK
            APPORT   TURTLE,LIMBO
            GOTO  RESERVOIR
         ELSE
         FIN
         QUIT
AT       WARM
         MOVE  SOUTH,RESERVOIR.N
         MOVE  RESERVOIR,RESERVOIR.N
         MOVE  NORTHEAST,BALCONY
         MOVE  BALCONY,BALCONY
AT       BALCONY
         MOVE  WEST,WARM
         MOVE  OUT,WARM
         MOVE  WARM,WARM
         MOVE  RESERVOIR,RESERVOIR.N
         KEYWORD  JUMP
         GOTO  YLEM
         CALL  SPLATTER
AT       MAZEA.114
         MOVE SE,MAZEA.84
AT       SWOFCHASM
         MOVE SW,SLOPING
         MOVE SLOPING,SLOPING
         MOVE CORRIDOR,SLOPING
AT       SWOFCHASM
         KEYWORD  THROW
         IFEQ  STATUS,1
            OR
         IFNEAR   TROLL2
            PROCEED
         ELSE
            IFKEY AXE
               OR
            IFKEY SWORD
               IFHAVE   ARG2
                  NAME   EL.CHEAPO,ARG2
                  DROP ARG2
               ELSE
                  PROCEED
               FIN
            ELSE
               BIT   ARG2,OBJECT
                  BIT   ARG2,VALUED
                     IFHAVE   ARG2
                        IFKEY EGGS
                           BIT   TROLL,SPECIAL1
                              SET   TROLL,6  {wary}
                              SAY   TROLL
                              SET   TROLL,0
                              APPORT   EGGS,YLEM {destroy eggs}
                              QUIT
                           FIN
                        FIN
                        NAME  BOUGHTHIMOFF,ARG2
                        SET   TROLL,1
                        APPORT   TROLL,LIMBO
                        APPORT   ARG2,LIMBO
                     ELSE
                        PROCEED
                     FIN
                  ELSE
                     PROCEED
                  FIN
               ELSE
                  PROCEED
               FIN
            FIN
         FIN
         QUIT
AT       SWOFCHASM
         ANYOF CROSS,NE
         IFGT  CHASM,0
            SAY   NO.BRIDGE
         ELSE
            IFEQ  TROLL,0
               SAY   TROLL.SEZ.NO
            ELSE
               IFEQ  TROLL,2
                  SET   TROLL,3
                  SAY   TROLL
                  SET   TROLL,0
                  APPORT  TROLL,SWOFCHASM
                  APPORT   TROLL2,LIMBO
               ELSE
                  IFEQ  TROLL,1
                     SET   TROLL,2
                  FIN
                  GOTO  NEOFCHASM
               FIN
            FIN
         FIN
         QUIT
AT       SWOFCHASM
         KEYWORD  JUMP
         IFEQ  CHASM,0
            SAY   TRYTHEBRIDGE
         ELSE
            GOTO  YLEM
            CALL  SPLATTER
         FIN
         QUIT
AT       SLOPING
         MOVE DOWN,LOW
         MOVE UP,SWOFCHASM
         MOVE  CHASM,SWOFCHASM
         MOVE  LOW,LOW
         MOVE  OUT,LOW
AT       SECRETCYNNE1
         KEYWORD RUG
         IFEQ  DRAGON,0
            SAY   DRAGON.RUG
            QUIT
         FIN
AT       SECRETCYNNE1
         MOVE NORTH,SECRETNSCYN
         MOVE OUT,SECRETNSCYN
AT       SECRETCYNNE1
         IFEQ DRAGON,0
             SAY  PAST.DRAGON
         ELSE
             GOTO SECRETEW.TITE
         FIN
         QUIT
AT       SECRETCYNNE2
         KEYWORD RUG
         IFEQ  DRAGON,0
            SAY   DRAGON.RUG
            QUIT
         FIN
AT       SECRETCYNNE2
         MOVE EAST,SECRETEW.TITE
         MOVE OUT,SECRETEW.TITE
AT       SECRETCYNNE2
         ANYOF     FORWARD,NORTH
         IFEQ DRAGON,0
             SAY  PAST.DRAGON
         ELSE
             GOTO SECRETNSCYN
         FIN
         QUIT
AT       NEOFCHASM
         KEYWORD  RELEASE,BEAR
         HAVE  BEAR
         NEAR  TROLL
         SET   TROLL,4
         SAY   BEAR..TROLL
         APPORT   TROLL,LIMBO
         APPORT   TROLL2,SWOFCHASM
         DROP  BEAR
         QUIT
AT       NEOFCHASM
         KEYWORD  THROW
         IFEQ  STATUS,1
            OR
         IFNEAR   TROLL2
            PROCEED
         ELSE
            IFKEY AXE
               OR
            IFKEY SWORD
               IFHAVE   ARG2
                  NAME   EL.CHEAPO,ARG2
                  DROP ARG2
               ELSE
                  PROCEED
               FIN
            ELSE
               BIT   ARG2,OBJECT
                  BIT   ARG2,VALUED
                     IFHAVE   ARG2
                        IFKEY EGGS
                           BIT   TROLL,SPECIAL1
                              SET   TROLL,6  {wary}
                              SAY   TROLL
                              SET   TROLL,0
                              QUIT
                           FIN
                        FIN
                        NAME  BOUGHTHIMOFF,ARG2
                        SET   TROLL,1
                        APPORT   TROLL,LIMBO
                        APPORT   TROLL2,SWOFCHASM
                        APPORT   ARG2,LIMBO
                     ELSE
                        PROCEED
                     FIN
                  ELSE
                     PROCEED
                  FIN
               ELSE
                  PROCEED
               FIN
            FIN
         FIN
         QUIT
AT       NEOFCHASM
         ANYOF CROSS,SW
         IFGT  CHASM,0
            SAY   NO.BRIDGE
         ELSE
            IFEQ  TROLL,0
               SAY   TROLL.SEZ.NO
            ELSE
               IFEQ  TROLL,2
                  SET   TROLL,3
                  SAY   TROLL
                  SET   TROLL,0
                  APPORT  TROLL,SWOFCHASM
                  APPORT   TROLL2,LIMBO
               ELSE
                  IFEQ  TROLL,1
                     SET   TROLL,2
                  FIN
                  IFHAVE   BEAR
                     SAY   BEAR..BRIDGE
                     SET   CHASM,1
                     APPORT   TROLL2,LIMBO
                     GOTO  YLEM
                     CALL  CORONER
                  ELSE
                     IFEQ  TROLL,4  {scared him off?}
                        AND
                     BIT   TROLL,SPECIAL1 {already stole eggs back?}
                        IFNEAR   BEAR
                           GET   BEAR
                           SET   CHASM,1
                           SAY   REVENGE
                        ELSE
                           SET   CHASM,2
                           SAY   REVENGE.1
                        FIN
                        APPORT   TROLL2,LIMBO
                        GOTO  YLEM
                        CALL  CORONER
                     ELSE
                        GOTO  SWOFCHASM
                     FIN
                  FIN
               FIN
            FIN
         FIN
         QUIT
AT       NEOFCHASM
         KEYWORD  JUMP
         IFEQ  CHASM,0
            SAY   TRYTHEBRIDGE
         ELSE
            GOTO  YLEM
            CALL  SPLATTER
         FIN
         QUIT
AT       NEOFCHASM
         MOVE NE,CORRIDOR
         MOVE  CORRIDOR,CORRIDOR
         MOVE FORK,FORK
         MOVE VIEW,BREATHTAKER
         MOVE BARREN,BARREN
AT       CORRIDOR
         MOVE  CHASM,NEOFCHASM
         MOVE WEST,NEOFCHASM
         MOVE EAST,FORK
         MOVE FORK,FORK
         MOVE VIEW,BREATHTAKER
         MOVE BARREN,BARREN
AT       FORK
         MOVE  CHASM,NEOFCHASM
         MOVE WEST,CORRIDOR
         MOVE  CORRIDOR,CORRIDOR
         MOVE NE,WARMJUNCTN
         MOVE LEFT,WARMJUNCTN
         MOVE SE,LIMESTONE
         MOVE RIGHT,LIMESTONE
         MOVE DOWN,LIMESTONE
         MOVE VIEW,BREATHTAKER
         MOVE BARREN,BARREN
AT       WARMJUNCTN
         MOVE SOUTH,FORK
         MOVE FORK,FORK
         MOVE NORTH,BREATHTAKER
         MOVE VIEW,BREATHTAKER
         MOVE EAST,BOULDERS
         MOVE CRAWL,BOULDERS
AT       BREATHTAKER
         MOVE PASSAGE,WARMJUNCTN
         MOVE OUT,WARMJUNCTN
         MOVE FORK,FORK
AT       BREATHTAKER
         ANYOF     JUMP,DOWN,CLIMB
         GOTO  YLEM
         CALL  SPLATTER             * let him plummet to a painful death.
AT       BREATHTAKER
         ANYOF VALLEY,CROSS,GORGE,NORTH
         IFEQ  GORGE,0
            SAY   NO.ARCH
         ELSE
            IFHAVE   BEAR
               SAY   LEAVE.BEAR
            ELSE
               IFHAVE   RING
                  NOT
                  BIT   FACES,BEENHERE
                     SAY   FUMES.MISS
                  FIN
                  GOTO  FACES
               ELSE
                  SAY   FUMES.BURN
                  GOTO  YLEM
                  CALL  CORONER
               FIN
            FIN
         FIN
         QUIT
AT       BOULDERS
         MOVE WEST,WARMJUNCTN
         MOVE OUT,WARMJUNCTN
         MOVE CRAWL,WARMJUNCTN
         MOVE FORK,FORK
         MOVE VIEW,BREATHTAKER
AT       LIMESTONE
         MOVE NORTH,FORK
         MOVE UP,FORK
         MOVE FORK,FORK
         MOVE SOUTH,BARREN
         MOVE DOWN,BARREN
         MOVE BARREN,BARREN
         MOVE VIEW,BREATHTAKER
AT       BARREN
         MOVE WEST,LIMESTONE
         MOVE UP,LIMESTONE
         MOVE FORK,FORK
         MOVE EAST,BEARHERE
         MOVE INWARD,BEARHERE
         MOVE BARREN,BEARHERE
         MOVE ENTER,BEARHERE
         MOVE VIEW,BREATHTAKER
AT       BEARHERE
         KEYWORD  GET,AXE
         NEAR  AXE
         IFHAVE   AXE
            OR
         IFEQ  AXE,0
            PROCEED
         ELSE
            NAME  CANTGETAXE,ARG2
            QUIT
         FIN
AT       BEARHERE
         MOVE WEST,BARREN
         MOVE OUT,BARREN
         MOVE FORK,FORK
         MOVE VIEW,BREATHTAKER
AT       MAZED.131
         MOVE WEST,MAZED.107
         MOVE SE,MAZED.132
         MOVE NW,MAZED.133
         MOVE SW,MAZED.134
         MOVE NE,MAZED.135
         MOVE UP,MAZED.136
         MOVE DOWN,MAZED.137
         MOVE NORTH,MAZED.138
         MOVE SOUTH,MAZED.139
         MOVE EAST,MAZED.112
AT       MAZED.132
         MOVE NW,MAZED.107
         MOVE UP,MAZED.131
         MOVE NORTH,MAZED.133
         MOVE SOUTH,MAZED.134
         MOVE WEST,MAZED.135
         MOVE SW,MAZED.136
         MOVE NE,MAZED.137
         MOVE EAST,MAZED.138
         MOVE DOWN,MAZED.139
         MOVE SE,MAZED.112
AT       MAZED.133
         MOVE UP,MAZED.107
         MOVE DOWN,MAZED.131
         MOVE WEST,MAZED.132
         MOVE NE,MAZED.134
         MOVE SW,MAZED.135
         MOVE EAST,MAZED.136
         MOVE NORTH,MAZED.137
         MOVE NW,MAZED.138
         MOVE SE,MAZED.139
         MOVE SOUTH,MAZED.112
AT       MAZED.134
         MOVE NE,MAZED.107
         MOVE NORTH,MAZED.131
         MOVE NW,MAZED.132
         MOVE SE,MAZED.133
         MOVE EAST,MAZED.135
         MOVE DOWN,MAZED.136
         MOVE SOUTH,MAZED.137
         MOVE UP,MAZED.138
         MOVE WEST,MAZED.139
         MOVE SW,MAZED.112
AT       MAZED.135
         MOVE NORTH,MAZED.107
         MOVE SE,MAZED.131
         MOVE DOWN,MAZED.132
         MOVE SOUTH,MAZED.133
         MOVE EAST,MAZED.134
         MOVE WEST,MAZED.136
         MOVE SW,MAZED.137
         MOVE NE,MAZED.138
         MOVE NW,MAZED.139
         MOVE UP,MAZED.112
AT       MAZED.136
         MOVE EAST,MAZED.107
         MOVE WEST,MAZED.131
         MOVE UP,MAZED.132
         MOVE SW,MAZED.133
         MOVE DOWN,MAZED.134
         MOVE SOUTH,MAZED.135
         MOVE NW,MAZED.137
         MOVE SE,MAZED.138
         MOVE NE,MAZED.139
         MOVE NORTH,MAZED.112
AT       MAZED.137
         MOVE SE,MAZED.107
         MOVE NE,MAZED.131
         MOVE SOUTH,MAZED.132
         MOVE DOWN,MAZED.133
         MOVE UP,MAZED.134
         MOVE NW,MAZED.135
         MOVE NORTH,MAZED.136
         MOVE SW,MAZED.138
         MOVE EAST,MAZED.139
         MOVE WEST,MAZED.112
AT       MAZED.138
         MOVE DOWN,MAZED.107
         MOVE EAST,MAZED.131
         MOVE NE,MAZED.132
         MOVE UP,MAZED.133
         MOVE WEST,MAZED.134
         MOVE NORTH,MAZED.135
         MOVE SOUTH,MAZED.136
         MOVE SE,MAZED.137
         MOVE SW,MAZED.139
         MOVE NW,MAZED.112
AT       MAZED.139
         MOVE SW,MAZED.107
         MOVE NW,MAZED.131
         MOVE EAST,MAZED.132
         MOVE WEST,MAZED.133
         MOVE NORTH,MAZED.134
         MOVE DOWN,MAZED.135
         MOVE SE,MAZED.136
         MOVE UP,MAZED.137
         MOVE SOUTH,MAZED.138
         MOVE NE,MAZED.112
AT       MAZED.140
         MOVE NORTH,MAZED.112
         MOVE OUT,MAZED.112
AT       MAZED.140
         KEYWORD  DROP,COINS
         HAVE  COINS
         APPORT   COINS,LIMBO
         APPORT   BATTERIES,HERE
         SAY   OK
         SAY   BATTERIES
         QUIT
AT       LIMBO
         MOVE  OUT,BUILDING *kludge*
AT       SANDSTONE
         MOVE  WEST,MISTS
         MOVE  OUT,MISTS
         MOVE  MISTS,MISTS
AT       MORION
         MOVE  SOUTH,MTKING
         MOVE  OUT,MTKING
AT       VAULT
         ANYOF UP,OUT,NORTH
         IFEQ  SAFE,1
            SAY   SAFE.BLOCKS
         ELSE
            GOTO  MTKING
         FIN
         QUIT
AT       VAULT
         KEYWORD  IN
         IFEQ  SAFE,1
            SET   SAFEEXIT,HERE
            GOTO  INSAFE
         ELSE
            SAY   CANTENTERSAFE
         FIN
         QUIT
AT       INSAFE   {inside the safe - strange stuff happens here!}
         KEYWORD  OUT   {it's the only way you can go}
         GOTO  SAFEEXIT {which was set when you came in}
         QUIT
AT       INSAFE   {special handling for the safe, within the safe!}
         KEYWORD  SAFE
         IFEQ  STATUS,1
            NAME  WHAT.DO,ARG2
         ELSE
            IFKEY CLOSE
               SAY   NO.HANDLE
            ELSE
               IFKEY OPEN
                  NAME  ALREADY.OPEN,ARG2
               ELSE
                  SAY   HAH!
               FIN
            FIN
         FIN
         QUIT
AT       CORRID.1
         MOVE  SOUTH,MTKING
         MOVE  NORTH,CORRID.2
AT       CORRID.2
         MOVE  SOUTH,CORRID.1
         MOVE  WEST,CORRID.1
         MOVE  NORTH,TOOL
         MOVE  EAST,TOOL
AT       TOOL
         MOVE  OUT,CORRID.2
         MOVE  SOUTH,CORRID.2
AT       CORRID.3
         MOVE  SOUTH,MTKING
         MOVE  NORTH,SPHERICAL
         MOVE  EAST,CUBICLE
AT       CUBICLE
         MOVE  OUT,CORRID.3
         MOVE  CORRIDOR,CORRID.3
         MOVE  SOUTH,CORRID.3
AT       SPHERICAL
         MOVE  OUT,CORRID.3
         MOVE  NORTH,CORRID.3
         MOVE  CORRIDOR,CORRID.3
AT       TUNNEL.1
         MOVE  SOUTH,GIANT
         MOVE  NORTH,GLASSY
AT       GLASSY
         MOVE  SOUTH,TUNNEL.1
AT       GLASSY
         ANYOF NORTH,LAIR
         IFNEAR   OGRE
            SAY   OGRE.BLOCKS
         ELSE
            GOTO  LAIR
         FIN
         QUIT
AT       LAIR
         MOVE  EAST,BRINK.1
         MOVE  WEST,GLASSY
AT       BRINK.1
         MOVE  NORTH,LAIR
         MOVE  WEST,BRINK.2
         MOVE  EAST,BRINK.3
          MOVE  NORTH,LAIR
AT       BRINK.1
         KEYWORD  JUMP
         CALL  PLUNGE
AT       BRINK.2
         MOVE  NORTH,BRINK.1
         MOVE  SOUTHEAST,ICE
AT       BRINK.2
         KEYWORD  JUMP
         CALL  PLUNGE
AT       ICE
         MOVE  NORTHWEST,BRINK.2
         SMOVE  DOWN,SLIDE,OOF
         SMOVE  EAST,SLIDE,OOF
         SMOVE  SLIDE,SLIDE,OOF
AT       SLIDE
         ANYOF SLIDE,UP,NORTH,CLIMB
         SAY   SLIDE.SLIPPERY
         QUIT
AT       SLIDE
         MOVE  SOUTH,ICECAVE.2A
         MOVE  NORTHWEST,ICECAVE.4
AT       ICECAVE.1
         MOVE  WEST,ICECAVE.2
         MOVE  NORTH,ICECAVE.1A
AT       ICECAVE.1A
         MOVE  SOUTH,ICECAVE.1
         MOVE  EAST,ICECAVE.1
         MOVE  WEST,ICECAVE.3
         MOVE  NORTH,ICECAVE.2A
AT       ICECAVE.2A
         MOVE  NORTH,SLIDE
         MOVE  SOUTH,ICECAVE.2
AT       ICECAVE.3
         MOVE  EAST,ICECAVE.2
         MOVE  NORTH,ICECAVE.3A
AT       ICECAVE.3A
         MOVE  SOUTH,ICECAVE.3
AT       ICECAVE.4
         MOVE  EAST,SLIDE
         MOVE  WEST,ICECAVE.5
AT       ICECAVE.5
         MOVE  NORTHEAST,ICECAVE.4
         MOVE  SOUTH,ICECAVE.6
AT       ICECAVE.6
         MOVE  NORTH,ICECAVE.5
         MOVE  SOUTH,ICECAVE.7
         MOVE  WEST,ICECAVE.9
AT       ICECAVE.7
         MOVE  NORTH,ICECAVE.6
AT       ICECAVE.8
         MOVE  NORTH,ICECAVE.9
AT       ICECAVE.9
         MOVE  EAST,ICECAVE.6
         MOVE  SOUTH,ICECAVE.8
         MOVE  NORTH,ICECAVE.10
AT       ICECAVE.10
         MOVE  SOUTH,ICECAVE.9
         MOVE  NORTHWEST,ICECAVE.11
AT       ICECAVE.11
         MOVE  EAST,ICECAVE.10
         MOVE  WEST,ICECAVE.12
AT       ICECAVE.12
         MOVE  NORTHEAST,ICECAVE.11
         MOVE  SOUTH,ICECAVE.12A
         MOVE  WEST,ICECAVE.15
AT       ICECAVE.12A
         MOVE  NORTH,ICECAVE.12
         MOVE  SOUTH,ICECAVE.13
AT       ICECAVE.13
         MOVE  NORTH,ICECAVE.12A
AT       ICECAVE.14
         MOVE  NORTH,ICECAVE.15A
AT       ICECAVE.15
         MOVE  EAST,ICECAVE.12
         MOVE  SOUTH,ICECAVE.15A
         MOVE  NORTHWEST,ICECAVE.16
AT       ICECAVE.15A
         MOVE  SOUTH,ICECAVE.14
         MOVE  NORTH,ICECAVE.15
AT       ICECAVE.16
         MOVE  EAST,ICECAVE.15
AT       ICECAVE.17
         MOVE  NORTHEAST,ICECAVE.16
         MOVE  SOUTH,ICECAVE.18
AT       ICECAVE.18
         MOVE  NORTH,ICECAVE.17
         MOVE  SOUTH,ICECAVE.19
         MOVE  WEST,ICECAVE.21
         MOVE  NORTHWEST,ICECAVE.22
AT       ICECAVE.19
         MOVE  NORTH,ICECAVE.18
         MOVE  WEST,ICECAVE.20
AT       ICECAVE.20
         MOVE  EAST,ICECAVE.19
         MOVE  NORTH,ICECAVE.21
AT       ICECAVE.21
         MOVE  EAST,ICECAVE.18
         MOVE  SOUTH,ICECAVE.20
AT       ICECAVE.22
         MOVE  SOUTHEAST,ICECAVE.18
         MOVE  NORTHWEST,ICECAVE.23
AT       ICECAVE.23
         MOVE  EAST,ICECAVE.22
         MOVE  WEST,ICECAVE.24
AT       ICECAVE.24
         MOVE  NORTHEAST,ICECAVE.23
         MOVE  SOUTH,ICECAVE.25
         MOVE  WEST,ICECAVE.29
AT       ICECAVE.25
         MOVE  NORTH,ICECAVE.24
         MOVE  SOUTH,ICECAVE.26
         MOVE  WEST,ICECAVE.28
         MOVE  NORTHWEST,ICECAVE.28A
AT       ICECAVE.26
         MOVE  NORTH,ICECAVE.25
         MOVE  NORTHWEST,ICECAVE.27
AT       ICECAVE.27
         MOVE  SOUTHEAST,ICECAVE.26
         MOVE  NORTH,ICECAVE.28
AT       ICECAVE.28
         MOVE  EAST,ICECAVE.25
         MOVE  SOUTH,ICECAVE.27
AT       ICECAVE.28A
         MOVE  SOUTHEAST,ICECAVE.25
         MOVE  NORTH,ICECAVE.29
AT       ICECAVE.29
         MOVE  EAST,ICECAVE.24
         MOVE  SOUTH,ICECAVE.28A
         MOVE  NORTHWEST,ICECAVE.30
AT       ICECAVE.30
         MOVE  EAST,ICECAVE.29
         SMOVE THURB,ICE,FOOF
AT       BRINK.3
         MOVE  NORTH,BRINK.1
         MOVE  NORTHEAST,CRACK.1
AT       BRINK.3
         KEYWORD  JUMP
         CALL  PLUNGE
AT       CRACK.1
         MOVE  SOUTHWEST,BRINK.3
         MOVE  SOUTHEAST,CRACK.2
AT       CRACK.2
         MOVE  WEST,CRACK.1
AT       CRACK.2
         KEYWORD  SOUTH
         IFNEAR   SLIME
            SAY   SLIMED
            CALL  CORONER
         ELSE
            GOTO  CRACK.3
         FIN
         QUIT
AT       CRACK.3
         MOVE  NORTH,CRACK.2
         MOVE  SOUTH,CRACK.4
         MOVE  CRAWL,CRACK.4
AT       CRACK.4
         MOVE  NORTH,CRACK.3
         MOVE  OUT,CRACK.3
         MOVE  CRAWL,CRACK.3
AT       ARCH.COR.1
         MOVE  WEST,ARCHED
AT       ARCH.COR.1
         KEYWORD  EAST
         IFEQ  QUICKSAND,0
            OR
         IFHAVE   CLAM
            OR
         IFHAVE   OYSTER
            SET   QUICKSAND,0
            BIT   QUICKSAND,SPECIAL1
               SAY   SCHLURP2
            ELSE
               SAY   SCHLURP
               BIS   QUICKSAND,SPECIAL1
            FIN
            GOTO  YLEM
            CALL  CORONER
         ELSE
            GOTO  ARCH.COR.2
            SET   QUICKSAND,0
         FIN
         QUIT
AT       ARCH.COR.2
         MOVE  NORTH,ARCH.FORK
AT       ARCH.COR.2
         KEYWORD   WEST
         IFEQ  QUICKSAND,0
            BIT   QUICKSAND,SPECIAL1
               SAY   SCHLURP2
            ELSE
               SAY   SCHLURP
               BIS   QUICKSAND,SPECIAL1
            FIN
            GOTO  YLEM
            CALL  CORONER
         ELSE
            GOTO  ARCH.COR.1
            SET   QUICKSAND,0
         FIN
         QUIT
AT       ARCH.FORK
         MOVE  SOUTH,ARCH.COR.2
         MOVE  NORTH,FOURIER
         MOVE  EAST,JONAH
         MOVE  JONAH,JONAH
         MOVE  FOURIER,FOURIER
AT       FOURIER
         MOVE  NORTHWEST,ARCH.FORK
         MOVE  SOUTHWEST,SHELF
AT       SHELF
         MOVE  WEST,FOURIER
         MOVE  DOWN,BEACH
         MOVE  STEPS,BEACH
AT       BEACH
         ANYOF UP,SHELF,STEPS,WEST
         SET   DINGHY,1
         GOTO  SHELF
         QUIT
AT       BEACH
         ANYOF WATER,FILL,DRINK
         SAY   SALT.H20.BAD
         QUIT
AT       JONAH
         MOVE  SOUTH,IN.JONAH
         MOVE  WEST,ARCH.FORK
AT       IN.JONAH
         MOVE  NORTH,JONAH
         MOVE  OUT,JONAH
AT       FACES
         MOVE  NORTH,BY.FIGURE
AT       FACES
         ANYOF CROSS,GORGE,SOUTH
         IFEQ  GORGE,0
            SAY   NO.ARCH
         ELSE
            IFHAVE   RING
               IFHAVE   SCEPTRE
                  SAY   GHOST.BANG
                  GOTO  YLEM
                  SET   GORGE,0
                  CALL  CORONER
               ELSE
                  GOTO  BREATHTAKER
               FIN
            ELSE
               SAY   FUMES.BURN
               GOTO  YLEM
               CALL  CORONER
            FIN
         FIN
         QUIT
AT       BY.FIGURE
         IFEQ  STATUE,1
            MOVE  NORTHWEST,PLAIN.1
            MOVE  NORTH,BASQUE.1
            MOVE  NORTHEAST,BANSHEE.1
         FIN
         MOVE  SOUTH,FACES
         MOVE  SOUTH,BY.FIGURE
         IFKEY NORTH
            SET   FOG,0
            APPORT   FOG,PLAIN.2
            GOTO  PLAIN.2
            QUIT
         FIN
AT       PLAIN.2
         ANYOF NORTH,EAST,SOUTH,WEST
         ANYOF NE,NW,SE,SW
         ITLIST   I     {if this turkey left anything here in the fog,}
            IFNEAR   I
               AND
               NOT
            IFHAVE   I
               AND
            BIT   I,PORTABLE  {he's going to lose it forever!}
               APPORT   I,YLEM
            FIN
         EOI
         LDA   I,EAST
         ADD   I,GLOW
         IFEQ  I,ARG2
            AND
         IFEQ  STATUS,2
            OR
         IFEQ  I,ARG1
            AND
         IFNEAR   GLOW     {by luck? or did he know for sure?}
            GOTO  PLAIN.3
            SET   FOG,8    {so it's not obvious}
         ELSE
            GOTO  PLAIN.2  {bad moves - stumble back here!}
         FIN
         QUIT
AT       PLAIN.3
         IFKEY DOWN
            GOTO  NONDESCRIPT
            APPORT   FOG,PLAIN.1
            QUIT
         FIN
AT       PLAIN.3
         ANYOF NORTH,EAST,SOUTH,WEST
         ANYOF NE,NW,SE,SW
         GOTO  PLAIN.2
         SET   FOG,0    {so it starts changing again}
         QUIT
AT       NONDESCRIPT
         MOVE  NORTH,PENTAGRAM
         MOVE  PENTAGRAM,PENTAGRAM
AT       NONDESCRIPT
         ANYOF UP,SOUTH
         APPORT   FOG,PLAIN.2
         GOTO  PLAIN.3
         QUIT
AT       PENTAGRAM
         KEYWORD FLASK
         ANYOF DROP,THROW
         HAVE  FLASK
         IFEQ  FLASK,1
            DROP  FLASK
            SAY   SET.FLASK.DOWN
            SET   FLASK,0
            QUIT
         FIN
AT       PENTAGRAM
         MOVE  WEST,NONDESCRIPT
         MOVE  OUT,NONDESCRIPT
         MOVE  NONDESCRIPT,NONDESCRIPT
         MOVE  NORTH,CHIMNEY
         MOVE  CRACK,CHIMNEY
         MOVE  CHIMNEY,CHIMNEY
AT       CHIMNEY
         MOVE  UP,TUBE
         MOVE  CLIMB,TUBE
         MOVE  TUBE,TUBE
         MOVE  SOUTH,PENTAGRAM
         MOVE  PENTAGRAM,PENTAGRAM
         MOVE  CRACK,PENTAGRAM
AT       TUBE
         MOVE  DOWN,CHIMNEY
         MOVE  CHIMNEY,CHIMNEY
         MOVE  CLIMB,CHIMNEY
         MOVE  TUBE,TUBE.SLIDE
         MOVE  SLIDE,TUBE.SLIDE
         MOVE  SOUTH,TUBE.SLIDE
AT       TUBE.SLIDE
         SMOVE SOUTH,PLAIN.1,OOF
         SMOVE DOWN,PLAIN.1,OOF
         SMOVE SLIDE,PLAIN.1,OOF
         MOVE  NORTH,TUBE
         MOVE  CHIMNEY,CHIMNEY
         MOVE  TUBE,CHIMNEY
AT       BASQUE.1
         MOVE  SOUTH,BY.FIGURE
         IFKEY NORTH
            GOTO  BASQUE.2
            ADD   BASILISK,1
            IFEQ  BASILISK,1
               SAY   BAS.GRUMBLE
            FIN
            QUIT
         FIN
AT       BASQUE.2
         MOVE  NORTH,BASQUE.FORK
         IFKEY SOUTH
            SUB   BASILISK,1
            IFEQ  BASILISK,0
               IFHAVE   PLATE
                  SAY   PETRIFY.SELF
                  SET   BASILISK,2
               ELSE
                  SAY   PETRIFY.ME
                  CALL  CORONER
               FIN
            FIN
            GOTO  BASQUE.1
         FIN
AT       BASQUE.FORK
         MOVE  NORTH,PEELGRUNT
         MOVE  PEELGRUNT,PEELGRUNT
         MOVE  SOUTH,BASQUE.2
         MOVE  DOWN,ON.STEPS
         MOVE  STEPS,ON.STEPS
AT       PEELGRUNT
         ANYOF SOUTH,OUT,FORK
         IFEQ  SAFE,1
            SAY   SAFE.BLOCKS
         ELSE
            GOTO  BASQUE.FORK
         FIN
         QUIT
AT       PEELGRUNT
         KEYWORD  IN
         IFEQ  SAFE,1
            SET   SAFEEXIT,HERE
            GOTO  INSAFE
         ELSE
            SAY   CANTENTERSAFE
         FIN
         QUIT
AT       ON.STEPS
         MOVE  UP,BASQUE.FORK
         MOVE  DOWN,STEPS.EXIT
         MOVE  STEPS,STEPS.EXIT
AT       STEPS.EXIT
         MOVE  UP,ON.STEPS
         MOVE  DOWN,STORAGE
         MOVE  NORTH,FAKE.Y2
         MOVE  STEPS,STORAGE
         MOVE  EXIT,FAKE.Y2
AT       STORAGE
         MOVE  UP,STEPS.EXIT
         MOVE  STEPS,STEPS.EXIT
AT       FAKE.Y2
         MOVE  SOUTH,STEPS.EXIT
         MOVE  WEST,CATACOMBS.1
         MOVE  EAST,FAKE.JUMBLE
AT       FAKE.Y2
         ANYOF PLUGH,PLOVER
         BIT   ADMIN,NOMAGIC
            SAY   NOTHING
         ELSE
            SAY   FOOF
            GOTO  PLATFORM
         FIN
         QUIT
AT       FAKE.JUMBLE
         MOVE  DOWN,FAKE.Y2
         MOVE  WEST,FAKE.Y2
         MOVE  UP,CATACOMBS.1
AT       AUDIENCE
         MOVE  EAST,AUDIENCE.E
         MOVE  WEST,CATACOMBS.11
AT       AUDIENCE.E
         MOVE  WEST,AUDIENCE
AT       CATACOMBS.1
         MOVE  SOUTH,CATACOMBS.2
         GOTO  CATACOMBS.1
         QUIT
AT       CATACOMBS.2
         MOVE  SW,CATACOMBS.3
         ANYOF NORTH,NW,WEST,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.1
         QUIT
AT       CATACOMBS.3
         MOVE  NW,CATACOMBS.4
         ANYOF NORTH,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.2
         QUIT
AT       CATACOMBS.4
         MOVE  SOUTH,CATACOMBS.5
         ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.3
         QUIT
AT       CATACOMBS.5
         MOVE  DOWN,CATACOMBS.6
         ANYOF NORTH,NW,WEST,SW,SOUTH,SE,EAST,NE,UP
         GOTO  CATACOMBS.4
         QUIT
AT       CATACOMBS.6
         MOVE  WEST,CATACOMBS.7
         ANYOF NORTH,NW,SW,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.5
         QUIT
AT       CATACOMBS.7
         MOVE  NW,CATACOMBS.8
         ANYOF NORTH,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.6
         QUIT
AT       CATACOMBS.8
         MOVE  NORTH,CATACOMBS.9
         ANYOF NW,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.7
         QUIT
AT       CATACOMBS.9
         MOVE  SOUTH,CATACOMBS.10
         ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.8
         QUIT
AT       CATACOMBS.10
         MOVE  NORTH,CATACOMBS.11
         ANYOF NW,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.9
         QUIT
AT       CATACOMBS.11
         MOVE  SW,CATACOMBS.12
         MOVE  EAST,AUDIENCE
         ANYOF NORTH,NW,WEST,SOUTH,SE,NE,UP,DOWN
         GOTO  CATACOMBS.10
AT       CATACOMBS.12
         MOVE  EAST,CATACOMBS.13
         ANYOF NORTH,NW,WEST,SW,SOUTH,SE,NE,UP,DOWN
         GOTO  CATACOMBS.11
         QUIT
AT       CATACOMBS.13
         MOVE  SE,CATACOMBS.14
         ANYOF NORTH,NW,WEST,SW,SOUTH,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.12
         QUIT
AT       CATACOMBS.14
         MOVE  NE,CATACOMBS.15
         ANYOF NORTH,NW,WEST,SW,SOUTH,SE,EAST,UP,DOWN
         GOTO  CATACOMBS.13
         QUIT
AT       CATACOMBS.15
         MOVE  EAST,CATACOMBS.16
         ANYOF NORTH,NW,WEST,SW,SOUTH,SE,NE,UP,DOWN
         GOTO  CATACOMBS.14
         QUIT
AT       CATACOMBS.16
         MOVE  SE,CATACOMBS.17
         ANYOF NORTH,NW,WEST,SW,SOUTH,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.15
         QUIT
AT       CATACOMBS.17
         MOVE  DOWN,CATACOMBS.18
         ANYOF NORTH,NW,WEST,SW,SOUTH,SE,EAST,NE,UP
         GOTO  CATACOMBS.16
         QUIT
AT       CATACOMBS.18
         MOVE  SOUTH,CATACOMBS.19
         ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.17
         QUIT
AT       CATACOMBS.19
         MOVE  NORTH,FAKE.Y2
         ANYOF NW,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN
         GOTO  CATACOMBS.18
         QUIT
AT       BANSHEE.1
         MOVE  NORTHWEST,BY.FIGURE
         MOVE  NORTH,GOLDEN
         MOVE  GOLDEN,GOLDEN
AT       GOLDEN
         MOVE  NORTHEAST,ARABESQUE
         MOVE  NORTHWEST,TRANSLUCENT
         MOVE  ARABESQUE,ARABESQUE
         MOVE  TRANSLUCENT,TRANSLUCENT
         MOVE  SOUTH,BANSHEE.1
AT       ARABESQUE
         MOVE  SOUTH,GOLDEN
         MOVE  GOLDEN,GOLDEN
AT       TRANSLUCENT
         ANYOF OUT,EAST,GOLDEN
         NOT
         BIT   GOBLINS,SPECIAL1
            BIS   GOBLINS,SPECIAL1
            APPORT   GOBLINS,HERE
            SET   GOBLINS,-1
         FIN
         GOTO  GOLDEN
         QUIT
AT       PLATFORM
         SMOVE PLUGH,FAKE.Y2,FOOF
         SMOVE PLOVER,FAKE.Y2,FOOF
AT       PLATFORM
         ANYOF DOWN,CLIMB,NORTH,SOUTH,EAST,WEST,NORTHEAST
         ANYOF NORTHWEST,SOUTHEAST,SOUTHWEST,JUMP
         SAY   SIZZLE
         GOTO  YLEM
         CALL  CORONER
AT       CYLINDRICAL
         ANYOF ZORTON,XYZZY,THURB,SNOEZE,SAMOHT,PLUGH,NOSIDE,MELENKURION
         ANYOF KNERL,KLAETU,FOO,FOE,FIE,FEE,BLERBI,PHUGGG
         IFKEY SAY
            SET   I,ARG2
         ELSE
            IFEQ  STATUS,1
               SET   I,ARG1
            ELSE
               SET   I,0
            FIN
         FIN
         LDA   J,ZORTON
         SUB   I,J
         IFEQ  I,ESCAPE
            IFKEY BLERBI
               SET   CLOSURE,4
               SAY   FOOF
               GOTO  ROAD
            ELSE
               SAY   OK!
               ADD   ESCAPE,1
            FIN
         ELSE
            SET   ESCAPE,0
            SAY   NOTHING
         FIN
         QUIT
