Washington Apple Pi Journal, July 1986

7,"JULY",8,"AUGUST',9,"SEPTEMBER",
lO,"OCTOBER",II,"NOVEMBER",12,
"DECEMBER"
1701 DATA 13
Finally, we print a slash to separate the month from the
date, put C into the current array variable, MO%(R), and make
sure that MI holds the value of C.
1932 IF NOT D 1 THEN 1935
1933 HfAB 1: VTAB 24: PRINT "HIT
FOR ";01;" (DEFAULn";: CALL - 868
1935 1'$ = '''':E$ = "It: HfAB 12: VTAB L%:
PRINT "?";: GOSUB 25
1936 GET E$: IF E$ = CHR$ (13) THEN 1941
1937 1'$ = 1'$ + E$: PRINT E$;: IF E$ =
CHR$ (8) AND LEN (1'$) =1 THEN 1916
1938 GOSUB 5
1939 GOTO 1936
1941 C = VAL (1'$): IF LEN (1'$) = 0 THEN
C=Dl
1942 HfAB 12: GOSUB 25: IF C < lOR
C > 31 THEN 1935
1943 T% = 13: GOSUB 50:DT%(R) =C:01 =C
The routine for entering the date is pretty much the same
idea If this is our frrst time through, we don't have a default
value for the date, so we can jump directly to the input routine
at line 1935. (You may have noticed we set Dl equal to 0 in
line 1927 which we would only encounter if we were establishing
a new month for our record).
1945 T% = 14: GOSUB 26: GOSUB 30
1949 VTAB L%: HfAB T%: CALL - 958:
PRINT" ";1'$;: IF LEFTS (1'$,1) > <
"#" THEN 1955
1950 IF S2 THEN SI = SI - 1.
30 1'$ = "":E$ ="": PRINT "?";: IF LEN (Vl$)
> 0 THEN HfAB 1: VTAB 24: PRINT "illT
FOR " + Vl$ + "
(DEFAULn";: CALL - 868: HfAB 15:
VTAB L%: GOSUB 25
31 GET ES: IF ES = CHRS (13) THEN 36
32 1$ = 1$ + ES: PRINT ES;: IF ES = CHRS
(8) AND LEN (T$) = 1 THEN GOTO 1932
33 GOSUB 5
35 GOTO 31
36 IF LEN (1'$) = 0 THEN 1$ =Vl$
37 IF LEN (1'$) > 12 THEN 1$ = LEFTS (1'$,12)
38 VENS(R) = 1$:VIS =1'$:SG =I: IF
LEFI'$ (T$,I) = "#" THEN SG = - 1
39 RETURN
Next, we input the data for the "TO/FROM WHOM"
column. Here again we use the same principle as bcfore. The
only thing to notice here is that we restrict the lcngth of the
string to 12 characters, and we use the frrst character of this
field to indicate whether the item is income or expense. If it
is income, we use the "#" sign as the first character and make
SG equal to -1. We also decrement the check number by one
if we are automatically numbering the checks. This means, of
course, that the user will have to enter deposits before
withdrawals when using the automatic check numbering mode
so that the withdrawal will have the same check number as the
deposit
40
1955 T% = 30: HfAB T%: GOSUB 60:
HfAB T%: CALL - 958:T% = 32:AMT(R)
=C: GOSUB 70
60 1$ ="":ES ="": PRINT "?";: IF Q% =1
THEN CALL - 868
61 GET E$:1'$ =1'$ + E$: IF ES = CRRS (8)
AND LEN (1'$) =1 THEN GOTO 58
58 IF Q% < > 1 THEN CALL - l008:GOTO 60
59 GOTO 1945
62 PRINT E$;: GOSUB 5
64 IF E$ = CHRS (13) THEN C = VAL (1'$):
GOT066
65 GOTO 61
66 GOSUB 26: IF C < 0 THEN SG = - 1
67 C = ABS (C): IF C < 99999 THEN C =
C .. SG:SG = 1: RETURN
68 HfAB 1: VTAB 24: PRINT "CAN'T
ACCEPT A NUMBER THAT BIG";: VTAB
L%: HfAB T%: GOTO 60
70 IF C < 0 THEN SG =-1
71 IF SG =-1 THEN INVERSE :C = ABS (C):
GOSUB 72: RETURN
72 X =C:C = !NT (C): GOSUB 50
75 1'$ ="." + RIGHTS (STRS (!NT «X +
1.0001) .. 1(0»,2)
77 PRINT1'$;
78 NORMAL:1'$ = STRS (C) + 1'$:C =
VAL (1'$)" SG:SG = 1: RETURN
HOW MUCH?
Now for the AMOUNT column. After setting up our tabs
we GOSUB 60 which is the routine for INPUTing amounts.
IfQ%=I, that is, we are in the ENTER DATA mode, then we
clear the entire line from the cursor to the right. Then we go
to the GET routine. If the frrst character of 1'$ is a backspace,
then we GOTO 58. If we are in other than the ENTER
DATA mode, we just backspace and then go back to the GET
routine. Otherwise, the backspace takes us to the previous
field (TO/FROM WHOM, line 1945).
After hitting we set C to the VALue of 1$.
Then we test to make sure the number is not too large, and
then return to line 1955. After clearing the screen from the
cursor down, we reset the tab to prepare for right decimal
justification, set the array variable equal to C, and GOSUB
70.
The routine at 70 is the one we use to ensure that all our
dollar amounts are printed with two decimal places and with
the decimals aligned. First we see if the amount is negative.
If it is, we set SG equal to -1. If SG is -1 because of line 70,
or if it already was -1 because we set it this way because we
are dealing with a deposit, we print the number in inverse on
the screen. Now all we have to worry about is the absolute
value of C, that is, C without a plus or a minus sign, so we
do this with the substitution equation C =ABS (C). Next we
will be doing some operations on C, so we want to save its
value in the variable X. First we will just use the part of C
to the left of the decimal point, the INTeger of C. We will
right justify that part of the number by using the subroutine
at line 50.
Now let us look at line 75. Taking the substitution
equation for TS from the inside of the parentheses to the
contd.
July 1986 Washington Apple Pi