begin
call cvclear;
call cvball(100,250,50);
call cvball(250,250,50);
call cvball(400,250,50);
call cvball(in,in,in)
end.


var i;

begin
call cvclear;
i:=0;
while i<6 do
begin
  call cvdraw(1,10+i*80,10,70,70);
  call cvdraw(2,10+i*80,110,50,70);
  call cvdraw(3,10+i*80,210,50,50);
  i:=i+1
end
end.


var i;

begin
call cvclear;
i:=0;
while i<6 do
begin
  call cvdraw(imagemax,10+i*80,10,70,70);
  call cvball(50+i*80,100,10);
  call cvdraw(imagemax-2,10+i*80,110,50,70);
  call cvball(40+i*80,200,10);
  call cvdraw(imagemax-1,10+i*80,210,50,50);
  call cvball(40+i*80,280,10);
  i:=i+1
end
end.


var i;

begin
  call cvclear;
  while 1=1 do
    begin
      i:=0;
      while i#imagemax do
        begin
          i:=i+1;
          call cvball(250,150,141);
          call cvdraw(i,150,50,200,200);
          call wait(2000)
        end
    end
end.


var i,j,k;

begin
call cvclear;
i:=1;
while i<4 do
  begin
    j:=20;
    while j<450 do
      begin
        k:=20;
        while k<280 do
          begin
            call cvclear;
            call cvdraw(i,j,k,30,30);
            call wait(100);
            k:=k+20
          end;
        j:=j+20
      end;
    i:=i+1
  end
end.

var i;

begin
  while 1=1 do
    begin
      i:=0;
      while i<5 do
        begin
          call cvclear;
          call cvdraw(1,50,15+50*i,70,70);
          call cvdraw(2,200,220-60*i,60,90);
          call cvdraw(3,350,25+60*i,70,70);
          i:=i+1;
          call wait(1000)
        end
    end
end.

var xball,yball,xincr,yincr;

begin
  call cvclear;
  xball:=256;
  yball:=156;
  xincr:=5;
  yincr:=5;
  while 1=1 do
    begin
      call cvclear;
      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;
      call wait(50)
    end
end.