106 	register NODE *cur, *prev;  in del1()  local
108 	for (prev = cur = fplist; cur != (NODE *)NULL; cur = cur->next) {  in del1()
109 		if (cur == oldcur) {  in del1()
110 			if (cur == fplist) {  in del1()
111 				cur = fplist = cur->next;  in del1()
113 				prev->next = cur->next;  in del1()
114 				cur = prev->next ? prev->next : prev;  in del1()
121 		prev = cur;  in del1()
123 	return(cur);  in del1()
143 	register NODE *cur;  in my_fclose()  local
147 		cur = search(iop);  in my_fclose()
148 		cur = del1(cur);  in my_fclose()