21.DERBY

00000000: 01 08 14 08 0A 00 8F 20  50 46 45 52 44 45 52 45  |....... PFERDERE|
00000010: 4E 4E 45 4E 00 37 08 2C  00 8F 20 53 54 41 4E 44  |NNEN.7.,.. STAND|
00000020: 49 4E 47 53 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |INGS............|
00000030: 33 30 30 2D 33 35 30 00  5A 08 30 00 8F 20 54 52  |300-350.Z.0.. TR|
00000040: 41 43 4B 20 53 45 54 2D  55 50 2E 2E 2E 2E 2E 2E  |ACK SET-UP......|
00000050: 2E 2E 2E 36 30 30 2D 37  30 30 00 7D 08 32 00 8F  |...600-700.}.2..|
00000060: 20 52 4E 44 20 4E 55 4D  42 45 52 20 47 45 4E 45  | RND NUMBER GENE|
00000070: 52 41 54 4F 52 2E 37 31  30 2D 38 30 30 00 9C 08  |RATOR.710-800...|
00000080: 34 00 8F 20 57 49 4E 4E  45 52 20 44 45 43 4C 41  |4.. WINNER DECLA|
00000090: 52 41 54 49 4F 4E 2E 2E  2E 38 31 30 00 BF 08 36  |RATION...810...6|
000000A0: 00 8F 20 50 41 59 4F 46  46 2E 2E 2E 2E 2E 2E 2E  |.. PAYOFF.......|
000000B0: 2E 2E 2E 2E 2E 2E 2E 2E  39 30 30 2D 39 32 30 00  |........900-920.|
000000C0: 07 09 3A 00 8F 20 46 49  4E 41 4C 20 53 54 41 4E  |..:.. FINAL STAN|
000000D0: 44 49 4E 47 53 2E 2E 2E  2E 2E 2E 31 35 30 30 2D  |DINGS......1500-|
000000E0: 31 35 37 30 20 20 20 36  30 20 52 45 4D 20 22 53  |1570   60 REM "S|
000000F0: 54 41 4C 4C 22 20 53 55  42 52 4F 55 54 49 4E 45  |TALL" SUBROUTINE|
00000100: 2E 2E 2E 32 30 30 30 00  26 09 64 00 99 20 22 93  |...2000.&.d.. ".|
00000110: 22 3B A3 31 30 29 3B 22  12 50 46 45 52 44 45 52  |";.10);".PFERDER|
00000120: 45 4E 4E 45 4E 22 00 4E  09 69 00 85 20 22 11 11  |ENNEN".N.i.. "..|
00000130: 11 11 41 4E 4C 45 49 54  55 4E 47 20 47 45 57 55  |..ANLEITUNG GEWU|
00000140: 45 4E 53 43 48 54 3F 4A  2F 4E 22 3B 58 24 00 62  |ENSCHT?J/N";X$.b|
00000150: 09 6E 00 8B 20 58 24 B3  B1 22 4A 22 20 A7 20 32  |.n.. X$.."J" . 2|
00000160: 30 30 00 8B 09 70 00 99  22 93 1D 1D 1D 1D 1D 12  |00...p..".......|
00000170: 52 55 4C 45 53 20 4F 46  20 4B 45 4E 54 55 43 4B  |RULES OF KENTUCK|
00000180: 45 59 20 44 45 52 42 59  22 3A 99 00 B0 09 73 00  |EY DERBY":....s.|
00000190: 99 22 31 2E 20 54 48 49  53 20 47 41 4D 45 20 49  |."1. THIS GAME I|
000001A0: 4E 56 4F 4C 56 45 53 20  42 45 54 54 49 4E 47 22  |NVOLVES BETTING"|
000001B0: 00 D8 09 78 00 99 22 4F  4E 20 46 49 56 45 20 45  |...x.."ON FIVE E|
000001C0: 56 45 4E 4C 59 20 4D 41  54 43 48 45 44 20 48 4F  |VENLY MATCHED HO|
000001D0: 52 53 45 53 2E 22 3A 99  00 03 0A 7A 00 99 22 32  |RSES.":....z.."2|
000001E0: 2E 20 41 4E 59 20 4E 55  4D 42 45 52 20 4F 46 20  |. ANY NUMBER OF |
000001F0: 50 4C 41 59 45 52 53 20  41 4C 4C 4F 57 45 44 2E  |PLAYERS ALLOWED.|
00000200: 22 3A 99 00 30 0A 7D 00  99 22 33 2E 20 45 41 43  |":..0.}.."3. EAC|
00000210: 48 20 47 41 4D 45 20 43  4F 4E 53 49 53 54 53 20  |H GAME CONSISTS |
00000220: 4F 46 20 54 45 4E 20 52  41 43 45 53 2E 22 3A 99  |OF TEN RACES.":.|
00000230: 00 59 0A 82 00 99 22 34  2E 20 45 41 43 48 20 50  |.Y...."4. EACH P|
00000240: 4C 41 59 45 52 20 53 54  41 52 54 53 20 57 49 54  |LAYER STARTS WIT|
00000250: 48 20 24 31 30 30 30 2E  22 00 99 0A 87 00 99 22  |H $1000."......"|
00000260: 49 46 20 59 4F 55 20 4C  4F 53 45 20 49 54 2C 20  |IF YOU LOSE IT, |
00000270: 59 4F 55 20 41 52 45 20  42 41 52 52 45 44 22 3A  |YOU ARE BARRED":|
00000280: 99 22 46 52 4F 4D 20 46  55 54 55 52 45 20 42 45  |."FROM FUTURE BE|
00000290: 54 54 49 4E 47 2E 22 3A  99 00 D8 0A 8C 00 99 22  |TTING.":......."|
000002A0: 35 2E 20 49 46 20 41 4C  4C 20 50 4C 41 59 45 52  |5. IF ALL PLAYER|
000002B0: 53 20 41 52 45 20 49 4E  20 54 48 45 20 48 4F 4C  |S ARE IN THE HOL|
000002C0: 45 2C 22 3A 99 22 54 48  45 20 47 41 4D 45 20 49  |E,":."THE GAME I|
000002D0: 53 20 4F 56 45 52 2E 22  00 0A 0B B4 00 85 20 22  |S OVER."...... "|
000002E0: 11 11 11 11 11 57 48 45  4E 20 52 45 41 44 59 2C  |.....WHEN READY,|
000002F0: 20 50 52 45 53 53 20 52  45 54 55 52 4E 1D 1D 1D  | PRESS RETURN...|
00000300: 12 20 92 9D 9D 9D 22 3B  41 24 00 2C 0B C8 00 85  |. ....";A$.,....|
00000310: 20 22 93 57 49 45 56 49  45 4C 45 20 53 50 49 45  | ".WIEVIELE SPIE|
00000320: 4C 45 52 22 3B 42 45 54  54 45 52 53 00 44 0B D2  |LER";BETTERS.D..|
00000330: 00 81 20 49 4E 44 45 58  B2 31 20 A4 20 42 45 54  |.. INDEX.1 . BET|
00000340: 54 45 52 53 00 86 0B DC  00 99 20 22 93 53 50 49  |TERS...... ".SPI|
00000350: 45 4C 45 52 20 4E 55 4D  4D 45 52 22 3B 49 4E 44  |ELER NUMMER";IND|
00000360: 45 58 3A 99 22 57 49 45  20 4C 41 55 54 45 54 20  |EX:."WIE LAUTET |
00000370: 4E 41 4D 45 20 22 3B 3A  85 20 4E 41 4D 45 24 28  |NAME ";:. NAME$(|
00000380: 49 4E 44 45 58 29 00 9B  0B F0 00 43 41 53 48 28  |INDEX).....CASH(|
00000390: 49 4E 44 45 58 29 B2 31  30 30 30 00 A7 0B FA 00  |INDEX).1000.....|
000003A0: 82 20 49 4E 44 45 58 00  B9 0B 2C 01 81 20 52 41  |. INDEX...,.. RA|
000003B0: 43 45 B2 31 20 A4 20 31  30 00 DF 0B 36 01 99 20  |CE.1 . 10...6.. |
000003C0: 22 93 53 54 41 4E 44 49  4E 47 53 20 50 52 49 4F  |".STANDINGS PRIO|
000003D0: 52 20 54 4F 20 52 41 43  45 22 3B 52 41 43 45 00  |R TO RACE";RACE.|
000003E0: E7 0B 3B 01 4C B2 30 00  FF 0B 40 01 81 20 49 4E  |..;.L.0...@.. IN|
000003F0: 44 45 58 B2 31 20 A4 20  42 45 54 54 45 52 53 00  |DEX.1 . BETTERS.|
00000400: 3A 0C 4A 01 99 20 22 11  11 22 3B 4E 41 4D 45 24  |:.J.. "..";NAME$|
00000410: 28 49 4E 44 45 58 29 3B  22 2C 20 44 55 20 48 41  |(INDEX);", DU HA|
00000420: 53 54 20 20 24 22 3B 43  41 53 48 28 49 4E 44 45  |ST  $";CASH(INDE|
00000430: 58 29 3B 22 4C 45 46 54  2E 22 00 7B 0C 4F 01 8B  |X);"LEFT.".{.O..|
00000440: 20 43 41 53 48 28 49 4E  44 45 58 29 B2 30 A7 20  | CASH(INDEX).0. |
00000450: 99 22 59 4F 55 20 4C 4F  53 54 20 49 54 20 41 4C  |."YOU LOST IT AL|
00000460: 4C 20 2D 20 59 4F 55 27  52 45 20 46 49 4E 49 53  |L - YOU'RE FINIS|
00000470: 48 45 44 21 22 3A 4C B2  4C AA 31 00 B7 0C 54 01  |HED!":L.L.1...T.|
00000480: 8B 20 4C B2 42 45 54 54  45 52 53 20 A7 20 99 22  |. L.BETTERS . ."|
00000490: 11 11 12 59 4F 55 27 52  45 20 41 4C 4C 20 4F 55  |...YOU'RE ALL OU|
000004A0: 54 21 22 3A 8D 20 32 30  30 30 3A 8D 20 32 30 30  |T!":. 2000:. 200|
000004B0: 30 3A 89 31 35 30 30 00  C3 0C 5E 01 82 20 49 4E  |0:.1500...^.. IN|
000004C0: 44 45 58 00 D5 0C 68 01  8D 20 32 30 30 30 3A 8D  |DEX...h.. 2000:.|
000004D0: 20 32 30 30 30 00 FB 0C  EA 01 81 20 49 4E 44 45  | 2000...... INDE|
000004E0: 58 B2 31 20 A4 20 42 45  54 54 45 52 53 3A 81 20  |X.1 . BETTERS:. |
000004F0: 43 4F 55 4E 54 B2 31 20  A4 20 35 00 25 0D F4 01  |COUNT.1 . 5.%...|
00000500: 41 4D 4F 55 4E 54 28 49  4E 44 45 58 2C 43 4F 55  |AMOUNT(INDEX,COU|
00000510: 4E 54 29 B2 30 3A 82 20  43 4F 55 4E 54 3A 82 20  |NT).0:. COUNT:. |
00000520: 49 4E 44 45 58 00 3F 0D  FE 01 81 20 49 4E 44 45  |INDEX.?.... INDE|
00000530: 58 B2 31 20 A4 20 42 45  54 54 45 52 53 3A 99 00  |X.1 . BETTERS:..|
00000540: 5C 0D 03 02 8B 20 43 41  53 48 28 49 4E 44 45 58  |\.... CASH(INDEX|
00000550: 29 B3 B2 30 20 A7 20 89  20 35 39 30 00 A4 0D 08  |)..0 . . 590....|
00000560: 02 99 20 22 93 22 3B 4E  41 4D 45 24 28 49 4E 44  |.. ".";NAME$(IND|
00000570: 45 58 29 3B 22 2C 20 57  48 49 43 48 20 48 4F 52  |EX);", WHICH HOR|
00000580: 53 45 22 3A 99 22 11 11  44 4F 20 59 4F 55 20 57  |SE":."..DO YOU W|
00000590: 49 53 48 20 54 4F 20 42  45 54 20 4F 4E 28 31 2D  |ISH TO BET ON(1-|
000005A0: 35 29 3F 22 00 D5 0D 12  02 99 20 22 11 11 28 49  |5)?"...... "..(I|
000005B0: 4E 50 55 54 20 30 20 49  46 20 4E 4F 20 42 45 54  |NPUT 0 IF NO BET|
000005C0: 20 49 53 20 44 45 53 49  52 45 44 29 22 3B 3A 85  | IS DESIRED)";:.|
000005D0: 20 48 52 53 45 00 04 0E  1C 02 8B 20 48 52 53 45  | HRSE...... HRSE|
000005E0: B3 30 20 B0 20 48 52 53  45 B1 35 20 B0 20 20 48  |.0 . HRSE.5 .  H|
000005F0: 52 53 45 B3 B1 B5 28 48  52 53 45 29 20 A7 20 89  |RSE...(HRSE) . .|
00000600: 20 35 32 30 00 17 0E 26  02 8B 20 48 52 53 45 B2  | 520...&.. HRSE.|
00000610: 30 20 A7 20 35 39 30 00  48 0E 30 02 85 20 22 11  |0 . 590.H.0.. ".|
00000620: 11 48 4F 57 20 4D 55 43  48 20 44 4F 20 59 4F 55  |.HOW MUCH DO YOU|
00000630: 20 42 45 54 22 3B 41 4D  4F 55 4E 54 28 49 4E 44  | BET";AMOUNT(IND|
00000640: 45 58 2C 48 52 53 45 29  00 8B 0E 3A 02 8B 20 41  |EX,HRSE)...:.. A|
00000650: 4D 4F 55 4E 54 28 49 4E  44 45 58 2C 48 52 53 45  |MOUNT(INDEX,HRSE|
00000660: 29 B3 30 20 A7 20 99 20  22 11 11 41 20 4E 45 47  |).0 . . "..A NEG|
00000670: 41 54 49 56 45 20 42 45  54 3F 20 4E 4F 54 20 48  |ATIVE BET? NOT H|
00000680: 45 52 45 21 22 3A 89 20  35 36 30 00 B8 0E 3F 02  |ERE!":. 560...?.|
00000690: 8B 20 41 4D 4F 55 4E 54  28 49 4E 44 45 58 2C 48  |. AMOUNT(INDEX,H|
000006A0: 52 53 45 29 B3 B2 43 41  53 48 28 49 4E 44 45 58  |RSE)..CASH(INDEX|
000006B0: 29 A7 20 89 20 35 38 30  00 FC 0E 41 02 99 20 22  |). . 580...A.. "|
000006C0: 11 11 59 4F 55 27 52 45  20 4F 56 45 52 2D 42 45  |..YOU'RE OVER-BE|
000006D0: 54 54 49 4E 47 21 22 3A  99 22 59 4F 55 20 4F 4E  |TTING!":."YOU ON|
000006E0: 4C 59 20 48 41 56 45 20  24 22 3B 43 41 53 48 28  |LY HAVE $";CASH(|
000006F0: 49 4E 44 45 58 29 3A 89  20 35 36 30 00 2B 0F 44  |INDEX):. 560.+.D|
00000700: 02 43 41 53 48 28 49 4E  44 45 58 29 B2 43 41 53  |.CASH(INDEX).CAS|
00000710: 48 28 49 4E 44 45 58 29  AB 41 4D 4F 55 4E 54 28  |H(INDEX).AMOUNT(|
00000720: 49 4E 44 45 58 2C 48 52  53 45 29 00 37 0F 4E 02  |INDEX,HRSE).7.N.|
00000730: 82 20 49 4E 44 45 58 00  5F 0F 58 02 99 20 22 93  |. INDEX._.X.. ".|
00000740: 22 3A 81 20 49 4E 44 45  58 B2 31 20 A4 20 34 30  |":. INDEX.1 . 40|
00000750: 3A 99 20 22 2D 22 3B 3A  82 20 49 4E 44 45 58 00  |:. "-";:. INDEX.|
00000760: 87 0F 62 02 99 20 22 13  22 3A 81 20 49 4E 44 45  |..b.. ".":. INDE|
00000770: 58 B2 31 20 A4 20 32 33  3A 99 20 22 11 22 3B 3A  |X.1 . 23:. ".";:|
00000780: 82 20 49 4E 44 45 58 00  A9 0F 6C 02 81 20 49 4E  |. INDEX...l.. IN|
00000790: 44 45 58 B2 31 20 A4 20  34 30 3A 99 20 22 2D 22  |DEX.1 . 40:. "-"|
000007A0: 3B 3A 82 20 49 4E 44 45  58 00 B3 0F 76 02 99 20  |;:. INDEX...v.. |
000007B0: 22 13 22 00 D9 0F 80 02  81 20 49 4E 44 45 58 B2  |"."...... INDEX.|
000007C0: 31 20 A4 20 37 3A 99 20  A3 33 37 29 3B 22 12 BF  |1 . 7:. .37);"..|
000007D0: 22 3A 82 20 49 4E 44 45  58 00 FC 0F 8A 02 99 20  |":. INDEX...... |
000007E0: A3 33 37 29 3B 22 12 46  11 9D 49 11 9D 4E 11 9D  |.37);".F..I..N..|
000007F0: 49 11 9D 53 11 9D 48 11  9D 22 3B 3A 00 22 10 94  |I..S..H..";:."..|
00000800: 02 81 20 49 4E 44 45 58  B2 31 20 A4 20 37 3A 99  |.. INDEX.1 . 7:.|
00000810: 20 A3 33 37 29 3B 22 12  BF 22 3A 82 20 49 4E 44  | .37);"..":. IND|
00000820: 45 58 00 51 10 9E 02 46  49 56 45 B2 30 3A 46 4F  |EX.Q...FIVE.0:FO|
00000830: 55 52 B2 30 3A 54 48 52  45 45 B2 30 3A 54 57 4F  |UR.0:THREE.0:TWO|
00000840: B2 30 3A 55 4E 4F B2 30  3A 41 43 52 4F 53 53 B2  |.0:UNO.0:ACROSS.|
00000850: 30 00 64 10 A8 02 81 20  4E 55 4D 42 45 52 B2 31  |0.d.... NUMBER.1|
00000860: 20 A4 20 35 00 6F 10 B2  02 8D 20 31 30 30 30 00  | . 5.o.... 1000.|
00000870: 7C 10 BC 02 82 20 4E 55  4D 42 45 52 00 90 10 C6  ||.... NUMBER....|
00000880: 02 81 20 49 4E 44 45 58  B2 31 20 A4 20 31 35 30  |.. INDEX.1 . 150|
00000890: 00 A7 10 D0 02 4E 55 4D  42 45 52 B2 B5 28 BB 28  |.....NUMBER..(.(|
000008A0: 31 29 AC 35 29 AA 31 00  CA 10 DA 02 91 20 4E 55  |1).5).1...... NU|
000008B0: 4D 42 45 52 20 89 20 37  34 30 2C 37 35 30 2C 37  |MBER . 740,750,7|
000008C0: 36 30 2C 37 37 30 2C 37  38 30 00 E9 10 E4 02 55  |60,770,780.....U|
000008D0: 4E 4F B2 55 4E 4F AA 31  3A 41 43 52 4F 53 53 B2  |NO.UNO.1:ACROSS.|
000008E0: 55 4E 4F 3A 89 20 37 39  30 00 08 11 EE 02 54 57  |UNO:. 790.....TW|
000008F0: 4F B2 54 57 4F AA 31 3A  41 43 52 4F 53 53 B2 54  |O.TWO.1:ACROSS.T|
00000900: 57 4F 3A 89 20 37 39 30  00 2D 11 F8 02 54 48 52  |WO:. 790.-...THR|
00000910: 45 45 B2 54 48 52 45 45  AA 31 3A 41 43 52 4F 53  |EE.THREE.1:ACROS|
00000920: 53 B2 54 48 52 45 45 3A  89 20 37 39 30 00 4F 11  |S.THREE:. 790.O.|
00000930: 02 03 46 4F 55 52 B2 46  4F 55 52 AA 31 3A 41 43  |..FOUR.FOUR.1:AC|
00000940: 52 4F 53 53 B2 46 4F 55  52 3A 89 20 37 39 30 00  |ROSS.FOUR:. 790.|
00000950: 6B 11 0C 03 46 49 56 45  B2 46 49 56 45 AA 31 3A  |k...FIVE.FIVE.1:|
00000960: 41 43 52 4F 53 53 B2 46  49 56 45 00 76 11 16 03  |ACROSS.FIVE.v...|
00000970: 8D 20 31 30 30 30 00 8D  11 20 03 8B 20 41 43 52  |. 1000... .. ACR|
00000980: 4F 53 53 B3 B1 33 30 20  A7 20 38 34 30 00 B5 11  |OSS..30 . 840...|
00000990: 2A 03 99 20 A3 39 29 3B  22 91 91 54 48 45 20 57  |*.. .9);"..THE W|
000009A0: 49 4E 4E 45 52 2C 20 4E  55 4D 4D 45 52 22 3B 4E  |INNER, NUMMER";N|
000009B0: 55 4D 42 45 52 00 CD 11  34 03 8D 20 32 30 30 30  |UMBER...4.. 2000|
000009C0: 3A 8D 20 32 30 30 30 3A  89 20 39 30 30 00 D9 11  |:. 2000:. 900...|
000009D0: 48 03 82 20 49 4E 44 45  58 00 F1 11 84 03 81 20  |H.. INDEX...... |
000009E0: 49 4E 44 45 58 B2 31 20  A4 20 42 45 54 54 45 52  |INDEX.1 . BETTER|
000009F0: 53 00 24 12 8E 03 43 41  53 48 28 49 4E 44 45 58  |S.$...CASH(INDEX|
00000A00: 29 B2 43 41 53 48 28 49  4E 44 45 58 29 AA 36 AC  |).CASH(INDEX).6.|
00000A10: 41 4D 4F 55 4E 54 28 49  4E 44 45 58 2C 4E 55 4D  |AMOUNT(INDEX,NUM|
00000A20: 42 45 52 29 00 30 12 98  03 82 20 49 4E 44 45 58  |BER).0.... INDEX|
00000A30: 00 42 12 A2 03 82 20 52  41 43 45 3A 89 20 31 35  |.B.... RACE:. 15|
00000A40: 30 30 00 5D 12 E8 03 44  4F 57 4E B2 4E 55 4D 42  |00.]...DOWN.NUMB|
00000A50: 45 52 AC 34 AB 33 3A 99  20 22 13 22 3B 00 87 12  |ER.4.3:. ".";...|
00000A60: F2 03 81 20 4C 49 4E 45  46 45 45 44 B2 31 20 A4  |... LINEFEED.1 .|
00000A70: 20 44 4F 57 4E 3A 99 20  22 11 22 3B 3A 82 20 4C  | DOWN:. ".";:. L|
00000A80: 49 4E 45 46 45 45 44 00  9E 12 FC 03 99 A3 41 43  |INEFEED.......AC|
00000A90: 52 4F 53 53 29 3B 22 20  20 20 20 20 D1 22 00 B9  |ROSS);"     ."..|
00000AA0: 12 06 04 99 A3 41 43 52  4F 53 53 29 3B 22 20 20  |.....ACROSS);"  |
00000AB0: 20 12 A9 92 A9 12 A9 A2  22 00 DC 12 10 04 99 A3  | .......".......|
00000AC0: 41 43 52 4F 53 53 29 3B  22 20 C4 12 22 3B 4E 55  |ACROSS);" ..";NU|
00000AD0: 4D 4D 45 52 3B 22 9D 12  20 92 A9 22 00 F3 12 1A  |MMER;".. .."....|
00000AE0: 04 99 A3 41 43 52 4F 53  53 29 3B 22 20 CE 20 20  |...ACROSS);" .  |
00000AF0: 20 CD 22 00 F9 12 24 04  8E 00 12 13 DC 05 99 20  | ."...$........ |
00000B00: 22 93 46 49 4E 41 4C 20  53 54 41 4E 44 49 4E 47  |".FINAL STANDING|
00000B10: 53 22 00 29 13 E1 05 99  22 A3 A3 A3 A3 A3 A3 A3  |S".)....".......|
00000B20: A3 A3 A3 A3 A3 A3 A3 A3  22 00 41 13 E6 05 81 20  |........".A.... |
00000B30: 49 4E 44 45 58 B2 31 20  A4 20 42 45 54 54 45 52  |INDEX.1 . BETTER|
00000B40: 53 00 7C 13 FA 05 99 20  22 11 11 11 22 3B 4E 41  |S.|.... "...";NA|
00000B50: 4D 45 24 28 49 4E 44 45  58 29 3B 22 20 46 49 4E  |ME$(INDEX);" FIN|
00000B60: 49 53 48 45 44 20 57 49  54 48 24 22 3B 43 41 53  |ISHED WITH$";CAS|
00000B70: 48 28 49 4E 44 45 58 29  3B 22 2E 22 00 87 13 04  |H(INDEX);"."....|
00000B80: 06 8D 20 32 30 30 30 00  93 13 0E 06 82 20 49 4E  |.. 2000...... IN|
00000B90: 44 45 58 00 C1 13 18 06  85 20 22 11 11 11 12 4E  |DEX...... "....N|
00000BA0: 4F 43 48 20 45 49 4E 4D  41 4C 3F 92 22 3B 41 24  |OCH EINMAL?.";A$|
00000BB0: 3A 8B 20 41 24 B2 22 4A  22 20 A7 20 89 20 32 30  |:. A$."J" . . 20|
00000BC0: 30 00 EE 13 22 06 99 22  11 11 54 48 45 4E 20 49  |0...".."..THEN I|
00000BD0: 20 44 4F 4E 27 54 20 57  41 4E 54 20 54 4F 20 50  | DON'T WANT TO P|
00000BE0: 4C 41 59 20 45 49 54 48  45 52 21 22 3A 80 00 09  |LAY EITHER!":...|
00000BF0: 14 D0 07 81 20 51 52 53  B2 31 20 A4 20 31 30 30  |.... QRS.1 . 100|
00000C00: 30 3A 82 20 51 52 53 3A  8E 00 00 00 0A           |0:. QRS:.....   |

