Add(InlineCode,5438944,259,105)
{
 WorkPoints=#9:doBetween|
 EventPoints=#5:onYes|4:onNo|
 DataPoints=#7:dNumber|4:dMin|4:dMax|
 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|48:    dNumber,dMin,dMax,onYes,onNo : THI_Event;   |53:    PROCEDURE doBetween(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|32:PROCEDURE THiAsmClass.doBetween;|21:var a, b, c : double;|5:begin|26:  a:=ReadReal(_Data,dMin);|26:  b:=ReadReal(_Data,dMax);|29:  c:=ReadReal(_Data,dNumber);|76:  If (c >= a)AND(c <= b) then _hi_onEvent(onYes,c) else _hi_onEvent(onNo,c);|4:end;|4:end.|
}