gbar.idlg

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

	gbar.ed_stat2C.hide
	gbar.tx_eq2C.hide
	gbar.vn_stat2C.hide
	gbar.ed_stat2D.hide
	gbar.tx_eq2D.hide
	gbar.vn_stat2D.hide
	gbar.ed_stat2E.hide
	gbar.tx_eq2E.hide
	gbar.vn_stat2E.hide
	gbar.ed_stat2F.hide
	gbar.tx_eq2F.hide
	gbar.vn_stat2F.hide
END

SCRIPT gbar_stat2_show
BEGIN
	gbar.ed_stat2A.show
	gbar.tx_eq2A.show
	gbar.vn_stat2A.show
	gbar.ed_stat2B.show
	gbar.tx_eq2B.show
	gbar.vn_stat2B.show
	gbar.ed_stat2C.show
	gbar.tx_eq2C.show
	gbar.vn_stat2C.show
	gbar.ed_stat2D.show
	gbar.tx_eq2D.show
	gbar.vn_stat2D.show
	gbar.ed_stat2E.show
	gbar.tx_eq2E.show
	gbar.vn_stat2E.show
	gbar.ed_stat2F.show
	gbar.tx_eq2F.show
	gbar.vn_stat2F.show
END

SCRIPT gbar_stat2_norm
BEGIN
	script gbar_stat2_show
	gbar.sp_stat2.disable
END

SCRIPT gbar_stat2_perc
BEGIN
	script gbar_stat2_show
	gbar.sp_stat2.enable
END

PROGRAM gbar_stat2_sd
BEGIN
	call script gbar_stat2_norm
END

/* stats3 */
LIST gbar_stats3_change
BEGIN
	script gbar_stat3_hide
	script gbar_stat3_norm
	script gbar_stat3_norm
	script gbar_stat3_perc /* enable pweights, enable sp_stat1 */
	program gbar_stat3_sd  /* warn on pweights with this one */
	script gbar_stat3_norm
END

SCRIPT gbar_stat3_hide
BEGIN
	gbar.sp_stat3.disable
	gbar.ed_stat3A.hide
	gbar.tx_eq3A.hide
	gbar.vn_stat3A.hide
	gbar.ed_stat3B.hide
	gbar.tx_eq3B.hide
	gbar.vn_stat3B.hide
	gbar.ed_stat3C.hide
	gbar.tx_eq3C.hide
	gbar.vn_stat3C.hide
	gbar.ed_stat3D.hide
	gbar.tx_eq3D.hide
	gbar.vn_stat3D.hide
	gbar.ed_stat3E.hide
	gbar.tx_eq3E.hide
	gbar.vn_stat3E.hide
	gbar.ed_stat3F.hide
	gbar.tx_eq3F.hide
	gbar.vn_stat3F.hide
END

SCRIPT gbar_stat3_show
BEGIN
	gbar.ed_stat3A.show
	gbar.tx_eq3A.show
	gbar.vn_stat3A.show
	gbar.ed_stat3B.show
	gbar.tx_eq3B.show
	gbar.vn_stat3B.show
	gbar.ed_stat3C.show
	gbar.tx_eq3C.show
	gbar.vn_stat3C.show
	gbar.ed_stat3D.show
	gbar.tx_eq3D.show
	gbar.vn_stat3D.show
	gbar.ed_stat3E.show
	gbar.tx_eq3E.show
	gbar.vn_stat3E.show
	gbar.ed_stat3F.show
	gbar.tx_eq3F.show
	gbar.vn_stat3F.show
END

SCRIPT gbar_stat3_norm
BEGIN
	script gbar_stat3_show
	gbar.sp_stat3.disable
END

SCRIPT gbar_stat3_perc
BEGIN
	script gbar_stat3_show
	gbar.sp_stat3.enable
END

PROGRAM gbar_stat3_sd
BEGIN
	call script gbar_stat3_norm
END


/* stats4 */
LIST gbar_stats4_change
BEGIN
	script gbar_stat4_hide
	script gbar_stat4_norm
	script gbar_stat4_norm
	script gbar_stat4_perc /* enable pweights, enable sp_stat1 */
	program gbar_stat4_sd  /* warn on pweights with this one */
	script gbar_stat4_norm
