SetLabel()

         Sets the label of a disk

    Syntax:

         SetLabel( nUnit [, cNewLabel] ) -> nError

         nUnit     : A disk number. 0=Current disk, 1=A:, 2=B:, 3=C:, ...
         cNewLabel : The new label. Default value is "".

    Description:

         Sets the label of a disk.

    Return:

         DOS error code or zero if there is no error.

    Example:

         cLabel := GetLabel( 0 )
         ? cLabel                       // returns "MANU ROIBAL"
         SetLabel( 0 )                  // purges label
         GetLabel( 0 )                  // returns ""
         SetLabel( 0, cLabel )          // sets new label
         ? GetLabel( 0 )                // returns "MANU ROIBAL"