Balance your checkbook.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.
Gallery
Source Code
100 REM PROGRAM *"CHECKBOOK"* 101 PRINT " *STATEMENT OF ACCOUNT*" 102 LPRINT "STATEMENT OF ACCOUNT" 105 PRINT "STATEMENT DATE ": INPUT D$: PRINT D$ 110 LPRINT "STATEMENT DATE ";D$ 120 PRINT "ENTER BANK BALANCE ";: INPUT BALANCE: PRINT BALANCE 125 LPRINT "BANK BALANCE ";BALANCE 130 PRINT "ENTER EACH OUTSTANDING" 140 PRINT "CHECK NUMBER AND AMOUNT." 150 PRINT 160 PRINT "ENTER A ZERO FOR THE" 170 PRINT "CHECK NUMBER WHEN FINISHED." 180 PRINT 190 LET CTOTAL=0 200 PRINT "ENTER CHECK NUMBER ";: INPUT CHECK: PRINT CHECK 205 LPRINT "CHECK NUMBER. ";CHECK 210 IF CHECK=0 THEN GO TO 250 220 PRINT "ENTER CHECK AMOUNT ";: INPUT AMT: PRINT AMT 225 LPRINT "CHECK AMOUNT ";AMT 230 LET CTOTAL=CTOTAL+AMT 240 GO TO 200 250 PRINT "ENTER EACH OUTSTANDING" 260 PRINT "DEPOSIT AMOUNT." 270 PRINT 280 PRINT "ENTER A ZERO AMOUNT" 290 PRINT "WHEN FINISHED." 300 PRINT 310 LET DTOTAL=0 320 PRINT "DEPOSIT AMOUNT ";: INPUT DAMT: PRINT DAMT 325 LPRINT "DEPOSIT AMOUNT ";DAMT 330 IF DAMT=0 THEN GO TO 360 340 LET DTOTAL=DTOTAL+DAMT 350 GO TO 320 360 LET NBAL=BALANCE-CTOTAL+DTOTAL 365 LPRINT "NEW BALANCE ";NBAL 370 PRINT "NEW BALANCE= ";NBAL 380 PRINT "CHECKBOOK BALANCE ";: INPUT CBAL: PRINT CBAL 385 LPRINT "CHECKBOOK BALANCE ";CBAL 390 PRINT "CORRECTION= ";NBAL-CBAL 395 LPRINT "CORRECTION= ";NBAL-CBAL 400 PRINT "END"