END

SCRIPT gbar_stat4_hide
BEGIN
	gbar.sp_stat4.disable
	gbar.ed_stat4A.hide
	gbar.tx_eq4A.hide
	gbar.vn_stat4A.hide
	gbar.ed_stat4B.hide
	gbar.tx_eq4B.hide
	gbar.vn_stat4B.hide
	gbar.ed_stat4C.hide
	gbar.tx_eq4C.hide
	gbar.vn_stat4C.hide
	gbar.ed_stat4D.hide
	gbar.tx_eq4D.hide
	gbar.vn_stat4D.hide
	gbar.ed_stat4E.hide
	gbar.tx_eq4E.hide
	gbar.vn_stat4E.hide
	gbar.ed_stat4F.hide
	gbar.tx_eq4F.hide
	gbar.vn_stat4F.hide
END

SCRIPT gbar_stat4_show
BEGIN
	gbar.ed_stat4A.show
	gbar.tx_eq4A.show
	gbar.vn_stat4A.show
	gbar.ed_stat4B.show
	gbar.tx_eq4B.show
	gbar.vn_stat4B.show
	gbar.ed_stat4C.show
	gbar.tx_eq4C.show
	gbar.vn_stat4C.show
	gbar.ed_stat4D.show
	gbar.tx_eq4D.show
	gbar.vn_stat4D.show
	gbar.ed_stat4E.show
	gbar.tx_eq4E.show
	gbar.vn_stat4E.show
	gbar.ed_stat4F.show
	gbar.tx_eq4F.show
	gbar.vn_stat4F.show
END

SCRIPT gbar_stat4_norm
BEGIN
	script gbar_stat4_show
	gbar.sp_stat4.disable
END

SCRIPT gbar_stat4_perc
BEGIN
	script gbar_stat4_show
	gbar.sp_stat4.enable
END

PROGRAM gbar_stat4_sd
BEGIN
	call script gbar_stat4_norm
END

SCRIPT gbar_setTabHbar
BEGIN
	gbar_commandName.setstring "hbar"
	settitle "graph hbar - Horizontal bar charts"
END

