Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF » P/+Lott1
P/+Lott1
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_User_Group » EUG_30.ADF |
| Filename: | P/+Lott1 |
| Read OK: | ✔ |
| File size: | 0B19 bytes |
| Load address: | 6C226576 |
| Exec address: | 65747465 |
File contents
�.........*.......*.......*.......*.......*.......*.......*.......*.......*.<
�.........*.......*.......*.......*.......*.......*.......*.......*.......*.<
5 Hillcroft,
Dungannon,
Co. Tyrone,
N. Ireland,
13th Jan. 1997,
Dear Gus,
I don't play the national lottery myself. It's not that I have any strong
moral objections to it. In fact I will be very happy to accept my half
share when my wife wins a few million pounds on it. However I was very
interested in the two letters concerning a program to generate lottery
numbers in the previous two issues of EUG (28 and 29). I tried to find the
program 'LOTT' on disk 29 but couldn't. Perhaps you didn't put it on the
disk. I haven't written any sort of computer program for several years and
so my BASIC is very rusty. But not to be daunted I set about writing one
for myself to generate lottery numbers. It took quite a bit of doing but
eventually I came up with one that works.I have put on the disk - it is
called "LOTTERY"- for anyone who is interested. As written it generates
fifty sets of numbers and prints them in ascending order for easy
checking. I run it once a week and then check to numbers against those
drawn on tv. The best I've done so far two lines each with three numbers
correct! So far my ELK hasn't been much help in making me a millionaire.
I've come up with another program which just gives further proof of how
little help my ELK is in my quest for riches. This one is called 'FINDNOS'
(also on the disk). With it I can feed in the six numbers drawn on TV and
set the computer quessing. It generates sets of six random numbers,
prints them in ascending order and then checks them against the six fed
in. When it picks the correct six numbers it stops. At least that's the
theory. After several runs it hasn't yet come up with correct set of
numbers. At the latest attempt it ran for 13 hours and 147500 sets of
numbers without generating the correct set! Perhaps someone else might
like to try the program, if their ELK has a few days to spare!
On a completely different subject; can anyone provide me with a printer
driver that will work with VIEW and a Canon BJ-10ex printer? I saw one in
one of the very early issues of EUG but I couldn't get it to work.
Keep up the good work with EUG.
Yours,
Philip Annesley.
ps At the present my spare ELK is working away on FINDNOS and last
week's lottery numbers - still no luck after 29000 tries!
00000000 81 2e 2e 2e 2e 2e 2e 2e 2e 2e 2a 2e 2e 2e 2e 2e |..........*.....| 00000010 2e 2e 2a 2e 2e 2e 2e 2e 2e 2e 2a 2e 2e 2e 2e 2e |..*.......*.....| * 00000040 2e 2e 2a 2e 2e 2e 2e 2e 2e 2e 2a 2e 3c 0d 0d 81 |..*.......*.<...| 00000050 2e 2e 2e 2e 2e 2e 2e 2e 2e 2a 2e 2e 2e 2e 2e 2e |.........*......| 00000060 2e 2a 2e 2e 2e 2e 2e 2e 2e 2a 2e 2e 2e 2e 2e 2e |.*.......*......| * 00000090 2e 2a 2e 2e 2e 2e 2e 2e 2e 2a 2e 3c 0d 20 20 20 |.*.......*.<. | 000000a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000000c0 20 20 20 20 20 20 20 20 20 20 35 20 48 69 6c 6c | 5 Hill| 000000d0 63 72 6f 66 74 2c 0d 20 20 20 20 20 20 20 20 20 |croft,. | 000000e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000100 20 20 20 20 20 20 20 44 75 6e 67 61 6e 6e 6f 6e | Dungannon| 00000110 2c 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |,. | 00000120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000140 20 20 20 20 43 6f 2e 20 54 79 72 6f 6e 65 2c 0d | Co. Tyrone,.| 00000150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000180 20 20 20 20 4e 2e 20 49 72 65 6c 61 6e 64 2c 0d | N. Ireland,.| 00000190 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000001c0 20 20 20 20 20 20 20 31 33 74 68 20 4a 61 6e 2e | 13th Jan.| 000001d0 20 31 39 39 37 2c 0d 0d 20 20 20 20 44 65 61 72 | 1997,.. Dear| 000001e0 20 47 75 73 2c 0d 20 49 20 64 6f 6e 27 74 20 70 | Gus,. I don't p| 000001f0 6c 61 79 20 74 68 65 20 6e 61 74 69 6f 6e 61 6c |lay the national| 00000200 20 6c 6f 74 74 65 72 79 20 6d 79 73 65 6c 66 2e | lottery myself.| 00000210 20 49 74 27 73 20 6e 6f 74 20 74 68 61 74 20 49 | It's not that I| 00000220 20 68 61 76 65 20 61 6e 79 20 73 74 72 6f 6e 67 | have any strong| 00000230 0d 6d 6f 72 61 6c 20 6f 62 6a 65 63 74 69 6f 6e |.moral objection| 00000240 73 20 74 6f 20 69 74 2e 20 49 6e 1a 20 66 61 63 |s to it. In. fac| 00000250 74 1a 20 49 1a 20 77 69 6c 6c 1a 20 62 65 20 76 |t. I. will. be v| 00000260 65 72 79 20 68 61 70 70 79 20 74 6f 20 61 63 63 |ery happy to acc| 00000270 65 70 74 20 6d 79 20 68 61 6c 66 0d 73 68 61 72 |ept my half.shar| 00000280 65 20 77 68 65 6e 20 6d 79 20 77 69 66 65 20 77 |e when my wife w| 00000290 69 6e 73 20 61 20 66 65 77 20 6d 69 6c 6c 69 6f |ins a few millio| 000002a0 6e 20 70 6f 75 6e 64 73 1a 20 6f 6e 1a 20 69 74 |n pounds. on. it| 000002b0 2e 1a 20 48 6f 77 65 76 65 72 1a 20 49 20 77 61 |.. However. I wa| 000002c0 73 20 76 65 72 79 0d 69 6e 74 65 72 65 73 74 65 |s very.intereste| 000002d0 64 1a 20 69 6e 1a 20 74 68 65 1a 20 74 77 6f 1a |d. in. the. two.| 000002e0 20 6c 65 74 74 65 72 73 20 63 6f 6e 63 65 72 6e | letters concern| 000002f0 69 6e 67 20 61 20 70 72 6f 67 72 61 6d 20 74 6f |ing a program to| 00000300 20 67 65 6e 65 72 61 74 65 20 6c 6f 74 74 65 72 | generate lotter| 00000310 79 0d 6e 75 6d 62 65 72 73 20 69 6e 20 74 68 65 |y.numbers in the| 00000320 20 70 72 65 76 69 6f 75 73 20 74 77 6f 20 69 73 | previous two is| 00000330 73 75 65 73 20 6f 66 20 45 55 47 20 28 32 38 20 |sues of EUG (28 | 00000340 61 6e 64 20 32 39 29 2e 20 49 20 74 72 69 65 64 |and 29). I tried| 00000350 20 74 6f 20 66 69 6e 64 20 74 68 65 0d 70 72 6f | to find the.pro| 00000360 67 72 61 6d 20 27 4c 4f 54 54 27 20 6f 6e 20 64 |gram 'LOTT' on d| 00000370 69 73 6b 20 32 39 1a 20 62 75 74 1a 20 63 6f 75 |isk 29. but. cou| 00000380 6c 64 6e 27 74 2e 20 50 65 72 68 61 70 73 20 79 |ldn't. Perhaps y| 00000390 6f 75 20 64 69 64 6e 27 74 20 70 75 74 20 69 74 |ou didn't put it| 000003a0 20 6f 6e 20 74 68 65 0d 64 69 73 6b 2e 20 49 20 | on the.disk. I | 000003b0 68 61 76 65 6e 27 74 20 77 72 69 74 74 65 6e 20 |haven't written | 000003c0 61 6e 79 20 73 6f 72 74 20 6f 66 20 63 6f 6d 70 |any sort of comp| 000003d0 75 74 65 72 20 70 72 6f 67 72 61 6d 20 66 6f 72 |uter program for| 000003e0 20 73 65 76 65 72 61 6c 20 79 65 61 72 73 20 61 | several years a| 000003f0 6e 64 0d 73 6f 20 6d 79 20 42 41 53 49 43 20 69 |nd.so my BASIC i| 00000400 73 20 76 65 72 79 20 72 75 73 74 79 2e 20 42 75 |s very rusty. Bu| 00000410 74 1a 20 6e 6f 74 1a 20 74 6f 20 62 65 20 64 61 |t. not. to be da| 00000420 75 6e 74 65 64 20 49 20 73 65 74 20 61 62 6f 75 |unted I set abou| 00000430 74 20 77 72 69 74 69 6e 67 20 6f 6e 65 0d 66 6f |t writing one.fo| 00000440 72 20 6d 79 73 65 6c 66 20 74 6f 20 67 65 6e 65 |r myself to gene| 00000450 72 61 74 65 20 6c 6f 74 74 65 72 79 20 6e 75 6d |rate lottery num| 00000460 62 65 72 73 2e 20 49 74 20 74 6f 6f 6b 20 71 75 |bers. It took qu| 00000470 69 74 65 1a 20 61 1a 20 62 69 74 20 6f 66 20 64 |ite. a. bit of d| 00000480 6f 69 6e 67 20 62 75 74 0d 65 76 65 6e 74 75 61 |oing but.eventua| 00000490 6c 6c 79 20 49 20 63 61 6d 65 20 75 70 20 77 69 |lly I came up wi| 000004a0 74 68 20 6f 6e 65 20 74 68 61 74 20 77 6f 72 6b |th one that work| 000004b0 73 2e 49 20 68 61 76 65 20 70 75 74 20 6f 6e 1a |s.I have put on.| 000004c0 20 74 68 65 1a 20 64 69 73 6b 1a 20 2d 20 69 74 | the. disk. - it| 000004d0 20 69 73 0d 63 61 6c 6c 65 64 1a 20 22 4c 4f 54 | is.called. "LOT| 000004e0 54 45 52 59 22 2d 1a 20 66 6f 72 1a 20 61 6e 79 |TERY"-. for. any| 000004f0 6f 6e 65 20 77 68 6f 20 69 73 20 69 6e 74 65 72 |one who is inter| 00000500 65 73 74 65 64 2e 20 41 73 20 77 72 69 74 74 65 |ested. As writte| 00000510 6e 20 69 74 20 67 65 6e 65 72 61 74 65 73 0d 66 |n it generates.f| 00000520 69 66 74 79 1a 20 73 65 74 73 20 6f 66 20 6e 75 |ifty. sets of nu| 00000530 6d 62 65 72 73 1a 20 61 6e 64 1a 20 70 72 69 6e |mbers. and. prin| 00000540 74 73 1a 20 74 68 65 6d 1a 20 69 6e 1a 20 61 73 |ts. them. in. as| 00000550 63 65 6e 64 69 6e 67 1a 20 6f 72 64 65 72 1a 20 |cending. order. | 00000560 66 6f 72 1a 20 65 61 73 79 0d 63 68 65 63 6b 69 |for. easy.checki| 00000570 6e 67 2e 20 49 1a 20 72 75 6e 1a 20 69 74 1a 20 |ng. I. run. it. | 00000580 6f 6e 63 65 1a 20 61 20 77 65 65 6b 20 61 6e 64 |once. a week and| 00000590 20 74 68 65 6e 20 63 68 65 63 6b 20 74 6f 20 6e | then check to n| 000005a0 75 6d 62 65 72 73 20 61 67 61 69 6e 73 74 20 74 |umbers against t| 000005b0 68 6f 73 65 0d 64 72 61 77 6e 20 6f 6e 20 74 76 |hose.drawn on tv| 000005c0 2e 20 54 68 65 20 62 65 73 74 20 49 27 76 65 1a |. The best I've.| 000005d0 20 64 6f 6e 65 1a 20 73 6f 20 66 61 72 20 74 77 | done. so far tw| 000005e0 6f 20 6c 69 6e 65 73 20 65 61 63 68 20 77 69 74 |o lines each wit| 000005f0 68 20 74 68 72 65 65 20 6e 75 6d 62 65 72 73 0d |h three numbers.| 00000600 63 6f 72 72 65 63 74 21 20 53 6f 20 66 61 72 20 |correct! So far | 00000610 6d 79 20 45 4c 4b 20 68 61 73 6e 27 74 20 62 65 |my ELK hasn't be| 00000620 65 6e 20 6d 75 63 68 20 68 65 6c 70 20 69 6e 20 |en much help in | 00000630 6d 61 6b 69 6e 67 20 6d 65 20 61 20 6d 69 6c 6c |making me a mill| 00000640 69 6f 6e 61 69 72 65 2e 0d 20 20 49 27 76 65 20 |ionaire.. I've | 00000650 63 6f 6d 65 20 75 70 20 77 69 74 68 20 61 6e 6f |come up with ano| 00000660 74 68 65 72 20 70 72 6f 67 72 61 6d 20 77 68 69 |ther program whi| 00000670 63 68 20 6a 75 73 74 1a 20 67 69 76 65 73 20 66 |ch just. gives f| 00000680 75 72 74 68 65 72 20 70 72 6f 6f 66 20 6f 66 20 |urther proof of | 00000690 68 6f 77 0d 6c 69 74 74 6c 65 20 68 65 6c 70 20 |how.little help | 000006a0 6d 79 20 45 4c 4b 20 69 73 20 69 6e 20 6d 79 20 |my ELK is in my | 000006b0 71 75 65 73 74 20 66 6f 72 20 72 69 63 68 65 73 |quest for riches| 000006c0 2e 20 54 68 69 73 20 6f 6e 65 20 69 73 20 63 61 |. This one is ca| 000006d0 6c 6c 65 64 20 27 46 49 4e 44 4e 4f 53 27 0d 28 |lled 'FINDNOS'.(| 000006e0 61 6c 73 6f 20 6f 6e 20 74 68 65 20 64 69 73 6b |also on the disk| 000006f0 29 2e 20 57 69 74 68 20 69 74 20 49 20 63 61 6e |). With it I can| 00000700 20 66 65 65 64 1a 20 69 6e 20 74 68 65 20 73 69 | feed. in the si| 00000710 78 20 6e 75 6d 62 65 72 73 20 64 72 61 77 6e 20 |x numbers drawn | 00000720 6f 6e 20 54 56 20 61 6e 64 0d 73 65 74 1a 20 74 |on TV and.set. t| 00000730 68 65 1a 20 63 6f 6d 70 75 74 65 72 1a 20 71 75 |he. computer. qu| 00000740 65 73 73 69 6e 67 2e 1a 20 49 74 1a 20 67 65 6e |essing.. It. gen| 00000750 65 72 61 74 65 73 1a 20 73 65 74 73 20 6f 66 20 |erates. sets of | 00000760 73 69 78 20 72 61 6e 64 6f 6d 1a 20 6e 75 6d 62 |six random. numb| 00000770 65 72 73 2c 0d 70 72 69 6e 74 73 20 74 68 65 6d |ers,.prints them| 00000780 20 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 | in ascending or| 00000790 64 65 72 20 61 6e 64 20 74 68 65 6e 1a 20 63 68 |der and then. ch| 000007a0 65 63 6b 73 1a 20 74 68 65 6d 1a 20 61 67 61 69 |ecks. them. agai| 000007b0 6e 73 74 20 74 68 65 20 73 69 78 20 66 65 64 0d |nst the six fed.| 000007c0 69 6e 2e 20 57 68 65 6e 20 69 74 20 70 69 63 6b |in. When it pick| 000007d0 73 20 74 68 65 20 63 6f 72 72 65 63 74 20 73 69 |s the correct si| 000007e0 78 20 6e 75 6d 62 65 72 73 20 69 74 20 73 74 6f |x numbers it sto| 000007f0 70 73 2e 1a 20 41 74 1a 20 6c 65 61 73 74 1a 20 |ps.. At. least. | 00000800 74 68 61 74 27 73 20 74 68 65 0d 74 68 65 6f 72 |that's the.theor| 00000810 79 2e 1a 20 41 66 74 65 72 1a 20 73 65 76 65 72 |y.. After. sever| 00000820 61 6c 1a 20 72 75 6e 73 1a 20 69 74 1a 20 68 61 |al. runs. it. ha| 00000830 73 6e 27 74 1a 20 79 65 74 20 63 6f 6d 65 20 75 |sn't. yet come u| 00000840 70 20 77 69 74 68 20 63 6f 72 72 65 63 74 20 73 |p with correct s| 00000850 65 74 20 6f 66 0d 6e 75 6d 62 65 72 73 2e 20 41 |et of.numbers. A| 00000860 74 20 74 68 65 20 6c 61 74 65 73 74 20 61 74 74 |t the latest att| 00000870 65 6d 70 74 20 69 74 20 72 61 6e 1a 20 66 6f 72 |empt it ran. for| 00000880 1a 20 31 33 1a 20 68 6f 75 72 73 1a 20 61 6e 64 |. 13. hours. and| 00000890 1a 20 31 34 37 35 30 30 20 73 65 74 73 20 6f 66 |. 147500 sets of| 000008a0 0d 6e 75 6d 62 65 72 73 1a 20 77 69 74 68 6f 75 |.numbers. withou| 000008b0 74 1a 20 67 65 6e 65 72 61 74 69 6e 67 1a 20 74 |t. generating. t| 000008c0 68 65 1a 20 63 6f 72 72 65 63 74 20 73 65 74 21 |he. correct set!| 000008d0 20 50 65 72 68 61 70 73 20 73 6f 6d 65 6f 6e 65 | Perhaps someone| 000008e0 20 65 6c 73 65 20 6d 69 67 68 74 0d 6c 69 6b 65 | else might.like| 000008f0 20 74 6f 20 74 72 79 20 74 68 65 20 70 72 6f 67 | to try the prog| 00000900 72 61 6d 2c 20 69 66 20 74 68 65 69 72 20 45 4c |ram, if their EL| 00000910 4b 20 68 61 73 20 61 20 66 65 77 20 64 61 79 73 |K has a few days| 00000920 20 74 6f 20 73 70 61 72 65 21 0d 20 20 4f 6e 1a | to spare!. On.| 00000930 20 61 20 63 6f 6d 70 6c 65 74 65 6c 79 20 64 69 | a completely di| 00000940 66 66 65 72 65 6e 74 20 73 75 62 6a 65 63 74 3b |fferent subject;| 00000950 20 63 61 6e 20 61 6e 79 6f 6e 65 20 70 72 6f 76 | can anyone prov| 00000960 69 64 65 20 6d 65 20 77 69 74 68 20 61 20 70 72 |ide me with a pr| 00000970 69 6e 74 65 72 0d 64 72 69 76 65 72 20 74 68 61 |inter.driver tha| 00000980 74 1a 20 77 69 6c 6c 20 77 6f 72 6b 20 77 69 74 |t. will work wit| 00000990 68 20 56 49 45 57 20 61 6e 64 20 61 20 43 61 6e |h VIEW and a Can| 000009a0 6f 6e 20 42 4a 2d 31 30 65 78 20 70 72 69 6e 74 |on BJ-10ex print| 000009b0 65 72 3f 20 49 20 73 61 77 20 6f 6e 65 20 69 6e |er? I saw one in| 000009c0 0d 6f 6e 65 20 6f 66 20 74 68 65 20 76 65 72 79 |.one of the very| 000009d0 20 65 61 72 6c 79 20 69 73 73 75 65 73 20 6f 66 | early issues of| 000009e0 20 45 55 47 20 62 75 74 20 49 20 63 6f 75 6c 64 | EUG but I could| 000009f0 6e 27 74 20 67 65 74 20 69 74 20 74 6f 20 77 6f |n't get it to wo| 00000a00 72 6b 2e 0d 20 20 4b 65 65 70 20 75 70 20 74 68 |rk.. Keep up th| 00000a10 65 20 67 6f 6f 64 20 77 6f 72 6b 20 77 69 74 68 |e good work with| 00000a20 20 45 55 47 2e 0d 20 20 20 20 20 20 20 20 20 20 | EUG.. | 00000a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 59 | Y| 00000a50 6f 75 72 73 2c 0d 20 20 20 20 20 20 20 20 20 20 |ours,. | 00000a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000a80 20 50 68 69 6c 69 70 20 41 6e 6e 65 73 6c 65 79 | Philip Annesley| 00000a90 2e 0d 20 20 20 20 70 73 20 41 74 20 74 68 65 1a |.. ps At the.| 00000aa0 20 70 72 65 73 65 6e 74 1a 20 6d 79 1a 20 73 70 | present. my. sp| 00000ab0 61 72 65 20 45 4c 4b 20 69 73 20 77 6f 72 6b 69 |are ELK is worki| 00000ac0 6e 67 20 61 77 61 79 20 20 6f 6e 20 46 49 4e 44 |ng away on FIND| 00000ad0 4e 4f 53 20 61 6e 64 20 6c 61 73 74 0d 77 65 65 |NOS and last.wee| 00000ae0 6b 27 73 20 6c 6f 74 74 65 72 79 20 6e 75 6d 62 |k's lottery numb| 00000af0 65 72 73 20 2d 20 73 74 69 6c 6c 20 6e 6f 20 6c |ers - still no l| 00000b00 75 63 6b 20 61 66 74 65 72 20 32 39 30 30 30 20 |uck after 29000 | 00000b10 74 72 69 65 73 21 0d 0d 0d |tries!...| 00000b19
P/+Lott1.m0
P/+Lott1.m1
P/+Lott1.m2
P/+Lott1.m4
P/+Lott1.m5
.