Diversity of locations for Bacillus thuringiensis crystal protein genes