*! version 1.0.0  10/28/93              STB16: zz3
program define stb_clr
	version 3.1
	if "$STBdirn"!="" {
		local i 1
		while `i'<=$STBdirn {
			global STBdir`i'
			local i=`i'+1
		}
	}
	global STBdirn
	global STBdlmt
	global STBver
end