$regfile = "2313def.dat" $crystal = 4000000 'Konfiguracja portów Config Pind.2 = Output Config Pind.3 = Output Config Pinb.3 = Output Dim Togbit As Byte , Command As Byte , Address As Byte Command = 0 Togbit = 0 Address = 20 Do 'aktywacja nadajników z przodu Portd.2 = 1 Command = 27 Rc5send Togbit , Address , Command Portd.2 = 0 Portd.3 = 1 Command = 25 Rc5send Togbit , Address , Command Portd.3 = 0 Loop