program boxes;

uses gfx256;

var
   i : integer;

begin
  graph320x200;

  box(0,0,320,200,12);

  for i:=1 to 31 do
    box(10+i,10+2*i,5+2*i,5+i,i);

  bar(10,110,150,50,14);

  rectangle(180,60,70,110,1,2);

  savevgascreen('boxx.bmp');
  readln;
  text80x25;

end.