gbar_pr_98.idlg

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

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

  VERSION 1.0.0  21dec2002

*/

if !main.vn_stat1A & !main.vn_stat1B & !main.vn_stat1C & 	/*
		*/!main.vn_stat1D & !main.vn_stat1E & !main.vn_stat1F 	/*
		*/& !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 & !main.vn_stat1E & /*
		*/!main.vn_stat1F {
		if !main.vn_stat2A & !main.vn_stat2B &			/*
		*/!main.vn_stat2C & !main.vn_stat2D & !main.vn_stat2E & /*
		*/!main.vn_stat2F {
			if !main.vn_stat3A & !main.vn_stat3B &		/*
		*/!main.vn_stat3C & !main.vn_stat3D & !main.vn_stat3E & /*
		*/!main.vn_stat3F {
				if !main.vn_stat4A & !main.vn_stat4B &	/*
		*/!main.vn_stat4C & !main.vn_stat4D & !main.vn_stat4E & /*
		*/!main.vn_stat4F {
		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
	if main.vn_stat1E & main.ed_stat1E {
		put " "main.ed_stat1E " ="
	}
	put " "main.vn_stat1E
	if main.vn_stat1F & main.ed_stat1F {
		put " "main.ed_stat1F " ="
	}
	put " "main.vn_stat1F
	put " "

	/* stat2 */
	if main.vn_stat2A | main.vn_stat2B | main.vn_stat2C |	/*
		*/main.vn_stat2D | main.vn_stat2E | main.vn_stat2F {
		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
	if main.vn_stat2E & main.ed_stat2E {
		put " "main.ed_stat2E " ="
	}
	put " "main.vn_stat2E
	if main.vn_stat2F & main.ed_stat2F {
		put " "main.ed_stat2F " ="
	}
	put " "main.vn_stat2F
	put " "

	/* stat3 */
	if main.vn_stat3A | main.vn_stat3B | main.vn_stat3C |	/*
		*/main.vn_stat3D | main.vn_stat3E | main.vn_stat3F {
		if !H(main.sp_stat3) {
			put "(" main.cb_stat3 main.sp_stat3 ") "
		}
		if H(main.sp_stat3) {
			optionarg main.cb_stat3
		}
	}
	if main.vn_stat3A & main.ed_stat3A {
		put main.ed_stat3A " ="
	}
	put " "main.vn_stat3A
	if main.vn_stat3B &  main.ed_stat3B {
		put " "main.ed_stat3B " ="
	}
	put " "main.vn_stat3B
	if main.vn_stat3C & main.ed_stat3C {
		put " "main.ed_stat3C " ="
	}
	put " "main.vn_stat3C
	if main.vn_stat3D & main.ed_stat3D {
		put " "main.ed_stat3D " ="
	}
	put " "main.vn_stat3D
	if main.vn_stat3E & main.ed_stat3E {
		put " "main.ed_stat3E " ="
	}
	put " "main.vn_stat3E
	if main.vn_stat3F & main.ed_stat3F {
		put " "main.ed_stat3F " ="
	}
	put " "main.vn_stat3F
	put " "

	/* stat4 */
	if main.vn_stat4A | main.vn_stat4B | main.vn_stat4C |	/*
		*/main.vn_stat4D | main.vn_stat4E | main.vn_stat4F {
		if !H(main.sp_stat4) {
			put " (" main.cb_stat4 main.sp_stat4 ") "
		}
		if H(main.sp_stat4) {
			optionarg main.cb_stat4
		}
	}
	if main.vn_stat4A & main.ed_stat4A {
		put main.ed_stat4A " ="
	}
	put " "main.vn_stat4A
	if main.vn_stat4B & main.ed_stat4B {
		put " "main.ed_stat4B " ="
	}
	put " "main.vn_stat4B
	if main.vn_stat4C & main.ed_stat4C {
		put " "main.ed_stat4C " ="
	}
	put " "main.vn_stat4C
	if main.vn_stat4D & main.ed_stat4D {
		put " "main.ed_stat4D " ="
	}
	put " "main.vn_stat4D
	if main.vn_stat4E & main.ed_stat4E {
		put " "main.ed_stat4E " ="
	}
	put " "main.vn_stat4E
	if main.vn_stat4F & main.ed_stat4F {
		put " "main.ed_stat4F " ="
	}
	put " "main.vn_stat4F
	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 gcaption_output
		put " " /program glegend_output
		put " " /program gregion_output
	endoptions
/* END */