home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
utilamig
/
plysid
/
playsid3.0
/
arexx
/
jukebox.rex
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-08-11
|
859b
|
38 lines
/* PlaySID jukebox 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
data = 'sid:jukebox.data'
path = 'sid:music/'
file = 'file'
if open(file, data, 'r') then do
address command "run SID:PlaySID"
line = readln(file)
do while ~eof(file)
name = word(line, 1)
tune = word(line, 2)
time = word(line, 3)
if SID_Load(path || name) then do
numtunes = SID_NumTunes()
say "Found" numtunes "tunes in" name
say "Playing tune" tune "for" time "seconds"
SID_SetTune(tune)
SID_Play()
Delay(time * 50)
SID_Stop()
end
line = readln(file)
end
SID_Quit()
call close(file)
end
else
say "Unable to open file" data"."