(SET-COLOR color)

Sets the current color for all drawing functions. If you are have 16 or more colors, color can be one of the following:
Symbol Equivalent number
{\itt 'BLACK} 0
{\itt 'BLUE} 1
{\itt 'GREEN} 2
{\itt 'CYAN} 3
{\itt 'RED} 4
{\itt 'MAGENTA} 5
{\itt 'BROWN} 6
{\itt 'LIGHT-GRAY} 7
{\itt 'DARK-GRAY} 8
{\itt 'LIGHT-BLUE} 9
{\itt 'LIGHT-GREEN} 10
{\itt 'LIGHT-CYAN} 11
{\itt 'LIGHT-RED} 12
{\itt 'LIGHT-MAGENTA} 13
{\itt 'YELLOW} 14
{\itt 'WHITE} 15
If you are using CGA, MCGA or ATT-400 four-color modes, you should use instead the following constants, depending on your palette:
0 {\itt 'BACKGROUND} {\itt 'CGA-LIGHT-GREEN} {\itt 'CGA-LIGHT-RED} {\itt 'CGA-YELLOW}
1 {\itt 'BACKGROUND} {\itt 'CGA-LIGHT-CYAN} {\itt 'CGA-LIGHT-MAGENTA} {\itt 'CGA-WHITE}
2 {\itt 'BACKGROUND} {\itt 'CGA-GREEN} {\itt 'CGA-RED} {\itt 'CGA-BROWN}
3 {\itt 'BACKGROUND} {\itt 'CGA-CYAN} {\itt 'CGA-MAGENTA} {\itt 'CGA-LIGHT-GRAY}
You can change the effect of SET-COLOR using SET-PALETTE. With CGA-style adapters, only the first color (i.e. black, the background color) can be changed (it is best to use SET-BK-COLOR).

If you totally re-map the palette with a EGA or VGA adapter, use SET-COLOR with numbers rather than with symbols, since it doesn't make programs very clear when (SET-COLOR {\itt 'BLUE}) turns color to green for example...