C-FOCAL	V1B(122)-1	1444	28-JUN-74

01.01	D 22.3;D 22.3;D 22.1;T !"**************  CHECK BALANCING PROGRAM  BY MIKE MITCHELL  *************";D 22.1;D 22.3
01.02	E
01.30	T !!"******** CHECK BALANCER PROGRAM *********"!!;A "DO YOU WANT DIRECTIONS? (Y=YES,CR=NO)",DIR;I (DIR-25)1.42,1.31,1.42;
01.31	T !!"ENTER THE PREVIOUS BALANCE WHEN IT ASKS FOR IT"!
01.35	T !"ENTER DEPOSITS AS POSITIVE NUMBERS  "!;T !"(DON'T INCLUDE THE '+' SIGN..)"
01.36	T !"ENTER CHECKS AS NEGATIVE NUMBERS "!
01.37	T !"HIT CARRIAGE RETURN FOR A SUMMARY "!
01.38	T !"INPUTTING A NEGATIVE CHECK NUMBER WILL LET YOU RE-ENTER"
01.39	T !" THAT ENTRY."!
01.42	A !!"IS EXTENDED SUMMARY DESIRED? (Y=YES)",EXT;I (EXT-25)1.45,1.43,1.45
01.43	I (DIR-25)1.45,1.44,1.45;C DIRECTIONS FOR SUMMARY?
01.44	D 23
01.45	S DT0T=0;S CTOT=0
01.46	S L=0;S TYPE(L)=0
01.49	A !!"DO YOU WANT A QUICK SUMMARY? (Y=YES)",QCK;D 22.3
01.50	S J=0;S K=0
01.60	S CK=0;S DP=0

02.01	A "ENTER YOUR PREVIOUS  BALANCE........",PBAL
02.05	S BAL=PBAL
02.10	A ENTRY;S L=L+1;I (ENTRY)5.05,8.1,6.05

05.02	C TYPE(L) TELLS IF A CK OR DEP (TYPE=1 MEANS CHECK)
05.03	CK IS TOTAL NUMBER OF CHECKS WRITTEN
05.04	C CH(J) IS CHECK AMOUNT,NUM(J) IS CHECK NUMBER
05.05	C CTOT IS CHECK TOTAL
05.07	S CTOT=CTOT+ENTRY
05.08	S CH(J)=ENTRY;S TYPE(L)=1;S NO(L)=J;D 20.1
05.09	A !"    CHECK #?  ",NUM(J);T !;I NUM(J)5.2;S J=J+1
05.10	S CK=CK+1;G 7.1
05.20	S L=L-1;G 2.1
05.30	C THIS HAPPENS WHEN WE INPUT A NEGATIVE CHECK NUMBER

06.01	C DEPOSITS ARE HANDLED HERE (TYPE=0).
06.05	S DE(K)=ENTRY
06.06	S DTOT=DTOT+ENTRY
06.07	S NO(L)=K
06.08	D 20.2
06.09	S K=K+1;S TYPE(L)=0;
06.10	S DP=DP+1;

07.10	S BAL=BAL+ENTRY
07.20	G 2.1

