*! 1.1.1 NJC 25 May 2002
* 1.1.0 NJC 25 Oct 2001
* 1.0.0 NJC 22 Oct 2001
program define sq
	version 7.0
	gettoken cmd 0 : 0, parse(" ,")
	syntax [varlist(ts default=none)] [fweight aweight iweight] [if] [in] /*
	*/ [ , Aspectratio(real 1) * ]

	local a = `aspectratio' /* height / width */
	if `a' > (23063 / 32000) {
		local h = 23063
		local w = int(`h' / `a')
	}
	else {
	        local w = 32000
		local h = int(`w' * `a')
	}

	`cmd' `varlist' `if' `in' [`weight' `exp'], /*
	*/ `options' bbox(0,0,`h',`w',923,444,0)
end