gmarkstyle_98_sc.idlg

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

	gm.cb_msize2B.show
	gm.ck_mcol2B.show

	gm.gb_mark3A.setlabel "Marker 11"
	gm.cb_msymb3B.show
	gm.cb_msize3B.show
	gm.ck_mcol3B.show

	gm.gb_mark4A.setlabel "Marker 12"
	gm.cb_msymb4B.show
	gm.cb_msize4B.show
	gm.ck_mcol4B.show
	
	gm.gb_mark5A.setlabel "Marker 13"
	gm.cb_msymb5B.show
	gm.cb_msize5B.show
	gm.ck_mcol5B.show

	gm.gb_mark6A.setlabel "Marker 14"
	gm.cb_msymb6B.show
	gm.cb_msize6B.show
	gm.ck_mcol6B.show

	gm.gb_mark7A.setlabel "Marker 15"
	gm.cb_msymb7B.show
	gm.cb_msize7B.show
	gm.ck_mcol7B.show

	gm.gb_mark8A.setlabel "Marker 16"
	gm.cb_msymb8B.show
	gm.cb_msize8B.show
	gm.ck_mcol8B.show
	
	program gm_marks9to16_col_check
END

PROGRAM gm_marks9to16_col_check
BEGIN
	if gm.ck_mcol1B {
		call gaction gm.cl_mcol1B.show
	}
	if gm.ck_mcol2B {
		call gaction gm.cl_mcol2B.show
	}
	if gm.ck_mcol3B {
		call gaction gm.cl_mcol3B.show
	}
	if gm.ck_mcol4B {
		call gaction gm.cl_mcol4B.show
	}
	if gm.ck_mcol5B {
		call gaction gm.cl_mcol5B.show
	}
	if gm.ck_mcol6B {
		call gaction gm.cl_mcol6B.show
	}
	if gm.ck_mcol7B {
		call gaction gm.cl_mcol7B.show
	}
	if gm.ck_mcol8B {
		call gaction gm.cl_mcol8B.show
	}
END

SCRIPT gm_marks17to24
BEGIN
	script gm_hide_marks
	gm.gb_mark1A.setlabel "Marker 17"
	gm.cb_msymb1C.show
	gm.cb_msize1C.show
	gm.ck_mcol1C.show

	gm.gb_mark2A.setlabel "Marker 18"
	gm.cb_msymb2C.show
	gm.cb_msize2C.show
	gm.ck_mcol2C.show

	gm.gb_mark3A.setlabel "Marker 19"
	gm.cb_msymb3C.show
	gm.cb_msize3C.show
	gm.ck_mcol3C.show

	gm.gb_mark4A.setlabel "Marker 20"
	gm.cb_msymb4C.show
	gm.cb_msize4C.show
	gm.ck_mcol4C.show

	gm.gb_mark5A.setlabel "Marker 21"
	gm.cb_msymb5C.show
	gm.cb_msize5C.show
	gm.ck_mcol5C.show

	gm.gb_mark6A.setlabel "Marker 22"
	gm.cb_msymb6C.show
	gm.cb_msize6C.show
	gm.ck_mcol6C.show

	gm.gb_mark7A.setlabel "Marker 23"
	gm.cb_msymb7C.show
	gm.cb_msize7C.show
	gm.ck_mcol7C.show

	gm.gb_mark8A.setlabel "Marker 24"
	gm.cb_msymb8C.show
	gm.cb_msize8C.show
	gm.ck_mcol8C.show
	
	program gm_marks17to24_col_check
END

PROGRAM gm_marks17to24_col_check
BEGIN
	if gm.ck_mcol1C {
		call gaction gm.cl_mcol1C.show
	}
	if gm.ck_mcol2C {
		call gaction gm.cl_mcol2C.show
	}
	if gm.ck_mcol3C {
		call gaction gm.cl_mcol3C.show
	}
	if gm.ck_mcol4C {
		call gaction gm.cl_mcol4C.show
	}
	if gm.ck_mcol5C {
		call gaction gm.cl_mcol5C.show
	}
	if gm.ck_mcol6C {
		call gaction gm.cl_mcol6C.show
	}
	if gm.ck_mcol7C {
		call gaction gm.cl_mcol7C.show
	}
	if gm.ck_mcol8C {
		call gaction gm.cl_mcol8C.show
	}
END

PROGRAM gm_mark1A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb1A
	hoptionarg /hidedefault gm.cb_msize1A
	if gm.ck_mcol1A  {
		hoptionarg /quoted gm.cl_mcol1A
	}
    endoptions
END

PROGRAM gm_mark2A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb2A
	hoptionarg /hidedefault gm.cb_msize2A
	if gm.ck_mcol2A {
		hoptionarg /quoted gm.cl_mcol2A
	}
    endoptions
END

