// b-Max SAMPLE.EXE -------------------------------
//  MENU LOADER (ver1.00) by Hideo Azuma 2001 3/08

var bmax_ifmenu = false;
var bmax_ifdiag = false;
var bmax_tid = '';
    var temp = "";
    temp = navigator.userAgent.substring(8,9);
    var browserver=0;
    if (parseFloat(temp)>2){ browserver=1; }
    if (browserver == 1) {
	
	IFA = new Image;	IFA.src = 'smp/bmax_sample_3A-off.gif';
	IFB = new Image;	IFB.src = 'smp/bmax_sample_3B-off.gif';
	IFC = new Image;	IFC.src = 'smp/bmax_sample_3C-off.gif';
	IFD = new Image;	IFD.src = 'smp/bmax_sample_3D-off.gif';
	IFE = new Image;	IFE.src = 'smp/bmax_sample_3E-off.gif';
	IFF = new Image;	IFF.src = 'smp/bmax_sample_3F-off.gif';
	IFG = new Image;	IFG.src = 'smp/bmax_sample_3G-off.gif';
	IFH = new Image;	IFH.src = 'smp/bmax_sample_3H-off.gif';
	IFI = new Image;	IFI.src = 'smp/bmax_sample_3I-off.gif';
	IFJ = new Image;	IFJ.src = 'smp/bmax_sample_3J-off.gif';
	IFK = new Image;	IFK.src = 'smp/bmax_sample_3K-off.gif';
	IFL = new Image;	IFL.src = 'smp/bmax_sample_3L-off.gif';
	IFM = new Image;	IFM.src = 'smp/bmax_sample_3M-off.gif';
	IFN = new Image;	IFN.src = 'smp/bmax_sample_3N-off.gif';
	IFO = new Image;	IFO.src = 'smp/bmax_sample_3O-off.gif';

	INA = new Image;	INA.src = 'smp/bmax_sample_3A-on.gif';
	INB = new Image;	INB.src = 'smp/bmax_sample_3B-on.gif';
	INC = new Image;	INC.src = 'smp/bmax_sample_3C-on.gif';
	IND = new Image;	IND.src = 'smp/bmax_sample_3D-on.gif';
	INE = new Image;	INE.src = 'smp/bmax_sample_3E-on.gif';
	INF = new Image;	INF.src = 'smp/bmax_sample_3F-on.gif';
	ING = new Image;	ING.src = 'smp/bmax_sample_3G-on.gif';
	INH = new Image;	INH.src = 'smp/bmax_sample_3H-on.gif';
	INI = new Image;	INI.src = 'smp/bmax_sample_3I-on.gif';
	INJ = new Image;	INJ.src = 'smp/bmax_sample_3J-on.gif';
	INK = new Image;	INK.src = 'smp/bmax_sample_3K-on.gif';
	INL = new Image;	INL.src = 'smp/bmax_sample_3L-on.gif';
	INM = new Image;	INM.src = 'smp/bmax_sample_3M-on.gif';
	INN = new Image;	INN.src = 'smp/bmax_sample_3N-on.gif';
	INO = new Image;	INO.src = 'smp/bmax_sample_3O-on.gif';
		
    }

function bmax_alt(a){
	if(bmax_ifdiag){
		bmax_menu_ON();
		var img = eval((navigator.appName == 'Netscape') ? 'document.'+a : 'document.all.'+a);
		if (a == '') return;
		if (img && img.altsrc) {
			var imgalt = img.src;
			img.src    = img.altsrc;
			img.altsrc = imgalt;
		} 
	}
}

