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