INITIAL
         SAY   BLANK
         RANDOM   I,100       {kick the random number generator}
         ITOBJ I
            APPORT   I,LIMBO
         EOI
INITIAL              * Initialize portability of some objects
          BIS KEYS,PORTABLE
          BIS LAMP,PORTABLE
          BIS CAGE,PORTABLE
          BIS ROD,PORTABLE
          BIS DYNAMITE,PORTABLE
          BIS BIRD,PORTABLE
          BIS PILLOW,PORTABLE
          BIS CLAM,PORTABLE
          BIS OYSTER,PORTABLE
          BIS MAGAZINES,PORTABLE
          BIS KNIFE,PORTABLE
          BIS FOOD,PORTABLE
          BIS BOTTLE,PORTABLE
          BIS WATER,PORTABLE
          BIS OIL,PORTABLE
          BIS AXE,PORTABLE
          BIS BEAR,PORTABLE
          BIS BATTERIES,PORTABLE
          BIS GOLD,PORTABLE
          BIS DIAMONDS,PORTABLE
          BIS SILVER,PORTABLE
          BIS JEWELRY,PORTABLE
          BIS COINS,PORTABLE
          BIS CHEST,PORTABLE
          BIS EGGS,PORTABLE
          BIS TRIDENT,PORTABLE
          BIS VASE,PORTABLE
          BIS POTTERY,PORTABLE
          BIS EMERALD,PORTABLE
          BIS PYRAMID,PORTABLE
          BIS PEARL,PORTABLE
          BIS RUG,PORTABLE
          BIS SPICES,PORTABLE
          BIS CHAIN,PORTABLE
          BIS RING,PORTABLE
          BIS SPYGLASS,PORTABLE
          BIS BAG,PORTABLE
          BIS HELMET,PORTABLE
          BIS TEETH,PORTABLE
          BIS VIAL,PORTABLE
          BIS MUSHROOM,PORTABLE
          BIS SCULPTURE,PORTABLE
          BIS BRACELET,PORTABLE
          BIS CASKET,PORTABLE
          BIS SWORD,PORTABLE
         BIS   CROWN,PORTABLE
         BIS   YACHT,PORTABLE
         BIS   FLASK,PORTABLE
         BIS   PLATE,PORTABLE
         BIS   BEADS,PORTABLE
INIT           * Set FREEBIE objects
         BIS   BIRD,FREEBIE
         BIS   OIL,FREEBIE
         BIS   WATER,FREEBIE
         BIS   BEAR,FREEBIE
INIT           * Specify which rooms are self-lit (lamp not needed)
          BIS ROAD,LIT
          BIS HILL,LIT
          BIS BUILDING,LIT
          BIS VALLEY,LIT
          BIS FOREST,LIT
          BIS FOREST2,LIT
          BIS SLIT,LIT
         BIS   FAKE.SLIT,LIT
          BIS DEPRESSION,LIT
          BIS INCAVE,LIT
          BIS COBBLES,LIT
          BIS PLOVER,LIT
          BIS BREATHTAKER,LIT
         BIS   LAIR,LIT
         BIS   SHELF,LIT
         BIS   BEACH,LIT
         BIS   PLAIN.2,LIT
         BIS   PLAIN.3,LIT
         BIS   FACES,LIT
         BIS   BY.FIGURE,LIT
         BIS   AUDIENCE,LIT
         BIS   AUDIENCE.E,LIT
         BIS   TRANSLUCENT,LIT
         BIS   PLATFORM,LIT
         BIS   CYLINDRICAL,LIT
         BIS   TREASUREROOM,LIT
         BIS   BALCONY,LIT
