function  ndps(r,nd){return Number(r).toFixed(nd)};

function stolCALC(){

    var Phi=(Math.sqrt(5)+1)/2,phi=(Math.sqrt(5)-1)/2,
        nlo=getInput(document.stolCalcF.stolLO.value,"starting value","N"),
	    nhi=getInput(document.stolCalcF.stolHI.value,"end value","ON"),
	    Pp=document.stolCalcF.stolPp[document.stolCalcF.stolPp.selectedIndex]. value,
	    FlrQ=document.stolCalcF.stolFsel.checked,
	    RndQ=document.stolCalcF.stolRsel.checked,
	    CieQ=document.stolCalcF.stolCsel.checked,
	    FracQ=document.stolCalcF.stolDsel.checked;
	  if(isNaN(nhi)||nhi=="")nhi=nlo;
	  var s="<table cellpadding=4 cellspacing=0 border=1><th>n</th><th>n "+Pp+"</th>"
	  +(FlrQ?"<th>Floor</th>":"")+(FracQ?"<th>Fractional</th>":"")
	  +(RndQ?"<th>Round</th>":"")
	  +(CieQ?"<th>Ceiling</th>":"")+"</tr>";
	 for(var n=nlo;n<=nhi;n++)
	     s=s+"<tr><td>"+n+"</td><td>"+ndps(eval(n+"*"+Pp),10)+"</td>"
	     +(FlrQ?"<td>"+Math.floor(n*eval(Pp))+"</td>":"")
	      +(FracQ?"<td>"+ndps((n*eval(Pp)-Math.floor(n*eval(Pp))),10):"")
	      +(RndQ?"<td>"+Math.round(n*eval(Pp))+"</td>":"")
	     +(CieQ?"<td>"+Math.ceil(n*eval(Pp))+"</td>":"")
	    +"</td>";
	  putmsg(s+"</table>")
	  	    
};