******** fig3.36 **********

	position
	find( element_type x, LIST L )		/* using a header node */
	{
		position p;

/*1*/		p = CURSOR_SPACE[L].next;
/*2*/		while( p && CURSOR_SPACE[p].element != x )
/*3*/			p = CURSOR_SPACE[p].next;
/*4*/		return p;
	}