From 439d2fb46cfec58a16c4a9856cc00ea4a2ee6de3 Mon Sep 17 00:00:00 2001 From: cgd Date: Sat, 10 Apr 1993 15:51:24 +0000 Subject: gnu bc. necessary to compile the distribution --- gnu/usr.bin/bc/Examples/ckbook.b | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 gnu/usr.bin/bc/Examples/ckbook.b (limited to 'gnu/usr.bin/bc/Examples/ckbook.b') diff --git a/gnu/usr.bin/bc/Examples/ckbook.b b/gnu/usr.bin/bc/Examples/ckbook.b new file mode 100644 index 00000000000..5815ea02075 --- /dev/null +++ b/gnu/usr.bin/bc/Examples/ckbook.b @@ -0,0 +1,16 @@ +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 -- cgit