home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 3 #5 / CDRV3N5.ISO / demo / introdm.dir / Internal_239.ls < prev    next >
Encoding:
Text File  |  1996-07-12  |  1.2 KB  |  35 lines
  1. on getCDdrive
  2.   set itisThere to 0
  3.   set FileOBJ to EMPTY
  4.   openXLib("FILEIO.DLL")
  5.   set driveName to getBack(the pathName) & "LSEE\ENGLISH.INI"
  6.   set FileOBJ to FileIO(mnew, "read", driveName)
  7.   if objectp(FileOBJ) then
  8.     set soundText to FileOBJ(mReadLine)
  9.     set soundText to FileOBJ(mReadLine)
  10.     set lengthText to FileOBJ(mReadLine)
  11.     set MovieText to FileOBJ(mReadLine)
  12.     set animationText to FileOBJ(mReadLine)
  13.     set volumeText to FileOBJ(mReadLine)
  14.     set pagetext to FileOBJ(mReadLine)
  15.     set orientLocation to FileOBJ(mReadLine)
  16.     set CDLocation to FileOBJ(mReadLine)
  17.     set loadList to FileOBJ(mReadLine)
  18.     set IntroText to FileOBJ(mReadLine)
  19.     set recognitionText to FileOBJ(mReadLine)
  20.     delete char 1 to 11 of soundText
  21.     delete char 1 to 12 of lengthText
  22.     delete char 1 to 10 of MovieText
  23.     delete char 1 to 14 of animationText
  24.     delete char 1 to 12 of volumeText
  25.     delete char 1 to 9 of pagetext
  26.     delete char 1 to 11 of orientLocation
  27.     delete char 1 to 8 of CDLocation
  28.     delete char 1 to 8 of loadList
  29.     delete char 1 to 8 of IntroText
  30.     delete char 1 to 12 of recognitionText
  31.     FileOBJ(mdispose)
  32.     return char 1 of CDLocation
  33.   end if
  34. end
  35.