*! version 1.0.0  10/15/93   STB-16:  dm15
program define brset
	version 3.1
	parse "`*'", parse(" ")
	tempvar pgsize
	local pgsize = real("`1'")
	if "`2'"!=""|`pgsize'!=int(`pgsize')|`pgsize'==. {
		display "Please enter a single integer argument"
		exit 198
	}
	else {
		global S_BLIST `pgsize'
	}
end