SUBROUTINE FUDGE(X,IX,IY)
	CALL RANDU(IX,IY,Z)
	IX=IY
	X=400.*Z-130.
	IF(X.LE.70) X=X-140.
	RETURN
	END