*! version 1.0.0  06/22/94       STB-20: ssi6
program define postfile
	version 3.1
	post_zap 
	while "`1'" != "using" {
		if "`1'"=="" {
			di in red "using required"
			exit 198
		}
		capture confirm new var `1'
		if _rc {
			capture confirm var `1'
			if _rc { 
				di in red "`1' invalid name"
				exit 198
			}
		}
		local postvar "`postvar' `1'"
		mac shift
	}
	local p : word count `postvar'
	if `p'==0 { 
		di in red "varlist required"
		exit 100
	}
	

	local using "req noprefix"
	local options "Every(integer 0) REPLACE"
	parse "`*'"

	if `every'<=1 { local every 32 }
	if `every' > cond("$S_FLAVOR"=="Intercooled",208,22) {
		local every = cond("$S_FLAVOR"=="Intercooled",32,22)
	}
	local K `every'

	if index("`using'",".")==0 { 
		local using "`using'.dta"
	}

	if "`replace'"!="" {
		capture erase `using'
	}
	else {
		confirm new file `using'
	}

	scalar POST_K = `K'
	scalar POST_k = 0
	scalar POST_p = `p'
	global POST_fn "`using'"
	scalar POST_n = 0
	global POST_vl "`postvar'"
end