var key : string (1)
var password : string := ""
var counter : int
counter := 1
loop
    put "enter a password"
    loop
        getch (key)
        exit when ord (key) = 10
        put "*" ..
        password += key
    end loop
    put ""
    if password = "t{f" then  % <= t{f my password   when encryted= :A,
        exit
    elsif counter = 3 then
        quit
    end if
    counter += +1
    password := ""
end loop
put ""
put "Welcome to CIA Headquaters"

var text:string
var codeword : string

put "enter a word"
get text

for i:1..length(text)
put chr(ord(text(i))-58)..  <=== turns my t{f   to  :A,
end for
put ""