k, if someone shortens my 79, be my guest.
I can't keep on thinking about this, otherwise my sudoku time gets shrinked too much.

 Code:
Function a($)
dim $b
while $
 $b=$b+1
 $a=$a+$b*(asc($)-64)*($>#)
 $=right($,~)
EndFunction
_________________________
!

download KiXnet