LOTTERY.C
FILE INFORMATION
FILENAME(S): LOTTERY.C
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 5 disk(s)
FILE HASH
27738ac6d17e878cf6bca7fa46b007ad3afb10412482286711651123cb16a2f6
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | LOTTERY.C | PRG | Treasure Chest - Plattfuss | 6 | 7 | DOWNLOAD FILE |
| A NWENDER | LOTTERY.C | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | LOTTERY.C | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 0 | DOWNLOAD FILE |
| TPUG APRIL 84 C | LOTTERY.C | PRG | Sailor, Ganheden | 6 | 7 | DOWNLOAD FILE |
| TPUG APRIL 84 C | LOTTERY.C | PRG | DuncanTwain | 6 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 89 20 31 36 30 00 14 08 01 00 |....... 160.....|
00000010: 22 14 14 14 00 38 08 02 00 22 14 14 14 57 52 49 |"....8..."...WRI|
00000020: 54 54 45 4E 20 42 59 20 52 4F 42 45 52 54 20 4B |TTEN BY ROBERT K|
00000030: 2E 20 53 43 48 4D 49 44 00 5A 08 03 00 22 14 14 |. SCHMID.Z..."..|
00000040: 14 44 45 43 45 4D 42 45 52 20 34 2C 20 31 39 38 |.DECEMBER 4, 198|
00000050: 33 20 46 4F 52 20 54 50 55 47 00 63 08 04 00 22 |3 FOR TPUG.c..."|
00000060: 14 14 14 00 80 08 05 00 97 20 35 33 32 38 30 2C |......... 53280,|
00000070: 30 3A 97 20 35 33 32 38 31 2C 30 3A 99 22 05 22 |0:. 53281,0:."."|
00000080: 00 86 08 06 00 9C 00 97 08 07 00 54 49 24 B2 22 |...........TI$."|
00000090: 30 30 30 30 30 30 22 00 A1 08 08 00 89 20 31 30 |000000"...... 10|
000000A0: 30 00 C9 08 09 00 8F 20 20 20 2A 2A 2A 20 45 4E |0...... *** EN|
000000B0: 54 45 52 20 59 4F 55 52 20 4E 55 4D 42 45 52 53 |TER YOUR NUMBERS|
000000C0: 20 48 45 52 45 20 2A 2A 2A 00 D2 08 0A 00 55 B2 | HERE ***.....U.|
000000D0: 36 34 00 DB 08 0B 00 56 B2 36 34 00 E4 08 0C 00 |64.....V.64.....|
000000E0: 57 B2 36 34 00 ED 08 0D 00 58 B2 36 34 00 F6 08 |W.64.....X.64...|
000000F0: 0E 00 59 B2 36 34 00 FF 08 0F 00 5A B2 36 34 00 |..Y.64.....Z.64.|
00000100: 26 09 10 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |&.... *********|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 00 37 09 14 00 4D B2 B5 28 34 |******.7...M..(4|
00000130: 39 AC BB 28 31 29 29 00 48 09 15 00 4E B2 B5 28 |9..(1)).H...N..(|
00000140: 34 39 AC BB 28 31 29 29 00 59 09 16 00 4F B2 B5 |49..(1)).Y...O..|
00000150: 28 34 39 AC BB 28 31 29 29 00 6A 09 17 00 50 B2 |(49..(1)).j...P.|
00000160: B5 28 34 39 AC BB 28 31 29 29 00 7B 09 18 00 51 |.(49..(1)).{...Q|
00000170: B2 B5 28 34 39 AC BB 28 31 29 29 00 8C 09 19 00 |..(49..(1)).....|
00000180: 52 B2 B5 28 34 39 AC BB 28 31 29 29 00 B9 09 1E |R..(49..(1))....|
00000190: 00 8B 20 55 B2 4D 20 AF 20 56 B2 4E 20 AF 20 57 |.. U.M . V.N . W|
000001A0: B2 4F 20 AF 20 58 B2 50 20 AF 20 59 B2 51 20 AF |.O . X.P . Y.Q .|
000001B0: 20 5A B2 52 20 A7 20 35 30 00 C3 09 1F 00 43 B2 | Z.R . 50.....C.|
000001C0: 43 AA 31 00 CD 09 20 00 89 20 31 31 30 00 D3 09 |C.1... .. 110...|
000001D0: 32 00 80 00 F6 09 64 00 99 22 93 22 3A 99 22 20 |2.....d..".":." |
000001E0: 20 20 20 4C 4F 54 54 45 52 59 20 53 49 4D 55 4C | LOTTERY SIMUL|
000001F0: 41 54 49 4F 4E 22 00 16 0A 65 00 99 22 20 20 20 |ATION"...e.." |
00000200: 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | ...............|
00000210: A3 A3 A3 22 3A 99 00 3C 0A 66 00 99 22 12 48 92 |...":..<.f..".H.|
00000220: 4F 57 20 4D 55 43 48 20 4D 4F 4E 45 59 20 48 41 |OW MUCH MONEY HA|
00000230: 56 45 20 49 20 53 50 45 4E 54 3F 22 00 64 0A 67 |VE I SPENT?".d.g|
00000240: 00 99 22 12 43 92 4F 4D 50 55 54 45 52 20 48 41 |..".C.OMPUTER HA|
00000250: 53 20 42 45 45 4E 20 52 55 4E 4E 49 4E 47 20 46 |S BEEN RUNNING F|
00000260: 4F 52 3F 22 00 88 0A 68 00 99 22 12 59 92 45 41 |OR?"...h..".Y.EA|
00000270: 52 53 20 49 20 48 41 56 45 20 54 52 49 45 44 20 |RS I HAVE TRIED |
00000280: 54 4F 20 57 49 4E 3F 22 00 99 0A 69 00 99 22 12 |TO WIN?"...i..".|
00000290: 47 92 49 56 45 20 55 50 22 00 A2 0A 6E 00 A1 20 |G.IVE UP"...n.. |
000002A0: 41 24 00 B5 0A 73 00 8B 20 41 24 B2 22 48 22 20 |A$...s.. A$."H" |
000002B0: A7 20 31 33 30 00 C8 0A 74 00 8B 20 41 24 B2 22 |. 130...t.. A$."|
000002C0: 43 22 20 A7 20 31 34 30 00 DB 0A 75 00 8B 20 41 |C" . 140...u.. A|
000002D0: 24 B2 22 59 22 20 A7 20 31 35 30 00 ED 0A 76 00 |$."Y" . 150...v.|
000002E0: 8B 20 41 24 B2 22 47 22 20 A7 20 35 30 00 F6 0A |. A$."G" . 50...|
000002F0: 78 00 89 20 32 30 00 0B 0B 79 00 81 20 41 B2 31 |x.. 20...y.. A.1|
00000300: 20 A4 20 32 30 30 30 3A 82 20 41 00 15 0B 7A 00 | . 2000:. A...z.|
00000310: 89 20 31 30 30 00 2C 0B 82 00 99 3A 99 3A 99 20 |. 100.,....:.:. |
00000320: 43 3B 22 44 4F 4C 4C 41 52 53 21 22 00 41 0B 83 |C;"DOLLARS!".A..|
00000330: 00 81 20 41 B2 31 20 A4 20 32 30 30 30 3A 82 20 |.. A.1 . 2000:. |
00000340: 41 00 4B 0B 84 00 89 20 31 30 30 00 82 0B 8C 00 |A.K.... 100.....|
00000350: 99 3A 99 3A 99 20 C8 28 54 49 24 2C 32 29 3B 22 |.:.:. .(TI$,2);"|
00000360: 20 48 4F 55 52 53 20 41 4E 44 20 22 3B CA 28 54 | HOURS AND ";.(T|
00000370: 49 24 2C 33 2C 32 29 3B 22 20 4D 49 4E 55 54 45 |I$,3,2);" MINUTE|
00000380: 53 22 00 97 0B 8D 00 81 20 41 B2 31 20 A4 20 32 |S"...... A.1 . 2|
00000390: 30 30 30 3A 82 20 41 00 A1 0B 8E 00 89 20 31 30 |000:. A...... 10|
000003A0: 30 00 A9 0B 96 00 99 3A 99 00 BD 0B 97 00 99 20 |0......:....... |
000003B0: 43 AD 35 32 3B 22 59 45 41 52 53 21 22 00 D2 0B |C.52;"YEARS!"...|
000003C0: 98 00 81 20 41 B2 31 20 A4 20 32 30 30 30 3A 82 |... A.1 . 2000:.|
000003D0: 20 41 00 DC 0B 99 00 89 20 31 30 30 00 05 0C A0 | A...... 100....|
000003E0: 00 99 22 93 20 20 20 20 20 20 20 20 12 36 2F 34 |..". .6/4|
000003F0: 39 20 4C 4F 54 54 45 52 59 20 53 49 4D 55 4C 41 |9 LOTTERY SIMULA|
00000400: 54 49 4F 4E 22 00 2D 0C A1 00 99 3A 99 A3 36 29 |TION".-....:..6)|
00000410: 22 57 52 49 54 54 45 4E 20 42 59 20 52 4F 42 45 |"WRITTEN BY ROBE|
00000420: 52 54 20 4B 2E 20 53 43 48 4D 49 44 22 00 37 0C |RT K. SCHMID".7.|
00000430: A2 00 99 3A 99 3A 99 00 63 0C A3 00 99 22 54 48 |...:.:..c...."TH|
00000440: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00000450: 41 4C 4C 4F 57 20 59 4F 55 20 54 4F 20 45 4E 54 |ALLOW YOU TO ENT|
00000460: 45 52 22 00 92 0C A4 00 99 22 59 4F 55 52 20 27 |ER"......"YOUR '|
00000470: 4C 55 43 4B 59 27 20 4E 55 4D 42 45 52 53 20 49 |LUCKY' NUMBERS I|
00000480: 4E 54 4F 20 54 48 45 20 43 4F 4D 50 55 54 45 52 |NTO THE COMPUTER|
00000490: 2E 22 00 BE 0C A5 00 99 22 54 48 45 20 43 4F 4D |."......"THE COM|
000004A0: 50 55 54 45 52 20 57 49 4C 4C 20 54 48 45 4E 20 |PUTER WILL THEN |
000004B0: 43 48 4F 4F 53 45 20 52 41 4E 44 4F 4D 22 00 EB |CHOOSE RANDOM"..|
000004C0: 0C A6 00 99 22 4E 55 4D 42 45 52 53 20 41 4E 44 |...."NUMBERS AND|
000004D0: 20 43 4F 4D 50 41 52 45 20 49 54 20 54 4F 20 59 | COMPARE IT TO Y|
000004E0: 4F 55 52 20 54 49 43 4B 45 54 22 00 18 0D A7 00 |OUR TICKET".....|
000004F0: 99 22 54 4F 20 53 45 45 20 49 46 20 59 4F 55 27 |."TO SEE IF YOU'|
00000500: 56 45 20 57 4F 4E 20 54 48 45 20 27 4A 41 43 4B |VE WON THE 'JACK|
00000510: 50 4F 54 27 20 4F 46 22 00 47 0D A8 00 99 22 4F |POT' OF".G...."O|
00000520: 4E 45 20 4D 49 4C 4C 49 4F 4E 20 44 4F 4C 4C 41 |NE MILLION DOLLA|
00000530: 52 53 2E 20 43 48 4F 4F 53 45 20 53 49 58 20 4E |RS. CHOOSE SIX N|
00000540: 55 4D 42 45 52 53 22 00 74 0D A9 00 99 22 57 48 |UMBERS".t...."WH|
00000550: 4F 53 45 20 56 41 4C 55 45 53 20 41 52 45 20 42 |OSE VALUES ARE B|
00000560: 45 54 57 45 45 4E 20 30 20 41 4E 44 20 34 39 20 |ETWEEN 0 AND 49 |
00000570: 41 4E 44 22 00 A1 0D AA 00 99 22 54 48 45 4E 20 |AND"......"THEN |
00000580: 45 4E 54 45 52 20 54 48 45 4D 20 49 4E 54 4F 20 |ENTER THEM INTO |
00000590: 4C 49 4E 45 53 20 31 30 20 54 48 52 4F 55 47 48 |LINES 10 THROUGH|
000005A0: 22 00 D2 0D AB 00 99 22 31 35 2E 20 54 48 49 53 |"......"15. THIS|
000005B0: 20 50 52 4F 47 52 41 4D 20 57 41 53 20 4D 41 44 | PROGRAM WAS MAD|
000005C0: 45 20 53 4F 20 54 48 41 54 20 50 45 4F 50 4C 45 |E SO THAT PEOPLE|
000005D0: 22 3B 00 01 0E AC 00 99 22 57 48 4F 20 50 4C 41 |";......"WHO PLA|
000005E0: 59 20 4C 4F 54 54 45 52 49 45 53 20 57 49 4C 4C |Y LOTTERIES WILL|
000005F0: 20 48 4F 50 45 46 55 4C 4C 59 20 4C 45 41 52 4E | HOPEFULLY LEARN|
00000600: 22 00 28 0E AD 00 99 22 57 48 41 54 20 54 48 45 |".(...."WHAT THE|
00000610: 49 52 20 4F 44 44 53 20 4F 46 20 57 49 4E 4E 49 |IR ODDS OF WINNI|
00000620: 4E 47 20 41 52 45 2E 22 00 57 0E AE 00 99 22 49 |NG ARE.".W...."I|
00000630: 46 20 59 4F 55 20 44 4F 4E 27 54 20 50 4C 41 59 |F YOU DON'T PLAY|
00000640: 20 4C 4F 54 54 45 52 49 45 53 2C 20 57 45 4C 4C | LOTTERIES, WELL|
00000650: 2C 20 54 48 45 4E 22 00 82 0E AF 00 99 22 59 4F |, THEN"......"YO|
00000660: 55 20 43 41 4E 20 4C 41 55 47 48 20 41 54 20 54 |U CAN LAUGH AT T|
00000670: 48 45 20 50 45 4F 50 4C 45 20 57 48 4F 20 44 4F |HE PEOPLE WHO DO|
00000680: 21 22 00 A7 0E B0 00 99 3A 99 22 20 20 20 20 20 |!"......:." |
00000690: 20 20 20 20 20 20 20 20 12 50 52 45 53 53 20 41 | .PRESS A|
000006A0: 4E 59 20 4B 45 59 22 00 BE 0E B1 00 A1 20 41 24 |NY KEY"...... A$|
000006B0: 3A 8B 20 41 24 B2 22 22 20 A7 20 31 37 37 00 F0 |:. A$."" . 177..|
000006C0: 0E B2 00 99 3A 99 22 45 4E 54 45 52 20 59 4F 55 |....:."ENTER YOU|
000006D0: 52 20 56 41 4C 55 45 53 20 41 4E 44 20 54 48 45 |R VALUES AND THE|
000006E0: 4E 20 54 59 50 45 20 27 52 55 4E 20 35 27 2E 22 |N TYPE 'RUN 5'."|
000006F0: 00 FC 0E B3 00 9B 20 31 30 AB 31 35 00 00 00 |...... 10.15... |
....... 160....."....8..."...WRITTEN BY
ROBERT K. SCHMID.Z..."...DECEMBER 4, 198
3 FOR TPUG.C..."......... 53280,0:. 5328
1,0:."."...........TI$."000000"...... 10
0.I.... *** ENTER YOUR NUMBERS HERE **
*.R...U.64.....V.64.....W.64.....X.64...
..Y.64.....Z.64.&.... *****************
**************.7...M..(49..(1)).H...N..(
49..(1)).Y...O..(49..(1)).J...P..(49..(1
)).{...Q..(49..(1)).....R..(49..(1))....
.. U.M . V.N . W.O . X.P . Y.Q . Z.R . 5
0.C...C.C.1.M. .. 110.S.2.....D..".":."
LOTTERY SIMULATION"...E.." .......
...........":..<.F..".H.OW MUCH MONEY HA
VE I SPENT?".D.G..".C.OMPUTER HAS BEEN R
UNNING FOR?"...H..".Y.EARS I HAVE TRIED
TO WIN?"...I..".G.IVE UP"...N.. A$...S..
A$."H" . 130.H.T.. A$."C" . 140...U.. A
$."Y" . 150...V.. A$."G" . 50...X.. 20..
.Y.. A.1 . 2000:. A...Z.. 100.,....:.:.
C;"DOLLARS!".A.... A.1 . 2000:. A.K....
100......:.:. H(TI$,2);" HOURS AND ";J(T
I$,3,2);" MINUTES"...... A.1 . 2000:. A.
..... 100......:....... C.52;"YEARS!".R.
... A.1 . 2000:. A...... 100... ..".
.6/49 LOTTERY SIMULATION".-....:..6)
"WRITTEN BY ROBERT K. SCHMID".7....:.:..
C...."THIS PROGRAM WILL ALLOW YOU TO ENT
ER"......"YOUR 'LUCKY' NUMBERS INTO THE
COMPUTER."......"THE COMPUTER WILL THEN
CHOOSE RANDOM"......"NUMBERS AND COMPARE
IT TO YOUR TICKET"......"TO SEE IF YOU'
VE WON THE 'JACKPOT' OF".G...."ONE MILLI
ON DOLLARS. CHOOSE SIX NUMBERS".T...."WH
OSE VALUES ARE BETWEEN 0 AND 49 AND"....
.."THEN ENTER THEM INTO LINES 10 THROUGH
".R...."15. THIS PROGRAM WAS MADE SO THA
T PEOPLE";......"WHO PLAY LOTTERIES WILL
HOPEFULLY LEARN".(...."WHAT THEIR ODDS
OF WINNING ARE.".W...."IF YOU DON'T PLAY
LOTTERIES, WELL, THEN"......"YOU CAN LA
UGH AT THE PEOPLE WHO DO!"......:."
.PRESS ANY KEY"...... A$:. A$.""
. 177......:."ENTER YOUR VALUES AND THE
N TYPE 'RUN 5'."...... 10.15...
> CLICK IMAGE PREVIEW FOR FULL MODAL