program define mpredict
version 2.1
	if "%_*"=="" {
		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, 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