diff --git a/radio/sdcard/horus/WIDGETS/BattCheck/main.lua b/radio/sdcard/horus/WIDGETS/BattCheck/main.lua
new file mode 100755
index 000000000..02bbfd9f6
--- /dev/null
+++ b/radio/sdcard/horus/WIDGETS/BattCheck/main.lua
@@ -0,0 +1,149 @@
+---- ###############################################################
+---- #                                                             #
+---- #        Telemetry widget Script for FrSky Horus              #
+---- #      LI-xx BATTCHECK v1 // Use it with OpenTX 2.2.x         #
+---- #                                                             #
+---- #  License: Share alike                                       #
+---- #  Can be used and changed non commercial                     #
+---- #                                                             #
+---- #  Developed for Horus widgets by OpenTx team.                #
+---- #                                                             #
+---- #  Initial work for Taranis by Heisenberg.                    #
+---- #  Initial credits to Kilrah, Dev.Fred, and Sacred100         #
+---- #  from the french forum frskytaranis.forumactif.org/         #
+---- #                                                             #
+---- ###############################################################
+
+
+local options = {
+  { "Sensor", SOURCE, 1 },
+  { "Color", COLOR, WHITE }
+}
+
+local function create(zone, options)
+  local myZone = { zone=zone, options=options }
+  return myZone
+end
+
+--- This function returns a table with cels values
+local function getCels(sensor)
+  return getValue(sensor)
+end
+
+--- This function returns the number of cels
+local function getCellCount(cellData)
+  return #cellData
+end
+
+--- This function returns the value of the highest of all cels
+local function getCellMax(cellData)
+  cellMax = 0
+  if type(cellData) == "table" then
+    for k, v in pairs(cellData) do
+      if v > cellMax then cellMax = v end
+    end
+  end
+  return cellMax
+end
+
+--- This function returns the value of the lowest of all cels
+local function getCellMin(cellData)
+  cellMin = 5
+  if type(cellData) == "table" then
+    for k, v in pairs(cellData) do
+      if v < cellMin then cellMin = v end
+    end
+  end
+  return cellMin
+end
+
+--- This function return the percentage remaining in a single Lipo cel
+local function getCellPercent(cellValue)
+  --## Based on Robbe lipo sensor
+  local myArrayPercentList =
+{{3, 0}, {3.093, 1}, {3.196, 2}, {3.301, 3}, {3.401, 4}, {3.477, 5}, {3.544, 6}, {3.601, 7}, {3.637, 8}, {3.664, 9}, {3.679, 10}, {3.683, 11}, {3.689, 12}, {3.692, 13}, {3.705, 14}, {3.71, 15}, {3.713, 16}, {3.715, 17}, {3.72, 18}, {3.731, 19}, {3.735, 20}, {3.744, 21}, {3.753, 22}, {3.756, 23}, {3.758, 24}, {3.762, 25}, {3.767, 26}, {3.774, 27}, {3.78, 28}, {3.783, 29}, {3.786, 30}, {3.789, 31}, {3.794, 32}, {3.797, 33}, {3.8, 34}, {3.802, 35}, {3.805, 36}, {3.808, 37}, {3.811, 38}, {3.815, 39}, {3.818, 40}, {3.822, 41}, {3.825, 42}, {3.829, 43}, {3.833, 44}, {3.836, 45}, {3.84, 46}, {3.843, 47}, {3.847, 48}, {3.85, 49}, {3.854, 50}, {3.857, 51}, {3.86, 52}, {3.863, 53}, {3.866, 54}, {3.87, 55}, {3.874, 56}, {3.879, 57}, {3.888, 58}, {3.893, 59}, {3.897, 60}, {3.902, 61}, {3.906, 62}, {3.911, 63}, {3.918, 64}, {3.923, 65}, {3.928, 66}, {3.939, 67}, {3.943, 68}, {3.949, 69}, {3.955, 70}, {3.961, 71}, {3.968, 72}, {3.974, 73}, {3.981, 74}, {3.987, 75}, {3.994, 76}, {4.001, 77}, {4.007, 78}, {4.014, 79}, {4.021, 80}, {4.029, 81}, {4.036, 82}, {4.044, 83}, {4.052, 84}, {4.062, 85}, {4.074, 86}, {4.085, 87}, {4.095, 88}, {4.105, 89}, {4.111, 90}, {4.116, 91}, {4.12, 92}, {4.125, 93}, {4.129, 94}, {4.135, 95}, {4.145, 96}, {4.176, 97}, {4.179, 98}, {4.193, 99}, {4.2, 100}}
+
+  for i, v in ipairs( myArrayPercentList ) do
+    if v[ 1 ] >= cellValue then
+      result =  v[ 2 ]
+      break
+     end
+  end
+  return result
+end
+
+--- This function parse each individual cell and return the sum of all cels
+local function getCellSum(cellData)
+    cellSum = 0
+  if type(cellData) == "table" then
+    for k, v in pairs(cellData) do cellSum = cellSum + v end
+  end
+  return cellSum
+end
+
+--- This function returns the average of all cels
+local function getCellAvg(cellData)
+  if type(cellData) == "table" then
+    return getCellSum(cellData)/getCellCount(cellData)
+  end
+end
+
+-- This function returns green at 100%, red bellow 30% and graduate in betwwen
+local function getPercentColor(cpercent)
+  if cpercent < 30 then
+    return(lcd.RGB(0xff,0,0))
+  else
+    g = math.floor(0xdf * cpercent / 100)
+    r = 0xdf - g
+    return (lcd.RGB(r,g,0))
+  end
+end
+
+--- Size is 160x32
+local function zoneSmall(zone)
+  local mySensor = getCels(zone.options.Sensor)
+
+  lcd.setColor(TEXT_COLOR, zone.options.Color)
+  if type(mySensor) == "table" then
+    local myString = tostring(getCellSum(mySensor)).."V ("..getCellCount(mySensor).."S)"
+    local percent = getCellPercent(getCellAvg(mySensor))
+    lcd.drawText(zone.zone.x+90, zone.zone.y+22, myString, LEFT + SMLSIZE + TEXT_COLOR)
+    lcd.drawText(zone.zone.x+95, zone.zone.y,percent.."%", LEFT + MIDSIZE + TEXT_COLOR)
+    lcd.setColor(CUSTOM_COLOR, getPercentColor(percent))
+    lcd.drawGauge(zone.zone.x+2, zone.zone.y+2, 75, zone.zone.h - 4,percent,100, CUSTOM_COLOR)
+  end
+  lcd.setColor(CUSTOM_COLOR, WHITE)
+  for i=2,75,15 do
+    lcd.drawRectangle(zone.zone.x+i, zone.zone.y+2, 15, zone.zone.h - 4, SOLID + CUSTOM_COLOR,1)
+  end
+  lcd.drawRectangle(zone.zone.x+2, zone.zone.y+2, 75, zone.zone.h - 4, SOLID + CUSTOM_COLOR,2)
+  lcd.drawRectangle(zone.zone.x+77, zone.zone.y+8, 6, zone.zone.h - 16, SOLID + CUSTOM_COLOR,2)
+  lcd.setColor(CUSTOM_COLOR, BLACK)
+  lcd.setColor(TEXT_COLOR, BLACK)
+  return
+end
+
+--- Size is 180x70
+local function zoneMedium(zone)
+  return
+end
+
+--- Size is 192x152
+local function zoneLarge(zone)
+  return
+end
+
+--- Size is 390x172
+local function zoneXLarge(zone)
+  return
+end
+
+function refresh(myZone)
+  if myZone.zone.w  == 160 then zoneSmall(myZone)
+  elseif myZone.zone.w  == 180 then zoneMedium(myZone)
+  elseif myZone.zone.w  == 192 then zoneLarge(myZone)
+  elseif myZone.zone.w  == 390 then zoneXLarge(myZone)
+  end
+end
+
+return { name="BattCheck", options=options, create=create, refresh=refresh }