ts1.idlg

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

	p1.tx_mlpos.disable
	p1.cb_mlpos.disable
END

SCRIPT p1_scatter_opts_off
BEGIN
	p1.gb_marker.disable
	p1.tx_msym.disable
	p1.cb_msym.disable
	p1.tx_mcol.disable
	p1.cb_mcol.disable
	p1.cl_mcol.disable
	p1.tx_msize.disable
	p1.cb_msize.disable
	p1.ck_mlab.disable
	script p1_mlabel_disable

END

SCRIPT p1_orient_opts_on
BEGIN
	p1.gb_orient.show
	p1.rb_vertical.show
	p1.rb_horizontal.show
END

SCRIPT p1_orient_opts_off
BEGIN
	p1.gb_orient.hide
	p1.rb_vertical.hide
	p1.rb_horizontal.hide
END

/* Common opts for area, bar, spike, and dropline */
SCRIPT p1_common_area_opts_on
BEGIN
	p1.gb_common.show
	p1.tx_blcol.show
	p1.cb_blcol.show
	p1.cb_blcol.withvalue p1.cb_blcol.setvalue "@"
	p1.tx_blwid.show
	p1.cb_blwid.show
	p1.tx_base.show
	p1.en_base.show
END

/* Common opts for area, bar, spike, and dropline */
SCRIPT p1_common_area_opts_off
BEGIN
	p1.gb_common.hide
	p1.tx_blcol.hide
	p1.cb_blcol.hide
	p1.cl_blcol.hide
	p1.tx_blwid.hide
	p1.cb_blwid.hide
	p1.tx_base.hide
	p1.en_base.hide
END

SCRIPT p1_area_opts_on
BEGIN
	script p1_common_area_opts_on
	p1.tx_blpat.show
	p1.cb_blpat.show
	p1.tx_bfcol.show
	p1.cb_bfcol.show
	p1.cb_bfcol.withvalue p1.cb_bfcol.setvalue "@"
END

SCRIPT p1_area_opts_off
BEGIN
	script p1_common_area_opts_off
	p1.tx_blpat.hide
	p1.cb_blpat.hide
	p1.tx_bfcol.hide
	p1.cb_bfcol.hide
	p1.cl_bfcol.hide
END

SCRIPT p1_bar_opts_on
BEGIN
	script p1_common_area_opts_on
	p1.tx_bfcol.show
	p1.cb_bfcol.show
	p1.cb_bfcol.withvalue p1.cb_bfcol.setvalue "@"
	p1.tx_barwidth.show
	p1.en_barwidth.show
END

SCRIPT p1_bar_opts_off
BEGIN
	script p1_common_area_opts_off
	p1.tx_bfcol.hide
	p1.cb_bfcol.hide
	p1.cl_bfcol.hide
	p1.tx_barwidth.hide
	p1.en_barwidth.hide
END

SCRIPT p1_spike_drop_opts_on
BEGIN
	script p1_common_area_opts_on
	p1.tx_blpat2.show
	p1.cb_blpat2.show
END

SCRIPT p1_spike_drop_opts_off
BEGIN
	script p1_common_area_opts_off
	p1.tx_blpat2.hide
	p1.cb_blpat2.hide
END

SCRIPT p1_rcap_opts_on
BEGIN
	script p1_common_area_opts_on
	p1.tx_capsize.show
	p1.cb_capsize.show
END

SCRIPT p1_rcap_opts_off
BEGIN
	script p1_common_area_opts_off
	p1.tx_capsize.hide
	p1.cb_capsize.hide
END

PROGRAM p1_do_line
BEGIN
	call script p1_scatter_opts_off
	call script p1_orient_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_spike_drop_opts_off
	call script p1_rcap_opts_off

	call script p1_line_opts_on

END

PROGRAM p1_do_rline
BEGIN
	// test hidden condition to prevent action from LIST on load
	if !H(p1.cb_tsrtype) {
		call script p1_scatter_opts_off
		call script p1_area_opts_off
		call script p1_bar_opts_off
		call script p1_spike_drop_opts_off
		call script p1_rcap_opts_off

		call script p1_line_opts_on
		call script p1_orient_opts_on
	}
END

PROGRAM p1_do_scatter
BEGIN
	call script p1_line_opts_off
	call script p1_orient_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_spike_drop_opts_off
	call script p1_rcap_opts_off

	call program p1_scatter_opts_on
END

PROGRAM p1_do_rscatter
BEGIN
	call script p1_line_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_spike_drop_opts_off
	call script p1_rcap_opts_off

	call program p1_scatter_opts_on
	call script p1_orient_opts_on
END

PROGRAM p1_do_connected
BEGIN
	call script p1_orient_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_spike_drop_opts_off
	call script p1_rcap_opts_off

	call script p1_line_opts_on
	call program p1_scatter_opts_on
END

PROGRAM p1_do_rconnected
BEGIN
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_spike_drop_opts_off
	call script p1_rcap_opts_off

	call script p1_line_opts_on
	call program p1_scatter_opts_on
	call script p1_orient_opts_on
END

PROGRAM p1_do_area
BEGIN
	call script p1_line_opts_off
	call script p1_scatter_opts_off
	call script p1_bar_opts_off
	call script p1_spike_drop_opts_off
	call script p1_rcap_opts_off

	call script p1_orient_opts_on
	call script p1_area_opts_on
	call p1.gb_common.setlabel "Area"
