Money

Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav » Money

Money

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 tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav
Filename:	Money
Read OK:	✔
File size:	05BA bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

   10 REM Pocket Money
   20 MODE 6:INPUT"Title";t$
   30 IF LEN(t$)>78 THEN PRINT"Shorten":GOTO 20
   34 INPUT"Sub-title";st$
   35 IF LEN(st$)>78 THEN PRINT"Shorten":GOTO 34
   40 INPUT"Number of weeks";nw
   50 IF nw>52 THEN PRINT"Too many.":GOTO 40
   60 IF INT(nw)<>nw THEN PRINT"Whole number please!":GOTO 40
   70 INPUT"Month";m$
   80 RESTORE 240:FOR x=0 TO 11:READ N$,d
   90 IF m$=N$ THEN in=d:GOTO 120 ELSE in=0
  100 NEXT
  110 PRINT"I have not heard of ";m$:GOTO 70
  120 INPUT"Is it a leap year (Y/N)";l$
  130 IF l$="Y" THEN l=1:GOTO 170
  140 IF l$="N" THEN l=0:GOTO 170
  150 PRINT"Silly!":GOTO 120
  160 IF l=1 THEN IF in=28 THEN in=29
  170 INPUT"Is it a leap year next year (Y/N)";l$
  180 IF l$="Y" THEN nl=1:GOTO 210
  190 IF l$="N" THEN nl=0:GOTO 210
  200 PRINT"Silly!":GOTO 170
  210 INPUT"What day shall I start on";dd
  220 IF dd>in THEN PRINT"silly!":GOTO 210
  230 GOTO 300
  240 DATA "JANUARY",31,"FEBUARY",28
  250 DATA "MARCH",31,"APRIL",30
  260 DATA "MAY",31,"JUNE",30
  270 DATA "JULY",31,"AUGUST",31
  280 DATA "SEPTEMBER",30,"OCTOBER",31
  290 DATA "NOVEMBER",30,"DECEMBER",31
  300 CLS:PRINTTAB(10,10);"Press any key to print":A$=GET$
  310 P$=CHR$1+CHR$27+CHR$54+CHR$1+CHR$&9C+CHR$1+CHR$10
  320 V$=CHR$1+CHR$27+CHR$54+CHR$1+CHR$&BA+CHR$1+CHR$10
  330 VDU 2,1,27,110
  340 VDU 1,27,54,1,&DA:FORl=0 TO 78
  350 VDU 1,&CD:NEXT:PRINT;V$;:VDU1,10
  360 l=LEN(t$):IF INT(l/2)<>l/2 THEN l=l+1
  370 g=(78-l)/2:IF g=0 THEN 390
  380 FOR lo=1 TO g:VDU 32:NEXT
  390 VDU1,27,69:PRINT;t$;:VDU1,27,70:IF g=0 THEN 410
  400 FOR lo=1 TO g:VDU 32:NEXT
  410 t=1:PROCacross:l=LEN(st$):IF INT(l/2)<>l/2 THEN l=l+1
  420 g=(78-l)/2:IF g=0 THEN 440
  430 FOR lo=1 TO g:VDU 32:NEXT
  440 VDU1,27,52:PRINT;t$;:VDU1,27,53:IF g=0 THEN 460
  450 FOR lo=1 TO g:VDU 32:NEXT
  460 t=1:PROCacross
 5000 REM t=0 No crosses
 5010 REM t=1 Bottom lines
 5020 REM t=2 crosses
 5030 REM t=3 Top lines


 � Pocket Money
 � 6:�"Title";t$
