gbarstyle.idlg

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

BEGIN
	gbs.cl_bfcol_11.hide
	gbs.cl_bfcol_11.show
	gbs.cl_bfcol_11.hide
END

LIST gbs_color_blcol_12
BEGIN
	gbs.cl_blcol_12.hide
	gbs.cl_blcol_12.show
	gbs.cl_blcol_12.hide
END
LIST gbs_color_bfcol_12
BEGIN
	gbs.cl_bfcol_12.hide
	gbs.cl_bfcol_12.show
	gbs.cl_bfcol_12.hide
END

LIST gbs_color_blcol_13
BEGIN
	gbs.cl_blcol_13.hide
	gbs.cl_blcol_13.show
	gbs.cl_blcol_13.hide
END
LIST gbs_color_bfcol_13
BEGIN
	gbs.cl_bfcol_13.hide
	gbs.cl_bfcol_13.show
	gbs.cl_bfcol_13.hide
END

LIST gbs_color_blcol_14
BEGIN
	gbs.cl_blcol_14.hide
	gbs.cl_blcol_14.show
	gbs.cl_blcol_14.hide
END
LIST gbs_color_bfcol_14
BEGIN
	gbs.cl_bfcol_14.hide
	gbs.cl_bfcol_14.show
	gbs.cl_bfcol_14.hide
END

LIST gbs_color_blcol_15
BEGIN
	gbs.cl_blcol_15.hide
	gbs.cl_blcol_15.show
	gbs.cl_blcol_15.hide
END
LIST gbs_color_bfcol_15
BEGIN
	gbs.cl_bfcol_15.hide
	gbs.cl_bfcol_15.show
	gbs.cl_bfcol_15.hide
END

LIST gbs_color_blcol_16
BEGIN
	gbs.cl_blcol_16.hide
	gbs.cl_blcol_16.show
	gbs.cl_blcol_16.hide
END
LIST gbs_color_bfcol_16
BEGIN
	gbs.cl_bfcol_16.hide
	gbs.cl_bfcol_16.show
	gbs.cl_bfcol_16.hide
END

PROGRAM gb_bar_1_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_1) {
		hoptionarg /quoted gbs.cl_bfcol_1
	}
	if !Hcc(gbs.cb_bfcol_1) {
		hoptionarg /hidedefault gbs.cb_bfcol_1
	}
	if Hcc(gbs.cb_blcol_1) {
		hoptionarg /quoted gbs.cl_blcol_1
	}
	if !Hcc(gbs.cb_blcol_1) {
		hoptionarg /hidedefault gbs.cb_blcol_1
	}
	hoptionarg /hidedefault gbs.cb_blwid_1
    endoptions
END

PROGRAM gb_bar_2_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_2) {
		hoptionarg /quoted gbs.cl_bfcol_2
	}
	if !Hcc(gbs.cb_bfcol_2) {
		hoptionarg /hidedefault gbs.cb_bfcol_2
	}
	if Hcc(gbs.cb_blcol_2) {
		hoptionarg /quoted gbs.cl_blcol_2
	}
	if !Hcc(gbs.cb_blcol_2) {
		hoptionarg /hidedefault gbs.cb_blcol_2
	}
	hoptionarg /hidedefault gbs.cb_blwid_2
    endoptions
END

PROGRAM gb_bar_3_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_3) {
		hoptionarg /quoted gbs.cl_bfcol_3
	}
	if !Hcc(gbs.cb_bfcol_3) {
		hoptionarg /hidedefault gbs.cb_bfcol_3
	}
	if Hcc(gbs.cb_blcol_3) {
		hoptionarg /quoted gbs.cl_blcol_3
	}
	if !Hcc(gbs.cb_blcol_3) {
		hoptionarg /hidedefault gbs.cb_blcol_3
	}
	hoptionarg /hidedefault gbs.cb_blwid_3
    endoptions
END

PROGRAM gb_bar_4_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_4) {
		hoptionarg /quoted gbs.cl_bfcol_4
	}
	if !Hcc(gbs.cb_bfcol_4) {
		hoptionarg /hidedefault gbs.cb_bfcol_4
	}
	if Hcc(gbs.cb_blcol_4) {
		hoptionarg /quoted gbs.cl_blcol_4
	}
	if !Hcc(gbs.cb_blcol_4) {
		hoptionarg /hidedefault gbs.cb_blcol_4
	}
	hoptionarg /hidedefault gbs.cb_blwid_4
    endoptions
