POKER

00000000: 01 08 16 08 0A 00 83 22  2A 2A 2A 20 50 4F 4B 45  |......."*** POKE|
00000010: 52 20 2A 2A 2A 22 00 38  08 0F 00 83 22 50 52 4F  |R ***".8...."PRO|
00000020: 47 52 41 4D 20 43 4F 50  59 52 49 47 48 54 20 28  |GRAM COPYRIGHT (|
00000030: 43 29 20 31 39 37 38 22  00 4C 08 14 00 83 22 46  |C) 1978".L...."F|
00000040: 52 41 4E 4B 20 4B 55 4C  41 53 48 22 00 6F 08 19  |RANK KULASH".o..|
00000050: 00 83 22 52 45 43 4F 52  44 49 4E 47 20 46 4F 52  |.."RECORDING FOR|
00000060: 20 43 4F 4D 4D 4F 44 4F  52 45 20 50 45 54 22 00  | COMMODORE PET".|
00000070: 89 08 1E 00 83 22 43 4F  50 59 52 49 47 48 54 20  |....."COPYRIGHT |
00000080: 28 43 29 20 31 39 37 38  22 00 A2 08 23 00 83 22  |(C) 1978"...#.."|
00000090: 50 45 52 53 4F 4E 41 4C  20 53 4F 46 54 57 41 52  |PERSONAL SOFTWAR|
000000A0: 45 22 00 B6 08 28 00 83  22 50 2E 4F 2E 20 42 4F  |E"...(.."P.O. BO|
000000B0: 58 20 31 33 36 22 00 D7  08 2D 00 83 22 43 41 4D  |X 136"...-.."CAM|
000000C0: 42 52 49 44 47 45 2C 20  4D 41 53 53 2E 20 30 32  |BRIDGE, MASS. 02|
000000D0: 31 33 38 22 2C 22 22 00  FC 08 32 00 86 41 28 37  |138",""...2..A(7|
000000E0: 35 29 2C 4D 38 28 31 34  29 2C 56 24 28 39 29 2C  |5),M8(14),V$(9),|
000000F0: 52 24 28 31 34 29 2C 53  24 28 34 29 00 06 09 34  |R$(14),S$(4)...4|
00000100: 00 8D 39 35 30 30 00 36  09 37 00 53 24 28 31 29  |..9500.6.7.S$(1)|
00000110: B2 22 12 D8 22 3A 53 24  28 32 29 B2 22 12 DA 22  |."..":S$(2).".."|
00000120: 3A 53 24 28 33 29 B2 22  12 D3 22 3A 53 24 28 34  |:S$(3)."..":S$(4|
00000130: 29 B2 22 12 C1 22 00 53  09 3C 00 81 49 B2 32 A4  |)."..".S.<..I.2.|
00000140: 31 34 3A 87 52 24 28 49  29 2C 4D 38 28 49 29 3A  |14:.R$(I),M8(I):|
00000150: 82 20 49 00 98 09 41 00  83 22 20 32 32 20 22 2C  |. I...A.." 22 ",|
00000160: 31 30 31 30 2C 22 20 33  33 20 22 2C 31 30 31 30  |1010," 33 ",1010|
00000170: 31 2C 22 20 34 34 20 22  2C 32 30 30 30 32 2C 22  |1," 44 ",20002,"|
00000180: 20 35 35 20 22 2C 32 30  31 30 32 2C 22 20 36 36  | 55 ",20102," 66|
00000190: 20 22 2C 32 30 32 30 32  00 D1 09 42 00 83 22 20  | ",20202...B.." |
000001A0: 37 37 20 22 2C 32 30 32  31 32 2C 22 20 38 38 20  |77 ",20212," 88 |
000001B0: 22 2C 32 31 32 31 32 2C  22 20 39 39 20 22 2C 32  |",21212," 99 ",2|
000001C0: 32 32 31 32 2C 22 31 30  31 30 22 2C 32 33 32 31  |2212,"1010",2321|
000001D0: 32 00 08 0A 43 00 83 22  20 4A 4A 20 22 2C 31 32  |2...C.." JJ ",12|
000001E0: 36 36 36 2C 22 20 51 51  20 22 2C 35 32 32 32 31  |666," QQ ",52221|
000001F0: 2C 22 20 4B 4B 20 22 2C  32 32 34 32 32 2C 22 20  |," KK ",22422," |
00000200: 41 41 20 22 2C 31 30 30  00 2B 0A 44 00 85 22 44  |AA ",100.+.D.."D|
00000210: 4F 20 59 4F 55 20 4E 45  45 44 20 49 4E 53 54 52  |O YOU NEED INSTR|
00000220: 55 43 54 49 4F 4E 53 22  3B 41 24 00 42 0A 45 00  |UCTIONS";A$.B.E.|
00000230: 8B C8 28 41 24 2C 31 29  B2 22 59 22 A7 8D 39 36  |..(A$,1)."Y"..96|
00000240: 30 30 00 68 0A 46 00 99  22 93 57 4F 55 4C 44 20  |00.h.F..".WOULD |
00000250: 59 4F 55 20 4C 49 4B 45  20 54 4F 20 50 4C 41 59  |YOU LIKE TO PLAY|
00000260: 20 57 49 54 48 22 3A 99  00 8F 0A 47 00 99 22 31  | WITH":....G.."1|
00000270: 2E 20 46 49 58 45 44 20  4C 49 4D 49 54 53 22 3A  |. FIXED LIMITS":|
00000280: 99 22 32 2E 20 50 4F 54  20 4C 49 4D 49 54 22 00  |."2. POT LIMIT".|
00000290: AC 0A 48 00 99 22 33 2E  20 49 4E 43 52 45 41 53  |..H.."3. INCREAS|
000002A0: 49 4E 47 20 4C 49 4D 49  54 22 3A 99 00 C5 0A 49  |ING LIMIT":....I|
000002B0: 00 99 22 45 4E 54 45 52  20 4E 55 4D 42 45 52 22  |.."ENTER NUMBER"|
000002C0: 3B 3A 85 58 33 00 D6 0A  4A 00 91 58 33 89 37 35  |;:.X3...J..X3.75|
000002D0: 2C 37 36 2C 37 37 00 0D  0B 4B 00 99 22 50 52 45  |,76,77...K.."PRE|
000002E0: 2D 44 52 41 57 20 4C 49  4D 49 54 22 3B 3A 85 58  |-DRAW LIMIT";:.X|
000002F0: 31 3A 99 22 50 4F 53 54  2D 44 52 41 57 20 4C 49  |1:."POST-DRAW LI|
00000300: 4D 49 54 22 3B 3A 85 58  32 3A 89 38 30 00 1F 0B  |MIT";:.X2:.80...|
00000310: 4C 00 58 31 B2 30 3A 58  32 B2 30 3A 89 38 30 00  |L.X1.0:X2.0:.80.|
00000320: 51 0B 4D 00 99 22 49 4E  49 54 49 41 4C 20 42 45  |Q.M.."INITIAL BE|
00000330: 54 22 3B 3A 85 58 31 3A  99 22 49 4E 43 52 45 41  |T";:.X1:."INCREA|
00000340: 53 49 4E 47 20 42 59 22  3B 3A 85 58 32 3A 89 38  |SING BY";:.X2:.8|
00000350: 30 00 57 0B 50 00 8F 00  86 0B 64 00 4B B2 31 3A  |0.W.P.....d.K.1:|
00000360: 81 49 B2 31 A4 34 3A 81  4A B2 32 A4 31 34 3A 41  |.I.1.4:.J.2.14:A|
00000370: 28 4B 29 B2 31 30 AC 4A  AA 49 3A 4B B2 4B AA 31  |(K).10.J.I:K.K.1|
00000380: 3A 82 4A 3A 82 49 00 B4  0B 78 00 55 B2 31 30 30  |:.J:.I...x.U.100|
00000390: 3A 57 B2 55 3A 42 24 B2  22 20 20 20 20 20 20 20  |:W.U:B$."       |
000003A0: 20 22 3A 81 49 B2 35 33  A4 37 30 3A 87 41 28 49  | ":.I.53.70:.A(I|
000003B0: 29 3A 82 49 00 E8 0B 82  00 83 34 32 33 2C 31 32  |):.I......423,12|
000003C0: 33 2C 32 30 32 2C 32 31  32 2C 30 2C 30 2C 30 2C  |3,202,212,0,0,0,|
000003D0: 31 30 2C 30 2C 31 2C 32  2C 32 2E 35 2C 34 2C 35  |10,0,1,2,2.5,4,5|
000003E0: 2C 36 2C 36 2C 39 2C 39  00 1A 0C 8C 00 52 24 B2  |,6,6,9,9.....R$.|
000003F0: 22 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |"...............|
00000400: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000410: 1D 1D 1D 1D 1D 1D 1D 1D  1D 22 00 40 0C 96 00 44  |.........".@...D|
00000420: 24 B2 22 13 11 11 11 11  11 11 11 11 11 11 11 11  |$.".............|
00000430: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 22  |..............."|
00000440: 00 52 0C A0 00 45 24 B2  22 9D 9D 9D 9D 9D 9D 9D  |.R...E$.".......|
00000450: 11 22 00 67 0C AA 00 81  49 B2 31 A4 39 3A 87 56  |.".g....I.1.9:.V|
00000460: 24 28 49 29 3A 82 49 00  A5 0C B4 00 83 22 4E 4F  |$(I):.I......"NO|
00000470: 20 50 41 49 52 22 2C 22  4F 4E 45 20 50 41 49 52  | PAIR","ONE PAIR|
00000480: 22 2C 22 54 57 4F 20 50  41 49 52 22 2C 22 33 20  |","TWO PAIR","3 |
00000490: 4F 46 20 41 20 4B 49 4E  44 22 2C 22 53 54 52 41  |OF A KIND","STRA|
000004A0: 49 47 48 54 22 00 DE 0C  B6 00 83 22 46 4C 55 53  |IGHT"......"FLUS|
000004B0: 48 22 2C 22 46 55 4C 4C  20 48 4F 55 53 45 22 2C  |H","FULL HOUSE",|
000004C0: 22 34 20 4F 46 20 41 20  4B 49 4E 44 22 2C 22 53  |"4 OF A KIND","S|
000004D0: 54 52 41 49 47 48 54 20  46 4C 55 53 48 22 00 FF  |TRAIGHT FLUSH"..|
000004E0: 0C C8 00 81 49 B2 31 A4  32 30 3A 4A B2 31 AA 35  |....I.1.20:J.1.5|
000004F0: 32 AC BB 28 31 29 3A 8D  36 30 30 30 3A 82 49 00  |2..(1):.6000:.I.|
00000500: 1E 0D D2 00 99 22 93 22  3A 8D 36 32 30 30 3A 50  |.....".":.6200:P|
00000510: B2 32 3A 55 B2 55 AB 31  3A 57 B2 57 AB 31 00 27  |.2:U.U.1:W.W.1.'|
00000520: 0D DC 00 58 B2 58 31 00  31 0D E6 00 8D 36 31 30  |...X.X1.1....610|
00000530: 30 00 67 0D F0 00 99 C8  28 44 24 2C 31 32 29 3B  |0.g.....(D$,12);|
00000540: 22 59 4F 55 52 20 48 41  4E 44 3D 22 3B 42 24 3B  |"YOUR HAND=";B$;|
00000550: 22 9D 9D 9D 9D 9D 9D 9D  22 3B 56 24 28 B5 28 5A  |".......";V$(.(Z|
00000560: AD 31 30 30 29 29 3B 00  71 0D FA 00 54 36 B2 31  |.100));.q...T6.1|
00000570: 35 00 81 0D 2C 01 8B 56  B2 31 30 30 A7 35 30 30  |5...,..V.100.500|
00000580: 30 00 A4 0D 36 01 44 B2  41 28 35 32 AA 48 29 3A  |0...6.D.A(52.H):|
00000590: 52 B2 31 AA 31 30 AC BB  28 31 29 3A 8B 52 B3 37  |R.1.10..(1):.R.7|
000005A0: A7 33 32 30 00 BB 0D 3B  01 44 B2 44 AD 31 30 3A  |.320...;.D.D.10:|
000005B0: 8B 52 B2 37 A7 44 B2 44  AD 31 30 00 D1 0D 40 01  |.R.7.D.D.10...@.|
000005C0: 44 B2 B5 28 44 AB 31 30  AC B5 28 44 AD 31 30 29  |D..(D.10..(D.10)|
000005D0: 29 00 F3 0D 4A 01 4D B2  41 28 36 31 AA 48 29 AA  |)...J.M.A(61.H).|
000005E0: BB 28 31 29 AA 28 56 AB  31 30 30 AC 48 29 AD 31  |.(1).(V.100.H).1|
000005F0: 35 AB 44 00 0A 0E 54 01  4E B2 4D 3A 8D 37 30 30  |5.D...T.N.M:.700|
00000600: 30 3A 8B 50 B2 30 A7 39  30 30 00 27 0E 9A 01 99  |0:.P.0.900.'....|
00000610: C8 28 44 24 2C 31 33 29  3B 22 48 4F 57 20 4D 41  |.(D$,13);"HOW MA|
00000620: 4E 59 22 3B 3A 85 43 00  37 0E 9B 01 54 36 B2 31  |NY";:.C.7...T6.1|
00000630: 34 3A 8D 36 36 30 30 00  4A 0E 9C 01 8B 20 B6 28  |4:.6600.J.... .(|
00000640: 43 AB 33 29 B1 32 A7 35  30 30 00 54 0E 9F 01 8D  |C.3).2.500.T....|
00000650: 36 34 30 30 00 6B 0E A4  01 81 49 B2 37 31 A4 37  |6400.k....I.71.7|
00000660: 35 3A 41 28 49 29 B2 30  3A 82 49 00 84 0E A9 01  |5:A(I).0:.I.....|
00000670: 81 4B B2 31 A4 43 3A 54  24 B2 C8 28 44 24 2C 4B  |.K.1.C:T$..(D$,K|
00000680: AA 31 34 29 00 A5 0E AE  01 99 54 24 3B 42 24 3B  |.14)......T$;B$;|
00000690: 22 23 22 3B 3A 85 49 3A  8B B6 28 49 AB 33 29 B1  |"#";:.I:..(I.3).|
000006A0: 32 A7 34 33 30 00 BF 0E  B8 01 49 B2 B5 28 49 29  |2.430.....I..(I)|
000006B0: 3A 8B 41 28 37 30 AA 49  29 B1 30 A7 34 33 30 00  |:.A(70.I).0.430.|
000006C0: DD 0E C2 01 4A B2 49 AA  31 30 3A 8D 36 30 30 30  |....J.I.10:.6000|
000006D0: 3A 41 28 37 30 AA 49 29  B2 31 3A 82 4B 00 EA 0E  |:A(70.I).1:.K...|
000006E0: F4 01 8B 46 B2 31 A7 35  35 30 00 06 0F 0D 02 52  |...F.1.550.....R|
000006F0: B2 44 3A 81 49 B2 31 30  A4 36 A9 AB 31 3A 81 4B  |.D:.I.10.6..1:.K|
00000700: B2 36 A4 31 30 3A 00 13  0F 0F 02 8B 49 B2 4B A7  |.6.10:......I.K.|
00000710: 35 33 32 00 32 0F 12 02  8B B5 28 41 28 49 29 AD  |532.2.....(A(I).|
00000720: 31 30 29 B2 B5 28 41 28  4B 29 AD 31 30 29 A7 35  |10)..(A(K).10).5|
00000730: 34 30 00 39 0F 14 02 82  4B 00 59 0F 17 02 4A B2  |40.9....K.Y...J.|
00000740: 49 AA 31 30 3A 8D 36 30  30 30 3A 52 B2 52 AB 31  |I.10:.6000:R.R.1|
00000750: 3A 8B 52 B2 30 A7 35 35  30 00 60 0F 1C 02 82 49  |:.R.0.550.`....I|
00000760: 00 83 0F 26 02 99 C8 28  44 24 2C 31 33 29 3B C8  |...&...(D$,13);.|
00000770: 28 52 24 2C 32 37 29 3B  22 49 20 54 41 4B 45 22  |(R$,27);"I TAKE"|
00000780: 3B 44 3B 00 8D 0F 58 02  8D 36 32 30 30 00 BB 0F  |;D;...X..6200...|
00000790: 62 02 4E B2 28 4D AA 33  AC 41 28 36 31 AA 48 29  |b.N.(M.3.A(61.H)|
000007A0: AA 43 AB 44 AB BB 28 31  29 29 AD 34 AA 28 56 AB  |.C.D..(1)).4.(V.|
000007B0: 31 30 30 AC 48 29 AD 31  35 AB 31 00 EA 0F 6C 02  |100.H).15.1...l.|
000007C0: 99 22 92 22 3B C8 28 44  24 2C 31 32 29 3B 22 59  |.".";.(D$,12);"Y|
000007D0: 4F 55 52 20 48 41 4E 44  3D 20 20 22 3B 56 24 28  |OUR HAND=  ";V$(|
000007E0: B5 28 5A AD 31 30 30 29  29 3B 00 F9 0F 7B 02 8B  |.(Z.100));...{..|
000007F0: 58 33 B3 33 A7 58 B2 58  32 00 03 10 7D 02 8D 36  |X3.3.X.X2...}..6|
00000800: 36 30 30 00 13 10 80 02  8D 36 34 30 30 3A 8D 37  |600......6400:.7|
00000810: 30 30 30 00 20 10 8A 02  8B 50 B2 30 A7 39 30 30  |000. ....P.0.900|
00000820: 00 48 10 20 03 54 36 B2  31 33 3A 8D 36 36 30 30  |.H. .T6.13:.6600|
00000830: 3A 45 B2 36 3A 8D 38 30  30 30 3A 99 22 92 22 3B  |:E.6:.8000:.".";|
00000840: C8 28 44 24 2C 31 31 29  00 65 10 22 03 55 24 B2  |.(D$,11).e.".U$.|
00000850: 56 24 28 B5 28 5A AD 31  30 30 29 29 3A 57 24 B2  |V$(.(Z.100)):W$.|
00000860: 56 24 28 48 29 00 72 10  25 03 8B 56 B1 5A A7 38  |V$(H).r.%..V.Z.8|
00000870: 39 30 00 7F 10 2A 03 8B  56 B3 5A A7 38 38 30 00  |90...*..V.Z.880.|
00000880: 9D 10 3E 03 81 49 B2 31  A4 35 3A 8B 41 28 49 29  |..>..I.1.5:.A(I)|
00000890: B1 41 28 49 AA 35 29 AA  34 A7 38 38 30 00 B4 10  |.A(I.5).4.880...|
000008A0: 48 03 8B 41 28 49 29 B3  41 28 49 AA 35 29 AB 34  |H..A(I).A(I.5).4|
000008B0: A7 38 39 30 00 BB 10 52  03 82 49 00 DE 10 66 03  |.890...R..I...f.|
000008C0: 99 22 57 45 20 54 49 45  22 3B 57 B2 57 AA 50 AD  |."WE TIE";W.W.P.|
000008D0: 32 3A 55 B2 55 AA 50 AD  32 3A 89 39 30 30 00 09  |2:U.U.P.2:.900..|
000008E0: 11 70 03 99 22 59 4F 55  52 20 22 3B 55 24 3B 22  |.p.."YOUR ";U$;"|
000008F0: 20 42 45 41 54 20 4D 59  20 22 3B 57 24 3B 3A 55  | BEAT MY ";W$;:U|
00000900: B2 55 AA 50 3A 89 39 30  30 00 2F 11 7A 03 99 22  |.U.P:.900./.z.."|
00000910: 4D 59 20 22 3B 57 24 3B  22 20 42 45 41 54 20 59  |MY ";W$;" BEAT Y|
00000920: 4F 55 52 20 22 3B 55 24  3B 3A 57 B2 57 AA 50 00  |OUR ";U$;:W.W.P.|
00000930: 3E 11 84 03 8B 55 AC 57  B2 30 A7 39 35 30 00 57  |>....U.W.0.950.W|
00000940: 11 89 03 50 B2 30 3A 8D  36 31 30 30 3A 99 C8 28  |...P.0:.6100:..(|
00000950: 44 24 2C 32 34 29 3B 00  88 11 8A 03 99 22 92 91  |D$,24);......"..|
00000960: 50 52 45 53 53 20 41 4E  59 20 4B 45 59 20 54 4F  |PRESS ANY KEY TO|
00000970: 20 43 4F 4E 54 49 4E 55  45 2C 20 27 51 27 20 54  | CONTINUE, 'Q' T|
00000980: 4F 20 51 55 49 54 2E 22  00 9B 11 8E 03 A1 51 24  |O QUIT."......Q$|
00000990: 3A 8B 51 24 B2 22 22 A7  39 31 30 00 AC 11 98 03  |:.Q$."".910.....|
000009A0: 8B 51 24 B3 B1 22 51 22  A7 32 30 30 00 BF 11 B6  |.Q$.."Q".200....|
000009B0: 03 99 22 93 22 3B 3A 8B  55 B3 57 A7 39 37 30 00  |..".";:.U.W.970.|
000009C0: DB 11 C0 03 99 22 49 2E  4F 2E 55 2E 20 22 3B 31  |....."I.O.U. ";1|
000009D0: 30 30 AB 57 3A 89 31 30  30 30 30 00 04 12 CA 03  |00.W:.10000.....|
000009E0: 99 22 54 48 41 54 20 57  49 4C 4C 20 42 45 20 24  |."THAT WILL BE $|
000009F0: 22 3B 31 30 30 AB 55 3B  22 49 4E 20 43 41 53 48  |";100.U;"IN CASH|
00000A00: 2E 2E 2E 22 00 2E 12 D4  03 99 22 57 49 54 48 20  |..."......"WITH |
00000A10: 4E 4F 20 46 41 53 54 20  4D 4F 56 45 53 2C 20 50  |NO FAST MOVES, P|
00000A20: 4C 45 41 53 45 2E 22 3A  89 31 30 30 30 30 00 4F  |LEASE.":.10000.O|
00000A30: 12 88 13 46 B2 30 3A 52  B2 41 28 36 29 AB 31 30  |...F.0:R.A(6).10|
00000A40: AC B5 28 41 28 36 29 AD  31 30 29 3A 51 B2 30 00  |..(A(6).10):Q.0.|
00000A50: 5B 12 8D 13 81 49 B2 37  A4 31 30 00 8D 12 92 13  |[....I.7.10.....|
00000A60: 8B 41 28 35 29 AB 31 30  AC B5 28 41 28 35 29 AD  |.A(5).10..(A(5).|
00000A70: 31 30 29 B3 B1 41 28 49  29 AB 31 30 AC B5 28 41  |10)..A(I).10..(A|
00000A80: 28 49 29 AD 31 30 29 A7  51 B2 51 AA 49 00 94 12  |(I).10).Q.Q.I...|
00000A90: A6 13 82 49 00 A3 12 AB  13 8B 51 B1 31 30 A7 35  |...I......Q.10.5|
00000AA0: 31 30 30 00 B0 12 B0 13  8B 51 B2 30 A7 51 B2 36  |100......Q.0.Q.6|
00000AB0: 00 BF 12 C4 13 49 B2 51  3A 4A B2 51 AA 31 30 00  |.....I.Q:J.Q.10.|
00000AC0: C9 12 C9 13 8D 36 30 30  30 00 DA 12 CE 13 44 B2  |.....6000.....D.|
00000AD0: 31 3A 46 B2 31 3A 89 33  33 30 00 0A 13 EC 13 51  |1:F.1:.330.....Q|
00000AE0: B2 36 3A 8B B6 28 28 B5  28 41 28 37 29 AD 31 30  |.6:..((.(A(7).10|
00000AF0: 29 AB B5 28 41 28 31 30  29 AD 31 30 29 29 AB 33  |)..(A(10).10)).3|
00000B00: 2E 35 29 B3 31 A7 35 30  36 30 00 39 13 F6 13 51  |.5).1.5060.9...Q|
00000B10: B2 31 30 3A 8B B6 28 B5  28 41 28 36 29 AD 31 30  |.10:..(.(A(6).10|
00000B20: 29 AB B5 28 41 28 31 30  29 AD 31 30 29 29 AB 33  |)..(A(10).10)).3|
00000B30: 2E 35 B3 31 A7 35 30 36  30 00 42 13 00 14 89 33  |.5.1.5060.B....3|
00000B40: 31 30 00 5E 13 70 17 47  B2 41 28 4A 29 3A 41 28  |10.^.p.G.A(J):A(|
00000B50: 4A 29 B2 41 28 49 29 3A  41 28 49 29 B2 47 00 64  |J).A(I):A(I).G.d|
00000B60: 13 7A 17 8E 00 9D 13 D4  17 99 C8 28 44 24 2C 32  |.z.........(D$,2|
00000B70: 35 29 3B 22 20 20 20 20  20 20 20 20 20 20 20 20  |5);"            |
00000B80: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000B90: 20 20 20 20 20 20 20 20  20 20 20 22 3B 00 B9 13  |           ";...|
00000BA0: D9 17 99 C8 28 44 24 2C  32 35 29 3B 22 59 4F 55  |....(D$,25);"YOU|
00000BB0: 20 48 41 56 45 22 3B 55  3B 00 CC 13 DE 17 99 22  | HAVE";U;......"|
00000BC0: 20 20 50 4F 54 20 49 53  22 3B 50 3B 00 DF 13 E8  |  POT IS";P;....|
00000BD0: 17 99 22 20 20 49 20 48  41 56 45 22 3B 57 3B 00  |.."  I HAVE";W;.|
00000BE0: E5 13 F2 17 8E 00 FD 13  38 18 45 B2 31 3A 8D 39  |........8.E.1:.9|
00000BF0: 30 30 30 3A 5A B2 52 3A  8D 38 30 30 30 00 0B 14  |000:Z.R:.8000...|
00000C00: 3D 18 45 B2 36 3A 8D 39  30 30 30 00 1E 14 42 18  |=.E.6:.9000...B.|
00000C10: 56 B2 52 3A 48 B2 B5 28  56 AD 31 30 30 29 00 24  |V.R:H..(V.100).$|
00000C20: 14 4C 18 8E 00 38 14 9C  18 42 B2 B5 28 42 29 3A  |.L...8...B..(B):|
00000C30: 8B 42 B1 55 A7 42 B2 55  00 45 14 B0 18 8B 42 B1  |.B.U.B.U.E....B.|
00000C40: 57 A7 42 B2 57 00 59 14  BA 18 51 B2 58 AA 4F 3A  |W.B.W.Y...Q.X.O:|
00000C50: 8B 58 33 B2 32 A7 51 B2  50 00 66 14 C4 18 8B 42  |.X3.2.Q.P.f....B|
00000C60: B1 51 A7 42 B2 51 00 77  14 CE 18 8B 58 33 B2 33  |.Q.B.Q.w....X3.3|
00000C70: A7 58 B2 58 AA 58 32 00  8B 14 D8 18 50 B2 50 AA  |.X.X.X2.....P.P.|
00000C80: 42 3A 8B 52 B2 32 A7 36  33 38 30 00 9B 14 E2 18  |B:.R.2.6380.....|
00000C90: 55 B2 55 AB 42 3A 89 36  33 39 30 00 A5 14 EC 18  |U.U.B:.6390.....|
00000CA0: 57 B2 57 AB 42 00 AF 14  F6 18 8D 36 31 30 30 00  |W.W.B......6100.|
00000CB0: B5 14 FB 18 8E 00 D1 14  00 19 99 22 13 22 3B C8  |...........".";.|
00000CC0: 28 44 24 2C 31 34 29 3A  99 3A 99 3A 99 3A 99 3A  |(D$,14):.:.:.:.:|
00000CD0: 99 00 D7 14 0A 19 8E 00  F3 14 64 19 99 22 13 22  |..........d.."."|
00000CE0: 3B C8 28 44 24 2C 54 29  3B 3A 8B 58 B2 30 A7 36  |;.(D$,T);:.X.0.6|
00000CF0: 35 33 30 00 03 15 6E 19  99 22 4C 49 4D 49 54 22  |530...n.."LIMIT"|
00000D00: 3B 58 3B 00 17 15 82 19  99 22 59 4F 55 52 20 42  |;X;......"YOUR B|
00000D10: 45 54 22 3B 3A 85 42 00  40 15 87 19 8B 42 B1 58  |ET";:.B.@....B.X|
00000D20: AF 58 B1 30 A7 99 22 54  4F 4F 20 4D 55 43 48 9D  |.X.0.."TOO MUCH.|
00000D30: 9D 9D 9D 9D 9D 9D 9D 91  22 3B 3A 89 36 35 31 30  |........";:.6510|
00000D40: 00 46 15 8C 19 8E 00 55  15 C8 19 99 C8 28 44 24  |.F.....U.....(D$|
00000D50: 2C 54 36 29 3B 00 63 15  D2 19 81 49 36 B2 54 36  |,T6);.c....I6.T6|
00000D60: A4 31 38 00 90 15 DC 19  99 22 20 20 20 20 20 20  |.18......"      |
00000D70: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000D80: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000D90: 00 9A 15 E6 19 82 49 36  3A 8E 00 A3 15 58 1B 54  |......I6:....X.T|
00000DA0: B2 31 34 00 AD 15 5D 1B  8D 36 35 30 30 00 BF 15  |.14...]..6500...|
00000DB0: 5F 1B 4F B2 30 3A 8B 42  B2 30 A7 37 30 32 30 00  |_.O.0:.B.0.7020.|
00000DC0: C7 15 62 1B 52 B2 31 00  D1 15 67 1B 8D 36 33 30  |..b.R.1...g..630|
00000DD0: 30 00 DF 15 69 1B 4F B2  42 3A 89 37 32 30 30 00  |0...i.O.B:.7200.|
00000DE0: F5 15 6C 1B 8B BB 28 31  29 B3 4E A7 42 B2 50 3A  |..l...(1).N.B.P:|
00000DF0: 89 37 32 35 30 00 1A 16  76 1B 99 22 13 22 3B C8  |.7250...v..".";.|
00000E00: 28 44 24 2C 54 29 3B C8  28 52 24 2C 32 38 29 3B  |(D$,T);.(R$,28);|
00000E10: 22 4D 45 20 54 4F 4F 2E  22 3B 00 20 16 80 1B 8E  |"ME TOO.";. ....|
00000E20: 00 30 16 BC 1B 54 B2 54  AA 31 3A 8D 36 35 30 30  |.0...T.T.1:.6500|
00000E30: 00 51 16 C1 1B 8B 42 B3  4F A7 99 22 59 4F 55 20  |.Q....B.O.."YOU |
00000E40: 46 4F 4C 44 22 3A 57 B2  57 AA 50 3A 50 B2 30 3A  |FOLD":W.W.P:P.0:|
00000E50: 8E 00 6F 16 C6 1B 42 B2  42 AB 4F 3A 55 B2 55 AB  |..o...B.B.O:U.U.|
00000E60: 4F 3A 50 B2 50 AA 4F 3A  52 B2 31 3A 4F B2 30 00  |O:P.P.O:R.1:O.0.|
00000E70: 85 16 CB 1B 8D 36 33 30  30 3A 4F B2 42 3A 8B 42  |.....6300:O.B:.B|
00000E80: B2 30 A7 20 8E 00 A5 16  20 1C 8B 4E B3 BB 28 31  |.0. .... ..N..(1|
00000E90: 29 A7 20 8B BB 28 31 29  B3 4F AD 28 50 AB 4F 29  |). ..(1).O.(P.O)|
00000EA0: A7 37 33 30 30 00 C4 16  2A 1C 4E B2 4E AB 31 3A  |.7300...*.N.N.1:|
00000EB0: 42 B2 4F 3A 8B 4E B1 BB  28 31 29 AA 2E 35 A7 42  |B.O:.N..(1)..5.B|
00000EC0: B2 50 AA 4F 00 D2 16 52  1C 52 B2 32 3A 8D 36 33  |.P.O...R.R.2:.63|
00000ED0: 30 30 00 E0 16 57 1C 8B  42 B1 4F A7 37 32 38 30  |00...W..B.O.7280|
00000EE0: 00 02 17 5C 1C 99 22 13  22 3B C8 28 44 24 2C 54  |...\..".";.(D$,T|
00000EF0: 29 3B C8 28 52 24 2C 32  38 29 3B 22 43 41 4C 4C  |);.(R$,28);"CALL|
00000F00: 22 3B 00 08 17 66 1C 8E  00 35 17 70 1C 4F B2 42  |";...f...5.p.O.B|
00000F10: AB 4F 3A 99 22 13 22 3B  C8 28 44 24 2C 54 29 3B  |.O:.".";.(D$,T);|
00000F20: C8 28 52 24 2C 32 38 29  3B 22 49 20 52 41 49 53  |.(R$,28);"I RAIS|
00000F30: 45 22 3B 4F 3B 00 3F 17  7A 1C 89 37 31 30 30 00  |E";O;.?.z..7100.|
00000F40: 6C 17 84 1C 99 22 13 22  3B C8 28 44 24 2C 54 29  |l....".";.(D$,T)|
00000F50: 3B C8 28 52 24 2C 32 38  29 3B 22 46 4F 4C 44 2E  |;.(R$,28);"FOLD.|
00000F60: 22 3B 3A 55 B2 55 AA 50  3A 50 B2 30 00 72 17 8E  |";:U.U.P:P.0.r..|
00000F70: 1C 8E 00 8C 17 40 1F 99  22 13 22 3B 3A 8B 45 B2  |.....@..".";:.E.|
00000F80: 36 A7 99 C8 28 44 24 2C  31 33 29 3B 00 B5 17 4A  |6...(D$,13);...J|
00000F90: 1F 81 49 B2 45 A4 45 AA  34 3A 52 38 B2 B5 28 41  |..I.E.E.4:R8..(A|
00000FA0: 28 49 29 AD 31 30 29 3A  53 38 B2 41 28 49 29 AB  |(I).10):S8.A(I).|
00000FB0: 31 30 AC 52 38 00 C3 17  4F 1F 43 24 B2 53 24 28  |10.R8...O.C$.S$(|
00000FC0: 53 38 29 00 D7 17 54 1F  99 22 92 A2 A2 A2 A2 A2  |S8)...T.."......|
00000FD0: A2 A2 22 3B 45 24 3B 00  F8 17 5E 1F 99 22 12 22  |..";E$;...^.."."|
00000FE0: 3B C8 28 52 24 28 52 38  29 2C 32 29 3B 22 20 20  |;.(R$(R8),2);"  |
00000FF0: 20 20 20 22 3B 45 24 3B  00 06 18 68 1F 4E 38 B2  |   ";E$;...h.N8.|
00001000: 4D 38 28 52 38 29 00 11  18 72 1F 81 4A B2 31 A4  |M8(R8)...r..J.1.|
00001010: 35 00 27 18 7C 1F 4B 38  B2 4E 38 AB 31 30 AC B5  |5.'.|.K8.N8.10..|
00001020: 28 4E 38 AD 31 30 29 00  33 18 81 1F 99 22 12 20  |(N8.10).3....". |
00001030: 20 22 3B 00 60 18 86 1F  91 4B 38 AA 31 89 38 31  | ";.`....K8.1.81|
00001040: 30 30 2C 38 31 31 30 2C  38 31 32 30 2C 38 31 33  |00,8110,8120,813|
00001050: 30 2C 38 31 34 30 2C 38  31 35 30 2C 38 31 36 30  |0,8140,8150,8160|
00001060: 00 73 18 A4 1F 99 22 12  20 20 20 22 3B 3A 89 38  |.s....".   ";:.8|
00001070: 32 30 30 00 8B 18 AE 1F  99 22 12 20 22 3B 43 24  |200......". ";C$|
00001080: 3B 22 20 22 3B 3A 89 38  32 30 30 00 A5 18 B8 1F  |;" ";:.8200.....|
00001090: 99 22 12 22 3B 43 24 3B  22 20 22 3B 43 24 3B 3A  |.".";C$;" ";C$;:|
000010A0: 89 38 32 30 30 00 BE 18  C2 1F 99 22 12 22 3B 43  |.8200......".";C|
000010B0: 24 3B 43 24 3B 43 24 3B  3A 89 38 32 30 30 00 D8  |$;C$;C$;:.8200..|
000010C0: 18 CC 1F 99 22 12 22 3B  43 24 3B 43 24 3B 22 20  |....".";C$;C$;" |
000010D0: 22 3B 3A 89 38 32 30 30  00 EF 18 D6 1F 99 22 12  |";:.8200......".|
000010E0: 20 22 3B 43 24 3B 43 24  3B 3A 89 38 32 30 30 00  | ";C$;C$;:.8200.|
000010F0: 04 19 E0 1F 99 22 12 20  20 22 3B 43 24 3B 3A 89  |.....".  ";C$;:.|
00001100: 38 32 30 30 00 13 19 08  20 99 22 12 20 20 22 3B  |8200.... .".  ";|
00001110: 45 24 3B 00 23 19 12 20  4E 38 B2 B5 28 4E 38 AD  |E$;.#.. N8..(N8.|
00001120: 31 30 29 00 2A 19 1C 20  82 4A 00 48 19 26 20 99  |10).*.. .J.H.& .|
00001130: 22 12 20 20 20 20 20 22  3B C9 28 52 24 28 52 38  |".     ";.(R$(R8|
00001140: 29 2C 32 29 3B 45 24 3B  00 59 19 30 20 99 22 12  |),2);E$;.Y.0 .".|
00001150: A2 A2 A2 A2 A2 A2 A2 22  3B 00 76 19 3A 20 8B 45  |.......";.v.: .E|
00001160: B2 31 A7 99 22 92 9D 9D  9D 9D 9D 11 22 3B 49 3B  |.1..".......";I;|
00001170: 22 91 1D 1D 22 3B 00 88  19 44 20 99 22 1D 91 91  |"...";...D ."...|
00001180: 91 91 91 91 91 91 22 3B  00 90 19 4E 20 82 20 49  |......";...N . I|
00001190: 00 96 19 58 20 8E 00 9E  19 28 23 52 B2 31 00 C8  |...X ....(#R.1..|
000011A0: 19 32 23 81 49 B2 45 A4  45 AA 33 3A 81 4A B2 49  |.2#.I.E.E.3:.J.I|
000011B0: AA 31 A4 45 AA 34 3A 8B  41 28 49 29 B3 41 28 4A  |.1.E.4:.A(I).A(J|
000011C0: 29 A7 20 8D 36 30 30 30  00 D2 19 3C 23 82 4A 3A  |). .6000...<#.J:|
000011D0: 82 49 00 02 1A 46 23 81  49 B2 45 A4 45 AA 33 3A  |.I...F#.I.E.E.3:|
000011E0: 81 4A B2 49 AA 31 A4 45  AA 34 3A 8B 41 28 49 29  |.J.I.1.E.4:.A(I)|
000011F0: B3 41 28 4A 29 AA 34 A7  20 52 B2 52 AA 31 3A 51  |.A(J).4. R.R.1:Q|
00001200: B2 49 00 0C 1A 50 23 82  4A 3A 82 49 00 38 1A 55  |.I...P#.J:.I.8.U|
00001210: 23 91 20 52 20 89 39 30  35 30 2C 39 32 30 30 2C  |#. R .9050,9200,|
00001220: 39 33 30 30 2C 39 34 30  30 2C 39 34 30 30 2C 39  |9300,9400,9400,9|
00001230: 30 35 30 2C 39 34 30 30  00 57 1A 5A 23 52 B2 31  |050,9400.W.Z#R.1|
00001240: 30 30 3A 8B 41 28 45 29  B3 41 28 45 AA 34 29 AA  |00:.A(E).A(E.4).|
00001250: 34 34 A7 39 30 38 30 00  71 1A 64 23 8B 41 28 45  |44.9080.q.d#.A(E|
00001260: 29 AB 41 28 45 AA 31 29  B1 38 39 A7 52 B2 35 30  |).A(E.1).89.R.50|
00001270: 35 00 7B 1A 6E 23 89 39  31 30 30 00 90 1A 78 23  |5.{.n#.9100...x#|
00001280: 52 B2 35 30 30 AA B5 28  41 28 45 29 AD 31 30 29  |R.500..(A(E).10)|
00001290: 00 A9 1A 8C 23 4A B2 41  28 45 29 AB 31 30 AC B5  |....#J.A(E).10..|
000012A0: 28 41 28 45 29 AD 31 30  29 00 B8 1A 96 23 81 49  |(A(E).10)....#.I|
000012B0: B2 45 AA 31 A4 45 AA 34  00 D8 1A A0 23 8B 4A B3  |.E.1.E.4....#.J.|
000012C0: B1 41 28 49 29 AB B5 28  41 28 49 29 AD 31 30 29  |.A(I)..(A(I).10)|
000012D0: AC 31 30 A7 39 31 39 30  00 DF 1A AA 23 82 49 00  |.10.9190....#.I.|
000012E0: F9 1A B4 23 52 B2 52 AA  35 30 30 AB 31 30 30 AC  |...#R.R.500.100.|
000012F0: B5 28 52 AD 31 30 30 30  29 00 FF 1A E6 23 8E 00  |.(R.1000)....#..|
00001300: 14 1B F0 23 52 B2 32 30  30 AA B5 28 41 28 51 29  |...#R.200..(A(Q)|
00001310: AD 31 30 29 00 1A 1B FA  23 8E 00 42 1B 54 24 52  |.10)....#..B.T$R|
00001320: B2 33 30 30 AA B5 28 41  28 45 AA 31 29 AD 31 30  |.300..(A(E.1).10|
00001330: 29 AA B5 28 41 28 45 AA  33 29 AD 31 30 29 AD 31  |)..(A(E.3).10).1|
00001340: 30 30 00 48 1B 5E 24 8E  00 73 1B B8 24 52 B2 31  |00.H.^$..s..$R.1|
00001350: 30 30 AC 28 52 AA 32 AC  B5 28 52 AD 35 29 AB B5  |00.(R.2..(R.5)..|
00001360: 28 52 AD 37 29 29 AA B5  28 41 28 45 AA 32 29 AD  |(R.7))..(A(E.2).|
00001370: 31 30 29 00 79 1B C2 24  8E 00 8A 1B 1C 25 99 22  |10).y..$.....%."|
00001380: 93 11 11 11 11 11 11 11  11 22 00 9E 1B 26 25 87  |........."...&%.|
00001390: 41 24 3A 8B 41 24 B2 22  22 A7 39 35 34 30 00 C0  |A$:.A$."".9540..|
000013A0: 1B 30 25 81 49 B2 31 A4  B5 28 28 34 30 AB C3 28  |.0%.I.1..((40..(|
000013B0: 41 24 29 29 AD 32 29 3A  99 22 20 22 3B 3A 82 49  |A$)).2):." ";:.I|
000013C0: 00 CE 1B 3A 25 99 41 24  3A 89 39 35 31 30 00 DF  |...:%.A$:.9510..|
000013D0: 1B 44 25 81 49 B2 31 A4  31 30 30 30 3A 82 49 00  |.D%.I.1.1000:.I.|
000013E0: EA 1B 4E 25 99 22 93 22  3A 8E 00 18 1C 80 25 99  |..N%.".":.....%.|
000013F0: 22 93 50 4F 4B 45 52 20  49 53 20 50 4C 41 59 45  |".POKER IS PLAYE|
00001400: 44 20 49 4E 20 41 20 53  45 52 49 45 53 20 4F 46  |D IN A SERIES OF|
00001410: 20 48 41 4E 44 53 2E 22  00 49 1C 8A 25 99 22 49  | HANDS.".I..%."I|
00001420: 4E 20 41 20 48 41 4E 44  2C 20 45 41 43 48 20 50  |N A HAND, EACH P|
00001430: 4C 41 59 45 52 20 52 45  43 45 49 56 45 53 20 35  |LAYER RECEIVES 5|
00001440: 20 43 41 52 44 53 2E 22  3B 00 77 1C 94 25 99 22  | CARDS.";.w..%."|
00001450: 42 4F 54 48 20 50 4C 41  59 45 52 53 20 42 45 54  |BOTH PLAYERS BET|
00001460: 2E 20 54 48 45 4E 20 45  41 43 48 20 50 4C 41 59  |. THEN EACH PLAY|
00001470: 45 52 20 43 41 4E 22 00  A5 1C 9E 25 99 22 44 52  |ER CAN"....%."DR|
00001480: 41 57 20 43 41 52 44 53  20 54 4F 20 52 45 50 4C  |AW CARDS TO REPL|
00001490: 41 43 45 20 54 48 45 20  4F 4E 45 53 20 48 45 20  |ACE THE ONES HE |
000014A0: 48 41 53 2E 22 00 D6 1C  A8 25 99 22 42 4F 54 48  |HAS."....%."BOTH|
000014B0: 20 50 4C 41 59 45 52 53  20 42 45 54 20 41 47 41  | PLAYERS BET AGA|
000014C0: 49 4E 2E 20 57 48 45 4E  20 54 48 45 20 50 4C 41  |IN. WHEN THE PLA|
000014D0: 59 45 52 53 22 3B 00 02  1D B2 25 99 22 53 48 4F  |YERS";....%."SHO|
000014E0: 57 20 54 48 45 49 52 20  43 41 52 44 53 2C 20 54  |W THEIR CARDS, T|
000014F0: 48 45 20 53 54 52 4F 4E  47 45 53 54 20 48 41 4E  |HE STRONGEST HAN|
00001500: 44 22 00 1C 1D BC 25 99  22 57 49 4E 53 20 41 53  |D"....%."WINS AS|
00001510: 20 46 4F 4C 4C 4F 57 53  3A 22 3A 99 00 4D 1D C6  | FOLLOWS:":..M..|
00001520: 25 99 22 53 54 52 41 49  47 48 54 20 46 4C 55 53  |%."STRAIGHT FLUS|
00001530: 48 20 28 43 4F 4E 53 45  43 2E 20 43 41 52 44 53  |H (CONSEC. CARDS|
00001540: 20 4F 46 20 31 20 53 55  49 54 29 22 3B 00 60 1D  | OF 1 SUIT)";.`.|
00001550: D0 25 99 22 34 20 4F 46  20 41 20 4B 49 4E 44 22  |.%."4 OF A KIND"|
00001560: 00 8F 1D DA 25 99 22 46  55 4C 4C 20 48 4F 55 53  |....%."FULL HOUS|
00001570: 45 20 28 33 20 4F 46 20  31 20 52 41 4E 4B 20 26  |E (3 OF 1 RANK &|
00001580: 20 32 20 4F 46 20 41 4E  4F 54 48 45 52 29 22 00  | 2 OF ANOTHER)".|
00001590: AE 1D E4 25 99 22 46 4C  55 53 48 20 28 41 4C 4C  |...%."FLUSH (ALL|
000015A0: 20 4F 46 20 4F 4E 45 20  53 55 49 54 29 22 00 D4  | OF ONE SUIT)"..|
000015B0: 1D EE 25 99 22 53 54 52  41 49 47 48 54 20 28 35  |..%."STRAIGHT (5|
000015C0: 20 43 4F 4E 53 45 43 55  54 49 56 45 20 43 41 52  | CONSECUTIVE CAR|
000015D0: 44 53 29 22 00 E7 1D F8  25 99 22 33 20 4F 46 20  |DS)"....%."3 OF |
000015E0: 41 20 4B 49 4E 44 22 00  1C 1E 02 26 99 22 32 20  |A KIND"....&."2 |
000015F0: 50 41 49 52 53 22 3A 99  22 31 20 50 41 49 52 22  |PAIRS":."1 PAIR"|
00001600: 3A 99 22 43 41 52 44 20  4F 46 20 54 48 45 20 48  |:."CARD OF THE H|
00001610: 49 47 48 45 53 54 20 52  41 4E 4B 22 00 26 1E 0C  |IGHEST RANK".&..|
00001620: 26 8D 39 39 39 30 00 54  1E 16 26 99 22 93 59 4F  |&.9990.T..&.".YO|
00001630: 55 20 53 54 41 52 54 20  45 41 43 48 20 52 4F 55  |U START EACH ROU|
00001640: 4E 44 20 4F 46 20 42 45  54 54 49 4E 47 2E 20 57  |ND OF BETTING. W|
00001650: 48 45 4E 22 00 7A 1E 20  26 99 22 4F 4E 45 20 50  |HEN".z. &."ONE P|
00001660: 4C 41 59 45 52 20 42 45  54 53 20 54 48 45 20 4F  |LAYER BETS THE O|
00001670: 54 48 45 52 20 4D 41 59  3A 22 00 A1 1E 2A 26 99  |THER MAY:"...*&.|
00001680: 22 46 4F 4C 44 2D 2D 4F  52 20 52 45 53 49 47 4E  |"FOLD--OR RESIGN|
00001690: 20 42 59 20 42 45 54 54  49 4E 47 20 4C 45 53 53  | BY BETTING LESS|
000016A0: 22 00 D0 1E 34 26 99 22  43 41 4C 4C 2D 2D 54 4F  |"...4&."CALL--TO|
000016B0: 20 53 48 4F 57 20 43 41  52 44 53 20 42 59 20 42  | SHOW CARDS BY B|
000016C0: 45 54 54 49 4E 47 20 54  48 45 20 53 41 4D 45 22  |ETTING THE SAME"|
000016D0: 00 1A 1F 3E 26 99 22 52  41 49 53 45 2D 2D 42 59  |...>&."RAISE--BY|
000016E0: 20 42 45 54 54 49 4E 47  20 4D 4F 52 45 2E 20 54  | BETTING MORE. T|
000016F0: 48 45 20 4F 50 50 4F 4E  45 4E 54 22 3A 99 22 4D  |HE OPPONENT":."M|
00001700: 55 53 54 20 52 45 50 4C  59 20 54 4F 20 54 48 45  |UST REPLY TO THE|
00001710: 20 4E 45 57 20 42 45 54  2E 22 00 47 1F 48 26 99  | NEW BET.".G.H&.|
00001720: 3A 99 22 49 46 20 59 4F  55 20 46 4F 4C 44 2C 20  |:."IF YOU FOLD, |
00001730: 59 4F 55 20 4C 4F 53 45  20 4F 4E 4C 59 20 57 48  |YOU LOSE ONLY WH|
00001740: 41 54 20 59 4F 55 22 00  73 1F 52 26 99 22 50 52  |AT YOU".s.R&."PR|
00001750: 45 56 49 4F 55 53 4C 59  20 42 45 54 2C 20 41 4E  |EVIOUSLY BET, AN|
00001760: 44 20 54 48 45 20 48 41  4E 44 20 45 4E 44 53 2E  |D THE HAND ENDS.|
00001770: 22 3A 99 00 A0 1F 5C 26  99 22 54 48 45 20 4D 41  |":....\&."THE MA|
00001780: 58 49 4D 55 4D 20 41 4D  4F 55 4E 54 20 59 4F 55  |XIMUM AMOUNT YOU|
00001790: 20 43 41 4E 20 42 45 54  20 43 41 4E 20 42 45 22  | CAN BET CAN BE"|
000017A0: 00 CD 1F 66 26 99 22 41  20 46 49 58 45 44 20 4C  |...f&."A FIXED L|
000017B0: 49 4D 49 54 2C 20 54 48  45 20 41 4D 4F 55 4E 54  |IMIT, THE AMOUNT|
000017C0: 20 49 4E 20 54 48 45 20  50 4F 54 2C 22 00 FB 1F  | IN THE POT,"...|
000017D0: 70 26 99 22 4F 52 20 41  4E 20 49 4E 43 52 45 41  |p&."OR AN INCREA|
000017E0: 53 49 4E 47 20 41 4D 4F  55 4E 54 20 57 49 54 48  |SING AMOUNT WITH|
000017F0: 20 45 41 43 48 20 42 45  54 2E 22 00 21 20 06 27  | EACH BET.".! .'|
00001800: 99 3A 99 22 54 4F 20 43  4F 4E 54 49 4E 55 45 2C  |.:."TO CONTINUE,|
00001810: 20 50 52 45 53 53 20 41  4E 59 20 4B 45 59 2E 22  | PRESS ANY KEY."|
00001820: 3B 00 35 20 0B 27 A1 41  24 3A 8B 41 24 B2 22 22  |;.5 .'.A$:.A$.""|
00001830: A7 39 39 39 35 00 3B 20  0F 27 8E 00 41 20 10 27  |.9995.; .'..A .'|
00001840: 80 00 00 00                                       |....            |

