home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ANews 2
/
AnewsCD2.iso
/
Script
/
HiP.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-10-06
|
397b
|
19 lines
/* HippoPlayer - Play <file> */
parse arg '"' filename '"'
if (filename = "") THEN
parse arg filename
if ~show(ports,'HIPPOPLAYER') then
do
address command
'ANewsCD:C/Hippoplayer/Hip' /* change if you've put HippoPlayer somewhere else */
end
hiploop:
result = SHOW("p","HIPPOPLAYER")
if result=0 then signal hiploop
address 'HIPPOPLAYER'
ZIP 0
if pos(':', filename) ~= 0 then play filename