var num, size, pos, count, l : int
var pattern, newpattern, word, newword2 : string
put "Menu"
put "1. Count a pattern"
put "2. Eliminate a pattern"
put "3. Substitute a pattern"
put "4. Exit"
get num
if num = 1
        then
    count := 0
    cls
    put "Enter the single letter pattern you want to count"
    get pattern
    put "Enter a word containing the pattern"
    get word
    size := length (pattern)
    loop
        pos := index (word, pattern)
        exit when pos = 0
        count := count + 1
        word := word (pos + size .. *)
    end loop
    put "The number of occurences is: ", count
elsif num = 2
        then
        cls
    put "Enter the pattern you would like to eliminate"
    get pattern
    put "Enter the word in which you would like to eliminate a pattern from"
    get word
    var newword := ""
    var i : int
    size := length (pattern)
    loop
        pos := index (word, pattern)
        exit when pos = 0
        word := word (1 .. pos - 1) + word (pos + size .. *)
    end loop
    put "Here is the word without the pattern: ", word
elsif num = 3
        then
        cls
    loop
        put "Enter the word you want to replace a pattern in"
        get word
        put "Enter the pattern you would like to search for within the word"
        get pattern
        put "Enter the pattern you would like to replace the old pattern with within the word"
        get newpattern
        loop
        word := word (1 .. index (word, pattern) - 1) + newpattern + word (index (word, pattern) + 1 .. *)
        exit when
        end loop
        put word
    end loop
elsif num = 4
        then
    put "Go <3 yourself"
end if

elsif num = 3
        then
    cls
    loop
        put "Enter the word you want to replace a pattern in"
        get word
        put "Enter the pattern you would like to search for within the word"
        get pattern
        put "Enter the pattern you would like to replace the old pattern with within the word"
        get newpattern
        loop
            word := word (1 .. index (word, pattern) - 1) + newpattern + word (index (word, pattern) + 1 .. *)
            exit when index (word, pattern) = 0
        end loop
        put word
        put ""
    end loop

    loop
        put "Enter the word you want to replace a pattern in"
        get word
        put "Enter the pattern you would like to search for within the word"
        get pattern
        put "Enter the pattern you would like to replace the old pattern with within the word"
        get newpattern
        newpattern:=newpattern+newpattern
        loop
            word := word (1 .. index (word, pattern) - 1) + newpattern + word (index (word, pattern) + 1 .. *)
            exit when index (word, pattern) = 0
        end loop
        put word
        put ""
    end loop

elsif num = 3
        then
    cls
    loop
        put "Enter the word you want to replace a pattern in"
        get word
        put "Enter the pattern you would like to search for within the word"
        get pattern
        put "Enter the pattern you would like to replace the old pattern with within the word"
        get newpattern
        %newpattern:=newpattern+newpattern
        times := length (newpattern)
        put times
        for : 1 .. times
            count := count + 1
            put count
            word := word (1 .. index (word, pattern) - 1) + newpattern + word (index (word, pattern) + 1 .. *)
            pos := index (word, pattern)
            exit when times = count
            %or count = length(newpattern) or index (word, pattern) = 0 or pos = length (word)
        end for
        put word
        put ""
        count := 0
        word := ""
    end loop

 var word, newword, pattern, newpattern : string:= ""
 put "Enter the word"
 get word
 put "Enter the pattern"
 get pattern
 put "Enter the replacement"
 get newpattern
 for i : 1 .. length(word)
 if index(word (i), pattern)=0
 then
 newword:=newword+word(i)
 else newword:=newword+newpattern
end if
end for
put newword