var x1a = 0.31938153;
var x2 = -0.356563782;
var x3 = 1.781477937;
var x4 = -1.821255978;
var x5 = 1.330274429;
var ak = 0;
var aq = 0;
var bk = 0;
var bq = 0;
var ck = 0;
var cq = 0;
var arep = "";
var brep = "";
var sig = "";
var n = 0;
var n1 = 0;
var h = 0;
var h1 = 0;
var v = 0;
var v1 = 0;
var cr = 0;
var cr1 = 0;
var pr = 0;
var pr1 = 0;
var p = "";
var a = "";
var ran = 0;
var e = "";
var f="";
var x = 0;
var y = 0;
var red = 0;
var green = 0;
var left = 0;
var right = 0;
var Ja = 0;
var Jb = 0;
var Jc = 0;
var Jd = 0;
var Je = 0;
var Jf = 0;
var Jg = 0;
var Jh = 0;
var Ji = 0;
var Jj = 0;
var p1 = 0;
var p2 = 0;
var xx = 0;
var xy = 0;
var pos = 0;
var cnt = 0;
var started=0;
var tst=1;
var stp=0;
var timeout1=0;
var timeout2=0;
var spd=20;
var trls=20;
var endtext="";
var movn = new Array(-1,1000000000,10,20,50,100,200,500,1000,2000,5000,10000,20000,50000,100000,200000,500000,1000000);
var gybk = new Image();
var gybl = new Image();
var gnbk = new Image();
var gnbl = new Image();
var rdbk = new Image();
var rdbl = new Image();

var timeout1=0;
var timeout2=0;

gybk.src="Images/PKTest/greyback.png";
gybl.src="Images/PKTest/greyball.png";
gnbk.src="Images/PKTest/greenback.png";
gnbl.src="Images/PKTest/greenball.png";
rdbk.src="Images/PKTest/redback.png";
rdbl.src="Images/PKTest/redball.png";

function resett(){
if (document.forms.pins.Reset.value==""){return;}
if (document.forms.pins.Reset.value=="Stop"){document.forms.pins.Reset.value="Reset";document.forms.pins.Pause.value="";document.forms.pins.Slow.value="";document.forms.pins.Fast.value="";document.forms.pins.Speed.value="";document.forms.pins.Message.value="Stopped  -  Analysis shown below";stp=1;analyse1();analyse2();return;}
if (document.forms.pins.Reset.value=="Reset"){begin2();}
}

function radnballs(y){
trls=y;
begin2();
}

function analyse1(){
n = left+right;
if (n <=19) {report1();return;} else {
with (Math){v = sqrt(n/4);}
if (right >= left) {
cr = (right-(n/2)-0.5)/v;
ndist();
signif();
} else {
cr = ((right-(n/2)+0.5)/v)*-1;
ndist();
signif();
}
}
report1();
}


function analyse2(){
n1 = red+green;
if (n1 <=19) {report2();return;} else {
with (Math){v1 = sqrt(n1/4);}
if (green >= red) {
cr1 = (green-(n1/2)-0.5)/v1;
ndist1();
signif1();
} else {
cr1 = ((green-(n1/2)+0.5)/v1)*-1;
ndist1();
signif1();
}
}
report2();
}

function ndist() {
ak=Math.abs(cr);
bk=1/(1+ak*0.2316419);
ck=(1/Math.sqrt((2*Math.PI)))*Math.exp(-Math.pow(ak,2)/2);
pr=1-ck*(parseFloat(x1a*bk+x2*Math.pow(bk,2))+parseFloat(x3*Math.pow(bk,3))+parseFloat(x4*Math.pow(bk,4))+parseFloat(x5*Math.pow(bk,5)));
pr=2*(1-pr);
}

function ndist1() {
aq=Math.abs(cr1)
bq=1/(1+aq*0.2316419)
cq=(1/Math.sqrt((2*Math.PI)))*Math.exp(-Math.pow(aq,2)/2)
pr1=1-cq*(parseFloat(x1a*bq+x2*Math.pow(bq,2))+parseFloat(x3*Math.pow(bq,3))+parseFloat(x4*Math.pow(bq,4))+parseFloat(x5*Math.pow(bq,5)))
pr1=2*(1-pr1);
}

