local mon=peripheral.wrap("right")
mon.clear()
local name="nobody"

while true do
    mon.clear()
    local CursorX=1
    local CursorY=1

    mon.setBackgroundColor(colors.yellow)
    CursorY=CursorY+1
    mon.setCursorPos(CursorX,CursorY)
    mon.write("Faggot tester mk1")


    CursorY=CursorY+1
    mon.setCursorPos(CursorX,CursorY)
    mon.setBackgroundColor(colors.black)
    mon.write("Welcome to the faggot tester.")


    CursorY=CursorY+1
    mon.setCursorPos(CursorX,CursorY)
    mon.write("Press the button to test yourself for faggotry.")


    mon.setCursorPos(CursorX,CursorY)
    mon.setBackgroundColor(colors.red)

    CursorX=3
    CursorY=4
    mon.write("   ") -- from 3,4 to 6,6
    CursroY=CursorY+1
    mon.write("   ")
    CursroY=CursorY+1
    mon.write("   ")
    CursroY=CursorY+1
    CursorX=1

    mon.setBackgroundColor(colors.black)
    local event,side,x,y=os.pullEvent("monitor_touch")
    if x>=3 and x<=6 and y>=4 and y<=6 then
        mon.print("You are a faggot!")
    end
end