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

 getsetintensity()   Get and set the intensity flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   func logical getsetintensity extern
   param value logical lOn

 Arguments
   lOn is the new setting for the flag.

 Return
   A logical indicating the previous setting of the respective system flag.

 Description
   The getsetintensity() function sets the intensity flag and returns its
   previous setting.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_getsetintensity
   vardef
      logical lIntensity
   enddef
   lIntensity := getsetintensity( .f. )
   ? lIntensity                         // prints .t.
   ? getsetintensity( lIntensity)       // prints .f.
   ? getintensity()                     // prints .t.
   endproc

   proc main
   Test_getsetintensity()
   endproc