<!---
function calcForm(form) {

	var w = 1
	var N = parseInt(form.years.value)
	var n = N * 12
	
	var r = parseFloat(form.rate.value)
	if (r > 1.0) {
		r = r / 100
		form.rate.value = r
	}
	r /= 12
	var a = parseFloat(r + 1)


// b = interest paid over total loan period
	var b = 0
// s = the total amount repaid
	var s = 0
// p = the monthly repayment amount
	var p = 0
// owing = total amount owing after repayment period
	var owing = 0
// fi = interest paid over total fortnightly repayments
	var fi = 0
// fip = interest paid per period
	var fip = 0
// f = number of fortnightly repayments
	var f = 0
// fn = fortnightly repayment amt
	var fn = 0
// ft = total repaid fortnightly
	var ft = 0
// fnb = amount saved by paying fortnightly
	var fnb = 0
// dint = interest calculated daily
	var dint = 0
// wn = weekly repayment amount
	var wn = 0
// wip = interest paid per period
	var wip = 0
// wi = total interest paid on loan
	var wi = 0
// wt = total repaid on loan
	var wt = 0
// wl = number of weekly repayments
	var wl = 0

	w = Math.pow(a,n)
	var P = parseInt(form.principal.value) 


	p = (P * w * r) / (w -1)
	p = (Math.round(p * 100))/100
	s = (Math.round(p * n*100))/100
	b = s - P
	fn = p / 2
	wn = fn / 2
	owing = P
	var dir = (parseFloat(form.rate.value)) / 365
	var dip = 1

	var currDate = new Date()
	var day = currDate.getDate()

	while (fn < owing) {
		dint = owing * dir
		fip += dint

		if (dip == 14) {
			owing -= fn
			ft += fn
			dip = 0
			f++
		}
		if (day ==30) {
			owing += fip
			fi += fip
			fip = 0
			day = 1 

		}
		day++
		dip++

	}


fn = (Math.round(fn*100))/100
ft += owing	
fnb = s - ft
ft = (Math.round(ft * 100))/100
fnb = (Math.round(fnb*100))/100
fi = (Math.round(fi*100))/100

	form.numpay.value = n
	form.totpaid.value = '$' + (Math.round(s)*100)/100
	form.repayments.value = '$' + (Math.round(p)*100)/100
	form.fn_repay.value = '$' + (Math.round(fn)*100)/100
	form.intpaid.value = '$'+ (Math.round(b)*100)/100
	form.fn_intpaid.value = '$' + (Math.round(fi)*100)/100
	form.fn_totpaid.value = '$' + (Math.round(ft)*100)/100
	form.saved.value = '$' + (Math.round(fnb)*100)/100
	form.fn_numpay.value = f
	form.fn_time.value = (Math.round(f / 26)*100)/100 + " years"

owing = P
day = 1
dip = 1

		while (wn < owing) {
		dint = owing * dir
		wip += dint

		if (dip == 7) {
			owing -= wn
			wt += wn
			dip = 1
			wl++
		}
		if (day ==30) {
			owing += wip
			wi += wip
			wip = 0
			day = 1 
		}

		day++
		dip++
	}
wnb = s - wt

	form.wl_repay.value = "$" + (Math.round(wn)*100)/100
	form.wl_intpaid.value = "$" + (Math.round(wi)*100)/100
	form.wl_totpaid.value = "$" + (Math.round(wt)*100)/100
	form.wl_numpay.value = wl
	form.wl_saved.value = "$" + (Math.round(wnb)*100)/100
	form.wl_time.value = (Math.round(wl / 52)*100)/100 + " years"
}

//--->