You guys gave me some ideas: 88

Code:

Function A($)

DIM $i

Do
 $a=0
 Do
  $i=$ mod 10
  $a=$a+$i*$i
  $=$/10
 Until $=0
 $=$a
Until $<5

$A=$=1

EndFunction


Anyone can explain the $a=$=1 part???
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...