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

  Name:     lprint() - print text to the printer
            lprintline() - print text to the printer append cr+lf
  Usage:    <logical> = lprint(<string>,[<port>])
            <logical> = lprintline(<string>,[<port>])

  Params:   string <string> - the string to print
            integer <port> - the LPT port number to print to,
            optional, of left off then lpt port #1 is assumed
  Returns:  a logical value denoting the success or failure of the
            print. Returns .T. if successful, .F. if error occurred.

 ---------------------------------- Example ---------------------------------

                 use NAMES index LNAME
                 seek "L"

                 do while upper(left(LNAME,1)) = "L"
                      result = lprintline(fname+lname+address",1)
                      if !(result)
                           @ 0,0 say "Printer error occurred!"
                           exit
                      endif
                 enddo

  Note:     Some printers do not print the text until a chr(13) is
            received. The function lprint() therefore may not output
            text until you lprint() a chr(13), or cr+lf combination.
            The lprintline() function always appends a cr+lf to the
            end of the string so it always prints immediately.