CD-ROM Today (BR) Volume 2 #6/CDRTV2N6.iso/makers/random.dir/00278_Script_Bsearch

Text File | 1996-03-11 | 700b | 35 lines

on Bsearch str, txt

  set txt = the number of cast txt
  set start = 1
  set end = the number of lines of field txt
  set middle = (start + end) / 2

  repeat while str <> item 1 of line middle of field txt

    if str = item 1 of line end of field txt then
      return end
    end if

    if start = middle then
      return 0
    end if

    if str < item 1 of line middle of field txt then
      set end = middle
    else
      set start = middle
    end if


    set middle = (start + end) / 2

  end repeat

  if str = item 1 of line middle of field txt then
      return middle
  else
    return 0
  end if

end Bsearch