PROGRAM command
BEGIN
	put "graph " gbar_commandName " "

	if !gbar.vn_stat1A & !gbar.vn_stat1B & !gbar.vn_stat1C & 	/*
		*/!gbar.vn_stat1D & !gbar.vn_stat1E & !gbar.vn_stat1F 	/*
		*/& !H(gbar.cb_stat2) {
		stopbox stop "At least one variable must be specified"
	}
	if H(gbar.cb_stat2) & !gbar.vn_stat1A & !gbar.vn_stat1B & 	/*
		*/!gbar.vn_stat1C & !gbar.vn_stat1D & !gbar.vn_stat1E & /*
		*/!gbar.vn_stat1F {
		if !gbar.vn_stat2A & !gbar.vn_stat2B &			/*
		*/!gbar.vn_stat2C & !gbar.vn_stat2D & !gbar.vn_stat2E & /*
		*/!gbar.vn_stat2F {
			if !gbar.vn_stat3A & !gbar.vn_stat3B &		/*
		*/!gbar.vn_stat3C & !gbar.vn_stat3D & !gbar.vn_stat3E & /*
		*/!gbar.vn_stat3F {
				if !gbar.vn_stat4A & !gbar.vn_stat4B &	/*
		*/!gbar.vn_stat4C & !gbar.vn_stat4D & !gbar.vn_stat4E & /*
		*/!gbar.vn_stat4F {
		stopbox stop "At least one variable must be specified"
				}
			}
		}
	}
	if !H(gbar.sp_stat1) {
		put "(" gbar.cb_stat1 gbar.sp_stat1 ") "
	}
	if H(gbar.sp_stat1) {
		optionarg gbar.cb_stat1
	}
	if gbar.vn_stat1A & gbar.ed_stat1A {
		put gbar.ed_stat1A " ="
	}
	put " "gbar.vn_stat1A
	if gbar.vn_stat1B & gbar.ed_stat1B {
		put " "gbar.ed_stat1B " ="
	}
	put " "gbar.vn_stat1B
	if gbar.vn_stat1C & gbar.ed_stat1C {
		put " "gbar.ed_stat1C " ="
	}
	put " "gbar.vn_stat1C
	if gbar.vn_stat1D & gbar.ed_stat1D {
		put " "gbar.ed_stat1D " ="
	}
	put " "gbar.vn_stat1D
	if gbar.vn_stat1E & gbar.ed_stat1E {
		put " "gbar.ed_stat1E " ="
	}
	put " "gbar.vn_stat1E
	if gbar.vn_stat1F & gbar.ed_stat1F {
		put " "gbar.ed_stat1F " ="
	}
	put " "gbar.vn_stat1F
	put " "

	/* stat2 */
	if gbar.vn_stat2A | gbar.vn_stat2B | gbar.vn_stat2C |	/*
		*/gbar.vn_stat2D | gbar.vn_stat2E | gbar.vn_stat2F {
		if !H(gbar.sp_stat2) {
			put "(" gbar.cb_stat2 gbar.sp_stat2 ") "
		}
		if H(gbar.sp_stat2) {
			optionarg gbar.cb_stat2
		}
	}
	if gbar.vn_stat2A & gbar.ed_stat2A {
		put gbar.ed_stat2A " ="
	}
	put " "gbar.vn_stat2A
	if gbar.vn_stat2B & gbar.ed_stat2B {
		put " "gbar.ed_stat2B " ="
	}
	put " "gbar.vn_stat2B
	if gbar.vn_stat2C & gbar.ed_stat2C {
		put " "gbar.ed_stat2C " ="
	}
	put " "gbar.vn_stat2C
	if gbar.vn_stat2D & gbar.ed_stat2D {
		put " "gbar.ed_stat2D " ="
	}
	put " "gbar.vn_stat2D
	if gbar.vn_stat2E & gbar.ed_stat2E {
		put " "gbar.ed_stat2E " ="
	}
	put " "gbar.vn_stat2E
	if gbar.vn_stat2F & gbar.ed_stat2F {
		put " "gbar.ed_stat2F " ="
	}
	put " "gbar.vn_stat2F
	put " "

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

	/* stat4 */
	if gbar.vn_stat4A | gbar.vn_stat4B | gbar.vn_stat4C |	/*
		*/gbar.vn_stat4D | gbar.vn_stat4E | gbar.vn_stat4F {
		if !H(gbar.sp_stat4) {
			put " (" gbar.cb_stat4 gbar.sp_stat4 ") "
		}
		if H(gbar.sp_stat4) {
			optionarg gbar.cb_stat4
		}
	}
	if gbar.vn_stat4A & gbar.ed_stat4A {
		put gbar.ed_stat4A " ="
	}
	put " "gbar.vn_stat4A
	if gbar.vn_stat4B & gbar.ed_stat4B {
		put " "gbar.ed_stat4B " ="
	}
	put " "gbar.vn_stat4B
	if gbar.vn_stat4C & gbar.ed_stat4C {
		put " "gbar.ed_stat4C " ="
	}
	put " "gbar.vn_stat4C
	if gbar.vn_stat4D & gbar.ed_stat4D {
		put " "gbar.ed_stat4D " ="
	}
	put " "gbar.vn_stat4D
	if gbar.vn_stat4E & gbar.ed_stat4E {
		put " "gbar.ed_stat4E " ="
	}
	put " "gbar.vn_stat4E
	if gbar.vn_stat4F & gbar.ed_stat4F {
		put " "gbar.ed_stat4F " ="
	}
	put " "gbar.vn_stat4F
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		put " " /program gover_output
		put " " /program gbaropt_output
		put " " /program gbarstyle_output
		put " " /program gbarlabel_output
		put " " /program gbaryaxis_output
		put " " /program gtitle_output
		put " " /program gcaption_output
		put " " /program glegend_output
		put " " /program gregion_output
		put " " /program gby_output
	endoptions
END