Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_28.ADF » L/+Parot1
L/+Parot1
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_28.ADF |
| Filename: | L/+Parot1 |
| Read OK: | ✔ |
| File size: | 02AB bytes |
| Load address: | 3A204556 |
| Exec address: | 2E6C2E30 |
File contents
Dear Gus I have just realised that my subscription had run out. I wonder if anyone can help me with a small problem? I have written a simple program for my Electron to select my lottery numbers each week. Although each time it is RUN it gives a different set of numbers I find that the same sequence of 'sets' is repeated each time I switch on the computer. I wonder if anyone can tell me how to alter the program to overcome this problem? 10 FOR I = 1 TO 8 20 LET A = RND(49) 30 PRINT "Ball number"I,A 40 NEXT I I asked the machine to produce 8 balls to allow for duplication of numbers. With best wishes for the future of EUG I remain Yours sincerely Alva Alva Parrot
00000000 44 65 61 72 20 47 75 73 0d 0d 49 20 68 61 76 65 |Dear Gus..I have| 00000010 20 6a 75 73 74 20 72 65 61 6c 69 73 65 64 20 74 | just realised t| 00000020 68 61 74 20 6d 79 20 73 75 62 73 63 72 69 70 74 |hat my subscript| 00000030 69 6f 6e 20 68 61 64 20 72 75 6e 20 6f 75 74 2e |ion had run out.| 00000040 0d 0d 49 20 77 6f 6e 64 65 72 20 69 66 20 61 6e |..I wonder if an| 00000050 79 6f 6e 65 20 63 61 6e 20 68 65 6c 70 20 6d 65 |yone can help me| 00000060 20 77 69 74 68 20 61 20 73 6d 61 6c 6c 20 70 72 | with a small pr| 00000070 6f 62 6c 65 6d 3f 0d 0d 49 20 68 61 76 65 20 77 |oblem?..I have w| 00000080 72 69 74 74 65 6e 20 61 20 73 69 6d 70 6c 65 20 |ritten a simple | 00000090 70 72 6f 67 72 61 6d 20 66 6f 72 20 6d 79 20 45 |program for my E| 000000a0 6c 65 63 74 72 6f 6e 20 74 6f 20 73 65 6c 65 63 |lectron to selec| 000000b0 74 20 6d 79 20 6c 6f 74 74 65 72 79 0d 6e 75 6d |t my lottery.num| 000000c0 62 65 72 73 20 65 61 63 68 20 77 65 65 6b 2e 0d |bers each week..| 000000d0 0d 41 6c 74 68 6f 75 67 68 20 65 61 63 68 20 74 |.Although each t| 000000e0 69 6d 65 20 69 74 20 69 73 20 52 55 4e 20 69 74 |ime it is RUN it| 000000f0 20 67 69 76 65 73 20 61 20 64 69 66 66 65 72 65 | gives a differe| 00000100 6e 74 20 73 65 74 20 6f 66 20 6e 75 6d 62 65 72 |nt set of number| 00000110 73 20 49 20 66 69 6e 64 0d 74 68 61 74 20 74 68 |s I find.that th| 00000120 65 20 73 61 6d 65 20 73 65 71 75 65 6e 63 65 20 |e same sequence | 00000130 6f 66 20 27 73 65 74 73 27 20 69 73 20 72 65 70 |of 'sets' is rep| 00000140 65 61 74 65 64 20 65 61 63 68 20 74 69 6d 65 20 |eated each time | 00000150 49 20 73 77 69 74 63 68 20 6f 6e 20 74 68 65 0d |I switch on the.| 00000160 63 6f 6d 70 75 74 65 72 2e 0d 0d 49 20 77 6f 6e |computer...I won| 00000170 64 65 72 20 69 66 20 61 6e 79 6f 6e 65 20 63 61 |der if anyone ca| 00000180 6e 20 74 65 6c 6c 20 6d 65 20 68 6f 77 20 74 6f |n tell me how to| 00000190 20 61 6c 74 65 72 20 74 68 65 20 70 72 6f 67 72 | alter the progr| 000001a0 61 6d 20 74 6f 20 6f 76 65 72 63 6f 6d 65 20 74 |am to overcome t| 000001b0 68 69 73 0d 70 72 6f 62 6c 65 6d 3f 0d 0d 31 30 |his.problem?..10| 000001c0 20 46 4f 52 20 49 20 3d 20 31 20 54 4f 20 38 0d | FOR I = 1 TO 8.| 000001d0 32 30 20 4c 45 54 20 41 20 3d 20 52 4e 44 28 34 |20 LET A = RND(4| 000001e0 39 29 0d 33 30 20 50 52 49 4e 54 20 22 42 61 6c |9).30 PRINT "Bal| 000001f0 6c 20 6e 75 6d 62 65 72 22 49 2c 41 0d 34 30 20 |l number"I,A.40 | 00000200 4e 45 58 54 20 49 0d 0d 49 20 61 73 6b 65 64 20 |NEXT I..I asked | 00000210 74 68 65 20 6d 61 63 68 69 6e 65 20 74 6f 20 70 |the machine to p| 00000220 72 6f 64 75 63 65 20 38 20 62 61 6c 6c 73 20 74 |roduce 8 balls t| 00000230 6f 20 61 6c 6c 6f 77 20 66 6f 72 20 64 75 70 6c |o allow for dupl| 00000240 69 63 61 74 69 6f 6e 20 6f 66 0d 6e 75 6d 62 65 |ication of.numbe| 00000250 72 73 2e 0d 0d 57 69 74 68 20 62 65 73 74 20 77 |rs...With best w| 00000260 69 73 68 65 73 20 66 6f 72 20 74 68 65 20 66 75 |ishes for the fu| 00000270 74 75 72 65 20 6f 66 20 45 55 47 0d 0d 49 20 72 |ture of EUG..I r| 00000280 65 6d 61 69 6e 0d 59 6f 75 72 73 20 73 69 6e 63 |emain.Yours sinc| 00000290 65 72 65 6c 79 0d 0d 41 6c 76 61 0d 0d 41 6c 76 |erely..Alva..Alv| 000002a0 61 20 50 61 72 72 6f 74 0d 0d 0d |a Parrot...| 000002ab
L/+Parot1.m0
L/+Parot1.m1
L/+Parot1.m2
L/+Parot1.m4
L/+Parot1.m5
.