M$ volume control optimization request

M$ volume control waits an integer with two 16 bits nibbles (one per channel). Are there an simpler method than my code ? Thanks ! Luis b: load/library %/c/windows/system/winmm.dll setVol: make routine! [ dwFreq [integer!] dwDuration [integer!]] b "auxSetVolume" nib: to-integer #fffe view layout [s: slider [ x: (to-integer (1 - s/data * nib )) either x > (nib / 2) [ z: nib - x + 1] [z: - x ] y: (- z -(z * to-integer #10000)) print to-hex y setVol 5 to-integer y ]]