--PERIPHERALS
br = peripheral.wrap("top")
y = peripheral.getMethods("top")

--CONSTANTS
speed = 0
sptosu = 32
sutofe = 0.02197265625


--FUNCTIONS
function readValues()
    data = br.getBlockData()
    speed = data.Speed
    nwstress = data.Network.Stress
    nwcap = data.Network.Capacity
    --for k,v in pairs(data.Network) do
        --print(k,v)
    --end
end

function mapValues()
    if speed < 0 then
        speed = speed * -1
    end
    su_drawn = speed * sptosu
    nwremainingstress = nwcap - su_drawn
    pstress = nwstress - su_drawn
    generated = su_drawn * sutofe
    roundedg = math.floor(generated)
end

function printValues()
    print("NETWORK: STRESS CAPACITY: ",nwcap,"SU")
    print("NETWORK: DRAWN STRESS UNITS: ",nwstress,"SU")
    print("NETWORK: REMAINING STRESS CAPACITY: ",nwremainingstress,"SU")
    print("ALTERNATOR: GENERATION RATE: ",roundedg,"FE/T")
    print("ALTERNATOR: GENERATED STRESS: ",su_drawn,"SU")
    print("PERIPHERALS: GENERATED STRESS: ",pstress,"SU")
end

--PROGRAM LOOP
while true do
    readValues()
    mapValues()
    printValues()
    sleep(1)
    term.clear()
    term.setCursorPos(1,1)
end