FOS OC

local event = require("event")
local interface = require("interface")
local component = require("component")
local sides = require("sides")
local colors = require("colors")
local red = sides.south
local c = component
local screen = 1
local rand = 0
local rs = c.redstone

function update()
    os.execute("/bin/update")
end

function red()
    rs.setOutput(red, 15)
end

function exit()
    interface.clearAllObjects()
    os.exit()
end

function list()
    interface.clearAllObjects()
    for k,v in c.list() do
        print(k, v)
    end
    os.sleep(5)
    screen1()
end

function screen1()
    screen = 1
    interface.clearAllObjects()
    interface.newLabel("s1-1","Home",2,2,10,3,0x00FF00)
    interface.newButton("s1-2","Settings",13,2,10,3,screen2,nil,0x00FF00,0x0000FF,1)
    interface.newButton("s1-3","Components",24,2,10,3,list,nil,0x00FF00,0x0000FF,1)
    interface.newButton("s1-4","Endermen",2,6,10,3,red,nil,0x00FF00,0x0000FF,1)
    interface.newButton("s1-5","Close",2,10,10,3,exit,nil,0x00FF00,0x0000FF,1)
    interface.updateAll()
end

function screen2()
    screen = 2
    interface.clearAllObjects()
    interface.newButton("s2-1","Home",2,2,10,3,screen1,nil,0x00FF00,0x0000FF,1)
    interface.newLabel("s2-2","Settings",13,2,10,3,0x00FF00)
    interface.newButton("s2-3","Components",24,2,10,3,list,nil,0x00FF00,0x0000FF,1)
    interface.newButton("s2-4","Update",2,6,10,3,update,nil,0x00FF00,0x0000FF,1)
    interface.updateAll()
end

screen1()

while true do
    local _,_,x,y = event.pull(1,"touch")
    if x and y then
        interface.processClick(x,y)
    end
end