*! printlog -- Print log files.                   STB-13: os9
*! version 1.0.0     Sean Becketti     May 9, 1993
program define printlog
	version 3.0
	while ("`1'" != "") {
		local fn "`1'"
		local j = index("`fn'",".log")
		if ((`j')>0 & (`j'==length("`fn'")-3)) {
			local fn=substr("`fn'",1,(`j'-1))
		}
		!fsl -lhp `fn'
		!lp `fn'.prn
		erase `fn'.prn
		mac shift
	}
end