{ (c) 1998 CREEQ <creeq@web.de> }
program Text_Scrollen;
uses Crt, Graph;
var
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;
  y        : Integer;
label 1;
begin
  y := 500;
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin
  repeat
  SetTextStyle(10, HorizDir, 3);
  setcolor(white);
  outtextxy(20,y-5,'   Copyright by CREEQ');
  outtextxy(20,y+50-5,'Special Thanks for CREEQ');
  outtextxy(20,y+100-5,'    Idee  by  CREEQ');
  outtextxy(20,y+150-5,'   Grafik  by  CREEQ');
  outtextxy(20,y+200-5,'  Nosound  by  CREEQ');
  outtextxy(20,y+250-5,'  Everything by CREEQ');
  outtextxy(20,y+300-5,'   Thats`s all. See you soon.');
  setcolor(black);
  outtextxy(20,y,'   Copyright by CREEQ');
  outtextxy(20,y+50,'Special Thanks for CREEQ');
  outtextxy(20,y+100,'    Idee  by  CREEQ');
  outtextxy(20,y+150,'   Grafik  by  CREEQ');
  outtextxy(20,y+200,'  Nosound  by  CREEQ');
  outtextxy(20,y+250,'  Everything by CREEQ');
  outtextxy(20,y+300,'   Thats`s all. See you soon.');
  dec(y,5);
  if y = -640 then goto 1;
  until keypressed;
1:CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.