> MouseTest - Test mouse ADVAL/INKEY and OSWORD calls : ( ctrl% 31:X%=ctrl%:Y%=X%256 2: <(23)"Osword64" Fh"MouseX ADVAL(7):"'"MouseY ADVAL(8):"'"Left INKEY-10:"'"Middle INKEY-11:"'"Right INKEY-12:" P11,11,11,11,11:y%= Z 4,0 d1omx0%=0:omy0%=0:omx1%=0:omy1%=0:ob0%=0:ob1%=0 n*mx0%=0:my0%=0:mx1%=0:my1%=0:PointerOn x !:MouseRd:diff%:PointerOff +ob0%=ml0%+mm0%+mr0%:ob1%=ml1%+mm1%+mr1% :omx0%=mx0%:omy0%=my0%:omx1%=mx1%:omy1%=my1%:PointerOn &18,y%+0)d(mx0%,5)" "d(mx1%,5) &18,y%+1)d(my0%,5)" "d(my1%,5) &18,y%+2)d(ml0%,4)" "d(ml1%,4) &18,y%+3)d(mm0%,4)" "d(mm1%,4) &18,y%+4)d(mr0%,4)" "d(mr1%,4) 0  : PointerOn ; mx0%-8,my0%: mx0%+8,my0%: mx0%,my0%-8: mx0%,my0%+8  PointerOff Bomx0%-8,omy0%: omx0%+8,omy0%: omx0%,omy0%-8: omx0%,omy0%+8 " , MouseRd 65mx0%=(7):my0%=(8):ml0%=-10:mm0%=-11:mr0%=-12 @;A%=64:!X%=-1:&FFF1:mx1%=X%!0 &FFFF:my1%=X%!2 &FFFF J=ml1%=(X%?6 32)=0:mm1%=(X%?6 64)=0:mr1%=(X%?6 128)=0 T?diff%=mx0%<>omx0% mx1%<>omx1% my0%<>omy0% my1%<>omy1% ^Adiff%=diff% ob0%<>(ml0%+mm0%+mr0%) ob1%<>(ml1%+mm1%+mr1%) h r#ݤd(A%,N%)=" "+A%,N%)