INITIAL           * Set dwarf-inhibits for appropriate places
         BIS  INCAVE,NODWARF
         BIS  COBBLES,NODWARF
         BIS  ALCOVE,NODWARF
         BIS  PLOVER,NODWARF
         BIS  DARK,NODWARF
         BIS  SWOFCHASM,NODWARF
         BIS  NEOFCHASM,NODWARF
         BIS  CORRIDOR,NODWARF
         BIS  FORK,NODWARF
         BIS  WARMJUNCTN,NODWARF
         BIS  BREATHTAKER,NODWARF
         BIS  BOULDERS,NODWARF
         BIS  LIMESTONE,NODWARF
         BIS  BARREN,NODWARF
         BIS  BEARHERE,NODWARF
         BIS   MAZEA.114,NODWARF
         BIS   EASTPIT,NODWARF
         BIS   WESTPIT,NODWARF
         BIS   STREAMPIT,NODWARF
         BIS FACES,NODWARF
         BIS BY.FIGURE,NODWARF
         BIS PLAIN.1,NODWARF
         BIS PLAIN.2,NODWARF
         BIS PLAIN.3,NODWARF
         BIS NONDESCRIPT,NODWARF
         BIS PENTAGRAM,NODWARF
         BIS CHIMNEY,NODWARF
         BIS TUBE,NODWARF
         BIS TUBE.SLIDE,NODWARF
         BIS BASQUE.1,NODWARF
         BIS BASQUE.2,NODWARF
         BIS BASQUE.FORK,NODWARF
         BIS   PEELGRUNT,NODWARF
         BIS ON.STEPS,NODWARF
         BIS STEPS.EXIT,NODWARF
         BIS STORAGE,NODWARF
         BIS FAKE.Y2,NODWARF
         BIS FAKE.JUMBLE,NODWARF
         BIS CATACOMBS.1,NODWARF
         BIS CATACOMBS.2,NODWARF
         BIS CATACOMBS.3,NODWARF
         BIS CATACOMBS.4,NODWARF
         BIS CATACOMBS.5,NODWARF
         BIS CATACOMBS.6,NODWARF
         BIS CATACOMBS.7,NODWARF
         BIS CATACOMBS.8,NODWARF
         BIS CATACOMBS.9,NODWARF
         BIS CATACOMBS.10,NODWARF
         BIS CATACOMBS.11,NODWARF
         BIS CATACOMBS.12,NODWARF
         BIS CATACOMBS.13,NODWARF
         BIS CATACOMBS.14,NODWARF
         BIS CATACOMBS.15,NODWARF
         BIS CATACOMBS.16,NODWARF
         BIS CATACOMBS.17,NODWARF
         BIS CATACOMBS.18,NODWARF
         BIS CATACOMBS.19,NODWARF
         BIS AUDIENCE,NODWARF
         BIS AUDIENCE.E,NODWARF
         BIS BANSHEE.1,NODWARF
         BIS GOLDEN,NODWARF
         BIS ARABESQUE,NODWARF
         BIS TRANSLUCENT,NODWARF
        BIS RESERVOIR.N,NODWARF
        BIS WARM,NODWARF
        BIS BALCONY,NODWARF
         BIS   INSAFE,NODWARF
