ISPGA()
 Determines if a PGA card is present or can be emulated
------------------------------------------------------------------------------
 Syntax

     ISPGA([<lMode>]) --> lPGA

 Argument

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

 Returns

     Depending upon the <lMode> parameter, ISPGA() returns .T. when a PGA
     card is available or if a PGA adapter can be emulated.

 Description

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

 Note

     .  Use GETMODE() to determine the active mode.

 Examples

     .  Can PGA be emulated?

        IF ISPGA()
           *...
        ENDIF

     .  PGA card?

        IF ISPGA(.T.)
           *...
        ENDIF