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

 LONGFILESIZE                Determine File Size                      pp 199

 Syntax:  LongFileSize (FileVar) ;

 Type:    File

 Form:    Function

 Purpose: Return file size in type Real.

 Notes:   MS-DOS long function for larger files.
          RealVar is type Real.


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


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

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