08.10	T !!!!
08.11	D 22.3;T !"--------------------------  SUMMARY  ------------------------------"!!
08.12	T %6.02
08.20	T !"OLD BALANCE    = ",PBAL
08.25	T !!"NEW BALANCE IS = ",BAL
08.26	T %4.0
08.30	T !!"NUMBER OF CHECKS WRITTEN WAS ",CK
08.40	T !!"--- ENTRY ------------CHECK #---------AMOUNT------"!
08.41	T !
08.50	F H=0,J-1;T %4.0;T H;T "              ";T NUM(H);T "            ";T %6.02;T CH(H);T !
08.51	T !!"TOTAL AMOUNT OF CHECKS WAS",CTOT;D 22.3
08.60	T !!"THE DEPOSITS THAT WERE MADE ARE:"!!
08.61	T !"--- ENTRY ------------------- AMOUNT --------"!;F H=0,K-1;T %4.0;T H;T "                        ";T %6.02;T DE(H)!
08.64	T !!"TOTAL AMOUNT OF DEPOSITS WRITTEN WAS ",DTOT;D 22.3
08.65	I (QCK-25)8.69,9.19;
08.69	D 22.3
08.70	T !"PLEASE VERIFY THE ABOVE:"!
08.75	A !"ARE ALL CHECKS CORRECT? (Y=YES,CR=NO)",ANS;
08.76	I (ANS-25)8.8,8.9;
08.80	A !"WHICH ENTRY IS WRONG?",ANS;A !"WHAT SHOULD THE CHECK NUMBER BE?",ANO;A !"WHAT SHOULD THE AMOUNT BE?",AMO
08.81	S CTOT=CTOT-CH(ANS)+AMO
08.85	S NUM(ANS)=ANO;S CH(ANS)=AMO;A !"ANY MORE? (Y 0R CR)",ANS;I (ANS-25)8.4,8.8,8.4
08.90	A !!"ARE ALL DEPOSITS CORRECT? (Y=YES,CR=NO)",ANS;
08.92	I (ANS-25)8.93,9.01;
08.93	A !"WHICH ENTRY IS WRONG?",ANS;A !"WHAT SHOULD THE AMOUNT OF DEPOSIT BE?",AMO
08.94	S DTOT=DTOT-DE(ANS)+AMO
08.95	S DE(ANS)=AMO;A !"ANY MORE? (Y OR CR)",ANS;I (ANS-25)8.6,8.8,8.6

09.01	D 22.3
09.02	S TBAL=PBAL;D 22.2;D 22.3
09.10	T !!"YOUR CHECKBOOK SHOULD LOOK LIKE THIS...."!!
09.11	T !!"CHECK NO.    DATE          AMOUNT OF CHECK       DEPOSIT        BALANCE"!!
09.12	D 22.1;T %8.02
09.13	T !!!!"                                                            ",PBAL!!
09.15	S N=L;S L=1
09.17	I (N-L)9.18,9.18,9.2
09.18	T !!"NEW BALANCE =",TBAL;D 22.3
09.19	I (EXT-25)9.25,28.1,9.25
09.20	I (TYPE(L))21.1,10.01,9.4
09.25	T !!!!"--------- END OF SUMMARY-----------"!!!;D 22.1;D 22.1;D 22.3;Q
09.40	S TBAL=TBAL+CH(NO(L));
09.41	T %4.0
09.50	T !,NUM(NO(L));
09.60	T "       ";
09.61	T %2.0
09.65	T MON(NO(L));
09.75	T DAY(NO(L));
09.80	T "      ";
09.81	T %6.02
09.85	T CH(NO(L));
09.86	T "                        "
09.87	T %8.02
09.88	T TBAL,!!
09.90	S L=L+1;G 9.17

10.01	C
10.05	S TBAL=TBAL+DE(NO(L))
10.10	C COMES HERE IF IT IS A DEPOSIT
10.13	T %2.0
10.15	T !"             ",MO(NO(L));
10.25	T DA(NO(L));
10.30	T "          ";
10.31	T %8.02;T "    "
10.35	T "          ";
10.40	T DE(NO(L))
10.45	T "    ",TBAL
10.46	T !!
10.50	S L=L+1;G 9.17

20.10	A "    DATE....MONTH?  ",MON(J);A "    DAY? ",DAY(J);T !;I (31-DAY(J))20.1;G 20.11
20.11	I (EXT-25)20.12,25.01;R
20.12	R
20.20	A "    DATE....MONTH?  ",MO(K);A "    DAY? ",DA(K);T !!;I (31-DA(K))20.2;R

21.10	T "ERROR.......HALT";Q

22.10	T "************************************************************************"
22.20	T"------------------------------------------------------------------"
22.30	T !!!!

