{
Readout analog input data.
}
procedure ReadoutAi(n:Integer; var x,y:Real);
var cref:Integer; b:Boolean;
begin
 cref:=RefAi(n);
 if cref<>0 then begin
  b:=CrvLock(cref);
  x:=CrvX(cref,CrvLen(cref));
  y:=CrvY(cref,CrvLen(cref));
  b:=CrvUnlock(cref);
 end else begin
  x:=0;
  y:=0;
 end;
end;
