*! 1.0.0 NJC 10 December 1999 with code from Jeroen Weesie's -keyb- program define stowcmd6 version 6.0 gettoken cname 0 : 0 if `"`0'"' == "" { error 198 } if `"$BUF_DISP"' != "" { di in g "stowed command: " in wh `". `0'"' } local cmd `"`0'"' * put command in keyboard buffer push `cmd' * save to characteristic char _dta[`cname'] `"`cmd'"' end