SUBROUTINE NUMBR2(IX,IY,IVAL)
	INTEGER*4 IVAL
	LOGICAL*1 IA(12)
	ENCODE(12,1000,IA)IVAL			!TURN NUMBER INTO CHAR STR.
	DO 10 J	= 12,1,-1			!SEARCH THRU 11 CHAR.
	IF(IA(J) .NE. ' ')MIN	= J
10	CONTINUE
	ISIZ	= 13-MIN
	IXN	= IX
	I	= 1023 - 14*(ISIZ)
	IF(IXN .GT. I)IXN	= I
	CALL CHAR(IXN,IY,IA(MIN),ISIZ)		!WRITE THE NUMBER
	RETURN
1000	FORMAT(I12)
	END