home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00383.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  223 b   |  12 lines
  1. on PauseFor theTicks
  2.   set theTime to the ticks
  3.   repeat while (the ticks - theTime) < theTicks
  4.     if the mouseDown then
  5.       sound stop 1
  6.       exit repeat
  7.       next repeat
  8.     end if
  9.     updateStage()
  10.   end repeat
  11. end
  12.