{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program Exemple15 ;

Var f : Text ;
    i, j : String ;

BEGIN
     Assign(f, 'c:\autoexec.bat') ;
     Reset(f) ;
     While Not SeekEof(f) Do
     Begin
          If SeekEoLn(f) Then ReadLn ;
          Read(f, j) ;
          WriteLn(j) ;
     End ;
END.