home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / bigben2.zip / dingdong.cmd < prev    next >
OS/2 REXX Batch file  |  1993-12-15  |  1KB  |  33 lines
  1. /************************************************************
  2.     dingdong.cmd
  3.  
  4.     REXX procedure to play bigben.wav via MMPM
  5.  
  6.  
  7.     Marc E.E. van Woerkom, 12/93
  8.  ************************************************************/
  9.  
  10.  
  11. rc = call RxFuncAdd('mciRxInit', 'MCIAPI',,         /* register MCI REXX API */
  12.                     'mciRxInit')
  13. rc = call mciRxInit()                               /* and initialize it */
  14.  
  15.  
  16. rc = mciRxSendString('open waveaudio',              /* open digital audio */
  17.                      'alias wave shareable wait',,
  18.                      'RetStr', '0', '0')
  19.  
  20. rc = mciRxSendString('load wave bigben.wav wait',,  /* load wav */
  21.                      'RetStr', '0', '0')
  22.  
  23. rc = mciRxSendString('play wave wait',,                  /* play file */
  24.                      'RetStr', '0', '0')
  25.  
  26. rc = mciRxSendString('close wave wait',,            /* close device "wave" */
  27.                      'RetStr', '0', '0')
  28.  
  29.  
  30. call mciRxExit
  31.  
  32. exit rc                                             /* exit with rc code */
  33.