; English forum: http://purebasic.myforums.net/viewtopic.php?t = 7503&highlight =
; Author: GPI
; Date: 14. September 2003

NewList var.String()
Procedure find_var(*Name.Byte)
  ResetList(var())
  half = CountList(var())>>1
  If half
    SelectElement(var(), half)
    pos = half
    quit = 0
  Else
    pos = 0
    If NextElement(var())= 0
      quit = 2
    Else
      quit = 0
    EndIf
  EndIf
  oldcompare = 0
  While quit = 0
    compare = CompareMemoryString(*Name, @var()\s, 1)
    If half
      Select compare
        Case - 1: half>>1: pos - half: SelectElement(var(), pos)
        Case 0: quit = 1
        Case 1: half>>1: pos + half: SelectElement(var(), pos)
      EndSelect
    Else
      If compare = 0
        quit = 1
      ElseIf compare = oldcompare Or oldcompare = 0
        oldcompare = compare
        If compare =- 1
          If PreviousElement(var())= 0
            ResetList(var())
            quit = 2
          EndIf
        Else
          If NextElement(var())= 0
            LastElement(var())
            quit = 2
          EndIf
        EndIf
      Else
        If oldcompare = 1
          If PreviousElement(var())= 0
            ResetList(var())
          EndIf
        EndIf
        quit = 2
      EndIf
    EndIf
  Wend
  If quit = 2
    ProcedureReturn 0
  Else
    ProcedureReturn 1
  EndIf
EndProcedure
Procedure ADD_Element(a$)
  find_var(@a$)
  AddElement(var())
  var()\s = a$
EndProcedure

ADD_Element("hallo")
ADD_Element("adfa")
ADD_Element("2345")
ADD_Element("uioa")
ADD_Element("23jlk")
ADD_Element("osad")
ResetList(var())
While NextElement(var())
  Debug var()\s
Wend