Compound Interest

Gallery

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