begin
  while 1=1 do
  begin
    call cvclick;
    out:=cvx;
    out:=cvy;
    out:=11111;
    call cvasclick;
    while cvclickx<0 do
      call wait(10);
    out:=cvclickx;
    out:=cvclicky;
    out:=22222
  end
end.