Ok here is my 212:

 Code:
Function EDTS($c)
dim $,$a,$b,$d,$e,$p,$t
for $t=0 to $c^0
	$=substr($c,$t+1,1)
	$b=$b|$d+$e=3|$<>e&$<>o&$=$p
	$p=$
	$EDTS="<"+$c+"> is "+iif($a&~$b,a,"not a")+cceptable.
	if instr(aeoiu,$)
		$d=$d+1
		$e=0
		$a=1
	else
		$e=$e+1
		$d=0
EndFunction
_________________________
It's better to have scripted and died, then to never have scripted at all