> ADVALTest :  &80: 23,1;0;0;0;0 ( max%=7 2 ox%(max%),oy%(max%) <0 test%=1 max%*2 2:pointer(0,0): test% F P$ 7,0);"ADVAL(0)=&";h0((0),4) Z test%=1 max%*2 2 dtest(test%) n test% x test%=10 12 H "Left MiddleRight ",test%*6-59,6);" INKEY";-test%;"=";-test%;3   : test(port%) x%=(port%+0) y%=(port%+1) " >&FFFF: port%=7: x%,y%,A%  port%=7:"Mouse:" @ 07,port%/2+1);"ADVAL(";port%+0;")=";(-(port%<10));x%;2; > 24,port%/2+1);"ADVAL(";port%+1;")=";(-(port%<9));y%;2  port%<5:x%=x%48:y%=y%64 + x%=ox%(port%/2) y%=oy%(port%/2) 7pointer(ox%(port%/2),oy%(port%/2)):pointer(x%,y%) #ox%(port%/2)=x%:oy%(port%/2)=y%  ": ,pointer(x%,y%) 6 4,0 @ x%-16,y%: x%+16,y% J x%,y%-16: x%,y%+16 T x%,y% ^ h: r#ݤh0(A%,N%)="0000000"+~A%,N%)