function bmax_menu(){
	
	na_change_img_src('MA','document',INA.src,true);
	na_change_img_src('MB','document',INB.src,true);
	na_change_img_src('MC','document',INC.src,true);
	na_change_img_src('MD','document',IND.src,true);
	na_change_img_src('ME','document',INE.src,true);
	na_change_img_src('MF','document',INF.src,true);
	na_change_img_src('MG','document',ING.src,true);
	na_change_img_src('MH','document',INH.src,true);
	na_change_img_src('MI','document',INI.src,true);
	na_change_img_src('MJ','document',INJ.src,true);
	na_change_img_src('MK','document',INK.src,true);
	na_change_img_src('ML','document',INL.src,true);
	na_change_img_src('MM','document',INM.src,true);
	na_change_img_src('MN','document',INN.src,true);
	na_change_img_src('MO','document',INO.src,true);
	
	na_change_img_src('MA','document',IFA.src,true);
	na_change_img_src('MB','document',IFB.src,true);
	na_change_img_src('MC','document',IFC.src,true);
	na_change_img_src('MD','document',IFD.src,true);
	na_change_img_src('ME','document',IFE.src,true);
	na_change_img_src('MF','document',IFF.src,true);
	na_change_img_src('MG','document',IFG.src,true);
	na_change_img_src('MH','document',IFH.src,true);
	na_change_img_src('MI','document',IFI.src,true);
	na_change_img_src('MJ','document',IFJ.src,true);
	na_change_img_src('MK','document',IFK.src,true);
	na_change_img_src('ML','document',IFL.src,true);
	na_change_img_src('MM','document',IFM.src,true);
	na_change_img_src('MN','document',IFN.src,true);
	na_change_img_src('MO','document',IFO.src,true);

	bmax_ifmenu=true;
	bmax_ifdiag=true;
	bmax_menu_ON();
}
function bmax_menu_ON(){
	if(bmax_ifmenu){
		clearTimeout(bmax_tid);
		bmax_tid=setTimeout('bmax_menu_ON();bmax_ifmenu=false;','1000');
		
	} else{
		na_change_img_src('MA','document','../null.gif',true);
		na_change_img_src('MB','document','../null.gif',true);
		na_change_img_src('MC','document','../null.gif',true);
		na_change_img_src('MD','document','../null.gif',true);
		na_change_img_src('ME','document','../null.gif',true);
		na_change_img_src('MF','document','../null.gif',true);
		na_change_img_src('MG','document','../null.gif',true);
		na_change_img_src('MH','document','../null.gif',true);
		na_change_img_src('MI','document','../null.gif',true);
		na_change_img_src('MJ','document','../null.gif',true);
		na_change_img_src('MK','document','../null.gif',true);
		na_change_img_src('ML','document','../null.gif',true);
		na_change_img_src('MM','document','../null.gif',true);
		na_change_img_src('MN','document','../null.gif',true);
		na_change_img_src('MO','document','../null.gif',true);
		bmax_ifdiag = false;
	}
	return null;
}

// b-Max SAMPLE.EXE 
//  SAMPLE PROGRAM (ver0.9) by Hideo Azuma 2001 3/08

function bmax_exe(a){
	
	if(a=='M2') bmax_menu();
	if(a=='M3') bmax_001();	// [001]　　640 X 480
	if(a=='M4') bmax_010();	// [010] 左右に並べて表示
	if(a=='M5') bmax_040();	// [040] ページ書換
	if(a=='M6') bmax_050();	// [050] 一発画像消去
	if(a=='M7') bmax_081();	// [081]　　リンク・検索
    if(bmax_ifdiag){	
	if(a=='MA') bmax_000();	// [000] 窓サイズ変更
	if(a=='MB') bmax_002(); // [002]　　800 X 600
	if(a=='MC') bmax_003(); // [003]　　1024 X 768
	if(a=='MD') bmax_011(); // [011]　　左に寄せる
	if(a=='ME') bmax_012(); // [012]　　右に寄せる
	if(a=='MF') bmax_020(); // [020] フレーム分解
	if(a=='MG') bmax_030(); // [030] 背景色変更
	if(a=='MH') bmax_031(); // [031]　　WHITE
	if(a=='MI') bmax_060(); // [060] スクリプ止
	if(a=='MJ') bmax_070(); // [070] リスト表示
	if(a=='MK') bmax_071(); // [071]　　リンク・リスト
	if(a=='ML') bmax_072(); // [072]　　画像・リスト
	if(a=='MM') bmax_073(); // [073]　　SCRIPT LIST
	if(a=='MN') bmax_082(); // [082]　　画像・検索
	if(a=='MO') bmax_090(); // [090] リファラ偽装
    }
	void('');
}

function bmax_000(){	// [000] 窓サイズ変更 （頁実行型）
    
    if(navigator.appName=='Netscape'){	
	void(outerHeight=prompt(
	    'WIDTH='+eval(
		'outerWidth=prompt(\'WIDTH ?\',\'256\')'
		)+' HEIGHT ?','256'
	    )
	);
    } else{
	resizeTo(prompt('WIDTH ?','256'),prompt('WIDTH=OK HEIGHT ?','256'));
    }
}

