local intBreak = 0
rednet.open("right")
function stayAlive()
 while intBreak = 0 do
  strBreak = os.pullEvent("char")
  if strBreak == "C" then
   intBreak = 1
  end
 end
end
function turtleCount()
 count = turtle.getItemCount(1)+turtle.getItemCount(2)+turtle.getItemCount(3)+turtle.getItemCount(4)+turtle.getItemCount(5)+turtle.getItemCount(6)+turtle.getItemCount(7)+turtle.getItemCount(8)+turtle.getItemCount(9)
end
function rednetRetrieve()
 while intBreak = 0 do
  message = rednet.receive()
  if message == DepositSequence then
   retrieveDeposit()
  end
end
function retrieveDeposit()
 local i = 0
 repeat
  turtle.forward()
  i = i + 1
 until i == 6
 os.pullEvent("redstone")
 turtleCount()
 rednet.send(35, count)
 repeat
  turtle.back()
  i = i - 1
 until i == 0
 repeat
  turtle.turnLeft()
  i = i + 1
 until i == 2
 local x = 1
 repeat
  turtle.select(x)
  turtle.drop(64)
 until x == 10
 repeat
  turtle.turnRight()
  i = i - 1
 until i == 0
end
function sendWithdrawal()
 while intBreak = 0 do
  if os.pullEvent("redstone") then
   repeat
    turtle.forward()
    i = i + 1
   until i == 6
  local x = 1
   repeat
    turtle.select(x)
    turtle.drop()
   until x == 10
   repeat
    turtle.back()
    i = i - 1
   until i = 0
  end
 end
end
parallel.waitForAll(stayAlive, rednetRetrieve, sendWithdrawal)