FUNCTION SATTMONO()

  Short:
  ------
  SATTMONO() Sets up color vars for mono monitor

  Returns:
  --------
  Nil

  Syntax:
  -------
  SATTMONO()

  Description:
  ------------
  This sets up the system color and interface variables
  described in SLS_*() for MONOCHROME monitor defaults.

  Examples:
  ---------
   IF ISCOLOR()
     SATTCOLOR()
   ELSE
     SATTMONO()
   ENDIF

  Source:
  -------
  S_ATTRIB.PRG