....... PFERDERENNEN.7.,.. STANDINGS....
........300-350.Z.0.. TRACK SET-UP......
...600-700.}.2.. RND NUMBER GENERATOR.71
0-800...4.. WINNER DECLARATION...810...6
.. PAYOFF...............900-920...:.. FI
NAL STANDINGS......1500-1570   60 REM "S
TALL" SUBROUTINE...2000.&.D.. ".";.10);"
.PFERDERENNEN".N.I.. "....ANLEITUNG GEWU
ENSCHT?J/N";X$.B.N.. X$.."J" . 200...P..
".......RULES OF KENTUCKEY DERBY":....S.
."1. THIS GAME INVOLVES BETTING".X.X.."O
N FIVE EVENLY MATCHED HORSES.":....Z.."2
. ANY NUMBER OF PLAYERS ALLOWED.":..0.}.
."3. EACH GAME CONSISTS OF TEN RACES.":.
.Y...."4. EACH PLAYER STARTS WITH $1000.
"......"IF YOU LOSE IT, YOU ARE BARRED":
."FROM FUTURE BETTING.":..X...."5. IF AL
L PLAYERS ARE IN THE HOLE,":."THE GAME I
S OVER."...... ".....WHEN READY, PRESS R
ETURN.... ....";A$.,.H.. ".WIEVIELE SPIE
LER";BETTERS.D.R.. INDEX.1 . BETTERS....
.. ".SPIELER NUMMER";INDEX:."WIE LAUTET 
NAME ";:. NAME$(INDEX).....CASH(INDEX).1
000...... INDEX...,.. RACE.1 . 10...6.. 
".STANDINGS PRIOR TO RACE";RACE...;.L.0.
..@.. INDEX.1 . BETTERS.:.J.. "..";NAME$
(INDEX);", DU HAST  $";CASH(INDEX);"LEFT
.".{.O.. CASH(INDEX).0. ."YOU LOST IT AL
L - YOU'RE FINISHED!":L.L.1...T.. L.BETT
ERS . ."...YOU'RE ALL OUT!":. 2000:. 200
0:.1500.C.^.. INDEX.U.H.. 2000:. 2000...
... INDEX.1 . BETTERS:. COUNT.1 . 5.%...
AMOUNT(INDEX,COUNT).0:. COUNT:. INDEX.?.
... INDEX.1 . BETTERS:..\.... CASH(INDEX
)..0 . . 590...... ".";NAME$(INDEX);", W
HICH HORSE":."..DO YOU WISH TO BET ON(1-
5)?".U.... "..(INPUT 0 IF NO BET IS DESI
RED)";:. HRSE...... HRSE.0 . HRSE.5 .  H
RSE...(HRSE) . . 520...&.. HRSE.0 . 590.
H.0.. "..HOW MUCH DO YOU BET";AMOUNT(IND
EX,HRSE)...:.. AMOUNT(INDEX,HRSE).0 . . 
"..A NEGATIVE BET? NOT HERE!":. 560...?.
. AMOUNT(INDEX,HRSE)..CASH(INDEX). . 580
...A.. "..YOU'RE OVER-BETTING!":."YOU ON
LY HAVE $";CASH(INDEX):. 560.+.D.CASH(IN
DEX).CASH(INDEX).AMOUNT(INDEX,HRSE).7.N.
. INDEX._.X.. ".":. INDEX.1 . 40:. "-";:
. INDEX...B.. ".":. INDEX.1 . 23:. ".";:
. INDEX...L.. INDEX.1 . 40:. "-";:. INDE
X...V.. ".".Y.... INDEX.1 . 7:. .37);"..
":. INDEX...... .37);".F..I..N..I..S..H.
.";:.".... INDEX.1 . 7:. .37);"..":. IND
EX.Q...FIVE.0:FOUR.0:THREE.0:TWO.0:UNO.0
:ACROSS.0.D.... NUMBER.1 . 5.O.... 1000.
|.... NUMBER...F.. INDEX.1 . 150...P.NUM
BER..(.(1).5).1.J.Z.. NUMBER . 740,750,7
60,770,780.....UNO.UNO.1:ACROSS.UNO:. 79
0.....TWO.TWO.1:ACROSS.TWO:. 790.-...THR
EE.THREE.1:ACROSS.THREE:. 790.O...FOUR.F
OUR.1:ACROSS.FOUR:. 790.K...FIVE.FIVE.1:
ACROSS.FIVE.V.... 1000... .. ACROSS..30 
. 840...*.. .9);"..THE WINNER, NUMMER";N
UMBER.M.4.. 2000:. 2000:. 900.Y.H.. INDE
X...... INDEX.1 . BETTERS.$...CASH(INDEX
).CASH(INDEX).6.AMOUNT(INDEX,NUMBER).0..
.. INDEX.B.... RACE:. 1500.]...DOWN.NUMB
ER.4.3:. ".";...... LINEFEED.1 . DOWN:. 
".";:. LINEFEED.......ACROSS);"     Q"..
.....ACROSS);"   .......".......ACROSS);
" D.";NUMMER;".. ..".......ACROSS);" N  
 M"...$........ ".FINAL STANDINGS".)....
"...............".A.... INDEX.1 . BETTER
S.|.... "...";NAME$(INDEX);" FINISHED WI
TH$";CASH(INDEX);"."...... 2000...... IN
DEX.A.... "....NOCH EINMAL?.";A$:. A$."J
" . . 200...".."..THEN I DON'T WANT TO P
LAY EITHER!":....P.. QRS.1 . 1000:. QRS:
.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL