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

var i : byte;
    text : string;

begin
  text := 'Dieser Text wird presentiert von CREEQ!';
  clrscr;
  for i := 1 to length(text) do
  begin
    textcolor(yellow);
    gotoxy(i,1);
    write(text[i]);
    delay(50);
    textcolor(white);
    gotoxy(i,1);
    write(text[i]);
  end;
  readkey;
end.