10 REM*    LOAM AMORTIZATION PROGRAM
20 REM*     SUBMITTED BY DAN MIELKE
30 REM*
40 PRINT CHR$(26):PRINT:PRINT
50 PRINT "           LOAN AMORTIZATION PROGRAM"
60 PRINT:PRINT
70 INPUT "LOAN FROM: ",L$:PRINT
80 INPUT "LOAN TO  : ",B$:PRINT
90 INPUT "WHAT IS THE AMOUNT BORROWED? ";P
100 LET B#=P
110 PRINT
120 INPUT "HOW MANY MONTHS WILL THE LOAN RUN? ",M
130 PRINT
140 INPUT "WHAT IS THE ANNUAL PERCENT INTEREST? ",X
150 PRINT
160 INPUT "DATE FIRST PAYMENT IS DUE:(MO,DA,YR) ",MO,DA,YR
170 IF X=0 THEN I=X:A=P/M:GOTO 210
180 LET I=X/100
190 PRINT CHR$(26)
200 LET A=I/12*P*((1+I/12)^M/((1+I/12)^M-1))
210 PRINT:PRINT:PRINT:PRINT
220 PRINT "AMOUNT BORROWED: $";P
230 PRINT:PRINT "NUMBER OF MONTHS:  ";M
240 PRINT:PRINT "INTEREST RATE:     ";100*I;"% PER YEAR."
250 PRINT
260 LET A=INT(A*100+.5)/100
270 PRINT "MONTHLY PAYMENT:   $";A
280 PRINT:PRINT
290 INPUT " DO YOU WANT MONTHLY PRINTOUT? ",C$
300 IF LEFT$(C$,1)="Y" THEN GOTO 320
310 GOTO 600
320 GOSUB 610
330 FOR J=1 TO M
340 IF J=56 THEN GOSUB 610
350 IF J=111 THEN GOSUB 610
360 IF J=166 THEN GOSUB 610
370 IF J=221 THEN GOSUB 610
380 IF J=276 THEN GOSUB 610
390 IF J=331 THEN GOSUB 610
400 LPRINT TAB(3);
410 LPRINT USING "###";J;
420 LPRINT TAB(15);
430 LPRINT USING "## ";MO;DA;YR;
440 LET MO=MO+1
450 IF MO<13 THEN 470
460 LET YR=YR+1
470 LET IP=B#*I/12
480 LET PP=A-IP
490 IF J<M-1 THEN 520
500 LET PP=B#
510 LET A=PP+IP
520 LPRINT TAB(30);
530 LPRINT USING "###.##";A;
540 LPRINT TAB(44);
550 LPRINT USING "###.##        ";PP;IP;
560 LET PT=PT+PP
570 LET B#=P-PT
580 LPRINT USING "#####.##";B#
590 NEXT J
600 END
610 LPRINT:LPRINT:LPRINT
620 LPRINT "LOAN FROM ";L$;" TO ";B$;"."
630 LPRINT
640 LPRINT "ORIGINAL LOAN AMOUNT $";P
650 LPRINT
660 LPRINT "INTEREST RATE  ";X;"%"
670 LPRINT
680 LPRINT " PAYMENT",
690 LPRINT " DATE DUE",
700 LPRINT " AMOUNT OF",
710 LPRINT " PRINCIPAL",
720 LPRINT " INTEREST",
730 LPRINT " BALANCE"
740 LPRINT " NUMBER",,
750 LPRINT "  PAYMENT",
760 LPRINT "  PAYMENT",
770 LPRINT " PAYMENT"
780 LPRINT
790 RETURN
NCE"
740 LPRINT " NUMBER",,
750 LPRINT "  PAYMENT",
760 LPRINT "  PAYMENT",
770 LPRINT 