test

local aps2 = 0
local aps = 0
local ppc = 0
local re1 = 0
local re2 = 0
local re3 = 0
local re4 = 0
local pe = 0
local ph = 0
local aee = 0
rednet.open("back")
m = peripheral.wrap("top")
while true do

  id, mes , prot1= rednet.receive()

  if id == 811 then
    ph = mes
  elseif id == 1179 then
    aee = mes
  elseif id == 930 then
    pe = mes
  elseif id == 1180 then
    re1 = mes
  elseif id == 1181 then
    re2 = mes
  elseif id == 1182 then
    re3 = mes
  elseif id == 1183 then
    re4 = mes
  elseif id == 790 then
    ppc = mes
  elseif id == 1184 then
    aps = mes
  elseif id == 1185 then
    aps2 = mes
  end

  print(id)
  m.clear()
  m.setCursorPos(10,1)
  m.write("Home Control")
  m.setCursorPos(1,4)
  m.write("pressure chamber pres.")
  if ppc >= 5 then
    m.write("!OVERLOAD!")
  elseif ppc <= 4.9 and ppc >= 0.2 then
    m.write(ppc)
  elseif ppc <= 0 then
    m.write("LOW PRESSURE")
  end
  m.setCursorPos(1,5)
  m.write("pressure Home: ")
  if ph >= 14 then
    m.write("!!!OVERLOAD!!!")
  elseif ph <= 13.5 and ph >= 0.5 then
    m.write(ph)
  elseif ph <= 0 then
    m.write("LOW PRESSURE")
  end
  m.setCursorPos(1,7)
  m.write("ME-system power: ")
  m.write(aee/1000000)
  m.write(" Mio.")

  m.setCursorPos(1,9)
  m.write("Pressure Elevator: ")
  if pe >= 5 then
    m.write("!OVERLOAD!")
  elseif pe <= 4.9 and pe >= 0.1 then
    m.write(pe)
  elseif pe <= 0 then
    m.write("LOW PRESSURE")
  end

  m.setCursorPos(1,12)
  m.write("Reso. Energy[1]: ")
  m.write(re1/1000000)
  m.write(" Mio.")

  m.setCursorPos(1,13)
  m.write("Reso. Energy[2]: ")
  m.write(re2/1000000)
  m.write(" Mio.")

  m.setCursorPos(1,14)
  m.write("Reso. Energy[3]: ")
  m.write(re3/1000000)
  m.write(" Mio.")

  m.setCursorPos(1,15)
  m.write("Reso. Energy[4]: ")
  m.write(re4/1000000)
  m.write(" Mio.")

  m.setCursorPos(1,16)
  m.write("-----------------------")

  m.setCursorPos(1,17)
  m.write("Energy gesamt:  ")
  m.write(re1/1000000+re2/1000000+re3/1000000+re4/1000000)
  m.write(" Mio.")

  m.setCursorPos(1,19)
  m.write("Me-System [Items] :  ")
  m.setCursorPos(1,20)
  m.write("free       /total ")
  m.setCursorPos(1,21)
  m.write(aps)

  m.setCursorPos(1,23)
  m.write("Me-System [Types] : ")
  m.setCursorPos(1,24)
  m.write("free /total ")
  m.setCursorPos(1,25)
  m.write(aps2)
end