viewsource.ado

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

*! version 1.0.0  06jan2005
program viewsource
	version 9

	if ("`2'"!="") error 198
	quietly findfile `"`1'"'
	if "$S_CONSOLE"=="console" {
		type `"`r(fn)'"', asis
	}
	else 	view `"`r(fn)'"', asis
end