home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / mixo101a.zip / sbtest.cmd < prev    next >
OS/2 REXX Batch file  |  1997-09-21  |  3KB  |  70 lines
  1. /* SBRexx Test */
  2.  
  3. call RxFuncAdd 'MixLoadFuncs','SBREXX','MixLoadFuncs'
  4. call MixLoadFuncs
  5.  
  6. Say MixVer()
  7. Say MixCopyright()
  8. Say
  9.  
  10. /* if MixIsMasterAvailable()  = 1 then Say 'Master:  'MixGetMasterL()'/'MixGetMasterR()'' */
  11. if MixIsMasterAvailable() = 1 then
  12. do
  13.  parse value MixGetMaster() with L','R
  14.  Say 'Master:  'L'/'R''
  15. end;
  16. if MixIsVoiceAvailable()   = 1 then Say 'Voice:   'MixGetVoiceL()'/'MixGetVoiceR()''
  17. if MixIsMidiAvailable()    = 1 then Say 'Midi:    'MixGetMidiL()'/'MixGetMidiR()''
  18. if MixIsCDAvailable()      = 1 then Say 'CD:      'MixGetCDL()'/'MixGetCDR()''
  19. if MixIsLineAvailable()    = 1 then Say 'Line:    'MixGetLineL()'/'MixGetLineR()''
  20. if MixIsMicroAvailable()   = 1 then Say 'Micro:   'MixGetMicro()''
  21. if MixIsSpeakerAvailable() = 1 then Say 'Speaker: 'MixGetSpeaker()''
  22. if MixIsTrebleAvailable()  = 1 then Say 'Treble:  'MixGetTrebleL()'/'MixGetTrebleR()''
  23. if MixIsBassAvailable()    = 1 then Say 'Bass:    'MixGetBassL()'/'MixGetBassR()''
  24. pause
  25. Say
  26. Say 'Output:'
  27. if MixIsOutLineAvailable()  = 1 then Say 'Line:  'MixGetOutLineL()'/'MixGetOutLineR()''
  28. if MixIsOutCDAvailable()    = 1 then Say 'CD:    'MixGetOutCDL()'/'MixGetOutCDR()''
  29. if MixIsOutMicroAvailable() = 1 then Say 'Micro: 'MixGetOutMicro()''
  30. if MixIsOutGainAvailable()      = 1 then 
  31. do
  32.  L = MixGetOutGainL()
  33.  if L = 0 then L = 'x1'
  34.  else if L = 1 then L = 'x2'
  35.  else if L = 2 then L = 'x4'
  36.  else if L = 3 then L = 'x8'
  37.  R = MixGetOutGainR()
  38.  if R = 0 then R = 'x1'
  39.  else if R = 1 then R = 'x2'
  40.  else if R = 2 then R = 'x4'
  41.  else if R = 3 then R = 'x8'
  42.  Say 'Gain:  'L'/'R''
  43. end
  44. Say
  45. Say 'InputL:'
  46. if MixIsInLMidiAvailable()  = 1 then Say 'Midi:  'MixGetInLMidiL()'/'MixGetInLMidiR()''
  47. if MixIsInLLineAvailable()  = 1 then Say 'Line:  'MixGetInLLineL()'/'MixGetInLLineR()''
  48. if MixIsInLCDAvailable()    = 1 then Say 'CD:    'MixGetInLCDL()'/'MixGetInLCDR()''
  49. if MixIsInLMicroAvailable() = 1 then Say 'Micro: 'MixGetInLMicro()''
  50. Say
  51. Say 'InputR:'
  52. if MixIsInRMidiAvailable()  = 1 then Say 'Midi:  'MixGetInRMidiL()'/'MixGetInRMidiR()''
  53. if MixIsInRLineAvailable()  = 1 then Say 'Line:  'MixGetInRLineL()'/'MixGetInRLineR()''
  54. if MixIsInRCDAvailable()    = 1 then Say 'CD:    'MixGetInRCDL()'/'MixGetInRCDR()''
  55. if MixIsInRMicroAvailable() = 1 then Say 'Micro: 'MixGetInRMicro()''
  56. if MixIsInGainAvailable()      = 1 then 
  57. do
  58.  L = MixGetInGainL()
  59.  if L = 0 then L = 'x1'
  60.  else if L = 1 then L = 'x2'
  61.  else if L = 2 then L = 'x4'
  62.  else if L = 3 then L = 'x8'
  63.  R = MixGetInGainR()
  64.  if R = 0 then R = 'x1'
  65.  else if R = 1 then R = 'x2'
  66.  else if R = 2 then R = 'x4'
  67.  else if R = 3 then R = 'x8'
  68.  Say 'Gain:  'L'/'R''
  69. end
  70. if MixIsAGCAvailable() = 1 then Say 'AGC:   'MixGetAGC()''