home *** CD-ROM | disk | FTP | other *** search
/ Discover Planet Earth / EB.ISO / Installation.exe / Main / %ExecutableFullScreen% / %ExecutableFullScreen%.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  2007-10-30  |  573 b   |  25 lines
  1. on FindFile AFileName
  2.   TempObj = new(xtra("fileio"))
  3.   if objectp(TempObj) then
  4.     if the machineType = 256 then
  5.       repeat with i = 67 to 90
  6.         openfile(TempObj, numToChar(i) & ":\" & AFileName, 1)
  7.         if status(TempObj) = 0 then
  8.           closeFile(TempObj)
  9.           return numToChar(i) & ":\"
  10.         end if
  11.       end repeat
  12.     else
  13.       openfile(TempObj, AFileName, 1)
  14.       if status(TempObj) = 0 then
  15.         closeFile(TempObj)
  16.         return 1
  17.       end if
  18.     end if
  19.     TempObj = 0
  20.     return 0
  21.   else
  22.     ShipError(getError(#fileio))
  23.   end if
  24. end
  25.