function KW_amortize(yr,ir,la,at,ai,mp) {
  var mi=ir/1200;var b=1;var mb=1+mi;for(i=0;i<yr*12;i++){b=b*mb}
  var ds=la*mi/(1-(1/b))-(-at-ai)/12;mp.value=Math.floor(ds*Math.pow(10,2))/Math.pow(10,2);
}