home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
utilamig
/
plysid
/
playsid3.0
/
arexx
/
preview.rex
< prev
Wrap
OS/2 REXX Batch file
|
1994-08-11
|
552b
|
28 lines
/* PlaySID example */
if(~show('l', 'rexxsupport.library'))then do
if(~addlib( 'rexxsupport.library', 0, -30, 0))then do
say "Could not open ARexx support library."
exit 10
end
end
parse arg name
path = "sid:music/"
address command "run SID:PlaySID"
say "Loading"
if SID_Load(path || name) then do
numtunes = SID_NumTunes()
say "Found" numtunes "tunes"
do tune = 1 to numtunes
say "Playing tune" tune
SID_SetTune(tune)
SID_Play()
Delay(5 * 50)
end
say "Stopped"
SID_Stop()
end
SID_Quit()