byte	IA(4),IB(10),IC,ID(10)
	data ia/'35'o,'37'o,'33'o,'32'o/
	data IC/'30'o/
	CALL	IORPR(5,%DESCR(IA),4,%DESCR(IB),7,
	1 60,0,IERR,ISIZI)
	CALL	IORPR(5,%DESCR(IC),1,%DESCR(ID),7,
	1 1,0,IERR,ISIZ)
	TYPE *,'number of char',ISIZI,'input',IB
	END