Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_29.ADF » L/+COMLY1
L/+COMLY1
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_29.ADF |
| Filename: | L/+COMLY1 |
| Read OK: | ✔ |
| File size: | 04FF bytes |
| Load address: | 2B204556 |
| Exec address: | 4C4D4F43 |
File contents
-------------------------------------------------------------------------
Mick Comley. 6 Buttermere. Love Lane. Faversham. Kent. ME13 8UD.
01795 531285
-------------------------------------------------------------------------
Dear Gus.
I have enclosed a cheque for `6 for the next six issues of EUG discs.
Please keep the odd amount for your funds.
I have done a cover screen for the EUG disc, see what you think. Don't use
it if you do not think it up to it.
I see in EUG28 that Alva Parrot is having trouble with the Electron's
random number generator in his lottery number program. The solution is to
seed the random number generator with the in built clock using 'TIME' ie.
A%=RND(TIME). This ensures that each time the program is run the same
sequence of numbers is not repeated, because 'TIME' is unlikely to be the
same value. I have taken the liberty of rewriting Alva's program and it is
on the disc as 'LOTT'. This loads six random numbers into an array, while
checking that no two are the same, then prints them to the screen. Hit any
key for another selection or 'Q' to quit. Alva and I will be pleased to
accept any contributions from winners using the program, six figure ones
being preferable please.
All the best Mick Comley.
00000000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000040 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 20 20 20 4d 69 63 |---------. Mic| 00000050 6b 20 43 6f 6d 6c 65 79 2e 20 36 20 42 75 74 74 |k Comley. 6 Butt| 00000060 65 72 6d 65 72 65 2e 20 4c 6f 76 65 20 4c 61 6e |ermere. Love Lan| 00000070 65 2e 20 46 61 76 65 72 73 68 61 6d 2e 20 4b 65 |e. Faversham. Ke| 00000080 6e 74 2e 20 4d 45 31 33 20 38 55 44 2e 0d 20 20 |nt. ME13 8UD.. | 00000090 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000a0 20 20 20 20 20 20 20 20 20 20 30 31 37 39 35 20 | 01795 | 000000b0 35 33 31 32 38 35 0d 2d 2d 2d 2d 2d 2d 2d 2d 2d |531285.---------| 000000c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000100 0d 0d 44 65 61 72 20 47 75 73 2e 0d 49 20 68 61 |..Dear Gus..I ha| 00000110 76 65 20 65 6e 63 6c 6f 73 65 64 20 61 20 63 68 |ve enclosed a ch| 00000120 65 71 75 65 20 66 6f 72 20 60 36 20 66 6f 72 20 |eque for `6 for | 00000130 74 68 65 20 6e 65 78 74 20 73 69 78 20 69 73 73 |the next six iss| 00000140 75 65 73 20 6f 66 20 45 55 47 20 64 69 73 63 73 |ues of EUG discs| 00000150 2e 0d 50 6c 65 61 73 65 20 6b 65 65 70 20 74 68 |..Please keep th| 00000160 65 20 6f 64 64 20 61 6d 6f 75 6e 74 20 66 6f 72 |e odd amount for| 00000170 20 79 6f 75 72 20 66 75 6e 64 73 2e 0d 0d 49 20 | your funds...I | 00000180 68 61 76 65 20 64 6f 6e 65 20 61 20 63 6f 76 65 |have done a cove| 00000190 72 20 73 63 72 65 65 6e 20 66 6f 72 20 74 68 65 |r screen for the| 000001a0 20 45 55 47 20 64 69 73 63 2c 20 73 65 65 20 77 | EUG disc, see w| 000001b0 68 61 74 20 79 6f 75 20 74 68 69 6e 6b 2e 20 44 |hat you think. D| 000001c0 6f 6e 27 74 20 75 73 65 0d 69 74 20 69 66 20 79 |on't use.it if y| 000001d0 6f 75 20 64 6f 20 6e 6f 74 20 74 68 69 6e 6b 20 |ou do not think | 000001e0 69 74 20 75 70 20 74 6f 20 69 74 2e 0d 0d 49 20 |it up to it...I | 000001f0 73 65 65 20 69 6e 20 45 55 47 32 38 20 74 68 61 |see in EUG28 tha| 00000200 74 20 41 6c 76 61 20 50 61 72 72 6f 74 20 69 73 |t Alva Parrot is| 00000210 20 68 61 76 69 6e 67 20 74 72 6f 75 62 6c 65 20 | having trouble | 00000220 77 69 74 68 20 74 68 65 20 45 6c 65 63 74 72 6f |with the Electro| 00000230 6e 27 73 0d 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 |n's.random numbe| 00000240 72 20 67 65 6e 65 72 61 74 6f 72 20 69 6e 20 68 |r generator in h| 00000250 69 73 20 6c 6f 74 74 65 72 79 20 6e 75 6d 62 65 |is lottery numbe| 00000260 72 20 70 72 6f 67 72 61 6d 2e 20 54 68 65 20 73 |r program. The s| 00000270 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 0d 73 65 |olution is to.se| 00000280 65 64 20 74 68 65 20 72 61 6e 64 6f 6d 20 6e 75 |ed the random nu| 00000290 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72 20 77 |mber generator w| 000002a0 69 74 68 20 74 68 65 20 69 6e 20 62 75 69 6c 74 |ith the in built| 000002b0 20 63 6c 6f 63 6b 20 75 73 69 6e 67 20 27 54 49 | clock using 'TI| 000002c0 4d 45 27 20 69 65 2e 0d 41 25 3d 52 4e 44 28 54 |ME' ie..A%=RND(T| 000002d0 49 4d 45 29 2e 20 54 68 69 73 20 65 6e 73 75 72 |IME). This ensur| 000002e0 65 73 20 74 68 61 74 20 65 61 63 68 20 74 69 6d |es that each tim| 000002f0 65 20 74 68 65 20 70 72 6f 67 72 61 6d 20 69 73 |e the program is| 00000300 20 72 75 6e 20 74 68 65 20 73 61 6d 65 0d 73 65 | run the same.se| 00000310 71 75 65 6e 63 65 20 6f 66 20 6e 75 6d 62 65 72 |quence of number| 00000320 73 20 69 73 20 6e 6f 74 20 72 65 70 65 61 74 65 |s is not repeate| 00000330 64 2c 20 62 65 63 61 75 73 65 20 27 54 49 4d 45 |d, because 'TIME| 00000340 27 20 69 73 20 75 6e 6c 69 6b 65 6c 79 20 74 6f |' is unlikely to| 00000350 20 62 65 20 74 68 65 0d 73 61 6d 65 20 76 61 6c | be the.same val| 00000360 75 65 2e 20 49 20 68 61 76 65 20 74 61 6b 65 6e |ue. I have taken| 00000370 20 74 68 65 20 6c 69 62 65 72 74 79 20 6f 66 20 | the liberty of | 00000380 72 65 77 72 69 74 69 6e 67 20 41 6c 76 61 27 73 |rewriting Alva's| 00000390 20 70 72 6f 67 72 61 6d 20 61 6e 64 20 69 74 20 | program and it | 000003a0 69 73 0d 6f 6e 20 74 68 65 20 64 69 73 63 20 61 |is.on the disc a| 000003b0 73 20 27 4c 4f 54 54 27 2e 20 54 68 69 73 20 6c |s 'LOTT'. This l| 000003c0 6f 61 64 73 20 73 69 78 20 72 61 6e 64 6f 6d 20 |oads six random | 000003d0 6e 75 6d 62 65 72 73 20 69 6e 74 6f 20 61 6e 20 |numbers into an | 000003e0 61 72 72 61 79 2c 20 77 68 69 6c 65 0d 63 68 65 |array, while.che| 000003f0 63 6b 69 6e 67 20 74 68 61 74 20 6e 6f 20 74 77 |cking that no tw| 00000400 6f 20 61 72 65 20 74 68 65 20 73 61 6d 65 2c 20 |o are the same, | 00000410 74 68 65 6e 20 70 72 69 6e 74 73 20 74 68 65 6d |then prints them| 00000420 20 74 6f 20 74 68 65 20 73 63 72 65 65 6e 2e 20 | to the screen. | 00000430 48 69 74 20 61 6e 79 0d 6b 65 79 20 66 6f 72 20 |Hit any.key for | 00000440 61 6e 6f 74 68 65 72 20 73 65 6c 65 63 74 69 6f |another selectio| 00000450 6e 20 6f 72 20 27 51 27 20 74 6f 20 71 75 69 74 |n or 'Q' to quit| 00000460 2e 20 41 6c 76 61 20 61 6e 64 20 49 20 77 69 6c |. Alva and I wil| 00000470 6c 20 62 65 20 70 6c 65 61 73 65 64 20 74 6f 0d |l be pleased to.| 00000480 61 63 63 65 70 74 20 61 6e 79 20 63 6f 6e 74 72 |accept any contr| 00000490 69 62 75 74 69 6f 6e 73 20 66 72 6f 6d 20 77 69 |ibutions from wi| 000004a0 6e 6e 65 72 73 20 75 73 69 6e 67 20 74 68 65 20 |nners using the | 000004b0 70 72 6f 67 72 61 6d 2c 20 73 69 78 20 66 69 67 |program, six fig| 000004c0 75 72 65 20 6f 6e 65 73 0d 62 65 69 6e 67 20 70 |ure ones.being p| 000004d0 72 65 66 65 72 61 62 6c 65 20 70 6c 65 61 73 65 |referable please| 000004e0 2e 0d 0d 0d 41 6c 6c 20 74 68 65 20 62 65 73 74 |....All the best| 000004f0 20 4d 69 63 6b 20 43 6f 6d 6c 65 79 2e 0d 0d | Mick Comley...| 000004ff
L/+COMLY1.m0
L/+COMLY1.m1
L/+COMLY1.m2
L/+COMLY1.m4
L/+COMLY1.m5
.