ISMCGA()
 Determines if an MCGA card is present or can be emulated
------------------------------------------------------------------------------
 Syntax

     ISMCGA([<lMode>]) --> lMCGA

 Argument

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

 Returns

     Depending on the <lMode> parameter, the function returns .T. when a MCGA
     card is available or if an MCGA adapter can be emulated.

 Description

     You can determine two things with this function. When designated as .F.
     or when called without a parameter, ISMCGA() tests to see if a
     monochrome adapter can be emulated.  This can happen 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.

 Example

     Can MCGA be emulated?

     IF ISMCGA()
     *...
     ENDIF
     MCGA-Card?
     IF ISMCGA(.T.)
     *...
     ENDIF