gbar_pr_98s.idlg

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

 /*
  gbar_pr_98 - Programming for bar and hbar charts
  **Special version for Windows95/98

  VERSION 1.0.0  08jan2003

*/

if !main.vn_stat1A & !main.vn_stat1B & !main.vn_stat1C & 	/*
		*/!main.vn_stat1D  	/*
		*/& !H(main.cb_stat2) {
		stopbox stop "At least one variable must be specified"
	}
	if H(main.cb_stat2) & !main.vn_stat1A & !main.vn_stat1B & 	/*
		*/!main.vn_stat1C & !main.vn_stat1D {
		if !main.vn_stat2A & !main.vn_stat2B &			/*
		*/!main.vn_stat2C & !main.vn_stat2D { 
		stopbox stop "At least one variable must be specified"
		}
	}
	if !H(main.sp_stat1) {
		put "(" main.cb_stat1 main.sp_stat1 ") "
	}
	if H(main.sp_stat1) {
		optionarg main.cb_stat1
	}
	if main.vn_stat1A & main.ed_stat1A {
		put main.ed_stat1A " ="
	}
	put " "main.vn_stat1A
	if main.vn_stat1B & main.ed_stat1B {
		put " "main.ed_stat1B " ="
	}
	put " "main.vn_stat1B
	if main.vn_stat1C & main.ed_stat1C {
		put " "main.ed_stat1C " ="
	}
	put " "main.vn_stat1C
	if main.vn_stat1D & main.ed_stat1D {
		put " "main.ed_stat1D " ="
	}
	put " "main.vn_stat1D
	put " "

	/* stat2 */
	if main.vn_stat2A | main.vn_stat2B | main.vn_stat2C |	/*
		*/main.vn_stat2D  {
		if !H(main.sp_stat2) {
			put "(" main.cb_stat2 main.sp_stat2 ") "
		}
		if H(main.sp_stat2) {
			optionarg main.cb_stat2 
		}
	}
	if main.vn_stat2A & main.ed_stat2A {
		put main.ed_stat2A " ="
	}
	put " "main.vn_stat2A
	if main.vn_stat2B & main.ed_stat2B {
		put " "main.ed_stat2B " ="
	}
	put " "main.vn_stat2B
	if main.vn_stat2C & main.ed_stat2C {
		put " "main.ed_stat2C " ="
	}
	put " "main.vn_stat2C
	if main.vn_stat2D & main.ed_stat2D {
		put " "main.ed_stat2D " ="
	}
	put " "main.vn_stat2D
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		put " " /program gover_output
		put " " /program gby_output
		put " " /program gbarstyle_output 
		put " " /program gbarlabel_output
		put " " /program gbaropt_output
		put " " /program gbaryaxis_output
		put " " /program gtitle_output
		put " " /program glegend_output
		put " " /program gregion_output
	endoptions
/* END */