home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03093_Script_3093 < prev    next >
Text File  |  1997-10-14  |  231b  |  13 lines
  1.  
  2. on gestione_entrata lista
  3.   set y to 0
  4.   repeat with x= 1 to count(lista)/2
  5.     set y to y+1
  6.     set num1 to getAt(lista, y)
  7.     set y to y+1
  8.     set num2 to getAt(lista, y)
  9.     entrata num1,num2
  10.     
  11.   end repeat
  12. end
  13.