/* phoneticspel.p */
/* create phonetic spelling */

def new shared var phonspel as char format "x(8)".
def new shared var phonname as char format "x(60)" initial "dictionary".

def var name as char format "x(60)".
def var oldc as char format "x".
def var cur as char format "x".

assign name     = trim(phonname)
       phonspel = substring(name,1,1)
       oldc     = substring(name,1,1)
       name     = substring(name,2).

do while name <> "":
  assign cur  = substring(name,1,1)
         name = substring(name,2).
  if cur <> oldc and index(" aeiou",cur) = 0 then do:
    assign phonspel = phonspel + cur
           oldc     = cur.
  end.
end.

message phonspel view-as alert-box.