Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/LOTTERY
PROGS/LOTTERY
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_17.ADF |
| Filename: | PROGS/LOTTERY |
| Read OK: | ✔ |
| File size: | 0282 bytes |
| Load address: | FFFF1F00 |
| Exec address: | FFFF8023 |
File contents
5REM LOTTERY NUMBER SELECTOR
6REM By D.Walker Nov'94
10MODE6
20VDU28,0,24,39,0
30CLS
40PRINTTAB(3,1)"NATIONAL LOTTERY NUMBER SELECTOR"
60PRINTTAB(7,4)"Press SPACE for numbers"
70LET D=0:LET E=0:LET F=0:LET G=0:LET H=0:LET I=0
80VDU23,1,0;0;0;0;
90VDU28,0,24,39,10
100IF INKEY(-99) THEN110 ELSE100
110PROCrnd
120CLS
130PRINTTAB(2,4) D;" "E;" "F;" "G;" "H;" "I
140GOTO100
145REM Pick number
150DEFPROCrnd
160LETZ=0
170C=RND(49)
180GOTO270
190IF Z=0 THEN D=C
200IF Z=1 THEN E=C
210IF Z=2 THEN F=C
220IF Z=3 THEN G=C
230IF Z=4 THEN H=C
240IF Z=5 THEN I=C
250LETZ=Z+1
260IF Z=6 ENDPROC ELSE 170
265REM Check number hasn't been picked already
270 IF C=D THEN170
280 IF C=E THEN170
290 IF C=F THEN170
300 IF C=G THEN170
310 IF C=H THEN170
320 IF C=I THEN170
330GOTO190
� LOTTERY NUMBER SELECTOR � By D.Walker Nov'94 �6 �28,0,24,39,0 � (,�3,1)"NATIONAL LOTTERY NUMBER SELECTOR" <#�7,4)"Press SPACE for numbers" F'� D=0:� E=0:� F=0:� G=0:� H=0:� I=0 P�23,1,0;0;0;0; Z�28,0,24,39,10 d� �(-99) ��Dn@ ��Dd@ n�rnd x� �%�2,4) D;" "E;" "F;" "G;" "H;" "I � �Dd@ �� Pick number � ��rnd ��Z=0 � C=�(49) � �TNA �� Z=0 � D=C �� Z=1 � E=C �� Z=2 � F=C �� Z=3 � G=C �� Z=4 � H=C �� Z=5 � I=C � �Z=Z+1 � Z=6 � � �tj@ -� Check number hasn't been picked already � C=D ��tj@ � C=E ��tj@ " � C=F ��tj@ , � C=G ��tj@ 6 � C=H ��tj@ @ � C=I ��tj@ J �t~@ �
00000000 0d 00 05 1d f4 20 4c 4f 54 54 45 52 59 20 4e 55 |..... LOTTERY NU| 00000010 4d 42 45 52 20 53 45 4c 45 43 54 4f 52 0d 00 06 |MBER SELECTOR...| 00000020 18 f4 20 42 79 20 44 2e 57 61 6c 6b 65 72 20 4e |.. By D.Walker N| 00000030 6f 76 27 39 34 0d 00 0a 06 eb 36 0d 00 14 11 ef |ov'94.....6.....| 00000040 32 38 2c 30 2c 32 34 2c 33 39 2c 30 0d 00 1e 05 |28,0,24,39,0....| 00000050 db 0d 00 28 2c f1 8a 33 2c 31 29 22 4e 41 54 49 |...(,..3,1)"NATI| 00000060 4f 4e 41 4c 20 4c 4f 54 54 45 52 59 20 4e 55 4d |ONAL LOTTERY NUM| 00000070 42 45 52 20 53 45 4c 45 43 54 4f 52 22 0d 00 3c |BER SELECTOR"..<| 00000080 23 f1 8a 37 2c 34 29 22 50 72 65 73 73 20 53 50 |#..7,4)"Press SP| 00000090 41 43 45 20 66 6f 72 20 6e 75 6d 62 65 72 73 22 |ACE for numbers"| 000000a0 0d 00 46 27 e9 20 44 3d 30 3a e9 20 45 3d 30 3a |..F'. D=0:. E=0:| 000000b0 e9 20 46 3d 30 3a e9 20 47 3d 30 3a e9 20 48 3d |. F=0:. G=0:. H=| 000000c0 30 3a e9 20 49 3d 30 0d 00 50 12 ef 32 33 2c 31 |0:. I=0..P..23,1| 000000d0 2c 30 3b 30 3b 30 3b 30 3b 0d 00 5a 12 ef 32 38 |,0;0;0;0;..Z..28| 000000e0 2c 30 2c 32 34 2c 33 39 2c 31 30 0d 00 64 18 e7 |,0,24,39,10..d..| 000000f0 20 a6 28 2d 39 39 29 20 8c 8d 44 6e 40 20 8b 8d | .(-99) ..Dn@ ..| 00000100 44 64 40 0d 00 6e 08 f2 72 6e 64 0d 00 78 05 db |Dd@..n..rnd..x..| 00000110 0d 00 82 25 f1 8a 32 2c 34 29 20 44 3b 22 20 22 |...%..2,4) D;" "| 00000120 45 3b 22 20 22 46 3b 22 20 22 47 3b 22 20 22 48 |E;" "F;" "G;" "H| 00000130 3b 22 20 22 49 0d 00 8c 09 e5 8d 44 64 40 0d 00 |;" "I......Dd@..| 00000140 91 11 f4 20 50 69 63 6b 20 6e 75 6d 62 65 72 0d |... Pick number.| 00000150 00 96 09 dd f2 72 6e 64 0d 00 a0 08 e9 5a 3d 30 |.....rnd.....Z=0| 00000160 0d 00 aa 0b 43 3d b3 28 34 39 29 0d 00 b4 09 e5 |....C=.(49).....| 00000170 8d 54 4e 41 0d 00 be 0f e7 20 5a 3d 30 20 8c 20 |.TNA..... Z=0 . | 00000180 44 3d 43 0d 00 c8 0f e7 20 5a 3d 31 20 8c 20 45 |D=C..... Z=1 . E| 00000190 3d 43 0d 00 d2 0f e7 20 5a 3d 32 20 8c 20 46 3d |=C..... Z=2 . F=| 000001a0 43 0d 00 dc 0f e7 20 5a 3d 33 20 8c 20 47 3d 43 |C..... Z=3 . G=C| 000001b0 0d 00 e6 0f e7 20 5a 3d 34 20 8c 20 48 3d 43 0d |..... Z=4 . H=C.| 000001c0 00 f0 0f e7 20 5a 3d 35 20 8c 20 49 3d 43 0d 00 |.... Z=5 . I=C..| 000001d0 fa 0a e9 5a 3d 5a 2b 31 0d 01 04 12 e7 20 5a 3d |...Z=Z+1..... Z=| 000001e0 36 20 e1 20 8b 20 8d 74 6a 40 0d 01 09 2d f4 20 |6 . . .tj@...-. | 000001f0 43 68 65 63 6b 20 6e 75 6d 62 65 72 20 68 61 73 |Check number has| 00000200 6e 27 74 20 62 65 65 6e 20 70 69 63 6b 65 64 20 |n't been picked | 00000210 61 6c 72 65 61 64 79 0d 01 0e 10 20 e7 20 43 3d |already.... . C=| 00000220 44 20 8c 8d 74 6a 40 0d 01 18 10 20 e7 20 43 3d |D ..tj@.... . C=| 00000230 45 20 8c 8d 74 6a 40 0d 01 22 10 20 e7 20 43 3d |E ..tj@..". . C=| 00000240 46 20 8c 8d 74 6a 40 0d 01 2c 10 20 e7 20 43 3d |F ..tj@..,. . C=| 00000250 47 20 8c 8d 74 6a 40 0d 01 36 10 20 e7 20 43 3d |G ..tj@..6. . C=| 00000260 48 20 8c 8d 74 6a 40 0d 01 40 10 20 e7 20 43 3d |H ..tj@..@. . C=| 00000270 49 20 8c 8d 74 6a 40 0d 01 4a 09 e5 8d 74 7e 40 |I ..tj@..J...t~@| 00000280 0d ff |..| 00000282
PROGS/LOTTERY.m0
PROGS/LOTTERY.m1
PROGS/LOTTERY.m2
PROGS/LOTTERY.m4
PROGS/LOTTERY.m5
.