Project Description

This projects calculates a loan amortization using several inputs. It calculates the effective ROI if additional payments are made.
The program can output the schedule in either Txt or html.

Source Code:

  /* rexx */
Do Forever
Do until datatype(loan, "n") & loan > 0
Say "Please enter the loan amount:"
Parse Pull loan
If datatype(loan, "n") & loan <= 0 Then
Say "Sorry! Loan amount must be a positive number (doesn't include 0). Try again"
End
Do until datatype(air, "n") & air >= 0
Say "Now enter the annual interest rate (can be 0):"
Parse Pull air
If datatype(air, "n") & air < 0 Then
Say "Sorry! The annual interest rate must be a number greater or equal to 0. Try again"End
Do until datatype(term, "n") & term > 0
Say "Now enter the loan term in years:"
Parse Pull term
If datatype(term, "n") & term <= 0 Then
Say "Sorry! The loan term years must be a positive number. Try again"
End
Do until datatype(app, "n") & app >= 0
Say "Finally enter the additional principal payment per month (if none input 0):"
Parse Pull app
If datatype(app, "n") & app < 0 Then
Say "Sorry! The loan additional principal payments must be a positive amount or 0. Try again"
End
Do until datatype(dataset, "alpha") & \datatype(dataset, "n")  & (dataset \=  " " & length(dataset) < 15)
Say "Enter a name for your datset, avoid symbols of any kind only letters"
Parse Pull dataset
If datatype(dataset, "n") Then do
Say "Sorry! the dataset name can't be numeric.Try again"
End
If length(dataset) >= 15 then do
Say " Sorry! Please keep the dataset name less than 15 characters. Try again"
End
End
Do until datatype(type, "alpha") & (type = "html" | type = "txt")
Say "Finally, enter the type for your datset (txt or html):"
Parse Pull type
End
Leave
End
dataset = dataset"."Time()"."Userid()
Say dataset
filename = dataset"."type
rate = air / 12 / 100
term = term * 12
If rate == 0 Then
monthly = loan / term
Else
monthly = loan * (( rate * (1 + rate) ** term) / (( 1+ rate) ** term - 1 ))
Tinterest = 0
Tapp = 0
OgLoan = loan
ogApp = app
period = 1
if type = "txt" then do
Say "txt"
Call lineout(filename), "| Period | Beginning principal | Payment Amount | Extra Payment Amount | Total Interest | New Principal |"
Call lineout(filename), "|:-------:|:-------------------:|:--------------:|:--------------------:|:--------------:|:-------------:|"
Do while loan > 0
interest = loan * rate
principal = monthly - interest
If loan < principal + app Then DO
principal = loan
app = 0
End
Nloan = loan - principal - app
Call lineout(filename), "|"right(period,5) "|" "|" right(loan,15) "|"  "|" right(monthly,13) "|" "|" right(app,20) "|" "|" right(Interest,15) "|" "|" right(Nloan,10) "|"
loan = Nloan
Tinterest = Tinterest + interest
Tapp = Tapp + app
period = period + 1
End
Call lineout(filename), " "
End
Else if type = "html" then do
Say "HTML"
Call lineout (filename), 
Call lineout (filename), 
Call lineout (filename), 
Call lineout (filename), 
Call lineout(filename), ""
Call lineout(filename), "<tr><th>Period</th><th>Beginning principal</th><th>Payment Amount</th><th>Extra Payment Amount</th><th>Total Interest</th><th>New Principal</th></tr>"
app = OgApp
loan = OgLoan
Tinterest = 0
Tapp = 0
period = 1
Do while loan > 0
interest = loan * rate
principal = monthly - interest
If loan < principal + app Then DO
principal = loan
app = 0
End
Nloan = loan - principal - app
Call lineout(filename), "<tr><td>"period"</td><td>"loan"</td><td>"monthly"</td><td>"app"</td><td>"Interest"</td><td>"Nloan"</td></tr>"
Call lineout(filename),
Call lineout(filename),
loan = Nloan
Tinterest = Tinterest + interest
Tapp = Tapp + app
period = period + 1
End
Say "here- final html"
Call lineout(filename), ""
Call lineout(filename), " "
End
Tinterest2 = 0
app = 0
loan = OgLoan
Do while loan > 0
interest = loan * rate
principal = monthly - interest
If loan < principal + app Then DO
principal = loan
app = 0
End
Nloan = loan - principal - app
loan = Nloan
Tinterest2 = Tinterest2 + interest
period = period + 1
End
IntSaved = Tinterest2 - Tinterest
If Tapp == 0 then
Eroi = 0
Else
Eroi = (IntSaved / Tapp) * 100
Call lineout(filename), " "
If Tapp > 0 then Do
Call lineout(filename), "ROI Summary"
Call lineout(filename),"Total Additional Payment Paid" Tapp
Call lineout(filename), "Total Interest saved" IntSaved
Call lineout(filename), "Effective ROI" Eroi||"%"
say "here - final"
End
Call lineout(filename), " "
Say "User" UserId()
Say "Date" Date() "Time" Time()
Say "finishing exiting programn "
EXIT
End
 

Example output HTML:

ROI Summary
Total Additional Payment Paid 1540
Total Interest saved 174.56756
Effective ROI 11.3355558%

Sample Program Executions: