Home » Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE2/B/PMChart

TAPE2/B/PMChart

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 » MTF_finished_programs.ADF
Filename: TAPE2/B/PMChart
Read OK:
File size: 0726 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
    5 REM   POCKET MONEY CHART PRINTER
    7 
    8 REM    by  M. FORD    1992
    9 
   10 A$=CHR$1+CHR$27+CHR$1+CHR$109+CHR$1+CHR$2+CHR$&B3+CHR$1+CHR$27+CHR$1+CHR$109+CHR$1+CHR$0:P$=CHR$1+CHR$27+CHR$1+CHR$109+CHR$1+CHR$3+CHR$&9C+CHR$1+CHR$27+CHR$1+CHR$109+CHR$1+CHR$0
   20 INPUT"Year (add spaces between figures)",Y$
   30 INPUT"Months (add spaces between letters)",M$
   40 INPUT LINE"Initial Balance (`)",B$
   50 INPUT LINE"Initial Pocket Money Owed (`)",O$
   60 INPUT"Number of weeks",W
   70 VDU 2
   80 PRINT'"       ";:VDU 1,27,1,120,1,1,1,27,1,33,1,56,1,27,1,45,1,1:PRINT"P O C K E T   M O N E Y   ";Y$:VDU 1,27,1,45,1,0,1,27,1,33,1,24,1,27,1,52
   90 PRINT''SPC((80-LEN(M$))/2);M$:VDU 1,27,1,53,1,27,1,33,1,16
  100 PRINT''SPC(27);"Initial Balance = ";P$;B$
  110 PRINT'SPC(17);"Initial Pocket Money Owed = ";P$;O$
  120 PRINT''A$;SPC(14);A$;"Pocket";A$;"Amount";A$;"Amount";A$;" OWED ";A$;"      ";A$;"      ";A$;"  IN  ";A$;"      ";A$;"       ";A$;
  130 PRINTA$;"     Week     ";A$;"money ";A$;" paid ";A$;" lent ";A$;" THIS ";A$;"Other ";A$;"Amount";A$;" THIS ";A$;:VDU 1,27,1,33,1,24:PRINT"TOTAL ";:VDU 1,27,1,33,1,16:PRINTA$;:VDU 1,27,1,33,1,24:PRINT"  NEW  ";:VDU 1,27,1,33,1,16:PRINTA$;
  140 PRINTA$;"    ending    ";A$;" due  ";A$;"  in  ";A$;" out  ";A$;" WEEK ";A$;"income";A$;"spent ";A$;" WEEK ";A$;:VDU 1,27,1,33,1,24:PRINT" OWED ";:VDU 1,27,1,33,1,16:PRINTA$;:VDU 1,27,1,33,1,24:PRINT"BALANCE";:VDU 1,27,1,33,1,16:PRINTA$;
  150 FORweek=1 TO W
  160 PROCline
  170 READ W$:PRINTA$;SPC(14-LEN(W$));W$;A$;P$;" 1.50";A$;:FORcolumn=1 TO 7:PRINTP$;"  .  ";A$;:NEXT:PRINTP$;"   .  ";A$;
  180 NEXT
  190 VDU 1,27,1,109,1,2,&C0,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C1:FORcolumn=1 TO 8:VDU&C4,&C4,&C4,&C4,&C4,&C4,&C1:NEXT:VDU&C4,&C4,&C4,&C4,&C4,&C4,&C4,&BC,1,27,1,109,1,0
  200 VDU 3:END
  210 DEFPROCline
  220 VDU 1,27,1,109,1,2,&C3,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C4,&C5:FORcolumn=1 TO 8:VDU&C4,&C4,&C4,&C4,&C4,&C4,&C5:NEXT:VDU&C4,&C4,&C4,&C4,&C4,&C4,&C4,&B4,1,27,1,109,1,0
  230 ENDPROC
  240 DATA "October 16th","23rd","30th","November 6th","13th","20th","27th","December 4th","11th","18th","25th"
# �   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
TAPE2/B/PMChart.m0
TAPE2/B/PMChart.m1
TAPE2/B/PMChart.m2
TAPE2/B/PMChart.m4
TAPE2/B/PMChart.m5