{ (c) 1998 CREEQ <creeq@web.de> }
program Bombe;
uses Crt, Graph;
var
  Gd, Gm: Integer;
  x : integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  setfillstyle(solidfill, white);
  setcolor(white);
  circle(100,100,30);
  floodfill(100,100,white);
  bar(94,100,105,55);
  setfillstyle(solidfill, black);
  pieslice(120,55,180,90,20);
  setcolor(black);
  line(120,35,120,55);
  line(120,55,106,55);
  setcolor(white);
  line(120,35,520,35);
  delay(2950);
  x := 521;
  repeat
    delay(5);
    x := x-1; 
    putpixel(x,35,black);    
    if keypressed then halt;
  until x = 120;  
  setcolor(black);
  x := 121;
  repeat
    delay(5);
    x := x-1;
    line(x,35,x,45);
  until x = 100;
  x := 31;
  repeat
    delay(5);
    x := x+1;
    line(95,x,105,x);
  until x = 54;
  cleardevice;
  setcolor(white);
  setfillstyle(solidfill, white);
  settextstyle(9,0,9);
  outtextxy(100,100,'BOOM');
  x := 20;
  repeat
  sound(x);
  x := x+1;
  if x = 50 then x := 20;
  until keypressed;
  nosound;
  Readkey;
  CloseGraph;
end.