home *** CD-ROM | disk | FTP | other *** search
/ Maclife 12 / MACLIFE12-No-92-1996.ISO.7z / MACLIFE12-No-92.ISO / CD-ROM MACLIFE12 / NEWS AREA / Sampler V1.2 / TWTW / sell.dir / 00044.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  422 b   |  14 lines
  1. on GOER
  2.   if getAt(movielist, count(movielist)) = (count(movielist) - 1) then
  3.     set movieName to getAt(movielist, 1)
  4.     setAt(movielist, count(movielist), 1)
  5.   else
  6.     set x to 1 + getAt(movielist, count(movielist))
  7.     setAt(movielist, count(movielist), x)
  8.     set movieName to getAt(movielist, x)
  9.   end if
  10.   set moviename2 to "@:" & chars(movieName, 2, length(movieName))
  11.   put moviename2
  12.   go("st", moviename2)
  13. end
  14.