_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

POKER

FILE INFORMATION

FILENAME(S): POKER

FILE TYPE(S): PRG

FILE SIZE: 5.3K

FIRST SEEN: 2025-11-30 21:28:10

APPEARS ON: 1 disk(s)

FILE HASH

3886dfde9fa68d2d9dfd68c065a1f8a36647b5af8259d14abd93ee8e3f8c9987

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
RON 64 60 POKER PRG DuncanTwain 19 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 12 08 01 00 8F 20  44 52 41 57 20 50 4F 4B  |....... DRAW POK|
00000010: 45 52 00 3C 08 02 00 99  22 93 11 11 11 11 11 11  |ER.<....".......|
00000020: 11 11 1D 1D 1D 1D 1D 1D  1D 1D 1D 12 44 52 41 57  |............DRAW|
00000030: 20 50 4F 4B 45 52 20 31  11 11 11 22 00 60 08 03  | POKER 1...".`..|
00000040: 00 99 22 11 11 11 20 20  20 20 20 20 12 4F 4E 45  |.."...      .ONE|
00000050: 20 4D 4F 4D 45 4E 54 20  50 4C 45 41 53 45 21 22  | MOMENT PLEASE!"|
00000060: 00 86 08 04 00 86 47 31  28 35 29 2C 46 37 28 33  |......G1(5),F7(3|
00000070: 35 29 2C 46 38 28 33 35  29 2C 46 39 28 33 35 29  |5),F8(35),F9(35)|
00000080: 2C 4F 28 31 30 29 00 B7  08 05 00 81 49 B2 31 A4  |,O(10)......I.1.|
00000090: 31 30 3A 87 4F 28 49 29  3A 82 49 3A 83 32 30 30  |10:.O(I):.I:.200|
000000A0: 2C 35 30 2C 33 30 2C 32  30 2C 31 30 2C 37 2C 35  |,50,30,20,10,7,5|
000000B0: 2C 32 2C 31 2C 2D 31 00  E9 08 06 00 86 43 35 28  |,2,1,-1......C5(|
000000C0: 36 29 2C 43 36 28 35 29  2C 43 37 28 35 29 2C 43  |6),C6(5),C7(5),C|
000000D0: 38 28 37 29 3A 46 53 24  B2 22 20 20 20 20 20 20  |8(7):FS$."      |
000000E0: 20 20 20 20 20 20 20 20  22 00 F4 08 07 00 4D 24  |        ".....M$|
000000F0: B2 22 20 22 00 0F 09 08  00 50 31 B2 31 30 32 34  |." ".....P1.1024|
00000100: 3A 50 32 B2 34 30 3A 56  4B B2 35 35 38 39 35 00  |:P2.40:VK.55895.|
00000110: 17 09 09 00 57 B2 30 00  20 09 0A 00 8D 32 30 36  |....W.0. ....206|
00000120: 00 2A 09 0B 00 99 22 93  22 3B 00 5A 09 0C 00 99  |.*....".";.Z....|
00000130: 22 12 48 41 4E 44 20 20  20 20 20 20 20 20 20 20  |".HAND          |
00000140: 20 20 20 20 20 20 4F 44  44 53 20 20 20 20 20 20  |      ODDS      |
00000150: 20 59 4F 55 20 57 49 4E  20 22 00 7A 09 0D 00 99  | YOU WIN ".z....|
00000160: 22 52 4F 59 41 4C 20 46  4C 55 53 48 3A 20 20 20  |"ROYAL FLUSH:   |
00000170: 20 20 32 30 30 20 54 4F  20 31 00 B8 09 0E 00 99  |  200 TO 1......|
00000180: 22 53 54 52 41 49 47 48  54 20 46 4C 55 53 48 3A  |"STRAIGHT FLUSH:|
00000190: 20 20 20 35 30 20 54 4F  20 31 22 3A 99 22 46 4F  |   50 TO 1":."FO|
000001A0: 55 52 20 4F 46 20 41 20  4B 49 4E 44 3A 20 20 20  |UR OF A KIND:   |
000001B0: 33 30 20 54 4F 20 31 22  00 F6 09 0F 00 99 22 46  |30 TO 1"......"F|
000001C0: 55 4C 4C 20 48 4F 55 53  45 3A 20 20 20 20 20 20  |ULL HOUSE:      |
000001D0: 20 32 30 20 54 4F 20 31  22 3A 99 22 46 4C 55 53  | 20 TO 1":."FLUS|
000001E0: 48 3A 20 20 20 20 20 20  20 20 20 20 20 20 31 30  |H:            10|
000001F0: 20 54 4F 20 31 22 00 34  0A 10 00 99 22 53 54 52  | TO 1".4...."STR|
00000200: 41 49 47 48 54 3A 20 20  20 20 20 20 20 20 20 20  |AIGHT:          |
00000210: 37 20 54 4F 20 31 22 3A  99 22 54 48 52 45 45 20  |7 TO 1":."THREE |
00000220: 4F 46 20 41 20 4B 49 4E  44 3A 20 20 20 35 20 54  |OF A KIND:   5 T|
00000230: 4F 20 31 22 00 55 0A 11  00 99 22 54 57 4F 20 50  |O 1".U...."TWO P|
00000240: 41 49 52 3A 20 20 20 20  20 20 20 20 20 20 32 20  |AIR:          2 |
00000250: 54 4F 20 31 22 00 75 0A  12 00 99 22 50 41 49 52  |TO 1".u...."PAIR|
00000260: 3A 20 20 20 20 20 20 20  20 20 20 20 20 20 20 31  |:              1|
00000270: 20 54 4F 20 31 00 83 0A  13 00 8D 31 38 39 3A 8D  | TO 1......189:.|
00000280: 33 30 31 00 BC 0A 14 00  99 22 50 4C 41 43 45 20  |301......"PLACE |
00000290: 59 4F 55 52 20 42 45 54  3A 20 24 31 20 54 4F 20  |YOUR BET: $1 TO |
000002A0: 24 31 30 30 30 30 20 24  22 3B 3A 5A 39 B2 36 3A  |$10000 $";:Z9.6:|
000002B0: 8D 32 39 32 3A 44 B2 C5  28 5A 24 29 00 E0 0A 15  |.292:D..(Z$)....|
000002C0: 00 91 B5 28 28 44 AA 39  39 39 39 29 AD 31 30 30  |...((D.9999).100|
000002D0: 30 30 29 AA 31 89 32 31  38 2C 32 33 2C 32 32 30  |00).1.218,23,220|
000002E0: 00 E9 0A 16 00 89 32 32  30 00 23 0B 17 00 99 22  |......220.#...."|
000002F0: 13 22 3A 81 53 B2 31 A4  39 3A 5A 24 B2 C4 28 4F  |.":.S.1.9:Z$..(O|
00000300: 28 53 29 AC 44 29 3A 99  A6 32 35 29 C8 28 46 53  |(S).D):..25).(FS|
00000310: 24 2C 31 32 AB C3 28 5A  24 29 29 22 24 22 5A 24  |$,12..(Z$))"$"Z$|
00000320: 3A 82 53 00 37 0B 18 00  8B C3 28 43 39 24 29 B3  |:.S.7.....(C9$).|
00000330: 31 32 A7 8D 32 34 33 00  4E 0B 19 00 81 59 B2 31  |12..243.N....Y.1|
00000340: A4 35 3A 8D 32 33 37 3A  8D 37 38 3A 82 59 00 61  |.5:.237:.78:.Y.a|
00000350: 0B 1A 00 8D 32 34 35 3A  53 58 B2 53 3A 8D 31 37  |....245:SX.S:.17|
00000360: 30 00 74 0B 1B 00 A1 51  24 3A 8B 51 24 B3 B1 22  |0.t....Q$:.Q$.."|
00000370: 22 A7 32 37 00 B0 0B 1C  00 99 22 13 11 11 11 11  |".27......".....|
00000380: 11 11 11 11 11 11 11 11  53 45 4C 45 43 54 20 44  |........SELECT D|
00000390: 49 53 43 41 52 44 53 20  42 59 20 4E 55 4D 42 45  |ISCARDS BY NUMBE|
000003A0: 52 2C 20 31 2C 32 2C 33  2C 34 26 2F 4F 52 20 35  |R, 1,2,3,4&/OR 5|
000003B0: 00 E1 0B 1D 00 99 22 91  54 4F 20 43 41 4E 43 45  |......".TO CANCE|
000003C0: 4C 20 50 52 45 53 53 20  43 2E 20 54 4F 20 44 52  |L PRESS C. TO DR|
000003D0: 41 57 20 50 52 45 53 53  20 52 45 54 55 52 4E 2E  |AW PRESS RETURN.|
000003E0: 22 00 EC 0B 1E 00 81 49  B2 31 A4 35 00 F8 0B 1F  |"......I.1.5....|
000003F0: 00 47 31 28 49 29 B2 31  00 FF 0B 20 00 82 49 00  |.G1(I).1... ..I.|
00000400: 0E 0C 21 00 50 B2 50 31  AA 32 34 AC 50 32 00 17  |..!.P.P1.24.P2..|
00000410: 0C 22 00 8D 32 32 35 00  1F 0C 23 00 A1 51 24 00  |."..225...#..Q$.|
00000420: 2D 0C 24 00 8B 51 24 B2  22 22 89 33 35 00 39 0C  |-.$..Q$."".35.9.|
00000430: 25 00 51 B2 C6 28 51 24  29 00 46 0C 26 00 8B 51  |%.Q..(Q$).F.&..Q|
00000440: B2 31 33 89 34 39 00 55  0C 27 00 8B 51 24 B2 22  |.13.49.U.'..Q$."|
00000450: 43 22 89 33 30 00 64 0C  28 00 8B 51 24 B3 22 31  |C".30.d.(..Q$."1|
00000460: 22 89 33 35 00 73 0C 29  00 8B 51 24 B1 22 35 22  |".35.s.)..Q$."5"|
00000470: 89 33 35 00 7F 0C 2A 00  59 B2 C5 28 51 24 29 00  |.35...*.Y..(Q$).|
00000480: 8B 0C 2B 00 47 31 28 59  29 B2 30 00 A2 0C 2C 00  |..+.G1(Y).0...,.|
00000490: 50 B2 50 31 AA 32 34 AC  50 32 AA 38 AC 28 59 AB  |P.P1.24.P2.8.(Y.|
000004A0: 31 29 00 B3 0C 2D 00 4D  24 B2 22 44 49 53 43 41  |1)...-.M$."DISCA|
000004B0: 52 44 22 00 BF 0C 2E 00  4C B2 C3 28 4D 24 29 00  |RD".....L..(M$).|
000004C0: C8 0C 2F 00 8D 32 32 36  00 D0 0C 30 00 89 33 35  |../..226...0..35|
000004D0: 00 E4 0C 31 00 50 B2 50  31 AA 31 31 AC 50 32 3A  |...1.P.P1.11.P2:|
000004E0: 8D 32 32 35 00 F8 0C 32  00 50 B2 50 31 AA 31 32  |.225...2.P.P1.12|
000004F0: AC 50 32 3A 8D 32 32 35  00 1C 0D 33 00 50 B2 50  |.P2:.225...3.P.P|
00000500: 31 AA 31 33 AC 50 32 3A  8D 32 32 35 3A 50 B2 50  |1.13.P2:.225:P.P|
00000510: 31 AA 32 34 AC 50 32 3A  8D 32 32 35 00 27 0D 34  |1.24.P2:.225.'.4|
00000520: 00 81 59 B2 31 A4 35 00  39 0D 35 00 8B 47 31 28  |..Y.1.5.9.5..G1(|
00000530: 59 29 B2 30 A7 8D 31 35  39 00 40 0D 36 00 82 59  |Y).0..159.@.6..Y|
00000540: 00 49 0D 37 00 8D 32 34  35 00 56 0D 38 00 8B 53  |.I.7..245.V.8..S|
00000550: 58 B2 53 89 35 39 00 5F  0D 39 00 8D 31 37 30 00  |X.S.59._.9..170.|
00000560: 68 0D 3A 00 53 58 B2 53  00 73 0D 3B 00 81 59 B2  |h.:.SX.S.s.;..Y.|
00000570: 31 A4 35 00 83 0D 3C 00  8B 47 31 28 59 29 B2 31  |1.5...<..G1(Y).1|
00000580: 89 36 33 00 8C 0D 3D 00  8D 32 33 37 00 94 0D 3E  |.63...=..237...>|
00000590: 00 8D 37 38 00 9B 0D 3F  00 82 59 00 A4 0D 40 00  |..78...?..Y...@.|
000005A0: 8D 32 34 35 00 B1 0D 41  00 8B 53 58 B2 53 89 36  |.245...A..SX.S.6|
000005B0: 39 00 BA 0D 42 00 8D 31  37 30 00 C3 0D 43 00 53  |9...B..170...C.S|
000005C0: 58 B2 53 00 CC 0D 44 00  8D 31 37 30 00 D2 0D 45  |X.S...D..170...E|
000005D0: 00 8F 00 09 0E 46 00 57  B2 57 AA 44 AC 4F 28 31  |.....F.W.W.D.O(1|
000005E0: 30 AB 53 29 3A 4D 24 B2  22 57 49 4E 4E 49 4E 47  |0.S):M$."WINNING|
000005F0: 53 22 3A 8B 4F 28 31 30  AB 53 29 B3 30 A7 4D 24  |S":.O(10.S).0.M$|
00000600: B2 22 4C 4F 53 53 45 53  22 00 46 0E 47 00 4D 24  |."LOSSES".F.G.M$|
00000610: B2 4D 24 AA 22 20 54 48  49 53 20 48 41 4E 44 20  |.M$." THIS HAND |
00000620: 41 52 45 20 24 22 AA C4  28 B6 28 44 AC 4F 28 31  |ARE $"..(.(D.O(1|
00000630: 30 AB 53 29 29 29 3A 50  B2 50 31 AA 31 31 AC 50  |0.S))):P.P1.11.P|
00000640: 32 3A 8D 32 32 35 00 68  0E 48 00 4D 24 B2 22 57  |2:.225.h.H.M$."W|
00000650: 49 4E 4E 49 4E 47 53 22  3A 8B 57 B3 30 A7 4D 24  |INNINGS":.W.0.M$|
00000660: B2 22 4C 4F 53 53 45 53  00 9C 0E 49 00 50 B2 50  |."LOSSES...I.P.P|
00000670: 31 AA 31 32 AC 50 32 3A  4D 24 B2 22 54 4F 54 41  |1.12.P2:M$."TOTA|
00000680: 4C 20 22 AA 4D 24 AA 22  20 41 52 45 20 24 22 AA  |L ".M$." ARE $".|
00000690: C4 28 B6 28 57 29 29 3A  8D 32 32 35 00 D1 0E 4A  |.(.(W)):.225...J|
000006A0: 00 4D 24 B2 22 50 52 45  53 53 20 52 45 54 55 52  |.M$."PRESS RETUR|
000006B0: 4E 20 54 4F 20 43 4F 4E  54 49 4E 55 45 2E 2E 2E  |N TO CONTINUE...|
000006C0: 22 3A 50 B2 50 31 AA 31  33 AC 50 32 3A 8D 32 32  |":P.P1.13.P2:.22|
000006D0: 35 00 E3 0E 4B 00 A1 47  24 3A 8B 47 24 B2 22 22  |5...K..G$:.G$.""|
000006E0: A7 37 35 00 F5 0E 4C 00  8B C6 28 47 24 29 B3 B1  |.75...L...(G$)..|
000006F0: 31 33 A7 37 35 00 FD 0E  4D 00 89 31 31 00 08 0F  |13.75...M..11...|
00000700: 4E 00 48 B2 43 32 AB 37  00 15 0F 4F 00 8B 48 B3  |N.H.C2.7...O..H.|
00000710: 34 A7 48 B2 31 00 20 0F  50 00 81 49 B2 31 A4 37  |4.H.1. .P..I.1.7|
00000720: 00 2C 0F 51 00 43 38 28  49 29 B2 48 00 33 0F 52  |.,.Q.C8(I).H.3.R|
00000730: 00 82 49 00 62 0F 53 00  91 43 32 89 38 34 2C 38  |..I.b.S..C2.84,8|
00000740: 37 2C 38 36 2C 39 37 2C  39 33 2C 39 36 2C 39 35  |7,86,97,93,96,95|
00000750: 2C 39 30 2C 39 32 2C 38  39 2C 39 38 2C 39 38 2C  |,90,92,89,98,98,|
00000760: 39 38 00 6E 0F 54 00 43  38 28 34 29 B2 32 00 76  |98.n.T.C8(4).2.v|
00000770: 0F 55 00 89 39 38 00 82  0F 56 00 43 38 28 34 29  |.U..98...V.C8(4)|
00000780: B2 32 00 96 0F 57 00 43  38 28 32 29 B2 32 3A 43  |.2...W.C8(2).2:C|
00000790: 38 28 36 29 B2 32 00 9E  0F 58 00 89 39 38 00 B2  |8(6).2...X..98..|
000007A0: 0F 59 00 43 38 28 32 29  B2 32 3A 43 38 28 36 29  |.Y.C8(2).2:C8(6)|
000007B0: B2 32 00 C6 0F 5A 00 43  38 28 33 29 B2 33 3A 43  |.2...Z.C8(3).3:C|
000007C0: 38 28 35 29 B2 33 00 CE  0F 5B 00 89 39 37 00 E2  |8(5).3...[..97..|
000007D0: 0F 5C 00 43 38 28 33 29  B2 33 3A 43 38 28 35 29  |.\.C8(3).3:C8(5)|
000007E0: B2 33 00 EE 0F 5D 00 43  38 28 34 29 B2 32 00 F6  |.3...].C8(4).2..|
000007F0: 0F 5E 00 89 39 37 00 02  10 5F 00 43 38 28 33 29  |.^..97..._.C8(3)|
00000800: B2 32 00 0E 10 60 00 43  38 28 34 29 B2 33 00 22  |.2...`.C8(4).3."|
00000810: 10 61 00 43 38 28 31 29  B2 33 3A 43 38 28 37 29  |.a.C8(1).3:C8(7)|
00000820: B2 33 00 39 10 62 00 41  B2 50 31 AA 31 35 AC 50  |.3.9.b.A.P1.15.P|
00000830: 32 AA 38 AC 28 59 AB 31  29 00 50 10 63 00 43 33  |2.8.(Y.1).P.c.C3|
00000840: B2 28 C6 28 43 32 24 29  AF 36 33 29 AA 31 32 38  |.(.(C2$).63).128|
00000850: 00 5A 10 64 00 97 41 2C  43 33 00 65 10 65 00 41  |.Z.d..A,C3.e.e.A|
00000860: 31 B2 31 36 30 00 7E 10  66 00 8B 43 32 B2 31 30  |1.160.~.f..C2.10|
00000870: A7 41 31 B2 C6 28 22 30  22 29 AA 31 32 38 00 86  |.A1..("0").128..|
00000880: 10 67 00 45 B2 36 00 8F  10 68 00 8D 31 32 33 00  |.g.E.6...h..123.|
00000890: 9D 10 69 00 43 34 B2 C6  28 43 31 24 29 00 B4 10  |..i.C4..(C1$)...|
000008A0: 6A 00 46 37 28 35 29 B2  43 34 3A 46 37 28 33 31  |j.F7(5).C4:F7(31|
000008B0: 29 B2 43 34 00 CB 10 6B  00 46 38 28 31 29 B2 43  |).C4...k.F8(1).C|
000008C0: 34 3A 46 38 28 33 35 29  B2 43 34 00 E2 10 6C 00  |4:F8(35).C4...l.|
000008D0: 46 39 28 31 29 B2 43 34  3A 46 39 28 33 35 29 B2  |F9(1).C4:F9(35).|
000008E0: 43 34 00 ED 10 6D 00 81  49 B2 31 A4 37 00 F8 10  |C4...m..I.1.7...|
000008F0: 6E 00 41 B2 41 AA 34 30  00 03 11 6F 00 97 41 2C  |n.A.A.40...o..A,|
00000900: 31 36 30 00 26 11 70 00  91 43 38 28 49 29 8D 31  |160.&.p..C8(I).1|
00000910: 32 38 2C 31 33 32 2C 31  33 38 2C 31 34 34 2C 31  |28,132,138,144,1|
00000920: 34 39 2C 31 35 34 00 33  11 71 00 97 41 AA 36 2C  |49,154.3.q..A.6,|
00000930: 31 36 30 00 3A 11 72 00  82 49 00 45 11 73 00 41  |160.:.r..I.E.s.A|
00000940: B2 41 AA 33 39 00 54 11  74 00 8B 43 32 B2 31 30  |.A.39.T.t..C2.10|
00000950: A7 45 B2 35 00 5D 11 75  00 8D 31 32 33 00 6B 11  |.E.5.].u..123.k.|
00000960: 76 00 97 41 AA 45 AA 31  2C 43 33 00 86 11 77 00  |v..A.E.1,C3...w.|
00000970: 8B 43 32 B2 31 30 A7 97  41 AA 37 2C C6 28 22 30  |.C2.10..A.7,.("0|
00000980: 22 29 AA 31 32 38 00 93  11 78 00 43 36 28 59 29  |").128...x.C6(Y)|
00000990: B2 43 31 00 A0 11 79 00  43 37 28 59 29 B2 43 32  |.C1...y.C7(Y).C2|
000009A0: 00 A6 11 7A 00 8E 00 B1  11 7B 00 81 49 B2 31 A4  |...z.....{..I.1.|
000009B0: 45 00 BD 11 7C 00 97 41  AA 49 2C 41 31 00 C8 11  |E...|..A.I,A1...|
000009C0: 7D 00 41 31 B2 31 36 30  00 CF 11 7E 00 82 49 00  |}.A1.160...~..I.|
000009D0: D5 11 7F 00 8E 00 E0 11  80 00 81 58 B2 31 A4 35  |...........X.1.5|
000009E0: 00 ED 11 81 00 97 41 AA  58 2C 31 36 30 00 F4 11  |......A.X,160...|
000009F0: 82 00 82 58 00 FA 11 83  00 8E 00 07 12 84 00 97  |...X............|
00000A00: 41 AA 31 2C 31 36 30 00  14 12 85 00 97 41 AA 32  |A.1,160......A.2|
00000A10: 2C 31 36 30 00 20 12 86  00 97 41 AA 33 2C 43 34  |,160. ....A.3,C4|
00000A20: 00 2D 12 87 00 97 41 AA  34 2C 31 36 30 00 3A 12  |.-....A.4,160.:.|
00000A30: 88 00 97 41 AA 35 2C 31  36 30 00 40 12 89 00 8E  |...A.5,160.@....|
00000A40: 00 4C 12 8A 00 97 41 AA  31 2C 43 34 00 59 12 8B  |.L....A.1,C4.Y..|
00000A50: 00 97 41 AA 32 2C 31 36  30 00 66 12 8C 00 97 41  |..A.2,160.f....A|
00000A60: AA 33 2C 31 36 30 00 73  12 8D 00 97 41 AA 34 2C  |.3,160.s....A.4,|
00000A70: 31 36 30 00 7F 12 8E 00  97 41 AA 35 2C 43 34 00  |160......A.5,C4.|
00000A80: 85 12 8F 00 8E 00 90 12  90 00 81 58 B2 31 A4 35  |...........X.1.5|
00000A90: 00 A1 12 91 00 58 31 B2  35 AC 28 49 AB 31 29 AA  |.....X1.5.(I.1).|
00000AA0: 58 00 B1 12 92 00 97 41  AA 58 2C 46 37 28 58 31  |X......A.X,F7(X1|
00000AB0: 29 00 B8 12 93 00 82 58  00 BE 12 94 00 8E 00 C9  |)......X........|
00000AC0: 12 95 00 81 58 B2 31 A4  35 00 DA 12 96 00 58 31  |....X.1.5.....X1|
00000AD0: B2 35 AC 28 49 AB 31 29  AA 58 00 EA 12 97 00 97  |.5.(I.1).X......|
00000AE0: 41 AA 58 2C 46 38 28 58  31 29 00 F1 12 98 00 82  |A.X,F8(X1)......|
00000AF0: 58 00 F7 12 99 00 8E 00  02 13 9A 00 81 58 B2 31  |X............X.1|
00000B00: A4 35 00 13 13 9B 00 58  31 B2 35 AC 28 49 AB 31  |.5.....X1.5.(I.1|
00000B10: 29 AA 58 00 23 13 9C 00  97 41 AA 58 2C 46 39 28  |).X.#....A.X,F9(|
00000B20: 58 31 29 00 2A 13 9D 00  82 58 00 30 13 9E 00 8E  |X1).*....X.0....|
00000B30: 00 41 13 9F 00 8F 20 43  4C 45 41 52 20 43 41 52  |.A.... CLEAR CAR|
00000B40: 44 00 5A 13 A0 00 41 B2  50 31 AA 31 35 AC 50 32  |D.Z...A.P1.15.P2|
00000B50: AA 38 AC 28 59 AB 31 29  AB 31 00 65 13 A1 00 81  |.8.(Y.1).1.e....|
00000B60: 49 B2 31 A4 39 00 70 13  A2 00 81 58 B2 31 A4 37  |I.1.9.p....X.1.7|
00000B70: 00 7C 13 A3 00 97 41 AA  58 2C 33 32 00 83 13 A4  |.|....A.X,32....|
00000B80: 00 82 58 00 8E 13 A5 00  41 B2 41 AA 34 30 00 95  |..X.....A.A.40..|
00000B90: 13 A6 00 82 49 00 A6 13  A7 00 43 36 28 59 29 B2  |....I.....C6(Y).|
00000BA0: 31 35 AA 32 AC 59 00 B7  13 A8 00 43 37 28 59 29  |15.2.Y.....C7(Y)|
00000BB0: B2 31 35 AA 32 AC 59 00  BD 13 A9 00 8E 00 D4 13  |.15.2.Y.........|
00000BC0: AA 00 8F 20 48 49 47 48  4C 49 47 48 54 20 53 43  |... HIGHLIGHT SC|
00000BD0: 52 45 45 4E 00 E2 13 AB  00 8B 53 58 B2 30 89 31  |REEN......SX.0.1|
00000BE0: 38 30 00 F6 13 AC 00 50  B2 50 31 AA 50 32 AC 28  |80.....P.P1.P2.(|
00000BF0: 31 30 AB 53 58 29 00 FE  13 AD 00 58 B2 30 00 0A  |10.SX).....X.0..|
00000C00: 14 AE 00 81 49 B2 30 A4  33 37 00 17 14 AF 00 4E  |....I.0.37.....N|
00000C10: B2 C2 28 50 AA 49 29 00  2D 14 B0 00 8B 28 4E B2  |..(P.I).-....(N.|
00000C20: 33 32 29 AF 28 58 B2 30  29 89 31 37 39 00 35 14  |32).(X.0).179.5.|
00000C30: B1 00 58 B2 31 00 4A 14  B2 00 97 50 AA 49 2C 28  |..X.1.J....P.I,(|
00000C40: 4E AA 31 32 38 29 AF 32  35 35 00 51 14 B3 00 82  |N.128).255.Q....|
00000C50: 49 00 57 14 B4 00 8E 00  63 14 B5 00 57 31 B2 32  |I.W.....c...W1.2|
00000C60: 30 AC 44 00 69 14 B6 00  8E 00 75 14 B7 00 57 31  |0.D.i.....u...W1|
00000C70: B2 33 30 AC 44 00 7B 14  B8 00 8E 00 87 14 B9 00  |.30.D.{.........|
00000C80: 57 31 B2 35 30 AC 44 00  8D 14 BA 00 8E 00 9A 14  |W1.50.D.........|
00000C90: BB 00 57 31 B2 32 30 30  AC 44 00 A0 14 BC 00 8E  |..W1.200.D......|
00000CA0: 00 A6 14 BD 00 99 00 B1  14 BE 00 8B 57 B2 30 A7  |............W.0.|
00000CB0: 99 00 D8 14 BF 00 8B 57  B3 30 A7 99 22 59 4F 55  |.......W.0.."YOU|
00000CC0: 52 20 54 4F 54 41 4C 20  4C 4F 53 53 45 53 20 41  |R TOTAL LOSSES A|
00000CD0: 52 45 20 24 22 3B AB 57  00 00 15 C0 00 8B 57 B1  |RE $";.W......W.|
00000CE0: 30 A7 99 22 59 4F 55 52  20 54 4F 54 41 4C 20 57  |0.."YOUR TOTAL W|
00000CF0: 49 4E 4E 49 4E 47 53 20  41 52 45 20 24 22 3B 57  |INNINGS ARE $";W|
00000D00: 00 06 15 C1 00 8E 00 33  15 C2 00 46 24 B2 22 20  |.......3...F$." |
00000D10: 5F A0 29 20 47 2A 35 54  20 47 A0 A0 A0 20 47 A0  |_.) G*5T G... G.|
00000D20: A0 A0 48 20 A0 A0 A0 48  20 59 36 34 48 20 A9 A0  |..H ...H Y64H ..|
00000D30: DF 20 22 00 39 15 C3 00  8E 00 66 15 C4 00 46 24  |. ".9.....f...F$|
00000D40: B2 22 20 29 23 54 20 A9  47 20 35 20 A0 A0 A0 A0  |." )#T .G 5 ....|
00000D50: 3B A0 A0 A0 A0 A0 3C A0  A0 A0 A0 20 36 20 48 29  |;.....<.... 6 H)|
00000D60: 20 59 24 A9 20 22 00 6C  15 C5 00 8E 00 99 15 C6  | Y$. ".l........|
00000D70: 00 46 24 B2 22 20 5F A0  A0 29 20 27 20 26 42 A9  |.F$." _..) ' &B.|
00000D80: A0 A0 A0 BC A0 A0 A0 A0  A0 BB A0 A0 A0 29 5D 26  |.............)]&|
00000D90: 20 25 20 A9 A0 A0 DF 20  22 00 9F 15 C7 00 8E 00  | % .... ".......|
00000DA0: AD 15 C8 00 46 37 28 58  31 29 B2 46 31 00 B3 15  |....F7(X1).F1...|
00000DB0: C9 00 8E 00 C1 15 CA 00  46 38 28 58 31 29 B2 46  |........F8(X1).F|
00000DC0: 31 00 C7 15 CB 00 8E 00  D5 15 CC 00 46 39 28 58  |1...........F9(X|
00000DD0: 31 29 B2 46 31 00 DB 15  CD 00 8E 00 E6 15 CE 00  |1).F1...........|
00000DE0: 81 58 B2 31 A4 33 00 F3  15 CF 00 81 58 31 B2 31  |.X.1.3......X1.1|
00000DF0: A4 33 35 00 06 16 D0 00  91 58 8D 31 39 34 2C 31  |.35......X.194,1|
00000E00: 39 36 2C 31 39 38 00 1B  16 D1 00 46 31 B2 C6 28  |96,198.....F1..(|
00000E10: CA 28 46 24 2C 58 31 2C  31 29 29 00 2A 16 D2 00  |.(F$,X1,1)).*...|
00000E20: 8B 46 31 B3 39 36 89 32  31 32 00 3F 16 D3 00 8B  |.F1.96.212.?....|
00000E30: 46 31 B3 31 39 32 A7 46  31 B2 46 31 AA 36 34 00  |F1.192.F1.F1.64.|
00000E40: 53 16 D4 00 8B 46 31 B3  36 34 A7 46 31 B2 46 31  |S....F1.64.F1.F1|
00000E50: AA 36 34 00 67 16 D5 00  46 31 B2 28 46 31 AA 31  |.64.g...F1.(F1.1|
00000E60: 32 38 29 AF 32 35 35 00  7A 16 D6 00 91 58 8D 32  |28).255.z....X.2|
00000E70: 30 30 2C 32 30 32 2C 32  30 34 00 82 16 D7 00 82  |00,202,204......|
00000E80: 58 31 00 89 16 D8 00 82  58 00 8F 16 D9 00 8E 00  |X1......X.......|
00000E90: A5 16 DA 00 99 3A 99 22  49 4E 56 41 4C 49 44 20  |.....:."INVALID |
00000EA0: 42 45 54 20 22 00 AE 16  DB 00 89 32 32 31 00 DC  |BET "......221..|
00000EB0: 16 DC 00 99 3A 99 22 42  45 54 20 54 4F 4F 20 48  |....:."BET TOO H|
00000EC0: 49 47 48 2C 20 48 4F 55  53 45 20 4C 49 4D 49 54  |IGH, HOUSE LIMIT|
00000ED0: 20 49 53 20 24 31 30 2C  30 30 30 22 00 E6 16 DD  | IS $10,000"....|
00000EE0: 00 58 B2 31 30 30 00 F0  16 DE 00 58 B2 58 AB 31  |.X.100.....X.X.1|
00000EF0: 00 FD 16 DF 00 8B 58 B1  30 89 32 32 32 00 05 17  |......X.0.222...|
00000F00: E0 00 89 31 31 00 0E 17  E1 00 4C B2 34 30 00 49  |...11.....L.40.I|
00000F10: 17 E2 00 41 B2 50 AB 31  3A 4C 31 B2 C3 28 4D 24  |...A.P.1:L1..(M$|
00000F20: 29 3A 81 49 B2 31 A4 4C  31 3A 4D 31 24 B2 CA 28  |):.I.1.L1:M1$..(|
00000F30: 4D 24 2C 49 2C 31 29 3A  97 41 AA 49 2C C6 28 4D  |M$,I,1):.A.I,.(M|
00000F40: 31 24 29 AF 36 33 3A 82  49 00 5B 17 E3 00 4D 31  |1$).63:.I.[...M1|
00000F50: 24 B2 CA 28 4D 24 2C 49  2C 31 29 00 66 17 E4 00  |$..(M$,I,1).f...|
00000F60: 41 B2 41 AA 4C 31 00 71  17 E5 00 4C B2 4C AB 4C  |A.A.L1.q...L.L.L|
00000F70: 31 00 7F 17 E6 00 8B 4C  B3 B2 30 89 32 33 34 00  |1......L..0.234.|
00000F80: 8A 17 E7 00 81 49 B2 31  A4 4C 00 96 17 E8 00 97  |.....I.1.L......|
00000F90: 41 AA 49 2C 33 32 00 9D  17 E9 00 82 49 00 A8 17  |A.I,32......I...|
00000FA0: EA 00 4D 24 B2 22 20 22  00 AE 17 EB 00 8E 00 B4  |..M$." "........|
00000FB0: 17 EC 00 4B 00 DF 17 ED  00 43 B2 B5 28 C3 28 43  |...K.....C..(.(C|
00000FC0: 39 24 29 AC BB 28 54 49  29 29 AA 31 3A 8B 43 B1  |9$)..(TI)).1:.C.|
00000FD0: C3 28 43 39 24 29 A7 43  B2 C3 28 43 39 24 29 00  |.(C9$).C..(C9$).|
00000FE0: 0A 18 EE 00 43 B2 B5 28  C3 28 43 39 24 29 AC BB  |....C..(.(C9$)..|
00000FF0: 28 54 49 29 29 AA 31 3A  8B 43 B1 C3 28 43 39 24  |(TI)).1:.C..(C9$|
00001000: 29 A7 43 B2 C3 28 43 39  24 29 00 41 18 EF 00 43  |).C..(C9$).A...C|
00001010: 30 B2 C6 28 CA 28 43 39  24 2C 43 2C 31 29 29 3A  |0..(.(C9$,C,1)):|
00001020: 43 31 B2 B5 28 28 43 30  AB 31 29 AD 31 33 29 AA  |C1..((C0.1).13).|
00001030: 31 3A 43 32 B2 43 30 AB  31 33 AC 28 43 31 AB 31  |1:C2.C0.13.(C1.1|
00001040: 29 00 74 18 F0 00 43 31  24 B2 CA 28 22 C1 D3 DA  |).t...C1$..("...|
00001050: D8 22 2C 43 31 2C 31 29  3A 43 32 24 B2 CA 28 22  |.",C1,1):C2$..("|
00001060: 41 32 33 34 35 36 37 38  39 31 4A 51 4B 22 2C 43  |A234567891JQK",C|
00001070: 32 2C 31 29 00 91 18 F1  00 54 24 B2 22 22 3A 8B  |2,1).....T$."":.|
00001080: 43 B1 31 A7 54 24 B2 C8  28 43 39 24 2C 43 AB 31  |C.1.T$..(C9$,C.1|
00001090: 29 00 A9 18 F2 00 43 39  24 B2 54 24 AA CA 28 43  |).....C9$.T$..(C|
000010A0: 39 24 2C 43 AA 31 29 3A  8E 00 D5 18 F3 00 99 22  |9$,C.1):......."|
000010B0: 13 11 11 11 11 11 11 11  11 11 11 12 43 41 52 44  |............CARD|
000010C0: 53 20 48 41 56 45 20 42  45 45 4E 20 53 48 55 46  |S HAVE BEEN SHUF|
000010D0: 46 4C 45 44 22 00 FD 18  F4 00 43 39 24 B2 22 22  |FLED".....C9$.""|
000010E0: 3A 81 5A 5A B2 31 A4 35  32 3A 43 39 24 B2 43 39  |:.ZZ.1.52:C9$.C9|
000010F0: 24 AA C7 28 5A 5A 29 3A  82 5A 5A 3A 8E 00 05 19  |$..(ZZ):.ZZ:....|
00001100: F5 00 53 B2 30 00 0E 19  F6 00 53 32 B2 30 00 19  |..S.0.....S2.0..|
00001110: 19 F7 00 81 49 B2 31 A4  36 00 27 19 F8 00 43 35  |....I.1.6.'...C5|
00001120: 28 49 29 B2 31 30 30 00  2E 19 F9 00 82 49 00 39  |(I).100......I.9|
00001130: 19 FA 00 81 49 B2 31 A4  35 00 41 19 FB 00 58 B2  |....I.1.5.A...X.|
00001140: 35 00 56 19 FC 00 8B 43  37 28 49 29 B1 43 35 28  |5.V....C7(I).C5(|
00001150: 58 29 89 32 35 36 00 68  19 FD 00 43 35 28 58 AA  |X).256.h...C5(X.|
00001160: 31 29 B2 43 35 28 58 29  00 72 19 FE 00 58 B2 58  |1).C5(X).r...X.X|
00001170: AB 31 00 7F 19 FF 00 8B  58 B1 30 89 32 35 32 00  |.1......X.0.252.|
00001180: 91 19 00 01 43 35 28 58  AA 31 29 B2 43 37 28 49  |....C5(X.1).C7(I|
00001190: 29 00 98 19 01 01 82 49  00 AE 19 02 01 8B 43 35  |)......I......C5|
000011A0: 28 31 29 B2 31 A7 43 35  28 36 29 B2 31 34 00 B7  |(1).1.C5(6).14..|
000011B0: 19 03 01 53 31 B2 30 00  C2 19 04 01 81 49 B2 31  |...S1.0......I.1|
000011C0: A4 34 00 DD 19 05 01 8B  43 36 28 49 29 B2 43 36  |.4......C6(I).C6|
000011D0: 28 49 AA 31 29 A7 53 31  B2 53 31 AA 31 00 E4 19  |(I.1).S1.S1.1...|
000011E0: 06 01 82 49 00 F2 19 07  01 8B 53 31 B2 34 A7 53  |...I......S1.4.S|
000011F0: B2 35 00 1B 1A 08 01 53  31 B2 30 3A 81 49 B2 31  |.5.....S1.0:.I.1|
00001200: A4 34 3A 8B 43 35 28 49  29 AA 35 AB 49 B2 43 35  |.4:.C5(I).5.I.C5|
00001210: 28 35 29 A7 53 31 B2 53  31 AA 31 00 22 1A 09 01  |(5).S1.S1.1."...|
00001220: 82 49 00 3B 1A 0A 01 8B  53 31 B2 34 A7 53 B2 53  |.I.;....S1.4.S.S|
00001230: AA 33 3A 8B 53 B2 33 A7  53 B2 34 00 49 1A 0B 01  |.3:.S.3.S.4.I...|
00001240: 8B 53 31 B2 34 A7 32 37  31 00 72 1A 0C 01 53 31  |.S1.4.271.r...S1|
00001250: B2 30 3A 81 49 B2 32 A4  35 3A 8B 43 35 28 49 29  |.0:.I.2.5:.C5(I)|
00001260: AA 36 AB 49 B2 43 35 28  36 29 A7 53 31 B2 53 31  |.6.I.C5(6).S1.S1|
00001270: AA 31 00 79 1A 0D 01 82  49 00 92 1A 0E 01 8B 53  |.1.y....I......S|
00001280: 31 B2 34 A7 53 B2 53 AA  33 3A 8B 53 B2 33 A7 53  |1.4.S.S.3:.S.3.S|
00001290: B2 34 00 AE 1A 0F 01 8B  28 53 B2 38 29 AF 28 43  |.4......(S.8).(C|
000012A0: 35 28 35 29 B2 31 33 29  A7 53 B2 53 AA 31 00 B7  |5(5).13).S.S.1..|
000012B0: 1A 10 01 53 31 B2 30 00  C2 1A 11 01 81 49 B2 31  |...S1.0......I.1|
000012C0: A4 34 00 DD 1A 12 01 8B  43 35 28 49 29 B2 43 35  |.4......C5(I).C5|
000012D0: 28 49 AA 31 29 A7 53 31  B2 53 31 AA 31 00 F8 1A  |(I.1).S1.S1.1...|
000012E0: 13 01 8B 43 35 28 49 29  B2 43 35 28 49 AA 32 29  |...C5(I).C5(I.2)|
000012F0: A7 53 31 B2 53 31 AA 31  00 FF 1A 14 01 82 49 00  |.S1.S1.1......I.|
00001300: 11 1B 15 01 8B 53 31 B1  33 A7 53 31 B2 53 31 AA  |.....S1.3.S1.S1.|
00001310: 32 00 20 1B 16 01 8B 53  31 B1 53 A7 53 B2 53 31  |2. ....S1.S.S.S1|
00001320: 00 26 1B 17 01 8E 00 31  1B 18 01 81 49 B2 31 A4  |.&.....1....I.1.|
00001330: 35 00 59 1B 19 01 85 22  45 4E 54 45 52 20 53 55  |5.Y...."ENTER SU|
00001340: 49 54 20 23 2C 20 43 41  52 44 20 23 22 3B 43 36  |IT #, CARD #";C6|
00001350: 28 49 29 2C 43 37 28 49  29 00 60 1B 1A 01 82 49  |(I),C7(I).`....I|
00001360: 00 69 1B 1B 01 8D 32 34  35 00 6F 1B 1C 01 99 00  |.i....245.o.....|
00001370: 7B 1B 1D 01 99 22 53 3D  22 3B 53 00 81 1B 1E 01  |{...."S=";S.....|
00001380: 99 00 94 1B 1F 01 99 22  43 35 22 2C 22 43 36 22  |......."C5","C6"|
00001390: 2C 22 43 37 00 9F 1B 20  01 81 49 B2 31 A4 35 00  |,"C7... ..I.1.5.|
000013A0: B6 1B 21 01 99 43 35 28  49 29 2C 43 36 28 49 29  |..!..C5(I),C6(I)|
000013B0: 2C 43 37 28 49 29 00 C4  1B 22 01 82 49 3A 99 43  |,C7(I)..."..I:.C|
000013C0: 35 28 36 29 00 CD 1B 23  01 89 32 38 30 00 E7 1B  |5(6)...#..280...|
000013D0: 24 01 5A 24 B2 22 22 3A  5A 30 24 B2 22 20 22 3A  |$.Z$."":Z0$." ":|
000013E0: 5A 31 24 B2 22 A6 22 00  18 1C 25 01 99 5A 30 24  |Z1$."."...%..Z0$|
000013F0: 22 9D 22 3B 3A 81 5A 5A  B2 31 A4 35 30 3A A1 5A  |".";:.ZZ.1.50:.Z|
00001400: 32 24 3A 8B 5A 32 24 B3  B1 22 22 A7 5A 5A B2 35  |2$:.Z2$.."".ZZ.5|
00001410: 30 3A 82 3A 89 32 39 35  00 3B 1C 26 01 82 3A 5A  |0:.:.295.;.&..:Z|
00001420: 32 24 B2 5A 31 24 3A 5A  31 24 B2 5A 30 24 3A 5A  |2$.Z1$:Z1$.Z0$:Z|
00001430: 30 24 B2 5A 32 24 3A 89  32 39 33 00 70 1C 27 01  |0$.Z2$:.293.p.'.|
00001440: 5A 5A B2 C6 28 5A 32 24  29 AF 31 32 37 3A 8B 5A  |ZZ..(Z2$).127:.Z|
00001450: 5A B2 32 39 B0 5A 5A B2  31 37 B0 5A 5A B2 31 39  |Z.29.ZZ.17.ZZ.19|
00001460: B0 5A 5A B2 33 34 B0 5A  5A B2 36 39 A7 32 39 33  |.ZZ.34.ZZ.69.293|
00001470: 00 80 1C 28 01 8B 5A 5A  B3 B1 32 30 A7 32 39 39  |...(..ZZ..20.299|
00001480: 00 B2 1C 29 01 8B C3 28  5A 24 29 B1 30 A7 99 5A  |...)...(Z$).0..Z|
00001490: 32 24 3B 3A 8B C3 28 5A  24 29 B1 31 A7 5A 24 B2  |2$;:..(Z$).1.Z$.|
000014A0: C8 28 5A 24 2C C3 28 5A  24 29 AB 31 29 3A 89 32  |.(Z$,.(Z$).1):.2|
000014B0: 39 33 00 BB 1C 2A 01 89  32 39 32 00 E5 1C 2B 01  |93...*..292...+.|
000014C0: 8B 5A 5A B3 B1 31 33 A7  99 5A 32 24 3B 3A 5A 24  |.ZZ..13..Z2$;:Z$|
000014D0: B2 5A 24 AA 5A 32 24 3A  8B C3 28 5A 24 29 B3 5A  |.Z$.Z2$:..(Z$).Z|
000014E0: 39 A7 32 39 33 00 F0 1C  2C 01 99 22 20 22 3A 8E  |9.293...,.." ":.|
000014F0: 00 0A 1D 2D 01 81 49 B2  31 A4 34 30 30 3A 97 56  |...-..I.1.400:.V|
00001500: 4B AA 49 2C 31 34 3A 82  3A 8E 00 00 00 00 41     |K.I,14:.:.....A |
....... DRAW POKER.<...."...............
....DRAW POKER 1...".`...."...      .ONE
 MOMENT PLEASE!"......G1(5),F7(35),F8(35
),F9(35),O(10)......I.1.10:.O(I):.I:.200
,50,30,20,10,7,5,2,1,-1......C5(6),C6(5)
,C7(5),C8(7):FS$."              ".....M$
." ".....P1.1024:P2.40:VK.55895.....W.0.
 ....206.*....".";.Z....".HAND          
      ODDS       YOU WIN ".Z...."ROYAL F
