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

  FRISCOLOR()                                                 Video Function
 Purpose..: Replace the Clipper ISCOLOR() function
-------------------------------------------------------------------------------
 Syntax...: frIsColor( [<lToggle>] ) --> lIsColor

 Arguments: [<lToggle>] = Unlike ISCOLOR(), frIsColor() allows you
                          to change its default state. If
                          <lToggle> is passed, frIsColor() will default
                          to its value.

 Returns..: lIsColor - TRUE if a color monitor is detected.

 Source...: FRCOLOR.C
-------------------------------------------------------------------------------
 Example..: . This example sets the default of frIsColor() by using
               a EXE startup variable.

             if !ISNIL( uMono )
                frIsColor( FALSE )
             endif