' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` * * * CHECK INQUIRY * * *"&4&1900:C%ZFR%[&:"N=NAME C=CATEGORY"&"D=DATE #=CHECK #"&"ENTER SELECTION CRITERIA:";SC$&(SC$)14030&SC$""4055&SC$"N"SC$"D"SC$"C"SC$"#"4030'"ENTY$%GXDESC$%L.%V"INPUT CORRECT?";Y$4%`:%jU% * * * * * * * * * * {%D$;"WRITE ";XFILE$;",B0,R";XPTR%%(TACT$","(TAMT)","TNAME$","TRANS$","TDAY$","XCODE$","XDESC$,53)%D$%%  * * * * * * * * * *%&O"3150*$\ C%XPTR%: HOLD IT TEMPORARILYM$f XPTR%C1%:3800: WRITE RECORDa$p XPTR%C%:C%C1%k$z 3150q$$ * * * * * * * * * *$$(1):958:$."ACT=";TACT$,"STORE=";TNAME$$8"CATEGORY=";ZCHARGE$((TRANS$))%B"AMT=";TAMT,"DATE:";TDA$# (Y$)0(Y$)3633301# Y$""TRAN$Y$H# "DATE=";TDAY$:Y$]#* Y$""TDAY$Y$u#4 "CODE=";XCODE$:Y$#> Y$""XCODE$Y$#@ "DESCRIPTION=";XDESC$:Y$#B Y$""XDESC$Y$#H 3620: CHECK TO SEE IF EVERY THING IS OK$R Y$"N"Y$"NODE$,XDESC$" D$" 3" "ACCOUNT=";TACT$:Y$M" Y$""TACT$(Y$,1)f" "AMOUNT=$";TAMT:Y$}" Y$""TAMT(Y$)" "STORE NAME=";TNAME$:Y$" Y$""TNAME$(Y$,12)" 7630: PRINT CATEGORYS" # "CATEGORY=";ZCHARGE$((TRAN$)):Y$ !S (Y$,1)"Y"P$"Y"İ10020:!X Y$"Y"Y$"YES"3060P!b Y$"CHANGE"3190V!l x!v :"ENTER RECORD NUMBER?";C1%! (C1%C%C1%C%18)SC$""3150! C1%0C1%XPTR%3150! D$;"READ ";XFILE$;",B0,R";C1% " TACT$,TAMT,TNAME$,TRAN$,TDAY$,XC))));TDAY$;3);XCODE;3);(XDESC$,37);40(XDESC$));"R";C%E + II1T , I183150 0 CZ%C%SC$""Ģ(23):(1):"CONTINUE SEARCH (Y/N)?";Y$:Y$"Y"ı 5 ZY$"F"C%C%1:3145 : C%C%1 I CZ%C%3064 J 3075!N D$;"PR#0":::"CONTINUE?";Y(TAMT)),(((TAMT100)))2,7):TAMT0QAMT$" 0.00"G( P$"Y"3114) (I):TACT$;3);(TNAME$,14);18);QAMT$;26);TRAN$;29);(TDAY$,5);35);XCODE$;37);"R";C%:3115; * :TTACT%;3);(TNAME$,20);25);QAMT$;3);(ZC$((TRAN$)),23);26(ZC$((TRAN$R";C%6 TACT$,TAMT,TNAME$,TRAN$,TDAY$,XCODE$,XDESC$> D$O SC$""3110r SC$"N"SD$(TNAME$,SL)3110 SC$"C"(SD$)(TRAN$)3110 SC$"D"SD$(TDAY$,SL)3110 SC$"A"SD$TACT$3110% 31206& QAMT$(" "(TAMT.005(SD$) SL0SC$""D "START A FRONT OR END OF FILE(F/E)?";ZY$h ZY$"F"ZY$"E"ZY$""3055z ZY$"F"C%1 PR%03060 10000 I1 (1):958 CZ%C%50:ZY$"F"CZ%C%50 C%0C%XPTR%ı D$;"READ ";XFILE$;",B0, 1800:C%XPTR%; :"N=NAME C=CATEGORY"_ "D=DATE A=ACCT ID" "ENTER SELECTION CRITERIA:";SC$ (SC$)13030 SC$""3055 SC$"N"SC$"D"SC$"C"SC$"A"3030 "ENTER SELECTION DATA:";SD$ SL";TAMT,"DUE=";BPAY$ 3 "INPUT CORRECT?";Y$9 Q Y$"NO"Y$"N"500[ 8300e 2000|T (LSTART%3):958^ ANUM%;"-";ACT$h "$";ADUE;15);AFLAG$;22);APAY$;31);"(";APTR%;")"r |   * * * CHARGE INQUIRY * * * NT ";ANUM%:2705 : "AMOUNT DUE $";BDUE;:(12):Y$Q Y$""BDUE(Y$)r "DATE DUE ";BDAY$;:(9):Y$ Y$""BDAY$Y$ "AMOUNT PAID $";BXAMT;:(13):Y$ Y$""BXAMT(Y$)  "ACT#=";ANUM%,"NAME=";ZACT$(1,ANUM%) "AMT= "INPUT CORRECT?";Y$/F Y$"N"Y$"NO"20009P 8100CZ 2000I i "INPUT RECORD NUMBER?";RN% RN%FR%RN%36ĺ(7);"ERROR, RECORD NUMBER OUT OF RANGE":2705 BREC%RN%:8200 BACT%ANUM%ĺ(7);"ERROR, RECORD IS NOT OWNED BY ACCOU Y$""ACT$Y$1 "ENTER AMMOUNT DUE:$";Y$H Y$""ADUE(Y$)g "ENTER ACCOUNT FLAGS:";Y$} Y$""AFLAG$Y$ "ENTER LAST BILL DUE DATE:";Y$ Y$""APAY$Y$ "ENTER REC # OF LAST BILL:";Y$( Y$""APTR%(Y$)2 2900<ӬϬϬìōԬϬԬϬ 6T500-6|"BALANCE DUE=$";ZACT$(3,ANUM%)L6"ENTER PAYMENT AMT:";TAMTm6TAMT(ZACT$(3,ANUM%))55506"VERIFY AMOUNT:";XAMT6XAMTTAMT55106XAMTTAMT6956066 * * * * * * * * * * *6680006ADUETAMT5690-7UM%TCHECK%=5BALANCE(BALANCE100.5):BALANCEBALANCE100^5"D$;"WRITE ";ZFILE$;",B0,R0"~5,ZFR%;",";BALANCE;",";CNUM%56D$;"CLOSE ";ZFILE$5;D$;"OPEN ";ZFILE$;",L60"5@(LSTART%2):958:6J" BALANCE=";BALANCE;20);"LAST CHECK#";CNUM%004BALANCEBALANCEXAMT44(LSTART%2):958:D4ZFR%ZFR%1i4D$;"WRITE ";ZFILE$;",B0,R";ZFR%4Y$"O":TCHECK%0Y$"C"4((TCHECK%)","(XAMT)","TNAME$","TRANS$","TDAY$","Y$","CDESC$,58)4D$ 5TCHECK%999TCHECK%0CNORY:";TRAN$!3x(TRAN$)365230?3}"ENTER COMMENTS?";CDESC$I34600a3Y$"N"Y$"NO"500t3ANUM%0İ56003TCHECK%0BALANCEBALANCEXAMT353503TCHECK%99993TRAN$"37"3"ENTER COMMENTS?";CDESC$346004Y$"NO"Y$"N"5(TNAME$)!22ANUM%NACTS%5176;24TNAME$ZACT$(1,ANUM%)E265500O275190[28ANUM%0{2<9520: GET AMOUNT AND DATE2F(TNAME$,7)"DEPOSIT"52902H(TNAME$,5)"WAGES"52902P"CHECK NUMBER:";TCHECK%2Z76302d 3n"ENTER PAYMENT CATEG1):"BALANCE=";BALANCE;20);"LAST CHECK#";CNUM%61j1"ENTER ACCOUNT NO, DEPOSIT, OR WAGES:":TNAME$v1ANUM%01TNAME$""51401 C%ZFR%:4030:50601(TNAME$)18TNAME$(TNAME$,18)1(TNAME$)251801#(TNAME$)05180 2(ANUM%;",B0,R0"!0ZFR%,BALANCE,CNUM%)0D$@0BALANCEBALANCEB1a0D$;"WRITE ";ZFILE$;",B0,R0"0ZFR%;",";BALANCE;",";CNUM%0$D$0.415000 PAYMENTS (CHECKS)001900: GET BALANCE ETC00(1):9580920001(LSTART%)"CK#=";TCHECK%H/"CODE=";(ZCHARGE$((TRAN$)),18);27);"DATE:";TDAY$g/ "AMT=$";TAMT,(CDESC$,20)m/*/4"INPUT CORRECT?";Y$/>/H//"ENTER BALANCE CHANGE (+/-):";B1/"VERIFY CHANGE:";B2/B1B24800 0D$;"READ ";ZFILE$TXAMT&.04600: CHECK TO SEE IF OK?.:Y$"N"Y$"NO"4150J.DC%C1%n.ND$;"WRITE ";ZFILE$;",B0,R";C1%.X((TCHECK%)","(XAMT)","TNAME$","TRANS$","TDAY$","TST$","CDESC$,58).bD$.l4150../ "NAME=";(TNAME$,25);31RYS -1-"CATEGORY=";ZCHARGE$((TRAN$)):Y$Y-Y$""((Y$)0(Y$)38)TRAN$Y$p-"DATE=";TDAY$:Y$-Y$""TDAY$Y$-"CODE=";TST$:Y$-Y$""TST$(Y$,1)-"DESCRIPTION=";CDESC$:" ?";Y$- Y$""CDESC$Y$.&TAMEAD ";ZFILE$;",B0,R";C1%I,TCHECK%,XAMT,TNAME$,TRAN$,TDAY$,TST$,CDESC$Q,D$m,"CHECK #=";TCHECK%:Y$,Y$""TCHECK%(Y$),"AMT=$";XAMT:Y$,Y$""XAMT(Y$),"NAME="TNAME$:Y$,Y$""TNAME$(Y$,15)-7630: PRINT CATEGO4075)+6D$;"PR#0":::"CONTINUE?";Y$H+;(Y$,1)"Y"P$"Y"İ10020b+@Y$"Y"Y$"YES"4060x+JY$"CHANGE"4200+TY$"BALANCE"4800+^+h:"ENTER RECORD NUMBER?";C1%+r(C1%C%C1%C%18)SC$""4150+wC1%0C1%ZFR%4150,|D$;"R3);TDAY$;3);(ZC$((TRAN$)),23);26(ZC$((TRAN$))));TST$;3);(CDESC$,37);40(CDESC$));"R";C%m*II1|*I194150*'CZ%C%SC$""Ģ(23):(1):"CONTINUE SEARCH (Y/N)?";Y$:Y$"Y"ı*+ZY$"F"C%C%1:4145*,C%C%1*1CZ%C%4070+2)(I)a)QAMT$(" "(XAMT.005(XAMT)),(((XAMT100)))2,7):XAMT0QAMT$" 0.00"r)P$"Y"4123)CHECK%;6);(TNAME$,11);18);QAMT$;26);(TDAY$,5);32);TRAN$;35);TST$;37);"R";C%)4125c*:CHECK%;6);(TNAME$,22);30);QAMT$;ı$(D$;"READ ";ZFILE$;",B0,R";C%T(CHECK%,XAMT,TNAME$,TRAN$,TDAY$,TST$,CDESC$\(D$m(SC$""4110(SC$"#"(SD$)CHECK%4110(SC$"N"SD$(TNAME$,SL)4110(SC$"C"(SD$)(TRAN$)4110(SC$"D"SD$(TDAY$,SL)4110( 4130ϬԬϬΠ٬ϬϬ$F.I15)F88);XV$(I);19);XV(I)?FBI:19);"------"oFL"TOTAL";10);XV(1)XV(2)XV(3)XV(4)XV(5)xF`500~FjF PRINT OUT CATALORYSFF(1):958FI118FJ01F(I):(J191)F" "G(I):(J"ERROR, REENTER:";TAMT,TACT$&E73200E280QED$,"WRITE ";XFILE$;",B0,R0"EXPTR%;",";XV(1);",";XV(2);",";XV(3);",";XV(4);",";XV(5)ED$;"CLOSE ";XFILE$ED$;"OPEN ";XFILE$;",L55"E(1):(1):958EE" ACCOUNT DUE"F00D"ENTER AMOUNT?";TAMT-DTAMT07400JD"ENTER CATEGORY?";TRAN$tD(TRANS$)1(TRANS$)36ĺ(7):7322D"ENTER COMMENTS?";XDESC$DXAMTXAMTTAMTDXAMT0ī7370D(TRANS$)367370DXCODE$"X"D7240DXAMTXAMTTAMTETACT$XV$(I)XV(I)XV(I)TAMT:7220,C I`C*"INVALID CHARGE ID, PLEASE ENTER:";TACT$:7180oC4XCODE$"O"}CCXAMTTAMTCHXPTR%XPTR%1CR3800: WRITE RECORDC\7400Cp"BREAKDOWN OF CHARGES(Y/N):";TRAN$CzTRAN$"N"7400DTRAN$""74 LISTED":7080(B"STORE NAME:";TNAME$DBTNAME$""TNAME$TACT$\BTRANS$(TRANS$,14)fB9520pB7625B"ENTER CATEGORY:";TRANS$B"ENTER COMMENTS?";XDESC$B3620: CHECK TO SEE IF EVERYTHING IS OKBY$"N"Y$"NO"500B I15%CAXAb CHARGE CARD ENTRY#Al/Av:18005AA"ENTER ACCOUNT(";XV$(1);",";XV$(2);",";XV$(3);",";XV$(4);",";XV$(5);"):";:TACT$ATACT$""7110AC%XPTR%:3030:7060AI15:TACT$XV$(I)7130AIB(7);"MUST BE ONE OF THE ID'S@$@"ACCT NAME: ";TNAME$9@TNAME$""ī6900c@"M=MONTHLY Q=QUARTLY Y=YEARLY"@"O=NO SCHEDUAL S=SEMI ANUAL"@"ENTER ACCOUNT TYPE:";AFLAG$@!AFLAG$"M"AFLAG$"Q"AFLAG$"Y"AFLAG$"S"AFLAG$"O"6920@&?"BDUEBDUEBXAMTU?,(I):" R";BREC%;7);BDAY$;16);BPAY$;26);BST$;33);"$";BDUE\?6Ik?@(2):(30)y?J"=";ADUE?T?^?(1):958?(LSTART%5)?"ACCT #=";ANUM%;10);;ZACT$(1,ANUM%);27);" DUE=$";ADUE?ZACT$(3,ANUM%)(ADUE)1):958>(2)/>"#";ANUM%;" NAME:";ACT$5>>>(4)l>" REC# DATE DUE/PAID STAT AMOUNT"|>BPTR%APTR%>I518>BPTR%06720>BREC%BPTR%>8200>BST$"O"BST$"OPEN">BST$"P"BST$"PAID">BST$"PART"6700BPAY$ =G%=L"INPUT CORRECT?";Y$+=QC=VY$"NO"Y$"N"500M=[8300W=`8400a=e8100=gTACT%0NACT%NACT%1:8400: WRITE WITH NEW NACT%=j6800=o500=d=n8000=x = ACCT STATEMENT, 6125 IF ACCT ALREADY READ=>(UEADUETAMT< BREC%FR%*<BPAY$TPAY$D<TPAY$""BPAY$APAY$k<(TPAY$)2BPAY$BPAY$(APAY$,6){<BDAY$BPAY$<$APAY$(BPAY$,8)<)BST$"O"<.FR%FR%1<3BXAMT0<8<="ACT#=";ANUM%,"NAME=";ZACT$(1,ANUM%)=B"AMT=";TAMT,"DUE=";CT%6115;(TPAY$)86045-;APAY$TPAY$?;ANUM%NACT%1K;APTR%0V;ADUE0f;ACT$TNAME$;ZACT$(1,ANUM%)ACT$:ZACT$(2,ANUM%)APAY$;6130;ANUM%TACT%;8000;;BACT%ANUM%;BPTR%APTR%;APTR%FR%;BDUETAMT <AD:R(:p9300:"ENTER ACCT NO:";TACT$=:uTACT$""ī6015M:z2030:6000`:TACT%(TACT$)s:TACT%0İ6900:TACT%NACT%6000:9520:TPAY$TDAY$:(TPAY$)86060:"REENTER DATE (MM/DD/YY):";TDAY$:6045;TACT%0TACT%NAAMTBXAMTTAMT9TAMT0.9BXAMTBDUE5920;9BST$"P"E95920`9TAMTTAMT(BDUEBXAMT){9 BXAMTBDUE:BPAY$TDAY$9BST$"P"9 8300: REWRITE REC9*TAMT.005575094APTR%XPTR%: RESTORE POINTER9>8100: REWRITE ACCOUNT REC:H6800 PAYMENT IS TO BE APPLIED :";BREC%?8BREC%FR%BREC%365785I88200_8BACT%ANUM%58108(7);"RECORD IS NOT FOR ACCOUNT NUMBER ";ANUM%8"ERROR, REENTER:";BREC%857708BST$"P"57908(BDUEBXAMT)TAMT58908BST$"PART"9BX٬ì̬ϬϬϬ¬ϬϬ(21)9914*V&Y$"0"Y$"9"ĺ(7):9902NV&ZI1TDAY$Y$(TDAY$,2):9909rV&ZI8TDAY$(TDAY$,7)Y$:9909V&TDAY$(TDAY$,ZI1)Y$(TDAY$,ZI1)V&ZIZI1:ZI3ZI6Y$"/":9907V&37,V:36,H:TDAY$;:36,HZI1:9901W&ZIZI1:ZI3ZI6HDAY$TDAY$:9555WU&:"ENTER TODAYS DATE:";:HDAY$" / / ":9900:HDAY$TDAY$:9555U&ZI1:TDAY$HDAY$:H(36):V(37):TDAY$;:36,H:37,V:TDAY$""ī9640U&ZI8Ĺ37,V:36,H:TDAY$;(7):U&Y$:Y$(13)ZI9:9901U&Y$(8)ZI19912 V&Y$;:9900 Tb%Tv%$T% GET DATE +T% =T%C9$"0"9750ET%D$WT%D$;"IN#";C9$iT%D$;"PR#";C9$tT%HDAY$T%D$;"IN#0"T%D$;"PR#0"T%HDAY$(HDAY$,5)"/80"T%:"TODAYS DATE FROM CLOCK IS ;"HDAY$U%"ENTER CORRECT DATE OR '':";:9900:(ZACT$(2,I),5)S$IS$!S$'S%CS&% GET AMOUNT AND DATE IS+%dS0%"ENTER AMOUNT: ";TAMTS:%"VERIFY AMOUNT:";XAMTSD%TAMT0XAMT0500SN%TAMTXAMT9520SS%TRANS$"B"9566SX%"TRANSACTION DATE:";:9900SZ%9570T^%"BILL DUE DATE:"ACT$(1,I);22);ZACT$(2,I);32);ZACT$(3,I)3R"$JJ1GR,$JLSTART%9280NR6$ITR@$ZRJ$iRT$(1):958qR^$K0zRh$J20Rr$I1NACT%R|$J19370R$J1:KK1R$9380R$J20R$R$(K):(J):IR$S$(K):(J2):(ZACT$(1,I),10);J13);E$;",R0,B0"QZ#FR%,NACTS%-Qd#NACT%09110! TOTAL FOR EACH CATEGORY-K@!3KC!SKH!D$;"READ ";ZFILE$;",B0,R0"kKR!ZFR%,BALANCE,CNUM%sK\!D$Kf!"PROCESSING CHECK FILE"Kk!I138Kp!CT(1,I)0:CT(2,I)0Kz!K!ZFR%0ī8690K!I1ZFR%K!D$;"READ ";ZFILE$;",B0,R";I+L!JD Jl $Jv WRITE BILL RECORD*J OJ D$;"WRITE ";FILE$;",B0,R";BREC%J BACT%;",";BPTR%;",";BDUE;",";BDAY$;",";BPAY$;",";BST$;",";BXAMTJ D$J J J WRITE RBN0J J D$;" WRITE ";FILE$;",R0,B0"J FR%;",";NACTS%J!D$K",B0,R";ANUM%IIANUM%;",";APTR%;",";ADUE;",";ACT$;",";AFLAG$;",";APAY$`ID$;"CLOSE ";FILE$~ID$;"OPEN ";FILE$;",L40"II I READ BILL RECORDI I& D$;"READ ";FILE$;",B0,R";BREC%I0 BACT%,BPTR%,BDUE,BDAY$,BPAY$,BST$,BXAMTJ: D$ԬϬύϬϬԬϬ΍K CATAGORY.MASTER"(<#"LOAD COMPLETE."8F#I1300:IL#D$;"RUN HELLO"L ", 7ZCHARGE$(35)"35 "P 8ZCHARGE$(36)"36 "q xD$;"UNLOCK CATAGORY.MASTER" D$;"OPEN CATAGORY.MASTER" D$;"WRITE CATAGORY.MASTER" @I136 ZCHARGE$(I)  (#D$;"CLOSE CATAGORY.MASTER"2#D$;"LOC "0 0ZCHARGE$(28)"28 "T 1ZCHARGE$(29)"29 "x 2ZCHARGE$(30)"30 " 3ZCHARGE$(31)"31 " 4ZCHARGE$(32)"32 " 5ZCHARGE$(33)"33 " 6ZCHARGE$(34)"34 INES"* (ZCHARGE$(20)"PIANO MAINTENANCE"F )ZCHARGE$(21)"GRINNELL"_ *ZCHARGE$(22)"GIFTS"| +ZCHARGE$(23)"VACATIONS" ,ZCHARGE$(24)"24 " -ZCHARGE$(25)"25 " .ZCHARGE$(26)"26 " /ZCHARGE$(27)"27 11)"11 INSURANCE "4 ZCHARGE$(12)"12 DENTIST"Z !ZCHARGE$(13)"13 BOOKS AND MUSIC"{ "ZCHARGE$(14)"14 EATING OUT" #ZCHARGE$(15)"15 APPLE" $ZCHARGE$(16)"HAIRCUTS" %ZCHARGE$(17)"CLUB" &ZCHARGE$(18)"NEWSPAPER" 'ZCHARGE$(19)"MAGAZHARGE$(04)"04 ENTERTAINMENT "C ZCHARGE$(05)"05 CLOTHES "c ZCHARGE$(06)"06 GROCERIES" ZCHARGE$(07)"07 CHARGE CARDPAYMENTS" ZCHARGE$(08)"08 RENT" ZCHARGE$(09)"09 CAR PAYMENTS " ZCHARGE$(10)"10 HOUSEHOLD EXP." ZCHARGE$(N  D$""ZCHARGE$(36)e(:"DO YOU WANT TO UPDATE THE CATEGORY MASTER FILE (Y/N)?";Y$x2(Y$,1)"N"ı<(Y$,1)"Y"40ZCHARGE$(01)"01 ELECTRICITY"ZCHARGE$(02)"02 TELEPHONE "ZCHARGE$(03)"03 GASOLINE" ZC   220 "$ d31);" (316) 688-1030 "* n0 x6 < B H N T Z ` f u D$;"PR#0" Dw  D$(4)2"NUMBER OF LABELS DESIRED?";NUMAD$;"PR#1"M#(24);]$I113::i%1657,0v(I1NUM220);(14);"HOME FINANCE SYSTEM";(15)<F31);"COMPUTER EXTENDERS"P31);" 2525 N. BLECKLEY " Z31);" WICHITA,KS 67٬ϬԬì̬ì" "0"( D$;"CLOSE CHARGE.";FILE$S (7);"FORMAT OF CHARGE FILE COMPLETE"d I12000:Iz (4);"RUN HELLO"*";FILE$ x"0,0,0"; zD$;"WRITE CHECK.";FILE$;",R0,B40"D |"0"a D$;"CLOSE CHECK.";FILE$ (7);"FORMAT OF CHECK FILE COMPLETE" D$;"OPEN CHARGE.";FILE$ D$;"WRITE CHARGE.";FILE$ "0,0,0,0,0,0" D$;"WRITE CHARGE.";FILE$;",R0,B40D$;"UNLOCK CHARGE.";FILE$: 2D$;"DELETE CHARGE.";FILE$E 7216,0a <D$;"OPEN BILL.";FILE$} FD$;"WRITE BILL.";FILE$ P"37,0" ZD$;"CLOSE BILL.";FILE$ _(7);"FORMAT OF BILL FILE COMPLETE" dD$;"OPEN CHECK.";FILE$ nD$;"WRITE CHECK.٠ŬѬԬ٬Ԭ٬٬Ӭ̬ӬЬЬϬЬЬЬE$;",B0,R0"4XPTR%,XV(1),XV(2),XV(3),XV(4),XV(5)<D$B&blD$;"READ ";ZFILE$;",B0,R0"zvZFR%,BALANCE,CNUM%D$ * * * BILL/ACCOUNT INQUIRY:9300:"ENTER ACCOUNT NUMBER?";ANUM%ANUM%0ANUM%NACT%2030 (K(V2))2012(V):(C),<BT013602FUPADUE(ADUE100):ADUEADUE100|Z(ACT$,10);C12);ADUE;C19);" "dnKK1xTTADUE}1900I(LSTART%1):" TOTAL=$";T;20);"BALANCE=$";BALANCE500 D$;"READ ";XFIL"S"MOMO6$AFLAG$"Q"MOMO38MO12MOMO12JMOBMO1410ZBREC%APTR%bL0mJ138200: GET LAST 3 BILLSBACT%ANUM%1310BTBTBDUELL1BPTR%01310BREC%BPTR% JADUEBTL(V(K2):CCCOUNTS HAVE BEEN DEFINED":1415CV"ENTER MONTH FOR BUDGET?";BMOR`I1NACT%[jBT0|tANUM%I:8000: GET ACCT REL~MO((APAY$,2))MOBMO1320 IF MO > BMO THEN 1410 AFLAG$"M"ADUE01320AFLAG$"M"MOMO1 AFLAG$ # BUDGET CODE)/91800H.(1):9588XV$(1);"=";XV(1);13);XV$(2);"=";XV(2);26);XV$(3);"=";XV(3)BXV$(4);"=";XV(4);13);XV$(5);"=";XV(5);26);"T=";XV(1)XV(2)XV(3)XV(4)XV(5)LT0:K8: QNACT%0ĺ"NO ADATE"(|21);"------";31);"------":1500HD$;"CLOSE ";FILE$^D$;"LOCK ";FILE$vD$;"CLOSE ";ZFILE$D$;"LOCK ";ZFILE$D$;"CLOSE ";XFILE$D$;"LOCK ";XFILE$D$34,0TRAN$"Q"ĀD$;"RUN HELLO" INQUIRE ON THE PAYMENT FILE">(" C - ENTER A CHARGE "h)" CI - INQUIRE ON THE CHARGE FILE"*" E - END, RETURN TO MENU"+" Q - QUIT, DON'T GO TO MENU"," ? - DISPLAYS THIS HELP MENU"." TOTALS - SUMMARY OF EXPENSES TO  216,0500% (1):958A!" HELP SCREEN"m":" FUNCTION DESCRIPTION":#" I - BUDGET SCREEN "$" B - ENTER A BILL%" BI - INQUIRE ON A ACCOUNT"&" P - ENTER A DEPOSIT OR PAYMENT"'" PI -ERR"700vTRAN$"C"ī70003{TRAN$"CI"İ3000GTRAN$"B"6000]TRAN$"BI"İ2000rTRAN$"P"ī5000TRAN$"PI"İ4000TRAN$"?"800TRAN$"I"1000TRAN$"TOTALS"İ8500500(LSTART%):(0)510 * * * X(37)@ 2);"B=BILL";18);"?=HELP SCREEN";34);"TOTALS"r 2);"C=CHARGE";18);"I=BUDGET ";34);"NOERR" 2);"P=PAYMENT/DEP";18);"E=END";34);"Q=QUIT" S(X):(24):TRANS$ XTRAN$"E"TRAN$"Q"ī900 bTRAN$"FREE"680lTRAN$"NO *"S "* C H E C K B O O K *" "* *" "* * * * * * * * * * * * * * E WALDREN *"   D$;"PR#0"::34,LSTART%: :"ENTER TRANSACTION CODE:": * *  ERR(222)) "ERR16360: ,ERR255500K 6ERR254370` @::(LSTART%1)o E(7),(7) J"ERROR ";ERR;", TRANSACTION TERMINATED." T ^500 h216,0 r (6) "* * * * * * * * * * * * * * * * * * * *"$ "* ZZ$ n s400 x78004 D$;"UNLOCK ";FILE$M D$;"UNLOCK ";XFILE$f D$;"UNLOCK ";ZFILE$ D$;"OPEN ";FILE$;",L40" D$;"OPEN ";ZFILE$;",L60" D$;"OPEN ";XFILE$;",L55" 9000 280 500   * * * ERROR ROUTINE * *TER LOCATION - MODIFY 10000 FOR PRINTER COMMANDS REQUIREDE D$(4)[ D$;"NOMON I,O,C"c :n 35,23} (LSTART%18 234,LSTART% 7 <YEAR$"/79" FZZZZ$"MASTER" PFILE$"BILL."ZZZZ$ ZXFILE$"CHARGE."ZZZZ$ dZFILE$"CHECK."ZZO( ZACT$(3,36),ZCHARGE$(37),CT(2,38). r LINES 15 TO 19 SHOULD BE MODIFIED DO REFLECT YOUR ENVIRONMENTx  .... CHARGE ACCOUNT ID'SXV$(1)"M":XV$(2)"V":XV$(3)"P":XV$(4)"S":XV$(5)"W"C9$"4": CLOCK LOCATION9 PR%1:PRINϬԬϬȠ٠ŬϬȠ٠ŬϬլϬӬϬլϬϬ ìϬz#???         حԠ؄̮ҠˮҠŮҠٮҠ ̮ҭנ ̠ԠƠӠ ح؄ؠؠؠŠŠ͠؄ؠ؄ؠҠӠ؄؄ؠ"Ϡ" Ҡ"ˠQРӠӠԠ ̠ŠӠĠ٠ŠӬجӬجͬԱϬԱ֬ԲϬЬԳϬԳӬԴϬ׬ԵϬԵͬԶϬ֬άϬЬԬϬЬŬϬӬάϬ׬άϬͬŬϬ֬άϬӬάϬ׬άϬͬάϬ֬άìЬάìӬάì׬٬ì׬ϬìЬ220 "$ d31);" (316) 688-1030 "* n0 x6 < B H N T Z ` f u D$;"PR#0" Dw  D$(4)2"NUMBER OF LABELS DESIRED?";NUMAD$;"PR#1"M#(24);]$I113::i%1657,0v(I1NUM220);(14);"HOME FINANCE SYSTEM";(15)<F31);"COMPUTER EXTENDERS"P31);" 2525 N. BLECKLEY " Z31);" WICHITA,KS 67ҍӍϠō̍ӍӍӍٍōҠōӍϠŠčȍٍŠōԠӠӍŠĠӍԍҠӠĠЮŠԍӠĠÍǠԍōӍ  ЬЬϬЬϬЬ  "  "  "  "  "  "  "  " "0"( D$;"CLOSE CHARGE.";FILE$S (7);"FORMAT OF CHARGE FILE COMPLETE"d I12000:Iz (4);"RUN HELLO"*";FILE$ x"0,0,0"; zD$;"WRITE CHECK.";FILE$;",R0,B40"D |"0"a D$;"CLOSE CHECK.";FILE$ (7);"FORMAT OF CHECK FILE COMPLETE" D$;"OPEN CHARGE.";FILE$ D$;"WRITE CHARGE.";FILE$ "0,0,0,0,0,0" D$;"WRITE CHARGE.";FILE$;",R0,B40D$;"UNLOCK CHARGE.";FILE$: 2D$;"DELETE CHARGE.";FILE$E 7216,0a <D$;"OPEN BILL.";FILE$} FD$;"WRITE BILL.";FILE$ P"37,0" ZD$;"CLOSE BILL.";FILE$ _(7);"FORMAT OF BILL FILE COMPLETE" dD$;"OPEN CHECK.";FILE$ nD$;"WRITE CHECK.|  D$(4)&FILE$"MASTER"X"DO YOU WANT TO FORMAT YOUR FILES (Y/N)?";Y$gY$"Y"24wY$"N"20}55D$;"UNLOCK BILL.";FILE$D$;"DELETE BILL.";FILE$#D$;"UNLOCK CHECK.";FILE$(D$;"DELETE CHECK.";FILE$ -   D$;"LOCK CATAGORY.MASTER"0<#"LOAD COMPLETE."@F#I1300:IT#D$;"RUN HELLO"L"RUN HELLO"GORY.MASTER"<#"LOAD COMPLETE."F#I1300:I#D$;"RUN HELLO"D4 "4 7ZCHARGE$(35)"35 "X 8ZCHARGE$(36)"36 "y xD$;"UNLOCK CATAGORY.MASTER" D$;"OPEN CATAGORY.MASTER" D$;"WRITE CATAGORY.MASTER" @I136 ZCHARGE$(I)  (#D$;"CLOSE CATAGORY.MASTER"2#GE$(27)"27 OTHER INCOME"> 0ZCHARGE$(28)"28 REIMBURSEMENTS"e 1ZCHARGE$(29)"29 TO BE REIMBURSED" 2ZCHARGE$(30)"30 CASH" 3ZCHARGE$(31)"31 " 4ZCHARGE$(32)"32 " 5ZCHARGE$(33)"33 " 6ZCHARGE$(34)"319)"19 MAGAZINES": (ZCHARGE$(20)"20 PIANO MAINTENANCE"Y )ZCHARGE$(21)"21 GRINNELL"u *ZCHARGE$(22)"22 GIFTS" +ZCHARGE$(23)"23 VACATIONS" ,ZCHARGE$(24)"24 MISCELLANEOUS" -ZCHARGE$(25)"25 SALARY" .ZCHARGE$(26)"26 FREELANCE" /ZCHAR(11)"11 INSURANCE "5 ZCHARGE$(12)"12 DENTIST"[ !ZCHARGE$(13)"13 BOOKS AND MUSIC"| "ZCHARGE$(14)"14 EATING OUT" #ZCHARGE$(15)"15 APPLE" $ZCHARGE$(16)"16 HAIRCUTS" %ZCHARGE$(17)"17 CLUB" &ZCHARGE$(18)"18 NEWSPAPER" 'ZCHARGE$(HARGE$(04)"04 ENTERTAINMENT "C ZCHARGE$(05)"05 CLOTHES "c ZCHARGE$(06)"06 GROCERIES" ZCHARGE$(07)"07 CHARGE CARD PAYMENTS" ZCHARGE$(08)"08 RENT" ZCHARGE$(09)"09 CAR PAYMENTS " ZCHARGE$(10)"10 HOUSEHOLD EXP." ZCHARGE$V  D$""ZCHARGE$(36)e(:"DO YOU WANT TO UPDATE THE CATEGORY MASTER FILE (Y/N)?";Y$x2(Y$,1)"N"ı<(Y$,1)"Y"40ZCHARGE$(01)"01 ELECTRICITY"ZCHARGE$(02)"02 TELEPHONE "ZCHARGE$(03)"03 GASOLINE" ZC36100 P0PXN19 D$;"WRITE ";OFILE$;",B0,R";Nk A$;",";PX;",";B$;",";C$;",";E$;",";F$;",";G$u NN1 Z36130 ZZ1 P06070 I D$;"WRITE ";OFILE$;",B0,R0" dN;",";AC% nD$;"CLOSE" xD$;"READ ";FILE$;",B0,R";I3 A$,BP%,B$,C$,E$,F$U D$;"WRITE ";OFILE$;",B0,R";I A$;",";N;",";B$;",";C$;",";E$;",";F$ PBP% AZ(A$)  * * * D$;"READ ";FILE$;",B0,R";P A$,P,B$,C$,E$,F$,G$ (A$)AZ6130 PX0 Z A$(7,500) B(3),B$(3)+D$"">ZZZZ$"MASTER"V(FILE$"BILL."ZZZZ$v2OFILE$"BILL."ZZZZ$"-NEW"D$;"OPEN ";FILE$;",L40"D$;"OPEN ";OFILE$;",L40"pD$;"READ ";FILE$;",B0,R0"zFR%,AC%N37I1AC%Z1    0);40);A$(I,6)A"OPTIONS:";20);"NEXT-NEXT PAGE"v"XXXX-RECORD NUMBER";20);"END -END PROCESSING""BACK-BACK ONE PAGE";20);"QUIT-ABORT PROCESS"--------------------------------"'~L * * * * * * * * * * * * * * * U(I)A$(I,2)(" "((A$(I,2)).005((A$(I,2)))),((((A$(I,2))100)))2,8)"R";A$(I,7);6);A$(I,1);8);A$(I,2);17);A$(I,5);26);A$(I,4);29);(A$(I,3),1EC%REC%1$.REC%0REC%FL%3700I8D$;"READ";FCHARGE$;",B0,R";REC%BA$(I,1),A$(I,2),A$(I,3),A$(I,4),A$(I,5),A$(I,6),A$(I,7)LA$(I,7)(REC%)VA$(I,6)CL$3620`3730jIl3705tA$(18,7)(FL%)yD$z(19)!{"-------T(2);",";XT(3);",";XT(4);",",XT(5)F D$;"WRITE ";FCHARGE$;",R0,B40"O FX%i D$;"CLOSE ";FCHARGE$ D$;"LOCK ";FCHARGE$ 100 * * * * * * * * * * * * * * *(1):958"REC ACT AMOUNT DATE ST STORE S"I318 $RS","W"f IFL%FR%8p D$;"READ ";FCHARGE$;",B0,R";I`z ACT$,AMT,NAME$,ZT$,DAY$,ST$,CDESC$s ST$"O"3520~ X15 XT$(X)ACT$XT(X)XT(X)AMT:3515 X FX%0FX%I I D$;"WRITE ";FCHARGE$;",B0,R0"" FR%;",";XT(1);",";XT$,CDESC$ D$$ AMT(A$(I,2))0 ST$"C"@% A$(I,6)ST$g* D$;"WRITE";FCHARGE$;",B0,R";TREC%4 ACT$;",";AMT;",";NAME$;",";ZT$;",";DAY$;",";ST$;",";CDESC$> D$H :3730:R 3140W FX%0\ X15:XT(X)0:XT$(X):::="M","V","P","3320> :"ERROR, FILE AMOUNT=$";A$(I,2);", ENTERED=$";TAMTe "ENTER 'A'CCEPT OR 'R'EENTER:";X$w X$"A"3140 "VERIFY AMOUNT:";XAMT XAMTTAMT3140 A$(I,2)(TAMT) D$;"READ";FCHARGE$;",B0,R";TREC%  ACT$,AMT,NAME$,ZT$,DAY$,SA$(3,7))(Y$)03200(v Y$"END"3420=w Y$"BACK"3140Wx REC%FL%REC%FR%1hy REC%REC%30z REC%FR%1REC%FR%1{ 3110 "ENTER AMOUNT :$";TAMT I318 Y$A$(I,7)3250 I 3140 TREC%(Y$) TAMT(A$(I,2)) ";FCHARGE$+ D$;"OPEN ";FCHARGE$;",L55"5 FL%1A CL$"O"P REC%FR%1k& REC%0REC%FL%İ3590u0 5000: 3150D N "ENTER REC# OF OPTION:";Y$X Y$"?"3120b Y$"NEXT"3110g Y$"QUIT"3550l (Y$)(A$(18,7))(Y$)(ARGE."TFILE$( D$;"UNLOCK ";FCHARGE$H D$;"OPEN ";FCHARGE$;",L55"j D$;"READ ";FCHARGE$;",R0,B0" FR%,XT(1),XT(2),XT(3),XT(4),XT(5) 3080 D$;"READ ";FCHARGE$;",R0,B40" FL%0:FL% D$ 216,0 FL%03090  D$;"CLOSE,2)).005((A$(I,2)))),((((A$(I,2))100)))2,8){A$(I,7);5);A$(I,1);10);A$(I,2);19);(A$(I,3),12);33);A$(I,5) * * * * * * * * * * * * * * *  * PROCESS CHARGE * * * * * * * * * * * * * * * *  FCHARGE$"CHI,1),A$(I,2),A$(I,3),A$(I,4),A$(I,5),A$(I,6),A$(I,7)HA$(I,7)(REC%)_A$(I,6)CL$1680i1790pIz1770A$(18,7)"0000"D$(19)"---------------------------------------"(I)5A$(I,2)(" "((A$(IEMENT BALANCE =$";TBAL^100Dh * * * * * * * * * * * * * * * Sr(1):958|"REC% CKNO AMT NAME DATE"I318REC%REC%1REC%01765REC%FL%A$(18,7)(FL%):1770D$;"READ ";FCHECK$;",B0,R";REC%4A$(T$"O"1580<(ACT$,7)"DEPOSIT"(ACT$,5)"WAGES"1570NTBALTBALAMTX1575j"TBALTBALAMT{'FX%0FX%I,I-D$;"WRITE ";FCHECK$;",R0,B40".FX%6D$;"CLOSE ";FCHECK$@D$;"LOCK ";FCHECK$J(1):958T(15):"STAT@CKNO%;",";AMT;",";ACT$;",";ZT$;",";DAY$;",";ST$;",";CDESC$HD$V:1790:`1140 * * * * CHECK BALANCE * * * * TBALBALANCEFX%0IFL%FR%D$;"READ ";FCHECK$;",B0,R";ICKNO%,AMT,ACT$,ZT$,DAY$,ST$,CDESC$ S <X$"A"1140- F"VERIFY AMOUNT:";XAMTB PTAMTXAMT1320V ZA$(I,2)(TAMT){ dD$;"READ";FCHECK$;",B0,R";TREC% nCKNO%,AMT,ACT$,ZT$,DAY$,ST$,CDESC$ xD$ AMT(A$(I,2)) ST$"C" A$(I,6)ST$D$;"WRITE";FCHECK$;",B0,R";TREC%R%1REC%FR%1 1110) TREC%(Y$)I "ENTER CHECK AMOUNT:";TAMTU I318j Y$A$(I,7)1310q I{ 1140 TAMT(A$(I,2))1380 (:"ENTERED AMT=$ ";TAMT:"FILE AMT=$";A$(I,2) 2"'A'CCEPT ENTERED AMT OR 'R'EENTER:";X$50 t( ~"ENTER REC# OF OPTION:";Y$9 Y$"?"1120M Y$"NEXT"1110` Y$"END"1490t Y$"BACK"1220 Y$"QUIT"1590 (Y$)(A$(18,7))(Y$)(A$(3,7))(Y$)01250 1140 REC%FL%REC%FR%1 REC%REC%30 REC%FECK$;",R0,B0" .FR%,BALANCE) /1080K 0D$;"READ ";FCHECK$;",R0,B40"Z 1PL%0:FL%b 8D$m 9216,0} ;FL%01090 <FL%1 >D$;"CLOSE ";FCHECK$ ?D$;"OPEN ";FCHECK$;",L60" BCL$"O" LREC%FR%1 VREC%FL%İ1650 `5000 j11"100  D$;"RUN HELLO"% K  * * * * * * * * * * * * * * * *q  * PROCESS CHECK *  * * * * * * * * * * * * * * * * FCHECK$"CHECK."TFILE$ D$;"UNLOCK ";FCHECK$ D$;"OPEN ";FCHECK$;",L60" $D$;"READ ";FCH TFILE$"MASTER":CL$"O"-D$(4):D$C34,19:(1):958Q(A$(18,7)g2D$;"NOMON I,O,C"|F ONERR GOTO 100d:"**** STATEMENT PROCESS ****"n"ENTER 'C' FOR CHARGE OR 'P' FOR CHECK:";Y$xY$"C"3000Y$"P"1000 Y$"E       6,K)"O"9040Q2#YR((((A$(5,K),2))12((A$(5,K),2)))31((A$(5,K),4,2)))d<#YRYEAR9040xF#KK1:K1K1~P#$F#KK1:K1K1P#9040F#KK1:K1K1P#";A$(6,K)`KI1nA$(1,K);",";A$(2,K);",";A$(3,K);",";A$(4,K);",";A$(5,K);",";A$(6,K);",";A$(7,K)t@O3$HENJJ1ITA$(1,J)"":A$(2,J)"":A$(3,J)"":A$(4,J)"":A$(5,J)"":A$(6,J)"":A$(7,J)""^hX(0)r (#A$(D$;"CLOSE ";FILE$;".";NW$$.XKK1cbA$(1,K),A$(2,K),A$(3,K),A$(4,K),A$(5,K),A$(6,K)ilsKK1A$(1,K),A$(2,K),A$(3,K),A$(4,K),A$(5,K),A$(6,K),A$(7,K)LKI1 VA$(1,K);",";A$(2,K);",";A$(3,K);",";A$(4,K);",";A$(5,K);",;NW$;",L40"J(A$(2,1))DD$;"WRITE ";FILE$;".";NW$;",B0,R0"]A$(1,1);",";A$(2,1)hI1JD$;"WRITE ";FILE$;".";NW$;",B0,R";I7500IJ(A$(1,1))I37JD$;"WRITE ";FILE$;".";NW$;",B0,R";I7600I 7000I# J(A$(1,1))1,K378I37JXD$;"READ ";FILE$;",B0,R";Ib(7100i2I<D$;"CLOSE ";FILE$FPZ"SAVING BILL/ACCT FILE TO DISK"dx"FILE BEING SAVED AS '";FILE$;".";NW$;"'" D$;"OPEN ";FILE$;"."D$;"CLOSE ";ZFILE$;".";NW$") Q"LOADING BILL/ACCT FILE FROM DISK"WiA$(7,1)FILE$D$;"OPEN ";FILE$;",L40"D$;"READ ";FILE$;",B0,R0"A$(1,1),A$(2,1)J(A$(2,1))I1JD$;"READ ";FILE$;",B0,R";IKI2h"FILE BEING SAVED AS '";ZFILE$;".";NW$;"'"W|D$;"OPEN ";ZFILE$;"."NW$;",L60"D$;"WRITE ";ZFILE$;".";NW$;",B0,R0"A$(1,1);",";A$(2,1);",";A$(3,1)J(A$(1,1))I1JD$;"WRITE ";ZFILE$;".";NW$;",B0,R";I7600IFILE$;",B0,R0"+A$(1,1),A$(2,1),A$(3,1)>A$(7,1)ZFILE$OJ(A$(1,1))WK1bI1JD$;"READ ";ZFILE$;",B0,R";I7100Xİ9000"I,XA$(1,1)(K1)6D$;"CLOSE ";ZFILE$@JT"SAVING CHECK FILE TO DISK"^,L55" J(A$(1,1))! I0JK D$;"WRITE ";XFILE$;".";NW$;",B0,R";I` I0İ7500:3280j 7600q I D$;"CLOSE ";XFILE$;".";NW$ D$  "LOADING CHECK FILE FROM DISK"D$;"OPEN ";ZFILE$;",L60"D$;"READ ";ZLE$  I1J/  D$;"READ ";XFILE$;",B0,R";I9 & 7100F 0 Xİ9000M : Ic D XA$(1,1)(K1){ N D$;"CLOSE ";XFILE$ X b l "SAVING CHARGE FILE TO DISK" v "FILE BEING SAVED AS '";XFILE$;".";NW$;"'" D$;"OPEN ";XFILE$;".";NW$;"EADY";Y$ |IX5200,4170,3170) 80101 IXX "COPY/BACKUP COMPLETE, THANK YOU"^ d "LOADING CHARGE FILE FROM DISK" D$;"OPEN ";XFILE$;",L55" D$;"READ ";XFILE$;",B0,R0" K0 7000 J(A$(1,1))  A$(7,1)XFIO3$"P"B(2)1% O3$"C"B(3)17 O3$"A"300P "B(1)1:B(2)1:B(3)1\ ,IX13m @B(IX)0400s J T"* * * * * * ";B$(IX);" * * * * * * " ^"ENTER WHEN INPUT DISK IS READY";Y$ hIX5000,4000,3000 r"ENTER WHEN OUTPUT DISK IS R((YEAR$,2))12((YEAR$,2)))31((YEAR$,3,2))): X1c O3$"B"O3$"P"O3$"C"O3$"A"220l 130 V(37):(V):"FILE ID=";O3$;39);" " B(1)0:B(2)0:B(3)0 B$(1)"BILL/ACCT":B$(2)" CHECK ":B$(3)" CHARGE " O3$"B"B(1)1 xNW$""NW$"BACKUP"H "'B'ILL, 'P'(CHECK), 'C'HARGE OR 'A'LL?";O3$Y O3$"B"200 "COPY 'A'LL OF THE FILE OR STARTING AT THE DATE 'MMDDYY'?";YEAR$ YEAR$"A"200 (YEAR$)6ĺ(7);"ENTER STARTING DATE AS 'MMDDYY'":1502 YEAR((A SIZ%((0)80):::"MAX RECORDS=";SIZ%:A$(7,SIZ%):34,20LA(37)\B(3),B$(3)b(m2D$""<ZZZZ$"MASTER"FFILE$"BILL."ZZZZ$PXFILE$"CHARGE."ZZZZ$ZZFILE$"CHECK."ZZZZ$dn"ENTER TODAY'S DATE (MM/DD/YY):";NW$      3ZI6ZIZI1W&9910"W&9909SW'"PRINT HARDCOPY?";Y$:Y$"Y"Y$"YES"10020`W'P$"N":yW$'D$;"PR#";PR%:P$"Y"W.'(31):33,33:1657,0: SSM AIO W8'V&Y$(21)99141V&Y$"0"Y$"9"ĺ(7):9902UV&ZI1TDAY$Y$(TDAY$,2):9909yV&ZI8TDAY$(TDAY$,7)Y$:9909V&TDAY$(TDAY$,ZI1)Y$(TDAY$,ZI1)V&ZIZI1:ZI3ZI6Y$"/":9907V&37,V:36,H:TDAY$;:36,HZI1:9901W&ZIZI1:ZI:9900:HDAY$TDAY$:9555^U&:"ENTER TODAYS DATE:";:HDAY$" / / ":9900:HDAY$TDAY$:9555U&ZI1:TDAY$HDAY$:H(36):V(37):TDAY$;:36,H:37,V:TDAY$""ī9640U&ZI8Ĺ37,V:36,H:TDAY$;(7):U&Y$:Y$(13)ZI9:9901U&Y$(8)ZI19912 DATE:";:9900Tb%Tv%+T% GET DATE 2T% DT%C9$"0"9750LT%D$^T%D$;"IN#";C9$pT%D$;"PR#";C9${T%HDAY$T%D$;"IN#0"T%D$;"PR#0"T%HDAY$(HDAY$,5)"/80"T%:"TODAYS DATE FROM CLOCK IS ;"HDAY$U%"ENTER CORRECT DATE OR '':";J13);(ZACT$(2,I),5)S$I"S$(S$.S%JS&% GET AMOUNT AND DATE PS+%kS0%"ENTER AMOUNT: ";TAMTS:%"VERIFY AMOUNT:";XAMTSD%TAMT0XAMT0500SN%TAMTXAMT9520SS%TRANS$"B"9566SX%"TRANSACTION DATE:";:9900SZ%9570T^%"BILL DUE(3):ZACT$(1,I);22);ZACT$(2,I);32);ZACT$(3,I):R"$JJ1NR,$JLSTART%9280UR6$I[R@$aRJ$pRT$(1):958xR^$K0Rh$J20Rr$I1NACT%R|$J19370R$J1:KK1R$9380R$J20R$R$(K):(J):IR$S$(K):(J2):(ZACT$(1,I),10);D ";FILE$;",R0,B0""QZ#FR%,NACTS%4Qd#NACT%09110CQn#I1NACT%cQx#D$;"READ ";FILE$;",B0,R";IQ#ANUM%,AREC%,ZACT$(3,I),ZACT$(1,I),AFLAG$,ZACT$(2,I)Q#IQ#D$Q#Q#J1Q#I1NACT%Q$(ZACT$(3,I)).0019270Q$:(J):I:0R$(J):5);"------";34);"------":0P"22);T1;32);T2YP""OTHER";25);CT(1,37);34);CT(2,37)P""DEPOSIT";25);CT(1,38);34);CT(2,38)P"Y$P'#P(#P2# READ RECORD 0 ANDP<# ACCOUNT RECSPF# PK#"LOADING INTERNAL TABLES ..."QP#D$;"REA)),(((CT(1,I)100)))2,9):CT(1,I)0C1$" 0.00"O"C2$(" "(CT(2,I).005(CT(2,I))),(((CT(2,I)100)))2,9):CT(2,I)0C2$" 0.00"O"(ZCHARGE$(I),20);21);C1$;31);C2$O"T1T1CT(1,I):T2T2CT(2,I)O"LL1O"P"210:T20;Nj"" -- CATEGORY -- ";25);"CHECK";34);"CHARGE"CNo"L1ONt"I136mN~"CT(1,I)0CT(2,I)08890|N"L178880N"25);"------";34);"------"N"25);T1;34);T2N"Y$N"(2):958N"L08O"C1$(" "(CT(1,I).005(CT(1,I);XFILE$;",B0,R";IBM$"TACT$,TAMT,TNAME$,TRAN$,TDAY$,XCODE$,XDESC$QM."J(TRAN$)dM3"J0J36J37yM5"XCODE$"X"8763M8"CT(2,J)CT(2,J)TAMTM9"JHJ:8770M;"CT(2,J)CT(2,J)TAMT:JH0JH37CT(2,JH)CT(2,JH)TAMTMB"ML"D$M`"(1):958Ne"T;I2L!CHECK%,XAMT,TNAME$,TRAN$,TDAY$,TST$,CDESC$AL!J(TRAN$)TL!J0J36J37L!(TNAME$,7)"DEPOSIT"(TNAME$,5)"WAGES"J38L!CT(1,J)CT(1,J)XAMTL!L!"PROCESSING CHARGE FILE"L!1800L"XPTR%08780L"I1XPTR%M"D$;"READ "!D$ K !K4!.K>! TOTAL FOR EACH CATEGORY4K@!:KC!ZKH!D$;"READ ";ZFILE$;",B0,R0"rKR!ZFR%,BALANCE,CNUM%zK\!D$Kf!"PROCESSING CHECK FILE"Kk!I138Kp!CT(1,I)0:CT(2,I)0Kz!K!ZFR%0ī8690K!I1ZFR%L!D$;"READ ";ZFILE$;",B0,R"J: D$ JD Jl +Jv WRITE BILL RECORD1J VJ D$;"WRITE ";FILE$;",B0,R";BREC%J BACT%;",";BPTR%;",";BDUE;",";BDAY$;",";BPAY$;",";BST$;",";BXAMTJ D$J J J WRITE RBN0J J D$;" WRITE ";FILE$;",R0,B0"J FR%;",";NACTS%K;FILE$;",B0,R";ANUM%PIANUM%;",";APTR%;",";ADUE;",";ACT$;",";AFLAG$;",";APAY$gID$;"CLOSE ";FILE$ID$;"OPEN ";FILE$;",L40"II I READ BILL RECORDI I& D$;"READ ";FILE$;",B0,R";BREC%I0 BACT%,BPTR%,BDUE,BDAY$,BPAY$,BST$,BXAMTHD$%HZCHARGE$(37)"37 DEPOSIT"+H1H@LHJ READ ACCOUNT RECORDRHTvH^D$;"READ ";FILE$;",B0,R";ANUM%HhAXUM%,APTR%,ADUE,ACT$,AFLAG$,APAY$HrD$H|HH WRITE ACCOUNT RECORDHHZACT$(3,ANUM%)(ADUE)ID$;"WRITE "(I):(J191)(GZCHARGE$((I1)2J1)/G J6GI(1):958>(2)6>"#";ANUM%;" NAME:";ACT$<>E>(4)s>" REC# DATE DUE/PAID STAT AMOUNT">BPTR%APTR%>I518>BPTR%06720>BREC%BPTR%>8200>BST$"O"BST$"OPEN">BST$"P"BST$"PAID"?BST$"PART"DUE=";BPAY$=G,=L"INPUT CORRECT?";Y$2=QJ=VY$"NO"Y$"N"500T=[8300^=`8400h=e8100=gTACT%0NACT%NACT%1:8400: WRITE WITH NEW NACT%=j6800=o500=d=n8000=x = ACCT STATEMENT, 6125 IF ACCT ALREADY READ><ADUEADUETAMT!< BREC%FR%1<BPAY$TPAY$K<TPAY$""BPAY$APAY$r<(TPAY$)2BPAY$BPAY$(APAY$,6)<BDAY$BPAY$<$APAY$(BPAY$,8)<)BST$"O"<.FR%FR%1<3BXAMT0<8<="ACT#=";ANUM%,"NAME=";ZACT$(1,ANUM%) =B"AMT=";TAMT,CT%NACT%6115$;(TPAY$)860454;APAY$TPAY$F;ANUM%NACT%1R;APTR%0];ADUE0m;ACT$TNAME$;ZACT$(1,ANUM%)ACT$:ZACT$(2,ANUM%)APAY$;6130;ANUM%TACT%;8000;;BACT%ANUM%;BPTR%APTR%;APTR%FR%<BDUETAMTH6800 :R/:p9300:"ENTER ACCT NO:";TACT$D:uTACT$""ī6015T:z2030:6000g:TACT%(TACT$)z:TACT%0İ6900:TACT%NACT%6000:9520:TPAY$TDAY$:(TPAY$)86060:"REENTER DATE (MM/DD/YY):";TDAY$:6045;TACT%0TA9BXAMTBXAMTTAMT 9TAMT059BXAMTBDUE5920B9BST$"P"L95920g9TAMTTAMT(BDUEBXAMT)9 BXAMTBDUE:BPAY$TDAY$9BST$"P"9 8300: REWRITE REC9*TAMT.005575094APTR%XPTR%: RESTORE POINTER9>8100: REWRITE ACCOUNT REC:ICH THE PAYMENT IS TO BE APPLIED :";BREC%F8BREC%FR%BREC%365785P88200f8BACT%ANUM%58108(7);"RECORD IS NOT FOR ACCOUNT NUMBER ";ANUM%8"ERROR, REENTER:";BREC%857708BST$"P"57908(BDUEBXAMT)TAMT58909BST$"PART"69047"ERROR, PAYMENT EXCEEDS AMOUNT DUE ACCOUNT"M7"INPUT CORRECT?";Y$f7&Y$"N"Y$"NO"5600w70ADUE0:57007:ADUEADUETAMT7DBREC%APTR%7NXPTR%APTR%7X82007bTAMT(BDUEBXAMT)58107lAPTR%XPTR%:6550)8v"ENTER BILL NO TO WH";CNUM%6T50046|"BALANCE DUE=$";ZACT$(3,ANUM%)S6"ENTER PAYMENT AMT:";TAMTt6TAMT(ZACT$(3,ANUM%))55506"VERIFY AMOUNT:";XAMT6XAMTTAMT55106XAMTTAMT6956066 * * * * * * * * * * *6680007ADUETAMT5K%0CNUM%TCHECK%D5BALANCE(BALANCE100.5):BALANCEBALANCE100e5"D$;"WRITE ";ZFILE$;",B0,R0"5,ZFR%;",";BALANCE;",";CNUM%56D$;"CLOSE ";ZFILE$5;D$;"OPEN ";ZFILE$;",L60"5@(LSTART%2):958:6J" BALANCE=";BALANCE;20);"LAST CHECK#$"N"500"4BALANCEBALANCEXAMT;4(LSTART%2):958:K4ZFR%ZFR%1p4D$;"WRITE ";ZFILE$;",B0,R";ZFR%4Y$"O":TCHECK%0Y$"C"4((TCHECK%)","(XAMT)","TNAME$","TRANS$","TDAY$","Y$","CDESC$,58)4D$5TCHECK%999TCHECT CATEGORY:";TRAN$(3x(TRAN$)365230F3}"ENTER COMMENTS?";CDESC$P34600h3Y$"N"Y$"NO"500{3ANUM%0İ56003TCHECK%0BALANCEBALANCEXAMT353503TCHECK%99993TRAN$"37"3"ENTER COMMENTS?";CDESC$34600 4Y$"NO"Y(ANUM%(TNAME$)(22ANUM%NACTS%5176B24TNAME$ZACT$(1,ANUM%)L265500V275190b28ANUM%02<9520: GET AMOUNT AND DATE2F(TNAME$,7)"DEPOSIT"52902H(TNAME$,5)"WAGES"52902P"CHECK NUMBER:";TCHECK%2Z76302d3n"ENTER PAYMENLSTART%1):"BALANCE=";BALANCE;20);"LAST CHECK#";CNUM%=1q1"ENTER ACCOUNT NO, DEPOSIT, OR WAGES:":TNAME$}1ANUM%01TNAME$""51401 C%ZFR%:4030:50601(TNAME$)18TNAME$(TNAME$,18)1(TNAME$)251801#(TNAME$)051802;ZFILE$;",B0,R0"(0ZFR%,BALANCE,CNUM%00D$G0BALANCEBALANCEB1h0D$;"WRITE ";ZFILE$;",B0,R0"0ZFR%;",";BALANCE;",";CNUM%0$D$0.415000 PAYMENTS (CHECKS)001900: GET BALANCE ETC00(1):9580920071(25);31)"CK#=";TCHECK%O/"CODE=";(ZCHARGE$((TRAN$)),18);27);"DATE:";TDAY$n/ "AMT=$";TAMT,(CDESC$,20)t/*/4"INPUT CORRECT?";Y$/>/H//"ENTER BALANCE CHANGE (+/-):";B1/"VERIFY CHANGE:";B2/B1B248000D$;"READ " .&TAMTXAMT-.04600: CHECK TO SEE IF OKF.:Y$"N"Y$"NO"4150Q.DC%C1%u.ND$;"WRITE ";ZFILE$;",B0,R";C1%.X((TCHECK%)","(XAMT)","TNAME$","TRANS$","TDAY$","TST$","CDESC$,58).bD$.l4150../ "NAME=";(TNAME$, CATEGORYS-8-"CATEGORY=";ZCHARGE$((TRAN$)):Y$`-Y$""((Y$)0(Y$)38)TRAN$Y$w-"DATE=";TDAY$:Y$-Y$""TDAY$Y$-"CODE=";TST$:Y$-Y$""TST$(Y$,1)-"DESCRIPTION=";CDESC$:" ?";Y$- Y$""CDESC$Y$D$;"READ ";ZFILE$;",B0,R";C1%P,TCHECK%,XAMT,TNAME$,TRAN$,TDAY$,TST$,CDESC$X,D$t,"CHECK #=";TCHECK%:Y$,Y$""TCHECK%(Y$),"AMT=$";XAMT:Y$,Y$""XAMT(Y$),"NAME="TNAME$:Y$,Y$""TNAME$(Y$,15) -7630: PRINT070 +240750+6D$;"PR#0":::"CONTINUE?";Y$O+;(Y$,1)"Y"P$"Y"İ10020i+@Y$"Y"Y$"YES"4060+JY$"CHANGE"4200+TY$"BALANCE"4800+^+h:"ENTER RECORD NUMBER?";C1%+r(C1%C%C1%C%18)SC$""4150+wC1%0C1%ZFR%4150,|;3);TDAY$;3);(ZC$((TRAN$)),23);26(ZC$((TRAN$))));TST$;3);(CDESC$,37);40(CDESC$));"R";C%n*II1}*I194150*"*'CZ%C%SC$""Ģ(23):(1):"CONTINUE SEARCH (Y/N)?";Y$:Y$"Y"ı*+ZY$"F"C%C%1:4145*,C%C%1+1CZ%C%4)(I)b)QAMT$(" "(XAMT.005(XAMT)),(((XAMT100)))2,7):XAMT0QAMT$" 0.00"s)P$"Y"4123)CHECK%;6);(TNAME$,11);18);QAMT$;26);(TDAY$,5);32);TRAN$;35);TST$;37);"R";C%)4125d*:CHECK%;6);(TNAME$,22);30);QAMT$%ı%(D$;"READ ";ZFILE$;",B0,R";C%U(CHECK%,XAMT,TNAME$,TRAN$,TDAY$,TST$,CDESC$](D$n(SC$""4110(SC$"#"(SD$)CHECK%4110(SC$"N"SD$(TNAME$,SL)4110(SC$"C"(SD$)(TRAN$)4110(SC$"D"SD$(TDAY$,SL)4110( 4127TER SELECTION DATA:";SD$&'SL(SD$)7'SL0SC$""e'"START A FRONT OR END OF FILE(F/E)?";ZY$'ZY$"F"ZY$"E"ZY$""4055'ZY$"F"C%1'PR%04060'10000'I1'(1):958'CZ%C%50:ZY$"F"CZ%C%50(C%0C%ZFR * * * CHECK INQUIRY * * *#&5&1900:C%ZFR%\&:"N=NAME C=CATEGORY"&"D=DATE #=CHECK #"&"ENTER SELECTION CRITERIA:";SC$&(SC$)14030&SC$""4055&SC$"N"SC$"D"SC$"C"SC$"#"4030'"ENAY$%GXDESC$%L/%V"INPUT CORRECT?";Y$5%`;%jV% * * * * * * * * * * |%D$;"WRITE ";XFILE$;",B0,R";XPTR%%(TACT$","(TAMT)","TNAME$","TRANS$","TDAY$","XCODE$","XDESC$,53)%D$%%  * * * * * * * * * *%&NO"3150+$\ C%XPTR%: HOLD IT TEMPORARILYN$f XPTR%C1%:3800: WRITE RECORDb$p XPTR%C%:C%C1%l$z 3150r$$ * * * * * * * * * *$$(1):958:$."ACT=";TACT$,"STORE=";TNAME$$8"CATEGORY=";ZCHARGE$((TRANS$))%B"AMT=";TAMT,"DATE:";TDY$# (Y$)0(Y$)3633302# Y$""TRAN$Y$I# "DATE=";TDAY$:Y$^#* Y$""TDAY$Y$v#4 "CODE=";XCODE$:Y$#> Y$""XCODE$Y$#@ "DESCRIPTION=";XDESC$:Y$#B Y$""XDESC$Y$#H 3620: CHECK TO SEE IF EVERY THING IS OK$R Y$"N"Y$"CODE$,XDESC$" D$" 4" "ACCOUNT=";TACT$:Y$N" Y$""TACT$(Y$,1)g" "AMOUNT=$";TAMT:Y$~" Y$""TAMT(Y$)" "STORE NAME=";TNAME$:Y$" Y$""TNAME$(Y$,12)" 7630: PRINT CATEGORYS" # "CATEGORY=";ZCHARGE$((TRAN$)):Y$!!S (Y$,1)"Y"P$"Y"İ10020;!X Y$"Y"Y$"YES"3060Q!b Y$"CHANGE"3190W!l y!v :"ENTER RECORD NUMBER?";C1%! (C1%C%C1%C%18)SC$""3150! C1%0C1%XPTR%3150! D$;"READ ";XFILE$;",B0,R";C1% " TACT$,TAMT,TNAME$,TRAN$,TDAY$,X$))));TDAY$;3);XCODE;3);(XDESC$,37);40(XDESC$));"R";C%F + II1U , I183150 0 CZ%C%SC$""Ģ(23):(1):"CONTINUE SEARCH (Y/N)?";Y$:Y$"Y"ı 5 ZY$"F"C%C%1:3145 : C%C%1 I CZ%C%3064 J 3075!N D$;"PR#0":::"CONTINUE?";(TAMT)),(((TAMT100)))2,7):TAMT0QAMT$" 0.00"H( P$"Y"3114) (I):TACT$;3);(TNAME$,14);18);QAMT$;26);TRAN$;29);(TDAY$,5);35);XCODE$;37);"R";C%:3115< * :TTACT%;3);(TNAME$,20);25);QAMT$;3);(ZC$((TRAN$)),23);26(ZC$((TRAN,R";C%7 TACT$,TAMT,TNAME$,TRAN$,TDAY$,XCODE$,XDESC$? D$P SC$""3110s SC$"N"SD$(TNAME$,SL)3110 SC$"C"(SD$)(TRAN$)3110 SC$"D"SD$(TDAY$,SL)3110 SC$"A"SD$TACT$3110% 31167& QAMT$(" "(TAMT.005(SD$) SL0SC$""E "START A FRONT OR END OF FILE(F/E)?";ZY$i ZY$"F"ZY$"E"ZY$""3055{ ZY$"F"C%1 PR%03060 10000 I1 (1):958 CZ%C%50:ZY$"F"CZ%C%50 C%0C%XPTR%ı D$;"READ ";XFILE$;",B0  1800:C%XPTR%< :"N=NAME C=CATEGORY"` "D=DATE A=ACCT ID" "ENTER SELECTION CRITERIA:";SC$ (SC$)13030 SC$""3055 SC$"N"SC$"D"SC$"C"SC$"A"3030 "ENTER SELECTION DATA:";SD$ SL=";TAMT,"DUE=";BPAY$ 4 "INPUT CORRECT?";Y$: R Y$"NO"Y$"N"500\ 8300f 2000}T (LSTART%3):958^ ANUM%;"-";ACT$h "$";ADUE;15);AFLAG$;22);APAY$;31);"(";APTR%;")"r |   * * * CHARGE INQUIRY * * *UNT ";ANUM%:2705 ; "AMOUNT DUE $";BDUE;:(12):Y$R Y$""BDUE(Y$)s "DATE DUE ";BDAY$;:(9):Y$ Y$""BDAY$Y$ "AMOUNT PAID $";BXAMT;:(13):Y$ Y$""BXAMT(Y$)  "ACT#=";ANUM%,"NAME=";ZACT$(1,ANUM%) "AMT< "INPUT CORRECT?";Y$0F Y$"N"Y$"NO"2000:P 8100DZ 2000J j "INPUT RECORD NUMBER?";RN% RN%FR%RN%36ĺ(7);"ERROR, RECORD NUMBER OUT OF RANGE":2705 BREC%RN%:8200 BACT%ANUM%ĺ(7);"ERROR, RECORD IS NOT OWNED BY ACCO Y$""ACT$Y$2 "ENTER AMMOUNT DUE:$";Y$I Y$""ADUE(Y$)h "ENTER ACCOUNT FLAGS:";Y$~ Y$""AFLAG$Y$ "ENTER LAST BILL DUE DATE:";Y$ Y$""APAY$Y$ "ENTER REC # OF LAST BILL:";Y$( Y$""APTR%(Y$)2 2900ANUM%0ı.6500: GET ACCOUNT LISTING82900N:"CONTINUE?";Y$j Y$"NO"Y$""Y$"N"ıY$"CHANGE"2500 2030 8000 :"CHANGE ACCOUNT OR BILL (A/B)?";Y$ Y$"B"ī2700 Y$"A"2501 "ENTER ACCOUNT NAME:";Y$LE$;",B0,R0"5XPTR%,XV(1),XV(2),XV(3),XV(4),XV(5)=D$C&clD$;"READ ";ZFILE$;",B0,R0"{vZFR%,BALANCE,CNUM%D$ * * * BILL/ACCOUNT INQUIRY:9300:"ENTER ACCOUNT NUMBER?";ANUM%ANUM%0ANUM%NACT%2030C(K(V2))2012(V):(C)-<BT013603FVPADUE(ADUE100):ADUEADUE100}Z(ACT$,10);C12);ADUE;C19);" "dnKK1xTTADUE}1900I(LSTART%1):" TOTAL=$";T;20);"BALANCE=$";BALANCE500 D$;"READ ";XFI$"S"MOMO6%AFLAG$"Q"MOMO39MO12MOMO12KMOBMO1410[BREC%APTR%cL0nJ138200: GET LAST 3 BILLSBACT%ANUM%1310BTBTBDUELL1BPTR%01310BREC%BPTR% JADUEBTL(V(K2):ACCOUNTS HAVE BEEN DEFINED":1415DV"ENTER MONTH FOR BUDGET?";BMOS`I1NACT%\jBT0}tANUM%I:8000: GET ACCT REL~MO((APAY$,2))MOBMO1320 IF MO > BMO THEN 1410 AFLAG$"M"ADUE01320AFLAG$"M"MOMO1 AFLAG $ BUDGET CODE*0:1800I.(1):9588XV$(1);"=";XV(1);13);XV$(2);"=";XV(2);26);XV$(3);"=";XV(3)BXV$(4);"=";XV(4);13);XV$(5);"=";XV(5);26);"T=";XV(1)XV(2)XV(3)XV(4)XV(5)LT0:K8:!QNACT%0ĺ"NO DATE")|21);"------";31);"------":2500ID$;"CLOSE ";FILE$_D$;"LOCK ";FILE$wD$;"CLOSE ";ZFILE$D$;"LOCK ";ZFILE$D$;"CLOSE ";XFILE$D$;"LOCK ";XFILE$D$34,0TRAN$"Q"ĀD$;"RUN HELLO"- INQUIRE ON THE PAYMENT FILE"?(" C - ENTER A CHARGE "i)" CI - INQUIRE ON THE CHARGE FILE"*" E - END, RETURN TO MENU"+" Q - QUIT, DON'T GO TO MENU"," ? - DISPLAYS THIS HELP MENU"." TOTALS - SUMMARY OF EXPENSES TO216,0500& (1):958B!" HELP SCREEN"n":" FUNCTION DESCRIPTION":#" I - BUDGET SCREEN "$" B - ENTER A BILL%" BI - INQUIRE ON A ACCOUNT"&" P - ENTER A DEPOSIT OR PAYMENT" '" PI OERR"700vTRAN$"C"ī70004{TRAN$"CI"İ3000HTRAN$"B"6000^TRAN$"BI"İ2000sTRAN$"P"ī5000TRAN$"PI"İ4000TRAN$"?"800TRAN$"I"1000TRAN$"TOTALS"İ8500500(LSTART%):(0)510 * * * X(37)A 2);"B=BILL";18);"?=HELP SCREEN";34);"TOTALS"s 2);"C=CHARGE";18);"I=BUDGET ";34);"NOERR" 2);"P=PAYMENT/DEP";18);"E=END";34);"Q=QUIT" S(X):(24):TRANS$ XTRAN$"E"TRAN$"Q"ī900 bTRAN$"FREE"680 lTRAN$"N *"T "* C H E C K B O O K *" "* *" "* * * * * * * * * * * * * * E WALDREN *"   D$;"PR#0"::34,LSTART%: :"ENTER TRANSACTION CODE:":* * *  ERR(222)* "ERR16360; ,ERR255500L 6ERR254370a @::(LSTART%1)p E(7),(7) J"ERROR ";ERR;", TRANSACTION TERMINATED." T ^500 h216,0 r (6) "* * * * * * * * * * * * * * * * * * * *"% "* ZZZ$ n s400 x78005 D$;"UNLOCK ";FILE$N D$;"UNLOCK ";XFILE$g D$;"UNLOCK ";ZFILE$ D$;"OPEN ";FILE$;",L40" D$;"OPEN ";ZFILE$;",L60" D$;"OPEN ";XFILE$;",L55" 9000 280 500   * * * ERROR ROUTINE * NTER LOCATION - MODIFY 10000 FOR PRINTER COMMANDS REQUIREDF D$(4)\ D$;"NOMON I,O,C"d :o 35,23~ (LSTART%18 234,LSTART% 7 <YEAR$"/79" FZZZZ$"MASTER" PFILE$"BILL."ZZZZ$ ZXFILE$"CHARGE."ZZZZ$ dZFILE$"CHECK."ZO( ZACT$(3,36),ZCHARGE$(37),CT(2,38). r LINES 15 TO 19 SHOULD BE MODIFIED DO REFLECT YOUR ENVIRONMENTx  .... CHARGE ACCOUNT ID'SXV$(1)"M":XV$(2)"V":XV$(3)"P":XV$(4)"S":XV$(5)"W"C9$"0": CLOCK LOCATION: PR%1:PRI"""!!! ! ! ! ! !!!!!!!!!                          )0AZ$"0.00"{ A1$;6);(A3$,22);30);(" "AZ$,(AZ$),9);" ";A5$;" ";(C$(C),20);25(C$(C)));(A7$,25)  @ ED$;"PR#0" JK46: (#D$;"NOMON I,O,C":D$;"PR#1" ,# -#(30):1657,0:33,33:1529,10 .#K2 2#5% :"TOTAL=";TTL:TTL0:::KK5- CTE "D$;"CLOSE ";ZFILE$O '8000U ,[ X| bA1$,A2$,A3$,A4$,A5$,A6$,A7$ lC(A4$) vC36C37 CTCı (A5$,2)YEAR$(A5$)8ı TTLTTL(A2$) AZ$((A2$).005((A2$))):(A2$ 5 8000 :    9000V "***** CHECK FILE *****";60);"PAGE ";L:LL1:K1\ z D$;"OPEN ";ZFILE$;",L60" D$;"READ ";ZFILE$;",B0,R0" J,J1,J2 CT137 I1J D$;"READ ";ZFILE$;",B0,R";I 7000 I TTL0412LE$;",L55"* D$;"READ ";XFILE$;",B0,R0"2 I0M J,A1$,A2$,A3$,A4$,A5$` A$(7,1)XFILE$m CT137x I1J  D$;"READ ";XFILE$;",B0,R";I  7000 & I ' TTL03115 ( :"TOTAL=";TTL:TTL0:::KK5 + CT 0 D$;"CLOSE ";XFILE$" L1C "ENTER YEAR FOR REPORT (YY)?";YEAR$:(YEAR$)2136c "CHECKS?";Y$:Y$"Y"İ4000} Y$"A"İ4000:3000: "CHARGES?";Y$:Y$"Y"İ3000 9000 "***** CHARGE FILE *****";60);"PAGE ";L:LL1:K1 D$;"OPEN ";XFI  C$(37)D$""+ZZZZ$"MASTER"C(FILE$"BILL."ZZZZ$^GXFILE$"CHARGE."ZZZZ$xHZFILE$"CHECK."ZZZZ$~OZD$;"OPEN CATAGORY.MASTER":D$;"READ CATAGORY.MASTER"dI136nC$(I)xID$ C$(37)"37 DEPOSITS AND WAGES" """"""S"! CT$(2)"PROCESS STATEMENT"F CT$(0)"END HOME FINANCE SYSTEM"] CT$(8)"PRINTER":e :u C$"*":140 (1I):(1I):"****************************" J110 (1I):"* *"D hI' r:"ENTER PROGRAM NUMBER:";I2 |I0ĀD I3I8ī210M 300g CT$(4)"BACKUP FILES" CT$(5)"BILL FILE COMPRESS" CT$(6)"BUILD CATAGORY FILE" CT$(1)"CHECKBOOK" CT$(3)"UTILITY PROGRAMS" CT$(7)"INITIAL FORMAT OF FILE (24I):(40I):C$- (24I):(1I):C$4 I: @ K I03] I;4);CT$(I)d Ij "ENTER PROGRAM NUMBER:";I I0Ā I3210 "I3320 ,D$;"RUN ";CT$(I) 6 @ J0;4);CT$(0) TI48 ^I;4);CT$(I) EXTENDERS"/ Z(7I):(9I)::"HOME FINANCE"S d(8I):(9I):" SYSTEM ": nI11000:I:(24):11);"ALL RIGHTS RESERVED";:I11000:I xC$" ":140 (24):::::34,16 210 I15 (1I):(1I):C$ (1I):(40I):C$  D$""CT$(9)!410+(NUM6129<:I=C$"*":140{>(1I):(1I):"****************************"?J110@(1I):"* *"AF(1I):"****************************" P(3I):(6I):"COMPUTER""" " " "