home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00051_Script_51 < prev    next >
Text File  |  1997-10-15  |  365b  |  11 lines
  1. on contacar g
  2.     set r to 0
  3.     repeat with a = 1 to the number of lines in field g
  4.       put the number of chars in line a of field g into item 1 of  line a of field (g&".idx")
  5.       set r to r +(integer(the number of chars in line a of field g)+1)
  6.       put r into item 2 of  line a of field (g&".idx")
  7.     end repeat
  8.     saveMovie
  9. end cosa
  10.  
  11. --97 --122