home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / DESIRE15.ZIP / STRUCTS.150 < prev    next >
Text File  |  1997-11-29  |  28KB  |  694 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (* dESiRE structures version 1.5                                           *)
  4. (*                                                                         *)
  5. (*-------------------------------------------------------------------------*)
  6.  
  7. TYPE
  8.         ConfigRec = RECORD                        { C:\DESIRE\CONFIG.<Node> }
  9.  
  10.         BBSName         :       String[30];
  11.         Sysop           :       String[30];
  12.         Located         :       String[50];
  13.  
  14.         Path            :       String[60];
  15.         Data            :       String[60];
  16.         Commands        :       String[60];
  17.         FileToMsg       :       String[60];
  18.         Work            :       String[60];
  19.         Hold            :       String[60];
  20.         LcFiles         :       String[60];
  21.         Node            :       String[60];
  22.         Access          :       String[60];
  23.         Broken          :       String[60];
  24.         LogFiles        :       String[60];
  25.         Scripts         :       String[60];
  26.  
  27.         Irq             :       Byte;
  28.         ComVector       :       String[3];
  29.         BaseAddr        :       String[5];
  30.         ComType         :       Byte;
  31.         Comport         :       Byte;
  32.         Baudrate        :       LongInt;
  33.         Parity          :       Char;
  34.         CharLength      :       Byte;
  35.         StopBits        :       Byte;
  36.  
  37.         Inittries       :       Byte;
  38.         InitString      :       String[60];
  39.         OKstring        :       String[10];
  40.         HangUpString    :       String[60];
  41.         BusyString      :       String[10];
  42.         AnswerString    :       String[60];
  43.         RingString      :       String[10];
  44.         OffHookString   :       String[60];
  45.  
  46.         FaxConnectString:       String[60];    { version 1.2 final }
  47.  
  48.         NotUsed1        :       Array[1..254] of Byte;
  49.  
  50.         SystemPwd1      :       String[15];
  51.         SystemPwd2      :       String[15];
  52.         NewUserPwd1     :       String[15];
  53.         NewUserPwd2     :       String[15];
  54.         VipPreset       :       Byte;
  55.                                 { IF Nup2 then what preset to give }
  56.  
  57.         PwdTries        :       Array[1..8] of Byte;
  58.                                 { 1 = System   Password #1 Attempts }
  59.                                 { 2 = System   Password #2 Attempts }
  60.                                 { 3 = User     Password Attempts }
  61.                                 { 4 = Newuser  Password Attempts }
  62.                                 { 5 = Conf.    Password Attempts }
  63.                                 { 6 = Command  Password Attempts }
  64.                                 { 7 = Door     Password Attempts }
  65.                                 { 8 = Baudrate Password Attempts }
  66.  
  67.         AskFront            :   Boolean;
  68.                                 { Ask system pwd before welcome screen ? }
  69.  
  70.         FlashAtRing         :   Boolean;
  71.         BeepAtRing          :   Boolean;
  72.         FlashAtPage         :   Boolean;
  73.         AskChatReason       :   Boolean;
  74.         AskMailScan         :   Boolean;
  75.         AskDeleteMessage    :   Boolean;
  76.         SystemxDropFile     :   Boolean;
  77.  
  78.         HowManyNodes        :   Byte;
  79.         MinPwLength         :   Byte;
  80.         ScreenSave          :   Boolean;
  81.         ScrSaveSecs         :   Integer;
  82.         LocalOffHook        :   Boolean;
  83.  
  84.         WeekTopReset        :   Byte;
  85.  
  86.         ForeColor           :   Byte;
  87.         BackColor           :   Byte;
  88.         BlinkColor          :   Byte;
  89.         MinSpace            :   Longint;
  90.         MonoMode            :   Boolean;
  91.         AnswerMachine       :   Boolean;
  92.         AnswerComment       :   Boolean;
  93.         RelativeConfs       :   Boolean;
  94.         FullyPrivate        :   Boolean;
  95.         NoSysopCalls        :   Boolean;
  96.         FileUpCase          :   Boolean;
  97.         AskLanguage         :   Boolean;
  98.         AskAnsiGraphics     :   Boolean;
  99.  
  100.         PageBeep            :   Boolean;
  101.         PageComment         :   Boolean;
  102.  
  103.         Nu_Hidden           :   Boolean;
  104.         Nu_AutoMsg          :   Boolean;
  105.         Nu_HangUp           :   Boolean;
  106.         Nu_Preset           :   Byte;
  107.  
  108.         Presets_SecLvl      :   Array[1..5] of Byte;
  109.         Presets_TimeDay     :   Array[1..5] of Longint;
  110.         Presets_ChatDay     :   Array[1..5] of Longint;
  111.         Presets_Bytes       :   Array[1..5] of Longint;
  112.         Presets_ConfACP     :   Array[1..5] of String[3];
  113.         Presets_ConfAcc     :   Array[1..5] of Boolean;
  114.         Presets_Ratio       :   Array[1..5] of Byte;
  115.         Presets_RatioType   :   Array[1..5] of Byte;
  116.         Presets_Flags       :   Array[1..5,1..99] of Boolean;
  117.         Presets_Limits      :   Array[1..5,1..30] of Byte;
  118.  
  119.         Macros1             :   Array[1..10] of String[65];
  120.         Macros2             :   Array[1..10] of String[65];
  121.  
  122.         NotUsed3            :   Array[1..406] of Byte;
  123.  
  124.         ProtoKey            :   Array[1..10] of String[1];
  125.         ProtoName           :   Array[1..10] of String[30];
  126.         ProtoULBat          :   Array[1..10] of String[8];
  127.         ProtoDLBat          :   Array[1..10] of String[8];
  128.  
  129.         MenuSetName         :   Array[1..5] of String[30];
  130.         MenuSetPath         :   Array[1..5] of String[60];
  131.         MenuSetDoors        :   Array[1..5] of String[60];
  132.  
  133.         FutureExpand1       :   Boolean;
  134.  
  135.         AskGoodbye          :   Boolean;
  136.         FileListClrScr      :   Boolean;
  137.  
  138.         Mode80x25           :   Boolean;
  139.         Mode80x30           :   Boolean;
  140.         Mode80x34           :   Boolean;
  141.         Mode80x43           :   Boolean;
  142.         Mode80x50           :   Boolean;
  143.         Mode80x60           :   Boolean;
  144.  
  145.         PwdFillChar1        :   Char;   { systempasswords }
  146.         PwdFillChar2        :   Char;   { userpassword }
  147.  
  148.         HandleFaxConnects   :   Boolean;
  149.         SkipNewUserApply    :   Boolean;
  150.         DisableMouse        :   Boolean;
  151.         UseCdPlayer         :   Boolean;
  152.         NodeRefresh         :   Boolean;
  153.         LocalWarningIfRing  :   Boolean;
  154.         DontCloseComport    :   Boolean;
  155.  
  156.         DisableLogoffBeforePosting :   Boolean;              { 1.1 }
  157.         DisableAddFileDescriptions :   Boolean;
  158.         NotUsed4                   :   Boolean;
  159.  
  160.         DeleteMailByDefault        :   Boolean;
  161.         DisablePartialNameLogon    :   Boolean;
  162.         DisableStatBar             :   Boolean;  { on / off }
  163.         StatBarNumber              :   Byte;
  164.  
  165.         TreatALLandEALLTheSame     :   Boolean;                 { 1.2 }
  166.         DisableUploadingMessages   :   Boolean;                 { 1.2 }
  167.         SelectFromFlagList         :   Boolean;                 { 1.2 }
  168.         AskForFullScreenEditor     :   Boolean;                 { 1.2 }
  169.         LocalDupeCheck             :   Boolean;                 { 1.2 }
  170.         DupeCheckAfterUpload       :   Boolean;                 { 1.2 }
  171.  
  172.         NewuserJoinConference      :   Byte;                    { 1.2 }
  173.  
  174.         DisablePrivateUploadMSG    :   Boolean;                 { 1.2final }
  175.         NewuserExpertmode          :   Boolean;                 { 1.3 }
  176.  
  177.         DoorSysDropFile            :   Boolean;                 { 1.4 }
  178.         NoDirectVideo              :   Boolean;                 { 1.4 }
  179.         MultiTaskerAware           :   Boolean;                 { 1.4 }
  180.         EnableMsgSignatures        :   Boolean;                 { 1.4 }
  181.         PCEDropAndConfigFile       :   Boolean;                 { 1.4 }
  182.  
  183.         FutureOptions              :   Array[1..4647] of Byte;
  184.  
  185.         end;
  186. (*-------------------------------------------------------------------------*)
  187. TYPE  LastCall = RECORD                       { C:\DESIRE\DATA\LASTCALL.DAT }
  188.       Node        : Byte;
  189.       Name        : String[30];
  190.       Location    : String[30];
  191.       Date        : String[8];
  192.       Logontime   : String[8];
  193.       Logofftime  : String[8];
  194.       BaudRate    : String[6];
  195.       BaudStr     : String[40];
  196.       Times       : Longint;
  197.       Download    : Boolean;
  198.       Upload      : Boolean;
  199.       Posted      : Boolean;
  200.       Read        : Boolean;
  201.       WantedChat  : Boolean;
  202.       Chated      : Boolean;
  203.       NodeChat    : Boolean;
  204.       Hidden      : Boolean;
  205.       UsedDoors   : Boolean;
  206.       Scanned     : Boolean;
  207.       LostCarrier : Boolean;
  208.       Hacking     : Boolean;
  209.       Downs       : Integer;
  210.       Ups         : Integer;
  211.       Downk       : LongInt;
  212.       Upk         : LongInt;
  213.       OnlineSecs  : LongInt;
  214.   end;
  215. (*-------------------------------------------------------------------------*)
  216.     UserRecord = RECORD                          { C:\DESIRE\DATA\USERS.DAT }
  217.         Name            :   String[30];
  218.         Location        :   String[30];
  219.         RealName        :   String[30];
  220.         NetMailName     :   String[30];
  221.         Password        :   String[15];
  222.         Phone           :   String[30];
  223.         Computer        :   String[30];
  224.         ACP             :   String[3];
  225.         LastConf        :   Longint;
  226.         Lines           :   Byte;
  227.         ConfAccount     :   Boolean;
  228.         Ratio           :   Byte;
  229.         RatioType       :   Byte;
  230.                                     { 1 = Files & Bytes
  231.                                       2 = Only Files
  232.                                       3 = Only Bytes
  233.                                       4 = Disabled      }
  234.         SecLvl          :   Byte;
  235.  
  236.         CallsTotal      :   Longint;
  237.         CallsWeek       :   Longint;
  238.         CallsMonth      :   Longint;
  239.  
  240.         Ups             :   Longint;
  241.         Downs           :   Longint;
  242.         Upk             :   Double;
  243.         DownK           :   Double;
  244.         DownToday       :   Longint;
  245.         BytesAvail      :   Longint;
  246.         MsgPosted       :   Longint;
  247.         MsgReceived     :   Longint;
  248.         Cps_Up          :   Longint;
  249.         Cps_Down        :   Longint;
  250.         WeekUpk         :   Longint;
  251.         WeekUps         :   Longint;
  252.         WeekDownk       :   Longint;
  253.         WeekDowns       :   Longint;
  254.         MonthUpk        :   Longint;
  255.         MonthUps        :   Longint;
  256.         MonthDownk      :   Longint;
  257.         MonthDowns      :   Longint;
  258.         FakeUps         :   Longint;
  259.         FakeUpk         :   Longint;
  260.         FreeDowns       :   Longint;
  261.         FreeDownk       :   Longint;
  262.  
  263.         LastDate        :   String[8];
  264.         LastTime        :   String[8];
  265.         FirstDate       :   String[8];
  266.         FirstTime       :   String[8];
  267.         BirthDate       :   String[8];
  268.                                            { ALL TIME LIMITS ARE IN SECONDS }
  269.         TimeLeft        :   Longint;
  270.         TimeDay         :   Longint;
  271.         TotalTime       :   Longint;
  272.  
  273.         NodeChatAvail   :   Longint;
  274.         NodeChatLeft    :   Longint;
  275.         NodeChatTotal   :   Longint;
  276.  
  277.         SysopChatTotal  :   Longint;
  278.         SysopChatRecord :   Longint;
  279.  
  280.         MenuSet         :   Byte;
  281.         Protocol        :   Byte;
  282.         Deleted         :   Boolean;
  283.         Hidden          :   Boolean;
  284.         CmndMode        :   Boolean;       { False = Seclvl, True = Own}
  285.         SentBy          :   String[80];
  286.  
  287.         Flags           :   Array[1..150] of Boolean;
  288.  
  289.         PageTries       :   Byte;
  290.  
  291.  
  292.         Signature       :   String[80];                           { 1.2 }
  293.  
  294.         FutureExpand    :   Array[1..282] of Byte;
  295.  
  296.      end;
  297. (*-------------------------------------------------------------------------
  298.  
  299.    FLAGS:
  300.  
  301.      1 = Edit W-Handle
  302.      2 = Edit W-Real Name
  303.      3 = Edit W-NetMail Name
  304.      4 = Edit W-Location
  305.      5 = Edit W-Phone Number
  306.      6 = Edit W-Password
  307.      7 = Edit W-Screen Length
  308.      8 = Edit W-Computer Type
  309.      9 = Edit W-MenuSet Type
  310.     10 = Edit W-Transfer Protocol
  311.  
  312.     20 = Inactive Account
  313.     21 = FreeLeech Account
  314.  
  315.     40 = Nodechat available
  316.     41 = Screen Clear Between Messages
  317.     42 = Expert Mode On/Off
  318.  
  319.     50 = Enter EALL Message
  320.  
  321.     51 = Fullscreen editor                        {1.2}
  322.     52 = Read Private messages (Cosysop/Sysop)
  323.     54 = Delete Own Mail
  324.     55 = Delete Any Mail
  325.  
  326.    100 = User Specified Commands: G       - Goodbye/Logoff
  327.    101 = User Specified Commands: M       - Toggle Ansi Graphics
  328.    102 = User Specified Commands: X       - Toggle Expert mode
  329.    103 = User Specified Commands: J       - Join Conferences
  330.    104 = User Specified Commands: S       - User Statistics
  331.    105 = User Specified Commands: B       - Bulletins
  332.    106 = User Specified Commands: T       - Local Time
  333.    107 = User Specified Commands: V       - View Text File
  334.    108 = User Specified Commands: VS      - Sysop View Text File
  335.    109 = User Specified Commands: Q       - Make node Hidden
  336.    110 = User Specified Commands: L       - List Users
  337.    111 = User Specified Commands: D       - Download Files
  338.    112 = User Specified Commands: U       - Upload Files
  339.    113 = User Specified Commands: W       - Edit Setups
  340.    114 = User Specified Commands: E       - Enter Message
  341.    115 = User Specified Commands: R       - Read Messages
  342.    116 = User Specified Commands: F       - Files Menu
  343.    117 = User Specified Commands: N       - New Files Scan
  344.    118 = User Specified Commands: DS      - Sysop Download
  345.    119 = User Specified Commands: O       - Operator Page
  346.    120 = User Specified Commands: RL      - Relogon to System
  347.    121 = User Specified Commands: $       - Global Mail Stats
  348.    122 = User Specified Commands: C       - Comment to Sysop
  349.    123 = User Specified Commands: CF      - Conference Config
  350.    124 = User Specified Commands: Z       - Zippy Scan
  351.    125 = User Specified Commands: US      - Sysop Upload
  352.    126 = User Specified Commands: A       - Alter File Flags
  353.    127 = User Specified Commands: OPEN    - List Doors Avail
  354.    128 = User Specified Commands: LOCAL   - Local Upload
  355.    129 = User Specified Commands: FS      - Global File Statistics
  356.    130 = User Specified Commands: WHO     - Who's Online
  357.  
  358. *)
  359. (*-------------------------------------------------------------------------*)
  360. BBSrecord = Record                           { C:\DESIRE\DATA\BBS<node>.DAT }
  361.         LastUpdated     : String[8];
  362.         ChatOnOff       : Boolean;
  363.         ToCalls         : Integer;        { Todays Totals from CURRENT Node }
  364.         ToMsg           : Integer;
  365.         ToDL            : Integer;
  366.         ToUL            : Integer;
  367.         ToDLBytes       : Longint;
  368.         ToULBytes       : Longint;
  369.         ToPrivateUL     : Integer;
  370.         ToNewUsers      : Integer;
  371.         ToChatTries     : Integer;
  372.         ToHackTries     : Integer;
  373.         ToDownCps       : Integer;
  374.         ToUpCps         : Integer;
  375.         ToDownName      : String[30];
  376.         ToUpName        : String[30];
  377.         ToOnlineSecs    : Longint;
  378.  
  379.         YCalls          : Integer;         { Yesterday }
  380.         YMsg            : Integer;
  381.         YPrivateUL      : Integer;
  382.         YDL             : Integer;
  383.         YUL             : Integer;
  384.         YDLBytes        : Longint;
  385.         YULBytes        : Longint;
  386.         YNewUsers       : Integer;
  387.         YChatTries      : Integer;
  388.         YOnlineSecs     : Longint;
  389.  
  390.         RCalls          : Integer;         { Records }
  391.         RMsg            : Integer;
  392.         RPrivateUL      : Integer;
  393.         RDL             : Integer;
  394.         RUL             : Integer;
  395.         RDLBytes        : Longint;
  396.         RULBytes        : Longint;
  397.         RNewUsers       : Integer;
  398.         RChatTries      : Integer;
  399.         ROnlineSecs     : Longint;
  400.  
  401.         TotalCalls      : Longint;         { TOTALS }
  402.         TotalUsers      : Longint;
  403.         Msg             : Longint;
  404.         MsgRec          : Longint;
  405.         DL              : Longint;
  406.         UL              : Longint;
  407.         DLBytes         : Double;
  408.         ULBytes         : Double;
  409.         DownCps         : Integer;
  410.         UpCps           : Integer;
  411.         DownName        : String[30];
  412.         UpName          : String[30];
  413.                                            { WEEK & MONTH STATS }
  414.         Week_Calls      : Longint;
  415.         Week_FilesUp    : Longint;
  416.         Week_FilesDown  : Longint;
  417.         Week_BytesUp    : Longint;
  418.         Week_BytesDown  : Longint;
  419.         Week_OnlineSecs : Longint;
  420.  
  421.         Month_Calls     : Longint;
  422.         Month_FilesUp   : Longint;
  423.         Month_FilesDown : Longint;
  424.         Month_BytesUp   : Longint;
  425.         Month_BytesDown : Longint;
  426.                                            { RECORDS FOR WEEK & MONTH STATS }
  427.         WeekR_Calls      : Longint;
  428.         WeekR_FilesUp    : Longint;
  429.         WeekR_FilesDown  : Longint;
  430.         WeekR_BytesUp    : Longint;
  431.         WeekR_BytesDown  : Longint;
  432.         WeekR_OnlineSecs : Longint;
  433.  
  434.         MonthR_Calls     : Longint;
  435.         MonthR_FilesUp   : Longint;
  436.         MonthR_FilesDown : Longint;
  437.         MonthR_BytesUp   : Longint;
  438.         MonthR_BytesDown : Longint;
  439.  
  440. End;
  441. (*-------------------------------------------------------------------------*)
  442. ConfUserRecord = RECORD                       { C:\DESIRE\CONFDIR\USERS.CNF }
  443.         Name            :       String[30];
  444.         Location        :       String[30];
  445.         FileScan        :       Boolean;
  446.         MailScan        :       Boolean;
  447.         ZoomScan        :       Boolean;
  448.         Ratio           :       Byte;
  449.         RatioType       :       Byte;
  450.         Ups             :       Longint;
  451.         Downs           :       Longint;
  452.         Upk             :       Double;
  453.         DownK           :       Double;
  454.         DownToday       :       Longint;
  455.         BytesAvail      :       Longint;
  456.         MsgPosted       :       Longint;
  457.         MsgReceived     :       Longint;
  458.         WeekUpk         :       Longint;
  459.         WeekUps         :       Longint;
  460.         WeekDownk       :       Longint;
  461.         WeekDowns       :       Longint;
  462.         MonthUpk        :       Longint;
  463.         MonthUps        :       Longint;
  464.         MonthDownk      :       Longint;
  465.         MonthDowns      :       Longint;
  466.         FakeUps         :       Longint;
  467.         FakeUpk         :       Longint;
  468.         FreeDowns       :       Longint;
  469.         FreeDownk       :       Longint;
  470.         FreeLeech       :       Boolean;
  471.         Deleted         :       Boolean;
  472.         HighMsgRead     :       Longint;
  473.         HighMsgAuto     :       Longint;
  474.         LastUpdated     :       String[8];
  475.  
  476.         FutureExpand    :   Array[1..326] of Byte;
  477.  
  478.      end;
  479. (*-------------------------------------------------------------------------*)
  480. TransferRecord = RECORD                 { C:\DESIRE\DATA\TRANSFER.xxx       }
  481.        FileSent        :   Boolean;     { Download = FALSE, Upload=TRUE     }
  482.        FileName        :   String[80];  { FileName WITH FULL PATH!          }
  483.        FileSize        :   Longint;     { FileSize in Bytes                 }
  484.        FileCPS         :   Longint;     { Transfer CPS Rate                 }
  485.        FileSkip        :   Boolean;     { File was Skipped                  }
  486.        FileError       :   Boolean;     { File was not completly sent/rec   }
  487. end;
  488. (*-------------------------------------------------------------------------*)
  489. MultiNodeRecord = RECORD                          { C:\DESIRE\DATA\NODE.xxx }
  490.         Name            : String[30];
  491.         Location        : String[30];
  492.         BaudRate        : Longint;
  493.         InitBaud        : Longint;
  494.         AvailForChat    : Boolean;
  495.         Status          : Byte;
  496.         ExtStatus       : String[20];
  497.         TimeLeft        : Longint;
  498.         ChatTimeLeft    : Longint;
  499.         Conference      : Longint;
  500.         HiddenNode      : Boolean;
  501. End;
  502. {
  503.     WHO Status:
  504.                 0 - Node Inactive         ExtStatus: -
  505.                 1 - Waiting for Call      ExtStatus: -
  506.                 2 - Ring Detected         ExtStatus: -
  507.                 3 - Receiving Call        ExtStatus: -
  508.                 4 - Logging on            ExtStatus: -
  509.                 5 - Scanning Mail         ExtStatus: -
  510.                 6 - Normal BBS Use/IDLE   ExtStatus: -
  511.                 7 - Account Sequence      ExtStatus: -
  512.                 8 - MultiNode Chat        ExtStatus: -
  513.                 9 - Newuser               ExtStatus: NewUserName
  514.                10 - Uploading             ExtStatus: FileName <Number>
  515.                11 - Downloading           ExtStatus: FileName <Number>
  516.                12 - Beginning Upload      ExtStatus: -
  517.                13 - Beginning Download    ExtStatus: -
  518.                14 - FileCheck             ExtStatus: FileName
  519.                15 - FileID                ExtStatus: FileName
  520.                16 - Logging Off           ExtStatus: -
  521.                17 - Chatting with Sysop   ExtStatus: -
  522.                18 - WHO                   ExtStatus: -
  523.                19 - Joining Conference    ExtStatus: -
  524.                20 - Viewing Bulletins     ExtStatus: -
  525.                21 - Viewing TextFile      ExtStatus: -
  526.                22 - Sysop Viewing File    ExtStatus: -
  527.                23 - Viewing Userlist      ExtStatus: -
  528.                24 - Editing User Setups   ExtStatus: -
  529.                25 - Posting Message       ExtStatus: <ToWho>
  530.                26 - Reading Messages      ExtStatus: -
  531.                27 - Viewing Filelist      ExtStatus: -
  532.                28 - Scanning New Files    ExtStatus: -
  533.                29 - Paging Sysop          ExtStatus: -
  534.                30 - Requested Relogon     ExtStatus: -
  535.                31 - ZipScan               ExtStatus: -
  536.                32 - Flagging Files        ExtStatus: -
  537.  
  538.   Above 32 For External Doors    ExtStatus: Contains the actual action
  539. }
  540.  
  541. (*-------------------------------------------------------------------------*)
  542. DoorRecord = RECORD                            { C:\DESIRE\DATA\DESDOOR.xxx }
  543.         Name            :   String[30];
  544.         Location        :   String[30];
  545.         RealName        :   String[30];
  546.         NetMailName     :   String[30];
  547.         Password        :   String[15];
  548.         Phone           :   String[30];
  549.         Computer        :   String[30];
  550.         ACP             :   String[3];
  551.         LastConf        :   Longint;
  552.         Lines           :   Byte;
  553.         ConfAccount     :   Boolean;
  554.         Ratio           :   Byte;
  555.         RatioType       :   Byte;
  556.  
  557.         SecLvl          :   Byte;
  558.  
  559.         CallsTotal      :   Longint;
  560.         CallsWeek       :   Longint;
  561.         CallsMonth      :   Longint;
  562.  
  563.         Ups             :   Longint;
  564.         Downs           :   Longint;
  565.         Upk             :   Double;
  566.         DownK           :   Double;
  567.         DownToday       :   Longint;
  568.         BytesAvail      :   Longint;
  569.         MsgPosted       :   Longint;
  570.         MsgReceived     :   Longint;
  571.         Cps_Up          :   Longint;
  572.         Cps_Down        :   Longint;
  573.         WeekUpk         :   Longint;
  574.         WeekUps         :   Longint;
  575.         WeekDownk       :   Longint;
  576.         WeekDowns       :   Longint;
  577.         MonthUpk        :   Longint;
  578.         MonthUps        :   Longint;
  579.         MonthDownk      :   Longint;
  580.         MonthDowns      :   Longint;
  581.         FakeUps         :   Longint;
  582.         FakeUpk         :   Longint;
  583.         FreeDowns       :   Longint;
  584.         FreeDownk       :   Longint;
  585.  
  586.         LastDate        :   String[8];
  587.         LastTime        :   String[8];
  588.         FirstDate       :   String[8];
  589.         FirstTime       :   String[8];
  590.         BirthDate       :   String[8];
  591.                                         { ALL TIME LIMITS ARE IN SECONDS }
  592.         TimeLeft        :   Longint;
  593.         TimeDay         :   Longint;
  594.         TotalTime       :   Longint;
  595.  
  596.         NodeChatAvail   :   Longint;
  597.         NodeChatLeft    :   Longint;
  598.         NodeChatTotal   :   Longint;
  599.  
  600.         SysopChatTotal  :   Longint;
  601.         SysopChatRecord :   Longint;
  602.  
  603.         MenuSet         :   Byte;
  604.         Protocol        :   Byte;
  605.         Deleted         :   Boolean;
  606.         Hidden          :   Boolean;
  607.         CmndMode        :   Boolean;        { False = Seclvl, True = Own}
  608.         SentBy          :   String[80];
  609.  
  610.         Flags           :   Array[1..150] of Boolean;
  611.         PageTries       :   Byte;
  612.  
  613.         FutureExpand1    :   Array[1..29] of Byte;
  614.  
  615.         LcDate          :       String[8];     { VARIABLES for LASTCALL }
  616.         LcLogontime     :       String[8];
  617.         LcBaudRate      :       String[6];
  618.         LcBaudStr       :       String[40];
  619.         LcDownload      :       Boolean;
  620.         LcUpload        :       Boolean;
  621.         LcPosted        :       Boolean;
  622.         LcRead          :       Boolean;
  623.         LcWantedChat    :       Boolean;
  624.         LcChated        :       Boolean;
  625.         LcNodeChat      :       Boolean;
  626.         LcScanned       :       Boolean;
  627.         LcLostCarrier   :       Boolean;
  628.         LcHacking       :       Boolean;
  629.         LcDowns         :       Integer;
  630.         LcUps           :       Integer;
  631.         LcDownk         :       LongInt;
  632.         LcUpk           :       LongInt;
  633.  
  634.         SysopAccess     :       Boolean;
  635.         ChatOnOff       :       Boolean;
  636.         StatLineOn      :       Boolean;
  637.         CaptureOn       :       Boolean;
  638.         TempFreeLeech   :       Boolean;
  639.         Reserved        :       Boolean;
  640.         Paged           :       Boolean;
  641.         Ansi            :       String[3];    (* 'ANS' or 'ASC' *)
  642.         Local           :       Boolean;
  643.         ConfPath        :       String[60];
  644.         ConfName        :       String[30];
  645.         OpenParams      :       String[255];
  646.         OnlineBaud      :       Longint;
  647.         Node            :       Byte;
  648.         HiddenNode      :       Boolean;
  649.  
  650.         Signature       :       String[120];  { 1.4 }
  651.  
  652.         FutureExpand2   :   Array[1..212] of Byte;
  653. end;
  654. (*-------------------------------------------------------------------------*)
  655. MsgRecord = RECORD                          { C:\DESIRE\MSGBASE\HEADERS.DAT }
  656.          MsgTo          :       String[30];
  657.          MsgFrom        :       String[30];
  658.          Subject        :       String[30];
  659.          PostTime       :       String[24];
  660.          ReadTime       :       String[24];
  661.          Number         :       LongInt;
  662.          Status         :       char;
  663.          Flag           :       char;
  664.          TagLine        :       char;
  665.     End;
  666. (*-------------------------------------------------------------------------*)
  667. FlagRecord = RECORD                                 { C:\DESIRE\FILEFLAG.xx }
  668.     FileName : string[12];
  669.   end;
  670. (*-------------------------------------------------------------------------*)
  671. XferLogRecord = RECORD                       { C:\BBS\LOGFILES\UPLOAD.DAT   }
  672.         FileName    : string[60];            { C:\BBS\LOGFILES\DOWNLOAD.DAT }
  673.         Date        : string[8];
  674.         Time        : string[8];
  675.         Name        : string[30];
  676.         Location    : string[30];
  677.         Conference  : longint;
  678.         FileSize    : Longint;
  679.         CpsRate     : Integer;
  680. end;
  681.  
  682.  
  683. (*-------------------------------------------------------------------------*)
  684. StringRecord = RECORD                                 { C:\DESIRE\STRSx.xxx }
  685.        MciStr : string[255];
  686. end;
  687. (*-------------------------------------------------------------------------*)
  688. GlobalFlagRecord = Record                           { C:\DESIRE\GLOBFLAG.xx }
  689.                    FilePath:String;
  690.                    Conference:Byte;
  691.                    FreeLeech:Boolean;
  692.                    End;
  693. (*-------------------------------------------------------------------------*)
  694.