Path: utzoo!attcan!uunet!tektronix!reed!reeder
From: reeder@reed.UUCP (Doug Reeder)
Newsgroups: comp.lang.pascal
Subject: Dual Output (was: DUEL OUTPUT)
Message-ID: <11962@reed.UUCP>
Date: 28 Feb 89 20:22:43 GMT
References: <18461@adm.BRL.MIL>
Reply-To: reeder@reed.UUCP (Doug Reeder)
Organization: Reed College, Portland OR
Lines: 25


The following approach is suitable for some programs and is standard pascal:

program anniversary(output,diskfile);
var
  diskfile : text;

procedure SendOutput(f : text);
begin
  write(f,'The 20th anniversary of humanity'); 
  writeln(f,'landing on the Moon is this July.');
  writeln(f);
end;

begin {main}
  rewrite(diskfile);
  SendOutput(output);
  SendOutput(diskfile);
end.

-- 
Doug Reeder                         USENET: ...!tektronix!reed!reeder
Box 971                             BITNET: reeder@reed.BITNET
Imperial University              from ARPA: tektronix!reed!reeder@berkeley.EDU
Trantor                             Box 971 Reed College,Portland,OR 97202