Click above to get retro games delivered to your door ever month!

 LONGFILEPOSITION       Find the File Position Pointer                pp 199

 Syntax:  LongFilePos (FileVar,RealVar) ;

 Type:    File

 Form:    Procedure

 Purpose: Return the current file position pointer as type Real.

 Notes:   MS-DOS long function for larger files.


 ----------------------------------------------------------------------------


 Usage:
       TYPE
          FileType = String [80]             ;   { Define record size  }
       VAR
          FileVar  : File of FileType        ;   { 80 byte record type }
       CONST
          FileName : String [8] = 'Name.Ext' ;   { Constant file name  }

       BEGIN
          RealVar  := LongFilePos (FileVar)  ;   { Get position        }
       END.