100 rem monthly interest compounding program
110 print "principal";
120 input P
130 print "interest rate";
140 input R
150 print "number of months"
160 input M
165 print "month", "principal","interest","prin+int."
170 for K=1 to M
190 let I=(P*(R/100))/12
200 print
210 print K,P,I,P+I
220 let P=P+I
230 next K
999 end