*! version 2.0.0 Thu Feb 25 11:57:11 PST 1993
program define chkdp
	version 3.0
	if "`1'"=="save" {
		quietly describe
		mac def SYSVAR = _result(1)
		mac def SYSOBS = _result(2)
		mac def SYSWID = _result(3)
		exit
	}
	quietly describe
	assert $SYSVAR == _result(1)
	assert $SYSOBS == _result(2)
	assert $SYSWID == _result(3)
end