......."*** POKER ***".8...."PROGRAM COP
YRIGHT (C) 1978".L...."FRANK KULASH".O..
.."RECORDING FOR COMMODORE PET"......"CO
PYRIGHT (C) 1978"...#.."PERSONAL SOFTWAR
E"...(.."P.O. BOX 136".W.-.."CAMBRIDGE, 
MASS. 02138",""...2..A(75),M8(14),V$(9),
R$(14),S$(4)...4..9500.6.7.S$(1).".X":S$
(2).".Z":S$(3).".S":S$(4).".A".S.<..I.2.
14:.R$(I),M8(I):. I...A.." 22 ",1010," 3
3 ",10101," 44 ",20002," 55 ",20102," 66
 ",20202.Q.B.." 77 ",20212," 88 ",21212,
" 99 ",22212,"1010",23212...C.." JJ ",12
666," QQ ",52221," KK ",22422," AA ",100
.+.D.."DO YOU NEED INSTRUCTIONS";A$.B.E.
.H(A$,1)."Y"..9600.H.F..".WOULD YOU LIKE
 TO PLAY WITH":....G.."1. FIXED LIMITS":
."2. POT LIMIT"...H.."3. INCREASING LIMI
T":..E.I.."ENTER NUMBER";:.X3.V.J..X3.75
,76,77...K.."PRE-DRAW LIMIT";:.X1:."POST
-DRAW LIMIT";:.X2:.80...L.X1.0:X2.0:.80.
Q.M.."INITIAL BET";:.X1:."INCREASING BY"
;:.X2:.80.W.P.....D.K.1:.I.1.4:.J.2.14:A
(K).10.J.I:K.K.1:.J:.I...X.U.100:W.U:B$.
"        ":.I.53.70:.A(I):.I......423,12
3,202,212,0,0,0,10,0,1,2,2.5,4,5,6,6,9,9
.....R$."...............................
.........".@...D$.".....................
.......".R. .E$."........".G....I.1.9:.V
$(I):.I......"NO PAIR","ONE PAIR","TWO P
AIR","3 OF A KIND","STRAIGHT"......"FLUS
H","FULL HOUSE","4 OF A KIND","STRAIGHT 
FLUSH"...H..I.1.20:J.1.52..(1):.6000:.I.
..R..".":.6200:P.2:U.U.1:W.W.1.'...X.X1.
1....6100.G....H(D$,12);"YOUR HAND=";B$;
".......";V$(.(Z.100));.Q...T6.15...,..V
.100.5000...6.D.A(52.H):R.1.10..(1):.R.7
.320...;.D.D.10:.R.7.D.D.10.Q.@.D..(D.10
..(D.10))...J.M.A(61.H)..(1).(V.100.H).1
5.D...T.N.M:.7000:.P.0.900.'....H(D$,13)
;"HOW MANY";:.C.7...T6.14:.6600.J.... .(
C.3).2.500.T....6400.K....I.71.75:A(I).0
:.I......K.1.C:T$.H(D$,K.14)......T$;B$;
"#";:.I:..(I.3).2.430.....I..(I):.A(70.I
).0.430...B.J.I.10:.6000:A(70.I).1:.K...
...F.1.550.....R.D:.I.10.6..1:.K.6.10:..
....I.K.532.2.....(A(I).10)..(A(K).10).5
40.9....K.Y...J.I.10:.6000:R.R.1:.R.0.55
0.`....I...&..H(D$,13);H(R$,27);"I TAKE"
;D;...X..6200...B.N.(M.3.A(61.H).C.D..(1
)).4.(V.100.H).15.1...L..".";H(D$,12);"Y
OUR HAND=  ";V$(.(Z.100));...{..X3.3.X.X
2...}..6600......6400:.7000. ....P.0.900
.H. .T6.13:.6600:E.6:.8000:.".";H(D$,11)
.E.".U$.V$(.(Z.100)):W$.V$(H).R.%..V.Z.8
90..*..V.Z.880...>..I.1.5:.A(I).A(I.5).
4.880...H..A(I).A(I.5).4.890...R..I...F.
."WE TIE";W.W.P.2:U.U.P.2:.900...P.."YOU
R ";U$;" BEAT MY ";W$;:U.U.P:.900./.Z.."
MY ";W$;" BEAT YOUR ";U$;:W.W.P.>....U.W
.0.950.W...P.0:.6100:.H(D$,24);......"..
PRESS ANY KEY TO CONTINUE, 'Q' TO QUIT."
......Q$:.Q$."".910......Q$.."Q".200....
..".";:.U.W.970......"I.O.U. ";100.W:.10
000...J.."THAT WILL BE $";100.U;"IN CASH
..."...T.."WITH NO FAST MOVES, PLEASE.":
.10000.O...F.0:R.A(6).10..(A(6).10):Q.0.
[....I.7.10......A(5).10..(A(5).10)..A(I
).10..(A(I).10).Q.Q.I......I......Q.10.5
100......Q.0.Q.6...D.I.Q:J.Q.10.I.I..600
0.Z.N.D.1:F.1:.330.....Q.6:..((.(A(7).10
)..(A(10).10)).3.5).1.5060.9...Q.10:..(.
(A(6).10)..(A(10).10)).3.5.1.5060.B....3
10.^.P.G.A(J):A(J).A(I):A(I).G.D.Z.....T
..H(D$,25);"                            
           ";...Y..H(D$,25);"YOU HAVE";U
;.L...."  POT IS";P;......"  I HAVE";W;.
........8.E.1:.9000:Z.R:.8000...=.E.6:.9
000...B.V.R:H..(V.100).$.L...8...B..(B):
.B.U.B.U.E....B.W.B.W.Y...Q.X.O:.X3.2.Q.
P.F.D..B.Q.B.Q.W.N..X3.3.X.X.X2...X.P.P.
B:.R.2.6380.....U.U.B:.6390.....W.W.B...
...6100.......Q....".";H(D$,14):.:.:.:.:
..W.......D..".";H(D$,T);:.X.0.6530...N.
."LIMIT";X;......"YOUR BET";:.B.@....B.X
.X.0.."TOO MUCH.........";:.6510.F.....U
.H..H(D$,T6);.C.R..I6.T6.18......"      
                               "......I6
:....X.T.14...]..6500..._.O.0:.B.0.7020.
G.B.R.1.Q.G..6300...I.O.B:.7200...L...(1
).N.B.P:.7250...V..".";H(D$,T);H(R$,28);
"ME TOO.";. .....0...T.T.1:.6500.Q.A..B.
O.."YOU FOLD":W.W.P:P.0:..O.F.B.B.O:U.U.
O:P.P.O:R.1:O.0...K..6300:O.B:.B.0. ....
 ..N..(1). ..(1).O.(P.O).7300.D.*.N.N.1:
B.O:.N..(1)..5.B.P.O.R.R.R.2:.6300...W..
B.O.7280...\..".";H(D$,T);H(R$,28);"CALL
";...F...5.P.O.B.O:.".";H(D$,T);H(R$,28)
;"I RAISE";O;.?.Z..7100.L....".";H(D$,T)
;H(R$,28);"FOLD.";:U.U.P:P.0.R.......@..
".";:.E.6..H(D$,13);...J..I.E.E.4:R8..(A
(I).10):S8.A(I).10.R8.C.O.C$.S$(S8).W.T.
."........";E$;...^..".";H(R$(R8),2);"  
   ";E$;...H.N8.M8(R8)...R..J.1.5.'.|.K8
.N8.10..(N8.10).3....".  ";.`....K8.1.81
00,8110,8120,8130,8140,8150,8160.S....".
   ";:.8200......". ";C$;" ";:.8200.....
