�6
(F@%=&2020A:N=0:W=3:�14:PAY=0:SPENT=0:� A$(300),A(300),D$(300),K$(7)
2� T=0 � 7:� K$(T):� T
<	�MENU
F� A=1 � �ENTRY
P� A=2 � �VIEW
Z� A=3 � �SAVE
d� A=4 � �LOAD
n� A=5 � �PRINT
x� A=6 � �CHANGE
�� A<>7 � �T|@
�2�"ARE YOU SURE(Y/N)":G=� � &5F:� G <>89 � �T|@
��6:�
�� �ENTRY
�	Z=0:�
�6� N>299 � �''"MEMORY FULL":�1,-15,100,5:G=�(200):�
�.�'"Type RETURN in the DATE field for MENU"
�5�'"DATE      ITEM         AMOUNT      CATGY"     
��28,0,24,39,4
�$�0,Z)D$(N+1):�D$(N+1)=""� �D^A 
�0� �10,Z)A$(N+1):�23,Z)A(N+1):� �35,Z)CA$   
�,D$(N+1)=�D$(N+1),8):A$(N+1)=�A$(N+1),16)
�
� �TNA

 �35,Z)"     ":�35,Z)CA$   

-X=0:� T=0 � 7:� �K$(T),CA$)=1 � X=X+1:Y=T

�

"� X<>1 � �TDA

,A$(N+1)=�(Y)+A$(N+1)

60� Y=7 � PAY=PAY+A(N+1)� SPENT = SPENT+A(N+1)

@Z=Z+1:N=N+1

J� Z>19 � Z=0:�

T
� �d\@

^�28,0,24,39,0:�

h
��SHOWCAT

r�:SUM=0:� W

|�'K$(C)'ĩ(K$(C)),�(126))

��28,0,24,39,3,23,1,0;0;0;0;

�
� T=1 � N

�� N=0 � �dLA

�S$=�A$(T),1)

�� �(�A$(T),1))<>C � �dLA

�+�'D$(T)�10)�A$(T),�(A$(T))-1)�29),A(T);

�SUM=SUM+A(T)

��

��32)"________"

��22)"TOTAL `",SUM

�� C<>7 � �THB

�*�''"YOUR TOTAL EXPENDITURE IS `";SPENT

�$�''"YOUR BALANCE IS `";PAY-SPENT
�1,10,1,10
�3
M�''"PRESS ANY KEY TO CONTINUE WITH VIEWING"''"PRESS RETURN FOR MAIN MENU"
&G=�:�28,0,24,39,0:�
0� �VIEW
:�:�
D(� T=0 � 7:�'�10);�(T+1);"  ";K$(T):�
N �''"WHICH CATEGORY NUMBER?";
X
C=�-49
b� C=-36 � �
l� C<0 � C>7 � �DXB
v�SHOWCAT
�� G=13 � �tJB � �TzB
��
�� �MENU
��:�23,1,0;0;0;0;
��10,2)"MAIN MENU"
��10,3)"~~~~~~~~~"
��10,5)"1:_Make an entry"
��10,7)"2:_View entries"
��10,9)"3:_Save to disc"
��10,11)"4:_Load from disc"
��10,13)"5:_Printer option"
��10,15)"6:_Change entry"
��10,17)"7:_Quit program"
��10,20)"SELECT OPTION"

A=�-48
� A<1 � A>7 � �TBC
�23,1,1;0;0;0;0;
�
 
��SAVE
*�"NAME OF FILE",D$
4� D$=""� �
>+H=�(D$):�"SAVING INFORMATION NOW":�#H,N
H*� T=1 � N:�#H,D$(T),A$(T),A(T):�:�#H:�
R
��LOAD
\�"LOAD WHICH FILE",D$
pH=�(D$):�#H,N
z"� T=1 � N:�#H,D$(T),A$(T),A(T)
�2� �(A$(T))=7 � PAY=PAY+A(T) � SPENT=SPENT+A(T)
��:�#H:�
���PRINT
��"PRINTER(Y/N)"
� G=� � &5F:� G=89 � W=2:�d@C
�� G<>78 � �tlC � W=3
��
�� �CHANGE 
�	�:T=1
�
� N=0 � �
��
�O�:�''"ENTRY NUMBER ";�(T)'D$(T),�A$(T),�(A$(T))-1)'"'";A(T),K$(�(A$(T)))'' 
�J�''"','TO MOVE BACK"'"'.'TO MOVE FORWARD"'"SPACE BAR TO CHANGE ENTRY" 
	 A$=�
