Com1talk.f

: Com1talk      ( -- )          \ simple terminal talker to the serial port

                cr ." Initializing Serial Port to: "

                cr ." COM1: baud=9600 parity=N data=8 stop=1"

                z" COM1" ComOpen to com1Hndl

                    Reset: DCB

                FALSE Put: DCB.fOutxCtsFlow      \ Don't pay attention to CTS

                CBR_9600 8 NOPARITY ONESTOPBIT com1Hndl ComSetup

                com1Hndl ComTimeouts

                cr ." Press ESC to stop talking." cr

                BEGIN   key?

                        if      key do-Com1key ?EXIT

                        then

                        Com1key?

                        if      Com1key emit

                        then

                AGAIN ;