Home » CEEFAX disks » telesoftware1.adl » General/ACCOUNT
General/ACCOUNT
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware1.adl |
| Filename: | General/ACCOUNT |
| Read OK: | ✔ |
| File size: | 2FEB bytes |
| Load address: | 1900 |
| Exec address: | 8023 |
File contents
10REM Church Accounts by D J McKelvie Jan 23, 1986
15ONERROR:X=0:GOTO70
20*FX11,0
25PROCv
30DIMO$(52),O(52),DT$(52),YR$(52),YR%(52),YR(52),G$(52),G(52),GG$(52),DO$(52),DO(52),DD$(52),MI$(52),MI(52),MM$(52),W(4),U(10),E$(52),EE$(52),F$(52),FF$(52),ET$(52),DP$(52)
50PROCstart
70PROCmenu
90DEFPROCheading(T$)
110CLS:FORI=1TO2:PRINTCHR$132;CHR$157;CHR$133;CHR$141;TAB(11-LEN(T$)/2)"]]]]]]]]";CHR$131;T$;CHR$133;"[[[[[[[[":NEXT
130ENDPROC
150DEFPROCchange:IFY$=" F.000" ORY$=" f.000" R%=1
170VDU31,0,23,132,157,133:PRINT"Want to change anything (Y/N)? ";:PROCyn
190IFA$="N"ORA$="n" GOTO310
192IFA=8 LL$="3" ELSELL$="8"
210PRINTTAB(3,23)"Press line number ":REPEATL$=GET$:UNTILL$>"0"ANDL$<=LL$:L%=VAL(L$)
212CLS:VDU31,0,23,132,157,133:PRINT"Enter correct data and press RETURN"
214IFA=8 X=2:VDU31,0,10:PROCnotes:X=0:ENDPROC
231PRINTTAB(0,10);L%;" ";DT$(U(L%)):VDU31,14,10
232INPUT"Amount "Y$:PROCadjust
233IFA=1 O$(U(L%))=Y$:O(U(L%))=VAL(O$(U(L%)))
234IFA=2 G$(U(L%))=Y$:G(U(L%))=VAL(G$(U(L%)))
235IFA=3 DO$(U(L%))=Y$:DO(U(L%))=VAL(G$(U(L%)))
236IFA=4 MI$(U(L%))=Y$:MI(U(L%))=VAL(MI$(U(L%)))
237IFA<>1 VDU133:INPUTTAB(2)X$
238IFA=2 GG$(U(L%))=X$ ELSEIFA=3 DD$(U(L%))=X$ ELSEIFA=4 MM$(U(L%))=X$
239PROCchange
240IFR%=1 II=II-1:R%=0
310ENDPROC
430DEFPROCspace(A$)
470VDU31,0,23,132,157,133:PRINT" Press SPACE "A$"... ":REPEATA$=GET$:UNTILA$=" "
490ENDPROC
510DEFPROCpaper
530VDU31,0,23,132,157,133:PRINT"Paper...? Switched on...? (Y)?"
550REPEATA$=GET$:UNTILA$="Y" ORA$="y"
570 ENDPROC
590DEFPROCyn
610REPEAT A$=GET$:UNTILA$="Y" ORA$="y" ORA$="N" ORA$="n"
630ENDPROC
650DEFPROCmenu
660IFDT$(1)="" CLS:PRINTTAB(0,2)"No starting data...":PROCspace("to start"):PROCstart
670PROCheading(" M E N U ")
690PRINTTAB(12,8)CHR$133"1 Offertories"
710PRINTTAB(12)CHR$134"2 Misc Income"
730PRINTTAB(12)CHR$130"3 Donations"
750PRINTTAB(12)CHR$133"4 Misc Expenses"
770PRINTTAB(12)CHR$134"5 Save Data"
790PRINTTAB(12)CHR$130"6 Load Data"
810PRINTTAB(12)CHR$133"7 Printout"
830PRINTTAB(12)CHR$134"8 Bank Accts"
831PRINTTAB(12)CHR$130"9 Balance"
850PRINT'CHR$129"ESCAPE"CHR$133"- cancels option & returns here"
870VDU31,0,23,132,157,133:PRINTTAB(3)"Press appropriate number..."
890REPEATA$=GET$:UNTILA$>"0"ANDA$<="9"
910A=VAL(A$)
920ONA GOTO930,930,930,930,1010,1030,1050,1070,1071
930PROCoff:GOTO670
1010PROCsave:GOTO670
1030PROCload:GOTO670
1050PROCprint:GOTO670
1070PROCnotes:GOTO670
1071PROCbal:GOTO670
1090ENDPROC
1110DEFPROCsave
1130PROCheading("SAVE DATA")
1150IFO$(1)="":PROCno:GOTO1330
1170PRINTTAB(0,3)"Put data cassette in recorder"''"Check that recording level controls - volume, bass, treble - are set correctly"'"Make sure that all tape movement controlbuttons are 'off'"
1190PRINT'"When the red cassette motor light comes on after pressing SPACE as instructed below, advance or reverse the tape to the point where you want to start recording the data. Then..."
1210PROCspace("when ready"):VDU31,0,23:PRINTSPC39
1230VDU31,19,15,130
1250X=OPENOUT"CHURCHACC":FORI=1TO2000:NEXT:VDU31,10,19,136,129:PRINT"Saving data..."
1251FORI=1TO52:PRINT#X,O$(I),O(I),DT$(I),YR$(I),YR%(I),YR(I),G$(I),G(I),GG$(I),DO$(I),DO(I),DD$(I),MI$(I),MI(I),MM$(I),E$(I),EE$(I),F$(I),FF$(I),ET$(I):NEXT
1252PRINT#X,YR$,YR%,YR,YRS$,M$,M%,D$,D%,SB$,SB,A1,A2,A3,A4
1253FORI=1TO4:PRINT#X,W(I):NEXT
1254FORI=1TO10:PRINT#X,U(I):NEXT
1255PRINT#X,FD%,FD,SA%,SA
1290CLOSE#X
1310VDU31,10,19,130:PRINT"Data saved... "
1315X3=IN:X4=EX:X5=EB
1330PROCspace("for menu")
1370ENDPROC
1390DEFPROCload
1410PROCheading("LOAD DATA")
1430PRINTTAB(0,3)"Put data cassette in recorder"''"Check that recording level controls - volume, bass, treble - are set correctly"'"Make sure that all tape movement controlbuttons are 'off'"
1450PRINT'"When the cassette motor light comes on after pressing SPACE as prompted below, advance or reverse the tape to where thedata starts. Then press play and wait..."
1470PROCspace("when ready"):PRINTTAB(0,23)SPC39
1490PROCv
1530Q=OPENIN"CHURCHACC":VDU31,10,19,136,129:PRINT"Loading data..."
1540FORI=1TO52:INPUT#Q,O$(I),O(I),DT$(I),YR$(I),YR%(I),YR(I),G$(I),G(I),GG$(I),DO$(I),DO(I),DD$(I),MI$(I),MI(I),MM$(I),E$(I),EE$(I),F$(I),FF$(I),ET$(I):NEXT
1550INPUT#Q,YR$,YR%,YR,YRS$,M$,M%,D$,D%,SB$,SB,A1,A2,A3,A4
1555FORI=1TO4:INPUT#Q,W(I):NEXT
1560FORI=1TO10:INPUT#Q,U(I):NEXT
1565INPUT#Q,FD%,FD,SA%,SA
1570CLOSE#Q
1590VDU31,10,19,130:PRINT"Data loaded... "
1592A=6:PROCbal:X3=IN:X4=EX:X5=EB
1610PROCspace("for Menu")
1650ENDPROC
1670DEFPROCprint PROCbal:PROCheading("PRINTOUT"):IFO$(1)="" ORIN<>X3 OREX<>X4 OREB<>X5 PROCno:PROCspace("for menu"):ENDPROC
1672PRINTTAB(0,12)"Paper - A4 minimum..."
1674PROCpaper
1676VDU2
1677IFA1>A2 ANDA1>A3 ANDA1>A4 A5=A1 ELSEIFA2>A1 ANDA2>A3 ANDA2>A4 A5=A2 ELSEIFA3>A1 ANDA3>A2 ANDA3>A4 A5=A3 ELSEA5=A4
1678PRINT;SPC18;"AWALI INTERDENOMINATIONAL CHURCH":PRINT;SPC24;"FINANCIAL STATEMENT":PRINT;SPC21;DT$(1);", 19";YR$(1);" - ";DT$(A5);", 19";YR$(A5)
1680PRINT:PRINT;"(A) BALANCE":PRINT;" Starting Balance ";SB$:PRINT;" Income ";IN$;" (B+E)":PRINT;" Expenditure ";EX$;" (C+D)":PRINT;" Ending Balance ";EB$;" (Note 1)":PRINT
1682VDU3,4
1742FORI=1TO3:IFI=1 C$="(B) MISC INCOME" ELSEIFI=2 C$="(C) DONATIONS" ELSEC$="(D) MISC EXPENSES"
1743IFI=1 E$=GT$ ELSEIFI=2 E$=DT$ ELSEE$=MT$
1744 IFI=1 FORI1=1TOA2:F$(I1)=G$(I1):FF$(I1)=GG$(I1):NEXT
1745 IFI=2 FORI2=1TOA3:F$(I2)=DO$(I2):FF$(I2)=DD$(I2):NEXT
1746 IFI=3 FORI3=1TOA4:F$(I3)=MI$(I3):FF$(I3)=MM$(I3):NEXT
1752IFI=1 XX=A2 ELSEIFI=2 XX=A3 ELSEXX=A4
1753VDU2
1754PRINT;C$
1755VDU3
1756PROCsort(XX)
1757VDU2:IFE$=" 0.000" GOTO1759
1758FORK=1TOJ-1:PRINT;" ";ET$(K);" ";E$(K):PRINT;" ";EE$(K):NEXT
1759PRINT;" TOTAL: ";E$:PRINT
1761VDU3,4
1762NEXT:SA=EB-FD:Y$=STR$(SA):PROCadjust:SA$=Y$
1763VDU2
1764PRINT"NOTES":PRINT"1 National Bank of Bahrain, Awali":PRINT;SPC3;"i) Fixed Deposit No: ";FD%;" BD:";FD:PRINT;SPC2;"ii) Savings Account No: ";SA%;" BD:";SA$:PRINT''"Treasurer: D J McKelvie POBox25367 Awali"
1765PRINT"Auditor : V L Williams POBox25240 Awali":VDU3,4
1766CLS:PRINTTAB(0,5)"When printer stops, reset paper top..."
1768FORI=1TOA1:IFLEFT$(DT$(I-1),3)=LEFT$(DT$(I),3) THENDP$(I)=" "+RIGHT$(DT$(I),3) ELSEDP$(I)=DT$(I)
1769NEXT:PRINT''"Done it...Y?":PROCyn:IFA$="Y" ORA$="y" CLS:PROCspace("to continue"):ELSE GOTO1769
1770VDU2:PRINT:PRINT:PRINT:PRINT:PRINT;SPC50;"(E) OFFERTORIES"
1771FORL=1TOA1:PRINT;SPC54;DP$(L);" ";O$(L):NEXT:PRINT;SPC54;"TOTAL: ";OT$
1772VDU3,4
1910ENDPROC
1930DEFPROCoff
1950PROCheading2
1990IFA=1 VV=1 ELSEVV=2
2010IFX=1GOTO2030ELSEPROCmenu2:ENDPROC
2030PROCheading(Z$)
2031IFOT>0 ANDB=1 ANDA=1 PROCno
2032IFGT>0 ANDB=1 ANDA=2 PROCno
2033IFDT>0 ANDB=1 ANDA=3 PROCno
2034IFMT>0 ANDB=1 ANDA=4 PROCno
2035IFA$="N" ORA$="n" ENDPROC
2036PROCheading(Z$)
2050IFA=1 V=4:PRINT"Enter amount opposite date. If no entry,enter N. Press F and Return to exit:"
2070IFA<>1 V=5:PRINT"Enter amount opposite date. If no entry,enter N. Type description under date andamount. Press F and Return to exit:"
2071YR$(0)=YRS$:YR(0)=131
2072PRINTSPC3CHR$YR(II);CHR$157CHR$132"19";YR$(II);" ";CHR$156
2090U=0:U(0)=0:FORI=1TO8:II=II+1:U=U+1:U(U)=II:DT1$=DT$(II-1):DT$=DT$(II):IFLEFT$(DT1$,3)=LEFT$(DT$,3) DT$=" "+RIGHT$(DT$,3)
2091IFI=1 DT$=DT$(II)
2092PRINTTAB(0);I;" ";DT$
2110VDU31,14,V+1:INPUT" "Y$:YY$=LEFT$(Y$,1)
2111IFY$="" OR(YY$<>"1" ANDYY$<>"2" ANDYY$<>"3" ANDYY$<>"4" ANDYY$<>"5" ANDYY$<>"6" ANDYY$<>"7" ANDYY$<>"8" ANDYY$<>"9" ANDYY$<>"N" ANDYY$<>"n" ANDYY$<>"F" ANDYY$<>"f" ANDYY$<>".")VDU11,31,21,V+1:PRINT" ":GOTO2110
2112V=V+VV:IFY$="F" ORY$="f" OR II=52 THENI=8:XX=II-1:IFII=52 XX=52
2113PROCadjust:IFA=1 O$(II)=Y$:O(II)=VAL(O$(II)):IFY$=" N.000" ORY$=" n.000" O$(II)="No Service"
2114IFA=2 G$(II)=Y$:G(II)=VAL(G$(II))
2115IFA=3 DO$(II)=Y$:DO(II)=VAL(DO$(II))
2116IFA=4 MI$(II)=Y$:MI(II)=VAL(MI$(II))
2117IFA=1 A1=XX ELSEIFA=2 A2=XX ELSEIFA=3 A3=XX ELSEA4=XX
2130IFA<>1 ANDY$<>" F.000" ANDY$<>" f.000" ANDY$<>" N.000" ANDY$<>" n.000" VDU133:INPUTTAB(3)X$:IFX$="" VDU11:GOTO2130
2132IFA<>1 AND(Y$=" N.000" ORY$=" n.000") PRINT:X$=""
2134IFA=2 GG$(II)=X$ ELSEIFA=3 DD$(II)=X$ ELSEIFA=4 MM$(II)=X$
2150NEXT:PROCchange
2170IFY$<>" F.000" ANDY$<>" f.000" ANDII<52 GOTO2036
2171IFA=1 W(1)=II ELSEIFA=2 W(2)=II ELSEIFA=3 W(3)=II ELSEW(4)=II
2210PROCtotal
2250ENDPROC
2650DEFPROCdate
2670FORZ=1TO52
2690IFD%>28 ANDM%=2 ANDY%<>88 M%=M%+1:D%=D%-28
2710IFD%>30 ANDM%<>2 ANDM%<>1 ANDM%<>3 ANDM%<>5 ANDM%<>7 ANDM%<>8 ANDM%<>10 ANDM%<>12 M%=M%+1:D%=D%-30
2730IFD%>31 ANDM%<>2 ANDM%<>4 ANDM%<>6 ANDM%<>9 ANDM%<>11 M%=M%+1:D%=D%-31
2750IFM%=13 M%=1:YR%=YR%+1:YR=YR+2
2751YR%(Z)=YR%:YR$(Z)=STR$(YR%(Z)):YR(Z)=YR
2790FORI=1TOM%:READM$:NEXT
2810RESTORE3850
2830D$=STR$(D%):IFLEN(D$)=1 D$=" "+D$
2850DT$(Z)=M$+" "+D$
2870D%=D%+7
2890NEXT
2910ENDPROC
2930DEFPROCmenu2
2950PROCheading(Z$)
2970PRINTTAB(13,8)CHR$133"1 Start"
2990PRINTTAB(13)CHR$130"2 Continue"
3010PRINTTAB(13)CHR$134"3 Read"
3011PRINTTAB(13)CHR$133"4 Main Menu"
3050VDU31,0,23,132,157,133:PRINTTAB(3)"Press appropriate number..."
3070REPEATA$=GET$:UNTILA$>"0"ANDA$<="4"
3090B=VAL(A$):ONB GOTO3110,3130,3150,3170
3110X=1:PROCoff:X=0:GOTO2930
3130IFA=1 II=W(1) ELSEIFA=2 II=W(2) ELSEIFA=3 II=W(3) ELSEII=W(4)
3131IFII>0 II=II-1
3132X=1:PROCoff:X=0:GOTO2930
3150PROCread:GOTO2930
3170ENDPROC
3190DEFPROCread
3191PROCheading2
3230PROCheading(Z$)
3232YR$(0)=YRS$:YR(0)=131
3234PRINTSPC3CHR$YR(II);CHR$157CHR$132"19";YR$(II);" ";CHR$156
3236U=0:U(0)=0:FORI=1TO8:II=II+1:U=U+1:U(U)=II:IFA=1 Y$=O$(II) ELSEIFA=2 Y$=G$(II) ELSEIFA=3 Y$=DO$(II) ELSEY$=MI$(II)
3238IFA<>1 AND(Y$=" N.000" ORY$=" n.000") Y$=" -"
3240DT1$=DT$(II-1):DT$=DT$(II):IFLEFT$(DT1$,3)=LEFT$(DT$,3) DT$=" "+RIGHT$(DT$,3)
3242IFI=1 DT$=DT$(II)
3252PRINTTAB(0);I;" ";DT$;" ";Y$:IFY$=" F.000" ORY$=" f.000" ORII=52 I=8:IFY$=" F.000" ORY$=" f.000" VDU11:PRINTSPC38:GOTO3256
3253IFA=2 W$=GG$(II) ELSEIFA=3 W$=DD$(II) ELSEW$=MM$(II)
3255IFA<>1PRINTTAB(3)CHR$133;W$
3256NEXT:IFY$<>" F.000" ANDY$<>" f.000" ANDII<52 PROCchange:GOTO3230
3332PROCchange:PROCtotal
3350ENDPROC
3370DEFPROCadjust
3390 IFMID$(Y$,1,1)<>".":IFMID$(Y$,2,1)<>".":IFMID$(Y$,3,1)<>".":IFMID$(Y$,4,1)<>".":IFMID$(Y$,5,1)<>".":Y$=Y$+"."
3410 IFMID$(Y$,1,1)="." Y$=" "+Y$
3430 IFMID$(Y$,2,1)="." Y$=" "+Y$
3450 IFMID$(Y$,3,1)="." Y$=" "+Y$
3470IFMID$(Y$,4,1)="." Y$=" "+Y$
3550IFLEN(Y$)<6 Y$=Y$+"000"
3570IFLEN(Y$)<7 Y$=Y$+"00"
3590IFLEN(Y$)<8 Y$=Y$+"0"
3591IFFL=1 Y$=LEFT$(Y$,8):FL=0
3592IFLEN(Y$)>8 Y=VAL(Y$):Y=Y+.0001:Y$=STR$(Y):FL=1:GOTO3390
3610ENDPROC
3611DEFPROCstart
3612CLS:PROCheading("User Guide"):PRINT"This is a simple but complete book- keeping and accounting program."
3613PRINT'"Four journals are provided: two for inc-ome, two for expenditure, selected from the main menu. The selected journal is worked from a sub-menu."
3614PRINT'"The names of the journals have been selected for church accounts or similar,but could be changed to be more suitable for other purposes and could beincreased in number."
3616PRINT'"Beginning at a user-specified starting date, the program is set to accept entries at weekly intervals throughout afull year. The successive weekly dates then appear without effort by the user."
3617PRINT'"No currency signs or commas in amounts."
3618PROCspace("to start")
3630CLS:PRINT'''TAB(12)CHR$132CHR$157CHR$131CHR$141" CHURCH "CHR$156:PRINTTAB(12)CHR$132CHR$157CHR$131CHR$141" CHURCH "CHR$156:PRINTTAB(12)CHR$132CHR$157CHR$131CHR$141"ACCOUNTS "CHR$156
3631PRINTTAB(12)CHR$132CHR$157CHR$131CHR$141"ACCOUNTS "CHR$156
3632PRINT''"New start...Y/N?";:PROCyn:PRINT" ";A$:B$=A$
3633PRINT"Sure...Y/N?":PROCyn:IFA$="N"ORA$="n" CLS:GOTO3630
3635IFB$="N"ORB$="n" PROCload:ENDPROC
3650CLS:PRINT'''''"Enter starting data:-"
3670INPUTTAB(6,10)"Year (last two digits): "YR$:IFYR$="" THENVDU11:GOTO3670
3690YR%=VAL(YR$):YR=131:YRS$=YR$
3710 INPUTTAB(6)"Month (number): "M$:IFM$="" THENVDU11:GOTO3710
3730M%=VAL(M$)
3750INPUTTAB(6)"Day (number): "D$:IFD$="" THENVDU11:GOTO3750
3770D%=VAL(D$)
3771INPUTTAB(6)"Starting Balance: "SB$:IFSB$="" THENVDU11:GOTO3771
3772Y$=SB$:PROCadjust:SB$=Y$:SB=VAL(Y$)
3790PRINT'''"All correct (Y/N)...?":PROCdate:PROCyn
3810IFA$="N"ORA$="n" CLS:GOTO3650
3830ENDPROC
3850DATA Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec
3870DEFPROCheading2
3890IFB<>2 II=0
3900IFA=1 Z$="Offertories" ELSEIFA=2 Z$="Misc Income" ELSEIFA=3 Z$="Donations" ELSEZ$="Misc Expenses"
3920ENDPROC
3940DEFPROCtotal
3941OT=0:FORI=1TO52:OT=OT+O(I):NEXT:OT$=STR$(OT):Y$=OT$:PROCadjust:OT$=Y$
3942GT=0:FORI=1TO52:GT=GT+G(I):NEXT:GT$=STR$(GT):Y$=GT$:PROCadjust:GT$=Y$
3943DT=0:FORI=1TO52:DT=DT+DO(I):NEXT:DT$=STR$(DT):Y$=DT$:PROCadjust:DT$=Y$
3944MT=0:FORI=1TO52:MT=MT+MI(I):NEXT:MT$=STR$(MT):Y$=MT$:PROCadjust:MT$=Y$
3945IFA=9 ORA=7 ORA=6 ENDPROC
3946IFA=1 T=OT ELSEIFA=2 T=GT ELSEIFA=3 T=DT ELSET=MT
3960IFA=1 ANDB<>3 V=U+4 ELSEIFB<>3 V=U*2+4
3961IFB=3 ANDA=1 V=U+2 ELSEIFB=3 V=U*2+1
3962VDU31,0,V
3980PRINTCHR$132;CHR$157;CHR$131;CHR$141;"Total ";Z$;" = ";T;" ":PRINTCHR$132;CHR$157;CHR$131;CHR$141;"Total ";Z$;" = ";T;" "
4000PROCspace("for Menu")
4020ENDPROC
4040DEFPROCbal
4041PROCtotal
4042IFA=6 ORA=7 GOTO4062
4060PROCheading("B A L A N C E")
4062IN=OT+GT:Y$=STR$(IN):PROCadjust:IN$=Y$
4064EX=DT+MT:Y$=STR$(EX):PROCadjust:EX$=Y$
4066EB=SB+IN-EX:Y$=STR$(EB):PROCadjust:EB$=Y$
4067IFA=6 ORA=7 ENDPROC
4079VDU31,0,6
4080FORI=1TO2:PRINTTAB(5)CHR$133CHR$141"Starting Balance ";CHR$131;SB$:NEXT
4100FORI=1TO2:PRINTTAB(5)CHR$133CHR$141"Income ";CHR$131;IN$:NEXT
4120FORI=1TO2:PRINTTAB(5)CHR$133CHR$141"Expenditure ";CHR$131;EX$:NEXT
4140FORI=1TO2:PRINTTAB(5)CHR$133CHR$141"Ending Balance ";CHR$131;EB$:NEXT
4141PROCspace("for Menu")
4160ENDPROC
4180DEFPROCno
4181IFA>4 ANDO$(1)="" PRINT"No data..."'"Enter data using options 1, 2, 3, 4 or 6of main menu...":ENDPROC
4183IFA=7 PRINT"Before printing, save data by using"'"option 5...":ENDPROC
4190PRINT"You'll erase all previous "Z$'"Do you really want to start at the"'"beginning of "Z$"......Y/N?":PROCyn
4200ENDPROC
4220DEFPROCsort(XX)
4221J=1
4222LOCALI
4240FORI=1TOXX:IFF$(I)=" N.000" ORF$(I)=" n.000" GOTO4280
4260ET$(J)=DT$(I):E$(J)=F$(I):EE$(J)=FF$(I):J=J+1
4280NEXT
4340ENDPROC
4350DEFPROCnotes
4355IFX=2 ONL%GOTO4361,4363,4365
4360PROCheading("Bank Accts"):PRINTCHR$133"National Bank of Bahrain, Awali":IFFD%>0 GOTO4370
4361INPUT"1 Fixed Deposit Acct No: ";FD%:IFFD%=0 VDU11:GOTO4361
4362IFX=2 GOTO4480
4363INPUT"2 Fixed Deposit Amount: ";FD:IFFD=0 VDU11:GOTO4363
4364IFX=2 GOTO4480
4365INPUT"3 Savings Acct No: ";SA%:IFSA%=0 VDU11:GOTO4365
4366IFX=2 GOTO4480
4367PRINT'"Savings account balance will be calculated in the program...":GOTO4480
4370PRINT"1 Fixed Deposit Acct No: ";FD%:PRINT"2 Fixed Deposit Amount: ";FD:PRINT"3 Savings Acct No: ";SA%:PRINT'"Savings account balance will be calculated in the program..."
4480PROCchange
4490PROCspace("for Menu")
4500ENDPROC
4510 DEFPROCv
4520A=0:B=0:X=0:XX=0:OT=0:GT=0:DT=0:MT=0:A1=0:A2=0:A3=0:A4=0:FL=0:X$="":FD%=0:FD=0:SA%=0:SA=0:X3=0:X4=0:X5=0
4550ENDPROC
:� Church Accounts by D J McKelvie Jan 23, 1986
�:X=0:�DF@
*FX11,0
�v
��O$(52),O(52),DT$(52),YR$(52),YR%(52),YR(52),G$(52),G(52),GG$(52),DO$(52),DO(52),DD$(52),MI$(52),MI(52),MM$(52),W(4),U(10),E$(52),EE$(52),F$(52),FF$(52),ET$(52),DP$(52)
2
�start
F �menu
Z��heading(T$)
nR�:�I=1�2:�132;�157;�133;�141;�11-�(T$)/2)"]]]]]]]]";�131;T$;�133;"[[[[[[[[":�
��
�/��change:�Y$=" F.000" �Y$=" f.000" R%=1
�D�31,0,23,132,157,133:�"Want to change anything (Y/N)? ";:�yn
��A$="N"�A$="n" �TvA
��A=8 LL$="3" �LL$="8"
�I�3,23)"Press line number ":�L$=�:�L$>"0"�L$<=LL$:L%=�(L$)
�A�:�31,0,23,132,157,133:�"Enter correct data and press RETURN"
�"�A=8 X=2:�31,0,10:�notes:X=0:�
�*�0,10);L%;" ";DT$(U(L%)):�31,14,10
��"Amount "Y$:�adjust
�+�A=1 O$(U(L%))=Y$:O(U(L%))=�(O$(U(L%)))
�+�A=2 G$(U(L%))=Y$:G(U(L%))=�(G$(U(L%)))
�-�A=3 DO$(U(L%))=Y$:DO(U(L%))=�(G$(U(L%)))
�.�A=4 MI$(U(L%))=Y$:MI(U(L%))=�(MI$(U(L%)))
��A<>1 �133:�2)X$
�>�A=2 GG$(U(L%))=X$ ��A=3 DD$(U(L%))=X$ ��A=4 MM$(U(L%))=X$
� �change
��R%=1 II=II-1:R%=0
6�
���space(A$)
�E�31,0,23,132,157,133:�" Press SPACE "A$"... ":�A$=�:�A$=" "
��
� ��paper
>�31,0,23,132,157,133:�"Paper...? Switched on...? (Y)?"
&�A$=�:�A$="Y" �A$="y"
: �
N��yn
b*� A$=�:�A$="Y" �A$="y" �A$="N" �A$="n"
v�
�
��menu
�F�DT$(1)="" �:�0,2)"No starting data...":�space("to start"):�start
��heading(" M E N U ")
� �12,8)�133"1 Offertories"
� �12)�134"2 Misc Income"
��12)�130"3 Donations"
� �12)�133"4 Misc Expenses"
�12)�134"5 Save Data"
�12)�130"6 Load Data"
*�12)�133"7 Printout"
>�12)�134"8 Bank Accts"
?�12)�130"9 Balance"
R7�'�129"ESCAPE"�133"- cancels option & returns here"
f:�31,0,23,132,157,133:�3)"Press appropriate number..."
z�A$=�:�A$>"0"�A$<="9"
� A=�(A$)
�4�A �tbC,�tbC,�tbC,�tbC,�drC,�TFD,�TZD,�TnD,�ToD
��off:�t^B
��save:�t^B
�load:�t^B
�print:�t^B
.�notes:�t^B
/�bal:�t^B
B�
V
��save
j�heading("SAVE DATA")
~�O$(1)="":�no:�TrE
���0,3)"Put data cassette in recorder"''"Check that recording level controls - volume, bass, treble - are set correctly"'"Make sure that all tape movement controlbuttons are 'off'"
���'"When the red cassette motor light comes on after pressing SPACE as instructed below, advance or reverse the tape to the point where you want to start recording the data. Then..."
�&�space("when ready"):�31,0,23:�39
��31,19,15,130
�BX=�"CHURCHACC":�I=1�2000:�:�31,10,19,136,129:�"Saving data..."
��I=1�52:�#X,O$(I),O(I),DT$(I),YR$(I),YR%(I),YR(I),G$(I),G(I),GG$(I),DO$(I),DO(I),DD$(I),MI$(I),MI(I),MM$(I),E$(I),EE$(I),F$(I),FF$(I),ET$(I):�
�6�#X,YR$,YR%,YR,YRS$,M$,M%,D$,D%,SB$,SB,A1,A2,A3,A4
��I=1�4:�#X,W(I):�
��I=1�10:�#X,U(I):�
��#X,FD%,FD,SA%,SA
�#X
#�31,10,19,130:�"Data saved... "
#X3=IN:X4=EX:X5=EB
2�space("for menu")
Z�
n
��load
��heading("LOAD DATA")
���0,3)"Put data cassette in recorder"''"Check that recording level controls - volume, bass, treble - are set correctly"'"Make sure that all tape movement controlbuttons are 'off'"
���'"When the cassette motor light comes on after pressing SPACE as prompted below, advance or reverse the tape to where thedata starts. Then press play and wait..."
�#�space("when ready"):�0,23)�39
��v
�7Q=�"CHURCHACC":�31,10,19,136,129:�"Loading data..."
��I=1�52:�#Q,O$(I),O(I),DT$(I),YR$(I),YR%(I),YR(I),G$(I),G(I),GG$(I),DO$(I),DO(I),DD$(I),MI$(I),MI(I),MM$(I),E$(I),EE$(I),F$(I),FF$(I),ET$(I):�
6�#Q,YR$,YR%,YR,YRS$,M$,M%,D$,D%,SB$,SB,A1,A2,A3,A4
�I=1�4:�#Q,W(I):�
�I=1�10:�#Q,U(I):�
�#Q,FD%,FD,SA%,SA
"�#Q
6$�31,10,19,130:�"Data loaded... "
8 A=6:�bal:X3=IN:X4=EX:X5=EB
J�space("for Menu")
r�
�`��print �bal:�heading("PRINTOUT"):�O$(1)="" �IN<>X3 �EX<>X4 �EB<>X5 �no:�space("for menu"):�
�"�0,12)"Paper - A4 minimum..."
�
�paper
��2
�]�A1>A2 �A1>A3 �A1>A4 A5=A1 ��A2>A1 �A2>A3 �A2>A4 A5=A2 ��A3>A1 �A3>A2 �A3>A4 A5=A3 �A5=A4
���;�18;"AWALI INTERDENOMINATIONAL CHURCH":�;�24;"FINANCIAL STATEMENT":�;�21;DT$(1);", 19";YR$(1);" - ";DT$(A5);", 19";YR$(A5)
���:�;"(A) BALANCE":�;" Starting Balance ";SB$:�;" Income ";IN$;" (B+E)":�;" Expenditure ";EX$;" (C+D)":�;" Ending Balance ";EB$;" (Note 1)":�
��3,4
�U�I=1�3:�I=1 C$="(B) MISC INCOME" ��I=2 C$="(C) DONATIONS" �C$="(D) MISC EXPENSES"
�$�I=1 E$=GT$ ��I=2 E$=DT$ �E$=MT$
�2 �I=1 �I1=1�A2:F$(I1)=G$(I1):FF$(I1)=GG$(I1):�
�3 �I=2 �I2=1�A3:F$(I2)=DO$(I2):FF$(I2)=DD$(I2):�
�3 �I=3 �I3=1�A4:F$(I3)=MI$(I3):FF$(I3)=MM$(I3):�
�!�I=1 XX=A2 ��I=2 XX=A3 �XX=A4
��2
��;C$
��3
�
�sort(XX)
��2:�E$=" 0.000" �d_F
�?�K=1�J-1:�;" ";ET$(K);" ";E$(K):�;" ";EE$(K):�
��;" TOTAL: ";E$:�
��3,4
�&�:SA=EB-FD:Y$=�(SA):�adjust:SA$=Y$
��2
��"NOTES":�"1 National Bank of Bahrain, Awali":�;�3;"i) Fixed Deposit No: ";FD%;" BD:";FD:�;�2;"ii) Savings Account No: ";SA%;" BD:";SA$:�''"Treasurer: D J McKelvie POBox25367 Awali"
�5�"Auditor : V L Williams POBox25240 Awali":�3,4
�4�:�0,5)"When printer stops, reset paper top..."
�L�I=1�A1:�DT$(I-1),3)=�DT$(I),3) �DP$(I)=" "+�DT$(I),3) �DP$(I)=DT$(I)
�K�:�''"Done it...Y?":�yn:�A$="Y" �A$="y" �:�space("to continue"):� �diF
�&�2:�:�:�:�:�;�50;"(E) OFFERTORIES"
�8�L=1�A1:�;�54;DP$(L);" ";O$(L):�:�;�54;"TOTAL: ";OT$
��3,4
v�
� ��off
�
�heading2
��A=1 VV=1 �VV=2
��X=1�dnG��menu2:�
��heading(Z$)
��OT>0 �B=1 �A=1 �no
��GT>0 �B=1 �A=2 �no
��DT>0 �B=1 �A=3 �no
��MT>0 �B=1 �A=4 �no
��A$="N" �A$="n" �
��heading(Z$)
]�A=1 V=4:�"Enter amount opposite date. If no entry,enter N. Press F and Return to exit:"
��A<>1 V=5:�"Enter amount opposite date. If no entry,enter N. Type description under date andamount. Press F and Return to exit:"
YR$(0)=YRS$:YR(0)=131
-�3�YR(II);�157�132"19";YR$(II);" ";�156
*jU=0:U(0)=0:�I=1�8:II=II+1:U=U+1:U(U)=II:DT1$=DT$(II-1):DT$=DT$(II):�DT1$,3)=�DT$,3) DT$=" "+�DT$,3)
+�I=1 DT$=DT$(II)
,�0);I;" ";DT$
> �31,14,V+1:�" "Y$:YY$=�Y$,1)
?��Y$="" �(YY$<>"1" �YY$<>"2" �YY$<>"3" �YY$<>"4" �YY$<>"5" �YY$<>"6" �YY$<>"7" �YY$<>"8" �YY$<>"9" �YY$<>"N" �YY$<>"n" �YY$<>"F" �YY$<>"f" �YY$<>".")�11,31,21,V+1:�" ":�T~H
@<V=V+VV:�Y$="F" �Y$="f" � II=52 �I=8:XX=II-1:�II=52 XX=52
A\�adjust:�A=1 O$(II)=Y$:O(II)=�(O$(II)):�Y$=" N.000" �Y$=" n.000" O$(II)="No Service"
B"�A=2 G$(II)=Y$:G(II)=�(G$(II))
C%�A=3 DO$(II)=Y$:DO(II)=�(DO$(II))
D%�A=4 MI$(II)=Y$:MI(II)=�(MI$(II))
E-�A=1 A1=XX ��A=2 A2=XX ��A=3 A3=XX �A4=XX
Rf�A<>1 �Y$<>" F.000" �Y$<>" f.000" �Y$<>" N.000" �Y$<>" n.000" �133:�3)X$:�X$="" �11:�DRH
T1�A<>1 �(Y$=" N.000" �Y$=" n.000") �:X$=""
V5�A=2 GG$(II)=X$ ��A=3 DD$(II)=X$ ��A=4 MM$(II)=X$
f
�:�change
z0�Y$<>" F.000" �Y$<>" f.000" �II<52 �dtG
{5�A=1 W(1)=II ��A=2 W(2)=II ��A=3 W(3)=II �W(4)=II
�
�total
��
Z
��date
n �Z=1�52
�)�D%>28 �M%=2 �Y%<>88 M%=M%+1:D%=D%-28
�U�D%>30 �M%<>2 �M%<>1 �M%<>3 �M%<>5 �M%<>7 �M%<>8 �M%<>10 �M%<>12 M%=M%+1:D%=D%-30
�?�D%>31 �M%<>2 �M%<>4 �M%<>6 �M%<>9 �M%<>11 M%=M%+1:D%=D%-31
�!�M%=13 M%=1:YR%=YR%+1:YR=YR+2
�(YR%(Z)=YR%:YR$(Z)=�(YR%(Z)):YR(Z)=YR
��I=1�M%:�M$:�
� ��TJO
D$=�(D%):�(D$)=1 D$=" "+D$
"DT$(Z)=M$+" "+D$
6 D%=D%+7
J�
^�
r ��menu2
��heading(Z$)
��13,8)�133"1 Start"
��13)�130"2 Continue"
��13)�134"3 Read"
��13)�133"4 Main Menu"
�:�31,0,23,132,157,133:�3)"Press appropriate number..."
��A$=�:�A$>"0"�A$<="4"
#B=�(A$):�B �TfL,�TzL,�DNL,�DbL
&X=1:�off:X=0:�DrK
:5�A=1 II=W(1) ��A=2 II=W(2) ��A=3 II=W(3) �II=W(4)
;�II>0 II=II-1
<X=1:�off:X=0:�DrK
N�read:�DrK
b�
v
��read
w
�heading2
��heading(Z$)
�YR$(0)=YRS$:YR(0)=131
�-�3�YR(II);�157�132"19";YR$(II);" ";�156
�gU=0:U(0)=0:�I=1�8:II=II+1:U=U+1:U(U)=II:�A=1 Y$=O$(II) ��A=2 Y$=G$(II) ��A=3 Y$=DO$(II) �Y$=MI$(II)
�4�A<>1 �(Y$=" N.000" �Y$=" n.000") Y$=" -"
�BDT1$=DT$(II-1):DT$=DT$(II):�DT1$,3)=�DT$,3) DT$=" "+�DT$,3)
��I=1 DT$=DT$(II)
�t�0);I;" ";DT$;" ";Y$:�Y$=" F.000" �Y$=" f.000" �II=52 I=8:�Y$=" F.000" �Y$=" f.000" �11:�38:�txL
�0�A=2 W$=GG$(II) ��A=3 W$=DD$(II) �W$=MM$(II)
��A<>1�3)�133;W$
�:�:�Y$<>" F.000" �Y$<>" f.000" �II<52 �change:�t^L
�change:�total
�
* ��adjust
>Y �Y$,1,1)<>".":�Y$,2,1)<>".":�Y$,3,1)<>".":�Y$,4,1)<>".":�Y$,5,1)<>".":Y$=Y$+"."
R �Y$,1,1)="." Y$=" "+Y$
f �Y$,2,1)="." Y$=" "+Y$
z �Y$,3,1)="." Y$=" "+Y$
��Y$,4,1)="." Y$=" "+Y$
��(Y$)<6 Y$=Y$+"000"
��(Y$)<7 Y$=Y$+"00"
�(Y$)<8 Y$=Y$+"0"
�FL=1 Y$=�Y$,8):FL=0
1�(Y$)>8 Y=�(Y$):Y=Y+.0001:Y$=�(Y):FL=1:�T~M
�
��start
g�:�heading("User Guide"):�"This is a simple but complete book- keeping and accounting program."
��'"Four journals are provided: two for inc-ome, two for expenditure, selected from the main menu. The selected journal is worked from a sub-menu."
��'"The names of the journals have been selected for church accounts or similar,but could be changed to be more suitable for other purposes and could beincreased in number."
��'"Beginning at a user-specified starting date, the program is set to accept entries at weekly intervals throughout afull year. The successive weekly dates then appear without effort by the user."
!/�'"No currency signs or commas in amounts."
"�space("to start")
.}�:�'''�12)�132�157�131�141" CHURCH "�156:�12)�132�157�131�141" CHURCH "�156:�12)�132�157�131�141"ACCOUNTS "�156
/*�12)�132�157�131�141"ACCOUNTS "�156
0,�''"New start...Y/N?";:�yn:�" ";A$:B$=A$
1-�"Sure...Y/N?":�yn:�A$="N"�A$="n" �:�TnN
3�B$="N"�B$="n" �load:�
B#�:�'''''"Enter starting data:-"
V;�6,10)"Year (last two digits): "YR$:�YR$="" ��11:�DVN
j YR%=�(YR$):YR=131:YRS$=YR$
~/ �6)"Month (number): "M$:�M$="" ��11:�D~N
� M%=�(M$)
�,�6)"Day (number): "D$:�D$="" ��11:�tfN
� D%=�(D$)
�2�6)"Starting Balance: "SB$:�SB$="" ��11:�t{N
�"Y$=SB$:�adjust:SB$=Y$:SB=�(Y$)
�)�'''"All correct (Y/N)...?":�date:�yn
��A$="N"�A$="n" �:�DBN
��
5� Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec
��heading2
2�B<>2 II=0
<Y�A=1 Z$="Offertories" ��A=2 Z$="Misc Income" ��A=3 Z$="Donations" �Z$="Misc Expenses"
P�
d ��total
e=OT=0:�I=1�52:OT=OT+O(I):�:OT$=�(OT):Y$=OT$:�adjust:OT$=Y$
f=GT=0:�I=1�52:GT=GT+G(I):�:GT$=�(GT):Y$=GT$:�adjust:GT$=Y$
g>DT=0:�I=1�52:DT=DT+DO(I):�:DT$=�(DT):Y$=DT$:�adjust:DT$=Y$
h>MT=0:�I=1�52:MT=MT+MI(I):�:MT$=�(MT):Y$=MT$:�adjust:MT$=Y$
i�A=9 �A=7 �A=6 �
j)�A=1 T=OT ��A=2 T=GT ��A=3 T=DT �T=MT
x#�A=1 �B<>3 V=U+4 ��B<>3 V=U*2+4
y!�B=3 �A=1 V=U+2 ��B=3 V=U*2+1
z �31,0,V
�a�132;�157;�131;�141;"Total ";Z$;" = ";T;" ":�132;�157;�131;�141;"Total ";Z$;" = ";T;" "
��space("for Menu")
��
� ��bal
�
�total
��A=6 �A=7 �d^O
� �heading("B A L A N C E")
�$IN=OT+GT:Y$=�(IN):�adjust:IN$=Y$
�$EX=DT+MT:Y$=�(EX):�adjust:EX$=Y$
�'EB=SB+IN-EX:Y$=�(EB):�adjust:EB$=Y$
��A=6 �A=7 �
� �31,0,6
�5�I=1�2:�5)�133�141"Starting Balance ";�131;SB$:�
5�I=1�2:�5)�133�141"Income ";�131;IN$:�
5�I=1�2:�5)�133�141"Expenditure ";�131;EX$:�
,5�I=1�2:�5)�133�141"Ending Balance ";�131;EB$:�
-�space("for Menu")
@�
T��no
U\�A>4 �O$(1)="" �"No data..."'"Enter data using options 1, 2, 3, 4 or 6of main menu...":�
W?�A=7 �"Before printing, save data by using"'"option 5...":�
^j�"You'll erase all previous "Z$'"Do you really want to start at the"'"beginning of "Z$"......Y/N?":�yn
h�
|��sort(XX)
}J=1
~�I
�5�I=1�XX:�F$(I)=" N.000" �F$(I)=" n.000" �txP
�1ET$(J)=DT$(I):E$(J)=F$(I):EE$(J)=FF$(I):J=J+1
��
��
� ��notes
�X=2 �L%�TIQ,�TKQ,�TMQ
N�heading("Bank Accts"):�133"National Bank of Bahrain, Awali":�FD%>0 �TRQ
6�"1 Fixed Deposit Acct No: ";FD%:�FD%=0 �11:�TIQ
�X=2 �t@Q
3�"2 Fixed Deposit Amount: ";FD:�FD=0 �11:�TKQ
�X=2 �t@Q
0�"3 Savings Acct No: ";SA%:�SA%=0 �11:�TMQ
�X=2 �t@Q
R�'"Savings account balance will be calculated in the program...":�t@Q
��"1 Fixed Deposit Acct No: ";FD%:�"2 Fixed Deposit Amount: ";FD:�"3 Savings Acct No: ";SA%:�'"Savings account balance will be calculated in the program..."
� �change
��space("for Menu")
��
� ��v
�lA=0:B=0:X=0:XX=0:OT=0:GT=0:DT=0:MT=0:A1=0:A2=0:A3=0:A4=0:FL=0:X$="":FD%=0:FD=0:SA%=0:SA=0:X3=0:X4=0:X5=0
��
� 00000000 0d 00 0a 3a f4 20 43 68 75 72 63 68 20 41 63 63 |...:. Church Acc|
00000010 6f 75 6e 74 73 20 62 79 20 44 20 4a 20 4d 63 4b |ounts by D J McK|
00000020 65 6c 76 69 65 20 20 20 20 20 20 20 20 20 4a 61 |elvie Ja|
00000030 6e 20 32 33 2c 20 31 39 38 36 0d 00 0f 10 ee 85 |n 23, 1986......|
00000040 3a 58 3d 30 3a e5 8d 44 46 40 0d 00 14 0b 2a 46 |:X=0:..DF@....*F|
00000050 58 31 31 2c 30 0d 00 19 06 f2 76 0d 00 1e ac de |X11,0.....v.....|
00000060 4f 24 28 35 32 29 2c 4f 28 35 32 29 2c 44 54 24 |O$(52),O(52),DT$|
00000070 28 35 32 29 2c 59 52 24 28 35 32 29 2c 59 52 25 |(52),YR$(52),YR%|
00000080 28 35 32 29 2c 59 52 28 35 32 29 2c 47 24 28 35 |(52),YR(52),G$(5|
00000090 32 29 2c 47 28 35 32 29 2c 47 47 24 28 35 32 29 |2),G(52),GG$(52)|
000000a0 2c 44 4f 24 28 35 32 29 2c 44 4f 28 35 32 29 2c |,DO$(52),DO(52),|
000000b0 44 44 24 28 35 32 29 2c 4d 49 24 28 35 32 29 2c |DD$(52),MI$(52),|
000000c0 4d 49 28 35 32 29 2c 4d 4d 24 28 35 32 29 2c 57 |MI(52),MM$(52),W|
000000d0 28 34 29 2c 55 28 31 30 29 2c 45 24 28 35 32 29 |(4),U(10),E$(52)|
000000e0 2c 45 45 24 28 35 32 29 2c 46 24 28 35 32 29 2c |,EE$(52),F$(52),|
000000f0 46 46 24 28 35 32 29 2c 45 54 24 28 35 32 29 2c |FF$(52),ET$(52),|
00000100 44 50 24 28 35 32 29 0d 00 32 0a f2 73 74 61 72 |DP$(52)..2..star|
00000110 74 0d 00 46 09 f2 6d 65 6e 75 0d 00 5a 11 dd f2 |t..F..menu..Z...|
00000120 68 65 61 64 69 6e 67 28 54 24 29 0d 00 6e 52 db |heading(T$)..nR.|
00000130 3a e3 49 3d 31 b8 32 3a f1 bd 31 33 32 3b bd 31 |:.I=1.2:..132;.1|
00000140 35 37 3b bd 31 33 33 3b bd 31 34 31 3b 8a 31 31 |57;.133;.141;.11|
00000150 2d a9 28 54 24 29 2f 32 29 22 5d 5d 5d 5d 5d 5d |-.(T$)/2)"]]]]]]|
00000160 5d 5d 22 3b bd 31 33 31 3b 54 24 3b bd 31 33 33 |]]";.131;T$;.133|
00000170 3b 22 5b 5b 5b 5b 5b 5b 5b 5b 22 3a ed 0d 00 82 |;"[[[[[[[[":....|
00000180 05 e1 0d 00 96 2f dd f2 63 68 61 6e 67 65 3a e7 |...../..change:.|
00000190 59 24 3d 22 20 20 20 46 2e 30 30 30 22 20 84 59 |Y$=" F.000" .Y|
000001a0 24 3d 22 20 20 20 66 2e 30 30 30 22 20 52 25 3d |$=" f.000" R%=|
000001b0 31 0d 00 aa 44 ef 33 31 2c 30 2c 32 33 2c 31 33 |1...D.31,0,23,13|
000001c0 32 2c 31 35 37 2c 31 33 33 3a f1 22 57 61 6e 74 |2,157,133:."Want|
000001d0 20 74 6f 20 63 68 61 6e 67 65 20 61 6e 79 74 68 | to change anyth|
000001e0 69 6e 67 20 28 59 2f 4e 29 3f 20 20 20 20 20 22 |ing (Y/N)? "|
000001f0 3b 3a f2 79 6e 0d 00 be 18 e7 41 24 3d 22 4e 22 |;:.yn.....A$="N"|
00000200 84 41 24 3d 22 6e 22 20 e5 8d 54 76 41 0d 00 c0 |.A$="n" ..TvA...|
00000210 19 e7 41 3d 38 20 4c 4c 24 3d 22 33 22 20 8b 4c |..A=8 LL$="3" .L|
00000220 4c 24 3d 22 38 22 0d 00 d2 49 f1 8a 33 2c 32 33 |L$="8"...I..3,23|
00000230 29 22 50 72 65 73 73 20 6c 69 6e 65 20 6e 75 6d |)"Press line num|
00000240 62 65 72 20 20 20 20 20 20 20 20 20 20 20 20 22 |ber "|
00000250 3a f5 4c 24 3d be 3a fd 4c 24 3e 22 30 22 80 4c |:.L$=.:.L$>"0".L|
00000260 24 3c 3d 4c 4c 24 3a 4c 25 3d bb 28 4c 24 29 0d |$<=LL$:L%=.(L$).|
00000270 00 d4 41 db 3a ef 33 31 2c 30 2c 32 33 2c 31 33 |..A.:.31,0,23,13|
00000280 32 2c 31 35 37 2c 31 33 33 3a f1 22 45 6e 74 65 |2,157,133:."Ente|
00000290 72 20 63 6f 72 72 65 63 74 20 64 61 74 61 20 61 |r correct data a|
000002a0 6e 64 20 70 72 65 73 73 20 52 45 54 55 52 4e 22 |nd press RETURN"|
000002b0 0d 00 d6 22 e7 41 3d 38 20 58 3d 32 3a ef 33 31 |...".A=8 X=2:.31|
000002c0 2c 30 2c 31 30 3a f2 6e 6f 74 65 73 3a 58 3d 30 |,0,10:.notes:X=0|
000002d0 3a e1 0d 00 e7 2a f1 8a 30 2c 31 30 29 3b 4c 25 |:....*..0,10);L%|
000002e0 3b 22 20 20 20 20 22 3b 44 54 24 28 55 28 4c 25 |;" ";DT$(U(L%|
000002f0 29 29 3a ef 33 31 2c 31 34 2c 31 30 0d 00 e8 18 |)):.31,14,10....|
00000300 e8 22 41 6d 6f 75 6e 74 20 22 59 24 3a f2 61 64 |."Amount "Y$:.ad|
00000310 6a 75 73 74 0d 00 e9 2b e7 41 3d 31 20 4f 24 28 |just...+.A=1 O$(|
00000320 55 28 4c 25 29 29 3d 59 24 3a 4f 28 55 28 4c 25 |U(L%))=Y$:O(U(L%|
00000330 29 29 3d bb 28 4f 24 28 55 28 4c 25 29 29 29 0d |))=.(O$(U(L%))).|
00000340 00 ea 2b e7 41 3d 32 20 47 24 28 55 28 4c 25 29 |..+.A=2 G$(U(L%)|
00000350 29 3d 59 24 3a 47 28 55 28 4c 25 29 29 3d bb 28 |)=Y$:G(U(L%))=.(|
00000360 47 24 28 55 28 4c 25 29 29 29 0d 00 eb 2d e7 41 |G$(U(L%)))...-.A|
00000370 3d 33 20 44 4f 24 28 55 28 4c 25 29 29 3d 59 24 |=3 DO$(U(L%))=Y$|
00000380 3a 44 4f 28 55 28 4c 25 29 29 3d bb 28 47 24 28 |:DO(U(L%))=.(G$(|
00000390 55 28 4c 25 29 29 29 0d 00 ec 2e e7 41 3d 34 20 |U(L%))).....A=4 |
000003a0 4d 49 24 28 55 28 4c 25 29 29 3d 59 24 3a 4d 49 |MI$(U(L%))=Y$:MI|
000003b0 28 55 28 4c 25 29 29 3d bb 28 4d 49 24 28 55 28 |(U(L%))=.(MI$(U(|
000003c0 4c 25 29 29 29 0d 00 ed 15 e7 41 3c 3e 31 20 ef |L%))).....A<>1 .|
000003d0 31 33 33 3a e8 8a 32 29 58 24 0d 00 ee 3e e7 41 |133:..2)X$...>.A|
000003e0 3d 32 20 47 47 24 28 55 28 4c 25 29 29 3d 58 24 |=2 GG$(U(L%))=X$|
000003f0 20 8b e7 41 3d 33 20 44 44 24 28 55 28 4c 25 29 | ..A=3 DD$(U(L%)|
00000400 29 3d 58 24 20 8b e7 41 3d 34 20 4d 4d 24 28 55 |)=X$ ..A=4 MM$(U|
00000410 28 4c 25 29 29 3d 58 24 0d 00 ef 0b f2 63 68 61 |(L%))=X$.....cha|
00000420 6e 67 65 0d 00 f0 16 e7 52 25 3d 31 20 49 49 3d |nge.....R%=1 II=|
00000430 49 49 2d 31 3a 52 25 3d 30 0d 01 36 05 e1 0d 01 |II-1:R%=0..6....|
00000440 ae 0f dd f2 73 70 61 63 65 28 41 24 29 0d 01 d6 |....space(A$)...|
00000450 45 ef 33 31 2c 30 2c 32 33 2c 31 33 32 2c 31 35 |E.31,0,23,132,15|
00000460 37 2c 31 33 33 3a f1 22 20 20 20 20 20 50 72 65 |7,133:." Pre|
00000470 73 73 20 53 50 41 43 45 20 22 41 24 22 2e 2e 2e |ss SPACE "A$"...|
00000480 20 20 20 22 3a f5 41 24 3d be 3a fd 41 24 3d 22 | ":.A$=.:.A$="|
00000490 20 22 0d 01 ea 05 e1 0d 01 fe 0b dd f2 70 61 70 | "...........pap|
000004a0 65 72 0d 02 12 3e ef 33 31 2c 30 2c 32 33 2c 31 |er...>.31,0,23,1|
000004b0 33 32 2c 31 35 37 2c 31 33 33 3a f1 22 50 61 70 |32,157,133:."Pap|
000004c0 65 72 2e 2e 2e 3f 20 20 20 53 77 69 74 63 68 65 |er...? Switche|
000004d0 64 20 6f 6e 2e 2e 2e 3f 20 20 20 28 59 29 3f 22 |d on...? (Y)?"|
000004e0 0d 02 26 19 f5 41 24 3d be 3a fd 41 24 3d 22 59 |..&..A$=.:.A$="Y|
000004f0 22 20 84 41 24 3d 22 79 22 0d 02 3a 06 20 e1 0d |" .A$="y"..:. ..|
00000500 02 4e 08 dd f2 79 6e 0d 02 62 2a f5 20 41 24 3d |.N...yn..b*. A$=|
00000510 be 3a fd 41 24 3d 22 59 22 20 84 41 24 3d 22 79 |.:.A$="Y" .A$="y|
00000520 22 20 84 41 24 3d 22 4e 22 20 84 41 24 3d 22 6e |" .A$="N" .A$="n|
00000530 22 0d 02 76 05 e1 0d 02 8a 0a dd f2 6d 65 6e 75 |"..v........menu|
00000540 0d 02 94 46 e7 44 54 24 28 31 29 3d 22 22 20 db |...F.DT$(1)="" .|
00000550 3a f1 8a 30 2c 32 29 22 4e 6f 20 73 74 61 72 74 |:..0,2)"No start|
00000560 69 6e 67 20 64 61 74 61 2e 2e 2e 22 3a f2 73 70 |ing data...":.sp|
00000570 61 63 65 28 22 74 6f 20 73 74 61 72 74 22 29 3a |ace("to start"):|
00000580 f2 73 74 61 72 74 0d 02 9e 19 f2 68 65 61 64 69 |.start.....headi|
00000590 6e 67 28 22 20 4d 20 45 20 4e 20 55 20 22 29 0d |ng(" M E N U ").|
000005a0 02 b2 1e f1 8a 31 32 2c 38 29 bd 31 33 33 22 31 |.....12,8).133"1|
000005b0 20 4f 66 66 65 72 74 6f 72 69 65 73 22 0d 02 c6 | Offertories"...|
000005c0 1c f1 8a 31 32 29 bd 31 33 34 22 32 20 4d 69 73 |...12).134"2 Mis|
000005d0 63 20 49 6e 63 6f 6d 65 22 0d 02 da 1a f1 8a 31 |c Income"......1|
000005e0 32 29 bd 31 33 30 22 33 20 44 6f 6e 61 74 69 6f |2).130"3 Donatio|
000005f0 6e 73 22 0d 02 ee 1e f1 8a 31 32 29 bd 31 33 33 |ns"......12).133|
00000600 22 34 20 4d 69 73 63 20 45 78 70 65 6e 73 65 73 |"4 Misc Expenses|
00000610 22 0d 03 02 1a f1 8a 31 32 29 bd 31 33 34 22 35 |"......12).134"5|
00000620 20 53 61 76 65 20 44 61 74 61 22 0d 03 16 1a f1 | Save Data".....|
00000630 8a 31 32 29 bd 31 33 30 22 36 20 4c 6f 61 64 20 |.12).130"6 Load |
00000640 44 61 74 61 22 0d 03 2a 19 f1 8a 31 32 29 bd 31 |Data"..*...12).1|
00000650 33 33 22 37 20 50 72 69 6e 74 6f 75 74 22 0d 03 |33"7 Printout"..|
00000660 3e 1b f1 8a 31 32 29 bd 31 33 34 22 38 20 42 61 |>...12).134"8 Ba|
00000670 6e 6b 20 41 63 63 74 73 22 0d 03 3f 18 f1 8a 31 |nk Accts"..?...1|
00000680 32 29 bd 31 33 30 22 39 20 42 61 6c 61 6e 63 65 |2).130"9 Balance|
00000690 22 0d 03 52 37 f1 27 bd 31 32 39 22 45 53 43 41 |"..R7.'.129"ESCA|
000006a0 50 45 22 bd 31 33 33 22 2d 20 63 61 6e 63 65 6c |PE".133"- cancel|
000006b0 73 20 6f 70 74 69 6f 6e 20 26 20 72 65 74 75 72 |s option & retur|
000006c0 6e 73 20 68 65 72 65 22 0d 03 66 3a ef 33 31 2c |ns here"..f:.31,|
000006d0 30 2c 32 33 2c 31 33 32 2c 31 35 37 2c 31 33 33 |0,23,132,157,133|
000006e0 3a f1 8a 33 29 22 50 72 65 73 73 20 61 70 70 72 |:..3)"Press appr|
000006f0 6f 70 72 69 61 74 65 20 6e 75 6d 62 65 72 2e 2e |opriate number..|
00000700 2e 22 0d 03 7a 19 f5 41 24 3d be 3a fd 41 24 3e |."..z..A$=.:.A$>|
00000710 22 30 22 80 41 24 3c 3d 22 39 22 0d 03 8e 0b 41 |"0".A$<="9"....A|
00000720 3d bb 28 41 24 29 0d 03 98 34 ee 41 20 e5 8d 74 |=.(A$)...4.A ..t|
00000730 62 43 2c 8d 74 62 43 2c 8d 74 62 43 2c 8d 74 62 |bC,.tbC,.tbC,.tb|
00000740 43 2c 8d 64 72 43 2c 8d 54 46 44 2c 8d 54 5a 44 |C,.drC,.TFD,.TZD|
00000750 2c 8d 54 6e 44 2c 8d 54 6f 44 0d 03 a2 0e f2 6f |,.TnD,.ToD.....o|
00000760 66 66 3a e5 8d 74 5e 42 0d 03 f2 0f f2 73 61 76 |ff:..t^B.....sav|
00000770 65 3a e5 8d 74 5e 42 0d 04 06 0f f2 6c 6f 61 64 |e:..t^B.....load|
00000780 3a e5 8d 74 5e 42 0d 04 1a 10 f2 70 72 69 6e 74 |:..t^B.....print|
00000790 3a e5 8d 74 5e 42 0d 04 2e 10 f2 6e 6f 74 65 73 |:..t^B.....notes|
000007a0 3a e5 8d 74 5e 42 0d 04 2f 0e f2 62 61 6c 3a e5 |:..t^B../..bal:.|
000007b0 8d 74 5e 42 0d 04 42 05 e1 0d 04 56 0a dd f2 73 |.t^B..B....V...s|
000007c0 61 76 65 0d 04 6a 19 f2 68 65 61 64 69 6e 67 28 |ave..j..heading(|
000007d0 22 53 41 56 45 20 44 41 54 41 22 29 0d 04 7e 17 |"SAVE DATA")..~.|
000007e0 e7 4f 24 28 31 29 3d 22 22 3a f2 6e 6f 3a e5 8d |.O$(1)="":.no:..|
000007f0 54 72 45 0d 04 92 b9 f1 8a 30 2c 33 29 22 50 75 |TrE......0,3)"Pu|
00000800 74 20 64 61 74 61 20 63 61 73 73 65 74 74 65 20 |t data cassette |
00000810 69 6e 20 72 65 63 6f 72 64 65 72 22 27 27 22 43 |in recorder"''"C|
00000820 68 65 63 6b 20 74 68 61 74 20 72 65 63 6f 72 64 |heck that record|
00000830 69 6e 67 20 6c 65 76 65 6c 20 63 6f 6e 74 72 6f |ing level contro|
00000840 6c 73 20 2d 20 20 20 76 6f 6c 75 6d 65 2c 20 62 |ls - volume, b|
00000850 61 73 73 2c 20 74 72 65 62 6c 65 20 2d 20 61 72 |ass, treble - ar|
00000860 65 20 73 65 74 20 63 6f 72 72 65 63 74 6c 79 22 |e set correctly"|
00000870 27 22 4d 61 6b 65 20 73 75 72 65 20 74 68 61 74 |'"Make sure that|
00000880 20 61 6c 6c 20 74 61 70 65 20 6d 6f 76 65 6d 65 | all tape moveme|
00000890 6e 74 20 63 6f 6e 74 72 6f 6c 62 75 74 74 6f 6e |nt controlbutton|
000008a0 73 20 61 72 65 20 27 6f 66 66 27 22 0d 04 a6 ba |s are 'off'"....|
000008b0 f1 27 22 57 68 65 6e 20 74 68 65 20 72 65 64 20 |.'"When the red |
000008c0 63 61 73 73 65 74 74 65 20 6d 6f 74 6f 72 20 6c |cassette motor l|
000008d0 69 67 68 74 20 63 6f 6d 65 73 20 6f 6e 20 61 66 |ight comes on af|
000008e0 74 65 72 20 70 72 65 73 73 69 6e 67 20 53 50 41 |ter pressing SPA|
000008f0 43 45 20 61 73 20 69 6e 73 74 72 75 63 74 65 64 |CE as instructed|
00000900 20 62 65 6c 6f 77 2c 20 61 64 76 61 6e 63 65 20 | below, advance |
00000910 6f 72 20 72 65 76 65 72 73 65 20 74 68 65 20 74 |or reverse the t|
00000920 61 70 65 20 74 6f 20 74 68 65 20 70 6f 69 6e 74 |ape to the point|
00000930 20 77 68 65 72 65 20 79 6f 75 20 77 61 6e 74 20 | where you want |
00000940 74 6f 20 73 74 61 72 74 20 72 65 63 6f 72 64 69 |to start recordi|
00000950 6e 67 20 74 68 65 20 64 61 74 61 2e 20 20 54 68 |ng the data. Th|
00000960 65 6e 2e 2e 2e 22 0d 04 ba 26 f2 73 70 61 63 65 |en..."...&.space|
00000970 28 22 77 68 65 6e 20 72 65 61 64 79 22 29 3a ef |("when ready"):.|
00000980 33 31 2c 30 2c 32 33 3a f1 89 33 39 0d 04 ce 11 |31,0,23:..39....|
00000990 ef 33 31 2c 31 39 2c 31 35 2c 31 33 30 0d 04 e2 |.31,19,15,130...|
000009a0 42 58 3d ae 22 43 48 55 52 43 48 41 43 43 22 3a |BX=."CHURCHACC":|
000009b0 e3 49 3d 31 b8 32 30 30 30 3a ed 3a ef 33 31 2c |.I=1.2000:.:.31,|
000009c0 31 30 2c 31 39 2c 31 33 36 2c 31 32 39 3a f1 22 |10,19,136,129:."|
000009d0 53 61 76 69 6e 67 20 64 61 74 61 2e 2e 2e 22 0d |Saving data...".|
000009e0 04 e3 92 e3 49 3d 31 b8 35 32 3a f1 23 58 2c 4f |....I=1.52:.#X,O|
000009f0 24 28 49 29 2c 4f 28 49 29 2c 44 54 24 28 49 29 |$(I),O(I),DT$(I)|
00000a00 2c 59 52 24 28 49 29 2c 59 52 25 28 49 29 2c 59 |,YR$(I),YR%(I),Y|
00000a10 52 28 49 29 2c 47 24 28 49 29 2c 47 28 49 29 2c |R(I),G$(I),G(I),|
00000a20 47 47 24 28 49 29 2c 44 4f 24 28 49 29 2c 44 4f |GG$(I),DO$(I),DO|
00000a30 28 49 29 2c 44 44 24 28 49 29 2c 4d 49 24 28 49 |(I),DD$(I),MI$(I|
00000a40 29 2c 4d 49 28 49 29 2c 4d 4d 24 28 49 29 2c 45 |),MI(I),MM$(I),E|
00000a50 24 28 49 29 2c 45 45 24 28 49 29 2c 46 24 28 49 |$(I),EE$(I),F$(I|
00000a60 29 2c 46 46 24 28 49 29 2c 45 54 24 28 49 29 3a |),FF$(I),ET$(I):|
00000a70 ed 0d 04 e4 36 f1 23 58 2c 59 52 24 2c 59 52 25 |....6.#X,YR$,YR%|
00000a80 2c 59 52 2c 59 52 53 24 2c 4d 24 2c 4d 25 2c 44 |,YR,YRS$,M$,M%,D|
00000a90 24 2c 44 25 2c 53 42 24 2c 53 42 2c 41 31 2c 41 |$,D%,SB$,SB,A1,A|
00000aa0 32 2c 41 33 2c 41 34 0d 04 e5 15 e3 49 3d 31 b8 |2,A3,A4.....I=1.|
00000ab0 34 3a f1 23 58 2c 57 28 49 29 3a ed 0d 04 e6 16 |4:.#X,W(I):.....|
00000ac0 e3 49 3d 31 b8 31 30 3a f1 23 58 2c 55 28 49 29 |.I=1.10:.#X,U(I)|
00000ad0 3a ed 0d 04 e7 15 f1 23 58 2c 46 44 25 2c 46 44 |:......#X,FD%,FD|
00000ae0 2c 53 41 25 2c 53 41 0d 05 0a 07 d9 23 58 0d 05 |,SA%,SA.....#X..|
00000af0 1e 23 ef 33 31 2c 31 30 2c 31 39 2c 31 33 30 3a |.#.31,10,19,130:|
00000b00 f1 22 44 61 74 61 20 73 61 76 65 64 2e 2e 2e 20 |."Data saved... |
00000b10 22 0d 05 23 15 58 33 3d 49 4e 3a 58 34 3d 45 58 |"..#.X3=IN:X4=EX|
00000b20 3a 58 35 3d 45 42 0d 05 32 16 f2 73 70 61 63 65 |:X5=EB..2..space|
00000b30 28 22 66 6f 72 20 6d 65 6e 75 22 29 0d 05 5a 05 |("for menu")..Z.|
00000b40 e1 0d 05 6e 0a dd f2 6c 6f 61 64 0d 05 82 19 f2 |...n...load.....|
00000b50 68 65 61 64 69 6e 67 28 22 4c 4f 41 44 20 44 41 |heading("LOAD DA|
00000b60 54 41 22 29 0d 05 96 b9 f1 8a 30 2c 33 29 22 50 |TA")......0,3)"P|
00000b70 75 74 20 64 61 74 61 20 63 61 73 73 65 74 74 65 |ut data cassette|
00000b80 20 69 6e 20 72 65 63 6f 72 64 65 72 22 27 27 22 | in recorder"''"|
00000b90 43 68 65 63 6b 20 74 68 61 74 20 72 65 63 6f 72 |Check that recor|
00000ba0 64 69 6e 67 20 6c 65 76 65 6c 20 63 6f 6e 74 72 |ding level contr|
00000bb0 6f 6c 73 20 2d 20 20 20 76 6f 6c 75 6d 65 2c 20 |ols - volume, |
00000bc0 62 61 73 73 2c 20 74 72 65 62 6c 65 20 2d 20 61 |bass, treble - a|
00000bd0 72 65 20 73 65 74 20 63 6f 72 72 65 63 74 6c 79 |re set correctly|
00000be0 22 27 22 4d 61 6b 65 20 73 75 72 65 20 74 68 61 |"'"Make sure tha|
00000bf0 74 20 61 6c 6c 20 74 61 70 65 20 6d 6f 76 65 6d |t all tape movem|
00000c00 65 6e 74 20 63 6f 6e 74 72 6f 6c 62 75 74 74 6f |ent controlbutto|
00000c10 6e 73 20 61 72 65 20 27 6f 66 66 27 22 0d 05 aa |ns are 'off'"...|
00000c20 a8 f1 27 22 57 68 65 6e 20 74 68 65 20 63 61 73 |..'"When the cas|
00000c30 73 65 74 74 65 20 6d 6f 74 6f 72 20 6c 69 67 68 |sette motor ligh|
00000c40 74 20 63 6f 6d 65 73 20 6f 6e 20 20 61 66 74 65 |t comes on afte|
00000c50 72 20 70 72 65 73 73 69 6e 67 20 53 50 41 43 45 |r pressing SPACE|
00000c60 20 61 73 20 70 72 6f 6d 70 74 65 64 20 62 65 6c | as prompted bel|
00000c70 6f 77 2c 20 61 64 76 61 6e 63 65 20 6f 72 20 72 |ow, advance or r|
00000c80 65 76 65 72 73 65 20 74 68 65 20 74 61 70 65 20 |everse the tape |
00000c90 74 6f 20 77 68 65 72 65 20 74 68 65 64 61 74 61 |to where thedata|
00000ca0 20 73 74 61 72 74 73 2e 20 54 68 65 6e 20 70 72 | starts. Then pr|
00000cb0 65 73 73 20 70 6c 61 79 20 61 6e 64 20 77 61 69 |ess play and wai|
00000cc0 74 2e 2e 2e 22 0d 05 be 23 f2 73 70 61 63 65 28 |t..."...#.space(|
00000cd0 22 77 68 65 6e 20 72 65 61 64 79 22 29 3a f1 8a |"when ready"):..|
00000ce0 30 2c 32 33 29 89 33 39 0d 05 d2 06 f2 76 0d 05 |0,23).39.....v..|
00000cf0 fa 37 51 3d 8e 22 43 48 55 52 43 48 41 43 43 22 |.7Q=."CHURCHACC"|
00000d00 3a ef 33 31 2c 31 30 2c 31 39 2c 31 33 36 2c 31 |:.31,10,19,136,1|
00000d10 32 39 3a f1 22 4c 6f 61 64 69 6e 67 20 64 61 74 |29:."Loading dat|
00000d20 61 2e 2e 2e 22 0d 06 04 92 e3 49 3d 31 b8 35 32 |a...".....I=1.52|
00000d30 3a e8 23 51 2c 4f 24 28 49 29 2c 4f 28 49 29 2c |:.#Q,O$(I),O(I),|
00000d40 44 54 24 28 49 29 2c 59 52 24 28 49 29 2c 59 52 |DT$(I),YR$(I),YR|
00000d50 25 28 49 29 2c 59 52 28 49 29 2c 47 24 28 49 29 |%(I),YR(I),G$(I)|
00000d60 2c 47 28 49 29 2c 47 47 24 28 49 29 2c 44 4f 24 |,G(I),GG$(I),DO$|
00000d70 28 49 29 2c 44 4f 28 49 29 2c 44 44 24 28 49 29 |(I),DO(I),DD$(I)|
00000d80 2c 4d 49 24 28 49 29 2c 4d 49 28 49 29 2c 4d 4d |,MI$(I),MI(I),MM|
00000d90 24 28 49 29 2c 45 24 28 49 29 2c 45 45 24 28 49 |$(I),E$(I),EE$(I|
00000da0 29 2c 46 24 28 49 29 2c 46 46 24 28 49 29 2c 45 |),F$(I),FF$(I),E|
00000db0 54 24 28 49 29 3a ed 0d 06 0e 36 e8 23 51 2c 59 |T$(I):....6.#Q,Y|
00000dc0 52 24 2c 59 52 25 2c 59 52 2c 59 52 53 24 2c 4d |R$,YR%,YR,YRS$,M|
00000dd0 24 2c 4d 25 2c 44 24 2c 44 25 2c 53 42 24 2c 53 |$,M%,D$,D%,SB$,S|
00000de0 42 2c 41 31 2c 41 32 2c 41 33 2c 41 34 0d 06 13 |B,A1,A2,A3,A4...|
00000df0 15 e3 49 3d 31 b8 34 3a e8 23 51 2c 57 28 49 29 |..I=1.4:.#Q,W(I)|
00000e00 3a ed 0d 06 18 16 e3 49 3d 31 b8 31 30 3a e8 23 |:......I=1.10:.#|
00000e10 51 2c 55 28 49 29 3a ed 0d 06 1d 15 e8 23 51 2c |Q,U(I):......#Q,|
00000e20 46 44 25 2c 46 44 2c 53 41 25 2c 53 41 0d 06 22 |FD%,FD,SA%,SA.."|
00000e30 07 d9 23 51 0d 06 36 24 ef 33 31 2c 31 30 2c 31 |..#Q..6$.31,10,1|
00000e40 39 2c 31 33 30 3a f1 22 44 61 74 61 20 6c 6f 61 |9,130:."Data loa|
00000e50 64 65 64 2e 2e 2e 20 22 0d 06 38 1e 41 3d 36 3a |ded... "..8.A=6:|
00000e60 f2 62 61 6c 3a 58 33 3d 49 4e 3a 58 34 3d 45 58 |.bal:X3=IN:X4=EX|
00000e70 3a 58 35 3d 45 42 0d 06 4a 16 f2 73 70 61 63 65 |:X5=EB..J..space|
00000e80 28 22 66 6f 72 20 4d 65 6e 75 22 29 0d 06 72 05 |("for Menu")..r.|
00000e90 e1 0d 06 86 60 dd f2 70 72 69 6e 74 20 f2 62 61 |....`..print .ba|
00000ea0 6c 3a f2 68 65 61 64 69 6e 67 28 22 50 52 49 4e |l:.heading("PRIN|
00000eb0 54 4f 55 54 22 29 3a e7 4f 24 28 31 29 3d 22 22 |TOUT"):.O$(1)=""|
00000ec0 20 84 49 4e 3c 3e 58 33 20 84 45 58 3c 3e 58 34 | .IN<>X3 .EX<>X4|
00000ed0 20 84 45 42 3c 3e 58 35 20 f2 6e 6f 3a f2 73 70 | .EB<>X5 .no:.sp|
00000ee0 61 63 65 28 22 66 6f 72 20 6d 65 6e 75 22 29 3a |ace("for menu"):|
00000ef0 e1 0d 06 88 22 f1 8a 30 2c 31 32 29 22 50 61 70 |...."..0,12)"Pap|
00000f00 65 72 20 2d 20 41 34 20 6d 69 6e 69 6d 75 6d 2e |er - A4 minimum.|
00000f10 2e 2e 22 0d 06 8a 0a f2 70 61 70 65 72 0d 06 8c |..".....paper...|
00000f20 06 ef 32 0d 06 8d 5d e7 41 31 3e 41 32 20 80 41 |..2...].A1>A2 .A|
00000f30 31 3e 41 33 20 80 41 31 3e 41 34 20 41 35 3d 41 |1>A3 .A1>A4 A5=A|
00000f40 31 20 8b e7 41 32 3e 41 31 20 80 41 32 3e 41 33 |1 ..A2>A1 .A2>A3|
00000f50 20 80 41 32 3e 41 34 20 41 35 3d 41 32 20 8b e7 | .A2>A4 A5=A2 ..|
00000f60 41 33 3e 41 31 20 80 41 33 3e 41 32 20 80 41 33 |A3>A1 .A3>A2 .A3|
00000f70 3e 41 34 20 41 35 3d 41 33 20 8b 41 35 3d 41 34 |>A4 A5=A3 .A5=A4|
00000f80 0d 06 8e 80 f1 3b 89 31 38 3b 22 41 57 41 4c 49 |.....;.18;"AWALI|
00000f90 20 49 4e 54 45 52 44 45 4e 4f 4d 49 4e 41 54 49 | INTERDENOMINATI|
00000fa0 4f 4e 41 4c 20 43 48 55 52 43 48 22 3a f1 3b 89 |ONAL CHURCH":.;.|
00000fb0 32 34 3b 22 46 49 4e 41 4e 43 49 41 4c 20 53 54 |24;"FINANCIAL ST|
00000fc0 41 54 45 4d 45 4e 54 22 3a f1 3b 89 32 31 3b 44 |ATEMENT":.;.21;D|
00000fd0 54 24 28 31 29 3b 22 2c 20 31 39 22 3b 59 52 24 |T$(1);", 19";YR$|
00000fe0 28 31 29 3b 22 20 2d 20 22 3b 44 54 24 28 41 35 |(1);" - ";DT$(A5|
00000ff0 29 3b 22 2c 20 31 39 22 3b 59 52 24 28 41 35 29 |);", 19";YR$(A5)|
00001000 0d 06 90 ad f1 3a f1 3b 22 28 41 29 20 42 41 4c |.....:.;"(A) BAL|
00001010 41 4e 43 45 22 3a f1 3b 22 20 20 20 20 53 74 61 |ANCE":.;" Sta|
00001020 72 74 69 6e 67 20 42 61 6c 61 6e 63 65 20 22 3b |rting Balance ";|
00001030 53 42 24 3a f1 3b 22 20 20 20 20 49 6e 63 6f 6d |SB$:.;" Incom|
00001040 65 20 20 20 20 20 20 20 20 20 20 20 22 3b 49 4e |e ";IN|
00001050 24 3b 22 20 28 42 2b 45 29 22 3a f1 3b 22 20 20 |$;" (B+E)":.;" |
00001060 20 20 45 78 70 65 6e 64 69 74 75 72 65 20 20 20 | Expenditure |
00001070 20 20 20 22 3b 45 58 24 3b 22 20 28 43 2b 44 29 | ";EX$;" (C+D)|
00001080 22 3a f1 3b 22 20 20 20 20 45 6e 64 69 6e 67 20 |":.;" Ending |
00001090 42 61 6c 61 6e 63 65 20 20 20 22 3b 45 42 24 3b |Balance ";EB$;|
000010a0 22 20 28 4e 6f 74 65 20 31 29 22 3a f1 0d 06 92 |" (Note 1)":....|
000010b0 08 ef 33 2c 34 0d 06 ce 55 e3 49 3d 31 b8 33 3a |..3,4...U.I=1.3:|
000010c0 e7 49 3d 31 20 43 24 3d 22 28 42 29 20 4d 49 53 |.I=1 C$="(B) MIS|
000010d0 43 20 49 4e 43 4f 4d 45 22 20 8b e7 49 3d 32 20 |C INCOME" ..I=2 |
000010e0 43 24 3d 22 28 43 29 20 44 4f 4e 41 54 49 4f 4e |C$="(C) DONATION|
000010f0 53 22 20 8b 43 24 3d 22 28 44 29 20 4d 49 53 43 |S" .C$="(D) MISC|
00001100 20 45 58 50 45 4e 53 45 53 22 0d 06 cf 24 e7 49 | EXPENSES"...$.I|
00001110 3d 31 20 45 24 3d 47 54 24 20 8b e7 49 3d 32 20 |=1 E$=GT$ ..I=2 |
00001120 45 24 3d 44 54 24 20 8b 45 24 3d 4d 54 24 0d 06 |E$=DT$ .E$=MT$..|
00001130 d0 32 20 e7 49 3d 31 20 e3 49 31 3d 31 b8 41 32 |.2 .I=1 .I1=1.A2|
00001140 3a 46 24 28 49 31 29 3d 47 24 28 49 31 29 3a 46 |:F$(I1)=G$(I1):F|
00001150 46 24 28 49 31 29 3d 47 47 24 28 49 31 29 3a ed |F$(I1)=GG$(I1):.|
00001160 0d 06 d1 33 20 e7 49 3d 32 20 e3 49 32 3d 31 b8 |...3 .I=2 .I2=1.|
00001170 41 33 3a 46 24 28 49 32 29 3d 44 4f 24 28 49 32 |A3:F$(I2)=DO$(I2|
00001180 29 3a 46 46 24 28 49 32 29 3d 44 44 24 28 49 32 |):FF$(I2)=DD$(I2|
00001190 29 3a ed 0d 06 d2 33 20 e7 49 3d 33 20 e3 49 33 |):....3 .I=3 .I3|
000011a0 3d 31 b8 41 34 3a 46 24 28 49 33 29 3d 4d 49 24 |=1.A4:F$(I3)=MI$|
000011b0 28 49 33 29 3a 46 46 24 28 49 33 29 3d 4d 4d 24 |(I3):FF$(I3)=MM$|
000011c0 28 49 33 29 3a ed 0d 06 d8 21 e7 49 3d 31 20 58 |(I3):....!.I=1 X|
000011d0 58 3d 41 32 20 8b e7 49 3d 32 20 58 58 3d 41 33 |X=A2 ..I=2 XX=A3|
000011e0 20 8b 58 58 3d 41 34 0d 06 d9 06 ef 32 0d 06 da | .XX=A4.....2...|
000011f0 08 f1 3b 43 24 0d 06 db 06 ef 33 0d 06 dc 0d f2 |..;C$.....3.....|
00001200 73 6f 72 74 28 58 58 29 0d 06 dd 1b ef 32 3a e7 |sort(XX).....2:.|
00001210 45 24 3d 22 20 20 20 30 2e 30 30 30 22 20 e5 8d |E$=" 0.000" ..|
00001220 64 5f 46 0d 06 de 3f e3 4b 3d 31 b8 4a 2d 31 3a |d_F...?.K=1.J-1:|
00001230 f1 3b 22 20 20 20 20 22 3b 45 54 24 28 4b 29 3b |.;" ";ET$(K);|
00001240 22 20 22 3b 45 24 28 4b 29 3a f1 3b 22 20 20 20 |" ";E$(K):.;" |
00001250 20 20 20 20 20 20 20 20 22 3b 45 45 24 28 4b 29 | ";EE$(K)|
00001260 3a ed 0d 06 df 18 f1 3b 22 20 20 20 20 54 4f 54 |:......;" TOT|
00001270 41 4c 3a 20 22 3b 45 24 3a f1 0d 06 e1 08 ef 33 |AL: ";E$:......3|
00001280 2c 34 0d 06 e2 26 ed 3a 53 41 3d 45 42 2d 46 44 |,4...&.:SA=EB-FD|
00001290 3a 59 24 3d c3 28 53 41 29 3a f2 61 64 6a 75 73 |:Y$=.(SA):.adjus|
000012a0 74 3a 53 41 24 3d 59 24 0d 06 e3 06 ef 32 0d 06 |t:SA$=Y$.....2..|
000012b0 e4 bd f1 22 4e 4f 54 45 53 22 3a f1 22 31 20 4e |..."NOTES":."1 N|
000012c0 61 74 69 6f 6e 61 6c 20 42 61 6e 6b 20 6f 66 20 |ational Bank of |
000012d0 42 61 68 72 61 69 6e 2c 20 41 77 61 6c 69 22 3a |Bahrain, Awali":|
000012e0 f1 3b 89 33 3b 22 69 29 20 46 69 78 65 64 20 20 |.;.3;"i) Fixed |
000012f0 44 65 70 6f 73 69 74 20 20 4e 6f 3a 20 22 3b 46 |Deposit No: ";F|
00001300 44 25 3b 22 20 20 42 44 3a 22 3b 46 44 3a f1 3b |D%;" BD:";FD:.;|
00001310 89 32 3b 22 69 69 29 20 53 61 76 69 6e 67 73 20 |.2;"ii) Savings |
00001320 41 63 63 6f 75 6e 74 20 4e 6f 3a 20 22 3b 53 41 |Account No: ";SA|
00001330 25 3b 22 20 42 44 3a 22 3b 53 41 24 3a f1 27 27 |%;" BD:";SA$:.''|
00001340 22 54 72 65 61 73 75 72 65 72 3a 20 20 44 20 4a |"Treasurer: D J|
00001350 20 4d 63 4b 65 6c 76 69 65 20 50 4f 42 6f 78 32 | McKelvie POBox2|
00001360 35 33 36 37 20 41 77 61 6c 69 22 0d 06 e5 35 f1 |5367 Awali"...5.|
00001370 22 41 75 64 69 74 6f 72 20 20 3a 20 20 56 20 4c |"Auditor : V L|
00001380 20 57 69 6c 6c 69 61 6d 73 20 50 4f 42 6f 78 32 | Williams POBox2|
00001390 35 32 34 30 20 41 77 61 6c 69 22 3a ef 33 2c 34 |5240 Awali":.3,4|
000013a0 0d 06 e6 34 db 3a f1 8a 30 2c 35 29 22 57 68 65 |...4.:..0,5)"Whe|
000013b0 6e 20 70 72 69 6e 74 65 72 20 73 74 6f 70 73 2c |n printer stops,|
000013c0 20 72 65 73 65 74 20 70 61 70 65 72 20 74 6f 70 | reset paper top|
000013d0 2e 2e 2e 22 0d 06 e8 4c e3 49 3d 31 b8 41 31 3a |..."...L.I=1.A1:|
000013e0 e7 c0 44 54 24 28 49 2d 31 29 2c 33 29 3d c0 44 |..DT$(I-1),3)=.D|
000013f0 54 24 28 49 29 2c 33 29 20 8c 44 50 24 28 49 29 |T$(I),3) .DP$(I)|
00001400 3d 22 20 20 20 22 2b c2 44 54 24 28 49 29 2c 33 |=" "+.DT$(I),3|
00001410 29 20 8b 44 50 24 28 49 29 3d 44 54 24 28 49 29 |) .DP$(I)=DT$(I)|
00001420 0d 06 e9 4b ed 3a f1 27 27 22 44 6f 6e 65 20 69 |...K.:.''"Done i|
00001430 74 2e 2e 2e 59 3f 22 3a f2 79 6e 3a e7 41 24 3d |t...Y?":.yn:.A$=|
00001440 22 59 22 20 84 41 24 3d 22 79 22 20 db 3a f2 73 |"Y" .A$="y" .:.s|
00001450 70 61 63 65 28 22 74 6f 20 63 6f 6e 74 69 6e 75 |pace("to continu|
00001460 65 22 29 3a 8b 20 e5 8d 64 69 46 0d 06 ea 26 ef |e"):. ..diF...&.|
00001470 32 3a f1 3a f1 3a f1 3a f1 3a f1 3b 89 35 30 3b |2:.:.:.:.:.;.50;|
00001480 22 28 45 29 20 4f 46 46 45 52 54 4f 52 49 45 53 |"(E) OFFERTORIES|
00001490 22 0d 06 eb 38 e3 4c 3d 31 b8 41 31 3a f1 3b 89 |"...8.L=1.A1:.;.|
000014a0 35 34 3b 44 50 24 28 4c 29 3b 22 20 22 3b 4f 24 |54;DP$(L);" ";O$|
000014b0 28 4c 29 3a ed 3a f1 3b 89 35 34 3b 22 54 4f 54 |(L):.:.;.54;"TOT|
000014c0 41 4c 3a 20 22 3b 4f 54 24 0d 06 ec 08 ef 33 2c |AL: ";OT$.....3,|
000014d0 34 0d 07 76 05 e1 0d 07 8a 09 dd f2 6f 66 66 0d |4..v........off.|
000014e0 07 9e 0d f2 68 65 61 64 69 6e 67 32 0d 07 c6 13 |....heading2....|
000014f0 e7 41 3d 31 20 56 56 3d 31 20 8b 56 56 3d 32 0d |.A=1 VV=1 .VV=2.|
00001500 07 da 16 e7 58 3d 31 e5 8d 64 6e 47 8b f2 6d 65 |....X=1..dnG..me|
00001510 6e 75 32 3a e1 0d 07 ee 10 f2 68 65 61 64 69 6e |nu2:......headin|
00001520 67 28 5a 24 29 0d 07 ef 17 e7 4f 54 3e 30 20 80 |g(Z$).....OT>0 .|
00001530 42 3d 31 20 80 41 3d 31 20 f2 6e 6f 0d 07 f0 17 |B=1 .A=1 .no....|
00001540 e7 47 54 3e 30 20 80 42 3d 31 20 80 41 3d 32 20 |.GT>0 .B=1 .A=2 |
00001550 f2 6e 6f 0d 07 f1 17 e7 44 54 3e 30 20 80 42 3d |.no.....DT>0 .B=|
00001560 31 20 80 41 3d 33 20 f2 6e 6f 0d 07 f2 17 e7 4d |1 .A=3 .no.....M|
00001570 54 3e 30 20 80 42 3d 31 20 80 41 3d 34 20 f2 6e |T>0 .B=1 .A=4 .n|
00001580 6f 0d 07 f3 15 e7 41 24 3d 22 4e 22 20 84 41 24 |o.....A$="N" .A$|
00001590 3d 22 6e 22 20 e1 0d 07 f4 10 f2 68 65 61 64 69 |="n" ......headi|
000015a0 6e 67 28 5a 24 29 0d 08 02 5d e7 41 3d 31 20 56 |ng(Z$)...].A=1 V|
000015b0 3d 34 3a f1 22 45 6e 74 65 72 20 61 6d 6f 75 6e |=4:."Enter amoun|
000015c0 74 20 6f 70 70 6f 73 69 74 65 20 64 61 74 65 2e |t opposite date.|
000015d0 20 49 66 20 6e 6f 20 65 6e 74 72 79 2c 65 6e 74 | If no entry,ent|
000015e0 65 72 20 4e 2e 20 20 50 72 65 73 73 20 46 20 61 |er N. Press F a|
000015f0 6e 64 20 52 65 74 75 72 6e 20 74 6f 20 65 78 69 |nd Return to exi|
00001600 74 3a 22 0d 08 16 85 e7 41 3c 3e 31 20 56 3d 35 |t:".....A<>1 V=5|
00001610 3a f1 22 45 6e 74 65 72 20 61 6d 6f 75 6e 74 20 |:."Enter amount |
00001620 6f 70 70 6f 73 69 74 65 20 64 61 74 65 2e 20 49 |opposite date. I|
00001630 66 20 6e 6f 20 65 6e 74 72 79 2c 65 6e 74 65 72 |f no entry,enter|
00001640 20 4e 2e 20 54 79 70 65 20 64 65 73 63 72 69 70 | N. Type descrip|
00001650 74 69 6f 6e 20 75 6e 64 65 72 20 64 61 74 65 20 |tion under date |
00001660 61 6e 64 61 6d 6f 75 6e 74 2e 20 20 50 72 65 73 |andamount. Pres|
00001670 73 20 46 20 61 6e 64 20 52 65 74 75 72 6e 20 74 |s F and Return t|
00001680 6f 20 65 78 69 74 3a 22 0d 08 17 19 59 52 24 28 |o exit:"....YR$(|
00001690 30 29 3d 59 52 53 24 3a 59 52 28 30 29 3d 31 33 |0)=YRS$:YR(0)=13|
000016a0 31 0d 08 18 2d f1 89 33 bd 59 52 28 49 49 29 3b |1...-..3.YR(II);|
000016b0 bd 31 35 37 bd 31 33 32 22 31 39 22 3b 59 52 24 |.157.132"19";YR$|
000016c0 28 49 49 29 3b 22 20 20 22 3b bd 31 35 36 0d 08 |(II);" ";.156..|
000016d0 2a 6a 55 3d 30 3a 55 28 30 29 3d 30 3a e3 49 3d |*jU=0:U(0)=0:.I=|
000016e0 31 b8 38 3a 49 49 3d 49 49 2b 31 3a 55 3d 55 2b |1.8:II=II+1:U=U+|
000016f0 31 3a 55 28 55 29 3d 49 49 3a 44 54 31 24 3d 44 |1:U(U)=II:DT1$=D|
00001700 54 24 28 49 49 2d 31 29 3a 44 54 24 3d 44 54 24 |T$(II-1):DT$=DT$|
00001710 28 49 49 29 3a e7 c0 44 54 31 24 2c 33 29 3d c0 |(II):..DT1$,3)=.|
00001720 44 54 24 2c 33 29 20 44 54 24 3d 22 20 20 20 22 |DT$,3) DT$=" "|
00001730 2b c2 44 54 24 2c 33 29 0d 08 2b 14 e7 49 3d 31 |+.DT$,3)..+..I=1|
00001740 20 44 54 24 3d 44 54 24 28 49 49 29 0d 08 2c 15 | DT$=DT$(II)..,.|
00001750 f1 8a 30 29 3b 49 3b 22 20 20 20 20 22 3b 44 54 |..0);I;" ";DT|
00001760 24 0d 08 3e 20 ef 33 31 2c 31 34 2c 56 2b 31 3a |$..> .31,14,V+1:|
00001770 e8 22 20 22 59 24 3a 59 59 24 3d c0 59 24 2c 31 |." "Y$:YY$=.Y$,1|
00001780 29 0d 08 3f c2 e7 59 24 3d 22 22 20 84 28 59 59 |)..?..Y$="" .(YY|
00001790 24 3c 3e 22 31 22 20 80 59 59 24 3c 3e 22 32 22 |$<>"1" .YY$<>"2"|
000017a0 20 80 59 59 24 3c 3e 22 33 22 20 80 59 59 24 3c | .YY$<>"3" .YY$<|
000017b0 3e 22 34 22 20 80 59 59 24 3c 3e 22 35 22 20 80 |>"4" .YY$<>"5" .|
000017c0 59 59 24 3c 3e 22 36 22 20 80 59 59 24 3c 3e 22 |YY$<>"6" .YY$<>"|
000017d0 37 22 20 80 59 59 24 3c 3e 22 38 22 20 80 59 59 |7" .YY$<>"8" .YY|
000017e0 24 3c 3e 22 39 22 20 80 59 59 24 3c 3e 22 4e 22 |$<>"9" .YY$<>"N"|
000017f0 20 80 59 59 24 3c 3e 22 6e 22 20 80 59 59 24 3c | .YY$<>"n" .YY$<|
00001800 3e 22 46 22 20 80 59 59 24 3c 3e 22 66 22 20 80 |>"F" .YY$<>"f" .|
00001810 59 59 24 3c 3e 22 2e 22 29 ef 31 31 2c 33 31 2c |YY$<>".").11,31,|
00001820 32 31 2c 56 2b 31 3a f1 22 20 20 20 20 20 20 20 |21,V+1:." |
00001830 20 20 20 20 20 20 20 20 20 20 20 20 22 3a e5 8d | ":..|
00001840 54 7e 48 0d 08 40 3c 56 3d 56 2b 56 56 3a e7 59 |T~H..@<V=V+VV:.Y|
00001850 24 3d 22 46 22 20 84 59 24 3d 22 66 22 20 84 20 |$="F" .Y$="f" . |
00001860 49 49 3d 35 32 20 8c 49 3d 38 3a 58 58 3d 49 49 |II=52 .I=8:XX=II|
00001870 2d 31 3a e7 49 49 3d 35 32 20 58 58 3d 35 32 0d |-1:.II=52 XX=52.|
00001880 08 41 5c f2 61 64 6a 75 73 74 3a e7 41 3d 31 20 |.A\.adjust:.A=1 |
00001890 4f 24 28 49 49 29 3d 59 24 3a 4f 28 49 49 29 3d |O$(II)=Y$:O(II)=|
000018a0 bb 28 4f 24 28 49 49 29 29 3a e7 59 24 3d 22 20 |.(O$(II)):.Y$=" |
000018b0 20 20 4e 2e 30 30 30 22 20 84 59 24 3d 22 20 20 | N.000" .Y$=" |
000018c0 20 6e 2e 30 30 30 22 20 4f 24 28 49 49 29 3d 22 | n.000" O$(II)="|
000018d0 4e 6f 20 53 65 72 76 69 63 65 22 0d 08 42 22 e7 |No Service"..B".|
000018e0 41 3d 32 20 47 24 28 49 49 29 3d 59 24 3a 47 28 |A=2 G$(II)=Y$:G(|
000018f0 49 49 29 3d bb 28 47 24 28 49 49 29 29 0d 08 43 |II)=.(G$(II))..C|
00001900 25 e7 41 3d 33 20 44 4f 24 28 49 49 29 3d 59 24 |%.A=3 DO$(II)=Y$|
00001910 3a 44 4f 28 49 49 29 3d bb 28 44 4f 24 28 49 49 |:DO(II)=.(DO$(II|
00001920 29 29 0d 08 44 25 e7 41 3d 34 20 4d 49 24 28 49 |))..D%.A=4 MI$(I|
00001930 49 29 3d 59 24 3a 4d 49 28 49 49 29 3d bb 28 4d |I)=Y$:MI(II)=.(M|
00001940 49 24 28 49 49 29 29 0d 08 45 2d e7 41 3d 31 20 |I$(II))..E-.A=1 |
00001950 41 31 3d 58 58 20 8b e7 41 3d 32 20 41 32 3d 58 |A1=XX ..A=2 A2=X|
00001960 58 20 8b e7 41 3d 33 20 41 33 3d 58 58 20 8b 41 |X ..A=3 A3=XX .A|
00001970 34 3d 58 58 0d 08 52 66 e7 41 3c 3e 31 20 80 59 |4=XX..Rf.A<>1 .Y|
00001980 24 3c 3e 22 20 20 20 46 2e 30 30 30 22 20 80 59 |$<>" F.000" .Y|
00001990 24 3c 3e 22 20 20 20 66 2e 30 30 30 22 20 80 59 |$<>" f.000" .Y|
000019a0 24 3c 3e 22 20 20 20 4e 2e 30 30 30 22 20 80 59 |$<>" N.000" .Y|
000019b0 24 3c 3e 22 20 20 20 6e 2e 30 30 30 22 20 ef 31 |$<>" n.000" .1|
000019c0 33 33 3a e8 8a 33 29 58 24 3a e7 58 24 3d 22 22 |33:..3)X$:.X$=""|
000019d0 20 ef 31 31 3a e5 8d 44 52 48 0d 08 54 31 e7 41 | .11:..DRH..T1.A|
000019e0 3c 3e 31 20 80 28 59 24 3d 22 20 20 20 4e 2e 30 |<>1 .(Y$=" N.0|
000019f0 30 30 22 20 84 59 24 3d 22 20 20 20 6e 2e 30 30 |00" .Y$=" n.00|
00001a00 30 22 29 20 f1 3a 58 24 3d 22 22 0d 08 56 35 e7 |0") .:X$=""..V5.|
00001a10 41 3d 32 20 47 47 24 28 49 49 29 3d 58 24 20 8b |A=2 GG$(II)=X$ .|
00001a20 e7 41 3d 33 20 44 44 24 28 49 49 29 3d 58 24 20 |.A=3 DD$(II)=X$ |
00001a30 8b e7 41 3d 34 20 4d 4d 24 28 49 49 29 3d 58 24 |..A=4 MM$(II)=X$|
00001a40 0d 08 66 0d ed 3a f2 63 68 61 6e 67 65 0d 08 7a |..f..:.change..z|
00001a50 30 e7 59 24 3c 3e 22 20 20 20 46 2e 30 30 30 22 |0.Y$<>" F.000"|
00001a60 20 80 59 24 3c 3e 22 20 20 20 66 2e 30 30 30 22 | .Y$<>" f.000"|
00001a70 20 80 49 49 3c 35 32 20 e5 8d 64 74 47 0d 08 7b | .II<52 ..dtG..{|
00001a80 35 e7 41 3d 31 20 57 28 31 29 3d 49 49 20 8b e7 |5.A=1 W(1)=II ..|
00001a90 41 3d 32 20 57 28 32 29 3d 49 49 20 8b e7 41 3d |A=2 W(2)=II ..A=|
00001aa0 33 20 57 28 33 29 3d 49 49 20 8b 57 28 34 29 3d |3 W(3)=II .W(4)=|
00001ab0 49 49 0d 08 a2 0a f2 74 6f 74 61 6c 0d 08 ca 05 |II.....total....|
00001ac0 e1 0d 0a 5a 0a dd f2 64 61 74 65 0d 0a 6e 0b e3 |...Z...date..n..|
00001ad0 5a 3d 31 b8 35 32 0d 0a 82 29 e7 44 25 3e 32 38 |Z=1.52...).D%>28|
00001ae0 20 80 4d 25 3d 32 20 80 59 25 3c 3e 38 38 20 4d | .M%=2 .Y%<>88 M|
00001af0 25 3d 4d 25 2b 31 3a 44 25 3d 44 25 2d 32 38 0d |%=M%+1:D%=D%-28.|
00001b00 0a 96 55 e7 44 25 3e 33 30 20 80 4d 25 3c 3e 32 |..U.D%>30 .M%<>2|
00001b10 20 80 4d 25 3c 3e 31 20 80 4d 25 3c 3e 33 20 80 | .M%<>1 .M%<>3 .|
00001b20 4d 25 3c 3e 35 20 80 4d 25 3c 3e 37 20 80 4d 25 |M%<>5 .M%<>7 .M%|
00001b30 3c 3e 38 20 80 4d 25 3c 3e 31 30 20 80 4d 25 3c |<>8 .M%<>10 .M%<|
00001b40 3e 31 32 20 4d 25 3d 4d 25 2b 31 3a 44 25 3d 44 |>12 M%=M%+1:D%=D|
00001b50 25 2d 33 30 0d 0a aa 3f e7 44 25 3e 33 31 20 80 |%-30...?.D%>31 .|
00001b60 4d 25 3c 3e 32 20 80 4d 25 3c 3e 34 20 80 4d 25 |M%<>2 .M%<>4 .M%|
00001b70 3c 3e 36 20 80 4d 25 3c 3e 39 20 80 4d 25 3c 3e |<>6 .M%<>9 .M%<>|
00001b80 31 31 20 4d 25 3d 4d 25 2b 31 3a 44 25 3d 44 25 |11 M%=M%+1:D%=D%|
00001b90 2d 33 31 0d 0a be 21 e7 4d 25 3d 31 33 20 4d 25 |-31...!.M%=13 M%|
00001ba0 3d 31 3a 59 52 25 3d 59 52 25 2b 31 3a 59 52 3d |=1:YR%=YR%+1:YR=|
00001bb0 59 52 2b 32 0d 0a bf 28 59 52 25 28 5a 29 3d 59 |YR+2...(YR%(Z)=Y|
00001bc0 52 25 3a 59 52 24 28 5a 29 3d c3 28 59 52 25 28 |R%:YR$(Z)=.(YR%(|
00001bd0 5a 29 29 3a 59 52 28 5a 29 3d 59 52 0d 0a e6 11 |Z)):YR(Z)=YR....|
00001be0 e3 49 3d 31 b8 4d 25 3a f3 4d 24 3a ed 0d 0a fa |.I=1.M%:.M$:....|
00001bf0 09 f7 8d 54 4a 4f 0d 0b 0e 1f 44 24 3d c3 28 44 |...TJO....D$=.(D|
00001c00 25 29 3a e7 a9 28 44 24 29 3d 31 20 44 24 3d 22 |%):..(D$)=1 D$="|
00001c10 20 22 2b 44 24 0d 0b 22 14 44 54 24 28 5a 29 3d | "+D$..".DT$(Z)=|
00001c20 4d 24 2b 22 20 22 2b 44 24 0d 0b 36 0b 44 25 3d |M$+" "+D$..6.D%=|
00001c30 44 25 2b 37 0d 0b 4a 05 ed 0d 0b 5e 05 e1 0d 0b |D%+7..J....^....|
00001c40 72 0b dd f2 6d 65 6e 75 32 0d 0b 86 10 f2 68 65 |r...menu2.....he|
00001c50 61 64 69 6e 67 28 5a 24 29 0d 0b 9a 18 f1 8a 31 |ading(Z$)......1|
00001c60 33 2c 38 29 bd 31 33 33 22 31 20 53 74 61 72 74 |3,8).133"1 Start|
00001c70 22 0d 0b ae 19 f1 8a 31 33 29 bd 31 33 30 22 32 |"......13).130"2|
00001c80 20 43 6f 6e 74 69 6e 75 65 22 0d 0b c2 15 f1 8a | Continue"......|
00001c90 31 33 29 bd 31 33 34 22 33 20 52 65 61 64 22 0d |13).134"3 Read".|
00001ca0 0b c3 1a f1 8a 31 33 29 bd 31 33 33 22 34 20 4d |.....13).133"4 M|
00001cb0 61 69 6e 20 4d 65 6e 75 22 0d 0b ea 3a ef 33 31 |ain Menu"...:.31|
00001cc0 2c 30 2c 32 33 2c 31 33 32 2c 31 35 37 2c 31 33 |,0,23,132,157,13|
00001cd0 33 3a f1 8a 33 29 22 50 72 65 73 73 20 61 70 70 |3:..3)"Press app|
00001ce0 72 6f 70 72 69 61 74 65 20 6e 75 6d 62 65 72 2e |ropriate number.|
00001cf0 2e 2e 22 0d 0b fe 19 f5 41 24 3d be 3a fd 41 24 |..".....A$=.:.A$|
00001d00 3e 22 30 22 80 41 24 3c 3d 22 34 22 0d 0c 12 23 |>"0".A$<="4"...#|
00001d10 42 3d bb 28 41 24 29 3a ee 42 20 e5 8d 54 66 4c |B=.(A$):.B ..TfL|
00001d20 2c 8d 54 7a 4c 2c 8d 44 4e 4c 2c 8d 44 62 4c 0d |,.TzL,.DNL,.DbL.|
00001d30 0c 26 16 58 3d 31 3a f2 6f 66 66 3a 58 3d 30 3a |.&.X=1:.off:X=0:|
00001d40 e5 8d 44 72 4b 0d 0c 3a 35 e7 41 3d 31 20 49 49 |..DrK..:5.A=1 II|
00001d50 3d 57 28 31 29 20 8b e7 41 3d 32 20 49 49 3d 57 |=W(1) ..A=2 II=W|
00001d60 28 32 29 20 8b e7 41 3d 33 20 49 49 3d 57 28 33 |(2) ..A=3 II=W(3|
00001d70 29 20 8b 49 49 3d 57 28 34 29 0d 0c 3b 11 e7 49 |) .II=W(4)..;..I|
00001d80 49 3e 30 20 49 49 3d 49 49 2d 31 0d 0c 3c 16 58 |I>0 II=II-1..<.X|
00001d90 3d 31 3a f2 6f 66 66 3a 58 3d 30 3a e5 8d 44 72 |=1:.off:X=0:..Dr|
00001da0 4b 0d 0c 4e 0f f2 72 65 61 64 3a e5 8d 44 72 4b |K..N..read:..DrK|
00001db0 0d 0c 62 05 e1 0d 0c 76 0a dd f2 72 65 61 64 0d |..b....v...read.|
00001dc0 0c 77 0d f2 68 65 61 64 69 6e 67 32 0d 0c 9e 10 |.w..heading2....|
00001dd0 f2 68 65 61 64 69 6e 67 28 5a 24 29 0d 0c a0 19 |.heading(Z$)....|
00001de0 59 52 24 28 30 29 3d 59 52 53 24 3a 59 52 28 30 |YR$(0)=YRS$:YR(0|
00001df0 29 3d 31 33 31 0d 0c a2 2d f1 89 33 bd 59 52 28 |)=131...-..3.YR(|
00001e00 49 49 29 3b bd 31 35 37 bd 31 33 32 22 31 39 22 |II);.157.132"19"|
00001e10 3b 59 52 24 28 49 49 29 3b 22 20 20 22 3b bd 31 |;YR$(II);" ";.1|
00001e20 35 36 0d 0c a4 67 55 3d 30 3a 55 28 30 29 3d 30 |56...gU=0:U(0)=0|
00001e30 3a e3 49 3d 31 b8 38 3a 49 49 3d 49 49 2b 31 3a |:.I=1.8:II=II+1:|
00001e40 55 3d 55 2b 31 3a 55 28 55 29 3d 49 49 3a e7 41 |U=U+1:U(U)=II:.A|
00001e50 3d 31 20 59 24 3d 4f 24 28 49 49 29 20 8b e7 41 |=1 Y$=O$(II) ..A|
00001e60 3d 32 20 59 24 3d 47 24 28 49 49 29 20 8b e7 41 |=2 Y$=G$(II) ..A|
00001e70 3d 33 20 59 24 3d 44 4f 24 28 49 49 29 20 8b 59 |=3 Y$=DO$(II) .Y|
00001e80 24 3d 4d 49 24 28 49 49 29 0d 0c a6 34 e7 41 3c |$=MI$(II)...4.A<|
00001e90 3e 31 20 80 28 59 24 3d 22 20 20 20 4e 2e 30 30 |>1 .(Y$=" N.00|
00001ea0 30 22 20 84 59 24 3d 22 20 20 20 6e 2e 30 30 30 |0" .Y$=" n.000|
00001eb0 22 29 20 59 24 3d 22 20 20 20 20 2d 22 0d 0c a8 |") Y$=" -"...|
00001ec0 42 44 54 31 24 3d 44 54 24 28 49 49 2d 31 29 3a |BDT1$=DT$(II-1):|
00001ed0 44 54 24 3d 44 54 24 28 49 49 29 3a e7 c0 44 54 |DT$=DT$(II):..DT|
00001ee0 31 24 2c 33 29 3d c0 44 54 24 2c 33 29 20 44 54 |1$,3)=.DT$,3) DT|
00001ef0 24 3d 22 20 20 20 22 2b c2 44 54 24 2c 33 29 0d |$=" "+.DT$,3).|
00001f00 0c aa 14 e7 49 3d 31 20 44 54 24 3d 44 54 24 28 |....I=1 DT$=DT$(|
00001f10 49 49 29 0d 0c b4 74 f1 8a 30 29 3b 49 3b 22 20 |II)...t..0);I;" |
00001f20 20 20 20 22 3b 44 54 24 3b 22 20 20 20 22 3b 59 | ";DT$;" ";Y|
00001f30 24 3a e7 59 24 3d 22 20 20 20 46 2e 30 30 30 22 |$:.Y$=" F.000"|
00001f40 20 84 59 24 3d 22 20 20 20 66 2e 30 30 30 22 20 | .Y$=" f.000" |
00001f50 84 49 49 3d 35 32 20 49 3d 38 3a e7 59 24 3d 22 |.II=52 I=8:.Y$="|
00001f60 20 20 20 46 2e 30 30 30 22 20 84 59 24 3d 22 20 | F.000" .Y$=" |
00001f70 20 20 66 2e 30 30 30 22 20 ef 31 31 3a f1 89 33 | f.000" .11:..3|
00001f80 38 3a e5 8d 74 78 4c 0d 0c b5 30 e7 41 3d 32 20 |8:..txL...0.A=2 |
00001f90 57 24 3d 47 47 24 28 49 49 29 20 8b e7 41 3d 33 |W$=GG$(II) ..A=3|
00001fa0 20 57 24 3d 44 44 24 28 49 49 29 20 8b 57 24 3d | W$=DD$(II) .W$=|
00001fb0 4d 4d 24 28 49 49 29 0d 0c b7 14 e7 41 3c 3e 31 |MM$(II).....A<>1|
00001fc0 f1 8a 33 29 bd 31 33 33 3b 57 24 0d 0c b8 3a ed |..3).133;W$...:.|
00001fd0 3a e7 59 24 3c 3e 22 20 20 20 46 2e 30 30 30 22 |:.Y$<>" F.000"|
00001fe0 20 80 59 24 3c 3e 22 20 20 20 66 2e 30 30 30 22 | .Y$<>" f.000"|
00001ff0 20 80 49 49 3c 35 32 20 f2 63 68 61 6e 67 65 3a | .II<52 .change:|
00002000 e5 8d 74 5e 4c 0d 0d 04 12 f2 63 68 61 6e 67 65 |..t^L.....change|
00002010 3a f2 74 6f 74 61 6c 0d 0d 16 05 e1 0d 0d 2a 0c |:.total.......*.|
00002020 dd f2 61 64 6a 75 73 74 0d 0d 3e 59 20 e7 c1 59 |..adjust..>Y ..Y|
00002030 24 2c 31 2c 31 29 3c 3e 22 2e 22 3a e7 c1 59 24 |$,1,1)<>".":..Y$|
00002040 2c 32 2c 31 29 3c 3e 22 2e 22 3a e7 c1 59 24 2c |,2,1)<>".":..Y$,|
00002050 33 2c 31 29 3c 3e 22 2e 22 3a e7 c1 59 24 2c 34 |3,1)<>".":..Y$,4|
00002060 2c 31 29 3c 3e 22 2e 22 3a e7 c1 59 24 2c 35 2c |,1)<>".":..Y$,5,|
00002070 31 29 3c 3e 22 2e 22 3a 59 24 3d 59 24 2b 22 2e |1)<>".":Y$=Y$+".|
00002080 22 0d 0d 52 1f 20 e7 c1 59 24 2c 31 2c 31 29 3d |"..R. ..Y$,1,1)=|
00002090 22 2e 22 20 59 24 3d 22 20 20 20 20 22 2b 59 24 |"." Y$=" "+Y$|
000020a0 0d 0d 66 1e 20 e7 c1 59 24 2c 32 2c 31 29 3d 22 |..f. ..Y$,2,1)="|
000020b0 2e 22 20 59 24 3d 22 20 20 20 22 2b 59 24 0d 0d |." Y$=" "+Y$..|
000020c0 7a 1d 20 e7 c1 59 24 2c 33 2c 31 29 3d 22 2e 22 |z. ..Y$,3,1)="."|
000020d0 20 59 24 3d 22 20 20 22 2b 59 24 0d 0d 8e 1b e7 | Y$=" "+Y$.....|
000020e0 c1 59 24 2c 34 2c 31 29 3d 22 2e 22 20 59 24 3d |.Y$,4,1)="." Y$=|
000020f0 22 20 22 2b 59 24 0d 0d de 18 e7 a9 28 59 24 29 |" "+Y$......(Y$)|
00002100 3c 36 20 59 24 3d 59 24 2b 22 30 30 30 22 0d 0d |<6 Y$=Y$+"000"..|
00002110 f2 17 e7 a9 28 59 24 29 3c 37 20 59 24 3d 59 24 |....(Y$)<7 Y$=Y$|
00002120 2b 22 30 30 22 0d 0e 06 16 e7 a9 28 59 24 29 3c |+"00"......(Y$)<|
00002130 38 20 59 24 3d 59 24 2b 22 30 22 0d 0e 07 18 e7 |8 Y$=Y$+"0".....|
00002140 46 4c 3d 31 20 59 24 3d c0 59 24 2c 38 29 3a 46 |FL=1 Y$=.Y$,8):F|
00002150 4c 3d 30 0d 0e 08 31 e7 a9 28 59 24 29 3e 38 20 |L=0...1..(Y$)>8 |
00002160 59 3d bb 28 59 24 29 3a 59 3d 59 2b 2e 30 30 30 |Y=.(Y$):Y=Y+.000|
00002170 31 3a 59 24 3d c3 28 59 29 3a 46 4c 3d 31 3a e5 |1:Y$=.(Y):FL=1:.|
00002180 8d 54 7e 4d 0d 0e 1a 05 e1 0d 0e 1b 0b dd f2 73 |.T~M...........s|
00002190 74 61 72 74 0d 0e 1c 67 db 3a f2 68 65 61 64 69 |tart...g.:.headi|
000021a0 6e 67 28 22 55 73 65 72 20 47 75 69 64 65 22 29 |ng("User Guide")|
000021b0 3a f1 22 54 68 69 73 20 69 73 20 61 20 73 69 6d |:."This is a sim|
000021c0 70 6c 65 20 62 75 74 20 63 6f 6d 70 6c 65 74 65 |ple but complete|
000021d0 20 62 6f 6f 6b 2d 20 20 20 20 20 6b 65 65 70 69 | book- keepi|
000021e0 6e 67 20 61 6e 64 20 61 63 63 6f 75 6e 74 69 6e |ng and accountin|
000021f0 67 20 70 72 6f 67 72 61 6d 2e 22 0d 0e 1d 97 f1 |g program.".....|
00002200 27 22 46 6f 75 72 20 6a 6f 75 72 6e 61 6c 73 20 |'"Four journals |
00002210 61 72 65 20 70 72 6f 76 69 64 65 64 3a 20 74 77 |are provided: tw|
00002220 6f 20 66 6f 72 20 69 6e 63 2d 6f 6d 65 2c 20 74 |o for inc-ome, t|
00002230 77 6f 20 66 6f 72 20 65 78 70 65 6e 64 69 74 75 |wo for expenditu|
00002240 72 65 2c 20 73 65 6c 65 63 74 65 64 20 66 72 6f |re, selected fro|
00002250 6d 20 74 68 65 20 6d 61 69 6e 20 6d 65 6e 75 2e |m the main menu.|
00002260 20 20 54 68 65 20 73 65 6c 65 63 74 65 64 20 6a | The selected j|
00002270 6f 75 72 6e 61 6c 20 69 73 20 77 6f 72 6b 65 64 |ournal is worked|
00002280 20 66 72 6f 6d 20 61 20 73 75 62 2d 6d 65 6e 75 | from a sub-menu|
00002290 2e 22 0d 0e 1e bc f1 27 22 54 68 65 20 6e 61 6d |.".....'"The nam|
000022a0 65 73 20 6f 66 20 74 68 65 20 6a 6f 75 72 6e 61 |es of the journa|
000022b0 6c 73 20 68 61 76 65 20 62 65 65 6e 20 20 20 20 |ls have been |
000022c0 20 73 65 6c 65 63 74 65 64 20 66 6f 72 20 63 68 | selected for ch|
000022d0 75 72 63 68 20 61 63 63 6f 75 6e 74 73 20 6f 72 |urch accounts or|
000022e0 20 73 69 6d 69 6c 61 72 2c 62 75 74 20 63 6f 75 | similar,but cou|
000022f0 6c 64 20 62 65 20 63 68 61 6e 67 65 64 20 74 6f |ld be changed to|
00002300 20 62 65 20 6d 6f 72 65 20 20 20 20 20 20 20 20 | be more |
00002310 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 6f 74 | suitable for ot|
00002320 68 65 72 20 70 75 72 70 6f 73 65 73 20 61 6e 64 |her purposes and|
00002330 20 63 6f 75 6c 64 20 62 65 69 6e 63 72 65 61 73 | could beincreas|
00002340 65 64 20 69 6e 20 6e 75 6d 62 65 72 2e 22 0d 0e |ed in number."..|
00002350 20 cf f1 27 22 42 65 67 69 6e 6e 69 6e 67 20 61 | ..'"Beginning a|
00002360 74 20 61 20 75 73 65 72 2d 73 70 65 63 69 66 69 |t a user-specifi|
00002370 65 64 20 73 74 61 72 74 69 6e 67 20 20 64 61 74 |ed starting dat|
00002380 65 2c 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 |e, the program i|
00002390 73 20 73 65 74 20 74 6f 20 61 63 63 65 70 74 20 |s set to accept |
000023a0 20 20 20 20 20 65 6e 74 72 69 65 73 20 61 74 20 | entries at |
000023b0 77 65 65 6b 6c 79 20 69 6e 74 65 72 76 61 6c 73 |weekly intervals|
000023c0 20 74 68 72 6f 75 67 68 6f 75 74 20 61 66 75 6c | throughout aful|
000023d0 6c 20 79 65 61 72 2e 20 20 54 68 65 20 73 75 63 |l year. The suc|
000023e0 63 65 73 73 69 76 65 20 77 65 65 6b 6c 79 20 64 |cessive weekly d|
000023f0 61 74 65 73 20 74 68 65 6e 20 61 70 70 65 61 72 |ates then appear|
00002400 20 77 69 74 68 6f 75 74 20 65 66 66 6f 72 74 20 | without effort |
00002410 62 79 20 74 68 65 20 75 73 65 72 2e 22 0d 0e 21 |by the user."..!|
00002420 2f f1 27 22 4e 6f 20 63 75 72 72 65 6e 63 79 20 |/.'"No currency |
00002430 73 69 67 6e 73 20 6f 72 20 63 6f 6d 6d 61 73 20 |signs or commas |
00002440 69 6e 20 61 6d 6f 75 6e 74 73 2e 22 0d 0e 22 16 |in amounts."..".|
00002450 f2 73 70 61 63 65 28 22 74 6f 20 73 74 61 72 74 |.space("to start|
00002460 22 29 0d 0e 2e 7d db 3a f1 27 27 27 8a 31 32 29 |")...}.:.'''.12)|
00002470 bd 31 33 32 bd 31 35 37 bd 31 33 31 bd 31 34 31 |.132.157.131.141|
00002480 22 20 43 48 55 52 43 48 20 20 20 20 22 bd 31 35 |" CHURCH ".15|
00002490 36 3a f1 8a 31 32 29 bd 31 33 32 bd 31 35 37 bd |6:..12).132.157.|
000024a0 31 33 31 bd 31 34 31 22 20 43 48 55 52 43 48 20 |131.141" CHURCH |
000024b0 20 20 20 22 bd 31 35 36 3a f1 8a 31 32 29 bd 31 | ".156:..12).1|
000024c0 33 32 bd 31 35 37 bd 31 33 31 bd 31 34 31 22 41 |32.157.131.141"A|
000024d0 43 43 4f 55 4e 54 53 20 20 20 22 bd 31 35 36 0d |CCOUNTS ".156.|
000024e0 0e 2f 2a f1 8a 31 32 29 bd 31 33 32 bd 31 35 37 |./*..12).132.157|
000024f0 bd 31 33 31 bd 31 34 31 22 41 43 43 4f 55 4e 54 |.131.141"ACCOUNT|
00002500 53 20 20 20 22 bd 31 35 36 0d 0e 30 2c f1 27 27 |S ".156..0,.''|
00002510 22 4e 65 77 20 73 74 61 72 74 2e 2e 2e 59 2f 4e |"New start...Y/N|
00002520 3f 22 3b 3a f2 79 6e 3a f1 22 20 22 3b 41 24 3a |?";:.yn:." ";A$:|
00002530 42 24 3d 41 24 0d 0e 31 2d f1 22 53 75 72 65 2e |B$=A$..1-."Sure.|
00002540 2e 2e 59 2f 4e 3f 22 3a f2 79 6e 3a e7 41 24 3d |..Y/N?":.yn:.A$=|
00002550 22 4e 22 84 41 24 3d 22 6e 22 20 db 3a e5 8d 54 |"N".A$="n" .:..T|
00002560 6e 4e 0d 0e 33 1a e7 42 24 3d 22 4e 22 84 42 24 |nN..3..B$="N".B$|
00002570 3d 22 6e 22 20 f2 6c 6f 61 64 3a e1 0d 0e 42 23 |="n" .load:...B#|
00002580 db 3a f1 27 27 27 27 27 22 45 6e 74 65 72 20 73 |.:.'''''"Enter s|
00002590 74 61 72 74 69 6e 67 20 64 61 74 61 3a 2d 22 0d |tarting data:-".|
000025a0 0e 56 3b e8 8a 36 2c 31 30 29 22 59 65 61 72 20 |.V;..6,10)"Year |
000025b0 28 6c 61 73 74 20 74 77 6f 20 64 69 67 69 74 73 |(last two digits|
000025c0 29 3a 20 22 59 52 24 3a e7 59 52 24 3d 22 22 20 |): "YR$:.YR$="" |
000025d0 8c ef 31 31 3a e5 8d 44 56 4e 0d 0e 6a 1e 59 52 |..11:..DVN..j.YR|
000025e0 25 3d bb 28 59 52 24 29 3a 59 52 3d 31 33 31 3a |%=.(YR$):YR=131:|
000025f0 59 52 53 24 3d 59 52 24 0d 0e 7e 2f 20 e8 8a 36 |YRS$=YR$..~/ ..6|
00002600 29 22 4d 6f 6e 74 68 20 28 6e 75 6d 62 65 72 29 |)"Month (number)|
00002610 3a 20 22 4d 24 3a e7 4d 24 3d 22 22 20 8c ef 31 |: "M$:.M$="" ..1|
00002620 31 3a e5 8d 44 7e 4e 0d 0e 92 0c 4d 25 3d bb 28 |1:..D~N....M%=.(|
00002630 4d 24 29 0d 0e a6 2c e8 8a 36 29 22 44 61 79 20 |M$)...,..6)"Day |
00002640 28 6e 75 6d 62 65 72 29 3a 20 22 44 24 3a e7 44 |(number): "D$:.D|
00002650 24 3d 22 22 20 8c ef 31 31 3a e5 8d 74 66 4e 0d |$="" ..11:..tfN.|
00002660 0e ba 0c 44 25 3d bb 28 44 24 29 0d 0e bb 32 e8 |...D%=.(D$)...2.|
00002670 8a 36 29 22 53 74 61 72 74 69 6e 67 20 42 61 6c |.6)"Starting Bal|
00002680 61 6e 63 65 3a 20 22 53 42 24 3a e7 53 42 24 3d |ance: "SB$:.SB$=|
00002690 22 22 20 8c ef 31 31 3a e5 8d 74 7b 4e 0d 0e bc |"" ..11:..t{N...|
000026a0 22 59 24 3d 53 42 24 3a f2 61 64 6a 75 73 74 3a |"Y$=SB$:.adjust:|
000026b0 53 42 24 3d 59 24 3a 53 42 3d bb 28 59 24 29 0d |SB$=Y$:SB=.(Y$).|
000026c0 0e ce 29 f1 27 27 27 22 41 6c 6c 20 63 6f 72 72 |..).'''"All corr|
000026d0 65 63 74 20 28 59 2f 4e 29 2e 2e 2e 3f 22 3a f2 |ect (Y/N)...?":.|
000026e0 64 61 74 65 3a f2 79 6e 0d 0e e2 1a e7 41 24 3d |date:.yn.....A$=|
000026f0 22 4e 22 84 41 24 3d 22 6e 22 20 db 3a e5 8d 44 |"N".A$="n" .:..D|
00002700 42 4e 0d 0e f6 05 e1 0d 0f 0a 35 dc 20 4a 61 6e |BN........5. Jan|
00002710 2c 46 65 62 2c 4d 61 72 2c 41 70 72 2c 4d 61 79 |,Feb,Mar,Apr,May|
00002720 2c 4a 75 6e 2c 4a 75 6c 2c 41 75 67 2c 53 65 70 |,Jun,Jul,Aug,Sep|
00002730 2c 4f 63 74 2c 4e 6f 76 2c 44 65 63 0d 0f 1e 0e |,Oct,Nov,Dec....|
00002740 dd f2 68 65 61 64 69 6e 67 32 0d 0f 32 0e e7 42 |..heading2..2..B|
00002750 3c 3e 32 20 49 49 3d 30 0d 0f 3c 59 e7 41 3d 31 |<>2 II=0..<Y.A=1|
00002760 20 5a 24 3d 22 4f 66 66 65 72 74 6f 72 69 65 73 | Z$="Offertories|
00002770 22 20 8b e7 41 3d 32 20 5a 24 3d 22 4d 69 73 63 |" ..A=2 Z$="Misc|
00002780 20 49 6e 63 6f 6d 65 22 20 8b e7 41 3d 33 20 5a | Income" ..A=3 Z|
00002790 24 3d 22 44 6f 6e 61 74 69 6f 6e 73 22 20 8b 5a |$="Donations" .Z|
000027a0 24 3d 22 4d 69 73 63 20 45 78 70 65 6e 73 65 73 |$="Misc Expenses|
000027b0 22 0d 0f 50 05 e1 0d 0f 64 0b dd f2 74 6f 74 61 |"..P....d...tota|
000027c0 6c 0d 0f 65 3d 4f 54 3d 30 3a e3 49 3d 31 b8 35 |l..e=OT=0:.I=1.5|
000027d0 32 3a 4f 54 3d 4f 54 2b 4f 28 49 29 3a ed 3a 4f |2:OT=OT+O(I):.:O|
000027e0 54 24 3d c3 28 4f 54 29 3a 59 24 3d 4f 54 24 3a |T$=.(OT):Y$=OT$:|
000027f0 f2 61 64 6a 75 73 74 3a 4f 54 24 3d 59 24 0d 0f |.adjust:OT$=Y$..|
00002800 66 3d 47 54 3d 30 3a e3 49 3d 31 b8 35 32 3a 47 |f=GT=0:.I=1.52:G|
00002810 54 3d 47 54 2b 47 28 49 29 3a ed 3a 47 54 24 3d |T=GT+G(I):.:GT$=|
00002820 c3 28 47 54 29 3a 59 24 3d 47 54 24 3a f2 61 64 |.(GT):Y$=GT$:.ad|
00002830 6a 75 73 74 3a 47 54 24 3d 59 24 0d 0f 67 3e 44 |just:GT$=Y$..g>D|
00002840 54 3d 30 3a e3 49 3d 31 b8 35 32 3a 44 54 3d 44 |T=0:.I=1.52:DT=D|
00002850 54 2b 44 4f 28 49 29 3a ed 3a 44 54 24 3d c3 28 |T+DO(I):.:DT$=.(|
00002860 44 54 29 3a 59 24 3d 44 54 24 3a f2 61 64 6a 75 |DT):Y$=DT$:.adju|
00002870 73 74 3a 44 54 24 3d 59 24 0d 0f 68 3e 4d 54 3d |st:DT$=Y$..h>MT=|
00002880 30 3a e3 49 3d 31 b8 35 32 3a 4d 54 3d 4d 54 2b |0:.I=1.52:MT=MT+|
00002890 4d 49 28 49 29 3a ed 3a 4d 54 24 3d c3 28 4d 54 |MI(I):.:MT$=.(MT|
000028a0 29 3a 59 24 3d 4d 54 24 3a f2 61 64 6a 75 73 74 |):Y$=MT$:.adjust|
000028b0 3a 4d 54 24 3d 59 24 0d 0f 69 14 e7 41 3d 39 20 |:MT$=Y$..i..A=9 |
000028c0 84 41 3d 37 20 84 41 3d 36 20 e1 0d 0f 6a 29 e7 |.A=7 .A=6 ...j).|
000028d0 41 3d 31 20 54 3d 4f 54 20 8b e7 41 3d 32 20 54 |A=1 T=OT ..A=2 T|
000028e0 3d 47 54 20 8b e7 41 3d 33 20 54 3d 44 54 20 8b |=GT ..A=3 T=DT .|
000028f0 54 3d 4d 54 0d 0f 78 23 e7 41 3d 31 20 80 42 3c |T=MT..x#.A=1 .B<|
00002900 3e 33 20 56 3d 55 2b 34 20 8b e7 42 3c 3e 33 20 |>3 V=U+4 ..B<>3 |
00002910 56 3d 55 2a 32 2b 34 0d 0f 79 21 e7 42 3d 33 20 |V=U*2+4..y!.B=3 |
00002920 80 41 3d 31 20 56 3d 55 2b 32 20 8b e7 42 3d 33 |.A=1 V=U+2 ..B=3|
00002930 20 56 3d 55 2a 32 2b 31 0d 0f 7a 0b ef 33 31 2c | V=U*2+1..z..31,|
00002940 30 2c 56 0d 0f 8c 61 f1 bd 31 33 32 3b bd 31 35 |0,V...a..132;.15|
00002950 37 3b bd 31 33 31 3b bd 31 34 31 3b 22 54 6f 74 |7;.131;.141;"Tot|
00002960 61 6c 20 22 3b 5a 24 3b 22 20 3d 20 22 3b 54 3b |al ";Z$;" = ";T;|
00002970 22 20 20 20 22 3a f1 bd 31 33 32 3b bd 31 35 37 |" ":..132;.157|
00002980 3b bd 31 33 31 3b bd 31 34 31 3b 22 54 6f 74 61 |;.131;.141;"Tota|
00002990 6c 20 22 3b 5a 24 3b 22 20 3d 20 22 3b 54 3b 22 |l ";Z$;" = ";T;"|
000029a0 20 20 20 22 0d 0f a0 16 f2 73 70 61 63 65 28 22 | ".....space("|
000029b0 66 6f 72 20 4d 65 6e 75 22 29 0d 0f b4 05 e1 0d |for Menu")......|
000029c0 0f c8 09 dd f2 62 61 6c 0d 0f c9 0a f2 74 6f 74 |.....bal.....tot|
000029d0 61 6c 0d 0f ca 13 e7 41 3d 36 20 84 41 3d 37 20 |al.....A=6 .A=7 |
000029e0 e5 8d 64 5e 4f 0d 0f dc 1d f2 68 65 61 64 69 6e |..d^O.....headin|
000029f0 67 28 22 42 20 41 20 4c 20 41 20 4e 20 43 20 45 |g("B A L A N C E|
00002a00 22 29 0d 0f de 24 49 4e 3d 4f 54 2b 47 54 3a 59 |")...$IN=OT+GT:Y|
00002a10 24 3d c3 28 49 4e 29 3a f2 61 64 6a 75 73 74 3a |$=.(IN):.adjust:|
00002a20 49 4e 24 3d 59 24 0d 0f e0 24 45 58 3d 44 54 2b |IN$=Y$...$EX=DT+|
00002a30 4d 54 3a 59 24 3d c3 28 45 58 29 3a f2 61 64 6a |MT:Y$=.(EX):.adj|
00002a40 75 73 74 3a 45 58 24 3d 59 24 0d 0f e2 27 45 42 |ust:EX$=Y$...'EB|
00002a50 3d 53 42 2b 49 4e 2d 45 58 3a 59 24 3d c3 28 45 |=SB+IN-EX:Y$=.(E|
00002a60 42 29 3a f2 61 64 6a 75 73 74 3a 45 42 24 3d 59 |B):.adjust:EB$=Y|
00002a70 24 0d 0f e3 0f e7 41 3d 36 20 84 41 3d 37 20 e1 |$.....A=6 .A=7 .|
00002a80 0d 0f ef 0b ef 33 31 2c 30 2c 36 0d 0f f0 35 e3 |.....31,0,6...5.|
00002a90 49 3d 31 b8 32 3a f1 8a 35 29 bd 31 33 33 bd 31 |I=1.2:..5).133.1|
00002aa0 34 31 22 53 74 61 72 74 69 6e 67 20 42 61 6c 61 |41"Starting Bala|
00002ab0 6e 63 65 20 22 3b bd 31 33 31 3b 53 42 24 3a ed |nce ";.131;SB$:.|
00002ac0 0d 10 04 35 e3 49 3d 31 b8 32 3a f1 8a 35 29 bd |...5.I=1.2:..5).|
00002ad0 31 33 33 bd 31 34 31 22 49 6e 63 6f 6d 65 20 20 |133.141"Income |
00002ae0 20 20 20 20 20 20 20 20 20 22 3b bd 31 33 31 3b | ";.131;|
00002af0 49 4e 24 3a ed 0d 10 18 35 e3 49 3d 31 b8 32 3a |IN$:....5.I=1.2:|
00002b00 f1 8a 35 29 bd 31 33 33 bd 31 34 31 22 45 78 70 |..5).133.141"Exp|
00002b10 65 6e 64 69 74 75 72 65 20 20 20 20 20 20 22 3b |enditure ";|
00002b20 bd 31 33 31 3b 45 58 24 3a ed 0d 10 2c 35 e3 49 |.131;EX$:...,5.I|
00002b30 3d 31 b8 32 3a f1 8a 35 29 bd 31 33 33 bd 31 34 |=1.2:..5).133.14|
00002b40 31 22 45 6e 64 69 6e 67 20 42 61 6c 61 6e 63 65 |1"Ending Balance|
00002b50 20 20 20 22 3b bd 31 33 31 3b 45 42 24 3a ed 0d | ";.131;EB$:..|
00002b60 10 2d 16 f2 73 70 61 63 65 28 22 66 6f 72 20 4d |.-..space("for M|
00002b70 65 6e 75 22 29 0d 10 40 05 e1 0d 10 54 08 dd f2 |enu")..@....T...|
00002b80 6e 6f 0d 10 55 5c e7 41 3e 34 20 80 4f 24 28 31 |no..U\.A>4 .O$(1|
00002b90 29 3d 22 22 20 f1 22 4e 6f 20 64 61 74 61 2e 2e |)="" ."No data..|
00002ba0 2e 22 27 22 45 6e 74 65 72 20 64 61 74 61 20 75 |."'"Enter data u|
00002bb0 73 69 6e 67 20 6f 70 74 69 6f 6e 73 20 31 2c 20 |sing options 1, |
00002bc0 32 2c 20 33 2c 20 34 20 6f 72 20 36 6f 66 20 6d |2, 3, 4 or 6of m|
00002bd0 61 69 6e 20 6d 65 6e 75 2e 2e 2e 22 3a e1 0d 10 |ain menu...":...|
00002be0 57 3f e7 41 3d 37 20 f1 22 42 65 66 6f 72 65 20 |W?.A=7 ."Before |
00002bf0 70 72 69 6e 74 69 6e 67 2c 20 73 61 76 65 20 64 |printing, save d|
00002c00 61 74 61 20 62 79 20 75 73 69 6e 67 22 27 22 6f |ata by using"'"o|
00002c10 70 74 69 6f 6e 20 35 2e 2e 2e 22 3a e1 0d 10 5e |ption 5...":...^|
00002c20 6a f1 22 59 6f 75 27 6c 6c 20 65 72 61 73 65 20 |j."You'll erase |
00002c30 61 6c 6c 20 70 72 65 76 69 6f 75 73 20 22 5a 24 |all previous "Z$|
00002c40 27 22 44 6f 20 79 6f 75 20 72 65 61 6c 6c 79 20 |'"Do you really |
00002c50 77 61 6e 74 20 74 6f 20 73 74 61 72 74 20 61 74 |want to start at|
00002c60 20 74 68 65 22 27 22 62 65 67 69 6e 6e 69 6e 67 | the"'"beginning|
00002c70 20 6f 66 20 22 5a 24 22 2e 2e 2e 2e 2e 2e 59 2f | of "Z$"......Y/|
00002c80 4e 3f 22 3a f2 79 6e 0d 10 68 05 e1 0d 10 7c 0e |N?":.yn..h....|.|
00002c90 dd f2 73 6f 72 74 28 58 58 29 0d 10 7d 07 4a 3d |..sort(XX)..}.J=|
00002ca0 31 0d 10 7e 06 ea 49 0d 10 90 35 e3 49 3d 31 b8 |1..~..I...5.I=1.|
00002cb0 58 58 3a e7 46 24 28 49 29 3d 22 20 20 20 4e 2e |XX:.F$(I)=" N.|
00002cc0 30 30 30 22 20 84 46 24 28 49 29 3d 22 20 20 20 |000" .F$(I)=" |
00002cd0 6e 2e 30 30 30 22 20 e5 8d 74 78 50 0d 10 a4 31 |n.000" ..txP...1|
00002ce0 45 54 24 28 4a 29 3d 44 54 24 28 49 29 3a 45 24 |ET$(J)=DT$(I):E$|
00002cf0 28 4a 29 3d 46 24 28 49 29 3a 45 45 24 28 4a 29 |(J)=F$(I):EE$(J)|
00002d00 3d 46 46 24 28 49 29 3a 4a 3d 4a 2b 31 0d 10 b8 |=FF$(I):J=J+1...|
00002d10 05 ed 0d 10 f4 05 e1 0d 10 fe 0b dd f2 6e 6f 74 |.............not|
00002d20 65 73 0d 11 03 1b e7 58 3d 32 20 ee 4c 25 e5 8d |es.....X=2 .L%..|
00002d30 54 49 51 2c 8d 54 4b 51 2c 8d 54 4d 51 0d 11 08 |TIQ,.TKQ,.TMQ...|
00002d40 4e f2 68 65 61 64 69 6e 67 28 22 42 61 6e 6b 20 |N.heading("Bank |
00002d50 41 63 63 74 73 22 29 3a f1 bd 31 33 33 22 4e 61 |Accts"):..133"Na|
00002d60 74 69 6f 6e 61 6c 20 42 61 6e 6b 20 6f 66 20 42 |tional Bank of B|
00002d70 61 68 72 61 69 6e 2c 20 41 77 61 6c 69 22 3a e7 |ahrain, Awali":.|
00002d80 46 44 25 3e 30 20 e5 8d 54 52 51 0d 11 09 36 e8 |FD%>0 ..TRQ...6.|
00002d90 22 31 20 20 46 69 78 65 64 20 44 65 70 6f 73 69 |"1 Fixed Deposi|
00002da0 74 20 41 63 63 74 20 4e 6f 3a 20 22 3b 46 44 25 |t Acct No: ";FD%|
00002db0 3a e7 46 44 25 3d 30 20 ef 31 31 3a e5 8d 54 49 |:.FD%=0 .11:..TI|
00002dc0 51 0d 11 0a 0e e7 58 3d 32 20 e5 8d 74 40 51 0d |Q.....X=2 ..t@Q.|
00002dd0 11 0b 33 e8 22 32 20 20 46 69 78 65 64 20 44 65 |..3."2 Fixed De|
00002de0 70 6f 73 69 74 20 41 6d 6f 75 6e 74 3a 20 22 3b |posit Amount: ";|
00002df0 46 44 3a e7 46 44 3d 30 20 ef 31 31 3a e5 8d 54 |FD:.FD=0 .11:..T|
00002e00 4b 51 0d 11 0c 0e e7 58 3d 32 20 e5 8d 74 40 51 |KQ.....X=2 ..t@Q|
00002e10 0d 11 0d 30 e8 22 33 20 20 53 61 76 69 6e 67 73 |...0."3 Savings|
00002e20 20 41 63 63 74 20 4e 6f 3a 20 22 3b 53 41 25 3a | Acct No: ";SA%:|
00002e30 e7 53 41 25 3d 30 20 ef 31 31 3a e5 8d 54 4d 51 |.SA%=0 .11:..TMQ|
00002e40 0d 11 0e 0e e7 58 3d 32 20 e5 8d 74 40 51 0d 11 |.....X=2 ..t@Q..|
00002e50 0f 52 f1 27 22 53 61 76 69 6e 67 73 20 61 63 63 |.R.'"Savings acc|
00002e60 6f 75 6e 74 20 62 61 6c 61 6e 63 65 20 77 69 6c |ount balance wil|
00002e70 6c 20 62 65 20 20 20 20 20 20 20 20 20 63 61 6c |l be cal|
00002e80 63 75 6c 61 74 65 64 20 69 6e 20 74 68 65 20 70 |culated in the p|
00002e90 72 6f 67 72 61 6d 2e 2e 2e 22 3a e5 8d 74 40 51 |rogram...":..t@Q|
00002ea0 0d 11 12 aa f1 22 31 20 20 46 69 78 65 64 20 44 |....."1 Fixed D|
00002eb0 65 70 6f 73 69 74 20 41 63 63 74 20 4e 6f 3a 20 |eposit Acct No: |
00002ec0 22 3b 46 44 25 3a f1 22 32 20 20 46 69 78 65 64 |";FD%:."2 Fixed|
00002ed0 20 44 65 70 6f 73 69 74 20 41 6d 6f 75 6e 74 3a | Deposit Amount:|
00002ee0 20 22 3b 46 44 3a f1 22 33 20 20 53 61 76 69 6e | ";FD:."3 Savin|
00002ef0 67 73 20 41 63 63 74 20 4e 6f 3a 20 22 3b 53 41 |gs Acct No: ";SA|
00002f00 25 3a f1 27 22 53 61 76 69 6e 67 73 20 61 63 63 |%:.'"Savings acc|
00002f10 6f 75 6e 74 20 62 61 6c 61 6e 63 65 20 77 69 6c |ount balance wil|
00002f20 6c 20 62 65 20 20 20 20 20 20 20 20 20 63 61 6c |l be cal|
00002f30 63 75 6c 61 74 65 64 20 69 6e 20 74 68 65 20 70 |culated in the p|
00002f40 72 6f 67 72 61 6d 2e 2e 2e 22 0d 11 80 0b f2 63 |rogram...".....c|
00002f50 68 61 6e 67 65 0d 11 8a 16 f2 73 70 61 63 65 28 |hange.....space(|
00002f60 22 66 6f 72 20 4d 65 6e 75 22 29 0d 11 94 05 e1 |"for Menu").....|
00002f70 0d 11 9e 08 20 dd f2 76 0d 11 a8 6c 41 3d 30 3a |.... ..v...lA=0:|
00002f80 42 3d 30 3a 58 3d 30 3a 58 58 3d 30 3a 4f 54 3d |B=0:X=0:XX=0:OT=|
00002f90 30 3a 47 54 3d 30 3a 44 54 3d 30 3a 4d 54 3d 30 |0:GT=0:DT=0:MT=0|
00002fa0 3a 41 31 3d 30 3a 41 32 3d 30 3a 41 33 3d 30 3a |:A1=0:A2=0:A3=0:|
00002fb0 41 34 3d 30 3a 46 4c 3d 30 3a 58 24 3d 22 22 3a |A4=0:FL=0:X$="":|
00002fc0 46 44 25 3d 30 3a 46 44 3d 30 3a 53 41 25 3d 30 |FD%=0:FD=0:SA%=0|
00002fd0 3a 53 41 3d 30 3a 58 33 3d 30 3a 58 34 3d 30 3a |:SA=0:X3=0:X4=0:|
00002fe0 58 35 3d 30 0d 11 c6 05 e1 0d ff |X5=0.......|
00002feb 
General/ACCOUNT.m0
General/ACCOUNT.m1
General/ACCOUNT.m2
General/ACCOUNT.m4
General/ACCOUNT.m5
.