OC robot fifth degree steel

local component = require("component")
local sides = require("sides")
local os = require("os")
local robot = require("robot")
local inv = component.inventory_controller
local red = component.redstone
local pulsetime = 0.1

local function pulse(PT)
    red.setOutput(sides.down,15)
    os.sleep(PT)
    red.setOutput(sides.down,0)
end

while true do
    os.sleep(1)
while inv.getStackInSlot(sides.front,1) ~= nil do
    inv.suckFromSlot(sides.front,1)
    robot.turnLeft()
    while robot.count(1) > 0 do
        for i = 1, 3 do  -- drop into alloy smelter
            inv.dropIntoSlot(sides.front, i, 1)
        end
        os.sleep(0.5)
    end
    robot.turnRight()
end

end