.".";C$;" ";C$;:.8200...B..".";C$;C$;C$;
:.8200.X.L..".";C$;C$;" ";:.8200...V..".
 ";C$;C$;:.8200......".  ";C$;:.8200....
 .".  ";E$;.#.. N8..(N8.10).*.. .J.H.& .
".     ";I(R$(R8),2);E$;.Y.0 ."........"
;.V.: .E.1..".......";I;"...";...D ."...
......";...N . I...X ....(#R.1.H.2#.I.E.
E.3:.J.I.1.E.4:.A(I).A(J). .6000.R.<#.J:
.I...F#.I.E.E.3:.J.I.1.E.4:.A(I).A(J).4.
 R.R.1:Q.I...P#.J:.I.8.U#. R .9050,9200,
9300,9400,9400,9050,9400.W.Z#R.100:.A(E)
.A(E.4).44.9080.Q.D#.A(E).A(E.1).89.R.50
5.{.N#.9100...X#R.500..(A(E).10)....#J.A
(E).10..(A(E).10)....#.I.E.1.E.4.X. #.J.
.A(I)..(A(I).10).10.9190....#.I....#R.R.
500.100..(R.1000)....#.....#R.200..(A(Q)
.10)....#..B.T$R.300..(A(E.1).10)..(A(E.
3).10).100.H.^$..S..$R.100.(R.2..(R.5)..
(R.7))..(A(E.2).10).Y.B$.....%."........
."...&%.A$:.A$."".9540...0%.I.1..((40.C(
A$)).2):." ";:.I.N.:%.A$:.9510...D%.I.1.
1000:.I...N%.".":.....%.".POKER IS PLAYE
D IN A SERIES OF HANDS.".I..%."IN A HAND
, EACH PLAYER RECEIVES 5 CARDS.";.W..%."
BOTH PLAYERS BET. THEN EACH PLAYER CAN".
...%."DRAW CARDS TO REPLACE THE ONES HE 
HAS.".V..%."BOTH PLAYERS BET AGAIN. WHEN
 THE PLAYERS";....%."SHOW THEIR CARDS, T
