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