( [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) !  SO ku I GY}G'Q87N 5Z4jsv /E (, 751B L |S% Cursor to Mouse% Mouse Scroll Window% Mouse Scroll Window Proportional& Decode Mouse& Default Mouse Button& Handle Mouse& Print Mouse Button& Read Mouse Click& Setup MOUSE LibraryMouse OffMouse OnSet Mouse Button~DIRECTORY~~DOC~ % Cursor to Mouse~DOC~ % Mouse Scroll Window~DOC~ % Mouse Scroll Window Proportional~DOC~ & Decode Mouse~DOC~ & Default Mouse Button~DOC~ & Handle Mouse~DOC~ & Print Mouse Button~DOC~ & Read Mouse Click~DOC~ & Setup MOUSE Library~DOC~ Mouse Off~DOC~ Mouse On~DOC~ Set Mouse Button~DOC~ ~FILENAME~~FILENAME~~INVERT~FSRGETTY-58"N' 128*5FSQVEC[0 128*5FSQVEC[1 8*5FSQVEC[2 Q0M.VMouse Dispatch Table Q1M.VMouse Echo Dispatch Table Q2M.VMouse Default Dispatch Table m.m% Cursor to MouseU:0(4) m.m% Mouse Scroll WindowU:1(4) m.m% Mouse Scroll Window ProportionalU:1(2) @:I*/m(m.mMouse Off)/m.vExit Hook @:I*/M(M.MMouse On)/m.VReturn from Superior Hook m.m& Handle MouseU..: m(m.mMouse On) 250FO..QMouse Quiescent Time:\[0 7FO..QMouse Character:\[1 @:I*/:0;71;0;0;767;0;1;1;1;1;0;0;0;c/FSECHODISPLAY @:I*/:5;1;0L/FSECHODISPLAY @:I*/:0;0;;;;;;;;;;;;c/FSECHODISPLAY @:I*/:5;1;0L/FSECHODISPLAY r0[00[10[2 -1UX-1UY-1UC0UB F[BBIND FI-27"EFIFI' FI 5+5F[IBASE [B[C[X[Y[F [.1[.2 M(M.M& Decode Mouse) [D[E FSHEIGHT-(FSECHOLINES)-QY-1"L QMouse Echo Dispatch TableUD :IEBND Button not defined in echo area' "#QMouse Dispatch TableUD :IEBND Button not defined' Q:D(QC*8+QB)[0 Q0"E Q:Mouse Default Dispatch Table(QB)U0 Q0"E QEM(M.M& Default Mouse Button)' M0p8,F Function Name: [0 m.m0m(m.m& Macro Name)u0 @FTPut 0 on mouse button (Press button) :  [C[B[X[Y[.0[.1 M(M.M& Decode Mouse) [D[E FSHEIGHT-(FSECHOLINES)-QY-1"L QMouse Echo Dispatch TableUD:IE in echo area ' "#QMouse Dispatch TableUD:IE' QC,QBM(M.M& Print Mouse Button)@FTE @ft Go ahead1m(m.m& Yes or No)"e0' m.m0u:D(QC*8+QB)1,m(m.m& Print Mouse Button)[0 [1 :I*1, 0FSERRr[1 :I1 QB&4"N:I1Left-' QB&2"N:I11Middle-' QB&1"N:I11Right-' QC+1:\[0 :I110 "NQ1'"#@FT1' 0FO..QWindow 2 Size"N FSTOPLINE"E FSLINES-QY"L M(M.M^R Other Window) '' "# FSTOPLINE-QY"G M(M.M^R Other Window)''' FSWINDOW+BJ 1:<-(FSTOPLINE)+QY,QX:FM> QX*(Z-B)/(FSWIDTH)[0 Q0-Z"GZU0' Q0J0L .FSWINDOW QX-(FSWIDTH/2)"L @M(M.M^R Previous Screen)' "# @M(M.M^R Next Screen)' MOUSEFunctions to Grok the BBN Bitbucket mouse. fooC Turns the mouse on.C Turns the mouse off.S Decodes the mouse clicks. The Altmode : may have been stripped off the first mouse event. This routine sets QX and QY to the coordinates of the mouse (in raw coordinates), Q.1 and Q.2 to the coords in character coords with origin at top left. QB is set to the buttons which were pressed, and QC to the number of clicks minus 1. The buttons are encoded as Left = 4, Middle = 2, and Right = 1. These may be or'ed to indicate chords. Multiple clicks with different chords are not supported; The first click is taken as the desired click, and any non-conforming clicks are ignored. Likewise, any stray characters between clicks are ignored. This routine assumes correct format of the sequence; no error checking is attempted. Returns a value indicating whether the chord is still held down, 0 if not, the chord being held, if so.S Reads the mouse click into the buffer|S Handles mouse events. This must be placed on M-:. This routine assumes that the input is in correct and full format.C S Prints an informative error messageS Prints an English rendition of a mouse button in the echo area. Expects clicks,buttons in QC and QB resp. With pre-comma arg of 1, returns string.S Move the cursor to the mouse, changing windows, if necessaryS Scrolls the screen accoding to the X position of mouse.tS Scrolls the screen up or down, depending on whether the mouse is on the left half of the screen or the right.r& Setup MOUSE Library Mouse On Mouse Off & Decode Mouse & Read Mouse Click & Handle Mouse Set Mouse Button & Default Mouse Button & Print Mouse Button % Cursor to Mouse % Mouse Scroll Window Proportional % Mouse Scroll Window +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2