**fig3_15.txt**

/* 1*/	// Wrong way to destroy an entire list.
/* 2*/	// Header assumed.

/* 3*/	template <class Etype>
/* 4*/	void
/* 5*/	List<Etype>::
/* 6*/	Destroy_List( )
/* 7*/	{
/* 8*/	    Node *P = List_Head->Next;
/* 9*/	    while( P != NULL )
/*10*/	    {
/*11*/	        delete P;
/*12*/	        P = P->Next;
/*13*/	    }
/*14*/	    delete List_Head;
/*15*/	    Current_Pos = List_Head->Next;
/*16*/	}