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