View difference between Paste ID: ksnHr3wK and L20aAmw2

 rednet.open("right")
 -- c is the chest of mana beans
 local c = peripheral.wrap("bottom")
 -- a is the aspectylizer
 local a = peripheral.wrap("front")
 -- f is the furnace
 local f = peripheral.wrap("front")
 local redstoneDir = "back"
 --Added this incase you are pastebinning the code
 local beans = {}
 
 function scanSlot(slot)
     c.pushItem("up", slot,1)
     turtle.drop()
     data = a.getAspects()
     beans[data] = slot
     print("Bean Scanned = "..data)
     turtle.suck()
     c.pullItemIntoSlot("up", 1, 1,slot)
 end
 
 function scanSlots()
    redstone.setOutput(redstoneDir, true)
    for i = 1, 55 do
       if c.getStackInSlot(i) then
          scanSlot(i)
       end
    end
    redstone.setOutput(redstoneDir, false)
 end
 
-   if not f.getStackInSlot(1) then
+
-      c.pushItemIntoSlot("up", beans[aspect], numAspect,1)
+  print("Aspect = "..aspect.." and Amount requested = "..numAspect)
-      redstone.setOutput("left", true)
+  c.pushItemIntoSlot("up", beans[aspect], numAspect,1)
-      sleep(1)
+  mbit = turtle.getItemCount(1)  -- mbit = mana beans in turtle
-      redstone.setOutput("left", false)
+  print("  Amount of beans retrieved = "..mbit)
-      sleep(3)
+  mbc = 0  -- mbc = mana beans in chest
-      --f.pullItemIntoSlot("down", 1, numAspect,1)
+  if mbit < numAspect then
     while (mbc + mbit) < numAspect do
-   while f.getStackInSlot(1) do
+      sleep(5)  -- wait for more manabeans from ME network
-      print("Waiting for empty furnace....")
+      ct = c.getStackInSlot(beans[aspect])
-      sleep(3)
+      if ct ~= nil then
         mbc = ct["qty"]
---   sleep(15)
+      else
         mbc = 0
       end -- end if
     end -- end while
   end
---  term.write(msg)
+  c.pushItemIntoSlot("up", beans[aspect], numAspect - mbit,1)
   mbit = turtle.getItemCount(1)
   print("  Amount of beans retrieved after refil = "..mbit)
 
 
    redstone.setOutput("left", true)
    sleep(1)
    redstone.setOutput("left", false)
    sleep(3)
    turtle.dropUp()
    --f.pullItemIntoSlot("down", 1, numAspect,1)
    sleep(3)
 end
 
 function awaitRednet()
   local id, msg, dist = rednet.receive()
   --term.write(msg)
   local essData = {}
   essData = textutils.unserialize(msg)
   print(essData[1]..":"..essData[2])
   essentia(essData[1], essData[2])
   rednet.send(id, "Complete")
 end
 
 scanSlots()
 print("...SCAN COMPLET...")
 while true do
    awaitRednet()
 end
 --essentia("lucrum", 1)