SOUND                        Turn Speaker On                         pp 185

 Syntax:  Sound ;

 Type:    N/A

 Form:    Procedure

 Purpose: Turn speaker on until execution of NoSound statement.


 ----------------------------------------------------------------------------


 Usage:
       CONST
          IntVar : Integer = 1000  ;  { 1000 Hz frequency }

       BEGIN
          Sound (IntVar)           ;  { Turn sound on     }
          Delay (500)              ;  { Wait 500 msec     }
          NoSound                  ;  { Turn sound off    }
       END.