Function:    VGAthere()

               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
               EGAthere(), one can check if it was a VGA.

  Syntax:      VGAthere()

  Arguments:   None.

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

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