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

Program Exemple14 ;

Var f : File Of Byte ;
    taille : Longint;

BEGIN
     Assign(f, 'c:\autoexec.bat') ;
     Reset(f) ;
     taille := FileSize(f) ;
     WriteLn('Taille du fichier en octets :', taille ) ;
     WriteLn('D‚placement du curseur...') ;
     Seek(f, taille Div 2);
     WriteLn('Le pointeur se trouve … l''octet : ', FilePos (f) ) ;
     Close(f) ;
END.