$FUNCNAME$
  ISCOLOR()
$CATEGORY$
  TERMINAL/IO
$SUMMARY$
   Determine if the current computer has color capability
$LANG_RU$
        .
$SYNTAX$
     ISCOLOR() | ISCOLOUR() --> lBoolean
$LANG_RU$
     ISCOLOR() | ISCOLOUR() -->  
$RETURNS$
     ISCOLOR() returns true (.T.) if there is a color graphics card
     installed; otherwise, it returns false (.F.).
$LANG_RU$
     ISCOLOR()   "" (..),   
      ,       ""
     (.F.).
$DESCRIPTION$
     ISCOLOR() is a screen function that allows you to make decisions about
     the type of screen attributes to assign (color or monochrome).  Note
     that some monochrome adapters with graphics capability return true
     (.T.).
$LANG_RU$
     ISCOLOR() -     ,   
         ,   
     (  ). ,   
           ""
     (..).
$EXAMPLES$
       This example installs color attribute variables at runtime:

	IF ISCOLOR()
	   cBox  = "BG+/B, W/N"
	   cSays = "BG/B, W/N"
	   cGets = "W/N, N/W"
	ELSE
	   cBox  = "W+"
	   cSays = "W/N, N+/W"
	   cGets = "W/N, N/W"
	ENDIF
	.
	. <statements>
	.
	SETCOLOR(cSays)
$LANG_RU$
             
        :

       IF ISCOLOR()
	  cBox = "BG+/B, W/N"
	  cSays = "BG/B, W/N"
	  cGets = "W/N, N/W"
       ELSE
	  cBox = "W+"
	  cSays = "W/N, N+/W"
	  cGets = "W/N, N/W"
       ENDIF
       .
       .<>
       .
       SETCOLOR(cSays)
$SEEALSO$
  SETCOLOR()
$END$
