XPvgaThere()
  Report presence of a VGA specifically
------------------------------------------------------------------------------

  Function:    XPvgaThere()

               This function can be used to test for the
               presence specifically of a VGA adaptor. Once
               you have noted that an EGA is present with
               XPegaThere(), one can check if it was a VGA.

  Syntax:      XPvgaThere()

  Arguments:   None.

  Returns:     A logical value, .t. when an VGA was found.

  Usage:       if .not. XPegaThere()
                    ? 'Sorry, only EGA/VGA allowed here..'
                    quit
               else
                    * Now, set VGA flag according to test..
                    VGAcheck := XPvgaThere()
               endif