startup

function farbe(farben)

rs.setBundledOutput("left", farben)

end



while true do
farbe(0)

  while true do

  local modem = peripheral.wrap("right")
  modem.open(15)



      local event, modemSide, senderChannel, replyChannel, message,
        senderDistance = os.pullEvent("modem_message")


      print(message)
      farbe(0)
      farbe(message)


    sleep(0.3)

    --farbe(0)
  end

end