function signif() {
if (pr>0.10){arep="None";}
if (pr<=0.10){arep="Marginal";}
if (pr<=0.05){arep="Fair";}
if (pr<=0.01){arep="Good";}
if (pr<=0.005){arep="Very Good";}
if (pr<=0.001){arep="Excellent";}
if (pr<=0.0001){arep="Amazing!";}
}

function signif1() {
if (pr1>0.10){brep="None";}
if (pr1<=0.10){brep="Marginal";}
if (pr1<=0.05){brep="Fair";}
if (pr1<=0.01){brep="Good";}
if (pr1<=0.005){brep="Very Good";}
if (pr1<=0.001){brep="Excellent";}
if (pr1<=0.0001){brep="Amazing!";}
}

function report1(){
document.forms.pins.move1.value="Move Analysis:";
if(n<=19){document.forms.pins.movez.value="Insufficient data";document.forms.pins.movep.value="";document.forms.pins.moveevid.value="";return;}
document.forms.pins.movez.value="z = "+String(cr.toFixed(5));
document.forms.pins.movep.value="p < "+String(pr.toFixed(5));
document.forms.pins.moveevid.value="Evidence for PK : "+arep;
}

function report2(){
document.forms.pins.ball1.value="Ball Analysis:";
if(n1<=19){document.forms.pins.ballz.value="Insufficient data";document.forms.pins.ballp.value="";document.forms.pins.ballevid.value="";return;}
document.forms.pins.ballz.value="z = "+String(cr1.toFixed(5));
document.forms.pins.ballp.value="p < "+String(pr1.toFixed(5));
document.forms.pins.ballevid.value="Evidence for PK : "+brep;
}

function begin2(){
stp=0;
spd=20;
clearTimeout(timeout1);
clearTimeout(timeout2);
started=0;
wait=0;
red=0;
green=0;
left=0;
right=0;
Ja=0;
Jb=0;
Jc=0;
Jd=0;
Je=0;
Jf=0;
Jg=0;
Jh=0;
Ji=0;
Jj=0;

document.forms.pins.Reset.value="";
document.forms.pins.Pause.value="";
document.forms.pins.Balltot.value="";
document.forms.pins.red.value="";
document.forms.pins.green.value="";
document.forms.pins.left.value="";
document.forms.pins.right.value="";
document.forms.pins.J0.value="";
document.forms.pins.J2.value="";
document.forms.pins.J4.value="";
document.forms.pins.J6.value="";
document.forms.pins.J8.value="";
document.forms.pins.J10.value="";
document.forms.pins.J12.value="";
document.forms.pins.J14.value="";
document.forms.pins.J16.value="";
document.forms.pins.J18.value="";
if ((tst==1)||(spd<2)){document.forms.pins.Slow.value="";}else{document.forms.pins.Slow.value="<<";}
if ((tst==1)||(spd>94)){document.forms.pins.Fast.value="";}else{document.forms.pins.Fast.value=">>";}
if (tst==1){document.forms.pins.Speed.value="";}else{document.forms.pins.Speed.value="Speed: "+String(spd);}
document.A9.src=gybl.src;
document.B8.src=rdbk.src;
document.B10.src=gnbk.src;
document.C7.src=rdbk.src;
document.C9.src=gybk.src;
document.C11.src=gnbk.src;
document.D6.src=rdbk.src;
document.D8.src=rdbk.src;
document.D10.src=gnbk.src;
document.D12.src=gnbk.src;
document.E5.src=rdbk.src;
document.E7.src=rdbk.src;
document.E9.src=gybk.src;
document.E11.src=gnbk.src;
document.E13.src=gnbk.src;
document.F4.src=rdbk.src;
document.F6.src=rdbk.src;
document.F8.src=rdbk.src;
document.F10.src=gnbk.src;
document.F12.src=gnbk.src;
document.F14.src=gnbk.src;
document.G3.src=rdbk.src;
document.G5.src=rdbk.src;
document.G7.src=rdbk.src;
document.G9.src=gybk.src;
document.G11.src=gnbk.src;
document.G13.src=gnbk.src;
document.G15.src=gnbk.src;
document.H2.src=rdbk.src;
document.H4.src=rdbk.src;
document.H6.src=rdbk.src;
document.H8.src=rdbk.src;
document.H10.src=gnbk.src;
document.H12.src=gnbk.src;
document.H14.src=gnbk.src;
document.H16.src=gnbk.src;
document.I1.src=rdbk.src;
document.I3.src=rdbk.src;
document.I5.src=rdbk.src;
document.I7.src=rdbk.src;
document.I9.src=gybk.src;
document.I11.src=gnbk.src;
document.I13.src=gnbk.src;
document.I15.src=gnbk.src;
document.I17.src=gnbk.src;
document.forms.pins.movez.value="";
document.forms.pins.movep.value="";
document.forms.pins.moveevid.value="";
document.forms.pins.ballz.value="";
document.forms.pins.ballp.value="";
document.forms.pins.ballevid.value="";
document.forms.pins.move1.value="";
document.forms.pins.ball1.value="";
document.forms.pins.Message.value="Select a procedure, then click the ball !";
}

