INTEREST

100 CLEAR 500: CLS: PRINT@7,"INTEREST FORMULAS"
110 PRINT@64,"SELECT ONE OF THE FOLLOWING:"
120 PRINT@96,"1. GIVEN AN INITIAL AMOUNT, HOW"
130 PRINT@131,"MUCH WILL IT RE AFTER X YEARS"
140 PRINT@16O,"2. GIVEN A FINAL AMOUNT, WHAT"
150 PRINT@195,"IS THE INITIAL INVESTMENT AMT"
160 PRINT@224,"3. GIVEN A FINAL AMOUNT, WHAT"
170 PRINT@239,"ARE THE REGULAR DEPOSITS"
180 PRINT@288,"4. GIVEN A LOAN AMOUNT, WHAT"
190 PRINT@323,"ARE THE REGULAR PAYMENTS"
200 PRINT@352,"5. GIVEN REGULAR PAYMENTS, WHAT"
210 PRINT@387,"IS THE FINAL AMOUNT OF MONEY"
220 PRINT@416,"6. GIVEN REGULAR PAYMENTS, FIND"
230 PRINT@451,"PRESENT WORTH OF FINAL ANT"
240 PRINT@480,"WHICH ONE";: A$INKEY$
230 IF NOT (A$>"0" AND A$<"7") THEN 240
260 A=VAL(A$)
270 ON A GOTO280,330,420,490,360,630
280 NM$="FINAL AMOUNT"
290 CLS: PRINT@7,"FIND "+NM$
300 PRINT@34,"(GIVEN INITIAL INVESTMENT)"
310 GOSUB700: GOSUB850
320 P=P*((1+(I/N))^(N*M))
330 GOSUB970: IF R$="R" THEN 100
340 GOTO29O
330 NM$="PRESENT WORTH"
360 CLS: PRINT@7,"FIND "+NM$
370 PRINT@38,"(GIVEN FINAL AMOUNT)"
380 GOSUB750: GOSUB850
390 P=S*(1/((1+(I/N))^(N*M)))
400 GOSUB970: IF R$="R" THEN 100
410 G0T0360
420 NM$="PAYMENT OR RECEIPT"
430 CLS: PRINT@4,"FIND "+NM$
440 PRINT@38,"(GIVEN FINAL AMOUNT)"
450 GOSUB750: GOSUB850
460 P=S*((I/N)/(((1+(I/N))^(N*M))-1))
470 GOSUB970: IF R$="R" THEN 100
480 GOTO430
490 NM$="PAYMENT OR RECEIPT"
500 CLS: PRINT@4,"FIND "+NM$
510 PRINT@39,"(GIVEN PRINCIPAL)"
520 GOSUB700: GOSUB850
530 P=P*(((I/N)*((1+(I/N))^(N*M)))/((((1+(I/N))^(N*M))-1)))
540 GOSUB970: IF R$="R" THEN 100
550 GOTO500
560 NM$="FINAL AMOUNT"
570 CLS: PRINT@7,"FIND "+NM$
580 PRINT@40,"(GIVEN PAYMENT)"
590 GOSUB800: GOSUB850
600 P=R*((((1+(I/N))^(N*M))-1)/(I/N))
610 GOSUB970: IF R$="R" THEN 100
620 GOTO570
630 NM$="PRESENT WORTH"
640 CLS: PRINT@7,"FIND "+NM$
650 PRINT@35,"(GIVEN PAYMENT OR RECEIPT)"
660 GOSUB800: GOSUB850
670 P=R*((((1+(I/N))^(N*M))-1)/((I/N)*((1+(I/N))^(N*M))))
680 GOSUB97O: IF R$="R" THEN 100
690 GOTO64O
700 PRINT@96,"ENTER:"
710 PRINT@129,"PRINCIPAL";: INPUT PS
720 IF (VAL(P$)>0) AND (VAL(P$)<1000000) THEN P=VAL(P$): GOTO74O
730 PRINT@140,"": GOTO710
740 RETURN
750 PRINT@96,"ENTER:"
760 PRINT@129,"FINAL AMOUNT";: INPUT S$
770 IF (VAL(S$)>0) AND (VAL(S$)<1000000) THEN S=VAL(S$): GOTO79O
780 PRINT@140,"": GOTO76O
790 RETURN
800 PRINT@96,"ENTER:"
810 PRINT@129,"PAYMENT AMOUNT";: INPUT R$
820 IF (VAL(R$)>0) AND (VAL(R$)<10000) THEN R=VAL(R$): GOTO84O
830 PRINT@145,"": GOTO810
840 RETURN
850 PRINT@161,"INTEREST (% /YR)";: INPUT IS
860 IF (VAL(I$)>0) AND (VAL(I$)<81) THEN I=VAL(I$)/100: GOTO880
870 PRINT@179,"": GOTO850
880 IF A$<"3" THEN N2$="# COMPOUNDING PERIODS/YR": GOTO900
890 N2$="# EQUAL PAYMENTS/YR"
900 PRINT@193,N2$;: INPUT NS
910 IF (VAL(N$)>0) AND (VAL(N$)<370) THEN N=VAL(N$): GOTO930
920 PRINT@214,"": GOTO900
930 PRINT@225,"# OF YEARS";: INPUT H$
940 IF (VAL(M5)>0) AND (VAL(M5)<81) THEN M=VAL(M$): GOTO960
950 PRINT@237,"": GOTO930
960 RETURN
970 IF P>999999 THEN PRINT@289,NM$;"=";P: GOTO1000
980 P=INT(P*100): P$=STR$(P): L=LEN(P$)
990 PRINT@289,NM$+"="+LEFT$(P$,L-2)+"."+RIGHTS(P$,2)
1000 PRINT@416,"ENTER R FOR RESTART, OR JUST"
1010 PRINT@448,"<ENTER> FOR SAME";: INPUT RS
1020 IF NOT (R$="R" OR R$="") THEN PRINT@465,"": GOTO1010
3030 RETURN