Make(delphi)
Pos(7,0)
Add(MainForm,2953706,35,525)
{
 Width=696
 Caption="MTK-2"
 Position=1
 link(onCreate,15962356:doEvent1,[])
}
Add(IntegerArray,13843004,581,28)
{
 @Hint=#28:Массив индексов соответствия|
 IntArray=['A'=65,'B'=66,'C'=67,'D'=68,'E'=69,'F'=70,'G'=71,'H'=72,'I'=73,'J'=74,'K'=75,'L'=76,'M'=77,'N'=78,'O'=79,'P'=80,'Q'=81,'R'=82,'S'=83,'T'=84,'U'=85,'V'=86,'W'=87,'X'=88,'Y'=89,'Z'=90,'LF'=10,'CR'=13,'LAT'=0,'NUM'=0,' '=32,'RUS'=0,'А'=192,'Б'=193,'Ц'=214,'Д'=196,'Е'=197,'Ф'=212,'Г'=195,'Х'=213,'И'=200,'Й'=201,'К'=202,'Л'=203,'М'=204,'Н'=205,'О'=206,'П'=207,'Я'=223,'Р'=208,'С'=209,'Т'=210,'У'=211,'Ж'=198,'В'=194,'Ь'=220,'Ы'=219,'З'=199,'LF'=10,'CR'=13,'LAT'=0,'NUM'=0,' '=32,'RUS'=0,'-'=45,'?'=63,':'=58,'@'=64,'3'=51,'Э'=221,'Ш'=216,'Щ'=217,'8'=56,'Ю'=222,'('=40,')'=41,'.'=46,','=44,'9'=57,'0'=48,'1'=49,'4'=52,''''=39,'5'=53,'7'=55,'='=61,'2'=50,'/'=47,'6'=54,'+'=43,'LF'=10,'CR'=13,'LAT'=0,'NUM'=0,' '=32,'RUS'=0]
}
Add(IntegerArray,70273,791,336)
{
 @Hint=#19:Массив соответствий|
 IntArray=['1'=24,'2'=19,'3'=14,'4'=18,'5'=16,'6'=22,'7'=11,'8'=5,'9'=12,'10'=26,'11'=30,'12'=9,'13'=7,'14'=6,'15'=3,'16'=13,'17'=29,'18'=10,'19'=20,'20'=1,'21'=28,'22'=15,'23'=25,'24'=23,'25'=21,'26'=17,'27'=2,'28'=8,'29'=31,'30'=27,'31'=4,'32'=0]
}
Add(ArrayEnum,13689443,581,140)
{
 onBreakEnable=0
 link(onItem,3812397:doCompare,[])
 link(onEndEnum,5159257:doData,[(625,153)(625,195)])
 link(Array,536355:getVar,[])
}
Add(Hub,758211,686,140)
{
 link(onEvent1,2653290:doData,[])
 link(onEvent2,13689443:doStop,[(728,153)(728,189)(569,189)(569,153)])
}
Add(DoData,2653290,742,140)
{
 link(onEventData,8047050:doWork1,[(795,146)])
 link(Data,13689443:Index,[(748,128)(671,128)(671,184)(594,184)])
}
Add(CharArray,11346012,427,91)
{
}
Add(ArrayEnum,16375954,427,140)
{
 link(onItem,8705717:doConvert,[])
 link(onEndEnum,6276:doEvent1,[(469,153)(469,223)])
 link(Array,11346012:Array,[])
}
Add(Button,7324982,238,70)
{
 Left=155
 Top=240
 TabOrder=-1
 Caption="Send"
 link(onClick,776967:doEvent1,[])
}
Add(Convertor,8705717,476,140)
{
 Mode=3
 link(onResult,12406018:doValue,[])
}
Add(Memory,12406018,525,140)
{
 link(onData,13689443:doEnum,[])
}
Add(If_else,3812397,637,140)
{
 link(onTrue,758211:doEvent1,[])
 link(Op1,12406018:Value,[(643,128)(563,128)(563,184)(531,184)])
}
Add(If_else,11358451,406,287)
{
 Type=1
 Op2=Integer(32)
 link(onTrue,13208729:doWork1,[])
 link(onFalse,7442151:doCompare,[])
}
Add(ArrayRW,2410435,791,441)
{
 link(onRead,9035850:doWork3,[(851,447)])
 link(Array,4202742:getVar,[])
}
Add(Hub,162986,357,287)
{
 link(onEvent1,11358451:doCompare,[])
 link(onEvent2,16124579:doOperation,[(398,300)(398,447)])
}
Add(Hub,776967,308,70)
{
 OutCount=5
 link(onEvent1,16740262:doClear,[(967,76)(967,216)])
 link(onEvent2,8056131:doOpen,[(1053,83)(1053,342)])
 link(onEvent3,3933844:doData,[(353,90)(353,251)])
 link(onEvent4,6606938:doModify,[])
 link(onEvent5,16375954:doEnum,[(362,104)(362,146)])
}
Add(Math,16124579,672,441)
{
 OpType=1
 ResultType=0
 Point(doClear)
 link(onResult,2376588:doWork2,[])
 link(Op2,13264569:Item,[])
}
Add(If_else,7442151,455,294)
{
 Type=1
 Op2=Integer(64)
 link(onTrue,13208729:doWork2,[])
 link(onFalse,13208729:doWork3,[])
}
Add(DataToFile,3623634,980,322)
{
 Point(doPosition)
 link(Stream,11369815:Var2,[])
}
Add(MemoryStream,16740262,980,203)
{
 Point(doPosition)
}
Add(GetDataEx,11369815,973,287)
{
 link(Data,16740262:Stream,[])
}
Add(Hub,6276,819,217)
{
 link(onEvent1,16090094:doData,[])
 link(onEvent2,12242610:doConvert,[(866,230)(866,363)])
}
Add(DoData,16090094,875,217)
{
 Data=Integer(0)
 link(onEventData,4244829:doEvent1,[])
}
Add(COM,8056131,1078,336)
{
 Port=1
 link(onWrite,11572354:doConvert,[])
}
Add(RichEdit,1664582,378,21)
{
 Left=15
 Top=10
 Width=325
 Height=190
 Point(doSetFocus)
}
Add(Label,821233,1225,336)
{
 Left=15
 Top=205
 Width=325
 Height=20
 Caption=""
 AutoSize=1
 Alignment=2
}
Add(StrCase,6606938,378,91)
{
 Type=1
 link(onModify,11346012:doLoad,[])
 link(Str,1664582:Text,[])
}
Add(DoData,5159257,742,189)
{
 Data=Integer(30)
 link(onEventData,8047050:doWork2,[])
}
Add(HubEx,8047050,791,182)
{
 Angle=1
 link(onEvent,2785078:doCase,[(795,232)(177,232)(177,293)])
}
Add(Hub,4244829,924,217)
{
 link(onEvent1,16740262:doPosition,[])
 link(onEvent2,3623634:doPosition,[(968,230)(968,342)])
}
Add(HubEx,2376588,721,434)
{
 link(onEvent,2410435:doRead,[])
}
Add(Case,2785078,189,287)
{
 Value=Integer(26)
 DataOnTrue=Integer(26)
 link(onNextCase,10717715:doCase,[])
 link(onTrue,11477243:doWork2,[(236,300)(236,426)])
}
Add(Case,10717715,245,287)
{
 Value=Integer(27)
 DataOnTrue=Integer(27)
 link(onNextCase,12404325:doCase,[])
 link(onTrue,11477243:doWork1,[(291,300)])
}
Add(HubEx,11477243,287,413)
{
 link(onEvent,8818667:doWork2,[])
}
Add(Case,12404325,301,287)
{
 Value=Integer(30)
 DataOnTrue=Integer(30)
 link(onNextCase,162986:doEvent1,[])
 link(onTrue,8818667:doWork1,[(347,300)])
}
Add(HubEx,8818667,343,413)
{
 link(onEvent,2376588:doWork1,[(725,426)])
}
Add(FormatStr,16416715,1176,336)
{
 DataCount=1
 Mask="Передано %1 на Com2"
 link(onFString,821233:doText,[])
}
Add(Convertor,12242610,1022,357)
{
 Mode=11
 link(onResult,8056131:doWrite,[])
 link(Data,11369815:Var3,[(1028,296)])
}
Add(ChanelToIndex,13208729,504,287)
{
 Count=3
 link(onIndex,8748656:doWork2,[])
}
Add(ChangeMon,4018370,567,287)
{
 link(onData,7891188:doEvent1,[])
}
Add(Hub,7891188,616,287)
{
 link(onEvent1,13264569:doRead,[])
 link(onEvent2,14482105:doRead,[(665,300)(665,328)])
}
Add(DoData,3933844,455,245)
{
 Data=Integer(4)
 link(onEventData,8748656:doWork1,[(550,251)])
}
Add(HubEx,8748656,546,280)
{
 link(onEvent,4018370:doData,[])
}
Add(IntegerArray,2814065,742,273)
{
 @Hint=#25:Массив служебных символов|
 IntArray=['0'=31,'1'=0,'2'=27]
}
Add(ArrayRW,14482105,742,322)
{
 link(onRead,9035850:doWork2,[])
 link(Array,2814065:Array,[])
}
Add(IntegerArray,12379376,679,238)
{
 @Hint=#8:Смещение|
 IntArray=['0'=0,'1'=32,'2'=64]
}
Add(ArrayRW,13264569,679,287)
{
 link(Array,12379376:Array,[])
}
Add(HubEx,9035850,847,315)
{
 link(onEvent,3623634:doPut,[])
}
Add(COM,5708819,245,546)
{
 Port=3
 link(onRead,12632153:doCase,[])
}
Add(CharArray,1014726,364,553)
{
 link(onGetStr,10656416:doCase,[])
}
Add(Case,12632153,294,553)
{
 Value=String()
 link(onNextCase,3571593:doAdd,[(345,559)(345,636)])
 link(onTrue,1014726:doGetStr,[])
}
Add(Case,10656416,413,560)
{
 Value=String()
 link(onNextCase,12113602:doEnum,[])
}
Add(ArrayRW,3571593,364,616)
{
 Point(Count)
 link(Array,7053339:Var2,[])
}
Add(Timer,11901500,147,574)
{
 Interval=10
 Enable=1
 link(onTimer,16112240:doData,[])
}
Add(DoData,16112240,196,574)
{
 Data=Integer(1)
 link(onEventData,5708819:doRead,[])
}
Add(Hub,15962356,84,539)
{
 OutCount=3
 link(onEvent1,1664582:doSetFocus,[(132,545)(132,62)])
 link(onEvent2,5708819:doOpen,[])
 link(onEvent3,11901500:doTimer,[(132,559)(132,580)])
}
Add(ArrayEnum,12113602,462,560)
{
 link(onItem,9740231:doConvert,[])
 link(onEndEnum,14860287:doEvent1,[(505,573)(505,608)])
 link(Array,7053339:Var3,[(468,548)(422,548)(422,597)])
}
Add(ArrayEnum,15700177,609,560)
{
 onBreakEnable=0
 link(onItem,11080251:doCompare,[])
 link(Array,8096214:getVar,[])
}
Add(If_else,11080251,665,560)
{
 link(onTrue,7879263:doEvent1,[])
 link(Op2,3884290:Value,[(678,548)(601,548)(601,604)(566,604)])
}
Add(Hub,7879263,721,560)
{
 link(onEvent1,2127992:doData,[])
 link(onEvent2,15700177:doStop,[(767,573)(767,610)(597,610)(597,573)])
}
Add(DoData,2127992,777,560)
{
 link(onEventData,3012581:doCase,[])
 link(Data,15700177:Index,[(783,548)(703,548)(703,604)(622,604)])
}
Add(Case,2066921,945,560)
{
 @Hint=#3:RUS|
 Value=Integer(31)
 DataOnTrue=Integer(32)
 link(onNextCase,638852:doCase,[])
 link(onTrue,15345277:doWork1,[(991,573)])
}
Add(Case,3012581,833,560)
{
 @Hint=#3:LAT|
 Value=Integer(28)
 DataOnTrue=Integer(0)
 link(onNextCase,11706276:doCase,[])
 link(onTrue,2105978:doClear,[(879,573)(879,622)])
}
Add(Case,11706276,889,560)
{
 @Hint=#3:NUM|
 Value=Integer(29)
 DataOnTrue=Integer(64)
 link(onNextCase,2066921:doCase,[])
 link(onTrue,15345277:doWork2,[(935,573)(935,615)])
}
Add(Case,638852,1001,560)
{
 @Hint=#2:LF|
 Value=Integer(26)
 DataOnTrue=Integer(10)
 link(onNextCase,9645207:doCase,[])
 link(onTrue,5167395:doWork1,[(1166,573)])
}
Add(Case,9645207,1057,560)
{
 @Hint=#2:CR|
 Value=Integer(27)
 DataOnTrue=Integer(13)
 link(onNextCase,10935388:doCase,[])
 link(onTrue,15794720:doWork1,[(1180,573)])
}
Add(Memory,2105978,1057,609)
{
 Default=Integer(0)
}
Add(HubEx,15345277,987,602)
{
 link(onEvent,2105978:doValue,[])
}
Add(Math,13540209,1050,665)
{
 ResultType=0
 Point(doClear)
 link(onResult,9313880:doRead,[])
 link(Op2,2105978:Value,[])
}
Add(LineBreakEx,1464486,791,385)
{
 Caption="Code"
 Type=3
 link(_Data,70273:Array,[])
}
Add(LineBreakEx,4202742,791,413)
{
 Caption="Code"
 Type=2
}
Add(LineBreakEx,8096214,609,525)
{
 Caption="Code"
 Type=2
}
Add(LineBreakEx,25306,581,84)
{
 Caption="Index"
 Type=3
 link(_Data,13843004:Array,[])
}
Add(LineBreakEx,536355,581,105)
{
 Caption="Index"
 Type=2
}
Add(LineBreakEx,13879443,1113,623)
{
 Caption="Index"
 Type=2
}
Add(RichEdit,9888729,1365,595)
{
 Left=350
 Top=10
 Width=325
 Height=190
 TabOrder=-1
 ReadOnly=0
}
Add(ArrayRW,9313880,1113,665)
{
 link(onRead,5167395:doWork2,[])
 link(Array,13879443:getVar,[])
}
Add(Convertor,13988047,1211,665)
{
 Mode=4
 link(onResult,11577114:doAdd,[])
}
Add(Convertor,9740231,511,560)
{
 Mode=3
 link(onResult,3884290:doValue,[])
}
Add(Memory,3884290,560,560)
{
 link(onData,15700177:doEnum,[])
}
Add(GetDataEx,7053339,357,588)
{
 link(Data,1014726:Array,[])
}
Add(Case,10935388,1113,560)
{
 @Hint=#2:CR|
 Value=Integer(30)
 DataOnTrue=Integer(32)
 link(onNextCase,13540209:doOperation,[(1160,566)(1160,602)(1038,602)(1038,671)])
 link(onTrue,9658743:doWork1,[(1194,573)])
}
Add(HubEx,9658743,1190,658)
{
 link(onEvent,13988047:doConvert,[])
}
Add(HubEx,15794720,1176,658)
{
 link(onEvent,9658743:doWork2,[])
}
Add(HubEx,5167395,1162,658)
{
 link(onEvent,15794720:doWork2,[])
}
Add(CharArray,1924787,1268,602)
{
 link(onGetStr,9888729:doText,[])
}
Add(ArrayRW,11577114,1268,651)
{
 link(Array,1924787:Array,[])
}
Add(Hub,14860287,1211,602)
{
 OutCount=4
 link(onEvent1,3065658:doConvert,[(1255,608)(1255,552)])
 link(onEvent2,1924787:doGetStr,[])
 link(onEvent3,1924787:doClear,[])
 link(onEvent4,1014726:doClear,[(1255,629)(1255,650)(352,650)(352,573)])
}
Add(Label,6766032,1365,546)
{
 Left=350
 Top=205
 Width=325
 Height=20
 Caption=""
 AutoSize=1
 Alignment=2
}
Add(FormatStr,16184732,1316,546)
{
 DataCount=1
 Mask="Принято %1 на Com4"
 link(onFString,6766032:doText,[])
}
Add(Convertor,3065658,1267,546)
{
 Mode=16
 Word_1="символ"
 Word_2="символа"
 Word_5="символов"
 link(onResult,16184732:doString,[])
 link(Data,3571593:Count,[(1273,534)(825,534)(825,660)(377,660)])
}
Add(Convertor,11572354,1127,336)
{
 Mode=16
 Word_1="символ"
 Word_2="символа"
 Word_5="символов"
 link(onResult,16416715:doString,[])
}
Add(InfoTip,6156528,21,7)
{
 Info=#0:|5:Кодер|
 Font=[MS Sans Serif,10,1,0,1]
 Frame=3
 Width=1394
 Height=480
}
Add(InfoTip,37161,21,497)
{
 Info=#0:|7:Декодер|
 Font=[MS Sans Serif,10,1,0,1]
 Frame=3
 Width=1394
 Height=242
}