function pause(){
if (document.forms.pins.Pause.value==""){return;}
if (document.forms.pins.Pause.value=="Pause"){stp=1;document.forms.pins.Pause.value="Continue";return;}
if (document.forms.pins.Pause.value=="Continue"){stp=0;document.forms.pins.Pause.value="Pause";clickball();return;}
}

function radtest(y){
tst=y;
begin2();
if (tst!=1){document.forms.pins.Slow.value="<<";document.forms.pins.Fast.value=">>";document.forms.pins.Speed.value="Speed: "+String(spd);}
}


function slower() {
if (document.forms.pins.Slow.value==""){return;}
if ((stp==3)||(tst==1)) {return;}
document.forms.pins.Fast.value=">>";
if (spd==2) {spd=1;document.forms.pins.Speed.value="Speed: 1";document.forms.pins.Slow.value="";return;}
if (spd==1) {return;}
if(spd>=15){spd=spd-5;}else{spd=spd-2;}
document.forms.pins.Speed.value="Speed: "+String(spd);
}

function faster() {
if (document.forms.pins.Fast.value==""){return;}
if ((stp==3)||(tst==1)) {return;}
document.forms.pins.Slow.value="<<";
if (spd>94) {document.forms.pins.Fast.value="";spd=100;document.forms.pins.Speed.value="Speed: 100";return;}
if (spd==1) {spd=2;}else{if(spd>=10){spd=spd+5;}else{spd=spd+2;}}
document.forms.pins.Speed.value="Speed: "+String(spd);
}

function blleft(){
red++;
document.forms.pins.Balltot.value=String(red+green);
document.forms.pins.red.value=String(red);
document.A9.src=gybl.src;
started=0;
}

function blright(){
green++;
document.forms.pins.Balltot.value=String(red+green);
document.forms.pins.green.value=String(green);
document.A9.src=gybl.src;
started=0;
}

function ran2() {
ran = (Math.floor(Math.random()*2)+1);
if (ran == 1) {
ran -= 2;
} else {
ran -= 1;
}
}

function prdata(){
document.forms.pins.left.value=String(left);
document.forms.pins.right.value=String(right);
}


function ballx(f){
if ((stp==3)||(stp==1)){return;}
if (document.forms.pins.radtype[0].checked==true){tst=1;}
if (document.forms.pins.radtype[1].checked==true){tst=2;}
if (document.forms.pins.radtype[2].checked==true){tst=3;}
if (document.forms.pins.radballs[0].checked==true){trls=20;}
if (document.forms.pins.radballs[1].checked==true){trls=50;}
if (document.forms.pins.radballs[2].checked==true){trls=100;}
if (document.forms.pins.radballs[3].checked==true){trls=500;}
if (document.forms.pins.radballs[4].checked==true){trls=0;}
if ((tst!=1)&&(started==1)){return;}
if (f=="A9"){clearTimeout(timeout1);timeout1=setTimeout("ball(f)",1000/(spd));
started=1;document.forms.pins.Reset.value="Stop";if(tst!=1){
document.forms.pins.Pause.value="Pause";
if (spd<2){document.forms.pins.Slow.value="";}else{document.forms.pins.Slow.value="<<";}
if (spd>94){document.forms.pins.Fast.value="";}else{document.forms.pins.Fast.value=">>";}
document.forms.pins.Speed.value="Speed: "+String(spd);
if (tst==2){document.forms.pins.Pause.value="";}
clickball();return}}
if (tst==1){ball(f);}
if (trls!=0){if((left+right)>=trls*9){ends();return;}}
}

