Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Indart.cst/00020_Script_20

Text File | 1997-10-14 | 886b | 31 lines

on cerca dove,frase
  global maxrighe,oldprimochar
  set inizio to 1
  set fine to the number of lines in field dove
  set pivot to integer((fine-inizio+1)/2)
  set stringa to frase
  set strpivot to line pivot of field dove
  set oldpivot to 0

  repeat while pivot <> oldpivot
    --   put "in ",inizio, "   fine  ",fine
    --   put "pivot ",pivot, "str pivot ",strpivot, "old ",oldpivot
    if frase = strpivot then
      return pivot
      exit
    else
      if frase > strpivot then

        set inizio to pivot + 1
        --        put "setto inizio ",inizio
      else
        set fine to pivot -1
        --        put "setto fine ",fine
      end if
      set oldpivot to pivot
      set pivot to integer   ( (fine-inizio+1)/2) + inizio
      set strpivot to line pivot of field dove
    end if
  end repeat
  return -1
end