# Written by request for larne on Mar 26, 2004
# The name was suggested by anguzhawk

alias slowcat (filename, void) {
	@ slowcat.fd = open($filename R)
	if (slowcat.fd < 0) {
		echo $filename does not exist or I can't open it.
		return
	}

	//timer -refnum slowcat -repeat -1 0.5 {
		if (eof($slowcat.fd)) {
			@close($slowcat.fd)
			@slowcat.fd = -1
			//timer -delete slowcat
		} else {
			@slowcat.line = read($slowcat.fd)
			//send $slowcat.line
		}
	}
}
#hop'y2k4
