ISMONO()
 Determines if a monochrome card is present or can be emulated
------------------------------------------------------------------------------
 Syntax

     ISMONO([<lMode>]) --> lMonochrome

 Argument

     <lMode>   When designated as .T., tests to  see if a monochrome card
     is available.  The default value of .F. tests to see if a monochrome
     card can be emulated.

 Returns

     Depending on the <lMode> parameter, ISMONO() returns .T. when a
     monochrome card is available, or if a monochrome adapter can be
     emulated.

 Description

     This function determines two things.  When designated as .F. or when
     called without a parameter, ISMONO() tests to see if a monochrome
     adapter can be emulated.  This can be the case with a HERCULES, EGA, or
     VGA card.  When designated as .T., the function determines if a
     monochrome card is available.

 Note

     .  GETMODE() determines the active mode.

 Examples

     .  Can monochrome be emulated?

        IF ISMONO()
           *...
        ENDIF

     .  Monochrome adapter?

        IF ISMONO(.T.)
           *...
        ENDIF