I knew there had to be a way to get rid some of those parenthesis

-2 on my score... to 93.
-1 for the $=4... to 92

Code:
 
Function A($)
  do
    do 
      $a=$ mod 10 * ($ mod 10) + $a
      $=$/10
    until $=0
    $=$a
    $a=iif($=1,1,0)
  until $=4 | $a
Endfunction


Edited by Allen (2005-09-01 04:13 AM)