lang/basic/test/opg1.b

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