Here's my 81

 Code:
Function a($b)
Dim  $, $w
For $ = 1 to 255
	$w=Asc(SubStr($b,$))-64
	if $w>0 $a=$a+$w*$

EndFunction


I've really got to get my head around these recursive function calls to see if it can be improved. You chaps have some mean tricks up your sleeves.

Edited by acmp (2007-07-24 09:47 AM)
Edit Reason: oops, mis stated $w>0
_________________________
Every day is a school day