smelter

function refillFuel()

t.select(1)
t.goto(1,0,0,3)
t.r(1)
t.goto(1,1,4,2)
--picking up any excess charcoal
for i=1,8 do
    t.suck("down")
end
t.d(2)
t.w(1)
--now above charcoal chest

for i=0,15 do
    cSlot,cCount=t.findItem("charcoal")
    if cSlot then
        if cCount<64 then
            t.goto(1,1,3,0)
            t.suck("down")
        end
    else
        t.goto(1,1,3,0)
        t.suck("down")
        print("charcoalCount=")
        print(cCount)
        print("charcoalSlot=")
        print(cSlot)
        read()
    end
   t.goto(1,1,i,1)
   t.drop("front","charcoal")
end
t.goto(1,1,3,0)
t.suck("down")
shell.run("refuel all")
t.goto(1,1,4,2)
t.dropAll("down","charcoal")
t.goto(1,1,0,1)
t.f(1)
t.goto(0,0,0,0)
end --end of function refillFuel

--[[
print("waiting for Furnaces:    ")

for p=310,1,-1 do
    term.setCursorPos(23,1)
    if p<10 then term.write("  ") end
    if p<100 then term.write(" ") end
    print(p)
    sleep(1)
end
term.setCursorPos(1,1)
term.write("                          ")
--]]


refillFuel()