Procedure THiAsmClass.doIn;
var  sd:string;
     i:integer;
begin
  sd := ReadString(_Data,Data);
  i := Pos('.',sd);
  If i=0 then sd := sd + '.00'
  else if length(sd)-i=1 then sd:=sd+'0';
  _hi_onEvent(onOut,sd);
end;