Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!uunet!pilchuck!seahcx!phred!brianr
From: brianr@phred.UUCP (Brian Reese)
Newsgroups: comp.lang.pascal
Subject: Re: Output to printer.
Message-ID: <2765@phred.UUCP>
Date: 29 Sep 89 19:02:27 GMT
References: <50331@tiger.oxy.edu>
Reply-To: brianr@phred.UUCP (Brian Reese)
Organization: <50331@tiger.oxy.edu>o
Lines: 33

In article <50331@tiger.oxy.edu> c_wilson@oxy.edu (Clarence Regis Wilson) writes:
>You can send your output to the printer using the following commands:
>
>uses printer;
>
>writeln(lst,'This will be sent to printer');
>
>Remember, though, that the string will be sent only to the printer.
>If you must see the output on the screen also, you must duplicate
>the 8
>*writeln* statement without the *lst* option.

OK, OK.  I'll give in.  The original poster is using Turbo 3.02.  3.0 does not
*use* any units.  The simplest way I see to do this is to redefine the 
standard Output to prn as follows:

program Test(Output);

begin
  WriteLn('This is CRT output');
  Assign(Output, 'prn');
  ReWrite(Output);
  WriteLn('This is PRN output');
end.

Good luck.
Brian


-- 
Brian Reese                           uw-beaver!pilchuck!seahcx!phred!brianr
Physio Control Corp., Redmond, Wa.                         brianr@phred.UUCP
"Do not write on this line.  This line has been left blank intentionally."