PROGRAM	ICEDOWN

	INTEGER * 4	SYS$SETPRI

	IRET = SYS$SETPRI( %VAL(0), %VAL(0), %VAL(4), %VAL(0) )
	IF( .NOT. IRET ) CALL EXIT( IRET )

	CALL EXIT
	END