home *** CD-ROM | disk | FTP | other *** search
/ The Museum Of Anything Goes / MOAG.bin / pc / opendata / moagstrt.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1995-01-30  |  1.3 KB  |  48 lines
  1. on FIGURECDBEGIN
  2.   set aMov to "Start"
  3.   set aMov to CONVERTCDNUMSTRTOMOVIE(aMov)
  4.   go(1, aMov)
  5. end
  6.  
  7. on CONVERTCDNUMSTRTOMOVIE aMov
  8.   set amachine to the machineType
  9.   if amachine = 256 then
  10.     set sepchar to "\"
  11.     set apath to the pathName
  12.     set cnum to the number of chars in apath
  13.     repeat with x = 1 to cnum
  14.       if char x of apath = sepchar then
  15.         set adisk to char 1 to x of apath
  16.         exit repeat
  17.       end if
  18.     end repeat
  19.     set partStr to adisk & "Data" & sepchar
  20.     set diskStr to adisk
  21.   else
  22.     set sepchar to ":"
  23.     set partStr to "MOAG:DATA:"
  24.     set diskStr to "MOAG:"
  25.   end if
  26.   if aMov = "Start" then
  27.     return diskStr & "OPENDATA" & sepchar & "INTRO"
  28.   else
  29.     if aMov = "Help" then
  30.       return diskStr & "OPENDATA" & sepchar & "MOAGBOUT"
  31.     else
  32.       if aMov = "MenuXLib" then
  33.         return diskStr & "DATA" & sepchar & "XLIBS" & sepchar & "REAROBJ"
  34.       else
  35.         if aMov = "FileXLib" then
  36.           return diskStr & "DATA" & sepchar & "XLIBS" & sepchar & "FILEOBJ"
  37.         else
  38.           if aMov = "MemoryXLib" then
  39.             return diskStr & "DATA" & sepchar & "XLIBS" & sepchar & "MEMOBJ"
  40.           else
  41.             return diskStr & "LITESIDE" & sepchar & "OUTLI55"
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47. end
  48.