END

PROGRAM gb_bar_5_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_5) {
		hoptionarg /quoted gbs.cl_bfcol_5
	}
	if !Hcc(gbs.cb_bfcol_5) {
		hoptionarg /hidedefault gbs.cb_bfcol_5
	}
	if Hcc(gbs.cb_blcol_5) {
		hoptionarg /quoted gbs.cl_blcol_5
	}
	if !Hcc(gbs.cb_blcol_5) {
		hoptionarg /hidedefault gbs.cb_blcol_5
	}
	hoptionarg /hidedefault gbs.cb_blwid_5
    endoptions
END

PROGRAM gb_bar_6_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_6) {
		hoptionarg /quoted gbs.cl_bfcol_6
	}
	if !Hcc(gbs.cb_bfcol_6) {
		hoptionarg /hidedefault gbs.cb_bfcol_6
	}
	if Hcc(gbs.cb_blcol_6) {
		hoptionarg /quoted gbs.cl_blcol_6
	}
	if !Hcc(gbs.cb_blcol_6) {
		hoptionarg /hidedefault gbs.cb_blcol_6
	}
	hoptionarg /hidedefault gbs.cb_blwid_6
    endoptions
END

PROGRAM gb_bar_7_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_7) {
		hoptionarg /quoted gbs.cl_bfcol_7
	}
	if !Hcc(gbs.cb_bfcol_7) {
		hoptionarg /hidedefault gbs.cb_bfcol_7
	}
	if Hcc(gbs.cb_blcol_7) {
		hoptionarg /quoted gbs.cl_blcol_7
	}
	if !Hcc(gbs.cb_blcol_7) {
		hoptionarg /hidedefault gbs.cb_blcol_7
	}
	hoptionarg /hidedefault gbs.cb_blwid_7
    endoptions
END

PROGRAM gb_bar_8_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_8) {
		hoptionarg /quoted gbs.cl_bfcol_8
	}
	if !Hcc(gbs.cb_bfcol_8) {
		hoptionarg /hidedefault gbs.cb_bfcol_8
	}
	if Hcc(gbs.cb_blcol_8) {
		hoptionarg /quoted gbs.cl_blcol_8
	}
	if !Hcc(gbs.cb_blcol_8) {
		hoptionarg /hidedefault gbs.cb_blcol_8
	}
	hoptionarg /hidedefault gbs.cb_blwid_8
    endoptions
END

PROGRAM gb_bar_9_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_9) {
		hoptionarg /quoted gbs.cl_bfcol_9
	}
	if !Hcc(gbs.cb_bfcol_9) {
		hoptionarg /hidedefault gbs.cb_bfcol_9
	}
	if Hcc(gbs.cb_blcol_9) {
		hoptionarg /quoted gbs.cl_blcol_9
	}
	if !Hcc(gbs.cb_blcol_9) {
		hoptionarg /hidedefault gbs.cb_blcol_9
	}
	hoptionarg /hidedefault gbs.cb_blwid_9
    endoptions
END

PROGRAM gb_bar_10_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_10) {
		hoptionarg /quoted gbs.cl_bfcol_10
	}
	if !Hcc(gbs.cb_bfcol_10) {
		hoptionarg /hidedefault gbs.cb_bfcol_10
	}
	if Hcc(gbs.cb_blcol_10) {
		hoptionarg /quoted gbs.cl_blcol_10
	}
	if !Hcc(gbs.cb_blcol_10) {
		hoptionarg /hidedefault gbs.cb_blcol_10
	}
	hoptionarg /hidedefault gbs.cb_blwid_10
    endoptions
END

PROGRAM gb_bar_11_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_11) {
		hoptionarg /quoted gbs.cl_bfcol_11
	}
	if !Hcc(gbs.cb_bfcol_11) {
		hoptionarg /hidedefault gbs.cb_bfcol_11
	}
	if Hcc(gbs.cb_blcol_11) {
		hoptionarg /quoted gbs.cl_blcol_11
	}
	if !Hcc(gbs.cb_blcol_11) {
		hoptionarg /hidedefault gbs.cb_blcol_11
	}
	hoptionarg /hidedefault gbs.cb_blwid_11
    endoptions
END

