*! version 2.0.0 Thu Feb 25 10:53:26 PST 1993
program define setfwid /* # */
	version 3.0 
	quietly { 
		describe, short
		local todo = _result(6) - _result(3) - `1'
		local i 1
		while (`todo'>80) { 
			gen str80 __fwid`i' = ""
			local i=`i'+1
			local todo = `todo' - 80
		}
		if `todo'>0 {
			gen str`todo' __fwid`i' = ""
		}
	}
end