Texas Instruments TI-99/4A - Page 178

Checkbook Balance
Once each month all of us have the opportunity to tackle
"bG\nncing"' our chcckbook~-; ul',"uinst our bank statement;,;.
Normally, the checkbook balance will not agree with the balance
shown on the bank statement because there are checks and
deposits that haven't c1c1:lITd yet. This progTam will help you
balance your checkbook quickly and easily.
These statements clear the screen and allow you to input the
balance shown on your bank statement.
These statements give instructions for entering your outstanding
check numbers and amounts, Note that DISPLAY and PRINT
can be used interchangeably,
This loop sets up the procedure for entering each check number
and amount. These values are stored in arrays. If the check number
equals zero, the program transfers out of the loop. CTOTAL is the
total
amount of outstanding checks. Each time a check amount is
input, the progl-am U-ansfers tu Jiue 190 lo illput allolher check
number and amount.
These statements give instructions for entering your outstanding
deposits.
This loop asks for and accepts each outstanding deposit amount. If
the deposit amount equals zero, the program tramifers out of the
loop.
DTOTAL is the total amount of outstanding deposits, After
each
outstanding deposit is added to the total, the program
transfers to line 310 to accept another deposit amount.
III·22
Examples:
>NEIoi
>100 REM CHECKBOOK BALANCE
>110 CALL CLEAR
>120 INPUT "BANK BALANCE? ":8
HANCE
>130
DISPLAY
"ENTER
EACH OUTS
ANDING"
>140
DISPLAY
"CHECK
NUMBER
AN
D AMOUNT.
"
>150
DISPLAY
>160
DISPLAY
"ENTER
A ZERO
FO
R
THE"
>170
DISPLAY
"CHECK NUMB ER
WH
EN
FINISHED.
"
>180
DISPLAY
>190 N=N+1
>200 INPUT "CHECK NUMBER? ":C
NUM(N)
>210 IF CNUM(N)=O THEN 250
>220
INPUT "CHECK AMOUNT? ":C
AMT(N)
>230 CTOTAL=CTOTAL+CAMT(N)
>240 GO TO 190
>250 DISPLAY "ENTER EACH OUTS
TANOING"
>260 DISPLAY "DEPOSIT AMOUNT.
>270 DISPLAY
>280 DISPLAY "ENTER A ZERO AM
OUNT"
>290 DISPLAY "WHEN FINISHED."
>300 DISPLAY
>310 M=M+1
>320 INPUT "DEPOSIT AMOUNT? "
,DAMT(M)
>330 IF DAMT(M)=O THEN 360
>340 DTDTAL=DTDTAL+DAMT(M)
>350 GOTO 310
User's Reference Guide