Click above to get retro games delivered to your door ever month!

 EGAPALETTE()
 Changes EGA palette colors
------------------------------------------------------------------------------
 Syntax

     EGAPALETTE([<cColor1|nColor1>, [<nPalette>])
         --> lValid

     or

     EGAPALETTE([<cColor1|nColor1>, [<cColor2>]])
         --> lValid

 Arguments

     <cColor1|nColor1>  Designates the color to change as a CA-Clipper
     color code or a numeric in the 0 to 15 range.  If only this color is
     given, the accompanying palette is reset to its default value.

     <nPalette>  Designates which color palette the color
     <cColor1|nColor1> is assigned to.  May be in the range of 0 to 63.

     <cColor1|nColor1>, <cColor2>  If a color is also designated as a
     second parameter, then that color's palette is designated as
     <cColor1|nColor1>.

     () When no parameters are designated, all color palettes are reset to
     their default values.

 Returns

     EGAPALETTE() returns .T. when the selected setting is successfully
     implemented.

 Description

     EGAPALETTE() allocates one of the 16 colors available to another color
     palette.  Since the function changes the screen adapter, everything on
     the screen designated with <cColor1|nColor1> also changes.

     Instead of a palette value, you can designate a second color.  Its
     palette setting is allocated to the one designated in <cColor1|nColor1>,
     so that two of the 16 colors are identical.

     If only the <cColor1|nColor1> parameter is given, then the accompanying
     palette is reset to its default value.  When calling the function
     without parameters, all palettes are reset.

 Notes

     .  You can also implement EGAPALETTE() in VGA mode, although
        VGAPALETTE() provides more flexibility.

     .  FONTRESET() resets all color palettes.

 Examples

     .  Redefine the color blue to dark blue:

        SET COLOR TO B            // Set blue
        ? "Nantucket"             // Appears in blue
        EGAPALETTE("B", 8)        // Affects everything blue.

     .  Reset the palette for the color blue:

        EGAPALETTE("B")
        Reset all palettes
        EGAPALETTE()