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

 getsetcentury()     Get and set the century flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

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

 Example
   #define EXAMPLE_DATE
   #include example.hdr

   proc Test_getsetcentury
   vardef
      logical lCentury
   enddef
   ? getcentury()                   // print .f. (century is off by default)
   lCentury := getsetcentury( .t. ) // save and set century flag
   ? getcentury()                   // print .t.
   getsetcentury( lCentury )        // reset century flag to original value
   ? getcentury()                   // print .f.
   endproc

   proc main
   Test_getsetcentury()
   endproc