C
C
	PROGRAM		A E T S T


	LOGICAL*1	IN(80), OUT(80)


C10	WRITE	(5,110)
C110	FORMAT	(/'$Enter conversion mode [0= A->E, 1= E->A]', 
C     $		 T45, ': ')
C	READ	(5,210,END=999,ERR=10) NB, MOD
C210	FORMAT	(Q, I1)
C	IF	(NB .EQ. 0)	GOTO 10

20	WRITE	(5,120)
120	FORMAT	(/'$Enter character(s)', T45, ': ')
	READ	(5,220,END=999,ERR=20) NB, (IN(I),I=1,NB)
220	FORMAT	(Q, 20A1)
	IF	(NB .EQ. 0)	GOTO 20

	WRITE	(5,320)	(IN(I),I=1,NB)
320	FORMAT	(/' Initial octal value(s)', 
     $		 /' ', 20O4)

	CALL	ASCEBC	(IN, NB, OUT, 0)

	WRITE	(5,420)	(OUT(I),I=1,NB)
420	FORMAT	(/' Converted octal value(s)', 
     $		 /' ', 20O4)

	CALL	ASCEBC	(OUT, NB, IN, 1)

	WRITE	(5,520)	(IN(I),I=1,NB)
520	FORMAT	(/' Back-converted octal value(s)', /' ', 20O4)
	WRITE	(5,620)	(IN(I),I=1,NB)
620	FORMAT	(/' ASCII string', T45, '= ', 20A1)

	GOTO	20

999	STOP
	END