Graphics 640, 480, 0, 2

dxSetBuffer dxBackBuffer ()

Repeat
dxFlip:dxCls
dxText 20, 20, "Mouse wheel position: " + dxMouseZ ()
Until dxKeyHit (1)

End