Const
  laName                    = 0;
  laTxtFiles                = 1;
  laMenus                   = 2;
  laNews                    = 3;
  laRawXLAT                 = 4;
  laAskXLAT                 = 5;
  laEnterForCont            = 6;
  laInactive                = 7;
  laMore                    = 8;
  laSelectFile              = 9;
  laSecurityLow             = 10;
  laTopicForChat            = 11;
  laPagingForChat           = 12;
  laNoSysOpForChat          = 13;
  laMsgNum                  = 14;
  laSelectProtocol          = 15;
  laSysOpBusy               = 16;
  laSysOpAnswered           = 17;
  laAccessDenied            = 18;
  laOrganization            = 19;
  laChoosePassword          = 20;
  laEmptyFArea              = 21;
  laRepeatPassword          = 22;
  laPasswordsNotSame        = 23;
  laBirthDate               = 24;
  laFAreaLine               = 25;
  laAliasExist              = 26;
  laTimeLimit               = 27;
  laMsgHead                 = 28;
  laFidoAddress             = 29;
  laPausing                 = 30;
  laHomePhone               = 31;
  laDataPhone               = 32;
  laDispLines               = 33;
  laMsgFooter               = 34;
  laLocation                = 35;
  laPasswordNotValid        = 36;
  laYourChoice              = 37;
  laPassword                = 38;
  laLogOff                  = 39;
  laQuit                    = 40;
  laHangUpInactive          = 41;
  laPageLimit               = 42;
  laListHeader              = 43;
  laEnterMsgLine            = 44;
  laPostMenu                = 45;
  laNoMoreMessages          = 46;
  laErrorMBClose            = 47;
  laMsgFrom                 = 48;
  laMsgTo                   = 49;
  laMsgSubj                 = 50;
  laNextMsg                 = 51;
  laMsgDate                 = 52;
  laChange                  = 53;
  laErrorSaveMsg            = 54;
  laMsgSaved                = 55;
  laSelectMArea             = 56;
  laMsgString               = 57;
  laMsgOpenError            = 58;
  laNoMsgsInArea            = 59;
  laYes                     = 60;
  laNo                      = 61;
  laInfoLoc                 = 62;
  laInfoName                = 63;
  laInfoOrg                 = 64;
  laInfoAddress1            = 65;
  laInfoAddress2            = 66;
  laInfoAddress3            = 67;
  laInfoHPhone              = 68;
  laInfoBPhone              = 69;
  laInfoFirstCall           = 70;
  laInfoLastCall            = 71;
  laInfoBirthDate           = 72;
  laInfoSecurity            = 73;
  laInfoCallNum             = 74;
  laWantToReg               = 75;
  laYourNameNotFound        = 76;
  laScanMsgAreas            = 77;
  laScanFileAreas           = 78;
  laSendFile                = 79;
  laRecvFile                = 80;
  laLineStatus              = 81;
  laFileName                = 82;
  laNotFound                = 83;
  laMsgWriteText1           = 84;
  laTooSlow                 = 85;
  laMsgWriteText2           = 86;
  laMsgWriteText3           = 87;
  laWriteMsgFooter          = 88;
  laNoPrevMsg               = 89;
  laAlias                   = 90;
  laYesNoQuit               = 91;
  laFoundPrivMsgFrom        = 92;
  laFoundPrivMsgInArea      = 93;
  laWantToRead              = 94;
  laUnknownMsgFormat        = 95;
  laWantToAnswer            = 96;
  laDeleteMsg               = 97;
  laUserName                = 98;
  laMsgsEnabeled            = 99;
  laMsgsDisabeled           = 100;
  laYesNo                   = 101;
  laNoYes                   = 102;
  laLineDisabeled           = 103;
  laSendMessage             = 104;
  laNameEntered             = 105;
  laBeginChat               = 106;
  laEndChat                 = 107;
  laAddress1                = 108;
  laAddress2                = 109;
  laAddress3                = 110;
  laUser                    = 111;
  laUserNotFound            = 112;
  laMoreNums                = 113;
  laULDescription           = 114;
  laNoFilesSelected         = 115;
  laDelFileNo               = 116;
  laForbiddenPassword       = 117;
  laAddFile                 = 118;
  laAddFileNotFound         = 119;
  laDLLimitExceed           = 120;
  laClearList               = 121;
  laChooseFileArea          = 122;
  laUseFrames               = 123;
  laSearchPrivateMsg        = 124;
  laFindNewFiles            = 125;
  laIsRegCorrect            = 126;
  laFilesMore               = 127;
  laTagFilesNum             = 128;
  laArcName                 = 129;
  laArcHead                 = 130;
  laQueryArcName            = 131;
  laNewSinceDate            = 132;
  laPassTooShort1           = 133;
  laPassTooShort2           = 134;
  laMissing                 = 135;
  laUsersHead               = 136;
  laNoFilesFound            = 137;
  laDLTimeLimit             = 138;
  laTodaysHead              = 139;
  laPrivate                 = 140;
  laOutPageTime             = 141;
  laQuoteMsg                = 142;
  laOutOfTryes              = 143;
  laToEventLeft             = 144;
  laEventExit               = 145;
  laMinutes                 = 146;
  laUseHotKeys              = 147;
  laPauseAfterEach          = 148;
  laChooseEmulation         = 149;
  laUpLoadPlus              = 150;
  laLocalDownLoad           = 151;
  laLocalUpLoad             = 152;
  laLocalULFileName         = 153;
  laLocalDLDir              = 154;
  laLdDirNotFound           = 155;
  laLuFileNotFound          = 156;
  laCopyFile                = 157;
  laCopyTo                  = 158;
  laCopyOk                  = 159;
  laCopyError               = 160;
  laCopyDone                = 161;
  laUpLoadSpace             = 162;
  laNoNewFound              = 163;
  laAborted                 = 164;
  laFreeDL                  = 165;
  laAskFileName             = 166;
  laDownLoadDescs           = 167;
  laNoPrivFound             = 168;
  laPrevTagArea             = 169;
  laNextBulletin            = 170;
  laSearchMask              = 171;
  lamlMessageFrom           = 172;
  lamlLine                  = 173;
  laLineNumber              = 174;
  laUpLoadMsg               = 175;
  laLoginNAllow             = 176;
  laDownLoadHead1           = 177;
  laDownLoadHead2           = 178;
  laDownLoadHead3           = 179;
  laDownLoadHead4           = 180;
  laPrivMsg                 = 181;
  laQueryPrivate            = 182;
  laEnterMsgNums            = 183;
  laRegResume               = 184;
  laOnAnotherLine           = 185;
  laChooseFileGroup         = 186;
  laNotArchive              = 187;
  laChooseMsgGroup          = 188;
  laFromUsersArea           = 189;
  laFileFromUser            = 190;
  laULforuser               = 191;
  laMsgKeys                 = 192;
  laFAreaKeys               = 193;
  laPostKeys                = 194;
  laYesNoKeys               = 195;
  laYNQKeys                 = 196;
  laLogoffMessage           = 197;
  laUseFSeditor             = 198;
  laFsAnsiReq               = 199;
  laAlreadyExists           = 200;
  laSure                    = 201;
  laMsgFromSysOp            = 202;
  laCannotConnect           = 203;
  laTelnTrying              = 204;
  laEnterUsrNums            = 205;
  laQWKscan                 = 206;
  laQWKajust                = 207;
  laQWKnotFound             = 208;
  laREPok                   = 209;
  laXLATs                   = 210;
  laChooseXLAT              = 211;
  laQWKlist                 = 212;
  laQWKEnterNum             = 213;
  laQWKcontrols             = 214;
  laNoQWKareas              = 215;
  laQWKadded                = 216;
  laQWKdeleted              = 217;
  laTelnConnected           = 218;
  laTelnConnection          = 219;
  laTelnClosed              = 220;
  laUnableToResolve         = 221;
  laDelLines                = 222;
  laEditStatusLine          = 223;
  laTRCline                 = 224;
  laTRCjoined               = 225;
  laTRCleft                 = 226;
  laTRCentered              = 227;
  laTRCleftBBS              = 228;
  laTrsFiles                = 229;
  laReplyAnotherArea        = 230;
  laReplyingToArea          = 231;
  laMsgLstString            = 232;
  laMsgLstKeys              = 233;
  laUploadPlusKB            = 234;
  laKB                      = 235;

  laLastLanguageNum         = 235;

