home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inventor Labs: Technology
/
INVENTORLABS_TECHNOLOGY.BIN
/
pc
/
files
/
launch.dir
/
00002_Script_2
< prev
next >
Wrap
Text File
|
1997-03-20
|
901b
|
44 lines
on startmovie
global gQTVRpath
if (the machinetype = 256) then
openxlib "fileio.dll"
set gQTVRpath = the pathname
else set gQTVRpath = the pathname & "INVENT:"
end startmovie
on findCD
global gPathtoTest
if (the machinetype = 256) then
set startchar = "C"
set endpath = ":\INVENT\GALLERY.DIR"
set Done = FALSE
repeat while not done
set gPathtoTest = startchar & endpath
set file = fileio( mnew,"read",gPathtoTest)
if objectp( file ) then set done = TRUE
else set startchar = numtochar( chartonum( startchar ) + 1 )
if chartonum( startchar ) > chartonum( "Z" ) then
alert("Not able to locate CD")
go "Gallery.dir"
exit
end if
end repeat
closexlib
else go movie "INVENT:INVENT:GALLERY.DIR"
end findCD