Xref: utzoo comp.sys.ibm.pc:41961 comp.lang.pascal:2919
Path: utzoo!attcan!uunet!mcsun!unido!rwthinf!cip-s01!pmk
From: pmk@cip-s01.informatik.rwth-aachen.de (Michael Keukert)
Newsgroups: comp.sys.ibm.pc,comp.lang.pascal
Subject: Re: com port nightmare
Message-ID: <1994@rwthinf.UUCP>
Date: 12 Jan 90 21:04:35 GMT
References: <10561@bsu-cs.bsu.edu>
Sender: news@rwthinf.UUCP
Reply-To: pmk@cip-s01.UUCP (Michael Keukert)
Followup-To: comp.sys.ibm.pc
Organization: Informatik RWTH Aachen
Lines: 24


Try this for quick and dirty:

VAR f1,f2:File of byte;
     data:byte;

ASSIGN (f1,'COM1:');
ASSIGN (f2,'COM2:');
Reset(f1);
Rewrite(f2);

REPEAT
 READ(f1,data);
 WRITE(f2,data);
UNTIL EOF(f1);

CLOSE(f1);
CLOSE(f2);

This shall work for the beginning...

--------------------------------------------------------------------------
 Michael Keukert, Elsasstrasse 58, D-5100 Aachen 35, Phone: +49 241 513297
 Twenty bucks per day plus expenses, hundred in advance.      (Sam Spade)