Disco Floor Reset to All On

function split(toSplit, pattern, results)
 if not results then
  results = {}
 end
 local start = 1
 local splitStart, splitEnd = string.find(toSplit, pattern, start)
 while splitStart do
  table.insert(results, string.sub(toSplit, start, splitStart-1))
  start = splitEnd+1
  splitStart, splitEnd = string.find(toSplit, pattern, start)
 end
 table.insert(results, string.sub(toSplit, start))
 return results
end

function main()
 rednet.open("bottom")

 local leave

 speed = 0.1   -- Time in seconds between each light change
 allOn = {}

 allOn[1] = "allOn"

 for j=1, 15 do
        rednet.broadcast(allOn,tostring(j))
        sleep(speed)
 end

end -- end main()

main()