X;MOUSE ROUTINE IN A DLIX; MAKE YOUR OWN DL WITHX;INTERUPT ENABLE, ETC.X;OR YSE THE INTERUPT INX;POKEY TIME INTERUPT!X;$X;PUBLIC DOMAIN 1994.X;PUBLISHED ON MEGAMAGAZINE8X; POKEY MAGZINEB X; THE BEST OF...LX;V X;WRITTEN BY THE MISSING LINK`X;jX;OLDX = OLD X-VALUE MOUSEtX;OLDY = OLD Y-VALUE MOUSE~!X;MXAS = X POSITION FOR CURSORX;MMAXX=MAXIMUM X-SCREEN-POSX;MMAXY=MAXIMUM Y-SCREEN-POSX;MMINX=MINIMUM X-SCREEN-POSX;MMINY=MINIMUM Y-SCREEN-POSX;X;ԠҺ Q>4MOUSEP Q>5MOUSEPX;ԠŠ MOUSEON$X;ԠɠŠҠŠQ>  $>5VBI %>4VBI \(X;Ӡ2 DO!DO<X;FX;PX;ŠZ MOUSEd5nAx5C5 MOUSEA Q;;V?;;MOUSE ON V?;;PORT 1V?;;V?;;5;;SAVE VALUEM>;;GET X-VALUE LOLDX;;>;;M>;;MAKE X-INDEXT?;;T?;;POLDX;;SAVE AS OLD" %MXAS;;,QMOUSETAB9;;GET TABLE6GMOUSY;;ACTION? NO!@HMOUSE1;;YES! DECREASEJ MOUSE0T3;;INCREASE^)MMAXX;;MAXIMUM XAS?hDMOUSY;;NO, EXITr MOUSE1|1;;DECREASE)MMINX;;MINIMUM XAS?DMOUSE0;;YES! INCREASE MOUSY'MXAS;;STORE XPOINTER7;;GET MOUSEVALUEV?V?;;SEE THE ROUTINEM>;;ON THE XAS. ITLOLDY;;IS THE SAME!>M>T?T? POLDY %MYASQMOUSETAB9& GMOUSEX0 HMOUSE2: MOUSE1.1D3N !MOUSE3X MOUSE2b1l MOUSE3v )MMINY DMOUSE1.1 )MMAXY EMOUSE2MOUSEX;END OF'MYAS;;Y-ROUTINE 7;;RESTORE?;;A, X & Y7>79X;!X;ŠšϠΡ MOUSETAB 3 ===============X; X;Š* MOUSEON4Q>>PH:RX;Š\ MOUSEOFFfQ>@pPz:X;VBIX;PUT CURSOR ON SCREEN...!_X;X;