GETSCRMODE()
 Determines the number of the active video mode
------------------------------------------------------------------------------
 Syntax

     GETSCRMODE() --> nModeNumber

 Returns

     The function returns the mode number of the currently set video mode.

 Description

     In contrast to GETMODE(), GETSCRMODE() returns the current video mode as
     a numeric value.  This allows you to query special modes for particular
     screen adapters and reset them using SETSCRMODE().  The following modes
     are accommodated by other functions within CA-Clipper Tools:

     Table 2-1: Modes and Their Coding
     ------------------------------------------------------------------------
     Mode                Mode Number
     ------------------------------------------------------------------------
     CGA40 Monochrome    0
     CGA40 Color         1
     CGA80 Monochrome    2
     CGA80 Color         3
     Monochrome          7
     EGA43 (EGA only)    299 (43+256)
     VGA28 (VGA only)    284 (28+256)
     VGA50 (VGA only)    306 (50+256)
     ------------------------------------------------------------------------

 Note

     .  GETSCRMODE() returns the value previously set with
        SETSCRMODE() and the current BIOS or CA-Clipper Tools mode.  If you
        switch into a special mode for a particular screen adapter, there is
        no guarantee that this is the mode number that GETSCRMODE() returns.
        This is a factor of the unique behavior of the specific screen
        adapter.

 Examples

     .  Set the EGA 43-line mode:

        EGA43()

     .  The current video mode is saved:

        nOldMode  := GETSCRMODE()

     .  The current video mode is restored later:

        SETSCRMODE(nOldMode)