Object roof "Museum Roof: area 33"
  with name "trapdoor",
       description
          "A small trapdoor leads down from this tiled roof into the 
           museum. The view is indescribable, which saves me some typing 
           and you some reading, right? Yes -- this is one of those 
           post-modern room descriptions, the kind that makes you aware 
           you're only playing a game.",
       d_to Third_Floor,
  has  light;

Global status_style = 3;

Object -> "dial"
  with name "dial",
       initial
          "A dial here has four settings, which control the appearance
           of the status line drawn by the computer to indicate the
           state of play.  Settings are: 1 - invisible; 2 - centred
           place name only; 3 - standard Score/Turns display;
           4 - a compass rose of possible directions to go in.",
       before
       [;  SetTo:
               if (second<1 || second>4) "There are only four settings.";
               status_style = second; "Set.";
       ],
  has  static;

! --------------------------------------------------------------------------