Dim S As String * 12 , A As Byte 
INITLCD
Cls                'clear the LCD display
Lcd "It works"     'display this at the top line
Wait 1             
Lowerline          'select the lower line
Wait 1
Lcd "And now RX"                     
Open "com3.1:9600" For Output As #1 
Open "com3.0:9600" For Input As #2 
Do
Get #2 , A TIMEOUT = 10000 'get character from comport
Lcd A        'send to LCD
Loop
Close #1     ' finally close device
Close #2
End