home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / HEADER.PRG < prev    next >
Text File  |  1990-10-22  |  551b  |  23 lines
  1. ***********
  2. * HEADER.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 HEADER 
  7. * RETURN: <expN> size in bytes of header in the currently selected database.
  8. * NOTE  : DBF files created with version before dBase III Plus
  9. *         will be 1 byte larger. 
  10. ***********
  11. DO FLDCOUNT 
  12. IF tr_retn > 0
  13.    tr_retn = ( tr_retn * 32 ) + 33
  14. ELSE
  15.   tr_retn = 0
  16. ENDIF 
  17. IF fox
  18.    RETURN (tr_retn)
  19. ENDIF
  20. * header ::= 33 bytes overhead + 32 bytes per field.
  21. * eof header * 
  22.  
  23.