SUBROUTINE UICPRT (IUIC,UICP)
C***********************************
C
C   PRINTER CONVERSION SUBROUTINE.
C   RECEIVES AN INTEGER*4 UIC #
C   AND CONVERTS IT TO 6 BYTES 
C   IN ASCII.
C
C***********************************
	LOGICAL*1 UICP(6),LINE1(4)
	INTEGER*2 LINE2(2)
	INTEGER*4 LINE4,IUIC
	EQUIVALENCE (LINE4,LINE1,LINE2)
	DATA LINE4/0/
C
	LINE4=IUIC
	LINE1(3)=LINE1(1)
	LINE1(1)=LINE1(2)
	LINE1(2)=0
	ENCODE (6,9000,UICP) LINE2
9000	FORMAT (2O3)
C
	RETURN
	END