Ich hab's etwas abgeändert, nur, das hier die gesendeten Daten nicht verändert werden.

Code:
' 10MHz Quarz
$crystal = 10000000

$regfile = "ATtiny2313.dat"

'Variable
Dim S As String * 10
Dim Mybaud As Long

Mybaud = 9600

Do
  'Daten empfangen
  Serin S , 0 , D , 2 , Mybaud , 1 , 8 , 1

  'Daten senden
  Serout S , 0 , D , 3 , Mybaud , 1 , 8 , 1

  Wait 1
Loop

End
Geht das vom Prinzip?