Anonymous

alias parse { 
  .comopen xml msxml2.xmlhttp
  var %x $com(xml,open,1,bstr,get,bstr,$+( [ $regsubex($1,/%s/g,$chr(44) $ $+ $calc(\n +1) $chr(44)) ] ),bool,-1) $& 
    $com(xml,send,1) $com(xml,responseText,2),%x $com(xml).result
  .comclose xml
  return %x
}
alias comid if ($+($1,$com(0))) return $v1
alias parseAsync {
  .comopen $comid(x) msxml2.xmlhttp
  noop $com($v1,open,1,bstr,get,bstr,$+( [ $regsubex($2,/%s/g,$chr(44) $ $+ $calc(\n +2) $chr(44)) ] ),bool,0)
  noop $comcall($v1,noop $!com($1,responseText,2) $(|,) $1 $!com($1).result $(|,) .comclose $!1,send,1)
}