$crystal = 4000000                                          'Частота кварца ZQ1, Гц

Config Pind.2 = Input                                       'PD0 (2) - ВХОД SW1
Config Pinb.2 = Output                                      'ВЫХОД 1
Config Pinb.3 = Output                                      'ВЫХОД 2
Config Pinb.4 = Output                                      'ВЫХОД 3
Config Int0 = Falling                                       ' stop  по СПАДУ сигнала
   '----------Объявлюем переменные-------
' Dim Address As Byte                                        'переменная
' Dim Command As Byte                                        'комманда RC5
Dim A As Byte
   '-----------разрешаем прерывания------
Enable Interrupts                                           'Разрешаем ВСЕ прерывания
Enable Int0                                                 'внешнее  прерывание
 '----ссылки на обработчики прерываний---
On Int0 Pr
  A = 1                                                     'присваиваем А значение 1
  '---------основной цикл программы------
Do

 If A = 1 Then
 Set Portb.2
 End If
 If A = 2 Then
 Set Portb.3
 End If
 If A = 3 Then
 Set Portb.4
 End If
  If A = 4 Then
 Reset Portb.2
 End If
  If A = 5 Then
 Reset Portb.3
 End If
   If A = 6 Then
 Reset Portb.4
 End If
Loop


 Pr:
 If A = 6 Then
 A = 0
 End If
 A = A + 1
 Return

 End