suest.dlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
  suest

*! VERSION 1.1.0  10jan2005

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE header

HELP hlp1, view("help suest")
RESET res1

DIALOG main, label("suest - Seemingly unrelated estimation") /*
		*/ tabtitle("Model")
BEGIN
  TEXT     tx_name         _lft      _top       _iwd     .,		/*
  		*/label(`"Models:  (type "." for current model)"')
  COMBOBOX cb_name         @         _ss        @        .,		/*
  		*/label("Models")					/*
  		*/contents(estimates)					/*
		*/append dropdown

  TEXT     tx_clus         @         _ls        _iwd     .,		/*
  		*/label("Cluster variable: (optional)")
  VARNAME  vn_clus         @         _ss        _vnwd    .,		/*
  		*/label("Cluster variable")				/*
  		*/option(cluster)
END

DIALOG rpt, tabtitle("Reporting")
BEGIN
  DEFINE _x _lft
  DEFINE _y _top
  DEFINE _cx _sprb
  INCLUDE _sp_level

  CHECKBOX ck_dir          _lft      _ls        _iwd     .,		///
  	label("Display a table describing the models")			///
  	option(dir)

  TEXT     tx_eform        _lft      _ms        _iwd     .,		///
	label("Report exponentiated coefficients and use this table header:")
  EDIT     vl_eform        @         _ss        _vnwd    .,		///
	option(eform)							///
	label("Report exponentiated coefficients and use this table header")
END

PROGRAM command
BEGIN
	put "suest "
	require main.cb_name
	put main.cb_name
	beginoptions
		optionarg main.vn_clus
		optionarg /hidedefault rpt.sp_level
		option rpt.ck_dir
		optionarg rpt.vl_eform
	endoptions
END