Control Panel Alpha 0.5

function l()
        print("")
    end

    function cl()
        term.setCursorPos(1,1)
        term.clear()
    end

    function lane()
        print("Control Panel Alpha 0.1")
        l()
    end

    local function addoutput(sside, ...)
        local c = colors.combine(rs.getBundledOutput(sside), ...)
        rs.setBundledOutput(sside, c)
    end

    local function removeoutput(sside, ...)
       local c = colors.subtract(rs.getBundledOutput(sside), ...)
       rs.setBundledOutput(sside, c)
    end

    function outputaus(testside)

        input = io.read()
            if input == "1" then
            removeoutput(testside, 1)

            elseif input == "2" then
            removeoutput(testside, 2)

            elseif input == "3" then
            removeoutput(testside, 4)

            elseif input == "4" then
            removeoutput(testside, 8)

            elseif input == "5" then
            removeoutput(testside, 16)

            elseif input == "6" then
            removeoutput(testside, 32)

            elseif input == "7" then
            removeoutput(testside, 64)

            elseif input == "8" then
            removeoutput(testside, 128)

            elseif input == "9" then
            removeoutput(testside, 256)

            elseif input == "10" then
            removeoutput(testside, 512)

            elseif input == "11" then
            removeoutput(testside, 1024)

            elseif input == "12" then
            removeoutput(testside, 2048)

            elseif input == "13" then
            removeoutput(testside, 4096)

            elseif input == "14" then
            removeoutput(testside, 8192)

            elseif input == "15" then
            removeoutput(testside, 16384)

            elseif input == "16" then
            removeoutput(testside, 32768)

        end
    end

    function testoutput(testside)

        while true do

        cl()
        print("(q) Menu")

        if rs.testBundledInput(testside, colors.white) then
                print("White    : (1) AN")
            else
                print("White    : Aus")
            end
            if rs.testBundledInput(testside, colors.orange) then
                print("Orange   : (2) AN")
            else
                print("Orange   : Aus")
            end
            if rs.testBundledInput(testside, colors.magenta) then
                print("Magenta  : (3) AN")
            else
                print("Magenta  : Aus")
            end
            if rs.testBundledInput(testside, 8) then
                print("LightBlue: (4) AN")
            else
                print("LightBlue: Aus")
            end
            if rs.testBundledInput(testside, colors.yellow) then
                print("Yellow   : (5) AN")
            else
                print("Yellow   : Aus")
            end
        if rs.testBundledInput(testside, colors.lime) then
                print("Lime     : (6) AN")
            else
                print("Lime     : Aus")
            end
            if rs.testBundledInput(testside, colors.pink) then
                print("Pink     : (7) AN")
            else
                print("Pink     : Aus")
            end
            if rs.testBundledInput(testside, colors.gray) then
                print("Gray     : (8) AN")
            else
                print("Gray     : Aus")
            end
            if rs.testBundledInput(testside, 256) then
                print("LightGray: (9) AN")
            else
                print("LightGray: Aus")
            end
            if rs.testBundledInput(testside, colors.cyan) then
                print("Cyan     : (10) AN")
            else
                print("Cyan     : Aus")
            end
            if rs.testBundledInput(testside, colors.purple) then
                print("Purple   : (11) AN")
            else
                print("Purple   : Aus")
            end
            if rs.testBundledInput(testside, colors.blue) then
                print("Blue     : (12) AN")
            else
                print("Blue     : Aus")
            end
            if rs.testBundledInput(testside, colors.brown) then
                print("Brown    : (13) AN")
            else
                print("Brown    : Aus")
            end
            if rs.testBundledInput(testside, colors.green) then
                print("Green    : (14) AN")
            else
                print("Green    : Aus")
            end
            if rs.testBundledInput(testside, colors.red) then
                print("Red      : (15) AN")
            else
                print("Red      : Aus")
            end
            if rs.testBundledInput(testside, colors.black) then
                print("Black    : (16) AN")
            else
                print("Black    : Aus")
            end

    sleep(2.5)

     outputaus(testside)

        while true do
            local e2, p2 = os.pullEvent()
            if e2 == "char" and p2 == "q" then
            sleep(0.5)
            return menu()
          end
       end
     end
    end

    function output()

        cl()
        lane()
        print("Output Seite waehlen")
        l()                              -- 20
        print("(1) back")
        print("(2) right")
        print("(3) left")
        print("(4) top")
        print("(5) bottom")

        while true do

            local e1, p1 = os.pullEvent()
            if e1 == "char" and p1 == "1" then
                color("back")
            elseif e1 == "char" and p1 == "2" then
                color("right")
            elseif e1 == "char" and p1 == "3" then
                color("left")
            elseif e1 == "char" and p1 == "4" then
                color("top")
            elseif e1 == "char" and p1 == "5" then
                color("bottom")
             end
            end

    end


    function color(side)
        cl()
        lane()
        print("Ausgewaehlte Seite: " ..side)
        print("Bitte Farbe eintippen")
        farbe = io.read()
        if farbe == "white" then
            id = 1
        elseif farbe == "orange" then
            id = 2
        elseif farbe == "magenta" then
            id = 4
        elseif farbe == "lightblue" then
            id = 8
        elseif farbe == "yellow" then
            id = 16
        elseif farbe == "lime" then
            id = 32
        elseif farbe == "pink" then
            id = 64
        elseif farbe == "gray" then
            id = 128
        elseif farbe == "lightgray" then
            id = 256
        elseif farbe == "cyan" then
            id = 512
        elseif farbe == "purple" then
            id = 1024
        elseif farbe == "blue" then
            id = 2048
        elseif farbe == "brown" then
            id = 4096
        elseif farbe == "green" then
            id = 8192
        elseif farbe == "red" then
            id = 16384
        elseif farbe == "black" then
            id = 32768
       end

        print(farbe.. " wurde ausgewaehlt")
        sleep(2)
        addoutput(side, id)
        sleep(0.5)

       return menu()

    end

    function status()

        cl()
        lane()
        print("Output Seite waehlen")
        l()
        print("(1) back")
        print("(2) right")
        print("(3) left")
        print("(4) top")
        print("(5) bottom")

        while true do

            local e1, p1 = os.pullEvent()
            if e1 == "char" and p1 == "1" then
                testoutput("back")
            elseif e1 == "char" and p1 == "2" then
                testoutput("right")
            elseif e1 == "char" and p1 == "3" then
                testoutput("left")
            elseif e1 == "char" and p1 == "4" then
                testoutput("top")
            elseif e1 == "char" and p1 == "5" then
                testoutput("bottom")
                end
        end



    end

    function menu()
        cl()
        lane()
        print("(a) Output setzen")
        print("(b) Status und Abschaltung")

        while true do

            local event, param = os.pullEvent()
            if event == "char" and param == "a" then
                output()

            elseif event == "char" and param == "b" then
                status()
            end
        end
    end

    menu()