home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / atrium.dxr / 00005_1n.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  537 b   |  33 lines
  1. on mouseUp
  2.   global slaptopflag
  3.   if p(l()) then
  4.     go("aW")
  5.     exit
  6.   end if
  7.   if p(R()) then
  8.     go("aE")
  9.     exit
  10.   end if
  11.   if PointingAt(4) then
  12.     WatchCursor()
  13.     repeat while soundBusy(1)
  14.       if the mouseDown then
  15.         exit repeat
  16.       end if
  17.     end repeat
  18.     startTimer()
  19.     sound fadeOut 2, 200
  20.     sound fadeOut 1, 200
  21.     repeat while the timer < 220
  22.       nothing()
  23.     end repeat
  24.     go(1, "QUOTES")
  25.     exit
  26.   end if
  27. end
  28.  
  29. on exitFrame
  30.   UpdateCursor([[l(), LC()], [R(), RC()], [4, OC()]])
  31.   go(the frame)
  32. end
  33.