🚀 go-pugleaf

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