home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / bbs / bbbbs / bbbbs72.lha / rexx / ToggleNoise.rexx < prev   
OS/2 REXX Batch file  |  1993-07-24  |  362b  |  19 lines
  1. /* $VER: ToggleNoise.rexx 6.1 © 1993 Richard Lee Stockton (24.7.93) */
  2.  
  3. x=GETCLIP('BBS_NOISE')
  4. IF x='OFF' THEN
  5.   DO
  6.     CALL SETCLIP('BBS_NOISE')
  7.     temp='BBBBS sounds and voice are ON.'
  8.   END
  9. ELSE
  10.   DO
  11.     CALL SETCLIP('BBS_NOISE','OFF')
  12.     temp='BBBBS sounds and voice are OFF.'
  13.   END
  14. IF ADDRESS()='BAUD' THEN MSG temp
  15. ELSE SAY temp
  16.  
  17.  
  18. /* ToggleNoise.rexx */
  19.