Function A($)

DIM $i

Do
 $a=0
 Do
  $i=$ mod 10
  $i=$i*$i
  $a=$a+$i
  $=$/10
 Until $=0
  $=$a
Until $=4 or $=1

$A=iif($=1,1,0)


EndFunction

_________________________
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...