ô > SerTester ô Test serial port : (+î … ÿ"FX2":ÿ"FX3":ñŠ0,9):ö:ñ" at ";ž;:à 2ñ"Program has hung"; < *FX2,2 F/Û:ñ"Serial Port Tester -- Press some keys:" P"ñ'"Sending out:"'"Coming in: " Z*ñ'"Keyboard buffer: ";¤empt(–(-1)) d)ñ"Serial Input Buffer: ";¤empt(–(-2)) n)ñ"Serial Output Buffer:";¤full(–(-3)) xiñ'"If output buffer fills up and input buffer stays"'"empty, there's a problem with the serial port." ‚õ Œ$ô Wait for an entry to a buffer: –/a1%=–(-1):a2%=–(-2):a3%=–(-3):ça3%<>0 a1%=0  (õý–(-1)<>a1% „ –(-2)<>0 „ –(-3)<>a3% ªMç–(-1)<>0 € –(-3)<>0 Œ B%=¥:ñŠ13,2);¤h(B%,2);" ";¤c(B%):ÿ"FX3,7":ïB%:*FX3 ´Bç–(-2)<>0 Œ ÿ"FX2,1":B%=¥:ÿ"FX2,2":ñŠ13,3);¤h(B%,2);" ";¤c(B%) ¾@ñŠ21,5);¤empt(–(-1));Š21,6);¤empt(–(-2));Š21,7);¤full(–(-3)) Èý¦-1 € ¦-2 € ¦-3 Òà Ü"ݤh(N%,D%)=Â"0000000"+Ã~N%,D%) æ(ݤc(N%):ç N%=127 „ N%<32:="." ‹ =½N% ð.ݤfull(N%):ç N%=0:="0 Full" ‹ =ÃN%+" " ú0ݤempt(N%):ç N%=0:="0 Empty" ‹ =ÃN%+" " ÿ