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

  Name:     isindex() - check if an index is open in the current area
  Usage:    <logical> = isindex()
  Params:   none
  Returns:  .T. if an index file is in use in the current work
            area. .F. if not.

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

                 use PHONE index LNAME
                 ? isindex()
                 * prints .T.

                 use PHONE
                 ? isindex()
                 * prints .F.