function vloanamt(str) {             
  str = document.amorform.strfield.value             
  falseflg = 0
  if (str == "") {
    document.amorform.loanamt.focus();
    alert("Please enter a numeric-only Loan Amount")
    falseflg = 1
  }
  for (var i = 0; i < str.length; i++) {
    var digit = str.substring(i, i+1)
    if ((digit < "0" || digit > "9") && digit != "." && digit != ",") {
      document.amorform.loanamt.focus();
      alert("Please enter a numeric-only (eg. xxx,xxx.xx) Loan Amount.");
      falseflg = 1
      break
    }
  } 
  var loanamtStr = document.amorform.loanamt.value
  var commaloc = loanamtStr.indexOf(",", 0)
  if (commaloc != -1) { 
    var string1 = loanamtStr.substring(0, commaloc)
    var string2 = loanamtStr.substring(commaloc + 1, loanamtStr.length)
    var newstring = string1 + string2
    document.amorform.loanamt.value = newstring
  }
}
function vannint(str) {             
  str = document.amorform.strfield.value             
  falseflg = 0
  if (str == "") {
    document.amorform.annint.focus();
    alert("Please enter a numeric-only Annual Interest rate")
    falseflg = 1
  }
  for (var i = 0; i < str.length; i++) {
    var digit = str.substring(i, i+1)
    if ((digit < "0" || digit > "9") && digit != ".") {
      document.amorform.annint.focus();
      alert("Please enter a numeric-only Annual Interest rate");
      falseflg = 1
      break
    }
  } 
}
function vloanterm(str) {             
  str = document.amorform.strfield.value             
  falseflg = 0
  if (str == "") {
    document.amorform.loanterm.select();
    alert("Please enter a numeric-only Loan Term rate")
    falseflg = 1
  }
  for (var i = 0; i < str.length; i++) {
    var digit = str.substring(i, i+1)
    if (digit < "0" || digit > "9") {
      document.amorform.loanterm.focus();
      alert("Please enter a numeric integer Loan Term rate");
      falseflg = 1
      break
    }
  } 
}
function clear () {
  document.amorform.loanamt.value = 0
  document.amorform.annint.value = 0
  document.amorform.loanterm.value = 0
  document.amorform.paytamt.value = 0
  document.amorform.totint.value = 0
  document.amorform.amount.value = 0
}
function calculate () {
  vloanamt(document.amorform.loanamt.value)
  if (falseflg == "0") {
    finchk12 ()
  }
}
function finchk12 () { 
  if (document.amorform.loanamt.value == 0) {
    errorm("Fill in Loan Amount") }
  else { finchk2 () }
}
function finchk2 () {
  vannint(document.amorform.annint.value)
  if (falseflg == "0") {
    finchk22 ()
  }
}
function finchk22 () {
  if (document.amorform.annint.value == 0) {
    errorm("Fill in Ann. Int. Rate") }
  else { finchk3 () }
}
function finchk3 () {
  vloanterm(document.amorform.loanterm.value)
  if (falseflg == "0") {
    finchk32 ()
  }
}
function finchk32 () {
  if (document.amorform.loanterm.value == 0) {
    errorm("Fill in Loan Term") }
  else { gogo () }
}
function gogo () {
/*	if (amorflg == "1") {
		moramor() }
	amorflg = 0 */
  var loanamt = document.amorform.loanamt.value-0
  var annint = document.amorform.annint.value-0
  var loanterm = document.amorform.loanterm.value-0
  var perint = (annint/100)/12
  var numpayts = Math.round((loanterm*12)*100)/100
  var base = 1 + perint
  var temp = loanamt /  ((1 - (1/Math.pow(base, numpayts)))/perint)
  var paytamt = Math.round(temp*100)/100
  document.amorform.paytamt.value = paytamt
  var amount = Math.round((paytamt * numpayts)*100)/100
  var totint = Math.round((amount - loanamt)*100)/100
  document.amorform.amount.value = amount
  document.amorform.totint.value = totint	
}
function errorm(msg) {
  alert(msg)
}
function focuscop() {
  document.amorform.loanamt.focus()
  alert("Sorry ... Calculated field! Click outside field to regain control")
}
/*	function amortize () {
		amorflg = 1
		calculate()
	}
	function moramor() {
		amorflg = 0
		parent.fr2.location.href="segue.htm"
} */