With suggestions from Lonk... and stealing ideas from others... able to knock off 15 strokes, in no time flat... I know I'm not up there with the leaders, but still fun to see the strokes coming off...

80

Code:
 Function A($)
  do
    do 
      $a=$ mod 10 * ($ mod 10) + $a
      $=$/10
    until $=0
    $=$a
    $a=$=1
  until $<9
Endfunction