begin
  call cvclear;
  while 1=1 do
  begin
    call cvclick;
    out:=cvx;
    out:=cvy
  end
end.

begin
  call cvclear;
  while 1=1 do
  begin
    call cvasclick;
    while cvclickx<0 do
      call wait(10);
    out:=cvclickx;
    out:=cvclicky
  end
end.