*! 1.0.0 NJC 26 March 1999 STB-49 dm67
program define nmissing
	version 6.0
	syntax [varlist] [if] [in] [, min(int 1) ] 
	tempvar touse  
	mark `touse' `if' `in'
	tokenize `varlist'
	di
	while "`1'" != "" {
		qui count if missing(`1') & `touse'
		if r(N) >= `min' { di in g "`1'" _col(12) in y %6.0f r(N) }
		mac shift
	}
end