local monitorside = "back"
mon = peripheral.wrap(monitorside)
local x,y = mon.getSize()

function Background()
  for i=1,y do
    mon.setCursorPos(1,i)
    mon.setBackgroundColor(colors.white)
    for j=1,x do
      mon.write(" ")
    end
  end
end

function bdraw(xp1,yp1,xp2,yp2,txt,col)
 if col==nil then
 mon.setBackgroundColor(colors.lime)
 else
 mon.setBackgroundColor(col)
 end
 mon.setCursorPos(xp1,yp1)
 for i=1,(xp2-xp1) do
  mon.write("-")
 end
 mon.setCursorPos(xp1,yp2)
 for i=1,(xp2-xp1) do
  mon.write("-")
 end
 for i=yp1,yp2 do
  mon.setCursorPos(xp1,i)
  mon.write("|")
  mon.setCursorPos(xp2,i)
  mon.write("|")
 end
 for i=(yp1+1),(yp2-1) do
  mon.setCursorPos((xp1+1),i)
  for j=(xp1+1),(xp2-1) do
   mon.write(" ")
   j = j+1
  end
  i = i+1
 end
 if math.floor(((xp2-xp1)-#txt)/2)==0 then
  xp1 = xp1+1
 end
 mon.setCursorPos(math.floor(((xp2-xp1)-#txt)/2)+xp1,math.floor((yp2-yp1)/2)+yp1)
 print(math.floor(((xp2-xp1)-#txt)/2))
 mon.write(txt)
end

Background()
mon.setTextColor(colors.black)
mon.setCursorPos(13,1)
mon.write("ME-Systeme")
mon.setTextColor(colors.blue)
mon.setCursorPos(1,3)
mon.write("ME-Home System: ")
mon.setCursorPos(1,4)
mon.write("ME Notstrom: ")
mon.setCursorPos(1,5)
mon.setTextColor(colors.black)
mon.write("---------------------------------------")

while true do
if rs.testBundledInput("front", colors.red) then
mon.setCursorPos(26,3)
mon.setTextColor(colors.cyan)
mon.write("(AUS)")
else
mon.setCursorPos(26,3)
mon.setTextColor(colors.red)
mon.write("(AN) ")
end
if rs.testBundledInput("front", colors.cyan) then
mon.setCursorPos(26,4)
mon.setTextColor(colors.lime)
mon.write("(AUS)")
else
mon.setCursorPos(26,4)
mon.setTextColor(colors.red)
mon.write("(AN) ")
end

mon.setTextColor(colors.white)
bdraw(x-8,y-2,x,y,"zurueck",colors.red)
event,_,xPos,yPos = os.pullEvent()
mon.setBackgroundColor(colors.white)

if event=="monitor_touch" then
    if xPos>=x-8 and xPos<=x and yPos>=y-2 and yPos<=y then
        shell.run("menu")
    end
end
end