// Five dbEdit demo — browse customer.dbf
// Build: five build examples/browse.prg -o browse
// Run:   ./browse

FUNCTION Main()
   LOCAL cPath := "dbf/customer"

   ? "Opening customer.dbf..."

   USE cPath

   ? "Records:", RecCount()
   ? "Fields:", FCount()
   ? ""
   ? "Press any key to start dbEdit..."
   ? "(Use arrows, PgUp/PgDn, Home/End, ESC to exit)"

   Inkey(0)

   CLS
   dbEdit(0, 0, 23, 79)

   ? ""
   ? "Done!"

   USE

   RETURN NIL