linuxOS_AP05/debian/test/usr/share/doc/bc/examples/ckbook.b
2025-09-26 09:40:02 +08:00

17 lines
330 B
Brainfuck

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