/usr/share/doc/bc/examples
NameSizeModeActions
ckbook.b3300644editdlrm
pi.b11880644editdlrm
primes.b6330644editdlrm
twins.b7100644editdlrm
Edit: /usr/share/doc/bc/examples/ckbook.b (330B)
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