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

SETCOLOR()


Syntax:     SETCOLOR([<expC>])

Purpose:    To determine the current color setting and optionally define
            colors for the next screen painting activity.

Arguments:  <expC> is a character string containing the standard,
            enhanced, border, background, and unselected color settings
            to make the current colors.  Unlike SET COLOR TO, SETCOLOR()
            with no argument does not restore colors to their default
            values.

            Note: SETCOLOR() only supports color letter combinations
            and not color numbers.

Returns:    A character string.

            SETCOLOR() returns a string representing the current
            setting.

Usage:      SETCOLOR() supports the same color settings as SET COLOR.

            Standard/Enhanced: The "standard" and "enhanced"
            settings are color pairs with a foreground and an optional
            background color.  "Standard" is used by all output, such as
            @...PROMPT, @...SAY, and ?.  "Enhanced" setting affects only
            the display of GETs with INTENSITY ON.

            Border: Border color is not supported on EGA or VGA
            monitors.

            Background: The "background" is not currently supported.

            Unselected: The "unselected" setting displays the
            current GET in the "enhanced" color while other GETs are
            displayed in the "unselected" color.

            Attributes: High intensity and blinking are the
            supported attributes of colors.  High intensity is denoted
            by "+" and blinking with "*."  Each attribute specified is
            applied to the foreground color regardless of where it
            occurs in the setting definition.

Library:    EXTEND.LIB


----------------------------------- Examples -------------------------------

   * Get current color setting.
   curr_color = SETCOLOR()

   * Set a new color the same as SET COLOR.
   SETCOLOR("BR+/N,R+/N")

   * Get current color setting and set new one.
   new_color = "BR+/N,R+/N"
   old_color = SETCOLOR(new_color)

   * Default colors.
   SET COLOR TO
   ? SETCOLOR()            && Result: W/N,I/N,N,N,I/N