*! NJC 1.0.0 19 Sept 2005
program isvar, rclass
	version 8
	syntax anything

	foreach v of local anything {
		capture unab V : `v'
		if _rc == 0 local varlist `varlist' `V'
		else        local badlist `badlist' `v'
	}

	di

	if "`varlist'" != "" {
		local n : word count `varlist'
		local what = plural(`n', "variable")
		di as txt "{p}`what': `varlist'{p_end}"
		return local varlist "`varlist'"
	}

	if "`badlist'" != "" {
		local n : word count `badlist'
		local what = plural(`n', "not variable")
		di as txt "{p}`what': `badlist'{p_end}"
		return local badlist "`badlist'"
	}
end