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

  Name:     montype() - get type of monitor in use (for VGA/MCGA)
  Usage:    <integer> = montype()
  Params:   none
  Returns:  integer equal to the type of monitor and adaptor in use
            where based on the following table:

                 Return    - Description
                 -1        - unrecognized display
                 0         - no display at all
                 1         - MDA with monochrome
                 2         - CGA with color display
                 4         - EGA with color display
                 5         - EGA with monochrome display
                 6         - Professional Graphics Adaptor
                 7         - VGA with monochrome display
                 8         - VGA with color display
                 10        - MCGA with digital color display
                 11        - MCGA with analog monocrome display
                 12        - MCGA with analog color display

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

                 if (montype() = 1 .or. montype() = 11 .or. montype() = 7)
                        set color to W/N,N/W,W/N
                 elseif (montype() = 4 .or. montype() = 8 .or.;
                        montype() = 10 .or. montype() = 12)
                        palette(4,8)
                        set color to BG/W,W/B,BG/W
                 else
                        set color to BG/W,W/B,BG/W
                 endif

  Note:     This function is mainly for detecting analog color or
            monochrome monitors used by the VGA or MCGA adaptors.