# � �(t$)>78 � �"Shorten":� �TT@
" �"Sub-title";st$
#$ � �(st$)>78 � �"Shorten":� �Tb@
( �"Number of weeks";nw
2" � nw>52 � �"Too many.":� �Th@
<1 � �(nw)<>nw � �"Whole number please!":� �Th@
F �"Month";m$
P � �dp@:� x=0 � 11:� N$,d
Z! � m$=N$ � in=d:� �Dx@ � in=0
d �
n& �"I have not heard of ";m$:� �DF@
x" �"Is it a leap year (Y/N)";l$
� � l$="Y" � l=1:� �tj@
� � l$="N" � l=0:� �tj@
� �"Silly!":� �Dx@
� � l=1 � � in=28 � in=29
�, �"Is it a leap year next year (Y/N)";l$
� � l$="Y" � nl=1:� �dR@
� � l$="N" � nl=0:� �dR@
� �"Silly!":� �tj@
�$ �"What day shall I start on";dd
� � dd>in � �"silly!":� �dR@
� � �TlA
�  � "JANUARY",31,"FEBUARY",28
� � "MARCH",31,"APRIL",30
 � "MAY",31,"JUNE",30
 � "JULY",31,"AUGUST",31
" � "SEPTEMBER",30,"OCTOBER",31
"" � "NOVEMBER",30,"DECEMBER",31
,- �:�10,10);"Press any key to print":A$=�
6! P$=�1+�27+�54+�1+�&9C+�1+�10
@! V$=�1+�27+�54+�1+�&BA+�1+�10
J � 2,1,27,110
T � 1,27,54,1,&DA:�l=0 � 78
^ � 1,&CD:�:�;V$;:�1,10
h" l=�(t$):� �(l/2)<>l/2 � l=l+1
r g=(78-l)/2:� g=0 � �tFA
| � lo=1 � g:� 32:�
�) �1,27,69:�;t$;:�1,27,70:� g=0 � �tZA
� � lo=1 � g:� 32:�
�/ t=1:�across:l=�(st$):� �(l/2)<>l/2 � l=l+1
� g=(78-l)/2:� g=0 � �txA
� � lo=1 � g:� 32:�
�) �1,27,52:�;t$;:�1,27,53:� g=0 � �dLA
� � lo=1 � g:� 32:�
� t=1:�across
� � t=0 No crosses
� � t=1 Bottom lines
� � t=2 crosses
� � t=3 Top lines
�

