View difference between Paste ID: 8nLDMTFc and gCRsGaB5

 --updated Feb 20, 2013
 local bcable = "back"
 local mon = peripheral.wrap("top")
 mon.setTextScale(1)
 mon.setTextColor(colors.white)
 local button={}
 mon.setBackgroundColor(colors.black)
 
 function setTable(name, bcolor, xmin, xmax, ymin, ymax)
    button[name] = {}
    button[name]["active"] = false
    button[name]["bcolor"] = bcolor
    button[name]["xmin"] = xmin
    button[name]["ymin"] = ymin
    button[name]["xmax"] = xmax
    button[name]["ymax"] = ymax
 end
 
 function togglebutton(currentState, cablecolor)
    if (currentState == true) then
       rs.setBundledOutput(bcable, (rs.getBundledOutput(bcable) - cablecolor))
    else
       rs.setBundledOutput(bcable, (rs.getBundledOutput(bcable) + cablecolor))
    end
 end
 
 function fillTable()
    setTable("Blaze Spawner", colors.white, 2, 29, 3, 6)
    setTable("Creeper Spawner", colors.orange, 33, 60, 3, 6)
    setTable("W-Skeleton Spawner", colors.magenta, 2, 29, 7, 10)
 end
 
 function fill(text, color, bData)
    mon.setBackgroundColor(color)
    local yspot = math.floor((bData["ymin"] + bData["ymax"]) /2)
    local xspot = math.floor((bData["xmax"] - bData["xmin"] - string.len(text)) /2) +1
    for j = bData["ymin"], bData["ymax"] do
       mon.setCursorPos(bData["xmin"], j)
       if j == yspot then
          for k = 0, bData["xmax"] - bData["xmin"] - string.len(text) +1 do
             if k == xspot then
                mon.write(text)
             else
                mon.write(" ")
             end
          end
       else
          for i = bData["xmin"], bData["xmax"] do
             mon.write(" ")
          end
       end
    end
    mon.setBackgroundColor(colors.black)
 end
 
 function screen()
    local currColor
    for name,data in pairs(button) do
       local on = data["active"]
       if on == true then currColor = colors.lime else currColor = colors.red end
       fill(name, currColor, data)
    end
 end
 
 function checkxy(x, y)
    for name, data in pairs(button) do
       if y>=data["ymin"] and  y <= data["ymax"] then
          if x>=data["xmin"] and x<= data["xmax"] then
             togglebutton(data["active"], data["bcolor"])
             data["active"] = not data["active"]
             print(name)
          end
       end
    end
 end
 
 function heading(text)
    w, h = mon.getSize()
    mon.setCursorPos((w-string.len(text))/2+1, 1)
    mon.write(text)
 end
 
 fillTable()
 while true do
    mon.clear()
    heading("Mead Science Control")
    screen()
    local e,side,x,y = os.pullEvent("monitor_touch")
    print(x..":"..y)
    checkxy(x,y)
    sleep(.1)
 end