*! version 1.0.0  10/28/93		STB-16: zz3
program define stb_ex /* filename */
	version 3.1
	local i 2
	while `i'<=$STBdirn {
		capture confirm file ${STBdir`i'}${STBdlmt}`1'
		if _rc==0 { 
			global S_1 1 
			global S_2 ${STBdir`i'}
			exit
		}
		local i=`i'+1
	}
	global S_1 0
	global S_2
end