Function:   FindAttr()

               FindAttr() returns the attribute of the file found after
               the last FindFirst()/FindNext() call.

   Syntax:     FindAttr(<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 EXPDEMO.PRG.