Nun gut, PRINT X funktioniert, bei PRINT X; tut sich nix mehr =(

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

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

Declare Sub Send1

Dim X As Integer

X = 1

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

Sub Send1:
Print X;
End Sub

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

Config Portb = Output

Declare Sub Loop1

Dim X As Integer
Dim Y As Integer

Y = 1

Portb.5 = 0

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

Sub Loop1:
Toggle Portb.5
End Sub

Bei Tastendruck geht die LED an, nochmal Druck sollte sie ausgehen, tut sie aber nicht!

Wenn ich PRINT X; schreibe, geht gar nichts mehr!