Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

INTEREST

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
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