� A$=","� T=T-1:� T<1 � T=1
%� A$="."� T=T+1:� T>N � T=N      
$�(A$=" " � A$=�(13))
.� A$=�(13) � �    
8 E=T:�'"CHANGING THIS ENTRY" 
BCA$=�(�(A$(E)))
L5� �(A$(E))=7 � PAY=PAY-A(E) � SPENT=SPENT-A(E)   
V"�"DATE ",Q$:� Q$<>""� D$(E)=Q$
`=�"ITEM ",Q$:� Q$<>""� A$(E)=Q$ � A$(E)=�A$(E),�(A$(E))-1)
j&�"AMOUNT ",Q$:� Q$<>""� A(E)=�(Q$)
t$�"CATEGORY ",Q$:� Q$<>""� CA$=Q$
~
� �tRD
��"RE_ENTER CATEGORY",CA$
�X=0:� T=0 � 7
�� �K$(T),CA$)=1 � X=X+1:Y=T
�� T
�� X<>1 � �tHD
�A$(E)=�(Y)+A$(E)
�+� Y=7 � PAY=PAY+A(E) � SPENT=SPENT+A(E)
��"CORRECTION MADE":G=�(200)
��
�:� CASH,CHEQUE,BUDGET,BORROW,LOAN,ORDER,SUNDRIES,INCOME
�

00000000  0d 00 0a 06 eb 36 0d 00  28 46 40 25 3d 26 32 30  |.....6..(F@%=&20|
00000010  32 30 41 3a 4e 3d 30 3a  57 3d 33 3a ef 31 34 3a  |20A:N=0:W=3:.14:|
00000020  50 41 59 3d 30 3a 53 50  45 4e 54 3d 30 3a de 20  |PAY=0:SPENT=0:. |
00000030  41 24 28 33 30 30 29 2c  41 28 33 30 30 29 2c 44  |A$(300),A(300),D|
00000040  24 28 33 30 30 29 2c 4b  24 28 37 29 0d 00 32 19  |$(300),K$(7)..2.|
00000050  e3 20 54 3d 30 20 b8 20  37 3a f3 20 4b 24 28 54  |. T=0 . 7:. K$(T|
00000060  29 3a ed 20 54 0d 00 3c  09 f2 4d 45 4e 55 0d 00  |):. T..<..MENU..|
00000070  46 12 e7 20 41 3d 31 20  8c 20 f2 45 4e 54 52 59  |F.. A=1 . .ENTRY|
00000080  0d 00 50 11 e7 20 41 3d  32 20 8c 20 f2 56 49 45  |..P.. A=2 . .VIE|
00000090  57 0d 00 5a 11 e7 20 41  3d 33 20 8c 20 f2 53 41  |W..Z.. A=3 . .SA|
000000a0  56 45 0d 00 64 11 e7 20  41 3d 34 20 8c 20 f2 4c  |VE..d.. A=4 . .L|
000000b0  4f 41 44 0d 00 6e 12 e7  20 41 3d 35 20 8c 20 f2  |OAD..n.. A=5 . .|
000000c0  50 52 49 4e 54 0d 00 78  13 e7 20 41 3d 36 20 8c  |PRINT..x.. A=6 .|
000000d0  20 f2 43 48 41 4e 47 45  0d 00 82 11 e7 20 41 3c  | .CHANGE..... A<|
000000e0  3e 37 20 8c 20 8d 54 7c  40 0d 00 8c 32 f1 22 41  |>7 . .T|@...2."A|
000000f0  52 45 20 59 4f 55 20 53  55 52 45 28 59 2f 4e 29  |RE YOU SURE(Y/N)|
00000100  22 3a 47 3d a5 20 80 20  26 35 46 3a e7 20 47 20  |":G=. . &5F:. G |
00000110  3c 3e 38 39 20 8c 20 8d  54 7c 40 0d 00 96 08 eb  |<>89 . .T|@.....|
00000120  36 3a e0 0d 00 a0 0c dd  20 f2 45 4e 54 52 59 0d  |6:...... .ENTRY.|
00000130  00 aa 09 5a 3d 30 3a db  0d 00 b4 36 e7 20 4e 3e  |...Z=0:....6. N>|
00000140  32 39 39 20 8c 20 f1 27  27 22 4d 45 4d 4f 52 59  |299 . .''"MEMORY|
00000150  20 46 55 4c 4c 22 3a d4  31 2c 2d 31 35 2c 31 30  | FULL":.1,-15,10|
00000160  30 2c 35 3a 47 3d a6 28  32 30 30 29 3a e1 0d 00  |0,5:G=.(200):...|
00000170  be 2e f1 27 22 54 79 70  65 20 52 45 54 55 52 4e  |...'"Type RETURN|
00000180  20 69 6e 20 74 68 65 20  44 41 54 45 20 66 69 65  | in the DATE fie|
00000190  6c 64 20 66 6f 72 20 4d  45 4e 55 22 0d 00 c8 35  |ld for MENU"...5|
000001a0  f1 27 22 44 41 54 45 20  20 20 20 20 20 49 54 45  |.'"DATE      ITE|
000001b0  4d 20 20 20 20 20 20 20  20 20 41 4d 4f 55 4e 54  |M         AMOUNT|
000001c0  20 20 20 20 20 20 43 41  54 47 59 22 20 20 20 20  |      CATGY"    |
000001d0  20 0d 00 d2 11 ef 32 38  2c 30 2c 32 34 2c 33 39  | .....28,0,24,39|
000001e0  2c 34 0d 00 dc 24 e8 8a  30 2c 5a 29 44 24 28 4e  |,4...$..0,Z)D$(N|
000001f0  2b 31 29 3a e7 44 24 28  4e 2b 31 29 3d 22 22 8c  |+1):.D$(N+1)="".|
00000200  20 8d 44 5e 41 20 0d 00  e6 30 e8 20 8a 31 30 2c  | .D^A ...0. .10,|
00000210  5a 29 41 24 28 4e 2b 31  29 3a e8 8a 32 33 2c 5a  |Z)A$(N+1):..23,Z|
00000220  29 41 28 4e 2b 31 29 3a  e8 20 8a 33 35 2c 5a 29  |)A(N+1):. .35,Z)|
00000230  43 41 24 20 20 20 0d 00  f0 2c 44 24 28 4e 2b 31  |CA$   ...,D$(N+1|
00000240  29 3d c0 44 24 28 4e 2b  31 29 2c 38 29 3a 41 24  |)=.D$(N+1),8):A$|
00000250  28 4e 2b 31 29 3d c0 41  24 28 4e 2b 31 29 2c 31  |(N+1)=.A$(N+1),1|
00000260  36 29 0d 00 fa 0a e5 20  8d 54 4e 41 0d 01 04 20  |6)..... .TNA... |
00000270  f1 8a 33 35 2c 5a 29 22  20 20 20 20 20 22 3a e8  |..35,Z)"     ":.|
00000280  8a 33 35 2c 5a 29 43 41  24 20 20 20 0d 01 0e 2d  |.35,Z)CA$   ...-|
00000290  58 3d 30 3a e3 20 54 3d  30 20 b8 20 37 3a e7 20  |X=0:. T=0 . 7:. |
000002a0  a7 4b 24 28 54 29 2c 43  41 24 29 3d 31 20 8c 20  |.K$(T),CA$)=1 . |
000002b0  58 3d 58 2b 31 3a 59 3d  54 0d 01 18 05 ed 0d 01  |X=X+1:Y=T.......|
000002c0  22 11 e7 20 58 3c 3e 31  20 8c 20 8d 54 44 41 0d  |".. X<>1 . .TDA.|
000002d0  01 2c 18 41 24 28 4e 2b  31 29 3d bd 28 59 29 2b  |.,.A$(N+1)=.(Y)+|
000002e0  41 24 28 4e 2b 31 29 0d  01 36 30 e7 20 59 3d 37  |A$(N+1)..60. Y=7|
000002f0  20 8c 20 50 41 59 3d 50  41 59 2b 41 28 4e 2b 31  | . PAY=PAY+A(N+1|
00000300  29 8b 20 53 50 45 4e 54  20 3d 20 53 50 45 4e 54  |). SPENT = SPENT|
00000310  2b 41 28 4e 2b 31 29 0d  01 40 0f 5a 3d 5a 2b 31  |+A(N+1)..@.Z=Z+1|
00000320  3a 4e 3d 4e 2b 31 0d 01  4a 12 e7 20 5a 3e 31 39  |:N=N+1..J.. Z>19|
00000330  20 8c 20 5a 3d 30 3a db  0d 01 54 0a e5 20 8d 64  | . Z=0:...T.. .d|
00000340  5c 40 0d 01 5e 13 ef 32  38 2c 30 2c 32 34 2c 33  |\@..^..28,0,24,3|
00000350  39 2c 30 3a e1 0d 01 68  0d dd f2 53 48 4f 57 43  |9,0:...h...SHOWC|
00000360  41 54 0d 01 72 0f db 3a  53 55 4d 3d 30 3a ef 20  |AT..r..:SUM=0:. |
00000370  57 0d 01 7c 1d f1 27 4b  24 28 43 29 27 c4 a9 28  |W..|..'K$(C)'..(|
00000380  4b 24 28 43 29 29 2c bd  28 31 32 36 29 29 0d 01  |K$(C)),.(126))..|
00000390  86 1f ef 32 38 2c 30 2c  32 34 2c 33 39 2c 33 2c  |...28,0,24,39,3,|
000003a0  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 01 90  |23,1,0;0;0;0;...|
000003b0  0d e3 20 54 3d 31 20 b8  20 4e 0d 01 9a 10 e7 20  |.. T=1 . N..... |
000003c0  4e 3d 30 20 8c 20 8d 64  4c 41 0d 01 a4 10 53 24  |N=0 . .dLA....S$|
000003d0  3d c2 41 24 28 54 29 2c  31 29 0d 01 ae 1c e7 20  |=.A$(T),1)..... |
000003e0  97 28 c0 41 24 28 54 29  2c 31 29 29 3c 3e 43 20  |.(.A$(T),1))<>C |
000003f0  8c 20 8d 64 4c 41 0d 01  b8 2b f1 27 44 24 28 54  |. .dLA...+.'D$(T|
00000400  29 8a 31 30 29 c2 41 24  28 54 29 2c a9 28 41 24  |).10).A$(T),.(A$|
00000410  28 54 29 29 2d 31 29 8a  32 39 29 2c 41 28 54 29  |(T))-1).29),A(T)|
00000420  3b 0d 01 c2 10 53 55 4d  3d 53 55 4d 2b 41 28 54  |;....SUM=SUM+A(T|
00000430  29 0d 01 cc 05 ed 0d 01  d6 13 f1 8a 33 32 29 22  |)...........32)"|
00000440  5f 5f 5f 5f 5f 5f 5f 5f  22 0d 01 e0 16 f1 8a 32  |________"......2|
00000450  32 29 22 54 4f 54 41 4c  20 60 22 2c 53 55 4d 0d  |2)"TOTAL `",SUM.|
00000460  01 ea 11 e7 20 43 3c 3e  37 20 8c 20 8d 54 48 42  |.... C<>7 . .THB|
00000470  0d 01 f4 2a f1 27 27 22  59 4f 55 52 20 54 4f 54  |...*.''"YOUR TOT|
00000480  41 4c 20 45 58 50 45 4e  44 49 54 55 52 45 20 49  |AL EXPENDITURE I|
00000490  53 20 60 22 3b 53 50 45  4e 54 0d 01 fe 24 f1 27  |S `";SPENT...$.'|
000004a0  27 22 59 4f 55 52 20 42  41 4c 41 4e 43 45 20 49  |'"YOUR BALANCE I|
000004b0  53 20 60 22 3b 50 41 59  2d 53 50 45 4e 54 0d 02  |S `";PAY-SPENT..|
000004c0  08 0e ef 31 2c 31 30 2c  31 2c 31 30 0d 02 12 06  |...1,10,1,10....|
000004d0  ef 33 0d 02 1c 4d f1 27  27 22 50 52 45 53 53 20  |.3...M.''"PRESS |
000004e0  41 4e 59 20 4b 45 59 20  54 4f 20 43 4f 4e 54 49  |ANY KEY TO CONTI|
000004f0  4e 55 45 20 57 49 54 48  20 56 49 45 57 49 4e 47  |NUE WITH VIEWING|
00000500  22 27 27 22 50 52 45 53  53 20 52 45 54 55 52 4e  |"''"PRESS RETURN|
00000510  20 46 4f 52 20 4d 41 49  4e 20 4d 45 4e 55 22 0d  | FOR MAIN MENU".|
00000520  02 26 17 47 3d a5 3a ef  32 38 2c 30 2c 32 34 2c  |.&.G=.:.28,0,24,|
00000530  33 39 2c 30 3a e1 0d 02  30 0b dd 20 f2 56 49 45  |39,0:...0.. .VIE|
00000540  57 0d 02 3a 07 db 3a f1  0d 02 44 28 e3 20 54 3d  |W..:..:...D(. T=|
00000550  30 20 b8 20 37 3a f1 27  8a 31 30 29 3b c3 28 54  |0 . 7:.'.10);.(T|
00000560  2b 31 29 3b 22 20 20 22  3b 4b 24 28 54 29 3a ed  |+1);"  ";K$(T):.|
00000570  0d 02 4e 20 f1 27 27 22  57 48 49 43 48 20 43 41  |..N .''"WHICH CA|
00000580  54 45 47 4f 52 59 20 4e  55 4d 42 45 52 3f 22 3b  |TEGORY NUMBER?";|
00000590  0d 02 58 0a 43 3d a5 2d  34 39 0d 02 62 0f e7 20  |..X.C=.-49..b.. |
000005a0  43 3d 2d 33 36 20 8c 20  e1 0d 02 6c 16 e7 20 43  |C=-36 . ...l.. C|
000005b0  3c 30 20 84 20 43 3e 37  20 8c 20 8d 44 58 42 0d  |<0 . C>7 . .DXB.|
000005c0  02 76 0c f2 53 48 4f 57  43 41 54 0d 02 80 18 e7  |.v..SHOWCAT.....|
000005d0  20 47 3d 31 33 20 8c 20  8d 74 4a 42 20 8b 20 8d  | G=13 . .tJB . .|
000005e0  54 7a 42 0d 02 8a 05 e1  0d 02 94 0b dd 20 f2 4d  |TzB.......... .M|
000005f0  45 4e 55 0d 02 9e 14 db  3a ef 32 33 2c 31 2c 30  |ENU.....:.23,1,0|
00000600  3b 30 3b 30 3b 30 3b 0d  02 a8 16 f1 8a 31 30 2c  |;0;0;0;......10,|
00000610  32 29 22 4d 41 49 4e 20  4d 45 4e 55 22 0d 02 ad  |2)"MAIN MENU"...|
00000620  16 f1 8a 31 30 2c 33 29  22 7e 7e 7e 7e 7e 7e 7e  |...10,3)"~~~~~~~|
00000630  7e 7e 22 0d 02 b2 1d f1  8a 31 30 2c 35 29 22 31  |~~"......10,5)"1|
00000640  3a 5f 4d 61 6b 65 20 61  6e 20 65 6e 74 72 79 22  |:_Make an entry"|
00000650  0d 02 bc 1c f1 8a 31 30  2c 37 29 22 32 3a 5f 56  |......10,7)"2:_V|
00000660  69 65 77 20 65 6e 74 72  69 65 73 22 0d 02 c6 1c  |iew entries"....|
00000670  f1 8a 31 30 2c 39 29 22  33 3a 5f 53 61 76 65 20  |..10,9)"3:_Save |
00000680  74 6f 20 64 69 73 63 22  0d 02 d0 1f f1 8a 31 30  |to disc"......10|
00000690  2c 31 31 29 22 34 3a 5f  4c 6f 61 64 20 66 72 6f  |,11)"4:_Load fro|
000006a0  6d 20 64 69 73 63 22 0d  02 da 1f f1 8a 31 30 2c  |m disc"......10,|
000006b0  31 33 29 22 35 3a 5f 50  72 69 6e 74 65 72 20 6f  |13)"5:_Printer o|
000006c0  70 74 69 6f 6e 22 0d 02  e4 1d f1 8a 31 30 2c 31  |ption"......10,1|
000006d0  35 29 22 36 3a 5f 43 68  61 6e 67 65 20 65 6e 74  |5)"6:_Change ent|
000006e0  72 79 22 0d 02 ee 1d f1  8a 31 30 2c 31 37 29 22  |ry"......10,17)"|
000006f0  37 3a 5f 51 75 69 74 20  70 72 6f 67 72 61 6d 22  |7:_Quit program"|
00000700  0d 02 f8 1b f1 8a 31 30  2c 32 30 29 22 53 45 4c  |......10,20)"SEL|
00000710  45 43 54 20 4f 50 54 49  4f 4e 22 0d 03 02 0a 41  |ECT OPTION"....A|
00000720  3d a5 2d 34 38 0d 03 0c  16 e7 20 41 3c 31 20 84  |=.-48..... A<1 .|
00000730  20 41 3e 37 20 8c 20 8d  54 42 43 0d 03 11 14 ef  | A>7 . .TBC.....|
00000740  32 33 2c 31 2c 31 3b 30  3b 30 3b 30 3b 30 3b 0d  |23,1,1;0;0;0;0;.|
00000750  03 16 05 e1 0d 03 20 0a  dd f2 53 41 56 45 0d 03  |...... ...SAVE..|
00000760  2a 16 e8 22 4e 41 4d 45  20 4f 46 20 46 49 4c 45  |*.."NAME OF FILE|
00000770  22 2c 44 24 0d 03 34 0e  e7 20 44 24 3d 22 22 8c  |",D$..4.. D$="".|
00000780  20 e1 0d 03 3e 2b 48 3d  ae 28 44 24 29 3a f1 22  | ...>+H=.(D$):."|
00000790  53 41 56 49 4e 47 20 49  4e 46 4f 52 4d 41 54 49  |SAVING INFORMATI|
000007a0  4f 4e 20 4e 4f 57 22 3a  f1 23 48 2c 4e 0d 03 48  |ON NOW":.#H,N..H|
000007b0  2a e3 20 54 3d 31 20 b8  20 4e 3a f1 23 48 2c 44  |*. T=1 . N:.#H,D|
000007c0  24 28 54 29 2c 41 24 28  54 29 2c 41 28 54 29 3a  |$(T),A$(T),A(T):|
000007d0  ed 3a d9 23 48 3a e1 0d  03 52 0a dd f2 4c 4f 41  |.:.#H:...R...LOA|
000007e0  44 0d 03 5c 19 e8 22 4c  4f 41 44 20 57 48 49 43  |D..\.."LOAD WHIC|
000007f0  48 20 46 49 4c 45 22 2c  44 24 0d 03 70 11 48 3d  |H FILE",D$..p.H=|
00000800  8e 28 44 24 29 3a e8 23  48 2c 4e 0d 03 7a 22 e3  |.(D$):.#H,N..z".|
00000810  20 54 3d 31 20 b8 20 4e  3a e8 23 48 2c 44 24 28  | T=1 . N:.#H,D$(|
00000820  54 29 2c 41 24 28 54 29  2c 41 28 54 29 0d 03 84  |T),A$(T),A(T)...|
00000830  32 e7 20 97 28 41 24 28  54 29 29 3d 37 20 8c 20  |2. .(A$(T))=7 . |
00000840  50 41 59 3d 50 41 59 2b  41 28 54 29 20 8b 20 53  |PAY=PAY+A(T) . S|
00000850  50 45 4e 54 3d 53 50 45  4e 54 2b 41 28 54 29 0d  |PENT=SPENT+A(T).|
00000860  03 8e 0b ed 3a d9 23 48  3a e1 0d 03 98 0b dd f2  |....:.#H:.......|
00000870  50 52 49 4e 54 0d 03 a2  13 f1 22 50 52 49 4e 54  |PRINT....."PRINT|
00000880  45 52 28 59 2f 4e 29 22  0d 03 ac 20 47 3d a5 20  |ER(Y/N)"... G=. |
00000890  80 20 26 35 46 3a e7 20  47 3d 38 39 20 8c 20 57  |. &5F:. G=89 . W|
000008a0  3d 32 3a e5 8d 64 40 43  0d 03 b6 18 e7 20 47 3c  |=2:..d@C..... G<|
000008b0  3e 37 38 20 8c 20 8d 74  6c 43 20 8b 20 57 3d 33  |>78 . .tlC . W=3|
000008c0  0d 03 c0 05 e1 0d 03 ca  0e dd 20 f2 43 48 41 4e  |.......... .CHAN|
000008d0  47 45 20 0d 03 d4 09 db  3a 54 3d 31 0d 03 de 0d  |GE .....:T=1....|
000008e0  e7 20 4e 3d 30 20 8c 20  e1 0d 03 e8 05 f5 0d 03  |. N=0 . ........|
000008f0  f2 4f db 3a f1 27 27 22  45 4e 54 52 59 20 4e 55  |.O.:.''"ENTRY NU|
00000900  4d 42 45 52 20 22 3b c3  28 54 29 27 44 24 28 54  |MBER ";.(T)'D$(T|
00000910  29 2c c2 41 24 28 54 29  2c a9 28 41 24 28 54 29  |),.A$(T),.(A$(T)|
00000920  29 2d 31 29 27 22 27 22  3b 41 28 54 29 2c 4b 24  |)-1)'"'";A(T),K$|
00000930  28 97 28 41 24 28 54 29  29 29 27 27 20 0d 03 fc  |(.(A$(T)))'' ...|
00000940  4a f1 27 27 22 27 2c 27  54 4f 20 4d 4f 56 45 20  |J.''"','TO MOVE |
00000950  42 41 43 4b 22 27 22 27  2e 27 54 4f 20 4d 4f 56  |BACK"'"'.'TO MOV|
00000960  45 20 46 4f 52 57 41 52  44 22 27 22 53 50 41 43  |E FORWARD"'"SPAC|
00000970  45 20 42 41 52 20 54 4f  20 43 48 41 4e 47 45 20  |E BAR TO CHANGE |
00000980  45 4e 54 52 59 22 20 0d  04 06 09 20 41 24 3d be  |ENTRY" .... A$=.|
00000990  0d 04 10 1f e7 20 41 24  3d 22 2c 22 8c 20 54 3d  |..... A$=",". T=|
000009a0  54 2d 31 3a e7 20 54 3c  31 20 8c 20 54 3d 31 0d  |T-1:. T<1 . T=1.|
000009b0  04 1a 25 e7 20 41 24 3d  22 2e 22 8c 20 54 3d 54  |..%. A$=".". T=T|
000009c0  2b 31 3a e7 20 54 3e 4e  20 8c 20 54 3d 4e 20 20  |+1:. T>N . T=N  |
000009d0  20 20 20 20 0d 04 24 18  fd 28 41 24 3d 22 20 22  |    ..$..(A$=" "|
000009e0  20 84 20 41 24 3d bd 28  31 33 29 29 0d 04 2e 16  | . A$=.(13))....|
000009f0  e7 20 41 24 3d bd 28 31  33 29 20 8c 20 e1 20 20  |. A$=.(13) . .  |
00000a00  20 20 0d 04 38 20 45 3d  54 3a f1 27 22 43 48 41  |  ..8 E=T:.'"CHA|
00000a10  4e 47 49 4e 47 20 54 48  49 53 20 45 4e 54 52 59  |NGING THIS ENTRY|
00000a20  22 20 0d 04 42 13 43 41  24 3d bd 28 97 28 41 24  |" ..B.CA$=.(.(A$|
00000a30  28 45 29 29 29 0d 04 4c  35 e7 20 97 28 41 24 28  |(E)))..L5. .(A$(|
00000a40  45 29 29 3d 37 20 8c 20  50 41 59 3d 50 41 59 2d  |E))=7 . PAY=PAY-|
00000a50  41 28 45 29 20 8b 20 53  50 45 4e 54 3d 53 50 45  |A(E) . SPENT=SPE|
00000a60  4e 54 2d 41 28 45 29 20  20 20 0d 04 56 22 e8 22  |NT-A(E)   ..V"."|
00000a70  44 41 54 45 20 22 2c 51  24 3a e7 20 51 24 3c 3e  |DATE ",Q$:. Q$<>|
00000a80  22 22 8c 20 44 24 28 45  29 3d 51 24 0d 04 60 3d  |"". D$(E)=Q$..`=|
00000a90  e8 22 49 54 45 4d 20 22  2c 51 24 3a e7 20 51 24  |."ITEM ",Q$:. Q$|
00000aa0  3c 3e 22 22 8c 20 41 24  28 45 29 3d 51 24 20 8b  |<>"". A$(E)=Q$ .|
00000ab0  20 41 24 28 45 29 3d c2  41 24 28 45 29 2c a9 28  | A$(E)=.A$(E),.(|
00000ac0  41 24 28 45 29 29 2d 31  29 0d 04 6a 26 e8 22 41  |A$(E))-1)..j&."A|
00000ad0  4d 4f 55 4e 54 20 22 2c  51 24 3a e7 20 51 24 3c  |MOUNT ",Q$:. Q$<|
00000ae0  3e 22 22 8c 20 41 28 45  29 3d a0 28 51 24 29 0d  |>"". A(E)=.(Q$).|
00000af0  04 74 24 e8 22 43 41 54  45 47 4f 52 59 20 22 2c  |.t$."CATEGORY ",|
00000b00  51 24 3a e7 20 51 24 3c  3e 22 22 8c 20 43 41 24  |Q$:. Q$<>"". CA$|
00000b10  3d 51 24 0d 04 7e 0a e5  20 8d 74 52 44 0d 04 88  |=Q$..~.. .tRD...|
00000b20  1c e8 22 52 45 5f 45 4e  54 45 52 20 43 41 54 45  |.."RE_ENTER CATE|
00000b30  47 4f 52 59 22 2c 43 41  24 0d 04 92 11 58 3d 30  |GORY",CA$....X=0|
00000b40  3a e3 20 54 3d 30 20 b8  20 37 0d 04 9c 1f e7 20  |:. T=0 . 7..... |
00000b50  a7 4b 24 28 54 29 2c 43  41 24 29 3d 31 20 8c 20  |.K$(T),CA$)=1 . |
00000b60  58 3d 58 2b 31 3a 59 3d  54 0d 04 a6 07 ed 20 54  |X=X+1:Y=T..... T|
00000b70  0d 04 b0 11 e7 20 58 3c  3e 31 20 8c 20 8d 74 48  |..... X<>1 . .tH|
00000b80  44 0d 04 ba 14 41 24 28  45 29 3d bd 28 59 29 2b  |D....A$(E)=.(Y)+|
00000b90  41 24 28 45 29 0d 04 c4  2b e7 20 59 3d 37 20 8c  |A$(E)...+. Y=7 .|
00000ba0  20 50 41 59 3d 50 41 59  2b 41 28 45 29 20 8b 20  | PAY=PAY+A(E) . |
00000bb0  53 50 45 4e 54 3d 53 50  45 4e 54 2b 41 28 45 29  |SPENT=SPENT+A(E)|
00000bc0  0d 04 ce 1f f1 22 43 4f  52 52 45 43 54 49 4f 4e  |....."CORRECTION|
00000bd0  20 4d 41 44 45 22 3a 47  3d a6 28 32 30 30 29 0d  | MADE":G=.(200).|
00000be0  04 d8 05 e1 0d 04 e2 3a  dc 20 43 41 53 48 2c 43  |.......:. CASH,C|
00000bf0  48 45 51 55 45 2c 42 55  44 47 45 54 2c 42 4f 52  |HEQUE,BUDGET,BOR|
00000c00  52 4f 57 2c 4c 4f 41 4e  2c 4f 52 44 45 52 2c 53  |ROW,LOAN,ORDER,S|
00000c10  55 4e 44 52 49 45 53 2c  49 4e 43 4f 4d 45 0d ff  |UNDRIES,INCOME..|
00000c20