Com1key.f

: 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