Source Code
5 REM %C%O%M%P%O%U%N%D% %I%N%T%E%R%E%S%T
8 PRINT
10 PRINT "ENTER PRINCIPAL"
20 INPUT P
21 PRINT P
30 PRINT "ENTER RATE"
40 INPUT R
41 PRINT R
42 IF R<1 THEN GOTO 50
44 LET R=R/100
50 PRINT "ENTER TIME IN YEARS"
60 INPUT T
61 PRINT T
70 PRINT
80 PRINT TAB (1);"PRN";TAB (6);"P/C";TAB (10);"YRS";TAB (15);"DLY";TAB (21);"MTH";TAB (25);"QTL";TAB (29);"ANN"
90 LET D=P*(1+R/360)**(360*T)
95 LET D=INT (D*100+.5)/100
100 LET M=P*(1+R/12)**(12*T)
105 LET M=INT (M*100+.5)/100
110 LET Q=P*(1+R/4)**(4*T)
115 LET Q=INT (Q*100+.5)/100
120 LET A=P*(1+R)**T
125 LET A=INT (A*100+.5)/100
130 PRINT TAB (1);P;TAB (7);R*100;TAB (11);T;D,M,Q,A
140 PRINT
150 PRINT "WANT ANOTHER? ENTER Y OR N"
160 INPUT Z$
170 IF Z$="Y" THEN GOTO 8
180 STOP
190 SAVE "1011%2"
200 LIST
