_crcacnt.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 10 行

*! version 2.0.0  07/20/91  (anachronism)
program define _crcacnt
	version 3.0
	mac def S_1 1		/* count of arguments	*/
	while ("`$S_1'"!="") { 
		mac def S_1 = $S_1 + 1 
	}
	mac def S_1 = $S_1 - 1
end