home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00355.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  385 b   |  17 lines
  1. on mouseDown
  2.   SetInk()
  3.   if the machineType = 256 then
  4.     set delim to "\"
  5.     set the itemDelimiter to delim
  6.   else
  7.     set delim to ":"
  8.     set the itemDelimiter to delim
  9.   end if
  10.   set drive to the pathName
  11.   repeat with i = 1 to 2
  12.     delete item the number of items in drive of drive
  13.   end repeat
  14.   set the itemDelimiter to ","
  15.   GoMovie(drive & delim & "MAIN.DIR", "fade")
  16. end
  17.