******** fig5.16 **********

	position
	find( element_type key, HASH_TABLE H )
	{
		position i, current_pos;

/*1*/		i=0;
/*2*/		current_pos = hash( key, H->table_size );
/*3*/		while( (H->the_cells[current_pos].element != key ) &&	/* Probably need strcmp!! */
				(H->the_cells[current_pos].info != empty ) )
		{
/*4*/			current_pos += 2*(++i) - 1;
/*5*/			if( current_pos > H->table_size )
/*6*/				current_pos -= H->table_size;
		}

/*7*/		return current_pos;
	}