Function:   fattr()

               Using fattr(), one can change the Attributes of a
               file. Adir() returns file's attributes, fattr()
               makes it possible to change them.

   Syntax:     fattr(<cFileName>,<nAttr>)

   Arguments:  <cFileName> is the name of the file we want to set the
               attributes for, <nAttr> is the attribute(s) we want
               to set.

   Returns:    0 is no error, Other Codes indicate DOS error
               codes.

   Usage:      * - Make the own executable ReadOnly..
               fattr(MyName(),1)