function bmax_001(){	// [001]　　640 X 480（頁実行型）
    
    if(navigator.appName=='Netscape'){	
	outerWidth=640;
	outerHeight=480;
	void('');
    } else{
	resizeTo(640,480);
    }
}

function bmax_002(){	//[002]　　800 X 600（頁実行型）
    
    if(navigator.appName=='Netscape'){	
	outerWidth=800;
	outerHeight=600;
	void('');
    } else{
	resizeTo(800,600);
    }
}


function bmax_003(){	// [003]　　1024 X 768（頁実行型）
    
    if(navigator.appName=='Netscape'){	
	outerWidth=1024;
	outerHeight=768;
	void('');
    } else{
	resizeTo(1024,768);
    }
}

function bmax_010(){	// [010] 左右に並べて表示（頁実行型）
    
    if(navigator.appName=='Netscape'){	
	W=open(document.location,'W');
	W.outerHeight=outerHeight=screen.availHeight;
	moveTo(0,0);
	W.moveTo(W.outerWidth=outerWidth=screen.availWidth/2,0);
    } else{
	moveTo(0,0);
	resizeTo(X=screen.availWidth/2,Y=screen.availHeight);
	W=open('','W');
	W.moveTo(X,0);
	W.resizeTo(X,Y);
	L=''+document.location;
	W.document.location=L;
	void('');
    }
}

function bmax_011(){	// [011]　　左に寄せる（頁実行型）
    
    if(navigator.appName=='Netscape'){	
	outerWidth=screen.availWidth/2;
	outerHeight=screen.availHeight;
	moveTo(0,0);
    } else{
	moveTo(0,0);
	resizeTo(screen.availWidth/2,screen.availHeight);
    }
}

function bmax_012(){	// [012]　　右に寄せる（頁実行型）
    
    if(navigator.appName=='Netscape'){	
	outerHeight=screen.availHeight;
	moveTo(outerWidth=screen.availWidth/2,0);
    } else{
	moveTo(screen.availWidth/2,0);
	resizeTo(screen.availWidth/2,screen.availHeight);
    }
}

function bmax_020(){	// [020] フレーム分解

	alert('この頁にはフレームが使われていませんので効果がありません');
	
}

function bmax_030(){	// [030] 背景色変更
	
	eval(S='document.bgColor=\''+prompt('この頁には背景画像が使われているため効果がありません\nBGCOLOR ?','#CCCCCC')+'\'');
	for(i=0;i<length;i++){eval('frames['+i+'].'+S);}
	void('');
}

function bmax_031(){	// [031]　　WHITE
	
	eval(S='document.bgColor=\'#F7F7F7\'');
	for(i=0;i<length;i++){eval('frames['+i+'].'+S);}
	alert('この頁には背景画像が使われているため効果がありません');
	void('');
}

function bmax_040(){	// [040] ページ書換
    
    if(navigator.appName=='Netscape'){	
	alert('これはＭＳＩＥでのみ動作します');
    } else{
	document.writeln(
		'<BODY TEXT=',
		prompt('戻すときはブラウザのバックぼたんをクリックしてください\nTEXTCOLOR ?','#333333'),
		' LINK=',prompt('LINK COLOR ?','#3333CC'),
		' VLINK=',prompt('VLINK COLOR ?','#660066'),
		' BGCOLOR=',prompt('BGCOLOR ?','#EEEEEE'),
		'>',
		document.body.innerHTML
	);
    }
}

function bmax_050(){	// [050] 一発画像消去）
    
	function D(a){
		a+='document.images';
		for(j=0;j<eval(a+'.length');j++){
			eval(a+'[j].src=\'http://jScript.net/null.gif\'');
		}
	}
	D('');
	for(i=0;i<length;i++){
		D('frames['+i+'].');
	}
	void('');
}

