*! version 1.0.0  10/28/93                      STB16: zz3
program define stb_list /* 0, no divider, 1 top divider, 2 bot, 3 both */
	local i 1
	di
	if "`1'"=="1" | "`1'"=="3" {
		di in gr _dup(79) "-"
	}
	while `i'<=_N {
		local skip=79-length(author[`i'])
		if `skip'>=18+length(ttl[`i'])+1 {
			local skip = `skip' - 18 - length(ttl[`i']) + 1
			di in gr stb[`i'] _col(8) insert[`i'] /*
			*/ in ye _col(18) ttl[`i'] in gr /*
			*/ _skip(`skip') author[`i']
		}
		else {
			di in gr stb[`i'] _col(8) insert[`i'] /*
			*/ in ye _col(18) ttl[`i']
			di in gr _skip(`skip') author[`i']
		}
		local i=`i'+1
	}
	if "`1'"=="2" | "`1'"=="3" {
		di in gr _dup(79) "-"
	}
end