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