IMPLICIT INTEGER (A-Z)
	OPEN(UNIT=1,NAME='WITHOUT.TST',TYPE='NEW')
	OPEN(UNIT=2,NAME='WITH.TST',TYPE='NEW')
	IER=PUBLIC(2)
	WRITE(5,50)IER
50	FORMAT(' ERROR RETURN WAS',I7)
	WRITE(1,100)
	WRITE(2,100)
100	FORMAT(' HELLO THERE!')
	END