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

procedure scrolletext(x,y:integer;text:string);
var i,t : integer;
label 1;
begin
  i := 1;
1:for i := i to length(text) do begin
    for t := 32 to 126 do begin
      if keypressed then halt;
      gotoxy(i+x,y);
      write(chr(t));
      delay(3);
      if text[i] = chr(t) then begin inc(i); goto 1; end;
    end;
  end;
end;

begin
  clrscr;
  scrolletext(1,1,'Test');
  readkey;
end.