{ (c) 1998 CREEQ <creeq@web.de> }
program WirrWarr2;
uses Crt, Graph;
var Gd, Gm : Integer;
    x, y   : integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  x := 0;
  y := 0;
  cleardevice;
  randomize;
  repeat
  setfillstyle(solidfill, random(16));
  bar(x,y,x+10,y+10);	
  y := y+10;
  if y = 480 then begin
                     y := 0;
                     x := x+10;
                  end;
  if x = 640 then begin
                     y := 0;
                     x := 0;
                  end;
  until keypressed;
  CloseGraph;
end.