test.dlg

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

SCRIPT expeq_5
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 5, linear expression:"
    main.tx_spec.show
    main.bu_example.show
    main.vl_coef5a.setlabel "Specification 5, linear expression"
    main.vl_coef5a.show
  END

SCRIPT eqncoef0_5
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 5, equation: (required)"
    main.tx_spec.show
    main.cb_eqn5a.show
    main.tx_coef5b.show
    main.vl_coef5b.show
  END

SCRIPT eqeqncoef_5
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 5, equation 1: (required)"
    main.tx_spec.show
    main.tx_spec5b.show
    main.cb_eqn5a.show
    main.cb_eqn5b.show
    main.tx_spec5c.show
    main.tx_spec5d.show
    main.cb_eqn5c.show
    main.cb_eqn5d.show
    main.tx_spec5e.show
    main.tx_spec5f.show
    main.cb_eqn5e.show
    main.cb_eqn5f.show
    main.tx_coef5c.show
    main.vl_coef5c.show
  END

SCRIPT coef0_5
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 5, test these coefficients:"
    main.vl_coef5.show
    main.tx_spec.show
  END

LIST test_change_6
  BEGIN
    script coef0_6
    script expeq_6
    script eqncoef0_6
    script eqeqncoef_6
  END

SCRIPT expeq_6
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 6, linear expression:"
    main.tx_spec.show
    main.bu_example.show
    main.vl_coef6a.setlabel "Specification 6, linear expression"
    main.vl_coef6a.show
  END

SCRIPT eqncoef0_6
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 6, equation: (required)"
    main.tx_spec.show
    main.cb_eqn6a.show
    main.tx_coef6b.show
    main.vl_coef6b.show
  END

SCRIPT eqeqncoef_6
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 6, equation 1: (required)"
    main.tx_spec.show
    main.tx_spec6b.show
    main.cb_eqn6a.show
    main.cb_eqn6b.show
    main.tx_spec6c.show
    main.tx_spec6d.show
    main.cb_eqn6c.show
    main.cb_eqn6d.show
    main.tx_spec6e.show
    main.tx_spec6f.show
    main.cb_eqn6e.show
    main.cb_eqn6f.show
    main.tx_coef6c.show
    main.vl_coef6c.show
  END

SCRIPT coef0_6
  BEGIN
    program hide_all
    main.tx_spec.setlabel "Specification 6, test these coefficients:"
    main.vl_coef6.show
    main.tx_spec.show
  END

LIST spec_list
  BEGIN
  	Specification 1 (required)
	Specification 2
	Specification 3
	Specification 4
	Specification 5
	Specification 6
  END

LIST spec_change
  BEGIN
  	script spec1
	script spec2
	script spec3
	script spec4
	script spec5
	script spec6
  END

SCRIPT hide_rb
  BEGIN
	main.gb_test.hide
	main.rb_test1a.hide
	main.rb_test1b.hide
	main.rb_test1c.hide
	main.rb_test1d.hide
	main.rb_test2a.hide
	main.rb_test2b.hide
	main.rb_test2c.hide
	main.rb_test2d.hide
	main.rb_test2e.hide
	main.rb_test2e.hide
	main.rb_test3a.hide
	main.rb_test3b.hide
	main.rb_test3c.hide
	main.rb_test3d.hide
	main.rb_test3e.hide
	main.rb_test4a.hide
	main.rb_test4b.hide
	main.rb_test4c.hide
	main.rb_test4d.hide
	main.rb_test4e.hide
	main.rb_test5a.hide
	main.rb_test5b.hide
	main.rb_test5c.hide
	main.rb_test5d.hide
	main.rb_test5e.hide
	main.rb_test6a.hide
	main.rb_test6b.hide
	main.rb_test6c.hide
	main.rb_test6d.hide
	main.rb_test6e.hide
  END

SCRIPT spec6
  BEGIN
  	script hide_rb
	main.gb_test.setlabel "Test type for specification 6"
	main.gb_test.show
	main.rb_test6a.show
	main.rb_test6b.show
	main.rb_test6c.show
	main.rb_test6d.show
	main.rb_test6e.show
	program spec6_show
END

SCRIPT spec5
  BEGIN
  	script hide_rb
	main.gb_test.setlabel "Test type for specification 5"
	main.gb_test.show
	main.rb_test5a.show
	main.rb_test5b.show
	main.rb_test5c.show
	main.rb_test5d.show
	main.rb_test5e.show
	program spec5_show
  END

SCRIPT spec4
  BEGIN
  	script hide_rb
	main.gb_test.setlabel "Test type for specification 4"
	main.gb_test.show
	main.rb_test4a.show
	main.rb_test4b.show
	main.rb_test4c.show
	main.rb_test4d.show
	main.rb_test4e.show
	program spec4_show
  END

