> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 0A 00 97 20 35 39 34 36 38 2C 31 34 |....... 59468,14|
00000010: 00 35 08 14 00 8F 20 2A 2A 2A 48 4F 52 53 45 53 |.5.... ***HORSES|
00000020: 2A 2A 2A 42 59 20 41 4E 44 59 20 53 54 41 44 4C |***BY ANDY STADL|
00000030: 45 52 2A 2A 2A 00 52 08 1E 00 81 20 58 B2 30 20 |ER***.R.... X.0 |
00000040: A4 20 39 3A 88 20 4C 28 58 29 B2 31 30 3A 82 20 |. 9:. L(X).10:. |
00000050: 20 58 00 6A 08 28 00 99 20 22 93 22 3B A6 31 30 | X.j.(.. ".";.10|
00000060: 29 3B 22 48 4F 52 53 45 53 22 00 96 08 32 00 99 |);"HORSES"...2..|
00000070: 20 22 11 11 11 48 C1 D6 C5 A0 C1 CC CC A0 D0 CC | "...H..........|
00000080: C1 D9 C5 D2 D3 A0 D0 CC C1 D9 C5 C4 A0 C2 C5 C6 |................|
00000090: CF D2 C5 3F 22 3B 00 AC 08 3C 00 A1 20 41 24 3A |...?";...<.. A$:|
000000A0: 8B 20 41 24 B2 22 22 20 A7 20 36 30 00 C9 08 46 |. A$."" . 60...F|
000000B0: 00 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 |.. A$.."Y" . A$.|
000000C0: B1 22 4E 22 20 A7 20 36 30 00 DC 08 50 00 99 20 |."N" . 60...P.. |
000000D0: C7 28 C6 28 41 24 29 AA 31 32 38 29 00 EF 08 5A |.(.(A$).128)...Z|
000000E0: 00 8B 20 41 24 B2 22 59 22 20 A7 20 32 33 30 00 |.. A$."Y" . 230.|
000000F0: 1B 09 64 00 99 20 22 91 54 C8 C9 D3 A0 C9 D3 A0 |..d.. ".T.......|
00000100: D4 C8 C5 A0 C7 C1 CD C5 A0 CF C6 A0 C8 CF D2 D3 |................|
00000110: C5 D3 2E 20 49 CE 20 C9 D4 2C 22 00 49 09 6E 00 |... I. ..,".I.n.|
00000120: 99 22 11 D9 CF D5 A0 C2 C5 D4 A0 CF CE A0 CF CE |."..............|
00000130: C5 A0 CF C6 A0 D4 C8 C5 A0 31 30 20 C8 CF D2 D3 |.........10 ....|
00000140: C5 D3 2E 20 45 C1 C3 C8 22 00 70 09 78 00 99 22 |... E...".p.x.."|
00000150: 11 D3 D4 C1 D2 D4 D3 20 D7 C9 D4 C8 A0 CF C4 C4 |....... ........|
00000160: D3 A0 CF C6 A0 31 30 3A 31 2E 20 49 C6 20 C1 22 |.....10:1. I. ."|
00000170: 00 9C 09 82 00 99 22 11 C8 CF D2 D3 C5 20 D7 C9 |......"...... ..|
00000180: CE D3 2C 20 C9 D4 27 D3 20 CF C4 C4 D3 A0 C7 CF |.., ..'. .......|
00000190: A0 C4 CF D7 CE A0 C2 D9 20 31 2E 22 00 C2 09 8C |........ 1."....|
000001A0: 00 99 22 11 49 C6 20 C1 A0 C8 CF D2 D3 C5 A0 CC |..".I. .........|
000001B0: CF D3 C5 D3 A0 C1 A0 D2 C1 C3 C5 2C 20 C9 D4 27 |..........., ..'|
000001C0: D3 22 00 ED 09 96 00 99 22 11 CF C4 C4 D3 A0 C7 |."......".......|
000001D0: CF A0 D5 D0 A0 CF CE C5 2E 20 59 CF D5 A0 D3 D4 |......... Y.....|
000001E0: C1 D2 D4 A0 D7 C9 D4 C8 A0 32 30 30 22 00 15 0A |.........200"...|
000001F0: A0 00 99 22 11 C4 CF CC CC C1 D2 D3 2E 20 45 C1 |..."......... E.|
00000200: C3 C8 A0 D4 C9 CD C5 A0 D9 CF D5 A0 C2 C5 D4 2C |...............,|
00000210: 20 D4 C8 C5 22 00 3A 0A AA 00 99 22 11 CF CE CC | ...".:...."....|
00000220: D9 A0 CC C9 CD C9 D4 A0 C9 D3 A0 D9 CF D5 D2 A0 |................|
00000230: C2 C1 CE CB D2 CF CC CC 21 22 00 57 0A B4 00 99 |........!".W....|
00000240: 22 11 11 44 CF 20 D9 CF D5 20 D5 CE C4 C5 D2 D3 |"..D. ... ......|
00000250: D4 C1 CE C4 3F 22 3B 00 6E 0A BE 00 A1 20 41 24 |....?";.n.... A$|
00000260: 3A 8B 20 41 24 B2 22 22 20 A7 20 31 39 30 00 83 |:. A$."" . 190..|
00000270: 0A C8 00 8B 20 41 24 B3 B1 20 22 4E 22 20 A7 20 |.... A$.. "N" . |
00000280: 32 32 30 00 BB 0A D2 00 99 20 22 CE 22 3A 99 22 |220...... ".":."|
00000290: 54 C8 C5 CE A0 C6 C9 CE C4 A0 D3 CF CD C5 CF CE |T...............|
000002A0: C5 A0 D7 C8 CF A0 C4 CF C5 D3 2C 20 D9 CF D5 20 |.........., ... |
000002B0: 24 26 5C 23 22 3A 89 31 31 37 30 00 C4 0A DC 00 |$&\#":.1170.....|
000002C0: 99 20 41 24 00 DB 0A E6 00 99 22 93 22 3B A6 31 |. A$......".";.1|
000002D0: 30 29 3B 22 48 4F 52 53 45 53 22 00 FF 0A F0 00 |0);"HORSES".....|
000002E0: 99 20 22 11 11 11 48 CF D7 A0 CD C1 CE D9 A0 D0 |. "...H.........|
000002F0: CC C1 D9 C5 D2 D3 A0 28 31 2D 39 29 3F 22 3B 00 |.......(1-9)?";.|
00000300: 13 0B FA 00 A1 20 42 3A 8B 20 42 B2 30 20 A7 20 |..... B:. B.0 . |
00000310: 32 35 30 00 1B 0B 04 01 99 20 42 00 2E 0B 0E 01 |250...... B.....|
00000320: 99 22 11 22 3A 81 20 58 B2 31 20 A4 20 42 00 53 |.".":. X.1 . B.S|
00000330: 0B 18 01 99 20 22 50 CC C1 D9 C5 D2 A0 23 22 3B |.... "P......#";|
00000340: 58 3B 22 CE C1 CD C5 3A 22 3B 3A 50 24 28 58 29 |X;"....:";:P$(X)|
00000350: B2 22 22 00 5F 0B 22 01 99 20 22 A6 9D 22 3B 00 |.""._.".. "..";.|
00000360: 78 0B 2C 01 A1 20 58 58 24 3A 8B 20 58 58 24 B2 |x.,.. XX$:. XX$.|
00000370: 22 22 20 A7 20 33 30 30 00 A3 0B 36 01 8B 20 C6 |"" . 300...6.. .|
00000380: 28 58 58 24 29 B2 31 33 20 AF 20 C3 28 50 24 28 |(XX$).13 . .(P$(|
00000390: 58 29 29 B1 30 20 A7 20 99 20 22 20 20 22 3A 89 |X)).0 . . " ":.|
000003A0: 33 36 30 00 B9 0B 40 01 8B 20 C6 28 58 58 24 29 |360...@.. .(XX$)|
000003B0: B2 31 33 20 A7 20 33 30 30 00 EB 0B 4A 01 8B 20 |.13 . 300...J.. |
000003C0: C3 28 50 24 28 58 29 29 B1 30 20 AF 20 C6 28 58 |.(P$(X)).0 . .(X|
000003D0: 58 24 29 B3 B1 32 30 20 A7 20 58 58 24 B2 C7 28 |X$)..20 . XX$..(|
000003E0: C6 28 58 58 24 29 AA 31 32 38 29 00 08 0C 54 01 |.(XX$).128)...T.|
000003F0: 88 20 50 24 28 58 29 B2 50 24 28 58 29 AA 58 58 |. P$(X).P$(X).XX|
00000400: 24 3A 99 20 58 58 24 3B 00 12 0C 5E 01 89 20 32 |$:. XX$;...^.. 2|
00000410: 39 30 00 25 0C 68 01 88 20 42 28 58 29 B2 32 30 |90.%.h.. B(X).20|
00000420: 30 3A 82 20 58 00 3C 0C 72 01 99 22 93 22 3B A6 |0:. X.<.r..".";.|
00000430: 31 30 29 3B 22 48 4F 52 53 45 53 22 00 57 0C 7C |10);"HORSES".W.||
00000440: 01 99 20 22 11 11 54 C8 C5 A0 C8 CF D2 D3 C5 D3 |.. "..T.........|
00000450: A0 C1 D2 C5 3A 11 22 00 5D 0C 86 01 8C 00 6B 0C |....:.".].....k.|
00000460: 90 01 81 20 58 B2 30 20 A4 20 39 00 74 0C 9A 01 |... X.0 . 9.t...|
00000470: 87 20 41 24 00 A0 0C A4 01 99 22 23 22 3B 58 3B |. A$......"#";X;|
00000480: 22 3A 20 22 3B 41 24 3B A3 32 35 29 3B 22 CF C4 |": ";A$;.25);"..|
00000490: C4 D3 3A 22 3B 4C 28 58 29 3B 22 54 4F 20 31 22 |..:";L(X);"TO 1"|
000004A0: 00 AF 0C AE 01 82 20 58 3A 99 20 22 11 22 3B 00 |...... X:. ".";.|
000004B0: CD 0C B8 01 81 20 58 B2 31 20 A4 20 42 3A 8B 20 |..... X.1 . B:. |
000004C0: 42 28 58 29 B3 B2 30 20 A7 20 34 39 30 00 01 0D |B(X)..0 . 490...|
000004D0: C2 01 99 20 50 24 28 58 29 3B 22 2C 20 23 20 48 |... P$(X);", # H|
000004E0: CF D2 D3 C5 2C 20 C2 C5 D4 20 20 20 20 20 20 20 |...., ... |
000004F0: 20 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 85 20 43 2C | ........";:. C,|
00000500: 44 00 26 0D CC 01 8B 20 43 B3 30 20 B0 20 43 B1 |D.&.... C.0 . C.|
00000510: 39 20 B0 20 44 B3 31 20 B0 20 44 B1 42 28 58 29 |9 . D.1 . D.B(X)|
00000520: 20 A7 20 34 38 30 00 42 0D D6 01 88 20 5A 28 58 | . 480.B.... Z(X|
00000530: 29 B2 43 3A 88 20 59 28 58 29 B2 44 3A 89 20 34 |).C:. Y(X).D:. 4|
00000540: 39 30 00 53 0D E0 01 99 20 22 91 22 3B 3A 89 20 |90.S.... ".";:. |
00000550: 34 35 30 00 5B 0D EA 01 82 20 58 00 68 0D F4 01 |450.[.... X.h...|
00000560: 99 20 22 93 11 11 22 3B 00 77 0D FE 01 81 20 58 |. "...";.w.... X|
00000570: B2 31 20 A4 20 31 31 00 86 0D 08 02 81 20 51 B2 |.1 . 11...... Q.|
00000580: 31 20 A4 20 34 30 00 93 0D 12 02 99 20 22 12 A4 |1 . 40...... "..|
00000590: 92 22 3B 00 9B 0D 1C 02 82 20 51 00 A6 0D 26 02 |.";...... Q...&.|
000005A0: 99 20 22 11 22 3B 00 AE 0D 30 02 82 20 58 00 B8 |. ".";...0.. X..|
000005B0: 0D 3A 02 99 20 22 13 22 00 C4 0D 44 02 99 20 22 |.:.. "."...D.. "|
000005C0: 11 11 22 3B 00 D2 0D 4E 02 81 20 58 B2 30 20 A4 |..";...N.. X.0 .|
000005D0: 20 39 00 DF 0D 58 02 88 20 43 28 58 29 B2 31 00 | 9...X.. C(X).1.|
000005E0: F0 0D 62 02 99 20 58 3B 22 11 11 9D 9D 9D 22 3B |..b.. X;".....";|
000005F0: 00 F8 0D 6C 02 82 20 58 00 03 0E 76 02 99 20 22 |...l.. X...v.. "|
00000600: 13 22 3B 00 1C 0E 80 02 8F 20 2A 2A 2A 54 48 45 |.";...... ***THE|
00000610: 59 27 52 45 20 4F 46 46 21 2A 2A 2A 00 37 0E 8A |Y'RE OFF!***.7..|
00000620: 02 99 20 22 54 C8 C5 D9 27 D2 C5 20 CF C6 C6 21 |.. "T...'.. ...!|
00000630: 20 20 20 20 13 22 3B 00 69 0E 94 02 88 20 57 B2 | .";.i.... W.|
00000640: B5 28 31 30 AC BB 28 31 29 29 3A 8B 20 43 28 35 |.(10..(1)):. C(5|
00000650: 29 B2 35 20 A7 20 99 22 13 20 20 20 20 20 20 20 |).5 . .". |
00000660: 20 20 20 20 20 20 13 22 3B 00 7D 0E 9E 02 81 20 | .";.}.... |
00000670: 58 B2 31 20 A4 20 28 57 AC 32 29 AA 33 00 88 0E |X.1 . (W.2).3...|
00000680: A8 02 99 20 22 11 22 3B 00 90 0E B2 02 82 20 58 |... ".";...... X|
00000690: 00 A2 0E BC 02 88 20 43 28 57 29 B2 43 28 57 29 |...... C(W).C(W)|
000006A0: AA 31 00 B8 0E C6 02 99 20 A6 43 28 57 29 AB 31 |.1...... .C(W).1|
000006B0: 29 3B 57 3B 22 13 22 3B 00 CC 0E D0 02 8B 20 43 |);W;".";...... C|
000006C0: 28 57 29 B3 33 39 20 A7 20 36 36 30 00 EC 0E DA |(W).39 . 660....|
000006D0: 02 99 22 54 C8 C5 20 D7 C9 CE CE C5 D2 3A 22 3B |.."T.. ......:";|
000006E0: 3A 8C 3A 81 20 58 B2 30 20 A4 20 57 00 0D 0F E4 |:.:. X.0 . W....|
000006F0: 02 87 20 41 24 3A 82 20 58 3A 99 20 41 24 3B 22 |.. A$:. X:. A$;"|
00000700: 20 28 4E CF 2E 22 3B 57 3B 22 9D 29 22 00 1D 0F | (N..";W;".)"...|
00000710: EE 02 81 58 B2 31 A4 33 30 30 30 3A 82 00 3F 0F |...X.1.3000:..?.|
00000720: F8 02 8F 20 2A 2A 43 4F 4D 50 55 54 45 20 57 49 |... **COMPUTE WI|
00000730: 4E 53 20 41 4E 44 20 4C 4F 53 53 45 53 2A 2A 00 |NS AND LOSSES**.|
00000740: 51 0F 02 03 99 22 93 22 3B 3A 81 20 58 B2 31 A4 |Q....".";:. X.1.|
00000750: 42 00 65 0F 0C 03 8B 20 42 28 58 29 B3 B2 30 20 |B.e.... B(X)..0 |
00000760: A7 20 38 35 30 00 7E 0F 16 03 99 22 11 22 3B 50 |. 850.~....".";P|
00000770: 24 28 58 29 3B 22 2C 20 D9 CF D5 20 22 3B 00 98 |$(X);", ... ";..|
00000780: 0F 20 03 8B 20 5A 28 58 29 B3 B1 57 20 A7 20 99 |. .. Z(X)..W . .|
00000790: 20 22 CC CF D3 D4 22 3B 00 B0 0F 2A 03 8B 20 5A | "....";...*.. Z|
000007A0: 28 58 29 B2 57 20 A7 20 99 20 22 D7 CF CE 22 3B |(X).W . . "...";|
000007B0: 00 CC 0F 34 03 8B 20 5A 28 58 29 B2 57 20 A7 20 |...4.. Z(X).W . |
000007C0: 99 20 4C 28 57 29 AC 59 28 58 29 3B 00 E4 0F 3E |. L(W).Y(X);...>|
000007D0: 03 8B 20 5A 28 58 29 B3 B1 57 20 A7 20 99 20 59 |.. Z(X)..W . . Y|
000007E0: 28 58 29 3B 00 F5 0F 48 03 99 20 22 C4 CF CC CC |(X);...H.. "....|
000007F0: C1 D2 D3 2E 22 00 FD 0F 52 03 82 20 58 00 1B 10 |...."...R.. X...|
00000800: 5C 03 81 20 58 B2 31 20 A4 20 42 3A 8B 20 42 28 |\.. X.1 . B:. B(|
00000810: 58 29 B3 B2 30 20 A7 20 39 30 30 00 42 10 66 03 |X)..0 . 900.B.f.|
00000820: 8B 20 5A 28 58 29 B2 57 20 A7 20 88 20 42 28 58 |. Z(X).W . . B(X|
00000830: 29 B2 42 28 58 29 AA 28 4C 28 57 29 AC 59 28 58 |).B(X).(L(W).Y(X|
00000840: 29 29 00 63 10 70 03 8B 20 5A 28 58 29 B3 B1 57 |)).c.p.. Z(X)..W|
00000850: 20 A7 20 88 20 42 28 58 29 B2 42 28 58 29 AB 59 | . . B(X).B(X).Y|
00000860: 28 58 29 00 8E 10 7A 03 8B 20 42 28 58 29 B3 B2 |(X)...z.. B(X)..|
00000870: 30 20 A7 20 99 20 22 11 22 3B 50 24 28 58 29 3B |0 . . ".";P$(X);|
00000880: 22 20 D9 CF D5 A0 C2 D5 D3 D4 C5 C4 21 22 00 96 |" ..........!"..|
00000890: 10 84 03 82 20 58 00 AB 10 8E 03 81 20 58 B2 31 |.... X...... X.1|
000008A0: 20 A4 20 35 30 30 30 3A 82 20 58 00 CF 10 98 03 | . 5000:. X.....|
000008B0: 99 22 93 20 20 20 20 20 20 54 C8 C5 A0 D3 D4 C1 |.". T......|
000008C0: CE C4 C9 CE C7 D3 3A 11 22 3A 88 20 51 B2 30 00 |......:.":. Q.0.|
000008D0: E9 10 A2 03 81 58 B2 31 A4 42 3A 8B 20 42 28 58 |.....X.1.B:. B(X|
000008E0: 29 B3 B2 30 89 39 36 30 20 00 02 11 AC 03 99 50 |)..0.960 ......P|
000008F0: 24 28 58 29 3B A3 31 30 29 3B 22 24 22 3B 42 28 |$(X);.10);"$";B(|
00000900: 58 29 00 0C 11 B6 03 89 39 37 30 20 00 1C 11 C0 |X)......970 ....|
00000910: 03 51 B2 51 AA 31 3A 89 39 38 30 20 00 25 11 CA |.Q.Q.1:.980 .%..|
00000920: 03 5A 39 B2 58 00 41 11 D4 03 82 58 3A 8B 20 51 |.Z9.X.A....X:. Q|
00000930: B2 42 AB 31 20 AF 20 42 B1 31 20 89 20 31 31 36 |.B.1 . B.1 . 116|
00000940: 30 00 64 11 DE 03 8B 20 51 B2 42 20 A7 20 99 20 |0.d.... Q.B . . |
00000950: 22 59 CF D5 27 D2 C5 20 C1 CC CC A0 C4 C5 C1 C4 |"Y..'.. ........|
00000960: 21 31 30 80 00 7C 11 E8 03 99 22 11 41 CE CF D4 |!10..|....".A...|
00000970: C8 C5 D2 A0 D2 CF D5 CE C4 3F 22 3B 00 91 11 F2 |.........?";....|
00000980: 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 31 30 31 |..A$:.A$."". 101|
00000990: 30 00 AB 11 FC 03 8B 41 24 B3 B1 22 59 22 AF 41 |0......A$.."Y".A|
000009A0: 24 B3 B1 22 4E 22 89 31 30 31 30 00 BD 11 06 04 |$.."N".1010.....|
000009B0: 8B 41 24 B2 22 59 22 A7 20 31 31 38 30 00 D3 11 |.A$."Y". 1180...|
000009C0: 10 04 88 20 41 24 B2 C7 28 C6 28 41 24 29 AA 31 |... A$..(.(A$).1|
000009D0: 32 38 29 00 E2 11 1A 04 99 41 24 3A 89 20 31 32 |28)......A$:. 12|
000009E0: 32 30 00 F3 11 24 04 83 22 46 C9 D2 C5 A0 C2 C1 |20...$.."F......|
000009F0: CC CC 22 00 07 12 2E 04 83 22 53 C5 C1 D4 D4 CC |.."......"S.....|
00000A00: C5 A0 D3 CC CF D7 22 00 1B 12 38 04 83 22 5A C1 |......"...8.."Z.|
00000A10: D0 D0 C9 CE C7 A0 DA C9 CE C7 22 00 2F 12 42 04 |.........."./.B.|
00000A20: 83 22 46 D2 C5 C4 27 D3 A0 C6 CF CC CC D9 22 00 |."F...'.......".|
00000A30: 45 12 4C 04 83 22 57 CF D2 D2 D9 D3 CF CD C5 20 |E.L.."W........ |
00000A40: D7 C1 D2 D4 22 00 59 12 56 04 83 22 48 C5 CC CC |....".Y.V.."H...|
00000A50: 27 D3 A0 C1 CE C7 C5 CC 22 00 6F 12 60 04 83 22 |'.......".o.`.."|
00000A60: 48 C5 C1 D6 C5 CE 27 D3 20 C4 C5 D6 C9 CC 22 00 |H.....'. .....".|
00000A70: 82 12 6A 04 83 22 54 C5 CC CC D9 27 D3 20 D3 CF |..j.."T....'. ..|
00000A80: CE 22 00 96 12 74 04 83 22 57 C8 C1 D4 A0 C1 A0 |."...t.."W......|
00000A90: C8 CF D0 C5 21 22 00 AB 12 7E 04 83 22 4B C5 C5 |....!"...~.."K..|
00000AA0: D0 A0 D7 C9 D3 C8 C9 CE C7 21 22 00 F2 12 88 04 |.........!".....|
00000AB0: 99 22 11 11 11 22 3B 50 24 28 5A 39 29 3B 22 2C |."...";P$(Z9);",|
00000AC0: 20 D9 CF D5 20 D7 CF CE 21 21 21 20 57 C9 D4 C8 | ... ...!!! W...|
00000AD0: 20 24 22 3B 42 28 5A 39 29 3B 22 21 22 3A 99 22 | $";B(Z9);"!":."|
00000AE0: 4A CF CC CC D9 20 C7 CF CF C4 20 D3 C8 CF D7 21 |J.... .... ....!|
00000AF0: 21 22 00 FD 12 92 04 89 20 31 32 32 30 00 0B 13 |!"...... 1220...|
00000B00: 9C 04 81 20 58 B2 30 20 A4 20 39 00 25 13 A6 04 |... X.0 . 9.%...|
00000B10: 8B 20 58 B2 57 20 A7 20 88 20 4C 28 58 29 B2 4C |. X.W . . L(X).L|
00000B20: 28 58 29 AB 31 00 40 13 B0 04 8B 20 58 B3 B1 57 |(X).1.@.... X..W|
00000B30: 20 A7 20 88 20 4C 28 58 29 B2 4C 28 58 29 AA 31 | . . L(X).L(X).1|
00000B40: 00 4E 13 BA 04 82 20 58 3A 89 20 33 37 30 00 6C |.N.... X:. 370.l|
00000B50: 13 C4 04 99 22 11 11 11 43 CF CD C5 A0 C1 C7 C1 |...."...C.......|
00000B60: C9 CE A0 D3 CF CF CE 21 21 22 3A 80 00 00 00 |.......!!":.... |
....... 59468,14.5.... ***HORSES***BY AN
DY STADLER***.R.... X.0 . 9:. L(X).10:.
X.J.(.. ".";.10);"HORSES"...2.. "...HAV
E ALL PLAYERS PLAYED BEFORE?";...<.. A$:
. A$."" . 60.I.F.. A$.."Y" . A$.."N" . 6
0...P.. G(F(A$).128)...Z.. A$."Y" . 230.
..D.. ".THIS IS THE GAME OF HORSES. IN I
T,".I.N..".YOU BET ON ONE OF THE 10 HORS
ES. EACH".P.X..".STARTS WITH ODDS OF 10:
1. IF A"......".HORSE WINS, IT'S ODDS GO
DOWN BY 1.".B....".IF A HORSE LOSES A R
ACE, IT'S"......".ODDS GO UP ONE. YOU ST
ART WITH 200"... ..".DOLLARS. EACH TIME
YOU BET, THE".:....".ONLY LIMIT IS YOUR
BANKROLL!".W...."..DO YOU UNDERSTAND?";.
N.... A$:. A$."" . 190...H.. A$.. "N" .
220...R.. "N":."THEN FIND SOMEONE WHO DO
ES, YOU $&\#":.1170.D.... A$......".";.1
0);"HORSES"...... "...HOW MANY PLAYERS (
1-9)?";...... B:. B.0 . 250...... B.....
.".":. X.1 . B.S.... "PLAYER #";X;"NAME:
";:P$(X).""._.".. "..";.X.,.. XX$:. XX$.
"" . 300...6.. F(XX$).13 . C(P$(X)).0 .
. " ":.360...@.. F(XX$).13 . 300...J..
C(P$(X)).0 . F(XX$)..20 . XX$.G(F(XX$).1
28)...T.. P$(X).P$(X).XX$:. XX$;...^.. 2
90.%.H.. B(X).200:. X.<.R..".";.10);"HOR
SES".W.|.. "..THE HORSES ARE:.".].....K.
... X.0 . 9.T.... A$. ...."#";X;": ";A$;
.25);"ODDS:";L(X);"TO 1"...... X:. ".";.
M.... X.1 . B:. B(X)..0 . 490...B.. P$(X
);", # HORSE, BET ........";:. C,
D.&.L.. C.0 . C.9 . D.1 . D.B(X) . 480.B
.V.. Z(X).C:. Y(X).D:. 490.S.... ".";:.
450.[.... X.H.... "...";.W.... X.1 . 11.
..... Q.1 . 40...... "...";...... Q...&.
. ".";...0.. X...:.. ".".D.D.. "..";.R.N
.. X.0 . 9...X.. C(X).1...B.. X;".....";
...L.. X...V.. ".";...... ***THEY'RE OFF
!***.7.... "THEY'RE OFF! .";.I.... W.
.(10..(1)):. C(5).5 . .". ."
;.}.... X.1 . (W.2).3...... ".";...... X
...... C(W).C(W).1...F.. .C(W).1);W;".";
.L.P.. C(W).39 . 660...Z.."THE WINNER:";
:.:. X.0 . W...... A$:. X:. A$;" (NO.";W
;".)"......X.1.3000:..?.... **COMPUTE WI
NS AND LOSSES**.Q....".";:. X.1.B.E....
B(X)..0 . 850.~....".";P$(X);", YOU ";..
. .. Z(X)..W . . "LOST";...*.. Z(X).W .
. "WON";.L.4.. Z(X).W . . L(W).Y(X);...>
.. Z(X)..W . . Y(X);...H.. "DOLLARS."...
R.. X...\.. X.1 . B:. B(X)..0 . 900.B.F.
. Z(X).W . . B(X).B(X).(L(W).Y(X)).C.P..
Z(X)..W . . B(X).B(X).Y(X)...Z.. B(X)..
0 . . ".";P$(X);" YOU BUSTED!"...... X..
.... X.1 . 5000:. X.O....". THE STA
NDINGS:.":. Q.0......X.1.B:. B(X)..0.960
......P$(X);.10);"$";B(X)......970 ....
.Q.Q.1:.980 .%.J.Z9.X.A.T..X:. Q.B.1 . B
.1 . 1160.D.... Q.B . . "YOU'RE ALL DEAD
!10..|....".ANOTHER ROUND?";......A$:.A$
."". 1010......A$.."Y".A$.."N".1010.....
.A$."Y". 1180.S.... A$.G(F(A$).128).....
.A$:. 1220...$.."FIRE BALL"......"SEATTL
E SLOW"...8.."ZAPPING ZING"./.B.."FRED'S
FOLLY".E.L.."WORRYSOME WART".Y.V.."HELL
'S ANGEL".O.`.."HEAVEN'S DEVIL"...J.."TE
LLY'S SON"...T.."WHAT A HOPE!"...~.."KEE
P WISHING!"......"...";P$(Z9);", YOU WON
!!! WITH $";B(Z9);"!":."JOLLY GOOD SHOW!
!"...... 1220...... X.0 . 9.%.... X.W .
. L(X).L(X).1.@.... X..W . . L(X).L(X).1
.N.... X:. 370.L.D.."...COME AGAIN SOON!
!":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL