home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
mmpm2
/
ssndrexx
/
ssndrexx.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-04-27
|
864b
|
51 lines
/* REXX */
/**
*
* Note: PMREXX must be used.
*
**/
say 'BocaSoft System Sounds PMREXX Interface'
/* Add the routine "FindSystemSounds" from our DLL "SSNDREXX" */
call rxfuncadd 'FindSystemSounds', 'SSNDREXX', 'FindSystemSounds'
/* Add the routine "PlaySound" from our DLL "SSNDREXX" */
call rxfuncadd 'PlaySound', 'SSNDREXX', 'PlaySound'
/* Call DLL to locate System Sounds. Print any errors. */
call FindSystemSounds
if (result > 0) then do
select
when (result = 1) then
say 'Error #' result ' - Not a Valid PM Session'
when (result = 2) then
say 'Error #' result ' - System Sounds Not Found'
otherwise
say 'Error #' result ' - Unknown Error Code'
exit
end
end
/* Loop forever accepting input and calling System Sounds */
do while 1
index = linein()
call PlaySound index
end