SCRIPT spec3
  BEGIN
  	script hide_rb
	main.gb_test.setlabel "Test type for specification 3"
	main.gb_test.show
	main.rb_test3a.show
	main.rb_test3b.show
	main.rb_test3c.show
	main.rb_test3d.show
	main.rb_test3e.show
	program spec3_show
  END

SCRIPT spec2
  BEGIN
  	script hide_rb
	main.gb_test.setlabel "Test type for specification 2"
	main.gb_test.show
	main.rb_test2a.show
	main.rb_test2b.show
	main.rb_test2c.show
	main.rb_test2d.show
	main.rb_test2e.show
	program spec2_show
  END

SCRIPT spec1
  BEGIN
  	script hide_rb
	main.gb_test.setlabel "Test type for specification 1"
	main.gb_test.show
	main.rb_test1a.show
	main.rb_test1b.show
	main.rb_test1c.show
	main.rb_test1d.show
	program spec1_show
  END

PROGRAM spec6_show
BEGIN
  	if main.rb_test6a {
    		call program hide_all
    	}
  	if main.rb_test6b {
    		call script coef0_6
    	}
   	if main.rb_test6c {
		call script expeq_6
	}
	if main.rb_test6d {
		call script eqncoef0_6
	}
	if main.rb_test6e {
		call script eqeqncoef_6
	}
END

PROGRAM spec5_show
BEGIN
  	if main.rb_test5a {
    		call program hide_all
    	}
  	if main.rb_test5b {
    		call script coef0_5
    	}
   	if main.rb_test5c {
		call script expeq_5
	}
	if main.rb_test5d {
		call script eqncoef0_5
	}
	if main.rb_test5e {
		call script eqeqncoef_5
	}
END

PROGRAM spec4_show
BEGIN
  	if main.rb_test4a {
    		call program hide_all
    	}
  	if main.rb_test4b {
    		call script coef0_4
    	}
   	if main.rb_test4c {
		call script expeq_4
	}
	if main.rb_test4d {
		call script eqncoef0_4
	}
	if main.rb_test4e {
		call script eqeqncoef_4
	}
END

PROGRAM spec3_show
BEGIN
  	if main.rb_test3a {
    		call program hide_all
    	}
  	if main.rb_test3b {
    		call script coef0_3
    	}
   	if main.rb_test3c {
		call script expeq_3
	}
	if main.rb_test3d {
		call script eqncoef0_3
	}
	if main.rb_test3e {
		call script eqeqncoef_3
	}
END

PROGRAM spec2_show
BEGIN
  	if main.rb_test2a {
    		call program hide_all
    	}
  	if main.rb_test2b {
    		call script coef0_2
    	}
   	if main.rb_test2c {
		call script expeq_2
	}
	if main.rb_test2d {
		call script eqncoef0_2
	}
	if main.rb_test2e {
		call script eqeqncoef_2
	}
END

PROGRAM spec1_show
BEGIN
  	if main.rb_test1a {
    		call script coef0_1
    	}
   	if main.rb_test1b {
		call script expeq_1
	}
	if main.rb_test1c {
		call script eqncoef0_1
	}
	if main.rb_test1d {
		call script eqeqncoef_1
	}
END

PROGRAM prog_spec1
BEGIN
	put "("
	if main.rb_test1a {
		if !main.vl_coef1 {
		  stopbox stop `""Specification 1, test these coefficients""' /*
		  */ `"must be filled in"'
		}
		put /hidden main.vl_coef1
	}
	if main.rb_test1b {
		if !main.vl_coef1a {
		  stopbox stop `""Specification 1, linear expression""' /*
		  */ `"must be filled in"'
		}
		put /hidden main.vl_coef1a
	}
	if main.rb_test1c{
		if !main.cb_eqn1a {
		  stopbox stop `""Specification 1, equation""' /*
		  */ `"must be filled in"'
		}
		put "["
		put /hidden main.cb_eqn1a
		put "]"
		if main.vl_coef1b {
			put ":"
			put /hidden main.vl_coef1b
		}
	}
	if main.rb_test1d{
		if !main.cb_eqn1a {
		  stopbox stop `""Specification 1, equation 1""' /*
		  */ `"must be filled in"'
		}
		if !main.cb_eqn1b {
		  stopbox stop `""Specification 1, equation 2""' /*
		  */ `"must be filled in"'
		}
		put "["
		put /hidden main.cb_eqn1a
		put "="
		put /hidden main.cb_eqn1b
		if main.cb_eqn1c {
			put "="
			put /hidden main.cb_eqn1c
		}
		if main.cb_eqn1d {
			put "="
			put /hidden main.cb_eqn1d
		}
		if main.cb_eqn1e {
			put "="