local modems = {}
for k,v in pairs(rs.getSides()) do
	if peripheral.getType(v)=="modem" then
		modems[#modems+1] = peripheral.wrap(v)
	end
end

print("Found " .. #modems .. " modem"..(#modems>1 and "s " or " ")..", estimated total hop time is " .. (65535 / (#modems * 128)) * 0.05 .. " seconds.")

while true do
	for i=0,65535,128 * #modems do
		print("Hopping on channel range " .. i .. " to " .. i+127)
		for i=i,i+127 do
			for j=1,#modems do
				modems[j].open((i + math.floor(65535 / #modems)) % 65535)
			end
		end

		os.startTimer(0.05)
		while true do
			local e,side,recvChan,replyChan,msg,dist = os.pullEvent()
			if e == "timer" then
				break
			elseif e == "modem_message" then
				print("Message on " .. recvChan .. ":" .. replyChan .. ", '"..msg.."'")
			end
		end
		for j=1,#modems do
			modems[j].closeAll()
		end
	end
end