$regfile = "m16def.dat"                     
$crystal = 16000000                     

$hwstack = 32                     
$swstack = 10                     
$framesize = 40                     

Config Pind.2 = Input : Cha Alias Pind.2
Config Pind.3 = Input : Chb Alias Pind.3

$lib "lcd4.lbx"
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2

Config Servos = 1 , Servo1 = Portd.7 , Reload = 11

Dim W As Byte , X As Byte

Config Int0 = Falling                    ' прерывание INT0 по нисходящему фронту (c + на -)
On Int0 Encod                    ' вызываем подпрограмму Encod по прерыванию

Enable Interrupts                    'разрешаем все прерывания
Enable Int0                    'резрешаем прерывания для INT0

Cls                    ' очистка дисплея
Cursor Off                    'отключить курсор

X = 2

Do

If W > 140 Then W = 40                    'диапозон значений от 140 до 40
If W < 40 Then W = 140                    'диапозон значений от 40 до 140

Servo(1) = W

Locate 1 , 1
Lcd "encounter: " ; W ; "     "
Waitms 100

Loop

Encod:

If Cha = 0 Then
If Chb = 0 Then W = W + X Else W = W - X                    'увеличение/уменьшение переменной на Х
End If
Waitms 5                    ' задержка для антидребезга контактов
Gifr = 64                     
Return

if PinD.0=1 then
PortD.4=0
else
PortD.4=1