'''''''''''''''''''''''''''' MAIN ''''''''''''''''''''''''''''''''''''
Do
  If Paspausta = 0 Then
    If Mygtukas = 0 Then
      Set Degimas
      Paspausta = 1
      Bitwait Mygtukas , Set
    End If
  End If

  If Paspausta = 1 Then
    'If Mygtukas = 0 Then
    '  If Sankaba = 0 Then
       While Mygtukas = 0 And Sankaba = 0
        Reset Degimas
        Set Starteris
        Paspausta = 2
       Wend
        'Bitwait Mygtukas , Set
     ' End If
    Reset Starteris
    Set Degimas
   ' End If
  End If