home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 50 / af050.adf / Rexx / SetVolume.dmcs < prev    next >
Encoding:
Text File  |  1993-07-05  |  690 b   |  32 lines
  1.  
  2. /*   Deluxe Music Arexx Script
  3. **   To Change Dynamic Volume
  4. **   of a selected dynamic
  5. **   By Stephen Barry
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. GETITEMATTR DYNAMIC.VOLUME
  11.  
  12. IF RC > 0 THEN
  13.   REQUESTNOTIFY TITLE '"WARNING"' PROMPT '"A Dynamic Must be selected"'
  14. ELSE DO
  15.   REQUESTNUM TITLE '"Set Dynamic Volume"' PROMPT '"Set Volume"' DEFAULT RESULT
  16.   IF RC > 0 THEN
  17.     EXIT
  18.   ELSE DO
  19.     IF DATATYPE(RESULT) = CHAR THEN
  20.       REQUESTNOTIFY TITLE '"WARNING"' PROMPT '"Input Must be Numeric"'
  21.     ELSE DO
  22.       IF RESULT > 127 | RESULT < 0 THEN
  23.         REQUESTNOTIFY TITLE '"WARNING"' PROMPT '"Out of Range (0-127)"'
  24.       ELSE DO
  25.         CHANGESELECTED LOUDNESS RESULT
  26.       END
  27.     END
  28.   END
  29. END
  30.  
  31. EXIT 0
  32.