--- np2/common/milstr.c	2003/11/21 06:51:10	1.4
+++ np2/common/milstr.c	2004/02/18 02:03:36	1.5
@@ -477,3 +477,14 @@ long milstr_solveINT(const char *str) {
 	return(ret * s);
 }
 
+
+const char *milstr_list(const char *lststr, UINT pos) {
+
+	while(pos) {
+		pos--;
+		while(*lststr++ != '\0') {
+		}
+	}
+	return(lststr);
+}
+