*! version 3.0.0  
*! period -- set or display period
*! Sean Becketti, April 1991.
program define period /* #  or  word   or  # word  */
	version 3.0
	_ts_peri `*'
	mac def S_period "$S_1 $S_2"
	di "$S_1 ($S_2)"
end