CHARACTER	IA(100)
	J =	IORPR(4,'Does this work',,%DESCR(IA),10,60,"37777777777
	1,IERR,ISIZE)
	WRITE(5,1000)J,IERR,Isize,(IA(I),I=1,isize)
1000	FORMAT(//2O12,I12,20(/16O4))
	END