KENTUCKY DERBY
FILE INFORMATION
FILENAME(S): KENTUCKY DERBY
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 01:08:44
APPEARS ON: 1 disk(s)
FILE HASH
dad3f2cd366d58abc9989532b448801ec52e54629703912a9def7f62aaf9bcaa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | KENTUCKY DERBY | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1A 04 01 00 8F 20 2A 2A 2A 20 4B 45 4E 54 |....... *** KENT| 00000010: 55 43 4B 59 20 44 45 52 42 59 00 37 04 02 00 8F |UCKY DERBY.7....| 00000020: 20 20 20 20 20 4A 41 4D 45 53 20 54 48 4F 4D 41 | JAMES THOMA| 00000030: 53 20 42 41 4B 45 52 00 3D 04 03 00 8F 00 56 04 |S BAKER.=.....V.| 00000040: 04 00 8F 20 2A 2A 2A 20 50 45 54 20 55 53 45 52 |... *** PET USER| 00000050: 20 47 52 4F 55 50 00 72 04 05 00 8F 20 20 20 20 | GROUP.r.... | 00000060: 20 53 4F 46 54 57 41 52 45 20 45 58 43 48 41 4E | SOFTWARE EXCHAN| 00000070: 47 45 00 87 04 06 00 8F 20 20 20 20 20 50 4F 20 |GE...... PO | 00000080: 42 4F 58 20 33 37 31 00 AB 04 07 00 8F 20 20 20 |BOX 371...... | 00000090: 20 20 4D 4F 4E 54 47 4F 4D 45 52 59 56 49 4C 4C | MONTGOMERYVILL| 000000A0: 45 2C 20 50 41 20 31 38 39 33 36 00 B1 04 08 00 |E, PA 18936.....| 000000B0: 8F 00 C7 04 1E 00 8F 20 50 52 4F 47 52 41 4D 20 |....... PROGRAM | 000000C0: 4F 55 54 4C 49 4E 45 00 DD 04 20 00 8F 20 2D 2D |OUTLINE... .. --| 000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 FE 04 |-------------...| 000000E0: 22 00 8F 20 53 55 42 4A 45 43 54 20 20 20 20 20 |".. SUBJECT | 000000F0: 20 20 20 20 20 20 20 20 20 4C 49 4E 45 53 00 1F | LINES..| 00000100: 05 24 00 8F 20 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 |.$.. ------- | 00000110: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 00 | -----.| 00000120: 40 05 26 00 8F 20 52 45 4D 41 52 4B 53 2E 2E 2E |@.&.. REMARKS...| 00000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 33 30 2D 39 35 |...........30-95| 00000140: 00 63 05 28 00 8F 20 52 55 4C 45 53 2E 2E 2E 2E |.c.(.. RULES....| 00000150: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 31 30 30 2D |............100-| 00000160: 32 30 30 00 86 05 2A 00 8F 20 49 4E 49 54 49 41 |200...*.. INITIA| 00000170: 4C 49 5A 41 54 49 4F 4E 2E 2E 2E 2E 2E 2E 2E 32 |LIZATION.......2| 00000180: 30 30 2D 32 35 30 00 A9 05 2C 00 8F 20 53 54 41 |00-250...,.. STA| 00000190: 4E 44 49 4E 47 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |NDINGS..........| 000001A0: 2E 2E 33 30 30 2D 33 35 30 00 CC 05 2E 00 8F 20 |..300-350...... | 000001B0: 42 45 54 54 49 4E 47 2E 2E 2E 2E 2E 2E 2E 2E 2E |BETTING.........| 000001C0: 2E 2E 2E 2E 2E 34 39 30 2D 35 39 30 00 EF 05 30 |.....490-590...0| 000001D0: 00 8F 20 54 52 41 43 4B 20 53 45 54 2D 55 50 2E |.. TRACK SET-UP.| 000001E0: 2E 2E 2E 2E 2E 2E 2E 2E 36 30 30 2D 37 30 30 00 |........600-700.| 000001F0: 12 06 32 00 8F 20 52 4E 44 20 4E 55 4D 42 45 52 |..2.. RND NUMBER| 00000200: 20 47 45 4E 45 52 41 54 4F 52 2E 37 31 30 2D 38 | GENERATOR.710-8| 00000210: 30 30 00 31 06 34 00 8F 20 57 49 4E 4E 45 52 20 |00.1.4.. WINNER | 00000220: 44 45 43 4C 41 52 41 54 49 4F 4E 2E 2E 2E 38 31 |DECLARATION...81| 00000230: 30 00 54 06 36 00 8F 20 50 41 59 4F 46 46 2E 2E |0.T.6.. PAYOFF..| 00000240: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 39 30 30 |.............900| 00000250: 2D 39 32 30 00 79 06 38 00 8F 20 4D 4F 56 45 20 |-920.y.8.. MOVE | 00000260: 48 4F 52 53 45 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |HORSES..........| 00000270: 31 30 30 30 2D 31 30 36 30 00 C1 06 3A 00 8F 20 |1000-1060...:.. | 00000280: 46 49 4E 41 4C 20 53 54 41 4E 44 49 4E 47 53 2E |FINAL STANDINGS.| 00000290: 2E 2E 2E 2E 2E 31 35 30 30 2D 31 35 37 30 20 20 |.....1500-1570 | 000002A0: 20 36 30 20 52 45 4D 20 22 53 54 41 4C 4C 22 20 | 60 REM "STALL" | 000002B0: 53 55 42 52 4F 55 54 49 4E 45 2E 2E 2E 32 30 30 |SUBROUTINE...200| 000002C0: 30 00 E3 06 64 00 99 20 22 93 22 3B A3 31 30 29 |0...d.. ".";.10)| 000002D0: 3B 22 12 4B 45 4E 54 55 43 4B 45 59 20 44 45 52 |;".KENTUCKEY DER| 000002E0: 42 59 22 00 0B 07 69 00 85 20 22 11 11 11 11 44 |BY"...i.. "....D| 000002F0: 4F 20 59 4F 55 20 4E 45 45 44 20 49 4E 53 54 52 |O YOU NEED INSTR| 00000300: 55 43 54 49 4F 4E 53 22 3B 58 24 00 21 07 6E 00 |UCTIONS";X$.!.n.| 00000310: 8B 20 58 24 B3 B1 22 59 45 53 22 20 A7 20 32 30 |. X$.."YES" . 20| 00000320: 30 00 4A 07 70 00 99 22 93 1D 1D 1D 1D 1D 12 52 |0.J.p..".......R| 00000330: 55 4C 45 53 20 4F 46 20 4B 45 4E 54 55 43 4B 45 |ULES OF KENTUCKE| 00000340: 59 20 44 45 52 42 59 22 3A 99 00 6F 07 73 00 99 |Y DERBY":..o.s..| 00000350: 22 31 2E 20 54 48 49 53 20 47 41 4D 45 20 49 4E |"1. THIS GAME IN| 00000360: 56 4F 4C 56 45 53 20 42 45 54 54 49 4E 47 22 00 |VOLVES BETTING".| 00000370: 97 07 78 00 99 22 4F 4E 20 46 49 56 45 20 45 56 |..x.."ON FIVE EV| 00000380: 45 4E 4C 59 20 4D 41 54 43 48 45 44 20 48 4F 52 |ENLY MATCHED HOR| 00000390: 53 45 53 2E 22 3A 99 00 C2 07 7A 00 99 22 32 2E |SES.":....z.."2.| 000003A0: 20 41 4E 59 20 4E 55 4D 42 45 52 20 4F 46 20 50 | ANY NUMBER OF P| 000003B0: 4C 41 59 45 52 53 20 41 4C 4C 4F 57 45 44 2E 22 |LAYERS ALLOWED."| 000003C0: 3A 99 00 EF 07 7D 00 99 22 33 2E 20 45 41 43 48 |:....}.."3. EACH| 000003D0: 20 47 41 4D 45 20 43 4F 4E 53 49 53 54 53 20 4F | GAME CONSISTS O| 000003E0: 46 20 54 45 4E 20 52 41 43 45 53 2E 22 3A 99 00 |F TEN RACES.":..| 000003F0: 18 08 82 00 99 22 34 2E 20 45 41 43 48 20 50 4C |....."4. EACH PL| 00000400: 41 59 45 52 20 53 54 41 52 54 53 20 57 49 54 48 |AYER STARTS WITH| 00000410: 20 24 31 30 30 30 2E 22 00 58 08 87 00 99 22 49 | $1000.".X...."I| 00000420: 46 20 59 4F 55 20 4C 4F 53 45 20 49 54 2C 20 59 |F YOU LOSE IT, Y| 00000430: 4F 55 20 41 52 45 20 42 41 52 52 45 44 22 3A 99 |OU ARE BARRED":.| 00000440: 22 46 52 4F 4D 20 46 55 54 55 52 45 20 42 45 54 |"FROM FUTURE BET| 00000450: 54 49 4E 47 2E 22 3A 99 00 97 08 8C 00 99 22 35 |TING.":......."5| 00000460: 2E 20 49 46 20 41 4C 4C 20 50 4C 41 59 45 52 53 |. IF ALL PLAYERS| 00000470: 20 41 52 45 20 49 4E 20 54 48 45 20 48 4F 4C 45 | ARE IN THE HOLE| 00000480: 2C 22 3A 99 22 54 48 45 20 47 41 4D 45 20 49 53 |,":."THE GAME IS| 00000490: 20 4F 56 45 52 2E 22 00 C9 08 B4 00 85 20 22 11 | OVER."...... ".| 000004A0: 11 11 11 11 57 48 45 4E 20 52 45 41 44 59 2C 20 |....WHEN READY, | 000004B0: 50 52 45 53 53 20 52 45 54 55 52 4E 1D 1D 1D 12 |PRESS RETURN....| 000004C0: 20 92 9D 9D 9D 22 3B 41 24 00 EB 08 C8 00 85 20 | ....";A$...... | 000004D0: 22 93 48 4F 57 20 4D 41 4E 59 20 50 4C 41 59 45 |".HOW MANY PLAYE| 000004E0: 52 53 22 3B 42 45 54 54 45 52 53 00 03 09 D2 00 |RS";BETTERS.....| 000004F0: 81 20 49 4E 44 45 58 B2 31 20 A4 20 42 45 54 54 |. INDEX.1 . BETT| 00000500: 45 52 53 00 44 09 DC 00 99 20 22 93 50 4C 41 59 |ERS.D.... ".PLAY| 00000510: 45 52 20 4E 55 4D 42 45 52 22 3B 49 4E 44 45 58 |ER NUMBER";INDEX| 00000520: 3A 99 22 57 48 41 54 27 53 20 59 4F 55 52 20 4E |:."WHAT'S YOUR N| 00000530: 41 4D 45 22 3B 3A 85 20 4E 41 4D 45 24 28 49 4E |AME";:. NAME$(IN| 00000540: 44 45 58 29 00 59 09 F0 00 43 41 53 48 28 49 4E |DEX).Y...CASH(IN| 00000550: 44 45 58 29 B2 31 30 30 30 00 65 09 FA 00 82 20 |DEX).1000.e.... | 00000560: 49 4E 44 45 58 00 77 09 2C 01 81 20 52 41 43 45 |INDEX.w.,.. RACE| 00000570: B2 31 20 A4 20 31 30 00 9D 09 36 01 99 20 22 93 |.1 . 10...6.. ".| 00000580: 53 54 41 4E 44 49 4E 47 53 20 50 52 49 4F 52 20 |STANDINGS PRIOR | 00000590: 54 4F 20 52 41 43 45 22 3B 52 41 43 45 00 A5 09 |TO RACE";RACE...| 000005A0: 3B 01 4C B2 30 00 BD 09 40 01 81 20 49 4E 44 45 |;.L.0...@.. INDE| 000005B0: 58 B2 31 20 A4 20 42 45 54 54 45 52 53 00 F8 09 |X.1 . BETTERS...| 000005C0: 4A 01 99 20 22 11 11 22 3B 4E 41 4D 45 24 28 49 |J.. "..";NAME$(I| 000005D0: 4E 44 45 58 29 3B 22 2C 20 59 4F 55 20 48 41 56 |NDEX);", YOU HAV| 000005E0: 45 20 24 22 3B 43 41 53 48 28 49 4E 44 45 58 29 |E $";CASH(INDEX)| 000005F0: 3B 22 4C 45 46 54 2E 22 00 39 0A 4F 01 8B 20 43 |;"LEFT.".9.O.. C| 00000600: 41 53 48 28 49 4E 44 45 58 29 B2 30 A7 20 99 22 |ASH(INDEX).0. ."| 00000610: 59 4F 55 20 4C 4F 53 54 20 49 54 20 41 4C 4C 20 |YOU LOST IT ALL | 00000620: 2D 20 59 4F 55 27 52 45 20 46 49 4E 49 53 48 45 |- YOU'RE FINISHE| 00000630: 44 21 22 3A 4C B2 4C AA 31 00 75 0A 54 01 8B 20 |D!":L.L.1.u.T.. | 00000640: 4C B2 42 45 54 54 45 52 53 20 A7 20 99 22 11 11 |L.BETTERS . ."..| 00000650: 12 59 4F 55 27 52 45 20 41 4C 4C 20 4F 55 54 21 |.YOU'RE ALL OUT!| 00000660: 22 3A 8D 20 32 30 30 30 3A 8D 20 32 30 30 30 3A |":. 2000:. 2000:| 00000670: 89 31 35 30 30 00 81 0A 5E 01 82 20 49 4E 44 45 |.1500...^.. INDE| 00000680: 58 00 93 0A 68 01 8D 20 32 30 30 30 3A 8D 20 32 |X...h.. 2000:. 2| 00000690: 30 30 30 00 B9 0A EA 01 81 20 49 4E 44 45 58 B2 |000...... INDEX.| 000006A0: 31 20 A4 20 42 45 54 54 45 52 53 3A 81 20 43 4F |1 . BETTERS:. CO| 000006B0: 55 4E 54 B2 31 20 A4 20 35 00 E3 0A F4 01 41 4D |UNT.1 . 5.....AM| 000006C0: 4F 55 4E 54 28 49 4E 44 45 58 2C 43 4F 55 4E 54 |OUNT(INDEX,COUNT| 000006D0: 29 B2 30 3A 82 20 43 4F 55 4E 54 3A 82 20 49 4E |).0:. COUNT:. IN| 000006E0: 44 45 58 00 FD 0A FE 01 81 20 49 4E 44 45 58 B2 |DEX...... INDEX.| 000006F0: 31 20 A4 20 42 45 54 54 45 52 53 3A 99 00 1A 0B |1 . BETTERS:....| 00000700: 03 02 8B 20 43 41 53 48 28 49 4E 44 45 58 29 B3 |... CASH(INDEX).| 00000710: B2 30 20 A7 20 89 20 35 39 30 00 62 0B 08 02 99 |.0 . . 590.b....| 00000720: 20 22 93 22 3B 4E 41 4D 45 24 28 49 4E 44 45 58 | ".";NAME$(INDEX| 00000730: 29 3B 22 2C 20 57 48 49 43 48 20 48 4F 52 53 45 |);", WHICH HORSE| 00000740: 22 3A 99 22 11 11 44 4F 20 59 4F 55 20 57 49 53 |":."..DO YOU WIS| 00000750: 48 20 54 4F 20 42 45 54 20 4F 4E 28 31 2D 35 29 |H TO BET ON(1-5)| 00000760: 3F 22 00 93 0B 12 02 99 20 22 11 11 28 49 4E 50 |?"...... "..(INP| 00000770: 55 54 20 30 20 49 46 20 4E 4F 20 42 45 54 20 49 |UT 0 IF NO BET I| 00000780: 53 20 44 45 53 49 52 45 44 29 22 3B 3A 85 20 48 |S DESIRED)";:. H| 00000790: 52 53 45 00 C2 0B 1C 02 8B 20 48 52 53 45 B3 30 |RSE...... HRSE.0| 000007A0: 20 B0 20 48 52 53 45 B1 35 20 B0 20 20 48 52 53 | . HRSE.5 . HRS| 000007B0: 45 B3 B1 B5 28 48 52 53 45 29 20 A7 20 89 20 35 |E...(HRSE) . . 5| 000007C0: 32 30 00 D5 0B 26 02 8B 20 48 52 53 45 B2 30 20 |20...&.. HRSE.0 | 000007D0: A7 20 35 39 30 00 06 0C 30 02 85 20 22 11 11 48 |. 590...0.. "..H| 000007E0: 4F 57 20 4D 55 43 48 20 44 4F 20 59 4F 55 20 42 |OW MUCH DO YOU B| 000007F0: 45 54 22 3B 41 4D 4F 55 4E 54 28 49 4E 44 45 58 |ET";AMOUNT(INDEX| 00000800: 2C 48 52 53 45 29 00 49 0C 3A 02 8B 20 41 4D 4F |,HRSE).I.:.. AMO| 00000810: 55 4E 54 28 49 4E 44 45 58 2C 48 52 53 45 29 B3 |UNT(INDEX,HRSE).| 00000820: 30 20 A7 20 99 20 22 11 11 41 20 4E 45 47 41 54 |0 . . "..A NEGAT| 00000830: 49 56 45 20 42 45 54 3F 20 4E 4F 54 20 48 45 52 |IVE BET? NOT HER| 00000840: 45 21 22 3A 89 20 35 36 30 00 76 0C 3F 02 8B 20 |E!":. 560.v.?.. | 00000850: 41 4D 4F 55 4E 54 28 49 4E 44 45 58 2C 48 52 53 |AMOUNT(INDEX,HRS| 00000860: 45 29 B3 B2 43 41 53 48 28 49 4E 44 45 58 29 A7 |E)..CASH(INDEX).| 00000870: 20 89 20 35 38 30 00 BA 0C 41 02 99 20 22 11 11 | . 580...A.. "..| 00000880: 59 4F 55 27 52 45 20 4F 56 45 52 2D 42 45 54 54 |YOU'RE OVER-BETT| 00000890: 49 4E 47 21 22 3A 99 22 59 4F 55 20 4F 4E 4C 59 |ING!":."YOU ONLY| 000008A0: 20 48 41 56 45 20 24 22 3B 43 41 53 48 28 49 4E | HAVE $";CASH(IN| 000008B0: 44 45 58 29 3A 89 20 35 36 30 00 E9 0C 44 02 43 |DEX):. 560...D.C| 000008C0: 41 53 48 28 49 4E 44 45 58 29 B2 43 41 53 48 28 |ASH(INDEX).CASH(| 000008D0: 49 4E 44 45 58 29 AB 41 4D 4F 55 4E 54 28 49 4E |INDEX).AMOUNT(IN| 000008E0: 44 45 58 2C 48 52 53 45 29 00 F5 0C 4E 02 82 20 |DEX,HRSE)...N.. | 000008F0: 49 4E 44 45 58 00 1D 0D 58 02 99 20 22 93 22 3A |INDEX...X.. ".":| 00000900: 81 20 49 4E 44 45 58 B2 31 20 A4 20 34 30 3A 99 |. INDEX.1 . 40:.| 00000910: 20 22 2D 22 3B 3A 82 20 49 4E 44 45 58 00 45 0D | "-";:. INDEX.E.| 00000920: 62 02 99 20 22 13 22 3A 81 20 49 4E 44 45 58 B2 |b.. ".":. INDEX.| 00000930: 31 20 A4 20 32 33 3A 99 20 22 11 22 3B 3A 82 20 |1 . 23:. ".";:. | 00000940: 49 4E 44 45 58 00 67 0D 6C 02 81 20 49 4E 44 45 |INDEX.g.l.. INDE| 00000950: 58 B2 31 20 A4 20 34 30 3A 99 20 22 2D 22 3B 3A |X.1 . 40:. "-";:| 00000960: 82 20 49 4E 44 45 58 00 71 0D 76 02 99 20 22 13 |. INDEX.q.v.. ".| 00000970: 22 00 97 0D 80 02 81 20 49 4E 44 45 58 B2 31 20 |"...... INDEX.1 | 00000980: A4 20 37 3A 99 20 A3 33 37 29 3B 22 12 BF 22 3A |. 7:. .37);"..":| 00000990: 82 20 49 4E 44 45 58 00 BA 0D 8A 02 99 20 A3 33 |. INDEX...... .3| 000009A0: 37 29 3B 22 12 46 11 9D 49 11 9D 4E 11 9D 49 11 |7);".F..I..N..I.| 000009B0: 9D 53 11 9D 48 11 9D 22 3B 3A 00 E0 0D 94 02 81 |.S..H..";:......| 000009C0: 20 49 4E 44 45 58 B2 31 20 A4 20 37 3A 99 20 A3 | INDEX.1 . 7:. .| 000009D0: 33 37 29 3B 22 12 BF 22 3A 82 20 49 4E 44 45 58 |37);"..":. INDEX| 000009E0: 00 0F 0E 9E 02 46 49 56 45 B2 30 3A 46 4F 55 52 |.....FIVE.0:FOUR| 000009F0: B2 30 3A 54 48 52 45 45 B2 30 3A 54 57 4F B2 30 |.0:THREE.0:TWO.0| 00000A00: 3A 55 4E 4F B2 30 3A 41 43 52 4F 53 53 B2 30 00 |:UNO.0:ACROSS.0.| 00000A10: 22 0E A8 02 81 20 4E 55 4D 42 45 52 B2 31 20 A4 |".... NUMBER.1 .| 00000A20: 20 35 00 2D 0E B2 02 8D 20 31 30 30 30 00 3A 0E | 5.-.... 1000.:.| 00000A30: BC 02 82 20 4E 55 4D 42 45 52 00 4E 0E C6 02 81 |... NUMBER.N....| 00000A40: 20 49 4E 44 45 58 B2 31 20 A4 20 31 35 30 00 65 | INDEX.1 . 150.e| 00000A50: 0E D0 02 4E 55 4D 42 45 52 B2 B5 28 BB 28 31 29 |...NUMBER..(.(1)| 00000A60: AC 35 29 AA 31 00 88 0E DA 02 91 20 4E 55 4D 42 |.5).1...... NUMB| 00000A70: 45 52 20 89 20 37 34 30 2C 37 35 30 2C 37 36 30 |ER . 740,750,760| 00000A80: 2C 37 37 30 2C 37 38 30 00 A7 0E E4 02 55 4E 4F |,770,780.....UNO| 00000A90: B2 55 4E 4F AA 31 3A 41 43 52 4F 53 53 B2 55 4E |.UNO.1:ACROSS.UN| 00000AA0: 4F 3A 89 20 37 39 30 00 C6 0E EE 02 54 57 4F B2 |O:. 790.....TWO.| 00000AB0: 54 57 4F AA 31 3A 41 43 52 4F 53 53 B2 54 57 4F |TWO.1:ACROSS.TWO| 00000AC0: 3A 89 20 37 39 30 00 EB 0E F8 02 54 48 52 45 45 |:. 790.....THREE| 00000AD0: B2 54 48 52 45 45 AA 31 3A 41 43 52 4F 53 53 B2 |.THREE.1:ACROSS.| 00000AE0: 54 48 52 45 45 3A 89 20 37 39 30 00 0D 0F 02 03 |THREE:. 790.....| 00000AF0: 46 4F 55 52 B2 46 4F 55 52 AA 31 3A 41 43 52 4F |FOUR.FOUR.1:ACRO| 00000B00: 53 53 B2 46 4F 55 52 3A 89 20 37 39 30 00 29 0F |SS.FOUR:. 790.).| 00000B10: 0C 03 46 49 56 45 B2 46 49 56 45 AA 31 3A 41 43 |..FIVE.FIVE.1:AC| 00000B20: 52 4F 53 53 B2 46 49 56 45 00 34 0F 16 03 8D 20 |ROSS.FIVE.4.... | 00000B30: 31 30 30 30 00 4B 0F 20 03 8B 20 41 43 52 4F 53 |1000.K. .. ACROS| 00000B40: 53 B3 B1 33 30 20 A7 20 38 34 30 00 73 0F 2A 03 |S..30 . 840.s.*.| 00000B50: 99 20 A3 39 29 3B 22 91 91 54 48 45 20 57 49 4E |. .9);"..THE WIN| 00000B60: 4E 45 52 2C 20 4E 55 4D 42 45 52 22 3B 4E 55 4D |NER, NUMBER";NUM| 00000B70: 42 45 52 00 8B 0F 34 03 8D 20 32 30 30 30 3A 8D |BER...4.. 2000:.| 00000B80: 20 32 30 30 30 3A 89 20 39 30 30 00 97 0F 48 03 | 2000:. 900...H.| 00000B90: 82 20 49 4E 44 45 58 00 AF 0F 84 03 81 20 49 4E |. INDEX...... IN| 00000BA0: 44 45 58 B2 31 20 A4 20 42 45 54 54 45 52 53 00 |DEX.1 . BETTERS.| 00000BB0: E2 0F 8E 03 43 41 53 48 28 49 4E 44 45 58 29 B2 |....CASH(INDEX).| 00000BC0: 43 41 53 48 28 49 4E 44 45 58 29 AA 36 AC 41 4D |CASH(INDEX).6.AM| 00000BD0: 4F 55 4E 54 28 49 4E 44 45 58 2C 4E 55 4D 42 45 |OUNT(INDEX,NUMBE| 00000BE0: 52 29 00 EE 0F 98 03 82 20 49 4E 44 45 58 00 00 |R)...... INDEX..| 00000BF0: 10 A2 03 82 20 52 41 43 45 3A 89 20 31 35 30 30 |.... RACE:. 1500| 00000C00: 00 1B 10 E8 03 44 4F 57 4E B2 4E 55 4D 42 45 52 |.....DOWN.NUMBER| 00000C10: AC 34 AB 33 3A 99 20 22 13 22 3B 00 45 10 F2 03 |.4.3:. ".";.E...| 00000C20: 81 20 4C 49 4E 45 46 45 45 44 B2 31 20 A4 20 44 |. LINEFEED.1 . D| 00000C30: 4F 57 4E 3A 99 20 22 11 22 3B 3A 82 20 4C 49 4E |OWN:. ".";:. LIN| 00000C40: 45 46 45 45 44 00 5C 10 FC 03 99 A3 41 43 52 4F |EFEED.\.....ACRO| 00000C50: 53 53 29 3B 22 20 20 20 20 20 D1 22 00 77 10 06 |SS);" .".w..| 00000C60: 04 99 A3 41 43 52 4F 53 53 29 3B 22 20 20 20 12 |...ACROSS);" .| 00000C70: A9 92 A9 12 A9 A2 22 00 9A 10 10 04 99 A3 41 43 |......".......AC| 00000C80: 52 4F 53 53 29 3B 22 20 C4 12 22 3B 4E 55 4D 42 |ROSS);" ..";NUMB| 00000C90: 45 52 3B 22 9D 12 20 92 A9 22 00 B1 10 1A 04 99 |ER;".. .."......| 00000CA0: A3 41 43 52 4F 53 53 29 3B 22 20 CE 20 20 20 CD |.ACROSS);" . .| 00000CB0: 22 00 B7 10 24 04 8E 00 D0 10 DC 05 99 20 22 93 |"...$........ ".| 00000CC0: 46 49 4E 41 4C 20 53 54 41 4E 44 49 4E 47 53 22 |FINAL STANDINGS"| 00000CD0: 00 E7 10 E1 05 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |......".........| 00000CE0: A3 A3 A3 A3 A3 A3 22 00 FF 10 E6 05 81 20 49 4E |......"...... IN| 00000CF0: 44 45 58 B2 31 20 A4 20 42 45 54 54 45 52 53 00 |DEX.1 . BETTERS.| 00000D00: 3A 11 FA 05 99 20 22 11 11 11 22 3B 4E 41 4D 45 |:.... "...";NAME| 00000D10: 24 28 49 4E 44 45 58 29 3B 22 20 46 49 4E 49 53 |$(INDEX);" FINIS| 00000D20: 48 45 44 20 57 49 54 48 24 22 3B 43 41 53 48 28 |HED WITH$";CASH(| 00000D30: 49 4E 44 45 58 29 3B 22 2E 22 00 45 11 04 06 8D |INDEX);".".E....| 00000D40: 20 32 30 30 30 00 51 11 0E 06 82 20 49 4E 44 45 | 2000.Q.... INDE| 00000D50: 58 00 81 11 18 06 85 20 22 11 11 11 12 41 4E 4F |X...... "....ANO| 00000D60: 54 48 45 52 20 47 41 4D 45 92 22 3B 41 24 3A 8B |THER GAME.";A$:.| 00000D70: 20 41 24 B2 22 59 45 53 22 20 A7 20 89 20 32 30 | A$."YES" . . 20| 00000D80: 30 00 AE 11 22 06 99 22 11 11 54 48 45 4E 20 49 |0...".."..THEN I| 00000D90: 20 44 4F 4E 27 54 20 57 41 4E 54 20 54 4F 20 50 | DON'T WANT TO P| 00000DA0: 4C 41 59 20 45 49 54 48 45 52 21 22 3A 80 00 C9 |LAY EITHER!":...| 00000DB0: 11 D0 07 81 20 51 52 53 B2 31 20 A4 20 31 30 30 |.... QRS.1 . 100| 00000DC0: 30 3A 82 20 51 52 53 3A 8E 00 00 00 0A |0:. QRS:..... |
....... *** KENTUCKY DERBY.7.... JAM
ES THOMAS BAKER.=.....V.... *** PET USER
GROUP.R.... SOFTWARE EXCHANGE......
PO BOX 371...... MONTGOMERYVILL
E, PA 18936.......G.... PROGRAM OUTLINE.
.. .. ---------------...".. SUBJECT
LINES...$.. -------
-----.@.&.. REMARKS..............30-95
.C.(.. RULES................100-200...*.
. INITIALIZATION.......200-250...,.. STA
NDINGS............300-350.L.... BETTING.
.............490-590...0.. TRACK SET-UP.
........600-700...2.. RND NUMBER GENERAT
OR.710-800.1.4.. WINNER DECLARATION...81
0.T.6.. PAYOFF...............900-920.Y.8
.. MOVE HORSES..........1000-1060.A.:..
FINAL STANDINGS......1500-1570 60 REM
"STALL" SUBROUTINE...2000...D.. ".";.10)
;".KENTUCKEY DERBY"...I.. "....DO YOU NE
ED INSTRUCTIONS";X$.!.N.. X$.."YES" . 20
0.J.P..".......RULES OF KENTUCKEY DERBY"
:..O.S.."1. THIS GAME INVOLVES BETTING".
..X.."ON FIVE EVENLY MATCHED HORSES.":..
B.Z.."2. ANY NUMBER OF PLAYERS ALLOWED."
:....}.."3. EACH GAME CONSISTS OF TEN RA
CES.":......."4. EACH PLAYER STARTS WITH
$1000.".X...."IF YOU LOSE IT, YOU ARE B
ARRED":."FROM FUTURE BETTING.":......."5
. IF ALL PLAYERS ARE IN THE HOLE,":."THE
GAME IS OVER.".I.... ".....WHEN READY,
PRESS RETURN.... ....";A$...H.. ".HOW MA
NY PLAYERS";BETTERS...R.. INDEX.1 . BETT
ERS.D.... ".PLAYER NUMBER";INDEX:."WHAT'
S YOUR NAME";:. NAME$(INDEX).Y...CASH(IN
DEX).1000.E.... INDEX.W.,.. RACE.1 . 10.
..6.. ".STANDINGS PRIOR TO RACE";RACE...
;.L.0...@.. INDEX.1 . BETTERS...J.. ".."
;NAME$(INDEX);", YOU HAVE $";CASH(INDEX)
;"LEFT.".9.O.. CASH(INDEX).0. ."YOU LOST
IT ALL - YOU'RE FINISHED!":L.L.1.U.T..
L.BETTERS . ."...YOU'RE ALL OUT!":. 2000
:. 2000:.1500...^.. INDEX...H.. 2000:. 2
000...... INDEX.1 . BETTERS:. COUNT.1 .
5.....AMOUNT(INDEX,COUNT).0:. COUNT:. IN
DEX...... INDEX.1 . BETTERS:....... CASH
(INDEX)..0 . . 590.B.... ".";NAME$(INDEX
);", WHICH HORSE":."..DO YOU WISH TO BET
ON(1-5)?"...... "..(INPUT 0 IF NO BET I
S DESIRED)";:. HRSE.B.... HRSE.0 . HRSE.
5 . HRSE...(HRSE) . . 520.U.&.. HRSE.0
. 590...0.. "..HOW MUCH DO YOU BET";AMOU
NT(INDEX,HRSE).I.:.. AMOUNT(INDEX,HRSE).
0 . . "..A NEGATIVE BET? NOT HERE!":. 56
0.V.?.. AMOUNT(INDEX,HRSE)..CASH(INDEX).
. 580...A.. "..YOU'RE OVER-BETTING!":."
YOU ONLY HAVE $";CASH(INDEX):. 560...D.C
ASH(INDEX).CASH(INDEX).AMOUNT(INDEX,HRSE
)...N.. INDEX...X.. ".":. INDEX.1 . 40:.
"-";:. INDEX.E.B.. ".":. INDEX.1 . 23:.
".";:. INDEX.G.L.. INDEX.1 . 40:. "-";:
. INDEX.Q.V.. "."...... INDEX.1 . 7:. .3
7);"..":. INDEX...... .37);".F..I..N..I.
.S..H..";:...... INDEX.1 . 7:. .37);".."
:. INDEX.....FIVE.0:FOUR.0:THREE.0:TWO.0
:UNO.0:ACROSS.0.".... NUMBER.1 . 5.-....
1000.:.... NUMBER.N.F.. INDEX.1 . 150.E
.P.NUMBER..(.(1).5).1...Z.. NUMBER . 740
,750,760,770,780.....UNO.UNO.1:ACROSS.UN
O:. 790.F...TWO.TWO.1:ACROSS.TWO:. 790..
...THREE.THREE.1:ACROSS.THREE:. 790.....
FOUR.FOUR.1:ACROSS.FOUR:. 790.)...FIVE.F
IVE.1:ACROSS.FIVE.4.... 1000.K. .. ACROS
S..30 . 840.S.*.. .9);"..THE WINNER, NUM
BER";NUMBER...4.. 2000:. 2000:. 900...H.
. INDEX...... INDEX.1 . BETTERS.....CASH
(INDEX).CASH(INDEX).6.AMOUNT(INDEX,NUMBE
R)...... INDEX...... RACE:. 1500.....DOW
N.NUMBER.4.3:. ".";.E.... LINEFEED.1 . D
OWN:. ".";:. LINEFEED.\.....ACROSS);"
Q".W.....ACROSS);" .......".......AC
ROSS);" D.";NUMBER;".. ..".......ACROSS)
;" N M"...$...P.... ".FINAL STANDINGS"
......"..............."...... INDEX.1 .
BETTERS.:.... "...";NAME$(INDEX);" FINIS
HED WITH$";CASH(INDEX);".".E.... 2000.Q.
... INDEX...... "....ANOTHER GAME.";A$:.
A$."YES" . . 200...".."..THEN I DON'T W
ANT TO PLAY EITHER!":..I.P.. QRS.1 . 100
0:. QRS:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL