{ (c) 1998 CREEQ <creeq@web.de> }
program Bildweg4;

uses Crt, Graph;

var
  grDriver : Integer;
  grMode   : Integer;
  y        : integer;

begin
  grDriver := VGA;
  grMode := VGAHi;
  InitGraph(grDriver, grMode,'');
  y := 0;
  setfillstyle(solidfill, lightgreen);
  bar(1,1,640,480);
  delay(3000);
  setcolor(black);
  repeat
    inc(y);
    line(1,y,640,y);
    line(1,y+80,640,y+80);
    line(1,y+160,640,y+160);
    line(1,y+240,640,y+240);
    line(1,y+320,640,y+320);
    line(1,y+400,640,y+400);
    delay(5);
  until y = 80;
  readkey;
  CloseGraph;
end.