P/C/BANK

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/BANK

P/C/BANK

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/BANK
Read OK:	✔
File size:	14B8 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.BANK
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/BANK

File contents

   10REM >BANK
   20REM >Flex Account (c) M Comley 1995  V 1.1 Zero payment
   30
   40VDU26,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," ")
   50PROChead:PROCmf("|.|.|.|.|H Loading Data |N|I Please wait.")
   60DIMday$(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)
   70T%=OPENIN"A.DATA":FOR Q%=1 TO 12:INPUT#T%,month$(Q%),m%(Q%):NEXT:FOR Q%=1 TO 7:INPUT#T%,day$(Q%):NEXT:CLOSE#0
   80*LOAD $&C00
   90Q%=0:T%=OPENIN"A.FILE":REPEAT:PTR# T%=Q%*100
  100INPUT#T%,pay%(Q%),fpay%(Q%),lpay%(Q%),f%(Q%),n_pay%(Q%),fq%(Q%),st%(Q%),date%(Q%),pp%(Q%),p$(Q%)
  110Q%=Q%+1:UNTIL Q%>20:CLOSE#0
  120PROCg_d:PROCc:CLS:PROChead:PROCvdu(21,24):IF S%>0 PROCshow(20)
  130
  140REPEAT:*FX21,0
  150PROCd(7):PRINT';C%,A%;"  ";:IF W% PROCmf("|Hodd.|.") ELSEPROCmf("|Heven.|.")
  160CALL&900:J%=FNget(CHR$13+"TAIDWZC VPLJEF")
  170IF J%>1 AND J%<6 P%=J%-2
  180IF J%>5 AND J%<9 P%=J%+12
  190IF J%=9 PROCdate:PROCs_d
  200IF J%=10 CLS:PRINT"Check No. ";:PROCmf(p$(20)+"  "):INPUT"New check No "C%:PROCc:PROCs_d
  210IF J%=11 VDU26,12,2:G%=TRUE:PROChead:PROCshow(50):VDU3,26,12:G%=FALSE:PROChead:PROCvdu(21,24):PROCshow(20)
  220IF J%=12 PROClook:PROCshow(20)
  230IF J%=13 CHAIN"ADJUST"
  240IF J%=14 CHAIN"EDIT"
  250IF J%=15 CHAIN"PLAN"
  260IF J%>1 AND J%<9 PROCpay
  270PROCp_d
  280UNTIL 0
  290
  300DEFPROCask:VDU28,10,15,70,9,12:PRINT'TAB(10)"Do you wish to look at specific payments Y/N ";:IF FNget("YN")=1 INPUT'TAB(10)"Search string "t$:s%=TRUE:t$=FNc(t$)
  310PROCvdu(3,24):ENDPROC
  320
  330DEFPROCc:p$(20)="|H"+STR$(C%)+"|N ":ENDPROC
  340 
  350DEFPROCd(L%):IF L%=7 CLS:PRINTday$(I%)" ";
  360PRINT;D%;TAB(L%)month$(M%)" ";:ENDPROC
  370 
  380DEFPROCdate
  390IF(Y%-1984)MOD 4=0 m%(2)=29
  400D%=D%+1:IF D%>m%(M%) M%=M%+1:D%=1
  410IF M%>12 Y%=Y%+1:M%=1:D%=1:W%=TRUE
  420I%=I%+1:IF I%>7 I%=1:W%=NOT W%
  430IF M%=1 AND D%=1 VDU26,30:PROChead:PROCvdu(3,20):PRINTTAB(25,F%);:PROCmf("|H|B "+STR$(Y%)+" |."):F%=VPOS:PROCvdu(21,24)
  440ENDPROC
  450 
  460DEFPROCdeduct:n_pay%(P%)=n_pay%(P%)-1:IF n_pay%(P%)=0 pay%(P%)=0
  470PROCf_s:ENDPROC
  480
  490DEFPROCf_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
  500
  510DEFPROCflag:f%(P%)=FALSE:T%=OPENUP"A.FILE":PTR# T%=P%*100+15:PRINT#T%,f%(P%):CLOSE#0:ENDPROC
  520 
  530DEFPROCg_d:U%=OPENUP "A.DATE":INPUT#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:CLOSE#0:ENDPROC
  540 
  550DEFPROChead:PROCmf(STRING$(20," ")+"|BBank Account - V|N 1.1   "+STR$(Y%)+"|.")
  560PROCmf("|SDate      Item"+STRING$(28," ")+"Withdrawals     Deposits      Balance|."):PRINTSTRING$(80,"-"):ENDPROC
  570 
  580DEFPROCline
  590IF NOT G% CLS:PROCvdu(3,20):VDU31,0,F%:IF A%=0 PROCd(3)
  600IF A%>0 IF D%<>X% PROCd(3):X%=D%
  610PRINTTAB(10);:PROCmf(LEFT$(pe$,32)):PROCp(43):IF Z%>0 PROCp(56)
  620PROCmoney(ABS(Z%)):PROCp(69):IF B%<0 COLOUR0:COLOUR129
  630PROCmoney(B%):COLOUR128:COLOUR1:PRINT
  640F%=VPOS:PROCvdu(21,24):ENDPROC
  650 
  660DEFPROClook
  670PROCvdu(1,1):PRINTTAB(42,0);:PROCmf(STRING$(31," ")+"|SAmount"):PROCvdu(3,24)
  680REPEAT:CLS
  690FOR P%=0 TO 20
  700IF P%>3 AND P%<O% PROCmf("|H"+CHR$(65+P%)+"  |N  ") ELSEPRINTCHR$(65+P%)TAB(5);
  710PROCmf(p$(P%)):PRINT:NEXT
  720PROCmf("|IWhich do you wish to list ? or |N|HRETURN|N|I to quit ")
  730V%=FNget(CHR$13+"ABCDEFGHIJKLMNOPQRSTU"):IF V%=1 GOTO 840
  740IF V%>20 PROCask
  750CLS:IF pp%(V%-2)=-1 GOTO830
  760A%=-1:T%=OPENUP "A.RECORD"
  770REPEAT:A%=A%+1:PROCr:UNTIL P%=V%-2 OR A%>S%:IF A%>S% THEN 830
  780REPEAT:PROCr:IF s% IF INSTR(FNc(pe$),t$)=0 THEN810
  790PROCd(3):PROCmf("   "+pe$+" "):REPEAT VDU46:UNTIL POS=69:IF P%>2 Z%=ABSZ%
  800PROCmoney(Z%):PRINT
  810IF A%<next% A%=next%
  820UNTIL A%>next% OR next%=0:CLOSE#0
  830PROCmf(STRING$(30," ")+"|B|H Hit a key |."):REPEAT UNTIL GET
  840s%=FALSE:UNTIL V%=1:A%=S%:VDU26,15,12:PROChead:ENDPROC
  850 
  860DEFPROCmf(a$):IF G% PROCstrip(a$):ENDPROC ELSECALLHIMEM,a$:ENDPROC
  870 
  880DEFPROCmoney(m%):@%=&2020A:PRINTm%/100;:@%=&90A:ENDPROC
  890
  900DEFPROCp(x%):REPEATVDU32:UNTILPOS=x%:ENDPROC
  910
  920DEFPROCpay
  930PROCd(7):PROCmf("|H "+p$(P%)+" ")
  940IF P%>18 INPUT"  Payee "m$:IF P%=19 pe$="|C"+m$ ELSEIF P%=20 pe$=p$(20)+m$
  950IF P%<19 pe$=p$(P%)
  960pe$=LEFT$(pe$,36)
  970IF P%>3 AND P%<18 PRINT" `";:PROCmoney(ABS(pay%(P%))):PROCmf("|I   Is amount correct ? "):IF FNget("NY")=2 THEN 990
  980PROCmf("|.|CAmount. |N` "):pay%(P%)=FNcash:IF P%<3 PROCmf("|CDebit |Nor |CCredit "):IF FNget("DC")=1 pay%(P%)=pay%(P%)*(-1)
  990IF pay%(P%)=0 CLS:GOTO490
 1000Z%=pay%(P%):B%=B%+Z%:PROCline:f%(P%)=TRUE:IF P%=20 C%=C%+1:PROCc
 1010T%=OPENUP "A.RECORD"
 1020PTR# T%=A%*100:PRINT#T%,D%,M%,Y%,I%,P%,0,Z%,B%,pe$
 1030IF pp%(P%)>=0 THEN PTR# T%=pp%(P%)*100+25:PRINT#T%,A%
 1040CLOSE#0
 1050pp%(P%)=A%:A%=A%+1:S%=A%:PROCs_d
 1060PROCf_s
 1070IF A%=1000 VDU26,12:PRINT'"Data saved, RECORD full please start a fresh disc.":END
 1080ENDPROC
 1090 
 1100DEFPROCp_d
 1110P%=4
 1120REPEAT
 1130IF f%(P%) IF fq%(P%)=1 AND D%<>date%(P%) PROCflag
 1140IF f%(P%) IF fq%(P%)>1 AND I%<>date%(P%) PROCflag
 1150IF pay%(P%)=0 OR f%(P%)=TRUE THEN 1200
 1160IF fq%(P%)=1 AND D%=date%(P%) PROCs
 1170IF fq%(P%)=2 AND I%=date%(P%) PROCs
 1180IF fq%(P%)=3 AND W% AND I%=date%(P%) PROCs
 1190IF fq%(P%)=4 AND NOT W% AND I%=date%(P%) PROCs
 1200P%=P%+1:UNTIL P%=18:ENDPROC
 1210 
 1220DEFPROCr:PTR# T%=A%*100:INPUT#T%,D%,M%,Y%,I%,P%,next%,Z%,B%,pe$:ENDPROC
 1230 
 1240DEFPROCs_d:U%=OPENUP "A.DATE":PRINT#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:CLOSE#0:ENDPROC
 1250 
 1260DEFPROCshow(Q%)
 1270IF NOTG% PROCvdu(3,22):CLS:F%=0 ELSE F%=3
 1280IF A%>Q% A%=A%-Q% ELSE A%=0
 1290T%=OPENUP "A.RECORD"
 1300REPEAT:PROCr:IF P%<99 PROCline
 1310A%=A%+1:UNTIL A%=S%:CLOSE#0:PROCg_d:ENDPROC
 1320 
 1330DEFPROCs
 1340IF (st%(P%)AND&FFFF)>M% ENDPROC
 1350IF st%(P%)DIV&10000>D% ENDPROC
 1360st%(P%)=0:IF n_pay%(P%)=0 PROCpay:ENDPROC
 1370IF fpay%(P%)<>0 t%=pay%(P%):pay%(P%)=fpay%(P%):PROCpay:fpay%(P%)=0:pay%(P%)=t%:PROCdeduct:ENDPROC
 1380IF n_pay%(P%)=1 IF lpay%(P%)<>0 pay%(P%)=lpay%(P%):lpay%(P%)=0
 1390PROCpay:PROCdeduct:ENDPROC
 1400 
 1410DEFPROCstrip(a$)
 1420r%=FALSE:IF RIGHT$(a$,2)="|." r%=TRUE:a$=LEFT$(a$,LENa$-2)
 1430REPEAT R%=INSTR(a$,"|"):IF R%=0 GOTO 1450
 1440IF R%=1 a$=RIGHT$(a$,LENa$-2) ELSEa$=LEFT$(a$,R%-1)+RIGHT$(a$,LENa$-R%-1)
 1450UNTIL R%=0:PRINTa$;:IF r% PRINT
 1460ENDPROC
 1470 
 1480DEFPROCvdu(t%,b%):IFG% ENDPROC ELSEVDU28,0,b%,79,t%:ENDPROC
 1490 
 1500DEFFNc(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$
 1510 
 1520DEFFNcash
 1530`%=0:`$="0":d%=0:d$="0":po%=0
 1540INPUTmo$:IF mo$="" =0
 1550l%=LENmo$:po%=INSTR(mo$,".")
 1560IF po%=1 THEN 1580
 1570IF po%=0 `$=mo$:GOTO 1610:ELSE `$=LEFT$(mo$,po%-1)
 1580d$=RIGHT$(mo$,l%-po%)
 1590IF LENd$=1 d$=d$+"0"
 1600IF `$="" `$=`$+"0"
 1610`%=EVAL(`$):d%=EVAL(d$)
 1620IF P%>=O% =(`%*100+d%)*(-1) ELSE =`%*100+d%
 1630 
 1640DEFFNget(a$):*FX21,0
 1650REPEAT K%=INSTR(a$,GET$):UNTIL K%<>0:=K%


� >BANK
9� >Flex Account (c) M Comley 1995  V 1.1 Zero payment

(P�26,12:A%=0:B%=0:F%=0:G%=�:O%=6:S%=0:W%=�:Z%=0:s%=�:pe$=�36," "):a$=�80," ")
2:�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)
FTT%=�"A.DATA":� Q%=1 � 12:�#T%,month$(Q%),m%(Q%):�:� Q%=1 � 7:�#T%,day$(Q%):�:�#0
P*LOAD $&C00
Z$Q%=0:T%=�"A.FILE":�:�# T%=Q%*100
d`�#T%,pay%(Q%),fpay%(Q%),lpay%(Q%),f%(Q%),n_pay%(Q%),fq%(Q%),st%(Q%),date%(Q%),pp%(Q%),p$(Q%)
nQ%=Q%+1:� Q%>20:�#0
x0�g_d:�c:�:�head:�vdu(21,24):� S%>0 �show(20)
�
�
�:*FX21,0
�?�d(7):�';C%,A%;"  ";:� W% �mf("|Hodd.|.") ��mf("|Heven.|.")
�'�&900:J%=�get(�13+"TAIDWZC VPLJEF")
�� J%>1 � J%<6 P%=J%-2
�� J%>5 � J%<9 P%=J%+12
�� J%=9 �date:�s_d
�H� J%=10 �:�"Check No. ";:�mf(p$(20)+"  "):�"New check No "C%:�c:�s_d
�S� 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$)
6�vdu(3,24):�
@
J!��c:p$(20)="|H"+�(C%)+"|N ":�
T 
^"��d(L%):� L%=7 �:�day$(I%)" ";
h�;D%;�L%)month$(M%)" ";:�
r 
|
��date
��(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)
��
� 
�>��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:�
�
�B��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:�
 
