Degrade()

         Makes a progressive degrade of the palette

    Syntax:

         Degrade( cPalette ) -> Nil

        cPalette : A string of 768 bytes with the actual palette or with
                   the one wanted to be taken as reference for the degrade.

    Description:

         This function works in sync with the CRT controller so that
         the degrade can offer a vision of soft and progressive change.

    Return:

         Nothing.

    Example:

         cPalette := GetPalette()
         Degrade( cPalette )
         Upgrade( cPalette )