@Dirk:
Die 107 hab ich mit diesem code empfangen, also quasi dem beispiel aus der Bascom-Hilfe:

Code:
$regfile = "2313def.dat"
$crystal = 3686400
$baud = 9600

Config Rc5 = Pind.6

Enable Interrupts

Dim Address As Byte , Command As Byte

Do
Getrc5(address , Command)
   If Address < 255 Then
      Command = Command And &B01111111
      Print Address ; "  " ; Command
   End If
Loop
@linux_80
Danke, werd mich jetzt mal weiter in dieser Richtung umschaun.