function ends(){
stp=3;
analyse1();analyse2();
document.forms.pins.Pause.value="";
document.forms.pins.Reset.value="Reset";
document.forms.pins.Slow.value="";
document.forms.pins.Fast.value="";
document.forms.pins.Message.value="Procedure completed  -  Analysis shown below";
}

function clickball(){
if(trls!=0){if ((red+green)>=trls){ends();return;}}
if ((tst==2)&&(started==0)){return;}
clearTimeout(timeout1);
timeout1=setTimeout("startball()",1000/(spd));
}

function startball(){
findball();
ball(e);
hold();
}

function hold(){
clearTimeout(timeout2);
timeout2=setTimeout("clickball()", 2000/(spd));
}

function findball(){
if (document.A9.src==gybl.src){e="A9";return;}

if (document.B8.src==rdbl.src){e="B8";return;}
if (document.B10.src==gnbl.src){e="B10";return;}

if (document.C7.src==rdbl.src){e="C7";return;}
if (document.C9.src==gybl.src){e="C9";return;}
if (document.C11.src==gnbl.src){e="C11";return;}

if (document.D6.src==rdbl.src){e="D6";return;}
if (document.D8.src==rdbl.src){e="D8";return;}
if (document.D10.src==gnbl.src){e="D10";return;}
if (document.D12.src==gnbl.src){e="D12";return;}

if (document.E5.src==rdbl.src){e="E5";return;}
if (document.E7.src==rdbl.src){e="E7";return;}
if (document.E9.src==gybl.src){e="E9";return;}
if (document.E11.src==gnbl.src){e="E11";return;}
if (document.E13.src==gnbl.src){e="E13";return;}

if (document.F4.src==rdbl.src){e="F4";return;}
if (document.F6.src==rdbl.src){e="F6";return;}
if (document.F8.src==rdbl.src){e="F8";return;}
if (document.F10.src==gnbl.src){e="F10";return;}
if (document.F12.src==gnbl.src){e="F12";return;}
if (document.F14.src==gnbl.src){e="F14";return;}

if (document.G3.src==rdbl.src){e="G3";return;}
if (document.G5.src==rdbl.src){e="G5";return;}
if (document.G7.src==rdbl.src){e="G7";return;}
if (document.G9.src==gybl.src){e="G9";return;}
if (document.G11.src==gnbl.src){e="G11";return;}
if (document.G13.src==gnbl.src){e="G13";return;}
if (document.G15.src==gnbl.src){e="G15";return;}

if (document.H2.src==rdbl.src){e="H2";return;}
if (document.H4.src==rdbl.src){e="H4";return;}
if (document.H6.src==rdbl.src){e="H6";return;}
if (document.H8.src==rdbl.src){e="H8";return;}
if (document.H10.src==gnbl.src){e="H10";return;}
if (document.H12.src==gnbl.src){e="H12";return;}
if (document.H14.src==gnbl.src){e="H14";return;}
if (document.H16.src==gnbl.src){e="H16";return;}

if (document.I1.src==rdbl.src){e="I1";return;}
if (document.I3.src==rdbl.src){e="I3";return;}
if (document.I5.src==rdbl.src){e="I5";return;}
if (document.I7.src==rdbl.src){e="I7";return;}
if (document.I9.src==gybl.src){e="I9";return;}
if (document.I11.src==gnbl.src){e="I11";return;}
if (document.I13.src==gnbl.src){e="I13";return;}
if (document.I15.src==gnbl.src){e="I15";return;}
if (document.I17.src==gnbl.src){e="I17";return;}
}

