Payment Function

 FUNCTION Payment(
	nPrincipal AS FLOAT,
	nInterestRate AS FLOAT,
	nPayments AS FLOAT
) AS FLOAT

public static Float Payment(
	Float nPrincipal,
	Float nInterestRate,
	Float nPayments
)

1STORE 100000 to gnPrincipal     // $100,000 beginning principal
2STORE .105/12 TO gnInterest  // 10.5% annual interest rate
3STORE (20*12) TO gnPayments     // 20 years of monthly payments
4Clear
5? Payment(gnPrincipal, gnInterest, gnPayments)  // Displays 998.38