&A��head:�mf(�20," ")+"|BBank Account - V|N 1.1   "+�(Y%)+"|.")
0Z�mf("|SDate      Item"+�28," ")+"Withdrawals     Deposits      Balance|."):��80,"-"):�
: 
D
��line
N-� � G% �:�vdu(3,20):�31,0,F%:� A%=0 �d(3)
X� A%>0 � D%<>X% �d(3):X%=D%
b-�10);:�mf(�pe$,32)):�p(43):� Z%>0 �p(56)
l'�money(�(Z%)):�p(69):� B%<0 �0:�129
v�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);
��mf(p$(P%)):�:�
�C�mf("|IWhich do you wish to list ? or |N|HRETURN|N|I to quit ")
�6V%=�get(�13+"ABCDEFGHIJKLMNOPQRSTU"):� V%=1 � �DHC
�� V%>20 �ask
��:� pp%(V%-2)=-1 �T~C
�A%=-1:T%=� "A.RECORD"
1�:A%=A%+1:�r:� P%=V%-2 � A%>S%:� A%>S% � �T~C
$�:�r:� s% � ��c(pe$),t$)=0 ��TjC
7�d(3):�mf("   "+pe$+" "):� �46:� �=69:� P%>2 Z%=�Z%
 �money(Z%):�
