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