*! version 1.0.0  10/28/93              STB16: zz3
program define stb_dirs /* sets STBdlmt STBdir# STBdirn */
	version 3.1

	if "$S_OS"=="Unix" { 
		global STBdlmt "/"
	}
	else if "$S_OS"=="DOS" {
		global STBdlmt "/"	/* sic */
	}
	else if "$S_OS"=="Macintosh" {
		global STBdlmt ":"
	}
	else {
		di in red "Unknown operating system $S_OS"
		exit 198
	}

	parse "$S_ADO", parse(";") 
	local i 0
	while "`1'"!="" {
		local i=`i'+1
		global STBdir`i' "`1'"
		mac shift 2
	}
	global STBdirn `i'
end