Check_lipo:
  'Bei erreichen der Abschaltspannung geht nur noch maximal Halbgas!
  Vm = Getadc(1) 
  If R > 128 Then
    If S = 1 And Vm < 153 Then R = 128		'1 Zelle
    If S = 2 And Vm < 306 Then R = 128		'2 Zellen
    If S = 3 And Vm < 460 Then R = 128		'3 Zellen
    If S = 4 And Vm < 613 Then R = 128		'4 Zellen
  End If
  If R = 128 Then Portb.4 = 0			'Vollgas LED aus
Return