Type
  PMenuItem = ^tMenuItem;

  tMenuItem = Record
    Action                  : Integer;
    OptData                 : String [80];
    Flags                   : String [ 26];
    Security                : Word;
    Display                 : String [200];
    HotKey                  : Char;
    AutoExec                : Boolean;
  End;

  tMenuHeader = Record
    DisplayFile, Prompt          : String [80];
    WriteHotKeys                 : Boolean;
    ArrowHor, ArrowVer, StartY,
    StartX, SelectedColor        : Byte;
  End;
