Type
  FlagType = Array[1..4] of Byte;

  UserRecord = Record
    Name:               String[35];
    City:               String[25];
    Pwd:                String[15];
    DataPhone,
    HomePhone:          String[12];
    LastTime:           String[5];
    LastDate:           String[8];
    Attrib:             Byte;
    Flags:              FlagType;
    Credit,
    Pending,
    TimesPosted,
    HighMsgRead,
    SecLvl,
    Times,
    Ups,
    Downs,
    UpK,
    DownK,
    TodayK,
    Elapsed,
    Len:                Integer;
    CombinedPtr:        Word; (* Record number in COMBINED.BBS *)
    Age:                Byte; (* Not yet implemented *)
    ExtraSpace:         Array[1..5] of Byte;
  End;

(*  Attrib:

      Bit 0: Deleted
      Bit 1: Screen Clear Codes
      Bit 2: More Prompt
      Bit 3: ANSI
      Bit 4: No-Kill
      Bit 5: Ignore Download Hours
      Bit 6: ANSI Full Screen Editor
      Bit 7: [ Reserved ]

*)

{ Nodelist Records *************************************************** }

   NodeIdxRecord = Record
     Zone,
     Net,
     Node:      Integer;
     NodeType:  Byte;
   End;

   NodelistRecord = Record
     NodeType:  Byte;
     Zone,
     Net,
     Node:      Integer;
     Name:      String[20];
     City:      String[40];
     Phone:     String[40];
     Password:  String[8];
     Flags:     Integer;
     BaudRate:  Integer;
     Cost:      Integer;
   End;

{ Message Records ******************************************************}

   CombSelectType = Array[1..200] of Boolean; (* for COMBINED.BBS *)

   InfoRecord = Record
     LowMsg:      Integer;     { Lowest Message in File }
     HighMsg:     Integer;     { Highest Message in File }

     TotalActive: Integer;     { Total Active Messages }

     ActiveMsgs:  Array[1..200] of Integer;
   End;

   IdxRecord = Record
     MsgNum:       Integer;
     Board:        Byte;
   End;

   HdrRecord = Record
     MsgNum,
     ReplyTo,
     SeeAlsoNum,
     TRead:              Integer;
     StartRec:           Word;
     NumRecs,
     DestNet,
     DestNode,
     OrigNet,
     OrigNode:           Integer;
     DestZone,
     OrigZone:           Byte;
     Cost:               Integer;
     MsgAttr,
     NetAttr,
     Board:              Byte;
     PostTime:           String[5];
     PostDate:           String[8];
     WhoTo,
     WhoFrom:            String[35];
     Subj:               String[72];
   End;


(* Msg Attributes:

      Bit 0: Deleted
      Bit 1: Unmoved Outgoing Net Message
      Bit 2: Is a Net Mail Message
      Bit 3: Private
      Bit 4: Received
      Bit 5: Unmoved Outgoing Echo Message
      Bit 6: Local Bit
      Bit 7: [ Reserved ]

   Net Attributes:

      Bit 0: Kill Message after it's been sent
      Bit 1: Sent OK
      Bit 2: File(s) Attached
      Bit 3: Crash Priority
      Bit 4: Request Receipt
      Bit 5: Audit Request
      Bit 6: Is a Return Receipt
      Bit 7: [ Reserved ]

*)

{ Other Stuff *********************************************************** }

  SysInfoRecord = Record
    CallCount:    LongInt;
    LastCaller:   String[35];
    ExtraSpace:   Array[1..128] of Byte;
  End;

  TimeLogRecord = Record
    StartDate:        String[8];
    BusyPerHour:      Array[0..23] of Integer;
    BusyPerDay:       Array[0..6] of Integer;
  End;

  MenuRecord = Record
    Typ:      Byte;
    Sec:      Integer;
    Flags:    FlagType;
    Str:      String[75];
    Key:      Char;
    Data:     String[80];
    Fg,
    Bg:       Byte;
  End;

