> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 8F 20 4C 4F 54 54 45 52 59 20 |..;.... LOTTERY |
00000010: 4E 55 4D 42 45 52 20 47 45 4E 45 52 41 54 4F 52 |NUMBER GENERATOR|
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 | BY|
00000030: 20 50 2E 20 53 50 45 41 47 4C 45 00 5B 08 14 00 | P. SPEAGLE.[...|
00000040: 97 35 33 32 38 31 2C 31 30 3A 97 35 33 32 38 30 |.53281,10:.53280|
00000050: 2C 31 30 3A 99 22 93 1C 11 11 22 00 9C 08 1E 00 |,10:."....".....|
00000060: 99 22 20 20 20 20 20 20 20 20 4C 4F 54 54 45 52 |." LOTTER|
00000070: 59 20 4E 55 4D 42 45 52 20 47 45 4E 45 52 41 54 |Y NUMBER GENERAT|
00000080: 4F 52 11 11 22 3A 99 A3 31 32 29 22 42 59 20 50 |OR..":..12)"BY P|
00000090: 41 55 4C 20 53 50 45 41 47 4C 45 22 00 C9 08 28 |AUL SPEAGLE"...(|
000000A0: 00 99 22 11 11 54 48 49 53 20 50 52 4F 47 52 41 |.."..THIS PROGRA|
000000B0: 4D 20 47 45 4E 45 52 41 54 45 53 20 41 20 53 45 |M GENERATES A SE|
000000C0: 52 49 45 53 20 4F 46 20 22 00 18 09 32 00 99 22 |RIES OF "...2.."|
000000D0: 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 53 20 57 |RANDOM NUMBERS W|
000000E0: 48 49 43 48 20 4D 41 59 20 42 45 20 55 53 45 44 |HICH MAY BE USED|
000000F0: 20 54 4F 20 47 45 54 20 20 41 20 52 41 4E 44 4F | TO GET A RANDO|
00000100: 4D 20 4E 55 4D 42 45 52 20 46 4F 52 20 41 20 4C |M NUMBER FOR A L|
00000110: 4F 54 54 45 52 59 22 3B 00 27 09 37 00 99 22 20 |OTTERY";.'.7.." |
00000120: 54 49 43 4B 45 54 22 00 79 09 3C 00 99 22 11 11 |TICKET".y.<.."..|
00000130: 41 53 20 53 45 54 20 55 50 20 54 48 45 20 50 52 |AS SET UP THE PR|
00000140: 4F 47 52 41 4D 20 57 49 4C 4C 20 47 45 4E 45 52 |OGRAM WILL GENER|
00000150: 41 54 45 20 41 22 3A 99 22 53 45 51 55 45 4E 43 |ATE A":."SEQUENC|
00000160: 45 20 4F 46 20 53 49 58 20 52 41 4E 44 4F 4D 20 |E OF SIX RANDOM |
00000170: 4E 55 4D 42 45 52 53 22 3B 00 A2 09 46 00 99 22 |NUMBERS";...F.."|
00000180: 20 46 4F 52 20 22 3A 99 22 54 48 45 20 4C 4F 54 | FOR ":."THE LOT|
00000190: 4F 20 36 2F 34 39 20 4C 4F 54 54 45 52 59 2E 11 |O 6/49 LOTTERY..|
000001A0: 11 22 00 D0 09 4B 00 99 22 11 11 54 4F 20 43 55 |."...K.."..TO CU|
000001B0: 53 54 4F 4D 49 5A 45 2C 20 45 44 49 54 20 4C 49 |STOMIZE, EDIT LI|
000001C0: 4E 45 53 20 31 30 30 20 2D 20 31 32 30 11 11 22 |NES 100 - 120.."|
000001D0: 00 F2 09 50 00 99 A3 39 29 22 12 50 52 45 53 53 |...P...9)".PRESS|
000001E0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 54 41 52 | ANY KEY TO STAR|
000001F0: 54 22 00 04 0A 55 00 A1 41 24 3A 8B 41 24 B2 22 |T"...U..A$:.A$."|
00000200: 22 A7 38 35 00 14 0A 64 00 8F 20 4C 4F 54 4F 20 |".85...d.. LOTO |
00000210: 36 2F 34 39 00 5A 0A 69 00 4E 55 4D 20 B2 20 36 |6/49.Z.i.NUM . 6|
00000220: 20 3A 8F 20 48 4F 57 20 4D 41 4E 59 20 4E 55 4D | :. HOW MANY NUM|
00000230: 42 45 52 53 20 41 52 45 20 20 20 20 20 20 20 4D |BERS ARE M|
00000240: 55 53 54 20 42 45 20 47 45 4E 45 52 41 54 45 44 |UST BE GENERATED|
00000250: 20 41 54 20 4F 4E 43 45 20 3F 00 99 0A 6E 00 4D | AT ONCE ?...n.M|
00000260: 49 4E 20 B2 20 31 20 3A 20 8F 20 4D 49 4E 49 4D |IN . 1 : . MINIM|
00000270: 55 4D 20 56 41 4C 55 45 20 54 48 41 54 20 20 20 |UM VALUE THAT |
00000280: 20 20 20 20 20 45 41 43 48 20 4E 55 4D 42 45 52 | EACH NUMBER|
00000290: 20 4D 41 59 20 54 41 4B 45 00 D6 0A 73 00 4D 41 | MAY TAKE...s.MA|
000002A0: 58 20 B2 20 34 39 20 3A 20 8F 20 4D 41 58 49 4D |X . 49 : . MAXIM|
000002B0: 55 4D 20 56 41 4C 55 45 20 54 48 41 54 20 41 20 |UM VALUE THAT A |
000002C0: 20 20 20 20 4E 55 4D 42 45 52 20 4D 41 59 20 54 | NUMBER MAY T|
000002D0: 41 4B 45 20 4F 4E 00 E6 0A 82 00 86 20 4E 55 4D |AKE ON...... NUM|
000002E0: 25 28 4E 55 4D 29 00 2F 0B 8C 00 4E 55 4D 25 28 |%(NUM)./...NUM%(|
000002F0: 31 29 B2 B5 28 BB 28 54 49 29 29 3A 8F 20 45 4E |1)..(.(TI)):. EN|
00000300: 53 55 52 45 20 54 48 41 54 20 20 20 20 41 20 4E |SURE THAT A N|
00000310: 45 57 20 52 41 4E 44 4F 4D 20 53 45 51 55 45 4E |EW RANDOM SEQUEN|
00000320: 43 45 20 49 53 20 47 45 4E 45 52 41 54 45 44 00 |CE IS GENERATED.|
00000330: 57 0B 8D 00 8F 20 45 41 43 48 20 54 49 4D 45 20 |W.... EACH TIME |
00000340: 54 48 41 54 20 54 48 45 20 50 52 4F 47 52 41 4D |THAT THE PROGRAM|
00000350: 20 49 53 20 52 55 4E 00 66 0B 96 00 81 49 B2 31 | IS RUN.f....I.1|
00000360: 20 A4 20 4E 55 4D 00 82 0B A0 00 4E 55 4D 25 28 | . NUM.....NUM%(|
00000370: 49 29 B2 B5 28 BB 28 31 29 AC 4D 41 58 29 AA 4D |I)..(.(1).MAX).M|
00000380: 49 4E 00 89 0B AA 00 82 49 00 B3 0B C8 00 99 22 |IN......I......"|
00000390: 93 11 11 48 45 52 45 20 41 52 45 22 3B 4E 55 4D |...HERE ARE";NUM|
000003A0: 3B 22 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 53 |;"RANDOM NUMBERS|
000003B0: 11 11 22 00 D4 0B DC 00 81 49 B2 31 A4 4E 55 4D |.."......I.1.NUM|
000003C0: 3A 99 4E 55 4D 25 28 49 29 3B 22 20 22 3B 3A 82 |:.NUM%(I);" ";:.|
000003D0: 3A 99 3A 99 00 22 0C F0 00 99 22 12 48 49 54 20 |:.:.."....".HIT |
000003E0: 51 20 54 4F 20 51 55 49 54 20 4F 52 20 41 4E 59 |Q TO QUIT OR ANY|
000003F0: 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 22 3A 99 | OTHER KEY TO":.|
00000400: 22 47 45 4E 45 52 41 54 45 20 41 4E 4F 54 48 45 |"GENERATE ANOTHE|
00000410: 52 20 53 45 54 20 4F 46 20 4E 55 4D 42 45 52 53 |R SET OF NUMBERS|
00000420: 2E 22 00 35 0C FA 00 A1 41 24 3A 8B 41 24 B2 22 |.".5....A$:.A$."|
00000430: 22 A7 32 35 30 00 47 0C 04 01 8B 20 41 24 B3 B1 |".250.G.... A$..|
00000440: 22 51 22 A7 31 35 30 00 4D 0C 0E 01 80 00 00 00 |"Q".150.M.......|
..;.... LOTTERY NUMBER GENERATOR
BY P. SPEAGLE.[....53281,10:.53280
,10:."...."......" LOTTERY NUMBER
GENERATOR..":..12)"BY PAUL SPEAGLE".I.(
.."..THIS PROGRAM GENERATES A SERIES OF
"...2.."RANDOM NUMBERS WHICH MAY BE USED
TO GET A RANDOM NUMBER FOR A LOTTERY";
.'.7.." TICKET".Y.<.."..AS SET UP THE PR
OGRAM WILL GENERATE A":."SEQUENCE OF SIX
RANDOM NUMBERS";...F.." FOR ":."THE LOT
O 6/49 LOTTERY...".P.K.."..TO CUSTOMIZE,
EDIT LINES 100 - 120.."...P...9)".PRESS
ANY KEY TO START"...U..A$:.A$."".85...D
.. LOTO 6/49.Z.I.NUM . 6 :. HOW MANY NUM
BERS ARE MUST BE GENERATED AT ONCE
?...N.MIN . 1 : . MINIMUM VALUE THAT
EACH NUMBER MAY TAKE.V.S.MAX . 49 :
. MAXIMUM VALUE THAT A NUMBER MAY T
AKE ON...... NUM%(NUM)./...NUM%(1)..(.(T
I)):. ENSURE THAT A NEW RANDOM SEQUEN
CE IS GENERATED.W.... EACH TIME THAT THE
PROGRAM IS RUN.F....I.1 . NUM... .NUM%(
I)..(.(1).MAX).MIN......I...H.."...HERE
ARE";NUM;"RANDOM NUMBERS..".T....I.1.NUM
:.NUM%(I);" ";:.:.:.."....".HIT Q TO QUI
T OR ANY OTHER KEY TO":."GENERATE ANOTHE
R SET OF NUMBERS.".5....A$:.A$."".250.G.
... A$.."Q".150.M.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL