: Com1key ( -- c1 ) \ must return a key
begin Com1key? \ loop till we get one
until
Com1key-val c@ \ return the key
0 to Com1key-flg? ; \ clear the save buffer