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

Syntax

DOSCOLOR( cColour )

Purpose

Determine what DOS colour number corresponds to a Clipper colour string of
the form "W/N". You will need this if you are manipulating the screen
directly rather than through Clipper, as SCRAT() does.

Arguments

     cColour -- Clipper colour string

Setup

None.

Example

     * Get DOS colour numbers for current colour:
     LOCAL _colour := SETCOLOR, _parts, _colours
           _parts   = ABREAK( ",", _colour )

     ABREAK( ",", _colours := ARRAY( _parts ) )
     AEVAL( _colours, { |x| QOUT( DOSCOLOR( x ) ) } )

Returns

The DOS colour number, in which the first three bits are foreground colour,
the fourth is brightness, the next three are background, and the last is
blinking. For example "W+/B" is 7 + 8 + 16 = 31.

Side Effects

None.

Artful Calls

None.

Source File

AA_SYCLR.PRG