Sub main
  AphImgFreeAll
  AphImgRead AphImgNew("blad1"), "gumka lewo dol.bmp"
  AphImgRead AphImgNew("blad2"), "gumka lewo gora.bmp"
  AphImgRead AphImgNew("blad3"), "gumka prawo dol.bmp"
  AphImgRead AphImgNew("blad4"), "gumka prawo gora.bmp" 
  AphImgRead AphImgNew("blad5"), "niedokrecona oslona.bmp" 
  AphImgRead AphImgNew("blad6"), "niedokrecony tlok.bmp" 
  AphImgRead AphImgNew("ok"), "ok.bmp"
  Dim Result() as Double
Dim niedodane as Boolean
niedodane = true
  Dim msg2 as String
  for i = 1 to 6
        AphImgSubtract AphImg("ok"), AphImg("blad" & i), AphImgNew("roz" & i)   
      AphImgFirstPoint AphImg("roz" & i), Result
      if(Result(0) > 80/2) then
          msg2 = "prawo"
      else
          msg2 = "lewo"
      end if
      if((Result(3) > (1123/2 - 50))  and (Result(3) < (1123/2 + 50))) then
         msg2 = msg2 & " " & "srodek"
         niedodane = false
      end if
      if niedodane = false then Msgbox msg2
      if(Result(3) > 1123/2) then
          msg2 = msg2 & " " & "dol"
      else
          msg2 = msg2 & " " & "gora"
      end if
      if niedodane = true then Msgbox msg2
  next i   
End Sub