btw, just to show different type of code...
 Code:
Function a($b)
dim $
for $=1 to len($b)
 $a=$a+$*split(asc(substr($b,$))-64,"-")[0]
EndFunction


I still hope someone can get rid of the dim totally.
doesn't look nice ;\)

anyways, this array way was 85.
_________________________
!

download KiXnet