function edts($z)
  dim $,$f,$b,$o,$y
  $y=$z
  while $z
    $=left($z,1)
    $o=$=a | $=i |$=u
    if $=e | $=o
      $o=1
    else
      $f=instr($z,$+$)|$f
    endif
    $b=""+$b+$o    
    $z=right($z,~)
  loop 
  $edts="<" + $y + "> is "+iif(instr($b,1)>0 & not ($f | instr($b,111) | instr($b,"000")),"","not ")  + "acceptable."
endfunction