C -- ACNVT.FOR C C -- BINARY TO ASCII ROUTINE C SUBROUTINE ACNVT(ARG,N,IARG) INTEGER ZERO LOGICAL*1 ARG(1) DATA MASK/7/ DATA ZERO/'0 '/ I=IARG J=N DO 10 K=1,N ARG(J)=(I.AND.MASK)+ZERO I=I/8 J=J-1 10 CONTINUE RETURN END