$regfile = "2313def.dat"
$crystal = 3686400

Dim Togbit As Byte , Command As Byte , Address As Byte

Ddrd = &B0111100
Ddrb = &B00000000
Portd = &B0111100

Togbit = 0
Address = 0

Do
If Pind.2 = 0 Then Command = 32
If Pind.3 = 0 Then Command = 33
If Pind.4 = 0 Then Command = 16
If Pind.5 = 0 Then Command = 17
Gosub Senden
Loop

Senden:
Rc5send Togbit , Address , Command
Toggle Togbit
Return


Versuch das mal !!!