Add(MainForm,2953706,364,126)
{
 Width=294
 Height=153
 Caption="Invertor"
}
Add(InlineCode,6652260,364,168)
{
 WorkPoints=#8:doInvert|
 EventPoints=#8:onInvert|
 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|15:   {Data point}|23:    //______:THI_Event;|16:   {Event point}|23:    onInvert:THI_Event;|14:   {Var point}|51:    //procedure ______(Var Data:TData; Index:Word);|15:   {Work point}|53:    procedure doInvert(Var Data:TData; Index:Word);  |5: end;|0:|16:implementation  |0:|31:procedure THiAsmClass.doInvert;|14:var b:Integer;|5:begin|21:  b:=ToInteger(Data);|11:  case b of|32:    0: _hi_onEvent(onInvert, 1);|32:    1: _hi_onEvent(onInvert, 0);|7:   end;|2:  |4:end;|0:|4:end.|
 link(onInvert,934059:doText,[])
}
Add(Button,4628638,245,140)
{
 Left=25
 Top=35
 Caption="Push 0"
 Data=Integer(0)
 link(onClick,4859970:doWork1,[(340,146)])
}
Add(Button,2914909,245,189)
{
 Left=25
 Top=70
 Caption="Push 1"
 Data=Integer(1)
 link(onClick,4859970:doWork3,[(340,195)])
}
Add(Label,934059,434,168)
{
 Left=135
 Top=55
}
Add(HubEx,4859970,336,168)
{
 link(onEvent,6652260:doInvert,[])
}