home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 15 / cdrt15.iso / pc / science / shared.dir / 00651_Script_651 < prev    next >
Text File  |  1995-04-05  |  815b  |  29 lines
  1.  
  2. on PCorMac eitherFN
  3.   --òòSend this a Filename in form XXXXX?.Dir and 5th char from the end is reset to M or P depending on machine type.ò@eggò--
  4.   
  5.   if the machinetype = 256 then
  6.     set type = "P"
  7.   else 
  8.     set type = "M"
  9.   end if
  10.   put type into char (length(eitherFN)-4) of eitherFN
  11.   go frame "st" of movie string(eitherFN)
  12. end 
  13.  
  14. on goer
  15.   if getat(movielist, count(movielist)) = count(movielist) - 1 then
  16.     
  17.     put getat(movielist, 1) into moviename
  18.     setat movielist, count(movielist), 1
  19.     
  20.   else
  21.     set x = (1 + getat(movielist, count(movielist)))
  22.     setat movielist, count(movielist), x
  23.     put getat(movielist, x) into moviename
  24.   end if
  25.   put "@:" & chars(moviename, 2, length(moviename)) into moviename2
  26.   put moviename2
  27.   go frame "st" of movie moviename2
  28. end
  29.