function QSHandler() {
if (window.title=='Software by Heibel Multimedia'){
	var qs = parent.location.search.substr(1).split("&");}
else{
	var qs = location.search.substr(1).split("&");
}
	this.data = [];
	for(var i = 0; i < qs.length; i++) this.data[qs[i].split("=")[0]] = qs[i].split("=")[1];

this.QueryString = function(x) {
return this.data[x];
	};
}
function LinkNewMax(url){
var w=screen.availwidth;
var h=screen.availheight;
var newin=window.open(url,"","top=0,left=0,width=" + w + " ,height=" + h +" ,toolbar=1,menubar=1,status=1,resizable=0,scrollbars=1,location=1, directories=1");
}
function LinkParent(url){
window.location.href=url;
}
function spangroup(){
var Request = new QSHandler();
var gr= Request.QueryString("gr");
if (gr!='all'){
var i=1;
if (document.frames.item('body').document.getElementById){
while (document.frames.item('body').document.getElementById(gr+i)!=null){
document.frames.item('body').document.getElementById(gr+i).style.display="inline";
i++}}}
else{
obj=document.frames.item('body').document.getElementsByTagName('span');
for (var i=0;i<obj.length;i++){
spanid=obj[i].id;
if(spanid.match('Group')){
document.frames.item('body').document.getElementById(spanid).style.display="inline";}}}
}
function revealTrans(IDe,duration,transition) {
document.frames.item('body').document.getElementById(IDe).style.visibility = "hidden";
document.frames.item('body').document.getElementById(IDe).filters[0].Apply();
document.frames.item('body').document.getElementById(IDe).filters[0].duration=duration;
document.frames.item('body').document.getElementById(IDe).filters[0].transition=transition;
document.frames.item('body').document.getElementById(IDe).style.visibility = "visible";
document.frames.item('body').document.getElementById(IDe).filters[0].Play();
}
function Print(fr,x){
if (fr!='all'){document.frames[fr].focus(); document.focus();};
WB = '<OBJECT ID="WB1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd',WB);
WB1.ExecWB(6, x);//6, 2 with printdialog box; 6, -1 without
WB1.outerHTML = "";  
}
function LinkSpanModule(module,descrip){
var Request = new QSHandler();
var my_var = Request.QueryString("gr");
body.document.write('<A HREF="../' + module +'/start.hta?gr=' + my_var + '" Target="_parent">' + descrip + '</A>');
}
function LinkSpanModule2(module,descrip,gru,grs){
var Request = new QSHandler();
var my_var = Request.QueryString("gr");
body.document.write('<A HREF="../' + module +'/html/indexmhta.html?gr=' + my_var + '&gru=' + gru + '&grs=' + grs + '" Target="_parent">' +  descrip + '</A>');
}
var V_fl=0;
function LinkSpanModule3(){
if (V_fl==0){
var Request = new QSHandler();
var my_var = Request.QueryString("gru");
if (my_var){
body.V_modback(my_var);
}
V_fl=1;
}
}
function LinkSpanModule4(){
var Request = new QSHandler();
var my_var = Request.QueryString("gr");
var my_var1 = Request.QueryString("grs");
if (my_var){
parent.frames(1).document.location='../../indexhta.html?gr=' + my_var +'&gru=' + my_var1 + '';
}else{
parent.frames(1).document.location='../../indexhta.html?gru=' + my_var1 + '';
}
}
//--------------------------;
//Always leave what's above!;
//--------------------------;
function Fractal(scrw,scrh){
scrwadj=document.body.clientWidth;
if (scrwadj<801){
scrh=scrh*.6;
scrw=scrw*.6;
}
body.document.write('<OBJECT <OBJECT ID="fractal" CLASSID="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" WIDTH=' + scrw +' HEIGHT=' + scrh +'>');
body.document.write('<PARAM NAME="URL" VALUE="./fractal.wav">\n');
body.document.write('<PARAM NAME="autoStart" VALUE="-1">\n');
body.document.write('<PARAM NAME="playCount" VALUE="100000">\n');
body.document.write('<PARAM NAME="uiMode" VALUE="none">\n');
body.document.write('</OBJECT>\n');
}
function EMBED(mediafile){
body.document.write('<EMBED SRC="./media/' + mediafile +'" VOLUME="0" LOOP="0">');
}
function Flash(mediafile,scrw,scrh){
body.document.write('<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" WIDTH=' + scrw +' HEIGHT=' + scrh +'>');
body.document.write('<PARAM NAME=movie VALUE="./media/' + mediafile + '">\n');
body.document.write('<PARAM NAME=quality VALUE=high>\n');
body.document.write('<PARAM NAME=loop VALUE=true>\n');
body.document.write('<PARAM NAME=wmode VALUE=transparent>\n');
body.document.write('</OBJECT>\n');
}
function Sound(mediafile){
body.document.write('<OBJECT ID="MediaPlayer1" CLASSID="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95" WIDTH=300 HEIGHT=44>' +'">\n');
body.document.write('<PARAM NAME="Filename" VALUE="./media/' + mediafile + '">\n');
body.document.write('<PARAM NAME="autoStart" VALUE="0">\n');
body.document.write('</OBJECT>\n');
}
function Adjust(){
if (window.frames.length != 0) {
scrwadj=-20;
scrhadj=100;
}
else
{
scrwadj=22;
scrhadj=20;
}
}
function Video(mediafile,scrw,scrh){
scrh=scrh+65;
if (scrw<0){
scrw=scrw*-1;
if (scrh==65){
scrw=body.document.body.clientWidth;
Adjust();
scrw=scrw+scrwadj-(scrw/777)*45;
scrh=body.document.body.clientHeight;
scrh=scrh-scrhadj;
}
body.document.write('<OBJECT ID="ActiveMovie1" CLASSID="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A" WIDTH=' + scrw +' HEIGHT=' + scrh +'">\n');
body.document.write('<PARAM NAME="Filename" VALUE="./media/' + mediafile + '">\n');
body.document.write('<PARAM NAME="autoStart" VALUE="0">\n');
body.document.write('<PARAM NAME="playCount" VALUE="1">\n');
body.document.write('</OBJECT>\n');
}
else
{
if (scrh==65){
scrw=body.document.body.clientWidth;
Adjust();
scrw=scrw+scrwadj-(scrw/777)*45;
scrh=body.document.body.clientHeight;
scrh=scrh-scrhadj;
}
body.document.write('<OBJECT ID="VideoPlayer1" CLASSID="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" WIDTH=' + scrw +' HEIGHT=' + scrh +'">\n');
body.document.write('<PARAM NAME="URL" VALUE="./media/' + mediafile + '">\n');
body.document.write('<PARAM NAME="autoStart" VALUE="0">\n');
body.document.write('<PARAM NAME="stretchToFit" VALUE="1">\n');
body.document.write('</OBJECT>\n');
}
}
function Acrobat(mediafile){
scrw=body.document.body.clientWidth;
Adjust();
scrw=scrw+scrwadj+1-(scrw/777)*45;
scrh=body.document.body.clientHeight;
scrh=scrh-scrhadj;
body.document.write('<OBJECT ID="Pdf1" WIDTH=' + scrw +' HEIGHT=' + scrh +' CLASSID="CLSID:CA8A9780-280D-11CF-A24D-444553540000">\n');
body.document.write('<PARAM NAME="SRC" VALUE="./media/' + mediafile + '">\n');
body.document.write('</OBJECT>\n');
}
function Html(url,modulenumber){
var xml = new ActiveXObject("Microsoft.XMLHTTP");
url="./m" + modulenumber + "/" + url;
xml.Open( "GET", url, false );
xml.Send();
body.document.writeln(xml.responseText);
}
function HtmlFrame(url,modulenumber){
var xml = new ActiveXObject("Microsoft.XMLHTTP");
url="./m" + modulenumber +"/" + url;
scrw=body.document.body.clientWidth;
Adjust();
scrw=scrw+scrwadj+1-(scrw/777)*45;
scrh=body.document.body.clientHeight;
scrh=scrh-scrhadj;
body.document.write("<DIV style=\"width:" + scrw +"; height:" + scrh + "; padding:0px 0px 0px 0px; overflow:auto\";>");
xml.Open( "GET", url, false );
xml.Send();
body.document.writeln(xml.responseText);
body.document.write('</DIV>');
}
function HtmlNetscape(url,modulenumber){
url="./m" + modulenumber +"/" + url;
if ( document.all ) {
var xml = new ActiveXObject("Microsoft.XMLHTTP");
xml.Open( "GET", url, false );
xml.Send();
body.document.writeln(xml.responseText);
}
else
{if ((location.host=='' && url.indexOf(location.protocol)==-1) || url.indexOf(location.host)==-1){     netscape.security.PrivilegeManager.enablePrivilege("UniversalConnect");
}
var dest = new java.net.URL(url);
var dis  = new java.io.DataInputStream(dest.openStream());
var res  = "";
while ((line = dis.readLine()) != null){
res += line + java.lang.System.getProperty("line.separator");
}
dis.close();
body.document.writeln(res);
}
}
function HtmlIframe(id,url,modulenumber){
scrw=body.document.body.clientWidth;
Adjust();
scrw=scrw+scrwadj+1-(scrw/777)*45;
scrh=body.document.body.clientHeight;
scrh=scrh-scrhadj;
body.document.write("<IFRAME ID=\"" + id +"\" SRC=\"" + url + "\" WIDTH=\"" + scrw +"\" HEIGHT=\"" + scrh + "\" hspace=\"0\"></IFRAME>");
}