home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00130_Script_130 < prev    next >
Text File  |  1997-10-15  |  475b  |  21 lines
  1. on controlla_alb 
  2.   
  3.   set lista to the text of field "alberi" of castlib "indart"
  4.  
  5.  
  6.     repeat with x=1 to the number of lines in field "albero" of castlib "internal"
  7.       set codice to item 1 of line x of field "albero" of castlib "internal"
  8.       
  9.           if offset (codice, lista) >0 then
  10.             put codice,"OK"
  11.           else
  12.             put "ERRORE !!!",codice
  13.             beep
  14.           end if
  15.       
  16.     end repeat
  17.   put "FINE"
  18.   
  19. end
  20.  
  21.