CheckUserIdentity("Check the identity for unlocking", Authentication)

Procedure Authentication(nStatus is int, sErrorMessage is string)

SWITCH nStatus
CASE cuiAuthenticated
Info("Authentication OK")
CASE cuiAuthenticationFailure
Error("Authentication failure: " + sErrorMessage)
CASE cuiAuthenticationUnavailable
Error("Authentication not available")
CASE cuiCustomAuthentication
pwd is string
// Comments typed by the user in a multiline control
SWITCH Input("Enter the password: ", pwd)
// OK
CASE 1:
// Cancel
CASE 0:
END
END