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

  VIDTYPE()                                                   Video Function
 Purpose..: Return the video card type
-------------------------------------------------------------------------------
 Syntax...: VidType() --> nVideoType

 Arguments: none  

 Returns..: nVideoType is the numeric representation of
            the video card type. In FW_MAIN.CH, these have been defined
            as manifest constants. You may wish to use them with
            the function as in the examples below. They are:

            Video Card Manifest Constants as found in FW_MAIN.CH
            ---------------------------------------------------
            Value  FW_MAIN.CH   Description
            ---------------------------------------------------
            0      V_NONE       none
            1      V_MDA        monochrome display adapter
            2      V_EGAMONO    monochrome EGA
            3      V_MCGAMONO   monochrome CGA
            4      V_VGAMONO    monochrome VGA
            5      V_HGC
            6      V_HGCPLUS
            7      V_INCOLOR
            8      V_CGA        color graphics adapter
            9      V_EGA        enhanced graphics adapter
            10     V_MCGA
            11     V_VGA
            ---------------------------------------------------

 Remark...: It is a high speed function to figure out what
            the video card is.

 Source...: VIDTYPE.C
-------------------------------------------------------------------------------
 Example..: The example are the #translate directives taken
            from FW_MAIN.CH and are used to test for several
            types of video.

         #translate ISVGA();
                    =>;
                    ( vidType() == V_VGA )

         #translate ISCGA();
                    =>;
                    ( vidType() == V_CGA )

         #translate ISEGA();
                    =>;
                    ( vidType() == V_EGA )

         #translate ISMONO();
                    =>;
                    ( vidType() == V_MCGAMONO .or. ;
                      vidType() == V_MDA      .or. ;
                      vidType() == V_MCGA )