home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / DESIRE15.ZIP / INSTALL.DAT / INFO.ZIP / XRD-DEV1.ZIP / STRUCTS.130 < prev    next >
Text File  |  1997-03-29  |  28KB  |  686 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (* dESiRE structures version 1.3                                           *)
  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.         DisableDYN                 :   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.  
  176.         FutureOptions              :   Array[1..4653] of Byte;
  177.  
  178.         end;
  179.  
  180.  
  181. (*-------------------------------------------------------------------------*)
  182. TYPE  LastCall = RECORD                       { C:\DESIRE\DATA\LASTCALL.DAT }
  183.       Node        : Byte;
  184.       Name        : String[30];
  185.       Location    : String[30];
  186.       Date        : String[8];
  187.       Logontime   : String[8];
  188.       Logofftime  : String[8];
  189.       BaudRate    : String[6];
  190.       BaudStr     : String[40];
  191.       Times       : Longint;
  192.       Download    : Boolean;
  193.       Upload      : Boolean;
  194.       Posted      : Boolean;
  195.       Read        : Boolean;
  196.       WantedChat  : Boolean;
  197.       Chated      : Boolean;
  198.       NodeChat    : Boolean;
  199.       Hidden      : Boolean;
  200.       UsedDoors   : Boolean;
  201.       Scanned     : Boolean;
  202.       LostCarrier : Boolean;
  203.       Hacking     : Boolean;
  204.       Downs       : Integer;
  205.       Ups         : Integer;
  206.       Downk       : LongInt;
  207.       Upk         : LongInt;
  208.       OnlineSecs  : LongInt;
  209.   end;
  210. (*-------------------------------------------------------------------------*)
  211.     UserRecord = RECORD                          { C:\DESIRE\DATA\USERS.DAT }
  212.         Name            :   String[30];
  213.         Location        :   String[30];
  214.         RealName        :   String[30];
  215.         NetMailName     :   String[30];
  216.         Password        :   String[15];
  217.         Phone           :   String[30];
  218.         Computer        :   String[30];
  219.         ACP             :   String[3];
  220.         LastConf        :   Longint;
  221.         Lines           :   Byte;
  222.         ConfAccount     :   Boolean;
  223.         Ratio           :   Byte;
  224.         RatioType       :   Byte;
  225.                                     { 1 = Files & Bytes
  226.                                       2 = Only Files
  227.                                       3 = Only Bytes
  228.                                       4 = Disabled      }
  229.         SecLvl          :   Byte;
  230.  
  231.         CallsTotal      :   Longint;
  232.         CallsWeek       :   Longint;
  233.         CallsMonth      :   Longint;
  234.  
  235.         Ups             :   Longint;
  236.         Downs           :   Longint;
  237.         Upk             :   Double;
  238.         DownK           :   Double;
  239.         DownToday       :   Longint;
  240.         BytesAvail      :   Longint;
  241.         MsgPosted       :   Longint;
  242.         MsgReceived     :   Longint;
  243.         Cps_Up          :   Longint;
  244.         Cps_Down        :   Longint;
  245.         WeekUpk         :   Longint;
  246.         WeekUps         :   Longint;
  247.         WeekDownk       :   Longint;
  248.         WeekDowns       :   Longint;
  249.         MonthUpk        :   Longint;
  250.         MonthUps        :   Longint;
  251.         MonthDownk      :   Longint;
  252.         MonthDowns      :   Longint;
  253.         FakeUps         :   Longint;
  254.         FakeUpk         :   Longint;
  255.         FreeDowns       :   Longint;
  256.         FreeDownk       :   Longint;
  257.  
  258.         LastDate        :   String[8];
  259.         LastTime        :   String[8];
  260.         FirstDate       :   String[8];
  261.         FirstTime       :   String[8];
  262.         BirthDate       :   String[8];
  263.                                            { ALL TIME LIMITS ARE IN SECONDS }
  264.         TimeLeft        :   Longint;
  265.         TimeDay         :   Longint;
  266.         TotalTime       :   Longint;
  267.  
  268.         NodeChatAvail   :   Longint;
  269.         NodeChatLeft    :   Longint;
  270.         NodeChatTotal   :   Longint;
  271.  
  272.         SysopChatTotal  :   Longint;
  273.         SysopChatRecord :   Longint;
  274.  
  275.         MenuSet         :   Byte;
  276.         Protocol        :   Byte;
  277.         Deleted         :   Boolean;
  278.         Hidden          :   Boolean;
  279.         CmndMode        :   Boolean;       { False = Seclvl, True = Own}
  280.         SentBy          :   String[80];
  281.  
  282.         Flags           :   Array[1..150] of Boolean;
  283.  
  284.         PageTries       :   Byte;
  285.  
  286.         Signature       :   String[80];                           { 1.2 }
  287.  
  288.         FutureExpand    :   Array[1..282] of Byte;
  289.  
  290.      end;
  291. (*-------------------------------------------------------------------------
  292.  
  293.    FLAGS:
  294.  
  295.      1 = Edit W-Handle
  296.      2 = Edit W-Real Name
  297.      3 = Edit W-NetMail Name
  298.      4 = Edit W-Location
  299.      5 = Edit W-Phone Number
  300.      6 = Edit W-Password
  301.      7 = Edit W-Screen Length
  302.      8 = Edit W-Computer Type
  303.      9 = Edit W-MenuSet Type
  304.     10 = Edit W-Transfer Protocol
  305.  
  306.     20 = Inactive Account
  307.     21 = FreeLeech Account
  308.  
  309.     40 = Nodechat available
  310.     41 = Screen Clear Between Messages
  311.     42 = Expert Mode On/Off
  312.  
  313.     50 = Enter EALL Message
  314.  
  315.     51 = Fullscreen editor                        {1.2}
  316.     52 = Read Private messages (Cosysop/Sysop)
  317.     54 = Delete Own Mail
  318.     55 = Delete Any Mail
  319.  
  320.    100 = User Specified Commands: G       - Goodbye/Logoff
  321.    101 = User Specified Commands: M       - Toggle Ansi Graphics
  322.    102 = User Specified Commands: X       - Toggle Expert mode
  323.    103 = User Specified Commands: J       - Join Conferences
  324.    104 = User Specified Commands: S       - User Statistics
  325.    105 = User Specified Commands: B       - Bulletins
  326.    106 = User Specified Commands: T       - Local Time
  327.    107 = User Specified Commands: V       - View Text File
  328.    108 = User Specified Commands: VS      - Sysop View Text File
  329.    109 = User Specified Commands: Q       - Make node Hidden
  330.    110 = User Specified Commands: L       - List Users
  331.    111 = User Specified Commands: D       - Download Files
  332.    112 = User Specified Commands: U       - Upload Files
  333.    113 = User Specified Commands: W       - Edit Setups
  334.    114 = User Specified Commands: E       - Enter Message
  335.    115 = User Specified Commands: R       - Read Messages
  336.    116 = User Specified Commands: F       - Files Menu
  337.    117 = User Specified Commands: N       - New Files Scan
  338.    118 = User Specified Commands: DS      - Sysop Download
  339.    119 = User Specified Commands: O       - Operator Page
  340.    120 = User Specified Commands: RL      - Relogon to System
  341.    121 = User Specified Commands: $       - Global Mail Stats
  342.    122 = User Specified Commands: C       - Comment to Sysop
  343.    123 = User Specified Commands: CF      - Conference Config
  344.    124 = User Specified Commands: Z       - Zippy Scan
  345.    125 = User Specified Commands: US      - Sysop Upload
  346.    126 = User Specified Commands: A       - Alter File Flags
  347.    127 = User Specified Commands: OPEN    - List Doors Avail
  348.    128 = User Specified Commands: LOCAL   - Local Upload
  349.    129 = User Specified Commands: FS      - Global File Statistics
  350.    130 = User Specified Commands: WHO     - Who's Online
  351.  
  352. *)
  353. (*-------------------------------------------------------------------------*)
  354. BBSrecord = Record                           { C:\DESIRE\DATA\BBS<node>.DAT }
  355.         LastUpdated     : String[8];
  356.         ChatOnOff       : Boolean;
  357.         ToCalls         : Integer;        { Todays Totals from CURRENT Node }
  358.         ToMsg           : Integer;
  359.         ToDL            : Integer;
  360.         ToUL            : Integer;
  361.         ToDLBytes       : Longint;
  362.         ToULBytes       : Longint;
  363.         ToPrivateUL     : Integer;
  364.         ToNewUsers      : Integer;
  365.         ToChatTries     : Integer;
  366.         ToHackTries     : Integer;
  367.         ToDownCps       : Integer;
  368.         ToUpCps         : Integer;
  369.         ToDownName      : String[30];
  370.         ToUpName        : String[30];
  371.         ToOnlineSecs    : Longint;
  372.  
  373.         YCalls          : Integer;         { Yesterday }
  374.         YMsg            : Integer;
  375.         YPrivateUL      : Integer;
  376.         YDL             : Integer;
  377.         YUL             : Integer;
  378.         YDLBytes        : Longint;
  379.         YULBytes        : Longint;
  380.         YNewUsers       : Integer;
  381.         YChatTries      : Integer;
  382.         YOnlineSecs     : Longint;
  383.  
  384.         RCalls          : Integer;         { Records }
  385.         RMsg            : Integer;
  386.         RPrivateUL      : Integer;
  387.         RDL             : Integer;
  388.         RUL             : Integer;
  389.         RDLBytes        : Longint;
  390.         RULBytes        : Longint;
  391.         RNewUsers       : Integer;
  392.         RChatTries      : Integer;
  393.         ROnlineSecs     : Longint;
  394.  
  395.         TotalCalls      : Longint;         { TOTALS }
  396.         TotalUsers      : Longint;
  397.         Msg             : Longint;
  398.         MsgRec          : Longint;
  399.         DL              : Longint;
  400.         UL              : Longint;
  401.         DLBytes         : Double;
  402.         ULBytes         : Double;
  403.         DownCps         : Integer;
  404.         UpCps           : Integer;
  405.         DownName        : String[30];
  406.         UpName          : String[30];
  407.                                            { WEEK & MONTH STATS }
  408.         Week_Calls      : Longint;
  409.         Week_FilesUp    : Longint;
  410.         Week_FilesDown  : Longint;
  411.         Week_BytesUp    : Longint;
  412.         Week_BytesDown  : Longint;
  413.         Week_OnlineSecs : Longint;
  414.  
  415.         Month_Calls     : Longint;
  416.         Month_FilesUp   : Longint;
  417.         Month_FilesDown : Longint;
  418.         Month_BytesUp   : Longint;
  419.         Month_BytesDown : Longint;
  420.                                            { RECORDS FOR WEEK & MONTH STATS }
  421.         WeekR_Calls      : Longint;
  422.         WeekR_FilesUp    : Longint;
  423.         WeekR_FilesDown  : Longint;
  424.         WeekR_BytesUp    : Longint;
  425.         WeekR_BytesDown  : Longint;
  426.         WeekR_OnlineSecs : Longint;
  427.  
  428.         MonthR_Calls     : Longint;
  429.         MonthR_FilesUp   : Longint;
  430.         MonthR_FilesDown : Longint;
  431.         MonthR_BytesUp   : Longint;
  432.         MonthR_BytesDown : Longint;
  433.  
  434. End;
  435. (*-------------------------------------------------------------------------*)
  436. ConfUserRecord = RECORD                       { C:\DESIRE\CONFDIR\USERS.CNF }
  437.         Name            :       String[30];
  438.         Location        :       String[30];
  439.         FileScan        :       Boolean;
  440.         MailScan        :       Boolean;
  441.         ZoomScan        :       Boolean;
  442.         Ratio           :       Byte;
  443.         RatioType       :       Byte;
  444.         Ups             :       Longint;
  445.         Downs           :       Longint;
  446.         Upk             :       Double;
  447.         DownK           :       Double;
  448.         DownToday       :       Longint;
  449.         BytesAvail      :       Longint;
  450.         MsgPosted       :       Longint;
  451.         MsgReceived     :       Longint;
  452.         WeekUpk         :       Longint;
  453.         WeekUps         :       Longint;
  454.         WeekDownk       :       Longint;
  455.         WeekDowns       :       Longint;
  456.         MonthUpk        :       Longint;
  457.         MonthUps        :       Longint;
  458.         MonthDownk      :       Longint;
  459.         MonthDowns      :       Longint;
  460.         FakeUps         :       Longint;
  461.         FakeUpk         :       Longint;
  462.         FreeDowns       :       Longint;
  463.         FreeDownk       :       Longint;
  464.         FreeLeech       :       Boolean;
  465.         Deleted         :       Boolean;
  466.         HighMsgRead     :       Longint;
  467.         HighMsgAuto     :       Longint;
  468.         LastUpdated     :       String[8];
  469.  
  470.         FutureExpand    :   Array[1..326] of Byte;
  471.  
  472.      end;
  473. (*-------------------------------------------------------------------------*)
  474. TransferRecord = RECORD                 { C:\DESIRE\DATA\TRANSFER.xxx       }
  475.        FileSent        :   Boolean;     { Download = FALSE, Upload=TRUE     }
  476.        FileName        :   String[80];  { FileName WITH FULL PATH!          }
  477.        FileSize        :   Longint;     { FileSize in Bytes                 }
  478.        FileCPS         :   Longint;     { Transfer CPS Rate                 }
  479.        FileSkip        :   Boolean;     { File was Skipped                  }
  480.        FileError       :   Boolean;     { File was not completly sent/rec   }
  481. end;
  482. (*-------------------------------------------------------------------------*)
  483. MultiNodeRecord = RECORD                          { C:\DESIRE\DATA\NODE.xxx }
  484.         Name            : String[30];
  485.         Location        : String[30];
  486.         BaudRate        : Longint;
  487.         InitBaud        : Longint;
  488.         AvailForChat    : Boolean;
  489.         Status          : Byte;
  490.         ExtStatus       : String[20];
  491.         TimeLeft        : Longint;
  492.         ChatTimeLeft    : Longint;
  493.         Conference      : Longint;
  494.         HiddenNode      : Boolean;
  495. End;
  496. {
  497.     WHO Status:
  498.                 0 - Node Inactive         ExtStatus: -
  499.                 1 - Waiting for Call      ExtStatus: -
  500.                 2 - Ring Detected         ExtStatus: -
  501.                 3 - Receiving Call        ExtStatus: -
  502.                 4 - Logging on            ExtStatus: -
  503.                 5 - Scanning Mail         ExtStatus: -
  504.                 6 - Normal BBS Use/IDLE   ExtStatus: -
  505.                 7 - Account Sequence      ExtStatus: -
  506.                 8 - MultiNode Chat        ExtStatus: -
  507.                 9 - Newuser               ExtStatus: NewUserName
  508.                10 - Uploading             ExtStatus: FileName <Number>
  509.                11 - Downloading           ExtStatus: FileName <Number>
  510.                12 - Beginning Upload      ExtStatus: -
  511.                13 - Beginning Download    ExtStatus: -
  512.                14 - FileCheck             ExtStatus: FileName
  513.                15 - FileID                ExtStatus: FileName
  514.                16 - Logging Off           ExtStatus: -
  515.                17 - Chatting with Sysop   ExtStatus: -
  516.                18 - WHO                   ExtStatus: -
  517.                19 - Joining Conference    ExtStatus: -
  518.                20 - Viewing Bulletins     ExtStatus: -
  519.                21 - Viewing TextFile      ExtStatus: -
  520.                22 - Sysop Viewing File    ExtStatus: -
  521.                23 - Viewing Userlist      ExtStatus: -
  522.                24 - Editing User Setups   ExtStatus: -
  523.                25 - Posting Message       ExtStatus: <ToWho>
  524.                26 - Reading Messages      ExtStatus: -
  525.                27 - Viewing Filelist      ExtStatus: -
  526.                28 - Scanning New Files    ExtStatus: -
  527.                29 - Paging Sysop          ExtStatus: -
  528.                30 - Requested Relogon     ExtStatus: -
  529.                31 - ZipScan               ExtStatus: -
  530.                32 - Flagging Files        ExtStatus: -
  531.  
  532.   Above 32 For External Doors    ExtStatus: Contains the actual action
  533. }
  534.  
  535. (*-------------------------------------------------------------------------*)
  536. DoorRecord = RECORD                            { C:\DESIRE\DATA\DESDOOR.xxx }
  537.         Name            :   String[30];
  538.         Location        :   String[30];
  539.         RealName        :   String[30];
  540.         NetMailName     :   String[30];
  541.         Password        :   String[15];
  542.         Phone           :   String[30];
  543.         Computer        :   String[30];
  544.         ACP             :   String[3];
  545.         LastConf        :   Longint;
  546.         Lines           :   Byte;
  547.         ConfAccount     :   Boolean;
  548.         Ratio           :   Byte;
  549.         RatioType       :   Byte;
  550.  
  551.         SecLvl          :   Byte;
  552.  
  553.         CallsTotal      :   Longint;
  554.         CallsWeek       :   Longint;
  555.         CallsMonth      :   Longint;
  556.  
  557.         Ups             :   Longint;
  558.         Downs           :   Longint;
  559.         Upk             :   Double;
  560.         DownK           :   Double;
  561.         DownToday       :   Longint;
  562.         BytesAvail      :   Longint;
  563.         MsgPosted       :   Longint;
  564.         MsgReceived     :   Longint;
  565.         Cps_Up          :   Longint;
  566.         Cps_Down        :   Longint;
  567.         WeekUpk         :   Longint;
  568.         WeekUps         :   Longint;
  569.         WeekDownk       :   Longint;
  570.         WeekDowns       :   Longint;
  571.         MonthUpk        :   Longint;
  572.         MonthUps        :   Longint;
  573.         MonthDownk      :   Longint;
  574.         MonthDowns      :   Longint;
  575.         FakeUps         :   Longint;
  576.         FakeUpk         :   Longint;
  577.         FreeDowns       :   Longint;
  578.         FreeDownk       :   Longint;
  579.  
  580.         LastDate        :   String[8];
  581.         LastTime        :   String[8];
  582.         FirstDate       :   String[8];
  583.         FirstTime       :   String[8];
  584.         BirthDate       :   String[8];
  585.                                         { ALL TIME LIMITS ARE IN SECONDS }
  586.         TimeLeft        :   Longint;
  587.         TimeDay         :   Longint;
  588.         TotalTime       :   Longint;
  589.  
  590.         NodeChatAvail   :   Longint;
  591.         NodeChatLeft    :   Longint;
  592.         NodeChatTotal   :   Longint;
  593.  
  594.         SysopChatTotal  :   Longint;
  595.         SysopChatRecord :   Longint;
  596.  
  597.         MenuSet         :   Byte;
  598.         Protocol        :   Byte;
  599.         Deleted         :   Boolean;
  600.         Hidden          :   Boolean;
  601.         CmndMode        :   Boolean;        { False = Seclvl, True = Own}
  602.         SentBy          :   String[80];
  603.  
  604.         Flags           :   Array[1..150] of Boolean;
  605.         PageTries       :   Byte;
  606.  
  607.         FutureExpand1    :   Array[1..29] of Byte;
  608.  
  609.         LcDate          :       String[8];     { VARIABLES for LASTCALL }
  610.         LcLogontime     :       String[8];
  611.         LcBaudRate      :       String[6];
  612.         LcBaudStr       :       String[40];
  613.         LcDownload      :       Boolean;
  614.         LcUpload        :       Boolean;
  615.         LcPosted        :       Boolean;
  616.         LcRead          :       Boolean;
  617.         LcWantedChat    :       Boolean;
  618.         LcChated        :       Boolean;
  619.         LcNodeChat      :       Boolean;
  620.         LcScanned       :       Boolean;
  621.         LcLostCarrier   :       Boolean;
  622.         LcHacking       :       Boolean;
  623.         LcDowns         :       Integer;
  624.         LcUps           :       Integer;
  625.         LcDownk         :       LongInt;
  626.         LcUpk           :       LongInt;
  627.  
  628.         SysopAccess     :       Boolean;
  629.         ChatOnOff       :       Boolean;
  630.         StatLineOn      :       Boolean;
  631.         CaptureOn       :       Boolean;
  632.         TempFreeLeech   :       Boolean;
  633.         Reserved        :       Boolean;
  634.         Paged           :       Boolean;
  635.         Ansi            :       String[3];    (* 'ANS' or 'ASC' *)
  636.         Local           :       Boolean;
  637.         ConfPath        :       String[60];
  638.         ConfName        :       String[30];
  639.         OpenParams      :       String[255];
  640.         OnlineBaud      :       Longint;
  641.         Node            :       Byte;
  642.         HiddenNode      :       Boolean;
  643.  
  644.         FutureExpand2    :   Array[1..333] of Byte;
  645. end;
  646. (*-------------------------------------------------------------------------*)
  647. MsgRecord = RECORD                          { C:\DESIRE\MSGBASE\HEADERS.DAT }
  648.          MsgTo          :       String[30];
  649.          MsgFrom        :       String[30];
  650.          Subject        :       String[30];
  651.          PostTime       :       String[24];
  652.          ReadTime       :       String[24];
  653.          Number         :       LongInt;
  654.          Status         :       char;
  655.          Flag           :       char;
  656.          TagLine        :       char;
  657.     End;
  658. (*-------------------------------------------------------------------------*)
  659.   FlagRecord = RECORD                               { C:\DESIRE\FILEFLAG.xx }
  660.     FileName : string[12];
  661.   end;
  662. (*-------------------------------------------------------------------------*)
  663. XferLogRecord = RECORD                       { C:\BBS\LOGFILES\UPLOAD.DAT   }
  664.         FileName    : string[60];            { C:\BBS\LOGFILES\DOWNLOAD.DAT }
  665.         Date        : string[8];
  666.         Time        : string[8];
  667.         Name        : string[30];
  668.         Location    : string[30];
  669.         Conference  : longint;
  670.         FileSize    : Longint;
  671.         CpsRate     : Integer;
  672. end;
  673.  
  674.  
  675. (*-------------------------------------------------------------------------*)
  676. StringRecord = RECORD                                 { C:\DESIRE\STRSx.xxx }
  677.        MciStr : string[255];
  678. end;
  679. (*-------------------------------------------------------------------------*)
  680. GlobalFlagRecord = Record                           { C:\DESIRE\GLOBFLAG.xx }
  681.                    FilePath:String;
  682.                    Conference:Byte;
  683.                    FreeLeech:Boolean;
  684.                    End;
  685. (*-------------------------------------------------------------------------*)
  686.