*! version 1.0.0  06/22/94      ssi6.2, STB-21
program define post 
	version 3.1

	local i 1
	while `i'<=scalar(POST_p) { 
		local eval : display ``i''
		global POSTV`i' "${POSTV`i'} `eval'"
		local i=`i'+1
	}
	scalar POST_k = scalar(POST_k) + 1
	if scalar(POST_k == POST_K) { post_fl } 
end