home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Extraurb / sharede.cst / 03099_Script_3099 < prev    next >
Text File  |  1997-10-08  |  368b  |  18 lines
  1. on gestione_cursori
  2.   global lista_curap,lista_curan,lista_curnu
  3.   
  4.   repeat with x=1 to count(lista_curap)
  5.     set valore to getat(lista_curap,x)
  6.     curap valore
  7. --    put "curap ",valore  
  8.   end repeat
  9.   
  10.   repeat with x=1 to count(lista_curan)
  11.     set valore to getat(lista_curan,x)
  12.     curan valore
  13. --  put "curan ",valore  
  14.   end repeat
  15.   
  16. end
  17.  
  18.