Add(MainForm,2953706,175,280)
{
}
Add(Edit,5058734,231,259)
{
 Left=20
 Top=105
 Width=80
 Text=""
 link(onChange,15161168:doWork1,[(281,265)(281,293)])
}
Add(Edit,10361713,231,308)
{
 Left=20
 Top=140
 Width=80
 Text=""
 link(onChange,15161168:doWork2,[(281,314)(281,300)])
}
Add(Edit,10455524,567,315)
{
 Left=245
 Top=105
 Width=85
 Text=""
}
Add(Edit,10190168,567,364)
{
 Left=245
 Top=140
 Width=85
 Text=""
}
Add(Math,4199898,385,343)
{
 OpType=2
 Op2=2
 ResultType=0
 link(onResult,7660801:doAdd,[])
 link(Op1,14609077:Value2,[])
}
Add(PointHint,7437202,294,175)
{
 Info=#20:Пример как уже можно|
 Width=204
}
Add(MT_ChanelToIndex,15161168,294,287)
{
 link(onIndex,14609077:doValue,[])
}
Add(MT_MultiMem,14609077,378,287)
{
 link(onData,4199898:doOperation,[(420,293)(420,275)(367,275)(367,349)])
}
Add(MT_Add,7660801,441,343)
{
 InputMT=1
 link(onAdd,10354403:doEvent,[])
 link(Data,14609077:Value1,[(447,331)(384,331)])
}
Add(MT_IndexToChanel,10354403,497,343)
{
 link(onEvent1,10455524:doText,[(548,349)(548,321)])
 link(onEvent2,10190168:doText,[(548,356)(548,370)])
}
Add(Edit,12525635,568,79)
{
 Left=245
 Top=40
 Width=85
 Text=""
}
Add(Edit,2143974,568,128)
{
 Left=245
 Top=75
 Width=85
 Text=""
}
Add(Edit,7694058,232,128)
{
 Left=20
 Top=75
 Width=80
 Text=""
 link(onChange,5506780:doWork2,[(282,134)(282,118)])
}
Add(Edit,4317471,232,79)
{
 Left=20
 Top=40
 Width=80
 Text=""
 link(onChange,5506780:doWork1,[(282,85)(282,111)])
}
Add(MT_ChanelToIndex,5506780,301,105)
{
 link(onIndex,1466642:doEvent,[])
}
Add(MT_IndexToChanel,1466642,497,105)
{
 link(onEvent1,12525635:doText,[(549,111)(549,85)])
 link(onEvent2,2143974:doText,[(549,118)(549,134)])
}

Add(InlineCode,711157,280,266)
{
 VarPoints=#6:Cable1|6:Cable2|
 DataPoints=#5:Cable|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:     Cable:THI_Event;|5:     |51:     procedure Cable1(var _Data:TData; Index:word);|51:     procedure Cable2(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.Cable1;|13:var dt:TData;|5:begin|18:  dtInteger(dt,0);|21:  dt.ldata := @_Data;|22:  _ReadData(dt,Cable);|14:  _Data := dt;|4:end;|0:|29:procedure THiAsmClass.Cable2;|13:var dt:TData;|5:begin|18:  dtInteger(dt,1);|21:  dt.ldata := @_Data;|22:  _ReadData(dt,Cable);|14:  _Data := dt;|4:end;|0:|4:end.|
 link(Cable,1899:GetData,[])
}
Add(FormatStr,15702459,280,315)
{
 link(onFString,3954939:doMessage,[])
 link(Str1,711157:Cable1,[])
 link(Str2,711157:Cable2,[])
}
Add(Button,12054623,231,315)
{
 Left=125
 Top=100
 link(onClick,15702459:doString,[])
}
Add(Message,3954939,329,315)
{
}
Add(MathParse,6232363,329,217)
{
 MathStr="4 + 2"
 link(onResult,340925:doWork2,[])
}
Add(MathParse,4622757,329,266)
{
 MathStr="4 * 2"
 link(onResult,340925:doWork3,[(373,272)])
}
Add(HubEx,340925,369,217)
{
 Angle=3
 link(onEvent,1899:doData,[(373,211)(268,211)(268,223)])
}
Add(InlineCode,1899,280,217)
{
 WorkPoints=#6:doData|
 EventPoints=#10:onSetData1|10:onSetData2|
 VarPoints=#7:GetData|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|15:     dt1:TData;|15:     dt2:TData;|17:     idx:integer;|9:   public|37:     onSetData1,onSetData2:THI_Event;|5:     |51:     procedure doData(var _Data:TData; Index:word);|52:     procedure GetData(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doData;|5:begin|39:  if idx = 0 then CopyData(@dt1,@_Data)|29:  else CopyData(@dt2,@_Data);|4:end;|0:|30:procedure THiAsmClass.GetData;|5:begin|26:  idx := ToInteger(_Data);|23:  if idx = 0 then begin|41:    _hi_onEvent(onSetData1,_Data.ldata^);|26:    CopyData(@_Data,@dt1);|16:  end else begin|41:    _hi_onEvent(onSetData2,_Data.ldata^);|26:    CopyData(@_Data,@dt2);|6:  end;|4:end;|0:|4:end.|
 link(onSetData1,6232363:doCalc,[])
 link(onSetData2,4622757:doCalc,[(320,230)(320,272)])
}