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
|
|