home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / MAININT.DXR / 00107.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  227 b   |  11 lines
  1. on exitFrame
  2.   repeat while the volume of sound 1 < 255
  3.     set x to the volume of sound 1
  4.     set the volume of sound 1 to x + 10
  5.     startTimer()
  6.     repeat while the timer < 4
  7.       nothing()
  8.     end repeat
  9.   end repeat
  10. end
  11.