mwcontrol

rednet.open("right")

function mine()
  rednet.broadcast("mine")
  local done=0
  while done < 16 do
    local senderId, message = rednet.receive()
    if message=="done" then
      done=done+1
    end
  end
end

while true do
  os.pullEvent("redstone")

  while redstone.getInput("front") do
    mine()
    shell.run("/frameengine/frame north 1")
  end
end