*! version 1.0.0  1oct1996
program define rrecode /* varname rule [rule..] [if] [in] */
        version 4.0
	local vn = "`1'"
	mac shift
	recode `vn' `*'
	note `vn': "rrecode `*'"
end