fcn getPassword () : string
    View.Set ("noecho")

    var password : string := ""
    var ch : char
    loop
        cls
        Text.Locate (1, 1)
        put "Enter Password: ", repeat ("*", length (password)) ..
        ch := getchar ()
        %put ord ( ch )
        if (ord (ch) = 8) then                          % Backspace = 8
            if (length (password) > 0) then
                password := password (1 .. * -1)
            end if
        elsif (ord (ch) = 13 or ord (ch) = 10) then     % Return = 10 or 13 depending...
            put ""
            exit
        elsif (ord (ch) < 128 and ord (ch) > 32) then   % Printable character
            if (length (password) < 255) then
                password += ch
            end if
        end if
    end loop

    View.Set ("echo")

    result password
end getPassword


var pwd : string
pwd := getPassword ()
put "password was entered as '"+pwd+"'"