OROS

local mon = peripheral.wrap("monitor_0")
local rad = peripheral.wrap("back")

while true do

  act = rad.getActive()
  nrg = rad.getEnergyStored()
  fTmp = rad.getFuelTemperature()
  cTmp = rad.getCasingTemperature()
  ful = rad.getFuelAmount()
  fMax = rad.getFuelAmountMax()
  eTic = rad.getEnergyProducedLastTick()
  frl = rad.getFuelReactivity()
  fTic = rad.getFuelConsumedLastTick()

  if nrg <= 5000000 then
    rad.setActive(true)
  end

  if nrg >= 7500000 then
    rad.setActive(false)
  end

  mon.setTextScale(1.97)
  mon.clear()

  mon.setCursorPos(1,1)
  mon.setTextColor(1)
  mon.write("Active: ")

  if act == true then
    mon.setTextColor(15000)
  else
    mon.setTextColor(17000)
  end

  mon.write(act)

  mon.setCursorPos(1,2)
  mon.setTextColor(1)
  mon.write("RF Rate: ")

  local e = math.floor(eTic/1000)
  local ee = e*10

  mon.setTextColor(17000)
  mon.write(e)
  mon.write("K/t")
 -- mon.write("K/t, ")
 -- mon.write(ee)
 -- mon.write("K/s")

  local n = (math.floor(nrg/1000))

  mon.setCursorPos(1,3)
  mon.setTextColor(1)
  mon.write("Stored RF: ")
  mon.setTextColor(15000)
  mon.write(n)
  mon.write("K")

  local ft = math.floor(fTmp)
  local ct = math.floor(cTmp)

  mon.setCursorPos(1,4)
  mon.setTextColor(1)
  mon.write("Temp Core/Case: ")
  if ft < 800 then
    mon.setTextColor(15000)
  elseif ft < 1700 then
    mon.setTextColor(18)
  else
    mon.setTextColor(17000)
  end

  mon.setCursorPos(3,5)
  mon.write(ft)
  mon.setTextColor(1)
  mon.write("C")
  mon.write("/")

  if ct < 800 then
    mon.setTextColor(15000)
  elseif ct < 1700 then
    mon.setTextColor(18)
  else
    mon.setTextColor(17000)
  end

  mon.write(ct)
  mon.setTextColor(1)
  mon.write("C")

  local f = ful/fMax
  f = 100*f
  f = math.floor(f)

  mon.setTextColor(1)
  mon.setCursorPos(1,7)
  mon.write("Fuel: ")

  if f < 40 then
    mon.setTextColor(17000)
  elseif f < 85 then
    mon.setTextColor(18)
  else
    mon.setTextColor(15000)
  end

  mon.write(f)
  mon.write("%")

  adj = 0
  oldnrg = 0
  thisPercent = 0
  oldPercent = 0

  thisPercent = math.floor((nrg - oldnrg) / nrg * 100)
  adj = thisPercent - oldPercent
  oldPercent, oldnrg = thisPercent, nrg

  local tot = 0
  for i = 1, 18 do
    tot = tot + rad.getControlRodLevel(i)
  end

  fin = tot + adj
  rad.setAllControlRodLevels(fin)

  sleep(0.5)
end