home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1996 September / inter@ivo 1996-09.iso / cybint8 / bin / demos.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1996-08-02  |  237 b   |  15 lines
  1. on mouseUp
  2.   sound playFile 2, "..\som\seta.wav"
  3.   startTimer()
  4.   repeat while the timer < 20
  5.     nothing()
  6.   end repeat
  7.   onVis(3)
  8.   updateStage()
  9.   startTimer()
  10.   repeat while the timer < 30
  11.     nothing()
  12.   end repeat
  13.   go("exit")
  14. end
  15.