Path: utzoo!mnetor!uunet!husc6!mailrus!ames!pasteur!ucbvax!CITHEX.CALTECH.EDU!carl
From: carl@CITHEX.CALTECH.EDU
Newsgroups: comp.os.vms
Subject: DCL write with no carriage return
Message-ID: <880408074359.242@CitHex.Caltech.Edu>
Date: 8 Apr 88 14:43:59 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 13

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