> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 20 44 |..!.d.. ****** D|
00000010: 52 41 57 20 50 4F 4B 45 52 20 2A 2A 2A 2A 2A 2A |RAW POKER ******|
00000020: 2A 00 27 08 6E 00 3A 00 54 08 78 00 97 35 39 34 |*.'.n.:.T.x..594|
00000030: 36 38 2C 31 32 3A 99 22 93 20 20 20 20 20 20 20 |68,12:.". |
00000040: 20 20 20 20 20 12 44 52 41 57 20 50 4F 4B 45 52 | .DRAW POKER|
00000050: 11 11 11 22 00 7E 08 82 00 99 22 11 11 11 11 11 |...".~....".....|
00000060: 11 20 20 20 20 20 20 20 20 20 12 4F 4E 45 20 4D |. .ONE M|
00000070: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 21 22 00 A4 |OMENT PLEASE!"..|
00000080: 08 8C 00 86 47 31 28 35 29 2C 46 37 28 33 35 29 |....G1(5),F7(35)|
00000090: 2C 46 38 28 33 35 29 2C 46 39 28 33 35 29 2C 4F |,F8(35),F9(35),O|
000000A0: 28 31 30 29 00 D5 08 96 00 81 49 B2 31 A4 31 30 |(10)......I.1.10|
000000B0: 3A 87 4F 28 49 29 3A 82 49 3A 83 32 30 30 2C 35 |:.O(I):.I:.200,5|
000000C0: 30 2C 33 30 2C 32 30 2C 31 30 2C 37 2C 35 2C 32 |0,30,20,10,7,5,2|
000000D0: 2C 31 2C 2D 31 00 07 09 A0 00 86 43 35 28 36 29 |,1,-1......C5(6)|
000000E0: 2C 43 36 28 35 29 2C 43 37 28 35 29 2C 43 38 28 |,C6(5),C7(5),C8(|
000000F0: 37 29 3A 46 53 24 B2 22 20 20 20 20 20 20 20 20 |7):FS$." |
00000100: 20 20 20 20 20 20 22 00 12 09 AA 00 4D 24 B2 22 | ".....M$."|
00000110: 20 22 00 24 09 B4 00 50 31 B2 31 30 32 34 3A 50 | ".$...P1.1024:P|
00000120: 32 B2 34 30 00 2C 09 BE 00 57 B2 30 00 36 09 C8 |2.40.,...W.0.6..|
00000130: 00 8D 32 31 36 30 00 52 09 D2 00 97 35 33 32 38 |..2160.R....5328|
00000140: 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 |1,1:.".";:.53281|
00000150: 2C 36 00 82 09 DC 00 99 22 12 48 41 4E 44 20 20 |,6......".HAND |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 44 | OD|
00000170: 44 53 20 20 20 20 20 20 20 59 4F 55 20 57 49 4E |DS YOU WIN|
00000180: 20 22 00 A2 09 E6 00 99 22 52 4F 59 41 4C 20 46 | "......"ROYAL F|
00000190: 4C 55 53 48 3A 20 20 20 20 20 32 30 30 20 54 4F |LUSH: 200 TO|
000001A0: 20 31 00 E0 09 F0 00 99 22 53 54 52 41 49 47 48 | 1......"STRAIGH|
000001B0: 54 20 46 4C 55 53 48 3A 20 20 20 35 30 20 54 4F |T FLUSH: 50 TO|
000001C0: 20 31 22 3A 99 22 46 4F 55 52 20 4F 46 20 41 20 | 1":."FOUR OF A |
000001D0: 4B 49 4E 44 3A 20 20 20 33 30 20 54 4F 20 31 22 |KIND: 30 TO 1"|
000001E0: 00 1E 0A FA 00 99 22 46 55 4C 4C 20 48 4F 55 53 |......"FULL HOUS|
000001F0: 45 3A 20 20 20 20 20 20 20 32 30 20 54 4F 20 31 |E: 20 TO 1|
00000200: 22 3A 99 22 46 4C 55 53 48 3A 20 20 20 20 20 20 |":."FLUSH: |
00000210: 20 20 20 20 20 20 31 30 20 54 4F 20 31 22 00 5C | 10 TO 1".\|
00000220: 0A 04 01 99 22 53 54 52 41 49 47 48 54 3A 20 20 |...."STRAIGHT: |
00000230: 20 20 20 20 20 20 20 20 37 20 54 4F 20 31 22 3A | 7 TO 1":|
00000240: 99 22 54 48 52 45 45 20 4F 46 20 41 20 4B 49 4E |."THREE OF A KIN|
00000250: 44 3A 20 20 20 35 20 54 4F 20 31 22 00 7D 0A 0E |D: 5 TO 1".}..|
00000260: 01 99 22 54 57 4F 20 50 41 49 52 3A 20 20 20 20 |.."TWO PAIR: |
00000270: 20 20 20 20 20 20 32 20 54 4F 20 31 22 00 9D 0A | 2 TO 1"...|
00000280: 18 01 99 22 50 41 49 52 3A 20 20 20 20 20 20 20 |..."PAIR: |
00000290: 20 20 20 20 20 20 20 31 20 54 4F 20 31 00 A7 0A | 1 TO 1...|
000002A0: 22 01 8D 31 39 39 30 00 E1 0A 2C 01 99 22 50 4C |"..1990...,.."PL|
000002B0: 41 43 45 20 59 4F 55 52 20 42 45 54 3A 20 24 31 |ACE YOUR BET: $1|
000002C0: 20 54 4F 20 24 31 30 30 30 30 20 24 22 3B 3A 5A | TO $10000 $";:Z|
000002D0: 39 B2 36 3A 8D 33 30 32 30 3A 44 B2 C5 28 5A 24 |9.6:.3020:D..(Z$|
000002E0: 29 00 08 0B 36 01 91 B5 28 28 44 AA 39 39 39 39 |)...6...((D.9999|
000002F0: 29 AD 31 30 30 30 30 29 AA 31 89 32 32 38 30 2C |).10000).1.2280,|
00000300: 33 33 30 2C 32 33 30 30 00 12 0B 40 01 89 32 33 |330,2300...@..23|
00000310: 30 30 00 4C 0B 4A 01 99 22 13 22 3A 81 53 B2 31 |00.L.J..".":.S.1|
00000320: A4 39 3A 5A 24 B2 C4 28 4F 28 53 29 AC 44 29 3A |.9:Z$..(O(S).D):|
00000330: 99 A6 32 35 29 C8 28 46 53 24 2C 31 32 AB C3 28 |..25).(FS$,12..(|
00000340: 5A 24 29 29 22 24 22 5A 24 3A 82 53 00 61 0B 54 |Z$))"$"Z$:.S.a.T|
00000350: 01 8B C3 28 43 39 24 29 B3 31 32 A7 8D 32 35 33 |...(C9$).12..253|
00000360: 30 00 7A 0B 5E 01 81 59 B2 31 A4 35 3A 8D 32 34 |0.z.^..Y.1.5:.24|
00000370: 37 30 3A 8D 38 38 30 3A 82 59 00 8F 0B 68 01 8D |70:.880:.Y...h..|
00000380: 32 35 35 30 3A 53 58 B2 53 3A 8D 31 38 30 30 00 |2550:SX.S:.1800.|
00000390: A3 0B 72 01 A1 51 24 3A 8B 51 24 B3 B1 22 22 A7 |..r..Q$:.Q$.."".|
000003A0: 33 37 30 00 DF 0B 7C 01 99 22 13 11 11 11 11 11 |370...|.."......|
000003B0: 11 11 11 11 11 11 11 53 45 4C 45 43 54 20 44 49 |.......SELECT DI|
000003C0: 53 43 41 52 44 53 20 42 59 20 4E 55 4D 42 45 52 |SCARDS BY NUMBER|
000003D0: 2C 20 31 2C 32 2C 33 2C 34 26 2F 4F 52 20 35 00 |, 1,2,3,4&/OR 5.|
000003E0: 10 0C 86 01 99 22 91 54 4F 20 43 41 4E 43 45 4C |.....".TO CANCEL|
000003F0: 20 50 52 45 53 53 20 43 2E 20 54 4F 20 44 52 41 | PRESS C. TO DRA|
00000400: 57 20 50 52 45 53 53 20 52 45 54 55 52 4E 2E 22 |W PRESS RETURN."|
00000410: 00 1B 0C 90 01 81 49 B2 31 A4 35 00 27 0C 9A 01 |......I.1.5.'...|
00000420: 47 31 28 49 29 B2 31 00 2E 0C A4 01 82 49 00 3D |G1(I).1......I.=|
00000430: 0C AE 01 50 B2 50 31 AA 32 34 AC 50 32 00 47 0C |...P.P1.24.P2.G.|
00000440: B8 01 8D 32 33 35 30 00 4F 0C C2 01 A1 51 24 00 |...2350.O....Q$.|
00000450: 5E 0C CC 01 8B 51 24 B2 22 22 89 34 35 30 00 6A |^....Q$."".450.j|
00000460: 0C D6 01 51 B2 C6 28 51 24 29 00 78 0C E0 01 8B |...Q..(Q$).x....|
00000470: 51 B2 31 33 89 35 39 30 00 88 0C EA 01 8B 51 24 |Q.13.590......Q$|
00000480: B2 22 43 22 89 34 30 30 00 98 0C F4 01 8B 51 24 |."C".400......Q$|
00000490: B3 22 31 22 89 34 35 30 00 A8 0C FE 01 8B 51 24 |."1".450......Q$|
000004A0: B1 22 35 22 89 34 35 30 00 B4 0C 08 02 59 B2 C5 |."5".450.....Y..|
000004B0: 28 51 24 29 00 C0 0C 12 02 47 31 28 59 29 B2 30 |(Q$).....G1(Y).0|
000004C0: 00 D7 0C 1C 02 50 B2 50 31 AA 32 34 AC 50 32 AA |.....P.P1.24.P2.|
000004D0: 38 AC 28 59 AB 31 29 00 E8 0C 26 02 4D 24 B2 22 |8.(Y.1)...&.M$."|
000004E0: 44 49 53 43 41 52 44 22 00 F4 0C 30 02 4C B2 C3 |DISCARD"...0.L..|
000004F0: 28 4D 24 29 00 FE 0C 3A 02 8D 32 33 36 30 00 07 |(M$)...:..2360..|
00000500: 0D 44 02 89 34 35 30 00 1C 0D 4E 02 50 B2 50 31 |.D..450...N.P.P1|
00000510: AA 31 31 AC 50 32 3A 8D 32 33 35 30 00 31 0D 58 |.11.P2:.2350.1.X|
00000520: 02 50 B2 50 31 AA 31 32 AC 50 32 3A 8D 32 33 35 |.P.P1.12.P2:.235|
00000530: 30 00 57 0D 62 02 50 B2 50 31 AA 31 33 AC 50 32 |0.W.b.P.P1.13.P2|
00000540: 3A 8D 32 33 35 30 3A 50 B2 50 31 AA 32 34 AC 50 |:.2350:P.P1.24.P|
00000550: 32 3A 8D 32 33 35 30 00 62 0D 6C 02 81 59 B2 31 |2:.2350.b.l..Y.1|
00000560: A4 35 00 75 0D 76 02 8B 47 31 28 59 29 B2 30 A7 |.5.u.v..G1(Y).0.|
00000570: 8D 31 36 39 30 00 7C 0D 80 02 82 59 00 86 0D 8A |.1690.|....Y....|
00000580: 02 8D 32 35 35 30 00 94 0D 94 02 8B 53 58 B2 53 |..2550......SX.S|
00000590: 89 36 39 30 00 9E 0D 9E 02 8D 31 38 30 30 00 A7 |.690......1800..|
000005A0: 0D A8 02 53 58 B2 53 00 B2 0D B2 02 81 59 B2 31 |...SX.S......Y.1|
000005B0: A4 35 00 C3 0D BC 02 8B 47 31 28 59 29 B2 31 89 |.5......G1(Y).1.|
000005C0: 37 33 30 00 CD 0D C6 02 8D 32 34 37 30 00 D6 0D |730......2470...|
000005D0: D0 02 8D 38 38 30 00 DD 0D DA 02 82 59 00 E7 0D |...880......Y...|
000005E0: E4 02 8D 32 35 35 30 00 F5 0D EE 02 8B 53 58 B2 |...2550......SX.|
000005F0: 53 89 37 39 30 00 FF 0D F8 02 8D 31 38 30 30 00 |S.790......1800.|
00000600: 08 0E 02 03 53 58 B2 53 00 12 0E 0C 03 8D 31 38 |....SX.S......18|
00000610: 30 30 00 18 0E 16 03 8F 00 4F 0E 20 03 57 B2 57 |00.......O. .W.W|
00000620: AA 44 AC 4F 28 31 30 AB 53 29 3A 4D 24 B2 22 57 |.D.O(10.S):M$."W|
00000630: 49 4E 4E 49 4E 47 53 22 3A 8B 4F 28 31 30 AB 53 |INNINGS":.O(10.S|
00000640: 29 B3 30 A7 4D 24 B2 22 4C 4F 53 53 45 53 22 00 |).0.M$."LOSSES".|
00000650: 8D 0E 2A 03 4D 24 B2 4D 24 AA 22 20 54 48 49 53 |..*.M$.M$." THIS|
00000660: 20 48 41 4E 44 20 41 52 45 20 24 22 AA C4 28 B6 | HAND ARE $"..(.|
00000670: 28 44 AC 4F 28 31 30 AB 53 29 29 29 3A 50 B2 50 |(D.O(10.S))):P.P|
00000680: 31 AA 31 31 AC 50 32 3A 8D 32 33 35 30 00 AF 0E |1.11.P2:.2350...|
00000690: 34 03 4D 24 B2 22 57 49 4E 4E 49 4E 47 53 22 3A |4.M$."WINNINGS":|
000006A0: 8B 57 B3 30 A7 4D 24 B2 22 4C 4F 53 53 45 53 00 |.W.0.M$."LOSSES.|
000006B0: E4 0E 3E 03 50 B2 50 31 AA 31 32 AC 50 32 3A 4D |..>.P.P1.12.P2:M|
000006C0: 24 B2 22 54 4F 54 41 4C 20 22 AA 4D 24 AA 22 20 |$."TOTAL ".M$." |
000006D0: 41 52 45 20 24 22 AA C4 28 B6 28 57 29 29 3A 8D |ARE $"..(.(W)):.|
000006E0: 32 33 35 30 00 1A 0F 48 03 4D 24 B2 22 50 52 45 |2350...H.M$."PRE|
000006F0: 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E |SS RETURN TO CON|
00000700: 54 49 4E 55 45 2E 2E 2E 22 3A 50 B2 50 31 AA 31 |TINUE...":P.P1.1|
00000710: 33 AC 50 32 3A 8D 32 33 35 30 00 2D 0F 52 03 A1 |3.P2:.2350.-.R..|
00000720: 47 24 3A 8B 47 24 B2 22 22 A7 38 35 30 00 40 0F |G$:.G$."".850.@.|
00000730: 5C 03 8B C6 28 47 24 29 B3 B1 31 33 A7 38 35 30 |\...(G$)..13.850|
00000740: 00 49 0F 66 03 89 32 31 30 00 54 0F 70 03 48 B2 |.I.f..210.T.p.H.|
00000750: 43 32 AB 37 00 61 0F 7A 03 8B 48 B3 34 A7 48 B2 |C2.7.a.z..H.4.H.|
00000760: 31 00 6C 0F 84 03 81 49 B2 31 A4 37 00 78 0F 8E |1.l....I.1.7.x..|
00000770: 03 43 38 28 49 29 B2 48 00 7F 0F 98 03 82 49 00 |.C8(I).H......I.|
00000780: C4 0F A2 03 91 43 32 89 39 34 30 2C 39 37 30 2C |.....C2.940,970,|
00000790: 39 36 30 2C 31 30 37 30 2C 31 30 33 30 2C 31 30 |960,1070,1030,10|
000007A0: 36 30 2C 31 30 35 30 2C 31 30 30 30 2C 31 30 32 |60,1050,1000,102|
000007B0: 30 2C 39 39 30 2C 31 30 38 30 2C 31 30 38 30 2C |0,990,1080,1080,|
000007C0: 31 30 38 30 00 D0 0F AC 03 43 38 28 34 29 B2 32 |1080.....C8(4).2|
000007D0: 00 DA 0F B6 03 89 31 30 38 30 00 E6 0F C0 03 43 |......1080.....C|
000007E0: 38 28 34 29 B2 32 00 FA 0F CA 03 43 38 28 32 29 |8(4).2.....C8(2)|
000007F0: B2 32 3A 43 38 28 36 29 B2 32 00 04 10 D4 03 89 |.2:C8(6).2......|
00000800: 31 30 38 30 00 18 10 DE 03 43 38 28 32 29 B2 32 |1080.....C8(2).2|
00000810: 3A 43 38 28 36 29 B2 32 00 2C 10 E8 03 43 38 28 |:C8(6).2.,...C8(|
00000820: 33 29 B2 33 3A 43 38 28 35 29 B2 33 00 36 10 F2 |3).3:C8(5).3.6..|
00000830: 03 89 31 30 37 30 00 4A 10 FC 03 43 38 28 33 29 |..1070.J...C8(3)|
00000840: B2 33 3A 43 38 28 35 29 B2 33 00 56 10 06 04 43 |.3:C8(5).3.V...C|
00000850: 38 28 34 29 B2 32 00 60 10 10 04 89 31 30 37 30 |8(4).2.`....1070|
00000860: 00 6C 10 1A 04 43 38 28 33 29 B2 32 00 78 10 24 |.l...C8(3).2.x.$|
00000870: 04 43 38 28 34 29 B2 33 00 8C 10 2E 04 43 38 28 |.C8(4).3.....C8(|
00000880: 31 29 B2 33 3A 43 38 28 37 29 B2 33 00 A3 10 38 |1).3:C8(7).3...8|
00000890: 04 41 B2 50 31 AA 31 35 AC 50 32 AA 38 AC 28 59 |.A.P1.15.P2.8.(Y|
000008A0: AB 31 29 00 BA 10 42 04 43 33 B2 28 C6 28 43 32 |.1)...B.C3.(.(C2|
000008B0: 24 29 AF 36 33 29 AA 31 32 38 00 C4 10 4C 04 97 |$).63).128...L..|
000008C0: 41 2C 43 33 00 CF 10 56 04 41 31 B2 31 36 30 00 |A,C3...V.A1.160.|
000008D0: E8 10 60 04 8B 43 32 B2 31 30 A7 41 31 B2 C6 28 |..`..C2.10.A1..(|
000008E0: 22 30 22 29 AA 31 32 38 00 F0 10 6A 04 45 B2 36 |"0").128...j.E.6|
000008F0: 00 FA 10 74 04 8D 31 33 33 30 00 08 11 7E 04 43 |...t..1330...~.C|
00000900: 34 B2 C6 28 43 31 24 29 00 1F 11 88 04 46 37 28 |4..(C1$).....F7(|
00000910: 35 29 B2 43 34 3A 46 37 28 33 31 29 B2 43 34 00 |5).C4:F7(31).C4.|
00000920: 36 11 92 04 46 38 28 31 29 B2 43 34 3A 46 38 28 |6...F8(1).C4:F8(|
00000930: 33 35 29 B2 43 34 00 4D 11 9C 04 46 39 28 31 29 |35).C4.M...F9(1)|
00000940: B2 43 34 3A 46 39 28 33 35 29 B2 43 34 00 58 11 |.C4:F9(35).C4.X.|
00000950: A6 04 81 49 B2 31 A4 37 00 63 11 B0 04 41 B2 41 |...I.1.7.c...A.A|
00000960: AA 34 30 00 6E 11 BA 04 97 41 2C 31 36 30 00 97 |.40.n....A,160..|
00000970: 11 C4 04 91 43 38 28 49 29 8D 31 33 38 30 2C 31 |....C8(I).1380,1|
00000980: 34 32 30 2C 31 34 38 30 2C 31 35 34 30 2C 31 35 |420,1480,1540,15|
00000990: 39 30 2C 31 36 34 30 00 A4 11 CE 04 97 41 AA 36 |90,1640......A.6|
000009A0: 2C 31 36 30 00 AB 11 D8 04 82 49 00 B6 11 E2 04 |,160......I.....|
000009B0: 41 B2 41 AA 33 39 00 C5 11 EC 04 8B 43 32 B2 31 |A.A.39......C2.1|
000009C0: 30 A7 45 B2 35 00 CF 11 F6 04 8D 31 33 33 30 00 |0.E.5......1330.|
000009D0: DD 11 00 05 97 41 AA 45 AA 31 2C 43 33 00 F8 11 |.....A.E.1,C3...|
000009E0: 0A 05 8B 43 32 B2 31 30 A7 97 41 AA 37 2C C6 28 |...C2.10..A.7,.(|
000009F0: 22 30 22 29 AA 31 32 38 00 05 12 14 05 43 36 28 |"0").128.....C6(|
00000A00: 59 29 B2 43 31 00 12 12 1E 05 43 37 28 59 29 B2 |Y).C1.....C7(Y).|
00000A10: 43 32 00 18 12 28 05 8E 00 23 12 32 05 81 49 B2 |C2...(...#.2..I.|
00000A20: 31 A4 45 00 2F 12 3C 05 97 41 AA 49 2C 41 31 00 |1.E./.<..A.I,A1.|
00000A30: 3A 12 46 05 41 31 B2 31 36 30 00 41 12 50 05 82 |:.F.A1.160.A.P..|
00000A40: 49 00 47 12 5A 05 8E 00 52 12 64 05 81 58 B2 31 |I.G.Z...R.d..X.1|
00000A50: A4 35 00 5F 12 6E 05 97 41 AA 58 2C 31 36 30 00 |.5._.n..A.X,160.|
00000A60: 66 12 78 05 82 58 00 6C 12 82 05 8E 00 79 12 8C |f.x..X.l.....y..|
00000A70: 05 97 41 AA 31 2C 31 36 30 00 86 12 96 05 97 41 |..A.1,160......A|
00000A80: AA 32 2C 31 36 30 00 92 12 A0 05 97 41 AA 33 2C |.2,160......A.3,|
00000A90: 43 34 00 9F 12 AA 05 97 41 AA 34 2C 31 36 30 00 |C4......A.4,160.|
00000AA0: AC 12 B4 05 97 41 AA 35 2C 31 36 30 00 B2 12 BE |.....A.5,160....|
00000AB0: 05 8E 00 BE 12 C8 05 97 41 AA 31 2C 43 34 00 CB |........A.1,C4..|
00000AC0: 12 D2 05 97 41 AA 32 2C 31 36 30 00 D8 12 DC 05 |....A.2,160.....|
00000AD0: 97 41 AA 33 2C 31 36 30 00 E5 12 E6 05 97 41 AA |.A.3,160......A.|
00000AE0: 34 2C 31 36 30 00 F1 12 F0 05 97 41 AA 35 2C 43 |4,160......A.5,C|
00000AF0: 34 00 F7 12 FA 05 8E 00 02 13 04 06 81 58 B2 31 |4............X.1|
00000B00: A4 35 00 13 13 0E 06 58 31 B2 35 AC 28 49 AB 31 |.5.....X1.5.(I.1|
00000B10: 29 AA 58 00 23 13 18 06 97 41 AA 58 2C 46 37 28 |).X.#....A.X,F7(|
00000B20: 58 31 29 00 2A 13 22 06 82 58 00 30 13 2C 06 8E |X1).*."..X.0.,..|
00000B30: 00 3B 13 36 06 81 58 B2 31 A4 35 00 4C 13 40 06 |.;.6..X.1.5.L.@.|
00000B40: 58 31 B2 35 AC 28 49 AB 31 29 AA 58 00 5C 13 4A |X1.5.(I.1).X.\.J|
00000B50: 06 97 41 AA 58 2C 46 38 28 58 31 29 00 63 13 54 |..A.X,F8(X1).c.T|
00000B60: 06 82 58 00 69 13 5E 06 8E 00 74 13 68 06 81 58 |..X.i.^...t.h..X|
00000B70: B2 31 A4 35 00 85 13 72 06 58 31 B2 35 AC 28 49 |.1.5...r.X1.5.(I|
00000B80: AB 31 29 AA 58 00 95 13 7C 06 97 41 AA 58 2C 46 |.1).X...|..A.X,F|
00000B90: 39 28 58 31 29 00 9C 13 86 06 82 58 00 A2 13 90 |9(X1)......X....|
00000BA0: 06 8E 00 B3 13 9A 06 8F 20 43 4C 45 41 52 20 43 |........ CLEAR C|
00000BB0: 41 52 44 00 CC 13 A4 06 41 B2 50 31 AA 31 35 AC |ARD.....A.P1.15.|
00000BC0: 50 32 AA 38 AC 28 59 AB 31 29 AB 31 00 D7 13 AE |P2.8.(Y.1).1....|
00000BD0: 06 81 49 B2 31 A4 39 00 E2 13 B8 06 81 58 B2 31 |..I.1.9......X.1|
00000BE0: A4 37 00 EE 13 C2 06 97 41 AA 58 2C 33 32 00 F5 |.7......A.X,32..|
00000BF0: 13 CC 06 82 58 00 00 14 D6 06 41 B2 41 AA 34 30 |....X.....A.A.40|
00000C00: 00 07 14 E0 06 82 49 00 18 14 EA 06 43 36 28 59 |......I.....C6(Y|
00000C10: 29 B2 31 35 AA 32 AC 59 00 29 14 F4 06 43 37 28 |).15.2.Y.)...C7(|
00000C20: 59 29 B2 31 35 AA 32 AC 59 00 2F 14 FE 06 8E 00 |Y).15.2.Y./.....|
00000C30: 46 14 08 07 8F 20 48 49 47 48 4C 49 47 48 54 20 |F.... HIGHLIGHT |
00000C40: 53 43 52 45 45 4E 00 55 14 12 07 8B 53 58 B2 30 |SCREEN.U....SX.0|
00000C50: 89 31 39 30 30 00 69 14 1C 07 50 B2 50 31 AA 50 |.1900.i...P.P1.P|
00000C60: 32 AC 28 31 30 AB 53 58 29 00 71 14 26 07 58 B2 |2.(10.SX).q.&.X.|
00000C70: 30 00 7D 14 30 07 81 49 B2 30 A4 33 37 00 8A 14 |0.}.0..I.0.37...|
00000C80: 3A 07 4E B2 C2 28 50 AA 49 29 00 A1 14 44 07 8B |:.N..(P.I)...D..|
00000C90: 28 4E B2 33 32 29 AF 28 58 B2 30 29 89 31 38 39 |(N.32).(X.0).189|
00000CA0: 30 00 A9 14 4E 07 58 B2 31 00 BE 14 58 07 97 50 |0...N.X.1...X..P|
00000CB0: AA 49 2C 28 4E AA 31 32 38 29 AF 32 35 35 00 C5 |.I,(N.128).255..|
00000CC0: 14 62 07 82 49 00 CB 14 6C 07 8E 00 D7 14 76 07 |.b..I...l.....v.|
00000CD0: 57 31 B2 32 30 AC 44 00 DD 14 80 07 8E 00 E9 14 |W1.20.D.........|
00000CE0: 8A 07 57 31 B2 33 30 AC 44 00 EF 14 94 07 8E 00 |..W1.30.D.......|
00000CF0: FB 14 9E 07 57 31 B2 35 30 AC 44 00 01 15 A8 07 |....W1.50.D.....|
00000D00: 8E 00 0E 15 B2 07 57 31 B2 32 30 30 AC 44 00 14 |......W1.200.D..|
00000D10: 15 BC 07 8E 00 1A 15 C6 07 99 00 25 15 D0 07 8B |...........%....|
00000D20: 57 B2 30 A7 99 00 4C 15 DA 07 8B 57 B3 30 A7 99 |W.0...L....W.0..|
00000D30: 22 59 4F 55 52 20 54 4F 54 41 4C 20 4C 4F 53 53 |"YOUR TOTAL LOSS|
00000D40: 45 53 20 41 52 45 20 24 22 3B AB 57 00 74 15 E4 |ES ARE $";.W.t..|
00000D50: 07 8B 57 B1 30 A7 99 22 59 4F 55 52 20 54 4F 54 |..W.0.."YOUR TOT|
00000D60: 41 4C 20 57 49 4E 4E 49 4E 47 53 20 41 52 45 20 |AL WINNINGS ARE |
00000D70: 24 22 3B 57 00 7A 15 EE 07 8E 00 A7 15 F8 07 46 |$";W.z.........F|
00000D80: 24 B2 22 20 5F A0 29 20 47 2A 35 54 20 47 A0 A0 |$." _.) G*5T G..|
00000D90: A0 20 47 A0 A0 A0 48 20 A0 A0 A0 48 20 59 36 34 |. G...H ...H Y64|
00000DA0: 48 20 A9 A0 DF 20 22 00 AD 15 02 08 8E 00 DA 15 |H ... ".........|
00000DB0: 0C 08 46 24 B2 22 20 29 23 54 20 A9 47 20 35 20 |..F$." )#T .G 5 |
00000DC0: A0 A0 A0 A0 3B A0 A0 A0 A0 A0 3C A0 A0 A0 A0 20 |....;.....<.... |
00000DD0: 36 20 48 29 20 59 24 A9 20 22 00 E0 15 16 08 8E |6 H) Y$. "......|
00000DE0: 00 0D 16 20 08 46 24 B2 22 20 5F A0 A0 29 20 27 |... .F$." _..) '|
00000DF0: 20 26 42 A9 A0 A0 A0 BC A0 A0 A0 A0 A0 BB A0 A0 | &B.............|
00000E00: A0 29 5D 26 20 25 20 A9 A0 A0 DF 20 22 00 13 16 |.)]& % .... "...|
00000E10: 2A 08 8E 00 21 16 34 08 46 37 28 58 31 29 B2 46 |*...!.4.F7(X1).F|
00000E20: 31 00 27 16 3E 08 8E 00 35 16 48 08 46 38 28 58 |1.'.>...5.H.F8(X|
00000E30: 31 29 B2 46 31 00 3B 16 52 08 8E 00 49 16 5C 08 |1).F1.;.R...I.\.|
00000E40: 46 39 28 58 31 29 B2 46 31 00 4F 16 66 08 8E 00 |F9(X1).F1.O.f...|
00000E50: 5A 16 70 08 81 58 B2 31 A4 33 00 67 16 7A 08 81 |Z.p..X.1.3.g.z..|
00000E60: 58 31 B2 31 A4 33 35 00 7D 16 84 08 91 58 8D 32 |X1.1.35.}....X.2|
00000E70: 30 34 30 2C 32 30 36 30 2C 32 30 38 30 00 92 16 |040,2060,2080...|
00000E80: 8E 08 46 31 B2 C6 28 CA 28 46 24 2C 58 31 2C 31 |..F1..(.(F$,X1,1|
00000E90: 29 29 00 A2 16 98 08 8B 46 31 B3 39 36 89 32 32 |))......F1.96.22|
00000EA0: 32 30 00 B7 16 A2 08 8B 46 31 B3 31 39 32 A7 46 |20......F1.192.F|
00000EB0: 31 B2 46 31 AA 36 34 00 CB 16 AC 08 8B 46 31 B3 |1.F1.64......F1.|
00000EC0: 36 34 A7 46 31 B2 46 31 AA 36 34 00 DF 16 B6 08 |64.F1.F1.64.....|
00000ED0: 46 31 B2 28 46 31 AA 31 32 38 29 AF 32 35 35 00 |F1.(F1.128).255.|
00000EE0: F5 16 C0 08 91 58 8D 32 31 30 30 2C 32 31 32 30 |.....X.2100,2120|
00000EF0: 2C 32 31 34 30 00 FD 16 CA 08 82 58 31 00 04 17 |,2140......X1...|
00000F00: D4 08 82 58 00 0A 17 DE 08 8E 00 20 17 E8 08 99 |...X....... ....|
00000F10: 3A 99 22 49 4E 56 41 4C 49 44 20 42 45 54 20 22 |:."INVALID BET "|
00000F20: 00 2A 17 F2 08 89 32 33 31 30 00 58 17 FC 08 99 |.*....2310.X....|
00000F30: 3A 99 22 42 45 54 20 54 4F 4F 20 48 49 47 48 2C |:."BET TOO HIGH,|
00000F40: 20 48 4F 55 53 45 20 4C 49 4D 49 54 20 49 53 20 | HOUSE LIMIT IS |
00000F50: 24 31 30 2C 30 30 30 22 00 62 17 06 09 58 B2 31 |$10,000".b...X.1|
00000F60: 30 30 00 6C 17 10 09 58 B2 58 AB 31 00 7A 17 1A |00.l...X.X.1.z..|
00000F70: 09 8B 58 B1 30 89 32 33 32 30 00 83 17 24 09 89 |..X.0.2320...$..|
00000F80: 32 31 30 00 8C 17 2E 09 4C B2 34 30 00 C7 17 38 |210.....L.40...8|
00000F90: 09 41 B2 50 AB 31 3A 4C 31 B2 C3 28 4D 24 29 3A |.A.P.1:L1..(M$):|
00000FA0: 81 49 B2 31 A4 4C 31 3A 4D 31 24 B2 CA 28 4D 24 |.I.1.L1:M1$..(M$|
00000FB0: 2C 49 2C 31 29 3A 97 41 AA 49 2C C6 28 4D 31 24 |,I,1):.A.I,.(M1$|
00000FC0: 29 AF 36 33 3A 82 49 00 D9 17 42 09 4D 31 24 B2 |).63:.I...B.M1$.|
00000FD0: CA 28 4D 24 2C 49 2C 31 29 00 E4 17 4C 09 41 B2 |.(M$,I,1)...L.A.|
00000FE0: 41 AA 4C 31 00 EF 17 56 09 4C B2 4C AB 4C 31 00 |A.L1...V.L.L.L1.|
00000FF0: FE 17 60 09 8B 4C B3 B2 30 89 32 34 34 30 00 09 |..`..L..0.2440..|
00001000: 18 6A 09 81 49 B2 31 A4 4C 00 15 18 74 09 97 41 |.j..I.1.L...t..A|
00001010: AA 49 2C 33 32 00 1C 18 7E 09 82 49 00 27 18 88 |.I,32...~..I.'..|
00001020: 09 4D 24 B2 22 20 22 00 2D 18 92 09 8E 00 33 18 |.M$." ".-.....3.|
00001030: 9C 09 4B 00 5E 18 A6 09 43 B2 B5 28 C3 28 43 39 |..K.^...C..(.(C9|
00001040: 24 29 AC BB 28 54 49 29 29 AA 31 3A 8B 43 B1 C3 |$)..(TI)).1:.C..|
00001050: 28 43 39 24 29 A7 43 B2 C3 28 43 39 24 29 00 89 |(C9$).C..(C9$)..|
00001060: 18 B0 09 43 B2 B5 28 C3 28 43 39 24 29 AC BB 28 |...C..(.(C9$)..(|
00001070: 54 49 29 29 AA 31 3A 8B 43 B1 C3 28 43 39 24 29 |TI)).1:.C..(C9$)|
00001080: A7 43 B2 C3 28 43 39 24 29 00 C0 18 BA 09 43 30 |.C..(C9$).....C0|
00001090: B2 C6 28 CA 28 43 39 24 2C 43 2C 31 29 29 3A 43 |..(.(C9$,C,1)):C|
000010A0: 31 B2 B5 28 28 43 30 AB 31 29 AD 31 33 29 AA 31 |1..((C0.1).13).1|
000010B0: 3A 43 32 B2 43 30 AB 31 33 AC 28 43 31 AB 31 29 |:C2.C0.13.(C1.1)|
000010C0: 00 F3 18 C4 09 43 31 24 B2 CA 28 22 C1 D3 DA D8 |.....C1$..("....|
000010D0: 22 2C 43 31 2C 31 29 3A 43 32 24 B2 CA 28 22 41 |",C1,1):C2$..("A|
000010E0: 32 33 34 35 36 37 38 39 31 4A 51 4B 22 2C 43 32 |234567891JQK",C2|
000010F0: 2C 31 29 00 10 19 CE 09 54 24 B2 22 22 3A 8B 43 |,1).....T$."":.C|
00001100: B1 31 A7 54 24 B2 C8 28 43 39 24 2C 43 AB 31 29 |.1.T$..(C9$,C.1)|
00001110: 00 28 19 D8 09 43 39 24 B2 54 24 AA CA 28 43 39 |.(...C9$.T$..(C9|
00001120: 24 2C 43 AA 31 29 3A 8E 00 54 19 E2 09 99 22 13 |$,C.1):..T....".|
00001130: 11 11 11 11 11 11 11 11 11 11 12 43 41 52 44 53 |...........CARDS|
00001140: 20 48 41 56 45 20 42 45 45 4E 20 53 48 55 46 46 | HAVE BEEN SHUFF|
00001150: 4C 45 44 22 00 7C 19 EC 09 43 39 24 B2 22 22 3A |LED".|...C9$."":|
00001160: 81 5A 5A B2 31 A4 35 32 3A 43 39 24 B2 43 39 24 |.ZZ.1.52:C9$.C9$|
00001170: AA C7 28 5A 5A 29 3A 82 5A 5A 3A 8E 00 84 19 F6 |..(ZZ):.ZZ:.....|
00001180: 09 53 B2 30 00 8D 19 00 0A 53 32 B2 30 00 98 19 |.S.0.....S2.0...|
00001190: 0A 0A 81 49 B2 31 A4 36 00 A6 19 14 0A 43 35 28 |...I.1.6.....C5(|
000011A0: 49 29 B2 31 30 30 00 AD 19 1E 0A 82 49 00 B8 19 |I).100......I...|
000011B0: 28 0A 81 49 B2 31 A4 35 00 C0 19 32 0A 58 B2 35 |(..I.1.5...2.X.5|
000011C0: 00 D6 19 3C 0A 8B 43 37 28 49 29 B1 43 35 28 58 |...<..C7(I).C5(X|
000011D0: 29 89 32 36 36 30 00 E8 19 46 0A 43 35 28 58 AA |).2660...F.C5(X.|
000011E0: 31 29 B2 43 35 28 58 29 00 F2 19 50 0A 58 B2 58 |1).C5(X)...P.X.X|
000011F0: AB 31 00 00 1A 5A 0A 8B 58 B1 30 89 32 36 32 30 |.1...Z..X.0.2620|
00001200: 00 12 1A 64 0A 43 35 28 58 AA 31 29 B2 43 37 28 |...d.C5(X.1).C7(|
00001210: 49 29 00 19 1A 6E 0A 82 49 00 2F 1A 78 0A 8B 43 |I)...n..I./.x..C|
00001220: 35 28 31 29 B2 31 A7 43 35 28 36 29 B2 31 34 00 |5(1).1.C5(6).14.|
00001230: 38 1A 82 0A 53 31 B2 30 00 43 1A 8C 0A 81 49 B2 |8...S1.0.C....I.|
00001240: 31 A4 34 00 5E 1A 96 0A 8B 43 36 28 49 29 B2 43 |1.4.^....C6(I).C|
00001250: 36 28 49 AA 31 29 A7 53 31 B2 53 31 AA 31 00 65 |6(I.1).S1.S1.1.e|
00001260: 1A A0 0A 82 49 00 73 1A AA 0A 8B 53 31 B2 34 A7 |....I.s....S1.4.|
00001270: 53 B2 35 00 9C 1A B4 0A 53 31 B2 30 3A 81 49 B2 |S.5.....S1.0:.I.|
00001280: 31 A4 34 3A 8B 43 35 28 49 29 AA 35 AB 49 B2 43 |1.4:.C5(I).5.I.C|
00001290: 35 28 35 29 A7 53 31 B2 53 31 AA 31 00 A3 1A BE |5(5).S1.S1.1....|
000012A0: 0A 82 49 00 BC 1A C8 0A 8B 53 31 B2 34 A7 53 B2 |..I......S1.4.S.|
000012B0: 53 AA 33 3A 8B 53 B2 33 A7 53 B2 34 00 CB 1A D2 |S.3:.S.3.S.4....|
000012C0: 0A 8B 53 31 B2 34 A7 32 38 31 30 00 F4 1A DC 0A |..S1.4.2810.....|
000012D0: 53 31 B2 30 3A 81 49 B2 32 A4 35 3A 8B 43 35 28 |S1.0:.I.2.5:.C5(|
000012E0: 49 29 AA 36 AB 49 B2 43 35 28 36 29 A7 53 31 B2 |I).6.I.C5(6).S1.|
000012F0: 53 31 AA 31 00 FB 1A E6 0A 82 49 00 14 1B F0 0A |S1.1......I.....|
00001300: 8B 53 31 B2 34 A7 53 B2 53 AA 33 3A 8B 53 B2 33 |.S1.4.S.S.3:.S.3|
00001310: A7 53 B2 34 00 30 1B FA 0A 8B 28 53 B2 38 29 AF |.S.4.0....(S.8).|
00001320: 28 43 35 28 35 29 B2 31 33 29 A7 53 B2 53 AA 31 |(C5(5).13).S.S.1|
00001330: 00 39 1B 04 0B 53 31 B2 30 00 44 1B 0E 0B 81 49 |.9...S1.0.D....I|
00001340: B2 31 A4 34 00 5F 1B 18 0B 8B 43 35 28 49 29 B2 |.1.4._....C5(I).|
00001350: 43 35 28 49 AA 31 29 A7 53 31 B2 53 31 AA 31 00 |C5(I.1).S1.S1.1.|
00001360: 7A 1B 22 0B 8B 43 35 28 49 29 B2 43 35 28 49 AA |z."..C5(I).C5(I.|
00001370: 32 29 A7 53 31 B2 53 31 AA 31 00 81 1B 2C 0B 82 |2).S1.S1.1...,..|
00001380: 49 00 93 1B 36 0B 8B 53 31 B1 33 A7 53 31 B2 53 |I...6..S1.3.S1.S|
00001390: 31 AA 32 00 A2 1B 40 0B 8B 53 31 B1 53 A7 53 B2 |1.2...@..S1.S.S.|
000013A0: 53 31 00 A8 1B 4A 0B 8E 00 B3 1B 54 0B 81 49 B2 |S1...J.....T..I.|
000013B0: 31 A4 35 00 DB 1B 5E 0B 85 22 45 4E 54 45 52 20 |1.5...^.."ENTER |
000013C0: 53 55 49 54 20 23 2C 20 43 41 52 44 20 23 22 3B |SUIT #, CARD #";|
000013D0: 43 36 28 49 29 2C 43 37 28 49 29 00 E2 1B 68 0B |C6(I),C7(I)...h.|
000013E0: 82 49 00 EC 1B 72 0B 8D 32 35 35 30 00 F2 1B 7C |.I...r..2550...||
000013F0: 0B 99 00 FE 1B 86 0B 99 22 53 3D 22 3B 53 00 04 |........"S=";S..|
00001400: 1C 90 0B 99 00 17 1C 9A 0B 99 22 43 35 22 2C 22 |.........."C5","|
00001410: 43 36 22 2C 22 43 37 00 22 1C A4 0B 81 49 B2 31 |C6","C7."....I.1|
00001420: A4 35 00 39 1C AE 0B 99 43 35 28 49 29 2C 43 36 |.5.9....C5(I),C6|
00001430: 28 49 29 2C 43 37 28 49 29 00 47 1C B8 0B 82 49 |(I),C7(I).G....I|
00001440: 3A 99 43 35 28 36 29 00 51 1C C2 0B 89 32 39 30 |:.C5(6).Q....290|
00001450: 30 00 6B 1C CC 0B 5A 24 B2 22 22 3A 5A 30 24 B2 |0.k...Z$."":Z0$.|
00001460: 22 20 22 3A 5A 31 24 B2 22 A6 22 00 9D 1C D6 0B |" ":Z1$.".".....|
00001470: 99 5A 30 24 22 9D 22 3B 3A 81 5A 5A B2 31 A4 35 |.Z0$".";:.ZZ.1.5|
00001480: 30 3A A1 5A 32 24 3A 8B 5A 32 24 B3 B1 22 22 A7 |0:.Z2$:.Z2$.."".|
00001490: 5A 5A B2 35 30 3A 82 3A 89 33 30 35 30 00 C1 1C |ZZ.50:.:.3050...|
000014A0: E0 0B 82 3A 5A 32 24 B2 5A 31 24 3A 5A 31 24 B2 |...:Z2$.Z1$:Z1$.|
000014B0: 5A 30 24 3A 5A 30 24 B2 5A 32 24 3A 89 33 30 33 |Z0$:Z0$.Z2$:.303|
000014C0: 30 00 F7 1C EA 0B 5A 5A B2 C6 28 5A 32 24 29 AF |0.....ZZ..(Z2$).|
000014D0: 31 32 37 3A 8B 5A 5A B2 32 39 B0 5A 5A B2 31 37 |127:.ZZ.29.ZZ.17|
000014E0: B0 5A 5A B2 31 39 B0 5A 5A B2 33 34 B0 5A 5A B2 |.ZZ.19.ZZ.34.ZZ.|
000014F0: 36 39 A7 33 30 33 30 00 08 1D F4 0B 8B 5A 5A B3 |69.3030......ZZ.|
00001500: B1 32 30 A7 33 30 39 30 00 3B 1D FE 0B 8B C3 28 |.20.3090.;.....(|
00001510: 5A 24 29 B1 30 A7 99 5A 32 24 3B 3A 8B C3 28 5A |Z$).0..Z2$;:..(Z|
00001520: 24 29 B1 31 A7 5A 24 B2 C8 28 5A 24 2C C3 28 5A |$).1.Z$..(Z$,.(Z|
00001530: 24 29 AB 31 29 3A 89 33 30 33 30 00 45 1D 08 0C |$).1):.3030.E...|
00001540: 89 33 30 32 30 00 70 1D 12 0C 8B 5A 5A B3 B1 31 |.3020.p....ZZ..1|
00001550: 33 A7 99 5A 32 24 3B 3A 5A 24 B2 5A 24 AA 5A 32 |3..Z2$;:Z$.Z$.Z2|
00001560: 24 3A 8B C3 28 5A 24 29 B3 5A 39 A7 33 30 33 30 |$:..(Z$).Z9.3030|
00001570: 00 7B 1D 1C 0C 99 22 20 22 3A 8E 00 C1 1D 26 0C |.{...." ":....&.|
00001580: 80 3A 8F 22 45 4E 44 20 4F 46 20 44 52 41 57 20 |.:."END OF DRAW |
00001590: 50 4F 4B 45 52 20 50 52 4F 50 45 52 54 59 20 4F |POKER PROPERTY O|
000015A0: 46 20 43 4F 4D 4D 4F 44 4F 52 45 14 14 14 14 14 |F COMMODORE.....|
000015B0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
000015C0: 14 00 00 00 |.... |
..!.D.. ****** DRAW POKER *******.'.N.:.
T.X..59468,12:.". .DRAW POKER
...".~...."...... .ONE MOMENT PL
EASE!"......G1(5),F7(35),F8(35),F9(35),O
(10).U....I.1.10:.O(I):.I:.200,50,30,20,
10,7,5,2,1,-1... ..C5(6),C6(5),C7(5),C8(
7):FS$." ".....M$." ".$...P
1.1024:P2.40.,...W.0.6.H..2160.R.R..5328
1,1:.".";:.53281,6......".HAND
ODDS YOU WIN "......"ROYAL F
LUSH: 200 TO 1......"STRAIGHT FLUSH:
50 TO 1":."FOUR OF A KIND: 30 TO 1"
......"FULL HOUSE: 20 TO 1":."FLUS
H: 10 TO 1".\...."STRAIGHT:
7 TO 1":."THREE OF A KIND: 5 T
O 1".}...."TWO PAIR: 2 TO 1"...
..."PAIR: 1 TO 1..."..1990.
..,.."PLACE YOUR BET: $1 TO $10000 $";:Z
9.6:.3020:D.E(Z$)...6...((D.9999).10000)
.1.2280,330,2300...@..2300.L.J..".":.S.1
.9:Z$.D(O(S).D):..25)H(FS$,12.C(Z$))"$"Z
$:.S.A.T..C(C9$).12..2530.Z.^..Y.1.5:.24
70:.880:.Y...H..2550:SX.S:.1800...R..Q$:
.Q$.."".370...|..".............SELECT DI
SCARDS BY NUMBER, 1,2,3,4&/OR 5......".T
O CANCEL PRESS C. TO DRAW PRESS RETURN."
......I.1.5.'...G1(I).1......I.=...P.P1.
24.P2.G....2350.O.B..Q$.^.L..Q$."".450.J
.V.Q.F(Q$).X....Q.13.590......Q$."C".400
......Q$."1".450......Q$."5".450.....Y.E
(Q$).....G1(Y).0.W...P.P1.24.P2.8.(Y.1).
..&.M$."DISCARD"...0.L.C(M$)...:..2360..
.D..450...N.P.P1.11.P2:.2350.1.X.P.P1.12
.P2:.2350.W.B.P.P1.13.P2:.2350:P.P1.24.P
2:.2350.B.L..Y.1.5.U.V..G1(Y).0..1690.|.
...Y......2550......SX.S.690......1800..
...SX.S......Y.1.5.C....G1(Y).1.730.M.F.
.2470.V.P..880...Z..Y......2550......SX.
S.790......1800.....SX.S......1800......
.O. .W.W.D.O(10.S):M$."WINNINGS":.O(10.S
).0.M$."LOSSES"...*.M$.M$." THIS HAND AR
E $".D(.(D.O(10.S))):P.P1.11.P2:.2350...
4.M$."WINNINGS":.W.0.M$."LOSSES...>.P.P1
.12.P2:M$."TOTAL ".M$." ARE $".D(.(W)):.
2350...H.M$."PRESS RETURN TO CONTINUE...
":P.P1.13.P2:.2350.-.R..G$:.G$."".850.@.
\..F(G$)..13.850.I.F..210.T.P.H.C2.7.A.Z
..H.4.H.1.L....I.1.7.X...C8(I).H.....I.
D....C2.940,970,960,1070,1030,1060,1050,
1000,1020,990,1080,1080,1080.P...C8(4).2
.Z....1080.....C8(4).2...J.C8(2).2:C8(6)
.2...T..1080.....C8(2).2:C8(6).2.,...C8(
3).3:C8(5).3.6....1070.J...C8(3).3:C8(5)
.3.V...C8(4).2.`....1070.L...C8(3).2.X.$
.C8(4).3.....C8(1).3:C8(7).3...8.A.P1.15
.P2.8.(Y.1)...B.C3.(F(C2$).63).128.D.L..
A,C3.O.V.A1.160...`..C2.10.A1.F("0").128
...J.E.6...T..1330...~.C4.F(C1$).....F7(
5).C4:F7(31).C4.6...F8(1).C4:F8(35).C4.M
...F9(1).C4:F9(35).C4.X....I.1.7.C...A.A
.40.N....A,160...D..C8(I).1380,1420,1480
,1540,1590,1640...N..A.6,160...X..I.....
A.A.39.E....C2.10.E.5.O....1330......A.E
.1,C3......C2.10..A.7,F("0").128.....C6(
Y).C1.....C7(Y).C2...(...#.2..I.1.E./.<.
.A.I,A1.:.F.A1.160.A.P..I.G.Z...R.D..X.1
.5._.N..A.X,160.F.X..X.L.....Y....A.1,16
0......A.2,160... ..A.3,C4......A.4,160.
.....A.5,160.........H..A.1,C4.K.R..A.2,
160.X....A.3,160......A.4,160......A.5,C
4............X.1.5.....X1.5.(I.1).X.#...
.A.X,F7(X1).*."..X.0.,...;.6..X.1.5.L.@.
X1.5.(I.1).X.\.J..A.X,F8(X1).C.T..X.I.^.
..T.H..X.1.5...R.X1.5.(I.1).X...|..A.X,F
9(X1)......X............ CLEAR CARD.L...
A.P1.15.P2.8.(Y.1).1.W....I.1.9......X.1
.7...B..A.X,32...L..X...V.A.A.40......I.
....C6(Y).15.2.Y.)...C7(Y).15.2.Y./.....
F.... HIGHLIGHT SCREEN.U....SX.0.1900.I.
..P.P1.P2.(10.SX).Q.&.X.0.}.0..I.0.37...
:.N.B(P.I)...D..(N.32).(X.0).1890...N.X.
1...X..P.I,(N.128).255.E.B..I.K.L...W.V.
W1.20.D...........W1.30.D...........W1.5
0.D...........W1.200.D.........F...%.P..
W.0...L.Z..W.0.."YOUR TOTAL LOSSES ARE $
";.W.T....W.0.."YOUR TOTAL WINNINGS ARE
$";W.Z.........F$." _ ) G*5T G G H
H Y64H . . ".......Z...F$." )#T .G 5
; < 6 H) Y$. "......... .F$.
" _ ) ' &B. . . )]& % . . "...
*...!.4.F7(X1).F1.'.>...5.H.F8(X1).F1.;.
R...I.\.F9(X1).F1.O.F...Z.P..X.1.3.G.Z..
X1.1.35.}....X.2040,2060,2080.....F1.F(J
(F$,X1,1))......F1.96.2220......F1.192.F
1.F1.64.K....F1.64.F1.F1.64.....F1.(F1.1
28).255......X.2100,2120,2140...J..X1...
T..X....... ....:."INVALID BET ".*....23
10.X....:."BET TOO HIGH, HOUSE LIMIT IS
$10,000".B...X.100.L...X.X.1.Z....X.0.23
20...$..210.....L.40.G.8.A.P.1:L1.C(M$):
.I.1.L1:M1$.J(M$,I,1):.A.I,F(M1$).63:.I.
Y.B.M1$.J(M$,I,1)...L.A.A.L1...V.L.L.L1.
..`..L..0.2440...J..I.1.L...T..A.I,32...
~..I.'...M$." ".-.....3...K.^...C..(C(C9
$)..(TI)).1:.C.C(C9$).C.C(C9$).....C..(C
(C9$)..(TI)).1:.C.C(C9$).C.C(C9$).....C0
.F(J(C9$,C,1)):C1..((C0.1).13).1:C2.C0.1
3.(C1.1)...D.C1$.J("ASZX",C1,1):C2$.J("A
234567891JQK",C2,1)...N.T$."":.C.1.T$.H(
C9$,C.1).(.X.C9$.T$.J(C9$,C.1):..T....".
...........CARDS HAVE BEEN SHUFFLED".|..
.C9$."":.ZZ.1.52:C9$.C9$.G(ZZ):.ZZ:.....
.S.0.....S2.0......I.1.6.....C5(I).100..
....I...(..I.1.5...2.X.5.V.<..C7(I).C5(X
).2660...F.C5(X.1).C5(X)...P.X.X.1...Z..
X.0.2620...D.C5(X.1).C7(I)...N..I./.X..C
5(1).1.C5(6).14.8...S1.0.C....I.1.4.^...
.C6(I).C6(I.1).S1.S1.1.E. ..I.S....S1.4.
S.5.....S1.0:.I.1.4:.C5(I).5.I.C5(5).S1.
S1.1......I...H..S1.4.S.S.3:.S.3.S.4.K.R
..S1.4.2810.....S1.0:.I.2.5:.C5(I).6.I.C
5(6).S1.S1.1......I......S1.4.S.S.3:.S.3
.S.4.0....(S.8).(C5(5).13).S.S.1.9...S1.
0.D....I.1.4._....C5(I).C5(I.1).S1.S1.1.
Z."..C5(I).C5(I.2).S1.S1.1...,..I...6..S
1.3.S1.S1.2...@..S1.S.S.S1...J.....T..I.
1.5...^.."ENTER SUIT #, CARD #";C6(I),C7
(I)...H..I...R..2550...|........"S=";S..
.........."C5","C6","C7."....I.1.5.9....
C5(I),C6(I),C7(I).G....I:.C5(6).Q.B..290
0.K.L.Z$."":Z0$." ":Z1$."."...V..Z0$".";
:.ZZ.1.50:.Z2$:.Z2$.."".ZZ.50:.:.3050.A.
...:Z2$.Z1$:Z1$.Z0$:Z0$.Z2$:.3030.....ZZ
.F(Z2$).127:.ZZ.29.ZZ.17.ZZ.19.ZZ.34.ZZ.
69.3030......ZZ..20.3090.;....C(Z$).0..Z
2$;:.C(Z$).1.Z$.H(Z$,C(Z$).1):.3030.E...
.3020.P....ZZ..13..Z2$;:Z$.Z$.Z2$:.C(Z$)
.Z9.3030.{...." ":..A.&..:."END OF DRAW
POKER PROPERTY OF COMMODORE.............
............
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL