*! version 1.0.0  10/28/93	STB-16: zz3
program define stb_sys /* filename */
	version 3.1
	local i 1
	if `i'<=$STBdirn {
		capture confirm file ${STBdir`i'}${STBdlmt}`1'
		if _rc==0 { 
			global S_1 1 
			global S_2 ${STBdir`i'}
			exit
		}
		local ltr = substr("`1'",1,1)
		capture confirm file ${STBdir`i'}${STBdlmt}`ltr'${STBdlmt}`1'
		if _rc==0 { 
			global S_1 1
			global S_2 ${STBdir`i'}${STBdlmt}`ltr'
			exit
		}
	}
	global S_1 0
	global S_2
end