{ Configuration Information ********************************************** }

  EventRecord = Record
    Status:       Byte; { 0=Deleted 1=Enabled 2=Disabled }
    RunTime:      String[5];
    ErrorLevel:   Byte;
    Days:         Byte;
    Forced:       Boolean;
    LastTimeRun:  String[8];
  End;

  BoardRecord = Record
    Name:         String[16];
    Typ:          Byte; { 0=Standard 1=Net 3=Echo }
    Kinds:        Byte; { 0=Both 1=Pvt 2=Pub 3=Read-Only }
    Combined:     Boolean;
    Aliases:      Boolean;

    ReadSecLvl:   Integer;
    ReadFlags:    FlagType;

    WriteSecLvl:  Integer;
    WriteFlags:   FlagType;

    SysopSecLvl:  Integer;
    SysopFlags:   FlagType;
  End;

  ConfigRecord = Record
    (*  Modem Parameters  *)
    CommPort:      Integer;
    InitBaud,
    InitTimes,
    AnswerWait:    Integer;
    ModemInitStr,
    ModemBusyStr:  String[70];
    ModemInitResp,
    ModemBusyResp,
    Resp300,
    Resp1200,
    Resp2400:      String[40];

    (*  System Paths  *)
    MenuPath,
    TextPath,
    NetPath:      String[66];

    (*  Restriction Parameters  *)
    MinBaud,
    GraphicsBaud,
    XferBaud:      Integer;
    LowBaudStart,
    LowBaudEnd,
    DownloadStart,
    DownloadEnd,
    PagingStart,
    PagingEnd:     String[5];

    (*  Matrix Information  *)
    MatrixZone,
    MatrixNet,
    MatrixNode:    Integer;
    AkaNet,
    AkaNode:       Array[1..5] of Integer;
    NetMailBoard:  Integer;

    (*  Default Information for New Users  *)
    DefaultSec:                Integer;
    DefaultCredit:             Integer;
    DefaultFlags:              FlagType;

    (*  Sysop Security Levels  *)
    EditorCmdStr:    String[70];
    OriginLine:      String[60];
    SysopName:       String[35];
    AutoLogonChar,
    FastLogon,
    ScreenBlanking,
    UseLastRead,
    MonoMode,
    DirectWrite,
    SnowCheck,
    NetEchoExit,
    OneWordNames,
    CheckMail,
    AskHomePhone,
    AskDataPhone,
    GraphicsAvail:   Boolean;
    InactiveTimeOut: Integer;
    LogonTime:       Integer;
    DefFgColor:      Integer;
    DefBgColor:      Integer;
    PasswordTries:   Integer;
    MaxPageTimes:    Integer;
    PageBellLen:     Integer;

    Use_Xmodem:      Boolean;
    Use_Xmodem1k:    Boolean;
    Use_Ymodem:      Boolean;
    Use_YmodemG:     Boolean;
    Use_Sealink:     Boolean;     { Changed for 2.04 }
    Use_Zmodem:      Boolean;     { "              " }
    Inp_Fields:      Boolean;     { "              " }
    QuoteStr:        String[3];
    UploadCredit:    Integer;
    LoadingMessage:  String[70];
    SelectionPrompt: String[70];

    VersionID:       Word;

    { Added for 2.04: }

    Resp4800,
    Resp9600:        String[40];

    AkaZone:         Array[1..5] of Integer;

    { Added for 2.60: }

    MatrixPoint:     Integer;
    AkaPoint:        Array[1..5] of Integer;

    UseAka:          Array[1..200] of Byte;
    AskAge:          Boolean; (* Not yet Implemented *)
    SystemName:      String[40];
    RegKey:          Longint;

    ExtraSpace:      Array[1..5] of Byte;

    EventRec:        Array[1..30] of EventRecord;
    BoardRec:        Array[1..200] of BoardRecord;
  End;

  GosubDataType = Array[1..20] of String[8];

  ExitRecord = Record
    BaudRate:        Integer;
    SysInfo:         SysInfoRecord;
    TimeLogInfo:     TimeLogRecord;
    UserInfo:        UserRecord;
    EventInfo:       EventRecord;
    NetMailEntered:  Boolean;
    EchoMailEntered: Boolean;
    LoginTime:       String[5];
    LoginDate:       String[8];
    TmLimit:         Integer;
    LoginSec:        LongInt;
    Credit:          LongInt;
    UserRecNum:      Integer;
    ReadThru:        Integer;
    PageTimes:       Integer;
    DownLimit:       Integer;
    WantChat:        Boolean;
    GosubLevel:      Byte;
    GosubData:       GosubDataType;
    Menu:            String[8];
  End;