Files
TempleOS-Rijn/LT/DEMO/CommTerminal.CPZ
T
2018-09-08 21:45:17 +02:00

20 lines
341 B
Plaintext

// COM port Terminal
void CommTerm(U4 port=1,U4 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 (ScanChar(&sc,&ch))
CommPutChar(port,ch);
SwapInNext;
}
CommClose(port);
}
CommTerm;