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

##############################################################################
###+-----------+##############################################################
#+-| SET PRINT |-----------------------------------------------+##############
#| +-----------+ The SET PRINT command controls the print flag |##############
#+-------------------------------------------------------------+##############
##############################################################################
##############################################################################
#+--| Syntax |-------------------+############################################
#|     SET PRINT <ON || OFF>     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| The SET PRINT flag is part of the same I/O system as the ? |########
########| command, with a default status of OFF.                     |########
########| ---------------------------------------------------------- |########
########| ON                                                         |########
########|                                                            |########
########| ON duplicates all screen output to the current printer     |########
########| device.  Set the printer device through the SET PRINTER TO |########
########| command.                                                   |########
########| ---------------------------------------------------------- |########
########| OFF                                                        |########
########|                                                            |########
########| OFF designates that screen output will not be duplicated   |########
########| to the printer.                                            |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Establish our printer and then send our             |#########
#########| *    I/O to the print device.                            |#########
#########|                                                          |#########
#########| SET PRINTER TO "Lpt1"                                    |#########
#########| SET PRINT ON                                             |#########
#########| LIST OFF n->query           && output of list goes to    |#########
#########|                             &&  the printer              |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    By using the SET PRINT flag, a program can          |#########
#########| *    query a user if a report is to be printed.          |#########
#########|                                                          |#########
#########| ACCEPT "Is report to be printed? [Y/N]" TO answer        |#########
#########| IF answer $ "yY"                                         |#########
#########|     SET PRINT ON                                         |#########
#########| ENDIF                                                    |#########
#########| LIST OFF zdata->qty, zdata->p, zdata->dd                 |#########
#########+----------------------------------------------------------+#########
##############################################################################