DRAW POKER
FILE INFORMATION
FILENAME(S): DRAW POKER
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-10-19 22:49:51
APPEARS ON: 2 disk(s)
FILE HASH
330f91ce5038d4dd2d37cc10f99fe209d10ebbc37385a3f8c9358103c1f64836
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MICRO MANIAC | DRAW POKER | PRG | Radd Maxx | 15 | 6 | DOWNLOAD FILE |
| VEGAS GAMES | DRAW POKER | PRG | High Voltage Complete C64 Collection, Markus Merz | 13 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 36 08 02 00 99 |.......910.6....|
00000010: 22 78 A9 1D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x..........X` .|
00000020: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000030: 8D 15 03 58 60 20 00 61 08 03 00 99 22 78 A9 47 |...X` .a...."x.G|
00000040: 85 90 A9 04 85 91 58 60 20 EA FF A9 FF 85 9B 4C |......X` ......L|
00000050: 58 E4 78 A9 55 85 90 A9 E4 85 91 58 60 20 20 20 |X.x.U......X` |
00000060: 20 00 80 08 04 00 99 22 78 68 68 68 AA 68 A8 68 | ......"xhhh.h.h|
00000070: 68 68 68 68 68 68 98 48 8A 48 58 60 20 20 20 20 |hhhhhh.H.HX` |
00000080: 00 91 08 05 00 99 22 68 68 68 68 68 68 68 60 20 |......"hhhhhhh` |
00000090: 20 00 B8 08 06 00 99 22 A0 FF C8 84 FB A9 D8 85 | ......"........|
000000A0: FC 20 F1 B7 8A A2 04 A0 FF C8 91 FB 88 D0 FB E6 |. ..............|
000000B0: FC CA D0 F6 60 20 20 20 00 D5 08 07 00 99 22 A2 |....` ......".|
000000C0: 04 A0 FF C8 B1 FB 91 FD 88 D0 F9 E6 FC E6 FE CA |................|
000000D0: D0 F2 60 20 20 00 E8 08 23 00 8B 55 57 B2 30 A7 |..` ...#..UW.0.|
000000E0: 8F 53 59 53 55 55 2C 32 00 12 09 28 00 97 55 43 |.SYSUU,2...(..UC|
000000F0: 2C 30 3A 97 55 4E 2C 30 3A 55 52 24 B2 22 22 3A |,0:.UN,0:UR$."":|
00000100: 55 49 24 B2 22 22 3A 8B 55 4C B2 30 A7 55 4C B2 |UI$."":.UL.0.UL.|
00000110: 33 39 00 2C 09 2D 00 99 22 05 22 3B 3A A1 55 49 |39.,.-..".";:.UI|
00000120: 24 3A 8B 55 49 24 B2 22 22 A7 34 35 00 61 09 32 |$:.UI$."".45.a.2|
00000130: 00 55 41 B2 C6 28 55 49 24 29 3A 55 52 B2 C3 28 |.UA..(UI$):UR..(|
00000140: 55 52 24 29 3A 8B 55 41 B2 31 33 AF 55 52 B1 30 |UR$):.UA.13.UR.0|
00000150: A7 97 55 43 2C 32 3A 99 22 20 9D 22 3B 3A 89 37 |..UC,2:." .";:.7|
00000160: 30 00 96 09 37 00 8B 55 41 B2 32 30 A7 91 AB 28 |0...7..UA.20...(|
00000170: 55 52 B2 30 29 89 34 35 3A 55 52 24 B2 C8 28 55 |UR.0).45:UR$..(U|
00000180: 52 24 2C 55 52 AB 31 29 3A 99 22 9D 20 20 9D 9D |R$,UR.1):.". ..|
00000190: 22 3B 3A 89 34 35 00 A4 09 3C 00 8B 55 52 B2 55 |";:.45...<..UR.U|
000001A0: 4C A7 34 35 00 C2 09 41 00 8D 39 35 3A 55 52 24 |L.45...A..95:UR$|
000001B0: B2 55 52 24 AA 55 49 24 3A 99 55 49 24 3B 3A 89 |.UR$.UI$:.UI$;:.|
000001C0: 34 35 00 DB 09 46 00 8B 55 52 24 B2 55 58 24 A7 |45...F..UR$.UX$.|
000001D0: 99 22 9D 20 22 3B 3A 89 31 34 35 00 FE 09 4B 00 |.". ";:.145...K.|
000001E0: 81 55 49 B2 55 52 A4 31 A9 AB 31 3A 8B CA 28 55 |.UI.UR.1..1:..(U|
000001F0: 52 24 2C 55 49 2C 31 29 B2 22 20 22 A7 82 00 14 |R$,UI,1)." "....|
00000200: 0A 50 00 55 52 24 B2 C8 28 55 52 24 2C 55 49 29 |.P.UR$..(UR$,UI)|
00000210: 3A 99 3A 8E 00 26 0A 5F 00 8B C3 28 55 53 24 29 |:.:..&._...(US$)|
00000220: B2 30 A7 31 31 30 00 52 0A 64 00 81 55 49 B2 31 |.0.110.R.d..UI.1|
00000230: A4 C3 28 55 53 24 29 3A 8B 55 49 24 B3 B1 CA 28 |..(US$):.UI$...(|
00000240: 55 53 24 2C 55 49 2C 31 29 A7 82 3A 55 49 24 B2 |US$,UI,1)..:UI$.|
00000250: 22 22 00 58 0A 69 00 8E 00 65 0A 6E 00 8B 55 41 |"".X.i...e.n..UA|
00000260: B2 34 36 A7 8E 00 78 0A 73 00 8B 55 41 B2 33 32 |.46...x.s..UA.32|
00000270: AF 55 52 B3 B1 30 A7 8E 00 8B 0A 78 00 8B 55 41 |.UR..0.....x..UA|
00000280: B1 34 37 AF 55 41 B3 35 38 A7 8E 00 9E 0A 7D 00 |.47.UA.58.....}.|
00000290: 8B 55 41 B1 36 34 AF 55 41 B3 39 31 A7 8E 00 BA |.UA.64.UA.91....|
000002A0: 0A 82 00 8B 55 41 B3 31 39 33 B0 55 41 B1 32 31 |....UA.193.UA.21|
000002B0: 38 A7 55 49 24 B2 22 22 3A 8E 00 D7 0A 87 00 8B |8.UI$."":.......|
000002C0: C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 |.(UT).UU%.UI$..(|
000002D0: 55 41 AB 31 32 38 29 00 DD 0A 8C 00 8E 00 0C 0B |UA.128).........|
000002E0: 91 00 8D 31 37 30 3A 97 32 35 31 2C 30 3A 97 32 |...170:.251,0:.2|
000002F0: 35 32 2C 55 53 AD 32 35 36 3A 97 32 35 33 2C 30 |52,US.256:.253,0|
00000300: 3A 97 32 35 34 2C 55 46 3A 9E 55 56 00 24 0B 96 |:.254,UF:.UV.$..|
00000310: 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 3A |.UZ.1:UV%..(UT):|
00000320: 89 33 30 30 00 69 0B 9B 00 55 5A B2 30 3A 55 53 |.300.i...UZ.0:US|
00000330: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 54 |$.UJ$:UG$.UK$:UT|
00000340: 24 B2 55 4C 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 |$.UL$:UP.UJ:UL.U|
00000350: 4B 3A 99 22 93 22 3B 3A 8B 55 57 B2 30 A7 97 55 |K:.".";:.UW.0..U|
00000360: 59 2C 30 3A 97 55 58 2C 30 00 A8 0B A0 00 97 55 |Y,0:.UX,0......U|
00000370: 54 2C 55 56 25 3A 97 32 35 31 2C 30 3A 97 32 35 |T,UV%:.251,0:.25|
00000380: 32 2C 55 46 3A 97 32 35 33 2C 30 3A 97 32 35 34 |2,UF:.253,0:.254|
00000390: 2C 55 53 AD 32 35 36 3A 9E 55 56 3A 8B 55 57 B2 |,US.256:.UV:.UW.|
000003A0: 30 A7 9E 55 55 2C 31 35 00 D2 0B A5 00 97 55 31 |0..UU,15......U1|
000003B0: 2C 55 31 25 3A 97 55 32 2C 55 32 25 3A 97 55 33 |,U1%:.U2,U2%:.U3|
000003C0: 2C 55 33 25 AB 31 3A 97 55 34 2C 55 34 25 3A 89 |,U3%.1:.U4,U4%:.|
000003D0: 33 35 00 FE 0B AA 00 55 31 25 B2 C2 28 55 31 29 |35.....U1%..(U1)|
000003E0: 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 |:U2%..(U2):U3%..|
000003F0: 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 28 |(U3):U4%..(U4).(|
00000400: 0C AF 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 |...UJ$.US$:UK$.U|
00000410: 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 |G$:UL$.UT$:UJ.UP|
00000420: 3A 55 4B B2 55 4C 3A 8E 00 4D 0C 2C 01 99 22 93 |:UK.UL:..M.,..".|
00000430: 11 22 3A 97 55 54 2C 55 55 25 3A 8B 55 57 B2 30 |.":.UT,UU%:.UW.0|
00000440: A7 97 55 59 2C 30 20 3A 97 55 58 2C 30 00 72 0C |..UY,0 :.UX,0.r.|
00000450: 31 01 99 22 1C 11 11 11 20 20 20 20 20 20 20 20 |1..".... |
00000460: 20 20 20 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C9 | .........|
00000470: 20 22 00 A1 0C 36 01 99 22 20 20 20 20 20 20 20 | "...6.." |
00000480: D5 C0 C0 C0 C0 C0 C0 C0 C2 05 4D 20 45 20 4E 20 |..........M E N |
00000490: 55 1C C2 C0 C0 C0 C0 C0 C0 C0 C9 20 20 20 20 20 |U.......... |
000004A0: 22 00 C8 0C 37 01 99 22 20 20 20 20 20 20 20 C2 |"...7.." .|
000004B0: 20 20 20 20 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 CB | .........|
000004C0: 20 20 20 20 20 20 20 C2 00 F4 0C 38 01 99 22 20 | ....8.." |
000004D0: 20 20 20 20 20 20 C2 20 20 20 20 20 20 20 20 20 | . |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 20 | . |
000004F0: 20 20 20 22 00 22 0D 3B 01 99 22 20 20 20 20 20 | ".".;.." |
00000500: 20 20 C2 20 05 20 31 2E 20 20 49 4E 53 54 52 55 | . . 1. INSTRU|
00000510: 43 54 49 4F 4E 53 20 1C 20 20 20 20 C2 20 20 20 |CTIONS . . |
00000520: 20 22 00 4E 0D 3C 01 99 22 20 20 20 20 20 20 20 | ".N.<.." |
00000530: C2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000540: 20 20 20 20 20 20 20 20 C2 20 20 20 20 22 00 7C | . ".||
00000550: 0D 40 01 99 22 20 20 20 20 20 20 20 C2 20 05 20 |.@.." . . |
00000560: 32 2E 20 20 44 52 41 57 20 50 4F 4B 45 52 20 20 |2. DRAW POKER |
00000570: 20 1C 20 20 20 20 C2 20 20 20 20 22 00 A8 0D 41 | . . "...A|
00000580: 01 99 22 20 20 20 20 20 20 20 C2 20 20 20 20 20 |.." . |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 C2 20 20 20 20 22 00 D6 0D 45 01 99 22 20 | . "...E.." |
000005B0: 20 20 20 20 20 20 C2 20 05 20 33 2E 20 20 51 55 | . . 3. QU|
000005C0: 49 54 20 20 20 20 20 20 20 20 20 1C 20 20 20 20 |IT . |
000005D0: C2 20 20 20 20 22 00 02 0E 4A 01 99 22 20 20 20 |. "...J.." |
000005E0: 20 20 20 20 C2 20 20 20 20 20 20 20 20 20 20 20 | . |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 C2 20 20 20 | . |
00000600: 20 22 00 2E 0E 4F 01 99 22 20 20 20 20 20 20 20 | "...O.." |
00000610: CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000620: C0 C0 C0 C0 C0 C0 C0 C0 CB 20 20 20 20 22 00 59 |......... ".Y|
00000630: 0E 54 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.T..".. PR|
00000640: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY|
00000650: 20 28 31 2D 33 29 20 22 3B 00 6C 0E 59 01 55 4C | (1-3) ";.l.Y.UL|
00000660: B2 31 3A 55 53 24 B2 22 31 32 33 22 00 7B 0E 5B |.1:US$."123".{.[|
00000670: 01 8D 33 35 3A 55 53 24 B2 22 22 00 94 0E 5E 01 |..35:US$.""...^.|
00000680: 91 C5 28 55 52 24 29 8D 34 30 30 2C 31 30 30 30 |..(UR$).400,1000|
00000690: 2C 33 39 30 00 9D 0E 63 01 89 33 30 30 00 B1 0E |,390...c..300...|
000006A0: 72 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 31 35 |r..UZ.1..UP%:.15|
000006B0: 35 00 B7 0E 77 01 8E 00 DE 0E 86 01 9E 55 45 3A |5...w........UE:|
000006C0: 99 22 9A 93 22 3A 8B 55 57 B2 30 A7 97 55 59 2C |."..":.UW.0..UY,|
000006D0: 30 3A 97 55 58 2C 30 20 3A 9E 55 55 2C 30 00 E9 |0:.UX,0 :.UU,0..|
000006E0: 0E 8B 01 89 36 33 30 30 30 00 0D 0F 90 01 99 22 |....63000......"|
000006F0: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B 55 57 B2 30 |.":.UT,UL%:.UW.0|
00000700: A7 97 55 59 2C 30 20 3A 97 55 58 2C 30 00 45 0F |..UY,0 :.UX,0.E.|
00000710: 95 01 55 54 24 B2 22 20 20 20 20 20 20 20 20 20 |..UT$." |
00000720: 20 20 22 3A 55 48 B2 31 3A 55 50 B2 30 3A 55 47 | ":UH.1:UP.0:UG|
00000730: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |$." "|
00000740: 3A 8D 38 35 30 00 74 0F 97 01 99 22 11 05 20 D4 |:.850.t....".. .|
00000750: 48 45 20 52 55 4C 45 53 20 41 52 45 20 45 58 50 |HE RULES ARE EXP|
00000760: 4C 41 49 4E 45 44 20 57 48 45 4E 20 52 55 4E 4E |LAINED WHEN RUNN|
00000770: 49 4E 47 22 00 8A 0F 98 01 99 22 11 20 54 48 45 |ING"......". THE|
00000780: 20 50 52 4F 47 52 41 4D 2E 22 00 B5 0F 9A 01 99 | PROGRAM."......|
00000790: 22 11 20 C9 46 20 41 54 20 41 4E 59 20 54 49 4D |". .F AT ANY TIM|
000007A0: 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 |E YOU WISH TO RE|
000007B0: 54 55 52 4E 22 00 E1 0F 9C 01 99 22 11 20 54 4F |TURN"......". TO|
000007C0: 20 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 | THE .... PRESS |
000007D0: 48 20 3C 52 45 54 55 52 4E 3E 2E 22 3A 99 22 1C |H <RETURN>.":.".|
000007E0: 22 00 EA 0F E5 01 8D 38 33 35 00 FE 0F EA 01 8B |"......835......|
000007F0: 55 5A B2 31 A7 9E 55 50 25 3A 89 31 35 35 00 04 |UZ.1..UP%:.155..|
00000800: 10 EF 01 8E 00 28 10 F4 01 99 22 93 22 3A 97 55 |.....(....".":.U|
00000810: 54 2C 55 4C 25 3A 8B 55 57 B2 30 A7 97 55 59 2C |T,UL%:.UW.0..UY,|
00000820: 32 3A 97 55 58 2C 31 30 00 61 10 F5 01 55 54 24 |2:.UX,10.a...UT$|
00000830: B2 22 1C 20 C4 52 41 57 20 D0 4F 4B 45 52 22 3A |.". .RAW .OKER":|
00000840: 55 48 B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 C9 |UH.1:UP.0:UG$.".|
00000850: 4E 53 54 52 55 43 54 49 4F 4E 53 22 3A 8D 38 35 |NSTRUCTIONS":.85|
00000860: 30 00 8E 10 F6 01 99 22 11 11 20 20 20 20 20 20 |0......".. |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 11 22 00 B9 | ."..|
00000890: 10 F7 01 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008B0: 20 20 20 20 20 20 20 20 22 00 D4 10 F8 01 99 22 | "......"|
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008D0: 20 20 11 22 00 F2 10 F9 01 99 22 20 20 20 20 20 | ."......" |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 22 00 1B 11 FA 01 99 22 20 20 20 20 20 20 20 | "......" |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000910: 20 20 20 20 20 20 20 20 20 20 22 00 22 11 FB 01 | "."...|
00000920: 99 22 00 47 11 FC 01 99 22 20 20 20 20 20 20 20 |.".G...." |
00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000940: 20 20 20 20 20 20 22 00 69 11 FD 01 99 22 20 20 | ".i...." |
00000950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000960: 20 20 20 20 20 20 20 20 22 00 8A 11 FE 01 99 22 | "......"|
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 20 20 20 20 20 20 20 20 22 00 9D 11 FF 01 55 | ".....U|
00000990: 48 B2 31 3A 8D 38 33 35 3A 8D 38 35 30 00 AC 11 |H.1:.835:.850...|
000009A0: 00 02 99 22 20 20 20 20 20 20 11 11 00 BA 11 01 |..." ......|
000009B0: 02 99 22 20 20 20 20 20 20 11 00 C8 11 02 02 99 |.." .......|
000009C0: 22 20 20 20 20 20 20 11 00 D7 11 03 02 99 22 20 |" ......." |
000009D0: 20 20 20 20 20 11 11 00 DE 11 04 02 99 22 00 E5 | ........"..|
000009E0: 11 05 02 99 22 00 EC 11 06 02 99 22 00 F3 11 07 |...."......"....|
000009F0: 02 99 22 00 FC 11 49 02 8D 38 33 35 00 10 12 4E |.."...I..835...N|
00000A00: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 31 35 35 |..UZ.1..UP%:.155|
00000A10: 00 16 12 53 02 8E 00 24 12 BC 02 99 55 43 24 22 |...S...$....UC$"|
00000A20: 93 11 11 11 00 33 12 C1 02 99 22 22 3A 89 36 33 |.....3...."":.63|
00000A30: 30 30 30 00 5A 12 20 03 99 22 93 11 1D 05 22 3B |000.Z. .."....";|
00000A40: 3A 97 55 54 2C 55 55 25 3A 8B 55 57 B2 30 A7 97 |:.UT,UU%:.UW.0..|
00000A50: 55 59 2C 30 3A 97 55 58 2C 30 00 6B 12 21 03 8F |UY,0:.UX,0.k.!..|
00000A60: 46 4F 52 49 3D 31 54 4F 33 38 3A 00 7C 12 22 03 |FORI=1TO38:.|.".|
00000A70: 8F 46 4F 52 49 3D 31 54 4F 32 32 3A 00 8D 12 23 |.FORI=1TO22:...#|
00000A80: 03 8F 46 4F 52 49 3D 31 54 4F 33 37 3A 00 9E 12 |..FORI=1TO37:...|
00000A90: 24 03 8F 46 4F 52 49 3D 31 54 4F 32 32 3A 00 C3 |$..FORI=1TO22:..|
00000AA0: 12 25 03 8F 50 52 49 4E 54 22 20 20 20 20 20 20 |.%..PRINT" |
00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AC0: 20 20 92 00 CF 12 26 03 8F 50 52 49 4E 54 22 00 | ....&..PRINT".|
00000AD0: DB 12 27 03 8F 50 52 49 4E 54 22 00 F6 12 28 03 |..'..PRINT"...(.|
00000AE0: 8F 50 52 49 4E 54 22 20 20 20 20 20 20 20 20 20 |.PRINT" |
00000AF0: 20 20 20 20 20 92 00 02 13 29 03 8F 50 52 49 4E | ....)..PRIN|
00000B00: 54 22 00 0E 13 2A 03 8F 50 52 49 4E 54 22 00 1A |T"...*..PRINT"..|
00000B10: 13 2B 03 8F 50 52 49 4E 54 22 00 20 13 2C 03 8F |.+..PRINT". .,..|
00000B20: 00 52 13 2D 03 8F 47 45 54 55 49 24 3A 49 46 55 |.R.-..GETUI$:IFU|
00000B30: 49 24 3C 3E 22 20 22 54 48 45 4E 55 49 3D 55 49 |I$<>" "THENUI=UI|
00000B40: 2B 31 3A 49 46 55 49 3C 32 35 30 54 48 45 4E 38 |+1:IFUI<250THEN8|
00000B50: 31 33 00 5B 13 2E 03 89 33 30 30 00 96 13 43 03 |13.[....300...C.|
00000B60: 97 55 4E 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 |.UN,0:..(UD$,24)|
00000B70: 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |;".......PRESS S|
00000B80: 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 |PACE BAR TO CONT|
00000B90: 49 4E 55 45 92 22 00 B3 13 48 03 99 22 05 22 3B |INUE."...H..".";|
00000BA0: 3A A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 |:.UI$:.UI$.." ".|
00000BB0: 38 34 30 00 B9 13 4D 03 8E 00 CA 13 52 03 55 50 |840...M.....R.UP|
00000BC0: B2 55 50 AA 31 3A 99 22 93 22 00 F4 13 57 03 99 |.UP.1:."."...W..|
00000BD0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C C4 20 |".............. |
00000BE0: 52 20 41 20 57 20 20 D0 20 4F 20 4B 20 45 20 52 |R A W . O K E R|
00000BF0: 20 20 20 22 00 2E 14 5C 03 8B 55 48 B2 30 A7 99 | "...\..UH.0..|
00000C00: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,|
00000C10: 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |7);"HELP - PRESS|
00000C20: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 3F | H <RETURN>".?|
00000C30: 14 61 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 |.a.UH.0:."..":..|
00000C40: 77 14 6B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |w.k...(UD$,24);"|
00000C50: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M|
00000C60: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... |
00000C70: 20 20 20 20 22 3A 8E 00 C7 14 84 03 55 58 24 B2 | ":......UX$.|
00000C80: 22 48 22 3A 55 53 B2 33 32 37 36 38 3A 55 31 B2 |"H":US.32768:U1.|
00000C90: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19|
00000CA0: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:|
00000CB0: 55 42 B2 31 30 32 34 3A 55 44 B2 31 30 38 34 3A |UB.1024:UD.1084:|
00000CC0: 55 45 B2 31 31 30 35 00 10 15 85 03 55 54 B2 35 |UE.1105.....UT.5|
00000CD0: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.|
00000CE0: 31 34 3A 55 50 25 B2 31 31 35 38 3A 55 4E B2 31 |14:UP%.1158:UN.1|
00000CF0: 35 38 3A 97 35 30 30 30 33 2C 30 3A 55 57 B2 C2 |58:.50003,0:UW..|
00000D00: 28 35 30 30 30 33 29 3A 55 46 B2 C2 28 35 33 29 |(50003):UF..(53)|
00000D10: 00 5E 15 86 03 8B 55 57 B2 30 A7 55 53 B2 31 30 |.^....UW.0.US.10|
00000D20: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
00000D30: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
00000D40: 43 B2 32 30 34 3A 55 42 B2 32 30 34 38 3A 55 58 |C.204:UB.2048:UX|
00000D50: B2 35 33 32 38 30 3A 55 44 B2 32 30 36 34 00 A8 |.53280:UD.2064..|
00000D60: 15 87 03 8B 55 57 B2 30 A7 55 54 B2 35 33 32 37 |....UW.0.UT.5327|
00000D70: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:|
00000D80: 55 50 25 B2 32 31 35 31 3A 55 4E B2 31 39 38 3A |UP%.2151:UN.198:|
00000D90: 55 59 B2 35 33 32 38 31 3A 55 55 B2 32 31 39 39 |UY.53281:UU.2199|
00000DA0: 3A 55 45 B2 32 30 38 37 00 D4 15 88 03 55 43 24 |:UE.2087.....UC$|
00000DB0: B2 C7 28 31 35 35 29 3A 55 56 B2 31 32 31 34 3A |..(155):UV.1214:|
00000DC0: 8B 55 57 B2 30 A7 55 46 B2 31 39 36 3A 55 56 B2 |.UW.0.UF.196:UV.|
00000DD0: 32 32 33 38 00 25 16 89 03 55 44 24 B2 22 13 11 |2238.%...UD$."..|
00000DE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000DF0: 11 11 11 11 11 11 11 22 3A 55 50 24 B2 22 20 20 |.......":UP$." |
00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E20: 20 20 20 20 22 00 63 16 8A 03 86 20 44 4B 25 28 | ".c.... DK%(|
00000E30: 35 32 29 2C 53 55 24 28 33 2C 31 33 29 2C 43 56 |52),SU$(3,13),CV|
00000E40: 24 28 31 32 2C 31 29 2C 53 25 28 31 32 2C 36 29 |$(12,1),S%(12,6)|
00000E50: 2C 50 48 28 34 29 2C 55 48 28 34 29 2C 57 57 24 |,PH(4),UH(4),WW$|
00000E60: 28 39 29 00 7D 16 8B 03 86 20 58 25 28 34 29 2C |(9).}.... X%(4),|
00000E70: 58 32 25 28 34 29 2C 50 53 25 28 34 29 00 83 16 |X2%(4),PS%(4)...|
00000E80: 8D 03 8E 00 A6 16 8E 03 8D 39 30 30 3A 99 22 93 |.........900:.".|
00000E90: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED|
00000EA0: 20 53 50 41 43 45 00 BC 16 93 03 8B C2 28 55 53 | SPACE.......(US|
00000EB0: AA 34 30 29 B3 B1 39 36 A7 37 30 30 00 E2 16 98 |.40)..96.700....|
00000EC0: 03 8B 28 B8 28 30 29 AB 28 B4 28 B8 28 30 29 29 |..(.(0).(.(.(0))|
00000ED0: B3 30 29 AC 36 35 35 33 36 29 B1 35 30 30 A7 39 |.0).65536).500.9|
00000EE0: 33 35 00 12 17 9D 03 99 55 43 24 22 93 11 11 54 |35......UC$"...T|
00000EF0: 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 |HIS MACHINE DOES|
00000F00: 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 | NOT HAVE ENOUGH|
00000F10: 11 22 00 3D 17 A2 03 99 22 4D 45 4D 4F 52 59 20 |.".=...."MEMORY |
00000F20: 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 |TO RUN THIS PROG|
00000F30: 52 41 4D 20 21 22 3A 89 36 33 30 30 30 00 53 17 |RAM !":.63000.S.|
00000F40: A7 03 99 22 93 22 55 43 24 3A 8B 55 57 B2 30 A7 |..."."UC$:.UW.0.|
00000F50: 39 36 35 00 70 17 AC 03 8B 55 46 B2 36 30 B0 55 |965.p....UF.60.U|
00000F60: 46 B2 31 30 38 B0 55 46 B2 31 32 34 A7 39 35 30 |F.108.UF.124.950|
00000F70: 00 8A 17 B1 03 97 35 32 2C 30 3A 97 35 33 2C 55 |......52,0:.53,U|
00000F80: 46 AB 34 3A 9C 3A 8D 39 30 30 00 C1 17 B6 03 8B |F.4:.:.900......|
00000F90: 55 57 B2 31 36 30 A7 97 31 31 30 33 2C 38 38 3A |UW.160..1103,88:|
00000FA0: 97 31 31 30 34 2C 32 32 38 3A 97 31 31 30 37 2C |.1104,228:.1107,|
00000FB0: 38 35 3A 97 31 31 31 31 2C 32 32 38 3A 89 39 36 |85:.1111,228:.96|
00000FC0: 35 00 FF 17 BB 03 8B 55 57 B3 B1 31 A7 99 22 93 |5......UW..1..".|
00000FD0: 54 48 49 53 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |THIS PGM WILL NO|
00000FE0: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
00000FF0: 41 43 48 49 4E 45 21 22 3A 89 36 33 30 30 30 00 |ACHINE!":.63000.|
00001000: 2E 18 C0 03 97 31 31 30 33 2C 34 39 3A 97 31 31 |.....1103,49:.11|
00001010: 30 34 2C 32 33 30 3A 97 31 31 30 37 2C 34 36 3A |04,230:.1107,46:|
00001020: 97 31 31 31 31 2C 32 33 30 3A 89 39 36 35 00 36 |.1111,230:.965.6|
00001030: 18 C5 03 9E 55 44 00 44 18 CA 03 8D 38 30 30 3A |....UD.D....800:|
00001040: 89 33 30 30 00 5D 18 E8 03 8B 55 5A B2 31 A7 9E |.300.]....UZ.1..|
00001050: 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 00 7E 18 |UP%:.UP%:UZ.0.~.|
00001060: E9 03 99 22 93 22 55 43 24 3B 3A 8C 3A 8B 55 57 |..."."UC$;:.:.UW|
00001070: B2 30 A7 97 55 59 2C 30 3A 97 55 58 2C 30 00 93 |.0..UY,0:.UX,0..|
00001080: 18 FC 03 8F 20 2A 2A 2A 20 2A 2A 2A 2A 2A 2A 2A |.... *** *******|
00001090: 2A 2A 2A 00 B5 18 06 04 8F 20 2A 2A 2A 20 2A 2A |***...... *** **|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 |************** |
000010B0: 20 2A 2A 2A 2A 00 BF 18 10 04 8F 20 2A 2A 2A 00 | ****...... ***.|
000010C0: D8 18 1A 04 8F 20 2A 2A 2A 20 2A 2A 2A 20 2A 2A |..... *** *** **|
000010D0: 2A 2A 20 2A 2A 2A 2A 2A 00 F4 18 24 04 8F 20 2A |** *****...$.. *|
000010E0: 2A 2A 20 2A 2A 2A 2A 2A 2A 2A 2A 20 2A 2A 2A 2A |** ******** ****|
000010F0: 2A 2A 2A 2A 00 0A 19 2E 04 8F 20 2A 2A 2A 20 2A |****...... *** *|
00001100: 2A 2A 2A 2A 2A 2A 20 2A 2A 2A 00 2E 19 38 04 8F |****** ***...8..|
00001110: 20 2A 2A 2A 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *** ***********|
00001120: 2A 2A 2A 2A 2A 20 2A 2A 20 2A 2A 2A 2A 2A 00 34 |***** ** *****.4|
00001130: 19 42 04 8F 00 41 19 4C 04 8F 20 46 52 45 3D 39 |.B...A.L.. FRE=9|
00001140: 30 00 66 19 4D 04 97 55 54 2C 55 4C 25 3A 55 47 |0.f.M..UT,UL%:UG|
00001150: 24 B2 22 22 3A 55 54 24 B2 22 20 20 20 20 20 20 |$."":UT$." |
00001160: 20 20 20 20 20 22 00 6F 19 51 04 8D 38 35 30 00 | ".o.Q..850.|
00001170: A9 19 56 04 97 35 33 32 38 31 2C 30 3A 97 35 33 |..V..53281,0:.53|
00001180: 32 38 30 2C 30 3A 99 22 11 11 11 20 20 20 20 20 |280,0:."... |
00001190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011A0: 20 20 20 20 20 20 20 20 22 00 E4 19 65 04 99 22 | "...e.."|
000011B0: 11 11 05 20 20 20 C9 20 41 4D 20 54 48 45 20 C4 |... . AM THE .|
000011C0: C5 C1 CC C5 D2 2E 22 3A 99 22 11 20 20 20 20 20 |......":.". |
000011D0: D7 48 4F 20 41 52 45 20 59 4F 55 3F 20 22 3B 3A |.HO ARE YOU? ";:|
000011E0: 4C 43 B2 31 00 05 1A 6A 04 55 53 24 B2 22 22 3A |LC.1...j.US$."":|
000011F0: 55 4C B2 38 3A 8D 33 35 3A 55 4E 24 B2 55 52 24 |UL.8:.35:UN$.UR$|
00001200: 3A 4C 43 B2 30 00 20 1A 74 04 8B C3 28 55 4E 24 |:LC.0. .t...(UN$|
00001210: 29 B1 38 A7 55 4E 24 B2 C8 28 55 4E 24 2C 38 29 |).8.UN$..(UN$,8)|
00001220: 00 2B 1A 77 04 4A 4C 24 B2 22 22 00 3C 1A 78 04 |.+.w.JL$."".<.x.|
00001230: 81 59 37 B2 31 A4 C3 28 55 4E 24 29 00 50 1A 79 |.Y7.1..(UN$).P.y|
00001240: 04 4C 4C 24 B2 CA 28 55 4E 24 2C 59 37 2C 31 29 |.LL$..(UN$,Y7,1)|
00001250: 00 89 1A 7B 04 8B 20 C6 28 4C 4C 24 29 B1 31 39 |...{.. .(LL$).19|
00001260: 32 AF 20 C6 28 4C 4C 24 29 B3 32 31 39 A7 4A 4C |2. .(LL$).219.JL|
00001270: 24 B2 4A 4C 24 AA C7 28 C6 28 4C 4C 24 29 AB 31 |$.JL$..(.(LL$).1|
00001280: 32 38 29 3A 89 31 31 34 39 00 99 1A 7C 04 4A 4C |28):.1149...|.JL|
00001290: 24 B2 4A 4C 24 AA 4C 4C 24 00 A9 1A 7D 04 82 59 |$.JL$.LL$...}..Y|
000012A0: 37 3A 55 4E 24 B2 4A 4C 24 00 E5 1A 7E 04 55 48 |7:UN$.JL$...~.UH|
000012B0: B2 31 3A 8D 38 35 30 3A 99 22 05 11 20 CF 4B 41 |.1:.850:.".. .KA|
000012C0: 59 20 1C 22 55 4E 24 22 2C 05 20 48 45 52 45 20 |Y ."UN$",. HERE |
000012D0: 41 52 45 20 54 48 45 20 C8 4F 55 53 45 20 D2 55 |ARE THE .OUSE .U|
000012E0: 4C 45 53 3A 22 00 13 1B 88 04 99 22 11 11 20 20 |LES:"......".. |
000012F0: 20 20 D4 48 45 20 41 4E 54 45 20 49 53 20 35 20 | .HE ANTE IS 5 |
00001300: 44 4F 4C 4C 41 52 53 20 41 4E 44 20 54 48 45 52 |DOLLARS AND THER|
00001310: 45 11 22 00 42 1B 8A 04 99 22 20 20 20 20 49 53 |E.".B...." IS|
00001320: 20 4E 4F 20 4C 49 4D 49 54 20 4F 4E 20 42 45 54 | NO LIMIT ON BET|
00001330: 53 2E 20 20 D7 45 20 41 4C 54 45 52 4E 41 54 45 |S. .E ALTERNATE|
00001340: 11 22 00 71 1B 8C 04 99 22 20 20 20 20 4F 50 45 |.".q...." OPE|
00001350: 4E 49 4E 47 20 42 45 54 53 2E 20 20 CF 50 45 4E |NING BETS. .PEN|
00001360: 20 57 49 54 48 20 41 4E 59 54 48 49 4E 47 2E 11 | WITH ANYTHING..|
00001370: 22 00 9D 1B 8E 04 99 22 20 20 20 20 CE 4F 20 43 |"......" .O C|
00001380: 48 45 43 4B 49 4E 47 2C 20 4F 4E 4C 59 20 CF 50 |HECKING, ONLY .P|
00001390: 45 4E 20 4F 52 20 C2 45 54 20 30 11 22 00 CB 1B |EN OR .ET 0."...|
000013A0: 90 04 99 22 20 20 20 20 28 C6 CF CC C4 29 2E 20 |..." (....). |
000013B0: D7 48 45 4E 20 41 53 4B 45 44 20 54 4F 20 C6 4F |.HEN ASKED TO .O|
000013C0: 4C 44 2C 20 C3 41 4C 4C 2C 11 22 00 F3 1B 92 04 |LD, .ALL,.".....|
000013D0: 99 22 20 20 20 20 4F 52 20 D2 41 49 53 45 2C 20 |." OR .AISE, |
000013E0: 53 49 4D 50 4C 59 20 52 45 50 4C 59 20 57 49 54 |SIMPLY REPLY WIT|
000013F0: 48 11 22 00 1E 1C 94 04 99 22 20 20 20 20 C6 20 |H."......" . |
00001400: 4F 52 20 C3 20 4F 52 20 D2 20 41 4E 44 20 54 48 |OR . OR . AND TH|
00001410: 45 4E 20 3C 52 45 54 55 52 4E 3E 2E 1C 22 00 27 |EN <RETURN>..".'|
00001420: 1C 96 04 8D 38 33 35 00 35 1C 97 04 55 48 B2 31 |....835.5...UH.1|
00001430: 3A 8D 38 35 30 00 60 1C 98 04 99 22 05 11 20 20 |:.850.`....".. |
00001440: 20 20 20 D7 48 45 4E 20 41 53 4B 45 44 20 54 4F | .HEN ASKED TO|
00001450: 20 42 45 54 2C 20 4F 52 20 57 48 45 4E 20 11 22 | BET, OR WHEN ."|
00001460: 00 8C 1C 9A 04 99 22 20 20 20 20 20 52 41 49 53 |......" RAIS|
00001470: 49 4E 47 2C 20 53 49 4D 50 4C 59 20 52 45 50 4C |ING, SIMPLY REPL|
00001480: 59 20 57 49 54 48 20 54 48 45 11 22 00 B8 1C 9C |Y WITH THE."....|
00001490: 04 99 22 20 20 20 20 20 41 4D 4F 55 4E 54 20 41 |.." AMOUNT A|
000014A0: 4E 44 20 3C 52 45 54 55 52 4E 3E 2E 20 20 D4 4F |ND <RETURN>. .O|
000014B0: 20 44 52 41 57 2C 11 22 00 E0 1C 9E 04 99 22 20 | DRAW,."......" |
000014C0: 20 20 20 20 45 4E 54 45 52 20 45 41 43 48 20 43 | ENTER EACH C|
000014D0: 41 52 44 20 4E 55 4D 42 45 52 20 41 4E 44 11 22 |ARD NUMBER AND."|
000014E0: 00 F7 1C A0 04 99 22 20 20 20 20 20 3C 52 45 54 |......" <RET|
000014F0: 55 52 4E 3E 2E 11 22 00 1F 1D B2 04 99 22 20 20 |URN>.."......" |
00001500: 20 20 20 C9 46 20 59 4F 55 20 50 52 4F 4D 49 53 | .F YOU PROMIS|
00001510: 45 20 4E 4F 54 20 54 4F 20 54 41 4B 45 11 22 00 |E NOT TO TAKE.".|
00001520: 47 1D B4 04 99 22 20 20 20 20 20 41 44 56 41 4E |G...." ADVAN|
00001530: 54 41 47 45 20 4F 46 20 4D 59 20 41 52 54 49 46 |TAGE OF MY ARTIF|
00001540: 49 43 49 41 4C 11 22 00 70 1D B6 04 99 22 20 20 |ICIAL.".p...." |
00001550: 20 20 20 49 4E 54 45 4C 4C 49 47 45 4E 43 45 20 | INTELLIGENCE |
00001560: 4F 46 20 4E 4F 54 20 4B 4E 4F 57 49 4E 47 11 22 |OF NOT KNOWING."|
00001570: 00 98 1D B8 04 99 22 20 20 20 20 20 57 48 45 4E |......" WHEN|
00001580: 20 54 4F 20 46 4F 4C 44 2C 20 C9 20 57 4F 4E 27 | TO FOLD, . WON'|
00001590: 54 20 50 45 45 4B 11 22 00 B5 1D BA 04 99 22 20 |T PEEK."......" |
000015A0: 20 20 20 20 41 54 20 59 4F 55 52 20 43 41 52 44 | AT YOUR CARD|
000015B0: 53 20 21 1C 22 00 CB 1D C4 04 8D 38 33 35 3A 99 |S !."......835:.|
000015C0: 22 93 22 3A 97 55 54 2C 55 55 25 00 D4 1D E2 04 |".":.UT,UU%.....|
000015D0: 8D 38 37 35 00 DE 1D 00 05 8D 32 35 33 30 00 03 |.875......2530..|
000015E0: 1E 0A 05 99 C7 28 31 34 29 3A 55 47 24 B2 22 22 |.....(14):UG$.""|
000015F0: 3A 55 54 24 B2 22 1C 20 44 52 41 57 20 50 4F 4B |:UT$.". DRAW POK|
00001600: 45 52 22 00 11 1E 14 05 55 48 B2 31 3A 8D 38 35 |ER".....UH.1:.85|
00001610: 30 00 2C 1E 15 05 8F 47 45 54 41 24 3A 49 46 41 |0.,....GETA$:IFA|
00001620: 24 3D 22 22 54 48 45 4E 31 33 30 31 00 6D 1E 16 |$=""THEN1301.m..|
00001630: 05 99 C7 28 31 34 29 3A 99 22 05 11 11 11 11 20 |...(14):."..... |
00001640: 20 20 C4 45 41 4C 45 52 20 48 41 53 22 50 42 3A | .EALER HAS"PB:|
00001650: 99 22 11 11 20 20 20 22 55 4E 24 22 20 48 41 53 |.".. "UN$" HAS|
00001660: 22 42 55 3A 99 22 1C 22 3A 8D 38 33 35 00 81 1E |"BU:.".":.835...|
00001670: 19 05 8B 50 42 B1 30 AF 42 55 B1 30 89 31 33 35 |...PB.0.BU.0.135|
00001680: 30 00 9F 1E 1E 05 59 24 B2 55 4E 24 3A 8B 50 42 |0.....Y$.UN$:.PB|
00001690: B3 B2 30 A7 59 24 B2 22 44 45 41 4C 45 52 22 00 |..0.Y$."DEALER".|
000016A0: BF 1E 28 05 99 22 91 91 91 91 91 91 91 91 20 20 |..(.."........ |
000016B0: 20 22 59 24 22 20 49 53 20 42 52 4F 4B 45 22 00 | "Y$" IS BROKE".|
000016C0: ED 1E 32 05 99 22 11 20 20 20 41 4E 4F 54 48 45 |..2..". ANOTHE|
000016D0: 52 20 47 41 4D 45 3F 20 22 3B 3A 55 53 24 B2 22 |R GAME? ";:US$."|
000016E0: 59 4E 48 22 3A 55 4C B2 31 3A 8D 33 35 00 06 1F |YNH":UL.1:.35...|
000016F0: 37 05 8B 55 52 24 B2 22 4E 22 A7 9C 3A 8D 39 30 |7..UR$."N"..:.90|
00001700: 30 3A 89 33 30 30 00 1E 1F 3C 05 50 42 B2 35 30 |0:.300...<.PB.50|
00001710: 30 3A 42 55 B2 35 30 30 3A 89 31 33 30 30 00 58 |0:BU.500:.1300.X|
00001720: 1F 46 05 55 48 B2 31 3A 8D 38 35 30 3A 99 C7 28 |.F.UH.1:.850:..(|
00001730: 31 34 29 3A 99 22 11 11 11 11 05 20 C9 20 48 4F |14):."..... . HO|
00001740: 50 45 20 59 4F 55 20 44 4F 4E 27 54 20 4D 49 4E |PE YOU DON'T MIN|
00001750: 44 20 42 55 54 20 C9 22 00 8F 1F 48 05 99 22 11 |D BUT ."...H..".|
00001760: 11 20 4C 49 4B 45 20 54 4F 20 53 48 55 46 46 4C |. LIKE TO SHUFFL|
00001770: 45 20 54 48 45 20 44 45 43 4B 20 41 20 4C 4F 54 |E THE DECK A LOT|
00001780: 05 22 3A 54 49 24 B2 22 30 30 30 30 30 30 22 00 |.":TI$."000000".|
00001790: BA 1F 4B 05 8B 54 49 24 B2 22 30 30 30 30 30 33 |..K..TI$."000003|
000017A0: 22 A7 57 B2 31 30 30 3A 8D 32 33 37 30 3A 4B 4E |".W.100:.2370:KN|
000017B0: 25 B2 35 32 3A 89 31 33 36 30 00 C4 1F 4C 05 89 |%.52:.1360...L..|
000017C0: 31 33 35 35 00 E9 1F 50 05 99 22 93 22 3A 49 54 |1355...P..".":IT|
000017D0: B2 31 30 3A 50 42 B2 50 42 AB 35 3A 42 55 B2 42 |.10:PB.PB.5:BU.B|
000017E0: 55 AB 35 3A 8D 31 38 38 30 00 25 20 5A 05 81 4D |U.5:.1880.% Z..M|
000017F0: B2 30 A4 34 3A 8D 32 34 30 30 3A 55 48 28 4D 29 |.0.4:.2400:UH(M)|
00001800: B2 43 4E 3A 4C 4E B2 31 33 3A 4B 4C B2 4D AC 38 |.CN:LN.13:KL.M.8|
00001810: 3A 8D 32 34 32 30 3A 8D 32 34 30 30 3A 50 48 28 |:.2420:.2400:PH(|
00001820: 4D 29 B2 43 4E 00 3F 20 64 05 58 25 28 4D 29 B2 |M).CN.? d.X%(M).|
00001830: 43 4E 3A 4C 4E B2 31 3A 8D 32 34 39 30 3A 82 00 |CN:LN.1:.2490:..|
00001840: 70 20 6E 05 99 C8 28 51 34 24 2C 31 32 29 A3 33 |p n...(Q4$,12).3|
00001850: 29 22 31 22 A3 31 31 29 22 32 22 A3 31 39 29 22 |)"1".11)"2".19)"|
00001860: 33 22 A3 32 37 29 22 34 22 A3 33 35 29 22 35 22 |3".27)"4".35)"5"|
00001870: 00 94 20 78 05 42 52 B2 31 3A 8D 31 39 31 30 3A |.. x.BR.1:.1910:|
00001880: 81 49 B2 30 A4 34 3A 50 48 28 49 29 B2 58 25 28 |.I.0.4:PH(I).X%(|
00001890: 49 29 3A 82 00 CC 20 82 05 50 56 B2 56 3A 50 59 |I):... ..PV.V:PY|
000018A0: B2 54 59 3A 50 44 B2 56 44 3A 54 55 B2 31 AB 54 |.TY:PD.VD:TU.1.T|
000018B0: 55 3A 4D B2 30 3A 8B 54 55 A7 4D B2 B5 28 50 59 |U:M.0:.TU.M..(PY|
000018C0: AD 33 AA 31 29 AC 31 30 3A 4F B2 4D 00 E3 20 8C |.3.1).10:O.M.. .|
000018D0: 05 8D 31 36 39 30 3A 91 58 89 31 33 30 30 2C 31 |..1690:.X.1300,1|
000018E0: 34 33 30 00 FD 20 96 05 44 52 B2 30 3A 57 B2 35 |430.. ..DR.0:W.5|
000018F0: 30 3A 8D 32 33 37 30 3A 8D 31 38 38 30 00 3D 21 |0:.2370:.1880.=!|
00001900: A0 05 99 51 35 24 51 34 24 22 43 41 52 44 20 23 |...Q5$Q4$"CARD #|
00001910: 20 22 55 4E 24 22 2C 20 20 30 20 49 46 20 4E 4F | "UN$", 0 IF NO|
00001920: 4E 45 20 20 22 3B 3A 55 53 24 B2 22 48 30 31 32 |NE ";:US$."H012|
00001930: 33 34 35 22 3A 55 4C B2 31 3A 8D 33 35 00 4B 21 |345":UL.1:.35.K!|
00001940: AA 05 44 4E B2 C5 28 55 52 24 29 00 5A 21 B4 05 |..DN..(UR$).Z!..|
00001950: 8B 44 4E B2 30 89 31 34 39 30 00 75 21 BE 05 44 |.DN.0.1490.u!..D|
00001960: 4E B2 44 4E AB 31 3A 8B 55 48 28 44 4E 29 B3 30 |N.DN.1:.UH(DN).0|
00001970: 89 31 34 34 30 00 AA 21 C8 05 44 52 B2 44 52 AA |.1440..!..DR.DR.|
00001980: 31 3A 55 48 28 44 4E 29 B2 AB 31 3A 4C 4E B2 31 |1:UH(DN)..1:LN.1|
00001990: 33 3A 4B 4C B2 44 4E AC 38 3A 8D 32 34 39 30 3A |3:KL.DN.8:.2490:|
000019A0: 8B 44 52 B3 33 89 31 34 34 30 00 CC 21 D2 05 99 |.DR.3.1440..!...|
000019B0: 51 35 24 51 34 24 22 44 45 41 4C 45 52 20 54 41 |Q5$Q4$"DEALER TA|
000019C0: 4B 45 53 22 50 44 3A 8D 31 38 38 30 00 E2 21 DC |KES"PD:.1880..!.|
000019D0: 05 99 22 13 22 3A 4C 4E B2 31 33 3A 81 49 B2 30 |..".":LN.13:.I.0|
000019E0: A4 34 00 0B 22 E6 05 8B 55 48 28 49 29 B3 30 A7 |.4.."...UH(I).0.|
000019F0: 8D 32 34 30 30 3A 55 48 28 49 29 B2 43 4E 3A 4B |.2400:UH(I).CN:K|
00001A00: 4C B2 49 AC 38 3A 8D 32 34 32 30 00 11 22 F0 05 |L.I.8:.2420.."..|
00001A10: 82 00 36 22 FA 05 8B 50 44 B1 30 A7 81 49 B2 30 |..6"...PD.0..I.0|
00001A20: A4 50 44 AB 31 3A 8D 32 34 30 30 3A 50 48 28 49 |.PD.1:.2400:PH(I|
00001A30: 29 B2 43 4E 3A 82 00 65 22 04 06 81 49 B2 30 A4 |).CN:..e"...I.0.|
00001A40: 34 3A 58 25 28 49 29 B2 50 48 28 49 29 3A 82 3A |4:X%(I).PH(I):.:|
00001A50: 42 52 B2 32 3A 8D 31 39 31 30 3A 50 56 B2 56 3A |BR.2:.1910:PV.V:|
00001A60: 50 59 B2 54 59 00 93 22 0E 06 81 49 B2 30 A4 34 |PY.TY.."...I.0.4|
00001A70: 3A 58 25 28 49 29 B2 55 48 28 49 29 3A 82 3A 8D |:X%(I).UH(I):.:.|
00001A80: 31 39 31 30 3A 56 56 B2 56 3A 56 59 B2 54 59 3A |1910:VV.V:VY.TY:|
00001A90: 4D B2 30 00 CF 22 18 06 8B 54 55 A7 4D B2 B5 28 |M.0.."...TU.M..(|
00001AA0: 50 59 AD 32 AA 31 29 AC 31 30 3A 8B 50 59 B3 34 |PY.2.1).10:.PY.4|
00001AB0: AF 50 59 B1 31 A7 8B 52 46 B2 30 A7 4D B2 4D AA |.PY.1..RF.0.M.M.|
00001AC0: B5 28 31 32 AC BB 28 31 29 AD 34 29 AC 31 30 00 |.(12..(1).4).10.|
00001AD0: DD 22 22 06 4F B2 4D 3A 8D 31 36 39 30 00 19 23 |."".O.M:.1690..#|
00001AE0: 2C 06 4C 4E B2 31 3A 81 49 B2 30 A4 34 3A 4B 4C |,.LN.1:.I.0.4:KL|
00001AF0: B2 49 AC 38 3A 43 4E B2 50 48 28 49 29 3A 8D 32 |.I.8:CN.PH(I):.2|
00001B00: 34 32 30 3A 82 3A 49 B2 50 59 3A 4A B2 56 59 3A |420:.:I.PY:J.VY:|
00001B10: 8B 58 B2 31 89 31 36 37 30 00 2C 23 36 06 8B 49 |.X.1.1670.,#6..I|
00001B20: B2 4A A7 49 B2 50 56 3A 4A B2 56 56 00 47 23 40 |.J.I.PV:J.VV.G#@|
00001B30: 06 8B 4A B1 49 A7 57 24 B2 55 4E 24 3A 4B B2 56 |..J.I.W$.UN$:K.V|
00001B40: 59 3A 89 31 36 32 30 00 5C 23 4A 06 57 24 B2 22 |Y:.1620.\#J.W$."|
00001B50: 44 45 41 4C 45 52 22 3A 4B B2 50 59 00 8A 23 54 |DEALER":K.PY..#T|
00001B60: 06 99 51 35 24 51 34 24 57 24 22 20 57 49 4E 53 |..Q5$Q4$W$" WINS|
00001B70: 20 57 49 54 48 20 22 57 57 24 28 4B 29 3A 81 5A | WITH "WW$(K):.Z|
00001B80: 5A B2 31 A4 34 35 30 30 3A 82 00 A2 23 5E 06 8B |Z.1.4500:...#^..|
00001B90: 49 B1 4A A7 50 42 B2 50 42 AA 49 54 3A 89 31 36 |I.J.PB.PB.IT:.16|
00001BA0: 37 30 00 BA 23 68 06 8B 4A B1 49 A7 42 55 B2 42 |70..#h..J.I.BU.B|
00001BB0: 55 AA 49 54 3A 89 31 36 37 30 00 D8 23 72 06 49 |U.IT:.1670..#r.I|
00001BC0: 54 B2 49 54 AD 32 3A 50 42 B2 50 42 AA 49 54 3A |T.IT.2:PB.PB.IT:|
00001BD0: 42 55 B2 42 55 AA 49 54 00 DE 23 86 06 8F 00 F3 |BU.BU.IT..#.....|
00001BE0: 23 90 06 81 57 51 B2 31 A4 31 30 30 30 3A 89 31 |#...WQ.1.1000:.1|
00001BF0: 33 30 30 00 0A 24 9A 06 8D 31 38 38 30 3A 52 46 |300..$...1880:RF|
00001C00: B2 30 3A 8B 4D 89 31 37 32 30 00 47 24 A4 06 99 |.0:.M.1720.G$...|
00001C10: 51 35 24 51 34 24 55 4E 24 22 20 42 45 54 53 20 |Q5$Q4$UN$" BETS |
00001C20: 20 22 3B 3A 55 53 24 B2 22 48 30 31 32 33 34 35 | ";:US$."H012345|
00001C30: 36 37 38 39 22 3A 55 4C B2 34 3A 8D 33 35 3A 52 |6789":UL.4:.35:R|
00001C40: B2 C5 28 55 52 24 29 00 5E 24 A9 06 4F B2 52 3A |..(UR$).^$..O.R:|
00001C50: 54 42 B2 52 3A 8B 52 B1 30 89 31 37 38 30 00 71 |TB.R:.R.0.1780.q|
00001C60: 24 AE 06 58 B2 31 3A 50 42 B2 50 42 AA 49 54 3A |$..X.1:PB.PB.IT:|
00001C70: 8E 00 A7 24 B8 06 50 42 B2 50 42 AB 4D 3A 49 54 |...$..PB.PB.M:IT|
00001C80: B2 49 54 AA 4D 3A 99 51 37 24 51 36 24 22 44 45 |.IT.M:.Q7$Q6$"DE|
00001C90: 41 4C 45 52 20 42 45 54 53 22 4D 3B 3A 8D 31 38 |ALER BETS"M;:.18|
00001CA0: 39 30 3A 54 42 B2 4D 00 E9 24 C2 06 52 B2 30 3A |90:TB.M..$..R.0:|
00001CB0: 99 51 35 24 51 34 24 22 46 4F 4C 44 2C 43 41 4C |.Q5$Q4$"FOLD,CAL|
00001CC0: 4C 2C 52 41 49 53 45 20 20 22 55 4E 24 3B 22 20 |L,RAISE "UN$;" |
00001CD0: 3F 20 9D 22 3B 3A 55 53 24 B2 22 48 46 43 52 22 |? .";:US$."HFCR"|
00001CE0: 3A 55 4C B2 31 3A 8D 33 35 00 F4 24 C7 06 59 24 |:UL.1:.35..$..Y$|
00001CF0: B2 55 52 24 00 0F 25 CC 06 8B 59 24 B2 22 46 22 |.UR$..%...Y$."F"|
00001D00: A7 50 42 B2 50 42 AA 49 54 3A 58 B2 31 3A 8E 00 |.PB.PB.IT:X.1:..|
00001D10: 35 25 D6 06 8B 59 24 B2 22 43 22 A7 42 55 B2 42 |5%...Y$."C".BU.B|
00001D20: 55 AB 4D 3A 49 54 B2 49 54 AA 4D 3A 58 B2 32 3A |U.M:IT.IT.M:X.2:|
00001D30: 89 31 38 38 30 00 47 25 E0 06 8B 59 24 B3 B1 22 |.1880.G%...Y$.."|
00001D40: 52 22 89 31 37 33 30 00 87 25 EA 06 99 51 34 24 |R".1730..%...Q4$|
00001D50: A3 31 37 AA C3 28 55 4E 24 29 29 22 20 20 52 41 |.17..(UN$))" RA|
00001D60: 49 53 45 20 20 22 3B 3A 55 53 24 B2 22 48 30 31 |ISE ";:US$."H01|
00001D70: 32 33 34 35 36 37 38 39 22 3A 55 4C B2 34 3A 8D |23456789":UL.4:.|
00001D80: 33 35 3A 52 46 B2 31 00 94 25 EF 06 52 B2 C5 28 |35:RF.1..%..R..(|
00001D90: 55 52 24 29 00 C4 25 F4 06 42 55 B2 42 55 AB 52 |UR$)..%..BU.BU.R|
00001DA0: AB 4D 3A 49 54 B2 49 54 AA 52 AA 4D 3A 58 B2 32 |.M:IT.IT.R.M:X.2|
00001DB0: 3A 54 42 B2 54 42 AA 52 3A 4D 58 B2 28 50 59 AA |:TB.TB.R:MX.(PY.|
00001DC0: 31 29 AC 4F 00 DA 25 FE 06 99 51 37 24 51 36 24 |1).O..%...Q7$Q6$|
00001DD0: 22 44 45 41 4C 45 52 20 22 3B 00 E9 25 08 07 8B |"DEALER ";..%...|
00001DE0: 50 59 B1 32 89 31 38 35 30 00 FD 25 12 07 8B 42 |PY.2.1850..%...B|
00001DF0: 52 B2 31 B0 50 59 B1 30 89 31 38 34 30 00 12 26 |R.1.PY.0.1840..&|
00001E00: 1C 07 8B 50 56 B1 31 30 AC 31 33 AE 34 89 31 38 |...PV.10.13.4.18|
00001E10: 34 30 00 39 26 26 07 42 55 B2 42 55 AA 49 54 3A |40.9&&.BU.BU.IT:|
00001E20: 58 B2 31 3A 99 22 46 4F 4C 44 53 22 3B 3A 8D 32 |X.1:."FOLDS";:.2|
00001E30: 33 37 30 3A 89 31 38 39 30 00 5D 26 30 07 50 42 |370:.1890.]&0.PB|
00001E40: B2 50 42 AB 52 3A 49 54 B2 49 54 AA 52 3A 99 22 |.PB.R:IT.IT.R:."|
00001E50: 43 41 4C 4C 53 22 3B 3A 89 31 38 39 30 00 6E 26 |CALLS";:.1890.n&|
00001E60: 3A 07 8B 4D 58 B3 B2 54 42 89 31 38 34 30 00 91 |:..MX..TB.1840..|
00001E70: 26 44 07 4D B2 B5 28 4D 58 AB 54 42 29 3A 50 42 |&D.M..(MX.TB):PB|
00001E80: B2 50 42 AB 52 AB 4D 3A 49 54 B2 49 54 AA 52 AA |.PB.R.M:IT.IT.R.|
00001E90: 4D 00 AD 26 4E 07 99 22 52 41 49 53 45 53 22 4D |M..&N.."RAISES"M|
00001EA0: 3B 3A 8D 31 38 39 30 3A 89 31 37 33 30 00 B6 26 |;:.1890:.1730..&|
00001EB0: 58 07 99 51 37 24 00 EE 26 62 07 99 22 13 22 3A |X..Q7$..&b..".":|
00001EC0: 99 51 36 24 A3 33 31 29 22 20 20 20 20 20 20 20 |.Q6$.31)" |
00001ED0: 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 98 50 4F | .............PO|
00001EE0: 54 3D 22 C4 28 49 54 29 3B 3A 99 22 13 22 00 F4 |T=".(IT);:."."..|
00001EF0: 26 6C 07 8E 00 2A 27 76 07 81 49 B2 30 A4 34 3A |&l...*'v..I.0.4:|
00001F00: 58 32 25 28 49 29 B2 B5 28 58 25 28 49 29 AD 31 |X2%(I)..(X%(I).1|
00001F10: 33 29 3A 58 25 28 49 29 B2 58 25 28 49 29 AB 58 |3):X%(I).X%(I).X|
00001F20: 32 25 28 49 29 AC 31 33 3A 82 00 48 27 80 07 81 |2%(I).13:..H'...|
00001F30: 49 B2 31 A4 34 3A 54 32 B2 58 25 28 49 29 3A 54 |I.1.4:T2.X%(I):T|
00001F40: 33 B2 58 32 25 28 49 29 00 67 27 8A 07 81 4A B2 |3.X2%(I).g'...J.|
00001F50: 49 AB 31 A4 30 A9 AB 31 3A 8B 54 32 B1 58 25 28 |I.1.0..1:.T2.X%(|
00001F60: 4A 29 89 31 39 35 30 00 8C 27 94 07 58 25 28 4A |J).1950..'..X%(J|
00001F70: AA 31 29 B2 58 25 28 4A 29 3A 58 32 25 28 4A AA |.1).X%(J):X2%(J.|
00001F80: 31 29 B2 58 32 25 28 4A 29 3A 82 4A 00 AA 27 9E |1).X2%(J):.J..'.|
00001F90: 07 58 25 28 4A AA 31 29 B2 54 32 3A 58 32 25 28 |.X%(J.1).T2:X2%(|
00001FA0: 4A AA 31 29 B2 54 33 3A 82 49 00 DA 27 A8 07 46 |J.1).T3:.I..'..F|
00001FB0: 4B B2 30 3A 46 53 B2 30 3A 53 4B B2 30 3A 53 53 |K.0:FS.0:SK.0:SS|
00001FC0: B2 30 3A 50 4B B2 30 3A 50 53 B2 30 3A 56 B2 30 |.0:PK.0:PS.0:V.0|
00001FD0: 3A 56 44 B2 30 3A 54 59 B2 30 00 1A 28 B2 07 81 |:VD.0:TY.0..(...|
00001FE0: 49 B2 30 A4 34 3A 54 31 B2 30 3A 54 32 B2 30 3A |I.0.4:T1.0:T2.0:|
00001FF0: 54 33 B2 30 3A 54 34 B2 30 3A 54 35 B2 30 3A 54 |T3.0:T4.0:T5.0:T|
00002000: 36 B2 30 3A 54 38 B2 58 25 28 49 29 3A 54 37 B2 |6.0:T8.X%(I):T7.|
00002010: 54 38 AB 49 3A 45 B2 31 45 35 00 2C 28 BC 07 81 |T8.I:E.1E5.,(...|
00002020: 4A B2 30 A4 34 3A 45 B2 45 AD 31 30 00 4C 28 C6 |J.0.4:E.E.10.L(.|
00002030: 07 8B 58 25 28 4A 29 B2 54 37 AA 4A A7 54 31 B2 |..X%(J).T7.J.T1.|
00002040: 54 31 AA 31 3A 54 32 B2 54 32 AA 45 00 6A 28 D0 |T1.1:T2.T2.E.j(.|
00002050: 07 8B 58 25 28 4A 29 B2 54 38 A7 54 33 B2 54 33 |..X%(J).T8.T3.T3|
00002060: AA 31 3A 54 34 B2 54 34 AA 45 00 89 28 DA 07 8B |.1:T4.T4.E..(...|
00002070: 58 32 25 28 4A 29 B2 49 20 A7 54 35 B2 54 35 AA |X2%(J).I .T5.T5.|
00002080: 31 3A 54 36 B2 54 36 AA 45 00 90 28 E4 07 82 4A |1:T6.T6.E..(...J|
00002090: 00 A8 28 EE 07 8B 54 31 B1 B2 53 4B A7 53 4B B2 |..(...T1..SK.SK.|
000020A0: 54 31 3A 53 53 B2 54 32 00 C0 28 F8 07 8B 54 33 |T1:SS.T2..(...T3|
000020B0: B1 B2 50 4B A7 50 4B B2 54 33 3A 50 53 B2 54 34 |..PK.PK.T3:PS.T4|
000020C0: 00 D8 28 02 08 8B 54 35 B1 B2 46 4B A7 46 4B B2 |..(...T5..FK.FK.|
000020D0: 54 35 3A 46 53 B2 54 36 00 DF 28 0C 08 82 49 00 |T5:FS.T6..(...I.|
000020E0: EE 28 16 08 8B 50 4B B3 33 89 32 31 31 30 00 03 |.(...PK.3.2110..|
000020F0: 29 20 08 8B 50 4B B2 34 A7 54 59 B2 38 3A 89 32 |) ..PK.4.TY.8:.2|
00002100: 32 36 30 00 2A 29 2A 08 54 59 B2 36 3A 8D 32 32 |260.*)*.TY.6:.22|
00002110: 39 30 3A 8B 58 25 28 30 29 B3 B1 58 25 28 31 29 |90:.X%(0)..X%(1)|
00002120: A7 54 59 B2 33 3A 56 44 B2 32 00 34 29 34 08 89 |.TY.3:VD.2.4)4..|
00002130: 32 32 37 30 00 5E 29 3E 08 8B 53 4B B2 34 AF 28 |2270.^)>..SK.4.(|
00002140: 58 25 28 33 29 B2 33 AF 58 25 28 34 29 B2 31 32 |X%(3).3.X%(4).12|
00002150: 29 A7 53 4B B2 35 3A 56 B2 39 30 32 34 35 00 6D |).SK.5:V.90245.m|
00002160: 29 48 08 8B 46 4B B2 35 A7 54 59 B2 35 00 7F 29 |)H..FK.5.TY.5..)|
00002170: 52 08 8B 53 4B B2 35 A7 54 59 B2 54 59 AA 34 00 |R..SK.5.TY.TY.4.|
00002180: 8B 29 5C 08 8B 56 89 32 32 38 30 00 98 29 66 08 |.)\..V.2280..)f.|
00002190: 8B 54 59 89 32 32 37 30 00 AB 29 70 08 4A B2 30 |.TY.2270..)p.J.0|
000021A0: 3A 8B 42 52 B2 32 89 32 32 30 30 00 CD 29 7A 08 |:.BR.2.2200..)z.|
000021B0: 4A B2 58 25 28 34 29 AB 58 25 28 30 29 3A 8B 46 |J.X%(4).X%(0):.F|
000021C0: 4B B3 34 AF 53 4B B3 34 89 32 32 30 30 00 EF 29 |K.4.SK.4.2200..)|
000021D0: 84 08 54 59 B2 31 2E 35 3A 56 44 B2 31 3A 50 53 |..TY.1.5:VD.1:PS|
000021E0: B2 53 53 3A 8B 46 4B B2 34 A7 50 53 B2 46 53 00 |.SS:.FK.4.PS.FS.|
000021F0: F9 29 8E 08 89 32 32 36 30 00 0E 2A 98 08 8B 50 |.)...2260..*...P|
00002200: 4B B2 32 A7 8D 32 32 39 30 3A 54 59 B2 31 00 28 |K.2..2290:TY.1.(|
00002210: 2A A2 08 8B 58 25 28 31 29 B2 58 25 28 32 29 A7 |*...X%(1).X%(2).|
00002220: 50 53 B2 30 31 31 31 31 00 42 2A AC 08 8B 58 25 |PS.01111.B*...X%|
00002230: 28 31 29 B2 58 25 28 30 29 A7 50 53 B2 31 31 30 |(1).X%(0).PS.110|
00002240: 31 31 00 5D 2A B6 08 8B 50 53 B1 31 31 A7 54 59 |11.]*...PS.11.TY|
00002250: B2 32 3A 56 44 B2 31 3A 89 32 32 36 30 00 6B 2A |.2:VD.1:.2260.k*|
00002260: C0 08 8B 4A B2 33 89 32 31 38 30 00 74 2A CA 08 |...J.3.2180.t*..|
00002270: 56 44 B2 33 00 7E 2A D4 08 8D 32 32 39 30 00 8D |VD.3.~*...2290..|
00002280: 2A DE 08 8D 32 33 36 30 3A 56 B2 54 37 00 B2 2A |*...2360:V.T7..*|
00002290: E8 08 81 49 B2 30 A4 34 3A 58 25 28 49 29 B2 58 |...I.0.4:X%(I).X|
000022A0: 25 28 49 29 AA 31 33 AC 58 32 25 28 49 29 3A 82 |%(I).13.X2%(I):.|
000022B0: 3A 8E 00 F3 2A F2 08 45 B2 31 45 35 3A 81 49 B2 |:...*..E.1E5:.I.|
000022C0: 30 A4 34 3A 45 B2 45 AD 31 30 3A 54 32 B2 B5 28 |0.4:E.E.10:T2..(|
000022D0: 28 50 53 AA 31 45 AB 35 29 AD 45 29 3A 50 53 25 |(PS.1E.5).E):PS%|
000022E0: 28 49 29 B2 54 32 3A 50 53 B2 50 53 AB 54 32 AC |(I).T2:PS.PS.T2.|
000022F0: 45 3A 82 00 0C 2B FC 08 81 49 B2 31 A4 34 3A 8B |E:...+...I.1.4:.|
00002300: 50 53 25 28 49 29 89 32 33 35 20 30 00 2D 2B 06 |PS%(I).235 0.-+.|
00002310: 09 54 32 B2 50 53 25 28 49 29 3A 54 33 B2 58 25 |.T2.PS%(I):T3.X%|
00002320: 28 49 29 3A 54 34 B2 58 32 25 28 49 29 00 4D 2B |(I):T4.X2%(I).M+|
00002330: 10 09 81 4A B2 49 AB 31 A4 30 A9 AB 31 3A 8B 50 |...J.I.1.0..1:.P|
00002340: 53 25 28 4A 29 B2 30 89 32 33 34 20 30 00 82 2B |S%(J).0.234 0..+|
00002350: 1A 09 50 53 25 28 4A AA 31 29 B2 50 53 25 28 4A |..PS%(J.1).PS%(J|
00002360: 29 3A 58 25 28 4A AA 31 29 B2 58 25 28 4A 29 3A |):X%(J.1).X%(J):|
00002370: 58 32 25 28 4A AA 31 29 B2 58 32 25 28 4A 29 3A |X2%(J.1).X2%(J):|
00002380: 82 4A 00 A9 2B 24 09 50 53 25 28 4A AA 31 29 B2 |.J..+$.PS%(J.1).|
00002390: 54 32 3A 58 25 28 4A AA 31 29 B2 54 33 3A 58 32 |T2:X%(J.1).T3:X2|
000023A0: 25 28 4A AA 31 29 B2 54 34 00 B2 2B 2E 09 82 49 |%(J.1).T4..+...I|
000023B0: 3A 8E 00 DF 2B 38 09 54 37 B2 30 3A 45 B2 31 3A |:...+8.T7.0:E.1:|
000023C0: 81 49 B2 30 A4 34 3A 54 37 B2 54 37 AA 58 25 28 |.I.0.4:T7.T7.X%(|
000023D0: 49 29 AC 45 3A 45 B2 45 AC 31 33 3A 82 3A 8E 00 |I).E:E.E.13:.:..|
000023E0: E9 2B 42 09 57 54 B2 54 49 00 FD 2B 4C 09 8B 20 |.+B.WT.TI..+L.. |
000023F0: 54 49 B3 57 54 AA 57 89 32 33 38 20 30 00 03 2C |TI.WT.W.238 0..,|
00002400: 56 09 8E 00 3F 2C 60 09 4B 25 B2 B5 28 4B 4E 25 |V...?,`.K%..(KN%|
00002410: AC BB 28 37 29 29 3A 43 4E B2 44 4B 25 28 4B 25 |..(7)):CN.DK%(K%|
00002420: 29 3A 81 4C 4C B2 4B 25 A4 35 30 3A 44 4B 25 28 |):.LL.K%.50:DK%(|
00002430: 4C 4C 29 B2 44 4B 25 28 4C 4C AA 31 29 3A 82 00 |LL).DK%(LL.1):..|
00002440: 5A 2C 6A 09 44 4B 25 28 35 31 29 B2 43 4E 3A 4B |Z,j.DK%(51).CN:K|
00002450: 4E 25 B2 4B 4E 25 AB 31 3A 8E 00 63 2C 74 09 8F |N%.KN%.1:..c,t..|
00002460: 20 55 50 00 8F 2C 7E 09 4A B2 B5 28 43 4E AD 31 | UP..,~.J..(CN.1|
00002470: 33 29 3A 4B B2 43 4E AB 4A AC 31 33 3A 99 C8 28 |3):K.CN.J.13:..(|
00002480: 51 34 24 2C 4C 4E 29 3B 3A 99 A3 4B 4C 29 3B 00 |Q4$,LN);:..KL);.|
00002490: C3 2C 88 09 99 C7 28 31 34 32 29 3B 3A 99 22 12 |.,....(142);:.".|
000024A0: 20 20 20 20 20 20 20 22 51 31 24 3B 3A 99 22 20 | "Q1$;:." |
000024B0: 22 43 56 24 28 4B 2C 30 29 22 20 20 20 20 22 51 |"CV$(K,0)" "Q|
000024C0: 31 24 3B 00 EB 2C 92 09 99 22 20 22 53 55 24 28 |1$;..,..." "SU$(|
000024D0: 4A 2C 33 29 3B 53 55 24 28 4A 2C 53 25 28 4B 2C |J,3);SU$(J,S%(K,|
000024E0: 30 29 29 22 20 20 22 51 31 24 3B 00 14 2D 9C 09 |0))" "Q1$;..-..|
000024F0: 81 4C B2 31 A4 35 3A 99 22 20 20 22 53 55 24 28 |.L.1.5:." "SU$(|
00002500: 4A 2C 53 25 28 4B 2C 4C 29 29 22 20 20 22 51 31 |J,S%(K,L))" "Q1|
00002510: 24 3B 3A 82 00 53 2D A6 09 99 22 20 20 22 53 55 |$;:..S-..." "SU|
00002520: 24 28 4A 2C 53 25 28 4B 2C 36 29 29 3B 53 55 24 |$(J,S%(K,6));SU$|
00002530: 28 4A 2C 33 29 22 20 22 51 31 24 3B 3A 99 22 20 |(J,3)" "Q1$;:." |
00002540: 20 20 20 22 43 56 24 28 4B 2C 31 29 22 20 22 51 | "CV$(K,1)" "Q|
00002550: 31 24 3B 00 68 2D B0 09 99 22 20 20 20 20 20 20 |1$;.h-..." |
00002560: 20 92 22 51 31 24 3A 8E 00 7F 2D BA 09 99 C8 28 | ."Q1$:...-....(|
00002570: 51 34 24 2C 4C 4E 29 3B 3A 99 A3 4B 4C 29 3B 00 |Q4$,LN);:..KL);.|
00002580: 9F 2D C4 09 99 22 12 20 20 20 20 20 20 20 22 51 |.-...". "Q|
00002590: 31 24 3B 3A 8F 20 46 41 43 45 20 44 4F 57 4E 00 |1$;:. FACE DOWN.|
000025A0: C5 2D CE 09 99 C7 28 31 34 32 29 3B 3A 81 4A B2 |.-....(142);:.J.|
000025B0: 32 A4 31 30 3A 99 22 20 A6 A6 A6 A6 A6 20 22 51 |2.10:." ..... "Q|
000025C0: 31 24 3B 3A 82 00 CF 2D D8 09 89 32 34 38 30 00 |1$;:...-...2480.|
000025D0: 13 2E E2 09 51 31 24 B2 22 11 9D 9D 9D 9D 9D 9D |....Q1$.".......|
000025E0: 9D 22 3A 51 32 24 B2 22 91 91 91 91 91 91 91 91 |.":Q2$."........|
000025F0: 91 91 91 22 3A 51 34 24 B2 22 13 11 11 11 11 11 |...":Q4$."......|
00002600: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002610: 11 11 22 00 45 2E EC 09 58 58 24 B2 22 20 20 20 |..".E...XX$." |
00002620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002640: 20 20 20 20 22 00 82 2E F6 09 51 35 24 B2 51 34 | ".....Q5$.Q4|
00002650: 24 AA 58 58 24 3A 51 36 24 B2 51 34 24 AA 22 11 |$.XX$:Q6$.Q4$.".|
00002660: 22 3A 51 37 24 B2 51 36 24 AA 58 58 24 AA 22 13 |":Q7$.Q6$.XX$.".|
00002670: 22 3A 51 38 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D |":Q8$.".........|
00002680: 9D 22 00 A2 2E 00 0A 42 55 B2 35 30 30 3A 50 42 |.".....BU.500:PB|
00002690: B2 35 30 30 3A 54 55 B2 31 3A 49 B2 BB 28 AB 54 |.500:TU.1:I..(.T|
000026A0: 49 29 00 B9 2E 1E 0A 81 4D B2 30 A4 35 32 3A 44 |I)......M.0.52:D|
000026B0: 4B 25 28 4D 29 B2 4D 3A 82 00 E8 2E 28 0A 81 4D |K%(M).M:....(..M|
000026C0: B2 30 A4 33 3A 53 55 24 28 4D 2C 30 29 B2 22 20 |.0.3:SU$(M,0)." |
000026D0: 20 20 22 3A 81 4B B2 31 A4 33 3A 87 53 55 24 28 | ":.K.1.3:.SU$(|
000026E0: 4D 2C 4B 29 3A 82 3A 82 00 0F 2F 32 0A 81 4B B2 |M,K):.:.../2..K.|
000026F0: 34 A4 31 33 3A 87 41 24 3A 81 4D B2 30 A4 33 3A |4.13:.A$:.M.0.3:|
00002700: 53 55 24 28 4D 2C 4B 29 B2 41 24 3A 82 3A 82 00 |SU$(M,K).A$:.:..|
00002710: 31 2F 3C 0A 81 4D B2 30 A4 31 32 3A 87 43 56 24 |1/<..M.0.12:.CV$|
00002720: 28 4D 2C 30 29 3A 87 43 56 24 28 4D 2C 31 29 3A |(M,0):.CV$(M,1):|
00002730: 82 00 51 2F 46 0A 81 4D B2 30 A4 31 32 3A 81 4B |..Q/F..M.0.12:.K|
00002740: B2 30 A4 36 3A 87 53 25 28 4D 2C 4B 29 3A 82 3A |.0.6:.S%(M,K):.:|
00002750: 82 00 67 2F 50 0A 81 4D B2 30 A4 39 3A 87 20 57 |..g/P..M.0.9:. W|
00002760: 57 24 28 4D 29 3A 82 00 6D 2F 5A 0A 8E 00 B2 2F |W$(M):..m/Z..../|
00002770: 64 0A 83 22 20 D3 20 22 2C 22 D3 20 D3 22 2C 22 |d.." . ",". .","|
00002780: D3 22 2C 22 20 DA 20 22 2C 22 DA 20 DA 22 2C 22 |."," . ",". .","|
00002790: DA 22 2C 22 20 D8 20 22 2C 22 D8 20 D8 22 2C 22 |."," . ",". .","|
000027A0: D8 22 2C 22 20 C1 20 22 2C 22 C1 20 C1 22 2C 22 |."," . ",". .","|
000027B0: C1 22 00 F3 2F 6E 0A 83 22 20 4A 20 22 2C 22 20 |."../n.." J "," |
000027C0: 41 20 22 2C 22 20 43 20 22 2C 22 20 4B 20 22 2C |A "," C "," K ",|
000027D0: 22 20 51 20 22 2C 22 20 55 20 22 2C 22 20 45 20 |" Q "," U "," E |
000027E0: 22 2C 22 20 4E 20 22 2C 22 20 49 20 22 2C 22 20 |"," N "," I "," |
000027F0: 47 20 22 00 3E 30 78 0A 83 22 32 20 22 2C 22 20 |G ".>0x.."2 "," |
00002800: 32 22 2C 22 33 20 22 2C 22 20 33 22 2C 22 34 20 |2","3 "," 3","4 |
00002810: 22 2C 22 20 34 22 2C 22 35 20 22 2C 22 20 35 22 |"," 4","5 "," 5"|
00002820: 2C 22 36 20 22 2C 22 20 36 22 2C 22 37 20 22 2C |,"6 "," 6","7 ",|
00002830: 22 20 37 22 2C 22 38 20 22 2C 22 20 38 22 00 7F |" 7","8 "," 8"..|
00002840: 30 82 0A 83 22 39 20 22 2C 22 20 39 22 2C 22 31 |0..."9 "," 9","1|
00002850: 30 22 2C 22 31 30 22 2C 22 4A 20 22 2C 22 20 4A |0","10","J "," J|
00002860: 22 2C 22 51 20 22 2C 22 20 51 22 2C 22 4B 20 22 |","Q "," Q","K "|
00002870: 2C 22 20 4B 22 2C 22 41 20 22 2C 22 20 41 22 00 |," K","A "," A".|
00002880: C0 30 8C 0A 83 20 30 2C 31 2C 30 2C 30 2C 30 2C |.0... 0,1,0,0,0,|
00002890: 31 2C 30 2C 20 30 2C 31 2C 30 2C 31 2C 30 2C 31 |1,0, 0,1,0,1,0,1|
000028A0: 2C 30 2C 20 30 2C 32 2C 30 2C 30 2C 30 2C 32 2C |,0, 0,2,0,0,0,2,|
000028B0: 30 2C 20 30 2C 32 2C 30 2C 31 2C 30 2C 32 2C 30 |0, 0,2,0,1,0,2,0|
000028C0: 00 01 31 96 0A 83 20 30 2C 32 2C 30 2C 32 2C 30 |..1... 0,2,0,2,0|
000028D0: 2C 32 2C 30 2C 20 30 2C 32 2C 31 2C 32 2C 30 2C |,2,0, 0,2,1,2,0,|
000028E0: 32 2C 30 2C 20 30 2C 32 2C 31 2C 32 2C 31 2C 32 |2,0, 0,2,1,2,1,2|
000028F0: 2C 30 2C 20 32 2C 31 2C 32 2C 30 2C 32 2C 30 2C |,0, 2,1,2,0,2,0,|
00002900: 32 00 4B 31 A0 0A 83 20 32 2C 31 2C 32 2C 30 2C |2.K1... 2,1,2,0,|
00002910: 32 2C 31 2C 32 2C 20 30 2C 34 2C 35 2C 36 2C 37 |2,1,2, 0,4,5,6,7|
00002920: 2C 30 2C 30 2C 20 20 20 20 30 2C 38 2C 39 2C 31 |,0,0, 0,8,9,1|
00002930: 30 2C 31 30 2C 31 31 2C 30 2C 20 30 2C 37 2C 31 |0,10,11,0, 0,7,1|
00002940: 32 2C 31 31 2C 31 33 2C 30 2C 30 00 5F 31 AA 0A |2,11,13,0,0._1..|
00002950: 83 20 30 2C 30 2C 30 2C 31 2C 30 2C 30 2C 30 00 |. 0,0,0,1,0,0,0.|
00002960: A8 31 B4 0A 83 20 22 5A 49 50 22 2C 22 41 20 50 |.1... "ZIP","A P|
00002970: 41 49 52 22 2C 22 54 57 4F 20 50 41 49 52 22 2C |AIR","TWO PAIR",|
00002980: 22 54 48 52 45 45 20 4F 46 20 41 20 4B 49 4E 44 |"THREE OF A KIND|
00002990: 22 2C 22 41 20 53 54 52 41 49 47 48 54 22 2C 22 |","A STRAIGHT","|
000029A0: 41 20 46 4C 55 53 48 22 00 E4 31 BE 0A 83 22 41 |A FLUSH"..1..."A|
000029B0: 20 46 55 4C 4C 20 48 4F 55 53 45 22 2C 22 37 22 | FULL HOUSE","7"|
000029C0: 2C 22 46 4F 55 52 20 4F 46 20 41 20 4B 49 4E 44 |,"FOUR OF A KIND|
000029D0: 22 2C 22 41 20 53 54 52 41 49 47 48 54 20 46 4C |","A STRAIGHT FL|
000029E0: 55 53 48 22 00 20 32 18 F6 97 36 34 36 2C 30 3A |USH". 2...646,0:|
000029F0: 97 36 34 37 2C 30 3A 41 24 B2 22 4B 45 59 50 55 |.647,0:A$."KEYPU|
00002A00: 4E 43 48 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 |NCH":.53280,0:.5|
00002A10: 33 32 38 31 2C 30 3A 42 24 B2 22 4D 45 4E 55 22 |3281,0:B$."MENU"|
00002A20: 00 57 32 22 F6 99 22 93 11 11 11 11 11 11 11 11 |.W2"..".........|
00002A30: 11 11 11 11 22 3B A6 32 30 AB 28 28 38 AA C3 28 |....";.20.((8..(|
00002A40: 42 24 29 29 AD 32 29 29 3B 22 9E 4C 4F 41 44 49 |B$)).2));".LOADI|
00002A50: 4E 47 20 22 3B 42 24 00 83 32 2C F6 97 36 34 36 |NG ";B$..2,..646|
00002A60: 2C 30 3A 99 22 13 11 11 11 11 4C 4F 41 44 22 3B |,0:.".....LOAD";|
00002A70: C7 28 33 34 29 3B 42 24 3B C7 28 33 34 29 3B 22 |.(34);B$;.(34);"|
00002A80: 2C 38 22 00 B8 32 36 F6 99 22 11 11 11 11 52 55 |,8"..26.."....RU|
00002A90: 4E 22 3A 97 31 39 38 2C 33 3A 97 36 33 31 2C 31 |N":.198,3:.631,1|
00002AA0: 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 |3:.632,13:.633,1|
00002AB0: 33 3A 99 22 13 22 3A A2 00 00 00 |3:.".":.... |
.......910.6...."X..........X` ......L4.
X.1........X` .A...."X.G......X` ......L
X.X.U......X` ......"XHHH.H.HHHHHHH.H
.HX` ......"HHHHHHH` ......" .H...X.
. ..... .H...P...JP.` .U....".. .H....
.P.....JP.` ...#..UW.0..SYSUU,2...(..UC
,0:.UN,0:UR$."":UI$."":.UL.0.UL.39.,.-..
".";:.UI$:.UI$."".45.A.2.UA.F(UI$):UR.C(
UR$):.UA.13.UR.0..UC,2:." .";:.70...7..U
A.20...(UR.0).45:UR$.H(UR$,UR.1):.". ..
";:.45...<..UR.UL.45.B.A..95:UR$.UR$.UI$
:.UI$;:.45...F..UR$.UX$..". ";:.145...K.
.UI.UR.1..1:.J(UR$,UI,1)." ".....P.UR$.H
(UR$,UI):.:..&._..C(US$).0.110.R.D..UI.1
.C(US$):.UI$..J(US$,UI,1)..:UI$."".X.I..
.E.N..UA.46...X.S..UA.32.UR..0.....X..UA
.47.UA.58.....}..UA.64.UA.91........UA.1
93.UA.218.UI$."":..W....B(UT).UU%.UI$.G(
UA.128)............170:.251,0:.252,US.25
6:.253,0:.254,UF:.UV.$...UZ.1:UV%.B(UT):
.300.I...UZ.0:US$.UJ$:UG$.UK$:UT$.UL$:UP
.UJ:UL.UK:.".";:.UW.0..UY,0:.UX,0... ..U
T,UV%:.251,0:.252,UF:.253,0:.254,US.256:
.UV:.UW.0..UU,15.R....U1,U1%:.U2,U2%:.U3
,U3%.1:.U4,U4%:.35.....U1%.B(U1):U2%.B(U
2):U3%.B(U3):U4%.B(U4).(...UJ$.US$:UK$.U
G$:UL$.UT$:UJ.UP:UK.UL:..M.,.."..":.UT,U
U%:.UW.0..UY,0 :.UX,0.R.1.."....
U.......I "...6.." U.......
B.M E N U.B.......I ".H.7.." B
J.......K B...8.." B
B ".".;.."
B . 1. INSTRUCTIONS . B ".N.<..
" B B ".|
.@.." B . 2. DRAW POKER . B
"...A.." B
B ".V.E.." B . 3. QUIT
. B "...J.." B
B "...O.." J.......
................K ".Y.T..".. PR
ESS A NUMBER KEY (1-3) ";.L.Y.UL.1:US$."
123".{.[..35:US$.""...^..E(UR$).400,1000
,390...C..300...R..UZ.1..UP%:.155...W...
.....UE:."..":.UW.0..UY,0:.UX,0 :.UU,0..
....63000......".":.UT,UL%:.UW.0..UY,0 :
.UX,0.E...UT$." ":UH.1:UP.0:UG
$." ":.850.T....".. THE RULES
ARE EXPLAINED WHEN RUNNING"......". THE
PROGRAM."......". IF AT ANY TIME YOU WI
SH TO RETURN"......". TO THE MENU PRESS
H <RETURN>.":."."......835......UZ.1..UP
%:.155.......(....".":.UT,UL%:.UW.0..UY,
2:.UX,10.A...UT$.". DRAW POKER":UH.1:UP.
0:UG$."INSTRUCTIONS":.850......"..
."......"
".T...."
."......"
"......"
"."....".G...."
".I...."
"......"
".....UH.1:.835:.850......" ......
.." ..H...." ..W...." ...
....."......"......"......"...I..835...N
..UZ.1..UP%:.155...S...$....UC$".....3.A
.."":.63000.Z. .."....";:.UT,UU%:.UW.0..
UY,0:.UX,0.K.!..FORI=1TO38:.|."..FORI=1T
O22:...#..FORI=1TO37:...$..FORI=1TO22:.C
.%..PRINT" ..O.&.
.PRINT"...'..PRINT"...(..PRINT"
....)..PRINT"...*..PRINT"...+..PRIN
T". .,...R.-..GETUI$:IFUI$<>" "THENUI=UI
+1:IFUI<250THEN813.[....300...C..UN,0:.H
(UD$,24);".......PRESS SPACE BAR TO CONT
INUE."...H..".";:.UI$:.UI$.." ".840...M.
..J.R.UP.UP.1:."."...W..".............D
R A W P O K E R "...\..UH.0..H(UD$,24
);H(UP$,7);"HELP - PRESS H <RETURN>".?
.A.UH.0:."..":..W.K..H(UD$,24);"
ONE MOMENT PLEASE... ":..G...UX$.
"H":US.32768:U1.196:U2.197:U3.198:U4.216
:UC.167:UB.1024:UD.1084:UE.1105.....UT.5
9468:UU%.12:UL%.14:UP%.1158:UN.158:.5000
3,0:UW.B(50003):UF.B(53).^....UW.0.US.10
24:U1.209:U2.210:U3.211:U4.214:UC.204:UB
.2048:UX.53280:UD.2064......UW.0.UT.5327
2:UU%.21:UL%.23:UP%.2151:UN.198:UY.53281
:UU.2199:UE.2087.T...UC$.G(155):UV.1214:
.UW.0.UF.196:UV.2238.%...UD$."..........
...............":UP$."
".C.... DK%(52),SU$(
3,13),CV$(12,1),S%(12,6),PH(4),UH(4),WW$
(9).}.... X%(4),X2%(4),PS%(4)...........
.900:.".":." ":. SHIFTED SPACE......B(US
.40)..96.700......(.(0).(.(.(0)).0).6553
6).500.935......UC$"...THIS MACHINE DOES
NOT HAVE ENOUGH.".=...."MEMORY TO RUN T
HIS PROGRAM !":.63000.S...."."UC$:.UW.0.
965.P....UF.60.UF.108.UF.124.950......52
,0:.53,UF.4:.:.900.A....UW.160..1103,88:
.1104,228:.1107,85:.1111,228:.965......U
W..1..".THIS PGM WILL NOT WORK ON THIS M
ACHINE!":.63000......1103,49:.1104,230:.
1107,46:.1111,230:.965.6.E..UD.D.J..800:
.300.]....UZ.1..UP%:.UP%:UZ.0.~...."."UC
$;:.:.UW.0..UY,0:.UX,0...... *** *******
***...... *** **************** ****...
... ***.X.... *** *** **** *****...$.. *
** ******** ********...... *** ******* *
**...8.. *** **************** ** *****.4
.B...A.L.. FRE=90.F.M..UT,UL%:UG$."":UT$
." ".O.Q..850...V..53281,0:.53
280,0:."...
"...E.."... I AM THE DEALER.":.".
WHO ARE YOU? ";:LC.1...J.US$."":UL.8:.35
:UN$.UR$:LC.0. .T..C(UN$).8.UN$.H(UN$,8)
.+.W.JL$."".<.X..Y7.1.C(UN$).P.Y.LL$.J(U
N$,Y7,1)...{.. F(LL$).192. F(LL$).219.JL
$.JL$.G(F(LL$).128):.1149...|.JL$.JL$.LL
$...}..Y7:UN$.JL$...~.UH.1:.850:.".. OKA
Y ."UN$",. HERE ARE THE HOUSE RULES:"...
...".. THE ANTE IS 5 DOLLARS AND THER
E.".B...." IS NO LIMIT ON BETS. WE A
LTERNATE.".Q...." OPENING BETS. OPEN
WITH ANYTHING.."......" NO CHECKING,
ONLY OPEN OR BET 0.".K...." (FOLD).
WHEN ASKED TO FOLD, CALL,."......" OR
RAISE, SIMPLY REPLY WITH."......" F
OR C OR R AND THEN <RETURN>..".'....835.
5...UH.1:.850.`....".. WHEN ASKED TO
BET, OR WHEN ."......" RAISING, SIM
PLY REPLY WITH THE."......" AMOUNT A
ND <RETURN>. TO DRAW,."......" ENTE
R EACH CARD NUMBER AND."... .." <RET
URN>.."......" IF YOU PROMISE NOT TO
TAKE.".G...." ADVANTAGE OF MY ARTIF
ICIAL.".P...." INTELLIGENCE OF NOT K
NOWING."......" WHEN TO FOLD, I WON'
T PEEK."......" AT YOUR CARDS !.".K.
D..835:.".":.UT,UU%.T....875......2530..
....G(14):UG$."":UT$.". DRAW POKER".....
UH.1:.850.,....GETA$:IFA$=""THEN1301.M..
..G(14):."..... DEALER HAS"PB:.".. "
UN$" HAS"BU:.".":.835......PB.0.BU.0.135
0.....Y$.UN$:.PB..0.Y$."DEALER"...(.."..
...... "Y$" IS BROKE"...2..". ANOTHE
R GAME? ";:US$."YNH":UL.1:.35...7..UR$."
N"..:.900:.300...<.PB.500:BU.500:.1300.X
.F.UH.1:.850:.G(14):."..... I HOPE YOU D
ON'T MIND BUT I"...H..".. LIKE TO SHUFFL
E THE DECK A LOT.":TI$."000000"...K..TI$
."000003".W.100:.2370:KN%.52:.1360.D.L..
1355...P..".":IT.10:PB.PB.5:BU.BU.5:.188
0.% Z..M.0.4:.2400:UH(M).CN:LN.13:KL.M.8
:.2420:.2400:PH(M).CN.? D.X%(M).CN:LN.1:
.2490:..P N..H(Q4$,12).3)"1".11)"2".19)"
3".27)"4".35)"5".. X.BR.1:.1910:.I.0.4:P
H(I).X%(I):..L ..PV.V:PY.TY:PD.VD:TU.1.T
U:M.0:.TU.M..(PY.3.1).10:O.M.. ...1690:.
X.1300,1430.. ..DR.0:W.50:.2370:.1880.=!
..Q5$Q4$"CARD # "UN$", 0 IF NONE ";:U
S$."H012345":UL.1:.35.K!..DN.E(UR$).Z!..
.DN.0.1490.U!..DN.DN.1:.UH(DN).0.1440..!
H.DR.DR.1:UH(DN)..1:LN.13:KL.DN.8:.2490:
.DR.3.1440.L!R..Q5$Q4$"DEALER TAKES"PD:.
1880..!...".":LN.13:.I.0.4.."...UH(I).0.
.2400:UH(I).CN:KL.I.8:.2420.."....6"...P
D.0..I.0.PD.1:.2400:PH(I).CN:..E"...I.0.
4:X%(I).PH(I):.:BR.2:.1910:PV.V:PY.TY.."
...I.0.4:X%(I).UH(I):.:.1910:VV.V:VY.TY:
M.0.O"...TU.M..(PY.2.1).10:.PY.4.PY.1..R
F.0.M.M..(12..(1).4).10.."".O.M:.1690..#
,.LN.1:.I.0.4:KL.I.8:CN.PH(I):.2420:.:I.
PY:J.VY:.X.1.1670.,#6..I.J.I.PV:J.VV.G#@
..J.I.W$.UN$:K.VY:.1620.\#J.W$."DEALER":
K.PY..#T..Q5$Q4$W$" WINS WITH "WW$(K):.Z
Z.1.4500:...#^..I.J.PB.PB.IT:.1670..#H..
J.I.BU.BU.IT:.1670.X#R.IT.IT.2:PB.PB.IT:
BU.BU.IT..#.....#...WQ.1.1000:.1300..$..
.1880:RF.0:.M.1720.G$...Q5$Q4$UN$" BETS
";:US$."H0123456789":UL.4:.35:R.E(UR$).
^$..O.R:TB.R:.R.0.1780.Q$..X.1:PB.PB.IT:
...$..PB.PB.M:IT.IT.M:.Q7$Q6$"DEALER BET
S"M;:.1890:TB.M..$B.R.0:.Q5$Q4$"FOLD,CAL
L,RAISE "UN$;" ? .";:US$."HFCR":UL.1:.3
5..$G.Y$.UR$..%L..Y$."F".PB.PB.IT:X.1:..
5%V..Y$."C".BU.BU.M:IT.IT.M:X.2:.1880.G%
...Y$.."R".1730..%...Q4$.17.C(UN$))" RA
ISE ";:US$."H0123456789":UL.4:.35:RF.1.
.%..R.E(UR$).D%..BU.BU.R.M:IT.IT.R.M:X.2
:TB.TB.R:MX.(PY.1).O.Z%...Q7$Q6$"DEALER
";..%...PY.2.1850..%...BR.1.PY.0.1840..&
...PV.10.13.4.1840.9&&.BU.BU.IT:X.1:."FO
LDS";:.2370:.1890.]&0.PB.PB.R:IT.IT.R:."
CALLS";:.1890.N&:..MX..TB.1840..&D.M..(M
X.TB):PB.PB.R.M:IT.IT.R.M..&N.."RAISES"M
;:.1890:.1730..&X..Q7$..&B..".":.Q6$.31)
" .............POT="D(IT);:."."..
&L...*'V..I.0.4:X2%(I)..(X%(I).13):X%(I)
.X%(I).X2%(I).13:..H'...I.1.4:T2.X%(I):T
3.X2%(I).G'...J.I.1.0..1:.T2.X%(J).1950.
.'..X%(J.1).X%(J):X2%(J.1).X2%(J):.J..'.
.X%(J.1).T2:X2%(J.1).T3:.I.Z'..FK.0:FS.0
:SK.0:SS.0:PK.0:PS.0:V.0:VD.0:TY.0..(...
I.0.4:T1.0:T2.0:T3.0:T4.0:T5.0:T6.0:T8.X
%(I):T7.T8.I:E.1E5.,(...J.0.4:E.E.10.L(F
..X%(J).T7.J.T1.T1.1:T2.T2.E.J(P..X%(J).
T8.T3.T3.1:T4.T4.E..(Z..X2%(J).I .T5.T5.
1:T6.T6.E..(...J..(...T1..SK.SK.T1:SS.T2
..(...T3..PK.PK.T3:PS.T4.X(...T5..FK.FK.
T5:FS.T6..(...I..(...PK.3.2110..) ..PK.4
.TY.8:.2260.*)*.TY.6:.2290:.X%(0)..X%(1)
.TY.3:VD.2.4)4..2270.^)>..SK.4.(X%(3).3.
X%(4).12).SK.5:V.90245.M)H..FK.5.TY.5.)
R..SK.5.TY.TY.4..)\..V.2280..)F..TY.2270
..)P.J.0:.BR.2.2200.M)Z.J.X%(4).X%(0):.F
K.4.SK.4.2200..)..TY.1.5:VD.1:PS.SS:.FK.
4.PS.FS..)...2260..*...PK.2..2290:TY.1.(
*...X%(1).X%(2).PS.01111.B*...X%(1).X%(0
).PS.11011.]*...PS.11.TY.2:VD.1:.2260.K*
...J.3.2180.T*J.VD.3.~*T..2290..*...2360
:V.T7..*...I.0.4:X%(I).X%(I).13.X2%(I):.
:...*..E.1E5:.I.0.4:E.E.10:T2..((PS.1E.5
).E):PS%(I).T2:PS.PS.T2.E:...+...I.1.4:.
PS%(I).235 0.-+..T2.PS%(I):T3.X%(I):T4.X
2%(I).M+...J.I.1.0..1:.PS%(J).0.234 0..+
..PS%(J.1).PS%(J):X%(J.1).X%(J):X2%(J.1)
.X2%(J):.J..+$.PS%(J.1).T2:X%(J.1).T3:X2
%(J.1).T4..+...I:...+8.T7.0:E.1:.I.0.4:T
7.T7.X%(I).E:E.E.13:.:...+B.WT.TI..+L..
TI.WT.W.238 0..,V...?,`.K%..(KN%..(7)):C
N.DK%(K%):.LL.K%.50:DK%(LL).DK%(LL.1):..
Z,J.DK%(51).CN:KN%.KN%.1:..C,T.. UP..,~.
J..(CN.13):K.CN.J.13:.H(Q4$,LN);:..KL);.
C,...G(142);:.". "Q1$;:." "CV$(K,0
)" "Q1$;..,..." "SU$(J,3);SU$(J,S%(K,
0))" "Q1$;..-...L.1.5:." "SU$(J,S%(K,L
))" "Q1$;:..S-..." "SU$(J,S%(K,6));SU$
(J,3)" "Q1$;:." "CV$(K,1)" "Q1$;.H-..
." ."Q1$:..-...H(Q4$,LN);:..KL);.
.-D..". "Q1$;:. FACE DOWN.E-N..G(1
42);:.J.2.10:." ..... "Q1$;:..O-X..2480.
....Q1$."........":Q2$."...........":Q4$
."........................".E...XX$."
"...
..Q5$.Q4$.XX$:Q6$.Q4$.".":Q7$.Q6$.XX$.".
":Q8$."..........".....BU.500:PB.500:TU.
1:I..(.TI)......M.0.52:DK%(M).M:....(..M
.0.3:SU$(M,0)." ":.K.1.3:.SU$(M,K):.:.
../2..K.4.13:.A$:.M.0.3:SU$(M,K).A$:.:..
1/<..M.0.12:.CV$(M,0):.CV$(M,1):..Q/F..M
.0.12:.K.0.6:.S%(M,K):.:..G/P..M.0.9:. W
W$(M):..M/Z..../D.." S ","S S","S"," Z "
,"Z Z","Z"," X ","X X","X"," A ","A A","
A"../N.." J "," A "," C "," K "," Q ","
U "," E "," N "," I "," G ".>0X.."2 ","
2","3 "," 3","4 "," 4","5 "," 5","6 ","
6","7 "," 7","8 "," 8".0..."9 "," 9","1
0","10","J "," J","Q "," Q","K "," K","A
"," A"..0... 0,1,0,0,0,1,0, 0,1,0,1,0,1
,0, 0,2,0,0,0,2,0, 0,2,0,1,0,2,0..1... 0
,2,0,2,0,2,0, 0,2,1,2,0,2,0, 0,2,1,2,1,2
,0, 2,1,2,0,2,0,2.K1 .. 2,1,2,0,2,1,2, 0
,4,5,6,7,0,0, 0,8,9,10,10,11,0, 0,7,1
2,11,13,0,0._1... 0,0,0,1,0,0,0..1... "Z
IP","A PAIR","TWO PAIR","THREE OF A KIND
","A STRAIGHT","A FLUSH"..1..."A FULL HO
USE","7","FOUR OF A KIND","A STRAIGHT FL
USH". 2...646,0:.647,0:A$."KEYPUNCH":.53
280,0:.53281,0:B$."MENU".W2"..".........
....";.20.((8.C(B$)).2));".LOADING ";B$.
.2,..646,0:.".....LOAD";G(34);B$;G(34);"
,8"..26.."....RUN":.198,3:.631,13:.632,1
3:.633,13:.".":....
> CLICK IMAGE PREVIEW FOR FULL MODAL