matrix_input.dlg

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

BEGIN
	call gaction main.ed_r1c7.enable
	if !H(main.ed_r2c1) {
		call gaction main.ed_r2c7.enable
	}
	if !H(main.ed_r3c1) {
		call gaction main.ed_r3c7.enable
	}
	if !H(main.ed_r4c1) {
		call gaction main.ed_r4c7.enable
	}
	if !H(main.ed_r5c1) {
		call gaction main.ed_r5c7.enable
	}
	if !H(main.ed_r6c1) {
		call gaction main.ed_r6c7.enable
	}
	if !H(main.ed_r7c1) {
		call gaction main.ed_r7c7.enable
	}
	if !H(main.ed_r8c1) {
		call gaction main.ed_r8c7.enable
	}
	if !H(main.ed_r9c1) {
		call gaction main.ed_r9c7.enable
	}
	if !H(main.ed_r10c1) {
		call gaction main.ed_r10c7.enable
	}
END

PROGRAM c8on
BEGIN
	call gaction main.ed_r1c8.enable
	if !H(main.ed_r2c1) {
		call gaction main.ed_r2c8.enable
	}
	if !H(main.ed_r3c1) {
		call gaction main.ed_r3c8.enable
	}
	if !H(main.ed_r4c1) {
		call gaction main.ed_r4c8.enable
	}
	if !H(main.ed_r5c1) {
		call gaction main.ed_r5c8.enable
	}
	if !H(main.ed_r6c1) {
		call gaction main.ed_r6c8.enable
	}
	if !H(main.ed_r7c1) {
		call gaction main.ed_r7c8.enable
	}
	if !H(main.ed_r8c1) {
		call gaction main.ed_r8c8.enable
	}
	if !H(main.ed_r9c1) {
		call gaction main.ed_r9c8.enable
	}
	if !H(main.ed_r10c1) {
		call gaction main.ed_r10c8.enable
	}
END

PROGRAM c9on
BEGIN
	call gaction main.ed_r1c9.enable
	if !H(main.ed_r2c1) {
		call gaction main.ed_r2c9.enable
	}
	if !H(main.ed_r3c1) {
		call gaction main.ed_r3c9.enable
	}
	if !H(main.ed_r4c1) {
		call gaction main.ed_r4c9.enable
	}
	if !H(main.ed_r5c1) {
		call gaction main.ed_r5c9.enable
	}
	if !H(main.ed_r6c1) {
		call gaction main.ed_r6c9.enable
	}
	if !H(main.ed_r7c1) {
		call gaction main.ed_r7c9.enable
	}
	if !H(main.ed_r8c1) {
		call gaction main.ed_r8c9.enable
	}
	if !H(main.ed_r9c1) {
		call gaction main.ed_r9c9.enable
	}
	if !H(main.ed_r10c1) {
		call gaction main.ed_r10c9.enable
	}
END

PROGRAM c10on
BEGIN
	call gaction main.ed_r1c10.enable
	if !H(main.ed_r2c1) {
		call gaction main.ed_r2c10.enable
	}
	if !H(main.ed_r3c1) {
		call gaction main.ed_r3c10.enable
	}
	if !H(main.ed_r4c1) {
		call gaction main.ed_r4c10.enable
	}
	if !H(main.ed_r5c1) {
		call gaction main.ed_r5c10.enable
	}
	if !H(main.ed_r6c1) {
		call gaction main.ed_r6c10.enable
	}
	if !H(main.ed_r7c1) {
		call gaction main.ed_r7c10.enable
	}
	if !H(main.ed_r8c1) {
		call gaction main.ed_r8c10.enable
	}
	if !H(main.ed_r9c1) {
		call gaction main.ed_r9c10.enable
	}
	if !H(main.ed_r10c1) {
		call gaction main.ed_r10c10.enable
	}
END


