5 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,1
10 PRINT "COPYRIGHT 1985 CHERYL PETERSON"
15 PRINT"LOAN PAYMENT CALCULATOR"
20 PRINT"S[146]CREEN DISPLAY OR P[146]RINTOUT?"
30 GET S$:IF S$=""GOTO30
35 IF S$="S" OR S$="P" THEN 40
36 PRINT"WAS THAT AN S[146] OR A P[146]?":GOTO20
40 PRINT"VIEW/PRINT PAYBACK SCHEDULE (Y[146] OR N[146])?"
50 GET V$:IF V$=""THEN50
55 IF V$="Y" OR V$="N" THEN 210
60 PRINT"WAS THAT A Y[146] OR AN N[146]?":GOTO50
210 INPUT"ENTER CASH VALUE BEING FINANCED";A
215 K=A:GOSUB 1000
216 A=K
220 INPUT"ENTER NUMBER OF PAYMENTS PER YEAR";N
225 K=N:GOSUB 1000
226 N=K
230 INPUT"ENTER TOTAL NUMBER OF PAYMENTS TO MAKE";T
235 K=T:GOSUB 1000
236 T=K
240 INPUT"ENTER YEARLY INTEREST RATE";I
241 K=I:GOSUB 1000
242 I=K
243 II=I:I=I/100
250 IF S$="S"THEN 260
251 OPEN1,4,7:CMD1
260 PRINT CHR$(147)
270 PRINT"LOAN PAYMENT CALCULATOR"
275 GOSUB 4030
280 PRINT"AMOUNT FINANCED $";A$
285 PRINT"INTEREST RATE";II;"%."
290 PRINT"# OF PAYMENTS PER YEAR: ";N
300 PRINT"TOTAL NUMBER OF PAYMENTS IS ";T
400 P=A*(I/N)/(1-(1/(1+(I/N))^(T)))
410 Z=P*T:C=Z-A
600 GOSUB 3000
610 PRINT"EACH PAYMENT IS";P$
620 PRINT"TOTAL INTEREST PAID IS $";C$
630 PRINT"TOTAL AMOUNT PAID IS $";Z$
640 PRINT
690 IFV$<>"Y"THEN845
691 C=A*I/N
695 J=P-C
697 A=A+C
700 IF S$="S" THEN 705
701 PRINT SPC(7);"BALANCE";SPC(9);"PAYMENT";SPC(8);
702 PRINT"INTEREST";SPC(7);"PRINCIPLE":GOTO 710
705 PRINT" BALANCE";SPC(3);"PAYMENT";SPC(2);"INTEREST";SPC(1);"PRINCIPLE"
710 X=1
720 GOSUB 3000
725 GOSUB 4000
730 IF X=50 AND X2<1THEN PRINT CHR$(12):X=1:X2=X2+1:GOTO 700
740 IF X2>0 AND X=60 THEN PRINT CHR$(12):X=1:GOTO 700
750 IF LEN(A$)<=8 THEN A1=9-LEN(A$)
751 IF LEN(P$)<=8 THEN P1=9-LEN(P$)
752 IF LEN(C$)<=8 THEN C1=9-LEN(C$)
753 IF LEN(J$)<=8 THEN J1=9-LEN(J$)
760 IF S$="S" THEN 765
761 PRINT SPC(A1+6);A$;SPC(P1+6);P$;SPC(C1+6);C$;SPC(J1+6);J$:GOTO 770
765 PRINT SPC(A1);A$;SPC(P1);P$;SPC(C1);C$;SPC(J1);J$
770 A=A+C-P:C=A*I/N:J=P-C
820 IF A+C<=P THEN P=A+C:J=A
825 IF A<=.01 THEN 845
830 X=X+1
840 GOTO 720
845 IF S$="S"THENEND
850 PRINT#1:CLOSE 1:END
999 END
1000 K=ABS(K):RETURN
2000 B=INT(B*100+.001):B$=STR$(B):B$=LEFT$(B$,LEN(B$)-2)+"."+RIGHT$(B$,2)
2090 RETURN
3000 REM TRUNCATE P,C AND Z
3010 B=P:GOSUB 2000
3020 P$=B$
3030 B=C:GOSUB 2000
3040 C$=B$
3050 B=Z:GOSUB 2000
3060 Z$=B$
3090 RETURN
4000 REM TRUNCATE A AND J
4010 B=J:GOSUB 2000
4020 J$=B$
4030 B=A:GOSUB 2000
4040 A$=B$
4090 RETURN