{ (c) 1998 CREEQ <creeq@web.de> }
program eggfrog_logo;
uses Crt,Graph;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  x,y,z : longint;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  z := 600;
  begin
    settextstyle(9,0,7);
    delay(1500);
    repeat
      z := z + 1;
      setcolor(black);
      outtextxy(z,150,'EGgFRoG');
      z := z - 2;
      setcolor(lightgreen);
      outtextxy(z,150,'EGgFRoG');
    until z = -500;
    x := -575;
    y := 1075;
    z := -800;
    repeat
    settextstyle(9,0,5);
      x := x - 1;
      y := y + 1;
      setcolor(black);
      outtextxy(y,x,'Presents');
      x := x + 2;
      y := y - 2;
      setcolor(lightblue);
      outtextxy(y,x,'Presents');
      z := z - 1;
      settextstyle(9,0,7);
      setcolor(black);
      outtextxy(z,150,'EGgFRoG');
      z := z + 2;
      setcolor(lightgreen);
      outtextxy(z,150,'EGgFRoG');
    until z = 100;
    delay(1000);
    repeat
    settextstyle(9,0,5);
      x := x - 1;
      y := y + 1;
      setcolor(black);
      outtextxy(y,x,'Presents');
      x := x + 2;
      y := y - 2;
      setcolor(lightblue);
      outtextxy(y,x,'Presents');
      z := z - 1;
      settextstyle(9,0,7);
      setcolor(black);
      outtextxy(z,150,'EGgFRoG');
      z := z + 2;
      setcolor(lightgreen);
      outtextxy(z,150,'EGgFRoG');
    until z = 650;
    z := -300;
    settextstyle(9,0,5);
    repeat
      z := z - 1;
      setcolor(black);
      outtextxy(125,z,'    A');
      outtextxy(125,z+50,'  CREEQ');
      outtextxy(140,z+150,'Production');
      z := z + 2;
      setcolor(13);
      outtextxy(125,z,'    A');
      outtextxy(125,z+50,'  CREEQ');
      outtextxy(140,z+150,'Production');
    until z = 50;
    Randomize;
    x := 0;
    repeat
      x := x+1;
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
      PutPixel(Random(500), Random(400), black);
    until x = 30000;
    setfillstyle(0,black);
    bar(0,0,640,480);
    settextstyle(10,0,7);
    setcolor(lightred);
    outtextxy(0,150,'The  Visitors');
    setfillstyle(solidfill,lightred);
    floodfill(10,191,lightred);
    floodfill(70,191,lightred);
    floodfill(139,250,lightred);
    floodfill(290,250,lightred);
    floodfill(340,250,lightred);
    floodfill(340,200,lightred);
    floodfill(400,250,lightred);
    floodfill(429,250,lightred);
    floodfill(429,200,lightred);
    floodfill(460,250,lightred);
    floodfill(520,250,lightred);
    floodfill(550,250,lightred);
    floodfill(590,260,lightred);
    settextstyle(1,0,4);
    setcolor(white);
    outtextxy(450,275,'Version 1.0');
    readkey;
    CloseGraph;
  end;
end.