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

 setdevprt()         Set the pronter device
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   proc setdevprt extern
   param value logical lOn

 Arguments
   lOn is the new setting for the flag.

 Return
   None.

 Description
   The setdevprt() function sets the printer device according to the
   passed parameter. 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_setdevprt
   ? getdevprt()                // prints .f.
   set device to print
   ? getdevprt()                // prints .t.
   setdevprt( .f. )
   ? getdevprt()                // prints .f.
   endproc

   proc main
   Test_setdevprt()
   endproc