home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / SBBS_116.ZIP / STRUCT.116 < prev    next >
Encoding:
Text File  |  1992-05-07  |  36.6 KB  |  962 lines
  1. Type
  2.   MsgToIdxRecord = String[35];
  3.   FlagType = Array[1..4] of Byte;
  4.   Msgtxtrecord = String[255];
  5.   Lastreadrecord = Array[1..200] of integer;
  6.  
  7.   LineIdxRec = Record                                 (* SUSERON.BBS *)
  8.                  User:                  MsgToIdxRecord;
  9.                  Attribute,
  10.                  Status:                Byte;
  11.                  Baud:                  Word;
  12.                  City:                  String[25];
  13.                  Infobyte:              byte;
  14.                  ExtraSpace:            Array[1..9] of byte;
  15.                End;
  16.  
  17. (*  Attribute :
  18.  
  19.      Bit 0 = Line in use
  20.          1 = Do not disturb mode
  21.          2 = waiting for call
  22.  
  23.     Status (Not bit-mapped) :
  24.  
  25.      Nr  0 = Doing nothing
  26.          1 = Downloading file(s)
  27.          2 = Uploading file(s)
  28.          3 = Reading messages
  29.          4 = Entering message (also onlinemsg)
  30.          5 = Chatting with SysOp
  31.          6 = Using external program, etc...
  32.          7 = Logging on
  33.          8 = using qwk system
  34.          9 = browsing filelist
  35.         10 = In node chat (conference number is in infobyte)
  36. *)
  37.  
  38.   NameIdxRec = Record                                 (* NAMEIDX.BBS *)
  39.                  NameCRC32:            LongInt;
  40.                  AliasCRC32:           LongInt;
  41.                  Attrib:               Byte;
  42.                End;
  43.  
  44.   BoxListRec = Record                                 (* BBSLIST.BBS  *)
  45.                  BBSName:              String[40];
  46.                  Sysopname:            MsgToIdxRecord;
  47.                  Number:               String[15];
  48.                  Baud:                 Word;
  49.                  OpenTimes:            String[11];
  50.                  Net:                  String[15];
  51.                  BBSSoft:              String[10];
  52.                  Other:                String[60];
  53.                  ExtraSpace:           Array[1..150] of byte;
  54.                End;
  55.  
  56.   FLSearchRec  = Record                               (* FLSEARCH.BBS *)
  57.                    Name:               String[60];
  58.                    Directory:          String[79];
  59.                    Security:           Integer;          
  60.                    Flags:              Flagtype;
  61.                    PFilesSec:          Integer;   { Not yet used }
  62.                    PFlags:             Flagtype;  { Not yet used }
  63.                    Attrib:             Byte;
  64.                    Age:                Byte;
  65.                    ListName:           String[67];    (* If begins with *
  66.                                                          character then the
  67.                                                          rest of the string
  68.                                                          shows the upload
  69.                                                          path *)
  70.                    ExtraSpace:         Array[1..30] of Byte;
  71.                  End;
  72. (*  Attrib:
  73.  
  74.       Bit 0  : Exclude from template
  75.       Bit 1  : No downloads  { Used in template system only }
  76.       Bit 2  : No uploads    { Used in template system only }
  77.       Bit 3  : No virus check
  78.       Bit 4  : No dupe scan
  79.       Bit 5  : No new files check
  80.       Bit 6-7: Unused
  81.  
  82. *)
  83.  
  84.   DoorRec = record
  85.               Name:       String[35];                 (* DOORCFG.BBS *)
  86.               CmdLine:    String[127];
  87.               Security:   Word;
  88.               Flags:      Flagtype;
  89.               StartTime,
  90.               EndTime:    String[5];
  91.               Active:     Boolean;
  92.               ExtraSpace: Array[1..30] of Byte;
  93.             End;
  94.  
  95.  
  96.   CommentRecord = Record                              (* COMMENT.BBS  *)
  97.                     Txt      : Array[1..2] of String[76];
  98.                     FromName : MsgToIdxRecord;
  99.                     FromCity : String[25];
  100.                     PostTime : String[5];
  101.                     PostDate : String[8];
  102.                   End;
  103.  
  104.   LastCallerRec = Record                              (* SCALLERS.BBS *)
  105.                     Name:              MsgToIdxRecord;
  106.                     City:              String[25];
  107.                     Line,
  108.                     Age:               Byte;
  109.                     Baud:              Word;
  110.                     LastDate:          String[8];
  111.                     LogOn,
  112.                     LogOff:            String[5];
  113.                   End;
  114.  
  115.   ExtraConfig = Record                                 (* SCONFIG.BBS *)
  116.                    SystemPath,
  117.                    MsgBasePath,
  118.                    TempPath:            String[66];
  119.                    RedirectDevice:      String[12];
  120.                    Resp19200,
  121.                    Resp38400:           String[40];
  122.                    ShowSecurity:        Boolean;
  123.                    ShowPswdAtLogon:     Boolean;
  124.                    BetaCode:            Longint;
  125.                    Unused:              Array[1..200] of boolean;
  126.                    Empty1:              Array[1..284] of byte;
  127.                    AllowCat:            Boolean;
  128.                    Answerboard:         Byte;
  129.                    Use7bitChars:        Boolean;
  130.                    BufferSize:          Word;
  131.                    Empty2:              Array[1..45] of byte;
  132.                    EntryColor:          Byte;
  133.                    FilesBeforeRatio:    Byte;
  134.                    MinSpace:            Word;
  135.                    ClearTemp:           Boolean;
  136.                    Empty3:              Array[1..163] of byte;
  137.                    UseAliasSystem:      Boolean;
  138.                    Ansilogon:           Byte; {0 = No,1 = Yes,2 = Auto detect}
  139.                    ExcludeSysOp:        Boolean;
  140.                    Empty4:              Array[1..122] of byte;
  141.                    AltFkeys:            Array[1..10] of string[60];
  142.                    Checkfiles:          Boolean;
  143.                    PasswordBoard:       Byte;
  144.                    Alt_J_Swaptoems:     Boolean;
  145.                    MaxTimeInBank:       Word;
  146.                    NoBirthDayAsk:       Boolean;
  147.                    MaxDescLines:        Byte;
  148.                    Empty5:              Array[1..45] of byte;
  149.                    FastMailCheck:       Boolean;
  150.                    DefaultColors:       Array[1..10] of byte;
  151.                    Empty6:              Array[1..45] of byte;
  152.                    LinesInSystem:       Byte;
  153.                    CommonDir:           String[79];
  154.                    VersionNumber:       Word;
  155.                    FullScrChatBaud:     Word;
  156.                    PressEnterColor:     Byte;
  157.                    AreaSelectColor:     Array[1..3] of byte;
  158.                    StatusLineColor:     Byte;
  159.                    VirusChkMode:        Byte;
  160.                    WorkPath:            String[79];
  161.                    WatchCDatDos:        Boolean;
  162.                    UseCtrlX:            Boolean;
  163.                    MsgAfterPageBoard:   Byte;
  164.                    SearchAliases:       Boolean;
  165.                    EchoConvert:         Boolean;
  166.                    SwapAtPackers:       Boolean;
  167.                    InternalProtocols:   Byte;
  168.                    { bit 0 : Zmodem
  169.                      bit 1 : Ymodem batch
  170.                      bit 2 : Xmodem
  171.                      bit 3 : Xmodem 1K (Ymodem)
  172.                      bit 4 : Xmodem 1K G
  173.                      bit 5 : Ymodem-g }
  174.                    FirstMenuInSystem:   String[8];
  175.                    ColoredQuoteText:    Boolean;
  176.                    AddUploadersName:    Boolean;
  177.                    DaysUntilExpiration: Word;
  178.                    QWKBBSID:            String[6];
  179.                    QWKDefaultBoard:     Byte;
  180.                    QwkMaxNrToPack:      Integer;
  181.                    StatuslineStr:       Array[1..2] of string[100];
  182.                    Location:            String[40];
  183.                    UsPhoneNrFormat:     Boolean;
  184.                    DlCounterLBracket,
  185.                    DlCounterRBracket:   Char;
  186.                    QWKAllowTagLines:    Byte; {0=no, 1=yes, 2=only local areas}
  187.                    LogonSecLvl:          Word;
  188.                    LogonAge:          Byte;
  189.                    LogonPassword:       String[15];
  190.                    NoGroupMailCheck,
  191.                    NoUserListIntype27:  Boolean;
  192.                    GroupMsgSecLvl:      Word;
  193.                    AskSex:              Boolean;
  194.                    AskAnsi,                   {0=ask, 1=yes, 2=no}
  195.                    AskMailCheck,              {0=ask, 1=yes, 2=no}
  196.                    AskNewFilesCheck,          {0=ask, 1=yes, 2=no}
  197.                    AskFullScrEditor,          {0=ask, 1=yes, 2=no}
  198.                    AskFullScrViewer,          {0=ask, 1=yes, 2=no}
  199.                    AskPagePause,              {0=ask, 1=yes, 2=no}
  200.                    AskScreenClears:     Byte; {0=ask, 1=yes, 2=no}
  201.                    PageStart:           Array[0..6] of string[5];
  202.                    PageEnd:             Array[0..6] of string[5];
  203.                    UseIEMSI:            Boolean;
  204.                    CapitalizeCity,
  205.                    CapitalizeAlias:     Boolean;
  206.                    VirusScannerCmd:     string[127];
  207.                    NoExtractBeforeScan: Boolean;
  208.                    VirusFoundErrorLvl:  Byte;
  209.                    SysOpsFscrChatClr,
  210.                    UsersFscrChatClr:    Byte;
  211.                    ScanForDupePhones:   Byte; {0 = no, 1 = log entry,
  212.                                                2 = don't allow}
  213.                    NormalLongDesc:      Boolean;
  214.                    NodelistPath:        String[72];
  215.                    MinCrashMailSec:     Word;
  216.                    NoDorinfo1:          Boolean;
  217.                    NoTouch:             Boolean;
  218.                    ZoneMatching:        Boolean;
  219.                    strictdupecheck:     Boolean;
  220.                    noextendednodeinfo:  Boolean;
  221.                    Birthdayverify:      Boolean;
  222.                    realmsgnumbers:      boolean;
  223.                    LocalAttachPath:     String[66];
  224.                    NoLACheckAtLogon:    Boolean;
  225.                    AllowedPackers:      Byte;
  226.                      {Bit 0 : ZIP
  227.                       Bit 1 : ARC
  228.                       Bit 2 : LZH
  229.                       Bit 3 : ARJ}
  230.                    BoardsFileToCurDir:  Boolean;
  231.                    UnLockPwd:           String[15];
  232.                    Resp7200,
  233.                    Resp12000,
  234.                    Resp14400:           String[40];
  235.                    LineEditorQuote:     Byte; {0=intelligent, 1=normal, 2=no}
  236.                    SevenBitOnly:        Boolean;
  237.                    nofileflagging:      boolean;
  238.                    ReplyingToStr:       String[80];
  239.                    FreeFileTimeCheck:   Byte; {0 = NO, 1 = YES, 2 = EVENT}
  240.                    PageReasonToSubj:    Boolean;
  241.                    AgeGraphStartAge:    Byte;
  242.                    ETGCLocalAttrib,
  243.                    ETGCRemoteAttrib:    word;  {Not yet used}
  244.                      {BIT 0 : 320x200x16
  245.                       BIT 1 : 640x200x16
  246.                       BIT 2 : 640x350x16
  247.                       BIT 3 : 640x480x16
  248.                       BIT 4 : 320x200x256}
  249.                    AskCombinedBoards:   Boolean;
  250.                    AskCombMailCheck:    Byte; {0=ask, 1=yes, 2=no}
  251.                    UseNewFilesCheckDate:Boolean;
  252.                    BurnOutSecs:         Word;
  253.                    NoNamesInGroupMail:  Boolean;
  254.                    AutoChatCapture:     Boolean;
  255.                    AskDefProto:         Boolean;
  256.                    AskHotkeys:          Byte; {0=ask, 1=yes, 2=no}
  257.                    FreeAttaches:        Boolean;
  258.                    LogonFlags:          Flagtype;
  259.                    NoRemoteSysOp:       Boolean;
  260.                    FscrReaderColors:    Array[1..12] of byte;
  261.                    NewsDateCheck:       Boolean;
  262.                    NoNameIdx:           Boolean;
  263.                    AkaZone,
  264.                    AkaNet,
  265.                    AkaNode,
  266.                    AkaPoint:            Array[1..15] of integer;
  267.                    MinorVersionNumber:  Byte; {ie. 1 = Gamma-1, 2 = Gamma-2
  268.                                                100 = official}
  269.                    Extraspace:          Array[1..2709] of Byte;
  270.                  End;
  271.  
  272.   LanguageRecord = Record
  273.       VersionNr:                Word;
  274.       Description:              String[227]; (* ie. SF - Suomi Finland *)
  275.       InputFieldDateFormat:     String[8];
  276.       DateFormat:               String[9];
  277.       TimeFormat:               String[8];
  278.       AnsiFilesPath:            String[79];
  279.       MenuFilesPath:            String[79];
  280.  
  281.       (*    Logon strings    *)
  282.  
  283.       AskAnsiLogon:             String[50];
  284.       AskNameStr:               String[40];
  285.       NameEnteredStr:           String[40];
  286.       AskCorrectStr:            String[60];
  287.       AskAliasStr:              String[40];
  288.       AskUseAliasStr:           String[60];
  289.       AskCityStr:               String[50];
  290.       AskSexStr:                String[60];
  291.       MaleChar,
  292.       FemaleChar:               Char;
  293.       AskAnsiGraphicsStr,
  294.       AskMailCheckStr,
  295.       AskNewFileCheckStr,
  296.       AskEditorStr,
  297.       AskScreenLenStr,
  298.       AskBirthDayStr,
  299.       AskPagePausingStr,
  300.       AskScreenClearStr,
  301.       AskHomePhoneStr,
  302.       AskDataPhoneStr,
  303.       AskNewPswdStr,
  304.       AskCheckPswdStr,
  305.       AskIfCorrectStr,
  306.       AskPasswordAtlogon,
  307.       MailCheckStr,
  308.       MailCheckSorryStr,
  309.       AskReadMessagesStr:       String[60];
  310.       AskPswdFailureMsgStr:     String[60];
  311.       AskFullScrReaderStr:      String[60];
  312.       ExtraSpace1:              Array[1..183] of byte;
  313.  
  314.       (*    Messagebase strings     *)
  315.  
  316.       BoardInfoStr1,
  317.       BoardInfoStr2,
  318.       AskStartNumberStr,
  319.       AskPauseAfterEachStr,
  320.       AskAreYouSureStr,
  321.       EndofrepliesStr,
  322.       EndOfMessagesStr,
  323.       AskPrivateMsgStr,
  324.       AskUseAliasInMsgs,
  325.       MessageAbortedStr,
  326.       AskJumpNumberStr,
  327.       InvalidMsgNumberStr,
  328.       ChooseMsgAreaStr,
  329.       MessageToAllStr:          String[60];
  330.       AskWhoToStr:              String[40];
  331.       AskSubjectStr:            String[9];
  332.       AskAliasInmsgs:           String[40];
  333.       NameNotFoundStr:          String[60];
  334.       NoWriteSecurityStr:       String[60];
  335.       ShowNewAreasStr:          String[60];
  336.       NoNewMessagesStr:         String[60];
  337.       AskHowManyLatestStr:      String[60];
  338.       ShowNewMsgsNewStr:        String[20];
  339.       ShowNewMsgsToYouStr:      String[20];
  340.       Received1Str,
  341.       Received2Str,
  342.       KillSentStr,
  343.       MsgPrivateStr,
  344.       MsgPublicStr,
  345.       FilesAttachedStr,
  346.       SentOKStr,
  347.       CrashMailStr,
  348.       ToFieldStr,
  349.       FromFieldStr,
  350.       SubjFieldStr,
  351.       DateFieldStr:             String[20];
  352.       ExtraSpace2:              Array[1..11] of byte;
  353.  
  354.       (*    Filearea strings    *)
  355.  
  356.       AskFileMaskStr,
  357.       AskBatchFilenamesStr,
  358.       AskFilenameStr:           String[60];
  359.       AskKeySearchStr:          String[40];
  360.       AskFnameSearchStr,
  361.       AskNewFileSearchStr,
  362.       AskNewFSearchDateStr,
  363.       ChooseFileAreaStr,
  364.       AskFilesToPackStr,
  365.       FileNotFoundStr,
  366.       AskFilesToDelStr:         String[60];
  367.       AskFilesToUpldStr:        String[60];
  368.       TransferInfoStr1:         String[80];
  369.       TransferInfoStr2:         String[70];
  370.       PleaseDescribeStr1:       String[30];
  371.  
  372.       (*   Other Strings    *)
  373.  
  374.       MonthStr:                 Array [1..12] of String[10];
  375.       ShortWeekDay:             Array [0..6] of String[10];
  376.       LongWeekDay:              Array [0..6] of String[20];
  377.       PressEnterStr,
  378.       PressSorPStr,
  379.       PleaseWaitStr:            String[60];
  380.       YesOrNoStr:               String[6];
  381.       YesChar,
  382.       NoChar:                   Char;
  383.       ReasonForChatStr:         String[17];
  384.       ChatStartStr1,
  385.       ChatStartStr2,
  386.       ChatEndStr,
  387.       DosShellStr1,
  388.       DosShellStr2,
  389.       UpdateStr1,
  390.       UpdateStr2,
  391.       FullPhoneNrMsg,
  392.       PswdNotChangedMsg,
  393.       AskCurrentPswdStr:        String[60];
  394.       CurrentAliasStr:          String[40];
  395.       CombinedStr1,
  396.       CombinedStr2:             String[60];
  397.       AskUserSearchStr,
  398.       AskAliasSearchStr:        String[60];
  399.       MoreStr:                  String[40];
  400.       MoreYesChar,
  401.       MoreNoChar:               Char;
  402.       InactivityStr,
  403.       InactivityWarningStr,
  404.       TimeLeftWarningStr,
  405.       TimeLimitExceededStr,
  406.       AliasInUseStr,
  407.       InvalidScrLenStr,
  408.       ShortPswdStr,
  409.       PswdCheckFailedStr,
  410.       PswdChangedStr,
  411.       WrongStr:                 String[60];
  412.       YesStr,
  413.       NoStr:                    String[10];
  414.       AskEnterMsgToSysOpStr:    String[60];
  415.       NoDwnldsFromAreaStr,
  416.       NoUpldsToAreaStr:         String[60];
  417.       AskLineNumberStr:         String[60];
  418.       FullScrChatHelpStr:       String[80];
  419.       PleaseDescribeStr2:       String[30];
  420.       PleaseDescribeStr3:       String[70];
  421.       PleaseDescribeStr4:       String[60];
  422.       DescTooShortStr:          String[60];
  423.       FileExistsStr:            String[60];
  424.       FileContainsVirusStr:     String[60];
  425.       FileNotReceivedStr:       String[60];
  426.       MinutesInBankStr,
  427.       TimeLeftStr:              String[60];
  428.       DepositAskStr:            String[60];
  429.       WithDrawAskStr:           String[60];
  430.       YouCanDepositStr:         String[60];
  431.       FileNotWantedStr:         String[60];
  432.       FilesRcvdStr:             String[60];
  433.       FilesSentStr:             String[60];
  434.       NoFilesFoundStr:          String[60];
  435.       NotEnoughTimeStr:         String[60];
  436.       AskPwdForFileStr1:        String[70];
  437.       AskPwdForFileStr2:        String[70];
  438.       AskMsgAfterPageStr:       String[60];
  439.       CommentToNextUserStr:     String[60];
  440.       AskSaveCommentStr:        String[60];
  441.       SelectFileAreaStr1:       String[60];
  442.       SelectFileAreaStr2:       String[60];
  443.       AskVirusChkFileStr:       String[60];
  444.       OnStr,
  445.       OffStr:                   String[20];
  446.       ScreenClearStr,
  447.       MoreStatStr,
  448.       AnsiStr,
  449.       AnsiEditorStr,
  450.       MailCheckStatStr,
  451.       NewFilesCheckStatStr,
  452.       DisturbmodeStr,
  453.       FullScrViewerStr:         String[60];
  454.       AvailableStr,
  455.       UnavailableStr:           String[20];
  456.       CurrentTimeStr,
  457.       CurrentDateStr,
  458.       ConnectTimeStr,
  459.       TimeUsedStr,
  460.       TimeRemainingStr,
  461.       CallLimitStr:             String[45];
  462.       AliasListTopStr:          String[78];
  463.       MsgReaderHeaderStr:       String[60];
  464.       FilesFieldStr:            String[20];
  465.       MsgNextReplyStr,
  466.       MsgPrevReplyStr,
  467.       MsgQuitRepliesStr,
  468.       MsgAgainStr,
  469.       MsgNextStr,
  470.       MsgBackStr,
  471.       MsgJumpStr,
  472.       MsgReplyStr,
  473.       MsgWriteStr,
  474.       MsgDeleteStr,
  475.       MsgKeepStr,
  476.       MsgCopyStr,
  477.       MsgXportStr,
  478.       MsgEditStr,
  479.       MsgTogglePrivateStr,
  480.       MsgUpdateUserStr,
  481.       MsgStopStr:               String[25];
  482.       UsageGraphInfoStr:        String[60];
  483.       BBSListNameStr,
  484.       BBSListPhoneStr,
  485.       BBSListMaxBPSStr,
  486.       BBSListOpenTimesStr,
  487.       BBSListSoftwareStr,
  488.       BBSListNetaddrStr,
  489.       BBSListSysopStr,
  490.       BBSListOtherStr:          String[15];
  491.       AskBBSToDeleteStr:        String[35];
  492.       FileOfflineStr:           String[18];
  493.       Status0Str,
  494.       Status1Str,
  495.       Status2Str,
  496.       Status3Str,
  497.       Status4Str,
  498.       Status5Str,
  499.       Status6Str,
  500.       Status7Str:               String[36];
  501. {             0 : 'Doing nothing special'
  502.               1 : 'Downloading file(s)'
  503.               2 : 'Uploading file(s'
  504.               3 : 'Reading messages'
  505.               4 : 'Writing message'
  506.               5 : 'Chatting with SysOp'
  507.               6 : 'Using external program'
  508.               7 : 'Logging on'
  509. }
  510.       TimeinBankStr:            String[45];
  511.       OptionNotAvailableStr,
  512.       ChooseDoorStr,
  513.       TooYoungStr,
  514.       QwkRepNotFound,
  515.       QwkAskQwkFormat,
  516.       QwkLimitReached,
  517.       QwkMessagesExported,
  518.       QwkPackingMessages,
  519.       QwkNoNewMessages,
  520.       QwkMessageMoved,
  521.       QwkDoYouWantToUpld,
  522.       QwkMaxNrToPackQ,
  523.       ScanningForDupePhoneStr:  String[60];
  524.       CallOrEventStr,
  525.       downstr:                  String[36];
  526.       NoReadAccess,
  527.       NoNewMessagesinArea,
  528.       JumpingToArea:            String[60];
  529.       MsgJumpToNextArea:        String[25];
  530.       QWKUpdPointers:           String[60];
  531.       QwkChoosePacker:          String[60];
  532.       Status8Str:               String[36];
  533. {             8 : 'Using QWK system' }
  534.       ChooseMsgAreaStr2:        String[60];
  535.       AgeGraphTopStr:           String[60];
  536.       QwkPackerSelected:        String[60];
  537.       MoreContinuousChar:       Char;
  538.       NoRepliesToAreaStr:       String[60];
  539.       MoreStr2:                 String[60];
  540.       MoreFlagChar:             Char;
  541.       FilesTaggedStr:           String[60];
  542.       TagDlLimitExceededStr:    String[60];
  543.       WildCardsNotValidStr:     String[60];
  544.       AskFileToFlagStr:         String[60];
  545.       AskCombinedMailCheckStr:  String[60];
  546.       CombMailCheckStatusStr:   String[60];
  547.       HotKeysStatusStr:         String[60];
  548.       AskHotKeysStr:            String[60];
  549.       DownloadFlaggedStr:       String[60];
  550.       RemoveFlaggedStr:         String[60];
  551.       MoreViewArchiveChar:      Char;
  552.       Status9Str:               String[36];
  553.       Status10Str:              String[36];
  554. {             9 : 'Browsing filelist'
  555.              10 : 'In nodehcat'       }
  556.     End;
  557.  
  558.  
  559.   Limitsrecord = Record                               (*  LIMITS.BBS  *)
  560.                    Security:           Word;
  561.                    Downlimit:          Array [1..7] of word;
  562.                    Timelimit:          Word;
  563.                    Ratiok:             Word;
  564.                    Ratio:              Word;
  565.                    Callsperday:        Byte;
  566.                    Description:        String[35];
  567.                    ExtraSpace:         Array [1..14] of byte;
  568.                  End;
  569.  
  570.   ExtraUserRec=Record                                 (*  SUSERS.BBS  *)
  571.                  Name:               MsgToIdxRecord;
  572.                  Birthday:           String[8];
  573.                  Attrib:             Word;
  574.                  Flags:              Array[1..4] of Byte; { Not yet used }
  575.                  Firsttime:          String[5];
  576.                  FirstDate:          String[8];
  577.                  CombinedBoards:     Array[1..25]  of Byte;
  578.                  SysOpComment:       String[79];
  579.                  DefaultProto:       Char;
  580.                  UserRecPtr:         Integer;
  581.                  Colors:             Array[1..10] of byte;
  582.                  FileListType:       Byte;                { Not yet used }
  583.                  Alias:              MsgToIdxRecord;
  584.                  MinutesUsed:        Longint;
  585.                  ViewFileName:       String[12]; { SeeAlso attrib bits 4 - 6 }
  586.                  MenuToRun:          String[8];
  587.                  Timeinbank:         Word;
  588.                  TodayCalls:         Byte;
  589.                  LanguageFileN:      String[8];  { *.LNG }
  590.                  Expirationdate:     String[8];
  591.                  CurrentFArea,
  592.                  CurrentMArea,
  593.                  CurrentDoor:        Byte;
  594.                  DefaultPacker:      Byte;
  595.                    {not bit mapped !
  596.                     1 = ZIP
  597.                     2 = ARC
  598.                     3 = LZH
  599.                     4 = ARJ}
  600.                  LastNewFilesCheck:  String[8];
  601.                  ExtraSpace:         Array[1..403] of Byte;
  602.                End;
  603.  
  604. (*  Attrib:
  605.  
  606. 1     Bit  0: MailCheck at logon
  607. 2     Bit  1: Newfiles Check at logon
  608. 4     Bit  2: No downloadratio
  609. 8     Bit  3: Female
  610. 16    Bit  4: Delete file after viewing
  611. 32    Bit  5: Display file only once
  612. 64    Bit  6: File viewed
  613. 128   Bit  7: Fullscreen viewer
  614. 256   Bit  8: Combined mail check
  615. 512   Bit  9: No hotkeys
  616.       Bit 10:
  617.       Bit 11:
  618.       Bit 12:
  619.       Bit 13:
  620.       Bit 14:
  621.       Bit 15:
  622. *)
  623.  
  624.   UserRecord = Record                                 (*  USERS.BBS   *)
  625.                  Name:               MsgToIdxRecord;
  626.                  City:               String[25];
  627.                  Password:           String[15];
  628.                  DataPhone,
  629.                  HomePhone:          String[12];
  630.                  LastTime:           String[5];
  631.                  LastDate:           String[8];
  632.                  Attrib:             Byte;
  633.                  Flags:              FlagType;
  634.                  Credit,
  635.                  Pending:            Integer;
  636.                  MsgsPosted,
  637.                  HighMsgRead,
  638.                  SecLvl,
  639.                  Times,
  640.                  Ups,
  641.                  Downs,
  642.                  UpK,
  643.                  DownK:              Word;
  644.                  TodayK:             Integer;
  645.                  Elapsed:            Integer;
  646.                  Len:                Integer;
  647.                  ExtraSpace1:        Array[1..2] of byte;
  648.                  Age:                Byte;
  649.                  ExtraUserrecPtr:    Integer;
  650.                  ExtraSpace2:        Array[1..3] of Byte;
  651.                End;
  652.  
  653. (*  Attrib:
  654.  
  655.       bit 0: Deleted user
  656.       bit 1: Screen clear codes
  657.       bit 2: More prompt
  658.       bit 3: ANSI graphics
  659.       bit 4: No-Kill
  660.       bit 5: Ignore Download Hours
  661.       bit 6: ANSI editor
  662.       bit 7: Do not disturb mode ON
  663.  
  664. *)
  665.  
  666.      InfoRecord = Record                              (* MSGINFO.BBS  *)
  667.                     LowMsg:      Integer;
  668.                     HighMsg:     Integer;
  669.                     TotalActive: Integer;
  670.  
  671.                     ActiveMsgs:  Array[1..200] of Integer;
  672.                   End;
  673.  
  674.       IdxRecord = Record                              (*  MSGIDX.BBS  *)
  675.                     MsgNum:       Integer;
  676.                     Board:        Byte;
  677.                   End;
  678.  
  679.           HdrRecord = Record                          (*  MSGHDR.BBS  *)
  680.                         MsgNum,
  681.                         ReplyTo,
  682.                         SeeAlsoNum,
  683.                         TimesRead:          Integer; { Not used }
  684.                         StartRec:           Word;
  685.                         NumRecs,
  686.                         DestNet,
  687.                         DestNode,
  688.                         OrigNet,
  689.                         OrigNode:           Integer;
  690.                         DestZone,
  691.                         OrigZone:           Byte;
  692.                         Cost:               Integer;
  693.                         MsgAttr,
  694.                         NetAttr,
  695.                         Board:              Byte;
  696.                         PostTime:           String[5];
  697.                         PostDate:           String[8];
  698.                         WhoTo,
  699.                         WhoFrom:            MsgToIdxRecord;
  700.                         Subj:               String[72];
  701.                       End;
  702.  
  703.  
  704. (* Msg Attributes:
  705.  
  706.       Bit 0: Deleted
  707.       Bit 1: Unsent net mail message
  708.       Bit 2: Net mail message
  709.       Bit 3: Private message
  710.       Bit 4: Received
  711.       Bit 5: Unsent echomail message
  712.       Bit 6: Local message
  713.       Bit 7: Not used
  714.  
  715.    Net Attributes:
  716.  
  717.       Bit 0: Kill after sent
  718.       Bit 1: Sent OK
  719.       Bit 2: File attach
  720.       Bit 3: Crash mail
  721.       Bit 4: Request Receipt
  722.       Bit 5: Audit Request
  723.       Bit 6: Is a Return Receipt
  724.       Bit 7: Not used
  725.  
  726. *)
  727.  
  728.  
  729.   SysInfoRecord = Record                              (* SYSINFO.BBS  *)
  730.                     CallCount:    LongInt;
  731.                     LastCaller:   MsgToIdxRecord;
  732.                     ExtraSpace:   Array[1..128] of Byte;
  733.                   End;
  734.  
  735.   TimeLogRecord = Record                              (* TIMELOG.BBS  *)
  736.                     StartDate:        String[8];
  737.                     BusyPerHour:      Array[0..23] of Integer;
  738.                     BusyPerDay:       Array[0..6] of Integer;
  739.                   End;
  740.      MenuRecord = Record                              (* ????????.MNU *)
  741.                     Typ:      Byte;
  742.                     Sec:      Integer;
  743.                     Flags:    FlagType;
  744.                     Str:      String[75];
  745.                     Key:      Char;
  746.                     Data:     String[80];
  747.                     Fg,
  748.                     Bg:       Byte;
  749.                   End;
  750.  
  751.       EventRecord = Record
  752.                       Status:       Byte; { 0=Disabled 1=Enabled }
  753.                       RunTime:      String[5];
  754.                       ErrorLevel:   Byte;
  755.                       Days:         Byte;
  756.                       Forced:       Boolean;
  757.                       LastTimeRun:  String[8];
  758.                     End;
  759.  
  760.       BoardRecord = Record
  761.                       Name:         String[16];
  762.                       Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  763.                       Kinds:        Byte; { 0=Private & Public
  764.                                             1=Private 2=Public 3=Read-Only }
  765.                       Combined:     Boolean;
  766.                       Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,3=Alias/name}
  767.  
  768.                       ReadSecLvl:   Integer;
  769.                       ReadFlags:    FlagType;
  770.  
  771.                       WriteSecLvl:  Integer;
  772.                       WriteFlags:   FlagType;
  773.  
  774.                       SysopSecLvl:  Integer;
  775.                       SysopFlags:   FlagType;
  776.                     End;
  777.  
  778.      ConfigRecord = Record                            (* CONFIG.BBS *)
  779.                       CommPort:      Integer;
  780.                       InitBaud,
  781.                       InitTimes,
  782.                       AnswerWait:    Word;
  783.                       ModemInitStr,
  784.                       ModemBusyStr:  String[70];
  785.                       ModemInitResp,
  786.                       ModemBusyResp,
  787.                       Resp300,
  788.                       Resp1200,
  789.                       Resp2400:      String[40];
  790.  
  791.                       MenuPath,
  792.                       TextPath,
  793.                       NetPath:      String[66];
  794.  
  795.                       MinBaud,
  796.                       GraphicsBaud,
  797.                       XferBaud:      Integer;
  798.                       LowBaudStart,
  799.                       LowBaudEnd,
  800.                       DownloadStart,
  801.                       DownloadEnd,
  802.                       PagingStart,              {!! Not used anymore !!}
  803.                       PagingEnd:     String[5]; {!! Not used anymore !!}
  804.  
  805.                       MatrixZone,
  806.                       MatrixNet,
  807.                       MatrixNode:    Integer;
  808.                       OldAkaNet,
  809.                       OldAkaNode:    Array[1..5] of Integer; {not used}
  810.                       NetMailBoard:  Integer;
  811.  
  812.                       DefaultSec:                Integer;
  813.                       DefaultCredit:             Integer;
  814.                       DefaultFlags:              FlagType;
  815.  
  816.                       EditorCmdStr:    String[70];
  817.                       OriginLine:      String[60];
  818.                       SysopName:       MsgToIdxRecord;
  819.                       AutoLogonChar,
  820.                       FastLogon,
  821.                       ScreenBlanking,
  822.                       UseLastRead,
  823.                       MonoMode,
  824.                       DirectWrite,
  825.                       SnowCheck,
  826.                       NetEchoExit,
  827.                       OneWordNames,
  828.                       CheckMail,
  829.                       AskHomePhone,
  830.                       AskDataPhone,
  831.                       GraphicsAvail:   Boolean;
  832.                       InactiveTimeOut: Integer;
  833.                       LogonTime:       Integer;
  834.                       DefFgColor:      Integer;
  835.                       DefBgColor:      Integer;
  836.                       PasswordTries:   Integer;
  837.                       MaxPageTimes:    Integer;
  838.                       PageBellLen:     Integer;
  839.  
  840.                       Use_Xmodem:      Boolean;
  841.                       Use_Xmodem1k:    Boolean;
  842.                       Use_Ymodem:      Boolean;
  843.                       Use_YmodemG:     Boolean;
  844.                       Use_Sealink:     Boolean;
  845.                       Use_Zmodem:      Boolean;
  846.                       Inp_Fields:      Boolean;
  847.                       QuoteStr:        String[3];
  848.                       UploadCredit:    Integer;
  849.                       LoadingMessage:  String[70];
  850.                       SelectionPrompt: String[70];
  851.  
  852.                       VersionID:       Word;
  853.                       Resp4800,
  854.                       Resp9600:        String[40];
  855.  
  856.                       OldAkaZone:      Array[1..5] of Integer; {not used}
  857.  
  858.                       MatrixPoint:     Integer;
  859.                       OldAkaPoint:     Array[1..5] of Integer; {not used}
  860.  
  861.                       UseAka:          Array[1..200] of Byte;
  862.                       AskAge:          Boolean;         { Not used }
  863.                       SystemName:      String[40];
  864.                       RegKey:          Longint;
  865.  
  866.                       EntryfieldColor: Byte;
  867.                       MenuBorderColor: Byte;
  868.  
  869.                       SysOpSeclvl:     Integer;
  870.                       AllowDelMsgs:    Boolean;
  871.  
  872.                       EventRec:        Array[1..30] of EventRecord;
  873.                       UnusedBoards:    Array[1..200] of BoardRecord;
  874.                     End;
  875.  
  876.   GosubDataType = Array[1..20] of String[8];
  877.  
  878.   ExitRecord = Record                                 (* EXITINFO.BBS *)
  879.                  BaudRate:        Word;
  880.                  SysInfo:         SysInfoRecord;
  881.                  TimeLogInfo:     TimeLogRecord;
  882.                  UserInfo:        UserRecord;
  883.                  EventInfo:       EventRecord;
  884.                  NetMailEntered:  Boolean;
  885.                  EchoMailEntered: Boolean;
  886.                  LoginTime:       String[5];
  887.                  LoginDate:       String[8];
  888.                  TmLimit:         Integer;
  889.                  LoginSec:        LongInt;
  890.                  Credit:          LongInt;
  891.                  UserRecNum:      Integer;
  892.                  ReadThru:        Integer;
  893.                  PageTimes:       Integer;
  894.                  DownLimit:       Integer;
  895.                  WantChat:        Boolean;
  896.                  GosubLevel:      Byte;
  897.                  GosubData:       GosubDataType;
  898.                  Menu:            String[8];
  899.                End;
  900.  
  901.                ProtocolRecord = Record                (* SPROTO.BBS *)
  902.                  Name            : String[15];
  903.                  Key             : Char;
  904.                  LogFileType     : Byte; { 0=OTHER,1=ICOM,2=DSZ}
  905.                  ProtocolType    : Byte; { 0=other,1=opus,2=BIMODEM}
  906.                  MaxFiles,
  907.                  Effic,
  908.                  Attribute       : Byte;
  909.                  { Bit 0: Actived
  910.                    Bit 1: Batch
  911.                    Bit 2: FullDuplex (Check for uploads)
  912.                  }
  913.                  DnCmdString,
  914.                  UpCmdString     : String[127];
  915.                  LogFileName,
  916.                  CtlFileName     : String[66];
  917.                  UpLogKeyword,
  918.                  DnLogKeyword    : String[20];
  919.                  NameWordNr      : Byte;
  920.                  DnCtlString,
  921.                  UpCtlString     : String[60];
  922.                  ExtraSpace      : Array[1..64] of byte;
  923.                end;
  924.  
  925.                MsgBoardRecord = Record                (* BOARDS.BBS *)
  926.                                   Name:         String[30];
  927.                                   QwkName:      String[12];
  928.  
  929.                                   Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  930.                                   Kinds:        Byte; { 0=Private & Public
  931.                                                         1=Private 2=Public 3=Read-Only}
  932.                                   Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,
  933.                                                        3=Alias/name}
  934.  
  935.                                   ReadSecLvl:   Integer;
  936.                                   ReadFlags:    FlagType;
  937.  
  938.                                   WriteSecLvl:  Integer;
  939.                                   WriteFlags:   FlagType;
  940.  
  941.                                   SysopSecLvl:  Integer;
  942.                                   SysopFlags:   FlagType;
  943.  
  944.                                   Group:        Char;
  945.                                   Replystatus:  byte; {0 = normal, 1 = net/normal
  946.                                                        2 = net only, 3 = no replies}
  947.                                   Age:          Byte;
  948.                                   Attrib:       Word;
  949.                                 End;
  950.  
  951.                (*
  952.                   Attributes :
  953.  
  954.                   bit 0 : Combined
  955.                   bit 1 : Default combined
  956.                   bit 2 : Allow message deleting
  957.                   bit 3 : Allow taglines
  958.                   bit 4 : Use in template system
  959.                   bit 5 : Convert 8bit -> 7bit
  960.                   bit 6 : forced ON in the mail check
  961.                *)
  962.