🚀 go-pugleaf

Checksum: 4177053542 (verify with brik -cv)
Submitted-by: Jerome B. Cipriani <cipriani@beagle.gatech.edu>
Posting-number: Volume 7, Issue 21
Archive-name: drwpokr.jbc

BEGIN_DOC drwpoker.doc

                         Draw Poker 1.1


Its you against the HP!  Get the upper hand and win the pot!

Object
------
 The object is to win the pot through obtaining the highest hand.  The pot
 is equal to twice the player's bet.

Bet
---
 The player must bet a minimum of $10.

Deck
----
 The deck is of 52 cards (with no wilds) and is shuffled before each game.

Rank of Cards
-------------
 A < 2 < 3 < 4 < 5 < 6 < 7 < 8 < 9 < 10 < J < Q < K < A

 As in high-low poker, the ace can be used as the high card in a 10-J-Q-K-A
 straight or as the low card in a A-2-3-4-5 straight.  Other than being the
 low card in the just metioned straight, the ace functions as the highest
 card in the deck.

Rank of Suits
-------------
 Spade > Heart > Diamond > Club

Rank of Hands
-------------
 1) Straight Flush - five cards of the same suit in sequence. To tie break
    between straight flushes, the hand with the greater high card wins.

 2) Four of a Kind - four cards of the same rank.  To tie break between four
    of a kinds, the hand with the higher ranking four of a kind wins.

 3) Full House - three cards of one rank and two cards of another rank. To
    tie break between full houses, the hand with the higher ranking three
    of a kind wins.

 4) Flush - five cards of the same suit.  To tie break between flushes,
    the hand with the greater high card wins.  (This differs from normal
    poker rules.  Usually if two hands are flushes with equal ranks of the
    high cards, then the next highest cards of the hands are compared.)

 5) Straight - five cards in sequence of two or more suits. To tie break
    between straights, the hand with the greater high card wins.

 6) Three of a Kind - three cards of the same rank.  To tie break between
    three of a kinds, the hand with the higher ranking three of a kind wins.

 7) Two Pairs - two cards of the same rank and two cards of another rank. To
    tie break between two pairs, the hand with the higher ranking high pair
    wins.  To tie break between two equal ranking high pairs, the hand with
    the higher ranking low pair wins.  To tie break between two equal ranking
    low pairs, the hand with the greater high card wins.

 8) One Pair - two cards of the same rank.  To tie break between one pairs,
    the hand with the higher ranking pair wins.  To tie break between two
    equal ranking pairs, the hand with the greater high card wins.

 9) No Pair - none of the above.  To tie break between no pairs, the hand
    with the greater high card wins.

 When comparing high cards, the one with the higher rank wins.  To tie break
 between two high cards of equal rank the one with the highest suit wins.

The Play
--------
 Press play to begin.

 The player is prompted to raise his bet, lower his bet, play or quit.

 The purse is the player's total amount of money minus his bet.  When the
 bet is changed, the purse changes accordingly.

 The player and the dealer (computer) are each dealt five cards to begin play.

 The player may trade in any or even all of his cards in the hopes that he
 can replace them with better cards.

 After the player has finished drawing, the dealer announces the number of
 cards it will draw.  (In the event that the dealer has nothing, it will keep
 its highest card and draw four new ones.)  After the dealer has drawn its new
 cards, it displays its hand.

 The computer then determines a winner.  It will display the amount won or
 lost and a basic description of both hands.

 If the player has used up all his money, he may get a loan.  This option
 will present itself when the player's purse equals $0.


History
-------
 This program was originally conceived on an HP28-S.  When I bought my new
 HP48SX, I downloaded it using the program INPRT and OUTPRT.  Many thanks to
 the creators of those programs!

Note
----
 This program was developed on an HP48SX revision E.  It contains 6 different
 addresses used by syseval.  They are as follows:

 Address        Description                                Times used
 -------        -----------                                ----------
 #12415h        HP:BIGDISPROW1                                  4
 #123F5h        HP:BIGDISPROW3                                  3
 #123E5h        HP:BIGDISPROW4                                  1
 #05F42h        HP:GARBAGE - force memory packing               1
 #4E2CFh        HP:TURNMENUOFF - turn off menu line             2
 #3A1E8h        HP:DispMenu - redisplays the current menu       1

 Pressing ON during the running of the program is not recommended.  I have
 included the option of quitting on many of the menus, which will cleanly
 exit you from the game, cleaning up any varibles stored in the directory.

Disclaimers
-----------
 Use at your own risk.

 As stated above, the program does use sysevals.  However, if used properly
 it should work fine.  I tested all the possibilities I could think of when
 playing the game and it worked fine.  However, I do not claim to have checked
 every single possibility, and therefore there is always the risk of something
 unexpected happening.  I am not responsible for any consequences, unexpected
 or not, you or your machine may experience while using my programs.

Acknowledgments
---------------
 Thanks to:
 1) My fiance, Pam, who originally motivated me to making this game so that
    she could play it.
 2) Joe Horn, whose list sorter I used, SORTLN v1.0.
 3) Jeremy Smith, who provided me with the syseval addresses for turning
    the menu line on and off at will.

Copyright
---------
 Copyright (c) Jerome B. Cipriani -- 1992
 All Rights Reserved

Hope you enjoy it!

Jerry Cipriani

(Any questions or advice goto: cipriani@beagle.gatech.edu)


P.S.

The following table is posted for your information only.


     Possible Poker Hands in a 52-Card Deck

Straight Flush                            40
Four of a Kind                           624
Full House                             3,744
Flush                                  5,108
Straight                              10,200
Three of a Kind                       54,912
Two Pairs                            123,552
One Pair                           1,098,240
No Pair, less than above           1,302,540
------------------------           ---------
Total                              2,598,960

END_DOC

