*! 1.0.1 NJC 6 August 2004
*! 1.0.0 NJC 8 December 1999 with code from Jeroen Weesie's -keyb-
program def repcmd6
	version 6
	if "`1'" == "" { error 198 }

	gettoken cmd 0 : 0, parse(" ,")
	local cmd : char _dta[`cmd']
	if `"`cmd'"' == "" {
		di in r "no such characteristic"
		exit 198
	}

	syntax [, Showonly ]

        if `"$BUF_DISP"' != "" { di in wh `". `*'"' }

        * put the command in the command buffer
        push `cmd'

        * execute the command (unless -showonly-)
        if "`showonly'" == "" { `cmd' }
end