Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!decwrl!sun!pitstop!sundc!seismo!uunet!portal!cup.portal.com!Mannie
From: Mannie@cup.portal.com (William Allison Guynes)
Newsgroups: comp.lang.pascal
Subject: Re: DUEL OUTPUT
Message-ID: <15130@cup.portal.com>
Date: 26 Feb 89 17:26:45 GMT
References: <18461@adm.BRL.MIL>
Distribution: usa
Organization: The Portal System (TM)
Lines: 15

[Answer to request for DUAL OUTPUT routine]

   The only way I know of to send output to two output devices at once is
to create your own procedure.  It's also the simplest way I'm sure.

Procedure Dual_Writeln (str : string);
  Begin
    Writeln(str);
    Writeln(lst,str);
  End;

   I realize that this might have been obvious and that you were looking for
another (possibly easier) way to do this.  If there is, I don't know it, but
someone else might.
   Mannie@cup.portal.com