00000000  0d 00 0a 13 20 f4 20 50  6f 63 6b 65 74 20 4d 6f  |.... . Pocket Mo|
00000010  6e 65 79 0d 00 14 14 20  eb 20 36 3a e8 22 54 69  |ney.... . 6:."Ti|
00000020  74 6c 65 22 3b 74 24 0d  00 1e 23 20 e7 20 a9 28  |tle";t$...# . .(|
00000030  74 24 29 3e 37 38 20 8c  20 f1 22 53 68 6f 72 74  |t$)>78 . ."Short|
00000040  65 6e 22 3a e5 20 8d 54  54 40 0d 00 22 15 20 e8  |en":. .TT@..". .|
00000050  22 53 75 62 2d 74 69 74  6c 65 22 3b 73 74 24 0d  |"Sub-title";st$.|
00000060  00 23 24 20 e7 20 a9 28  73 74 24 29 3e 37 38 20  |.#$ . .(st$)>78 |
00000070  8c 20 f1 22 53 68 6f 72  74 65 6e 22 3a e5 20 8d  |. ."Shorten":. .|
00000080  54 62 40 0d 00 28 1a 20  e8 22 4e 75 6d 62 65 72  |Tb@..(. ."Number|
00000090  20 6f 66 20 77 65 65 6b  73 22 3b 6e 77 0d 00 32  | of weeks";nw..2|
000000a0  22 20 e7 20 6e 77 3e 35  32 20 8c 20 f1 22 54 6f  |" . nw>52 . ."To|
000000b0  6f 20 6d 61 6e 79 2e 22  3a e5 20 8d 54 68 40 0d  |o many.":. .Th@.|
000000c0  00 3c 31 20 e7 20 a8 28  6e 77 29 3c 3e 6e 77 20  |.<1 . .(nw)<>nw |
000000d0  8c 20 f1 22 57 68 6f 6c  65 20 6e 75 6d 62 65 72  |. ."Whole number|
000000e0  20 70 6c 65 61 73 65 21  22 3a e5 20 8d 54 68 40  | please!":. .Th@|
000000f0  0d 00 46 10 20 e8 22 4d  6f 6e 74 68 22 3b 6d 24  |..F. ."Month";m$|
00000100  0d 00 50 1d 20 f7 20 8d  64 70 40 3a e3 20 78 3d  |..P. . .dp@:. x=|
00000110  30 20 b8 20 31 31 3a f3  20 4e 24 2c 64 0d 00 5a  |0 . 11:. N$,d..Z|
00000120  21 20 e7 20 6d 24 3d 4e  24 20 8c 20 69 6e 3d 64  |! . m$=N$ . in=d|
00000130  3a e5 20 8d 44 78 40 20  8b 20 69 6e 3d 30 0d 00  |:. .Dx@ . in=0..|
00000140  64 06 20 ed 0d 00 6e 26  20 f1 22 49 20 68 61 76  |d. ...n& ."I hav|
00000150  65 20 6e 6f 74 20 68 65  61 72 64 20 6f 66 20 22  |e not heard of "|
00000160  3b 6d 24 3a e5 20 8d 44  46 40 0d 00 78 22 20 e8  |;m$:. .DF@..x" .|
00000170  22 49 73 20 69 74 20 61  20 6c 65 61 70 20 79 65  |"Is it a leap ye|
00000180  61 72 20 28 59 2f 4e 29  22 3b 6c 24 0d 00 82 1a  |ar (Y/N)";l$....|
00000190  20 e7 20 6c 24 3d 22 59  22 20 8c 20 6c 3d 31 3a  | . l$="Y" . l=1:|
000001a0  e5 20 8d 74 6a 40 0d 00  8c 1a 20 e7 20 6c 24 3d  |. .tj@.... . l$=|
000001b0  22 4e 22 20 8c 20 6c 3d  30 3a e5 20 8d 74 6a 40  |"N" . l=0:. .tj@|
000001c0  0d 00 96 15 20 f1 22 53  69 6c 6c 79 21 22 3a e5  |.... ."Silly!":.|
000001d0  20 8d 44 78 40 0d 00 a0  1c 20 e7 20 6c 3d 31 20  | .Dx@.... . l=1 |
000001e0  8c 20 e7 20 69 6e 3d 32  38 20 8c 20 69 6e 3d 32  |. . in=28 . in=2|
000001f0  39 0d 00 aa 2c 20 e8 22  49 73 20 69 74 20 61 20  |9..., ."Is it a |
00000200  6c 65 61 70 20 79 65 61  72 20 6e 65 78 74 20 79  |leap year next y|
00000210  65 61 72 20 28 59 2f 4e  29 22 3b 6c 24 0d 00 b4  |ear (Y/N)";l$...|
00000220  1b 20 e7 20 6c 24 3d 22  59 22 20 8c 20 6e 6c 3d  |. . l$="Y" . nl=|
00000230  31 3a e5 20 8d 64 52 40  0d 00 be 1b 20 e7 20 6c  |1:. .dR@.... . l|
00000240  24 3d 22 4e 22 20 8c 20  6e 6c 3d 30 3a e5 20 8d  |$="N" . nl=0:. .|
00000250  64 52 40 0d 00 c8 15 20  f1 22 53 69 6c 6c 79 21  |dR@.... ."Silly!|
00000260  22 3a e5 20 8d 74 6a 40  0d 00 d2 24 20 e8 22 57  |":. .tj@...$ ."W|
00000270  68 61 74 20 64 61 79 20  73 68 61 6c 6c 20 49 20  |hat day shall I |
00000280  73 74 61 72 74 20 6f 6e  22 3b 64 64 0d 00 dc 1f  |start on";dd....|
00000290  20 e7 20 64 64 3e 69 6e  20 8c 20 f1 22 73 69 6c  | . dd>in . ."sil|
000002a0  6c 79 21 22 3a e5 20 8d  64 52 40 0d 00 e6 0b 20  |ly!":. .dR@.... |
000002b0  e5 20 8d 54 6c 41 0d 00  f0 20 20 dc 20 22 4a 41  |. .TlA...  . "JA|
000002c0  4e 55 41 52 59 22 2c 33  31 2c 22 46 45 42 55 41  |NUARY",31,"FEBUA|
000002d0  52 59 22 2c 32 38 0d 00  fa 1c 20 dc 20 22 4d 41  |RY",28.... . "MA|
000002e0  52 43 48 22 2c 33 31 2c  22 41 50 52 49 4c 22 2c  |RCH",31,"APRIL",|
000002f0  33 30 0d 01 04 19 20 dc  20 22 4d 41 59 22 2c 33  |30.... . "MAY",3|
00000300  31 2c 22 4a 55 4e 45 22  2c 33 30 0d 01 0e 1c 20  |1,"JUNE",30.... |
00000310  dc 20 22 4a 55 4c 59 22  2c 33 31 2c 22 41 55 47  |. "JULY",31,"AUG|
00000320  55 53 54 22 2c 33 31 0d  01 18 22 20 dc 20 22 53  |UST",31..." . "S|
00000330  45 50 54 45 4d 42 45 52  22 2c 33 30 2c 22 4f 43  |EPTEMBER",30,"OC|
00000340  54 4f 42 45 52 22 2c 33  31 0d 01 22 22 20 dc 20  |TOBER",31.."" . |
00000350  22 4e 4f 56 45 4d 42 45  52 22 2c 33 30 2c 22 44  |"NOVEMBER",30,"D|
00000360  45 43 45 4d 42 45 52 22  2c 33 31 0d 01 2c 2d 20  |ECEMBER",31..,- |
00000370  db 3a f1 8a 31 30 2c 31  30 29 3b 22 50 72 65 73  |.:..10,10);"Pres|
00000380  73 20 61 6e 79 20 6b 65  79 20 74 6f 20 70 72 69  |s any key to pri|
00000390  6e 74 22 3a 41 24 3d be  0d 01 36 21 20 50 24 3d  |nt":A$=...6! P$=|
000003a0  bd 31 2b bd 32 37 2b bd  35 34 2b bd 31 2b bd 26  |.1+.27+.54+.1+.&|
000003b0  39 43 2b bd 31 2b bd 31  30 0d 01 40 21 20 56 24  |9C+.1+.10..@! V$|
000003c0  3d bd 31 2b bd 32 37 2b  bd 35 34 2b bd 31 2b bd  |=.1+.27+.54+.1+.|
000003d0  26 42 41 2b bd 31 2b bd  31 30 0d 01 4a 11 20 ef  |&BA+.1+.10..J. .|
000003e0  20 32 2c 31 2c 32 37 2c  31 31 30 0d 01 54 1e 20  | 2,1,27,110..T. |
000003f0  ef 20 31 2c 32 37 2c 35  34 2c 31 2c 26 44 41 3a  |. 1,27,54,1,&DA:|
00000400  e3 6c 3d 30 20 b8 20 37  38 0d 01 5e 1a 20 ef 20  |.l=0 . 78..^. . |
00000410  31 2c 26 43 44 3a ed 3a  f1 3b 56 24 3b 3a ef 31  |1,&CD:.:.;V$;:.1|
00000420  2c 31 30 0d 01 68 22 20  6c 3d a9 28 74 24 29 3a  |,10..h" l=.(t$):|
00000430  e7 20 a8 28 6c 2f 32 29  3c 3e 6c 2f 32 20 8c 20  |. .(l/2)<>l/2 . |
00000440  6c 3d 6c 2b 31 0d 01 72  1c 20 67 3d 28 37 38 2d  |l=l+1..r. g=(78-|
00000450  6c 29 2f 32 3a e7 20 67  3d 30 20 8c 20 8d 74 46  |l)/2:. g=0 . .tF|
00000460  41 0d 01 7c 16 20 e3 20  6c 6f 3d 31 20 b8 20 67  |A..|. . lo=1 . g|
00000470  3a ef 20 33 32 3a ed 0d  01 86 29 20 ef 31 2c 32  |:. 32:....) .1,2|
00000480  37 2c 36 39 3a f1 3b 74  24 3b 3a ef 31 2c 32 37  |7,69:.;t$;:.1,27|
00000490  2c 37 30 3a e7 20 67 3d  30 20 8c 20 8d 74 5a 41  |,70:. g=0 . .tZA|
000004a0  0d 01 90 16 20 e3 20 6c  6f 3d 31 20 b8 20 67 3a  |.... . lo=1 . g:|
000004b0  ef 20 33 32 3a ed 0d 01  9a 2f 20 74 3d 31 3a f2  |. 32:..../ t=1:.|
000004c0  61 63 72 6f 73 73 3a 6c  3d a9 28 73 74 24 29 3a  |across:l=.(st$):|
000004d0  e7 20 a8 28 6c 2f 32 29  3c 3e 6c 2f 32 20 8c 20  |. .(l/2)<>l/2 . |
000004e0  6c 3d 6c 2b 31 0d 01 a4  1c 20 67 3d 28 37 38 2d  |l=l+1.... g=(78-|
000004f0  6c 29 2f 32 3a e7 20 67  3d 30 20 8c 20 8d 74 78  |l)/2:. g=0 . .tx|
00000500  41 0d 01 ae 16 20 e3 20  6c 6f 3d 31 20 b8 20 67  |A.... . lo=1 . g|
00000510  3a ef 20 33 32 3a ed 0d  01 b8 29 20 ef 31 2c 32  |:. 32:....) .1,2|
00000520  37 2c 35 32 3a f1 3b 74  24 3b 3a ef 31 2c 32 37  |7,52:.;t$;:.1,27|
00000530  2c 35 33 3a e7 20 67 3d  30 20 8c 20 8d 64 4c 41  |,53:. g=0 . .dLA|
00000540  0d 01 c2 16 20 e3 20 6c  6f 3d 31 20 b8 20 67 3a  |.... . lo=1 . g:|
00000550  ef 20 33 32 3a ed 0d 01  cc 10 20 74 3d 31 3a f2  |. 32:..... t=1:.|
00000560  61 63 72 6f 73 73 0d 13  88 15 20 f4 20 74 3d 30  |across.... . t=0|
00000570  20 4e 6f 20 63 72 6f 73  73 65 73 0d 13 92 17 20  | No crosses.... |
00000580  f4 20 74 3d 31 20 42 6f  74 74 6f 6d 20 6c 69 6e  |. t=1 Bottom lin|
00000590  65 73 0d 13 9c 12 20 f4  20 74 3d 32 20 63 72 6f  |es.... . t=2 cro|
000005a0  73 73 65 73 0d 13 a6 14  20 f4 20 74 3d 33 20 54  |sses.... . t=3 T|
000005b0  6f 70 20 6c 69 6e 65 73  0d ff                    |op lines..|
000005ba

Money.m0

Money.m1

Money.m2

Money.m4

Money.m5

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