Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/FLEX
P/C/FLEX
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/FLEX |
| Read OK: | ✔ |
| File size: | 1352 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.FLEX
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/FLEX
File contents
10REM >FLEX
20REM >Flex Account (c) M Comley 1995 V 1.2 Zero payment
30VDU26,12:A%=0:B%=0:F%=0:G%=FALSE:O%=6:S%=0:W%=FALSE:Z%=0:s%=FALSE:pe$=STRING$(36," "):a$=STRING$(80," "):PROChead:PROCmf("|.|.|.|.|H Loading Data |N|I Please wait.")
40DIMday$(7),month$(12),m%(12),pay%(20),fpay%(20),lpay%(20),f%(20),n_pay%(20),st%(20),date%(20),fq%(20),pp%(20),p$(20)
50T%=OPENIN"A.DATA":FORQ%=1TO12:INPUT#T%,month$(Q%),m%(Q%):NEXT:FORQ%=1TO7:INPUT#T%,day$(Q%):NEXT:CLOSE#0:*LOAD $&C00
60Q%=0:T%=OPENIN"A.FILE":REPEAT:PTR#T%=Q%*100
70INPUT#T%,pay%(Q%),fpay%(Q%),lpay%(Q%),f%(Q%),n_pay%(Q%),fq%(Q%),st%(Q%),date%(Q%),pp%(Q%),p$(Q%):Q%=Q%+1:UNTILQ%>20:CLOSE#0:PROCg_d:PROCc:CLS:PROChead:PROCvdu(21,24):IFS%>0PROCshow(20)
80
90REPEAT:*FX21,0
100PROCd(7):PRINT';C%,A%;" ";:IFW%PROCmf("|Hodd.|.")ELSEPROCmf("|Heven.|.")
110CALL&900:J%=FNget(CHR$13+"TAIDWZC VPLJEF"):IFJ%>1ANDJ%<6 P%=J%-2
120IFJ%>5ANDJ%<9 P%=J%+12
130IFJ%=9PROCdate:PROCs_d
140IFJ%=10CLS:PRINT"Check No. ";:PROCmf(p$(20)+" "):INPUT"New check No "C%:PROCc:PROCs_d
150IFJ%=11VDU26,12,2:G%=TRUE:PROChead:PROCshow(50):VDU3,26,12:G%=FALSE:PROChead:PROCvdu(21,24):PROCshow(20)
160IFJ%=12PROClook:PROCshow(20)
170IFJ%=13CHAIN"ADJUST"
180IFJ%=14CHAIN"EDIT"
190IFJ%=15CHAIN"PLAN"
200IFJ%>1ANDJ%<9PROCpay
210PROCp_d:UNTIL0
220
230DEFPROCask:VDU28,10,15,70,9,12:PRINT'TAB(10)"Do you wish to look at specific payments Y/N ";:IFFNget("YN")=1INPUT'TAB(10)"Search string "t$:s%=TRUE:t$=FNc(t$)
240PROCvdu(3,24):ENDPROC
250
260DEFPROCc:p$(20)="|H"+STR$(C%)+"|N ":ENDPROC
270
280DEFPROCd(L%):IFL%=7CLS:PRINTday$(I%)" ";
290PRINT;D%;TAB(L%)month$(M%)" ";:ENDPROC
300
310DEFPROCdate:IF(Y%-1984)MOD4=0 m%(2)=29
320D%=D%+1:IFD%>m%(M%)M%=M%+1:D%=1
330IFM%>12 Y%=Y%+1:M%=1:D%=1:W%=TRUE
340I%=I%+1:IFI%>7 I%=1:W%=NOTW%
350IFM%=1ANDD%=1VDU26,30:PROChead:PROCvdu(3,20):PRINTTAB(25,F%);:PROCmf("|H|B "+STR$(Y%)+" |."):F%=VPOS:PROCvdu(21,24)
360ENDPROC
370
380DEFPROCdeduct:n_pay%(P%)=n_pay%(P%)-1:IFn_pay%(P%)=0 pay%(P%)=0
390PROCf_s:ENDPROC
400
410DEFPROCf_s:T%=OPENUP"A.FILE":PTR#T%=P%*100:PRINT#T%,pay%(P%),fpay%(P%),lpay%(P%),f%(P%),n_pay%(P%),fq%(P%),st%(P%),date%(P%),pp%(P%),p$(P%):CLOSE#0:ENDPROC
420
430DEFPROCflag:f%(P%)=FALSE:T%=OPENUP"A.FILE":PTR#T%=P%*100+15:PRINT#T%,f%(P%):CLOSE#0:ENDPROC
440
450DEFPROCg_d:U%=OPENUP"A.DATE":INPUT#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:CLOSE#0:ENDPROC
460
470DEFPROChead:PROCmf(STRING$(20," ")+"|BBank Account - V|N 1.2 "+STR$(Y%)+"|."):PROCmf("|SDate Item"+STRING$(28," ")+"Withdrawals Deposits Balance|."):PRINTSTRING$(80,"-"):ENDPROC
480
490DEFPROCline:IFNOTG%CLS:PROCvdu(3,20):VDU31,0,F%:IFA%=0PROCd(3)
500IFA%>0IFD%<>X%PROCd(3):X%=D%
510PRINTTAB(10);:PROCmf(LEFT$(pe$,32)):PROCp(43):IFZ%>0PROCp(56)
520PROCmoney(ABS(Z%)):PROCp(69):IFB%<0COLOUR0:COLOUR129
530PROCmoney(B%):COLOUR128:COLOUR1:PRINT:F%=VPOS:PROCvdu(21,24):ENDPROC
540
550DEFPROClook:PROCvdu(1,1):PRINTTAB(42,0);:PROCmf(STRING$(31," ")+"|SAmount"):PROCvdu(3,24):REPEAT:CLS:FORP%=0TO20:IFP%>3ANDP%<O%PROCmf("|H"+CHR$(65+P%)+" |N ")ELSEPRINTCHR$(65+P%)TAB(5);
560PROCmf(p$(P%)):PRINT:NEXT:PROCmf("|IWhich do you wish to list ? or |N|HRETURN|N|I to quit "):V%=FNget(CHR$13+"ABCDEFGHIJKLMNOPQRSTU"):IFV%=1GOTO660
570IFV%>20PROCask
580CLS:IFpp%(V%-2)=-1GOTO650
590A%=-1:T%=OPENUP"A.RECORD":REPEAT:A%=A%+1:PROCr:UNTILP%=V%-2ORA%>S%:IFA%>S%THEN650
600REPEAT:PROCr:IFs%IFINSTR(FNc(pe$),t$)=0THEN630
610PROCd(3):PROCmf(" "+pe$+" "):REPEATVDU46:UNTILPOS=69:IFP%>2 Z%=ABSZ%
620PROCmoney(Z%):PRINT
630IFA%<next%A%=next%
640UNTILA%>next%ORnext%=0:CLOSE#0
650PROCmf(STRING$(30," ")+"|B|H Hit a key |."):REPEATUNTILGET
660s%=FALSE:UNTILV%=1:A%=S%:VDU26,15,12:PROChead:ENDPROC
670
680DEFPROCmf(a$):IFG%PROCstrip(a$):ENDPROCELSECALLHIMEM,a$:ENDPROC
690
700DEFPROCmoney(m%):@%=&2020A:PRINTm%/100;:@%=&90A:ENDPROC
710
720DEFPROCp(x%):REPEATVDU32:UNTILPOS=x%:ENDPROC
730
740DEFPROCpay:PROCd(7):PROCmf("|H "+p$(P%)+" "):IFP%>18INPUT" Payee "m$:IFP%=19 pe$="|C"+m$ELSEIFP%=20 pe$=p$(20)+m$
750IFP%<19 pe$=p$(P%)
760pe$=LEFT$(pe$,36):IFP%>3ANDP%<18PRINT" `";:PROCmoney(ABS(pay%(P%))):PROCmf("|I Is amount correct ? "):IFFNget("NY")=2THEN780
770PROCmf("|.|CAmount. |N` "):pay%(P%)=FNcash:IFP%<3PROCmf("|CDebit |Nor |CCredit "):IFFNget("DC")=1 pay%(P%)=pay%(P%)*(-1)
780IFpay%(P%)=0CLS:GOTO410
790Z%=pay%(P%):B%=B%+Z%:PROCline:f%(P%)=TRUE:IFP%=20 C%=C%+1:PROCc
800T%=OPENUP"A.RECORD":PTR#T%=A%*100:PRINT#T%,D%,M%,Y%,I%,P%,0,Z%,B%,pe$
810IFpp%(P%)>=0THENPTR#T%=pp%(P%)*100+25:PRINT#T%,A%
820CLOSE#0:pp%(P%)=A%:A%=A%+1:S%=A%:PROCs_d:PROCf_s:IFA%=1000VDU26,12:PRINT'"Data saved, RECORD full please start a fresh disc.":END
830ENDPROC
840
850DEFPROCp_d:P%=4:REPEAT:IFf%(P%)IFfq%(P%)=1ANDD%<>date%(P%)PROCflag
860IFf%(P%)IFfq%(P%)>1ANDI%<>date%(P%)PROCflag
870IFpay%(P%)=0ORf%(P%)=TRUETHEN920
880IFfq%(P%)=1ANDD%=date%(P%)PROCs
890IFfq%(P%)=2ANDI%=date%(P%)PROCs
900IFfq%(P%)=3ANDW%ANDI%=date%(P%)PROCs
910IFfq%(P%)=4ANDNOTW%ANDI%=date%(P%)PROCs
920P%=P%+1:UNTILP%=18:ENDPROC
930
940DEFPROCr:PTR#T%=A%*100:INPUT#T%,D%,M%,Y%,I%,P%,next%,Z%,B%,pe$:ENDPROC
950
960DEFPROCs_d:U%=OPENUP"A.DATE":PRINT#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:CLOSE#0:ENDPROC
970
980DEFPROCshow(Q%):IFNOTG%PROCvdu(3,22):CLS:F%=0ELSEF%=3
990IFA%>Q%A%=A%-Q%ELSEA%=0
1000T%=OPENUP"A.RECORD":REPEAT:PROCr:IFP%<99PROCline
1010A%=A%+1:UNTILA%=S%:CLOSE#0:PROCg_d:ENDPROC
1020
1030DEFPROCs:IF(st%(P%)AND&FFFF)>M%ENDPROC
1040IFst%(P%)DIV&10000>D%ENDPROC
1050st%(P%)=0:IFn_pay%(P%)=0PROCpay:ENDPROC
1060IFfpay%(P%)<>0 t%=pay%(P%):pay%(P%)=fpay%(P%):PROCpay:fpay%(P%)=0:pay%(P%)=t%:PROCdeduct:ENDPROC
1070IFn_pay%(P%)=1IFlpay%(P%)<>0 pay%(P%)=lpay%(P%):lpay%(P%)=0
1080PROCpay:PROCdeduct:ENDPROC
1090
1100DEFPROCstrip(a$):r%=FALSE:IFRIGHT$(a$,2)="|."r%=TRUE:a$=LEFT$(a$,LENa$-2)
1110REPEATR%=INSTR(a$,"|"):IFR%=0GOTO1130
1120IFR%=1 a$=RIGHT$(a$,LENa$-2)ELSEa$=LEFT$(a$,R%-1)+RIGHT$(a$,LENa$-R%-1)
1130UNTILR%=0:PRINTa$;:IFr%PRINT
1140ENDPROC
1150
1160DEFPROCvdu(t%,b%):IFG%ENDPROCELSEVDU28,0,b%,79,t%:ENDPROC
1170
1180DEFFNc(s$):Q%=1:REPEAT:s$=LEFT$(s$,Q%-1)+CHR$(ASC(MID$(s$,Q%,1))OR&20)+RIGHT$(s$,LENs$-Q%):Q%=Q%+1:UNTILQ%>LENs$:=s$
1190
1200DEFFNcash:`%=0:`$="0":d%=0:d$="0":po%=0:INPUTmo$:IFmo$=""=0
1210l%=LENmo$:po%=INSTR(mo$,"."):IFpo%=1THEN1230
1220IFpo%=0 `$=mo$:GOTO1250:ELSE`$=LEFT$(mo$,po%-1)
1230d$=RIGHT$(mo$,l%-po%):IFLENd$=1 d$=d$+"0"
1240IF`$=""`$=`$+"0"
1250`%=EVAL(`$):d%=EVAL(d$):IFP%>=O%=(`%*100+d%)*(-1) ELSE =`%*100+d%
1260
1270DEFFNget(a$):*FX21,0
1280REPEATK%=INSTR(a$,GET$):UNTILK%<>0:=K%
� >FLEX
9� >Flex Account (c) M Comley 1995 V 1.2 Zero payment
��26,12:A%=0:B%=0:F%=0:G%=�:O%=6:S%=0:W%=�:Z%=0:s%=�:pe$=�36," "):a$=�80," "):�head:�mf("|.|.|.|.|H Loading Data |N|I Please wait.")
(v�day$(7),month$(12),m%(12),pay%(20),fpay%(20),lpay%(20),f%(20),n_pay%(20),st%(20),date%(20),fq%(20),pp%(20),p$(20)
2ZT%=�"A.DATA":�Q%=1�12:�#T%,month$(Q%),m%(Q%):�:�Q%=1�7:�#T%,day$(Q%):�:�#0:*LOAD $&C00
<#Q%=0:T%=�"A.FILE":�:�#T%=Q%*100
F��#T%,pay%(Q%),fpay%(Q%),lpay%(Q%),f%(Q%),n_pay%(Q%),fq%(Q%),st%(Q%),date%(Q%),pp%(Q%),p$(Q%):Q%=Q%+1:�Q%>20:�#0:�g_d:�c:�:�head:�vdu(21,24):�S%>0�show(20)
P
Z
�:*FX21,0
d<�d(7):�';C%,A%;" ";:�W%�mf("|Hodd.|.")��mf("|Heven.|.")
n:�&900:J%=�get(�13+"TAIDWZC VPLJEF"):�J%>1�J%<6 P%=J%-2
x�J%>5�J%<9 P%=J%+12
��J%=9�date:�s_d
�F�J%=10�:�"Check No. ";:�mf(p$(20)+" "):�"New check No "C%:�c:�s_d
�Q�J%=11�26,12,2:G%=�:�head:�show(50):�3,26,12:G%=�:�head:�vdu(21,24):�show(20)
��J%=12�look:�show(20)
��J%=13�"ADJUST"
��J%=14�"EDIT"
��J%=15�"PLAN"
��J%>1�J%<9�pay
� �p_d:�0
�
���ask:�28,10,15,70,9,12:�'�10)"Do you wish to look at specific payments Y/N ";:�get("YN")=1�'�10)"Search string "t$:s%=�:t$=�c(t$)
��vdu(3,24):�
�
!��c:p$(20)="|H"+�(C%)+"|N ":�
��d(L%):�L%=7�:�day$(I%)" ";
" �;D%;�L%)month$(M%)" ";:�
,
6"��date:�(Y%-1984)�4=0 m%(2)=29
@"D%=D%+1:�D%>m%(M%)M%=M%+1:D%=1
J!�M%>12 Y%=Y%+1:M%=1:D%=1:W%=�
T I%=I%+1:�I%>7 I%=1:W%=�W%
^Y�M%=1�D%=1�26,30:�head:�vdu(3,20):�25,F%);:�mf("|H|B "+�(Y%)+" |."):F%=�:�vdu(21,24)
h�
r
|=��deduct:n_pay%(P%)=n_pay%(P%)-1:�n_pay%(P%)=0 pay%(P%)=0
�
�f_s:�
�
����f_s:T%=�"A.FILE":�#T%=P%*100:�#T%,pay%(P%),fpay%(P%),lpay%(P%),f%(P%),n_pay%(P%),fq%(P%),st%(P%),date%(P%),pp%(P%),p$(P%):�#0:�
�
�A��flag:f%(P%)=�:T%=�"A.FILE":�#T%=P%*100+15:�#T%,f%(P%):�#0:�
�
�<��g_d:U%=�"A.DATE":�#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:�#0:�
�
֘��head:�mf(�20," ")+"|BBank Account - V|N 1.2 "+�(Y%)+"|."):�mf("|SDate Item"+�28," ")+"Withdrawals Deposits Balance|."):��80,"-"):�
�
�/��line:�G%�:�vdu(3,20):�31,0,F%:�A%=0�d(3)
��A%>0�D%<>X%�d(3):X%=D%
�+�10);:�mf(�pe$,32)):�p(43):�Z%>0�p(56)
%�money(�(Z%)):�p(69):�B%<0�0:�129
+�money(B%):�128:�1:�:F%=�:�vdu(21,24):�
&���look:�vdu(1,1):�42,0);:�mf(�31," ")+"|SAmount"):�vdu(3,24):�:�:�P%=0�20:�P%>3�P%<O%�mf("|H"+�(65+P%)+" |N ")��(65+P%)�5);
0��mf(p$(P%)):�:�:�mf("|IWhich do you wish to list ? or |N|HRETURN|N|I to quit "):V%=�get(�13+"ABCDEFGHIJKLMNOPQRSTU"):�V%=1�tTB
:�V%>20�ask
D�:�pp%(V%-2)=-1�tJB
N@A%=-1:T%=�"A.RECORD":�:A%=A%+1:�r:�P%=V%-2�A%>S%:�A%>S%��tJB
X �:�r:�s%秤c(pe$),t$)=0��DvB
b4�d(3):�mf(" "+pe$+" "):��46:��=69:�P%>2 Z%=�Z%
l�money(Z%):�
v�A%<next%A%=next%
��A%>next%�next%=0:�#0
�)�mf(�30," ")+"|B|H Hit a key |."):���
�&s%=�:�V%=1:A%=S%:�26,15,12:�head:�
�
�$��mf(a$):�G%�strip(a$):�֓,a$:�
�
�,��money(m%):@%=&2020A:�m%/100;:@%=&90A:�
�
���p(x%):��32:��=x%:�
�
�a��pay:�d(7):�mf("|H "+p$(P%)+" "):�P%>18�" Payee "m$:�P%=19 pe$="|C"+m$��P%=20 pe$=p$(20)+m$
��P%<19 pe$=p$(P%)
�jpe$=�pe$,36):�P%>3�P%<18�" `";:�money(�(pay%(P%))):�mf("|I Is amount correct ? "):�get("NY")=2��TLC
r�mf("|.|CAmount. |N` "):pay%(P%)=�cash:�P%<3�mf("|CDebit |Nor |CCredit "):�get("DC")=1 pay%(P%)=pay%(P%)*(-1)
�pay%(P%)=0�:�tZA
9Z%=pay%(P%):B%=B%+Z%:�line:f%(P%)=�:�P%=20 C%=C%+1:�c
>T%=�"A.RECORD":�#T%=A%*100:�#T%,D%,M%,Y%,I%,P%,0,Z%,B%,pe$
*+�pp%(P%)>=0��#T%=pp%(P%)*100+25:�#T%,A%
4r�#0:pp%(P%)=A%:A%=A%+1:S%=A%:�s_d:�f_s:�A%=1000�26,12:�'"Data saved, RECORD full please start a fresh disc.":�
>�
H
R5��p_d:P%=4:�:�f%(P%)�fq%(P%)=1�D%<>date%(P%)�flag
\(�f%(P%)�fq%(P%)>1�I%<>date%(P%)�flag
f �pay%(P%)=0�f%(P%)=���tXC
p �fq%(P%)=1�D%=date%(P%)�s
z �fq%(P%)=2�I%=date%(P%)�s
� �fq%(P%)=3�W%�I%=date%(P%)�s
�!�fq%(P%)=4��W%�I%=date%(P%)�s
�P%=P%+1:�P%=18:�
�
�9��r:�#T%=A%*100:�#T%,D%,M%,Y%,I%,P%,next%,Z%,B%,pe$:�
�
�<��s_d:U%=�"A.DATE":�#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:�#0:�
�
�)��show(Q%):�G%�vdu(3,22):�:F%=0�F%=3
��A%>Q%A%=A%-Q%�A%=0
�#T%=�"A.RECORD":�:�r:�P%<99�line
� A%=A%+1:�A%=S%:�#0:�g_d:�
�
��s:�(st%(P%)�&FFFF)>M%�
�st%(P%)�&10000>D%�
!st%(P%)=0:�n_pay%(P%)=0�pay:�
$W�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
8�pay:�deduct:�
B
L3��strip(a$):r%=�:��a$,2)="|."r%=�:a$=�a$,�a$-2)
V�R%=�a$,"|"):�R%=0�DjD
`2�R%=1 a$=�a$,�a$-2)�a$=�a$,R%-1)+�a$,�a$-R%-1)
j�R%=0:�a$;:�r%�
t�
~
�&��vdu(t%,b%):�G%��28,0,b%,79,t%:�
�
�Sݤc(s$):Q%=1:�:s$=�s$,Q%-1)+�(�(�s$,Q%,1))�&20)+�s$,�s$-Q%):Q%=Q%+1:�Q%>�s$:=s$
�
�7ݤcash:`%=0:`$="0":d%=0:d$="0":po%=0:�mo$:�mo$=""=0
�%l%=�mo$:po%=�mo$,"."):�po%=1��dND
�'�po%=0 `$=mo$:�dbD:�`$=�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 46 4c 45 58 0d 00 14 39 f4 |..... >FLEX...9.|
00000010 20 3e 46 6c 65 78 20 41 63 63 6f 75 6e 74 20 28 | >Flex Account (|
00000020 63 29 20 4d 20 43 6f 6d 6c 65 79 20 31 39 39 35 |c) M Comley 1995|
00000030 20 20 56 20 31 2e 32 20 5a 65 72 6f 20 70 61 79 | V 1.2 Zero pay|
00000040 6d 65 6e 74 0d 00 1e 87 ef 32 36 2c 31 32 3a 41 |ment.....26,12:A|
00000050 25 3d 30 3a 42 25 3d 30 3a 46 25 3d 30 3a 47 25 |%=0:B%=0:F%=0:G%|
00000060 3d a3 3a 4f 25 3d 36 3a 53 25 3d 30 3a 57 25 3d |=.:O%=6:S%=0:W%=|
00000070 a3 3a 5a 25 3d 30 3a 73 25 3d a3 3a 70 65 24 3d |.:Z%=0:s%=.:pe$=|
00000080 c4 33 36 2c 22 20 22 29 3a 61 24 3d c4 38 30 2c |.36," "):a$=.80,|
00000090 22 20 22 29 3a f2 68 65 61 64 3a f2 6d 66 28 22 |" "):.head:.mf("|
000000a0 7c 2e 7c 2e 7c 2e 7c 2e 7c 48 20 4c 6f 61 64 69 ||.|.|.|.|H Loadi|
000000b0 6e 67 20 44 61 74 61 20 7c 4e 7c 49 20 50 6c 65 |ng Data |N|I Ple|
000000c0 61 73 65 20 77 61 69 74 2e 22 29 0d 00 28 76 de |ase wait.")..(v.|
000000d0 64 61 79 24 28 37 29 2c 6d 6f 6e 74 68 24 28 31 |day$(7),month$(1|
000000e0 32 29 2c 6d 25 28 31 32 29 2c 70 61 79 25 28 32 |2),m%(12),pay%(2|
000000f0 30 29 2c 66 70 61 79 25 28 32 30 29 2c 6c 70 61 |0),fpay%(20),lpa|
00000100 79 25 28 32 30 29 2c 66 25 28 32 30 29 2c 6e 5f |y%(20),f%(20),n_|
00000110 70 61 79 25 28 32 30 29 2c 73 74 25 28 32 30 29 |pay%(20),st%(20)|
00000120 2c 64 61 74 65 25 28 32 30 29 2c 66 71 25 28 32 |,date%(20),fq%(2|
00000130 30 29 2c 70 70 25 28 32 30 29 2c 70 24 28 32 30 |0),pp%(20),p$(20|
00000140 29 0d 00 32 5a 54 25 3d 8e 22 41 2e 44 41 54 41 |)..2ZT%=."A.DATA|
00000150 22 3a e3 51 25 3d 31 b8 31 32 3a e8 23 54 25 2c |":.Q%=1.12:.#T%,|
00000160 6d 6f 6e 74 68 24 28 51 25 29 2c 6d 25 28 51 25 |month$(Q%),m%(Q%|
00000170 29 3a ed 3a e3 51 25 3d 31 b8 37 3a e8 23 54 25 |):.:.Q%=1.7:.#T%|
00000180 2c 64 61 79 24 28 51 25 29 3a ed 3a d9 23 30 3a |,day$(Q%):.:.#0:|
00000190 2a 4c 4f 41 44 20 24 26 43 30 30 0d 00 3c 23 51 |*LOAD $&C00..<#Q|
000001a0 25 3d 30 3a 54 25 3d 8e 22 41 2e 46 49 4c 45 22 |%=0:T%=."A.FILE"|
000001b0 3a f5 3a cf 23 54 25 3d 51 25 2a 31 30 30 0d 00 |:.:.#T%=Q%*100..|
000001c0 46 9e e8 23 54 25 2c 70 61 79 25 28 51 25 29 2c |F..#T%,pay%(Q%),|
000001d0 66 70 61 79 25 28 51 25 29 2c 6c 70 61 79 25 28 |fpay%(Q%),lpay%(|
000001e0 51 25 29 2c 66 25 28 51 25 29 2c 6e 5f 70 61 79 |Q%),f%(Q%),n_pay|
000001f0 25 28 51 25 29 2c 66 71 25 28 51 25 29 2c 73 74 |%(Q%),fq%(Q%),st|
00000200 25 28 51 25 29 2c 64 61 74 65 25 28 51 25 29 2c |%(Q%),date%(Q%),|
00000210 70 70 25 28 51 25 29 2c 70 24 28 51 25 29 3a 51 |pp%(Q%),p$(Q%):Q|
00000220 25 3d 51 25 2b 31 3a fd 51 25 3e 32 30 3a d9 23 |%=Q%+1:.Q%>20:.#|
00000230 30 3a f2 67 5f 64 3a f2 63 3a db 3a f2 68 65 61 |0:.g_d:.c:.:.hea|
00000240 64 3a f2 76 64 75 28 32 31 2c 32 34 29 3a e7 53 |d:.vdu(21,24):.S|
00000250 25 3e 30 f2 73 68 6f 77 28 32 30 29 0d 00 50 04 |%>0.show(20)..P.|
00000260 0d 00 5a 0d f5 3a 2a 46 58 32 31 2c 30 0d 00 64 |..Z..:*FX21,0..d|
00000270 3c f2 64 28 37 29 3a f1 27 3b 43 25 2c 41 25 3b |<.d(7):.';C%,A%;|
00000280 22 20 20 22 3b 3a e7 57 25 f2 6d 66 28 22 7c 48 |" ";:.W%.mf("|H|
00000290 6f 64 64 2e 7c 2e 22 29 8b f2 6d 66 28 22 7c 48 |odd.|.")..mf("|H|
000002a0 65 76 65 6e 2e 7c 2e 22 29 0d 00 6e 3a d6 26 39 |even.|.")..n:.&9|
000002b0 30 30 3a 4a 25 3d a4 67 65 74 28 bd 31 33 2b 22 |00:J%=.get(.13+"|
000002c0 54 41 49 44 57 5a 43 20 56 50 4c 4a 45 46 22 29 |TAIDWZC VPLJEF")|
000002d0 3a e7 4a 25 3e 31 80 4a 25 3c 36 20 50 25 3d 4a |:.J%>1.J%<6 P%=J|
000002e0 25 2d 32 0d 00 78 17 e7 4a 25 3e 35 80 4a 25 3c |%-2..x..J%>5.J%<|
000002f0 39 20 50 25 3d 4a 25 2b 31 32 0d 00 82 13 e7 4a |9 P%=J%+12.....J|
00000300 25 3d 39 f2 64 61 74 65 3a f2 73 5f 64 0d 00 8c |%=9.date:.s_d...|
00000310 46 e7 4a 25 3d 31 30 db 3a f1 22 43 68 65 63 6b |F.J%=10.:."Check|
00000320 20 4e 6f 2e 20 22 3b 3a f2 6d 66 28 70 24 28 32 | No. ";:.mf(p$(2|
00000330 30 29 2b 22 20 20 22 29 3a e8 22 4e 65 77 20 63 |0)+" "):."New c|
00000340 68 65 63 6b 20 4e 6f 20 22 43 25 3a f2 63 3a f2 |heck No "C%:.c:.|
00000350 73 5f 64 0d 00 96 51 e7 4a 25 3d 31 31 ef 32 36 |s_d...Q.J%=11.26|
00000360 2c 31 32 2c 32 3a 47 25 3d b9 3a f2 68 65 61 64 |,12,2:G%=.:.head|
00000370 3a f2 73 68 6f 77 28 35 30 29 3a ef 33 2c 32 36 |:.show(50):.3,26|
00000380 2c 31 32 3a 47 25 3d a3 3a f2 68 65 61 64 3a f2 |,12:G%=.:.head:.|
00000390 76 64 75 28 32 31 2c 32 34 29 3a f2 73 68 6f 77 |vdu(21,24):.show|
000003a0 28 32 30 29 0d 00 a0 19 e7 4a 25 3d 31 32 f2 6c |(20).....J%=12.l|
000003b0 6f 6f 6b 3a f2 73 68 6f 77 28 32 30 29 0d 00 aa |ook:.show(20)...|
000003c0 13 e7 4a 25 3d 31 33 d7 22 41 44 4a 55 53 54 22 |..J%=13."ADJUST"|
000003d0 0d 00 b4 11 e7 4a 25 3d 31 34 d7 22 45 44 49 54 |.....J%=14."EDIT|
000003e0 22 0d 00 be 11 e7 4a 25 3d 31 35 d7 22 50 4c 41 |".....J%=15."PLA|
000003f0 4e 22 0d 00 c8 12 e7 4a 25 3e 31 80 4a 25 3c 39 |N".....J%>1.J%<9|
00000400 f2 70 61 79 0d 00 d2 0b f2 70 5f 64 3a fd 30 0d |.pay.....p_d:.0.|
00000410 00 dc 04 0d 00 e6 87 dd f2 61 73 6b 3a ef 32 38 |.........ask:.28|
00000420 2c 31 30 2c 31 35 2c 37 30 2c 39 2c 31 32 3a f1 |,10,15,70,9,12:.|
00000430 27 8a 31 30 29 22 44 6f 20 79 6f 75 20 77 69 73 |'.10)"Do you wis|
00000440 68 20 74 6f 20 6c 6f 6f 6b 20 61 74 20 73 70 65 |h to look at spe|
00000450 63 69 66 69 63 20 70 61 79 6d 65 6e 74 73 20 59 |cific payments Y|
00000460 2f 4e 20 22 3b 3a e7 a4 67 65 74 28 22 59 4e 22 |/N ";:..get("YN"|
00000470 29 3d 31 e8 27 8a 31 30 29 22 53 65 61 72 63 68 |)=1.'.10)"Search|
00000480 20 73 74 72 69 6e 67 20 22 74 24 3a 73 25 3d b9 | string "t$:s%=.|
00000490 3a 74 24 3d a4 63 28 74 24 29 0d 00 f0 10 f2 76 |:t$=.c(t$).....v|
000004a0 64 75 28 33 2c 32 34 29 3a e1 0d 00 fa 04 0d 01 |du(3,24):.......|
000004b0 04 21 dd f2 63 3a 70 24 28 32 30 29 3d 22 7c 48 |.!..c:p$(20)="|H|
000004c0 22 2b c3 28 43 25 29 2b 22 7c 4e 20 22 3a e1 0d |"+.(C%)+"|N ":..|
000004d0 01 0e 04 0d 01 18 20 dd f2 64 28 4c 25 29 3a e7 |...... ..d(L%):.|
000004e0 4c 25 3d 37 db 3a f1 64 61 79 24 28 49 25 29 22 |L%=7.:.day$(I%)"|
000004f0 20 22 3b 0d 01 22 1d f1 3b 44 25 3b 8a 4c 25 29 | ";.."..;D%;.L%)|
00000500 6d 6f 6e 74 68 24 28 4d 25 29 22 20 22 3b 3a e1 |month$(M%)" ";:.|
00000510 0d 01 2c 04 0d 01 36 22 dd f2 64 61 74 65 3a e7 |..,...6"..date:.|
00000520 28 59 25 2d 31 39 38 34 29 83 34 3d 30 20 6d 25 |(Y%-1984).4=0 m%|
00000530 28 32 29 3d 32 39 0d 01 40 22 44 25 3d 44 25 2b |(2)=29..@"D%=D%+|
00000540 31 3a e7 44 25 3e 6d 25 28 4d 25 29 4d 25 3d 4d |1:.D%>m%(M%)M%=M|
00000550 25 2b 31 3a 44 25 3d 31 0d 01 4a 21 e7 4d 25 3e |%+1:D%=1..J!.M%>|
00000560 31 32 20 59 25 3d 59 25 2b 31 3a 4d 25 3d 31 3a |12 Y%=Y%+1:M%=1:|
00000570 44 25 3d 31 3a 57 25 3d b9 0d 01 54 1d 49 25 3d |D%=1:W%=...T.I%=|
00000580 49 25 2b 31 3a e7 49 25 3e 37 20 49 25 3d 31 3a |I%+1:.I%>7 I%=1:|
00000590 57 25 3d ac 57 25 0d 01 5e 59 e7 4d 25 3d 31 80 |W%=.W%..^Y.M%=1.|
000005a0 44 25 3d 31 ef 32 36 2c 33 30 3a f2 68 65 61 64 |D%=1.26,30:.head|
000005b0 3a f2 76 64 75 28 33 2c 32 30 29 3a f1 8a 32 35 |:.vdu(3,20):..25|
000005c0 2c 46 25 29 3b 3a f2 6d 66 28 22 7c 48 7c 42 20 |,F%);:.mf("|H|B |
000005d0 22 2b c3 28 59 25 29 2b 22 20 7c 2e 22 29 3a 46 |"+.(Y%)+" |."):F|
000005e0 25 3d bc 3a f2 76 64 75 28 32 31 2c 32 34 29 0d |%=.:.vdu(21,24).|
000005f0 01 68 05 e1 0d 01 72 04 0d 01 7c 3d dd f2 64 65 |.h....r...|=..de|
00000600 64 75 63 74 3a 6e 5f 70 61 79 25 28 50 25 29 3d |duct:n_pay%(P%)=|
00000610 6e 5f 70 61 79 25 28 50 25 29 2d 31 3a e7 6e 5f |n_pay%(P%)-1:.n_|
00000620 70 61 79 25 28 50 25 29 3d 30 20 70 61 79 25 28 |pay%(P%)=0 pay%(|
00000630 50 25 29 3d 30 0d 01 86 0a f2 66 5f 73 3a e1 0d |P%)=0.....f_s:..|
00000640 01 90 04 0d 01 9a 85 dd f2 66 5f 73 3a 54 25 3d |.........f_s:T%=|
00000650 ad 22 41 2e 46 49 4c 45 22 3a cf 23 54 25 3d 50 |."A.FILE":.#T%=P|
00000660 25 2a 31 30 30 3a f1 23 54 25 2c 70 61 79 25 28 |%*100:.#T%,pay%(|
00000670 50 25 29 2c 66 70 61 79 25 28 50 25 29 2c 6c 70 |P%),fpay%(P%),lp|
00000680 61 79 25 28 50 25 29 2c 66 25 28 50 25 29 2c 6e |ay%(P%),f%(P%),n|
00000690 5f 70 61 79 25 28 50 25 29 2c 66 71 25 28 50 25 |_pay%(P%),fq%(P%|
000006a0 29 2c 73 74 25 28 50 25 29 2c 64 61 74 65 25 28 |),st%(P%),date%(|
000006b0 50 25 29 2c 70 70 25 28 50 25 29 2c 70 24 28 50 |P%),pp%(P%),p$(P|
000006c0 25 29 3a d9 23 30 3a e1 0d 01 a4 04 0d 01 ae 41 |%):.#0:........A|
000006d0 dd f2 66 6c 61 67 3a 66 25 28 50 25 29 3d a3 3a |..flag:f%(P%)=.:|
000006e0 54 25 3d ad 22 41 2e 46 49 4c 45 22 3a cf 23 54 |T%=."A.FILE":.#T|
000006f0 25 3d 50 25 2a 31 30 30 2b 31 35 3a f1 23 54 25 |%=P%*100+15:.#T%|
00000700 2c 66 25 28 50 25 29 3a d9 23 30 3a e1 0d 01 b8 |,f%(P%):.#0:....|
00000710 04 0d 01 c2 3c dd f2 67 5f 64 3a 55 25 3d ad 22 |....<..g_d:U%=."|
00000720 41 2e 44 41 54 45 22 3a e8 23 55 25 2c 59 25 2c |A.DATE":.#U%,Y%,|
00000730 43 25 2c 57 25 2c 41 25 2c 4f 25 2c 53 25 2c 44 |C%,W%,A%,O%,S%,D|
00000740 25 2c 4d 25 2c 49 25 3a d9 23 30 3a e1 0d 01 cc |%,M%,I%:.#0:....|
00000750 04 0d 01 d6 98 dd f2 68 65 61 64 3a f2 6d 66 28 |.......head:.mf(|
00000760 c4 32 30 2c 22 20 22 29 2b 22 7c 42 42 61 6e 6b |.20," ")+"|BBank|
00000770 20 41 63 63 6f 75 6e 74 20 2d 20 56 7c 4e 20 31 | Account - V|N 1|
00000780 2e 32 20 20 20 22 2b c3 28 59 25 29 2b 22 7c 2e |.2 "+.(Y%)+"|.|
00000790 22 29 3a f2 6d 66 28 22 7c 53 44 61 74 65 20 20 |"):.mf("|SDate |
000007a0 20 20 20 20 49 74 65 6d 22 2b c4 32 38 2c 22 20 | Item"+.28," |
000007b0 22 29 2b 22 57 69 74 68 64 72 61 77 61 6c 73 20 |")+"Withdrawals |
000007c0 20 20 20 20 44 65 70 6f 73 69 74 73 20 20 20 20 | Deposits |
000007d0 20 20 42 61 6c 61 6e 63 65 7c 2e 22 29 3a f1 c4 | Balance|."):..|
000007e0 38 30 2c 22 2d 22 29 3a e1 0d 01 e0 04 0d 01 ea |80,"-"):........|
000007f0 2f dd f2 6c 69 6e 65 3a e7 ac 47 25 db 3a f2 76 |/..line:..G%.:.v|
00000800 64 75 28 33 2c 32 30 29 3a ef 33 31 2c 30 2c 46 |du(3,20):.31,0,F|
00000810 25 3a e7 41 25 3d 30 f2 64 28 33 29 0d 01 f4 1b |%:.A%=0.d(3)....|
00000820 e7 41 25 3e 30 e7 44 25 3c 3e 58 25 f2 64 28 33 |.A%>0.D%<>X%.d(3|
00000830 29 3a 58 25 3d 44 25 0d 01 fe 2b f1 8a 31 30 29 |):X%=D%...+..10)|
00000840 3b 3a f2 6d 66 28 c0 70 65 24 2c 33 32 29 29 3a |;:.mf(.pe$,32)):|
00000850 f2 70 28 34 33 29 3a e7 5a 25 3e 30 f2 70 28 35 |.p(43):.Z%>0.p(5|
00000860 36 29 0d 02 08 25 f2 6d 6f 6e 65 79 28 94 28 5a |6)...%.money(.(Z|
00000870 25 29 29 3a f2 70 28 36 39 29 3a e7 42 25 3c 30 |%)):.p(69):.B%<0|
00000880 fb 30 3a fb 31 32 39 0d 02 12 2b f2 6d 6f 6e 65 |.0:.129...+.mone|
00000890 79 28 42 25 29 3a fb 31 32 38 3a fb 31 3a f1 3a |y(B%):.128:.1:.:|
000008a0 46 25 3d bc 3a f2 76 64 75 28 32 31 2c 32 34 29 |F%=.:.vdu(21,24)|
000008b0 3a e1 0d 02 1c 04 0d 02 26 83 dd f2 6c 6f 6f 6b |:.......&...look|
000008c0 3a f2 76 64 75 28 31 2c 31 29 3a f1 8a 34 32 2c |:.vdu(1,1):..42,|
000008d0 30 29 3b 3a f2 6d 66 28 c4 33 31 2c 22 20 22 29 |0);:.mf(.31," ")|
000008e0 2b 22 7c 53 41 6d 6f 75 6e 74 22 29 3a f2 76 64 |+"|SAmount"):.vd|
000008f0 75 28 33 2c 32 34 29 3a f5 3a db 3a e3 50 25 3d |u(3,24):.:.:.P%=|
00000900 30 b8 32 30 3a e7 50 25 3e 33 80 50 25 3c 4f 25 |0.20:.P%>3.P%<O%|
00000910 f2 6d 66 28 22 7c 48 22 2b bd 28 36 35 2b 50 25 |.mf("|H"+.(65+P%|
00000920 29 2b 22 20 20 7c 4e 20 20 22 29 8b f1 bd 28 36 |)+" |N ")...(6|
00000930 35 2b 50 25 29 8a 35 29 3b 0d 02 30 83 f2 6d 66 |5+P%).5);..0..mf|
00000940 28 70 24 28 50 25 29 29 3a f1 3a ed 3a f2 6d 66 |(p$(P%)):.:.:.mf|
00000950 28 22 7c 49 57 68 69 63 68 20 64 6f 20 79 6f 75 |("|IWhich do you|
00000960 20 77 69 73 68 20 74 6f 20 6c 69 73 74 20 3f 20 | wish to list ? |
00000970 6f 72 20 7c 4e 7c 48 52 45 54 55 52 4e 7c 4e 7c |or |N|HRETURN|N||
00000980 49 20 74 6f 20 71 75 69 74 20 22 29 3a 56 25 3d |I to quit "):V%=|
00000990 a4 67 65 74 28 bd 31 33 2b 22 41 42 43 44 45 46 |.get(.13+"ABCDEF|
000009a0 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 22 |GHIJKLMNOPQRSTU"|
000009b0 29 3a e7 56 25 3d 31 e5 8d 74 54 42 0d 02 3a 0e |):.V%=1..tTB..:.|
000009c0 e7 56 25 3e 32 30 f2 61 73 6b 0d 02 44 18 db 3a |.V%>20.ask..D..:|
000009d0 e7 70 70 25 28 56 25 2d 32 29 3d 2d 31 e5 8d 74 |.pp%(V%-2)=-1..t|
000009e0 4a 42 0d 02 4e 40 41 25 3d 2d 31 3a 54 25 3d ad |JB..N@A%=-1:T%=.|
000009f0 22 41 2e 52 45 43 4f 52 44 22 3a f5 3a 41 25 3d |"A.RECORD":.:A%=|
00000a00 41 25 2b 31 3a f2 72 3a fd 50 25 3d 56 25 2d 32 |A%+1:.r:.P%=V%-2|
00000a10 84 41 25 3e 53 25 3a e7 41 25 3e 53 25 8c 8d 74 |.A%>S%:.A%>S%..t|
00000a20 4a 42 0d 02 58 20 f5 3a f2 72 3a e7 73 25 e7 a7 |JB..X .:.r:.s%..|
00000a30 a4 63 28 70 65 24 29 2c 74 24 29 3d 30 8c 8d 44 |.c(pe$),t$)=0..D|
00000a40 76 42 0d 02 62 34 f2 64 28 33 29 3a f2 6d 66 28 |vB..b4.d(3):.mf(|
00000a50 22 20 20 20 22 2b 70 65 24 2b 22 20 22 29 3a f5 |" "+pe$+" "):.|
00000a60 ef 34 36 3a fd b1 3d 36 39 3a e7 50 25 3e 32 20 |.46:..=69:.P%>2 |
00000a70 5a 25 3d 94 5a 25 0d 02 6c 10 f2 6d 6f 6e 65 79 |Z%=.Z%..l..money|
00000a80 28 5a 25 29 3a f1 0d 02 76 15 e7 41 25 3c 6e 65 |(Z%):...v..A%<ne|
00000a90 78 74 25 41 25 3d 6e 65 78 74 25 0d 02 80 19 fd |xt%A%=next%.....|
00000aa0 41 25 3e 6e 65 78 74 25 84 6e 65 78 74 25 3d 30 |A%>next%.next%=0|
00000ab0 3a d9 23 30 0d 02 8a 29 f2 6d 66 28 c4 33 30 2c |:.#0...).mf(.30,|
00000ac0 22 20 22 29 2b 22 7c 42 7c 48 20 48 69 74 20 61 |" ")+"|B|H Hit a|
00000ad0 20 6b 65 79 20 7c 2e 22 29 3a f5 fd a5 0d 02 94 | key |."):......|
00000ae0 26 73 25 3d a3 3a fd 56 25 3d 31 3a 41 25 3d 53 |&s%=.:.V%=1:A%=S|
00000af0 25 3a ef 32 36 2c 31 35 2c 31 32 3a f2 68 65 61 |%:.26,15,12:.hea|
00000b00 64 3a e1 0d 02 9e 04 0d 02 a8 24 dd f2 6d 66 28 |d:........$..mf(|
00000b10 61 24 29 3a e7 47 25 f2 73 74 72 69 70 28 61 24 |a$):.G%.strip(a$|
00000b20 29 3a e1 8b d6 93 2c 61 24 3a e1 0d 02 b2 04 0d |):....,a$:......|
00000b30 02 bc 2c dd f2 6d 6f 6e 65 79 28 6d 25 29 3a 40 |..,..money(m%):@|
00000b40 25 3d 26 32 30 32 30 41 3a f1 6d 25 2f 31 30 30 |%=&2020A:.m%/100|
00000b50 3b 3a 40 25 3d 26 39 30 41 3a e1 0d 02 c6 04 0d |;:@%=&90A:......|
00000b60 02 d0 18 dd f2 70 28 78 25 29 3a f5 ef 33 32 3a |.....p(x%):..32:|
00000b70 fd b1 3d 78 25 3a e1 0d 02 da 04 0d 02 e4 61 dd |..=x%:........a.|
00000b80 f2 70 61 79 3a f2 64 28 37 29 3a f2 6d 66 28 22 |.pay:.d(7):.mf("|
00000b90 7c 48 20 22 2b 70 24 28 50 25 29 2b 22 20 22 29 ||H "+p$(P%)+" ")|
00000ba0 3a e7 50 25 3e 31 38 e8 22 20 20 50 61 79 65 65 |:.P%>18." Payee|
00000bb0 20 22 6d 24 3a e7 50 25 3d 31 39 20 70 65 24 3d | "m$:.P%=19 pe$=|
00000bc0 22 7c 43 22 2b 6d 24 8b e7 50 25 3d 32 30 20 70 |"|C"+m$..P%=20 p|
00000bd0 65 24 3d 70 24 28 32 30 29 2b 6d 24 0d 02 ee 15 |e$=p$(20)+m$....|
00000be0 e7 50 25 3c 31 39 20 70 65 24 3d 70 24 28 50 25 |.P%<19 pe$=p$(P%|
00000bf0 29 0d 02 f8 6a 70 65 24 3d c0 70 65 24 2c 33 36 |)...jpe$=.pe$,36|
00000c00 29 3a e7 50 25 3e 33 80 50 25 3c 31 38 f1 22 20 |):.P%>3.P%<18." |
00000c10 60 22 3b 3a f2 6d 6f 6e 65 79 28 94 28 70 61 79 |`";:.money(.(pay|
00000c20 25 28 50 25 29 29 29 3a f2 6d 66 28 22 7c 49 20 |%(P%))):.mf("|I |
00000c30 20 20 49 73 20 61 6d 6f 75 6e 74 20 63 6f 72 72 | Is amount corr|
00000c40 65 63 74 20 3f 20 22 29 3a e7 a4 67 65 74 28 22 |ect ? "):..get("|
00000c50 4e 59 22 29 3d 32 8c 8d 54 4c 43 0d 03 02 72 f2 |NY")=2..TLC...r.|
00000c60 6d 66 28 22 7c 2e 7c 43 41 6d 6f 75 6e 74 2e 20 |mf("|.|CAmount. |
00000c70 7c 4e 60 20 22 29 3a 70 61 79 25 28 50 25 29 3d ||N` "):pay%(P%)=|
00000c80 a4 63 61 73 68 3a e7 50 25 3c 33 f2 6d 66 28 22 |.cash:.P%<3.mf("|
00000c90 7c 43 44 65 62 69 74 20 7c 4e 6f 72 20 7c 43 43 ||CDebit |Nor |CC|
00000ca0 72 65 64 69 74 20 22 29 3a e7 a4 67 65 74 28 22 |redit "):..get("|
00000cb0 44 43 22 29 3d 31 20 70 61 79 25 28 50 25 29 3d |DC")=1 pay%(P%)=|
00000cc0 70 61 79 25 28 50 25 29 2a 28 2d 31 29 0d 03 0c |pay%(P%)*(-1)...|
00000cd0 16 e7 70 61 79 25 28 50 25 29 3d 30 db 3a e5 8d |..pay%(P%)=0.:..|
00000ce0 74 5a 41 0d 03 16 39 5a 25 3d 70 61 79 25 28 50 |tZA...9Z%=pay%(P|
00000cf0 25 29 3a 42 25 3d 42 25 2b 5a 25 3a f2 6c 69 6e |%):B%=B%+Z%:.lin|
00000d00 65 3a 66 25 28 50 25 29 3d b9 3a e7 50 25 3d 32 |e:f%(P%)=.:.P%=2|
00000d10 30 20 43 25 3d 43 25 2b 31 3a f2 63 0d 03 20 3e |0 C%=C%+1:.c.. >|
00000d20 54 25 3d ad 22 41 2e 52 45 43 4f 52 44 22 3a cf |T%=."A.RECORD":.|
00000d30 23 54 25 3d 41 25 2a 31 30 30 3a f1 23 54 25 2c |#T%=A%*100:.#T%,|
00000d40 44 25 2c 4d 25 2c 59 25 2c 49 25 2c 50 25 2c 30 |D%,M%,Y%,I%,P%,0|
00000d50 2c 5a 25 2c 42 25 2c 70 65 24 0d 03 2a 2b e7 70 |,Z%,B%,pe$..*+.p|
00000d60 70 25 28 50 25 29 3e 3d 30 8c cf 23 54 25 3d 70 |p%(P%)>=0..#T%=p|
00000d70 70 25 28 50 25 29 2a 31 30 30 2b 32 35 3a f1 23 |p%(P%)*100+25:.#|
00000d80 54 25 2c 41 25 0d 03 34 72 d9 23 30 3a 70 70 25 |T%,A%..4r.#0:pp%|
00000d90 28 50 25 29 3d 41 25 3a 41 25 3d 41 25 2b 31 3a |(P%)=A%:A%=A%+1:|
00000da0 53 25 3d 41 25 3a f2 73 5f 64 3a f2 66 5f 73 3a |S%=A%:.s_d:.f_s:|
00000db0 e7 41 25 3d 31 30 30 30 ef 32 36 2c 31 32 3a f1 |.A%=1000.26,12:.|
00000dc0 27 22 44 61 74 61 20 73 61 76 65 64 2c 20 52 45 |'"Data saved, RE|
00000dd0 43 4f 52 44 20 66 75 6c 6c 20 70 6c 65 61 73 65 |CORD full please|
00000de0 20 73 74 61 72 74 20 61 20 66 72 65 73 68 20 64 | start a fresh d|
00000df0 69 73 63 2e 22 3a e0 0d 03 3e 05 e1 0d 03 48 04 |isc.":...>....H.|
00000e00 0d 03 52 35 dd f2 70 5f 64 3a 50 25 3d 34 3a f5 |..R5..p_d:P%=4:.|
00000e10 3a e7 66 25 28 50 25 29 e7 66 71 25 28 50 25 29 |:.f%(P%).fq%(P%)|
00000e20 3d 31 80 44 25 3c 3e 64 61 74 65 25 28 50 25 29 |=1.D%<>date%(P%)|
00000e30 f2 66 6c 61 67 0d 03 5c 28 e7 66 25 28 50 25 29 |.flag..\(.f%(P%)|
00000e40 e7 66 71 25 28 50 25 29 3e 31 80 49 25 3c 3e 64 |.fq%(P%)>1.I%<>d|
00000e50 61 74 65 25 28 50 25 29 f2 66 6c 61 67 0d 03 66 |ate%(P%).flag..f|
00000e60 1d e7 70 61 79 25 28 50 25 29 3d 30 84 66 25 28 |..pay%(P%)=0.f%(|
00000e70 50 25 29 3d b9 8c 8d 74 58 43 0d 03 70 1d e7 66 |P%)=...tXC..p..f|
00000e80 71 25 28 50 25 29 3d 31 80 44 25 3d 64 61 74 65 |q%(P%)=1.D%=date|
00000e90 25 28 50 25 29 f2 73 0d 03 7a 1d e7 66 71 25 28 |%(P%).s..z..fq%(|
00000ea0 50 25 29 3d 32 80 49 25 3d 64 61 74 65 25 28 50 |P%)=2.I%=date%(P|
00000eb0 25 29 f2 73 0d 03 84 20 e7 66 71 25 28 50 25 29 |%).s... .fq%(P%)|
00000ec0 3d 33 80 57 25 80 49 25 3d 64 61 74 65 25 28 50 |=3.W%.I%=date%(P|
00000ed0 25 29 f2 73 0d 03 8e 21 e7 66 71 25 28 50 25 29 |%).s...!.fq%(P%)|
00000ee0 3d 34 80 ac 57 25 80 49 25 3d 64 61 74 65 25 28 |=4..W%.I%=date%(|
00000ef0 50 25 29 f2 73 0d 03 98 14 50 25 3d 50 25 2b 31 |P%).s....P%=P%+1|
00000f00 3a fd 50 25 3d 31 38 3a e1 0d 03 a2 04 0d 03 ac |:.P%=18:........|
00000f10 39 dd f2 72 3a cf 23 54 25 3d 41 25 2a 31 30 30 |9..r:.#T%=A%*100|
00000f20 3a e8 23 54 25 2c 44 25 2c 4d 25 2c 59 25 2c 49 |:.#T%,D%,M%,Y%,I|
00000f30 25 2c 50 25 2c 6e 65 78 74 25 2c 5a 25 2c 42 25 |%,P%,next%,Z%,B%|
00000f40 2c 70 65 24 3a e1 0d 03 b6 04 0d 03 c0 3c dd f2 |,pe$:........<..|
00000f50 73 5f 64 3a 55 25 3d ad 22 41 2e 44 41 54 45 22 |s_d:U%=."A.DATE"|
00000f60 3a f1 23 55 25 2c 59 25 2c 43 25 2c 57 25 2c 41 |:.#U%,Y%,C%,W%,A|
00000f70 25 2c 4f 25 2c 53 25 2c 44 25 2c 4d 25 2c 49 25 |%,O%,S%,D%,M%,I%|
00000f80 3a d9 23 30 3a e1 0d 03 ca 04 0d 03 d4 29 dd f2 |:.#0:........)..|
00000f90 73 68 6f 77 28 51 25 29 3a e7 ac 47 25 f2 76 64 |show(Q%):..G%.vd|
00000fa0 75 28 33 2c 32 32 29 3a db 3a 46 25 3d 30 8b 46 |u(3,22):.:F%=0.F|
00000fb0 25 3d 33 0d 03 de 17 e7 41 25 3e 51 25 41 25 3d |%=3.....A%>Q%A%=|
00000fc0 41 25 2d 51 25 8b 41 25 3d 30 0d 03 e8 23 54 25 |A%-Q%.A%=0...#T%|
00000fd0 3d ad 22 41 2e 52 45 43 4f 52 44 22 3a f5 3a f2 |=."A.RECORD":.:.|
00000fe0 72 3a e7 50 25 3c 39 39 f2 6c 69 6e 65 0d 03 f2 |r:.P%<99.line...|
00000ff0 1d 41 25 3d 41 25 2b 31 3a fd 41 25 3d 53 25 3a |.A%=A%+1:.A%=S%:|
00001000 d9 23 30 3a f2 67 5f 64 3a e1 0d 03 fc 04 0d 04 |.#0:.g_d:.......|
00001010 06 1c dd f2 73 3a e7 28 73 74 25 28 50 25 29 80 |....s:.(st%(P%).|
00001020 26 46 46 46 46 29 3e 4d 25 e1 0d 04 10 17 e7 73 |&FFFF)>M%......s|
00001030 74 25 28 50 25 29 81 26 31 30 30 30 30 3e 44 25 |t%(P%).&10000>D%|
00001040 e1 0d 04 1a 21 73 74 25 28 50 25 29 3d 30 3a e7 |....!st%(P%)=0:.|
00001050 6e 5f 70 61 79 25 28 50 25 29 3d 30 f2 70 61 79 |n_pay%(P%)=0.pay|
00001060 3a e1 0d 04 24 57 e7 66 70 61 79 25 28 50 25 29 |:...$W.fpay%(P%)|
00001070 3c 3e 30 20 74 25 3d 70 61 79 25 28 50 25 29 3a |<>0 t%=pay%(P%):|
00001080 70 61 79 25 28 50 25 29 3d 66 70 61 79 25 28 50 |pay%(P%)=fpay%(P|
00001090 25 29 3a f2 70 61 79 3a 66 70 61 79 25 28 50 25 |%):.pay:fpay%(P%|
000010a0 29 3d 30 3a 70 61 79 25 28 50 25 29 3d 74 25 3a |)=0:pay%(P%)=t%:|
000010b0 f2 64 65 64 75 63 74 3a e1 0d 04 2e 3d e7 6e 5f |.deduct:....=.n_|
000010c0 70 61 79 25 28 50 25 29 3d 31 e7 6c 70 61 79 25 |pay%(P%)=1.lpay%|
000010d0 28 50 25 29 3c 3e 30 20 70 61 79 25 28 50 25 29 |(P%)<>0 pay%(P%)|
000010e0 3d 6c 70 61 79 25 28 50 25 29 3a 6c 70 61 79 25 |=lpay%(P%):lpay%|
000010f0 28 50 25 29 3d 30 0d 04 38 12 f2 70 61 79 3a f2 |(P%)=0..8..pay:.|
00001100 64 65 64 75 63 74 3a e1 0d 04 42 04 0d 04 4c 33 |deduct:...B...L3|
00001110 dd f2 73 74 72 69 70 28 61 24 29 3a 72 25 3d a3 |..strip(a$):r%=.|
00001120 3a e7 c2 61 24 2c 32 29 3d 22 7c 2e 22 72 25 3d |:..a$,2)="|."r%=|
00001130 b9 3a 61 24 3d c0 61 24 2c a9 61 24 2d 32 29 0d |.:a$=.a$,.a$-2).|
00001140 04 56 1b f5 52 25 3d a7 61 24 2c 22 7c 22 29 3a |.V..R%=.a$,"|"):|
00001150 e7 52 25 3d 30 e5 8d 44 6a 44 0d 04 60 32 e7 52 |.R%=0..DjD..`2.R|
00001160 25 3d 31 20 61 24 3d c2 61 24 2c a9 61 24 2d 32 |%=1 a$=.a$,.a$-2|
00001170 29 8b 61 24 3d c0 61 24 2c 52 25 2d 31 29 2b c2 |).a$=.a$,R%-1)+.|
00001180 61 24 2c a9 61 24 2d 52 25 2d 31 29 0d 04 6a 13 |a$,.a$-R%-1)..j.|
00001190 fd 52 25 3d 30 3a f1 61 24 3b 3a e7 72 25 f1 0d |.R%=0:.a$;:.r%..|
000011a0 04 74 05 e1 0d 04 7e 04 0d 04 88 26 dd f2 76 64 |.t....~....&..vd|
000011b0 75 28 74 25 2c 62 25 29 3a e7 47 25 e1 8b ef 32 |u(t%,b%):.G%...2|
000011c0 38 2c 30 2c 62 25 2c 37 39 2c 74 25 3a e1 0d 04 |8,0,b%,79,t%:...|
000011d0 92 04 0d 04 9c 53 dd a4 63 28 73 24 29 3a 51 25 |.....S..c(s$):Q%|
000011e0 3d 31 3a f5 3a 73 24 3d c0 73 24 2c 51 25 2d 31 |=1:.:s$=.s$,Q%-1|
000011f0 29 2b bd 28 97 28 c1 73 24 2c 51 25 2c 31 29 29 |)+.(.(.s$,Q%,1))|
00001200 84 26 32 30 29 2b c2 73 24 2c a9 73 24 2d 51 25 |.&20)+.s$,.s$-Q%|
00001210 29 3a 51 25 3d 51 25 2b 31 3a fd 51 25 3e a9 73 |):Q%=Q%+1:.Q%>.s|
00001220 24 3a 3d 73 24 0d 04 a6 04 0d 04 b0 37 dd a4 63 |$:=s$.......7..c|
00001230 61 73 68 3a 60 25 3d 30 3a 60 24 3d 22 30 22 3a |ash:`%=0:`$="0":|
00001240 64 25 3d 30 3a 64 24 3d 22 30 22 3a 70 6f 25 3d |d%=0:d$="0":po%=|
00001250 30 3a e8 6d 6f 24 3a e7 6d 6f 24 3d 22 22 3d 30 |0:.mo$:.mo$=""=0|
00001260 0d 04 ba 25 6c 25 3d a9 6d 6f 24 3a 70 6f 25 3d |...%l%=.mo$:po%=|
00001270 a7 6d 6f 24 2c 22 2e 22 29 3a e7 70 6f 25 3d 31 |.mo$,"."):.po%=1|
00001280 8c 8d 64 4e 44 0d 04 c4 27 e7 70 6f 25 3d 30 20 |..dND...'.po%=0 |
00001290 60 24 3d 6d 6f 24 3a e5 8d 64 62 44 3a 8b 60 24 |`$=mo$:..dbD:.`$|
000012a0 3d c0 6d 6f 24 2c 70 6f 25 2d 31 29 0d 04 ce 24 |=.mo$,po%-1)...$|
000012b0 64 24 3d c2 6d 6f 24 2c 6c 25 2d 70 6f 25 29 3a |d$=.mo$,l%-po%):|
000012c0 e7 a9 64 24 3d 31 20 64 24 3d 64 24 2b 22 30 22 |..d$=1 d$=d$+"0"|
000012d0 0d 04 d8 13 e7 60 24 3d 22 22 60 24 3d 60 24 2b |.....`$=""`$=`$+|
000012e0 22 30 22 0d 04 e2 3b 60 25 3d a0 28 60 24 29 3a |"0"...;`%=.(`$):|
000012f0 64 25 3d a0 28 64 24 29 3a e7 50 25 3e 3d 4f 25 |d%=.(d$):.P%>=O%|
00001300 3d 28 60 25 2a 31 30 30 2b 64 25 29 2a 28 2d 31 |=(`%*100+d%)*(-1|
00001310 29 20 8b 20 3d 60 25 2a 31 30 30 2b 64 25 0d 04 |) . =`%*100+d%..|
00001320 ec 04 0d 04 f6 15 dd a4 67 65 74 28 61 24 29 3a |........get(a$):|
00001330 2a 46 58 32 31 2c 30 0d 05 00 19 f5 4b 25 3d a7 |*FX21,0.....K%=.|
00001340 61 24 2c be 29 3a fd 4b 25 3c 3e 30 3a 3d 4b 25 |a$,.):.K%<>0:=K%|
00001350 0d ff |..|
00001352 
P/C/FLEX.m0
P/C/FLEX.m1
P/C/FLEX.m2
P/C/FLEX.m4
P/C/FLEX.m5
.