Fine then, here's the lonkenized, post bastardization impressionist version of my crappy code: (a.k.a. Old School)
Score=97
Code:
Function A($)
Dim $i,$j
For $i = 1 To 9
$j=-substr($,$i,1)
$a=$a+$j*$j
Next
If $>5
$=A($a)
EndIf
$a=$=1
EndFunction



It screams for $a+=$j^2
_________________________
-Jim

...the sort of general malaise that only the genius possess and the insane lament.