{ (c) 1998 CREEQ <creeq@web.de> }
program Wasser;
uses Crt, Graph;
var
  Gd, Gm : Integer;
  x      : Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  cleardevice;
  setcolor(white);
  rectangle(20,200,320,400);
  rectangle(320,280,600,460);
  setfillstyle(solidfill, black);
  bar(70,190,100,210);
  bar(310,320,330,350);
  bar(590,300,610,330);
  setfillstyle(solidfill, lightblue);
  setcolor(lightblue);
  x := 0;
  delay(1000);
  repeat
   delay(1); 
   bar(70,x,100,x);
   x := x+1;
  until x = 399;
  repeat
    delay(30);
    line(21,x,319,x);
    x := x-1;
  until x = 350;
  delay(30);
  line(21,350,321,350);
  delay(70);
  line(321,350,321,459);
  x := 459;
  repeat
    delay(50);
    line(321,x,599,x);
    x := x-1;
  until x = 350;
  repeat
    delay(80);
    line(21,x,599,x);
    x := x-1;
  until x = 330;
  delay(80);
  line(21,330,601,330);
  delay(10);
  line(601,330,601,480);
  Readkey;
  CloseGraph;
end.