SUBROUTINE HITSEN
	CALL	CUTSAV
	CALL	HISSAV
	CALL	PARSAV
	CALL	PTOLP
	CALL	HISTO(0)
	CALL	CLOSE(6)
	END
	SUBROUTINE	HITSBE
	CALL	ZHIST(0)
	END