ERL卞方月伕弘奶件質咥筏課

INITIALLY ◥
        TtyOut !
                .printout ◤ (T T "4.2 BSD UNIX (utcsri)" T T)
        getUserid ╱

--- getUserid ◥
        PromptForWord !
                .prompt ◤ "login:"
                .echoForm ◤ NIL
        waitUserid ╱
GotPromptWord waitUserid ◥
        CheckLogin ◤
                .userid ◤ GotPromptWord.input
        PromptForWord !
                .prompt ◤ "Password:"
                .echoForm ◤ "*"
        waitPassword ╱
GotPromptWord waitPassword ◥
        CheckLogin !
                .password ◤ GotPromptWord.input
        GoodLogin ◥
                LoginSuccessful !
        BadLogin ◥
                TtyOut!
                        .printout ◤ (T "Login incorrect")
                getUserid ╱
        TooManyAttempts ◥
                TtyOut!
                        .printout ◤ (T "Too many attempts")
                LoginUnSuccessful !