home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / RA_200.ZIP / STRUCT.200 < prev    next >
Text File  |  1993-08-18  |  27KB  |  780 lines
  1. (* Turbo Pascal structures for RemoteAccess 2.00.
  2.   
  3.    This document is (C) Copyright Andrew Milner & Wantree Development, 1993.
  4.    All rights reserved.
  5.  
  6. *)
  7.  
  8. type
  9.   AskType        = (Yes, No, Ask, Only);
  10.   VideoType      = (Auto, Short, Long);
  11.   MsgType        = (LocalMail, NetMail, EchoMail);
  12.   MsgKindsType   = (Both, Private, Public, ROnly, NoReply);
  13.   OrphanType     = (Ignore, Create, Kill);
  14.   FlagType       = array[1..4] of Byte;
  15.   Time           = String[5];
  16.   Date           = String[8];
  17.   LongDate       = String[9];
  18.   ByteArray32    = Array[1..32] of Byte;
  19.  
  20.   NetAddress     = record
  21.                      Zone,
  22.                      Net,
  23.                      Node,
  24.                      Point          : Word;
  25.                    end;
  26.  
  27.   LIMITSrecord   = record
  28.                      Security,
  29.                      Ltime,
  30.                      L300,
  31.                      L1200,
  32.                      L2400,
  33.                      L4800,
  34.                      L7200,
  35.                      L9600,
  36.                      L12000,
  37.                      L14400,
  38.                      L16800,
  39.                      L19200,
  40.                      L38400,
  41.                      Llocal,
  42.                      RatioNum,
  43.                      RatioK         : Word;
  44.                      PerMinCost     : Real;
  45.                      FreeSpace      : Array[1..42] of Byte;
  46.                    end;
  47.  
  48.   LANGUAGErecord = record
  49.                      Name           : String[20];
  50.                      Attribute      : Byte;
  51.                      DefName,
  52.                      MenuPath,
  53.                      TextPath,
  54.                      QuesPath       : String[60];
  55.                      Security       : Word;
  56.                      Flags,
  57.                      NotFlagsMask   : FlagType;
  58.                      FreeSpace      : Array[1..190] of Byte;
  59.                    end;
  60.  
  61.   MSGINFOrecord  = record
  62.                      LowMsg,
  63.                      HighMsg,
  64.                      TotalMsgs      : Word;
  65.                      TotalOnBoard   : array[1..200] of Word;
  66.                    end;
  67.  
  68.   MSGIDXrecord   = record
  69.                      MsgNum         : Integer;
  70.                      Board          : Byte;
  71.                    end;
  72.  
  73.   MSGTOIDXrecord = String[35];
  74.  
  75.   MSGHDRrecord   = record
  76.                      MsgNum         : Integer;
  77.                      PrevReply,
  78.                      NextReply,
  79.                      TimesRead      : Word;
  80.                      StartBlock     : Word;
  81.                      NumBlocks,
  82.                      DestNet,
  83.                      DestNode,
  84.                      OrigNet,
  85.                      OrigNode       : Word;
  86.                      DestZone,
  87.                      OrigZone       : Byte;
  88.                      Cost           : Word;
  89.                      MsgAttr,
  90.                      NetAttr,
  91.                      Board          : Byte;
  92.                      PostTime       : Time;
  93.                      PostDate       : Date;
  94.                      WhoTo,
  95.                      WhoFrom        : MSGTOIDXrecord;
  96.                      Subject        : String[72];
  97.                    end;
  98.  
  99.   MSGTXTrecord   = String[255];
  100.  
  101.   USERONrecord   = record
  102.                      Name,
  103.                      Handle         : MSGTOIDXrecord;
  104.                      Line           : Byte;
  105.                      Baud           : Word;
  106.                      City           : String[25];
  107.                      Status,
  108.                      Attribute      : Byte;
  109.                      StatDesc       : String[10];
  110.                      FreeSpace      : Array[1..98] of Byte;
  111.                      NoCalls        : Word;
  112.                    end;
  113.  
  114.                    { Status byte - 0 : Browsing (in a menu)
  115.                                    1 : Uploading/downloading
  116.                                    2 : Reading/posting messages
  117.                                    3 : In a door/external utility
  118.                                    4 : Chatting with sysop
  119.                                    5 : Answering questionnaire 
  120.                                    6 : RTC
  121.                                    7 : New user logon
  122.                                  255 : User-defined - display StatDesc
  123.  
  124.                      Attribute   - Bit 0 : Hidden
  125.                                        1 : Wants chat
  126.                                        2 : Reserved for RANETMGR
  127.                                        3 : Do not disturb flag 
  128.                                        6 : Ready (0=busy) }
  129.  
  130.   LASTCALLrecord = record
  131.                      Line           : Byte;
  132.                      Name,
  133.                      Handle         : MSGTOIDXrecord;
  134.                      City           : String[25];
  135.                      Baud           : Word;
  136.                      Times          : LongInt;
  137.                      LogOn          : String[5];
  138.                      LogOff         : String[5];
  139.                      Attribute      : Byte;
  140.                    end;
  141.  
  142.                 { Attribute - Bit 0 : Hidden }
  143.  
  144.   FILESHDRrecord = record
  145.                      Name           : String[12];
  146.                      Size,
  147.                      CRC32          : LongInt;
  148.                      Uploader       : String[35];
  149.                      UploadDate,
  150.                      FileDate,
  151.                      LastDL         : LongInt;
  152.                      TimesDL        : Word;
  153.                      Attrib         : Byte;
  154.                      Password       : String[15];
  155.                      KeyWord        : Array[1..5] of String[15];
  156.                      Cost           : Word;
  157.                      LongDescPtr    : LongInt;
  158.                      FreeSpace      : Array[1..20] of Byte;
  159.                    end;
  160.  
  161.           {Attrib - Bit 0 : Deleted
  162.                         1 : Unlisted
  163.                         2 : Free (don't adjust ratio) - Does NOT affect "Cost"
  164.                         3 : Not available (don't allow downloads)
  165.                         4 : Locked (no kill)
  166.                         5 : Missing/offline
  167.                         6 : No time restrictions - always allow DL
  168.           }
  169.  
  170.   FILESIDXrecord = record
  171.                      Name           : String[12];
  172.                      UploadDate     : LongInt;
  173.                      KeyWordCRC     : Array[1..5] of LongInt;
  174.                      LongDescPtr    : LongInt;
  175.                    end;
  176.  
  177.   LASTREADrecord = array[1..200] of Word;
  178.  
  179.   USERSIDXrecord = record
  180.                      NameCRC32,
  181.                      HandleCRC32    : LongInt;
  182.                    end;
  183.  
  184.   COMBINEDrecord = array[1..200] of Word; 
  185.  
  186.   USERSrecord    = record
  187.                      Name           : MSGTOIDXrecord;
  188.                      Location       : String[25];
  189.                      Organisation,
  190.                      Address1,
  191.                      Address2,
  192.                      Address3       : String[50];
  193.                      Handle         : String[35];
  194.                      Comment        : String[80];
  195.                      PasswordCRC    : LongInt;
  196.                      DataPhone,
  197.                      VoicePhone     : String[15];
  198.                      LastTime       : Time;
  199.                      LastDate       : Date;
  200.  
  201.                      Attribute,
  202.  
  203.                       { Bit 0 : Deleted
  204.                             1 : Clear screen
  205.                             2 : More prompt
  206.                             3 : ANSI
  207.                             4 : No-kill
  208.                             5 : Xfer priority
  209.                             6 : Full screen msg editor
  210.                             7 : Quiet mode }
  211.  
  212.                      Attribute2     : Byte;
  213.  
  214.                       { Bit 0 : Hot-keys
  215.                             1 : AVT/0
  216.                             2 : Full screen message viewer
  217.                             3 : Hidden from userlist 
  218.                             4 : Page priority 
  219.                             5 : No echomail in mailbox scan
  220.                             6 : Guest account 
  221.                             7 : Post bill enabled }
  222.  
  223.                      Flags          : FlagType;
  224.                      Credit,
  225.                      Pending        : LongInt;
  226.                      MsgsPosted,
  227.                      Security       : Word;
  228.                      LastRead,
  229.                      NoCalls,
  230.                      Uploads,
  231.                      Downloads,
  232.                      UploadsK,
  233.                      DownloadsK,
  234.                      TodayK         : LongInt;
  235.                      Elapsed        : Integer;
  236.                      ScreenLength   : Word;
  237.                      LastPwdChange  : Byte;
  238.                      Group          : Word;
  239.                      CombinedInfo   : COMBINEDrecord;
  240.                      FirstDate,
  241.                      BirthDate,
  242.                      SubDate        : Date;
  243.                      ScreenWidth,
  244.                      Language,
  245.                      DateFormat     : Byte;      
  246.                      ForwardTo      : String[35];
  247.                      MsgArea,
  248.                      FileArea       : Word;
  249.                      DefaultProtocol: Char;
  250.                      FileGroup      : Word;
  251.                      LastDOBCheck   : Byte;
  252.                      Sex            : Byte;
  253.                      XIrecord       : LongInt;
  254.                      MsgGroup       : Word;
  255.                      FreeSpace      : Array[1..48] of Byte;
  256.                    end;
  257.  
  258.   USERSXIrecord  = record
  259.                      FreeSpace      : Array[1..200] of Byte;
  260.                    end;
  261.  
  262.   SYSINFOrecord  = record
  263.                      TotalCalls     : LongInt;
  264.                      LastCaller     : MSGTOIDXrecord;
  265.                      ExtraSpace     : array[1..128] of Byte;
  266.                    end;
  267.  
  268.   TIMELOGrecord  = record
  269.                      StartDate      : Date;
  270.                      BusyPerHour    : array[0..23] of Word;
  271.                      BusyPerDay     : array[0..6] of Word;
  272.                    end;
  273.  
  274.   MNUrecord      = record
  275.                      Typ            : Byte;
  276.                      Security,
  277.                      MaxSec         : Word;
  278.                      NotFlagsMask,
  279.                      Flags          : FlagType;
  280.                      TimeLeft,
  281.                      TimeUsed       : Word;
  282.                      Age,
  283.                      TermAttrib     : Byte;
  284.  
  285.                      {Bit 0 : ANSI
  286.                           1 : AVT}
  287.  
  288.                      MinSpeed,
  289.                      MaxSpeed,
  290.                      Credit,
  291.                      OptionCost,
  292.                      PerMinCost     : LongInt;
  293.                      Node,
  294.                      Group          : ByteArray32;
  295.                      StartTime,
  296.                      StopTime       : Array[1..7] of Word;
  297.                      Display        : String[135];
  298.                      HotKey         : String[8];
  299.                      MiscData       : String[135];
  300.                      Foreground,
  301.                      Background     : Byte;
  302.                      FreeSpace      : Array[1..50] of Byte;
  303.                    end;
  304.  
  305.   EVENTrecord    = record
  306.                      Status         : Byte; { 0=Deleted 1=Enabled 2=Disabled }
  307.                      StartTime      : Time;
  308.                      ErrorLevel     : Byte;
  309.                      Days           : Byte;
  310.                      Forced         : Boolean;
  311.                      LastTimeRun    : Date;
  312.                    end;
  313.  
  314.   EVENTrecordArray = array[1..20] of EVENTrecord;
  315.  
  316.   MESSAGErecord  = record
  317.                      Unused         : Array[1..4] of Byte; 
  318.                      Name           : String[40];
  319.                      Typ            : MsgType;
  320.                      MsgKinds       : MsgKindsType;
  321.                      Attribute      : Byte;
  322.  
  323.                       { Bit 0 : Enable EchoInfo
  324.                             1 : Combined access
  325.                             2 : File attaches
  326.                             3 : Allow aliases
  327.                             4 : Use SoftCRs as characters
  328.                             5 : Force handle     
  329.                             6 : Allow deletes 
  330.                             7 : Is a JAM area }
  331.  
  332.                      DaysKill,    { Kill older than 'x' days }
  333.                      RecvKill       : Byte; { Kill recv msgs, recv for more than 'x' days }
  334.                      CountKill      : Word;
  335.  
  336.                      ReadSecurity   : Word;
  337.                      ReadFlags,
  338.                      ReadNotFlags   : FlagType;
  339.  
  340.                      WriteSecurity  : Word;
  341.                      WriteFlags,
  342.                      WriteNotFlags  : FlagType;
  343.  
  344.                      SysopSecurity  : Word;
  345.                      SysopFlags,
  346.                      SysopNotFlags  : FlagType;
  347.  
  348.                      OriginLine     : String[60];
  349.                      AkaAddress     : Byte;
  350.   
  351.                      Age            : Byte;
  352.  
  353.                      JAMbase        : String[60];
  354.                      Group          : Word;
  355.                      AltGroup       : Array[1..3] of Word;
  356.  
  357.                      Attribute2     : Byte;
  358.  
  359.                       { Bit 0 : Include in all groups }
  360.  
  361.                      FreeSpace2     : Array[1..9] of Byte;
  362.                    end;
  363.  
  364.   GROUPrecord    = record
  365.                      AreaNum        : Word;
  366.                      Name           : String[40];
  367.                      Security       : Word;
  368.                      Flags,
  369.                      NotFlagsMask   : FlagType;
  370.                      FreeSpace      : Array[1..100] of Byte;
  371.                    end;
  372.  
  373.   FILESrecord    = record
  374.                      Unused         : Array[1..4] of Byte;
  375.                      Name           : String[40];
  376.                      Attrib         : Byte;
  377.  
  378.                       { Bit 0 : Include in new files scan
  379.                             1 : Include in upload dupe scan
  380.                             2 : Permit long descriptions
  381.                             3 : Area is on CD-ROM 
  382.                             4 : All files are FREE 
  383.                             5 : Allow DLs not in FDB 
  384.                             6 : Allow users to password uploads
  385.                             7 : Scan uploads }
  386.  
  387.                      FilePath       : String[40];
  388.                      KillDaysDL,
  389.                      KillDaysFD     : Word;
  390.                      Password       : String[15];
  391.                      MoveArea       : Word;
  392.                      Age,
  393.                      ConvertExt     : Byte;
  394.                      Group          : Word;
  395.                      Attrib2        : Byte;
  396.  
  397.                       { Bit 0 : Include in all groups }
  398.  
  399.                      DefCost,
  400.                      UploadArea,
  401.                      UploadSecurity : Word;
  402.                      UploadFlags,
  403.                      UploadNotFlags : FlagType;
  404.                      Security       : Word;
  405.                      Flags,
  406.                      NotFlags       : FlagType;
  407.                      ListSecurity   : Word;
  408.                      ListFlags,
  409.                      ListNotFlags   : FlagType;
  410.                      AltGroup       : Array[1..3] of Word;
  411.                      Device         : Byte;
  412.                      FreeSpace      : Array[1..13] of Byte;
  413.                    end;
  414.  
  415.   CONFrecord     = record
  416.                      Name,
  417.                      Parent         : String[8];
  418.                      Desc           : String[70];
  419.                      Attr           : Byte;
  420.  
  421.                       { Bit 0 : Private
  422.                             1 : Unlisted
  423.                             2 : Global  
  424.                             3 : Permanent
  425.                             4 : Use handles
  426.                                           }
  427.  
  428.                      Moderator      : String[35];
  429.                      Language       : String[20];
  430.                      Password       : String[15];
  431.                      Security       : Word;
  432.                      Flags          : FlagType;
  433.                      NumNodes       : Byte;
  434.                      Active         : Array[1..250] of Byte;
  435.                      Child          : Array[1..250] of Boolean;
  436.                      NotFlagsMask   : FlagType;
  437.                      FreeSpace      : Array[1..96] of Byte;
  438.                    end;
  439.  
  440.   MODEMrecord  = record
  441.                    ComPort,
  442.                    InitTries        : Byte;
  443.                    BufferSize,
  444.                    ModemDelay       : Word;
  445.                    MaxSpeed         : LongInt;
  446.                    SendBreak,
  447.                    LockModem,
  448.                    AnswerPhone,
  449.                    OffHook          : Boolean;
  450.                    InitStr,
  451.                    InitStr2,
  452.                    BusyStr          : String[70];
  453.                    InitResp,
  454.                    BusyResp,
  455.                    Connect300,
  456.                    Connect1200,
  457.                    Connect2400,
  458.                    Connect4800,
  459.                    Connect7200,
  460.                    Connect9600,
  461.                    Connect12k,
  462.                    Connect14k,
  463.                    Connect16k,
  464.                    Connect19k,
  465.                    Connect38k,
  466.                    ConnectFax       : String[40];
  467.                    RingStr,
  468.                    AnswerStr        : String[20];
  469.                    ErrorFreeString  : String[15];
  470.                    FreeSpace        : Array[1..300] of Byte;
  471.                  end;
  472.  
  473.   ARCrecord = record
  474.                 Extension : String[3];
  475.                 UnpackCmd,
  476.                 PackCmd   : String[60];
  477.               end;
  478.  
  479.   CONFIGrecord = record
  480.     VersionID           : Word;
  481.     xCommPort           : Byte;
  482.     xBaud               : LongInt;
  483.     xInitTries          : Byte;
  484.     xInitStr,
  485.     xBusyStr            : String[70];
  486.     xInitResp,
  487.     xBusyResp,
  488.     xConnect300,
  489.     xConnect1200,
  490.     xConnect2400,
  491.     xConnect4800,
  492.     xConnect9600,
  493.     xConnect19k,
  494.     xConnect38k         : String[40];
  495.     xAnswerPhone        : Boolean;
  496.     xRing,
  497.     xAnswerStr          : String[20];
  498.     xFlushBuffer        : Boolean;
  499.     xModemDelay         : Integer;
  500.  
  501.     MinimumBaud,
  502.     GraphicsBaud,
  503.     TransferBaud        : word;
  504.     SlowBaudTimeStart,
  505.     SlowBaudTimeEnd,
  506.     DownloadTimeStart,
  507.     DownloadTimeEnd     : Time;
  508.  
  509.     PageStart           : Array[0..6] of Time;
  510.     PageEnd             : Array[0..6] of Time;
  511.  
  512.     SeriNum,
  513.     CustNum             : String[22];
  514. {}  FreeSpace1          : Array[1..24] of Byte;
  515.     PwdExpiry           : Word;
  516.  
  517.     MenuPath,
  518.     TextPath,
  519.     AttachPath,
  520.     NodelistPath,
  521.     MsgBasePath,
  522.     SysPath,
  523.     ExternalEdCmd       : String[60];
  524.  
  525.     Address             : Array[0..9] of NetAddress;
  526.     SystemName          : String[30];
  527.  
  528.     NewSecurity         : Word;
  529.     NewCredit           : Word;
  530.     NewFlags            : FlagType;
  531.  
  532.     OriginLine          : String[60];
  533.     QuoteString         : String[15];
  534.     Sysop               : String[35];
  535.     LogFileName         : String[60];
  536.     FastLogon,
  537.     AllowSysRem,
  538.     MonoMode,
  539.     StrictPwdChecking,
  540.     DirectWrite,
  541.     SnowCheck           : Boolean;
  542.     CreditFactor        : Integer;
  543.  
  544.     UserTimeOut,
  545.     LogonTime,
  546.     PasswordTries,
  547.     MaxPage,
  548.     PageLength          : Word;
  549.     CheckForMultiLogon,
  550.     ExcludeSysopFromList,
  551.     OneWordNames        : Boolean;
  552.     CheckMail           : AskType;
  553.     AskVoicePhone,
  554.     AskDataPhone,
  555.     DoFullMailCheck,
  556.     AllowFileShells,
  557.     FixUploadDates,
  558.     FreezeChat          : Boolean;
  559.     ANSI,                       { ANSI: Yes, no, or ask new users     }
  560.     ClearScreen,                { Clear:        "                     }
  561.     MorePrompt          : AskType;    { More:         "                     }
  562.     UploadMsgs          : Boolean;
  563.     KillSent            : AskType;    { Kill/Sent     "                     }
  564.  
  565.     CrashAskSec         : Word;       { Min sec# to ask 'Crash Mail ?'      }
  566.     CrashAskFlags       : FlagType;
  567.     CrashSec            : Word;       { Min sec# to always send crash mail. }
  568.     CrashFlags          : FlagType;
  569.     FAttachSec          : Word;       {        "    ask 'File Attach ?'     }
  570.     FAttachFlags        : FlagType;
  571.  
  572.     NormFore,
  573.     NormBack,
  574.     StatFore,
  575.     StatBack,
  576.     HiBack,
  577.     HiFore,
  578.     WindFore,
  579.     WindBack,
  580.     ExitLocal,
  581.     Exit300,
  582.     Exit1200,
  583.     Exit2400,
  584.     Exit4800,
  585.     Exit9600,
  586.     Exit19k,
  587.     Exit38k             : Byte;
  588.  
  589.     MultiLine           : Boolean;
  590.     MinPwdLen           : Byte;
  591.     MinUpSpace          : Word;
  592.     HotKeys             : AskType;
  593.     BorderFore,
  594.     BorderBack,
  595.     BarFore,
  596.     BarBack,
  597.     LogStyle,
  598.     MultiTasker,
  599.     PwdBoard            : Byte;
  600.     xBufferSize         : Word;
  601.     FKeys               : Array[1..10] of String[60];
  602.  
  603.     WhyPage             : Boolean;
  604.     LeaveMsg            : Byte;
  605.     ShowMissingFiles,
  606.     xLockModem          : Boolean;
  607. {}  FreeSpace2          : Array[1..10] of Byte;
  608.     AllowNetmailReplies : Boolean;
  609.     LogonPrompt         : String[40];
  610.     CheckNewFiles       : AskType;
  611.     ReplyHeader         : String[60];
  612.     BlankSecs           : byte;
  613.     ProtocolAttrib      : Array[1..6] of Byte;
  614.     xErrorFreeString    : String[15];
  615.     xDefaultCombined    : array[1..25] of Byte;
  616.     RenumThreshold      : Word;
  617.     LeftBracket,
  618.     RightBracket        : Char;
  619.     AskForHandle        : Boolean;
  620.     AskForBirthDate     : Boolean;
  621.  
  622.     GroupMailSec        : Word;
  623.  
  624.     ConfirmMsgDeletes   : Boolean;
  625.  
  626.     FreeSpace4          : Array[1..30] of byte;
  627.  
  628.     TempScanDir         : String[60];
  629.     ScanNow             : AskType;
  630.     xUnknownArcAction,
  631.     xFailedUnpackAction,
  632.     FailedScanAction    : Byte; {Bit 0:Mark deleted, 1:Mark unlisted, 2:Mark notavail}
  633.     xUnknownArcArea,
  634.     xFailedUnpackArea,
  635.     FailedScanArea      : Word;
  636.     ScanCmd             : String[60];
  637.     xDeductIfUnknown    : Boolean;
  638.  
  639.     NewUserGroup        : Byte;
  640.     AVATAR              : AskType;
  641.     BadPwdArea          : Byte;
  642.     Location            : String[40];
  643.     DoAfterAction       : Byte; {0 = wait for CR, > 0 = wait for x seconds}
  644. {}  OldFileLine         : String[40];
  645.     CRfore,
  646.     CRback              : Byte;
  647.     LangHdr             : String[40];
  648.     xSendBreak          : Boolean;
  649. {}  ListPath            : String[60];
  650.     FullMsgView         : AskType;
  651.     EMSI_Enable         : AskType;
  652.     EMSI_NewUser        : Boolean;
  653.  
  654.     EchoChar            : String[1];
  655.     xConnect7200,
  656.     xConnect12000,
  657.     xConnect14400       : String[40];
  658.     Exit7200,
  659.     Exit12000,
  660.     Exit14400           : Byte;
  661.     ChatCommand         : String[60];
  662.     ExtEd               : AskType;
  663.     NewuserLanguage     : Byte;
  664.     LanguagePrompt      : String[40];
  665.     VideoMode           : VideoType;
  666.     AutoDetectANSI      : Boolean;
  667.     xOffHook            : Boolean;
  668.     NewUserDateFormat   : Byte;
  669.     KeyboardPwd         : String[15];
  670.     CapLocation         : Boolean;
  671.     NewuserSub          : Byte;
  672.     PrinterName         : String[4];
  673.     HilitePromptFore,
  674.     HiLitePromptBack    : Byte;
  675.     xInitStr2           : String[70];
  676.     AltJSwap            : Boolean;
  677.     SemPath             : String[60];
  678.     AutoChatCapture     : Boolean;
  679.  
  680.     FileBasePath        : String[60];
  681.     NewFileTag          : Boolean;
  682.     IgnoreDupeExt       : Boolean;
  683.     TempCDFilePath      : String[60];
  684.     TagFore,
  685.     TagBack             : Byte;
  686.     xConnect16k         : String[40];
  687.     Exit16k,
  688.     FilePayback         : Byte;
  689.     FileLine,
  690.     FileMissingLine     : String[200];
  691.     NewUserULCredit     : Byte;
  692.     NewUserULCreditK    : Word;
  693.     ArcInfo             : Array[1..10] of ARCrecord;
  694.     RAMGRAltFKeys       : Array[1..5] of String[60];
  695.     ArcViewCmd          : String[60];
  696.     xConnectFax         : String[40];
  697.     ExitFax             : Byte;
  698.     UseXMS,
  699.     UseEMS              : Boolean;
  700.     CheckDOB            : Byte;
  701.     EchoCheck           : AskType;
  702.     ccSec,
  703.     ReturnRecSec        : Word;
  704.     HonourNetReq        : Boolean;
  705.     DefaultCombined     : COMBINEDrecord;
  706.     AskForSex,
  707.     AskForAddress       : Boolean;
  708.     DLdesc              : AskType;
  709.     NewPhoneScan        : Boolean;
  710.     FutureExpansion : Array[1..587] of Byte;
  711.   end;
  712.  
  713.   EXITINFOrecord = record
  714.                      Baud             : Word;
  715.                      SysInfo          : SYSINFOrecord;
  716.                      TimeLogInfo      : TIMELOGrecord;
  717.                      UserInfo         : USERSrecord;
  718.                      EventInfo        : EVENTrecord;
  719.                      NetMailEntered,
  720.                      EchoMailEntered  : Boolean;
  721.                      LoginTime        : Time;
  722.                      LoginDate        : Date;
  723.                      TimeLimit        : Word;
  724.                      LoginSec         : LongInt;
  725.                      UserRecord       : Integer;
  726.                      ReadThru,
  727.                      NumberPages,
  728.                      DownloadLimit    : Word;
  729.                      TimeOfCreation   : Time;
  730.                      LogonPasswordCRC : LongInt;
  731.                      WantChat         : Boolean;
  732.  
  733.                      DeductedTime     : Integer;
  734.                      MenuStack        : Array[1..50] of String[8];
  735.                      MenuStackPointer : Byte;
  736.                      UserXIinfo       : USERSXIrecord;
  737.                      ErrorFreeConnect,
  738.                      SysopNext        : Boolean;
  739.  
  740.                      EMSI_Session     : Boolean;        { These fields hold  }
  741.                      EMSI_Crtdef,                       { data related to an }
  742.                      EMSI_Protocols,                    { EMSI session       }
  743.                      EMSI_Capabilities,
  744.                      EMSI_Requests,
  745.                      EMSI_Software    : String[40];
  746.                      Hold_Attr1,
  747.                      Hold_Attr2,
  748.                      Hold_Len         : Byte;
  749.  
  750.                      PageReason       : String[80];
  751.                      StatusLine       : Byte;
  752.                      LastCostMenu     : String[8];
  753.                      MenuCostPerMin   : Word;
  754.  
  755.                      DoesAVT,
  756.                      RIPmode          : Boolean;
  757.  
  758.                      ExtraSpace       : Array[1..86] of Byte;
  759.                  end;
  760.  
  761.   PROTOCOLrecord = record
  762.                      Name           : String[15];
  763.                      ActiveKey      : Char;
  764.                      OpusTypeCtlFile,
  765.                      BatchAvailable : Boolean;
  766.                      Attribute      : Byte; { 0=Disabled, 1=Enabled, 2=Errorfree}
  767.                      LogFileName,
  768.                      CtlFileName,
  769.                      DnCmdString,
  770.                      DnCtlString,
  771.                      UpCmdString,
  772.                      UpCtlString    : String[80];
  773.                      UpLogKeyword,
  774.                      DnLogKeyword   : String[20];
  775.                      XferDescWordNum,
  776.                      XferNameWordNum : Byte;
  777.                    end;
  778.  
  779. (* End of "STRUCT.200" *)
  780.