ColorScreen


Purpose   Indicates whether the program is running on a color display
          system.

Decln.    ColorScreen:boolean;

Returns   Boolean

Remarks   The Toolkit automatically determines if the program is running on
          a color or a monochrome system.

Example

BEGIN
    IF COLORSCREEN THEN
       WRITEAT(1,1,YELLOW,RED,'ERROR - PRINTER MELTED')
    ELSE
       WRITEAT(1,1,WHITE,BLACK,'ERROR - PRINTER MELTED')
END;