Global col[1],farben[1]

image=LoadImage("blas.bmp")
If image=0
   font=LoadFont("Arial",16)
   SetFont font
   Color 0,0,0
   image=CreateImage(20,20)
   SetBuffer ImageBuffer(image)
   For x=0 To 20
      For y=0 To 20
         WritePixel x,y,16777215
      Next
   Next
   Text 5,5,"R"
   SetBuffer BackBuffer()
EndIf
If image=0 Then RuntimeError "Couldn't load image"
da=getletter(0,0,ImageWidth(image),ImageHeight(image),image,"Arial",14,16777215,30)

If da>0
   Print Chr$(da)
Else
   Print "Kein Text"
EndIf
Flip
WaitKey

Function getletter(x,y,width,height,image,bgcol,mfont$,dist=14,minsize=16,maxsize=0)
   If maxsize=0 Then maxsize=minsize
   ClsColor 0,0,0
   img=CreateImage(width,height)
   SetBuffer ImageBuffer(img)
   sfont=LoadFont("Arial",12)
   For size=minsize To maxsize
      For effekt=1 To 8
         If effekt=1 Then font=LoadFont(mfont$,size)
         If effekt=2 Then font=LoadFont(mfont$,size,1,0,0)
         If effekt=3 Then font=LoadFont(mfont$,size,0,1,0)
         If effekt=4 Then font=LoadFont(mfont$,size,0,0,1)
         If effekt=5 Then font=LoadFont(mfont$,size,1,0,1)
         If effekt=6 Then font=LoadFont(mfont$,size,1,1,0)
         If effekt=7 Then font=LoadFont(mfont$,size,1,1,1)
         If effekt=8 Then font=LoadFont(mfont$,size,0,1,1)
         For mx=-size/10 To width
            For my=-size/8 To height-size/5
               For alphabet=1 To 26
                  SetFont font
                  SetBuffer ImageBuffer(img)
                  let=64+alphabet
                  LockBuffer
                  For cx=0 To width
                     For cy=0 To height
                        da=ReadPixel(cx+x,cy+y,ImageBuffer(image))
                        WritePixelFast cx,cy,da
                     Next
                  Next
                  UnlockBuffer
                  Text mx,my,Chr$(let)
                  ergebnis=compare(x,y,img,image)
                  SetBuffer BackBuffer()
                  If ergebnis<=14
                     If farben[0]<>0 And farben[0]<>-687866256
                        letter=let
                     Else
                        letter=0
                     EndIf
                     Goto leton
                  EndIf
                  DrawImage image,1,1
                  DrawImage img,ImageWidth(image)+10,1
                  SetFont sfont
                  Color 255,255,255
                  Text 1,ImageHeight(image)+10,ergebnis+" "+farben[0]+" "+farben[1]
                  Color 0,0,0
;                  Delay 1000
                  Flip
                  Cls
                  If KeyDown(1) Then End
               Next
            Next
         Next
      Next
   Next
   .leton
   Return letter
End Function

Function compare(x,y,img1,img2)
;   LockBuffer ImageBuffer(img1)
;   LockBuffer ImageBuffer(img2)
   fail=0
   farben[0]=0
   farben[1]=0
   For cx=0 To ImageWidth(img1)
      For cy=0 To ImageHeight(img1)
         col[0]=ReadPixel(cx,cy,ImageBuffer(img1))
         col[1]=ReadPixel(cx,cy,ImageBuffer(img2))
         If col[0]<>col[1] Then fail=fail+1
         farben[0]=farben[0]+col[0]
         farben[1]=farben[1]+col[1]
      Next
   Next
;   UnlockBuffer ImageBuffer(img1)
;   UnlockBuffer ImageBuffer(img2)
;   If farben[0]=farben[1] Then fail=0
   Return fail
End Function