function bmax_060(){	// [060] スクリプ止
    
    if(navigator.appName=='Netscape'){	
	function BM_D(a,s,t,j){
		t=eval(a+'.document.location')+'\n\n';
		var BM_O=eval(a);
		for(j in BM_O){
			if(j.indexOf('BM_')==0)continue;
			if((''+BM_O[j]).indexOf('function ')>=0){
				s='function '+j+'(){}';
				t+=s+'\n';
				BM_O[j]=s;
			}
		}
		alert(t+'\nSTOPPED');
	}
	BM_D('window',0,0,0);
	for(BM_i=0;BM_i<length;BM_i++){
		BM_D('frames['+BM_i+']',0,0,0);
	}
    } else{
	function D(a){
		var T=eval(a+'document.location')+'\n\n';
		a+='document.scripts';
		for(j=0;j<eval(a+'.length');j++){
			var A=eval(a+'[j].text.split(\'function \')');
			var S='';
			for(k=1;k<A.length;k++){
				var B=A[k].split('(');
				S+='function '+B[0]+'(){}\n';
			}
			eval(a+'[j].text=S');
			T+=S;
		}
		alert(T+'\nSTOPPED');
	}
	D('');
	for(i=0;i<length;i++){
		D('frames['+i+'].');
	}
    }
}

function bmax_070(){	// [070] リスト表示
    
    function BM_L(j,s,h,f){
	if(j.indexOf('BM_')==0)return('');
	if(j.indexOf('PVC_')==0)return('');
	if(j.indexOf('bmax_')==0)return('');
	if(j.indexOf('activeElement')==0)return(h+j.fontcolor('red')+'</TD><TD>'+f);
	s=''+BM_O[j];
	while(s.indexOf('<')>-1)s=s.replace('<','&lt;');
	while(s.indexOf('>')>-1)s=s.replace('>','&gt;');
	return(h+j.bold()+'</TD><TD>'+s+f);
    }
    BM_o=''+prompt('OBJECT NAME ?','window');
    var BM_O=eval(BM_o);
    BM_W=window.open('','BM_W','width=640,height=480,scrollbars,resizable,');
    with(BM_W.document){
	writeln('<HTML><HEAD><TITLE>OBJECT ',BM_o,' LIST</TITLE></HEAD>');
	writeln('<BODY><TABLE><TR><TD>NAME</TD><TD>VALUE</TD></TR>');
	for(BM_i in BM_O){
		writeln(BM_L(''+BM_i,'','<TR><TD VALIGN=TOP>','</TD></TR>'));
	}
	writeln('</TABLE><BR></BODY></HTML>');
	close();
    }
    BM_W.focus();
}

function bmax_071(){	// [071]　　リンク・リスト
    
	var S='';
	var c=0;
	var H='-';while(H.length<64) H+=H;
	function L(a){
		a+='document';
		var w=eval(a+'.links');
		S+='\n'+w.length+' LINKS in '+a+'\n'
		+eval(a+'.title')+' ( '+eval(a+'.location')+' )\n'
		+H+'\n';
		c+=3;
		for(i=0;i<w.length;i++){
			c++;
			t=''+w[i];
			if(t.length>100)t=t.substring(0,92)+'........';
			S+=(1+i)+' '+t+'\n';
			if(c>=30){
				alert(S);
				c=0;
				S='';
			}
		}
	}
	L('');
	for(i=0;i<length;i++){
		L('frames['+i+'].');
	}
	alert(S);
}

function bmax_072(){	// [072]　　画像・リスト
    
    var S='';
    var c=0;
    var H='-';while(H.length<64) H+=H;
    function L(a){
	a+='document';
	var w=eval(a+'.images');
	S+='\n'+w.length+' IMAGES in '+a+'\n'
	+eval(a+'.title')+' ( '+eval(a+'.location')+' )\n'
	+H+'\n';
	c+=3;
	for(i=0;i<w.length;i++){
		c++;
		t=''+w[i].src;
		if(t.length>100)t=t.substring(0,92)+'........';
		S+=(1+i)+' '+t+'\n';
		if(c>=30){
			alert(S);
			c=0;
			S='';
		}
	}
    }
    L('');
   for(i=0;i<length;i++){
	L('frames['+i+'].');
    }
    alert(S);
}

