5HOME
7SPEED =125
10? TAB(3); "MORTGAGE PAYMENT PROGRAM"
15VTAB (3)
20? TAB(3); "program by:"
30? TAB(13); "GEORGE RHODES"
40?:?:? TAB(3); "THIS PROGRAM WILL CALCULATE"
42? TAB(3); "MONTHLY PAYMENTS"
50?:? TAB(2); "AND CALCULATE AN AMORTIZATION"
51? TAB(2); "SCHEDULE FOR THE FIRST YEAR"
80?:? TAB(3); "DO YOU WISH TO COMPUTE"
81INPUT "  A LOAN ?"; y$
120IF y$="yes" THEN 200
130IF y$="no" THEN 700
140? "ENTER EITHER 'yes'...or...'no'":GOTO 80
200HOME
220? TAB(3); "ENTER INTEREST"
221INPUT "  AS A DECIMAL  .### %"; i
230?:? TAB(3); "ENTER THE # OF YEARS"
231INPUT "  OF THE LOAN ?"; y
240?:? TAB(3); "ENTER LOAN PRINCIPAL"
241INPUT "  WITHOUT COMMAS  $XXXXXX ?"; p
280LET f=1+(i/12)
290LET n=y*12
300LET m1=f^(n+1)-f^n
310LET m2=(f^n)-1
320LET m=p*(m1/m2)
330LET t=(m*n)-p
340LET a=t+p
341?:?:INPUT "DO YOU WANT A PRINTED COPY ?"; a$
342IF a$="yes" THEN PR #1:GOTO 370
343IF a$="no" THEN PR #0:GOTO 370
344? "ENTER EITHER 'yes'...or...'no'":GOTO 341
370HOME
380? TAB(3); "LOAN PRINCIPAL"; TAB(19); "$ "; p
390? TAB(3); "YEARS"; TAB(21); y
400? TAB(3); "INTEREST"; TAB(21); i*100; " %"
410?:? TAB(3); "MONTHLY PAYMENT"; TAB(19); "$ "; INT(m*100+.5)/100
420?:? TAB(3); "TOTOAL INT. PAID"; TAB(19); "$ "; INT(t*100+.5)/100
430?:? TAB(3); "TOTAL PAYMENTS"; TAB(19); "$ "; INT(a*100+.5)/100
460PR #0
471?
472?
480? "DO YOU WANT AN AMORTIZATION SCHEDULE"
490INPUT "FOR THE FIRST YEAR ?"; z$
500?
520IF z$="yes" THEN 540
530IF z$="no" THEN 640
535? "ENTER EITHER 'yes'...or...'no' ":GOTO 480
540?:INPUT "DO YOU WANT A PRINTED COPY ?"; y$
541IF y$="yes" THEN PR #1:GOTO 545
542IF y$="no" THEN PR #0:GOTO 545
543? "ENTER EITHER 'yes'...or...'no'":GOTO 540
545? TAB(7); "PRINCIPAL"; TAB(17); "INTEREST"; TAB(25); "LOAN"
550? TAB(3); "MO."; TAB(17); "PAYMENT"; TAB(25); "BALANCE"
560LET b=p
570LET q=0
580LET q=q+1
590LET i1=b*(i/12)
600LET p1=m-i1
610LET b=b-p1
615?:? TAB(3); q; TAB(7); "$ "; INT(p1*100+.5)/100; TAB(17); "$ "; INT(i1*100+.5)/100; TAB(25); "$ "; INT(b*100+.5)/100
620IF q<12 THEN 580
630IF q=12 THEN 635
635PR #0
640INPUT "DO YOU WISH TO CHANGE YOUR DATA ?"; x$
660IF x$="yes" THEN 220
670IF x$="no" THEN 700
680? "ENTER EITHER 'yes'...or...'no' ":GOTO 640
685?
700? "THANK YOU ......CALL AGAIN"
701SPEED =255
999END
