Originally Posted By: Lonkero
119 out of drills code!
 Code:
Function A($)
Dim $c, $t

	For $c=0 to 15-($<4)
		$A = 0 + right($, 1)
		$t = 1 & $c * ($A / 5 + $A) + $A + $t
		$ = left($,~)
		If $t mod 10 + $ | 4&$A + 5
			$A = 0
Endfunction


Damn! I don't think I even tried a for-next loop because I didn't believe it would be shorter.

Thanx for proving me wrong, you damn basta! ;-)
_________________________
The Code is out there