home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / atrium.dxr / 00007_1s.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  268 b   |  19 lines
  1. on mouseUp
  2.   if PointingAt(3) then
  3.     quit()
  4.   end if
  5.   if PointingAt(left()) then
  6.     go("aE")
  7.     exit
  8.   end if
  9.   if PointingAt(right()) then
  10.     go("aW")
  11.     exit
  12.   end if
  13. end
  14.  
  15. on exitFrame
  16.   UpdateCursor([[3, OC()], [l(), LC()], [R(), RC()]])
  17.   go(the frame)
  18. end
  19.