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

 getsetconsole()     Get and set the console flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   func logical getsetconsole 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 getsetconsole() function sets the console flag and returns its
   previous setting.

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   proc Test_getsetconsole
   vardef
      logical lConsole
   enddef
   lConsole := getsetconsole( .f. )
   @ row() + 1, 0 say lConsole                // prints T
   @ row() + 1, 0 say getsetconsole( .t. )    // prints F
   ? getsetconsole( .t. )                     // prints .T.
   endproc

   proc main
   Test_getsetconsole()
   endproc