	SUBROUTINE ADEOUT(N,IACS)
C
	DIMENSION IACS(1)
C
	DO 10 I=1,N
	J=IACS(I)
	J=(J .AND. "377) .OR. "200
	WRITE(13,100) J
100	FORMAT('+',A1,$)
10	CONTINUE
	RETURN
	END
