ich werde mal folgendes in der Praxis probieren !

dim b as bit

Do
If b = 1 Then
Getrc5(a , C) 'Reset Rot
Toggle Gruen
reset b
End If

Loop

End

Int1_isr:
Set B
Return