SUBROUTINE DEVAAA(IN1,IN2,AOUT)
C.. THIS ROUTINE RETURNS A 8 CHAR (I5,I3) ALPHA CHARACTER
	BYTE AOUT(8)
	ENCODE(8,8,AOUT)IN1,IN2
8	FORMAT(I5,I3)
	IBL=0
	DO 1 I=1,8
	IF(AOUT(I).EQ.'0'.AND.IBL.EQ.0) AOUT(I)=' '
	IF(AOUT(I).NE.' ')IBL=I
	IF(AOUT(I).EQ.' '.AND.IBL.GT.0) AOUT(I)='0'
1	CONTINUE
	RETURN
	END