*! version 1.0.1  Fri Apr  8 10:46:59 CDT 1994  (STB20: sg25)
program define xi_eicu	/* <contvar_name> */
	version 3.1
	local vn "`1'"
	global S_1
	if "$X__cont" != "" {
		parse "$X__cont", parse(" ")
		local i 1
		while "``i''"!="" {
			if "``i''"=="`vn'" { exit }
			local i=`i'+1
		}
	}
	global S_1 "`vn' "		/* sic */
	global X__cont "$X__cont `vn'"
end