FT_ADAPTER()
 Report the type of video adapter installed
------------------------------------------------------------------------------

 Syntax

     FT_ADAPTER() -> nResult

 Arguments

    None

 Returns

    Integer representing type of video adapter

       0 - monochrome
       1 - CGA
       2 - EGA
       3 - VGA

 Description

    This function is valuable if you use a graphics library and need to
    know what type of graphics adapter is installed.

    The source code is written to adhere to Turbo Assembler's IDEAL mode.
    To use another assembler, you will need to rearrange the PROC and
    SEGMENT directives, and also the ENDP and ENDS directives (a very
    minor task).

 Examples

    iVideo := FT_ADAPTER()

    DO CASE
       CASE iVideo == 0
          QOUT( "You have a monochrome adapter." )
       CASE iVideo == 1
          QOUT( "You have a CGA adapter." )
       CASE iVideo == 2
          QOUT( "You have an EGA adapter." )
       CASE iVideo == 3
          QOUT( "You have a VGA adapter." )
    ENDCASE

 Source: ADAPTER.ASM

 Author: Ted Means