Here's my code with a score of 80

Code:

Function A($)
   do
      while $
         $A = $A + $ mod 10*($ mod 10)
         $=$/10
      loop
      $=$A
      $A=$=1
   until $<5
EndFunction


And here is my "I can't believe this even runs" code with a score of 79

Code:

Function A($)
   $A=$=1
   if $>4
      while $
         $A = $A + $ mod 10*($ mod 10)
         $=$/10
      loop
      $A= A($A)
EndFunction