me

function Display(data)
    local monitor = peripheral.wrap("right")
    monitor.clear()
    monitor.setCursorPos(1,1)
    monitor.write("Logic Processors : ")
    monitor.setCursorPos(1,4)
    monitor.write("Calculation Processors : ")
    monitor.setCursorPos(1,7)
    monitor.write("Engineering Processors : ")
    monitor.setCursorPos(1,10)
    monitor.write("Printed Silicon : ")
    monitor.setCursorPos(1,13)
    monitor.write("Currently Crafting : ")
    if (data.Crafting) then
        monitor.write("yes")
    else
        monitor.write("no")
    end

    monitor.setCursorPos(1,2)
    monitor.write("Amount: ")
    monitor.write(string.format("%d",data.Logic.amount))
    monitor.setCursorPos(1,5)
    monitor.write("Amount: ")
    monitor.write(string.format("%d",data.Calculation.amount))
    monitor.setCursorPos(1,8)
    monitor.write("Amount: ")
    monitor.write(string.format("%d",data.Engineering.amount))
    monitor.setCursorPos(1,11)
    monitor.write("Amount: ")
    monitor.write(string.format("%d",data.Silicon.amount))
end


function ae()

    local interface = peripheral.wrap("left")

    local data = {}
    data.Logic = {}
    data.Calculation = {}
    data.Engineering = {}
    data.Silicon = {}

    data.Logic.fp = {}
    data.Calculation.fp = {}
    data.Engineering.fp = {}
    data.Silicon.fp = {}
    data.Logic.fp.id = "appliedenergistics2:item.ItemMultiMaterial"
    data.Calculation.fp.id = "appliedenergistics2:item.ItemMultiMaterial"
    data.Engineering.fp.id = "appliedenergistics2:item.ItemMultiMaterial"
    data.Silicon.fp.id = "appliedenergistics2:item.ItemMultiMaterial"
    data.Logic.fp.dmg = 22.0
    data.Calculation.fp.dmg = 23.0
    data.Engineering.fp.dmg = 24.0
    data.Silicon.fp.dmg = 20.0

    data.Logic.amount = math.floor(interface.getItemDetail(data.Logic.fp).basic().qty);
    data.Calculation.amount = math.floor(interface.getItemDetail(data.Calculation.fp).basic().qty);
    data.Engineering.amount = math.floor(interface.getItemDetail(data.Engineering.fp).basic().qty);
    data.Silicon.amount = math.floor(interface.getItemDetail(data.Silicon.fp).basic().qty);

    cpu = interface.getCraftingCPUs()

    local busy = false

    for key,value in pairs(cpu) do
        if value.name == "Processors" then
            busy = value.busy
        end
    end

    data.Crafting = busy


    if (data.Crafting) then
        -- Nothing
    else
        if (data.Silicon.amount < 200) then
            interface.requestCrafting(data.Silicon.fp,(200 - data.Silicon.amount), "Processors")
        elseif (data.Logic.amount < 200) then
            interface.requestCrafting(data.Logic.fp,(200 - data.Logic.amount), "Processors")
        elseif (data.Calculation.amount < 200) then
            interface.requestCrafting(data.Calculation.fp,(200 - data.Calculation.amount), "Processors")
        elseif (data.Engineering.amount < 200) then
            interface.requestCrafting(data.Engineering.fp,(200 - data.Engineering.amount), "Processors")
        end
    end

    Display(data)

end

function main()

    while true do
        os.startTimer(1)
        local event = os.pullEvent()
        if event == "timer" then
            ae()
        end
    end

end


main()