Add(MainForm,4603492,133,189)
{
 link(onActivate,2834044:dotest,[])
}
Add(Edit,12808265,329,189)
{
 Left=90
 Top=90
 Width=175
 Text=""
}
Add(Memory,160075,196,91)
{
 Default=Real(40159.96)
}
Add(Memory,3466732,238,91)
{
 Default=Real(40158)
}
Add(InlineCode,2834044,231,189)
{
 WorkPoints=#6:dotest|
 EventPoints=#5:onRes|
 DataPoints=#3:op1|3:op2|
 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|28:   op1,op2,onRes:THI_Event; |50:    procedure dotest(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|28:procedure THiAsmUnit.dotest;|19:var x1,x2:Currency;|7:x:Real;|6:begin |24:x1:=ReadReal(_Data,op1);|24:x2:=ReadReal(_Data,op2);|14:x:= x1 - x2;  |21:_hi_OnEvent(onRes,x);|4:end;|4:end.|
 link(onRes,12808265:doText,[])
 link(op1,160075:Value,[(237,180)(202,180)])
 link(op2,3466732:Value,[])
}