� >ADJUST
1� >Bank Account (c) M Comley 1995  V 1.2 Menu

�26,12
(@�mf(�20," ")+"Bank Account - |BDATA ADJUSTMENT - V|N 1.2|.")
2��80,"-"):�28,0,24,79,2
<0�mf("|.|.|H Loading Data |N|I Please wait.")
F{�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)
P+A%=0:B%=0:F%=0:G%=�:O%=6:S%=0:W%=�:Z%=0
ZNT%=�"A.DATA":�Q%=1�12:�#T%,month$(Q%),m%(Q%):�:�Q%=1�7:�#T%,day$(Q%):�:�#0
d*LOAD $&C02
n#Q%=0:T%=�"A.FILE":�:�#T%=Q%*100
xe�#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
�
�
�:*FX21,0
�e�:�"Current date"�19)day$(I%)" ";D%;" "month$(M%)" "�(Y%)'"Next cheque number ";C%'"Week"�19);:�w
�"�&900:J%=�get(�13+"LCMNWDIBE")
��J%=2�look:�get_date
� �J%=3�change_date:�save_date
��J%=4�mfont
�
�J%=5�new
��J%=6�week
��J%=7�split
��J%=8�date
��J%=9�"FLEX"

�J%=10�"EDIT"

�J%>5�J%<9�save_date

�0

"

,��change_date

6Z�''"Date - Day of month "D%"Month number "M%"Year "Y%"Day of the week,Mon=1  Sun=7 "I%

@�

J

T
��date

^�(Y%-1984)� 4=0 m%(2)=29

h"D%=D%+1:�D%>m%(M%)M%=M%+1:D%=1

r!�M%>12 Y%=Y%+1:M%=1:D%=1:W%=�

|I%=I%+1:�I%>7 I%=1:W%=�W%

��

�

�A��get_date:U%=�"A.DATE":�#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:�#0:�

�

�
��look

�D@%=&405:�12,14:�"Record number to start from "A%:�A%>=S%A%=S%-20

�:�:�mf("|I  No.         Date          P% next% Text|.")

��28,0,24,79,3

�GT%=�"A.RECORD":�:�#T%=A%*100:�#T%,D%,M%,Y%,I%,P%,next%,Z%,B%,payee$

��P%=99��dtA

�@�A%" "day$(I%)D%" "month$(M%)Y%,P%,next%;:�mf("  "+payee$):�

�A%=A%+1:�A%=S%:�#0

�1@%=&90A:�mf(�15," ")+"|H Hit a key "):*FX21,0
���:�15,28,0,24,79,2,12:�

��mf(a$):֓,a$:�
&
0��mfont
:�:�"MegaFont Codes."
D�'"|B  -  ";:�mf("|BBold")
N �'"|I  -  ";:�mf("|IItalic")
X#�'"|U  -  ";:�mf("|UUnderline")
b#�'"|H  -  ";:�mf("|HHighlight")
l%�'"|R  -  ";:�mf("|RRun through")
v�'"|F  -  ";:�mf("|FFeint")
�!�'"|D  -  ";:�mf("|DDigital")
� �'"|S  -  ";:�mf("|SShadow")
�*�'"|2  -  ";:�mf("|2Double underline")
�(�'"|+  -  ";:�mf("|+Super |Nscript")
�&�'"|-  -  ";:�mf("|-Sub |Nscript")
�!�'"|O  -  ";:�mf("|OOutline")
�"�'"|C  -  ";:�mf("|CCapitals")
�&�'"|N  -  ";:�mf("|NNormal print")
�F�'"|.  -  Carrage return";:�mf("|.|.|HPlease|N |Ihit|N a |B|CKey")
�*FX21,0
�	���:�
�
�,��money(m%):@%=&2020A:�m%/100;:@%=&90A:�

	��new
��
 �P%=0�20
*1�P%>3�P%<O%�mf("|H"+�(P%)+"  |N  ")��;P%;�5);
4.�mf(p$(P%)):��32:��=43:�money(�(pay%(P%)))
>&��32:��=56:�pay%(P%)>0�"Credit  ";
H�flag%(P%)�"True"��
R�
\E�mf("|IWhich do you wish to change ? or |N|HRETURN|N|I to quit ")
f�P%:�P%>3�P%<18�new_data
p�T%=�"A.FILE":�#T%=P%*100:�#T%,pay%(P%),fpay%(P%),lpay%(P%),flag%(P%),n_pay%(P%),freq%(P%),st%(P%),date%(P%),pp%(P%),p$(P%):�#0
z�P%=0:�
�
���new_data
���
�!�''"    Payment number"�30)P%
��"A - Text"�30)p$(P%)
�(�"B - No. of payments"�30)n_pay%(P%)
�2�"C - First payment"�30);:�money(�(fpay%(P%)))
�3�'"D - Normal payment"�30);:�money(�(pay%(P%)))
�2�'"E - Last payment"�30);:�money(�(lpay%(P%)))
�*�'"F - Payment frequency"�36)freq%(P%)
�.�"G - Date or day of payment"�30)date%(P%)
�@�"H - Start date"�30)st%(P%)�&10000"  "month$(st%(P%)�&FFFF)
�7�"I - Payment flag"�36);:�flag%(P%)�"True"��"False"
<�mf("|.|.    |IChoose a letter,|N |HRETURN|N|I to quit")
(E%=�get("ABCDEFGHI"+�13):�55,E%+2);
�E%=1�input
$�E%=2�n_pay%(P%)
.�E%=3 fpay%(P%)=�cash
8�E%=4 pay%(P%)=�cash
B�E%=5 lpay%(P%)=�cash
L��E%=6�5,16)"0 - no payment"'�5)"1 - Monthly"'�5)"2 - Weekly"'�5)"3 - Fortnightly odd week"'�5)"4 - fortnightly even week":freq%(P%)=�get("01234")-1
VG�E%=7�date%(P%):�(freq%(P%)>1�date%(P%)>7)�date%(P%)>28 date%(P%)=0
`a�E%=8�"Day "d%�63,E%+2)"Month "m%:st%(P%)=d%*16^4+m%:� d%<>date%(P%) � m%<1 � m%>12 st%(P%)=0
j�E%=9 flag%(P%)=�tf
t�E%=10:�
~
���input
�Cp$(P%)="":�30,3)�36:�:�55,3)p$(P%);:payee$=�:�payee$=�13��tfD
�p$(P%)=p$(P%)+payee$
��payee$=�13��p$(P%)=36
��
�
�B��save_date:U%=�"A.DATE":�#U%,Y%,C%,W%,A%,O%,S%,D%,M%,I%:�#0:�
�
���split
��
�V�''"There are ";O%-4;" slots for paying into the account."''"Do you need more ? ";
��get("YN")=2�
*�'"Number of payment slots "O%:O%=O%+4

J�(p$(O%-1))>0�'"Not enough slots vacant! please try again":O%=6:�dlD
�

(/��w:�W%�mf("|Hodd.|."):��mf("|Heven.|."):�
2
<
��week
F=�:�'"This week is ";:�w:�"Do you wish to change week ? ";
P�get("NY")=2 W%=�W%
Z�
d
n
ݤcash
x!`%=0:`$="0":d%=0:d$="0":po%=0
��mo$:�mo$=""=0
�l%=�mo$:po%=�mo$,".")
��po%=1��tjE
�'�po%=0 `$=mo$:�dHE:�`$=�mo$,po%-1)
�d$=�mo$,l%-po%)
��d$=1 d$=d$+"0"
��`$=""`$=`$+"0"
�`%=�(`$):d%=�(d$)
�)�P%>=O%=(`%*100+d%)*(-1) � =`%*100+d%
�
�ݤget(q$):*FX21,0
��K%=�q$,�):�K%<>0:=K%
�
3ݤtf:�"True or False";:�get("TF")=1=TRUEELSE=�
�

