Make(delphi)
Pos(295,0)
Add(MainForm,2953706,-211,91)
{
 Left=0
 Top=0
 Width=361
 Height=300
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 TabOrder=0
 Ctl3D=1
 Hint=""
 HintManager="(empty)"
 AlphaBlendValue=255
 Caption="Form"
 BorderStyle=2
 WindowsState=0
 Icon=[]
 TaskBar=0
 DragForm=1
 KeyPreview=0
 TransparentColor=16777215
 Picture=[]
 SavePosName=""
 MouseCapture=1
 ClientSize=1
 Position=1
}
Add(IntegerArray,13843004,188,161)
{
 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]
 UseName=1
 FileName=""
 FileFormat=0
}
Add(IntegerArray,70273,489,490)
{
 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]
 UseName=1
 FileName=""
 FileFormat=0
}
Add(ArrayEnum,13689443,188,224)
{
 Type=0
 onBreakEnable=0
 link(onItem,3812397:doCompare,[])
 link(onEndEnum,5159257:doData,[(236,237)(236,279)])
 link(Array,13843004:Array,[])
}
Add(Hub,758211,293,224)
{
 InCount=1
 OutCount=2
 link(onEvent1,2653290:doData,[])
 link(onEvent2,13689443:doStop,[(334,237)(334,277)(176,277)(176,237)])
}
Add(DoData,2653290,342,224)
{
 Data=Null()
 link(onEventData,8047050:doWork1,[(395,230)])
 link(Data,13689443:Index,[(348,212)(274,212)(274,268)(201,268)])
}
Add(CharArray,11346012,34,175)
{
}
Add(ArrayEnum,16375954,34,224)
{
 Type=0
 onBreakEnable=1
 link(onItem,8705717:doConvert,[])
 link(onEndEnum,6276:doEvent1,[(76,237)(76,307)])
 link(Array,11346012:Array,[])
}
Add(Button,7324982,-211,140)
{
 Left=150
 Top=240
 Width=55
 Height=20
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 TabOrder=0
 Ctl3D=1
 Hint=""
 HintManager="(empty)"
 Caption="Send"
 Data=Null()
 Flat=1
 DefaultBtn=1
 link(onClick,776967:doEvent1,[])
}
Add(Hub,15152422,-71,175)
{
 InCount=1
 OutCount=2
 link(onEvent1,6606938:doModify,[])
 link(onEvent2,16375954:doEnum,[(-24,188)(-24,230)])
}
Add(Convertor,8705717,83,224)
{
 Mode=3
 Digits=2
 SymbolFill=""
 Word_1=""
 Word_2=""
 Word_5=""
 link(onResult,12406018:doValue,[])
}
Add(Memory,12406018,132,224)
{
 Default=Null()
 link(onData,13689443:doEnum,[])
}
Add(If_else,3812397,244,224)
{
 Type=0
 Op1=Null()
 Op2=Null()
 link(onTrue,758211:doEvent1,[])
 link(Op1,12406018:Value,[(250,212)(194,212)(194,268)(138,268)])
 link(Op2,13689443:Item,[(257,212)(225,212)(225,268)(194,268)])
}
Add(Switch,13894265,160,329)
{
 @Hint=#3:LAT|
 DataOn=Integer(1)
 DataOff=Integer(0)
 Default=1
 Point(doOn)
 link(onSwitch,4503019:doEvent,[])
}
Add(IndexToChanel,4503019,216,329)
{
 Count=2
 Data=Integer(31)
 link(onEvent2,8144833:doEvent1,[])
}
Add(Switch,6505804,160,399)
{
 @Hint=#3:NUM|
 DataOn=Integer(1)
 DataOff=Integer(0)
 Default=1
 Point(doOn)
 link(onSwitch,10213766:doEvent,[])
}
Add(IndexToChanel,10213766,216,399)
{
 Count=2
 Data=Integer(0)
 link(onEvent2,15292865:doEvent1,[])
}
Add(Switch,3994444,160,462)
{
 @Hint=#3:RUS|
 DataOn=Integer(1)
 DataOff=Integer(0)
 Default=1
 Point(doOn)
 link(onSwitch,4590431:doEvent,[])
}
Add(IndexToChanel,4590431,216,462)
{
 Count=2
 Data=Integer(27)
 link(onEvent2,12744205:doEvent1,[])
}
Add(Hub,8144833,272,336)
{
 InCount=1
 OutCount=4
 link(onEvent1,3465715:doWork3,[(318,342)])
 link(onEvent2,4990991:doWork2,[(330,349)(330,363)])
 link(onEvent3,2301588:doWork1,[(316,356)(316,382)(143,382)])
 link(onEvent4,1734693:doWork1,[(316,363)(316,403)(143,403)])
}
Add(Hub,15292865,272,406)
{
 InCount=1
 OutCount=4
 link(onEvent1,8420163:doData,[])
 link(onEvent2,1605707:doWork2,[(331,419)(331,433)])
 link(onEvent3,12073301:doWork3,[(316,426)(316,397)(143,397)])
 link(onEvent4,1734693:doWork3,[(316,433)(316,447)])
}
Add(HubEx,1734693,139,434)
{
 Angle=1
 link(onEvent,3994444:doReset,[(143,475)])
}
Add(Hub,12744205,272,469)
{
 InCount=1
 OutCount=4
 link(onEvent1,16143863:doData,[])
 link(onEvent2,8204795:doWork2,[])
 link(onEvent3,12073301:doWork1,[(316,489)(316,363)])
 link(onEvent4,2301588:doWork3,[(316,496)(316,456)(143,456)])
}
Add(HubEx,12073301,139,350)
{
 Angle=3
 link(onEvent,13894265:doReset,[(143,342)])
}
Add(HubEx,2301588,139,399)
{
 Angle=0
 link(onEvent,6505804:doReset,[])
}
Add(If_else,11358451,6,343)
{
 Type=1
 Op1=Null()
 Op2=Integer(32)
 link(onTrue,13894265:doOn,[])
 link(onFalse,7442151:doCompare,[])
}
Add(ArrayRW,2410435,489,539)
{
 Index=Null()
 link(onRead,8204795:doWork3,[(542,545)])
 link(Array,70273:Array,[])
}
Add(Hub,162986,-225,343)
{
 InCount=1
 OutCount=2
 link(onEvent1,2785078:doCase,[])
 link(onEvent2,16124579:doOperation,[(-172,356)(-172,545)])
}
Add(Hub,776967,-155,140)
{
 InCount=1
 OutCount=6
 link(onEvent1,16740262:doClear,[(606,146)(606,300)])
 link(onEvent2,8056131:doOpen,[(704,153)(704,377)])
 link(onEvent3,3465715:doWork2,[(-85,160)(-85,321)])
 link(onEvent4,11346012:doClear,[(24,167)(24,195)])
 link(onEvent5,10930313:doEvent1,[(-50,174)(-50,405)])
 link(onEvent6,15152422:doEvent1,[])
}
Add(DoData,8420163,342,406)
{
 Data=Integer(32)
 link(onEventData,1738:doWork2,[])
}
Add(DoData,16143863,342,469)
{
 Data=Integer(64)
 link(onEventData,1738:doWork3,[(388,475)])
}
Add(Math,16124579,426,539)
{
 OpType=1
 Op1=0
 Op2=0
 ResultType=0
 Default=0
 AngleMode=0
 Point(doClear)
 link(onResult,2376588:doWork2,[])
 link(Op2,14634415:Value,[])
}
Add(Memory,14634415,433,406)
{
 Default=Integer(0)
}
Add(If_else,7442151,62,350)
{
 Type=1
 Op1=Null()
 Op2=Integer(64)
 link(onTrue,6505804:doOn,[(127,356)(127,419)])
 link(onFalse,3994444:doOn,[(107,363)(107,482)])
}
Add(DataToFile,3623634,622,357)
{
 Type=0
 Point(doPosition)
 link(Stream,11369815:Var2,[])
}
Add(MemoryStream,16740262,622,287)
{
 Stream=[]
 Point(doPosition)
}
Add(GetDataEx,11369815,615,322)
{
 Angle=0
 link(Data,16740262:Stream,[])
}
Add(Hub,6276,461,301)
{
 InCount=1
 OutCount=2
 link(onEvent1,16090094:doData,[])
 link(onEvent2,12242610:doConvert,[(579,314)(579,398)])
}
Add(DoData,16090094,517,301)
{
 Data=Integer(0)
 link(onEventData,4244829:doEvent1,[])
}
Add(COM,8056131,720,371)
{
 Port=0
 BaudRate=9600
 Parity=0
 TimeOut=10
 link(onWrite,16416715:doString,[])
}
Add(RichEdit,1664582,-15,84)
{
 Left=15
 Top=10
 Width=325
 Height=190
 Align=0
 Color=-16777211
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 TabOrder=0
 Ctl3D=1
 Hint=""
 HintManager="(empty)"
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 FileName=""
 Strings=#
 AddType=0
 ScrollBars=0
 ReadOnly=1
 HideFrames=1
 CanDragOle=0
 InsertCRLF=0
 ParseLinks=1
}
Add(Label,821233,818,371)
{
 Left=15
 Top=205
 Width=325
 Height=20
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 TabOrder=0
 Ctl3D=1
 Hint=""
 HintManager="(empty)"
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption=""
 AutoSize=1
 Alignment=2
 ColorHover=0
 Underline=1
}
Add(StrCase,6606938,-15,175)
{
 Type=1
 link(onModify,11346012:doLoad,[])
 link(Str,1664582:Text,[])
}
Add(HubEx,4990991,538,350)
{
 Angle=0
 link(onEvent,3623634:doPut,[])
}
Add(HubEx,1605707,538,420)
{
 Angle=3
 link(onEvent,4990991:doWork3,[])
}
Add(HubEx,8204795,538,469)
{
 Angle=3
 link(onEvent,1605707:doWork3,[])
}
Add(DoData,5159257,342,273)
{
 Data=Integer(30)
 link(onEventData,8047050:doWork3,[])
}
Add(HubEx,8047050,391,266)
{
 Angle=1
 link(onEvent,162986:doEvent1,[(395,316)(-237,316)(-237,349)])
}
Add(Hub,4244829,566,301)
{
 InCount=1
 OutCount=2
 link(onEvent1,16740262:doPosition,[])
 link(onEvent2,3623634:doPosition,[(610,314)(610,377)])
}
Add(HubEx,2376588,468,532)
{
 Angle=0
 link(onEvent,2410435:doRead,[])
}
Add(Case,2785078,-169,343)
{
 Value=Integer(26)
 DataOnTrue=Integer(26)
 link(onNextCase,10717715:doCase,[])
 link(onTrue,11477243:doWork2,[(-122,356)(-122,524)])
}
Add(Case,10717715,-113,343)
{
 Value=Integer(27)
 DataOnTrue=Integer(27)
 link(onNextCase,12404325:doCase,[])
 link(onTrue,11477243:doWork1,[(-67,356)])
}
Add(HubEx,11477243,-71,511)
{
 Angle=0
 link(onEvent,8818667:doWork2,[])
}
Add(Case,12404325,-57,343)
{
 Value=Integer(30)
 DataOnTrue=Integer(30)
 link(onNextCase,11358451:doCompare,[])
 link(onTrue,8818667:doWork1,[(-11,356)])
}
Add(HubEx,8818667,-15,511)
{
 Angle=0
 link(onEvent,2376588:doWork1,[(472,524)])
}
Add(Hub,10930313,62,399)
{
 InCount=1
 OutCount=3
 link(onEvent1,12073301:doWork2,[(116,405)(116,363)])
 link(onEvent2,2301588:doWork2,[])
 link(onEvent3,1734693:doWork2,[(116,419)(116,447)])
}
Add(DataToFile,13253340,622,357)
{
 Type=0
 Point(doPosition)
}
Add(FormatStr,16416715,769,371)
{
 DataCount=1
 Mask="Ïåðåäàíî %1 ñèìâîëîâ íà Com1"
 link(onFString,821233:doText,[])
}
Add(HubEx,4260553,538,350)
{
 Angle=0
 link(onEvent,13253340:doPut,[])
}
Add(HubEx,3465715,314,308)
{
 Angle=0
 link(onEvent,14634415:doClear,[(418,321)(418,419)])
}
Add(HubEx,1738,384,399)
{
 Angle=0
 link(onEvent,14634415:doValue,[])
}
Add(Convertor,12242610,664,392)
{
 Mode=11
 Digits=2
 SymbolFill=""
 Word_1=""
 Word_2=""
 Word_5=""
 link(onResult,8056131:doWrite,[])
 link(Data,11369815:Var3,[(670,331)])
}