C
C COPYRIGHT (C) 1976
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
	SUBROUTINE MODE13(TEXT,IFLAG,IBASE)
	IMPLICIT INTEGER(A-Z)
	DIMENSION TEXT(61)
	DIMENSION OUT(6)
	DATA BLANK/' '/
	J=IFLAG
	DO 10 I=1,6
	K=MOD(J,IBASE)
	OUT(7-I)=BLANK
	OUT(7-I)[0:6]=#60+K
	J=J/IBASE
10	CONTINUE
	DO 20 I=7,60
	IF(TEXT(61-I).NE.BLANK) GO TO 30
20	CONTINUE
	I=61
30	CONTINUE
	I=61-I
	DO 40 J=1,6
40	TEXT(I+J)=OUT(J)
	TEXT(I+7)[0:6]=#15
	WRITE(2,50)TEXT
50	FORMAT(61A1)
	RETURN
	END
