function demo()
{
wipe()
var put_in = "2 70\n3 75\n7 85\n5 85\n8 88\n5 93";
document.xy.elements[0].value = put_in;
var msg = "Move this message to one side and look at the two columns of figures that have appeared in the Data Entry box.\n\n";
msg += "These columns can be input as FIGURE + SPACE + FIGURE with a return after each pair, or pasted from adjacent columns of an EXCEL spreadsheet.\n\n"; 
msg += "The left column is HOURS OF STUDY, and the right column is TEST SCORES. ";
msg += "As you see, test scores rise fairly evenly with hours of study, although not perfectly.\n\n";
msg += "-------------------------\n\n";
msg += "Now click \"OK\" to put this message away, and then click CALCULATE to see the hours-to-scores relationship expressed in an \" r \" number (r=±1 is perfect correlation, r=0 is no correlation).";
alert (msg);
}

function rnd2(x){return Math.round(x*100)/100}

function rnd4(x){return Math.round(x*10000)/10000}

function calc() {
var k = 1*0;
var n = 0*1;
var sumx = 0*1;
var sumy = 0*1;
var sumsqx = 0*1;
var sumsqy = 0*1;
var sumxy = 0*1;
var xjx = " ";
var xjz = " ";


// Rid trailing returns (By Tom)
var holder = document.xy.elements[0].value;
if (holder.charAt(holder.length-1) == "\n") { 
	while (holder.charAt(holder.length-1) == "\n")
	{
	holder = holder.substring(0, holder.length-2)
	document.xy.elements[0].value = holder;
	}
}
	

var xjx = " ";
var vals1 = document.xy.elements[0].value;
if(vals1.indexOf("\t")>-1){xjx="\t"}


var vals1 = document.xy.elements[0].value;
if(vals1.indexOf("\r")>-1){xjz="\r"}else{xjz="\n"}

vals1 = vals1.split(xjz);
n = vals1.length;


for(var i=0; i<n; i++) {vals1[i]=vals1[i].split(xjx)}

for (var i=0; i<n; i++)
{
sumx+=vals1[i][0]*1;
sumy+=vals1[i][1]*1;
sumsqx+=vals1[i][0]*vals1[i][0];
sumsqy+=vals1[i][1]*vals1[i][1];
sumxy+=vals1[i][0]*vals1[i][1];
}


var mx = rnd4(sumx/n);
var my = rnd4(sumy/n);
var ssx = sumsqx-((sumx*sumx)/n);
var ssy = sumsqy-((sumy*sumy)/n);
var ssxy = sumxy-((sumx*sumy)/n);
var r = rnd4(ssxy/Math.sqrt(ssx*ssy));
var rsq = rnd4(r*r);
var slope = rnd4(ssxy/ssx);
var inter = rnd4(my-(slope*mx));



var res = new Array();
for (var i=0; i<n; i++){res[i] = rnd4(vals1[i][1]-(inter+(slope*vals1[i][0])))}


var se = ssy*(1-rsq);
se = rnd4(Math.sqrt(se/(n-2)));
document.r.elements[0].value =  r;
document.r.elements[1].value =  rsq;
document.r.elements[2].value =  slope;
document.r.elements[3].value =  inter;
document.r.elements[4].value =  rnd4(se);

document.show1.elements[0].value =  n;
document.show1.elements[1].value =  mx;
document.show1.elements[2].value =  my;
document.show1.elements[3].value =  rnd4(ssx/(n-1));
document.show1.elements[4].value =  rnd4(ssy/(n-1));
document.show1.elements[5].value =  rnd4(Math.sqrt(ssx/(n-1)));
document.show1.elements[6].value =  rnd4(Math.sqrt(ssy/(n-1)));
document.show1.elements[7].value =  rnd4(Math.sqrt(ssx/(n-1)/n));
document.show1.elements[8].value =  rnd4(Math.sqrt(ssy/(n-1)/n));


//
//var report = "";
//for (var i=0; i<n; i++){report+=vals1[i][0]+"___"+vals1[i][1]+"___"+res[i]+xjz}
//document.xyz.elements[0].value =  report;

if (r>=1) {alert("With r=+1.0, the value of t cannot be calculated.  If n>4, you may assume that your calculated value of r is significant beyond the .01 level for a two-tailed test.")}
if (r<=-1) {alert("With r=-1.0, the value of t cannot be calculated.  If n>4, you may assume that your calculated value of r is significant beyond the .01 level for a two-tailed test.")}


var t = Math.sqrt( (1-(r*r))/(n-2));
t = rnd2(r/t);
document.t.elements[0].value =  t;


var df = n-2;
document.df.elements[0].value =df;
if(document.t.elements[0].value=="NaN"){document.t.elements[0].value=""}

var zda = Tcall(buzz(eval(t),eval(df)));
var zdb = zda/2;
if(zda<.0001||zda>1.0){zda="<.0001"}
if(zdb<.0001||zdb>1.0){zdb="<.0001"}
document.pa.elements[0].value = zda;
document.pb.elements[0].value = zdb;

}



function wipe() {
document.xy.elements[0].value = ""; //TOM
for (var i=0; i<9; i++){document.show1.elements[i].value=""}
for (var i=0; i<5; i++){document.r.elements[i].value=""}
document.df.elements[0].value = "";
document.t.elements[0].value = "";
document.pa.elements[0].value = "";
document.pb.elements[0].value = "";
/////setTimeout('document.xy.elements[0].value = "";', 500);
///// Don't Lose
}<!--end.f.wipe-->