home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 15 / cdrt15.iso / pc / contentp.dir / 00135_Script_135 < prev    next >
Text File  |  1995-04-05  |  463b  |  16 lines
  1. on goer
  2.   if getat(movielist, count(movielist)) = count(movielist) - 1 then
  3.     
  4.     put getat(movielist, 1) into moviename
  5.     setat movielist, count(movielist), 1
  6.     
  7.   else
  8.     set x = (1 + getat(movielist, count(movielist)))
  9.     setat movielist, count(movielist), x
  10.     put getat(movielist, x) into moviename
  11.   end if
  12.   put "@:" & chars(moviename, 2, length(moviename)) into moviename2
  13.   put moviename2
  14.   go frame "st" of movie moviename2
  15. end
  16.