Path: utzoo!utgpu!water!watmath!clyde!att!ucbvax!XEROX.COM!Kushall.Henr
From: Kushall.Henr@XEROX.COM (Edward)
Newsgroups: comp.sys.dec.micro
Subject: Printer Unit for Turbo Pascal 4.0 on Rainbow
Message-ID: <880728-044049-2996@Xerox>
Date: 28 Jul 88 11:40:44 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 35

The TPU Printer supplied with Turbo Pascal 4.0 does not function on the Rainbow,
instead of sending the information to the printer port it creats a file called
LST
Borland's PRINTER unit assigns the LST file to devive LPT1.

Here is a replacement Printer Unit that corrects the problem, since it is so
short I am sending in in the clear.

if you keep the name used here replace the line in your program
uses printer;
with
uses RBprint;

{ PRINTER Unit for Turbo Pascal 4.0 on Rainbow 100 }
{$D-,I-,S-}

unit RBPrint;{you may want to change this to printer}

interface

var
   Lst: text;
   
implementation
begin
  assign(lst,'PRN');
  rewrite(lst);
end.


Ed Kushall

ARPA: kushall.henr@xerox.com