home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / CREDITS.DIR / 00018_Script_18 < prev    next >
Text File  |  1997-09-27  |  176b  |  10 lines
  1. on biografia nome
  2.   set n to 20
  3.   repeat while n<74
  4.     if nome=char 1 to (the length of nome) of field n then return n
  5.     set n to n+1
  6.   end repeat
  7.   return 74
  8. end
  9.  
  10.