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

 getdevprt()         Return the printer device setting
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   func logical getdevprt extern

 Arguments
   None.

 Return
   A logical indicating the current setting of the respective system flag.

 Description
   The getdevprt() function returns .t. if the current printer device is
   set to print, or .f. if it is set to screen. The printer device can
   be adjusted via the set device to command.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_getdevprt
   ? getdevprt()             // prints .f.
   set device to print
   ? getdevprt()             // prints .t.
   set device to screen
   ? getdevprt()             // prints .f.
   endproc

   proc main
   Test_getdevprt()
   endproc