home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00019_Script_19 < prev    next >
Text File  |  1997-10-14  |  310b  |  13 lines
  1. on ds
  2.   set rft to length(the moviepath)
  3.   set rft to rft -1
  4.   if the machinetype <  255 then
  5.     set a to char 17 to rft - (length (the moviename) - 3)  of the moviepath
  6.     return a
  7.   else
  8.     set a to char  12 to rft - (length (the moviename) - 3) of the moviepath
  9.     return a
  10.   end if
  11.   
  12. end
  13.