Here is an example file include with Release 5, It is in the Sound 
folder, it is called "Sound Level.Bas"
Basicly what you found in the Apple header files :)

/* Sound Manager 3.0 and later calls, uses _SoundDispatch */

ToolBox fn GetDefaultOutputVolume(long * level)  = word    `0x203C, 
0x022C, 0x0018, 0xA800
ToolBox fn SetDefaultOutputVolume(long   level)  = word    `0x203C, 
0x0230, 0x0018, 0xA800

ToolBox fn GetSysBeepVolume(long * level)        = word    `0x203C, 
0x0224, 0x0018, 0xA800
ToolBox fn SetSysBeepVolume(long   level)        = word    `0x203C, 
0x0228, 0x0018, 0xA800
'
' Getting & Setting the Sound level
'
dim realVolume&,tempVolume&,sndLevel&,err
'
err = FN GetDefaultOutputVolume(realVolume&)
'
FOR sndLevel& = 256 TO 0 STEP -16
err = FN SetDefaultOutputVolume(sndLevel&)
err = FN GetDefaultOutputVolume(tempVolume&)
PRINT tempVolume&
BEEP
DELAY 200
NEXT sndLevel&
'
DELAY 500
'
'err = FN SetDefaultOutputVolume(realVolume&)
'
FOR sndLevel& = 256 TO 0 STEP -16
err = FN SetSysBeepVolume(sndLevel&)
err = FN GetSysBeepVolume(tempVolume&)
PRINT tempVolume&
BEEP
DELAY 200
NEXT sndLevel&
'
err = FN SetSysBeepVolume(256)
'
STOP



On Friday, February 22, 2002, at 10:22  AM, Alain Pastor wrote:

> Nowhere in FB. I found those in the Apple header files. I think the
> Release 6 will have my own Sound Incl.file included in the example
> folder, if I'm not mistaken. You will be able to grab almost all the
> Toolbox calls you need.
>
>
--

Matthew Beedle
President, Foxchange Software
http://www.foxchange.com/