Ultra-SiMPLE
message = keyin text ("Your message: ")
count = 0
Do k = 0 To length(message)-1
   letter = extract(message,k,k)
   If (letter ~ "a") count = count + 1
   If (letter ~ "e") count = count + 1
   If (letter ~ "i") count = count + 1
   If (letter ~ "o") count = count + 1
   If (letter ~ "u") count = count + 1
Loop
Display "I counted ",count," vowels in your message"