function bmax_073(){	// [073]　　SCRIPT LIST
    
    if(navigator.appName=='Netscape'){	
	function BM_L(a,s,t,j){
		s='-';
		while(s.length<64)s+=s;
		s=eval(a+'.document.location')+'\n'+s+'\n';
		s=s.fontcolor('blue');
		var BM_O=eval(a);
		for(j in BM_O){
			if(j.indexOf('BM_')==0)continue;
			if((''+BM_O[j]).indexOf('function ')>=0){
				t=''+BM_O[j];
				while(t.indexOf('<')>-1)t=t.replace('<','&lt;');
				while(t.indexOf('>')>-1)t=t.replace('>','&gt;');
				s+=('\nSCRIPT '+j).fontcolor('red')+t+'\n';
			}
		}
		return(s);
	}
	BM_W=window.open('','BM_W','width=640,height=480,scrollbars,resizable,');
	with(BM_W.document){
		write('<HTML><HEAD><TITLE>SCRIPT LIST</TITLE></HEAD>');
		write('<BODY><PRE>');
		writeln(BM_L('window',0,0,0));
		for(BM_i=0;BM_i<window.length;BM_i++){
			writeln(BM_L('frames['+BM_i+']',0,0,0));
		}
		write('</PRE><BR></BODY></HTML>');
		close();
	}
	BM_W.focus();
    } else{
	S='';
	H='-';while(H.length<64) H+=H;
	function L(a){
		a+='document';
		var w=eval(a+'.scripts');
		S+='\n'+w.length+' scripts in '+a+'\n'
		+eval(a+'.title')+' ( '+eval(a+'.location')+' )\n'
		+H+'\n';
		S=S.fontcolor('blue');
		for(j=0;j<w.length;j++){
			T=''+w[j].outerHTML;
			T=R(T,'<','&lt;');
			T=R(T,'>','&gt;');
			S+=('\nSCRIPT '+(1+j)).fontcolor('red')+T+'\n';
		}
		return(S);
	}
	function R(a,b,c){
		while(a.indexOf(b)>-1)a=a.replace(b,c);
		return(a);
	}
	W=window.open('','W','width=640,height=480,scrollbars,resizable,');
	with(W.document){
		write('<HTML><HEAD><TITLE>SCRIPT LIST</TITLE></HEAD>');
		write('<BODY><PRE>');
		writeln(L(''));
		for(i=0;i<length;i++){
			S='';
			writeln(L('frames['+i+'].'));
		}
		write('</PRE><BR></BODY></HTML>');
		close();
	}
	W.focus();
    }
}

function bmax_081(){	// [081]　　リンク・検索
    
    var R=prompt('SEARCH WORD ?','');
    with(document){
	var H=location;
	var T=title;
	var M=links.length;
	var L=links;
    }
    var W=window.open('','W','width=640,height=480,scrollbars,resizable,');
    with(W.document){
	writeln('<HTML><BODY><BASE TARGET=T>');
	for(i in L){
		var X=''+L[i];
		if(X.toLowerCase().indexOf(R.toLowerCase())>-1){
			X=X.replace(R,R.fontcolor('red')).link(X);
			writeln('[',i*1+1,'] ',X,'<BR>');
		}
	}
	writeln('<BR>',M,'LINKS IN [',T.link(H),']<BR></BODY></HTML>');
	close();
    }
    W.focus();
}


function bmax_082(){	// [082]　　画像・検索
    
    var R=prompt('SEARCH WORD ?','');
    with(document){
	var H=location;
	var T=title;
	var M=images.length;
	var L=images;
    }
    var W=window.open('','W','width=640,height=480,scrollbars,resizable,');
    with(W.document){
	writeln('<HTML><BODY><BASE TARGET=T>');
	for(i in L){
		var X=''+L[i].src;
		if(X.toLowerCase().indexOf(R.toLowerCase())>-1){
			X=X.replace(R,R.fontcolor('red')).link(X);
			writeln('[',(isNaN(i))?i:i+1,'] ',X,'<BR>');
		}
	}
	writeln('<BR>',M,'LINKS IN [',T.link(H),']<BR></BODY></HTML>');
	close();
    }
    W.focus();
}

function bmax_090(){	// [090] リファラ偽装
    
    if(navigator.appName=='Netscape'){	
	var l=prompt('REFERRER: ['+document.title+'] \nWHERE DO YOU GO ?','http://iNet-POLICE.com/cgi-bin/env.cgi');
	(l!=null)?document.location=l:void('');
    } else{
	var R='REFERRER: ['+document.title+'] \n';
	var G=prompt(R+'WHERE DO YOU GO ?','http://iNet-POLICE.com/cgi-bin/env.cgi');
	document.body.innerHTML=R+'<BR>'+G.link(G)+'<P>'+document.body.innerHTML;void('');
    }
}