home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / hsqdemo.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1996-09-26  |  433 b   |  25 lines
  1. on exitFrame
  2.   global win, oldsl, rearw, cnt01
  3.   set win to 1
  4.   set rearw to 0
  5.   set oldsl to 1
  6.   if the soundLevel = 0 then
  7.     set the soundLevel to 1
  8.     set oldsl to 0
  9.   end if
  10.   cursor(200)
  11.   if win = 0 then
  12.     if rearw = 1 then
  13.       initrearwindow()
  14.     end if
  15.   else
  16.   end if
  17.   preloadMember(9, 54)
  18.   set cnt to 0
  19.   startTimer()
  20.   repeat while the timer < 30
  21.     set cnt to cnt + 1
  22.   end repeat
  23.   set cnt01 to cnt / 300
  24. end
  25.