home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBBS / QSTRUCT.INC < prev    next >
Encoding:
Text File  |  1990-03-05  |  11.4 KB  |  323 lines
  1.  
  2. (****************************************************************************)
  3. (*         Structures document for QuickBBS version 2.61                    *)
  4. (*         Copyright 1989, The QuickBBS Group, Inc. All Rights Reserved.    *)
  5. (****************************************************************************)
  6.  
  7. Type
  8.   FlagType = Array[1..4] of Byte;
  9.  
  10.   UserRecord = Record
  11.                  Name:               String[35];
  12.                  City:               String[25];
  13.                  Pwd:                String[15];
  14.                  DataPhone,
  15.                  HomePhone:          String[12];
  16.                  LastTime:           String[5];
  17.                  LastDate:           String[8];
  18.                  Attrib:             Byte;
  19.                  Flags:              FlagType;
  20.                  Credit,
  21.                  Pending,
  22.                  TimesPosted,
  23.                  HighMsgRead,
  24.                  SecLvl,
  25.                  Times,
  26.                  Ups,
  27.                  Downs,
  28.                  UpK,
  29.                  DownK,
  30.                  TodayK,
  31.                  Elapsed,
  32.                  Len:                Integer;
  33.                  CombinedPtr:        Word; (* Record number in COMBINED.BBS *)
  34.                  Age:                Byte; (* Not yet implemented *)
  35.                  ExtraSpace:         Array[1..5] of Byte;
  36.                End;
  37.  
  38. (*  Attrib:
  39.  
  40.       Bit 0: Deleted
  41.       Bit 1: Screen Clear Codes
  42.       Bit 2: More Prompt
  43.       Bit 3: ANSI
  44.       Bit 4: No-Kill
  45.       Bit 5: Ignore Download Hours
  46.       Bit 6: ANSI Full Screen Editor
  47.       Bit 7: [ Reserved ]
  48.  
  49. *)
  50.  
  51. { Nodelist Records *************************************************** }
  52.  
  53.    NodeIdxRecord = Record
  54.                      Zone,
  55.                      Net,
  56.                      Node:      Integer;
  57.                      NodeType:  Byte;
  58.                    End;
  59.  
  60.    NodelistRecord = Record
  61.                       NodeType:  Byte;
  62.                       Zone,
  63.                       Net,
  64.                       Node:      Integer;
  65.                       Name:      String[20];
  66.                       City:      String[40];
  67.                       Phone:     String[40];
  68.                       Password:  String[8];
  69.                       Flags:     Integer;
  70.                       BaudRate:  Integer;
  71.                       Cost:      Integer;
  72.                     End;
  73.  
  74. { Message Records ******************************************************}
  75.  
  76.       CombSelectType = Array[1..200] of Boolean; (* for COMBINED.BBS *)
  77.  
  78.       InfoRecord = Record
  79.                      LowMsg:      Integer;     { Lowest Message in File }
  80.                      HighMsg:     Integer;     { Highest Message in File }
  81.  
  82.                      TotalActive: Integer;     { Total Active Messages }
  83.  
  84.                      ActiveMsgs:  Array[1..200] of Integer;
  85.                    End;
  86.  
  87.       IdxRecord = Record
  88.                     MsgNum:       Integer;
  89.                     Board:        Byte;
  90.                   End;
  91.  
  92.           HdrRecord = Record
  93.                         MsgNum,
  94.                         ReplyTo,
  95.                         SeeAlsoNum,
  96.                         TRead:              Integer;
  97.                         StartRec:           Word;
  98.                         NumRecs,
  99.                         DestNet,
  100.                         DestNode,
  101.                         OrigNet,
  102.                         OrigNode:           Integer;
  103.                         DestZone,
  104.                         OrigZone:           Byte;
  105.                         Cost:               Integer;
  106.                         MsgAttr,
  107.                         NetAttr,
  108.                         Board:              Byte;
  109.                         PostTime:           String[5];
  110.                         PostDate:           String[8];
  111.                         WhoTo,
  112.                         WhoFrom:            String[35];
  113.                         Subj:               String[72];
  114.                       End;
  115.  
  116.  
  117. (* Msg Attributes:
  118.  
  119.       Bit 0: Deleted
  120.       Bit 1: Unmoved Outgoing Net Message
  121.       Bit 2: Is a Net Mail Message
  122.       Bit 3: Private
  123.       Bit 4: Received
  124.       Bit 5: Unmoved Outgoing Echo Message
  125.       Bit 6: Local Bit
  126.       Bit 7: [ Reserved ]
  127.  
  128.    Net Attributes:
  129.  
  130.       Bit 0: Kill Message after it's been sent
  131.       Bit 1: Sent OK
  132.       Bit 2: File(s) Attached
  133.       Bit 3: Crash Priority
  134.       Bit 4: Request Receipt
  135.       Bit 5: Audit Request
  136.       Bit 6: Is a Return Receipt
  137.       Bit 7: [ Reserved ]
  138.  
  139. *)
  140.  
  141. { Other Stuff *********************************************************** }
  142.  
  143.   SysInfoRecord = Record
  144.                     CallCount:    LongInt;
  145.                     LastCaller:   String[35];
  146.                     ExtraSpace:   Array[1..128] of Byte;
  147.                   End;
  148.  
  149.   TimeLogRecord = Record
  150.                     StartDate:        String[8];
  151.                     BusyPerHour:      Array[0..23] of Integer;
  152.                     BusyPerDay:       Array[0..6] of Integer;
  153.                   End;
  154.  
  155.      MenuRecord = Record
  156.                     Typ:      Byte;
  157.                     Sec:      Integer;
  158.                     Flags:    FlagType;
  159.                     Str:      String[75];
  160.                     Key:      Char;
  161.                     Data:     String[80];
  162.                     Fg,
  163.                     Bg:       Byte;
  164.                   End;
  165.  
  166. { Configuration Information ********************************************** }
  167.  
  168.       EventRecord = Record
  169.                       Status:       Byte; { 0=Deleted 1=Enabled 2=Disabled }
  170.                       RunTime:      String[5];
  171.                       ErrorLevel:   Byte;
  172.                       Days:         Byte;
  173.                       Forced:       Boolean;
  174.                       LastTimeRun:  String[8];
  175.                     End;
  176.  
  177.       BoardRecord = Record
  178.                       Name:         String[16];
  179.                       Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  180.                       Kinds:        Byte; { 0=Both 1=Pvt 2=Pub 3=Read-Only }
  181.                       Combined:     Boolean;
  182.                       Aliases:      Boolean;
  183.  
  184.                       ReadSecLvl:   Integer;
  185.                       ReadFlags:    FlagType;
  186.  
  187.                       WriteSecLvl:  Integer;
  188.                       WriteFlags:   FlagType;
  189.  
  190.                       SysopSecLvl:  Integer;
  191.                       SysopFlags:   FlagType;
  192.                     End;
  193.  
  194.      ConfigRecord = Record
  195.                       (*  Modem Parameters  *)
  196.                       CommPort:      Integer;
  197.                       InitBaud,
  198.                       InitTimes,
  199.                       AnswerWait:    Integer;
  200.                       ModemInitStr,
  201.                       ModemBusyStr:  String[70];
  202.                       ModemInitResp,
  203.                       ModemBusyResp,
  204.                       Resp300,
  205.                       Resp1200,
  206.                       Resp2400:      String[40];
  207.  
  208.                       (*  System Paths  *)
  209.                       MenuPath,
  210.                       TextPath,
  211.                       NetPath:      String[66];
  212.  
  213.                       (*  Restriction Parameters  *)
  214.                       MinBaud,
  215.                       GraphicsBaud,
  216.                       XferBaud:      Integer;
  217.                       LowBaudStart,
  218.                       LowBaudEnd,
  219.                       DownloadStart,
  220.                       DownloadEnd,
  221.                       PagingStart,
  222.                       PagingEnd:     String[5];
  223.  
  224.                       (*  Matrix Information  *)
  225.                       MatrixZone,
  226.                       MatrixNet,
  227.                       MatrixNode:    Integer;
  228.                       AkaNet,
  229.                       AkaNode:       Array[1..5] of Integer;
  230.                       NetMailBoard:  Integer;
  231.  
  232.                       (*  Default Information for New Users  *)
  233.                       DefaultSec:                Integer;
  234.                       DefaultCredit:             Integer;
  235.                       DefaultFlags:              FlagType;
  236.  
  237.                       (*  Sysop Security Levels  *)
  238.                       EditorCmdStr:    String[70];
  239.                       OriginLine:      String[60];
  240.                       SysopName:       String[35];
  241.                       AutoLogonChar,
  242.                       FastLogon,
  243.                       ScreenBlanking,
  244.                       UseLastRead,
  245.                       MonoMode,
  246.                       DirectWrite,
  247.                       SnowCheck,
  248.                       NetEchoExit,
  249.                       OneWordNames,
  250.                       CheckMail,
  251.                       AskHomePhone,
  252.                       AskDataPhone,
  253.                       GraphicsAvail:   Boolean;
  254.                       InactiveTimeOut: Integer;
  255.                       LogonTime:       Integer;
  256.                       DefFgColor:      Integer;
  257.                       DefBgColor:      Integer;
  258.                       PasswordTries:   Integer;
  259.                       MaxPageTimes:    Integer;
  260.                       PageBellLen:     Integer;
  261.  
  262.                       Use_Xmodem:      Boolean;
  263.                       Use_Xmodem1k:    Boolean;
  264.                       Use_Ymodem:      Boolean;
  265.                       Use_YmodemG:     Boolean;
  266.                       Use_Sealink:     Boolean;     { Changed for 2.04 }
  267.                       Use_Zmodem:      Boolean;     { "              " }
  268.                       Inp_Fields:      Boolean;     { "              " }
  269.                       QuoteStr:        String[3];
  270.                       UploadCredit:    Integer;
  271.                       LoadingMessage:  String[70];
  272.                       SelectionPrompt: String[70];
  273.  
  274.                       VersionID:       Word;
  275.  
  276.                       { Added for 2.04: }
  277.  
  278.                       Resp4800,
  279.                       Resp9600:        String[40];   
  280.  
  281.                       AkaZone:         Array[1..5] of Integer;
  282.  
  283.                       { Added for 2.60: }
  284.  
  285.                       MatrixPoint:     Integer;
  286.                       AkaPoint:        Array[1..5] of Integer;
  287.  
  288.                       UseAka:          Array[1..200] of Byte;
  289.                       AskAge:          Boolean; (* Not yet Implemented *)
  290.                       SystemName:      String[40];
  291.                       RegKey:          Longint;
  292.  
  293.                       ExtraSpace:      Array[1..5] of Byte;
  294.  
  295.                       EventRec:        Array[1..30] of EventRecord;
  296.                       BoardRec:        Array[1..200] of BoardRecord;
  297.                     End;
  298.  
  299.   GosubDataType = Array[1..20] of String[8];
  300.  
  301.   ExitRecord = Record
  302.                  BaudRate:        Integer;
  303.                  SysInfo:         SysInfoRecord;
  304.                  TimeLogInfo:     TimeLogRecord;
  305.                  UserInfo:        UserRecord;
  306.                  EventInfo:       EventRecord;
  307.                  NetMailEntered:  Boolean;
  308.                  EchoMailEntered: Boolean;
  309.                  LoginTime:       String[5];
  310.                  LoginDate:       String[8];
  311.                  TmLimit:         Integer;
  312.                  LoginSec:        LongInt;
  313.                  Credit:          LongInt;
  314.                  UserRecNum:      Integer;
  315.                  ReadThru:        Integer;
  316.                  PageTimes:       Integer;
  317.                  DownLimit:       Integer;
  318.                  WantChat:        Boolean;
  319.                  GosubLevel:      Byte;
  320.                  GosubData:       GosubDataType;
  321.                  Menu:            String[8];
  322.                End;
  323.