Two issues on my computer px 1366x768 win7 GLB 14.006:
1) MOUSEAXIS(2) 2=Wheel (1 up, -1 down) don't work
2) PRESCALER, scaling with factors 2 don't work
see program
ciao
Qedo
GLOBAL mx%,my%,b1%,b2%,b3%,mw%,b1a%,b2a%,estr_x,estr_y,xfactor#
LOCAL sx#,sy#,a#,Indice%
GLOBAL factor#[]
RESTORE n_factor
REPEAT
READ a
DIMPUSH factor[],a
UNTIL a=0
Indice=0
xfactor=1
GETDESKTOPSIZE sx,sy
SETSCREEN sx,sy,1
//The scaling is done using factors: 1 ok, 1.5 ok, 2 wrong,3 ok,4 ok,8 ok,10 ok, AND all INTEGER numbers above (non verified).
//The scaling won't be reduced TO < 1.0.
SYSTEMPOINTER TRUE
PRESCALER sx/1,sy/1
WHILE TRUE
IF KEY(30) // Key A
Indice=Indice+1
xfactor=factor[Indice]
IF xfactor=0
Indice=0
xfactor=factor[Indice]
ENDIF
SETSCREEN sx,sy,1
PRESCALER sx/xfactor,sy/xfactor
SLEEP 2000
ENDIF
MOUSESTATE mx,my,b1,b2
mw=MOUSEAXIS(2)
b1a=MOUSEAXIS(3)
b2a=MOUSEAXIS(4)
b3=MOUSEAXIS(5)
CLEARSCREEN RGB(0,0,127)
GOSUB pos_stringa //only to correct position of the text
PRINT "MX :"+mx,mx-estr_x,my-estr_y,1
PRINT "MY :"+my,mx-estr_x,my+10-estr_y,1
PRINT "B1 :"+b1,mx-estr_x,my+20-estr_y,1
PRINT "B2 :"+b2,mx-estr_x,my+30-estr_y,1
PRINT "B1a:"+b1a,mx-estr_x,my+40-estr_y,1
PRINT "B2a:"+b2a,mx-estr_x,my+50-estr_y,1
PRINT "B3 :"+b3,mx-estr_x,my+60-estr_y,1
PRINT "MW :"+mw,mx-estr_x,my+70-estr_y,1
SHOWSCREEN
WEND
SUB pos_stringa:
LOCAL tx, ty,sx, sy
estr_x=0
IF LEN ("MX :"+mx,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("MY :"+my,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("B1 :"+b1,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("B2 :"+b2,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("B1a:"+b1a,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("B2a:"+b2a,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("B3 :"+b3,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
IF LEN ("MW :"+mw,1)>estr_x THEN estr_x=LEN ("MX :"+mx,1)
GETFONTSIZE tx, ty
estr_y=ty+70
GETSCREENSIZE sx, sy
IF mx < sx/2 THEN estr_x=0
IF my < sy/2 THEN estr_y=0
PRINT "X SCREEN = "+sx,10,sy/2-1.5*ty,1
PRINT "Y SCREEN = "+sy,10,sy/2-.5*ty,1
PRINT "Factor = "+xfactor,10,sy/2+.5*ty,1
PRINT "press key A to change factor",10,sy/2+1.5*ty,1
ENDSUB
STARTDATA n_factor:
DATA 1,1.5,2,3,4,8,10,0
ENDDATA