$regfile = "2313def.dat"
$crystal = 4000000

Config Pind.6 = Output

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
  Set Portd.6
  Waitms 100
  Reset Portd.6
  Print #1 , "text: "
  Input #2 , Tstr
  Print #1 , Tstr
  Print #1 , "number: "
  Input #2 , Num
  Print #1 , Num
Loop

End