23.01	D 22.3
23.10	T !"AN EXTENDED SUMMARY WILL ALLOW YOU TO CATEGORIZE YOUR EXPENSES."!
23.15	T !"WHEN INPUTTING A CHECK, IT WILL ALSO ASK FOR THE 'TYPE'"
23.20	T !"OF EXPENDITURE.  POSSIBLE TYPES ARE:";D 22.3
23.30	T !"AUTO(A), CASH(C), DOCTOR(D),ELECTRICITY(E), FOOD(F),GAS(G)"!
23.40	T !"HORSE(H),INSURANCE(I),JUNK(J),MOTORCYCLE(M),OIL(O),REGISTRY(R)"!
23.50	T !"SAVINGS(S),TELEPHONE(T),XTRAS(X)"!
23.51	T !!"SIMPLY INSERT THE LETTER OF THE TYPE WHEN IT ASKS FOR IT"
23.55	T !"TO UPDATE EACH CATEGORY.."!;D 22.3

25.01	A "    TYPE?",ETY;T !!;I (ETY-13)26.07,27.13,26.2;C USE BIN SEARCH 

26.01	I (ETY-1)27.05,27.01;
26.02	I (ETY-2)26.01,27.02,27.03;C A?
26.03	I (ETY-3)26.02,27.03,27.04
26.05	I (ETY-5)26.03,27.05,27.06;C E?
26.07	I (ETY-7)26.05,27.07,26.09;C G
26.09	I (ETY-9)27.08,27.09,26.1;C I?
26.10	I (ETY-11)27.1,27.11,27.12
26.12	G 27.12;C I?
26.14	I (ETY-14)27.13,27.14,27.15;C N?
26.16	I (ETY-16)26.14,27.16,26.18;C P?
26.18	I (ETY-18)27.17,27.18,27.19;C R?
26.20	I (ETY-20)26.16,27.2,26.23;C T?
26.21	I (ETY-21)26.3,27.21,27.22;C U?
26.23	I (ETY-23)26.21,27.23,26.25;C W?
26.25	I (ETY-25)27.24,27.25,27.26;C Y?
26.30	G 25.01;C ERROR, ASK IT AGAIN...

27.01	S ATTL=ATTL+ENTRY
27.02	S BTTL=BTTL+ENTRY
27.03	S CTTL=CTTL+ENTRY
27.04	S DTTL=DTTL+ENTRY
27.05	S ETTL=ETTL+ENTRY
27.06	S FTTL=FTTL+ENTRY
27.07	S GTTL=GTTL+ENTRY
27.08	S HTTL=HTTL+ENTRY
27.09	S ITTL=ITTL+ENTRY
27.10	S JTTL=JTTL+ENTRY
27.11	S KTTL=KTTL+ENTRY
27.12	S LTTL=LTTL+ENTRY
27.13	S MTTL=MTTL+ENTRY
27.14	S NTTL=NTTL+ENTRY
27.15	S OTTL=OTTL+ENTRY
27.16	S PTTL=PTTL+ENTRY
27.17	S QTTL=QTTL+ENTRY
27.18	S RTTL=RTTL+ENTRY
27.19	S STTL=STTL+ENTRY
27.20	S TTTL=TTTL+ENTRY
27.21	S UTTL=UTTL+ENTRY
27.22	S VTTL=VTTL+ENTRY
27.23	S WTTL=WTTL+ENTRY
27.24	S XTTL=XTTL+ENTRY
27.25	S YTTL=YTTL+ENTRY
27.26	S ZTTL=ZTTL+ENTRY

28.10	D 22.3;D 22.2;T !"------------ EXTENDED SUMMARY ------------------------------------";T !;D 22.2;T !!
28.12	T !"--- TYPE ------- TOTAL AMOUNT -----"!!!
28.20	T !"AUTO         ",ATTL
28.21	T !"BUILDING     ",BTTL
28.25	T !"CASH         ",CTTL
28.30	T !"DOCTOR       ",DTTL
28.35	T !"ELECTRIC     ",ETTL
28.40	T !"FOOD         ",FTTL
28.45	T !"GAS          ",GTTL
28.50	T !"HOUSE        ",HTTL
28.55	T !"INSURANCE    ",ITTL
28.60	T !"JUNK         ",JTTL
28.65	T !"MOTORCYCLE   ",MTTL
28.70	T !"OIL          ",OTTL
28.75	T !"REGISTRY     ",RTTL
28.80	T !"SAVINGS      ",STTL
28.85	T !"TELEPHONE    ",TTTL
28.90	T !"XTRAS        ",XTTL
28.95	G 9.25