function unlockDoor()

    if drive.isDiskPresent() then
        if drive.getDiskLabel() == correctPin then
            pin = correctPin
            drive:ejectDisk()
        end
    end

    basalt.debug("test")
    if pin == correctPin then
        enterButton:setBackground(colors.green)
        pinLabel:setText("Welcome")
        redstone.setOutput("front", true)
        
        if drive.isDiskPresent() then
            if drive.getDiskLabel() == nil then
                drive.setDiskLabel(correctPin)
                pinLabel:setText("Crd set")
                drive:ejectDisk()
            end
        end
        
    else
        pinLabel:setText("Wrong")
        enterButton:setBackground(colors.red)
    end
    local thread = main:addThread()
        :start(resetEverything)

end

function resetEverything()
    sleep(2)
    pin = ""
    pinLabel:setText("")
    redstone.setOutput("front", false)
    enterButton:setBackground(colors.blue)
end

function addToPin(i)

    if #pin >= 5 then
        return
    end

    pin = pin .. tostring(i)
    pinLabel:setText(pin)
end