SUBROUTINE NUMBRF(IX,IY,A,NSIG)
	BYTE	IA(20)
	N	= NSIG
	IF(N .LT. 1 .OR. N .GT. 8)N	= 8
	N	= N + 6				! NUMBER OF BYTES TO CONVERT
	CALL	FCONVT(A,IA,N)
	J	= N
	DO 10 I	= 2,N
	IF(IA(I) .EQ. ' ')GO TO 10
	J	= I
10	CONTINUE
	CALL CHAR(IX,IY,IA,J)
	END