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

Syntax

SYSCOLOR( [ nNum [, lAfter ] )

Purpose

Set colour for screen output to the contents of one of the fields in SYS,
or if SYS is not open, to default settings in the function.

Arguments

     nNum -- if passed, colour number corresponding to color_1...13, or
             mono_1...13.

     lAfter -- if passed, whether to return the SETCOLOR() result after
               setting colour, default .T. If .F., returns the previous
               colour setting --.

Setup

SYS->Color_1...13, Mono_1...13.

IF SYS is open, SYSCOLOR() uses the color or mono variables in the current
SYS record. Otherwise hard-coded settings in the function are used. In each
case, IS_COLOR() determines whether color or mono var is used.

Example

     SYSCOLOR( 2 )

Returns

The previous or resultant colour setting.

Side Effects

Sets colour.

Artful Calls

IS_OPEN, IS_COLOR, STRINT

Source File

AA_SYCLR.PRG