program define dsum 
*! v 1.2 gmh sep 6 00
syntax [varlist] [if] [in] [aweight fweight]
* unabbrev `varlist'
tokenize `varlist'
if "`weight'"~="" {
	local wt = "[`weight'`exp']"
	}
di ""
di in gr "Variable |     Obs        Mean   Std. Dev.   Label"
di in gr "---------|--------------------------------------------------------------------"
while "`1'" ~="" {

	qui sum `1' `if' `in' `wt'
	local label: var label `1'
	di in gr _col(1) %8s "`1'" _col(10) "|" _col(13) in ye %7.0g r(N) _col(23) %9.6g r(mean) _col(33)  %9.6g r(sd) _col(46) "`label'"
	macro shift
	}
end