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

 getsetdevprt()      Get and set the printer device
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   func logical getsetdevprt 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 getsetdevprt() function sets the printer device and returns its
   previous setting. If lOn is .t., the printer device is set to print,
   otherwise to screen.

   The printer device can also be set using the set device to command.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_getsetdevprt
   vardef
      logical lDevPrt
   enddef
   lDevPrt := getsetdevprt( .t. )
   ? lDevPrt                         // prints .f.
   ? getsetdevprt( lDevprt)          // prints .t.
   ? getdevprt()                     // prints .f.
   endproc

   proc main
   Test_getsetdevprt()
   endproc