home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / atrium.dxr / 00008_1w.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  249 b   |  20 lines
  1. on mouseUp
  2.   if p(l()) then
  3.     go("aS")
  4.     exit
  5.   end if
  6.   if p(R()) then
  7.     go("aN")
  8.     exit
  9.   end if
  10.   if p(U()) then
  11.     go("aU")
  12.     exit
  13.   end if
  14. end
  15.  
  16. on exitFrame
  17.   UpdateCursor([[l(), LC()], [R(), RC()], [U(), UC()]])
  18.   go(the frame)
  19. end
  20.