%
% monitor Serial port A and record incoming data
%
 "SerialA.buf" text ofwiz
"twiz" log)(
 dup ".xtx" reextend
 dup tuck
 dup del
 movefile
"twjz" log)(
 read
 "?" empty replall
 ^:Summ.Coll
 *machchnp