react.lua

local reactor
local temp
local energy
local rdata

function refreshdata()
  local datarec = {}
  datarec.connected = reactor.getConnected()
  datarec.active = reactor.getActive()
  datarec.getnumrods = reactor.getNumberOfControlRods()
  datarec.energy = reactor.getEnergyStored()
  datarec.fueltemp = reactor.getFuelTemperature()
  datarec.casetemp = reactor.getCasingTemperature()
  datarec.fuelamt = reactor.getFuelAmount()
  datarec.wasteamt = reactor.getWasteAmount()
  datarec.capacity = reactor.getFuelAmountMax()
  datarec.rodname = reactor.getControlRodName(0)
  datarec.rodlevel = reactor.getControlRodLevel(0)
  return datarec
end

reactor = peripheral.wrap("back")
temp = reactor.getFuelTemperature()
energy = reactor.getEnergyStored()
term.write(" temp ")
term.write(temp)
term.write(" energy" )
term.write(energy)

rdata = refreshdata()
while rdata.connected &
      rdata.active do
  rdata = refreshdata()
 -- term.clear()
  term.setCursorPos(1,1)
  term.write(" energy ")
  term.write(rdata.energy)
  term.setCursorPos(1,2)
  term.write(" rodlevel ")
  term.write(rdata.rodlevel)
  term.setCursorPos(5,5)
  term.write(i)

  if rdata.energy < 9000000 & rdata.rodlevel > 0
  do
    reactor.setControlRodLevel(0,0)
    term.setCursorPos(6,6)
    term.write("pullrod")
  end
  else if rdata.energy > 9000000 & rdata.rodlevel == 0
  do
     reactor.setControlRodLevel(0,100)
     term.setCursorPos(7,7)
     term.write("pushrod")
  end
  os.sleep(2)
end