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

 getsetfixed()       Get and set the fixed flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

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

 Example
   #define EXAMPLE_MATH
   #include example.hdr

   proc Test_getsetfixed
   vardef
      logical lPrevious
   enddef
   setdecimals( 5 )
   ? 1.234567890
   lPrevious := getsetfixed( .t. )
   ? lPrevious                      // prints .f.
   ? 1.234567890
   ? getfixed()                     // prints .t.
   getsetfixed( lPrevious )
   ? 1.234567890
   ? getfixed()                     // prints .f.
   endproc

   proc main
   Test_getsetfixed()
   endproc