INITIAL                 (Specify what places aren't in the cave)
         BIS ROAD,NOTINCAVE
         BIS HILL,NOTINCAVE
         BIS BUILDING,NOTINCAVE
         BIS VALLEY,NOTINCAVE
         BIS FOREST,NOTINCAVE
         BIS FOREST2,NOTINCAVE
         BIS SLIT,NOTINCAVE
         BIS DEPRESSION,NOTINCAVE
         BIS   FAKE.SLIT,NOTINCAVE
INITIAL              {indicate where "BACK" command invalid}
*
* Most of the rooms in the mazes are NOBACK-type places to give
* the adventurer heartburn and a possible ulcer.  The two rooms that
* are at the very entrances of their respective mazes (MAXEA.42 and
* MAZED.107) are not NOBACK-types, so that if you accidentally
* wander into the mazes you can escape quickly by saying "GO BACK".
* You still can't use "BACK" when in these rooms if you got there
* from another room in the maze, because the room you came from
* has the "NOBACK" bit set.
*
         BIS MAZEA.43,NOBACK
         BIS MAZEA.44,NOBACK
         BIS MAZEA.45,NOBACK
         BIS MAZEA.46,NOBACK
         BIS MAZEA.47,NOBACK
         BIS MAZEA.48,NOBACK
         BIS MAZEA.49,NOBACK
         BIS MAZEA.50,NOBACK
         BIS MAZEA.51,NOBACK
         BIS MAZEA.52,NOBACK
         BIS MAZEA.53,NOBACK
         BIS MAZEA.54,NOBACK
         BIS MAZEA.55,NOBACK
         BIS MAZEA.56,NOBACK
         BIS MAZEA.57.PIT,NOBACK
         BIS MAZEA.58,NOBACK
         BIS MAZEA.80,NOBACK
         BIS MAZEA.81,NOBACK
         BIS MAZEA.82,NOBACK
         BIS MAZEA.83,NOBACK
         BIS MAZEA.84,NOBACK
         BIS MAZEA.85,NOBACK
         BIS MAZEA.86,NOBACK
         BIS MAZEA.87,NOBACK
         BIS MAZED.112,NOBACK
         BIS MAZED.131,NOBACK
         BIS MAZED.132,NOBACK
         BIS MAZED.133,NOBACK
         BIS MAZED.134,NOBACK
         BIS MAZED.135,NOBACK
         BIS MAZED.136,NOBACK
         BIS MAZED.137,NOBACK
         BIS MAZED.138,NOBACK
         BIS MAZED.139,NOBACK
         BIS MAZED.140,NOBACK
         BIS   INCLINE,NOBACK
         BIS   STALACT,NOBACK
         BIS   SWOFCHASM,NOBACK
         BIS   NEOFCHASM,NOBACK
         BIS   WITTSEND,NOBACK
         BIS   ALCOVE,NOBACK
         BIS   PLOVER,NOBACK
         BIS   DARK,NOBACK
         BIS   NSCANYONWIDE,NOBACK
         BIS   ICECAVE.1,NOBACK
         BIS   ICECAVE.2,NOBACK
         BIS   ICECAVE.3,NOBACK
         BIS   ICECAVE.4,NOBACK
         BIS   ICECAVE.5,NOBACK
         BIS   ICECAVE.6,NOBACK
         BIS   ICECAVE.7,NOBACK
         BIS   ICECAVE.8,NOBACK
         BIS   ICECAVE.9,NOBACK
         BIS   ICECAVE.10,NOBACK
         BIS   ICECAVE.11,NOBACK
         BIS   ICECAVE.12,NOBACK
         BIS   ICECAVE.13,NOBACK
         BIS   ICECAVE.14,NOBACK
         BIS   ICECAVE.15,NOBACK
         BIS   ICECAVE.16,NOBACK
         BIS   ICECAVE.17,NOBACK
         BIS   ICECAVE.18,NOBACK
         BIS   ICECAVE.19,NOBACK
         BIS   ICECAVE.20,NOBACK
         BIS   ICECAVE.21,NOBACK
         BIS   SLIDE,NOBACK
         BIS   ICE,NOBACK
         BIS   CATACOMBS.1,NOBACK
         BIS   CATACOMBS.2,NOBACK
         BIS   CATACOMBS.3,NOBACK
         BIS   CATACOMBS.4,NOBACK
         BIS   CATACOMBS.5,NOBACK
         BIS   CATACOMBS.6,NOBACK
         BIS   CATACOMBS.7,NOBACK
         BIS   CATACOMBS.8,NOBACK
         BIS   CATACOMBS.9,NOBACK
         BIS   CATACOMBS.10,NOBACK
         BIS   CATACOMBS.11,NOBACK
         BIS   CATACOMBS.12,NOBACK
         BIS   CATACOMBS.13,NOBACK
         BIS   CATACOMBS.14,NOBACK
         BIS   CATACOMBS.15,NOBACK
         BIS   CATACOMBS.16,NOBACK
         BIS   CATACOMBS.17,NOBACK
         BIS   CATACOMBS.18,NOBACK
         BIS   CATACOMBS.19,NOBACK
         BIS   FACES,NOBACK
         BIS   PLAIN.1,NOBACK
         BIS   PLAIN.2,NOBACK
         BIS   BASQUE.1,NOBACK
         BIS   CYLINDRICAL,NOBACK
         BIS   PLATFORM,NOBACK
         BIS   SHELL,NOBACK   {so he can't sneak out with the clam}
         BIS   ARCH.COR.1,NOBACK {so he can't retreat over the quicksand}
         BIS   ARCH.COR.2,NOBACK {so he can't retreat over the quicksand}
INITIAL                            {set in-maze bits}
         BIS MAZEA.42,INMAZE
         BIS MAZEA.43,INMAZE
         BIS MAZEA.44,INMAZE
         BIS MAZEA.45,INMAZE
         BIS MAZEA.46,INMAZE
         BIS MAZEA.47,INMAZE
         BIS MAZEA.48,INMAZE
         BIS MAZEA.49,INMAZE
         BIS MAZEA.50,INMAZE
         BIS MAZEA.51,INMAZE
         BIS MAZEA.52,INMAZE
         BIS MAZEA.53,INMAZE
         BIS MAZEA.54,INMAZE
         BIS MAZEA.55,INMAZE
         BIS MAZEA.56,INMAZE
         BIS MAZEA.57.PIT,INMAZE
         BIS MAZEA.58,INMAZE
         BIS MAZEA.80,INMAZE
         BIS MAZEA.81,INMAZE
         BIS MAZEA.82,INMAZE
         BIS MAZEA.83,INMAZE
         BIS MAZEA.84,INMAZE
         BIS MAZEA.85,INMAZE
         BIS MAZEA.86,INMAZE
         BIS MAZEA.87,INMAZE
         BIS MAZED.107,INMAZE
         BIS MAZED.112,INMAZE
         BIS MAZED.131,INMAZE
         BIS MAZED.132,INMAZE
         BIS MAZED.133,INMAZE
         BIS MAZED.134,INMAZE
         BIS MAZED.135,INMAZE
         BIS MAZED.136,INMAZE
         BIS MAZED.137,INMAZE
         BIS MAZED.138,INMAZE
         BIS MAZED.139,INMAZE
         BIS MAZED.140,INMAZE
         BIS   SLIDE,INMAZE
         BIS   ICECAVE.1,INMAZE
         BIS   ICECAVE.1A,INMAZE
         BIS   ICECAVE.2,INMAZE
         BIS   ICECAVE.2A,INMAZE
         BIS   ICECAVE.3,INMAZE
         BIS   ICECAVE.3A,INMAZE
         BIS   ICECAVE.4,INMAZE
         BIS   ICECAVE.5,INMAZE
         BIS   ICECAVE.6,INMAZE
         BIS   ICECAVE.7,INMAZE
         BIS   ICECAVE.8,INMAZE
         BIS   ICECAVE.9,INMAZE
         BIS   ICECAVE.10,INMAZE
         BIS   ICECAVE.11,INMAZE
         BIS   ICECAVE.12,INMAZE
         BIS   ICECAVE.12A,INMAZE
         BIS   ICECAVE.13,INMAZE
         BIS   ICECAVE.14,INMAZE
         BIS   ICECAVE.15,INMAZE
         BIS   ICECAVE.15A,INMAZE
         BIS   ICECAVE.16,INMAZE
         BIS   ICECAVE.17,INMAZE
         BIS   ICECAVE.18,INMAZE
         BIS   ICECAVE.19,INMAZE
         BIS   ICECAVE.20,INMAZE
         BIS   ICECAVE.21,INMAZE
         BIS   ICECAVE.22,INMAZE
         BIS   ICECAVE.23,INMAZE
         BIS   ICECAVE.24,INMAZE
         BIS   ICECAVE.25,INMAZE
         BIS   ICECAVE.26,INMAZE
         BIS   ICECAVE.27,INMAZE
         BIS   ICECAVE.28,INMAZE
         BIS   ICECAVE.28A,INMAZE
         BIS   ICECAVE.29,INMAZE
         BIS   ICECAVE.30,INMAZE
INITIAL                                {specify rooms with only 1 exit}
         BIS  GOLDROOM,ONE.EXIT
         BIS  SANDSTONE,ONE.EXIT
         BIS  WINDOW,ONE.EXIT
         BIS  WINDOW2,ONE.EXIT
         BIS  MAZEA.46,ONE.EXIT
         BIS  MAZEA.47,ONE.EXIT
         BIS  MAZEA.48,ONE.EXIT
         BIS  MAZEA.49,ONE.EXIT
         BIS  MAZEA.54,ONE.EXIT
         BIS  MAZEA.56,ONE.EXIT
         BIS  MAZEA.58,ONE.EXIT
         BIS  DEADEND1,ONE.EXIT
         BIS  DEADEND2,ONE.EXIT
         BIS  DEADEND3,ONE.EXIT
         BIS  MAZEA.81,ONE.EXIT
         BIS  MAZEA.82,ONE.EXIT
         BIS  MAZEA.85,ONE.EXIT
         BIS  MAZEA.86,ONE.EXIT
         BIS  SOFT,ONE.EXIT
         BIS  CULDESAC,ONE.EXIT
         BIS  RESERVOIR,ONE.EXIT
         BIS  BALCONY,ONE.EXIT
         BIS  MAZED.140,ONE.EXIT
         BIS  INSAFE,ONE.EXIT
         BIS  TOOL,ONE.EXIT
         BIS  CUBICLE,ONE.EXIT
         BIS  SPHERICAL,ONE.EXIT
         BIS  ICECAVE.1A,ONE.EXIT
         BIS  ICECAVE.3A,ONE.EXIT
         BIS  ICECAVE.7,ONE.EXIT
         BIS  ICECAVE.8,ONE.EXIT
         BIS  ICECAVE.13,ONE.EXIT
         BIS  ICECAVE.14,ONE.EXIT
         BIS  CRACK.4,ONE.EXIT
         BIS  BEACH,ONE.EXIT
INITIAL                             {specify openable objects}
         BIS   GRATE,OPENABLE
         BIS   DOOR,OPENABLE
         BIS   CLAM,OPENABLE
         BIS   OYSTER,OPENABLE
         BIS   FLASK,OPENABLE
         BIS   CHAIN,OPENABLE
         BIS   SAFE,OPENABLE
         BIS   VIAL,OPENABLE
INITIAL                             {specify invisible objects}
         BIS   STEPS,INVISIBLE
         BIS   FISSURE,INVISIBLE
         BIS   MIRROR,INVISIBLE
         BIS   STALACTITE,INVISIBLE
         BIS   PIRATE,INVISIBLE
         BIS   STATUE,INVISIBLE
         BIS   VOLCANO,INVISIBLE
         BIS   QUICKSAND,INVISIBLE
         BIS   THRONE,INVISIBLE
         BIS   CARPET,INVISIBLE
         BIS   DWARF,INVISIBLE
         BIS   KNIFE,INVISIBLE
         BIS   FOG,INVISIBLE
         BIS   PLANT2,INVISIBLE
INITIAL                            {set hint-exists bits}
         BIS MAZEA.42,HINTABLE
         BIS MAZEA.43,HINTABLE
         BIS MAZEA.44,HINTABLE
         BIS MAZEA.45,HINTABLE
         BIS MAZEA.46,HINTABLE
         BIS MAZEA.47,HINTABLE
         BIS MAZEA.48,HINTABLE
         BIS MAZEA.49,HINTABLE
         BIS MAZEA.50,HINTABLE
         BIS MAZEA.51,HINTABLE
         BIS MAZEA.52,HINTABLE
         BIS MAZEA.53,HINTABLE
         BIS MAZEA.54,HINTABLE
         BIS MAZEA.55,HINTABLE
         BIS MAZEA.56,HINTABLE
         BIS MAZEA.57.PIT,HINTABLE
         BIS MAZEA.58,HINTABLE
         BIS MAZEA.80,HINTABLE
         BIS MAZEA.81,HINTABLE
         BIS MAZEA.82,HINTABLE
         BIS MAZEA.83,HINTABLE
         BIS MAZEA.84,HINTABLE
         BIS MAZEA.85,HINTABLE
         BIS MAZEA.86,HINTABLE
         BIS MAZEA.87,HINTABLE
         BIS MAZED.107,HINTABLE
         BIS MAZED.112,HINTABLE
         BIS MAZEA.114,HINTABLE
         BIS MAZED.131,HINTABLE
         BIS MAZED.132,HINTABLE
         BIS MAZED.133,HINTABLE
         BIS MAZED.134,HINTABLE
         BIS MAZED.135,HINTABLE
         BIS MAZED.136,HINTABLE
         BIS MAZED.137,HINTABLE
         BIS MAZED.138,HINTABLE
         BIS MAZED.139,HINTABLE
         BIS MAZED.140,HINTABLE
         BIS   DEPRESSION,HINTABLE
         BIS   MTKING,HINTABLE
         BIS   WITTSEND,HINTABLE
         BIS   PLOVER,HINTABLE
         BIS   ALCOVE,HINTABLE
         BIS   DARK,HINTABLE
         BIS   SLIDE,HINTABLE
         BIS   ICECAVE.1,HINTABLE
         BIS   ICECAVE.1A,HINTABLE
         BIS   ICECAVE.2,HINTABLE
         BIS   ICECAVE.2A,HINTABLE
         BIS   ICECAVE.3,HINTABLE
         BIS   ICECAVE.3A,HINTABLE
         BIS   ICECAVE.4,HINTABLE
         BIS   ICECAVE.5,HINTABLE
         BIS   ICECAVE.6,HINTABLE
         BIS   ICECAVE.7,HINTABLE
         BIS   ICECAVE.8,HINTABLE
         BIS   ICECAVE.9,HINTABLE
         BIS   ICECAVE.10,HINTABLE
         BIS   ICECAVE.11,HINTABLE
         BIS   ICECAVE.12,HINTABLE
         BIS   ICECAVE.12A,HINTABLE
         BIS   ICECAVE.13,HINTABLE
         BIS   ICECAVE.14,HINTABLE
         BIS   ICECAVE.15,HINTABLE
         BIS   ICECAVE.15A,HINTABLE
         BIS   ICECAVE.16,HINTABLE
         BIS   ICECAVE.17,HINTABLE
         BIS   ICECAVE.18,HINTABLE
         BIS   ICECAVE.19,HINTABLE
         BIS   ICECAVE.20,HINTABLE
         BIS   ICECAVE.21,HINTABLE
         BIS   ICECAVE.22,HINTABLE
         BIS   ICECAVE.23,HINTABLE
         BIS   ICECAVE.24,HINTABLE
         BIS   ICECAVE.25,HINTABLE
         BIS   ICECAVE.26,HINTABLE
         BIS   ICECAVE.27,HINTABLE
         BIS   ICECAVE.28,HINTABLE
         BIS   ICECAVE.28A,HINTABLE
         BIS   ICECAVE.29,HINTABLE
         BIS   ICECAVE.30,HINTABLE
         BIS   PLAIN.2,HINTABLE
INITIAL              {Declare water-holes}
         BIS BUILDING,H20HERE
         BIS ROAD,H20HERE
         BIS VALLEY,H20HERE
         BIS SLIT,H20HERE
         BIS STREAMPIT,H20HERE
         BIS CAVERN,H20HERE
         BIS RESERVOIR,H20HERE
         BIS   RESERVOIR.N,H20HERE
INIT           {indicate where throwing things sends them elsewhere}
         BIS PIT,THROWER
         BIS EASTOFFISSUR,THROWER
         BIS WESTOFFISSUR,THROWER
         BIS WEND2PIT,THROWER
         BIS EEND2PIT,THROWER
         BIS LOWNSPASSAGE,THROWER
         BIS WINDOW,THROWER
         BIS WINDOW2,THROWER
         BIS BRINK,THROWER
         BIS DUSTY,THROWER
         BIS MAZEA.57.PIT,THROWER
         BIS SECRETNSCYN,THROWER
         BIS SECRETNSCPAS,THROWER
         BIS SECRETEW.TITE,THROWER
         BIS INCLINE,THROWER
         BIS CAVERN,THROWER
         BIS MISTY,THROWER
         BIS RESERVOIR,THROWER
         BIS RESERVOIR.N,THROWER
         BIS STALACT,THROWER
         BIS BALCONY,THROWER
         BIS SWOFCHASM,THROWER
         BIS NEOFCHASM,THROWER
         BIS BREATHTAKER,THROWER
         BIS FACES,THROWER
         BIS TUBE,THROWER
         BIS TUBE.SLIDE,THROWER
         BIS BASQUE.FORK,THROWER
         BIS ON.STEPS,THROWER
         BIS STEPS.EXIT,THROWER
         BIS BRINK.1,THROWER
         BIS BRINK.2,THROWER
         BIS ICE,THROWER
         BIS BRINK.3,THROWER
         BIS SHELF,THROWER
         BIS PLATFORM,THROWER
INITIAL              * Declare the treasures
         BIS GOLD,VALUED
         BIS DIAMONDS,VALUED
         BIS SILVER,VALUED
         BIS JEWELRY,VALUED
         BIS COINS,VALUED
         BIS CHEST,VALUED
         BIS EGGS,VALUED
         BIS TRIDENT,VALUED
         BIS EMERALD,VALUED
         BIS PYRAMID,VALUED
         BIS PEARL,VALUED
         BIS RUG,VALUED
         BIS SPICES,VALUED
         BIS CHAIN,VALUED
         BIS   CASKET,VALUED
         BIS   SCULPTURE,VALUED
         BIS   BRACELET,VALUED
         BIS   RING,VALUED
         BIS   SPYGLASS,VALUED
         BIS   BAG,VALUED
         BIS   HELMET,VALUED
         BIS   CROWN,VALUED
         BIS   SCEPTRE,VALUED
         BIS   YACHT,VALUED
         BIS   BRACELET,VALUED
         BIS   BEADS,VALUED
INIT           * Declare unstable objects
         BIS  CHEST,UNSTABLE
         BIS  SCULPTURE,UNSTABLE
         BIS  CAGE,UNSTABLE
         BIS  CASKET,UNSTABLE
         BIS  TEETH,UNSTABLE
         BIS  MUSHROOM,UNSTABLE
         BIS   BAG,UNSTABLE
         BIS   CROWN,UNSTABLE
         BIS   YACHT,UNSTABLE
         BIS   PLATE,UNSTABLE
         BIS   BEADS,UNSTABLE
         BIS   FLASK,UNSTABLE
INITIAL        {declare mortal (killable) things}
         BIS   TROLL,MORTAL
         BIS   DWARF,MORTAL
         BIS   DRAGON,MORTAL
         BIS   SNAKE,MORTAL
         BIS   BLOB,MORTAL
         BIS   BEAR,MORTAL
         BIS   CLAM,MORTAL
         BIS   OYSTER,MORTAL
         BIS   OGRE,MORTAL
         BIS   BIRD,MORTAL
         BIS   DJINN,MORTAL
         BIS   GOBLINS,MORTAL
         BIS   BASILISK,MORTAL
         BIS   GONG,MORTAL    {strange but true - you can HIT GONG}
*
*        Declare edible objects
*
         BIS   FOOD,EDIBLE
         BIS   MUSHROOM,EDIBLE
INITIAL              * Move objects to their starting places
         APPORT LAMP,BUILDING
         APPORT GRATE,DEPRESSION
         APPORT CAGE,COBBLES
         APPORT ROD,DEBRIS
         APPORT STEPS,PIT
         APPORT BIRD,BIRDCHAMBER
         APPORT DOOR,IMMENSENSPASS
         APPORT PILLOW,SOFT
         APPORT SNAKE,MTKING
         APPORT FISSURE,EASTOFFISSUR
         APPORT TABLET,DARK
         APPORT CLAM,SHELL
         APPORT MAGAZINES,ANTEROOM
         APPORT FOOD,BUILDING
         APPORT BOTTLE,BUILDING
         APPORT PLANT,WESTPIT
         APPORT PLANT2,WEND2PIT
         APPORT STALACTITE,STALACT
         APPORT SHADOW,WINDOW
         APPORT DRAWING,ORIENTAL
         APPORT DRAGON,SECRETCYNNE1
         APPORT CHASM,SWOFCHASM
         APPORT TROLL,SWOFCHASM
         APPORT BEAR,BEARHERE
         APPORT VOLCANO,BREATHTAKER
         APPORT MACHINE,MAZED.140
         APPORT CARPET,SOFT
         APPORT GOLD,GOLDROOM
         APPORT DIAMONDS,WESTOFFISSUR
         APPORT SILVER,LOWNSPASSAGE
         APPORT JEWELRY,SOUTHSIDE
         APPORT COINS,WESTSIDE
         APPORT EGGS,GIANT
         APPORT TRIDENT,CAVERN
         APPORT VASE,ORIENTAL
         APPORT EMERALD,PLOVER
         APPORT PYRAMID,DARK
         APPORT SPICES,BOULDERS
         APPORT CHAIN,BEARHERE
         APPORT   SPYGLASS,IN.JONAH
         APPORT   BAG,BEACH
         APPORT   DINGHY,BEACH
         APPORT   HELMET,MORION
         APPORT   VIAL,SPHERICAL
         APPORT   MUSHROOM,CUBICLE
         APPORT   SCULPTURE,ICECAVE.14
         APPORT   CASKET,CRACK.4
         APPORT   SAFE,VAULT
         APPORT   QUICKSAND,ARCH.COR.1
         APPORT   SWORD,SANDSTONE
         APPORT   OGRE,GLASSY
         APPORT   THRONE,AUDIENCE.E
         APPORT   SKELETON,AUDIENCE.E
         APPORT   SCEPTRE,AUDIENCE.E
         APPORT   CROWN,INSAFE
         APPORT   STATUE,BY.FIGURE
         APPORT   FOG,PLAIN.2
         APPORT   YACHT,NONDESCRIPT
         APPORT   BRACELET,TRANSLUCENT
         APPORT   FLASK,ARABESQUE
         APPORT   BASILISK,BASQUE.1
         APPORT   PLATE,STORAGE
         APPORT   BEADS,BALCONY
         APPORT   GONG,RESERVOIR.N
INITIAL           * Declare schizoid objects
         BIS GRATE,SCHIZOID
         BIS STEPS,SCHIZOID
         BIS FISSURE,SCHIZOID
         BIS PLANT2,SCHIZOID
         BIS SHADOW,SCHIZOID
         BIS DRAGON,SCHIZOID
         BIS CHASM,SCHIZOID
         BIS TROLL,SCHIZOID
         BIS TROLL2,SCHIZOID
         BIS QUICKSAND,SCHIZOID
         BIS   SAFE,SCHIZOID
         BIS   FOG,SCHIZOID      {weird case - see PHOG routine}
         BIS   GORGE,SCHIZOID
         BIS   BASILISK,SCHIZOID
INITIAL           * Wake up user and greet him.
         RANDOM   I,100       {kick the random number generator}
         GOTO  ROAD
         LDA   OK,OK!
         RANDOM   CLOCK,10
         ADD   CLOCK,15
         SET   LAMPLIFE,300
         RANDOM   DWARFCOUNT,3
         ADD   DWARFCOUNT,3
         CHANCE   5
            RANDOM   CAMEO.TIME,400
            ADD   CAMEO.TIME,100
         ELSE
            SET   CAMEO.TIME,0
         FIN
         SET   CHAIN,1
         SET   FOG,8
         SET   FLASK,1
         SET   INVCT,0
         SET   STRENGTH,7
         SAY    LOGON
         IFGT  I,0
            LDA   J,CAVE.NOT.OPEN-1
            ADD   J,I
            SAY   J
            IFEQ  I,1
               EXECUTIVE   6,J
            FIN
            SAY   BLANK
            SAY   CAN.DEMO
            QUERY WANT.DEMO
               SAY   BLANK
               SAY   OK!
               SAY   BLANK
               BIS   ADMIN,DEMO
            ELSE
               SAY   TA.TA
               STOP
            FIN
         FIN
         QUERY HITHERE
            SAY   INTRO
         FIN
         SAY   BLANK
INITIAL
         QUIT