PROGRAM gm_mark3A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb3A
	hoptionarg /hidedefault gm.cb_msize3A
	if gm.ck_mcol3A {
		hoptionarg /quoted gm.cl_mcol3A
	}
    endoptions
END

PROGRAM gm_mark4A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb4A
	hoptionarg /hidedefault gm.cb_msize4A
	if gm.ck_mcol4A {
		hoptionarg /quoted gm.cl_mcol4A
	}
    endoptions
END

PROGRAM gm_mark5A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb5A
	hoptionarg /hidedefault gm.cb_msize5A
	if gm.ck_mcol5A {
		hoptionarg /quoted gm.cl_mcol5A
	}
    endoptions
END

PROGRAM gm_mark6A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb6A
	hoptionarg /hidedefault gm.cb_msize6A
	if gm.ck_mcol6A {
		hoptionarg /quoted gm.cl_mcol6A
	}
    endoptions
END

PROGRAM gm_mark7A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb7A
	hoptionarg /hidedefault gm.cb_msize7A
	if gm.ck_mcol7A {
		hoptionarg /quoted gm.cl_mcol7A
	}
    endoptions
END

PROGRAM gm_mark8A_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb8A
	hoptionarg /hidedefault gm.cb_msize8A
	if gm.ck_mcol8A {
		hoptionarg /quoted gm.cl_mcol8A
	}
    endoptions
END

PROGRAM gm_mark1B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb1B
	hoptionarg /hidedefault gm.cb_msize1B
	if gm.ck_mcol1B {
		hoptionarg /quoted gm.cl_mcol1B
	}
    endoptions
END

PROGRAM gm_mark2B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb2B
	hoptionarg /hidedefault gm.cb_msize2B
	if gm.ck_mcol2B {
		hoptionarg /quoted gm.cl_mcol2B
	}
    endoptions
END

PROGRAM gm_mark3B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb3B
	hoptionarg /hidedefault gm.cb_msize3B
	if gm.ck_mcol3B {
		hoptionarg /quoted gm.cl_mcol3B
	}
    endoptions
END

PROGRAM gm_mark4B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb4B
	hoptionarg /hidedefault gm.cb_msize4B
	if gm.ck_mcol4B {
		hoptionarg /quoted gm.cl_mcol4B
	}
    endoptions
END

PROGRAM gm_mark5B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb5B
	hoptionarg /hidedefault gm.cb_msize5B
	if gm.ck_mcol5B {
		hoptionarg /quoted gm.cl_mcol5B
	}
    endoptions
END

PROGRAM gm_mark6B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb6B
	hoptionarg /hidedefault gm.cb_msize6B
	if gm.ck_mcol6B {
		hoptionarg /quoted gm.cl_mcol6B
	}
    endoptions
END

PROGRAM gm_mark7B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb7B
	hoptionarg /hidedefault gm.cb_msize7B
	if gm.ck_mcol7B {
		hoptionarg /quoted gm.cl_mcol7B
	}
    endoptions
END

PROGRAM gm_mark8B_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb8B
	hoptionarg /hidedefault gm.cb_msize8B
	if gm.ck_mcol8B {
		hoptionarg /quoted gm.cl_mcol8B
	}
    endoptions
END

PROGRAM gm_mark1C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb1C
	hoptionarg /hidedefault gm.cb_msize1C
	if gm.ck_mcol1C {
		hoptionarg /quoted gm.cl_mcol1C
	}
    endoptions
END

PROGRAM gm_mark2C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb2C
	hoptionarg /hidedefault gm.cb_msize2C
	if gm.ck_mcol2C {
		hoptionarg /quoted gm.cl_mcol2C
	}
    endoptions
END

PROGRAM gm_mark3C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb3C
	hoptionarg /hidedefault gm.cb_msize3C
	if gm.ck_mcol3C {
		hoptionarg /quoted gm.cl_mcol3C
	}
    endoptions
END

PROGRAM gm_mark4C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb4C
	hoptionarg /hidedefault gm.cb_msize4C
	if gm.ck_mcol4C {
		hoptionarg /quoted gm.cl_mcol4C
	}
    endoptions
END

PROGRAM gm_mark5C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb5C
	hoptionarg /hidedefault gm.cb_msize5C
	if gm.ck_mcol5C {
		hoptionarg /quoted gm.cl_mcol5C
	}
    endoptions
END

PROGRAM gm_mark6C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb6C
	hoptionarg /hidedefault gm.cb_msize6C
	if gm.ck_mcol6C {
		hoptionarg /quoted gm.cl_mcol6C
	}
    endoptions
END

PROGRAM gm_mark7C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb7C
	hoptionarg /hidedefault gm.cb_msize7C
	if gm.ck_mcol7C {
		hoptionarg /quoted gm.cl_mcol7C
	}
    endoptions
