home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / bater.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  340 b   |  15 lines
  1. on startMovie
  2.   global printer, gPropFont, gMonoFont
  3.   cursor(4)
  4.   if the machineType >= 256 then
  5.     set the searchPath to []
  6.     set driveName to chars(the pathName, 1, 1)
  7.     append(the searchPath, driveName & ":\MEDIA\INDEX_VI")
  8.     append(the searchPath, driveName & ":\MEDIA\BATER_VI")
  9.   end if
  10. end
  11.  
  12. on stopMovie
  13.   global printer
  14. end
  15.