// COM port Terminal
void CommTerm(I8 port=1,U8 baud=9600)
{
  U8 sc;
  U8 ch=0;
  coutln "ESC to exit";
  CommOpen8N1(port,baud);
  while (ch!=CH_ESC) {
    if (CommScanChar(port,&ch))
      PutChar(ch);
    ch=0;
    if (ScanKey(&ch,&sc))
      CommPutChar(port,ch);
    SwapInNext;
  }
  CommClose(port);
}

CommTerm;