MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues.
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)
AMORTIZE: Difference between revisions
Jump to navigation
Jump to search
(Category) |
mNo edit summary |
||
| Line 57: | Line 57: | ||
710 RETURN | 710 RETURN | ||
[[Category: | [[Category:BASIC]] | ||
Latest revision as of 20:42, 10 September 2015
100 TP=0: TI=0: T$=" 110 CLS: PRINT@5,"AMORTIZATION SCHEDULE" 120 PRINT@64,"ENTER PRINCIPAL";: INPUT P$ 130 IF (VAL(P$)>0) AND (VAL(P$)<10000000) THEN P=VAL(P$): GOTO150 140 PRINT@80,": GOTO120 150 PRINT@97,"INTEREST RATE (% /YR)"; : INPUT I$ 160 IF (VAL(I$)>O) AND (VAL(I$)<91) THEN I=VAL(I$)/100: GOTO180 170 PRINT@117,"": GOTO150 180 PRINT@129,"NUMBER OF MONTHS";: INPUT N$ 190 IF (VAL(N$)>0) AND (VAL(N$)<500) THEN N=VAL(N$): GOTO210 200 PRINT@147,": GOTO180 210 PRINT@161,"MONTHLY PAYMENT";: INPUT R$ 220 IF (VAL(R$)>0) AND (VAL(R$)<10000) THEN R=VAL(R$): GOTO240 230 PRINT@178,": GOTO210 240 PRINT@193,"BALLOON PAYMENT";: INPUT B$ 250 IF (VAL(B$)>=0) AND (VAL(B$)<1000000) THEN B=VAL(B$): GOTO270 260 PRINT@210,"": GOTO240 270 PRINT@225,"TO PRINTER (Y OR N)";: INPUT PR$ 280 IF NOT (PR$="Y" OR PR$="N") THEN PRINT@245,"": GOTO270 290 GOSUB590 300 IF PR$<>"Y" THEN 370 320 LPRINT TAB(5)"AMORTIZATION SCHEDULE" 340 LPRINT TAB(8)"TO TO" 360 LPRINT "MONTH PRINC. INTER. BALANCE" 370 FOR T=1 TO N 380 WI=P*(I/12): TI=TI+WI 390 WP=R-WI: TP=TP+WP: P=P+WI-R 400 N$=STR$(T): L=LEN(N$) 410 PRINT@P1+4-L,N$; 420 IF PR$="Y" THEN LPRINT TAB(4-L)N$; 430 C=INT(WP*100): P2=10: GOSUB630 440 C=INT(WI*100): P2=19: GOSUB630 450 C=INT(P*100): P2=29: GOSUB630 460 IF P1<416 THEN P1=P1+32: GOTO510 470 IF T=N THEN 510 480 PRINT@448,"PRESS ANY KEY TO CONTINUE";: B$=INKEY$ 490 IF B$="" THEN 480 500 GOSUB590 510 NEXT T 520 PRINT@P1,"TOTL"; 530 IF PR$="Y" THEN LPRINT "TOTL"; 540 C=INT(TP*100): P2=10: GOSUB630 550 C=INT(TI*100): P2=19: T$="Y": GOSUB630 560 PRINT@460,"PRESS R TO RESTART";: B$=INKEY$ 570 IF B$="R" THEN 100 580 GOTO560 590 CLS: PRINT@5,"AMORTIZATION SCHEDULE" 600 PRINT@40,"TO": PRINT@49,"TO" 610 PRINT@64,"MONTH PRINC. INTER. BALANCE" 620 P1=96: RETURN 630 C$=STR$(C): L=LEN(C$) 640 PRINT@P1+P2-(L-2),LEFT$(C$,L-2)+"."+RIGHT$(C$,2); 650 IF PR$<>"Y" THEN 710 660 IF (P2<>29) AND (T$<>"Y") THEN 700 660 LPRINT TAB(P2-(L-2))LEFT$(CS,L-2)+"."+RIGHT$(C$,2): GOTO710 700 LPRINT TAB(P2-(L-2))LEFT$(C$,L-2)+"."+RIGHT$(C$,2); 710 RETURN