home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-020m / sfx-data / _rexx / info.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  385 b   |  24 lines
  1. /* SFX Info */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     GetLength buf1
  10.     slen=RESULT
  11.     GetRate buf1
  12.     srat=RESULT
  13.     GetChannels buf1
  14.     scha=RESULT
  15.  
  16.     say 'sampleparameter for active buffer :'
  17.     say '  samplerate     : 'srat
  18.     say '  samplelength   : 'slen
  19.     say '  nr of channels : 'scha
  20. END
  21. ELSE Message '"No sample to operate on !"'
  22. ActivateSFX
  23. EXIT
  24.