$regfile = "attiny13.dat"               ' BASCOM 2.0.8.6
$crystal = 9600000

$hwstack = 8
$swstack = 8
$framesize = 8

Out_1 Alias Portb.0 : Config Out_1 = Output
Out_2 Alias Portb.1 : Config Out_2 = Output
Out_3 Alias Portb.4 : Config Out_3 = Output

Config Pinb.3 = Input : Vhod Alias Pinb.3

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim U , Ubotton As Word
Dim Utop1 , Utop2 As Word


Dim Index , Cntr As Word
Dim Pauza_tmp2 , Pauza_t As Byte

Const Vr_10sec = 333                    ' * 30 ms  Задержка 10 сек
Const Vr_40sec = 1333                   ' * 30 ms  Задержка 40 сек

Pauza_t = 15                            ' mS
Pauza_tmp2 = 10                         ' Sec

Utop1 = 722                             ' 14.4   '1000 квантов = 19,947 подмаргивает/при 19,960 горит
Utop2 = 711                             ' 14.2
Ubotton = 591                           ' 11.8

Cntr = Vr_40sec


Do

  If Vhod = 0 Then                      ' В зависимости от состояния Входа выполняется разный этап.
    For Index = 0 To Vr_10sec
      Out_1 = 1
      Waitms Pauza_t
      If Getadc(1) > Utop2 Or Vhod = 1 Then Exit For
      Out_1 = 0
      Waitms Pauza_t
    Next

    Wait 5

    For Index = 0 To Vr_10sec
      Out_2 = 1
      Waitms Pauza_t
      If Getadc(1) < Ubotton Or Vhod = 1 Then Exit For
      Out_2 = 0
      Waitms Pauza_t
    Next

    Wait 5

  Else

    For Index = 0 To Cntr
      Out_1 = 1
      Waitms Pauza_t
      If Getadc(1) > Utop1 Or Vhod = 0 Then
        If Index < 10 And Utop1 = 737 Then Out_3 = 1
        Cntr = Vr_10sec
        Index = Vr_10sec
        Utop1 = 737
        Pauza_tmp2 = 5
      End If
      Out_1 = 0
      Waitms Pauza_t
    Next

    Wait Pauza_tmp2
  End If

Loop