DO 20 ICHAN=0,15
	DO 10 IREG=1,8
10	CALL WRF(ICHAN,IREG,0)
 20	CALL WRF(ICHAN,9,"100075)
	WRITE(5,1000)
 1000	FORMAT(' ALL MIOP FILE REGISTERS HAVE BEEN CLEARED'/)
	END