var text : string
    var codeword : string := ""
    var newletter : string

    put "Word to Encrypt: " ..
    get text : *

    for i : 1 .. length (text)

        newletter := chr (ord (text (i)) + 5)
        codeword := codeword + newletter

    end for

    put "Coded word: ", codeword, ""

% canges a line of reversed binary digits into understandable text
function decrypt (BINline : string) : string
    var newline, num : string := ""

    for i : 1 .. length (BINline) by 8 % go through the whole string 8 bits (one byte) at a time
        for decreasing j : i + 7 .. i % set num to the reverse of the byte
            num += BINline (j)
        end for
        newline += chr (strint (num, 2)) % convert the byte to base 10 and use the ascii code to get the character
        num := "" % just reset num to nothing
    end for
    result newline % result the decrypted string
end decrypt

% changes a line of text into a line of reversed binary digits representing the ascii value of the string
function encrypt (TEXTline : string) : string
    var newline, num : string := ""

    for i : 1 .. length (TEXTline) % go through the whole string, one character at a time
        num := intstr (ord (TEXTline (i)), 0, 2) % convert character to it's ascii value, then convert that to binary and store in num
        num := repeat ("0", 8 - length (num)) + num % add 0's to the end of the binary number as necessary (in case the number is less than 128 and therefore less than 8 digits)
        for decreasing j : 8 .. 1 % loop from the end of the binary number to the front, in order to reverse it
            newline += num (j) % add it to the newline string
        end for
    end for
    result newline % result the encrypted string for use in the decrypt function
end encrypt

put decrypt (encrypt ("1234567890123456789012345678901"))
%put decrypt (encrypt ("12345678901234567890123456789012")) % <- this won't work