Function A($)
   Dim $y,$x,$v
   
   $x = Left($,1)
   For $y = ($^) to 1 step -2
      $a = 2 * SubStr($,$y-1,1)
      $v = IIf($a > 9,$a / -10 + $a,$a) + $v + SubStr($,$y,1)
      
      $a = IIf(~ $v mod 10 & (($^) = 15 & $x = 3) | (($^) = 16 & $x > 3 & $x < 7),$x,0)
   ;Next
EndFunction