*! verson 1.0.1  03/16/93  STB-12 sbe2.1
program define mpredict
	version 3.0
	if "`1'"=="" {
		di in red "invalid syntax -- see help mpredict"
		exit 198
	}
	mac def _options "PParm(string) PTime(string) *"
	mac def _varlist "ex"
	mac def _if "opt"
	mac def _in "opt"
	parse "`*'"
	qui save _baileyw.dta, replace
	capture {
		!echo options altquote ; > _parmfil
		!echo stata #_baileyw.dta#; >> _parmfil
		mac shift
		!echo output #_baileyp.dta#; >> _parmfil
		!echo parmdsn #_bailey.mta#; >> _parmfil
		!echo ptime %_ptime ; >> _parmfil
		!echo pparm %_pparm ; >> _parmfil
		!predict _parmfil
	}
	mac def _rc = _rc
	cap drop _merge
	merge using _baileyp
	erase _baileyw.dta
	erase _baileyp.dta
	drop _merge
	exit `rc'
end