Also ich habe jetzt das Programm:
die 00000 steht für TV1
und die 010000 für Volume +

Kann das gehen viel bei mir es nicht geht

$regfile = "m88def.dat "
$crystal = 16000000
$baud = 9600
$lib "mcsbyte.lbx"

Config Portd.4 = Input
Config Portc.2 = Output
Config Portc.3 = Output
Config Rc5 = Pind.4
Portd.4 = 1
Enable Interrupts
Dim Adress As Integer , Command As Integer

Do
Getrc5(adress , Command)

If Adress = 00000 Then
Portc.2 = 1
Else
Portc.2 = 0
End If

If Command = 010000 Then
Portc. 3 = 1
Else
Portc.3 = 0
End If

Loop

End