PROGRAM gb_bar_12_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_12) {
		hoptionarg /quoted gbs.cl_bfcol_12
	}
	if !Hcc(gbs.cb_bfcol_12) {
		hoptionarg /hidedefault gbs.cb_bfcol_12
	}
	if Hcc(gbs.cb_blcol_12) {
		hoptionarg /quoted gbs.cl_blcol_12
	}
	if !Hcc(gbs.cb_blcol_12) {
		hoptionarg /hidedefault gbs.cb_blcol_12
	}
	hoptionarg /hidedefault gbs.cb_blwid_12
    endoptions
END


PROGRAM gb_bar_13_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_13) {
		hoptionarg /quoted gbs.cl_bfcol_13
	}
	if !Hcc(gbs.cb_bfcol_13) {
		hoptionarg /hidedefault gbs.cb_bfcol_13
	}
	if Hcc(gbs.cb_blcol_13) {
		hoptionarg /quoted gbs.cl_blcol_13
	}
	if !Hcc(gbs.cb_blcol_13) {
		hoptionarg /hidedefault gbs.cb_blcol_13
	}
	hoptionarg /hidedefault gbs.cb_blwid_13
    endoptions
END

PROGRAM gb_bar_14_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_14) {
		hoptionarg /quoted gbs.cl_bfcol_14
	}
	if !Hcc(gbs.cb_bfcol_14) {
		hoptionarg /hidedefault gbs.cb_bfcol_14
	}
	if Hcc(gbs.cb_blcol_14) {
		hoptionarg /quoted gbs.cl_blcol_14
	}
	if !Hcc(gbs.cb_blcol_14) {
		hoptionarg /hidedefault gbs.cb_blcol_14
	}
	hoptionarg /hidedefault gbs.cb_blwid_14
    endoptions
END

PROGRAM gb_bar_15_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_15) {
		hoptionarg /quoted gbs.cl_bfcol_15
	}
	if !Hcc(gbs.cb_bfcol_15) {
		hoptionarg /hidedefault gbs.cb_bfcol_15
	}
	if Hcc(gbs.cb_blcol_15) {
		hoptionarg /quoted gbs.cl_blcol_15
	}
	if !Hcc(gbs.cb_blcol_15) {
		hoptionarg /hidedefault gbs.cb_blcol_15
	}
	hoptionarg /hidedefault gbs.cb_blwid_15
    endoptions
END

PROGRAM gb_bar_16_output
BEGIN
    beginoptions
	if Hcc(gbs.cb_bfcol_16) {
		hoptionarg /quoted gbs.cl_bfcol_16
	}
	if !Hcc(gbs.cb_bfcol_16) {
		hoptionarg /hidedefault gbs.cb_bfcol_16
	}
	if Hcc(gbs.cb_blcol_16) {
		hoptionarg /quoted gbs.cl_blcol_16
	}
	if !Hcc(gbs.cb_blcol_16) {
		hoptionarg /hidedefault gbs.cb_blcol_16
	}
	hoptionarg /hidedefault gbs.cb_blwid_16
    endoptions
END


///** Scripts and programs for external use
SCRIPT gbarstyle_setBoxTab
BEGIN
	gbs.settabtitle "Boxes"
	gbs.tx_bargap.setlabel "Box gap:"
	gbs.gb_bars.setlabel "Box styles for Y-variables"
	gbs_output_opt.setstring "box"
	gbs.tx_fint.show
	gbs.ed_fint.show
END

