Function:   Vmode()

               This function provides some control over the
               Video mode. Using Vmode() one can check the
               current state of the Video Mode, and eventually
               set the Video Mode.
               This can be handy to set alternative video modes

   Syntax:     Vmode([<nMode>])

   Arguments:  <nMode> can be given, which will tell Vmode() to
               set the specified Mode.

   Returns:    The current Video Mode, That is, The Mode *before*
               any eventual other Mode that will be set if a
               parameter is given to Vmode().

   Usage:      * - Make sure screen is 80 columns wide.
               if vmode() < 2
                  vmode( vmode()+2 )
               endif
               * - and make sure we're in text mode:
               if vmode() = 7 .or. Vmode() <= 3 ..

               See VIDEO documention for complete list of Video
               modes, but, for Clipper, only these modes are
               acceptable:
                    2 = text, 80*25 color on Black&White monitor
                    3 = text, 80*25 color on color Monitor
                    7 = text, 80*25 on Mono Colored monitor.