Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site fortune.UUCP
Path: utzoo!watmath!clyde!floyd!harpo!ulysses!mhuxl!ihnp4!fortune!rpw3
From: rpw3@fortune.UUCP
Newsgroups: net.unix
Subject: Re: Modified CU wanted - (nf)
Message-ID: <3046@fortune.UUCP>
Date: Thu, 12-Apr-84 04:10:18 EST
Article-I.D.: fortune.3046
Posted: Thu Apr 12 04:10:18 1984
Date-Received: Fri, 13-Apr-84 07:58:54 EST
Sender: notes@fortune.UUCP
Organization: Fortune Systems, Redwood City, CA
Lines: 43

#R:aluxp:-122300:fortune:26900044:000:1270
fortune!rpw3    Apr 12 00:08:00 1984

I am almost embarrassed to post this, but here it is. To send files
to a non-UNIX system (or to a UNIX system if the baud rate is so high
the UNIX on the other end gags, like anything over 300 baud!), I use
the amazing program 'slowcat'! Usage from cu:

	[ dialog with other system, TOPS-10, say ]
	.copy file.ext=tty:	;start the transfer
	~!slowcat 30 <file.to.send >/dev/cul0      # cu ~! escape
	[ you see echo from other system as if you had typed file ]
	^Z			;finish it
	.

The use with UNIX is similar and obvious. (Note: no "-" before "30".)
Larger args get lower transmission speeds.  On my machine, running as
the only user, an argument of "30" gets approximately 28 chars/sec.
Your mileage may vary. ;-}

Rather than tie up net resources sending to net.sources, I include
the entire source of 'slowcat' here, to wit:

+--------------------
| main(argc,argv)
| int argc; char **argv;
| {	int i, c, slowness;
| 
| 	slowness = ((argc > 1) ? atoi(*++argv) : 0) * 100;
| 
| 	while ( read(0,&c,1) == 1){
| 		for(i = slowness ; --i > 0 ;);
| 		write(1,&c,1);
| 	}
| }
+--------------------

Rob Warnock

UUCP:	{ihnp4,ucbvax!amd70,hpda,harpo,sri-unix,allegra}!fortune!rpw3
DDD:	(415)595-8444
USPS:	Fortune Systems Corp, 101 Twin Dolphin Drive, Redwood City, CA 94065