C
C COPYRIGHT (C) 1975
C DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
C ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
C THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS
C SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO-
C VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
C EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
C THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
C SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
C
C THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
C WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-
C MITMENT BY DIGITAL EQUIPMENT CORPORATION.
C
C DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
C OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY
C DEC.
C
C
C EDIT #1	M. HEBENSTREIT		12/15/75
C
	SUBROUTINE TTOUT(TEXT,NR)
	REAL TEXT(NR)
	REAL BLANK
	DATA BLANK/5H     /
100	FORMAT(1X,12A5)
	DO 10 I=0,NR
	IF(TEXT(NR-I).NE.BLANK)GOTO 30
10	CONTINUE
	GOTO 20
30	IF(I.EQ.0)GOTO 20
	TEXT(NR-I+1)[0:6]=#15
20	WRITE(10,100)TEXT
	RETURN
	END