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

 getsetexclusive()   Get and set the exclusive flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

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

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_getsetexclusive
   vardef
      logical lExclusive
   enddef
   ? getexclusive()                     // print current exclsuive setting
   lExclusive := getsetexclusive( .f. ) // save setting while adjusting it
   ? lExclusive                         // print saved setting
   ? getexclusive()                     // print changed setting
   setexclusive( lExclusive )           // set the exclusive flag to original
   ? getexclusive()                     // print current setting
   endproc

   proc main
   Test_getsetexclusive()
   endproc