home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00104_Script_104 < prev    next >
Text File  |  1997-10-15  |  348b  |  16 lines
  1. on curfinmetti
  2.   global cursprite
  3.   repeat with nr=1 to 48
  4.     set cur to item nr of cursprite
  5.     set a to offset("_", cur)
  6.     if a > 0 then put "," into char a of  cur
  7.     if cur = "-1" then
  8.       set the cursor of sprite nr to integer(cur)
  9.     else
  10.       set the cursor of sprite nr to value(cur)
  11.     end if
  12.  
  13.   end repeat
  14.   
  15. end
  16.