home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Spazio / SHAREDS.CST / 03059_Script_3059 < prev    next >
Text File  |  1997-09-15  |  386b  |  17 lines
  1. on cerca_corr_aperto 
  2.   global testo_aperto
  3.   set trovato = 0
  4.   repeat with a = 1 to 1000
  5.     -- put the name of member a of castlib "internal" 
  6.     if the name of member a of castlib "internal" contains "3H_ART_C" then
  7.       set trovato = 1
  8.       return a
  9.       exit repeat
  10.       
  11.     end if
  12.   end repeat
  13.   if trovato = 0 then
  14.     return (testo_aperto +1)
  15.   end if
  16. end
  17.