LUSH:     200 TO 1......"STRAIGHT FLUSH:
   50 TO 1":."FOUR OF A KIND:   30 TO 1"
......"FULL HOUSE:       20 TO 1":."FLUS
H:            10 TO 1".4...."STRAIGHT:  
        7 TO 1":."THREE OF A KIND:   5 T
O 1".U...."TWO PAIR:          2 TO 1".U.
..."PAIR:              1 TO 1......189:.
301......"PLACE YOUR BET: $1 TO $10000 $
";:Z9.6:.292:D.E(Z$).......((D.9999).100
00).1.218,23,220......220.#....".":.S.1.
9:Z$.D(O(S).D):..25)H(FS$,12.C(Z$))"$"Z$
:.S.7....C(C9$).12..243.N....Y.1.5:.237:
.78:.Y.A....245:SX.S:.170.T....Q$:.Q$.."
".27......".............SELECT DISCARDS 
BY NUMBER, 1,2,3,4&/OR 5......".TO CANCE
L PRESS C. TO DRAW PRESS RETURN."......I
.1.5.....G1(I).1... ..I...!.P.P1.24.P2..
."..225...#..Q$.-.$..Q$."".35.9.%.Q.F(Q$
).F.&..Q.13.49.U.'..Q$."C".30.D.(..Q$."1
".35.S.)..Q$."5".35..*.Y.E(Q$)...+.G1(Y
).0...,.P.P1.24.P2.8.(Y.1)...-.M$."DISCA
RD".....L.C(M$).H./..226.P.0..35...1.P.P
1.11.P2:.225...2.P.P1.12.P2:.225...3.P.P
1.13.P2:.225:P.P1.24.P2:.225.'.4..Y.1.5.
9.5..G1(Y).0..159.@.6..Y.I.7..245.V.8..S
X.S.59._.9..170.H.:.SX.S.S.;..Y.1.5...<.
.G1(Y).1.63...=..237...>..78...?..Y...@.
.245...A..SX.S.69...B..170.C.C.SX.S.L.D.
.170.R.E.....F.W.W.D.O(10.S):M$."WINNING
S":.O(10.S).0.M$."LOSSES".F.G.M$.M$." TH
IS HAND ARE $".D(.(D.O(10.S))):P.P1.11.P
2:.225.H.H.M$."WINNINGS":.W.0.M$."LOSSES
...I.P.P1.12.P2:M$."TOTAL ".M$." ARE $".
D(.(W)):.225.Q.J.M$."PRESS RETURN TO CON
TINUE...":P.P1.13.P2:.225...K..G$:.G$.""
.75...L..F(G$)..13.75...M..11...N.H.C2.7
...O..H.4.H.1. .P..I.1.7.,.Q.C8(I).H.3.R
..I.B.S..C2.84,87,86,97,93,96,95,90,92,8
9,98,98,98.N.T.C8(4).2.V.U..98...V.C8(4)
.2...W.C8(2).2:C8(6).2...X..98...Y.C8(2)
.2:C8(6).2.F.Z.C8(3).3:C8(5).3.N.[..97..
.\.C8(3).3:C8(5).3...].C8(4).2...^..97..
._.C8(3).2...`.C8(4).3.".A.C8(1).3:C8(7)
.3.9.B.A.P1.15.P2.8.(Y.1).P.C.C3.(F(C2$)
.63).128.Z.D..A,C3.E.E.A1.160.~.F..C2.10
.A1.F("0").128...G.E.6...H..123...I.C4.F
(C1$)...J.F7(5).C4:F7(31).C4.K.K.F8(1).C
4:F8(35).C4...L.F9(1).C4:F9(35).C4...M..
I.1.7...N.A.A.40...O..A,160.&.P..C8(I).1
28,132,138,144,149,154.3.Q..A.6,160.:.R.
.I.E.S.A.A.39.T.T..C2.10.E.5.].U..123.K.
V..A.E.1,C3...W..C2.10..A.7,F("0").128..
.X.C6(Y).C1. .Y.C7(Y).C2...Z.....{..I.1.
E...|..A.I,A1.H.}.A1.160.O.~..I.U......
...X.1.5......A.X,160......X............
A.1,160......A.2,160. ....A.3,C4.-....A.
4,160.:....A.5,160.@.....L....A.1,C4.Y..
..A.2,160.F....A.3,160.S....A.4,160....
.A.5,C4............X.1.5.....X1.5.(I.1).
X......A.X,F7(X1)......X.......I....X.1.
5.Z...X1.5.(I.1).X......A.X,F8(X1)......
X............X.1.5.....X1.5.(I.1).X.#...
.A.X,F9(X1).*....X.0.....A.... CLEAR CAR
D.Z. .A.P1.15.P2.8.(Y.1).1.E....I.1.9.P.
...X.1.7.|....A.X,32......X.....A.A.40..
....I.....C6(Y).15.2.Y.....C7(Y).15.2.Y.
......T.... HIGHLIGHT SCREEN......SX.0.1
80.....P.P1.P2.(10.SX).....X.0......I.0.
37.....N.B(P.I).-....(N.32).(X.0).179.5.
..X.1.J....P.I,(N.128).255.Q....I.W.....
C...W1.20.D.I.....U...W1.30.D.{.........
W1.50.D...........W1.200.D. ............
....W.0...X....W.0.."YOUR TOTAL LOSSES A
RE $";.W......W.0.."YOUR TOTAL WINNINGS 
ARE $";W...A...3.B.F$." _ ) G*5T G    G 
  H    H Y64H . . ".9.C...F.D.F$." )#T .
G 5     ;     <     6 H) Y$. ".L.E.....F
.F$." _  ) ' &B.   .     .   )]& % .  . 
"...G.....H.F7(X1).F1...I...A.J.F8(X1).F
1.G.K...U.L.F9(X1).F1...M.....N..X.1.3..
.O..X1.1.35...P..X.194,196,198...Q.F1.F(
J(F$,X1,1)).*.R..F1.96.212.?.S..F1.192.F
1.F1.64.S.T..F1.64.F1.F1.64.G.U.F1.(F1.1
28).255.Z.V..X.200,202,204...W..X1...X..
X...Y.....Z..:."INVALID BET "......221..
....:."BET TOO HIGH, HOUSE LIMIT IS $10,
000".....X.100.....X.X.1......X.0.222...
...11.....L.40.I...A.P.1:L1.C(M$):.I.1.L
1:M1$.J(M$,I,1):.A.I,F(M1$).63:.I.[...M1
$.J(M$,I,1).F...A.A.L1.Q...L.L.L1.....L
..0.234......I.1.L......A.I,32......I...
..M$." "...........K.....C..(C(C9$)..(TI
)).1:.C.C(C9$).C.C(C9$).....C..(C(C9$)..
(TI)).1:.C.C(C9$).C.C(C9$).A...C0.F(J(C9
$,C,1)):C1..((C0.1).13).1:C2.C0.13.(C1.1
).T...C1$.J("ASZX",C1,1):C2$.J("A2345678
91JQK",C2,1).....T$."":.C.1.T$.H(C9$,C.1
).....C9$.T$.J(C9$,C.1):..U...."........
....CARDS HAVE BEEN SHUFFLED".....C9$.""
:.ZZ.1.52:C9$.C9$.G(ZZ):.ZZ:......S.0...
..S2.0......I.1.6.'...C5(I).100......I.9
....I.1.5.A...X.5.V....C7(I).C5(X).256.H
...C5(X.1).C5(X).R...X.X.1.....X.0.252.
....C5(X.1).C7(I)......I......C5(1).1.C5
(6).14.....S1.0.B....I.1.4......C6(I).C6
(I.1).S1.S1.1......I......S1.4.S.5.....S
1.0:.I.1.4:.C5(I).5.I.C5(5).S1.S1.1."...
.I.;....S1.4.S.S.3:.S.3.S.4.I....S1.4.27
1.R...S1.0:.I.2.5:.C5(I).6.I.C5(6).S1.S1
.1.Y....I......S1.4.S.S.3:.S.3.S.4......
(S.8).(C5(5).13).S.S.1.....S1.0.B....I.1
.4......C5(I).C5(I.1).S1.S1.1......C5(I)
.C5(I.2).S1.S1.1......I......S1.3.S1.S1.
2. ....S1.S.S.S1.&.....1....I.1.5.Y...."
ENTER SUIT #, CARD #";C6(I),C7(I).`....I
.I....245.O.....{...."S=";S............"
C5","C6","C7... ..I.1.5...!..C5(I),C6(I)
,C7(I).D."..I:.C5(6).M.#..280...$.Z$."":
Z0$." ":Z1$."."...%..Z0$".";:.ZZ.1.50:.Z
2$:.Z2$.."".ZZ.50:.:.295.;.&..:Z2$.Z1$:Z
1$.Z0$:Z0$.Z2$:.293.P.'.ZZ.F(Z2$).127:.Z
Z.29.ZZ.17.ZZ.19.ZZ.34.ZZ.69.293...(..ZZ
..20.299...)..C(Z$).0..Z2$;:.C(Z$).1.Z$.
H(Z$,C(Z$).1):.293...*..292...+..ZZ..13.
.Z2$;:Z$.Z$.Z2$:.C(Z$).Z9.293...,.." ":.
...-..I.1.400:.VK.I,14:.:.....A
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL