/* $VER: 1.2 © 1994 by Frank Würkner. Fade volume down to 0.               */

SIGNAL ON SYNTAX                            /* check syntax                */
SIGNAL ON ERROR                             /* check if command succeeds   */
OPTIONS FAILAT 6                            /* ignore warnings             */
ADDRESS 'YACDP'                             /* send to YACDP               */

/* -------------------------- BEGIN OF YOUR CODE ------------------------- */

'GETVAR STATUS'

if (STATUS > 2) then do
  'GETVAR VIASCSI'
  if (VIASCSI = 0) then
    'GETVAR CDROMVOL VOL'
  else
    'GETVAR AMIVOL VOL'

  do i=VOL to 0 by -1
    if (VIASCSI = 0) then
      'PUTVAR CDROMVOL' i
    else
      'PUTVAR AMIVOL' i
  end
  'PAUSE'
end

/* --------------------------- END OF YOUR CODE -------------------------- */
EXIT

SYNTAX:
SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
EXIT

ERROR:
SAY "YACDP error at line" SIGL ":" ERR
EXIT