startup

m = peripheral.wrap("back")
data = m.get()
wr = peripheral.wrap("top")
--for i, j in pairs(data) do
  --print(tostring(i).."; ".. tostring(j))
--end

function clearSet()
  term.clear()
  term.setCursorPos(1,1)
end

while true do
 input = rs.getInput("right")
  if data["Full Energy"] and input == true then
     wr.setFreq(30)
     rs.setOutput("top", true")
  else
     clearSet()
     print("waiting for change")
     rs.setOutput("top", false)
  end
 os.pullEvent("redstone")
end