while true do
monitor = peripheral.wrap("left")
m = monitor
modem = peripheral.wrap("right")
text = print
line = term.setCursorPos

 for i = 0,100,1
 do
 modem.open(i)
 end

event, modemSide, senderChannel, replyChannel, message, senderDistance = aaps.pullEvent("modem_message")
term.clear()
line(2,1)
text("Progress")
line(20,1)
text("Fuel")
line(40,1)
text("Quarry name")