Make(delphi)
ver(4.04 build 185)
Add(MainForm,11326938,161,112)
{
 Width=166
 Height=186
 Caption="Тасман"
 Position=1
 link(onCreate,14641183:doWork1,[(221,132)])
}
Add(Button,9691549,364,161)
{
 Left=40
 Top=90
 Width=35
 Font=[MS Sans Serif,7,0,0,1]
 Caption="Откл"
 Point(doEnabled)
}
Add(Button,4524773,364,119)
{
 Left=40
 Top=60
 Width=35
 Font=[MS Sans Serif,7,0,0,1]
 Caption="Вкл"
 Point(doEnabled)
}
Add(Button,7526414,161,154)
{
 Left=30
 Top=5
 link(onClick,14641183:doWork2,[])
}
Add(HubEx,14641183,217,154)
{
 link(onEvent,11167135:doTest,[])
}
Add(InlineCode,11167135,252,154)
{
 WorkPoints=#6:doTest|
 EventPoints=#4:Res1|4:Res2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|16:    pos:boolean;|9:   public|24:   res1, Res2:THI_Event;|49:   procedure doTest(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doTest;|5:begin|33: _hi_onEvent(Res1, Integer(pos));|14: pos:=not pos;|33: _hi_onEvent(Res2, Integer(pos));|4:end;|4:end.|
 link(Res1,4524773:doEnabled,[(321,160)(321,125)])
 link(Res2,9691549:doEnabled,[])
}