PROGRAM row1put
BEGIN
	require main.ed_r1c1
	put main.ed_r1c1
	if !H(main.ed_r1c2) {
		require main.ed_r1c2
		put "," main.ed_r1c2
	}
	if !H(main.ed_r1c3) {
		require main.ed_r1c3
		put "," main.ed_r1c3
	}
	if !H(main.ed_r1c4) {
		require main.ed_r1c4
		put "," main.ed_r1c4
	}
	if !H(main.ed_r1c5) {
		require main.ed_r1c5
		put "," main.ed_r1c5
	}
	if !H(main.ed_r1c6) {
		require main.ed_r1c6
		put "," main.ed_r1c6
	}
	if !H(main.ed_r1c7) {
		require main.ed_r1c7
		put "," main.ed_r1c7
	}
	if !H(main.ed_r1c8) {
		require main.ed_r1c8
		put "," main.ed_r1c8
	}
	if !H(main.ed_r1c9) {
		require main.ed_r1c9
		put "," main.ed_r1c9
	}
	if !H(main.ed_r1c10) {
		require main.ed_r1c10
		put "," main.ed_r1c10
	}
END

PROGRAM row2put
BEGIN
	if !H(main.ed_r2c1) {
		require main.ed_r2c1
		put "\" main.ed_r2c1
	}
	if !H(main.ed_r2c2) {
		require main.ed_r2c2
		put "," main.ed_r2c2
	}
	if !H(main.ed_r2c3) {
		require main.ed_r2c3
		put "," main.ed_r2c3
	}
	if !H(main.ed_r2c4) {
		require main.ed_r2c4
		put "," main.ed_r2c4
	}
	if !H(main.ed_r2c5) {
		require main.ed_r2c5
		put "," main.ed_r2c5
	}
	if !H(main.ed_r2c6) {
		require main.ed_r2c6
		put "," main.ed_r2c6
	}
	if !H(main.ed_r2c7) {
		require main.ed_r2c7
		put "," main.ed_r2c7
	}
	if !H(main.ed_r2c8) {
		require main.ed_r2c8
		put "," main.ed_r2c8
	}
	if !H(main.ed_r2c9) {
		require main.ed_r2c9
		put "," main.ed_r2c9
	}
	if !H(main.ed_r2c10) {
		require main.ed_r2c10
		put "," main.ed_r2c10
	}
END

PROGRAM row3put
BEGIN
	if !H(main.ed_r3c1) {
		require main.ed_r3c1
		put "\" main.ed_r3c1
	}
	if !H(main.ed_r3c2) {
		require main.ed_r3c2
		put "," main.ed_r3c2
	}
	if !H(main.ed_r3c3) {
		require main.ed_r3c3
		put "," main.ed_r3c3
	}
	if !H(main.ed_r3c4) {
		require main.ed_r3c4
		put "," main.ed_r3c4
	}
	if !H(main.ed_r3c5) {
		require main.ed_r3c5
		put "," main.ed_r3c5
	}
	if !H(main.ed_r3c6) {
		require main.ed_r3c6
		put "," main.ed_r3c6
	}
	if !H(main.ed_r3c7) {
		require main.ed_r3c7
		put "," main.ed_r3c7
	}
	if !H(main.ed_r3c8) {
		require main.ed_r3c8
		put "," main.ed_r3c8
	}
	if !H(main.ed_r3c9) {
		require main.ed_r3c9
		put "," main.ed_r3c9
	}
	if !H(main.ed_r3c10) {
		require main.ed_r3c10
		put "," main.ed_r3c10
	}
END

PROGRAM row4put
BEGIN
	if !H(main.ed_r4c1) {
		require main.ed_r4c1
		put "\" main.ed_r4c1
	}
	if !H(main.ed_r4c2) {
		require main.ed_r4c2
		put "," main.ed_r4c2
	}
	if !H(main.ed_r4c3) {
		require main.ed_r4c3
		put "," main.ed_r4c3
	}
	if !H(main.ed_r4c4) {
		require main.ed_r4c4
		put "," main.ed_r4c4
	}
	if !H(main.ed_r4c5) {
		require main.ed_r4c5
		put "," main.ed_r4c5
	}
	if !H(main.ed_r4c6) {
		require main.ed_r4c6
		put "," main.ed_r4c6
	}
	if !H(main.ed_r4c7) {
		require main.ed_r4c7
		put "," main.ed_r4c7
	}
	if !H(main.ed_r4c8) {
		require main.ed_r4c8
		put "," main.ed_r4c8
	}
	if !H(main.ed_r4c9) {
		require main.ed_r4c9
		put "," main.ed_r4c9
	}
	if !H(main.ed_r4c10) {
		require main.ed_r4c10
		put "," main.ed_r4c10
	}
