In Bascom gehts besonders einfach mit den virtuellen Schnittstellen
(Ports müssen für RN-Control angepasst werden).

Code:
 
Dim Tstr As String * 4
Dim Num As Word
 
'open channel for output
Open "comb.1:9600,8,n,1" For Output As #1
Open "comb.0:9600,8,n,1" For Input As #2
 
Do
Print #1 , "text: "
Input #2 , Tstr
Print #1 , Tstr
Print #1 , "number: "
Input #2 , Num
Print #1 , Num
Loop
 
'am ende schließen
Close #1
Close #2