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

  Name:     f_isdbf() - check if a file is a dBASE III DBF file
  Usage:    <logical> = f_isdbf(<DBF_file>)
  Params:   string <DBF_file> - filename to check
  Returns:  .T. if the file is a dBASE III file, otherwise .F.

 ---------------------------------- Example ---------------------------------

                 wait "Enter filename to use:" to fname
                 if .not. f_isdbf(fname)
                      print(0,0,fname+" is not a dBASE file!")
                 else
                      use (fname)
                 endif

  Note:     Any file that has either an 83h or a 03h as the first byte
            in the file can be mistaken for a dBASE III file.