END

PROGRAM row5put
BEGIN
	if !H(main.ed_r5c1) {
		require main.ed_r5c1
		put "\" main.ed_r5c1
	}
	if !H(main.ed_r5c2) {
		require main.ed_r5c2
		put "," main.ed_r5c2
	}
	if !H(main.ed_r5c3) {
		require main.ed_r5c3
		put "," main.ed_r5c3
	}
	if !H(main.ed_r5c4) {
		require main.ed_r5c4
		put "," main.ed_r5c4
	}
	if !H(main.ed_r5c5) {
		require main.ed_r5c5
		put "," main.ed_r5c5
	}
	if !H(main.ed_r5c6) {
		require main.ed_r5c6
		put "," main.ed_r5c6
	}
	if !H(main.ed_r5c7) {
		require main.ed_r5c7
		put "," main.ed_r5c7
	}
	if !H(main.ed_r5c8) {
		require main.ed_r5c8
		put "," main.ed_r5c8
	}
	if !H(main.ed_r5c9) {
		require main.ed_r5c9
		put "," main.ed_r5c9
	}
	if !H(main.ed_r5c10) {
		require main.ed_r5c10
		put "," main.ed_r5c10
	}
END

PROGRAM row6put
BEGIN
	if !H(main.ed_r6c1) {
		require main.ed_r6c1
		put "\" main.ed_r6c1
	}
	if !H(main.ed_r6c2) {
		require main.ed_r6c2
		put "," main.ed_r6c2
	}
	if !H(main.ed_r6c3) {
		require main.ed_r6c3
		put "," main.ed_r6c3
	}
	if !H(main.ed_r6c4) {
		require main.ed_r6c4
		put "," main.ed_r6c4
	}
	if !H(main.ed_r6c5) {
		require main.ed_r6c5
		put "," main.ed_r6c5
	}
	if !H(main.ed_r6c6) {
		require main.ed_r6c6
		put "," main.ed_r6c6
	}
	if !H(main.ed_r6c7) {
		require main.ed_r6c7
		put "," main.ed_r6c7
	}
	if !H(main.ed_r6c8) {
		require main.ed_r6c8
		put "," main.ed_r6c8
	}
	if !H(main.ed_r6c9) {
		require main.ed_r6c9
		put "," main.ed_r6c9
	}
	if !H(main.ed_r6c10) {
		require main.ed_r6c10
		put "," main.ed_r6c10
	}
END

PROGRAM row7put
BEGIN
	if !H(main.ed_r7c1) {
		require main.ed_r7c1
		put "\" main.ed_r7c1
	}
	if !H(main.ed_r7c2) {
		require main.ed_r7c2
		put "," main.ed_r7c2
	}
	if !H(main.ed_r7c3) {
		require main.ed_r7c3
		put "," main.ed_r7c3
	}
	if !H(main.ed_r7c4) {
		require main.ed_r7c4
		put "," main.ed_r7c4
	}
	if !H(main.ed_r7c5) {
		require main.ed_r7c5
		put "," main.ed_r7c5
	}
	if !H(main.ed_r7c6) {
		require main.ed_r7c6
		put "," main.ed_r7c6
	}
	if !H(main.ed_r7c7) {
		require main.ed_r7c7
		put "," main.ed_r7c7
	}
	if !H(main.ed_r7c8) {
		require main.ed_r7c8
		put "," main.ed_r7c8
	}
	if !H(main.ed_r7c9) {
		require main.ed_r7c9
		put "," main.ed_r7c9
	}
	if !H(main.ed_r7c10) {
		require main.ed_r7c10
		put "," main.ed_r7c10
	}
