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

 C_LPTINIT()

 DESCRIPTION

 C_LPTINIT() initializes the printer attached to the specified LPT
 port and returns information about the status of the printer.

 SYNTAX

 C_LPTINIT(port)

 PARAMETERS

 port (N) is the LPT port number where the printer is attached.
 port must be specified as a numeric where 1=LPT1, 2=LPT2, etc.

 RETURNS

 C_LPTINIT() returns the status of the printer attached to the
 specified port as a numeric.  The status codes are as follows:

 STATUS    DESCRIPTION
 ------    -----------
 0         Printer selected and ready
 1         No paper
 2         Timed out
 3         IO error
 4         Printer acknowledge
 5         Printer not busy

 EXAMPLES

 if c_lptinit(1) = 0
   do print_routine
 endif