ComX/COM1/Com1key_.f

: Com1key?      ( -- c1 )       \ get a key from serial port, don't wait long

                Com1key-flg? 0=

                if      Com1key-val 1 Com1Hndl read-file        \ -- len flag

                        abort" Failed to read serial port"      \ -- len

                        to Com1key-flg?

                then    Com1key-flg? ;