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

Program Exemple13 ;

Uses Crt, Dos ;

Var f : Text ;
    s : String ;

BEGIN
     Assign(f, 'c:\autoexec.bat') ;
     Reset(f) ;
     WriteLn('Affichage du contenu du fichier AUTOEXEC.BAT : ') ;
     Repeat
           ReadLn(f, s) ;
           WriteLn(s) ;
     Until Eof(f) ;
END.