gbox_sc_98.idlg

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

/*
    gbox_sc_98 - Scripts for box_98 and hbox_98 plots
    **Special version for Windows95/98
    
*!  VERSION 1.0.1  20mar2005

*/ 

INCLUDE gover_98
INCLUDE gby_98
INCLUDE ifin
INCLUDE weights_fpai
INCLUDE gboxstyle_98
INCLUDE gboxmarkstyle_98
INCLUDE gboxopt_98
INCLUDE gbaryaxis_98
INCLUDE gtitle_98
INCLUDE gcaption_98
INCLUDE glegend_98
INCLUDE gregion_98

SCRIPT main_markon
BEGIN
	script main_clineoff
	script main_rectoff
	main.gb_mark.enable
	main.tx_msymb.enable
	main.cb_msymb.enable
	main.ck_mcol.enable
	main.cl_mcol.enable
END

SCRIPT main_markoff
BEGIN
	main.gb_mark.disable
	main.tx_msymb.disable
	main.cb_msymb.disable
	main.ck_mcol.disable
	main.cl_mcol.disable
END


SCRIPT main_clineon
BEGIN
	script main_markoff
	main.gb_line.enable
	main.ck_lcol.enable
	main.cl_lcol.enable
	main.tx_lpat.enable
	main.cb_lpat.enable
	main.tx_lwid.enable
	main.cb_lwid.enable
END

SCRIPT main_clineoff
BEGIN
 	main.gb_line.disable
	main.ck_lcol.disable
	main.cl_lcol.disable
	main.tx_lpat.disable
	main.cb_lpat.disable
	main.tx_lwid.disable
	main.cb_lwid.disable
END

SCRIPT main_lineon
BEGIN
	script main_markoff
	script main_clineoff
END

PROGRAM gmainopts_output
BEGIN
	option radio (main rb_line rb_cline rb_mark)
	if main.rb_cline {
		if !H(main.cl_lcol) | main.cb_lpat | 	/*
		*/ main.cb_lwid {
			put "medline("
			if !H(main.cl_lcol) {
				optionarg /quoted main.cl_lcol
			}
			optionarg /hidedefault main.cb_lpat
			optionarg /hidedefault main.cb_lwid
			put ")"
		}
	}
	if main.rb_mark {
		if main.cb_msymb | !H(main.cl_mcol)  {
			put " medmarker("
			optionarg /hidedefault main.cb_msymb
			if !H(main.cl_mcol) {
				optionarg /quoted main.cl_mcol
			}
			put ") "
		}
	}
END