HE STRONGEST HAND"....%."WINS AS FOLLOWS
:":..M.F%."STRAIGHT FLUSH (CONSEC. CARDS
 OF 1 SUIT)";.`.P%."4 OF A KIND"...Z%."F
ULL HOUSE (3 OF 1 RANK & 2 OF ANOTHER)".
...%."FLUSH (ALL OF ONE SUIT)".T..%."STR
AIGHT (5 CONSECUTIVE CARDS)"....%."3 OF 
A KIND"....&."2 PAIRS":."1 PAIR":."CARD 
OF THE HIGHEST RANK".&..&.9990.T..&.".YO
U START EACH ROUND OF BETTING. WHEN".Z. 
&."ONE PLAYER BETS THE OTHER MAY:"...*&.
"FOLD--OR RESIGN BY BETTING LESS".P.4&."
CALL--TO SHOW CARDS BY BETTING THE SAME"
...>&."RAISE--BY BETTING MORE. THE OPPON
ENT":."MUST REPLY TO THE NEW BET.".G.H&.
:."IF YOU FOLD, YOU LOSE ONLY WHAT YOU".
S.R&."PREVIOUSLY BET, AND THE HAND ENDS.
":.. .\&."THE MAXIMUM AMOUNT YOU CAN BET
 CAN BE".M.F&."A FIXED LIMIT, THE AMOUNT
 IN THE POT,"...P&."OR AN INCREASING AMO
UNT WITH EACH BET.".! .'.:."TO CONTINUE,
 PRESS ANY KEY.";.5 .'.A$:.A$."".9995.; 
.'..A .'....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL