_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LOTTERY NUMS.C

FILE INFORMATION

FILENAME(S): LOTTERY NUMS.C

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-02 16:39:41

APPEARS ON: 4 disk(s)

FILE HASH

1ac0ea6c2d1a947f81b1b309a0023ec4f8764b088db5ec3b40dbbe813b760097

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TPUG APRIL 84 C LOTTERY NUMS.C PRG Treasure Chest - Plattfuss 23 3 DOWNLOAD FILE
A NWENDER LOTTERY NUMS.C PRG Treasure Chest - Wolfgang Rauprich 19 4 DOWNLOAD FILE
FREESOFT DISK NR LOTTERY NUMS.C PRG Treasure Chest - Wolfgang Rauprich 19 4 DOWNLOAD FILE
TPUG APRIL 84 C LOTTERY NUMS.C PRG Sailor, Ganheden 23 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> 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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL