100 rem interest rate program page 33
110 read m,d,p,n
300 let r= m * d /(p*(n+1)) * 200
400 print "percent interest is",r
500 data 12, 320, 3000, 36
600 end