' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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-(q ̠@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`$"Y"İ15:154&P%1&&165:145,&&(12):(1):"ENTER FIRST DATE ":NC%6:T%0:V%12:H%18:X$"":20:54:R%1159&FD$X$:S6$(X$,5,2)(X$,3,2)(X$,1,2)&(14):(1):"ENTER LAST DATE":NC%6:T%0:V%14:H%18:X$"":20:54:R%1161/'%FCR((X$))m%(14):(1):"ENTER LAST CHEQUE NUMBER":NC%6:T%0:V%14:H%27:X$"":20:R%0İ15:151~%ECR((X$))%P%0:S$X$:PT$"N"157%(22):(1):"DO YOU WISH TO PRINT THIS DATA ":NC%1:V%22:H%32:T%1:X$"":20:X$"N"157&XX$(17):(7):"ENTER YOUR SELECTION ":NC%1:T%0:V%17:H%28:X$"":20:R%0İ15:146$SC0:SD0:S%(X$):S%0S%4İ16:146$S%149,158,163,164:437%:(12):(1):"ENTER FIRST CHEQUE NUMBER ":NC%6:T%0:V%12:H%27:X$"":20:R%0İ15:149"FILE FULL - PRESS RETURN TO CONTINUE ";:X$:433#9:(3):(1):"DO YOU WISH TO :-":(5):(5):"0. RETURN TO MENU":(7):(5):"1. SEARCH BY CHEQUE NUMBER":(9):(5):"2. SEARCH BY DATE":(11):(5):"3. SEARCH BY PAYEE":(13):(5):"4. SEARCH BY CODE"DC$X$:DC$"***"OVR(DV(X)):D1$DD$(X):78T":(M$)15M$M$(SP$,15(M$))x"C$C$M$:X%0X%CP%(X%):143"NCNC1:X%LR1:CN(NC)LC:CT%(NC)D1%:CP%(NC)LR1:LRLR1:(23):(1):D$"D$;"WRITEC,R";X%:C$:D$:NC599842#(22):(1):8:NC%U:T%U:X$"":20:X$"N"1098!X$"Y"İ15:131F!M%0138p!V10:X15:DC$OC$(X):DC$"***"137!71:OVR(OV(X)):D1$DD$:78!!(TW$)15TW$TW$(SP$,15(TW$))."C$LD$TW$:XU5:DC$DC$(X):NFDV(X):NC%9:T%1:59:C$C$26:DV(X$)n DVR(DV):DC$(X)DC$:DV(X)DV:DD$(X)DD$:(X16):(29):NFDV:NC%9:T%1:59:X$:XX1:X6119 TV0:XU5:TVTVDV(X)::TVR(TV) TVVĢ(23):(1):"TOTAL DOES NOT BALANCE";(7):118"!(22):(10):"DATA CORRECT Y/N ":V%22:H%2POSTING TO BANK CHARGES NOT ALLOWED";(7):119b}(X16):(1):DC$:(X16):(8):DD$;21(DD$))~H%8:NC%20:X$DD$:T%1:20:R%130,128,119:(X$)0128DD$X$ (X16):(8):DD$;21(DD$)):V%X16:H%29:NC%9:X$(DV):T%0:20:R%130,129,1V):(14):(13):NFV:NC%11:T%1:59:X$/vX1ewDC$"***":DV0:DC$(X)"***"DC$DC$(X):DVDV(X)xV%16X:H%1:NC%3:T%0:X$DC$:20:R%U(R%Z(X$)Z)130yX1R%3116zX1R%3XX1:119{R%0DC$X$.|71:DC$BD$Ģ(23):(1):":T%1:X$TW$:NC%15:20:R%130,114,109:TW$X$r(11):(13):TW$;25(TW$)):V%12:H%13:NC%15:T%1:X$M$:20:D1%1R%3109sR%130,116,113:M$X$t(12):(13):M$;25(M$)):V%14:T%0:NC%11:X$(V):H%13:20:R%130,117,114:V(X$)'uVR(DD$:DD$(X)DD$:DVOV(X):(X16):(29):NFDV:NC%9:T%1:59:X$ElmH%13:V%9:T%0:X$LD$:NC%6:20:R%1Ģ(9):(13):DX$LD$:50:DX$nR%130,113,85:(X$)6X$X$(QD$,6(X$))o54:R%1109pLD$X$.q(9):(13):DX$LD$:50:DX$:V%111:X$"":20:X$"N"Ģ(22):(1):30):90?iX$"Y"İ15:104j(22):(1):30):VCV:M%1:(12):(13):M$:(9):(13):DF$:(11):(13):TW$:(14):(13):NFV:NC%11:T%1:59:X$:X15:OC$(X)"***"108?kDC$OC$(X):(X16):(1):DC$:71:(X16):(8): b15:90c(X$)098(dLC(X$)be(7):(13):NFLC:NC%6:T%0:59:D1%1X$"D"(X$,5)fX$:X%0:65:M%0:X%0109gCT%(X%)1Ģ(23):(1):"ALREADY RECONCILED";(7):90)h(22):(1):"ALREADY ON FILE - MODIFY Y/N ":V%22:H%30:NC%1:T%0LCLC1:101x]R%0(X$,1)"D"X$(X$,2,6):D1%1:(7):(1)::"DEPOSIT NO.":(11):(U):"SOURCE ";::":":99^R%0(X$,1)"D"D1%0:(7):(1):"CHEQUE NO. ":(11):(1):"PAYEE ":99_R%1437`R%399aLCULCLCU:1011Ğ:"SOURCE ";::":"Y(12):(1):"MEMO :":(14):(1):"VALUE :":(16):(1):"CODE-DISBURSMENT-DESCRIPTION VALUE"ZV%7:T%1:H%13:X$(LC)" ":NC%6:20:R%2101[TV0:V0:LC99999R%0(X$)0D1%1İ15:90\R%0(X$)U5:DC$(X)"***":DV(X)0:OC$(X)DC$(X):OV(X)DV(X)::M$"":(7):(U):D1%UĞ:"DEPOSIT NO.";:zVD1%Zĺ"CHEQUE NO. ";W":";:(7):(13):NFLC:NC%6:T%Z:59:X$:(9):(1):"DATE :";:DX$LD$:50:DX$:(11):(1):D1%0ĺ"PAYEE :"XD1%X$:X$"Y"ĺD$;"PR#";PS36X$"Y"PT$"P"ĺ" 80N"69::14);"S U M M A R Y"::"TOTAL RECONCILED DEPOSITS ";:NFRD:NC%12:T%1:59:X$::"TOTAL RECONCILED CHEQUES ";:NFRC:59:X$::"TOTAL BANK CHARGES ";:NFBC:59:X$7:"CLOSING B2:T%0:59:X$:M11M112İ15:264t5 C$"78"(M1):OBOBBC:OBR(OB):OVBC:D1%0:DC$BD$:D1$"BANK CHARGES":785 PT$"N"X$"N":2715 (23):(1):"DO YOU WISH TO PRINT THE SUMMARY Y/N ";:X$:X$;:X9$:X$"N"2715X$"Y"2696:D$:X1$CHARGES :"@4V%21:H%22:NC%10:T%0:X$"":20:R%0İ15:2624BCR((X$)):NFBC:NC%10:T%1:59:(21):(22):X$:BC02684(22):(1):"STATEMENT MONTH :"4 V%22:H%19:NC%2:T%0:X$"":20:R%0İ15:265$5 M1((X$)):(22):(19):NFM1:NC%3D1%1TCTCV:OBOBV:RDRDV:DRDRVT3D1%0TDTDV:OBOBV:RCRCV:CRCRV3CRR(CR):DRR(DR):RCR(RC):RDR(RD):OBR(OB):TCR(TC):TDR(TD):CT%(X%)CT%(X%)2:L%L%1:14:L%2023432353BD$"NIL"268 4(21):(1):"ENTER BANK FILE";(7):235I2CT%(X%)1Ģ(23):(1):"ALREADY RECONCILED";(7):2352(L%):(8):DF$;" ";(TW$,10);:VCV:NFV:NC%11:T%1:59:CT%(X%)1Ğ2X$:2V%L%:H%39:NC%1:T%1:X$" ":202R%0İ15:2522X$"N"2352X$"Y"R%9:253)0(X$,1)"D"((X$,2,6))0İ15:235M1(X$)0R%0(X$,1)"D"D1%0~1R%0(X$,1)"D"D1%1:CN((X$,2,6)):2471R%12601CN(X$)1(V%):(1):NFCN:NC%6:T%0:59:D1%1X$"D"(X$,5)2X$:LCCN:65:X%0Ģ(23):(1):"NOT ON PAYEE VALUE OK":L%8M0V%L%:H%1:NC%6:T%1:X$(CN):20:R%2247w0R%0(X$)0D1%1LC99999İ15:2350R%0(X$)0CNCN1:2470R%32410CN2İ15:2350CNCN1:2470(X$)0(X$,1)"D"(X$)0İ15:235'1(X$)67//S%1230/:"** TOTAL **";16);:NFR(SDSC):NC%11:T%1:59:X$:" DEBIT ";:NFSD:NC%11:T%1:59:X$;" CREDIT ";:NFSC:59:X$:L%L%3/P%0İ11/P%1İ12:D$;"PR#0"//RC0:RD009:13:(6):(1):"CHQ.NO DATE )1ĺ" ";7.DF$;" ";(TW$,10);" ";:NFCV:S%4NFDV`.NC%11:T%1:59:CT%(X)1CT%(X)3Ğx.X$;::S%4DVCV.CT%(X)1CT%(X)3SCR(SCDV).CT%(X)0CT%(X)2SDR(SDDV).DVCVĺ" ".DVCVĺ"*".L%L%1/L%23P%2711:DC$(X1)"***"ĺ" ":211G-DC$(X1);:NFDV(X1):NC%10:T%1:59:X$o-:" ":L%L%1:P%0L%15L%99:7-R%1XNC:227-226-NFCN(X):NC%6:T%0:59:CT%(X)1CT%(X)3X$"D"(X$,5)-CT%(X)2Ğ-X$;::CT%(X)2ĺ"*"; .CT%(X;9);,X132047,CT%(X)0CT%(X)2ĺ"PAYEE ";^,CT%(X)1CT%(X)3Ğ:"SOURCE ";:q,": ";TW$;2);,X14206,"MEMO : ";M$;2);,X15209,"VALUE : ";:NFCV:NC%11:T%1:59:CT%(X)1CT%(X)3Ğ,X$;::6);-L%L%98%+CT%(X)0CT%(X)2ĺ"CHQ.NO ";L+CT%(X)1CT%(X)3Ğ:"DEP.NO ";:c+": ";:CT%(X)2Ğ+NFCN(X):T%0:NC%6:59::CT%(X)1CT%(X)3X$"D"(X$,5)+X$;::CT%(X)2ĺ"*";+CT%(X)1ĺ" ";+10);+X12200,"DATE : ";DF$:227'*S%1(CN(X)FCCN(X)EC)227U*X%X:68:XX%:S%2(TD$S6$TD$E6$)227d*S%3186u*(S$)0186*S$(TW$,(S$))227*S%4189*DV0:X1U5:DC$(X1)S$DVR(DVDV(X1))*:DV0227*S%1214+X115:X111 PRESS "::S%1ĺ"CHQ.NO DATE PAYEE VALUE"r)S%1ĺ" CHEQUE DETAILS DISBURSMENTS")L%23P%27L%7:227)L%7:TV0:NC0228)X1NC:P%1181)E(16384):16368,0:E155181*7:(L%1):(1):R%1XNC(P%1L%23P%27İ4[(9:R%0:" ":"SEARCHING FOR ";:S%1ĺ"CHEQUE ";FC;" TO ";EC(S%2ĺ"DATE ";:DX$FD$:50:DX$;" TO ";:DX$ED$:50:DX$(S%3ĺ"PAYEE OF :";S$(S%4ĺ"CODE ";S$(S%4(S$)3S$S$" ":173=):"TO TERMINATEED$X$:E6$(X$,5,2)(X$,3,2)(X$,1,2):153v':(12):(1):"ENTER PAYEE":NC%15:V%12:H%13:T%1:X$"":20:153':(12):(1):"ENTER CODE":NC%3:V%12:H%12:T%1:X$"":20:153'L%0:P%0167'D$:D$;"PR#";PS:PT$"P"ĺ" 80N"(P%0ė"**TOTAL**";18);X$:L%L%2:P$"Y"İ128FhP$"N"İ11PFiD$:D$;"PR#0":277VFjdFkND2368Fl(23):(1)::"DISBURSMENT CODES ARE BEING SORTED":FmS%0:X1ND1:(D$(X))(D$(XU))367GnX$D$(X):D$(X)D$(XU):D$(XU)X$:X1DP%(X):DP%(XN(X):NC%6:T%0:59:CT%(X)2ĞEEbCT%(X)1CT%(X)3X$"D"(X$,5)^EcX$;::P$"Y"ĺ3);Ed" ";DF$;" ";:P$"N"ĺ(TW$,10);" ";EeP$"Y"ĺ" ";TW$;" ";M$;3);EfTVR(TVCV):NFCV:NC%11:T%1:59:X$:L%L%U(Fg:NFTV:NC%11:T%1:59::;!DZS1%2S1%4ĺ"DEPOSITS ";^D[" ":" ":P$"N"ĺ"CHQ.NO DATE PAYEE VALUE"D\P$"Y"ĺ" CHQ.NO";6);"DATE";10);"PAYEE";16);"MEMO";11);"VALUE"D]" ":L%5D^TCT%(X)359D_CP%(X)0359D`X%X:68:P$"Y"ĺ4);EaNFCCQE(16384):16368,0:E155339HCR7:(L%2):(1):R%1XNC:359^CSP$"N"L%20350tCTP$"Y"L%50350CU:9:P$"Y"L%99İ4CVP$"Y"ĺ20);CW7);:S1%3ĺ"UNRECONCILED ";CXS1%2ĺ" RECONCILED ";DYS1%1S1%3ĺ"CHEQUES "%1:59:X$WBIMN0ĺ" DEBIT ";:NFSD:NC%11:T%1:59:X$;:NFSC:59:" CREDIT ";X$jBJMN0L%L%3BKP$"Y"İ12:D$;"PR#0"BLP$"N"İ11BM277BNTS1%1:P$"Y"ĺD$;"PR#";PSBOP$"Y"PT$"P"ĺ" 80N"BPL%99:TV0:X1NC:P$"Y"339$Z116:" ":" ";(MH$,(8(Z16))7,8);:NFMD(Z16):T%1:NC%10:59:X$;:" ";(MH$,(8(Z1))7,8);:NFMD(Z1):T%1:NC%10:59:X$:L%L%2:AGL%L%3:" ":15);"TOTAL VALUE":NFYV:NC%12:59:14);X$ BH:MN0ĺ" ":"** TOTAL **";16);:NFTV:NC%11:TZ1112:MD(Z1):YVR(YVMD(Z1))::D$:MN0326F@BMN99YVMD(MN)@C" ";D$(X);" ";DD$;21(DD$));:NFYV:NC%11:T%1:59:X$:L%L%1:TVR(TVYV):YV0SCR(SCYV)@DYV0SDR(SDYV)@E328AF" ":" CODE ";D$(X);" DESC. ";DD$:L%L%2::328g?=9:10);"DISBURSMENT CODE LIST ":MN0MN99ĺ9);"FOR THE MONTH OF ";(MH$,(8MN)7,8)?>MN0MN99ĺ10);"FOR 12 MONTHS"??MN0ĺ:" CODE DESCRIPTION";10);"VALUE":?@L%6:MN0L%30@AD$:D$;"READD,R";DP%(X):YV0:DD$:#>47:(L%1):(1):R%1XND:3285>5DP%(X)0328\>6(D$(X))(F$)(D$(X))(L$)328q>7L%99L%0:317>8P$"Y"L%40MN0İ4:317>9P$"Y"L%50MN0İ4:317>:P$"Y"L%50321>;P$"N"MN0L%17321?<7:(L%):(1):R%1XNDSH TO PRINT THESE DETAILS ":NC%1:V%21:H%36:T%1:X$"":20:X$"N"X$"Y"İ15:302y=/P$X$:D$:P$"Y"ĺD$;"PR#";PS=0P$"Y"PT$"P"ĺ" 80N"=1:S1%5334=2L%99:TV0:SD0:SC0:R%0:X1ND:P$"Y"309=3E(16384):16368,0:E15530992 <&MN99(<'(F$)3F$F$" ":295D<((L$)3L$L$" ":296M<)TV0<*(19):(1):"DO YOU WISH THE CODES SORTED ":NC%1:V%19:H%30:T%1:X$"":20:X$"N"301<+X$"Y"İ15:298<,362:8<-PT$"N"P$"N":305V=.(21):(1):"DO YOU WIUMBER OR 0 TO LIST ALL "O;!V%14:H%37:NC%2:T%0:X$" ":20:R%0İ15:289t;"MN((X$)):MN0MN12İ15:288;#MN0295;$(16):(1):"DO YOU WISH TO SEE INDIVIDUAL MONTHS ":NC%1:V%16:H%38:T%1:X$"":20:19:X$"Y"295<%X$"N"İ15:2016:9:(10):(1):"ENTER FIRST CODE TO BE LISTED "k:V%10:H%31:NC%3:T%1:X$"":20:R%0İ15:284:F$X$:(12):(1):"ENTER LAST CODE TO BE LISTED ":V%12:H%31:NC%3:T%1:X$"":20:R%0İ15:286:L$X$; (14):(1):"ENTER MONTH N RECONCILED CHEQUES":(13):(5):"4. LIST RECONCILED DEPOSITS":(15):(5):"5. LIST DISBURSMENT CODES"9(17):(7):"ENTER YOUR SELECTION ":NC%1:T%0:V%17:H%28:X$"":20:R%0İ15:2799S1%(X$):S1%0S1%5İ16:2799S1%0437:S1%53 TO DATE ";:NFCR:59:X$:L%22:X1$"Y"İ12M8D$;"PR#0":X1$"N"R%0:1189:(3):(1):"DO YOU WISH TO :-":(5):(5):"0. RETURN TO MENU":(7):(5):"1. LIST UNRECONCILED CHEQUES"f9(9):(5):"2. LIST UNRECONCILED DEPOSITS":(11):(5):"3. LISTALANCE";12);:NFR(OBTCTD):59:X$::"PLUS UNRECONCILED CHEQUES ";:NFTD:59:X$::"LESS UNRECONCILED DEPOSITS ";:NFTC:59:X$::"STATEMENT BALANCE";10);:NFOB:59:X$:,8:"RECONCILED DEPOSITS TO DATE";:NFDR:59:X$:" ":"RECONCILED CHEQUESAME :";CN$:V%7:H%18:NC%20:T%1:X$CN$:20:R%465,448,444:CN$X$V(9):(1):"PRINTER TYPE (N/S/P) :";PT$:V%9:H%23:NC%1:T%1:X$PT$:20:R%465,450,447:X$"N"X$"S"X$"P"İ15:448VPT$X$VPT$"N"Ģ(11):(1):30):453bW(11):(1):":X$SD$*UR%465,444,439:54:R%1439PUDX$X$:50:SD$X$:(3):(14):DX$U(5):(1):"PASSWORD :";PW$:V%5:H%11:NC%5:T%1:X$PW$:20:(R%1R%2)(PW$)5İ15:444UR%465,447,439:(X$)5İ15:444UPW$X$CV(7):(1):"CHEQUEBOOK NC%1:T%1:X$"":20:X$"N"4375TX$"Y"İ15:434>TMO1PTMO0İ9:469XT10T(3):(1):"SYSTEM DATE :";SD$:SD$"DDMMYY"DX$SD$:50:(3):(14):DX$TV%3:H%14:NC%6:T%0:X$SD$:20:R%3İ15:439U(X$)0SD$"DDMMYY"SD$"010180(X)0432VSD$;"READD,R";DP%(X):DD$:Z1112:MD(Z1):Z1:D$:M10MD(M1)0:431pSX1112:MD(X1)0:X1SD$;"WRITED,R";DP%(X):DD$:X1112:MD(X1):X1:D$SSMO1438T(20):(1):"DO YOU WISH TO CHANGE OPTIONS":MO0:V%20:H%31:N(10):"ARE YOU SURE ":V%17:H%23:NC%1:T%1:X$"":20:X$"N"420YRX$"Y"İ15:423R(18):(1):"ENTER MONTH NUMBER OR 0 TO CLEAR ALL "RV%18:H%38:NC%2:T%0:X$"":20:R%0İ15:426RM1((X$)):M10M112İ15:425 SD$:X1ND:DP%%0:Q913:Q9$(BD$,Q9,1):Q9$" "419CQQ9$"0"Q9$"9"419LQX%1jQ:X%1(BD$)0İ15:411xQND0433Q(16):(1):"DO YOU WISH TO ZERO DISBURSMENT TOTALS ":V%16:H%39:NC%1:T%1:X$"":20:X$"N"433QX$"Y"İ15:420CR(17):7POBR((X$)):NFOB:NC%10:T%1:59:(12):(23):X$lP(14):(1):"ENTER DISB. CODE FOR BANK CHARGES "PV%14:H%35:NC%3:T%1:X$"":20:R%0İ15:412PBD$X$:(BD$)3(BD$)0İ15:411P(BD$)3BD$BD$" ":414PBD$"NIL"420(QX20:X$"N"407RO(23):(1):"INSERT CORRECT DISK AND PRESS RETURN ";:X$:372hOX$"Y"İ15:405OTC0:TD0:LD$"010180":LC1:LR0:CR0:DR0:D$:(12):(1):"ENTER OPENING BALANCE "PV%12:H%23:T%0:NC%10:X$" ":20:R%0İ15:409EADD,R0":LD:402=ND$;"OPEND,L158":D$;"WRITED,R0":LDKND$:479tN(NC0)(TC0)(TD0)(OB0)420N10:(8):(1):"NO CHEQUES EXIST ON THIS DISK";(7)O(10):(1):"DO YOU WISH TO CREATE THE FILE Y/N ":V%10:H%36:T%1:NC%1:X$"":CT%(NC)X1%:CP%(NC)X2%&MXXU:393fM216,0:D$;"CLOSEC ":D$;"OPENC,L97":D$;"READC,R0":398MLC,OB,TC,TD,LD$,LR,BD$,CR,DR:399MD$;"OPENC,L97":D$;"WRITEC,R0":1:0:0:0:"010180":1:"NIL":0:0MD$;"OPEND,L158":401ND$;"RS ARE BEING LOADED"::ND1:X0ELD$;"READD ,R";ND:X$,X%:X%0390bLXX1:D$(X)X$:DP%(X)X%wLD$:NDNDU:388LNDX:216,0:D$:D$;"CLOSED ":D$;"OPENC ,L13":396LXU:NCZLD$;"READC ,R";X:X1,X1%,X2%:X2%0395MNCNC1:CN(NC)X1:OT BEEN DONE ***";::(7);(7);(7)K(16):(1):"ENTER USER I.D.":V%16:H%16:NC%10:T%1:X$"USER":20:BF0:R%0İ15:383KUS$X$:386KMO1:PS1:PT$"N":PW$"":SD$"DDMMYY"KD$:X0:D$;"OPEND ,L8":391L:(14):(1)::"CHEQUE DETAIL$"":X15:X$:P$P$X$:1J{X$:X$(13)379IJ|PW$P$ĺ(7):378J}(14):(1):"ENTER DATE ";DM$:V%14:H%12:NC%6:T%0:X$DM$:20:54:R%1381$K~OD$SD$:DX$X$:50:SD$X$:(14):(12):DX$:SD$OD$BF0Ģ(23):(1)::"*** SYSTEM BACKUP HAS NwIwD$;"OPENS,L128":D$;"READS,R0":SD$,CN$,PT$,US$,PW$,PS,BF,DM$,FF$:D$;"CLOSES"::(1):((40(CN$))2)1:CN$Ix(22):(10):"CORRECT DISK Y/N ":V%22:H%27:NC%1:T%1:20:X$"N"372IyX$"Y"İ15:376Jz:(12):(1):"ENTER PASSWORD ";:PB. MARCH APRIL MAY JUNE JULY AUGUST SEPT. OCT. NOV. DEC. "~HsSP$" ":DM$"DDMMYY"Ht10Hu373Iv(12):(1):"INSERT DATA DISK INTO DRIVE 1";(7):(14):(1):"PRESS RETURN WHEN READY ";:X$:10:MO0:385)DP%(XU):DP%(XU)X1:S%U,Go:S%03652GpGq10:(12):(1):"(C) COPYRIGHT ZOFARRY ENTERPRISES 1980":X14000:X:X0WHrD$(4):R(X)((X100).5)100:CN(600),CT%(600),CP%(600),DV(5),DC$(5),D$(60),DP%(60),MD(12),OD$(5),OV(5):MH$"JAN. FE:17:D$:D$;"OPEND,L158":D$;"WRITED,R0":LR:X1LR:D$;"WRITED,R";X:D$(X):Z112:D(Z,X):::D$;"CLOSED":fD$(60):D$(4):18:D$:D$;"OPENC,L97":D$;"READC,R0":LC,OB,TC,TD,LD$,LR,BD$,CR,DR:D$:D$;"CLOSEC":SR1:ER0g LRER110ER60517eD$;"DELETED ""e531eD$;"OPEND ,L8":X1ND:D$;"WRITED ,R";X:D$(X):DP%(X)::D$;"CLOSED "::D$(4):D(12,60),D$(60):18:D$:D$;"OPEN D,L158":D$;"READD,R0":LR:X1LR:D$;"READ D,R";XtfD$(X):Z112:D(Z,X):::D$;"CLOSED"BU1531d:531d17:D$:D$;"OPENS,L128":D$;"WRITES,R0":SD$:CN$:PT$:US$:PW$:PS:1:DM$:FF$:D$;"CLOSES":514dD$;"DELETEC "dD$;"OPENC ,L13":531eD$:X1NC:D$:D$;"WRITE C ,R";X:CN(X):CT%(X):CP%(X)::D$;"CLOSEC ":"THE DISBURSMENT FILE IS ";R(ND.6);" % FULL":BU1Ģ(22):(1)::"PRESS RETURN TO CONTINUE ";::X$ dD$:D$;"OPENS,L128":D$;"READS,R0":SD$,CN$,PT$,US$,PW$,PS,BF,DM$,FF$:D$;"WRITES,R0":SD$:CN$:PT$:US$:PW$:PS:BU:DM$:D$;"CLOSES":D$:D$:C:CP%(X)0507EbRNRNU:D$;"WRITEC ,R";RN:CN(X):CT%(X):CP%(X)KbbD$;"CLOSEC ":D$;"WRITEC,R0":LC:OB:TC:TD:LD$:LR:BD$:CR:DR:D$;"CLOSEC":9:(12):(1):"PROCESSING TERMINATED":" ":"THE CHEQUE FILE IS ";R(LR6);" % FULL"ec:S%0:NC25042aX1NC1:CN(X)CN(X1)503aCNCN(X):CN(X)CN(X1):CN(X1)CN:CT%CT%(X):CT%(X)CT%(X1):CT%(X1)CT%:CP%CP%(X):CP%(X)CP%(X1):CP%(X1)CP%:S%1a:S%0500aD$:D$;"DELETEC ":D$;"OPENC ,L13":RN0:NC0508bX1N(1):"CHEQUE NUMBER SEQUENCE":NC%1:V%13:H%24:T%1:X$"":20:X$"N"504``X$"Y"İ15:495`(15):(10):"ARE YOU SURE":NC%1:V%15:H%23:T%1:X$"":20:X$"N"494`X$"Y"İ15:497`9:(12):(1)::"INDEX REORGANISATION IN PROGRESS":a$:CP%(X)RF!_:LRRF:DR0:CR0|_D$:216,0:D$;"WRITED,R0":LD:D$;"CLOSED":D$;"DELETED ":D$;"OPEND ,L8":ND0493_X1ND:D$;"WRITED ,R";X:D$(X):DP%(X):_D$;"CLOSED "_9J`(12):(1):"DO YOU WISH TO SORT THE FILE INTO":(13):%U:CPCP%(X):CT%CT%(X):CNCN(X):CP%(X)CP%(XU):CT%(X)CT%(XU):CN(X)CN(XU):CP%(XU)CP:CT%(XU)CT%:CN(XU)CN^X:S%0484^RF0:X1NC:CT%(X)1CP%(X)0:490^CP%(X)0490 _D$;"READC,R";CP%(X):X$:RFRFU:D$;"WRITEC,R";RF:X$:D":20:19:X$"N"491+]X$"Y"İ15:479x](14):(10):"ARE YOU SURE":NC%1:V%14:H%23:T%1:X$"":20:X$"N"479]X$"Y"İ15:481]9:(12):(U)::"FILE REORGANISATION IN PROGRESS"::NC2487]S%0:X1NC1:CP%(X)CP%(XU)486s^S\S%(X$):S%5477e\(19):(10):"ARE YOU SURE ":NC%1:V%19:H%23:T%1:X$"":20:X$"N"468{\X$"Y"İ15:474\BU1:478\S%84,145,233,277:D$\9](12):(1):"DO YOU WISH TO DELETE RECONCILED ITEMS":NC%1:V%12:H%39:T%1:X$"S":(9):(5):"2. SEARCH/LIST CHEQUES":(11):(5):"3. RECONCILE CHEQUES":(13):(5):"4. LIST CHEQUES":(15):(5):"5. BACKUP A DATA DISK"[(17):(7):"ENTER YOUR SELECTION":NC%1:V%17:H%28:T%0:X$"":20:R%0İ15:471[X$"0"X$"5"İ16:471CLOSEC":D$;"OPENS,L128":D$;"WRITES,R0":SD$:CN$:PT$:US$:PW$:PS:BF:DM$:FF$:D$;"CLOSES":D$;"OPENC,L97"::MO0Z9Z216,0:BU0:(3):(1):"DO YOU WISH TO :-":478[(5):(5):"0. EXIT FROM CASHBOOK":(7):(5):"1. ADD/MODIFY CHEQUEE FORM FEED :";FF$:H%34:V%17:T%1:NC%1:X$" ":20:R%465,465,459:X$"N"X$"Y"İ15:463iYFF$X$YDX$SD$:50:(3):(14):DX$:(22):(10):"DATA CORRECT Y/N ":V%22:H%28:NC%1:T%1:20:X$"N"439YX$"Y"İ15:465|Z(23):(1):D$:D$;"3450XUS$X$wX(15):(1):"DATE FORMAT :";DM$:V%15:H%14:T%1:NC%6:X$DM$:20:R%465,462,453:(X$)0X$DM$XX$"DDMMYY"X$"MMDDYY"X$"YYMMDD"İ15:459XDM$X$XPT$"N"Ģ(17):(1):39):465^Y(17):(1):"DOES YOUR PRINTER US"PRINTER SLOT :";PS:V%11:H%15:NC%1:T%0:X$(PS):20:R%465,453,448:(X$)1(X$)6İ15:450oWPS(X$)W(13):(1):"USER I.D. :";US$:V%13:H%12:NC%10:T%1:X$US$:20:R%1465WR%0(X$)0465WR%2459WR%3PT$"N"448XR%0":LC:OB:TC:TD:LD$:LR:BD$:CR:DR:D$nhN0:XSRER:D$;"WRITEC,R";X:NN1:D$(N)::D$;"CLOSEC":|h60,11080%g LRER110ERLRDg 525:528:ERLRĺ:"BACKUP COMPLETE":531Ug SRER1:521cg SR1527kg18gD$:N0:D$;"OPENC,L97":XSRER:NN1:D$;"READC,R";X:D$(X)::D$;"CLOSEC":g17:D$:D$;"OPENC,L97":SR1530,hD$:D$;"WRITEC,Rz#??????     ĉÉÆĆ̠ԠˠbˆԠÈ٠ӊĈӯΠӆi  :103"DISC FOR 3.2.1 CONVERSIONS"X("TRANSFER: 26/10/82 2346 HRS"g2"BY J.K." P]I A$"A"(8)(8)(8)(8)(8)(8)(8)" CASHBOOK 2.0"(10)\(4);"RUN";A$$((C$,3,2)):D1%UMD(M%)MD(M%)OV:DC$BD$TCTCOVfQD1%ZMD(M%)MD(M%)OV:DC$BD$TDTDOVRMD(M%)R(MD(M%)):TCR(TC):TDR(TD):D$:D$;"WRITED,R";N%:D1$:Z1U12:MD(Z1)::D$:D1$"*DELETE*"DP%(N1%)0ST_U9:13:TW$"":XЖ(1):"THE DISBURSMENT FILE IS ";R((ND60)100);" % FULL";(7)GK77LD$;"READD,R";N%:DD$:Z1U12:MD(Z1)::(23):(1):D$MN71:N%ZD$(N1%)DC$LDLD1:DP%(N1%)LD:N%LD:80ON%ZNDNDU:D$(ND)DC$:LDLD1:DP%(ND)LD:N%LD7PM%(((C$,(12Q)13,9))):DC$(Q)OC$(Q):DV(Q)OV(Q):CVR(CVOV(Q))::D$LFrG(DC$)3DC$DC$(SP$,3(DC$))HN%Z:(23):(U):D$:X1UND:D$(X1)DC$N%DP%(X1):N1%X1:X1NDI:N%Z76?JX1U12:MD(X1)Z::DD$"UNKNOWN":(ND60).9Ģ(23):X)ZCT%(X)2)D1%U)670BLCCN(X)X%X:XNCIC:X%ZCP%(X%)Z70DD$:D$;"READC,R";CP%(X%):C$:LD$(C$,1,6):DX$LD$:50:DF$DX$:TD$(LD$,2)(LD$,3,2)(LD$,2)FETW$(C$,7,15):M$(C$,82,15)::CV0:QU5:OC$(Q)(C$,(12Q)10,3):OV(Q)R1:";T%ZX$((NF)):62I<X$(NF):NF(NF)X$X$".00":62n=(X$,((X$)U),U)"."X$X$"0">(X$)NC%X$("*****************",NC%):64?(X$)NC%X$(SP$,NC%(X$))X$@AX%Z:XUNC:((CT%(X)UCT%(X)3)D1%Z)((CT%()(DX$,2):!6DM$"DDMMYY"57P7DM$"MMDDYY"X$(X$,3,2)(X$,2)(X$,2)8DM$"YYMMDD"X$(X$,2)(X$,3,2)(X$,2)9R%0:(X$,2)"00"(X$,2)"31"(X$,3,2)"01"(X$,3,2)"12"(X$,2)"80"(X$,2)"99"Ģ(23):(1):"FORMAT IS ";DM$;(7):R%ALID CHARACTERS";(7):X$"":21(/R%0.041o2DM$"DDMMYY"DX$(DX$,2)"/"(DX$,3,2)"/"(DX$,2)3DM$"MMDDYY"DX$(DX$,3,2)"/"(DX$,2)"/"(DX$,2)4DM$"YYMMDD"DX$(DX$,2)"/"(DX$,3,2)"/"(DX$,2) 5QD$(DX$,2)(DX$,4,2X9,1):X9$"-"X91431)X9$"."D9%D9%1:43L*X9$"0"X9$"9"X9%1+:D9%1X9%1Ģ(23):(1):"MUST BE NUMERIC";(7):X$"":21,R%0:49-X9%0:X91C9%:D9%((X$,X9,1)):D9%32D9%90D9%44D9%58X9%1.:X9%1Ģ(23):(1):"INV9%0R%1:49]$(V%):(H%C9%):X9$:X$X$X9$:C9%C9%1:XL$X$(XL$,C9%1):L9%(XL$):22%C9%(X$):(V%):(C9%H%):L9%C9%):C9%0R%0:48&C9%NC%Ģ(23):(1):"FIELD TOO LONG";(7):X$"":21'T%145(X9%0:D9%0:X91C9%:X9$(X$,C%:21( F9%0Ģ(23):(1):39):F9%1: X9$(13)37L X9$(8)31` C9%0R%3:49 C9%C9%1:C9%0X$"":22 34 X9$(21)35 C9%0R%2:49 !C9%C9%1:C9%L9%L9%L9%1:XL$XL$" " "X$(XL$,C9%):22 #X9$" "C";:X$:D :(12):(1):"INSERT DATA DISK - PRESS RETURN ";:X$:[ (23):(U):39):l XL$X$:X$"" C9%0:L9%(XL$):F9%0 (V%):(H%C9%):X9$:X9$(27)C9%025 (23):(1):"FIELD IS ";:T%1ĺ"ALPHA"; "NUMERIC - LENGTH IS ";N----------------"j (4):(U):NFTC:NC%11:T%U:59:X$;:NFTD:NC%13:59:X$;:NFR(OBTCTD):59:X$: (23):(U):"INVALID ENTRY";(7): (23):(1):"INVALID SELECTION";(7): :(12):(1):"INSERT ";::"BACKUP";::" DISK - PRESS RETURN " ";:DX$SD$:50:DX$:: :(1):(13):"CASHBOOK 2.0":m (23):(1):"PRESS RETURN TO CONTINUE ";:X$: :"** END OF REPORT - USER ";US$;" ***":L%L%2:4: (3):(U):"TOTAL CREDIT TOTAL DEBIT CLOSING BAL":(5):(U):"---------------------6,0:40383,0:479D 1012,0:33,40:U1:Z0::"NOMON C,I,O":369[ FF$"Y"ĺ(12):6p L8L%65:" ":v  (23):(1):"SPACE TO EXIT - RETURN TO CONTINUE ";:X$:R%Z:X$" "R%U (23):(1):39): :(1):((40(CN$))2)1);CN$;}` 169,76,133,186,169,13,133,187,169,3,133,188,96,201,58,176,3,76,190,0,8,201,188,240,6,201: 183,240,2,40,96,169,8,133,185,169,0,133,184,168,145,184  200,208,251,165,185,197,176,240,6,230,185,169,0,240,239,76,0,224:X768827:V:X,V:X:768:97                              PLID CHARACTERS";(7):X$"":21(/R%0.041o2DM$"DDMMYY"DX$(DX$,2PLID CHARACTERS";(7):X$"":21(/R%0.041o2DM$"DDMMYY"DX$(DX$,2PLID CHARACTERS";(7):X$"":21(/R%0.041o2DM$"DDMMYY"DX$(DX$,2