home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00052_Script_52 < prev    next >
Text File  |  1997-10-14  |  312b  |  14 lines
  1. on trova_cd cod,num
  2.   repeat with a = 1 to 133
  3.     if item 1 of line a of field "repub" = cod then
  4.       set num to string (num)
  5.       if item 3 to 4 of line a of field "repub" contains num then
  6.         return 1
  7.       else
  8.         return 0
  9.       end if
  10.       exit repeat
  11.     end if
  12.   end repeat
  13. end
  14.