25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more...

Home Projects Up Sitemap Search Blog Forum+Chat About Us Privacy Terms of Use Feedback FAQ Images Services Payments Humor Music

Checkbook calculator, Microsoft MBASIC

Enter check and deposit amounts from your checkbook to get your new balance. If there is a per-check fee, it deducts it automatically.

There is a more modern and capable checkbook calculator (check register) for Microsoft Excel at Checks.xls.

10 REM PROGRAM NAME 'CHEKBOOK' FOR H89 OR H100.
11 'COPYRIGHT (C)1982 STEVEN WHITNEY.
12 'Published under GNU GPL (General Public License) Version 3, with ABSOLUTELY NO WARRANTY.
13 'Initially published by http://25yearsofprogramming.com.
30 PRINT CHR$(27)"E";"THIS PROGRAM UPDATES YOUR CHECKBOOK BALANCE"
40 PRINT STRING$(75,"="):PRINT
50 PRINT "FOR CHECKS, JUST INPUT THE AMOUNT OF THE CHECK AS A POSITIVE NUMBER."
60 PRINT:PRINT"FOR DEPOSITS, FOLLOW THE NUMBER DIRECTLY BY THE CAPITAL LETTER 'D'."
70 PRINT STRING$(75,"-")
80 PRINT
90 PRINT"FOR EASE OF DATA ENTRY, THE PROGRAM RUNS CONTINUOUSLY UNTIL STOPPED"
100 PRINT"BY A <CTRL-C>.  HOLD DOWN THE <CTRL> KEY AND SIMULTANEOUSLY PRESS"
110 PRINT"THE CAPITAL LETTER 'C'.  TEST THIS NOW AND RE-RUN THE PROGRAM, IF YOU LIKE.":PRINT STRING$(75,"=")
120 PRINT
130 INPUT "WHAT IS YOUR BANK'S FEE FOR EACH CHECK";C
140 PRINT:INPUT "PLEASE ENTER YOUR STARTING BALANCE";B
150 PRINT STRING$(75,"-")
160 PRINT:INPUT "NEXT ENTRY";A$
170 A=VAL(A$)
180 IF RIGHT$(A$,1)="D" THEN A=-A
190 IF A>0 THEN B=B-A-C
200 IF A<0 THEN B=B-A
210 PRINT,,"THE NEW BALANCE IS   $";B
220 GOTO 160