home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / YACDP1.2.lha / YACDP 1.2 / AREXX / FadeOut.yacdp < prev    next >
Encoding:
Text File  |  1994-12-05  |  940 b   |  38 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Fade volume down to 0.               */
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7.  
  8. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  9.  
  10. 'GETVAR STATUS'
  11.  
  12. if (STATUS > 2) then do
  13.   'GETVAR VIASCSI'
  14.   if (VIASCSI = 0) then
  15.     'GETVAR CDROMVOL VOL'
  16.   else
  17.     'GETVAR AMIVOL VOL'
  18.  
  19.   do i=VOL to 0 by -1
  20.     if (VIASCSI = 0) then
  21.       'PUTVAR CDROMVOL' i
  22.     else
  23.       'PUTVAR AMIVOL' i
  24.   end
  25.   'PAUSE'
  26. end
  27.  
  28. /* --------------------------- END OF YOUR CODE -------------------------- */
  29. EXIT
  30.  
  31. SYNTAX:
  32. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  33. EXIT
  34.  
  35. ERROR:
  36. SAY "YACDP error at line" SIGL ":" ERR
  37. EXIT 
  38.