MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
INTEREST
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