ISCGA()
 Tests for presence of a CGA card or if one can be emulated
------------------------------------------------------------------------------
 Syntax

     ISCGA([<lMode>]) --> lCGA

 Argument

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

 Returns

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

 Description

     You can determine two things with this function.  When designated as .F.
     or when called without a parameter, ISCGA() tests it see if a CGA
     adapter can be emulated.  This can be the case with an EGA or VGA card.
     When designated as .T., the function determines if a CGA card is
     available.

 Note

     .  Use GETMODE() to determine which mode is active.

 Example

     Can CGA be emulated?

     IF ISCGA()
     *...
     ENDIF
     CGA-Card?
     IF ISCGA(.T.)
     *...
     ENDIF