ball follower
begin
  while cvx<0 do
    call wait(10);
  while cvx> -1 do
  begin
    call cvclear;
    call cvball(cvx,cvy,20);
    call wait(10)
  end;
  call cvclear
end.

picture follower
var i;
begin
  i:=1;
  call cvclear;
  while 1=1 do
    begin
      while cvx<0 do
        call wait(10);
      while cvx> -1 do
        begin
          call cvclear;
          call cvdraw(i,cvx-40,cvy-50,80,100);
          call wait(10)
        end;
      call cvclear;
      i:=i+1;
      if i=4 then
        i:=1
    end
end.

pic + pong, hangs on mouse out, may catch ball, along with dribble on canvas edge
var i,xball,yball,xincr,yincr;
begin
  i:=1;
  call cvclear;
  xball:=256;
  yball:=156;
  xincr:=5;
  yincr:=5;
  while 1=1 do
    begin
      while cvx<0 do
        call wait(10);
      while cvx> -1 do
        begin
          call cvclear;
          call cvdraw(i,cvx-40,cvy-50,80,100);
          call cvball(xball,yball,10);
          xball:=xball+xincr;
          if xball<10 then
            xincr:= -xincr;
          if xball>490 then
            xincr:= -xincr;
          yball:=yball+yincr;
          if yball<10 then
            yincr:= -yincr;
          if yball>290 then
            yincr:= -yincr;
          if xball>cvx-45 then
            if xball<cvx+45 then
              if yball>cvy-55 then
                if yball<cvy+55 then
                  begin
                    xincr:= -xincr;
                    yincr:= -yincr
                  end;
          call wait(10)
        end;
      call cvclear;
      i:=i+1;
      if i=4 then
        i:=1
    end
end.

pic + pong, no hang on mouse out, may catch ball
var i,xball,yball,xincr,yincr;
begin
  i:=1;
  call cvclear;
  xball:=256;
  yball:=156;
  xincr:=5;
  yincr:=5;
  while 1=1 do
    begin
      while cvx<0 do
        begin
          call cvclear;
          call cvball(xball,yball,10);
          xball:=xball+xincr;
          if xball<10 then
            if xincr<0 then
              xincr:= -xincr;
          if xball>490 then
            if xincr>0 then
            xincr:= -xincr;
          yball:=yball+yincr;
          if yball<10 then
            if yincr<0 then
              yincr:= -yincr;
          if yball>290 then
            if yincr>0 then
              yincr:= -yincr;
          call wait(10)
        end;
      while cvx> -1 do
        begin
          call cvclear;
          call cvdraw(i,cvx-40,cvy-50,80,100);
          call cvball(xball,yball,10);
          xball:=xball+xincr;
          if xball<10 then
            if xincr<0 then
              xincr:= -xincr;
          if xball>490 then
            if xincr>0 then
              xincr:= -xincr;
          yball:=yball+yincr;
          if yball<10 then
            if yincr<0 then
              yincr:= -yincr;
          if yball>290 then
            if yincr>0 then
              yincr:= -yincr;
          if xball>cvx-45 then
            if xball<cvx+45 then
              if yball>cvy-55 then
                if yball<cvy+55 then
                  begin
                    xincr:= -xincr;
                    yincr:= -yincr
                  end;
          call wait(10)
        end;
      call cvclear;
      i:=i+1;
      if i=4 then
        i:=1
    end
end.