Article View: comp.sys.ibm.pc
Article #8548Re: com port nightmare
From: Michael Keukert
Date: Fri, 12 Jan 1990 21:04
Date: Fri, 12 Jan 1990 21:04
24 lines
958 bytes
958 bytes
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)
Technical Details
Message-ID:
<1994@rwthinf.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!attcan!uunet!mcsun!unido!rwthinf!cip-s01!pmkReferences:
<10561@bsu-cs.bsu.edu>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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