function System_ImbedDocument_Onload ( xmlHttp, tagId )
{
  var html, tag;
  if (xmlHttp.status == 200) html = xmlHttp.responseText;
  else html = "("+xmlHttp.status+") "+xmlHttp.statusText;

  tag = document.getElementById(tagId);
  if (tag != null) tag.innerHTML = html;
  else alert("Error Imbedding Document to <" + tagId + ">.");
}

// Not yet in use
function System_ifdef  ( symbol ) { return (typeof(window[symbol]) != "undefined"); }
function System_ifndef ( symbol ) { return (typeof(window[symbol]) == "undefined"); }
function System_define ( symbol, reference ) { window[symbol] = reference; }

function System_MsgBoxConfirm ( message, callBack, data )
{ 
  var val = confirm(message);
  if (callBack!="") window[callBack](data,val);
}

function System_MsgBoxPrompt ( message, defaultValue, callBack, data )
{
  var val = prompt(message, defaultValue);
  if (callBack!="") window[callBack](data,val);
}

function System_SearchEncode ( val )
{
  if (val == "") return "";
  var ret = val;
  ret = ret.replace("~","~7E");
//  ret = ret.replace(" ","~20");
  ret = ret.replace("-","~2D");
  ret = ret.replace("+","~2B");
  ret = ret.replace(".","~2E");
  ret = ret.replace("&","~26");
  ret = ret.replace("?","~3F");
  ret = ret.replace("#","~23");
  return ret;
}