PortA = openup ("COM7: baud=115200 parity=N data=8 stop=1 rts=on") PortB = openup ("COM5: baud=115200 parity=N data=8 stop=1 rts=on") txchar$ = "" rxchar$ = "" repeat char% = ext#PortA if char% <> 0 then txchar$ = chr$(bget#PortA) if txchar$ <> "" then bput #PortB, txchar$ ; endif else char% = ext#PortB if char% <> 0 then for cnt%=1 to char% rxchar$ = chr$(bget#PortB) bput #PortA, rxchar$ ; next endif endif until false
|
|