SAS security

bio = peripheral.wrap("biolock_1")
keypad = peripheral.wrap("keypadlock_0")

while true do
    rs.setOutput("right",true)
    rs.setOutput("front",false)
    event, print, attachName, learnedName, accessLevel = os.pullEvent("biolock")
    if accessLevel == 10 then
        rs.setOutput("front",true)
        rs.setOutput("right",false)
        rs.setOutput("down",true)
        sleep(0.5)
        event, attachName, codeName, accessLevel = os.pullEvent("keypad_code")
        if codeName == "cgood" then
            rs.setOutput("right",false)
            rs.setOutput("back",true)
            sleep(5)
            rs.setOutput("back",false)
            rs.setOutput("down",false)
        end
    end
sleep(2)
end