home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00066_Script_66 < prev    next >
Text File  |  1997-10-15  |  411b  |  16 lines

  1. on time_line cod
  2.   global qualeframe,qualetime
  3.   if char 2 of cod = "T"  then
  4.     set qualeframe to char  3 to 4 of cod
  5.     if integer(qualeframe) <7 then
  6.       set qualetime to "timeline.dir"
  7.     else
  8.       set qualetime to "timelin2.dir"
  9.     end if
  10.     set qualeframe to char 3 to 5 of cod
  11.     if char 1 of qualeframe = "0" then 
  12.       delete char 1 of qualeframe  
  13.     end if
  14.     
  15.   end if
  16. end