home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / TFTB.ZIP / SOUNDOFF.SLT < prev    next >
Encoding:
Text File  |  1992-04-24  |  1.0 KB  |  27 lines
  1. //////////////////////////////////////////////////////////
  2. // PROGRAM: SOUNDOFF.SLT                                //
  3. // AUTHOR:  Christopher Saunders                        //
  4. // DATE:    April 25th 1992                             //
  5. //                                                      //
  6. // INFORMATION                                          //
  7. // ~~~~~~~~~~~                                          //
  8. // Are you annoyed by some BBSs that think it is "cute" //
  9. // to blast  you with  beeps  (CTRL-Gs)?  Well, here is //
  10. // your defense!  Execute  this script and your speaker //
  11. // is silenced! Run  SOUNDON.SLT  and  your  speaker is //
  12. // immediately turned on!  Not  only  will  this script //
  13. // filter  out CTRL-Gs, it will silence  the alarm that //
  14. // goes off when Telix  connects to a system, or a file //
  15. // transfer is completed!                               //
  16. //////////////////////////////////////////////////////////
  17.  
  18. int old_sound;
  19.  
  20. main()
  21. {
  22.  old_sound = _sound_on;
  23.    _sound_on = 0;
  24. status_wind("Sound is off!",30);
  25. }
  26.  
  27.