COM1

\ Example: Simple terminal program

0  value Com1Hndl

variable Com1key-val            \ a place to save last key received

0  value Com1key-flg?           \ have we already got a key?

fload  ComX/COM1/Com1key_.f

fload  ComX/COM1/Com1key.f

fload  ComX/COM1/Com1emit .f

fload  ComX/COM1/do-Com1key.f

fload  ComX/COM1/Com1talk.f