*! version 1.0.0  06/22/94       STB-20: ssi6
program define post_zap
	version 3.1

	tempname x

	capture scalar list POST_p
	if _rc==0 { 
		local i 1
		while `i'<=scalar(POST_p) {
			global POSTV`i'
			local i=`i'+1
		}
	}
	cap scalar drop POST_p
	cap scalar drop POST_K
	cap scalar drop POST_k
	cap scalar drop POST_n
	global POST_fn
	global POST_vl
end