6 CHEQUEBOOK FILE ANALYSIS PROGRAM BY P. PHILLIPS N~500A A(N),B(N),C(N),D$(N),E(N),CT(16),TT(16,16),MT(16),CTY$(16)  80-("CHEQUEBOOK PROGRAM BY P. PHILLIPS"::42 "ENTER FILENAME OR I FOR INSTRUCTIONS ";NAME$3 NAME$~"I" s 4000 60)4"PRESS ANY KEY TO CONTINUE":PAUSE~ 6 30<F"READING DATA FILE"P NAME$,FD$ZI~0[#FD$;YEAR \#FD$;NC!^ I~1 r NC:#FD$;CTY$(I): Id iI~It1$n#FD$;A(I),B(I),C(I),D$(I),E(I) D$(I)~"ZZ"#0 SC$~""80"CHEQUEBOOK PROGRAM"::"1 - LIST BY PAYEE":"2 - ANNUAL SUMMARY":""3 - CHECK BANK STATEMENT":"4 - SEE INSTRUCTIONS":" "ENTER OPTION NUMBER ";OPNO! OPNO 1000,2000,3000,4000)"PRESS ANY KEY TO CONTINUE":PAUSE~ 150 LIST BY PAYEE:"LIST BY PAYEE":  "ENTER PAYEE NAME ";NM$:"CHEQUES PAID TO ";NM$: SUMC~0I~0  79,14 I~It1 D$(I)}NM$ s 1080 $ A(I),B(I),C(I),D$(I),E(I)&SUMC~SUMCtC(I) (PAUSE~8 D$(I)~"ZZ":&<"TOTAL PAID TO ";NM$;" IS ";SUMCB ANNUAL SUMMARY  79,5  4,0  5,0 SC$}"" s SC$: 22528"ANNUAL SUMMARY FOR ";YEAR;" PLEASE WAIT" I~0:GT~08 MTH~1 r 12: CAT~1 r NC:TT(MTH,CAT)~0: CAT: MTH# I~1 r NC:MT(I)~0:CT(I)~0: IYR~YEARu1900 I~It1  (B(I)x10000)}YR s 2110 MNTH$~((B(I)),3,2)MTH~(MNTH$) CAT~E(I)*GT~GTtC(I)$4TT(MTH,CAT)~(TT(MTH,CAT)tC(I))> D$(I)~"ZZ"H CAT~1 r NC3R MTH~1 r 12:CT(CAT)~CT(CAT)tTT(MTH,CAT): MTH \ CATf MTH~1 r 123p CAT~1 r NC:MT(MTH)~MT(MTH)tTT(MTH,CAT): CAT z MTH|"CATEGORY ";"JAN ";" FEB ";" MAR ";" APR ";" MAY ";" JUN ";" JUL ";" AUG ";" SEP ";" OCT ";" NOV ";" DEC "; " TOTAL"  4,0 C~1 r NCqCTY$(C),TT(1,C),TT(2,C),TT(3,C),TT(4,C),TT(5,C),TT(6,C),TT(7,C),TT(8,C),TT(9,C),TT(10,C),TT(11,C),TT(12,C); " ";CT(C) C]"TOTAL... ",MT(1),MT(2),MT(3),MT(4),MT(5),MT(6),MT(7),MT(8),MT(9),MT(10),MT(11),MT(12);  5,0" ";(GT)SC$~(255)'"WANT TO PRINT SCREEN Y/N ";RESP$ RESP$~"Y" s #1;SC$:#0 CHECK BANK STATEMENT # "CHECK BANK STATEMENT":::" "ENTER BALANCE FORWARD ";BAL : "ENTER FIRST DATE. ";N1 "ENTER LAST DATE. ";N2 : CRT~0 ' "ENTER CREDIT-0 FOR LAST ONE ";CR CRT~CRTtCR  CR~0 : 0 SUMCD~0: I~0D F I~It1N B(I)N1 { B(I)}N2 s 3170X SUMCD~SUMCDtC(I)b D$(I)~"ZZ"l NBAL~BALuSUMCDtCRTv "NEW BALANCE IS ";NBAL  INSTRUCTIONS-"INSTRUCTIONS FOR CHEQUEBOOK PROGRAM":O"THE PROGRAM PROCESSES A FILE OF CHEQUEBOOK INFORMATION PREPARED USING A"G"STANDARD TEXT OR SCREEN EDITOR. THE FILE IS SET UP AS FOLLOWS -""LINE 1 - YEAR (eg 1987)"9"LINE 2 - NUMBER OF CATEGORIES, MUST NOT EXCEED 16"="LINE 3 - FIRST CATEGORY, MUST NOT EXCEED 8 CHARACTERS"""LINE 4 - NEXT CATEGORY ETC"S"LINE FOLLOWING LAST CATEGORY - CHEQUE NUMBER,DATE,AMOUNT,PAYEE,CATEGORY NO."$"SUBSEQUENT LINES - AS BEFORE""LAST LINE - 0,0,0,ZZ,0"2"AN EXAMPLE FILE IS ON DISC, NAMED EX.FIL":hz