home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00067_Script_67 < prev    next >
Text File  |  1997-10-15  |  971b  |  25 lines
  1. on alberi lista
  2.   global vis,qf,qa,qrm,qrp
  3.   set vis to 19
  4.   set qf to ""
  5.   set qa to ""
  6.   set qrm to ""
  7.   set qrp to ""
  8.   repeat with inc = 1 to the number of items in lista
  9.     set vis to vis + 1
  10.     put char 3 to 4 of item inc of lista into item inc of qf
  11.     case (item inc of qf) of
  12.       01,02,03,04,05,07,08,10,11,12,16,22:
  13.         put "albgenea.dir" into item inc of qa
  14.       06,13,14,15,18,19,21,23,24,25,42,48:
  15.         put "albgene2.dir" into item inc of qa
  16.       28,29,30,31,32,33,34,35,37,38,40:
  17.         put "albgene3.dir" into item inc of qa
  18.       27,41,43,44,45,46,47,49,50,51,52:
  19.         put "albgene4.dir" into item inc of qa
  20.     end case
  21.     put item 2 of line integer(item inc of qf) of field "albtito" into field "titolo"&inc
  22.     put item 1 of line integer(item inc of qf) of field "genpath_list"  into item inc of qrm
  23.     put item 2 of line integer(item inc of qf) of field "genpath_list"  into item inc of qrp
  24.   end repeat
  25. end