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

 getsetdeleted()     Get and set the deleted flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

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

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_getsetdeleted
   vardef
      logical lDeleted
   enddef
   ? getdeleted()                    // print current delete setting
   lDeleted := getsetdeleted( .t. )  // save setting while adjusting it to .t.
   ? lDeleted                        // print saved setting
   ? getdeleted()                    // print changed setting
   setdeleted( lDeleted )            // set the deleted flag to original value
   ? getdeleted()                    // print current setting
   endproc

   proc main
   Test_getsetdeleted()
   endproc