while 1=1 do
  begin
    call cvclick;
    call cvclear;
    call cvball(cvx,cvy,5);
    call cvtext(cvx,cvx-20,cvy);
    call cvtext(cvy,cvx+20,cvy);
    call wait(100);
  end.