**fig3_13.txt**

/* 1*/	// Insert X after the current position.
/* 2*/	// X becomes the current element.
/* 3*/	// Header implementation assumed.

/* 4*/	template <class Etype>
/* 5*/	void
/* 6*/	List<Etype>::
/* 7*/	Insert( const Etype & X )
/* 8*/	{
/* 9*/	    Node *P = new Node( X, Current_Pos->Next );

/*10*/	    if( P == NULL )
/*11*/	        Error( "Out of space" );
/*12*/	    else
/*13*/	    {
/*14*/	        Current_Pos->Next = P;
/*15*/	        Current_Pos = Current_Pos->Next;
/*16*/	    }
/*17*/	}