Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars » Regulars/StarInfo/Marshall/!Lottery/Templates
Regulars/StarInfo/Marshall/!Lottery/Templates
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 » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars |
| Filename: | Regulars/StarInfo/Marshall/!Lottery/Templates |
| Read OK: | ✔ |
| File size: | 0A6E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
� MAIN
� � Info
� p entry
� k view
c � name
� � � H �`� � H���� = ' ��X ���� & @���� ���[ f g � @���N ���[ r s N @���� ���[ ~ � @���v ���[ � � v @���
���[ � �
@���� ���[ � � � ����� ���=1� � ( * ����� �?� � � H `���� ����Y � ���� � `���* ����Y � ���� p `���� ����Y � ���� `���P ����Y � ���� � `���� ����Y � ���� , `���z ����Y � ���� * ����� �?� � � ��� ,���Y ���� Lucky Numbers
Sblack
Sblack
Sblack
Sblack
Sblack
Sblack
Completely Random
Phandptr,0,22;r3
S!lottery;R6;Phandptr,0,22
S!lottery;R6;Phandptr,0,22
It could be you!
R � � � ���� � ��� = 0 x ���� � 4���T d���=0 �
K
titled>
�� ���t ����=a � ���� � ����t ���= � ���� � d���v ����=a � ����( � 0���t `���=a � ���� > ���� ���� Name:
led>
� ����� ��� � ���� h���� ���� � ���� 8���� `��� � ���� About this program
Lottery
To get rich quick
Paul Marshall
1.0 March 1995
Purpose:
Author:
Version:
H � | � ���� � ����4 = ' d d � ����! & ���� ���=� � � > ����� ���=� � � � ����� ���=� � � � ����R ���=� � � R ����� ���=� � � � ����
���=� � �
����f ���=� � � � ����
���=� F ��� D���=�� Z �� \��� � ����� (��� stop
� ����X $��� ���� � ����� (���;1 ! � ���� (���!0 1 Z ����� (���!@ A � ����� (���1R S � ���� (���; d e � (���p T���9 k ���� National Lottery Winning Numbers
03 Jan 95
KAR;r3
49
KAR;r3
49
kar;r3
49
kar;r3
49
kar;r3
49
kar;r3
49
kar;r3
49
r3
Save new
r1
r3
999
R5;Sleft,pleft
R5;Sleft,pleft
R5;Sright,pright
R5;Sright,pright
Sstop
Week
, � T ���� � p���� = ' � �X ���� Lottery Statistics
: � 2 < ���� � X���� = <Untitled>
e � ����� ��5� � � % ����b �� � ���� Willie Win
R2
Name
� � Homerton.Bold
e
Oblique
@ @ Homerton.Medium.Oblique
00000000 0e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000010 8c 00 00 00 20 03 00 00 01 00 00 00 4d 41 49 4e |.... .......MAIN| 00000020 0d 00 00 00 00 00 00 00 ac 03 00 00 dc 01 00 00 |................| 00000030 01 00 00 00 49 6e 66 6f 0d 00 00 00 00 00 00 00 |....Info........| 00000040 88 05 00 00 70 03 00 00 01 00 00 00 65 6e 74 72 |....p.......entr| 00000050 79 0d 00 00 00 00 00 00 f8 08 00 00 6b 00 00 00 |y...........k...| 00000060 01 00 00 00 76 69 65 77 0d 00 00 00 00 00 00 00 |....view........| 00000070 63 09 00 00 ab 00 00 00 01 00 00 00 6e 61 6d 65 |c...........name| 00000080 0d 00 00 00 00 00 00 00 00 00 00 00 f0 00 00 00 |................| 00000090 90 01 00 00 c0 04 00 00 48 03 00 00 00 00 00 00 |........H.......| 000000a0 00 00 00 00 95 60 86 01 12 00 05 ff 07 02 07 0c |.....`..........| 000000b0 03 01 0c 00 00 00 00 00 48 fe ff ff d0 03 00 00 |........H.......| 000000c0 00 00 00 00 3d 01 00 27 00 00 00 00 01 00 00 00 |....=..'........| 000000d0 d0 03 b8 01 58 02 00 00 ff ff ff ff 13 00 00 00 |....X...........| 000000e0 10 00 00 00 26 00 00 00 40 ff ff ff ba 00 00 00 |....&...@.......| 000000f0 d0 ff ff ff 5b 01 00 01 66 02 00 00 67 02 00 00 |....[...f...g...| 00000100 0c 00 00 00 ba 00 00 00 40 ff ff ff 4e 01 00 00 |........@...N...| 00000110 d0 ff ff ff 5b 01 00 01 72 02 00 00 73 02 00 00 |....[...r...s...| 00000120 0c 00 00 00 4e 01 00 00 40 ff ff ff e2 01 00 00 |....N...@.......| 00000130 d0 ff ff ff 5b 01 00 01 7e 02 00 00 7f 02 00 00 |....[...~.......| 00000140 0c 00 00 00 e2 01 00 00 40 ff ff ff 76 02 00 00 |........@...v...| 00000150 d0 ff ff ff 5b 01 00 01 8a 02 00 00 8b 02 00 00 |....[...........| 00000160 0c 00 00 00 76 02 00 00 40 ff ff ff 0a 03 00 00 |....v...@.......| 00000170 d0 ff ff ff 5b 01 00 01 96 02 00 00 97 02 00 00 |....[...........| 00000180 0c 00 00 00 0a 03 00 00 40 ff ff ff 9e 03 00 00 |........@.......| 00000190 d0 ff ff ff 5b 01 00 01 a2 02 00 00 a3 02 00 00 |....[...........| 000001a0 0c 00 00 00 ea 00 00 00 84 fe ff ff e2 02 00 00 |................| 000001b0 d0 fe ff ff 3d 31 0f 07 ae 02 00 00 c0 02 00 00 |....=1..........| 000001c0 28 00 00 00 2a 00 00 00 80 fe ff ff 9e 00 00 00 |(...*...........| 000001d0 f0 fe ff ff 3f 91 0f 00 d1 02 00 00 d2 02 00 00 |....?...........| 000001e0 01 00 00 00 48 00 00 00 60 ff ff ff 96 00 00 00 |....H...`.......| 000001f0 ac ff ff ff 59 01 00 01 ed 02 00 00 ff ff ff ff |....Y...........| 00000200 03 00 00 00 dc 00 00 00 60 ff ff ff 2a 01 00 00 |........`...*...| 00000210 ac ff ff ff 59 01 00 01 ee 02 00 00 ff ff ff ff |....Y...........| 00000220 03 00 00 00 70 01 00 00 60 ff ff ff be 01 00 00 |....p...`.......| 00000230 ac ff ff ff 59 01 00 01 ef 02 00 00 ff ff ff ff |....Y...........| 00000240 03 00 00 00 02 02 00 00 60 ff ff ff 50 02 00 00 |........`...P...| 00000250 ac ff ff ff 59 01 00 01 f0 02 00 00 ff ff ff ff |....Y...........| 00000260 03 00 00 00 9a 02 00 00 60 ff ff ff e8 02 00 00 |........`.......| 00000270 ac ff ff ff 59 01 00 01 f1 02 00 00 ff ff ff ff |....Y...........| 00000280 03 00 00 00 2c 03 00 00 60 ff ff ff 7a 03 00 00 |....,...`...z...| 00000290 ac ff ff ff 59 01 00 01 f2 02 00 00 ff ff ff ff |....Y...........| 000002a0 03 00 00 00 2a 03 00 00 80 fe ff ff 9e 03 00 00 |....*...........| 000002b0 f0 fe ff ff 3f 91 0f 00 f3 02 00 00 f4 02 00 00 |....?...........| 000002c0 01 00 00 00 10 01 00 00 e8 fe ff ff c4 02 00 00 |................| 000002d0 2c ff ff ff 59 01 00 02 0f 03 00 00 ff ff ff ff |,...Y...........| 000002e0 11 00 00 00 4c 75 63 6b 79 20 4e 75 6d 62 65 72 |....Lucky Number| 000002f0 73 0d 0d 53 62 6c 61 63 6b 20 20 20 20 0d 0d 53 |s..Sblack ..S| 00000300 62 6c 61 63 6b 20 20 20 20 0d 0d 53 62 6c 61 63 |black ..Sblac| 00000310 6b 20 20 20 20 0d 0d 53 62 6c 61 63 6b 20 20 20 |k ..Sblack | 00000320 20 0d 0d 53 62 6c 61 63 6b 20 20 20 20 0d 0d 53 | ..Sblack ..S| 00000330 62 6c 61 63 6b 20 20 20 20 0d 43 6f 6d 70 6c 65 |black .Comple| 00000340 74 65 6c 79 20 52 61 6e 64 6f 6d 0d 50 68 61 6e |tely Random.Phan| 00000350 64 70 74 72 2c 30 2c 32 32 3b 72 33 0d 0d 53 21 |dptr,0,22;r3..S!| 00000360 6c 6f 74 74 65 72 79 3b 52 36 3b 50 68 61 6e 64 |lottery;R6;Phand| 00000370 70 74 72 2c 30 2c 32 32 0d 0d 0d 0d 0d 0d 0d 0d |ptr,0,22........| 00000380 53 21 6c 6f 74 74 65 72 79 3b 52 36 3b 50 68 61 |S!lottery;R6;Pha| 00000390 6e 64 70 74 72 2c 30 2c 32 32 0d 49 74 20 63 6f |ndptr,0,22.It co| 000003a0 75 6c 64 20 62 65 20 79 6f 75 21 0d 52 01 00 00 |uld be you!.R...| 000003b0 dc 01 00 00 ce 03 00 00 b4 02 00 00 00 00 00 00 |................| 000003c0 00 00 00 00 ff ff ff ff 12 00 00 84 07 02 07 01 |................| 000003d0 0c 0e 0c 00 00 00 00 00 00 fc ff ff 00 05 00 00 |................| 000003e0 00 00 00 00 3d 01 00 00 00 30 00 00 01 00 00 00 |....=....0......| 000003f0 00 00 00 00 78 01 00 00 ff ff ff ff 13 00 00 00 |....x...........| 00000400 09 00 00 00 a4 02 00 00 34 ff ff ff 54 03 00 00 |........4...T...| 00000410 64 ff ff ff 3d 30 00 b7 0d 4b 0d 74 69 74 6c 65 |d...=0...K.title| 00000420 64 3e 0d fe 98 00 00 00 cc ff ff ff 74 02 00 00 |d>..........t...| 00000430 fc ff ff ff 3d 61 00 07 8b 01 00 00 ff ff ff ff |....=a..........| 00000440 0c 00 00 00 98 00 00 00 98 ff ff ff 74 02 00 00 |............t...| 00000450 c8 ff ff ff 3d 01 00 07 93 01 00 00 ff ff ff ff |....=...........| 00000460 1a 00 00 00 9a 00 00 00 64 ff ff ff 76 02 00 00 |........d...v...| 00000470 94 ff ff ff 3d 61 00 07 a5 01 00 00 ff ff ff ff |....=a..........| 00000480 28 00 00 00 98 00 00 00 30 ff ff ff 74 02 00 00 |(.......0...t...| 00000490 60 ff ff ff 3d 61 00 07 b3 01 00 00 ff ff ff ff |`...=a..........| 000004a0 1e 00 00 00 3e 00 00 00 d0 ff ff ff 9a 00 00 00 |....>...........| 000004b0 f8 ff ff ff 19 00 00 17 4e 61 6d 65 3a 0d 6c 65 |........Name:.le| 000004c0 64 3e 0d fe 0e 00 00 00 9c ff ff ff 9a 00 00 00 |d>..............| 000004d0 c4 ff ff ff 19 01 00 17 c2 01 00 00 ff ff ff ff |................| 000004e0 0c 00 00 00 1e 00 00 00 68 ff ff ff 9a 00 00 00 |........h.......| 000004f0 90 ff ff ff 19 01 00 17 cb 01 00 00 ff ff ff ff |................| 00000500 0c 00 00 00 0e 00 00 00 38 ff ff ff 9a 00 00 00 |........8.......| 00000510 60 ff ff ff 19 01 00 17 d3 01 00 00 ff ff ff ff |`...............| 00000520 0c 00 00 00 41 62 6f 75 74 20 74 68 69 73 20 70 |....About this p| 00000530 72 6f 67 72 61 6d 0d 4c 6f 74 74 65 72 79 0d 54 |rogram.Lottery.T| 00000540 6f 20 67 65 74 20 72 69 63 68 20 71 75 69 63 6b |o get rich quick| 00000550 0d 50 61 75 6c 20 4d 61 72 73 68 61 6c 6c 0d 31 |.Paul Marshall.1| 00000560 2e 30 20 4d 61 72 63 68 20 31 39 39 35 0d 50 75 |.0 March 1995.Pu| 00000570 72 70 6f 73 65 3a 0d 41 75 74 68 6f 72 3a 0d 56 |rpose:.Author:.V| 00000580 65 72 73 69 6f 6e 3a 0d 48 00 00 00 b8 01 00 00 |ersion:.H.......| 00000590 7c 04 00 00 fc 02 00 00 00 00 00 00 00 00 00 00 ||...............| 000005a0 ff ff ff ff 12 00 04 ff 07 02 07 01 03 01 0c 00 |................| 000005b0 00 00 00 00 bc fe ff ff 34 04 00 00 00 00 00 00 |........4.......| 000005c0 3d 01 00 27 00 00 00 00 01 00 00 00 64 00 64 00 |=..'........d.d.| 000005d0 98 02 00 00 ff ff ff ff 21 00 00 00 12 00 00 00 |........!.......| 000005e0 26 00 00 00 88 ff ff ff 06 01 00 00 c8 ff ff ff |&...............| 000005f0 3d f1 00 07 b9 02 00 00 c3 02 00 00 0c 00 00 00 |=...............| 00000600 3e 01 00 00 88 ff ff ff 9a 01 00 00 c8 ff ff ff |>...............| 00000610 3d f1 00 07 ca 02 00 00 cd 02 00 00 04 00 00 00 |=...............| 00000620 9a 01 00 00 88 ff ff ff f6 01 00 00 c8 ff ff ff |................| 00000630 3d f1 00 07 d4 02 00 00 d7 02 00 00 04 00 00 00 |=...............| 00000640 f6 01 00 00 88 ff ff ff 52 02 00 00 c8 ff ff ff |........R.......| 00000650 3d f1 00 07 de 02 00 00 e1 02 00 00 04 00 00 00 |=...............| 00000660 52 02 00 00 88 ff ff ff ae 02 00 00 c8 ff ff ff |R...............| 00000670 3d f1 00 07 e8 02 00 00 eb 02 00 00 04 00 00 00 |=...............| 00000680 ae 02 00 00 88 ff ff ff 0a 03 00 00 c8 ff ff ff |................| 00000690 3d f1 00 07 f2 02 00 00 f5 02 00 00 04 00 00 00 |=...............| 000006a0 0a 03 00 00 88 ff ff ff 66 03 00 00 c8 ff ff ff |........f.......| 000006b0 3d f1 00 07 fc 02 00 00 ff 02 00 00 04 00 00 00 |=...............| 000006c0 ae 03 00 00 88 ff ff ff 0a 04 00 00 c8 ff ff ff |................| 000006d0 3d f1 00 07 06 03 00 00 09 03 00 00 04 00 00 00 |=...............| 000006e0 46 01 00 00 04 ff ff ff 02 02 00 00 44 ff ff ff |F...........D...| 000006f0 3d 91 01 c7 0c 03 00 00 15 03 00 00 09 00 00 00 |=...............| 00000700 5a 02 00 00 e0 fe ff ff 0e 04 00 00 5c ff ff ff |Z...........\...| 00000710 1d 01 02 17 18 03 00 00 19 03 00 00 01 00 00 00 |................| 00000720 80 02 00 00 fc fe ff ff a0 02 00 00 28 ff ff ff |............(...| 00000730 12 02 00 17 73 74 6f 70 0d c5 03 00 10 00 00 00 |....stop........| 00000740 0c 03 00 00 f8 fe ff ff 58 03 00 00 24 ff ff ff |........X...$...| 00000750 19 01 00 17 1c 03 00 00 ff ff ff ff 10 00 00 00 |................| 00000760 86 02 00 00 fc fe ff ff b2 02 00 00 28 ff ff ff |............(...| 00000770 3b 31 02 17 20 03 00 00 21 03 00 00 01 00 00 00 |;1.. ...!.......| 00000780 da 02 00 00 fc fe ff ff 06 03 00 00 28 ff ff ff |............(...| 00000790 1b 21 02 17 30 03 00 00 31 03 00 00 01 00 00 00 |.!..0...1.......| 000007a0 5a 03 00 00 fc fe ff ff 86 03 00 00 28 ff ff ff |Z...........(...| 000007b0 1b 21 02 17 40 03 00 00 41 03 00 00 01 00 00 00 |.!..@...A.......| 000007c0 b0 03 00 00 fc fe ff ff dc 03 00 00 28 ff ff ff |............(...| 000007d0 1b 31 02 17 52 03 00 00 53 03 00 00 01 00 00 00 |.1..R...S.......| 000007e0 e4 03 00 00 fc fe ff ff 04 04 00 00 28 ff ff ff |............(...| 000007f0 3b 01 00 17 64 03 00 00 65 03 00 00 10 00 00 00 |;...d...e.......| 00000800 f4 02 00 00 28 ff ff ff 70 03 00 00 54 ff ff ff |....(...p...T...| 00000810 39 01 00 17 6b 03 00 00 ff ff ff ff 10 00 00 00 |9...k...........| 00000820 4e 61 74 69 6f 6e 61 6c 20 4c 6f 74 74 65 72 79 |National Lottery| 00000830 20 57 69 6e 6e 69 6e 67 20 4e 75 6d 62 65 72 73 | Winning Numbers| 00000840 0d 30 33 20 4a 61 6e 20 39 35 0d 4b 41 52 3b 72 |.03 Jan 95.KAR;r| 00000850 33 0d 34 39 0d 4b 41 52 3b 72 33 0d 34 39 0d 6b |3.49.KAR;r3.49.k| 00000860 61 72 3b 72 33 0d 34 39 0d 6b 61 72 3b 72 33 0d |ar;r3.49.kar;r3.| 00000870 34 39 0d 6b 61 72 3b 72 33 0d 34 39 0d 6b 61 72 |49.kar;r3.49.kar| 00000880 3b 72 33 0d 34 39 0d 6b 61 72 3b 72 33 0d 34 39 |;r3.49.kar;r3.49| 00000890 0d 72 33 0d 53 61 76 65 20 6e 65 77 0d 72 31 0d |.r3.Save new.r1.| 000008a0 0d 72 33 0d 39 39 39 0d 0d 52 35 3b 53 6c 65 66 |.r3.999..R5;Slef| 000008b0 74 2c 70 6c 65 66 74 0d 0d 52 35 3b 53 6c 65 66 |t,pleft..R5;Slef| 000008c0 74 2c 70 6c 65 66 74 0d 0d 52 35 3b 53 72 69 67 |t,pleft..R5;Srig| 000008d0 68 74 2c 70 72 69 67 68 74 0d 0d 52 35 3b 53 72 |ht,pright..R5;Sr| 000008e0 69 67 68 74 2c 70 72 69 67 68 74 0d 0d 53 73 74 |ight,pright..Sst| 000008f0 6f 70 0d 57 65 65 6b 0d 00 01 00 00 2c 00 00 00 |op.Week.....,...| 00000900 d4 05 00 00 54 04 00 00 00 00 00 00 00 00 00 00 |....T...........| 00000910 ff ff ff ff 02 00 04 ff 07 02 07 00 03 01 0c 00 |................| 00000920 00 00 00 00 70 f8 ff ff d4 04 00 00 00 00 00 00 |....p...........| 00000930 3d 01 00 27 00 00 00 00 01 00 00 00 ec 00 b8 01 |=..'............| 00000940 58 00 00 00 ff ff ff ff 13 00 00 00 00 00 00 00 |X...............| 00000950 4c 6f 74 74 65 72 79 20 53 74 61 74 69 73 74 69 |Lottery Statisti| 00000960 63 73 0d 3a 02 00 00 c8 02 00 00 32 05 00 00 3c |cs.:.......2...<| 00000970 03 00 00 00 00 00 00 00 00 00 00 ff ff ff ff 12 |................| 00000980 00 00 80 07 02 07 01 03 01 0c 00 00 00 00 00 58 |...............X| 00000990 fc ff ff d4 04 00 00 00 00 00 00 3d 00 00 00 00 |...........=....| 000009a0 00 00 00 01 00 00 00 00 00 00 00 3c 55 6e 74 69 |...........<Unti| 000009b0 74 6c 65 64 3e 0d 65 02 00 00 00 82 00 00 00 b0 |tled>.e.........| 000009c0 ff ff ff d6 02 00 00 e0 ff ff ff 35 f1 00 07 98 |...........5....| 000009d0 00 00 00 a3 00 00 00 25 00 00 00 12 00 00 00 b4 |.......%........| 000009e0 ff ff ff 62 00 00 00 e0 ff ff ff 11 01 00 17 a6 |...b............| 000009f0 00 00 00 ff ff ff ff 10 00 00 00 57 69 6c 6c 69 |...........Willi| 00000a00 65 20 57 69 6e 0d 52 32 0d 4e 61 6d 65 0d 80 01 |e Win.R2.Name...| 00000a10 00 00 80 01 00 00 48 6f 6d 65 72 74 6f 6e 2e 42 |......Homerton.B| 00000a20 6f 6c 64 0d 65 0d 4f 62 6c 69 71 75 65 0d 00 00 |old.e.Oblique...| 00000a30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 01 |..............@.| 00000a40 00 00 40 01 00 00 48 6f 6d 65 72 74 6f 6e 2e 4d |..@...Homerton.M| 00000a50 65 64 69 75 6d 2e 4f 62 6c 69 71 75 65 0d 00 00 |edium.Oblique...| 00000a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |..............| 00000a6e
.