[comp.os.vms] DCL write with no carriage return

carl@CITHEX.CALTECH.EDU (04/08/88)

Some time ago, there was a question regarding the possibility of using a
DCL command to write a record to a terminal without a carriage return at
the end.  As I recall, the concensus was that it wasn't possible.  The
following DCL procedure shows that there IS a way to do this, if you're
willing to sacrifice type-ahead to do so:
	$	n = 0
	$	string = "This /is /an /example/."
	$	set term/notype
	$ loop:	prompt = f$element(n,"/",string)
	$	if prompt .eqs. "/" then goto done
	$	n = n + 1
	$	read/prompt="''prompt'"/time=0/err=loop sys$command fubar
	$ done:	set term/type