home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03013_Script_3013 < prev    next >
Text File  |  1997-10-14  |  383b  |  16 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 "H_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