home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00050_Script_50 < prev    next >
Text File  |  1997-10-15  |  960b  |  36 lines
  1. on chartoline nochar,testo,casuale
  2.   set indice to field (testo&".idx")
  3.   set r to 0
  4.   set a to 0
  5. --  startTimer
  6.   
  7.   if casuale then
  8.     set rigappr to nochar / (the number of chars in field testo / the number of lines in field testo)
  9.     if rigappr < 15 then
  10.       set rigappr to 1
  11.     else
  12.       set inc to 0
  13.       repeat while 0 = 0
  14.         if item 2 of line rigappr-inc of indice < nochar and item 2 of line rigappr-inc of indice <> 0 then
  15.           set rigappr to rigappr - inc
  16.           set r to item 2 of line rigappr-1 of indice
  17.           exit repeat  
  18.         else
  19.           set inc to inc + 10
  20.         end if
  21.       end repeat
  22.     end if
  23.   else
  24.     set rigappr to 1
  25.   end if
  26.   
  27.   repeat with a = rigappr to (the number of lines in indice) 
  28.     set r to r + (integer(item 1 of line a of indice)+1)
  29.     if r > nochar then exit repeat
  30.   end repeat
  31.   
  32. --  put the timer
  33. --  put a
  34.   return a
  35.   set indice to ""
  36. end cosa