starting to look a bit like my code ;\)

 Originally Posted By: Benny69
here is Lonk's code at 133:

 Code:
Function A($b)
Dim $t,$,$x

For $t=0 to 99
 $=Right($b,1)
 $x=$t mod 2*((4<$)+$)+$+$x
 $b=Left($b,~)
 If $
  $a=($t=15-(3=$) & 2<$ & 7>$ & $x mod 10=)*$
EndFunction
_________________________
The Code is out there