home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #4 / Blender_3_4.iso / BLENDER / FILES / Shared.Cst / 00063.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  786 b   |  43 lines
  1. global gOpSys -- the local operating system
  2.  
  3.  
  4. on getCDdrive
  5.   
  6.   set wholePath = the pathName
  7.   
  8.   set saveDelim = the itemDelimiter
  9.   
  10.   if the machineType = 256 then
  11.     set the itemDelimiter = "\"
  12.     set CDdrive = item 1 of wholePath & "\"
  13.   else
  14.     set the itemDelimiter = ":"
  15.     set CDdrive = item 1 of wholePath & ":"
  16.   end if
  17.   
  18.   set the itemDelimiter = saveDelim
  19.   
  20.   return CDdrive
  21.   
  22. end getCDdrive
  23.  
  24.  
  25. on getSYSdrive
  26.   
  27.   set wholePath = findPath()
  28.   
  29.   set saveDelim = the itemDelimiter
  30.   
  31.   if the machineType = 256 then
  32.     set the itemDelimiter = "\"
  33.     set SYSdrive = item 1 of wholePath & "\"
  34.   else
  35.     set the itemDelimiter = ":"
  36.     set SYSdrive = item 1 of wholePath & ":"
  37.   end if
  38.   
  39.   set the itemDelimiter = saveDelim
  40.   
  41.   return SYSdrive
  42.   
  43. end getSYSdrive