*! version 3.1.1 04-Nov-93.                             STB-24: gr17
program define win1
	version 3.1
	parse "`*'" ,parse(" ")
	cap win def win1
	set gr on win1
	`*'
end