$regfile = "m8def.DAT" $crystal = 4000000 Config Pind.2 = Input 'czujnik tsop1736 ' Dekaracja zmiennych dla GetRC5 Dim Address As Byte , Command As Byte , Togbit As Byte Do ' Odbiór ramki kodu RC5 Getrc5(address , Command) ' Analiza odebranego kodu If Address = 20 Then Command = Command And &B01111111 Printbin Command 'sprawdz ktury czujnik odebrałeś If Command = 25 Then Gosub A If Command = 27 Then Gosub B End If Loop A: 'coś tam robi Return B: 'coś tam robi Return