ack/lang/basic/test/opg1.b

7 lines
158 B
Brainfuck
Raw Normal View History

1985-01-24 11:27:36 +00:00
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