Function a($b)
dim $
for $=1 to len($b)
 $a=$a+$*split(asc(substr($b,$))-64,"-")[0]
EndFunction

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

Function a($)
dim $b
for $b=1 to 0^$
 $a=$a+$b*split(asc(substr($,$b))-64,"-")[0]
EndFunction

Function a($)
  dim $b
  if $
    $b=asc(right($,1))-64
    $a=a(left($,~))+($b>)*$b*(0^$)
  ;endif
EndFunction

Function a($)

  dim $b
  if $
    $b=asc(right($,1))-64
    $a=a(left($,~))+($b>)*$b*($^)
		
EndFunction

Function a($)
  dim $i,$b
  for $i=1 to $^
    $b=asc(substr($,$i))-64
    if $b>0
      $a=$a+$i*$b
    ;endif
  ;next
EndFunction

Function a($i)
    dim $, $_
    for $ = 1 to 255
        $_ = asc(substr($i,$))-64
        $a = $a + $ * $_ * ($_>)
;    next
EndFunction

Function a($i)
    dim $, $_
    for $ = 1 to 0
        $_ = asc(substr($i,$))-64
        $a = $a + $ * $_ * ($_>)
;    next
EndFunction