here is 81:
 Code:
Function a($)

  dim $b
  if $
    $b=asc(right($,1))-64
    $a=a(left($,~))+($b>)*$b*($^)
		
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)