and a 204 with Rogierīs code:
 Code:
Function EDTS($p)
Dim $, $v, $i, $n, $o, $c

For $i = 1 to $p^0

	$ = substr($p,$i,1)

	if instr(aeiou,$)
		$v = $i
	else
		$c = $i
	endif

	if ($c - $v)/3 | ($o = $ & o<>$ & e<>$) | $c - $v = ($p^)
		$n = 'not '
	endif

	$EDTS = '<' + $p + '> is ' + $n + acceptable.
	
	$o = $

EndFunction
_________________________
It's better to have scripted and died, then to never have scripted at all