Mini Shell
Mini Shell
| Direktori : /usr/share/doc/bc-1.06.95/Examples/ |
| Current File : //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