modemflags=         { MODEM.DAT status flags }
  (
    lockedport,       { COM port locked at constant rate }
    xonxoff,          { XON/XOFF (software) flow control }
    ctsrts            { CTS/RTS (hardware) flow control }
  );

linerec=
  record
    waitbaud:word;                    { initialization baud }
    comport:byte;                     { COM port number }
    init:string[50];                  { init string }
    answer:string[40];                { answer string }
    hangup:string[40];                { hangup string }
    offhook:string[40];               { phone off-hook string }
    nocallinittime:word;              { reinit modem after x mins of inactivity }
    lockedportbaud:word;              { locked baud rate }
    mflags:set of modemflags;         { status flags }
    nocarrier:byte;                   { NO CARRIER result code }
    resultcode:array[1..2,0..14]      { CONNECT result codes }
                 of byte;             { 300,1200,2400,4800,7200,9600,12000,14400,16800,19200,5 extra}
    logonacs:acstring;                { acs string to logon this node }
    doorpath:string[40];              { path to write door info files to }
  end;

  validationrec = record
    description:string[25];           { description }
    newsl,                            { new SL }
    newdsl:byte;                      { new DSL }
    newar:set of acrq;                { new AR }
    newac:set of uflags;              { new AC }
    newfp:integer;                    { file points to add }
    newcredit:longint;                { new credit (added) }
    expiration:word;                  { days until expiration }
    expireto:char;                    { validation level to expire to }
    softar:boolean;                   { TRUE=AR added to current, else replaces }
    softac:boolean;                   { TRUE=AC    "   "   "       "      "  }
    newmenu:string[8];                { User start out menu }
  end;

*-----------------------------------------------------------------------------*