mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-22 11:17:19 +00:00
17 lines
330 B
Brainfuck
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
|