function ball(e) {
if (stp==1){return;}
cont=0;
ran2();

if (e=="A9"){if(document.A9.src==gybk.src){return;}
else{document.A9.src=gybk.src;if(ran==1){left++;document.B8.src=rdbl.src;prdata();return;}
right++;document.B10.src=gnbl.src;prdata();return;}}

if (e=="B8"){if(document.B8.src==rdbk.src){return;}
else{document.B8.src=rdbk.src;if(ran==1){left++;document.C7.src=rdbl.src;prdata();return;}
right++;document.C9.src=gybl.src;prdata();return;}}

if (e=="B10"){if(document.B10.src==gnbk.src){return;}
else{document.B10.src=gnbk.src;if(ran==1){left++;document.C9.src=gybl.src;prdata();return;}
right++;document.C11.src=gnbl.src;prdata();return;}}

if (e=="C7"){if(document.C7.src==rdbk.src){return;}
else{document.C7.src=rdbk.src;if(ran==1){left++;document.D6.src=rdbl.src;prdata();return;}
right++;document.D8.src=rdbl.src;prdata();return;}}

if (e=="C9"){if(document.C9.src==gybk.src){return;}
else{document.C9.src=gybk.src;if(ran==1){left++;document.D8.src=rdbl.src;prdata();return;}
right++;document.D10.src=gnbl.src;prdata();return;}}

if (e=="C11"){if(document.C11.src==gnbk.src){return;}
else{document.C11.src=gnbk.src;if(ran==1){left++;document.D10.src=gnbl.src;prdata();return;}
right++;document.D12.src=gnbl.src;prdata();return;}}

if (e=="D6"){if(document.D6.src==rdbk.src){return;}
else{document.D6.src=rdbk.src;if(ran==1){left++;document.E5.src=rdbl.src;prdata();return;}
right++;document.E7.src=rdbl.src;prdata();return;}}

if (e=="D8"){if(document.D8.src==rdbk.src){return;}
else{document.D8.src=rdbk.src;if(ran==1){left++;document.E7.src=rdbl.src;prdata();return;}
right++;document.E9.src=gybl.src;prdata();return;}}

if (e=="D10"){if(document.D10.src==gnbk.src){return;}
else{document.D10.src=gnbk.src;if(ran==1){left++;document.E9.src=gybl.src;prdata();return;}
right++;document.E11.src=gnbl.src;prdata();return;}}

if (e=="D12"){if(document.D12.src==gnbk.src){return;}
else{document.D12.src=gnbk.src;if(ran==1){left++;document.E11.src=gnbl.src;prdata();return;}
right++;document.E13.src=gnbl.src;prdata();return;}}

if (e=="E5"){if(document.E5.src==rdbk.src){return;}
else{document.E5.src=rdbk.src;if(ran==1){left++;document.F4.src=rdbl.src;prdata();return;}
right++;document.F6.src=rdbl.src;prdata();return;}}

if (e=="E7"){if(document.E7.src==rdbk.src){return;}
else{document.E7.src=rdbk.src;if(ran==1){left++;document.F6.src=rdbl.src;prdata();return;}
right++;document.F8.src=rdbl.src;prdata();return;}}

if (e=="E9"){if(document.E9.src==gybk.src){return;}
else{document.E9.src=gybk.src;if(ran==1){left++;document.F8.src=rdbl.src;prdata();return;}
right++;document.F10.src=gnbl.src;prdata();return;}}

if (e=="E11"){if(document.E11.src==gnbk.src){return;}
else{document.E11.src=gnbk.src;if(ran==1){left++;document.F10.src=gnbl.src;prdata();return;}
right++;document.F12.src=gnbl.src;prdata();return;}}

if (e=="E13"){if(document.E13.src==gnbk.src){return;}
else{document.E13.src=gnbk.src;if(ran==1){left++;document.F12.src=gnbl.src;prdata();return;}
right++;document.F14.src=gnbl.src;prdata();return;}}

if (e=="F4"){if(document.F4.src==rdbk.src){return;}
else{document.F4.src=rdbk.src;if(ran==1){left++;document.G3.src=rdbl.src;prdata();return;}
right++;document.G5.src=rdbl.src;prdata();return;}}

if (e=="F6"){if(document.F6.src==rdbk.src){return;}
else{document.F6.src=rdbk.src;if(ran==1){left++;document.G5.src=rdbl.src;prdata();return;}
right++;document.G7.src=rdbl.src;prdata();return;}}

if (e=="F8"){if(document.F8.src==rdbk.src){return;}
else{document.F8.src=rdbk.src;if(ran==1){left++;document.G7.src=rdbl.src;prdata();return;}
right++;document.G9.src=gybl.src;prdata();return;}}

if (e=="F10"){if(document.F10.src==gnbk.src){return;}
else{document.F10.src=gnbk.src;if(ran==1){left++;document.G9.src=gybl.src;prdata();return;}
right++;document.G11.src=gnbl.src;prdata();return;}}

if (e=="F12"){if(document.F12.src==gnbk.src){return;}
else{document.F12.src=gnbk.src;if(ran==1){left++;document.G11.src=gnbl.src;prdata();return;}
right++;document.G13.src=gnbl.src;prdata();return;}}

if (e=="F14"){if(document.F14.src==gnbk.src){return;}
else{document.F14.src=gnbk.src;if(ran==1){left++;document.G13.src=gnbl.src;prdata();return;}
right++;document.G15.src=gnbl.src;prdata();return;}}

if (e=="G3"){if(document.G3.src==rdbk.src){return;}
else{document.G3.src=rdbk.src;if(ran==1){left++;document.H2.src=rdbl.src;prdata();return;}
right++;document.H4.src=rdbl.src;prdata();return;}}

if (e=="G5"){if(document.G5.src==rdbk.src){return;}
else{document.G5.src=rdbk.src;if(ran==1){left++;document.H4.src=rdbl.src;prdata();return;}
right++;document.H6.src=rdbl.src;prdata();return;}}

if (e=="G7"){if(document.G7.src==rdbk.src){return;}
else{document.G7.src=rdbk.src;if(ran==1){left++;document.H6.src=rdbl.src;prdata();return;}
right++;document.H8.src=rdbl.src;prdata();return;}}

if (e=="G9"){if(document.G9.src==gybk.src){return;}
else{document.G9.src=gybk.src;if(ran==1){left++;document.H8.src=rdbl.src;prdata();return;}
right++;document.H10.src=gnbl.src;prdata();return;}}

if (e=="G11"){if(document.G11.src==gnbk.src){return;}
else{document.G11.src=gnbk.src;if(ran==1){left++;document.H10.src=gnbl.src;prdata();return;}
right++;document.H12.src=gnbl.src;prdata();return;}}

if (e=="G13"){if(document.G13.src==gnbk.src){return;}
else{document.G13.src=gnbk.src;if(ran==1){left++;document.H12.src=gnbl.src;prdata();return;}
right++;document.H14.src=gnbl.src;prdata();return;}}

if (e=="G15"){if(document.G15.src==gnbk.src){return;}
else{document.G15.src=gnbk.src;if(ran==1){left++;document.H14.src=gnbl.src;prdata();return;}
right++;document.H16.src=gnbl.src;prdata();return;}}

if (e=="H2"){if(document.H2.src==rdbk.src){return;}
else{document.H2.src=rdbk.src;if(ran==1){left++;document.I1.src=rdbl.src;prdata();return;}
right++;document.I3.src=rdbl.src;prdata();return;}}

if (e=="H4"){if(document.H4.src==rdbk.src){return;}
else{document.H4.src=rdbk.src;if(ran==1){left++;document.I3.src=rdbl.src;prdata();return;}
right++;document.I5.src=rdbl.src;prdata();return;}}

if (e=="H6"){if(document.H6.src==rdbk.src){return;}
else{document.H6.src=rdbk.src;if(ran==1){left++;document.I5.src=rdbl.src;prdata();return;}
right++;document.I7.src=rdbl.src;prdata();return;}}

if (e=="H8"){if(document.H8.src==rdbk.src){return;}
else{document.H8.src=rdbk.src;if(ran==1){left++;document.I7.src=rdbl.src;prdata();return;}
right++;document.I9.src=gybl.src;prdata();return;}}

if (e=="H10"){if(document.H10.src==gnbk.src){return;}
else{document.H10.src=gnbk.src;if(ran==1){left++;document.I9.src=gybl.src;prdata();return;}
right++;document.I11.src=gnbl.src;prdata();return;}}

if (e=="H12"){if(document.H12.src==gnbk.src){return;}
else{document.H12.src=gnbk.src;if(ran==1){left++;document.I11.src=gnbl.src;prdata();return;}
right++;document.I13.src=gnbl.src;prdata();return;}}

if (e=="H14"){if(document.H14.src==gnbk.src){return;}
else{document.H14.src=gnbk.src;if(ran==1){left++;document.I13.src=gnbl.src;prdata();return;}
right++;document.I15.src=gnbl.src;prdata();return;}}

if (e=="H16"){if(document.H16.src==gnbk.src){return;}
else{document.H16.src=gnbk.src;if(ran==1){left++;document.I15.src=gnbl.src;prdata();return;}
right++;document.I17.src=gnbl.src;prdata();return;}}

if (e=="I1"){if(document.I1.src==rdbk.src){return;}
else{document.I1.src=rdbk.src;if(ran==1){left++;Ja++;document.forms.pins.J0.value=String(Ja);prdata();blleft();return;}
right++;Jb++;document.forms.pins.J2.value=String(Jb);prdata();blleft();return;}}

if (e=="I3"){if(document.I3.src==rdbk.src){return;}
else{document.I3.src=rdbk.src;if(ran==1){left++;Jb++;document.forms.pins.J2.value=String(Jb);prdata();blleft();return;}
right++;Jc++;document.forms.pins.J4.value=String(Jc);prdata();blleft();return;}}

if (e=="I5"){if(document.I5.src==rdbk.src){return;}
else{document.I5.src=rdbk.src;if(ran==1){left++;Jc++;document.forms.pins.J4.value=String(Jc);prdata();blleft();return;}
right++;Jd++;document.forms.pins.J6.value=String(Jd);prdata();blleft();return;}}

if (e=="I7"){if(document.I7.src==rdbk.src){return;}
else{document.I7.src=rdbk.src;if(ran==1){left++;Jd++;document.forms.pins.J6.value=String(Jd);prdata();blleft();return;}
right++;Je++;document.forms.pins.J8.value=String(Je);prdata();blleft();return;}}

if (e=="I9"){if(document.I9.src==gybk.src){return;}
else{document.I9.src=gybk.src;if(ran==1){left++;Je++;document.forms.pins.J8.value=String(Je);prdata();blleft();return;}
right++;Jf++;document.forms.pins.J10.value=String(Jf);prdata();blright();return;}}

if (e=="I11"){if(document.I11.src==gnbk.src){return;}
else{document.I11.src=gnbk.src;if(ran==1){left++;Jf++;document.forms.pins.J10.value=String(Jf);prdata();blright();return;}
right++;Jg++;document.forms.pins.J12.value=String(Jg);prdata();blright();return;}}

if (e=="I13"){if(document.I13.src==gnbk.src){return;}
else{document.I13.src=gnbk.src;if(ran==1){left++;Jg++;document.forms.pins.J12.value=String(Jg);prdata();blright();return;}
right++;Jh++;document.forms.pins.J14.value=String(Jh);prdata();blright();return;}}

if (e=="I15"){if(document.I15.src==gnbk.src){return;}
else{document.I15.src=gnbk.src;if(ran==1){left++;Jh++;document.forms.pins.J14.value=String(Jh);prdata();blright();return;}
right++;Ji++;document.forms.pins.J16.value=String(Ji);prdata();blright();return;}}

if (e=="I17"){if(document.I17.src==gnbk.src){return;}
else{document.I17.src=gnbk.src;if(ran==1){left++;Ji++;document.forms.pins.J16.value=String(Ji);prdata();blright();return;}
right++;Jj++;document.forms.pins.J18.value=String(Jj);prdata();blright();return;}}
}