BEGIN_ASC drwpoker.asc
%%HP: T(3)A(D)F(.);
"69A20FF7B87300000040C4F414E440D9D20E1632858A1C2A20F200094027594C
4C402C4F414E40295F455024213030303E4A20510005142100000000000E25A1
C2A20D2000020202025535540294450275943554C495121212E4A20510005F32
100000000000E25A13392030000000000000104563284E205005552535549763
2DCC023392010000000000000104563284E2020244597632DCC0247A2084E204
015559445C2A2050000C2A2050000C2A2050000C2A205000084E204005C41495
B2130D51129C2A24A5A1ED2A24A5A193632B2130691002024452033920100000
0000000010D10005005552535545033920200000000000001032000703414254
4F4554570E1B201B000B100031000EFFF3010004010004010004010004010004
0100040100040100040100040100040100040100040100040100040100040100
040100040100040100040100040100040100040100040100040100040EFFF308
C00050442575353450D9D20E16321C432D6E2030E6D656D6E201016D6E201026
D6E201036E16329C2A2D13A20A132D6E201087634E1D6E2010879C2A290DA133
9201000000000000220EEDA1C53A276BA1B9691D6E201016ED2A2387C1D6E203
0E6D656D6E2010876C7D1D6BB178BF13CE22339201000000000000010279E1AF
E22D9D208DBF1E1B20D1000700006000091525252525291B21305BF22D9D20C2
A201200014233343536373839302A415B414DBBF178BF1C58C1ED2A2DA5E1B21
305DF22654E1634E1D6E2010879C2A290DA1339201000000000000220EEDA13F
2A276BA1B9691D6E201026ED2A2387C1D6E2030E6D656D6E2010876C7D13ABB1
339201000000000000010EEDA184E20503555944535DBBF16C7D1654E1634E1D
6E2010879C2A290DA1339201000000000000220EEDA133920100000000000011
076BA1B9691D6E201036ED2A2387C1D6E2030E6D656D6E2010876C7D13ABB133
9201000000000000010EEDA1803A276BA184E20503555944535DBBF16C7D1654
E1C42329C2A24A5A1ED2A24A5A1EF53293632B21306230060445414C4254560D
9D20E16323C0324563284E20304434B4976323392010000000000002509B1C1E
EDA1D6BB19C2A276BA178BF1E0CF1DBBF16C7D178BF13CE224B2A2279E1AFE22
D9D20DBBF18DBF1B21305BF229C2A25DF22DE0324B2A2D9AE19B6324563284E2
0304434B497632E0CF14B2A2704D193632B21308F00040445414C440D9D20E16
32E4A2051000FC2E400000000000E25A1634E147A20E4A205100000000000000
00000E4A20510008300000000000000B2130E4A20510003800000000000000E4
A20510008000000000000000614E1AE8C19C2A2D13A20A132D6E2010873CE22D
6E201087313C1AFE22D9D204563284E203005844497632D6E20108784E206044
5414C42545704D1D6E2010875D2C1B21305DF22C423284E203005844484E2040
35F425454563284E203005844497632DCC024563284E20300584449763284E20
304514C484E2020F4444563284E203005F44497632DCC0284E202065C4456328
4E20300565C497632DCC02E4A2051000C10000000000000084E204024C4E4B48
4E2030058444E4A20510006200000000000000E4A2051000E100000000000000
E4A2051000E20000000000000084E205044257535344563284E2030348444976
3284E20304514C484E202065C462BC1233A20DCF1D13A246CF178BF13CE229C2
A2279E1AFE22C2A20F000002341425445BF22C2A20110000234142544355DF22
C2A2031000940244251475023F2A25BCF1B0BC176BA1DBBF176BA1ED2A2DA5E1
634E1DBBF147A20E4A2051000C000000000000000E4A20510008300000000000
000B2130DBBF1654E184E202065C462BC178BF13CE224B2A2D9AE1AFE22D9D20
78BF1D13A2DBBF190DA192CF1ED2A276BA10DCF19C2A2DBBF1301324563284E2
0303484449763284E2060445414C42545E0CF1DBBF1704D1C4232B21305BF222
33A25DF2246CF184E203034844484E204035F425454563284E20303484449763
2DCC02E4A2051000000000000000000084E204024C4E4B44563284E203034844
49763284E20304514C484E2030348444E4A2051000A000000000000000E4A205
10002000000000000000E4A2051000210000000000000084E205044257535344
7A20C2A2050000C2A2050000C2A2050000C2A2050000C2A205000084E2020F4B
4B2130D511293632B21309A50050443534254450D9D20E16321C432D6E2010E6
E16323CE22D6E2010E6D6E2010E6063C1AFE22472C15BF225D2C15DF22634E1E
D2A2D6E2010E69C2A290DA1339201000000000000220EEDA176BA1B9691E4A20
51000D100000000000000ED2A2387C1E1B205A0009100011000EFFF00FFFF10F
FFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF1
0FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFFF10FFF
F10EFFF004E4E19C2A24A5A1ED2A24A5A1EF53293632B2130791005035559445
355047A20E1B20D1000700007000080C1A2F7A280C1E1B20D100070000700008
0C1E3F7E3C180E1B20D100070000700002277F7F7E3C180E1B20D10007000070
00080C1E3F7E380C1E1B20D10007000070000C180A2F7A2C180E1B20D1000700
007000080C1E3F7E3C180E1B20D1000700007000080C1E3F7F77722E1B20D100
07000070000C180E3F7E3C180B213082100402535C4454047A20C2A2031000E4
F60205169627C2A2011000130205169627C2A203100023020516962737C2A20B
10003302F666021602B496E646C2A209100016023547271696768647C2A20310
00160264C6573786C2A20D100016026457C6C60284F6573756C2A20B10004302
F666021602B496E646C2A20D10001602354727E20264C6573786B21306110040
4514C42340D9D20E163278BF13CE2284E2020F444D5CE1AFE22D9D204563284E
2020F44497632DCC024563284E202065C497632DCC02B21305BF223FBF15DF22
93632B2130C8000304514C430D9D20E16321C432D6E2030E6D656E16324B2A24
563284E2020F44497632DCC02C2A20B100053021302230233024302434563284
E202065C497632DCC029C2A2D13A20A132D6E201087D6E2030E6D656D6E20108
76C7D1D6BB1C42321C432D6E201016D6E201026D6E201036D6E201046D6E2010
56E16323CE22D6E201016D6E201026279E1AFE22D9D203CE22D6E201026D6E20
1036279E1AFE22D9D203CE22D6E201036D6E201046279E1AFE22D9D20C2A20B1
0001302230233024302530213743A2B21305BF22D9D203CE22D6E201046D6E20
1056279E1AFE22D9D20C2A20B10001302230233024302530203233A2B21305BF
22D9D20C2A20B100013022302330243025302233F2A2B21305DF22B21305DF22
B21305BF22D9D20C2A20B100013022302330243025302339C2A2B21305DF2284
E20404514C4233CE22D6E201036D6E201046279E1AFE22D9D203CE22D6E20104
6D6E201056279E1AFE22D9D20C2A20B10001302230233024302530203233A2B2
1305BF22D9D20C2A20B10001302230233024302530213ED2A2B21305DF2284E2
0404514C423B21305DF223CE22D6E201046D6E201056279E1AFE22D9D20C2A20
B10001302230243025302330213ED2A284E20404514C423B21305DF22B21305D
F223CE22D6E201026D6E201036279E1AFE22D9D203CE22D6E201036D6E201046
279E1AFE22D9D203CE22D6E201046D6E201056279E1AFE22D9D20C2A20B10002
302330243025302130213743A2B21305BF22D9D20C2A20B10002302330243021
3025302233F2A2B21305DF22B21305BF22D9D20C2A20B1000230233021302430
25302339C2A2B21305DF2284E20404514C4233CE22D6E201046D6E201056279E
1AFE22D9D20C2A20B10002302330243025302130213ED2A284E20404514C423B
21305DF22B21305DF223CE22D6E201036D6E201046279E1AFE22D9D203CE22D6
E201046D6E201056279E1AFE22D9D20C2A20B100033024302530213022302233
F2A2B21305BF22D9D20C2A20B100033024302130223025302339C2A2B21305DF
2284E20404514C423B21305DF223CE22D6E201046D6E201056279E1AFE22D9D2
0C2A20B100043025302130223023302339C2A284E20404514C423B21305DF223
CE22D6E201016D6E20102690DA1683A2279E1D6E201026D6E20103690DA1683A
2279E1387E1D6E201036D6E20104690DA1683A2279E1387E1AFE22D9D203CE22
D6E201046D6E20105690DA1683A2279E1AFE22D9D20C2A20B100013022302330
24302530203803A284E20404514C423B21305DF223CE22D6E201016D6E201056
33920100000000000031090DA190DA19C2A2279E1AFE22D9D20D6E2030E6D656
D13A26C7D133920100000000000031090DA1D6E2030E6D65604B02A59C13FBF1
D13A2387C1D6E2030E6D656DCC02C2A20B10001302230233024302530203803A
284E20404514C423B21305DF22B21305DF22EF5329C2A2D13A20A132D6E20108
7D6E2030E6D656D6E2010876C7D13ABB1C42321C432D6E201016D6E201026D6E
201036D6E201046D6E201056E16323CE22D6E201016D6E201026279E1D6E2010
26D6E201036279E1387E1D6E201036D6E201046279E1387E1D6E201046D6E201
056279E1387E1AFE22D9D203CE2284E2020F444803A2279E1AFE22D9D20C2A20
B10001302230233024302530203C53A284E20404514C423B21305BF22D9D20C2
A20B10001302230233024302530203D13A284E20404514C423B21305DF22B213
05DF22EF532EF53293632B2130B0A004024C4E4B440D9D20E16321C432D6E201
036E16329C2A2D13A20A132D6E201087634E1D6E2010879C2A290DA133920100
0000000000220EEDA19C2A276BA1B9691D6E201036ED2A2387C184E207034142
544F45545AE8C1C4232EF53293632B21303C00050442514755350D9D20E1632D
13A284E2050443534254493632B21308300050442514751350D9D20E16329C2A
284E2050443534254493632B21308300050442514752350D9D20E1632ED2A284
E2050443534254493632B21308300050442514753350D9D20E16323F2A284E20
50443534254493632B21308300050442514754350D9D20E1632803A284E20504
43534254493632B2130830003009530330D9D20E16323CE2284E205005552535
5484E2020244590DA133920100000000000005090DA14B2A2B9DE1AFE22D9D20
4563284E2020244597632339201000000000000050B4402B21305DF2284E2050
751474542593632B2130CB00030F8530330D9D20E16323CE2284E20202445339
201000000000000050D5CE1AFE22D9D204563284E20202445976323392010000
0000000005083502B21305DF2284E2050751474542593632B2130C9000300913
0330D9D20E16323CE2284E2050055525355484E2020244590DA1339201000000
00000001090DA14B2A2B9DE1AFE22D9D204563284E2020244597632339201000
000000000010B4402B21305DF2284E2050751474542593632B2130CB00030F81
30330D9D20E16323CE2284E20202445339201000000000000010D5CE1AFE22D9
D204563284E202024459763233920100000000000001083502B21305DF2284E2
050751474542593632B2130C90003024544530D9D20E1632E4A205100024F500
0000000000E25A1E4A2051000FC2E400000000000E25A1F52E147A20E4A20510
000000000000000000E4A20510000000000000000000B21300F2E1634E147A20
E4A20510008000000000000000E4A20510000000000000000000B2130E1B2090
6003300017000FFFFFFFFFFFFFFFFFFFFFFFFFFFF10100000000000000000000
000000010DFFFFFFFFFFFFFFFFFFFFFFFFFF7105000000000000000000000000
0041050000000000000000000000000151050910000000000023000200000151
058D300000000000B700030000015105C37000000000087C00830000055105A1
E00000000004381043000000410581C100000000003810030000004105818300
000000003C10030000004105810300000000003E0003000000410581038C2C60
111037830360702B41058103CE16789910B3470368E0B741058103E1036C9910
F16E033CC97041058103D0816A9910F06C0F0C853041058103C081689910306C
0F0CF13041058183C081689910306C0B1CF030410583C1C08178991030EC033C
003041058FF0C00F60990030C503A8F13041058D70C00660660010830160F030
4105800000008000080000800000004105400000000100040000400000004105
2000000000000000000000000041050000000000000000000000000041050000
0000000000000000000000410DFFFFFFFFFFFFFFFFFFFFFFFFFF710100000000
000000000000000000010FFFFFFFFFFFFFFFFFFFFFFFFFFFF100000000000000
0000000000000000000CF100008F300000F700000EF000000306000060C0000C
081000810300008028000010010002802000483400004070100800020001C140
002C78000028F02004C1740080E380001EF010001CF14002EBF80040F701080E
F020001EF34002FBF90048FF01080EF020080FF78009FFF3102CFF1204CD7740
088FFF800DFFF7102EFF3204EBBF4008CFFF900DFFF7102FFF7204FFFF5008EF
FFB00DFFF710AFFFF204FFFF5008EFFFB009FFF3102FFF7204FFFF5008EFFFB0
01FFF1102EFF3204EBBF4008CFFF9001EFF0102CFF1204C9374000977F4002CF
780048FF010808302000137640028F380040F7010808302000207020040F1400
80E380001830100048F010080E020001C140002C7800008CF900001401000280
20004EF400000306000060C0000C081000810300000CF100008F300000F70000
0EF0000654E1634E147A20E4A2051000F000000000000000E4A2051000630000
0000000000B2130C2A2072000940216D6023786576666C696E676E2E2E23F2A2
DA5E14E4E19C2A2D13A20A132D6E201087D6E2010875D2C1C4232ED2A2339201
0000000000004100A132D6E20108733920999000000000001033920999000000
00000400A132D6E201097D6E201087D6E20109776BA133920999000000000001
008332C4232339201000000000000250900D14563284E20304434B497632DCC0
29C2A2ED2A2301329C2A2D13A23013284E2060445414C42545C4232D13A2387C
184E204035F42545634E147A20E4A2051000F000000000000000E4A205100063
00000000000000B2130C2A207200002940216D602465616C696E676E2E2E2023
F2A2DA5E1AE8C1C42324563284E203034844497632DCC024563284E203005844
497632DCC02475C1F52E19C2A2D13A20A132D6E201087634E1D6E2010879C2A2
90DA1339201000000000000220EEDA19C2A276BA1B9691E4A205100000000000
00000000ED2A2387C1E1B201B000B100031000EFFF3055555010004055555010
0040555550100040555550100040555550100040555550100040555550100040
5555501000405555501000405555501000405555501000405555501000405555
50EFFF30654E1634E1D6E2010879C2A290DA1339201000000000000220EEDA19
C2A276BA1B9691E4A2051000C100000000000000ED2A2387C184E20703414254
4F45545654E1C423284E2030058444E4A20510006200000000000000E4A20510
00E100000000000000E4A2051000E20000000000000084E20504425753534634
E147A20E4A2051000F600000000000000E4A20510007000000000000000B2130
E1B2036000E0000310000110000B100005520001520001520001930000020000
8100900040900040FC417092DA409A5A40945270654E1634E147A20E4A205100
0F600000000000000E4A20510004200000000000000B2130E1B2036000E00003
1000110000110000EC4A60425A10425A004C8900000000000000900040900040
FC417092DA409A5A40945270654E147A2084E2050442514751384E2050442514
752384E2050442514753384E2050442514754384E2050442514755384E204044
5414C4B2130D511293632B2130E7D0020F4B420D9D20E16323CE2284E2020F44
484E203005F444279E1AFE22D9D2084E202065C462BC18DBF19C2A2D13A23013
24563284E203034844497632DBBF16C7D1D13A20DCF1C423284E20300565C462
BC18DBF19C2A2D13A2301324563284E203005844497632DBBF16C7D1D13A20DC
F1C42321C432D6E201016D6E201026D6E201036D6E201046D6E201056D6E2010
66D6E201076D6E201086D6E201096D6E2010A6E1632C2A20B000043538384E20
20F444B0BC14BAC13CE224B2A2D9AE1AFE22D9D20D6E201056D6E2010A6B2130
5DF22C2A20B000033637384E2020F444B0BC14BAC13CE224B2A2D9AE1AFE22D9
D20D6E201036D6E201086B21305DF223CE2284E2020F4444B2A2279E1AFE22D9
D20D6E201016D6E201066B21305DF223CE2284E2020F4449C2A2279E1AFE22D9
D203CE22D6E201016D6BB1D6E201066D6BB1279E1AFE22D9D20D6E201056D6E2
010A6B21305BF22D9D20D6E201016D6E201066B21305DF22B21305DF223CE228
4E2020F444ED2A2279E1AFE22D9D203CE22D6E201036D6BB1D6E201086D6BB12
79E1AFE22D9D203CE22D6E201016D6BB1D6E201066D6BB1279E1AFE22D9D20D6
E201056D6E2010A6B21305BF22D9D20D6E201016D6E201066B21305DF22B2130
5BF22D9D20D6E201036D6E201086B21305DF22B21305DF22EF532B21305BF22D
9D2084E2020F44484E203005F444B21305DF223CE22D5CE1AFE22D9D2084E205
0055525355484E2020244590DA1C2A20B100095F65702C4F63756024202B2130
5BF22D9D2084E2050055525355484E2020244576BA1C2A209100095F65702759
6E6024202B21305DF2284E20202445B0BC176BA1F52E1606E1858A1E4A205100
05142100000000000E25A1C2A20110009402841646024563284E20402535C445
9763284E2020F4449C2A276BA16C7D176BA1E4A20510005F32100000000000E2
5A1C2A205100095F65702841646024563284E20402535C4459763284E203005F
4449C2A276BA16C7D176BA1E4A20510005E32100000000000E25A14563284E20
50055525355497632DCC0247A2084E204015559445C2A2050000C2A2050000C2
A2050000C2A205000084E204005C41495B2130D51129C2A24A5A1ED2A24A5A19
3632B2130A66004035F4254540D9D20ECE8112040D9D20FA450FC4366B316BD3
706B31652330FEF30122702A170CA13049726E8E304D226EE170D9D2013D268F
7261E116A3216A88A28DA16E0F06B9F06B21305E17062726E9330433706B4369
5450B2130B21300C00050751474542550D9D20E16323CE2284E2050055525355
484E2020244590DA14B2A2EBBE1AFE22D9D2084E205005552535543392010000
0000000001090DA14563284E2020244597632DCC02B21305DF223CE224563284
E20202445976324B2A2279E1AFE22D9D204B2A24563284E2020244597632DCC0
2B21305DF22C2A20310000555253554D30284E2050055525355484E202024459
0DA1B0BC176BA1E4A20510005142100000000000E25A1C2A20F0000245445D30
284E20202445B0BC176BA1E4A20510005F32100000000000E25A147A2084E204
01555944584E2030F8130384E203009130384E2030F8530384E203009530384E
2030245445B2130D51129C2A24A5A1ED2A24A5A193632B2130F1200401555944
540D9D20E1632C2A20710000555253554D302420284E20500555253554B0BC17
6BA147A2084E20304434B484E203034844484E203005844484E2020F44484E20
2065C484E203005F44484E20300565C4B2130EFE023392000000000000010206
911293632B21307D0004005C4149540D9D20E1632684C1858A13CE2284E20500
5552535544B2A2D5CE1AFE2284E205075147454255BF22D9D20C2A20F2000029
5F45502E454544402D4F4255402D4F4E4549512E4A2051000514210000000000
0E25A147A2084E204015559445C2A2050000C2A2050000C2A2050000C2A20500
0084E2040C4F414E4B2130D51129C2A24A5A1ED2A24A5A1B21305DF2293632B2
1300CBE"
END_ASC

