*! version 1.0.1  10/26/93              STB16: zz3
program define stb_cal
	version 3.1
	di _n in ye "STB volume 1:"
	#delimit ;
	di in gr _col(8) "May  1991" _col(20) "STB-1" _col(30) "(Stata 2.1)" ;
	di in gr _col(8) "Jul  1991" _col(20) "STB-2" _col(30)
		"(Note:  ado-files from this period must be" ;
	di in gr _col(8) "Sep  1991" _col(20) "STB-3" _col(38)
		"modified to include " _quote "version 2.1" _quote ;
	di in gr _col(8) "Nov  1991" _col(20) "STB-4" _col(38)
		"at the top; see [0] new.)" ;
	di in gr _col(8) "Jan  1992" _col(20) "STB-5" ;
	di in gr _col(8) "Mar  1992" _col(20) "STB-6" _col(30)
		"(Stata 2.1, Stata 3.0 announced)" ;
	di _n in ye "STB volume 2:" ;
	di in gr _col(8) "May  1992" _col(20) "STB-7" _col(30) "(Stata 3.0)" ;
	di in gr _col(8) "Jul  1992" _col(20) "STB-8" _col(30) 
		"(Note:  ado-files from this period will work" ;
	di in gr _col(8) "Sep  1992" _col(20) "STB-9" _col(38) 
		"unmodified with the current version" ;
	di in gr _col(8) "Nov  1992" _col(20) "STB-10" _col(38)
		"of Stata.)" ;
	di in gr _col(8) "Jan  1993" _col(20) "STB-11" ;
	di in gr _col(8) "Mar  1993" _col(20) "STB-12" ;
	#delimit cr

	/* automated production: */
	local Year = substr("$S_DATE",8,.)
	local mos "MayJulSepNovJanMar"
	local year 1993	 /* was 1992 */
	local k 13	/* was 7 */
	local vol 3	/* was 2 */
	while `year'<=`Year' {
		di _n in ye "STB volume `vol':"
		local i 0 
		while `i'<6 {
			if `k'+`i'==14 {
				local note "(Stata 3.0, Stata 3.1 announced)"
			}
			else if `k'+`i'==15 {
				local note "(Stata 3.1)"
			}
			else	local note
			di in gr _col(8) substr("`mos'",`i'*3+1,3) /*
				*/ "  " `year'+(`i'>=4) /*
				*/ _col(20) "STB-" `k'+`i' /*
				*/ _col(30) "`note'"
			local i=`i'+1
		}
		local vol=`vol'+1
		local k=`k'+6
		local year=`year'+1
	}
end