IC	= 4
	LUN	= 5
	WRITE(5,1003)
	CALL	FCNA(LUN,17,IC,30,0,"2000,IQ,IX)
1	WRITE(5,1000)
1000	FORMAT('$Enter F,N,A,DATA: ')
	READ(5,1001) IF,IN,IA,ID
	CALL	FCNA(LUN,IF,IC,IN,IA,ID,IQ,IX)
	WRITE(5,1002) ID,ID,ID,IQ,IX
	GO TO 1
1001	FORMAT(3I10,O20)
1002	FORMAT( ' DATA ='I12'^D,'O12'^O,'Z8'^H,  Q='I3', X='I3)
1003	FORMAT(' F,N,A are entered in decimal'/' DATA in octal')
	END