00000000  0d 00 0a 0d f4 20 3e 41  44 4a 55 53 54 0d 00 14  |..... >ADJUST...|
00000010  31 f4 20 3e 42 61 6e 6b  20 41 63 63 6f 75 6e 74  |1. >Bank Account|
00000020  20 28 63 29 20 4d 20 43  6f 6d 6c 65 79 20 31 39  | (c) M Comley 19|
00000030  39 35 20 20 56 20 31 2e  32 20 4d 65 6e 75 0d 00  |95  V 1.2 Menu..|
00000040  1e 0a ef 32 36 2c 31 32  0d 00 28 40 f2 6d 66 28  |...26,12..(@.mf(|
00000050  c4 32 30 2c 22 20 22 29  2b 22 42 61 6e 6b 20 41  |.20," ")+"Bank A|
00000060  63 63 6f 75 6e 74 20 2d  20 7c 42 44 41 54 41 20  |ccount - |BDATA |
00000070  41 44 4a 55 53 54 4d 45  4e 54 20 2d 20 56 7c 4e  |ADJUSTMENT - V|N|
00000080  20 31 2e 32 7c 2e 22 29  0d 00 32 1b f1 c4 38 30  | 1.2|.")..2...80|
00000090  2c 22 2d 22 29 3a ef 32  38 2c 30 2c 32 34 2c 37  |,"-"):.28,0,24,7|
000000a0  39 2c 32 0d 00 3c 30 f2  6d 66 28 22 7c 2e 7c 2e  |9,2..<0.mf("|.|.|
000000b0  7c 48 20 4c 6f 61 64 69  6e 67 20 44 61 74 61 20  ||H Loading Data |
000000c0  7c 4e 7c 49 20 50 6c 65  61 73 65 20 77 61 69 74  ||N|I Please wait|
000000d0  2e 22 29 0d 00 46 7b de  64 61 79 24 28 37 29 2c  |.")..F{.day$(7),|
000000e0  6d 6f 6e 74 68 24 28 31  32 29 2c 6d 25 28 31 32  |month$(12),m%(12|
000000f0  29 2c 70 61 79 25 28 32  30 29 2c 66 70 61 79 25  |),pay%(20),fpay%|
00000100  28 32 30 29 2c 6c 70 61  79 25 28 32 30 29 2c 66  |(20),lpay%(20),f|
00000110  6c 61 67 25 28 32 30 29  2c 6e 5f 70 61 79 25 28  |lag%(20),n_pay%(|
00000120  32 30 29 2c 73 74 25 28  32 30 29 2c 64 61 74 65  |20),st%(20),date|
00000130  25 28 32 30 29 2c 66 72  65 71 25 28 32 30 29 2c  |%(20),freq%(20),|
00000140  70 70 25 28 32 30 29 2c  70 24 28 32 30 29 0d 00  |pp%(20),p$(20)..|
00000150  50 2b 41 25 3d 30 3a 42  25 3d 30 3a 46 25 3d 30  |P+A%=0:B%=0:F%=0|
00000160  3a 47 25 3d a3 3a 4f 25  3d 36 3a 53 25 3d 30 3a  |:G%=.:O%=6:S%=0:|
00000170  57 25 3d a3 3a 5a 25 3d  30 0d 00 5a 4e 54 25 3d  |W%=.:Z%=0..ZNT%=|
00000180  8e 22 41 2e 44 41 54 41  22 3a e3 51 25 3d 31 b8  |."A.DATA":.Q%=1.|
00000190  31 32 3a e8 23 54 25 2c  6d 6f 6e 74 68 24 28 51  |12:.#T%,month$(Q|
000001a0  25 29 2c 6d 25 28 51 25  29 3a ed 3a e3 51 25 3d  |%),m%(Q%):.:.Q%=|
000001b0  31 b8 37 3a e8 23 54 25  2c 64 61 79 24 28 51 25  |1.7:.#T%,day$(Q%|
000001c0  29 3a ed 3a d9 23 30 0d  00 64 0f 2a 4c 4f 41 44  |):.:.#0..d.*LOAD|
000001d0  20 24 26 43 30 32 0d 00  6e 23 51 25 3d 30 3a 54  | $&C02..n#Q%=0:T|
000001e0  25 3d 8e 22 41 2e 46 49  4c 45 22 3a f5 3a cf 23  |%=."A.FILE":.:.#|
000001f0  54 25 3d 51 25 2a 31 30  30 0d 00 78 65 e8 23 54  |T%=Q%*100..xe.#T|
00000200  25 2c 70 61 79 25 28 51  25 29 2c 66 70 61 79 25  |%,pay%(Q%),fpay%|
00000210  28 51 25 29 2c 6c 70 61  79 25 28 51 25 29 2c 66  |(Q%),lpay%(Q%),f|
00000220  6c 61 67 25 28 51 25 29  2c 6e 5f 70 61 79 25 28  |lag%(Q%),n_pay%(|
00000230  51 25 29 2c 66 72 65 71  25 28 51 25 29 2c 73 74  |Q%),freq%(Q%),st|
00000240  25 28 51 25 29 2c 64 61  74 65 25 28 51 25 29 2c  |%(Q%),date%(Q%),|
00000250  70 70 25 28 51 25 29 2c  70 24 28 51 25 29 0d 00  |pp%(Q%),p$(Q%)..|
00000260  82 20 51 25 3d 51 25 2b  31 3a fd 51 25 3e 32 30  |. Q%=Q%+1:.Q%>20|
00000270  3a d9 23 30 3a f2 67 65  74 5f 64 61 74 65 0d 00  |:.#0:.get_date..|
00000280  8c 04 0d 00 96 0d f5 3a  2a 46 58 32 31 2c 30 0d  |.......:*FX21,0.|
00000290  00 a0 65 db 3a f1 22 43  75 72 72 65 6e 74 20 64  |..e.:."Current d|
000002a0  61 74 65 22 8a 31 39 29  64 61 79 24 28 49 25 29  |ate".19)day$(I%)|
000002b0  22 20 22 3b 44 25 3b 22  20 22 6d 6f 6e 74 68 24  |" ";D%;" "month$|
000002c0  28 4d 25 29 22 20 22 c3  28 59 25 29 27 22 4e 65  |(M%)" ".(Y%)'"Ne|
000002d0  78 74 20 63 68 65 71 75  65 20 6e 75 6d 62 65 72  |xt cheque number|
000002e0  20 22 3b 43 25 27 22 57  65 65 6b 22 8a 31 39 29  | ";C%'"Week".19)|
000002f0  3b 3a f2 77 0d 00 aa 22  d6 26 39 30 30 3a 4a 25  |;:.w...".&900:J%|
00000300  3d a4 67 65 74 28 bd 31  33 2b 22 4c 43 4d 4e 57  |=.get(.13+"LCMNW|
00000310  44 49 42 45 22 29 0d 00  b4 18 e7 4a 25 3d 32 f2  |DIBE").....J%=2.|
00000320  6c 6f 6f 6b 3a f2 67 65  74 5f 64 61 74 65 0d 00  |look:.get_date..|
00000330  be 20 e7 4a 25 3d 33 f2  63 68 61 6e 67 65 5f 64  |. .J%=3.change_d|
00000340  61 74 65 3a f2 73 61 76  65 5f 64 61 74 65 0d 00  |ate:.save_date..|
00000350  c8 0f e7 4a 25 3d 34 f2  6d 66 6f 6e 74 0d 00 d2  |...J%=4.mfont...|
00000360  0d e7 4a 25 3d 35 f2 6e  65 77 0d 00 dc 0e e7 4a  |..J%=5.new.....J|
00000370  25 3d 36 f2 77 65 65 6b  0d 00 e6 0f e7 4a 25 3d  |%=6.week.....J%=|
00000380  37 f2 73 70 6c 69 74 0d  00 f0 0e e7 4a 25 3d 38  |7.split.....J%=8|
00000390  f2 64 61 74 65 0d 00 fa  10 e7 4a 25 3d 39 d7 22  |.date.....J%=9."|
000003a0  46 4c 45 58 22 0d 01 04  11 e7 4a 25 3d 31 30 d7  |FLEX".....J%=10.|
000003b0  22 45 44 49 54 22 0d 01  0e 18 e7 4a 25 3e 35 80  |"EDIT".....J%>5.|
000003c0  4a 25 3c 39 f2 73 61 76  65 5f 64 61 74 65 0d 01  |J%<9.save_date..|
000003d0  18 06 fd 30 0d 01 22 04  0d 01 2c 11 dd f2 63 68  |...0.."...,...ch|
000003e0  61 6e 67 65 5f 64 61 74  65 0d 01 36 5a e8 27 27  |ange_date..6Z.''|
000003f0  22 44 61 74 65 20 2d 20  44 61 79 20 6f 66 20 6d  |"Date - Day of m|
00000400  6f 6e 74 68 20 22 44 25  22 4d 6f 6e 74 68 20 6e  |onth "D%"Month n|
00000410  75 6d 62 65 72 20 22 4d  25 22 59 65 61 72 20 22  |umber "M%"Year "|
00000420  59 25 22 44 61 79 20 6f  66 20 74 68 65 20 77 65  |Y%"Day of the we|
00000430  65 6b 2c 4d 6f 6e 3d 31  20 20 53 75 6e 3d 37 20  |ek,Mon=1  Sun=7 |
00000440  22 49 25 0d 01 40 05 e1  0d 01 4a 04 0d 01 54 0a  |"I%..@....J...T.|
00000450  dd f2 64 61 74 65 0d 01  5e 1c e7 28 59 25 2d 31  |..date..^..(Y%-1|
00000460  39 38 34 29 81 20 34 3d  30 20 6d 25 28 32 29 3d  |984). 4=0 m%(2)=|
00000470  32 39 0d 01 68 22 44 25  3d 44 25 2b 31 3a e7 44  |29..h"D%=D%+1:.D|
00000480  25 3e 6d 25 28 4d 25 29  4d 25 3d 4d 25 2b 31 3a  |%>m%(M%)M%=M%+1:|
00000490  44 25 3d 31 0d 01 72 21  e7 4d 25 3e 31 32 20 59  |D%=1..r!.M%>12 Y|
000004a0  25 3d 59 25 2b 31 3a 4d  25 3d 31 3a 44 25 3d 31  |%=Y%+1:M%=1:D%=1|
000004b0  3a 57 25 3d b9 0d 01 7c  1d 49 25 3d 49 25 2b 31  |:W%=...|.I%=I%+1|
000004c0  3a e7 49 25 3e 37 20 49  25 3d 31 3a 57 25 3d ac  |:.I%>7 I%=1:W%=.|
000004d0  57 25 0d 01 86 05 e1 0d  01 90 04 0d 01 9a 41 dd  |W%............A.|
000004e0  f2 67 65 74 5f 64 61 74  65 3a 55 25 3d ad 22 41  |.get_date:U%=."A|
000004f0  2e 44 41 54 45 22 3a e8  23 55 25 2c 59 25 2c 43  |.DATE":.#U%,Y%,C|
00000500  25 2c 57 25 2c 41 25 2c  4f 25 2c 53 25 2c 44 25  |%,W%,A%,O%,S%,D%|
00000510  2c 4d 25 2c 49 25 3a d9  23 30 3a e1 0d 01 a4 04  |,M%,I%:.#0:.....|
00000520  0d 01 ae 0a dd f2 6c 6f  6f 6b 0d 01 b8 44 40 25  |......look...D@%|
00000530  3d 26 34 30 35 3a ef 31  32 2c 31 34 3a e8 22 52  |=&405:.12,14:."R|
00000540  65 63 6f 72 64 20 6e 75  6d 62 65 72 20 74 6f 20  |ecord number to |
00000550  73 74 61 72 74 20 66 72  6f 6d 20 22 41 25 3a e7  |start from "A%:.|
00000560  41 25 3e 3d 53 25 41 25  3d 53 25 2d 32 30 0d 01  |A%>=S%A%=S%-20..|
00000570  c2 3a db 3a f2 6d 66 28  22 7c 49 20 20 4e 6f 2e  |.:.:.mf("|I  No.|
00000580  20 20 20 20 20 20 20 20  20 44 61 74 65 20 20 20  |         Date   |
00000590  20 20 20 20 20 20 20 50  25 20 6e 65 78 74 25 20  |       P% next% |
000005a0  54 65 78 74 7c 2e 22 29  0d 01 cc 11 ef 32 38 2c  |Text|.").....28,|
000005b0  30 2c 32 34 2c 37 39 2c  33 0d 01 d6 47 54 25 3d  |0,24,79,3...GT%=|
000005c0  8e 22 41 2e 52 45 43 4f  52 44 22 3a f5 3a cf 23  |."A.RECORD":.:.#|
000005d0  54 25 3d 41 25 2a 31 30  30 3a e8 23 54 25 2c 44  |T%=A%*100:.#T%,D|
000005e0  25 2c 4d 25 2c 59 25 2c  49 25 2c 50 25 2c 6e 65  |%,M%,Y%,I%,P%,ne|
000005f0  78 74 25 2c 5a 25 2c 42  25 2c 70 61 79 65 65 24  |xt%,Z%,B%,payee$|
00000600  0d 01 e0 0f e7 50 25 3d  39 39 8c 8d 64 74 41 0d  |.....P%=99..dtA.|
00000610  01 ea 40 f1 41 25 22 20  22 64 61 79 24 28 49 25  |..@.A%" "day$(I%|
00000620  29 44 25 22 20 22 6d 6f  6e 74 68 24 28 4d 25 29  |)D%" "month$(M%)|
00000630  59 25 2c 50 25 2c 6e 65  78 74 25 3b 3a f2 6d 66  |Y%,P%,next%;:.mf|
00000640  28 22 20 20 22 2b 70 61  79 65 65 24 29 3a f1 0d  |("  "+payee$):..|
00000650  01 f4 16 41 25 3d 41 25  2b 31 3a fd 41 25 3d 53  |...A%=A%+1:.A%=S|
00000660  25 3a d9 23 30 0d 01 fe  31 40 25 3d 26 39 30 41  |%:.#0...1@%=&90A|
00000670  3a f2 6d 66 28 c4 31 35  2c 22 20 22 29 2b 22 7c  |:.mf(.15," ")+"||
00000680  48 20 48 69 74 20 61 20  6b 65 79 20 22 29 3a 2a  |H Hit a key "):*|
00000690  46 58 32 31 2c 30 0d 02  08 1d f5 fd a5 3a ef 31  |FX21,0.......:.1|
000006a0  35 2c 32 38 2c 30 2c 32  34 2c 37 39 2c 32 2c 31  |5,28,0,24,79,2,1|
000006b0  32 3a e1 0d 02 12 04 0d  02 1c 14 dd f2 6d 66 28  |2:...........mf(|
000006c0  61 24 29 3a d6 93 2c 61  24 3a e1 0d 02 26 04 0d  |a$):..,a$:...&..|
000006d0  02 30 0b dd f2 6d 66 6f  6e 74 0d 02 3a 18 db 3a  |.0...mfont..:..:|
000006e0  f1 22 4d 65 67 61 46 6f  6e 74 20 43 6f 64 65 73  |."MegaFont Codes|
000006f0  2e 22 0d 02 44 1e f1 27  22 7c 42 20 20 2d 20 20  |."..D..'"|B  -  |
00000700  22 3b 3a f2 6d 66 28 22  7c 42 42 6f 6c 64 22 29  |";:.mf("|BBold")|
00000710  0d 02 4e 20 f1 27 22 7c  49 20 20 2d 20 20 22 3b  |..N .'"|I  -  ";|
00000720  3a f2 6d 66 28 22 7c 49  49 74 61 6c 69 63 22 29  |:.mf("|IItalic")|
00000730  0d 02 58 23 f1 27 22 7c  55 20 20 2d 20 20 22 3b  |..X#.'"|U  -  ";|
00000740  3a f2 6d 66 28 22 7c 55  55 6e 64 65 72 6c 69 6e  |:.mf("|UUnderlin|
00000750  65 22 29 0d 02 62 23 f1  27 22 7c 48 20 20 2d 20  |e")..b#.'"|H  - |
00000760  20 22 3b 3a f2 6d 66 28  22 7c 48 48 69 67 68 6c  | ";:.mf("|HHighl|
00000770  69 67 68 74 22 29 0d 02  6c 25 f1 27 22 7c 52 20  |ight")..l%.'"|R |
00000780  20 2d 20 20 22 3b 3a f2  6d 66 28 22 7c 52 52 75  | -  ";:.mf("|RRu|
00000790  6e 20 74 68 72 6f 75 67  68 22 29 0d 02 76 1f f1  |n through")..v..|
000007a0  27 22 7c 46 20 20 2d 20  20 22 3b 3a f2 6d 66 28  |'"|F  -  ";:.mf(|
000007b0  22 7c 46 46 65 69 6e 74  22 29 0d 02 80 21 f1 27  |"|FFeint")...!.'|
000007c0  22 7c 44 20 20 2d 20 20  22 3b 3a f2 6d 66 28 22  |"|D  -  ";:.mf("|
000007d0  7c 44 44 69 67 69 74 61  6c 22 29 0d 02 8a 20 f1  ||DDigital")... .|
000007e0  27 22 7c 53 20 20 2d 20  20 22 3b 3a f2 6d 66 28  |'"|S  -  ";:.mf(|
000007f0  22 7c 53 53 68 61 64 6f  77 22 29 0d 02 94 2a f1  |"|SShadow")...*.|
00000800  27 22 7c 32 20 20 2d 20  20 22 3b 3a f2 6d 66 28  |'"|2  -  ";:.mf(|
00000810  22 7c 32 44 6f 75 62 6c  65 20 75 6e 64 65 72 6c  |"|2Double underl|
00000820  69 6e 65 22 29 0d 02 9e  28 f1 27 22 7c 2b 20 20  |ine")...(.'"|+  |
00000830  2d 20 20 22 3b 3a f2 6d  66 28 22 7c 2b 53 75 70  |-  ";:.mf("|+Sup|
00000840  65 72 20 7c 4e 73 63 72  69 70 74 22 29 0d 02 a8  |er |Nscript")...|
00000850  26 f1 27 22 7c 2d 20 20  2d 20 20 22 3b 3a f2 6d  |&.'"|-  -  ";:.m|
00000860  66 28 22 7c 2d 53 75 62  20 7c 4e 73 63 72 69 70  |f("|-Sub |Nscrip|
00000870  74 22 29 0d 02 b2 21 f1  27 22 7c 4f 20 20 2d 20  |t")...!.'"|O  - |
00000880  20 22 3b 3a f2 6d 66 28  22 7c 4f 4f 75 74 6c 69  | ";:.mf("|OOutli|
00000890  6e 65 22 29 0d 02 bc 22  f1 27 22 7c 43 20 20 2d  |ne")...".'"|C  -|
000008a0  20 20 22 3b 3a f2 6d 66  28 22 7c 43 43 61 70 69  |  ";:.mf("|CCapi|
000008b0  74 61 6c 73 22 29 0d 02  c6 26 f1 27 22 7c 4e 20  |tals")...&.'"|N |
000008c0  20 2d 20 20 22 3b 3a f2  6d 66 28 22 7c 4e 4e 6f  | -  ";:.mf("|NNo|
000008d0  72 6d 61 6c 20 70 72 69  6e 74 22 29 0d 02 d0 46  |rmal print")...F|
000008e0  f1 27 22 7c 2e 20 20 2d  20 20 43 61 72 72 61 67  |.'"|.  -  Carrag|
000008f0  65 20 72 65 74 75 72 6e  22 3b 3a f2 6d 66 28 22  |e return";:.mf("|
00000900  7c 2e 7c 2e 7c 48 50 6c  65 61 73 65 7c 4e 20 7c  ||.|.|HPlease|N ||
00000910  49 68 69 74 7c 4e 20 61  20 7c 42 7c 43 4b 65 79  |Ihit|N a |B|CKey|
00000920  22 29 0d 02 da 0b 2a 46  58 32 31 2c 30 0d 02 e4  |")....*FX21,0...|
00000930  09 f5 fd a5 3a e1 0d 02  ee 04 0d 02 f8 2c dd f2  |....:........,..|
00000940  6d 6f 6e 65 79 28 6d 25  29 3a 40 25 3d 26 32 30  |money(m%):@%=&20|
00000950  32 30 41 3a f1 6d 25 2f  31 30 30 3b 3a 40 25 3d  |20A:.m%/100;:@%=|
00000960  26 39 30 41 3a e1 0d 03  02 04 0d 03 0c 09 dd f2  |&90A:...........|
00000970  6e 65 77 0d 03 16 06 f5  db 0d 03 20 0c e3 50 25  |new........ ..P%|
00000980  3d 30 b8 32 30 0d 03 2a  31 e7 50 25 3e 33 80 50  |=0.20..*1.P%>3.P|
00000990  25 3c 4f 25 f2 6d 66 28  22 7c 48 22 2b c3 28 50  |%<O%.mf("|H"+.(P|
000009a0  25 29 2b 22 20 20 7c 4e  20 20 22 29 8b f1 3b 50  |%)+"  |N  ")..;P|
000009b0  25 3b 8a 35 29 3b 0d 03  34 2e f2 6d 66 28 70 24  |%;.5);..4..mf(p$|
000009c0  28 50 25 29 29 3a f5 ef  33 32 3a fd b1 3d 34 33  |(P%)):..32:..=43|
000009d0  3a f2 6d 6f 6e 65 79 28  94 28 70 61 79 25 28 50  |:.money(.(pay%(P|
000009e0  25 29 29 29 0d 03 3e 26  f5 ef 33 32 3a fd b1 3d  |%)))..>&..32:..=|
000009f0  35 36 3a e7 70 61 79 25  28 50 25 29 3e 30 f1 22  |56:.pay%(P%)>0."|
00000a00  43 72 65 64 69 74 20 20  22 3b 0d 03 48 17 e7 66  |Credit  ";..H..f|
00000a10  6c 61 67 25 28 50 25 29  f1 22 54 72 75 65 22 8b  |lag%(P%)."True".|
00000a20  f1 0d 03 52 05 ed 0d 03  5c 45 f2 6d 66 28 22 7c  |...R....\E.mf("||
00000a30  49 57 68 69 63 68 20 64  6f 20 79 6f 75 20 77 69  |IWhich do you wi|
00000a40  73 68 20 74 6f 20 63 68  61 6e 67 65 20 3f 20 6f  |sh to change ? o|
00000a50  72 20 7c 4e 7c 48 52 45  54 55 52 4e 7c 4e 7c 49  |r |N|HRETURN|N|I|
00000a60  20 74 6f 20 71 75 69 74  20 22 29 0d 03 66 1c e8  | to quit ")..f..|
00000a70  50 25 3a e7 50 25 3e 33  80 50 25 3c 31 38 f2 6e  |P%:.P%>3.P%<18.n|
00000a80  65 77 5f 64 61 74 61 0d  03 70 82 54 25 3d ad 22  |ew_data..p.T%=."|
00000a90  41 2e 46 49 4c 45 22 3a  cf 23 54 25 3d 50 25 2a  |A.FILE":.#T%=P%*|
00000aa0  31 30 30 3a f1 23 54 25  2c 70 61 79 25 28 50 25  |100:.#T%,pay%(P%|
00000ab0  29 2c 66 70 61 79 25 28  50 25 29 2c 6c 70 61 79  |),fpay%(P%),lpay|
00000ac0  25 28 50 25 29 2c 66 6c  61 67 25 28 50 25 29 2c  |%(P%),flag%(P%),|
00000ad0  6e 5f 70 61 79 25 28 50  25 29 2c 66 72 65 71 25  |n_pay%(P%),freq%|
00000ae0  28 50 25 29 2c 73 74 25  28 50 25 29 2c 64 61 74  |(P%),st%(P%),dat|
00000af0  65 25 28 50 25 29 2c 70  70 25 28 50 25 29 2c 70  |e%(P%),pp%(P%),p|
00000b00  24 28 50 25 29 3a d9 23  30 0d 03 7a 0b fd 50 25  |$(P%):.#0..z..P%|
00000b10  3d 30 3a e1 0d 03 84 04  0d 03 8e 0e dd f2 6e 65  |=0:...........ne|
00000b20  77 5f 64 61 74 61 0d 03  98 06 f5 db 0d 03 a2 21  |w_data.........!|
00000b30  f1 27 27 22 20 20 20 20  50 61 79 6d 65 6e 74 20  |.''"    Payment |
00000b40  6e 75 6d 62 65 72 22 8a  33 30 29 50 25 0d 03 ac  |number".30)P%...|
00000b50  19 f1 22 41 20 2d 20 54  65 78 74 22 8a 33 30 29  |.."A - Text".30)|
00000b60  70 24 28 50 25 29 0d 03  b6 28 f1 22 42 20 2d 20  |p$(P%)...(."B - |
00000b70  4e 6f 2e 20 6f 66 20 70  61 79 6d 65 6e 74 73 22  |No. of payments"|
00000b80  8a 33 30 29 6e 5f 70 61  79 25 28 50 25 29 0d 03  |.30)n_pay%(P%)..|
00000b90  c0 32 f1 22 43 20 2d 20  46 69 72 73 74 20 70 61  |.2."C - First pa|
00000ba0  79 6d 65 6e 74 22 8a 33  30 29 3b 3a f2 6d 6f 6e  |yment".30);:.mon|
00000bb0  65 79 28 94 28 66 70 61  79 25 28 50 25 29 29 29  |ey(.(fpay%(P%)))|
00000bc0  0d 03 ca 33 f1 27 22 44  20 2d 20 4e 6f 72 6d 61  |...3.'"D - Norma|
00000bd0  6c 20 70 61 79 6d 65 6e  74 22 8a 33 30 29 3b 3a  |l payment".30);:|
00000be0  f2 6d 6f 6e 65 79 28 94  28 70 61 79 25 28 50 25  |.money(.(pay%(P%|
00000bf0  29 29 29 0d 03 d4 32 f1  27 22 45 20 2d 20 4c 61  |)))...2.'"E - La|
00000c00  73 74 20 70 61 79 6d 65  6e 74 22 8a 33 30 29 3b  |st payment".30);|
00000c10  3a f2 6d 6f 6e 65 79 28  94 28 6c 70 61 79 25 28  |:.money(.(lpay%(|
00000c20  50 25 29 29 29 0d 03 de  2a f1 27 22 46 20 2d 20  |P%)))...*.'"F - |
00000c30  50 61 79 6d 65 6e 74 20  66 72 65 71 75 65 6e 63  |Payment frequenc|
00000c40  79 22 8a 33 36 29 66 72  65 71 25 28 50 25 29 0d  |y".36)freq%(P%).|
00000c50  03 e8 2e f1 22 47 20 2d  20 44 61 74 65 20 6f 72  |...."G - Date or|
00000c60  20 64 61 79 20 6f 66 20  70 61 79 6d 65 6e 74 22  | day of payment"|
00000c70  8a 33 30 29 64 61 74 65  25 28 50 25 29 0d 03 f2  |.30)date%(P%)...|
00000c80  40 f1 22 48 20 2d 20 53  74 61 72 74 20 64 61 74  |@."H - Start dat|
00000c90  65 22 8a 33 30 29 73 74  25 28 50 25 29 81 26 31  |e".30)st%(P%).&1|
00000ca0  30 30 30 30 22 20 20 22  6d 6f 6e 74 68 24 28 73  |0000"  "month$(s|
00000cb0  74 25 28 50 25 29 80 26  46 46 46 46 29 0d 03 fc  |t%(P%).&FFFF)...|
00000cc0  37 f1 22 49 20 2d 20 50  61 79 6d 65 6e 74 20 66  |7."I - Payment f|
00000cd0  6c 61 67 22 8a 33 36 29  3b 3a e7 66 6c 61 67 25  |lag".36);:.flag%|
00000ce0  28 50 25 29 f1 22 54 72  75 65 22 8b f1 22 46 61  |(P%)."True".."Fa|
00000cf0  6c 73 65 22 0d 04 06 3c  f2 6d 66 28 22 7c 2e 7c  |lse"...<.mf("|.||
00000d00  2e 20 20 20 20 7c 49 43  68 6f 6f 73 65 20 61 20  |.    |IChoose a |
00000d10  6c 65 74 74 65 72 2c 7c  4e 20 7c 48 52 45 54 55  |letter,|N |HRETU|
00000d20  52 4e 7c 4e 7c 49 20 74  6f 20 71 75 69 74 22 29  |RN|N|I to quit")|
00000d30  0d 04 10 28 45 25 3d a4  67 65 74 28 22 41 42 43  |...(E%=.get("ABC|
00000d40  44 45 46 47 48 49 22 2b  bd 31 33 29 3a f1 8a 35  |DEFGHI"+.13):..5|
00000d50  35 2c 45 25 2b 32 29 3b  0d 04 1a 0f e7 45 25 3d  |5,E%+2);.....E%=|
00000d60  31 f2 69 6e 70 75 74 0d  04 24 14 e7 45 25 3d 32  |1.input..$..E%=2|
00000d70  e8 6e 5f 70 61 79 25 28  50 25 29 0d 04 2e 19 e7  |.n_pay%(P%).....|
00000d80  45 25 3d 33 20 66 70 61  79 25 28 50 25 29 3d a4  |E%=3 fpay%(P%)=.|
00000d90  63 61 73 68 0d 04 38 18  e7 45 25 3d 34 20 70 61  |cash..8..E%=4 pa|
00000da0  79 25 28 50 25 29 3d a4  63 61 73 68 0d 04 42 19  |y%(P%)=.cash..B.|
00000db0  e7 45 25 3d 35 20 6c 70  61 79 25 28 50 25 29 3d  |.E%=5 lpay%(P%)=|
00000dc0  a4 63 61 73 68 0d 04 4c  98 e7 45 25 3d 36 f1 8a  |.cash..L..E%=6..|
00000dd0  35 2c 31 36 29 22 30 20  2d 20 6e 6f 20 70 61 79  |5,16)"0 - no pay|
00000de0  6d 65 6e 74 22 27 8a 35  29 22 31 20 2d 20 4d 6f  |ment"'.5)"1 - Mo|
00000df0  6e 74 68 6c 79 22 27 8a  35 29 22 32 20 2d 20 57  |nthly"'.5)"2 - W|
00000e00  65 65 6b 6c 79 22 27 8a  35 29 22 33 20 2d 20 46  |eekly"'.5)"3 - F|
00000e10  6f 72 74 6e 69 67 68 74  6c 79 20 6f 64 64 20 77  |ortnightly odd w|
00000e20  65 65 6b 22 27 8a 35 29  22 34 20 2d 20 66 6f 72  |eek"'.5)"4 - for|
00000e30  74 6e 69 67 68 74 6c 79  20 65 76 65 6e 20 77 65  |tnightly even we|
00000e40  65 6b 22 3a 66 72 65 71  25 28 50 25 29 3d a4 67  |ek":freq%(P%)=.g|
00000e50  65 74 28 22 30 31 32 33  34 22 29 2d 31 0d 04 56  |et("01234")-1..V|
00000e60  47 e7 45 25 3d 37 e8 64  61 74 65 25 28 50 25 29  |G.E%=7.date%(P%)|
00000e70  3a e7 28 66 72 65 71 25  28 50 25 29 3e 31 80 64  |:.(freq%(P%)>1.d|
00000e80  61 74 65 25 28 50 25 29  3e 37 29 84 64 61 74 65  |ate%(P%)>7).date|
00000e90  25 28 50 25 29 3e 32 38  20 64 61 74 65 25 28 50  |%(P%)>28 date%(P|
00000ea0  25 29 3d 30 0d 04 60 61  e7 45 25 3d 38 e8 22 44  |%)=0..`a.E%=8."D|
00000eb0  61 79 20 22 64 25 8a 36  33 2c 45 25 2b 32 29 22  |ay "d%.63,E%+2)"|
00000ec0  4d 6f 6e 74 68 20 22 6d  25 3a 73 74 25 28 50 25  |Month "m%:st%(P%|
00000ed0  29 3d 64 25 2a 31 36 5e  34 2b 6d 25 3a e7 20 64  |)=d%*16^4+m%:. d|
00000ee0  25 3c 3e 64 61 74 65 25  28 50 25 29 20 84 20 6d  |%<>date%(P%) . m|
00000ef0  25 3c 31 20 84 20 6d 25  3e 31 32 20 73 74 25 28  |%<1 . m%>12 st%(|
00000f00  50 25 29 3d 30 0d 04 6a  17 e7 45 25 3d 39 20 66  |P%)=0..j..E%=9 f|
00000f10  6c 61 67 25 28 50 25 29  3d a4 74 66 0d 04 74 0c  |lag%(P%)=.tf..t.|
00000f20  fd 45 25 3d 31 30 3a e1  0d 04 7e 04 0d 04 88 0b  |.E%=10:...~.....|
00000f30  dd f2 69 6e 70 75 74 0d  04 92 43 70 24 28 50 25  |..input...Cp$(P%|
00000f40  29 3d 22 22 3a f1 8a 33  30 2c 33 29 89 33 36 3a  |)="":..30,3).36:|
00000f50  f5 3a f1 8a 35 35 2c 33  29 70 24 28 50 25 29 3b  |.:..55,3)p$(P%);|
00000f60  3a 70 61 79 65 65 24 3d  be 3a e7 70 61 79 65 65  |:payee$=.:.payee|
00000f70  24 3d bd 31 33 8c 8d 74  66 44 0d 04 9c 18 70 24  |$=.13..tfD....p$|
00000f80  28 50 25 29 3d 70 24 28  50 25 29 2b 70 61 79 65  |(P%)=p$(P%)+paye|
00000f90  65 24 0d 04 a6 1a fd 70  61 79 65 65 24 3d bd 31  |e$.....payee$=.1|
00000fa0  33 84 a9 70 24 28 50 25  29 3d 33 36 0d 04 b0 05  |3..p$(P%)=36....|
00000fb0  e1 0d 04 ba 04 0d 04 c4  42 dd f2 73 61 76 65 5f  |........B..save_|
00000fc0  64 61 74 65 3a 55 25 3d  ad 22 41 2e 44 41 54 45  |date:U%=."A.DATE|
00000fd0  22 3a f1 23 55 25 2c 59  25 2c 43 25 2c 57 25 2c  |":.#U%,Y%,C%,W%,|
00000fe0  41 25 2c 4f 25 2c 53 25  2c 44 25 2c 4d 25 2c 49  |A%,O%,S%,D%,M%,I|
00000ff0  25 3a d9 23 30 3a e1 0d  04 ce 04 0d 04 d8 0b dd  |%:.#0:..........|
00001000  f2 73 70 6c 69 74 0d 04  e2 05 db 0d 04 ec 56 f1  |.split........V.|
00001010  27 27 22 54 68 65 72 65  20 61 72 65 20 22 3b 4f  |''"There are ";O|
00001020  25 2d 34 3b 22 20 73 6c  6f 74 73 20 66 6f 72 20  |%-4;" slots for |
00001030  70 61 79 69 6e 67 20 69  6e 74 6f 20 74 68 65 20  |paying into the |
00001040  61 63 63 6f 75 6e 74 2e  22 27 27 22 44 6f 20 79  |account."''"Do y|
00001050  6f 75 20 6e 65 65 64 20  6d 6f 72 65 20 3f 20 22  |ou need more ? "|
00001060  3b 0d 04 f6 12 e7 a4 67  65 74 28 22 59 4e 22 29  |;......get("YN")|
00001070  3d 32 e1 0d 05 00 2a e8  27 22 4e 75 6d 62 65 72  |=2....*.'"Number|
00001080  20 6f 66 20 70 61 79 6d  65 6e 74 20 73 6c 6f 74  | of payment slot|
00001090  73 20 22 4f 25 3a 4f 25  3d 4f 25 2b 34 0d 05 0a  |s "O%:O%=O%+4...|
000010a0  4a e7 a9 28 70 24 28 4f  25 2d 31 29 29 3e 30 f1  |J..(p$(O%-1))>0.|
000010b0  27 22 4e 6f 74 20 65 6e  6f 75 67 68 20 73 6c 6f  |'"Not enough slo|
000010c0  74 73 20 76 61 63 61 6e  74 21 20 70 6c 65 61 73  |ts vacant! pleas|
000010d0  65 20 74 72 79 20 61 67  61 69 6e 22 3a 4f 25 3d  |e try again":O%=|
000010e0  36 3a e5 8d 64 6c 44 0d  05 14 05 e1 0d 05 1e 04  |6:..dlD.........|
000010f0  0d 05 28 2f dd f2 77 3a  e7 57 25 f2 6d 66 28 22  |..(/..w:.W%.mf("|
00001100  7c 48 6f 64 64 2e 7c 2e  22 29 3a e1 8b f2 6d 66  ||Hodd.|."):...mf|
00001110  28 22 7c 48 65 76 65 6e  2e 7c 2e 22 29 3a e1 0d  |("|Heven.|."):..|
00001120  05 32 04 0d 05 3c 0a dd  f2 77 65 65 6b 0d 05 46  |.2...<...week..F|
00001130  3d db 3a f1 27 22 54 68  69 73 20 77 65 65 6b 20  |=.:.'"This week |
00001140  69 73 20 22 3b 3a f2 77  3a f1 22 44 6f 20 79 6f  |is ";:.w:."Do yo|
00001150  75 20 77 69 73 68 20 74  6f 20 63 68 61 6e 67 65  |u wish to change|
00001160  20 77 65 65 6b 20 3f 20  22 3b 0d 05 50 18 e7 a4  | week ? ";..P...|
00001170  67 65 74 28 22 4e 59 22  29 3d 32 20 57 25 3d ac  |get("NY")=2 W%=.|
00001180  57 25 0d 05 5a 05 e1 0d  05 64 04 0d 05 6e 0a dd  |W%..Z....d...n..|
00001190  a4 63 61 73 68 0d 05 78  21 60 25 3d 30 3a 60 24  |.cash..x!`%=0:`$|
000011a0  3d 22 30 22 3a 64 25 3d  30 3a 64 24 3d 22 30 22  |="0":d%=0:d$="0"|
000011b0  3a 70 6f 25 3d 30 0d 05  82 12 e8 6d 6f 24 3a e7  |:po%=0.....mo$:.|
000011c0  6d 6f 24 3d 22 22 3d 30  0d 05 8c 19 6c 25 3d a9  |mo$=""=0....l%=.|
000011d0  6d 6f 24 3a 70 6f 25 3d  a7 6d 6f 24 2c 22 2e 22  |mo$:po%=.mo$,"."|
000011e0  29 0d 05 96 0f e7 70 6f  25 3d 31 8c 8d 74 6a 45  |).....po%=1..tjE|
000011f0  0d 05 a0 27 e7 70 6f 25  3d 30 20 60 24 3d 6d 6f  |...'.po%=0 `$=mo|
00001200  24 3a e5 8d 64 48 45 3a  8b 60 24 3d c0 6d 6f 24  |$:..dHE:.`$=.mo$|
00001210  2c 70 6f 25 2d 31 29 0d  05 aa 13 64 24 3d c2 6d  |,po%-1)....d$=.m|
00001220  6f 24 2c 6c 25 2d 70 6f  25 29 0d 05 b4 14 e7 a9  |o$,l%-po%)......|
00001230  64 24 3d 31 20 64 24 3d  64 24 2b 22 30 22 0d 05  |d$=1 d$=d$+"0"..|
00001240  be 13 e7 60 24 3d 22 22  60 24 3d 60 24 2b 22 30  |...`$=""`$=`$+"0|
00001250  22 0d 05 c8 15 60 25 3d  a0 28 60 24 29 3a 64 25  |"....`%=.(`$):d%|
00001260  3d a0 28 64 24 29 0d 05  d2 29 e7 50 25 3e 3d 4f  |=.(d$)...).P%>=O|
00001270  25 3d 28 60 25 2a 31 30  30 2b 64 25 29 2a 28 2d  |%=(`%*100+d%)*(-|
00001280  31 29 20 8b 20 3d 60 25  2a 31 30 30 2b 64 25 0d  |1) . =`%*100+d%.|
00001290  05 dc 04 0d 05 e6 15 dd  a4 67 65 74 28 71 24 29  |.........get(q$)|
000012a0  3a 2a 46 58 32 31 2c 30  0d 05 f0 19 f5 4b 25 3d  |:*FX21,0.....K%=|
000012b0  a7 71 24 2c be 29 3a fd  4b 25 3c 3e 30 3a 3d 4b  |.q$,.):.K%<>0:=K|
000012c0  25 0d 05 fa 04 0d 06 04  33 dd a4 74 66 3a f1 22  |%.......3..tf:."|
000012d0  54 72 75 65 20 6f 72 20  46 61 6c 73 65 22 3b 3a  |True or False";:|
000012e0  e7 a4 67 65 74 28 22 54  46 22 29 3d 31 3d 54 52  |..get("TF")=1=TR|
000012f0  55 45 45 4c 53 45 3d a3  0d ff                    |UEELSE=...|
000012fa