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