contrib/bc/Examples/ckbook.b

   1 scale=2
   2 print "\nCheck book program!\n"
   3 print "  Remember, deposits are negative transactions.\n"
   4 print "  Exit by a 0 transaction.\n\n"
   5
   6 print "Initial balance? "; bal = read()
   7 bal /= 1
   8 print "\n"
   9 while (1) {
  10   "current balance = "; bal
  11   "transaction? "; trans = read()
  12   if (trans == 0) break;
  13   bal -= trans
  14   bal /= 1
  15 }
  16 quit