/* HippoPlayer - Play <file> modified by Eliot/Contortion */

parse arg filename

if ~show(ports,'HIPPOPLAYER') then
do
address command
'c:hip'                /* change if you've put HippoPlayer somewhere else */
end

hiploop:
result = SHOW("p","HIPPOPLAYER")
if result=0 then signal hiploop

if pos(':', filename) = 0 then  /* remove if you don't specify full path */
do
address 'HIPPOPLAYER'
play
exit
end

address 'HIPPOPLAYER'
play filename
