Habe die Suche vom Forum verwendet, und mir irgendwie den Code zusammengeschneidert, aber es mag immer noch nicht =(
Ein carriage return wird hierbei gesendet, der Empfänger reagiert aber nicht =(

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

Config Pind.5 = Input
Config Pind.6 = Input

Declare Sub Send1

Dim X As String * 1
Dim Cr As String * 4

Cr = "13"
X = "A"

Do
Debounce Pind.5 , 0 , Send1 , Sub
Loop

Sub Send1:
Print X ; Chr(cr)
End Sub
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Portb = Output

Declare Sub Loop1

Dim X As String * 10
Dim Y As String * 1

Y = "A"

Portb.5 = 0

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

Sub Loop1:
Toggle Portb.5
End Sub

Beim Sender ist X gleich "A" und beim Empfänger ist Y auch "A", dabei sollte doch nach Loop1 gesprungen werden...