Path: utzoo!mnetor!uunet!husc6!bbn!rochester!udel!burdvax!bpa!cbmvax!vu-vlsi!lehi3b15!lafcol!pilgrimk
From: pilgrimk@lafcol.UUCP (Pilgrim Kenwyn A)
Newsgroups: comp.lang.pascal
Subject: Re: Output redirect
Message-ID: <197@lafcol.UUCP>
Date: 14 Apr 88 21:27:03 GMT
References: <100@avsd.UUCP>
Distribution: na
Organization: Academic Computer Center, Lafayette College
Lines: 30

In article <100@avsd.UUCP>, govett@avsd.UUCP (David Govett) writes:
> I'm studying Personal Pascal for the Atari ST, but am having trouble
> redirecting output to the printer.  
> I know that 
> 	       writeln(output,'text')
> 
> will output to the screen, but how do I redirect output from
> standard output to the printer?  
> 
> Please give a specific example, if possible.
> 
> Thanks for any help.
This works in TP3. The only non-standard function is assign.

var Dev : text; {file of char}
    
begin
    .
    .
    .
    assign(Dev, 'lpt1:'); {or try assign(Dev, 'lpt1')};
    rewrite(Dev);
    .
    .
    .
    close(Dev);
end.

You could set up a case staement to decide to which device the ouput 
should go to.