R_IsEGAFl()
 Determine if an EGA card is present
------------------------------------------------------------------------------

 Syntax
        lIsEGA := R_IsEGAFl ()

 Parameters
        None

 Returns
        lIsEGA          .T. :   EGA card is present or can be emulated
                        .F. :   No EGA card present

 Description
        This function can determine if the PC supports EGA.

 Example
        IF R_IsVGAFl ()
                *-- VGA present
                R_VGAFnt ( 2 )          && Load internal VGA font
        ELSE
                IF R_IsEGAFl ()
                        R_EGAFnt ( 2 )  && Load internal EGA font
                ELSE
                        Alert ( 'PC must at least support EGA !' )
                ENDIF
        ENDIF