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

Syntax

IS_COLOR()

Purpose

Determine if colour adapter is present and the value of the PUBLIC logical
variable monochrome.

Arguments

None.

Setup

The PUBLIC logical variable monochrome may be defined to force monochrome
regardless of the type of video adapter present.

Example

     PARAMETERS monochrome  && Pass anything for mono
     monochrome := ( monochrome != NIL )
     IF IS_COLOR()
        SET COLOR TO +GB/N
     ELSE
        SET COLOR TO I
     ENDIF

Returns

.T. if monochrome is .F. and there is a colour adapter in your
computer, else .F. If a variable called monochrome does not exist, .F.
is returned.

Side Effects

None.

Artful Calls

None.

Source File

ARTFUL.CH

Notes

Many PCs contain a CGA card connected to a monochrome monitor. A test of
the card alone is therefore insufficient evidence on which to assign
colours, since on a monochrome monitor the colours will be unreadable.

A convenient way to handle this problem is by beginning your program as
shown in the example. Your program can be forced to monochrome if a
command-line argument in present, otherwise it will select screen mode from
the colour card it finds.

This is implemented as a pseudo-function via #define.