home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00053_Script_53 < prev    next >
Text File  |  1997-10-14  |  551b  |  24 lines
  1. on scrivi_articoli
  2.   repeat with a = 5 to 203
  3.     put the name of member a&","&a into line a-4 of field "totale"
  4.   end repeat
  5.   ordina_totale
  6. end
  7.  
  8.  
  9. on ordina_totale
  10.   set lista to list ()
  11.   repeat with a = 1 to the number of lines in field "totale"
  12.     add lista,line a of field "totale"
  13.     if line a of field "totale" > line a+1 of field "totale" then
  14.     end if
  15.   end repeat
  16.   sort lista
  17.   repeat with a = 1 to the number of lines in field "totale"
  18.     put getat (lista,a) into line a of field "totale"
  19.   end repeat
  20.   
  21. end
  22.  
  23.  
  24.