stretch_g.class

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

*! version 1.0.1  21nov2004
version 8

class {
} , inherit(stretchability)


program new
	.current = 0				// Null by default

	if `"`0'"' != `""' {
		.Super.new `0'
	}

end

// --------------------------------------------------------------------------
//  Returns the name of the current code
//
//	Usage:  .setting

program setting

	if 0`.current' {
		class exit .codes[`.current']
	}
end