*! 1.0.1  14mar2000  jw/ics
program define dropvars
	version 6

	while "`1'" != "" {
		capture drop `1'
		if _rc {
			local nodropv "`nodropv' `1'"
		}
		mac shift
	}
	if "`nodropv'" != "" {
		di in gr "Unable to drop" in ye "`nodropv'"
	}
end