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

 getsetalternate()   Get and set the alternate flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

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

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   proc Test_getsetalternate
   vardef
      logical lAlt
   enddef
   lAlt := getsetalternate( .t. )
   ? lAlt                         // print .f.
   ? getalternate()               // print .t.
   getsetalternate( lAlt )
   ? getalternate()               // print .f.
   endproc

   proc main
   Test_getsetalternate()
   endproc