*� A%<next% A%=next%
4� A%>next% � next%=0:�#0
>+�mf(�30," ")+"|B|H Hit a key |."):� � �
H's%=�:� V%=1:A%=S%:�26,15,12:�head:�
R 
\'��mf(a$):� G% �strip(a$):� �֓,a$:�
f 
p,��money(m%):@%=&2020A:�m%/100;:@%=&90A:�
z
���p(x%):��32:��=x%:�
�
�	��pay
��d(7):�mf("|H "+p$(P%)+" ")
�D� P%>18 �"  Payee "m$:� P%=19 pe$="|C"+m$ �� P%=20 pe$=p$(20)+m$
�� P%<19 pe$=p$(P%)
�pe$=�pe$,36)
�d� P%>3 � P%<18 �" `";:�money(�(pay%(P%))):�mf("|I   Is amount correct ? "):� �get("NY")=2 � �d^C
�u�mf("|.|CAmount. |N` "):pay%(P%)=�cash:� P%<3 �mf("|CDebit |Nor |CCredit "):� �get("DC")=1 pay%(P%)=pay%(P%)*(-1)
�� pay%(P%)=0 �:�djA
�:Z%=pay%(P%):B%=B%+Z%:�line:f%(P%)=�:� P%=20 C%=C%+1:�c
�T%=� "A.RECORD"
�0�# T%=A%*100:�#T%,D%,M%,Y%,I%,P%,0,Z%,B%,pe$
/� pp%(P%)>=0 � �# T%=pp%(P%)*100+25:�#T%,A%
�#0
!pp%(P%)=A%:A%=A%+1:S%=A%:�s_d
$�f_s
.M� A%=1000 �26,12:�'"Data saved, RECORD full please start a fresh disc.":�
8�
B 
L	��p_d
VP%=4
`�
j.� f%(P%) � fq%(P%)=1 � D%<>date%(P%) �flag
t.� f%(P%) � fq%(P%)>1 � I%<>date%(P%) �flag
~"� pay%(P%)=0 � f%(P%)=� � �tpD
�!� fq%(P%)=1 � D%=date%(P%) �s
�!� 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:�
� 
�:��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:�
( 
2��s
<� (st%(P%)�&FFFF)>M% �
F� st%(P%)�&10000>D% �
P#st%(P%)=0:� n_pay%(P%)=0 �pay:�
ZX� fpay%(P%)<>0 t%=pay%(P%):pay%(P%)=fpay%(P%):�pay:fpay%(P%)=0:pay%(P%)=t%:�deduct:�
d@� n_pay%(P%)=1 � lpay%(P%)<>0 pay%(P%)=lpay%(P%):lpay%(P%)=0
n�pay:�deduct:�
x 
���strip(a$)
�)r%=�:� �a$,2)="|." r%=�:a$=�a$,�a$-2)
�� R%=�a$,"|"):� R%=0 � �tjE
�4� R%=1 a$=�a$,�a$-2) �a$=�a$,R%-1)+�a$,�a$-R%-1)
�� R%=0:�a$;:� r% �
��
� 
�(��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$
� 
�
ݤcash
�!`%=0:`$="0":d%=0:d$="0":po%=0
�mo$:� mo$="" =0
l%=�mo$:po%=�mo$,".")
� po%=1 � �TlF
"*� po%=0 `$=mo$:� �DJF:� `$=�mo$,po%-1)
,d$=�mo$,l%-po%)
6� �d$=1 d$=d$+"0"
@� `$="" `$=`$+"0"
J`%=�(`$):d%=�(d$)
T+� P%>=O% =(`%*100+d%)*(-1) � =`%*100+d%
^ 
hݤget(a$):*FX21,0
r� K%=�a$,�):� K%<>0:=K%
�

00000000  0d 00 0a 0b f4 20 3e 42  41 4e 4b 0d 00 14 39 f4  |..... >BANK...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 31 20  5a 65 72 6f 20 70 61 79  |  V 1.1 Zero pay|
00000040  6d 65 6e 74 0d 00 1e 04  0d 00 28 50 ef 32 36 2c  |ment......(P.26,|
00000050  31 32 3a 41 25 3d 30 3a  42 25 3d 30 3a 46 25 3d  |12:A%=0:B%=0:F%=|
00000060  30 3a 47 25 3d a3 3a 4f  25 3d 36 3a 53 25 3d 30  |0:G%=.:O%=6:S%=0|
00000070  3a 57 25 3d a3 3a 5a 25  3d 30 3a 73 25 3d a3 3a  |:W%=.:Z%=0:s%=.:|
00000080  70 65 24 3d c4 33 36 2c  22 20 22 29 3a 61 24 3d  |pe$=.36," "):a$=|
00000090  c4 38 30 2c 22 20 22 29  0d 00 32 3a f2 68 65 61  |.80," ")..2:.hea|
000000a0  64 3a f2 6d 66 28 22 7c  2e 7c 2e 7c 2e 7c 2e 7c  |d:.mf("|.|.|.|.||
000000b0  48 20 4c 6f 61 64 69 6e  67 20 44 61 74 61 20 7c  |H Loading Data ||
000000c0  4e 7c 49 20 50 6c 65 61  73 65 20 77 61 69 74 2e  |N|I Please wait.|
000000d0  22 29 0d 00 3c 76 de 64  61 79 24 28 37 29 2c 6d  |")..<v.day$(7),m|
000000e0  6f 6e 74 68 24 28 31 32  29 2c 6d 25 28 31 32 29  |onth$(12),m%(12)|
000000f0  2c 70 61 79 25 28 32 30  29 2c 66 70 61 79 25 28  |,pay%(20),fpay%(|
00000100  32 30 29 2c 6c 70 61 79  25 28 32 30 29 2c 66 25  |20),lpay%(20),f%|
00000110  28 32 30 29 2c 6e 5f 70  61 79 25 28 32 30 29 2c  |(20),n_pay%(20),|
00000120  73 74 25 28 32 30 29 2c  64 61 74 65 25 28 32 30  |st%(20),date%(20|
00000130  29 2c 66 71 25 28 32 30  29 2c 70 70 25 28 32 30  |),fq%(20),pp%(20|
00000140  29 2c 70 24 28 32 30 29  0d 00 46 54 54 25 3d 8e  |),p$(20)..FTT%=.|
00000150  22 41 2e 44 41 54 41 22  3a e3 20 51 25 3d 31 20  |"A.DATA":. Q%=1 |
00000160  b8 20 31 32 3a e8 23 54  25 2c 6d 6f 6e 74 68 24  |. 12:.#T%,month$|
00000170  28 51 25 29 2c 6d 25 28  51 25 29 3a ed 3a e3 20  |(Q%),m%(Q%):.:. |
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  3a d9 23 30 0d 00 50 0f  |y$(Q%):.:.#0..P.|
000001a0  2a 4c 4f 41 44 20 24 26  43 30 30 0d 00 5a 24 51  |*LOAD $&C00..Z$Q|
000001b0  25 3d 30 3a 54 25 3d 8e  22 41 2e 46 49 4c 45 22  |%=0:T%=."A.FILE"|
000001c0  3a f5 3a cf 23 20 54 25  3d 51 25 2a 31 30 30 0d  |:.:.# T%=Q%*100.|
000001d0  00 64 60 e8 23 54 25 2c  70 61 79 25 28 51 25 29  |.d`.#T%,pay%(Q%)|
000001e0  2c 66 70 61 79 25 28 51  25 29 2c 6c 70 61 79 25  |,fpay%(Q%),lpay%|
000001f0  28 51 25 29 2c 66 25 28  51 25 29 2c 6e 5f 70 61  |(Q%),f%(Q%),n_pa|
00000200  79 25 28 51 25 29 2c 66  71 25 28 51 25 29 2c 73  |y%(Q%),fq%(Q%),s|
00000210  74 25 28 51 25 29 2c 64  61 74 65 25 28 51 25 29  |t%(Q%),date%(Q%)|
00000220  2c 70 70 25 28 51 25 29  2c 70 24 28 51 25 29 0d  |,pp%(Q%),p$(Q%).|
00000230  00 6e 17 51 25 3d 51 25  2b 31 3a fd 20 51 25 3e  |.n.Q%=Q%+1:. Q%>|
00000240  32 30 3a d9 23 30 0d 00  78 30 f2 67 5f 64 3a f2  |20:.#0..x0.g_d:.|
00000250  63 3a db 3a f2 68 65 61  64 3a f2 76 64 75 28 32  |c:.:.head:.vdu(2|
00000260  31 2c 32 34 29 3a e7 20  53 25 3e 30 20 f2 73 68  |1,24):. S%>0 .sh|
00000270  6f 77 28 32 30 29 0d 00  82 04 0d 00 8c 0d f5 3a  |ow(20).........:|
00000280  2a 46 58 32 31 2c 30 0d  00 96 3f f2 64 28 37 29  |*FX21,0...?.d(7)|
00000290  3a f1 27 3b 43 25 2c 41  25 3b 22 20 20 22 3b 3a  |:.';C%,A%;"  ";:|
000002a0  e7 20 57 25 20 f2 6d 66  28 22 7c 48 6f 64 64 2e  |. W% .mf("|Hodd.|
000002b0  7c 2e 22 29 20 8b f2 6d  66 28 22 7c 48 65 76 65  ||.") ..mf("|Heve|
000002c0  6e 2e 7c 2e 22 29 0d 00  a0 27 d6 26 39 30 30 3a  |n.|.")...'.&900:|
000002d0  4a 25 3d a4 67 65 74 28  bd 31 33 2b 22 54 41 49  |J%=.get(.13+"TAI|
000002e0  44 57 5a 43 20 56 50 4c  4a 45 46 22 29 0d 00 aa  |DWZC VPLJEF")...|
000002f0  19 e7 20 4a 25 3e 31 20  80 20 4a 25 3c 36 20 50  |.. J%>1 . J%<6 P|
00000300  25 3d 4a 25 2d 32 0d 00  b4 1a e7 20 4a 25 3e 35  |%=J%-2..... J%>5|
00000310  20 80 20 4a 25 3c 39 20  50 25 3d 4a 25 2b 31 32  | . J%<9 P%=J%+12|
00000320  0d 00 be 15 e7 20 4a 25  3d 39 20 f2 64 61 74 65  |..... J%=9 .date|
00000330  3a f2 73 5f 64 0d 00 c8  48 e7 20 4a 25 3d 31 30  |:.s_d...H. J%=10|
00000340  20 db 3a f1 22 43 68 65  63 6b 20 4e 6f 2e 20 22  | .:."Check No. "|
00000350  3b 3a f2 6d 66 28 70 24  28 32 30 29 2b 22 20 20  |;:.mf(p$(20)+"  |
00000360  22 29 3a e8 22 4e 65 77  20 63 68 65 63 6b 20 4e  |"):."New check N|
00000370  6f 20 22 43 25 3a f2 63  3a f2 73 5f 64 0d 00 d2  |o "C%:.c:.s_d...|
00000380  53 e7 20 4a 25 3d 31 31  20 ef 32 36 2c 31 32 2c  |S. J%=11 .26,12,|
00000390  32 3a 47 25 3d b9 3a f2  68 65 61 64 3a f2 73 68  |2:G%=.:.head:.sh|
000003a0  6f 77 28 35 30 29 3a ef  33 2c 32 36 2c 31 32 3a  |ow(50):.3,26,12:|
000003b0  47 25 3d a3 3a f2 68 65  61 64 3a f2 76 64 75 28  |G%=.:.head:.vdu(|
000003c0  32 31 2c 32 34 29 3a f2  73 68 6f 77 28 32 30 29  |21,24):.show(20)|
000003d0  0d 00 dc 1b e7 20 4a 25  3d 31 32 20 f2 6c 6f 6f  |..... J%=12 .loo|
000003e0  6b 3a f2 73 68 6f 77 28  32 30 29 0d 00 e6 15 e7  |k:.show(20).....|
000003f0  20 4a 25 3d 31 33 20 d7  22 41 44 4a 55 53 54 22  | J%=13 ."ADJUST"|
00000400  0d 00 f0 13 e7 20 4a 25  3d 31 34 20 d7 22 45 44  |..... J%=14 ."ED|
00000410  49 54 22 0d 00 fa 13 e7  20 4a 25 3d 31 35 20 d7  |IT"..... J%=15 .|
00000420  22 50 4c 41 4e 22 0d 01  04 16 e7 20 4a 25 3e 31  |"PLAN"..... J%>1|
00000430  20 80 20 4a 25 3c 39 20  f2 70 61 79 0d 01 0e 08  | . J%<9 .pay....|
00000440  f2 70 5f 64 0d 01 18 07  fd 20 30 0d 01 22 04 0d  |.p_d..... 0.."..|
00000450  01 2c 89 dd f2 61 73 6b  3a ef 32 38 2c 31 30 2c  |.,...ask:.28,10,|
00000460  31 35 2c 37 30 2c 39 2c  31 32 3a f1 27 8a 31 30  |15,70,9,12:.'.10|
00000470  29 22 44 6f 20 79 6f 75  20 77 69 73 68 20 74 6f  |)"Do you wish to|
00000480  20 6c 6f 6f 6b 20 61 74  20 73 70 65 63 69 66 69  | look at specifi|
00000490  63 20 70 61 79 6d 65 6e  74 73 20 59 2f 4e 20 22  |c payments Y/N "|
000004a0  3b 3a e7 20 a4 67 65 74  28 22 59 4e 22 29 3d 31  |;:. .get("YN")=1|
000004b0  20 e8 27 8a 31 30 29 22  53 65 61 72 63 68 20 73  | .'.10)"Search s|
000004c0  74 72 69 6e 67 20 22 74  24 3a 73 25 3d b9 3a 74  |tring "t$:s%=.:t|
000004d0  24 3d a4 63 28 74 24 29  0d 01 36 10 f2 76 64 75  |$=.c(t$)..6..vdu|
000004e0  28 33 2c 32 34 29 3a e1  0d 01 40 04 0d 01 4a 21  |(3,24):...@...J!|
000004f0  dd f2 63 3a 70 24 28 32  30 29 3d 22 7c 48 22 2b  |..c:p$(20)="|H"+|
00000500  c3 28 43 25 29 2b 22 7c  4e 20 22 3a e1 0d 01 54  |.(C%)+"|N ":...T|
00000510  05 20 0d 01 5e 22 dd f2  64 28 4c 25 29 3a e7 20  |. ..^"..d(L%):. |
00000520  4c 25 3d 37 20 db 3a f1  64 61 79 24 28 49 25 29  |L%=7 .:.day$(I%)|
00000530  22 20 22 3b 0d 01 68 1d  f1 3b 44 25 3b 8a 4c 25  |" ";..h..;D%;.L%|
00000540  29 6d 6f 6e 74 68 24 28  4d 25 29 22 20 22 3b 3a  |)month$(M%)" ";:|
00000550  e1 0d 01 72 05 20 0d 01  7c 0a dd f2 64 61 74 65  |...r. ..|...date|
00000560  0d 01 86 1c e7 28 59 25  2d 31 39 38 34 29 83 20  |.....(Y%-1984). |
00000570  34 3d 30 20 6d 25 28 32  29 3d 32 39 0d 01 90 24  |4=0 m%(2)=29...$|
00000580  44 25 3d 44 25 2b 31 3a  e7 20 44 25 3e 6d 25 28  |D%=D%+1:. D%>m%(|
00000590  4d 25 29 20 4d 25 3d 4d  25 2b 31 3a 44 25 3d 31  |M%) M%=M%+1:D%=1|
000005a0  0d 01 9a 22 e7 20 4d 25  3e 31 32 20 59 25 3d 59  |...". M%>12 Y%=Y|
000005b0  25 2b 31 3a 4d 25 3d 31  3a 44 25 3d 31 3a 57 25  |%+1:M%=1:D%=1:W%|
000005c0  3d b9 0d 01 a4 1f 49 25  3d 49 25 2b 31 3a e7 20  |=.....I%=I%+1:. |
000005d0  49 25 3e 37 20 49 25 3d  31 3a 57 25 3d ac 20 57  |I%>7 I%=1:W%=. W|
000005e0  25 0d 01 ae 5d e7 20 4d  25 3d 31 20 80 20 44 25  |%...]. M%=1 . D%|
000005f0  3d 31 20 ef 32 36 2c 33  30 3a f2 68 65 61 64 3a  |=1 .26,30:.head:|
00000600  f2 76 64 75 28 33 2c 32  30 29 3a f1 8a 32 35 2c  |.vdu(3,20):..25,|
00000610  46 25 29 3b 3a f2 6d 66  28 22 7c 48 7c 42 20 22  |F%);:.mf("|H|B "|
00000620  2b c3 28 59 25 29 2b 22  20 7c 2e 22 29 3a 46 25  |+.(Y%)+" |."):F%|
00000630  3d bc 3a f2 76 64 75 28  32 31 2c 32 34 29 0d 01  |=.:.vdu(21,24)..|
00000640  b8 05 e1 0d 01 c2 05 20  0d 01 cc 3e dd f2 64 65  |....... ...>..de|
00000650  64 75 63 74 3a 6e 5f 70  61 79 25 28 50 25 29 3d  |duct:n_pay%(P%)=|
00000660  6e 5f 70 61 79 25 28 50  25 29 2d 31 3a e7 20 6e  |n_pay%(P%)-1:. n|
00000670  5f 70 61 79 25 28 50 25  29 3d 30 20 70 61 79 25  |_pay%(P%)=0 pay%|
00000680  28 50 25 29 3d 30 0d 01  d6 0a f2 66 5f 73 3a e1  |(P%)=0.....f_s:.|
00000690  0d 01 e0 04 0d 01 ea 86  dd f2 66 5f 73 3a 54 25  |..........f_s:T%|
000006a0  3d ad 22 41 2e 46 49 4c  45 22 3a cf 23 20 54 25  |=."A.FILE":.# T%|
000006b0  3d 50 25 2a 31 30 30 3a  f1 23 54 25 2c 70 61 79  |=P%*100:.#T%,pay|
000006c0  25 28 50 25 29 2c 66 70  61 79 25 28 50 25 29 2c  |%(P%),fpay%(P%),|
000006d0  6c 70 61 79 25 28 50 25  29 2c 66 25 28 50 25 29  |lpay%(P%),f%(P%)|
000006e0  2c 6e 5f 70 61 79 25 28  50 25 29 2c 66 71 25 28  |,n_pay%(P%),fq%(|
000006f0  50 25 29 2c 73 74 25 28  50 25 29 2c 64 61 74 65  |P%),st%(P%),date|
00000700  25 28 50 25 29 2c 70 70  25 28 50 25 29 2c 70 24  |%(P%),pp%(P%),p$|
00000710  28 50 25 29 3a d9 23 30  3a e1 0d 01 f4 04 0d 01  |(P%):.#0:.......|
00000720  fe 42 dd f2 66 6c 61 67  3a 66 25 28 50 25 29 3d  |.B..flag:f%(P%)=|
00000730  a3 3a 54 25 3d ad 22 41  2e 46 49 4c 45 22 3a cf  |.:T%=."A.FILE":.|
00000740  23 20 54 25 3d 50 25 2a  31 30 30 2b 31 35 3a f1  |# T%=P%*100+15:.|
00000750  23 54 25 2c 66 25 28 50  25 29 3a d9 23 30 3a e1  |#T%,f%(P%):.#0:.|
00000760  0d 02 08 05 20 0d 02 12  3d dd f2 67 5f 64 3a 55  |.... ...=..g_d:U|
00000770  25 3d ad 20 22 41 2e 44  41 54 45 22 3a e8 23 55  |%=. "A.DATE":.#U|
00000780  25 2c 59 25 2c 43 25 2c  57 25 2c 41 25 2c 4f 25  |%,Y%,C%,W%,A%,O%|
00000790  2c 53 25 2c 44 25 2c 4d  25 2c 49 25 3a d9 23 30  |,S%,D%,M%,I%:.#0|
000007a0  3a e1 0d 02 1c 05 20 0d  02 26 41 dd f2 68 65 61  |:..... ..&A..hea|
000007b0  64 3a f2 6d 66 28 c4 32  30 2c 22 20 22 29 2b 22  |d:.mf(.20," ")+"|
000007c0  7c 42 42 61 6e 6b 20 41  63 63 6f 75 6e 74 20 2d  ||BBank Account -|
000007d0  20 56 7c 4e 20 31 2e 31  20 20 20 22 2b c3 28 59  | V|N 1.1   "+.(Y|
000007e0  25 29 2b 22 7c 2e 22 29  0d 02 30 5a f2 6d 66 28  |%)+"|.")..0Z.mf(|
000007f0  22 7c 53 44 61 74 65 20  20 20 20 20 20 49 74 65  |"|SDate      Ite|
00000800  6d 22 2b c4 32 38 2c 22  20 22 29 2b 22 57 69 74  |m"+.28," ")+"Wit|
00000810  68 64 72 61 77 61 6c 73  20 20 20 20 20 44 65 70  |hdrawals     Dep|
00000820  6f 73 69 74 73 20 20 20  20 20 20 42 61 6c 61 6e  |osits      Balan|
00000830  63 65 7c 2e 22 29 3a f1  c4 38 30 2c 22 2d 22 29  |ce|."):..80,"-")|
00000840  3a e1 0d 02 3a 05 20 0d  02 44 0a dd f2 6c 69 6e  |:...:. ..D...lin|
00000850  65 0d 02 4e 2d e7 20 ac  20 47 25 20 db 3a f2 76  |e..N-. . G% .:.v|
00000860  64 75 28 33 2c 32 30 29  3a ef 33 31 2c 30 2c 46  |du(3,20):.31,0,F|
00000870  25 3a e7 20 41 25 3d 30  20 f2 64 28 33 29 0d 02  |%:. A%=0 .d(3)..|
00000880  58 1f e7 20 41 25 3e 30  20 e7 20 44 25 3c 3e 58  |X.. A%>0 . D%<>X|
00000890  25 20 f2 64 28 33 29 3a  58 25 3d 44 25 0d 02 62  |% .d(3):X%=D%..b|
000008a0  2d f1 8a 31 30 29 3b 3a  f2 6d 66 28 c0 70 65 24  |-..10);:.mf(.pe$|
000008b0  2c 33 32 29 29 3a f2 70  28 34 33 29 3a e7 20 5a  |,32)):.p(43):. Z|
000008c0  25 3e 30 20 f2 70 28 35  36 29 0d 02 6c 27 f2 6d  |%>0 .p(56)..l'.m|
000008d0  6f 6e 65 79 28 94 28 5a  25 29 29 3a f2 70 28 36  |oney(.(Z%)):.p(6|
000008e0  39 29 3a e7 20 42 25 3c  30 20 fb 30 3a fb 31 32  |9):. B%<0 .0:.12|
000008f0  39 0d 02 76 18 f2 6d 6f  6e 65 79 28 42 25 29 3a  |9..v..money(B%):|
00000900  fb 31 32 38 3a fb 31 3a  f1 0d 02 80 16 46 25 3d  |.128:.1:.....F%=|
00000910  bc 3a f2 76 64 75 28 32  31 2c 32 34 29 3a e1 0d  |.:.vdu(21,24):..|
00000920  02 8a 05 20 0d 02 94 0a  dd f2 6c 6f 6f 6b 0d 02  |... ......look..|
00000930  9e 3a f2 76 64 75 28 31  2c 31 29 3a f1 8a 34 32  |.:.vdu(1,1):..42|
00000940  2c 30 29 3b 3a f2 6d 66  28 c4 33 31 2c 22 20 22  |,0);:.mf(.31," "|
00000950  29 2b 22 7c 53 41 6d 6f  75 6e 74 22 29 3a f2 76  |)+"|SAmount"):.v|
00000960  64 75 28 33 2c 32 34 29  0d 02 a8 07 f5 3a db 0d  |du(3,24).....:..|
00000970  02 b2 0f e3 20 50 25 3d  30 20 b8 20 32 30 0d 02  |.... P%=0 . 20..|
00000980  bc 3d e7 20 50 25 3e 33  20 80 20 50 25 3c 4f 25  |.=. P%>3 . P%<O%|
00000990  20 f2 6d 66 28 22 7c 48  22 2b bd 28 36 35 2b 50  | .mf("|H"+.(65+P|
000009a0  25 29 2b 22 20 20 7c 4e  20 20 22 29 20 8b f1 bd  |%)+"  |N  ") ...|
000009b0  28 36 35 2b 50 25 29 8a  35 29 3b 0d 02 c6 13 f2  |(65+P%).5);.....|
000009c0  6d 66 28 70 24 28 50 25  29 29 3a f1 3a ed 0d 02  |mf(p$(P%)):.:...|
000009d0  d0 43 f2 6d 66 28 22 7c  49 57 68 69 63 68 20 64  |.C.mf("|IWhich d|
000009e0  6f 20 79 6f 75 20 77 69  73 68 20 74 6f 20 6c 69  |o you wish to li|
000009f0  73 74 20 3f 20 6f 72 20  7c 4e 7c 48 52 45 54 55  |st ? or |N|HRETU|
00000a00  52 4e 7c 4e 7c 49 20 74  6f 20 71 75 69 74 20 22  |RN|N|I to quit "|
00000a10  29 0d 02 da 36 56 25 3d  a4 67 65 74 28 bd 31 33  |)...6V%=.get(.13|
00000a20  2b 22 41 42 43 44 45 46  47 48 49 4a 4b 4c 4d 4e  |+"ABCDEFGHIJKLMN|
00000a30  4f 50 51 52 53 54 55 22  29 3a e7 20 56 25 3d 31  |OPQRSTU"):. V%=1|
00000a40  20 e5 20 8d 44 48 43 0d  02 e4 10 e7 20 56 25 3e  | . .DHC..... V%>|
00000a50  32 30 20 f2 61 73 6b 0d  02 ee 1a db 3a e7 20 70  |20 .ask.....:. p|
00000a60  70 25 28 56 25 2d 32 29  3d 2d 31 20 e5 8d 54 7e  |p%(V%-2)=-1 ..T~|
00000a70  43 0d 02 f8 19 41 25 3d  2d 31 3a 54 25 3d ad 20  |C....A%=-1:T%=. |
00000a80  22 41 2e 52 45 43 4f 52  44 22 0d 03 02 31 f5 3a  |"A.RECORD"...1.:|
00000a90  41 25 3d 41 25 2b 31 3a  f2 72 3a fd 20 50 25 3d  |A%=A%+1:.r:. P%=|
00000aa0  56 25 2d 32 20 84 20 41  25 3e 53 25 3a e7 20 41  |V%-2 . A%>S%:. A|
00000ab0  25 3e 53 25 20 8c 20 8d  54 7e 43 0d 03 0c 24 f5  |%>S% . .T~C...$.|
00000ac0  3a f2 72 3a e7 20 73 25  20 e7 20 a7 a4 63 28 70  |:.r:. s% . ..c(p|
00000ad0  65 24 29 2c 74 24 29 3d  30 20 8c 8d 54 6a 43 0d  |e$),t$)=0 ..TjC.|
00000ae0  03 16 37 f2 64 28 33 29  3a f2 6d 66 28 22 20 20  |..7.d(3):.mf("  |
00000af0  20 22 2b 70 65 24 2b 22  20 22 29 3a f5 20 ef 34  | "+pe$+" "):. .4|
00000b00  36 3a fd 20 b1 3d 36 39  3a e7 20 50 25 3e 32 20  |6:. .=69:. P%>2 |
00000b10  5a 25 3d 94 5a 25 0d 03  20 10 f2 6d 6f 6e 65 79  |Z%=.Z%.. ..money|
00000b20  28 5a 25 29 3a f1 0d 03  2a 17 e7 20 41 25 3c 6e  |(Z%):...*.. A%<n|
00000b30  65 78 74 25 20 41 25 3d  6e 65 78 74 25 0d 03 34  |ext% A%=next%..4|
00000b40  1c fd 20 41 25 3e 6e 65  78 74 25 20 84 20 6e 65  |.. A%>next% . ne|
00000b50  78 74 25 3d 30 3a d9 23  30 0d 03 3e 2b f2 6d 66  |xt%=0:.#0..>+.mf|
00000b60  28 c4 33 30 2c 22 20 22  29 2b 22 7c 42 7c 48 20  |(.30," ")+"|B|H |
00000b70  48 69 74 20 61 20 6b 65  79 20 7c 2e 22 29 3a f5  |Hit a key |."):.|
00000b80  20 fd 20 a5 0d 03 48 27  73 25 3d a3 3a fd 20 56  | . ...H's%=.:. V|
00000b90  25 3d 31 3a 41 25 3d 53  25 3a ef 32 36 2c 31 35  |%=1:A%=S%:.26,15|
00000ba0  2c 31 32 3a f2 68 65 61  64 3a e1 0d 03 52 05 20  |,12:.head:...R. |
00000bb0  0d 03 5c 27 dd f2 6d 66  28 61 24 29 3a e7 20 47  |..\'..mf(a$):. G|
00000bc0  25 20 f2 73 74 72 69 70  28 61 24 29 3a e1 20 8b  |% .strip(a$):. .|
00000bd0  d6 93 2c 61 24 3a e1 0d  03 66 05 20 0d 03 70 2c  |..,a$:...f. ..p,|
00000be0  dd f2 6d 6f 6e 65 79 28  6d 25 29 3a 40 25 3d 26  |..money(m%):@%=&|
00000bf0  32 30 32 30 41 3a f1 6d  25 2f 31 30 30 3b 3a 40  |2020A:.m%/100;:@|
00000c00  25 3d 26 39 30 41 3a e1  0d 03 7a 04 0d 03 84 18  |%=&90A:...z.....|
00000c10  dd f2 70 28 78 25 29 3a  f5 ef 33 32 3a fd b1 3d  |..p(x%):..32:..=|
00000c20  78 25 3a e1 0d 03 8e 04  0d 03 98 09 dd f2 70 61  |x%:...........pa|
00000c30  79 0d 03 a2 1f f2 64 28  37 29 3a f2 6d 66 28 22  |y.....d(7):.mf("|
00000c40  7c 48 20 22 2b 70 24 28  50 25 29 2b 22 20 22 29  ||H "+p$(P%)+" ")|
00000c50  0d 03 ac 44 e7 20 50 25  3e 31 38 20 e8 22 20 20  |...D. P%>18 ."  |
00000c60  50 61 79 65 65 20 22 6d  24 3a e7 20 50 25 3d 31  |Payee "m$:. P%=1|
00000c70  39 20 70 65 24 3d 22 7c  43 22 2b 6d 24 20 8b e7  |9 pe$="|C"+m$ ..|
00000c80  20 50 25 3d 32 30 20 70  65 24 3d 70 24 28 32 30  | P%=20 pe$=p$(20|
00000c90  29 2b 6d 24 0d 03 b6 16  e7 20 50 25 3c 31 39 20  |)+m$..... P%<19 |
00000ca0  70 65 24 3d 70 24 28 50  25 29 0d 03 c0 10 70 65  |pe$=p$(P%)....pe|
00000cb0  24 3d c0 70 65 24 2c 33  36 29 0d 03 ca 64 e7 20  |$=.pe$,36)...d. |
00000cc0  50 25 3e 33 20 80 20 50  25 3c 31 38 20 f1 22 20  |P%>3 . P%<18 ." |
00000cd0  60 22 3b 3a f2 6d 6f 6e  65 79 28 94 28 70 61 79  |`";:.money(.(pay|
00000ce0  25 28 50 25 29 29 29 3a  f2 6d 66 28 22 7c 49 20  |%(P%))):.mf("|I |
00000cf0  20 20 49 73 20 61 6d 6f  75 6e 74 20 63 6f 72 72  |  Is amount corr|
00000d00  65 63 74 20 3f 20 22 29  3a e7 20 a4 67 65 74 28  |ect ? "):. .get(|
00000d10  22 4e 59 22 29 3d 32 20  8c 20 8d 64 5e 43 0d 03  |"NY")=2 . .d^C..|
00000d20  d4 75 f2 6d 66 28 22 7c  2e 7c 43 41 6d 6f 75 6e  |.u.mf("|.|CAmoun|
00000d30  74 2e 20 7c 4e 60 20 22  29 3a 70 61 79 25 28 50  |t. |N` "):pay%(P|
00000d40  25 29 3d a4 63 61 73 68  3a e7 20 50 25 3c 33 20  |%)=.cash:. P%<3 |
00000d50  f2 6d 66 28 22 7c 43 44  65 62 69 74 20 7c 4e 6f  |.mf("|CDebit |No|
00000d60  72 20 7c 43 43 72 65 64  69 74 20 22 29 3a e7 20  |r |CCredit "):. |
00000d70  a4 67 65 74 28 22 44 43  22 29 3d 31 20 70 61 79  |.get("DC")=1 pay|
00000d80  25 28 50 25 29 3d 70 61  79 25 28 50 25 29 2a 28  |%(P%)=pay%(P%)*(|
00000d90  2d 31 29 0d 03 de 18 e7  20 70 61 79 25 28 50 25  |-1)..... pay%(P%|
00000da0  29 3d 30 20 db 3a e5 8d  64 6a 41 0d 03 e8 3a 5a  |)=0 .:..djA...:Z|
00000db0  25 3d 70 61 79 25 28 50  25 29 3a 42 25 3d 42 25  |%=pay%(P%):B%=B%|
00000dc0  2b 5a 25 3a f2 6c 69 6e  65 3a 66 25 28 50 25 29  |+Z%:.line:f%(P%)|
00000dd0  3d b9 3a e7 20 50 25 3d  32 30 20 43 25 3d 43 25  |=.:. P%=20 C%=C%|
00000de0  2b 31 3a f2 63 0d 03 f2  13 54 25 3d ad 20 22 41  |+1:.c....T%=. "A|
00000df0  2e 52 45 43 4f 52 44 22  0d 03 fc 30 cf 23 20 54  |.RECORD"...0.# T|
00000e00  25 3d 41 25 2a 31 30 30  3a f1 23 54 25 2c 44 25  |%=A%*100:.#T%,D%|
00000e10  2c 4d 25 2c 59 25 2c 49  25 2c 50 25 2c 30 2c 5a  |,M%,Y%,I%,P%,0,Z|
00000e20  25 2c 42 25 2c 70 65 24  0d 04 06 2f e7 20 70 70  |%,B%,pe$.../. pp|
00000e30  25 28 50 25 29 3e 3d 30  20 8c 20 cf 23 20 54 25  |%(P%)>=0 . .# T%|
00000e40  3d 70 70 25 28 50 25 29  2a 31 30 30 2b 32 35 3a  |=pp%(P%)*100+25:|
00000e50  f1 23 54 25 2c 41 25 0d  04 10 07 d9 23 30 0d 04  |.#T%,A%.....#0..|
00000e60  1a 21 70 70 25 28 50 25  29 3d 41 25 3a 41 25 3d  |.!pp%(P%)=A%:A%=|
00000e70  41 25 2b 31 3a 53 25 3d  41 25 3a f2 73 5f 64 0d  |A%+1:S%=A%:.s_d.|
00000e80  04 24 08 f2 66 5f 73 0d  04 2e 4d e7 20 41 25 3d  |.$..f_s...M. A%=|
00000e90  31 30 30 30 20 ef 32 36  2c 31 32 3a f1 27 22 44  |1000 .26,12:.'"D|
00000ea0  61 74 61 20 73 61 76 65  64 2c 20 52 45 43 4f 52  |ata saved, RECOR|
00000eb0  44 20 66 75 6c 6c 20 70  6c 65 61 73 65 20 73 74  |D full please st|
00000ec0  61 72 74 20 61 20 66 72  65 73 68 20 64 69 73 63  |art a fresh disc|
00000ed0  2e 22 3a e0 0d 04 38 05  e1 0d 04 42 05 20 0d 04  |.":...8....B. ..|
00000ee0  4c 09 dd f2 70 5f 64 0d  04 56 08 50 25 3d 34 0d  |L...p_d..V.P%=4.|
00000ef0  04 60 05 f5 0d 04 6a 2e  e7 20 66 25 28 50 25 29  |.`....j.. f%(P%)|
00000f00  20 e7 20 66 71 25 28 50  25 29 3d 31 20 80 20 44  | . fq%(P%)=1 . D|
00000f10  25 3c 3e 64 61 74 65 25  28 50 25 29 20 f2 66 6c  |%<>date%(P%) .fl|
00000f20  61 67 0d 04 74 2e e7 20  66 25 28 50 25 29 20 e7  |ag..t.. f%(P%) .|
00000f30  20 66 71 25 28 50 25 29  3e 31 20 80 20 49 25 3c  | fq%(P%)>1 . I%<|
00000f40  3e 64 61 74 65 25 28 50  25 29 20 f2 66 6c 61 67  |>date%(P%) .flag|
00000f50  0d 04 7e 22 e7 20 70 61  79 25 28 50 25 29 3d 30  |..~". pay%(P%)=0|
00000f60  20 84 20 66 25 28 50 25  29 3d b9 20 8c 20 8d 74  | . f%(P%)=. . .t|
00000f70  70 44 0d 04 88 21 e7 20  66 71 25 28 50 25 29 3d  |pD...!. fq%(P%)=|
00000f80  31 20 80 20 44 25 3d 64  61 74 65 25 28 50 25 29  |1 . D%=date%(P%)|
00000f90  20 f2 73 0d 04 92 21 e7  20 66 71 25 28 50 25 29  | .s...!. fq%(P%)|
00000fa0  3d 32 20 80 20 49 25 3d  64 61 74 65 25 28 50 25  |=2 . I%=date%(P%|
00000fb0  29 20 f2 73 0d 04 9c 26  e7 20 66 71 25 28 50 25  |) .s...&. fq%(P%|
00000fc0  29 3d 33 20 80 20 57 25  20 80 20 49 25 3d 64 61  |)=3 . W% . I%=da|
00000fd0  74 65 25 28 50 25 29 20  f2 73 0d 04 a6 28 e7 20  |te%(P%) .s...(. |
00000fe0  66 71 25 28 50 25 29 3d  34 20 80 20 ac 20 57 25  |fq%(P%)=4 . . W%|
00000ff0  20 80 20 49 25 3d 64 61  74 65 25 28 50 25 29 20  | . I%=date%(P%) |
00001000  f2 73 0d 04 b0 15 50 25  3d 50 25 2b 31 3a fd 20  |.s....P%=P%+1:. |
00001010  50 25 3d 31 38 3a e1 0d  04 ba 05 20 0d 04 c4 3a  |P%=18:..... ...:|
00001020  dd f2 72 3a cf 23 20 54  25 3d 41 25 2a 31 30 30  |..r:.# T%=A%*100|
00001030  3a e8 23 54 25 2c 44 25  2c 4d 25 2c 59 25 2c 49  |:.#T%,D%,M%,Y%,I|
00001040  25 2c 50 25 2c 6e 65 78  74 25 2c 5a 25 2c 42 25  |%,P%,next%,Z%,B%|
00001050  2c 70 65 24 3a e1 0d 04  ce 05 20 0d 04 d8 3d dd  |,pe$:..... ...=.|
00001060  f2 73 5f 64 3a 55 25 3d  ad 20 22 41 2e 44 41 54  |.s_d:U%=. "A.DAT|
00001070  45 22 3a f1 23 55 25 2c  59 25 2c 43 25 2c 57 25  |E":.#U%,Y%,C%,W%|
00001080  2c 41 25 2c 4f 25 2c 53  25 2c 44 25 2c 4d 25 2c  |,A%,O%,S%,D%,M%,|
00001090  49 25 3a d9 23 30 3a e1  0d 04 e2 05 20 0d 04 ec  |I%:.#0:..... ...|
000010a0  0e dd f2 73 68 6f 77 28  51 25 29 0d 04 f6 22 e7  |...show(Q%)...".|
000010b0  20 ac 47 25 20 f2 76 64  75 28 33 2c 32 32 29 3a  | .G% .vdu(3,22):|
000010c0  db 3a 46 25 3d 30 20 8b  20 46 25 3d 33 0d 05 00  |.:F%=0 . F%=3...|
000010d0  1b e7 20 41 25 3e 51 25  20 41 25 3d 41 25 2d 51  |.. A%>Q% A%=A%-Q|
000010e0  25 20 8b 20 41 25 3d 30  0d 05 0a 13 54 25 3d ad  |% . A%=0....T%=.|
000010f0  20 22 41 2e 52 45 43 4f  52 44 22 0d 05 14 16 f5  | "A.RECORD".....|
00001100  3a f2 72 3a e7 20 50 25  3c 39 39 20 f2 6c 69 6e  |:.r:. P%<99 .lin|
00001110  65 0d 05 1e 1e 41 25 3d  41 25 2b 31 3a fd 20 41  |e....A%=A%+1:. A|
00001120  25 3d 53 25 3a d9 23 30  3a f2 67 5f 64 3a e1 0d  |%=S%:.#0:.g_d:..|
00001130  05 28 05 20 0d 05 32 07  dd f2 73 0d 05 3c 1a e7  |.(. ..2...s..<..|
00001140  20 28 73 74 25 28 50 25  29 80 26 46 46 46 46 29  | (st%(P%).&FFFF)|
00001150  3e 4d 25 20 e1 0d 05 46  19 e7 20 73 74 25 28 50  |>M% ...F.. st%(P|
00001160  25 29 81 26 31 30 30 30  30 3e 44 25 20 e1 0d 05  |%).&10000>D% ...|
00001170  50 23 73 74 25 28 50 25  29 3d 30 3a e7 20 6e 5f  |P#st%(P%)=0:. n_|
00001180  70 61 79 25 28 50 25 29  3d 30 20 f2 70 61 79 3a  |pay%(P%)=0 .pay:|
00001190  e1 0d 05 5a 58 e7 20 66  70 61 79 25 28 50 25 29  |...ZX. fpay%(P%)|
000011a0  3c 3e 30 20 74 25 3d 70  61 79 25 28 50 25 29 3a  |<>0 t%=pay%(P%):|
000011b0  70 61 79 25 28 50 25 29  3d 66 70 61 79 25 28 50  |pay%(P%)=fpay%(P|
000011c0  25 29 3a f2 70 61 79 3a  66 70 61 79 25 28 50 25  |%):.pay:fpay%(P%|
000011d0  29 3d 30 3a 70 61 79 25  28 50 25 29 3d 74 25 3a  |)=0:pay%(P%)=t%:|
000011e0  f2 64 65 64 75 63 74 3a  e1 0d 05 64 40 e7 20 6e  |.deduct:...d@. n|
000011f0  5f 70 61 79 25 28 50 25  29 3d 31 20 e7 20 6c 70  |_pay%(P%)=1 . lp|
00001200  61 79 25 28 50 25 29 3c  3e 30 20 70 61 79 25 28  |ay%(P%)<>0 pay%(|
00001210  50 25 29 3d 6c 70 61 79  25 28 50 25 29 3a 6c 70  |P%)=lpay%(P%):lp|
00001220  61 79 25 28 50 25 29 3d  30 0d 05 6e 12 f2 70 61  |ay%(P%)=0..n..pa|
00001230  79 3a f2 64 65 64 75 63  74 3a e1 0d 05 78 05 20  |y:.deduct:...x. |
00001240  0d 05 82 0f dd f2 73 74  72 69 70 28 61 24 29 0d  |......strip(a$).|
00001250  05 8c 29 72 25 3d a3 3a  e7 20 c2 61 24 2c 32 29  |..)r%=.:. .a$,2)|
00001260  3d 22 7c 2e 22 20 72 25  3d b9 3a 61 24 3d c0 61  |="|." r%=.:a$=.a|
00001270  24 2c a9 61 24 2d 32 29  0d 05 96 1f f5 20 52 25  |$,.a$-2)..... R%|
00001280  3d a7 61 24 2c 22 7c 22  29 3a e7 20 52 25 3d 30  |=.a$,"|"):. R%=0|
00001290  20 e5 20 8d 74 6a 45 0d  05 a0 34 e7 20 52 25 3d  | . .tjE...4. R%=|
000012a0  31 20 61 24 3d c2 61 24  2c a9 61 24 2d 32 29 20  |1 a$=.a$,.a$-2) |
000012b0  8b 61 24 3d c0 61 24 2c  52 25 2d 31 29 2b c2 61  |.a$=.a$,R%-1)+.a|
000012c0  24 2c a9 61 24 2d 52 25  2d 31 29 0d 05 aa 16 fd  |$,.a$-R%-1).....|
000012d0  20 52 25 3d 30 3a f1 61  24 3b 3a e7 20 72 25 20  | R%=0:.a$;:. r% |
000012e0  f1 0d 05 b4 05 e1 0d 05  be 05 20 0d 05 c8 28 dd  |.......... ...(.|
000012f0  f2 76 64 75 28 74 25 2c  62 25 29 3a e7 47 25 20  |.vdu(t%,b%):.G% |
00001300  e1 20 8b ef 32 38 2c 30  2c 62 25 2c 37 39 2c 74  |. ..28,0,b%,79,t|
00001310  25 3a e1 0d 05 d2 05 20  0d 05 dc 53 dd a4 63 28  |%:..... ...S..c(|
00001320  73 24 29 3a 51 25 3d 31  3a f5 3a 73 24 3d c0 73  |s$):Q%=1:.:s$=.s|
00001330  24 2c 51 25 2d 31 29 2b  bd 28 97 28 c1 73 24 2c  |$,Q%-1)+.(.(.s$,|
00001340  51 25 2c 31 29 29 84 26  32 30 29 2b c2 73 24 2c  |Q%,1)).&20)+.s$,|
00001350  a9 73 24 2d 51 25 29 3a  51 25 3d 51 25 2b 31 3a  |.s$-Q%):Q%=Q%+1:|
00001360  fd 51 25 3e a9 73 24 3a  3d 73 24 0d 05 e6 05 20  |.Q%>.s$:=s$.... |
00001370  0d 05 f0 0a dd a4 63 61  73 68 0d 05 fa 21 60 25  |......cash...!`%|
00001380  3d 30 3a 60 24 3d 22 30  22 3a 64 25 3d 30 3a 64  |=0:`$="0":d%=0:d|
00001390  24 3d 22 30 22 3a 70 6f  25 3d 30 0d 06 04 14 e8  |$="0":po%=0.....|
000013a0  6d 6f 24 3a e7 20 6d 6f  24 3d 22 22 20 3d 30 0d  |mo$:. mo$="" =0.|
000013b0  06 0e 19 6c 25 3d a9 6d  6f 24 3a 70 6f 25 3d a7  |...l%=.mo$:po%=.|
000013c0  6d 6f 24 2c 22 2e 22 29  0d 06 18 12 e7 20 70 6f  |mo$,".")..... po|
000013d0  25 3d 31 20 8c 20 8d 54  6c 46 0d 06 22 2a e7 20  |%=1 . .TlF.."*. |
000013e0  70 6f 25 3d 30 20 60 24  3d 6d 6f 24 3a e5 20 8d  |po%=0 `$=mo$:. .|
000013f0  44 4a 46 3a 8b 20 60 24  3d c0 6d 6f 24 2c 70 6f  |DJF:. `$=.mo$,po|
00001400  25 2d 31 29 0d 06 2c 13  64 24 3d c2 6d 6f 24 2c  |%-1)..,.d$=.mo$,|
00001410  6c 25 2d 70 6f 25 29 0d  06 36 15 e7 20 a9 64 24  |l%-po%)..6.. .d$|
00001420  3d 31 20 64 24 3d 64 24  2b 22 30 22 0d 06 40 15  |=1 d$=d$+"0"..@.|
00001430  e7 20 60 24 3d 22 22 20  60 24 3d 60 24 2b 22 30  |. `$="" `$=`$+"0|
00001440  22 0d 06 4a 15 60 25 3d  a0 28 60 24 29 3a 64 25  |"..J.`%=.(`$):d%|
00001450  3d a0 28 64 24 29 0d 06  54 2b e7 20 50 25 3e 3d  |=.(d$)..T+. P%>=|
00001460  4f 25 20 3d 28 60 25 2a  31 30 30 2b 64 25 29 2a  |O% =(`%*100+d%)*|
00001470  28 2d 31 29 20 8b 20 3d  60 25 2a 31 30 30 2b 64  |(-1) . =`%*100+d|
00001480  25 0d 06 5e 05 20 0d 06  68 15 dd a4 67 65 74 28  |%..^. ..h...get(|
00001490  61 24 29 3a 2a 46 58 32  31 2c 30 0d 06 72 1b f5  |a$):*FX21,0..r..|
000014a0  20 4b 25 3d a7 61 24 2c  be 29 3a fd 20 4b 25 3c  | K%=.a$,.):. K%<|
000014b0  3e 30 3a 3d 4b 25 0d ff                           |>0:=K%..|
000014b8

P/C/BANK.m0

P/C/BANK.m1

P/C/BANK.m2

P/C/BANK.m4

P/C/BANK.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .