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

 getsetbell()        Get and set the bell flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

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

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_getsetbell
   vardef
      logical lBell
   enddef
   lBell := getsetbell( .t. )
   ? lBell                         // prints .f.
   ? getsetbell( lBell)            // prints .t.
   ? getbell()                     // prints .f.
   endproc

   proc main
   Test_getsetbell()
   endproc