******** fig5.9 **********

	position
	find( element_type key, HASH_TABLE H )
	{
		position p;
		LIST L;

/*1*/		L = H->the_lists[ hash( key, H->table_size ) ];
/*2*/		p = L->next;
/*3*/		while( (p != NULL) && (p->element != key) )	/* Probably need strcmp!! */
/*4*/			p = p->next;
/*5*/		return p;
	}