Checkbook

  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"