X = 50                    ' чтобы опрос АЦП произошел в первом круге
Do
    If X > 40 Then                    ' увеличили период опроса АЦП, чтобы значения не прыгали ======
       Stop Timer0 : Stop Timer1                             ' на время преобразования останавливаем таймеры
       Set Adc_ready                    ' После опроса АЦП поднимаем флаг
       X = 0
       Ch1 = Getadc(5)                    ' 1 канал                    'опрос АЦП
       Ch2 = Getadc(4)                    ' 2 канал                    'опрос АЦП (диапазон от 0 до 1023)
       Chvar_1 = Ch1
       Chvar_2 = Ch2
       Start Timer0 : Start Timer1
    End If

    If Adc_ready = 1 Then
       Reset Adc_ready                    ' после расчета сбрасываем флаг, чтобы вычисление было 1 раз
       Chvar_1 = 1023 - Chvar_1
       Any_var = Chvar_1 / 10.23                             'пересчет тут любая формула для требуемого диапазона или необходимой характеристики ==============
       Chvar_1 = Any_var
       If Chvar_1 > 100 Then Chvar_1 = 100                   'верхний предел показаний

       Chvar_2 = 1023 - Chvar_2
       Any_var = Chvar_2 / 5.115                             'пересчет тут любая формула для требуемого диапазона или необходимой характеристики ==============
       Chvar_2 = Any_var
       If Chvar_2 > 200 Then Chvar_2 = 200                   'верхний предел показаний
       Stop Timer0 : Stop Timer1
       Channel_1 = Chvar_1                    ' присваиваем значения переменных для индикации
       Channel_2 = Chvar_2
       Start Timer0 : Start Timer1
    End If

'
Up_const:
    Enable Interrupts : Enable Timer0 : Start Timer0
    Count = 0
    If Time_pause > 10 Then Time_pause = Time_pause - 5
    Select Case View_menu
       Case 1 :
             If On1 < 100 Then Incr On1                      '
       Case 2 :                    '
             If Off1 < 100 Then Incr Off1
       Case 3 :                    '
             If On2 < 200 Then Incr On2                      '
       Case 4 :                    '
             If Off2 < 200 Then Incr Off2
    End Select
    Waitms Time_pause
Return
'

X = 60                    ' первое измерение АЦП без паузы

Do
    If X > 50 And Timer0 < 50 Then
       Stop Timer0 : Stop Timer1                             ' на время преобразования останавливаем таймеры
       Ch1 = Getadc(5)                    ' 1 канал                    'опрос АЦП
       Chvar_1 = Ch1
       Start Timer0 : Start Timer1
       Any_var = Chvar_1 / 5.115                             'пересчет тут любая формула для требуемого диапазона или необходимой характеристики ==============
       Channel_1 = Any_var
       If Chvar_1 > 200 Then Chvar_1 = 200
       X = 0
    End If

    If Conv_flag = 0 And Timer0 < 50 Then
       1wreset                    '
       1wwrite &HCC                    ' Выдаем команду чтения ПЗУ
       1wwrite &H44                    ' Запуск измерения
       Set Conv_flag
       Ds_count = 0
    End If
                    '
    If Read_flag = 1 And Timer0 < 50 Then                    '
       1wreset
       1wwrite &HCC
       1wwrite &HBE                    ' Команда чтения ОЗУ датчика
       Bd(1) = 1wread(9)
       If Bd(9) = Crc8(bd(1) , 8) Then
          Bd1 = Bd(1)                    ' Читаем нулевой байт
          Bd2 = Bd(2)                    ' Читаем первый байт
          If Bd2 >= 248 Then
             Bd1 = &H100 - Bd1
             Bd2 = &HFF - Bd2
             If Err = 0 Then Set Minus_flag                  '     Znak = "-"
          Else
             Reset Minus_flag                    '     Znak = "+"
          End If
          T1 = Bd1 / 16                    ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
          T2 = Bd2 * 16                    ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)
          T1 = T1 + T2
'        T1 = T1 * 10
          Chvar_2 = T1                    'отсекаем от температуры все после запятой
          If Err = 0 Then
             If Chvar_2 > 120 Then Chvar_2 = 120
             Set Upravl_flag
             Channel_2 = Chvar_2
          End If
          Reset Read_flag
          Reset Conv_flag
       End If
    End If

'
Up_const:
    Enable Interrupts : Enable Timer0 : Start Timer0
    Count = 0
    If Time_pause > 10 Then Time_pause = Time_pause - 5
    Select Case View_menu
       Case 1 :
             If On1 < 200 Then Incr On1                      '
       Case 2 :                    '
             If Off1 < 200 Then Incr Off1
       Case 3 :                    '
             If On2 < 120 Then Incr On2                      '
       Case 4 :                    '
             If Off2 < 120 Then Incr Off2
    End Select
    Waitms Time_pause
Return
'

Readeeprom Indicator , 26