program def ctabstat
*! NJC 1.1.0 30 June 2000 
	version 6.0 

	syntax varlist(numeric) [if] [in] [aw fw] /* 
	*/ [ , Columns(str) sep * ]

	if "`columns'" == "" { local columns "s" } 
        if "`sep'" == "" { local sep "nosep" } 
		 
	tabstat `varlist' `if' `in' [`weight' `exp'] , /* 
	*/ `options' c(`columns') `sep'    
end