home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac_os2 / foss10b3.zip / TYPES.PAS < prev    next >
Pascal/Delphi Source File  |  1994-07-16  |  24KB  |  507 lines
  1. {$I B&BSYS.DEF}
  2. Unit Types;
  3.  
  4. INTERFACE
  5. Type
  6.   { Max arrays }
  7.   TByteMax         = Array[0..65519] Of Byte;
  8.   TWordMax         = Array[0..32759] Of Word;
  9.   TLongIntMax      = Array[0..16379] Of LongInt;
  10.  
  11.   { Message text buffer }
  12.   PMsgBuffer       = ^TMsgBuffer;
  13.   TMsgBuffer       = Array[0..65519] Of Char;
  14.  
  15.   { Type orginally defined in the DOS unit }
  16.   PathStr     = String[79];
  17.   DirStr      = String[67];
  18.  
  19.   { String types }
  20.   Str4        = String[4];
  21.   Str6        = String[6];
  22.   Str10       = String[10];
  23.   Str12       = String[12];
  24.   Str16       = String[16];
  25.   Str30       = String[30];
  26.   Str40       = String[40];
  27.   Str46       = String[46];
  28.   Str60       = String[60];
  29.  
  30.   { Date and time types }
  31.   DateT       = Record
  32.     Year           : Word;
  33.     Month,
  34.     Day            : Byte;
  35.   End;
  36.   TimeT       = Record
  37.     Hour,
  38.     Minute         : Byte;
  39.   End;
  40.   DateTimeT   = Record
  41.     Date           : DateT;
  42.     Time           : TimeT;
  43.   End;
  44.  
  45.   { Password types }
  46.   PasswordT   = Record
  47.     Pwd            : Str12;
  48.     Date           : DateT;
  49.   End;
  50.  
  51.   { System text type }
  52.   NewTxtT     = Record
  53.     Pnt       : Array[0..799] Of Record
  54.       Pos     : Word;
  55.       Len     : Char;
  56.     End;
  57.     Text      : Array[0..49151] Of Byte;
  58.   End;
  59.  
  60.   { System meny types }
  61.   MenuKey     = Record
  62.     Func           : String[25];
  63.     MinKey         : Byte;
  64.   End;
  65.   MenusT      = Array[0..99] Of MenuKey;
  66.  
  67.   { Various type used }
  68.   AccessT     = (ReadMsg,WriteMsg,UploadFile,DownloadFile,
  69.                  OpenDoor,AreaOp,SysOp);
  70.   Access      = Set Of AccessT;
  71.  
  72.   AreaT       = (AllowresignA);
  73.   AreaSet     = Set Of AreaT;
  74.  
  75.   GraphT      = (IBM,ANSI);
  76.   Graph       = Set Of GraphT;
  77.  
  78.   ClearScrT   = (ClrMenu,ClrMsg,ClrBullet);
  79.   ClearScr    = Set Of ClearScrT;
  80.  
  81.   ANSIUseT    = (ANSMenu,ANSMsg,ANSBullet);
  82.   ANSIUseS    = Set Of ANSIUseT;
  83.  
  84.   ArcT        = (None,ZIP,ARC,LZH,ARJ);
  85.  
  86.   AreaMarkT   = Array[1..32767] Of Word;
  87.  
  88.   ConnectT    = Record
  89.     Speed       : Word;
  90.     MNP         : Boolean;
  91.   End;
  92.  
  93.   Days_Typ        = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
  94.   Days_Set    = Set Of Days_Typ;
  95.   EventT      = Record
  96.     FHour       : ShortInt;
  97.     FMin        : Byte;
  98.     LHour       : Byte;
  99.     LMin        : Byte;
  100.     Days        : Days_Set;
  101.     LastDay     : Byte;
  102.   End;
  103.  
  104.   bNetAddr         = Record
  105.     Case LongInt Of
  106.       0: (Buf : LongInt);
  107.       1: (Country, Region : Byte; Node : Word);
  108.   End;
  109.  
  110. {  NodeIDT          = Record
  111.     Case Word Of
  112.       0: (Country, Region, Node : Word);
  113.       1: (Buf : Real);
  114.   End;}
  115.  
  116. {----------------------------------------------------------------------------
  117.   Fileformat for B&BSYS.CFG file - main configuration file
  118.                  MAIN\B&BMODEM.CFG - node configuration file
  119.                  MAIN\B&BAREAS.CFG - area configuration file
  120.  ----------------------------------------------------------------------------}
  121. Type
  122.   SysCfgT    = Record
  123.     Version        : String[19];       {   1-  20=  20}
  124.     BoardName      : Str30;            {  21-  51=  31}
  125.     __Country1       : Str4;             {  52-  56=   5}
  126.     __Region1        : Word;             {  57-  58=   2}
  127.     __Node1          : Word;             {  59-  60=   2}
  128.     __Board1         : Str10;            {  61-  71=  11}
  129.     SysOpName      : Str30;            {  72- 102=  31}
  130.     SysOpPassword  : PasswordT;        { 103- 119=  17}
  131.     FileDescrName  : Str12;            { 120- 132=  13}
  132.     BNetReqUser    : Str30;            { 133- 163=  31}
  133.     Location       : Str30;            { 164- 194=  31}
  134.     GiveBackMS     : Byte;             { 195- 195=   1}
  135.     NU1            : Array[196..199] Of Byte;
  136.     NewUserTime    : Word;             { 200- 201=  2}
  137.     NewLevel       : Byte;             { 202     =  1}
  138.     NewFlags       : Set Of (NewOk2Reg);
  139.                                        { 203     =  3}
  140.     ScratchPad     : PathStr;          { 204- 283= 80}
  141.     PKUNZIPPath    : PathStr;          { 284- 363= 80}
  142.     PKZIPPath      : PathStr;          { 364- 443= 80}
  143.     MainPhone      : Str16;            { 444- 460= 17}
  144.     NU3            : Array[461..603] Of Byte;
  145.     RAMDisk        : DirStr;           { 604- 671= 68}
  146.     Inactivity     : Word;             { 672- 673=  2}
  147.     NU4            : Array[674..873] Of Byte;
  148.     Events         : Array[1..10] Of EventT;
  149.                                        { 874- 933= 60}
  150.     NU5            : Array[934..1013] Of Byte;
  151.     PkArcPath      : PathStr;          {1014-1093= 80}
  152.     PkXArcPath     : PathStr;          {1094-1173= 80}
  153.     LHAPath        : PathStr;          {1174-1253= 80}
  154.     ARJPath        : PathStr;          {1254-1333= 80}
  155.     NU6            : Array[1334..1413] Of Byte;
  156.     CDROM          : Array[1..10] Of Char;
  157.                                        {1414-1423= 10}
  158.     RFU            : Array[1424..4092] Of Byte;
  159.                                        {1424-4092}
  160.     RecPos         : LongInt;          {4093-4096}
  161.   End; { Type SYSCfgT }
  162.  
  163.   ModCfgT     = Record
  164.     ComPort        : Integer;          {  2/  2 * 1..4 = COM1..4
  165.                                                   5    = use specified dev.  }
  166.     NU1            : LongInt;          {  4/  6 *                            }
  167.     InitSpeed      : Word;             {  2/  8 * Init baudrate              }
  168.     LockedSpeed    : Boolean;          {  1/  9 * Locked speed node?         }
  169.     ConnectType    : (DirectCOM, DirectLOCAL, WaitForRING, WaitForDCD);
  170.  
  171.     InitStr        : Str60;            { 61/ 71 * Init string                }
  172.     AnswerStr      : Str30;            { 31/102 * Answer string              }
  173.     OnHookStr      : Str30;            { 31/133 * Onhook string              }
  174.     OffHookStr     : Str30;            { 31/164 * Offhook string             }
  175.  
  176.     SysOpAvail     : Boolean;          {  1/165 * SysOp available?           }
  177.     UseInactivity  : Boolean;          {  1/166 * Inactivity disconnect here }
  178.  
  179.     RingB4Answer   : Byte;             {  1/167 * Number of "RING" before
  180.                                                   answering                  }
  181.     IODevice       : Str16;            { 17/184 * IO-Device used if ComPort
  182.                                                   is 5                       }
  183.  
  184.     RFU            : Array[185..252] Of Byte;
  185.                                        {   /252 * RFU                        }
  186.     RecPos         : LongInt;          {  4/256 * }
  187.   End; { Type ModCfgT }
  188.  
  189.   Area_Directory_Record = Record
  190.     DirNo          : Word;             {  2/  2 * Internal number of
  191.                                                   directory                  }
  192.     DirName        : Str30;            { 31/ 33 * Name of directory          }
  193.     DiskDir        : DirStr;           { 68/101 * Assigned disk directory    }
  194.     Flags          : Set Of (ShowUploader, UploadDir);
  195.                                        {  1/102 * Directory flags            }
  196.     FirstRec,
  197.     NextRec        : LongInt;          {  8/110 * Internal pointers to .DIR  }
  198.     RFU            : Array[111..124] Of Byte;
  199.     RecPos         : LongInt;          {  4/128 * }
  200.   End;
  201.  
  202.   Area_Flags_Type  = Set Of (New_User_Member,
  203.                              Allow_Resign,
  204.                              Public_Messages,
  205.                              Private_Messages,
  206.                              BNet_Member,
  207.                              NU1,
  208.                              External_Area);
  209.   Area_Config_Record = Record
  210.     AreaName       : Str30;            { 31/ 31 * Name of area showed to user}
  211.     AreaCode       : Str4;             {  5/ 36 * Code used for AREAxxxx files
  212.                                                   and bNet                   }
  213.     FileCode       : Str4;             {  5/ 41 *                            }
  214.     DoorCode       : Str4;             {  5/ 46 *                            }
  215.     BullCode       : Str4;             {  5/ 51 *                            }
  216.     NU1            : Word;
  217.     ReadOldMsg     : Word;             {  2/ 55 *                            }
  218.     AreaFlags      : Area_Flags_Type;  {  1/ 56 *                            }
  219.     HostNodeID     : bNetAddr;         {  4/ 60 *                            }
  220.     NU2            : Word;
  221.  
  222.     AccessLevel    : Array[0..15] Of Access;
  223.                                        { 15/ 78 *                            }
  224.  
  225.     RFU            : Array[79..124] Of Byte;
  226.                                        {   /124 * RFU                        }
  227.     RecPos         : LongInt;          {  4/128 * }
  228.   End; { Area_Config_Record }
  229.  
  230.   Link_Cfg_Flags   = Set Of (ActiveLink,
  231.                              AcceptRequest,
  232.                              AcceptResign);
  233.   Link_Cfg_Record  = Record
  234.     LinkFlags      : Link_Cfg_Flags;   {  1/  1 * bNet link flags            }
  235.     LastMsgXfer    : LongInt;          {  4/  5 * Last message transfered    }
  236.     TempMsgXfer    : LongInt;          {  4/  9 * Temp message pointer       }
  237.  
  238.     RFU            : Array[10..28] Of Byte;
  239.     RecPos         : LongInt;          {  4/ 32 * }
  240.   End; { Area_Net_Type }
  241.  
  242. {----------------------------------------------------------------------------
  243.   Fileformat for MAIN\LOCUSERS.REG file - The local user database
  244.  ----------------------------------------------------------------------------}
  245.  Type
  246.   LocUsers    = Record
  247.     UserName       : Str30;            { 31/ 31 * Navnet på lokal bruker     }
  248.     UserAddress    : Str30;            { 31/ 62 *  Adressen                  }
  249.     UserPostCode   : Str30;            { 31/ 93 *  PostAdressen              }
  250.     City           : Str12;            { 13/106 *  Bostedsby                 }
  251.     Password       : PasswordT;        { 17/123 *  Passord og seneste dato
  252.                                                    for forandring            }
  253.     HomePhone      : Str16;            { 17/140 *  Telefonnummer privat      }
  254.     WorkPhone      : Str16;            { 17/157 *  Telefonnummer arbeid      }
  255.  
  256.     FirstOn        : DateTimeT;        {  6/163 * Tidspunkt for registrering }
  257.     TimesOn        : LongInt;          {  4/167 * Antall ganger på           }
  258.     MsgWritten     : Word;             {  4/171 *                            }
  259.     MsgRead        : Word;             {        *                            }
  260.     LastOn         : DateTimeT;        {  6/177 * Siste gang på              }
  261.     NetNumber      : Byte;             {  1/178 * Brukere en node nummer ... }
  262.  
  263.     Flags          : Set Of (Available,Xpert,Killed,Background,FreeForUse);
  264.                                        {  1/179 *                            }
  265.  
  266.     Downloads      : Word;             {  2/181 * Filer downloadet           }
  267.     DownloadKB     : Word;             {  2/183 * KB downloadet              }
  268.     Uploads        : Word;             {  2/185 * Filer uploadet             }
  269.     UploadKB       : Word;             {  2/187 * KB uploadet                }
  270.     Protocol       : Char;             {  1/188 * Overf¢ringsprotokol        }
  271.  
  272.     Graphics       : Graph;            {  1/189 * Graphics                   }
  273.     AccessLevel    : Byte;             {  1/190 * Xpert modus                }
  274.  
  275.     TimeAllowed    : Word;             {  2/192 * Maks online tid/dag        }
  276.     TimeLeft       : Word;             {  2/194 * Tid igjen i dag            }
  277.     TimeTotal      : LongInt;          {  4/198 * Tid brukt totalt           }
  278.  
  279.     ANSIClear      : ClearScr;         {  1/199 * Hvor skal skjermen blankes }
  280.     ScreenLines    : Byte;             {  1/200 * Hvor lang er skjermen din? }
  281.     Language       : Char;             {  1/201 * Språkvalg                  }
  282.     ANSIUse        : ANSIUseS;         {  1/202 * Hvor skal ANSI brukes      }
  283.     LastScan       : DateTimeT;        {  6/208 * Last New-files scan        }
  284.     Packing        : ArcT;             {  1/209 * Pakkemåte                  }
  285.     Toggles                 : Set Of (DisplayStatus, ShowAddress);
  286.  
  287.     RFU            : Array[211..252] Of Byte;
  288.                                        {   /252 * RFU                        }
  289.     RecPos         : LongInt;          {  4/256 * }
  290.   End; { Type LocUsers }
  291.  
  292. {----------------------------------------------------------------------------
  293.   Fileformat for MAIN\NETUSERS.REG file - bNet user database
  294.  ----------------------------------------------------------------------------}
  295. Type
  296.   NetUsers    = Record
  297.     UserName       : Str30;            {31/31 * Name of remote-user (nicecase}
  298.     NodeID         : bNetAddr;         { 4/35 * Address of remote-node       }
  299.  
  300.     RFU            : Array[36..124] Of Byte;
  301.     RecPos         : LongInt;
  302.   End; { Type NetUsers }
  303.  
  304. {----------------------------------------------------------------------------
  305.   Fileformat for AREAxxxx.REG files
  306.  ----------------------------------------------------------------------------}
  307. Type
  308.   Area_Flags  = Set Of (Member);
  309.  
  310.   AREA_Reg    = Record
  311.     LastRead       : LongInt;          {4/ 4 * Last message read in area     }
  312.     Access         : Access;           {1/ 5 * Additional access for this area
  313.                                                access should primary be taken
  314.                                                from the B&BAREAS.CFG file    }
  315.     LastScan       : DateTimeT;                 {6/11 * Last new files scan in area,
  316.                                                this one is saved only for file
  317.                                                areas                         }
  318.     Flags          : Area_Flags;       {1/12 * Users area flags              }
  319.  
  320.     RFU            : Array[13..32] Of Byte;
  321.                                        { /8 * RFU                            }
  322.   End; { Type AREA_Reg }
  323.  
  324. {----------------------------------------------------------------------------
  325.   Filformat for AREAxxxx.MHD filene - filene som innholder headere for
  326.   meldingene i AREAxxxx.MTX filene.
  327.  ----------------------------------------------------------------------------}
  328. Type
  329.   MsgSecT     = (ActiveM,PublicM,PrivateM,ReadM,FileM,ReqM);
  330.   MsgSec      = Set Of MsgSecT;
  331.  
  332.   NetRegT     = (ToLocal,FromLocal,Echo);
  333.   NetReg      = Set Of NetRegT;
  334.  
  335.   AREA_Mhd    = Record
  336.     FromUser       : LongInt;          { 4/  4 * Peker til xxxUSERS.REG      }
  337.     ToUser         : LongInt;          { 4/  8 *                             }
  338.     NetUsers       : NetReg;           { 1/  9 *                             }
  339.     Security       : MsgSec;           { 1/ 10 *                             }
  340.  
  341.     Subject        : Str60;            {61/ 71 * Emne på meldingen           }
  342.     MsgPointer     : LongInt;          { 4/ 75 * Peker til AREAxxxx.MTX      }
  343.     MsgNumber      : LongInt;          { 4/ 79 * Nummeret på meldingen       }
  344.     ReplyTo        : LongInt;          { 4/ 83 * Denne er svar på xxx        }
  345.     FirstReply     : LongInt;          { 4/ 87 * F¢rste svar til denne er    }
  346.  
  347.     Lines          : Word;             { 2/ 89 * Linjer i meldingen          }
  348.     DateEntered    : DateTimeT;        { 6/ 95 * Dato meldingen er skrevet   }
  349.  
  350.     ONumber        : LongInt;          { 4/ 99 * Orginal meldingens nummer   }
  351.     RNumber        : LongInt;          { 4/103 * Denne er svar til           }
  352.     NextInThread   : LongInt;          { 4/107 * Neste melding i denne tråden}
  353.     ReceivedFrom   : bNetAddr;         { 4/111 * }
  354.     EnteredAt      : bNetAddr;         { 4/115 * }
  355.  
  356.     NU1            : Array[116..118] Of Byte;
  357.  
  358.     MsgBufLen      : LongInt;          { 4/122 * }
  359.  
  360.     RemoteFromUser : Str30;            {31/153 * }
  361.     RemoteToUser   : Str30;            {31/184 * }
  362.  
  363.     RFU            : Array[185..252] Of Byte;
  364.                                        {  /252 * RFU                         }
  365.     RecPos         : LongInt;          { 4/256 * }
  366.   End; { Type AREA_Mhd }
  367.  
  368. {----------------------------------------------------------------------------
  369.   Record format for the MAIN\AREA\AREA*.DIR files - Board file databases
  370.  ----------------------------------------------------------------------------}
  371. Type
  372.   AREA_Dir    = Record
  373.     FileName       : String[16];       { 17/ 17 * Name of file shown to user }
  374.     Description1   : String[55];       { 56/ 73 * First line of description  }
  375.     RFU1           : Array[74..78] Of Byte;
  376.     Description2   : String[55];       { 56/134 * Second line of description }
  377.     RFU2           : Array[135..139] Of Byte;
  378.     FTXPointer     : LongInt;          {  4/143 * Pointer to extended info   }
  379.     Date           : DateTimeT;        {  6/149 * Date of install/upload     }
  380.     Size           : LongInt;          {  4/153 * Size of file in bytes      }
  381.     DirNo          : LongInt;          {  4/157 * DirNo belonging to         }
  382.     UploadedBy     : LongInt;          {  4/161 * Uploaded by Ptr to user db }
  383.     Downloads      : LongInt;          {  4/165 * Number of downloads        }
  384.     CDROM          : Byte;             {  1/166 * CD-ROM# or 0 for normal    }
  385.     CDPath         : String[60];       { 61/227 * CD-ROM path                }
  386.     FileFlags      : Set Of (KilledFile);
  387.                                        {  1/228 * File record flags          }
  388.     TBU            : Array[229..252] Of Byte;
  389.     RecPos         : LongInt;          {  4/256 * }
  390.   End; { Type AREA_Dir }
  391.  
  392. {----------------------------------------------------------------------------
  393.   Filformat for MAIN\NODESTAT filen - filen som inneholder node-aktivitet
  394.   post tilsvarer nodenummer, 0=0, 1=1 osv.
  395.  ----------------------------------------------------------------------------}
  396. Type
  397.   ActivityS   = Set Of (WrittenMessage,
  398.                         ReadMessage,
  399.                         UploadedFile,
  400.                         DownloadedFile,
  401.                         OpenedDoor);
  402.  
  403.   NodeStat    = Record
  404.     NodeNo         : Byte;             {  1/  1 * Node nummer                }
  405.     Activity       : Word;             { 0=Down,   1=Event,  2=Wait,
  406.                                          3=Recycling, 4=Picking up call,
  407.                                          5=Loggin in, 6=bNet
  408.                                         10=Active,11=Enter, 12=D/l,
  409.                                         13=Upload,14=OpenD, 15=SysOpChat,
  410.                                         16=BiTran,
  411.                                         500..755=Chatting with node          }
  412.  
  413.     ComPort        : Integer;          {  2/  5 * 0 = Local, 1/2, 3=Base+Irq }
  414.     NU2            : LongInt;
  415.     BaudRate       : Word;             {  2/ 11 * Init bps-rate              }
  416.     DoneWhat       : ActivityS;        {  1/ 12 *                            }
  417.     NU1            : Byte;             {  1/ 13 *                            }
  418.     LockedSpeed    : Boolean;          {  1/ 14 * Kj¢res fast hastighet?
  419.                                                   dvs. bruk initrate?        }
  420.  
  421.     UserName       : Str30;            { 31/ 45 * Navnet på lokal bruker     }
  422.     UserAddress    : Str30;            { 31/ 76 *  Adressen                  }
  423.     UserPostCode   : Str30;            { 31/107 *  PostAdressen              }
  424.     City           : Str12;            { 13/120 *  Bostedsby                 }
  425.  
  426.     Downloads      : Word;             {  2/122 * Filer downloadet           }
  427.     DownloadKB     : Word;             {  2/124 * KB downloadet              }
  428.     Uploads        : Word;             {  2/126 * Filer uploadet             }
  429.     UploadKB       : Word;             {  2/128 * KB uploadet                }
  430.     Protocol       : Char;             {  1/129 * Overf¢ringsprotokol        }
  431.  
  432.     TimeAllowed    : Word;             {  2/131 * Maks online tid/dag        }
  433.     TimeLeft       : Word;             {  2/133 * Tid igjen i dag            }
  434.     Connected      : LongInt;          {  4/137 * Innloggingstid             }
  435.     Graphics       : Graph;            {  1/138 * Grafikk                    }
  436.  
  437.     ConnectSpeed   : ConnectT;         {  3/141 * Connected speed            }
  438.     Avail          : Boolean;          {  1/142 *                            }
  439.  
  440.     RFU            : Array[143..256] Of Byte;
  441.                                        {   /256 * RFU                        }
  442.   End; { Type NodeStat }
  443.  
  444. {----------------------------------------------------------------------------
  445.   Filformat for MAIN/NODEMSG.* filene - filene inneholder meldinger mellom
  446.   nodene.
  447.  ----------------------------------------------------------------------------}
  448. Type
  449.   NodeMsg     = Record
  450.     FromNode       : Byte;             {  1/  1 * Sendt fra node             }
  451.     FromUser       : LongInt;          {  4/  5 * Sendt av bruker            }
  452.     ToNode         : Byte;             {  1/  6 }
  453.     ToUser         : LongInt;          {  4/ 10 }
  454.     Flags          : Set Of (nmRead, nmInBuffer);
  455.                                        {  1/ 11 }
  456.     RFU            : Array[12..47] Of Byte;
  457.                                        {   / 47 * RFU                        }
  458.     SystemMsg      : Byte;             {  1/ 48 }
  459.     Messy          : String[79];       { 80/128 * Melding                    }
  460.   End; { Type NodeMsg }
  461.  
  462. {----------------------------------------------------------------------------
  463.   Fileformat for the MAIN\B&BLINKS.CFG file - Network link config
  464.  ----------------------------------------------------------------------------}
  465. Type
  466.   Net_Config_Record = Record
  467.     LinkType       : (BnetHost,        { 1/  1 * Remote system is ...        }
  468.                       BnetNode,
  469.                       BnetHome);
  470.     NodeAddr       : Str30;            {31/ 32 * Remote system ID            }
  471.     LastBullDate   : Word;             { 2/ 34 * Last bulletin exchange date }
  472.     LinkSysOp      : Str30;            {31/ 65 * Remote SysOp name           }
  473.     LinkPassword   : Str12;            {13/ 78 * Password to access link     }
  474.     LinkPhone      : Str16;            {17/ 95 * Link phone number           }
  475.     LinkSystem     : Str30;            {31/126 * Remote system name          }
  476.     NodeID         : bNetAddr;         { 4/130 * }
  477.  
  478.     RFU            : Array[131..254] Of Byte;
  479.  
  480.     LinkLocalPos   : Word;             { 2/256 * Temp pointer to this record,
  481.                                                  only internal use           }
  482.   End; { Record Net_Config_Record }
  483.  
  484. {----------------------------------------------------------------------------
  485.   Fileformat for the MAIN\B&BPROT.CFG file - The file protocol config file
  486.  ----------------------------------------------------------------------------}
  487. Type
  488.   ProtTypeType      = Set Of (Batch, BiDirectional, Auto);
  489.  
  490.   Protocol_Config_Record = Record
  491.     Letter         : Char;            { 1/  1 * Letter used to select prot.  }
  492.     Name           : Str16;           {17/ 18 * Name of protocol             }
  493.     UploadCommand  : Str60;           {61/ 79 * Receive command              }
  494.     DownloadCommand: Str60;           {61/140 * Send command                 }
  495.     ProgramPath    : Str60;           {61/201 * Program path                 }
  496.     OkErrorLevel   : ShortInt;        { 1/203 * Error level returned if OK   }
  497.     ProtType       : ProtTypeType;    { 1/204 * Protocol capabilities        }
  498.     AutoReceive    : Str16;           {17/220 * Auto receive string          }
  499.  
  500.     RFU            : Array[221..253] Of Byte;
  501.     ProtLocalPos   : Word;            { 2/256 * Temp pointer to this record,
  502.                                                 only internal use            }
  503.   End; { Record Protocol_Config_Record }
  504.  
  505. IMPLEMENTATION
  506.  
  507. End. { Unit Types }