Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/PLAN
P/C/PLAN
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF |
| Filename: | P/C/PLAN |
| Read OK: | ✔ |
| File size: | 0EC0 bytes |
| Load address: | FFFF2000 |
| Exec address: | FFFF2000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-21_D-EUG21B.dsd » C.PLAN
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/PLAN
File contents
10REM >PLAN
20REM >Forward Planning (c) M Comley 1995 V 0.1
30
40VDU26,12:A%=0:B%=0:F%=0:G%=FALSE:O%=6:S%=0:W%=FALSE:Z%=0:payee$=STRING$(36," "):a$=STRING$(80," ")
50PROChead:PROCmf("|.|.|.|.|H Loading Data |N|I Please wait.")
60DIMday$(7),month$(12),m%(12),pay%(20),fpay%(20),lpay%(20),flag%(20),n_pay%(20),st%(20),date%(20),freq%(20),pp%(20),p$(20)
70T%=OPENIN"A.DATA"
80FOR Q%=1 TO 12:INPUT#T%,month$(Q%),m%(Q%):NEXT
90FOR Q%=1 TO 7:INPUT#T%,day$(Q%):NEXT
100CLOSE#0
110*LOAD $&C01
120Q%=0:T%=OPENIN"A.FILE":REPEAT:PTR# T%=Q%*100
130INPUT#T%,pay%(Q%),fpay%(Q%),lpay%(Q%),flag%(Q%),n_pay%(Q%),freq%(Q%),st%(Q%),date%(Q%),pp%(Q%),p$(Q%)
140Q%=Q%+1:UNTIL Q%>20:CLOSE#0
150PROCget_date:PROCc:PROCvdu(21,24):IF S%>0 PROCshow(20)
160
170REPEAT:*FX21,0
180PROCd(7):PRINT';C%,A%;" ";:PROCw
190CALL&900:J%=FNget(CHR$13+"TAIDWZC VBJE")
200IF J%>1 AND J%<6 P%=J%-2
210IF J%>5 AND J%<9 P%=J%+12
220IF J%=9 PROCdate
230IF J%=10 PROCvoid
240IF J%=11 CHAIN"FLEX"
250IF J%=12 CHAIN"ADJUST"
260IF J%=13 CHAIN"EDIT"
270IF J%>1 AND J%<9 PROCpay
280PROCpay_debit
290UNTIL 0
300
310DEFPROCc:p$(20)="|H"+STR$(C%)+"|N ":ENDPROC
320
330DEFPROCd(L%):IF L%=7 CLS:PRINTday$(I%)" ";
340PRINT;D%;TAB(L%)month$(M%)" ";:ENDPROC
350
360DEFPROCdate
370IF (Y%-1984)MOD 4=0 m%(2)=29
380D%=D%+1:IF D%>m%(M%) M%=M%+1:D%=1
390IF M%>12 Y%=Y%+1:M%=1:D%=1:W%=TRUE
400I%=I%+1:IF I%>7 I%=1:W%=NOT W%
410IF M%=1 AND D%=1 VDU26,30:PROChead:PROCvdu(3,20):PRINTTAB(25,F%);:PROCmf("|H|B "+STR$(Y%)+" |."):F%=VPOS:PROCvdu(21,24)
420ENDPROC
430
440DEFPROCdeduct:n_pay%(P%)=n_pay%(P%)-1:IF n_pay%(P%)=0 pay%(P%)=0:ENDPROC ELSEENDPROC
450
460DEFPROCflag:flag%(P%)=FALSE:ENDPROC
470
480DEFPROCget_date:U%=OPENUP "A.DATE":INPUT#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:CLOSE#0:ENDPROC
490
500DEFPROChead:PROCmf(STRING$(15," ")+"Bank Account |BFORWARD PLANNING - V|N 0.1 "+STR$(Y%)+"|.")
510PROCmf("|SDate Item"+STRING$(28," ")+"Withdrawals Deposits Balance|."):PRINTSTRING$(80,"-"):ENDPROC
520
530DEFPROCline
540CLS:PROCvdu(3,20):VDU31,0,F%:IF A%=0 PROCd(3)
550IF A%>0 IF D%<>X% PROCd(3):X%=D%
560PRINTTAB(10);:PROCmf(LEFT$(payee$,32)):PROCp(43):IF Z%>0 PROCp(56)
570PROCmoney(ABS(Z%)):PROCp(69):IF B%<0 COLOUR0:COLOUR129
580PROCmoney(B%):COLOUR128:COLOUR1:PRINT
590F%=VPOS:PROCvdu(21,24):ENDPROC
600
610DEFPROCmf(a$):CALLHIMEM,a$:ENDPROC
620
630DEFPROCmoney(m%):@%=&2020A:PRINTm%/100;:@%=&90A:ENDPROC
640
650DEFPROCp(x%):REPEATVDU32:UNTILPOS=x%:ENDPROC
660
670DEFPROCpay
680PROCd(7):PROCmf("|H "+p$(P%)+" ")
690IF P%>18 INPUT" Payee "m$:IF P%=19 payee$="|C"+m$ ELSEIF P%=20 payee$=p$(20)+m$
700IF P%<19 payee$=p$(P%)
710payee$=LEFT$(payee$,36)
720IF P%>3 AND P%<18 PRINT" `";:PROCmoney(ABS(pay%(P%))):PROCmf("|I Is amount correct ? "):IF FNget("NY")=2 THEN 740
730PROCmf("|.|CAmount. |N` "):pay%(P%)=FNcash:IF P%<3 PROCmf("|CDebit |Nor |CCredit "):IF FNget("DC")=1 pay%(P%)=pay%(P%)*(-1)
740IF pay%(P%)=0 CLS:ENDPROC
750Z%=pay%(P%):B%=B%+Z%:PROCline:flag%(P%)=TRUE:IF P%=20 C%=C%+1:PROCc
760pp%(P%)=A%:A%=A%+1:S%=A%
770ENDPROC
780
790DEFPROCpay_debit
800P%=4
810REPEAT
820IF flag%(P%) IF freq%(P%)=1 AND D%<>date%(P%) PROCflag
830IF flag%(P%) IF freq%(P%)>1 AND I%<>date%(P%) PROCflag
840IF pay%(P%)=0 OR flag%(P%)=TRUE THEN 890
850IF freq%(P%)=1 AND D%=date%(P%) PROCstart
860IF freq%(P%)=2 AND I%=date%(P%) PROCstart
870IF freq%(P%)=3 AND W% AND I%=date%(P%) PROCstart
880IF freq%(P%)=4 AND NOT W% AND I%=date%(P%) PROCstart
890P%=P%+1:UNTIL P%=18:ENDPROC
900
910DEFPROCretrieve:PTR# T%=A%*100:INPUT#T%,D%,M%,Y%,I%,P%,next%,Z%,B%,payee$:ENDPROC
920
930DEFPROCshow(Q%)
940PROCvdu(3,22):CLS:F%=0 ELSE F%=3
950IF A%>Q% A%=A%-Q% ELSE A%=0
960T%=OPENUP "A.RECORD"
970REPEAT:PROCretrieve:IF P%<99 PROCline
980A%=A%+1:UNTIL A%=S%:CLOSE#0:PROCget_date:ENDPROC
990
1000DEFPROCstart
1010IF (st%(P%)AND&FFFF)>M% ENDPROC
1020IF st%(P%)DIV&10000>D% ENDPROC
1030st%(P%)=0:IF n_pay%(P%)=0 PROCpay:ENDPROC
1040IF fpay%(P%)<>0 t%=pay%(P%):pay%(P%)=fpay%(P%):PROCpay:fpay%(P%)=0:pay%(P%)=t%:PROCdeduct:ENDPROC
1050IF n_pay%(P%)=1 IF lpay%(P%)<>0 pay%(P%)=lpay%(P%):lpay%(P%)=0
1060PROCpay:PROCdeduct:ENDPROC
1070
1080DEFPROCw:IF W% PROCmf("|Hodd.|."):ENDPROC ELSEPROCmf("|Heven.|."):ENDPROC
1090
1100DEFPROCvdu(t%,b%):VDU28,0,b%,79,t%:ENDPROC
1110
1120DEFPROCvoid:CLS:PRINT"Check No. ";:PROCmf(p$(20)+" "):INPUT"New check No "C%:PROCc:ENDPROC
1130
1140DEFFNcash
1150`%=0:`$="0":d%=0:d$="0":po%=0
1160INPUTmo$:IF mo$="" =0
1170l%=LENmo$:po%=INSTR(mo$,".")
1180IF po%=1 THEN 1200
1190IF po%=0 `$=mo$:GOTO 1230:ELSE `$=LEFT$(mo$,po%-1)
1200d$=RIGHT$(mo$,l%-po%)
1210IF LENd$=1 d$=d$+"0"
1220IF `$="" `$=`$+"0"
1230`%=EVAL(`$):d%=EVAL(d$)
1240IF P%>=O% =(`%*100+d%)*(-1) ELSE =`%*100+d%
1250
1260DEFFNget(a$):*FX21,0
1270REPEAT K%=INSTR(a$,GET$):UNTIL K%<>0:=K%
� >PLAN
0� >Forward Planning (c) M Comley 1995 V 0.1
(N�26,12:A%=0:B%=0:F%=0:G%=�:O%=6:S%=0:W%=�:Z%=0:payee$=�36," "):a$=�80," ")
2:�head:�mf("|.|.|.|.|H Loading Data |N|I Please wait.")
<{�day$(7),month$(12),m%(12),pay%(20),fpay%(20),lpay%(20),flag%(20),n_pay%(20),st%(20),date%(20),freq%(20),pp%(20),p$(20)
FT%=�"A.DATA"
P(� Q%=1 � 12:�#T%,month$(Q%),m%(Q%):�
Z � Q%=1 � 7:�#T%,day$(Q%):�
d�#0
n*LOAD $&C01
x$Q%=0:T%=�"A.FILE":�:�# T%=Q%*100
�e�#T%,pay%(Q%),fpay%(Q%),lpay%(Q%),flag%(Q%),n_pay%(Q%),freq%(Q%),st%(Q%),date%(Q%),pp%(Q%),p$(Q%)
�Q%=Q%+1:� Q%>20:�#0
�-�get_date:�c:�vdu(21,24):� S%>0 �show(20)
�
�
�:*FX21,0
��d(7):�';C%,A%;" ";:�w
�%�&900:J%=�get(�13+"TAIDWZC VBJE")
�� J%>1 � J%<6 P%=J%-2
�� J%>5 � J%<9 P%=J%+12
�� J%=9 �date
�� J%=10 �void
�� J%=11 �"FLEX"
�� J%=12 �"ADJUST"
� J%=13 �"EDIT"
� J%>1 � J%<9 �pay
�pay_debit
"� 0
,
6!��c:p$(20)="|H"+�(C%)+"|N ":�
@
J"��d(L%):� L%=7 �:�day$(I%)" ";
T �;D%;�L%)month$(M%)" ";:�
^
h
��date
r � (Y%-1984)� 4=0 m%(2)=29
|$D%=D%+1:� D%>m%(M%) M%=M%+1:D%=1
�"� M%>12 Y%=Y%+1:M%=1:D%=1:W%=�
� I%=I%+1:� I%>7 I%=1:W%=� W%
�]� M%=1 � D%=1 �26,30:�head:�vdu(3,20):�25,F%);:�mf("|H|B "+�(Y%)+" |."):F%=�:�vdu(21,24)
��
�
�C��deduct:n_pay%(P%)=n_pay%(P%)-1:� n_pay%(P%)=0 pay%(P%)=0:� ��
�
���flag:flag%(P%)=�:�
�
�B��get_date:U%=� "A.DATE":�#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:�#0:�
�
�R��head:�mf(�15," ")+"Bank Account |BFORWARD PLANNING - V|N 0.1 "+�(Y%)+"|.")
�Z�mf("|SDate Item"+�28," ")+"Withdrawals Deposits Balance|."):��80,"-"):�
��line
&�:�vdu(3,20):�31,0,F%:� A%=0 �d(3)
& � A%>0 � D%<>X% �d(3):X%=D%
00�10);:�mf(�payee$,32)):�p(43):� Z%>0 �p(56)
:'�money(�(Z%)):�p(69):� B%<0 �0:�129
D�money(B%):�128:�1:�
NF%=�:�vdu(21,24):�
X
b��mf(a$):֓,a$:�
l
v,��money(m%):@%=&2020A:�m%/100;:@%=&90A:�
�
���p(x%):��32:��=x%:�
�
� ��pay
� �d(7):�mf("|H "+p$(P%)+" ")
�J� P%>18 �" Payee "m$:� P%=19 payee$="|C"+m$ �� P%=20 payee$=p$(20)+m$
�� P%<19 payee$=p$(P%)
�payee$=�payee$,36)
�d� P%>3 � P%<18 �" `";:�money(�(pay%(P%))):�mf("|I Is amount correct ? "):� �get("NY")=2 � �ddB
�u�mf("|.|CAmount. |N` "):pay%(P%)=�cash:� P%<3 �mf("|CDebit |Nor |CCredit "):� �get("DC")=1 pay%(P%)=pay%(P%)*(-1)
�� pay%(P%)=0 �:�
�=Z%=pay%(P%):B%=B%+Z%:�line:flag%(P%)=�:� P%=20 C%=C%+1:�c
� pp%(P%)=A%:A%=A%+1:S%=A%
�
��pay_debit
P%=4
*�
43� flag%(P%) � freq%(P%)=1 � D%<>date%(P%) �flag
>3� flag%(P%) � freq%(P%)>1 � I%<>date%(P%) �flag
H%� pay%(P%)=0 � flag%(P%)=� � �DzC
R'� freq%(P%)=1 � D%=date%(P%) �start
\'� freq%(P%)=2 � I%=date%(P%) �start
f,� freq%(P%)=3 � W% � I%=date%(P%) �start
p.� freq%(P%)=4 � � W% � I%=date%(P%) �start
zP%=P%+1:� P%=18:�
�
�D��retrieve:�# T%=A%*100:�#T%,D%,M%,Y%,I%,P%,next%,Z%,B%,payee$:�
�
���show(Q%)
� �vdu(3,22):�:F%=0 � F%=3
�� A%>Q% A%=A%-Q% � A%=0
�T%=� "A.RECORD"
� �:�retrieve:� P%<99 �line
�#A%=A%+1:� A%=S%:�#0:�get_date:�
�
� ��start
�� (st%(P%)�&FFFF)>M% �
�� st%(P%)�&10000>D% �
#st%(P%)=0:� n_pay%(P%)=0 �pay:�
X� fpay%(P%)<>0 t%=pay%(P%):pay%(P%)=fpay%(P%):�pay:fpay%(P%)=0:pay%(P%)=t%:�deduct:�
@� n_pay%(P%)=1 � lpay%(P%)<>0 pay%(P%)=lpay%(P%):lpay%(P%)=0
$�pay:�deduct:�
.
82��w:� W% �mf("|Hodd.|."):� ��mf("|Heven.|."):�
B
L!��vdu(t%,b%):�28,0,b%,79,t%:�
V
`D��void:�:�"Check No. ";:�mf(p$(20)+" "):�"New check No "C%:�c:�
j
t
ݤcash
~!`%=0:`$="0":d%=0:d$="0":po%=0
��mo$:� mo$="" =0
�l%=�mo$:po%=�mo$,".")
�� po%=1 � �tpD
�*� po%=0 `$=mo$:� �dND:� `$=�mo$,po%-1)
�d$=�mo$,l%-po%)
�� �d$=1 d$=d$+"0"
�� `$="" `$=`$+"0"
�`%=�(`$):d%=�(d$)
�+� P%>=O% =(`%*100+d%)*(-1) � =`%*100+d%
�
�ݤget(a$):*FX21,0
�� K%=�a$,�):� K%<>0:=K%
� 00000000 0d 00 0a 0b f4 20 3e 50 4c 41 4e 0d 00 14 30 f4 |..... >PLAN...0.|
00000010 20 3e 46 6f 72 77 61 72 64 20 50 6c 61 6e 6e 69 | >Forward Planni|
00000020 6e 67 20 28 63 29 20 4d 20 43 6f 6d 6c 65 79 20 |ng (c) M Comley |
00000030 31 39 39 35 20 20 56 20 30 2e 31 0d 00 1e 04 0d |1995 V 0.1.....|
00000040 00 28 4e ef 32 36 2c 31 32 3a 41 25 3d 30 3a 42 |.(N.26,12:A%=0:B|
00000050 25 3d 30 3a 46 25 3d 30 3a 47 25 3d a3 3a 4f 25 |%=0:F%=0:G%=.:O%|
00000060 3d 36 3a 53 25 3d 30 3a 57 25 3d a3 3a 5a 25 3d |=6:S%=0:W%=.:Z%=|
00000070 30 3a 70 61 79 65 65 24 3d c4 33 36 2c 22 20 22 |0:payee$=.36," "|
00000080 29 3a 61 24 3d c4 38 30 2c 22 20 22 29 0d 00 32 |):a$=.80," ")..2|
00000090 3a f2 68 65 61 64 3a f2 6d 66 28 22 7c 2e 7c 2e |:.head:.mf("|.|.|
000000a0 7c 2e 7c 2e 7c 48 20 4c 6f 61 64 69 6e 67 20 44 ||.|.|H Loading D|
000000b0 61 74 61 20 7c 4e 7c 49 20 50 6c 65 61 73 65 20 |ata |N|I Please |
000000c0 77 61 69 74 2e 22 29 0d 00 3c 7b de 64 61 79 24 |wait.")..<{.day$|
000000d0 28 37 29 2c 6d 6f 6e 74 68 24 28 31 32 29 2c 6d |(7),month$(12),m|
000000e0 25 28 31 32 29 2c 70 61 79 25 28 32 30 29 2c 66 |%(12),pay%(20),f|
000000f0 70 61 79 25 28 32 30 29 2c 6c 70 61 79 25 28 32 |pay%(20),lpay%(2|
00000100 30 29 2c 66 6c 61 67 25 28 32 30 29 2c 6e 5f 70 |0),flag%(20),n_p|
00000110 61 79 25 28 32 30 29 2c 73 74 25 28 32 30 29 2c |ay%(20),st%(20),|
00000120 64 61 74 65 25 28 32 30 29 2c 66 72 65 71 25 28 |date%(20),freq%(|
00000130 32 30 29 2c 70 70 25 28 32 30 29 2c 70 24 28 32 |20),pp%(20),p$(2|
00000140 30 29 0d 00 46 10 54 25 3d 8e 22 41 2e 44 41 54 |0)..F.T%=."A.DAT|
00000150 41 22 0d 00 50 28 e3 20 51 25 3d 31 20 b8 20 31 |A"..P(. Q%=1 . 1|
00000160 32 3a e8 23 54 25 2c 6d 6f 6e 74 68 24 28 51 25 |2:.#T%,month$(Q%|
00000170 29 2c 6d 25 28 51 25 29 3a ed 0d 00 5a 1e e3 20 |),m%(Q%):...Z.. |
00000180 51 25 3d 31 20 b8 20 37 3a e8 23 54 25 2c 64 61 |Q%=1 . 7:.#T%,da|
00000190 79 24 28 51 25 29 3a ed 0d 00 64 07 d9 23 30 0d |y$(Q%):...d..#0.|
000001a0 00 6e 0f 2a 4c 4f 41 44 20 24 26 43 30 31 0d 00 |.n.*LOAD $&C01..|
000001b0 78 24 51 25 3d 30 3a 54 25 3d 8e 22 41 2e 46 49 |x$Q%=0:T%=."A.FI|
000001c0 4c 45 22 3a f5 3a cf 23 20 54 25 3d 51 25 2a 31 |LE":.:.# T%=Q%*1|
000001d0 30 30 0d 00 82 65 e8 23 54 25 2c 70 61 79 25 28 |00...e.#T%,pay%(|
000001e0 51 25 29 2c 66 70 61 79 25 28 51 25 29 2c 6c 70 |Q%),fpay%(Q%),lp|
000001f0 61 79 25 28 51 25 29 2c 66 6c 61 67 25 28 51 25 |ay%(Q%),flag%(Q%|
00000200 29 2c 6e 5f 70 61 79 25 28 51 25 29 2c 66 72 65 |),n_pay%(Q%),fre|
00000210 71 25 28 51 25 29 2c 73 74 25 28 51 25 29 2c 64 |q%(Q%),st%(Q%),d|
00000220 61 74 65 25 28 51 25 29 2c 70 70 25 28 51 25 29 |ate%(Q%),pp%(Q%)|
00000230 2c 70 24 28 51 25 29 0d 00 8c 17 51 25 3d 51 25 |,p$(Q%)....Q%=Q%|
00000240 2b 31 3a fd 20 51 25 3e 32 30 3a d9 23 30 0d 00 |+1:. Q%>20:.#0..|
00000250 96 2d f2 67 65 74 5f 64 61 74 65 3a f2 63 3a f2 |.-.get_date:.c:.|
00000260 76 64 75 28 32 31 2c 32 34 29 3a e7 20 53 25 3e |vdu(21,24):. S%>|
00000270 30 20 f2 73 68 6f 77 28 32 30 29 0d 00 a0 04 0d |0 .show(20).....|
00000280 00 aa 0d f5 3a 2a 46 58 32 31 2c 30 0d 00 b4 1b |....:*FX21,0....|
00000290 f2 64 28 37 29 3a f1 27 3b 43 25 2c 41 25 3b 22 |.d(7):.';C%,A%;"|
000002a0 20 20 22 3b 3a f2 77 0d 00 be 25 d6 26 39 30 30 | ";:.w...%.&900|
000002b0 3a 4a 25 3d a4 67 65 74 28 bd 31 33 2b 22 54 41 |:J%=.get(.13+"TA|
000002c0 49 44 57 5a 43 20 56 42 4a 45 22 29 0d 00 c8 19 |IDWZC VBJE")....|
000002d0 e7 20 4a 25 3e 31 20 80 20 4a 25 3c 36 20 50 25 |. J%>1 . J%<6 P%|
000002e0 3d 4a 25 2d 32 0d 00 d2 1a e7 20 4a 25 3e 35 20 |=J%-2..... J%>5 |
000002f0 80 20 4a 25 3c 39 20 50 25 3d 4a 25 2b 31 32 0d |. J%<9 P%=J%+12.|
00000300 00 dc 10 e7 20 4a 25 3d 39 20 f2 64 61 74 65 0d |.... J%=9 .date.|
00000310 00 e6 11 e7 20 4a 25 3d 31 30 20 f2 76 6f 69 64 |.... J%=10 .void|
00000320 0d 00 f0 13 e7 20 4a 25 3d 31 31 20 d7 22 46 4c |..... J%=11 ."FL|
00000330 45 58 22 0d 00 fa 15 e7 20 4a 25 3d 31 32 20 d7 |EX"..... J%=12 .|
00000340 22 41 44 4a 55 53 54 22 0d 01 04 13 e7 20 4a 25 |"ADJUST"..... J%|
00000350 3d 31 33 20 d7 22 45 44 49 54 22 0d 01 0e 16 e7 |=13 ."EDIT".....|
00000360 20 4a 25 3e 31 20 80 20 4a 25 3c 39 20 f2 70 61 | J%>1 . J%<9 .pa|
00000370 79 0d 01 18 0e f2 70 61 79 5f 64 65 62 69 74 0d |y.....pay_debit.|
00000380 01 22 07 fd 20 30 0d 01 2c 05 20 0d 01 36 21 dd |.".. 0..,. ..6!.|
00000390 f2 63 3a 70 24 28 32 30 29 3d 22 7c 48 22 2b c3 |.c:p$(20)="|H"+.|
000003a0 28 43 25 29 2b 22 7c 4e 20 22 3a e1 0d 01 40 05 |(C%)+"|N ":...@.|
000003b0 20 0d 01 4a 22 dd f2 64 28 4c 25 29 3a e7 20 4c | ..J"..d(L%):. L|
000003c0 25 3d 37 20 db 3a f1 64 61 79 24 28 49 25 29 22 |%=7 .:.day$(I%)"|
000003d0 20 22 3b 0d 01 54 1d f1 3b 44 25 3b 8a 4c 25 29 | ";..T..;D%;.L%)|
000003e0 6d 6f 6e 74 68 24 28 4d 25 29 22 20 22 3b 3a e1 |month$(M%)" ";:.|
000003f0 0d 01 5e 05 20 0d 01 68 0a dd f2 64 61 74 65 0d |..^. ..h...date.|
00000400 01 72 1d e7 20 28 59 25 2d 31 39 38 34 29 83 20 |.r.. (Y%-1984). |
00000410 34 3d 30 20 6d 25 28 32 29 3d 32 39 0d 01 7c 24 |4=0 m%(2)=29..|$|
00000420 44 25 3d 44 25 2b 31 3a e7 20 44 25 3e 6d 25 28 |D%=D%+1:. D%>m%(|
00000430 4d 25 29 20 4d 25 3d 4d 25 2b 31 3a 44 25 3d 31 |M%) M%=M%+1:D%=1|
00000440 0d 01 86 22 e7 20 4d 25 3e 31 32 20 59 25 3d 59 |...". M%>12 Y%=Y|
00000450 25 2b 31 3a 4d 25 3d 31 3a 44 25 3d 31 3a 57 25 |%+1:M%=1:D%=1:W%|
00000460 3d b9 0d 01 90 1f 49 25 3d 49 25 2b 31 3a e7 20 |=.....I%=I%+1:. |
00000470 49 25 3e 37 20 49 25 3d 31 3a 57 25 3d ac 20 57 |I%>7 I%=1:W%=. W|
00000480 25 0d 01 9a 5d e7 20 4d 25 3d 31 20 80 20 44 25 |%...]. M%=1 . D%|
00000490 3d 31 20 ef 32 36 2c 33 30 3a f2 68 65 61 64 3a |=1 .26,30:.head:|
000004a0 f2 76 64 75 28 33 2c 32 30 29 3a f1 8a 32 35 2c |.vdu(3,20):..25,|
000004b0 46 25 29 3b 3a f2 6d 66 28 22 7c 48 7c 42 20 22 |F%);:.mf("|H|B "|
000004c0 2b c3 28 59 25 29 2b 22 20 7c 2e 22 29 3a 46 25 |+.(Y%)+" |."):F%|
000004d0 3d bc 3a f2 76 64 75 28 32 31 2c 32 34 29 0d 01 |=.:.vdu(21,24)..|
000004e0 a4 05 e1 0d 01 ae 05 20 0d 01 b8 43 dd f2 64 65 |....... ...C..de|
000004f0 64 75 63 74 3a 6e 5f 70 61 79 25 28 50 25 29 3d |duct:n_pay%(P%)=|
00000500 6e 5f 70 61 79 25 28 50 25 29 2d 31 3a e7 20 6e |n_pay%(P%)-1:. n|
00000510 5f 70 61 79 25 28 50 25 29 3d 30 20 70 61 79 25 |_pay%(P%)=0 pay%|
00000520 28 50 25 29 3d 30 3a e1 20 8b e1 0d 01 c2 04 0d |(P%)=0:. .......|
00000530 01 cc 18 dd f2 66 6c 61 67 3a 66 6c 61 67 25 28 |.....flag:flag%(|
00000540 50 25 29 3d a3 3a e1 0d 01 d6 05 20 0d 01 e0 42 |P%)=.:..... ...B|
00000550 dd f2 67 65 74 5f 64 61 74 65 3a 55 25 3d ad 20 |..get_date:U%=. |
00000560 22 41 2e 44 41 54 45 22 3a e8 23 55 25 2c 59 25 |"A.DATE":.#U%,Y%|
00000570 2c 43 25 2c 57 25 2c 41 25 2c 4f 25 2c 53 25 2c |,C%,W%,A%,O%,S%,|
00000580 44 25 2c 4d 25 2c 49 25 3a d9 23 30 3a e1 0d 01 |D%,M%,I%:.#0:...|
00000590 ea 05 20 0d 01 f4 52 dd f2 68 65 61 64 3a f2 6d |.. ...R..head:.m|
000005a0 66 28 c4 31 35 2c 22 20 22 29 2b 22 42 61 6e 6b |f(.15," ")+"Bank|
000005b0 20 41 63 63 6f 75 6e 74 20 7c 42 46 4f 52 57 41 | Account |BFORWA|
000005c0 52 44 20 50 4c 41 4e 4e 49 4e 47 20 2d 20 56 7c |RD PLANNING - V||
000005d0 4e 20 30 2e 31 20 20 20 22 2b c3 28 59 25 29 2b |N 0.1 "+.(Y%)+|
000005e0 22 7c 2e 22 29 0d 01 fe 5a f2 6d 66 28 22 7c 53 |"|.")...Z.mf("|S|
000005f0 44 61 74 65 20 20 20 20 20 20 49 74 65 6d 22 2b |Date Item"+|
00000600 c4 32 38 2c 22 20 22 29 2b 22 57 69 74 68 64 72 |.28," ")+"Withdr|
00000610 61 77 61 6c 73 20 20 20 20 20 44 65 70 6f 73 69 |awals Deposi|
00000620 74 73 20 20 20 20 20 20 42 61 6c 61 6e 63 65 7c |ts Balance||
00000630 2e 22 29 3a f1 c4 38 30 2c 22 2d 22 29 3a e1 0d |."):..80,"-"):..|
00000640 02 08 05 20 0d 02 12 0a dd f2 6c 69 6e 65 0d 02 |... ......line..|
00000650 1c 26 db 3a f2 76 64 75 28 33 2c 32 30 29 3a ef |.&.:.vdu(3,20):.|
00000660 33 31 2c 30 2c 46 25 3a e7 20 41 25 3d 30 20 f2 |31,0,F%:. A%=0 .|
00000670 64 28 33 29 0d 02 26 1f e7 20 41 25 3e 30 20 e7 |d(3)..&.. A%>0 .|
00000680 20 44 25 3c 3e 58 25 20 f2 64 28 33 29 3a 58 25 | D%<>X% .d(3):X%|
00000690 3d 44 25 0d 02 30 30 f1 8a 31 30 29 3b 3a f2 6d |=D%..00..10);:.m|
000006a0 66 28 c0 70 61 79 65 65 24 2c 33 32 29 29 3a f2 |f(.payee$,32)):.|
000006b0 70 28 34 33 29 3a e7 20 5a 25 3e 30 20 f2 70 28 |p(43):. Z%>0 .p(|
000006c0 35 36 29 0d 02 3a 27 f2 6d 6f 6e 65 79 28 94 28 |56)..:'.money(.(|
000006d0 5a 25 29 29 3a f2 70 28 36 39 29 3a e7 20 42 25 |Z%)):.p(69):. B%|
000006e0 3c 30 20 fb 30 3a fb 31 32 39 0d 02 44 18 f2 6d |<0 .0:.129..D..m|
000006f0 6f 6e 65 79 28 42 25 29 3a fb 31 32 38 3a fb 31 |oney(B%):.128:.1|
00000700 3a f1 0d 02 4e 16 46 25 3d bc 3a f2 76 64 75 28 |:...N.F%=.:.vdu(|
00000710 32 31 2c 32 34 29 3a e1 0d 02 58 05 20 0d 02 62 |21,24):...X. ..b|
00000720 14 dd f2 6d 66 28 61 24 29 3a d6 93 2c 61 24 3a |...mf(a$):..,a$:|
00000730 e1 0d 02 6c 05 20 0d 02 76 2c dd f2 6d 6f 6e 65 |...l. ..v,..mone|
00000740 79 28 6d 25 29 3a 40 25 3d 26 32 30 32 30 41 3a |y(m%):@%=&2020A:|
00000750 f1 6d 25 2f 31 30 30 3b 3a 40 25 3d 26 39 30 41 |.m%/100;:@%=&90A|
00000760 3a e1 0d 02 80 04 0d 02 8a 18 dd f2 70 28 78 25 |:...........p(x%|
00000770 29 3a f5 ef 33 32 3a fd b1 3d 78 25 3a e1 0d 02 |):..32:..=x%:...|
00000780 94 04 0d 02 9e 09 dd f2 70 61 79 0d 02 a8 1f f2 |........pay.....|
00000790 64 28 37 29 3a f2 6d 66 28 22 7c 48 20 22 2b 70 |d(7):.mf("|H "+p|
000007a0 24 28 50 25 29 2b 22 20 22 29 0d 02 b2 4a e7 20 |$(P%)+" ")...J. |
000007b0 50 25 3e 31 38 20 e8 22 20 20 50 61 79 65 65 20 |P%>18 ." Payee |
000007c0 22 6d 24 3a e7 20 50 25 3d 31 39 20 70 61 79 65 |"m$:. P%=19 paye|
000007d0 65 24 3d 22 7c 43 22 2b 6d 24 20 8b e7 20 50 25 |e$="|C"+m$ .. P%|
000007e0 3d 32 30 20 70 61 79 65 65 24 3d 70 24 28 32 30 |=20 payee$=p$(20|
000007f0 29 2b 6d 24 0d 02 bc 19 e7 20 50 25 3c 31 39 20 |)+m$..... P%<19 |
00000800 70 61 79 65 65 24 3d 70 24 28 50 25 29 0d 02 c6 |payee$=p$(P%)...|
00000810 16 70 61 79 65 65 24 3d c0 70 61 79 65 65 24 2c |.payee$=.payee$,|
00000820 33 36 29 0d 02 d0 64 e7 20 50 25 3e 33 20 80 20 |36)...d. P%>3 . |
00000830 50 25 3c 31 38 20 f1 22 20 60 22 3b 3a f2 6d 6f |P%<18 ." `";:.mo|
00000840 6e 65 79 28 94 28 70 61 79 25 28 50 25 29 29 29 |ney(.(pay%(P%)))|
00000850 3a f2 6d 66 28 22 7c 49 20 20 20 49 73 20 61 6d |:.mf("|I Is am|
00000860 6f 75 6e 74 20 63 6f 72 72 65 63 74 20 3f 20 22 |ount correct ? "|
00000870 29 3a e7 20 a4 67 65 74 28 22 4e 59 22 29 3d 32 |):. .get("NY")=2|
00000880 20 8c 20 8d 64 64 42 0d 02 da 75 f2 6d 66 28 22 | . .ddB...u.mf("|
00000890 7c 2e 7c 43 41 6d 6f 75 6e 74 2e 20 7c 4e 60 20 ||.|CAmount. |N` |
000008a0 22 29 3a 70 61 79 25 28 50 25 29 3d a4 63 61 73 |"):pay%(P%)=.cas|
000008b0 68 3a e7 20 50 25 3c 33 20 f2 6d 66 28 22 7c 43 |h:. P%<3 .mf("|C|
000008c0 44 65 62 69 74 20 7c 4e 6f 72 20 7c 43 43 72 65 |Debit |Nor |CCre|
000008d0 64 69 74 20 22 29 3a e7 20 a4 67 65 74 28 22 44 |dit "):. .get("D|
000008e0 43 22 29 3d 31 20 70 61 79 25 28 50 25 29 3d 70 |C")=1 pay%(P%)=p|
000008f0 61 79 25 28 50 25 29 2a 28 2d 31 29 0d 02 e4 14 |ay%(P%)*(-1)....|
00000900 e7 20 70 61 79 25 28 50 25 29 3d 30 20 db 3a e1 |. pay%(P%)=0 .:.|
00000910 0d 02 ee 3d 5a 25 3d 70 61 79 25 28 50 25 29 3a |...=Z%=pay%(P%):|
00000920 42 25 3d 42 25 2b 5a 25 3a f2 6c 69 6e 65 3a 66 |B%=B%+Z%:.line:f|
00000930 6c 61 67 25 28 50 25 29 3d b9 3a e7 20 50 25 3d |lag%(P%)=.:. P%=|
00000940 32 30 20 43 25 3d 43 25 2b 31 3a f2 63 0d 02 f8 |20 C%=C%+1:.c...|
00000950 1c 70 70 25 28 50 25 29 3d 41 25 3a 41 25 3d 41 |.pp%(P%)=A%:A%=A|
00000960 25 2b 31 3a 53 25 3d 41 25 0d 03 02 05 e1 0d 03 |%+1:S%=A%.......|
00000970 0c 05 20 0d 03 16 0f dd f2 70 61 79 5f 64 65 62 |.. ......pay_deb|
00000980 69 74 0d 03 20 08 50 25 3d 34 0d 03 2a 05 f5 0d |it.. .P%=4..*...|
00000990 03 34 33 e7 20 66 6c 61 67 25 28 50 25 29 20 e7 |.43. flag%(P%) .|
000009a0 20 66 72 65 71 25 28 50 25 29 3d 31 20 80 20 44 | freq%(P%)=1 . D|
000009b0 25 3c 3e 64 61 74 65 25 28 50 25 29 20 f2 66 6c |%<>date%(P%) .fl|
000009c0 61 67 0d 03 3e 33 e7 20 66 6c 61 67 25 28 50 25 |ag..>3. flag%(P%|
000009d0 29 20 e7 20 66 72 65 71 25 28 50 25 29 3e 31 20 |) . freq%(P%)>1 |
000009e0 80 20 49 25 3c 3e 64 61 74 65 25 28 50 25 29 20 |. I%<>date%(P%) |
000009f0 f2 66 6c 61 67 0d 03 48 25 e7 20 70 61 79 25 28 |.flag..H%. pay%(|
00000a00 50 25 29 3d 30 20 84 20 66 6c 61 67 25 28 50 25 |P%)=0 . flag%(P%|
00000a10 29 3d b9 20 8c 20 8d 44 7a 43 0d 03 52 27 e7 20 |)=. . .DzC..R'. |
00000a20 66 72 65 71 25 28 50 25 29 3d 31 20 80 20 44 25 |freq%(P%)=1 . D%|
00000a30 3d 64 61 74 65 25 28 50 25 29 20 f2 73 74 61 72 |=date%(P%) .star|
00000a40 74 0d 03 5c 27 e7 20 66 72 65 71 25 28 50 25 29 |t..\'. freq%(P%)|
00000a50 3d 32 20 80 20 49 25 3d 64 61 74 65 25 28 50 25 |=2 . I%=date%(P%|
00000a60 29 20 f2 73 74 61 72 74 0d 03 66 2c e7 20 66 72 |) .start..f,. fr|
00000a70 65 71 25 28 50 25 29 3d 33 20 80 20 57 25 20 80 |eq%(P%)=3 . W% .|
00000a80 20 49 25 3d 64 61 74 65 25 28 50 25 29 20 f2 73 | I%=date%(P%) .s|
00000a90 74 61 72 74 0d 03 70 2e e7 20 66 72 65 71 25 28 |tart..p.. freq%(|
00000aa0 50 25 29 3d 34 20 80 20 ac 20 57 25 20 80 20 49 |P%)=4 . . W% . I|
00000ab0 25 3d 64 61 74 65 25 28 50 25 29 20 f2 73 74 61 |%=date%(P%) .sta|
00000ac0 72 74 0d 03 7a 15 50 25 3d 50 25 2b 31 3a fd 20 |rt..z.P%=P%+1:. |
00000ad0 50 25 3d 31 38 3a e1 0d 03 84 05 20 0d 03 8e 44 |P%=18:..... ...D|
00000ae0 dd f2 72 65 74 72 69 65 76 65 3a cf 23 20 54 25 |..retrieve:.# T%|
00000af0 3d 41 25 2a 31 30 30 3a e8 23 54 25 2c 44 25 2c |=A%*100:.#T%,D%,|
00000b00 4d 25 2c 59 25 2c 49 25 2c 50 25 2c 6e 65 78 74 |M%,Y%,I%,P%,next|
00000b10 25 2c 5a 25 2c 42 25 2c 70 61 79 65 65 24 3a e1 |%,Z%,B%,payee$:.|
00000b20 0d 03 98 05 20 0d 03 a2 0e dd f2 73 68 6f 77 28 |.... ......show(|
00000b30 51 25 29 0d 03 ac 1c f2 76 64 75 28 33 2c 32 32 |Q%).....vdu(3,22|
00000b40 29 3a db 3a 46 25 3d 30 20 8b 20 46 25 3d 33 0d |):.:F%=0 . F%=3.|
00000b50 03 b6 1b e7 20 41 25 3e 51 25 20 41 25 3d 41 25 |.... A%>Q% A%=A%|
00000b60 2d 51 25 20 8b 20 41 25 3d 30 0d 03 c0 13 54 25 |-Q% . A%=0....T%|
00000b70 3d ad 20 22 41 2e 52 45 43 4f 52 44 22 0d 03 ca |=. "A.RECORD"...|
00000b80 1d f5 3a f2 72 65 74 72 69 65 76 65 3a e7 20 50 |..:.retrieve:. P|
00000b90 25 3c 39 39 20 f2 6c 69 6e 65 0d 03 d4 23 41 25 |%<99 .line...#A%|
00000ba0 3d 41 25 2b 31 3a fd 20 41 25 3d 53 25 3a d9 23 |=A%+1:. A%=S%:.#|
00000bb0 30 3a f2 67 65 74 5f 64 61 74 65 3a e1 0d 03 de |0:.get_date:....|
00000bc0 05 20 0d 03 e8 0b dd f2 73 74 61 72 74 0d 03 f2 |. ......start...|
00000bd0 1a e7 20 28 73 74 25 28 50 25 29 80 26 46 46 46 |.. (st%(P%).&FFF|
00000be0 46 29 3e 4d 25 20 e1 0d 03 fc 19 e7 20 73 74 25 |F)>M% ...... st%|
00000bf0 28 50 25 29 81 26 31 30 30 30 30 3e 44 25 20 e1 |(P%).&10000>D% .|
00000c00 0d 04 06 23 73 74 25 28 50 25 29 3d 30 3a e7 20 |...#st%(P%)=0:. |
00000c10 6e 5f 70 61 79 25 28 50 25 29 3d 30 20 f2 70 61 |n_pay%(P%)=0 .pa|
00000c20 79 3a e1 0d 04 10 58 e7 20 66 70 61 79 25 28 50 |y:....X. fpay%(P|
00000c30 25 29 3c 3e 30 20 74 25 3d 70 61 79 25 28 50 25 |%)<>0 t%=pay%(P%|
00000c40 29 3a 70 61 79 25 28 50 25 29 3d 66 70 61 79 25 |):pay%(P%)=fpay%|
00000c50 28 50 25 29 3a f2 70 61 79 3a 66 70 61 79 25 28 |(P%):.pay:fpay%(|
00000c60 50 25 29 3d 30 3a 70 61 79 25 28 50 25 29 3d 74 |P%)=0:pay%(P%)=t|
00000c70 25 3a f2 64 65 64 75 63 74 3a e1 0d 04 1a 40 e7 |%:.deduct:....@.|
00000c80 20 6e 5f 70 61 79 25 28 50 25 29 3d 31 20 e7 20 | n_pay%(P%)=1 . |
00000c90 6c 70 61 79 25 28 50 25 29 3c 3e 30 20 70 61 79 |lpay%(P%)<>0 pay|
00000ca0 25 28 50 25 29 3d 6c 70 61 79 25 28 50 25 29 3a |%(P%)=lpay%(P%):|
00000cb0 6c 70 61 79 25 28 50 25 29 3d 30 0d 04 24 12 f2 |lpay%(P%)=0..$..|
00000cc0 70 61 79 3a f2 64 65 64 75 63 74 3a e1 0d 04 2e |pay:.deduct:....|
00000cd0 05 20 0d 04 38 32 dd f2 77 3a e7 20 57 25 20 f2 |. ..82..w:. W% .|
00000ce0 6d 66 28 22 7c 48 6f 64 64 2e 7c 2e 22 29 3a e1 |mf("|Hodd.|."):.|
00000cf0 20 8b f2 6d 66 28 22 7c 48 65 76 65 6e 2e 7c 2e | ..mf("|Heven.|.|
00000d00 22 29 3a e1 0d 04 42 05 20 0d 04 4c 21 dd f2 76 |"):...B. ..L!..v|
00000d10 64 75 28 74 25 2c 62 25 29 3a ef 32 38 2c 30 2c |du(t%,b%):.28,0,|
00000d20 62 25 2c 37 39 2c 74 25 3a e1 0d 04 56 05 20 0d |b%,79,t%:...V. .|
00000d30 04 60 44 dd f2 76 6f 69 64 3a db 3a f1 22 43 68 |.`D..void:.:."Ch|
00000d40 65 63 6b 20 4e 6f 2e 20 22 3b 3a f2 6d 66 28 70 |eck No. ";:.mf(p|
00000d50 24 28 32 30 29 2b 22 20 20 22 29 3a e8 22 4e 65 |$(20)+" "):."Ne|
00000d60 77 20 63 68 65 63 6b 20 4e 6f 20 22 43 25 3a f2 |w check No "C%:.|
00000d70 63 3a e1 0d 04 6a 05 20 0d 04 74 0a dd a4 63 61 |c:...j. ..t...ca|
00000d80 73 68 0d 04 7e 21 60 25 3d 30 3a 60 24 3d 22 30 |sh..~!`%=0:`$="0|
00000d90 22 3a 64 25 3d 30 3a 64 24 3d 22 30 22 3a 70 6f |":d%=0:d$="0":po|
00000da0 25 3d 30 0d 04 88 14 e8 6d 6f 24 3a e7 20 6d 6f |%=0.....mo$:. mo|
00000db0 24 3d 22 22 20 3d 30 0d 04 92 19 6c 25 3d a9 6d |$="" =0....l%=.m|
00000dc0 6f 24 3a 70 6f 25 3d a7 6d 6f 24 2c 22 2e 22 29 |o$:po%=.mo$,".")|
00000dd0 0d 04 9c 12 e7 20 70 6f 25 3d 31 20 8c 20 8d 74 |..... po%=1 . .t|
00000de0 70 44 0d 04 a6 2a e7 20 70 6f 25 3d 30 20 60 24 |pD...*. po%=0 `$|
00000df0 3d 6d 6f 24 3a e5 20 8d 64 4e 44 3a 8b 20 60 24 |=mo$:. .dND:. `$|
00000e00 3d c0 6d 6f 24 2c 70 6f 25 2d 31 29 0d 04 b0 13 |=.mo$,po%-1)....|
00000e10 64 24 3d c2 6d 6f 24 2c 6c 25 2d 70 6f 25 29 0d |d$=.mo$,l%-po%).|
00000e20 04 ba 15 e7 20 a9 64 24 3d 31 20 64 24 3d 64 24 |.... .d$=1 d$=d$|
00000e30 2b 22 30 22 0d 04 c4 15 e7 20 60 24 3d 22 22 20 |+"0"..... `$="" |
00000e40 60 24 3d 60 24 2b 22 30 22 0d 04 ce 15 60 25 3d |`$=`$+"0"....`%=|
00000e50 a0 28 60 24 29 3a 64 25 3d a0 28 64 24 29 0d 04 |.(`$):d%=.(d$)..|
00000e60 d8 2b e7 20 50 25 3e 3d 4f 25 20 3d 28 60 25 2a |.+. P%>=O% =(`%*|
00000e70 31 30 30 2b 64 25 29 2a 28 2d 31 29 20 8b 20 3d |100+d%)*(-1) . =|
00000e80 60 25 2a 31 30 30 2b 64 25 0d 04 e2 05 20 0d 04 |`%*100+d%.... ..|
00000e90 ec 15 dd a4 67 65 74 28 61 24 29 3a 2a 46 58 32 |....get(a$):*FX2|
00000ea0 31 2c 30 0d 04 f6 1b f5 20 4b 25 3d a7 61 24 2c |1,0..... K%=.a$,|
00000eb0 be 29 3a fd 20 4b 25 3c 3e 30 3a 3d 4b 25 0d ff |.):. K%<>0:=K%..|
00000ec0 
P/C/PLAN.m0
P/C/PLAN.m1
P/C/PLAN.m2
P/C/PLAN.m4
P/C/PLAN.m5
.