From:	CSBVAX::MRGATE!carl@CitHex.Caltech.Edu@SMTP 11-APR-1988 11:44
To:	ARISIA::EVERHART
Subj:	DCL write with no carriage return


Received: from CitHex.Caltech.Edu by KL.SRI.COM with TCP; Fri 8 Apr 88 07:42:54-PDT
Date:    Fri, 8 Apr 88 07:43:59 PDT
From:     carl@CitHex.Caltech.Edu
Message-Id: <880408074359.242@CitHex.Caltech.Edu>
Subject: DCL write with no carriage return
To:       info-vax@CitHex.Caltech.Edu
X-ST-Vmsmail-To: ST%INFO-VAX

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