home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / cdrom / CDDA-Player / YACDP_1.2 / AREXX / TestCD.yacdp < prev    next >
Text File  |  1994-12-05  |  1KB  |  40 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Play first 10 secs of all songs.     */
  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 < 3) then                            /* quit if no audio CD     */
  13. do
  14.   'REQUESTER DUMMY "AREXX-ERROR" "You must insert an audio CD first." "OK"'
  15.   EXIT
  16. end
  17.  
  18. 'GETVAR MAXTRACK'
  19.  
  20. do i=1 to MAXTRACK
  21.   'GETVAR TRACKSTART NUM=' i
  22.   'PLAYBLOCK ' TRACKSTART
  23.   'WAIT ' TRACKSTART+75*10 'FLAGS=' 2+16384+8192
  24.   if (ERR ~= 0) then
  25.     EXIT
  26. end
  27.  
  28. 'STOP'
  29.  
  30. /* --------------------------- END OF YOUR CODE -------------------------- */
  31. EXIT
  32.  
  33. SYNTAX:
  34. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  35. EXIT
  36.  
  37. ERROR:
  38. SAY "YACDP error at line" SIGL ":" ERR
  39. EXIT
  40.