program showpal;

uses gfx256;

var
   i,j : integer;
begin
 graph320x200;


 for i:=0 to 15 do
  for j:=0 to 15 do
   bar(j*20,i*12,19,11,j+i*16);

 readln;
 text80x25;
end.