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