mirror of
https://github.com/freebsd/freebsd-src.git
synced 2024-12-03 06:12:46 +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
|