END

PROGRAM row8put
BEGIN
	if !H(main.ed_r8c1) {
		require main.ed_r8c1
		put "\" main.ed_r8c1
	}
	if !H(main.ed_r8c2) {
		require main.ed_r8c2
		put "," main.ed_r8c2
	}
	if !H(main.ed_r8c3) {
		require main.ed_r8c3
		put "," main.ed_r8c3
	}
	if !H(main.ed_r8c4) {
		require main.ed_r8c4
		put "," main.ed_r8c4
	}
	if !H(main.ed_r8c5) {
		require main.ed_r8c5
		put "," main.ed_r8c5
	}
	if !H(main.ed_r8c6) {
		require main.ed_r8c6
		put "," main.ed_r8c6
	}
	if !H(main.ed_r8c7) {
		require main.ed_r8c7
		put "," main.ed_r8c7
	}
	if !H(main.ed_r8c8) {
		require main.ed_r8c8
		put "," main.ed_r8c8
	}
	if !H(main.ed_r8c9) {
		require main.ed_r8c9
		put "," main.ed_r8c9
	}
	if !H(main.ed_r8c10) {
		require main.ed_r8c10
		put "," main.ed_r8c10
	}
END

PROGRAM row9put
BEGIN
	if !H(main.ed_r9c1) {
		require main.ed_r9c1
		put "\" main.ed_r9c1
	}
	if !H(main.ed_r9c2) {
		require main.ed_r9c2
		put "," main.ed_r9c2
	}
	if !H(main.ed_r9c3) {
		require main.ed_r9c3
		put "," main.ed_r9c3
	}
	if !H(main.ed_r9c4) {
		require main.ed_r9c4
		put "," main.ed_r9c4
	}
	if !H(main.ed_r9c5) {
		require main.ed_r9c5
		put "," main.ed_r9c5
	}
	if !H(main.ed_r9c6) {
		require main.ed_r9c6
		put "," main.ed_r9c6
	}
	if !H(main.ed_r9c7) {
		require main.ed_r9c7
		put "," main.ed_r9c7
	}
	if !H(main.ed_r9c8) {
		require main.ed_r9c8
		put "," main.ed_r9c8
	}
	if !H(main.ed_r9c9) {
		require main.ed_r9c9
		put "," main.ed_r9c9
	}
	if !H(main.ed_r9c10) {
		require main.ed_r9c10
		put "," main.ed_r9c10
	}
END

PROGRAM row10put
BEGIN
	if !H(main.ed_r10c1) {
		require main.ed_r10c1
		put "\" main.ed_r10c1
	}
	if !H(main.ed_r10c2) {
		require main.ed_r10c2
		put "," main.ed_r10c2
	}
	if !H(main.ed_r10c3) {
		require main.ed_r10c3
		put "," main.ed_r10c3
	}
	if !H(main.ed_r10c4) {
		require main.ed_r10c4
		put "," main.ed_r10c4
	}
	if !H(main.ed_r10c5) {
		require main.ed_r10c5
		put "," main.ed_r10c5
	}
	if !H(main.ed_r10c6) {
		require main.ed_r10c6
		put "," main.ed_r10c6
	}
	if !H(main.ed_r10c7) {
		require main.ed_r10c7
		put "," main.ed_r10c7
	}
	if !H(main.ed_r10c8) {
		require main.ed_r10c8
		put "," main.ed_r10c8
	}
	if !H(main.ed_r10c9) {
		require main.ed_r10c9
		put "," main.ed_r10c9
	}
	if !H(main.ed_r10c10) {
		require main.ed_r10c10
		put "," main.ed_r10c10
	}
END

PROGRAM command
BEGIN
	require main.ed_name

	put "matrix input " main.ed_name " " "= ("

	put /program row1put
	put /program row2put
	put /program row3put
	put /program row4put
	put /program row5put
	put /program row6put
	put /program row7put
	put /program row8put
	put /program row9put
	put /program row10put

	put ")"
END