Com1emit.f

: Com1emit      { charin -- }     \ write a character to the serial port

                &OF charin 1 Com1Hndl write-file

                abort" Failed to write serial port" ;