XPfindAttr()
  Return attribute of File Found.
------------------------------------------------------------------------------

   Function:   XPfindAttr()

               XPfindAttr() returns the attribute of the file found after
               the last XPfindFirst()/XPfindNext() call.

   Syntax:     XPfindAttr(<DTA>) --> nAttr

   Arguments:  <DTA> is the 43 bytes variable given to FindFirst/Next.
               Need not to be passed by reference here.

   Returns:    The attribute.
                    0 - Normal file
                    1 - Read only
                    2 - Hidden file
                    4 - System file
                    8 - Volume label
                   16 - Directory
                   32 - archive bit
               Add to combine attributes. See DOS manuals for complete
               discussion about the attributes.

   Usage:      See XPDEMO.PRG.