PROGRAM gbarstyle_output
BEGIN
	optionarg gbs.ed_ogap
	optionarg /hidedefault gbs.en_bargap
	optionarg gbs.ed_fint
	if gbs.cb_bfcol_1 | Hcc(gbs.cb_bfcol_1) | gbs.cb_blcol_1 | ///
	   Hcc(gbs.cb_blcol_1) | gbs.cb_blwid_1 {
		put gbs_output_opt "(1"
		put /program gb_bar_1_output
		put ") "
	}

	if gbs.cb_bfcol_2 | Hcc(gbs.cb_bfcol_2) | gbs.cb_blcol_2 | ///
	   Hcc(gbs.cb_blcol_2) | gbs.cb_blwid_2 {
		put gbs_output_opt "(2"
		put /program gb_bar_2_output
		put ") "
	}

	if gbs.cb_bfcol_3 | Hcc(gbs.cb_bfcol_3) | gbs.cb_blcol_3 | ///
	   Hcc(gbs.cb_blcol_3) | gbs.cb_blwid_3 {
		put gbs_output_opt "(3"
		put /program gb_bar_3_output
		put ") "
	}

	if gbs.cb_bfcol_4 | Hcc(gbs.cb_bfcol_4) | gbs.cb_blcol_4 | ///
	   Hcc(gbs.cb_blcol_4) | gbs.cb_blwid_4 {
		put gbs_output_opt "(4"
		put /program gb_bar_4_output
		put ") "
	}

	if gbs.cb_bfcol_5 | Hcc(gbs.cb_bfcol_5) | gbs.cb_blcol_5 | ///
	   Hcc(gbs.cb_blcol_5) | gbs.cb_blwid_5 {
		put gbs_output_opt "(5"
		put /program gb_bar_5_output
		put ") "
	}

	if gbs.cb_bfcol_6 | Hcc(gbs.cb_bfcol_6) | gbs.cb_blcol_6 | ///
	   Hcc(gbs.cb_blcol_6) | gbs.cb_blwid_6 {
		put gbs_output_opt "(6"
		put /program gb_bar_6_output
		put ") "
	}

	if gbs.cb_bfcol_7 | Hcc(gbs.cb_bfcol_7) | gbs.cb_blcol_7 | ///
	   Hcc(gbs.cb_blcol_7) | gbs.cb_blwid_7 {
		put gbs_output_opt "(7"
		put /program gb_bar_7_output
		put ") "
	}

	if gbs.cb_bfcol_8 | Hcc(gbs.cb_bfcol_8) | gbs.cb_blcol_8 | ///
	   Hcc(gbs.cb_blcol_8) | gbs.cb_blwid_8 {
		put gbs_output_opt "(8"
		put /program gb_bar_8_output
		put ") "
	}

	if gbs.cb_bfcol_9 | Hcc(gbs.cb_bfcol_9) | gbs.cb_blcol_9 | ///
	   Hcc(gbs.cb_blcol_9) | gbs.cb_blwid_9 {
		put gbs_output_opt "(9"
		put /program gb_bar_9_output
		put ") "
	}

	if gbs.cb_bfcol_10 | Hcc(gbs.cb_bfcol_10) | gbs.cb_blcol_10 | ///
	   Hcc(gbs.cb_blcol_10) | gbs.cb_blwid_10 {
		put gbs_output_opt "(10"
		put /program gb_bar_10_output
		put ") "
	}

	if gbs.cb_bfcol_11 | Hcc(gbs.cb_bfcol_11) | gbs.cb_blcol_11 | ///
	   Hcc(gbs.cb_blcol_11) | gbs.cb_blwid_11 {
		put gbs_output_opt "(11"
		put /program gb_bar_11_output
		put ") "
	}

	if gbs.cb_bfcol_12 | Hcc(gbs.cb_bfcol_12) | gbs.cb_blcol_12 | ///
	   Hcc(gbs.cb_blcol_12) | gbs.cb_blwid_12 {
		put gbs_output_opt "(12"
		put /program gb_bar_12_output
		put ") "
	}

	if gbs.cb_bfcol_13 | Hcc(gbs.cb_bfcol_13) | gbs.cb_blcol_13 | ///
	   Hcc(gbs.cb_blcol_13) | gbs.cb_blwid_13 {
		put gbs_output_opt "(13"
		put /program gb_bar_13_output
		put ") "
	}

	if gbs.cb_bfcol_14 | Hcc(gbs.cb_bfcol_14) | gbs.cb_blcol_14 | ///
	   Hcc(gbs.cb_blcol_14) | gbs.cb_blwid_14 {
		put gbs_output_opt "(14"
		put /program gb_bar_14_output
		put ") "
	}

	if gbs.cb_bfcol_15 | Hcc(gbs.cb_bfcol_15) | gbs.cb_blcol_15 | ///
	   Hcc(gbs.cb_blcol_15) | gbs.cb_blwid_15 {
		put gbs_output_opt "(15"
		put /program gb_bar_15_output
		put ") "
	}

	if gbs.cb_bfcol_16 | Hcc(gbs.cb_bfcol_16) | gbs.cb_blcol_16 | ///
	   Hcc(gbs.cb_blcol_16) | gbs.cb_blwid_16 {
		put gbs_output_opt "(16"
		put /program gb_bar_16_output
		put ") "
	}
END