Merge from vendor branch LIBSTDC++:
[dragonfly.git] / contrib / bc / Examples / ckbook.b
1 scale=2
2 print "\nCheck book program!\n"
3 print "  Remember, deposits are negative transactions.\n"
4 print "  Exit by a 0 transaction.\n\n"
5
6 print "Initial balance? "; bal = read()
7 bal /= 1
8 print "\n"
9 while (1) {
10   "current balance = "; bal
11   "transaction? "; trans = read()
12   if (trans == 0) break;
13   bal -= trans
14   bal /= 1
15 }
16 quit