For a = MinX to MaxX
  For b = MinY to MaxY
    if getPixelColorOfPositionXY(a,b) = ColorBuscado then
      GuardarPosXY(a,b)
    end if
  Loop b
Loop a
 

For a = CentroPantallaMinX to CentroPantallaMaxX
  For b = CentroPantallaMinY to CentroPantallaMaxY
    if getPixelColorOfPositionXY(a,b) = ColorBuscado then
      GuardarPosXY(a,b)
      if SoloQuieroElPrimero then
        Salir de Ambos FORs
      end if
    end if
  Loop b
Loop a