Hi,

probier das mal mit inkey() bzw. waitkey() also:

Code:
Dim I as Byte

If Ischarwaiting() = 1 Then
   I = Inkey()
   Print #2 , I
End If
Wenn du einen String sendest musst du dann auf ein chr(13) prüfen.
Es kann auch sein, wenn du das in der Senderoutine weglässt, dass es
sich dann aufhängt z.b:

Sender: Print "Hallo";
Empfänger: Input I

Sollte sich aufhängen weil wie gesagt auf chr(13) (";" hebt das ja auf)
geprüft wird.