# �   POCKET MONEY CHART PRINTER
 
 �    by  M. FORD    1992
	 

h A$=�1+�27+�1+�109+�1+�2+�&B3+�1+�27+�1+�109+�1+�0:P$=�1+�27+�1+�109+�1+�3+�&9C+�1+�27+�1+�109+�1+�0
, �"Year (add spaces between figures)",Y$
. �"Months (add spaces between letters)",M$
(  � �"Initial Balance (`)",B$
2* � �"Initial Pocket Money Owed (`)",O$
< �"Number of weeks",W
F � 2
P� �'"       ";:� 1,27,1,120,1,1,1,27,1,33,1,56,1,27,1,45,1,1:�"P O C K E T   M O N E Y   ";Y$:� 1,27,1,45,1,0,1,27,1,33,1,24,1,27,1,52
Z5 �''�((80-�(M$))/2);M$:� 1,27,1,53,1,27,1,33,1,16
d( �''�(27);"Initial Balance = ";P$;B$
n1 �'�(17);"Initial Pocket Money Owed = ";P$;O$
x� �''A$;�(14);A$;"Pocket";A$;"Amount";A$;"Amount";A$;" OWED ";A$;"      ";A$;"      ";A$;"  IN  ";A$;"      ";A$;"       ";A$;
�� �A$;"     Week     ";A$;"money ";A$;" paid ";A$;" lent ";A$;" THIS ";A$;"Other ";A$;"Amount";A$;" THIS ";A$;:� 1,27,1,33,1,24:�"TOTAL ";:� 1,27,1,33,1,16:�A$;:� 1,27,1,33,1,24:�"  NEW  ";:� 1,27,1,33,1,16:�A$;
�� �A$;"    ending    ";A$;" due  ";A$;"  in  ";A$;" out  ";A$;" WEEK ";A$;"income";A$;"spent ";A$;" WEEK ";A$;:� 1,27,1,33,1,24:�" OWED ";:� 1,27,1,33,1,16:�A$;:� 1,27,1,33,1,24:�"BALANCE";:� 1,27,1,33,1,16:�A$;
� �week=1 � W
�
 �line
�_ � W$:�A$;�(14-�(W$));W$;A$;P$;" 1.50";A$;:�column=1 � 7:�P$;"  .  ";A$;:�:�P$;"   .  ";A$;
� �
�� � 1,27,1,109,1,2,&C0,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C1:�column=1 � 8:�&C4,&C4,&C4,&C4,&C4,&C4,&C1:�:�&C4,&C4,&C4,&C4,&C4,&C4,&C4,&BC,1,27,1,109,1,0
�
 � 3:�
� ��line
ܲ � 1,27,1,109,1,2,&C3,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C5:�column=1 � 8:�&C4,&C4,&C4,&C4,&C4,&C4,&C5:�:�&C4,&C4,&C4,&C4,&C4,&C4,&C4,&B4,1,27,1,109,1,0
� �
�k � "October 16th","23rd","30th","November 6th","13th","20th","27th","December 4th","11th","18th","25th"
�

00000000  0d 00 05 23 20 f4 20 20  20 50 4f 43 4b 45 54 20  |...# .   POCKET |
00000010  4d 4f 4e 45 59 20 43 48  41 52 54 20 50 52 49 4e  |MONEY CHART PRIN|
00000020  54 45 52 0d 00 07 05 20  0d 00 08 1d 20 f4 20 20  |TER.... .... .  |
00000030  20 20 62 79 20 20 4d 2e  20 46 4f 52 44 20 20 20  |  by  M. FORD   |
00000040  20 31 39 39 32 0d 00 09  05 20 0d 00 0a 68 20 41  | 1992.... ...h A|
00000050  24 3d bd 31 2b bd 32 37  2b bd 31 2b bd 31 30 39  |$=.1+.27+.1+.109|
00000060  2b bd 31 2b bd 32 2b bd  26 42 33 2b bd 31 2b bd  |+.1+.2+.&B3+.1+.|
00000070  32 37 2b bd 31 2b bd 31  30 39 2b bd 31 2b bd 30  |27+.1+.109+.1+.0|
00000080  3a 50 24 3d bd 31 2b bd  32 37 2b bd 31 2b bd 31  |:P$=.1+.27+.1+.1|
00000090  30 39 2b bd 31 2b bd 33  2b bd 26 39 43 2b bd 31  |09+.1+.3+.&9C+.1|
000000a0  2b bd 32 37 2b bd 31 2b  bd 31 30 39 2b bd 31 2b  |+.27+.1+.109+.1+|
000000b0  bd 30 0d 00 14 2c 20 e8  22 59 65 61 72 20 28 61  |.0..., ."Year (a|
000000c0  64 64 20 73 70 61 63 65  73 20 62 65 74 77 65 65  |dd spaces betwee|
000000d0  6e 20 66 69 67 75 72 65  73 29 22 2c 59 24 0d 00  |n figures)",Y$..|
000000e0  1e 2e 20 e8 22 4d 6f 6e  74 68 73 20 28 61 64 64  |.. ."Months (add|
000000f0  20 73 70 61 63 65 73 20  62 65 74 77 65 65 6e 20  | spaces between |
00000100  6c 65 74 74 65 72 73 29  22 2c 4d 24 0d 00 28 20  |letters)",M$..( |
00000110  20 e8 20 86 22 49 6e 69  74 69 61 6c 20 42 61 6c  | . ."Initial Bal|
00000120  61 6e 63 65 20 28 60 29  22 2c 42 24 0d 00 32 2a  |ance (`)",B$..2*|
00000130  20 e8 20 86 22 49 6e 69  74 69 61 6c 20 50 6f 63  | . ."Initial Poc|
00000140  6b 65 74 20 4d 6f 6e 65  79 20 4f 77 65 64 20 28  |ket Money Owed (|
00000150  60 29 22 2c 4f 24 0d 00  3c 19 20 e8 22 4e 75 6d  |`)",O$..<. ."Num|
00000160  62 65 72 20 6f 66 20 77  65 65 6b 73 22 2c 57 0d  |ber of weeks",W.|
00000170  00 46 08 20 ef 20 32 0d  00 50 89 20 f1 27 22 20  |.F. . 2..P. .'" |
00000180  20 20 20 20 20 20 22 3b  3a ef 20 31 2c 32 37 2c  |      ";:. 1,27,|
00000190  31 2c 31 32 30 2c 31 2c  31 2c 31 2c 32 37 2c 31  |1,120,1,1,1,27,1|
000001a0  2c 33 33 2c 31 2c 35 36  2c 31 2c 32 37 2c 31 2c  |,33,1,56,1,27,1,|
000001b0  34 35 2c 31 2c 31 3a f1  22 50 20 4f 20 43 20 4b  |45,1,1:."P O C K|
000001c0  20 45 20 54 20 20 20 4d  20 4f 20 4e 20 45 20 59  | E T   M O N E Y|
000001d0  20 20 20 22 3b 59 24 3a  ef 20 31 2c 32 37 2c 31  |   ";Y$:. 1,27,1|
000001e0  2c 34 35 2c 31 2c 30 2c  31 2c 32 37 2c 31 2c 33  |,45,1,0,1,27,1,3|
000001f0  33 2c 31 2c 32 34 2c 31  2c 32 37 2c 31 2c 35 32  |3,1,24,1,27,1,52|
00000200  0d 00 5a 35 20 f1 27 27  89 28 28 38 30 2d a9 28  |..Z5 .''.((80-.(|
00000210  4d 24 29 29 2f 32 29 3b  4d 24 3a ef 20 31 2c 32  |M$))/2);M$:. 1,2|
00000220  37 2c 31 2c 35 33 2c 31  2c 32 37 2c 31 2c 33 33  |7,1,53,1,27,1,33|
00000230  2c 31 2c 31 36 0d 00 64  28 20 f1 27 27 89 28 32  |,1,16..d( .''.(2|
00000240  37 29 3b 22 49 6e 69 74  69 61 6c 20 42 61 6c 61  |7);"Initial Bala|
00000250  6e 63 65 20 3d 20 22 3b  50 24 3b 42 24 0d 00 6e  |nce = ";P$;B$..n|
00000260  31 20 f1 27 89 28 31 37  29 3b 22 49 6e 69 74 69  |1 .'.(17);"Initi|
00000270  61 6c 20 50 6f 63 6b 65  74 20 4d 6f 6e 65 79 20  |al Pocket Money |
00000280  4f 77 65 64 20 3d 20 22  3b 50 24 3b 4f 24 0d 00  |Owed = ";P$;O$..|
00000290  78 81 20 f1 27 27 41 24  3b 89 28 31 34 29 3b 41  |x. .''A$;.(14);A|
000002a0  24 3b 22 50 6f 63 6b 65  74 22 3b 41 24 3b 22 41  |$;"Pocket";A$;"A|
000002b0  6d 6f 75 6e 74 22 3b 41  24 3b 22 41 6d 6f 75 6e  |mount";A$;"Amoun|
000002c0  74 22 3b 41 24 3b 22 20  4f 57 45 44 20 22 3b 41  |t";A$;" OWED ";A|
000002d0  24 3b 22 20 20 20 20 20  20 22 3b 41 24 3b 22 20  |$;"      ";A$;" |
000002e0  20 20 20 20 20 22 3b 41  24 3b 22 20 20 49 4e 20  |     ";A$;"  IN |
000002f0  20 22 3b 41 24 3b 22 20  20 20 20 20 20 22 3b 41  | ";A$;"      ";A|
00000300  24 3b 22 20 20 20 20 20  20 20 22 3b 41 24 3b 0d  |$;"       ";A$;.|
00000310  00 82 d6 20 f1 41 24 3b  22 20 20 20 20 20 57 65  |... .A$;"     We|
00000320  65 6b 20 20 20 20 20 22  3b 41 24 3b 22 6d 6f 6e  |ek     ";A$;"mon|
00000330  65 79 20 22 3b 41 24 3b  22 20 70 61 69 64 20 22  |ey ";A$;" paid "|
00000340  3b 41 24 3b 22 20 6c 65  6e 74 20 22 3b 41 24 3b  |;A$;" lent ";A$;|
00000350  22 20 54 48 49 53 20 22  3b 41 24 3b 22 4f 74 68  |" THIS ";A$;"Oth|
00000360  65 72 20 22 3b 41 24 3b  22 41 6d 6f 75 6e 74 22  |er ";A$;"Amount"|
00000370  3b 41 24 3b 22 20 54 48  49 53 20 22 3b 41 24 3b  |;A$;" THIS ";A$;|
00000380  3a ef 20 31 2c 32 37 2c  31 2c 33 33 2c 31 2c 32  |:. 1,27,1,33,1,2|
00000390  34 3a f1 22 54 4f 54 41  4c 20 22 3b 3a ef 20 31  |4:."TOTAL ";:. 1|
000003a0  2c 32 37 2c 31 2c 33 33  2c 31 2c 31 36 3a f1 41  |,27,1,33,1,16:.A|
000003b0  24 3b 3a ef 20 31 2c 32  37 2c 31 2c 33 33 2c 31  |$;:. 1,27,1,33,1|
000003c0  2c 32 34 3a f1 22 20 20  4e 45 57 20 20 22 3b 3a  |,24:."  NEW  ";:|
000003d0  ef 20 31 2c 32 37 2c 31  2c 33 33 2c 31 2c 31 36  |. 1,27,1,33,1,16|
000003e0  3a f1 41 24 3b 0d 00 8c  d6 20 f1 41 24 3b 22 20  |:.A$;.... .A$;" |
000003f0  20 20 20 65 6e 64 69 6e  67 20 20 20 20 22 3b 41  |   ending    ";A|
00000400  24 3b 22 20 64 75 65 20  20 22 3b 41 24 3b 22 20  |$;" due  ";A$;" |
00000410  20 69 6e 20 20 22 3b 41  24 3b 22 20 6f 75 74 20  | in  ";A$;" out |
00000420  20 22 3b 41 24 3b 22 20  57 45 45 4b 20 22 3b 41  | ";A$;" WEEK ";A|
00000430  24 3b 22 69 6e 63 6f 6d  65 22 3b 41 24 3b 22 73  |$;"income";A$;"s|
00000440  70 65 6e 74 20 22 3b 41  24 3b 22 20 57 45 45 4b  |pent ";A$;" WEEK|
00000450  20 22 3b 41 24 3b 3a ef  20 31 2c 32 37 2c 31 2c  | ";A$;:. 1,27,1,|
00000460  33 33 2c 31 2c 32 34 3a  f1 22 20 4f 57 45 44 20  |33,1,24:." OWED |
00000470  22 3b 3a ef 20 31 2c 32  37 2c 31 2c 33 33 2c 31  |";:. 1,27,1,33,1|
00000480  2c 31 36 3a f1 41 24 3b  3a ef 20 31 2c 32 37 2c  |,16:.A$;:. 1,27,|
00000490  31 2c 33 33 2c 31 2c 32  34 3a f1 22 42 41 4c 41  |1,33,1,24:."BALA|
000004a0  4e 43 45 22 3b 3a ef 20  31 2c 32 37 2c 31 2c 33  |NCE";:. 1,27,1,3|
000004b0  33 2c 31 2c 31 36 3a f1  41 24 3b 0d 00 96 10 20  |3,1,16:.A$;.... |
000004c0  e3 77 65 65 6b 3d 31 20  b8 20 57 0d 00 a0 0a 20  |.week=1 . W.... |
000004d0  f2 6c 69 6e 65 0d 00 aa  5f 20 f3 20 57 24 3a f1  |.line..._ . W$:.|
000004e0  41 24 3b 89 28 31 34 2d  a9 28 57 24 29 29 3b 57  |A$;.(14-.(W$));W|
000004f0  24 3b 41 24 3b 50 24 3b  22 20 31 2e 35 30 22 3b  |$;A$;P$;" 1.50";|
00000500  41 24 3b 3a e3 63 6f 6c  75 6d 6e 3d 31 20 b8 20  |A$;:.column=1 . |
00000510  37 3a f1 50 24 3b 22 20  20 2e 20 20 22 3b 41 24  |7:.P$;"  .  ";A$|
00000520  3b 3a ed 3a f1 50 24 3b  22 20 20 20 2e 20 20 22  |;:.:.P$;"   .  "|
00000530  3b 41 24 3b 0d 00 b4 06  20 ed 0d 00 be b2 20 ef  |;A$;.... ..... .|
00000540  20 31 2c 32 37 2c 31 2c  31 30 39 2c 31 2c 32 2c  | 1,27,1,109,1,2,|
00000550  26 43 30 2c 26 43 34 2c  26 43 34 2c 26 43 34 2c  |&C0,&C4,&C4,&C4,|
00000560  26 43 34 2c 26 43 34 2c  26 43 34 2c 26 43 34 2c  |&C4,&C4,&C4,&C4,|
*
00000580  26 43 34 2c 26 43 34 2c  26 43 34 2c 26 43 31 3a  |&C4,&C4,&C4,&C1:|
00000590  e3 63 6f 6c 75 6d 6e 3d  31 20 b8 20 38 3a ef 26  |.column=1 . 8:.&|
000005a0  43 34 2c 26 43 34 2c 26  43 34 2c 26 43 34 2c 26  |C4,&C4,&C4,&C4,&|
000005b0  43 34 2c 26 43 34 2c 26  43 31 3a ed 3a ef 26 43  |C4,&C4,&C1:.:.&C|
000005c0  34 2c 26 43 34 2c 26 43  34 2c 26 43 34 2c 26 43  |4,&C4,&C4,&C4,&C|
000005d0  34 2c 26 43 34 2c 26 43  34 2c 26 42 43 2c 31 2c  |4,&C4,&C4,&BC,1,|
000005e0  32 37 2c 31 2c 31 30 39  2c 31 2c 30 0d 00 c8 0a  |27,1,109,1,0....|
000005f0  20 ef 20 33 3a e0 0d 00  d2 0b 20 dd f2 6c 69 6e  | . 3:..... ..lin|
00000600  65 0d 00 dc b2 20 ef 20  31 2c 32 37 2c 31 2c 31  |e.... . 1,27,1,1|
00000610  30 39 2c 31 2c 32 2c 26  43 33 2c 26 43 34 2c 26  |09,1,2,&C3,&C4,&|
00000620  43 34 2c 26 43 34 2c 26  43 34 2c 26 43 34 2c 26  |C4,&C4,&C4,&C4,&|
*
00000650  43 34 2c 26 43 35 3a e3  63 6f 6c 75 6d 6e 3d 31  |C4,&C5:.column=1|
00000660  20 b8 20 38 3a ef 26 43  34 2c 26 43 34 2c 26 43  | . 8:.&C4,&C4,&C|
00000670  34 2c 26 43 34 2c 26 43  34 2c 26 43 34 2c 26 43  |4,&C4,&C4,&C4,&C|
00000680  35 3a ed 3a ef 26 43 34  2c 26 43 34 2c 26 43 34  |5:.:.&C4,&C4,&C4|
00000690  2c 26 43 34 2c 26 43 34  2c 26 43 34 2c 26 43 34  |,&C4,&C4,&C4,&C4|
000006a0  2c 26 42 34 2c 31 2c 32  37 2c 31 2c 31 30 39 2c  |,&B4,1,27,1,109,|
000006b0  31 2c 30 0d 00 e6 06 20  e1 0d 00 f0 6b 20 dc 20  |1,0.... ....k . |
000006c0  22 4f 63 74 6f 62 65 72  20 31 36 74 68 22 2c 22  |"October 16th","|
000006d0  32 33 72 64 22 2c 22 33  30 74 68 22 2c 22 4e 6f  |23rd","30th","No|
000006e0  76 65 6d 62 65 72 20 36  74 68 22 2c 22 31 33 74  |vember 6th","13t|
000006f0  68 22 2c 22 32 30 74 68  22 2c 22 32 37 74 68 22  |h","20th","27th"|
00000700  2c 22 44 65 63 65 6d 62  65 72 20 34 74 68 22 2c  |,"December 4th",|
00000710  22 31 31 74 68 22 2c 22  31 38 74 68 22 2c 22 32  |"11th","18th","2|
00000720  35 74 68 22 0d ff                                 |5th"..|
00000726