PROGRAM TIM101
C
C
	LOGICAL*1 STATUS(10)


	CALL IM0101(4,STATUS,NS,IER)

	WRITE(6,30) IER,NS,(STATUS(I),I=1,NS)
30	FORMAT(/' ERROR: ',I5,'   STATUS: ',I5,10O5/)

1000	STOP
	END