**fig3_16.txt**

/* 1*/	// Delete an entire list.
/* 2*/	// Header assumed.

/* 3*/	template <class Etype>
/* 4*/	void
/* 5*/	List<Etype>::
/* 6*/	Delete_List( )
/* 7*/	{
/* 8*/	    Node *P = List_Head->Next, *Temp;

/* 9*/	    while( P != NULL )
/*10*/	    {
/*11*/	        Temp = P->Next;
/*12*/	        delete P;
/*13*/	        P = Temp;
/*14*/	    }
/*15*/	    delete List_Head;
/*16*/	}