END

PROGRAM gm_mark8C_output
BEGIN
    beginoptions
	hoptionarg /hidedefault gm.cb_msymb8C
	hoptionarg /hidedefault gm.cb_msize8C
	if gm.ck_mcol8C {
		hoptionarg /quoted gm.cl_mcol8C
	}
    endoptions
END

PROGRAM gmarkstyle_loop_output1to8
BEGIN
	if gm.ck_mcol1A | gm.cb_msymb1A | gm.cb_msize1A {
		put "mark(1"
		put /program gm_mark1A_output
		put ") "
	}

	if gm.ck_mcol2A  | gm.cb_msymb2A | gm.cb_msize2A {
		put "mark(2"
		put /program gm_mark2A_output
		put ") "
	}

	if gm.ck_mcol3A | gm.cb_msymb3A | gm.cb_msize3A {
		put "mark(3"
		put /program gm_mark3A_output
		put ") "
	}

	if gm.ck_mcol4A | gm.cb_msymb4A | gm.cb_msize4A {
		put "mark(4"
		put /program gm_mark4A_output
		put ") "
	}

	if gm.ck_mcol5A | gm.cb_msymb5A | gm.cb_msize5A {
		put "mark(5"
		put /program gm_mark5A_output
		put ") "
	}

	if gm.ck_mcol6A | gm.cb_msymb6A | gm.cb_msize6A {
		put "mark(6"
		put /program gm_mark6A_output
		put ") "
	}

	if gm.ck_mcol7A | gm.cb_msymb7A | gm.cb_msize7A {
		put "mark(7"
		put /program gm_mark7A_output
		put ") "
	}

	if gm.ck_mcol8A | gm.cb_msymb8A | gm.cb_msize8A {
		put "mark(8"
		put /program gm_mark8A_output
		put ") "
	}
END

PROGRAM gmarkstyle_loop_output9to16
BEGIN
	if gm.ck_mcol1B | gm.cb_msymb1B | gm.cb_msize1B {
		put "mark(9"
		put /program gm_mark1B_output
		put ") "
	}

	if gm.ck_mcol2B | gm.cb_msymb2B | gm.cb_msize2B {
		put "mark(10"
		put /program gm_mark2B_output
		put ") "
	}

	if gm.ck_mcol3B | gm.cb_msymb3B | gm.cb_msize3B {
		put "mark(11"
		put /program gm_mark3B_output
		put ") "
	}

	if gm.ck_mcol4B | gm.cb_msymb4B | gm.cb_msize4B {
		put "mark(12"
		put /program gm_mark4B_output
		put ") "
	}

	if gm.ck_mcol5B | gm.cb_msymb5B | gm.cb_msize5B {
		put "mark(13"
		put /program gm_mark5B_output
		put ") "
	}

	if gm.ck_mcol6B | gm.cb_msymb6B | gm.cb_msize6B {
		put "mark(14"
		put /program gm_mark6B_output
		put ") "
	}

	if gm.ck_mcol7B | gm.cb_msymb7B | gm.cb_msize7B {
		put "mark(15"
		put /program gm_mark7B_output
		put ") "
	}

	if gm.ck_mcol8B | gm.cb_msymb8B | gm.cb_msize8B {
		put "mark(16"
		put /program gm_mark8B_output
		put ") "
	}
END

PROGRAM gmarkstyle_loop_output17to24
BEGIN
	if gm.ck_mcol1C | gm.cb_msymb1C | gm.cb_msize1C {
		put "mark(17"
		put /program gm_mark1C_output
		put ") "
	}

	if gm.ck_mcol2C | gm.cb_msymb2C | gm.cb_msize2C {
		put "mark(18"
		put /program gm_mark2C_output
		put ") "
	}

	if gm.ck_mcol3C | gm.cb_msymb3C | gm.cb_msize3C {
		put "mark(19"
		put /program gm_mark3C_output
		put ") "
	}

	if gm.ck_mcol4C | gm.cb_msymb4C | gm.cb_msize4C {
		put "mark(20"
		put /program gm_mark4C_output
		put ") "
	}

	if gm.ck_mcol5C | gm.cb_msymb5C | gm.cb_msize5C {
		put "mark(21"
		put /program gm_mark5C_output
		put ") "
	}

	if gm.ck_mcol6C | gm.cb_msymb6C | gm.cb_msize6C {
		put "mark(22"
		put /program gm_mark6C_output
		put ") "
	}

	if gm.ck_mcol7C | gm.cb_msymb7C | gm.cb_msize7C {
		put "mark(23"
		put /program gm_mark7C_output
		put ") "
	}

	if gm.ck_mcol8C | gm.cb_msymb8C | gm.cb_msize8C {
		put "mark(24"
		put /program gm_mark8C_output
		put ") "
	}
END