| Path : /proc/2/task/2/cwd/usr/share/doc/bc-1.06.95/Examples/ |
| Current File : //proc/2/task/2/cwd/usr/share/doc/bc-1.06.95/Examples/ckbook.b |
scale=2
print "\nCheck book program!\n"
print " Remember, deposits are negative transactions.\n"
print " Exit by a 0 transaction.\n\n"
print "Initial balance? "; bal = read()
bal /= 1
print "\n"
while (1) {
"current balance = "; bal
"transaction? "; trans = read()
if (trans == 0) break;
bal -= trans
bal /= 1
}
quit