varirf.ado

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

*! version 2.0.7  11dec2002
program define varirf
	version 8.0

	gettoken sub 0 : 0 , parse(" ,")

	local l = length(`"`sub'"')
	if `l'==0 {
		varirf_set 
		exit
	}
	if `"`sub'"'==substr("create",1,max(2,`l')) {		/* CReate */
		varirf_create `0'
	}
	else if `"`sub'"'=="set" {
		varirf_set `0'
	}
	else if `"`sub'"'==substr("describe",1,max(1,`l')) {	/* Describe */
		varirf_describe `0'
	}
	else if `"`sub'"'==substr("dir",1,max(2,`l')) {		/* DIr */
		varirf_dir `0'
	}
	else if `"`sub'"'=="drop" {				/* drop */
		varirf_drop `0'
	}
	else if `"`sub'"'=="erase" {				/* erase */
		varirf_erase `0'
	}
	else if `"`sub'"'==substr("rename",1,max(3,`l')) {	/* REName */
		varirf_rename `0'
	}
	else if `"`sub'"'==substr("graph",1,max(1,`l')) {	/* Graph */
		varirf_graph `0'
	}
	else if `"`sub'"'==substr("cgraph",1,max(2,`l')) {	/* CGraph */
		varirf_cgraph `0'
	}
	else if `"`sub'"'==substr("ograph",1,max(2,`l')) {	/* OGraph */
		varirf_ograph `0'
	}
	else if `"`sub'"'==substr("table",1,max(1,`l')) {	/* Table */
		varirf_table `0'
	}
	else if `"`sub'"'==substr("ctable",1,max(2,`l')) {	/* CTable */
		varirf_ctable `0'
	}
	else if `"`sub'"'==substr("add",1,max(1,`l')) {		/* Add */
		varirf_add `0'
	}
	else {
		di as error "`sub' unknown subcommand"
		exit 198
	}
end

exit