PRINTINIT()
 Initializes one of the printers
------------------------------------------------------------------------------
 Syntax

     PRINTINIT([<nPrinter>, [<lMode>]]) --> nStatus

 Arguments

     <nPrinter>  Designates the number the printer to initialize.  Values
     can be from 1 to 3 and correspond to the devices LPT1 to LPT3.  The
     default value is LPT1(1).

     <lMode>  When designated as .T., CA-Clipper is set internally to the
     top of form.  The default for CA-Clipper is not at the top of form
     (.F.).

 Returns

     The returned value corresponds to the status of the <nPrinter> selected
     printer.  The individual bits are defined as follows:

     Table 8-1:  Printer Bit Status
     ------------------------------------------------------------------------
     Bit     Definition
     ------------------------------------------------------------------------
     1       Timeout error
     2       Not used
     3       Not used
     4       Transmission error
     5       Printer online
     6       Out of paper
     7       Printer acknowledged
     8       Printer not available
     ------------------------------------------------------------------------

 Description

     Use PRINTINIT() to reset a printer to its original state or to redefine
     the top of form.  When <lMode> is designated as .T., the CA-Clipper
     internal setting is top of form.  This corresponds to a call of SETPRC
     (0, 0).

 Example

     Reset output to LPT1:

     PRINTINIT(1)