Click above to get retro games delivered to your door ever month!

  Name:     vidtype() - get video adaptor type
  Usage:    <integer> = vidtype()
  Params:   none
  Returns:  integer equal to the type of adaptor in use where:

            RETURN    - MEANING
            0         - MDA (monochrome)
            1         - CGA
            2         - EGA
            3         - VGA
            4         - MCGA
            5         - PGA
            -1        - unknown

 ---------------------------------- Example ---------------------------------

                 if (vidtype() < 2)
                      ? "You need a EGA compatible adaptor"
                      ? "to use 43 line mode"
                 else
                      setmode(43)
                 endif

                      or:

                 if (vidtype() = 1)
                      setsnow(.T.)
                 else
                      setsnow(.F.)
                 endif