BYTES: #EBC0h 7265.5

BEGIN_UU drwpoker.uue
begin 644 drwpoker
M2%!(4#0X+466*O!_BS<````$3$]!3@2=+>!A(UBHP:("+P"0!'*5Q,0$PO04
MY`22]50%0A(#`P/CI`(5`%!!$@``````X%(:+"K0`@`@("`@55-%($E4(%=)
M4T5,62$A(4XJ4`$`]2,!```````NI3&3`@,````````!5#:"Y`(%4%524T5Y
M-M+,(#,I$````````!!`92-(+B`@1)5G(\T,0J<"2"Y`$%651,6B`@4`P*("
M!0#`H@(%`,"B`@4`@.0"!%!,05DK,=`5(<FB0EH:WJ)"6AHY-K(2`Y8!("!$
M)3"3`@$````````!'0!0`%4E-554,),"`@````````$C`'`P%"1%]%1%=>"Q
M`K$`L`$`$P#@_S\0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0
M`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$`0`$#@_S^`
M#``%1%)74T,%G2W@82/!--+F`@-N;65M+A`0UN8"`6)M+A`PYF$CR:+2,2J@
M,=+F`@%X-N31Y@(!>,FBDM`:,RD0````````(N#>&ERC<K8:FY;1Y@(!8=ZB
M,G@<;2XPX-96UN8"`7C&U]&V&X?[,>PB,RD0````````$""7'OHNTMD"V/OA
ML0(=`'````8`D%%24E)2DK$2`[4OTMD"+"H0`@!!,C,T-38W.#D@2E%+0;W[
M<;@?7,CA+2JMY;$2`]4O8D4>-N31Y@(!>,FBDM`:,RD0````````(N#>&O.B
M<K8:FY;1Y@(!8MZB,G@<;2XPX-96UN8"`7C&US&Z&S,I$````````!#@WAI(
M+E`P595$-=6['\;7844>-N31Y@(!>,FBDM`:,RD0````````(N#>&C,I$```
M`````!%PMAJ;EM'F`@%CWJ(R>!QM+C#@UE;6Y@(!>,;7,;H;,RD0````````
M$.#>&@BC<K8:2"Y0,%651#75NQ_&UV%%'DPRDBPJI*7A+2JDI>%?(SDVLA(#
M)@-@0%04Q"1%9=#9`AXV,@PC5#:"Y`(#1$-+>38RDP(!```````@!;G!X=X:
M;;N1+"IGJW&X'P[\T;L?QM=QN!_#+D(K*G+IH>\BG2W0NQ_8^[$2`[4ODBPJ
MU2_2#B.THM*I'KDV0F4C2"XP0#2TE&<C#OQ!*RH'U)%C(RLQ@`\`!$1%04P$
MG2W@82-.*E`!`,_B!```````+J5A0QYT*N"D`A4```````````#@I`(5`(`#
M````````L!(#3BI0`0"#`````````$XJ4`$`"``````````6Y*&.',FBTC$J
MH#'2Y@(!>,,NTN8"`7@3PZ'O(ITM0&4C2"XP`(5$E&<C;2X0@(?D`@9$14%,
M4E0'U-'F`@%XU<*Q$@/5+\(D(T@N,`"%1(3D`@133U)45#:"Y`(#4$A$>3;2
MS"!4-H+D`@-02$1Y-H+D`@-404Q(+B#P1$1E(T@N,`#U1)1G(\T,@N0"`E9,
M5#:"Y`(#4%9,>3;2S"!.*E`!`!P`````````2"Y`(,3DM(3D`@-02$1.*E`!
M`"8`````````3BI0`0`>`````````$XJ4`$`+@````````!(+E!`)'4U-41E
M(T@N,#"$1)1G(T@N,$`5Q(3D`@)63";+(3,JT/S1,2ID_'&X'\,NDBPJ<NFA
M[R(L*O```"!#05)$M2_"H@(1```R%"1%-%7](BPJ,`$`22!$4D%7(/.B4LL?
M"\MQMAJ]^W&V&MZBTEH>-N31NQ]T*N"D`A4`P`````````#@I`(5`(`#````
M````L!(#O?MA11Y(+B!@Q62R'(?[,>PBM*+2J1[Z+M+9`H?[T3$JO?N1T!HI
M_.$M*F>K`<T?R:+2NQ\#,4)E(T@N,#"$1)1G(T@N8$!4%,0D1>7`'[W[<4`=
M3#*R$@.U+R(S*M4O0L8?2"XP,(1$A.0"!%-/4E14-H+D`@-#2$1Y-M+,($XJ
M4`$```````````!(+D`@Q.2T1&4C2"XP,(1$E&<C2"XP0!7$A.0"`T-(1$XJ
M4`$`"@````````!.*E`!``(`````````3BI0`0`2`````````$@N4$`D=34U
M1*<"+"I0```L*E```"PJ4```+"I0```L*E```$@N(/"TM!(#71&28R,K,9!:
M``5$4T-21`6=+>!A(\$TTN8"`6X>-C+L(FTN$.#6Y@(!;F##H>\B=,)1^R+5
MPE'](C;DX2TJ;2X0X)8L*@FM,9,"`0``````(`+NK7&V&IN6X:0"%0#0`0``
M`````.`M*H/'X;$"I0"0`0`1`.#_#_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_
M'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_'_#_
M'^#_#T!.'LFB0EH:WJ)"6AK^-9)C(RLQ<!D`!5-52513!70JX+$"'0!P```'
M`(#`H?*G@L#AL0(=`'````<`@,#A\^?#@>"Q`AT`<```!P`@<O?WY\.!X+$"
M'0!P```'`(#`X?/G@\#AL0(=`'````<`P(&@\J?"@>"Q`AT`<```!P"`P.'S
MY\.!X+$"'0!P```'`(#`X?/W=R?BL0(=`'````<`P('@\^?#@;`2`R@!0"`U
MQ41%0*<"+"HP`0!.;R!086ER+"H0`0`Q(%!A:7(L*C`!`#(@4&%I<G,L*K`!
M`#,@;V8@82!+:6YD+"J0`0!A(%-T<F%I9VAT+"HP`0!A($9L=7-H+"K0`0!A
M($9U;&P@2&]U<V4L*K`!`#0@;V8@82!+:6YD+"K0`0!A(%-T<BX@1FQU<V@K
M,6`1``1404PR!)TMX&$CA_LQ[")(+B#P1-3%'OHNTMD"5#:"Y`("3T1Y-M+,
M(%0V@N0"`E9,>3;2S"`K,5#[(O/[4?TB.3:R$@.,`#!`%<0TT-D"'C823"-M
M+C#@UE;F82.THD)E(T@N(/!$E&<CS0S"H@(;`%`#$@,B`S(#0@-"0V4C2"X@
M8,649R/-#)(L*AVC`AHC;2X0@-?F`@-N;65M+A"`9WP=;;O!)"/!--+F`@%A
M;2X0(-;F`@%C;2X00-;F`@%E'C8R[")M+A`0UN8"`6)RZ:'O(ITM,.PB;2X0
M(-;F`@%C<NFA[R*=+3#L(FTN$##6Y@(!9'+IH>\BG2W`H@(;`!`#(@,R`T(#
M4@,2<S0J*S%0^R*=+3#L(FTN$$#6Y@(!97+IH>\BG2W`H@(;`!`#(@,R`T(#
M4@,"(S,J*S%0^R*=+<"B`AL`$`,B`S(#0@-2`R(S+RHK,5#](BLQ4/TB*S%0
M^R*=+<"B`AL`$`,B`S(#0@-2`S*3+"HK,5#](D@N0$`5Q"0S[")M+A`PUN8"
M`61RZ:'O(ITM,.PB;2X00-;F`@%E<NFA[R*=+<"B`AL`$`,B`S(#0@-2`P(C
M,RHK,5#[(ITMP*("&P`0`R(#,@-"`U(#$N,M*BLQ4/TB2"Y`0!7$)+,2`]4O
M,NPB;2X00-;F`@%E<NFA[R*=+<"B`AL`$`,B`T(#4@,R`Q+C+2I(+D!`%<0D
MLQ(#U2^R$@/5+S+L(FTN$"#6Y@(!8W+IH>\BG2TP[")M+A`PUN8"`61RZ:'O
M(ITM,.PB;2X00-;F`@%E<NFA[R*=+<"B`AL`(`,R`T(#4@,2`Q)S-"HK,5#[
M(ITMP*("&P`@`S(#0@,2`U(#(C,O*BLQ4/TB*S%0^R*=+<"B`AL`(`,R`Q(#
M0@-2`S*3+"HK,5#](D@N0$`5Q"0S[")M+A!`UN8"`65RZ:'O(ITMP*("&P`@
M`S(#0@-2`Q(#$N,M*D@N0$`5Q"2S$@/5+[(2`]4O,NPB;2X0,-;F`@%D<NFA
M[R*=+3#L(FTN$$#6Y@(!97+IH>\BG2W`H@(;`#`#0@-2`Q(#(@,B,R\J*S%0
M^R*=+<"B`AL`,`-"`Q(#(@-2`S*3+"HK,5#](D@N0$`5Q"2S$@/5+S+L(FTN
M$$#6Y@(!97+IH>\BG2W`H@(;`$`#4@,2`R(#,@,RDRPJ2"Y`0!7$)+,2`]4O
M,NPB;2X0$-;F`@%B":UA."IRZ='F`@%B;2X0,);0&H:C(I<>@^?1Y@(!8VTN
M$$"6T!J&HR*7'H/GH>\BG2TP[")M+A!`UN8"`64)K6$X*G+IH>\BG2W`H@(;
M`!`#(@,R`T(#4@,"@S`J2"Y`0!7$)+,2`]4O,NPB;2X0$-;F`@%E,RD0````
M````$Y#0&@FMD2PJ<NFA[R*=+=#F`@-N;64=HV)\'3,I$````````!.0T!IM
M+C#@UE8&M"!:R3&_'QVC,G@<;2XPX-96ULP@+"JP`0`Q(#(@,R`T(#4@,`BC
M@N0"!%1!3#(K,5#](BLQ4/TB_C62+"H=HP(:(VTN$(#7Y@(#;FUE;2X0@&=\
M':.[P20CP332Y@(!86TN$"#6Y@(!8VTN$$#6Y@(!91XV,NPB;2X0$-;F`@%B
M<NG1Y@(!8FTN$#`FEQZ#Y]'F`@%C;2X00":7'H/GT>8"`61M+A!0)I<>@^>A
M[R*=+3#L(D@N(/!$A#`J<NFA[R*=+<"B`AL`$`,B`S(#0@-2`P+#-2I(+D!`
M%<0DLQ(#M2_2V0(L*K`!`#$@,B`S(#0@-2`P':."Y`($5$%,,BLQ4/TB*S%0
M_2+^->)?(SDVLA(#"PI`(,3DM$30V0(>-A),(VTN$##F82/)HM(Q*J`QTN8"
M`7@VY-'F`@%XR:*2T!HS*1`````````BX-X:R:)RMAJ;EM'F`@%CWJ(R>!Q(
M+G`P%"1%]%1%I8X<3#+B7R,Y-K(2`\,`4$`D%7154]#9`AXVTC$J2"Y00#0U
M)$648R,K,8`#``5$4D%7,06=+>!A(\FB@N0"!4130U)$.3:R$@,X`%!`)!5T
M)5/0V0(>-N(M*D@N4$`T-21%E&,C*S&``P`%1%)!5S,%G2W@82/SHH+D`@5$
M4T-21#DVLA(#.`!00"05=$53T-D"'C:","I(+E!`-#4D191C(RLQ@`,``Y`U
M,`.=+>!A(\,N@N0"!5!54E-%2"X@($25T!HS*1````````!0D-`:M**RV1[Z
M+M+9`E0V@N0"`D)4>38RDP(!````````!4L$LA(#U2^"Y`(%5T%'15(Y-K(2
M`[P`,/!8`S/0V0(>-C+L(D@N("!$-9,"`0````````5=[*'O(ITM0&4C2"X@
M($259R,S*1````````!0@%,@*S%0_2)(+E!P%714))5C(RLQP`D``Y`Q,`.=
M+>!A(\,N@N0"!5!54E-%2"X@($25T!HS*1`````````0D-`:M**RV1[Z+M+9
M`E0V@N0"`D)4>38RDP(!`````````4L$LA(#U2^"Y`(%5T%'15(Y-K(2`[P`
M,/`8`S/0V0(>-C+L(D@N("!$-9,"`0````````%=[*'O(ITM0&4C2"X@($25
M9R,S*1`````````0@%,@*S%0_2)(+E!P%714))5C(RLQP`D``T)%5`.=+>!A
M(TXJ4`$`0E\````````NI>&D`A4`\"Q.``````#@4AI?XD&G`DXJ4`$`````
M``````!.*E`!````````````*S$`+QXVY$&G`DXJ4`$`"`````````!.*E`!
M````````````*S'@L0()!C`#`'$`\/________________\?$```````````
M```````0T/________________\74``````````````````44```````````
M`````!`54)`!```````R`"```!`54-@#``````![`#```!`54#P'`````(#'
M`#@``%`54!H.`````$"#`30````44!@<``````"#`3`````44!@X``````##
M`3`````44!@P``````#C`#`````44!@PR,(&$0%S.#`&![(44!@P[&&'F0$[
M=#"&#GL44!@P'C#&F0$?YC##G`<44!@P#1BFF0$/QO#`6`,44!@P#!B&F0$#
MQO#`'P,44!@X#!B&F0$#QK#!#P,44#@<#!B'F0$#SC##``,44/@/#/`&F0`#
M7#"*'P,44-@'#&`&9@`!.!`&#P,44`@````(`(````@````44`0````0`$``
M``0````44`(````````````````44``````````````````44```````````
M```````4T/________________\7$``````````````````0\/__________
M______\?`````````````````````,`?``#X`P``?P``X`\``#!@```&#`#`
M@`$`&#````B"```!$``@"`(`A$,```0'`8``(``0'`0`PH<``((/`D`<1P`(
M/@@`X0\!`,$?!""^CP`$?Q"`X`\"`.$_!""_GP"$_Q"`X`\"@/!_")#_/P'"
M_R%`W'<$@/C_"-#_?P'B_R-`OOL$@/S_"=#_?P'R_R=`__\%@/[_"]#_?P'Z
M_R]`__\%@/[_"Y#_/P'R_R=`__\%@/[_"Q#_'P'B_R-`OOL$@/S_"1#^#P'"
M_R%`G',$`'GW!"#\AP"$_Q"`@`,"`#%G!"#X@P`$?Q"`@`,"``('`D#P00`(
M/@@`@0,!`(0/`8#@(``0'`0`PH<``,B?``!!$``@"`(`Y$\``#!@```&#`#`
M@`$`&#```,`?``#X`P``?P``X`\`8$4>-N1!IP).*E`!``\`````````3BI0
M`0`V`````````"LQP*(")P"0!!+6!C*'5F=FQI;F=N;BXC(O*JWE04X>R:+2
M,2J@,=+F`@%X;2X0@%<M'$PRXBTJ,RD0````````%``:(VTN$(`WDP*9"0``
M`````3,ID)D``````$``&B-M+A"0U^8"`7AM+A"0=[8:,RF0F0``````$``X
M(TPR,I,"`0``````(`4)T$%E(T@N,$`TM)1G(\T,DBPJWJ(R$"/)HM(Q*@,Q
M@N0"!D1%04Q25$PRTC$J@\>!Y`($4T]25#;D0:<"3BI0`0`/`````````$XJ
M4`$`-@`````````K,<"B`B<``)($$M8&0E86QI;F=N;BX@(R+RJMY:&.'$PR
M0F4C2"XP,(1$E&<CS0Q"92-(+C``A4249R/-#$)7'%_BD2PJ':,"&B-M+A"`
M9T,>;2X0@)<L*@FM,9,"`0``````(`+NK9$L*F>KL6D93BI0`0``````````
M`-ZB,G@<'BL0"P`;`#`!`/[_`U55!0$`!%55!0$`!%55!0$`!%55!0$`!%55
M!0$`!%55!0$`!%55!0$`!%55!0$`!%55!0$`!%55!0$`!%55!0$`!%55!0$`
M!%55!?[_`U;D84,>;2X0@)<L*@FM,9,"`0``````(`+NK9$L*F>KL6D93BI0
M`0`<`````````-ZB,G@<2"YP,!0D1?14165%'DPR@N0"`U!(1$XJ4`$`)@``
M``````!.*E`!`!X`````````3BI0`0`N`````````$@N4$`D=34U9$,>="K@
MI`(5`/`&````````X*0"%0!P`````````+`2`QXK,`8`#@`P`0`0`0"P`0!0
M)0`0)0`0)0`0.0``(```&``)``0)``3/%`<IK02II01))0=6Y&%#'G0JX*0"
M%0#P!@```````."D`A4`0`(```````"P$@,>*S`&``X`,`$`$0``$0``SJ0&
M)*4!)*4`Q)@`````````"0`$"0`$SQ0'*:T$J:4$224'5N1!IP)(+E!`)!5T
M%8/D`@5$4D%7,D@N4$`D%70U@^0"!41205<T2"Y00"05=%6#Y`($1$5!3"LQ
MT!4A.3:R$@-^#2#PM"30V0(>-C+L(D@N(/!$A.0"`U!/1'+IH>\BG2V`Y`("
M5DPFRX&]'\FBTC$J`S%"92-(+C`PA$249R.]^V%\'1VC`LT?3#*"Y`(#4%9,
M)LN!O1_)HM(Q*@,Q0F4C2"XP`(5$E&<CO?MA?!T=HP+-'TPR$DPC;2X0$-;F
M`@%B;2X0,-;F`@%D;2X04-;F`@%F;2X0<-;F`@%H;2X0D-;F`@%J'C;"H@(+
M`$!3@X/D`@)/1`O+0:L<PRY"*RJ=ZJ'O(ITMT.8"`65M+A"@MA(#U2_"H@(+
M`#!C<X/D`@)/1`O+0:L<PRY"*RJ=ZJ'O(ITMT.8"`6-M+A"`MA(#U2\R[")(
M+B#P1$0K*G+IH>\BG2W0Y@(!86TN$&"V$@/5+S+L(D@N(/!$E"PJ<NFA[R*=
M+3#L(FTN$!#6MAMM+A!@UK8;<NFA[R*=+=#F`@%E;2X0H+82`[4OTMD";2X0
M$-;F`@%F*S%0_2(K,5#](L,N@N0"`D]$WJ(BEQ[Z+M+9`L,NTN8"`6-MN]'F
M`@%H;;LAEQ[Z+M+9`L,NTN8"`6%MN]'F`@%F;;LAEQ[Z+M+9`FTN$%#6Y@(!
M:BLQ4/LBG2W0Y@(!86TN$&"V$@/5+[(2`[4OTMD";2X0,-;F`@%H*S%0_2(K
M,5#](OXULA(#M2_2V0)(+B#P1(3D`@-03T0K,5#](L,NTL4>^B[2V0)(+E``
M524U583D`@)"5`FMP:("&P"0]58'PO0V5P9"`K(2`[4OTMD"2"Y0`%4E-56$
MY`("0E1GJ\&B`AD`D/56!W*5Y@9"`K(2`]4O@N0"`D)4"\MQMAI?XF%@'EBH
MX:0"%0!001(``````.!2&BPJ$`$`22!(860@5#:"Y`($4E-,5'DV@N0"`D]$
MR:)RMAK&UW&V&DXJ4`$`]2,!```````NI<&B`A4`D/56!X(41@9"92-(+D`@
M-<5$E6<C2"XP`/5$E"PJ9ZMA?!UGJ^&D`A4`4#X2``````#@4AI4-H+D`@50
M55)317DVTLP@="J`Y`($455)5"PJ4```+"I0```L*E```"PJ4```2"Y``,44
ME+42`UT1DBPJI*7A+2JDI9%C(RLQH&8`!%-/4E0$G2W@[!@A0-#9`J]4\$QC
MMA.V/0>V$U8R`^\_$"('HG'`&@.4)^;H`]0BYAX'G2T0TV+X)Q8>83H2IH@J
MV!KF\&";#[82`^5Q8')BGC-`,P>V-)9%!2LQL!(#P`!0<!5T5"15T-D"'C8R
M[")(+E``524U583D`@)"5`FM02LJONNA[R*=+8#D`@5055)313,I$```````
M`!"0T!I4-H+D`@)"5'DVTLP@*S%0_2+#+D)E(T@N("!$E6<CM*(BEQ[Z+M+9
M`K2B0F4C2"X@($259R/-#+(2`]4OPJ("$P``524U5=0#@N0"!5!54E-%2"X@
M($25T!H+RW&V&DXJ4`$`%20!```````NI<&B`@\`(%1$U0."Y`("0E0+RW&V
M&DXJ4`$`]2,!```````NI4&G`D@N0!!5E42%Y`(#CS$P2"XP`!D#@^0"`X\U
M,$@N,`!9`X/D`@-"150K,=`5(<FB0EH:WJ)"6AHY-K(2`Q\"0!!5E41%T-D"
M'C;"H@(7``!5)355U`-"`H+D`@5055)310O+<;8:="J`Y`(#1$-+2"XP,(1$
MA.0"`U!(1$@N(/!$A.0"`E9,2"XP`/5$A.0"`U!63"LQX.\@,RD````````0
M(&`9(3DVLA(#UP!``,44E$70V0(>-F)('%BH,>PB2"Y0`%4E-55$*RI=[*'O
M(D@N4'`5=%0D5?LBG2W`H@(O``"2]50%XE141`32]"15!-+TY%24%>*D`A4`
M4$$2``````#@4AIT*H#D`@1154E4+"I0```L*E```"PJ4```+"I0``!(+D#`
=]!3DM!(#71&2+"JDI>$M*J2EL1(#U2^28R,K,0`K
`
end
sum -r/size 13118/10049 section (from "begin" to "end")
sum -r/size 13662/7274 entire input file
END_UU