5762454 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Examples]$ cat -n 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
5762455 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Examples]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 1995-03-30 07:28:39