Func _OCR(\$Ax, \$Ay, \$Dx, \$Dy) \$width = \$Dx - \$Ax \$length = \$Dy - \$Ay Dim \$char[\$width][\$length] For \$xwidth = 0 To \$width - 1 For \$xlength = 0 To \$length - 1 \$char[\$xwidth][\$xlength] = Hex(PixelGetColor(\$Ax, \$Ay), 6) \$Ay = \$Ay + 1 Next \$Ax = \$Ax + 1 \$Ay = \$Ay - \$length Next ;scans entire area \$p = 1 Dim \$row[\$width] For \$xwidth = 0 To \$width - 1 For \$xlength = 0 To \$length - 1 If \$char[\$xwidth][\$xlength] = "000000" Then If \$p = 1 Then \$div = \$xwidth \$p += 2 EndIf \$x = \$xwidth - \$div \$row[\$x] +=1 EndIf Next Next ;seriales the array Dim \$result For \$xwidth = 0 To \$width - 1 If \$row[\$xwidth] = 1 And \$row[\$xwidth+1] = "" Then \$result &= "." EndIf If \$row[\$xwidth] = 1 And \$row[\$xwidth+1] = 1 And \$row[\$xwidth+2] = 7 Then \$result &= "1" EndIf If \$row[\$xwidth] = 2 And \$row[\$xwidth+1] = 3 And \$row[\$xwidth+2] = 3 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 3 Then \$result &= "2" EndIf If \$row[\$xwidth] = 2 And \$row[\$xwidth+1] = 2 And \$row[\$xwidth+2] = 3 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 4 Then \$result &= "3" EndIf If \$row[\$xwidth] = 2 And \$row[\$xwidth+1] = 3 And \$row[\$xwidth+2] = 2 And \$row[\$xwidth+3] = 7 And \$row[\$xwidth+4] = 1 Then \$result &= "4" EndIf If \$row[\$xwidth] = 3 And \$row[\$xwidth+1] = 4 And \$row[\$xwidth+2] = 3 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 4 Then \$result &= "5" EndIf If \$row[\$xwidth] = 5 And \$row[\$xwidth+1] = 3 And \$row[\$xwidth+2] = 3 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 3 Then \$result &= "6" EndIf If \$row[\$xwidth] = 1 And \$row[\$xwidth+1] = 1 And \$row[\$xwidth+2] = 4 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 2 Then \$result &= "7" EndIf If \$row[\$xwidth] = 4 And \$row[\$xwidth+1] = 3 And \$row[\$xwidth+2] = 3 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 4 Then \$result &= "8" EndIf If \$row[\$xwidth] = 3 And \$row[\$xwidth+1] = 3 And \$row[\$xwidth+2] = 3 And \$row[\$xwidth+3] = 3 And \$row[\$xwidth+4] = 5 Then \$result &= "9" EndIf If \$row[\$xwidth] = 5 And \$row[\$xwidth+1] = 2 And \$row[\$xwidth+2] = 2 And \$row[\$xwidth+3] = 2 And \$row[\$xwidth+4] = 5 Then \$result &= "10" EndIf Next Return \$result EndFunc