I don't see a new topic for public round so I wil post my code here to celebrate your 24th, 25th, 26th, and 27th post \:\)

Warning, Spoiler: 

Function a($)

Dim $b, $d, $f, $g, $h, $i, $k[9], $t, $x, $y, $z
	
	$b = "._.|.||_|",".....|..|","._.._||_.","._.._|._|","...|_|..|","._.|_.._|","._.|_.|_|","._...|..|","._.|_||_|","._.|_|._|"
	For $a = 0 To 8
		$f = ""
		For $z = 0 To 2
			$f = $f + SubStr($[$z], $a * 3 + 1, 3)
		Next
		$k[$a]=AScan($b, $f)		
	Next
	$g = Ascan($k,~)
	$a = failure
	For $t = 0 to 8
		If $g = $t ^ $g = -1
			$i = ""
			For $x = 0 to 9
				$f = 1
				For $z = 0 to 8
					If SubStr($b[$x], $z+1, 1) = "." & SubStr($[$z/3], $z mod 3 + $t * 3 + 1, 1) > "."
						$f = 0
					EndIf
				Next
				If $f
					$i = $i + $x
				EndIf
			Next
			For $z = 1 to $i^0
				$f = ""
				$x = 0
				For $d = 0 to 8
					$y = IIf($t = $d, SubStr($i,$z,1), $k[$d])
					$x = $x + (9 - $d) * $y
					$f = $f + $y
				Next
				If $x mod 11 = 0
					$a = Iif($a>Z, $f, ambiguous)
EndFunction


Edit added spoiler \:D

Edited by RemcovC (2008-04-20 12:58 PM)
_________________________
It's better to have scripted and died, then to never have scripted at all