Module: _vidmode      Library: Clipper 5.3


This module contains the following functions and procedures:

function _GETNUMCOL( Arg1 )
function _ISGRAPHIC
function _SETVIDEOM( Arg1 )

Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  _GETNUMCOL( Arg1 )
//
function _GETNUMCOL( Arg1 )

   local Local1, Local2 := At("/", Arg1)
   if ( Local2 > 1 )
      Arg1 := SubStr(Arg1, 1, Local2 - 1)
   elseif ( Local2 == 1 )
      Arg1 := ""
   endif
   do case
   case Arg1 == "N+"
      Local1 := 8
   case Arg1 == "B+"
      Local1 := 9
   case Arg1 == "G+"
      Local1 := 10
   case Arg1 == "BG+"
      Local1 := 11
   case Arg1 == "R+"
      Local1 := 12
   case Arg1 == "RB+"
      Local1 := 13
   case Arg1 == "GR+"
      Local1 := 14
   case Arg1 == "W+"
      Local1 := 15
   case Arg1 == "BG"
      Local1 := 3
   case Arg1 == "RB"
      Local1 := 5
   case Arg1 == "GR"
      Local1 := 6
   case Arg1 == "B"
      Local1 := 1
   case Arg1 == "G"
      Local1 := 2
   case Arg1 == "R"
      Local1 := 4
   case Arg1 == "W"
      Local1 := 7
   otherwise
      Local1 := 0
   endcase
   return Local1

//---------------------------------------------------[top]-
//  _ISGRAPHIC
//
function _ISGRAPHIC

   if ( ISNIL( Set(40) ) )
      return .F.
   endif
   if ( Set(40) == 3 )
      return .F.
   endif
   return .T.

//---------------------------------------------------[top]-
//  _SETVIDEOM( Arg1 )
//
function _SETVIDEOM( Arg1 )

   local Local1 := gmode(Arg1)
   if ( ISNIL( Local1 ) )
      return 0
   endif
   return 1

//---EOF


Use your Browser's BACK button to return to Function Listings