home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Da Capo
/
da_capo_vol1.bin
/
programs
/
amiga
/
midi
/
midiplay
/
arexx
/
playonemidi.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1994-08-07
|
950b
|
51 lines
/*
This script by Erno Tuomainen
NOTE!!!!!
BTW, if you don't specify PATH in the argument then script will
search the path specified in 'DEFPATH':
Make a normal Dos-script called PLAY then issue a command:
protect PLAY +s
PLAY should contain following :
---CUT HERE---
.key filename/a
.bra {
.ket }
sys:rexxc/rx rexx:PlayOneMIDI.REXX {filename}
---CUT HERE---
P.S. This script will load MIDIPLAY into memory if not already there.
(Edit the variable 'MPath' for your system.
*/
DEFPATH = 'GMIDI:' /* Where you keep your MIDIfiles */
MPath = 'sys:utilities'
OPTIONS RESULTS
arg filename
address command
if ~show('p',"MidiPlay_rexx") then
'run <>NIL: 'MPath
if pos(':', filename) = 0 & pos('/', filename) = 0 then
filename = DEFPATH || filename
Checkloop1:
result = SHOW("p","MidiPlay_rexx")
if result=0 then signal Checkloop1
ADDRESS "MidiPlay_rexx"
'SETLOOP OFF'
'SETEXIT ON'
'LOAD 'filename
EXIT