Type
 tMsgBase     = (btJam, btSquish, btHudson, btFido);
 tFListFormat = (fFilesBBS, fCDList);
 MsgMailType  = (mmtNormal, mmtEchoMail, mmtNetMail);

 tMsgArea = Record
   Name, Origin, GateWay                               : String [72];
   Address                                             : AddrType;
   BasePath                                            : PathStr;
   BaseType                                            : tMsgBase;
   BoardNum, ReadSec, WriteSec, SysOpSec, ShowSec      : System. Word;
   ReadFlags, WriteFlags, SysOpFlags, ShowFlags        : String [26];
   ScanPrivMail                                        : Boolean;
   Group                                               : String [75];
   AreaType                                            : MsgMailType;
   Private                                             : AskType;
  End;

 tFileArea = Record
   Name                            : String [72];
   ULPath, FileList                : PathStr;
   DLPath                          : String [255];
   DL_Security, UL_Security,
   List_Security, MinSpeed,
   ShowSec                         : System. Word;
   DL_Flags, UL_Flags, List_Flags,
   ShowFlags                       : String [26];
   ScanNewFiles, CopyLocal         : Boolean;
   Group                           : String [100];
   FListFormat                     : tFListFormat;
 End;

 tFileGroup = Record
   Name                            : String [72];
   Tag                             : String [15];
   ShowSec                         : System. Word;
   ShowFlags                       : String [26];
 End;

 tMsgGroup = Record
   Name                            : String [72];
   Tag                             : String [15];
   ShowSec                         : System. Word;
   ShowFlags                       : String [26];
 End;

 LimitRec = Record
   Level, SessionTime          : System. Word;
   KBLimit, Time, MinSpeed     : System. LongInt;
   LoginTime                   : TimeArray;
 End;

 tDoorWayCommands = (
   hcCls, hcCD, hcDir, hcTree, hcMkDir, hcRmDir, hcDirSize,
   hcDel, hcRename, hcCopy, hcArcView, hcType, hcLocate, hcShell,
   hcBoot, hcDate, hcTime, hcxDel, hcUL, hcDL, hcEdit,
   hcExit, hcTaskList, hcKill
 );

 DoorWayControlRec = Record
   Enter    : System. Word;
   flgEnter : String [26];
   SecLevel : Array [hcCls..hcKill] Of System. Word;
   SecFlags : Array [hcCls..hcKill] Of String [26];
   StartDir : PathStr;
   Drives   : Array ['A'..'Z'] Of System. Word;
 End;

 tUpgradeMode = (umForever, umToday);

 UpgradeRec = Record
   Reason                       : String [30];
   Check, InformVia, Security   : String [50];
   FileName                     : String [80];
   Mode                         : tUpgradeMode;
 End;

 tQMode = (qmYesNo, qmInput, qmDisplay);

 tQuestion = Record
   Prompt       : String [150];
   Mode         : tQMode;
   AnswersFile  : String [80];
 End;

 CaseType = (NoCaps, Upper, Proper, Lower);
 TransferModeType = (Transmit, Receive);
 Str8 = String [8];

 PTagFileRec = ^TTagFileRec;
 TTagFileRec = Record
   PathName            : PathStr;
   Free                : Boolean;
   Size, AreaNum,
   GroupNum            : System. LongInt;
   FromName            : String [30];
 End;

 tEMSI = Record
   Session,
   CheckMail,
   CheckNewFiles,
   Allowed         : Boolean;
   SoftWare        : String [50];
   Password        : String [15];
 End;

 tInAllow = Record
   RemIn, ConIn       : Boolean;
 End;

 tMsg = Record
   FromUserName        : String [36];  {Имя отправителя мессаджа}
   MessageText         : String [80];  {Тест сообщения}
   FromLineNum         : System. Byte; {Номер линии отправителя}
 End;

 tListMode = (lmAll, lmExcludeCurrent, lmConference);
 tMsgType  = (mtUserMsg, mtConference);
 tRLCmode  = (trlcOpen4Stat, trlcOpen4All, trlcRead, trlcClose);

 tLine = Record
   Number      : System. Byte;         {Номер линии}
   UserName    : String [36];          {Имя пользователя}
   Logged      : Boolean;              {Сидит ли}
   InConf      : Boolean;              {Участвует ли в конференции}
   LoginTime   : String [8];           {Время входа на ббс}
 End;

 tProtocolConfig = Record
   Name, DLKeyWord, ULKeyWord       : String [40];
   Batch, Available                 : Boolean;
   Internal                         : Boolean;
   Log, List                        : PathStr;
   DLCommand, ULCommand             : String;
   Selection                        : Char;
   WordOffs                         : Byte;
 End;

 tInternalProts = Record
   XModem, XModemCRC, XModem1K,
   XModem1KG, YModem, YModemG,
   ZModem                           : Boolean;
 End;

 PFileItem = ^tFileItem;
 tFileItem = Record
   FileName          : PathStr;
   AreaNum, GroupNum : System. Word;
   Size              : System. LongInt;
 End;

{$I INC\finfo.inc}