Danke für den Tip!
Funktioniert aber immer noch nicht!

Mein Sender sendet jetzt jede Sekunde das Zeichen, somit sollte die Led beim Empfänger abwechselnd schalten, tut sie aber nicht.

Beim Start beider AVR's bleibt die led konstant am Leuchten.
Mein neuer Code:


Sender:
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Dim X As String * 1
X = "A"

Do
Print X
Wait 1
Loop

End
Empfänger:
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Declare Sub Toggle1

Config Portb.5 = Output

Dim X As String * 1
Dim Y As String * 1
X = "A"

Do
Input , Y
If X = Y Then Gosub Toggle1
Loop

Toggle1:
Toggle Portb.5
Y = ""
Return

End

Habs mit IF X = Y THEN Toggle1 und mit Gosub toggle1 probiert, geht beides nicht!

Wo liegt nur der Fehler =(