END


PROGRAM p1_do_bar
BEGIN
	call script p1_line_opts_off
	call script p1_scatter_opts_off
	call script p1_area_opts_off
	call script p1_spike_drop_opts_off

	call script p1_orient_opts_on
	call script p1_bar_opts_on
	call p1.gb_common.setlabel "Bars"
END

PROGRAM p1_do_spike
BEGIN
	call script p1_line_opts_off
	call script p1_scatter_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_rcap_opts_off

	call script p1_orient_opts_on
	call script p1_spike_drop_opts_on
	call p1.gb_common.setlabel "Spikes"
END

PROGRAM p1_do_rcap
BEGIN
	call script p1_line_opts_off
	call script p1_scatter_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off

	call script p1_orient_opts_on
	call script p1_spike_drop_opts_on
	call p1.gb_common.setlabel "Spikes"
	call script p1_rcap_opts_on
END

PROGRAM p1_do_dropline
BEGIN
	call script p1_line_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_rcap_opts_off

	call program p1_scatter_opts_on
	call script p1_orient_opts_on
	call script p1_spike_drop_opts_on
	call p1.gb_common.setlabel "Droplines"
END

PROGRAM p1_do_rcapsym
BEGIN
	call script p1_line_opts_off
	call script p1_area_opts_off
	call script p1_bar_opts_off
	call script p1_rcap_opts_off

	call program p1_scatter_opts_on
	call script p1_orient_opts_on
	call script p1_spike_drop_opts_on
	call p1.gb_common.setlabel "Spikes"
END

PROGRAM p1_line_opts
BEGIN
	if !Hcc(p1.cb_clcol) {
		optionarg /hidedefault p1.cb_clcol
	}
	if Hcc(p1.cb_clcol) {
		optionarg /quoted p1.cl_clcol
	}
	optionarg p1.cb_clpat
	optionarg p1.cb_clwidth
	optionarg p1.cb_conn
END

PROGRAM p1_rline_opts
BEGIN
	// options and optionarg are not used here because tsrline
	// uses different options, therefore they are hard coded
	if !Hcc(p1.cb_clcol) & p1.cb_clcol {
		put " " "lcolor(" p1.cb_clcol ")"
	}
	if Hcc(p1.cb_clcol) {
		put " " `"lcolor(""' p1.cl_clcol `"")"'
	}
	if p1.cb_clpat {
		put " " "lpattern(" p1.cb_clpat ")"
	}
	if p1.cb_clwidth {
		put " " "lwidth(" p1.cb_clwidth ")"
	}
	optionarg p1.cb_conn
END

PROGRAM p1_scatter_opts
BEGIN
	optionarg p1.cb_msym
	if !Hcc(p1.cb_mcol) {
		optionarg /hidedefault p1.cb_mcol
	}
	if Hcc(p1.cb_mcol) {
		optionarg /quoted p1.cl_mcol
	}
	optionarg p1.cb_msize
	if p1.ck_mlab {
		require p1.vl_mlab
		optionarg p1.vl_mlab
		optionarg p1.cb_mlsiz
		if !Hcc(p1.cb_mlcol) {
			optionarg /hidedefault p1.cb_mlcol
		}
		if Hcc(p1.cb_mlcol) {
			optionarg /quoted p1.cl_mlcol
		}
		optionarg p1.cb_mlpos
	}
END


/* Common opts for area, bar, spike, and dropline */
PROGRAM p1_common_area_opts
BEGIN
	if !Hcc(p1.cb_blcol) {
		optionarg /hidedefault p1.cb_blcol
	}
	if Hcc(p1.cb_blcol) {
		optionarg /quoted p1.cl_blcol
	}
  	optionarg p1.cb_blwid
  	optionarg /hidedefault p1.en_base


	// bfcol is used with area and bar
	if !Hcc(p1.cb_bfcol) {
		optionarg /hidedefault p1.cb_bfcol
	}
	if Hcc(p1.cb_bfcol) {
		optionarg /quoted p1.cl_bfcol
	}

	// blpat is used with area
	optionarg p1.cb_blpat

	// blpat2 is used with spike and dropline
	optionarg p1.cb_blpat2

	// barwidth is used with bar
	optionarg /hidedefault p1.en_barwidth

	// capsize is used with tsrline rcap only
	optionarg /hidedefault p1.cb_capsize
END

PROGRAM p1_tsline_sub
BEGIN
	varlist p1.vn_var
	ifexp p1.ex_if
	beginoptions
		optionarg p1.cb_tstype
		put " " /program p1_line_opts
		put " " /program p1_scatter_opts
		option p1.rb_horizontal
		put " " /program p1_common_area_opts
	endoptions
END

PROGRAM p1_tsrline_sub
BEGIN
	varlist p1.vn_var
	varlist p1.vn_var2
	ifexp p1.ex_if2
	beginoptions
		optionarg p1.cb_tsrtype
		put " " /program p1_rline_opts
		put " " /program p1_scatter_opts
		option p1.rb_horizontal
		put " " /program p1_common_area_opts
	endoptions
END

PROGRAM p1_output
BEGIN
	if p1.rb_tsline {
		put "(tsline "
		put /program p1_tsline_sub
		put ") "
	}
	if p1.rb_tsrline {
		put "(tsrline "
		put /program p1_tsrline_sub
		put ") "
	}
END