'===========================================================================
' Subject: TURN PC SPEAKER OFF                Date: Unknown Date           
'  Author: Unknown Author(s)                  Code: QB, QBasic, PDS        
'  Origin: TURN,PC,SPEAKER,OFF              Packet: SOUND.ABC
'===========================================================================
'  > Does anyone know how to turn the speaker off?
'  > I thought there would be a port address for the speaker but
'  > I can't find the address.

'Here's something I picked up somewhere.  Unfortunately, I can't credit
'it:

DEFINT A-Z

DECLARE SUB NoSound ()

'***********************************************************************
'* SUB NoSound
'*
'* PURPOSE
'*    Turns off the continuous tone.
'***********************************************************************
SUB NoSound STATIC
   C% = INP(&H61)                            'mask off speaker
   OUT &H61, (C% AND &HFC)                   '   output from timer
END SUB