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

 videotype()         Return type of the active video adapter
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   func uint videotype extern

 Arguments
   None.

 Return
   A numeric identifying the video adapter.

 Description
   This function returns a type identifier for the currently active video
   adapter.

   Id | Adapter Type
   ---+-------------
    0 | MDA
    1 | CGA
    2 | EGA or VGA

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   vardef
      char( 7 ) aVideo[ 3 ] := "MDA", "CGA", "EGA/VGA"
   enddef
   
   proc Test_videotype
   ? "The video type is", aVideo[ videotype() ]
   endproc

   proc main
   Test_videotype()
   endproc