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