home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 50
/
af050.adf
/
Rexx
/
SetVolume.dmcs
< prev
next >
Wrap
Text File
|
1993-07-05
|
690b
|
32 lines
/* Deluxe Music Arexx Script
** To Change Dynamic Volume
** of a selected dynamic
** By Stephen Barry
*/
OPTIONS RESULTS
GETITEMATTR DYNAMIC.VOLUME
IF RC > 0 THEN
REQUESTNOTIFY TITLE '"WARNING"' PROMPT '"A Dynamic Must be selected"'
ELSE DO
REQUESTNUM TITLE '"Set Dynamic Volume"' PROMPT '"Set Volume"' DEFAULT RESULT
IF RC > 0 THEN
EXIT
ELSE DO
IF DATATYPE(RESULT) = CHAR THEN
REQUESTNOTIFY TITLE '"WARNING"' PROMPT '"Input Must be Numeric"'
ELSE DO
IF RESULT > 127 | RESULT < 0 THEN
REQUESTNOTIFY TITLE '"WARNING"' PROMPT '"Out of Range (0-127)"'
ELSE DO
CHANGESELECTED LOUDNESS RESULT
END
END
END
END
EXIT 0