home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / FILESIZE.PRG < prev    next >
Text File  |  1990-10-22  |  361b  |  17 lines

  1. ***********
  2. * FILESIZE.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO FILESIZE WITH <filespec> 
  7. * RETURN: <expN> size of file in bytes. 
  8. ***********
  9. PARAMETERS par1  
  10. CALL Trpass  WITH par1
  11. CALL Trexe   WITH "FILESIZE"
  12. IF fox
  13.    RETURN (tr_retn)
  14. ENDIF
  15. * eof filesize *
  16.  
  17.