BluFM

alias blufm {
var %blu http://stream.blufm.net:8000
  var %obj = obj $+ $ticks
  .comopen %obj WMPlayer.OCX
  if ($com(%obj)) {
    noop $com(%obj,Url,4,bstr,%blu)
    noop $com(%obj,Controls,3,dispatch* %obj $+ ::controls)
    if (!$com(%obj $+ ::controls)) {
      .comclose %obj
      return $false
    }
    noop $com(%obj $+ ::controls,Play,3)
    return %obj
  }
  return $false
}