Does this code work for anyone?
The following code to set the sound volume causes FBII to freeze using a
Mac G3 and OS 8.6
Is this method out of date?
 
WINDOW 1

CLEAR LOCAL MODE
 DIM pBlock.100
 LOCAL FN SetSoundLevel (sndLevel%)                'from 0 to 7
   pBlock.ioCompletion& =  0                       'completion rtn
   pBlock.dCtlRefNum%   = -4                       'drvr ref num
   pBlock.csCode%       =  2                       'control code
   pBlock.csParam%      =  sndLevel%               'snd vol (0-7)
   OSErr% = FN CONTROL(@pBlock)
 END FN = OSErr%
 
sndLevel%=5                              '0-7 allowed
FN SetSoundLevel (sndLevel%)

DO:UNTIL FN BUTTON

-- 
Dr. Pierre A. Zippi
Biostratigraphy.com
7518 Twin Oaks Court
Garland, TX 75044 USA

paz@...
http://www.biostratigraphy.com

paz@...
http://www.pazsoftware.com