XPinitLpt()
  Initialise the Printer port
------------------------------------------------------------------------------

   Function:   XPinitLpt()

               This function sends an Initialisation code
               to the printer, which should in most cases
               have the effect of turning it on and off again.
               It should stop printing of current output and
               clear the buffer, making it ready to receive output.

               Handy as an initialisor in your Applications, but also
               when one wants to cancel current output.

   Syntax:     XPinitLpt([nLPT])

   Arguments:  nLPT is the Printer port to initialise. Defaults to
               0, which indicates LPT1. 1 indicates LPT2 etc..

   Returns:    NIL

   Usage:      XPinitLpt(0)