POKER
FILE INFORMATION
FILENAME(S): POKER
FILE TYPE(S): DEL, PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:06:51
APPEARS ON: 2 disk(s)
FILE HASH
57f4409eb0dabae7b8372cbae7ae9b2ff599b0edf0555d50f72f0717e1060d17
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KAARTSPELEN | POKER | DEL | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
| KAARTSPELEN | POKER | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 23 08 00 00 9C 3A 50 47 24 B2 22 50 4F 4B |..#....:PG$."POK|
00000010: 45 52 22 3A 4E 4D 24 B2 22 32 32 22 3A 89 36 32 |ER":NM$."22":.62|
00000020: 30 30 30 00 45 08 01 00 22 20 43 4F 50 59 52 49 |000.E..." COPYRI|
00000030: 47 48 54 28 43 29 31 39 38 30 20 44 41 56 49 44 |GHT(C)1980 DAVID|
00000040: 20 48 4F 4F 4B 00 58 08 02 00 22 20 35 38 20 53 | HOOK.X..." 58 S|
00000050: 54 45 45 4C 20 53 54 2E 00 7C 08 03 00 22 20 42 |TEEL ST..|..." B|
00000060: 41 52 52 49 45 2C 4F 4E 54 41 52 49 4F 2C 43 41 |ARRIE,ONTARIO,CA|
00000070: 4E 41 44 41 2C 4C 34 4D 20 32 45 39 00 82 08 04 |NADA,L4M 2E9....|
00000080: 00 22 00 9D 08 05 00 22 20 43 55 52 53 4F 52 20 |."....." CURSOR |
00000090: 23 32 32 2C 20 53 45 50 20 31 39 38 30 00 B2 08 |#22, SEP 1980...|
000000A0: 06 00 22 20 54 48 45 20 43 4F 44 45 20 57 4F 52 |.." THE CODE WOR|
000000B0: 4B 53 00 D3 08 07 00 22 20 42 4F 58 20 35 35 30 |KS....." BOX 550|
000000C0: 2C 20 47 4F 4C 45 54 41 2C 20 43 41 2E 20 39 33 |, GOLETA, CA. 93|
000000D0: 30 31 37 00 D9 08 08 00 22 00 EF 08 0A 00 22 20 |017....."....." |
000000E0: 41 53 20 4F 46 20 30 38 20 4F 43 54 20 38 30 00 |AS OF 08 OCT 80.|
000000F0: 25 09 64 00 86 20 44 53 28 34 29 2C 41 25 28 35 |%.d.. DS(4),A%(5|
00000100: 31 29 2C 42 25 28 34 2C 33 29 2C 48 25 28 31 33 |1),B%(4,3),H%(13|
00000110: 29 2C 44 25 28 31 2C 31 29 2C 4F 25 28 38 29 2C |),D%(1,1),O%(8),|
00000120: 4F 24 28 38 29 00 4A 09 6E 00 86 41 24 28 31 33 |O$(8).J.n..A$(13|
00000130: 29 2C 43 25 28 31 30 2C 37 29 2C 53 24 28 32 2C |),C%(10,7),S$(2,|
00000140: 33 29 2C 46 24 28 33 2C 37 29 00 7C 09 78 00 42 |3),F$(3,7).|.x.B|
00000150: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 22 00 9F 09 82 | "....|
00000180: 00 42 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |.B$."...........|
00000190: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
000001A0: BE 09 8C 00 4D 44 24 B2 C8 28 42 24 2C 31 34 29 |....MD$..(B$,14)|
000001B0: 3A 43 B2 35 32 3A 49 B2 BB 28 AB 54 49 29 00 DB |:C.52:I..(.TI)..|
000001C0: 09 96 00 81 49 B2 31 A4 31 33 3A 87 41 24 28 49 |....I.1.13:.A$(I|
000001D0: 29 3A 48 25 28 49 29 B2 30 3A 82 00 FB 09 9B 00 |):H%(I).0:......|
000001E0: 83 41 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 |.A,2,3,4,5,6,7,8|
000001F0: 2C 39 2C 31 30 2C 4A 2C 51 2C 4B 00 15 0A A0 00 |,9,10,J,Q,K.....|
00000200: 81 49 B2 30 A4 38 3A 87 4F 25 28 49 29 2C 4F 24 |.I.0.8:.O%(I),O$|
00000210: 28 49 29 3A 82 00 57 0A A5 00 83 30 2C 4E 4F 20 |(I):..W....0,NO |
00000220: 50 41 49 52 2C 31 2C 4F 4E 45 20 50 41 49 52 2C |PAIR,1,ONE PAIR,|
00000230: 33 2C 54 57 4F 20 50 41 49 52 2C 35 2C 54 48 52 |3,TWO PAIR,5,THR|
00000240: 45 45 20 4F 46 20 41 20 4B 49 4E 44 2C 37 2C 53 |EE OF A KIND,7,S|
00000250: 54 52 41 49 47 48 54 00 97 0A AA 00 83 31 30 2C |TRAIGHT......10,|
00000260: 46 4C 55 53 48 2C 32 30 2C 46 55 4C 4C 20 48 4F |FLUSH,20,FULL HO|
00000270: 55 53 45 2C 33 30 2C 46 4F 55 52 20 4F 46 20 41 |USE,30,FOUR OF A|
00000280: 20 4B 49 4E 44 2C 35 30 2C 53 54 52 41 49 47 48 | KIND,50,STRAIGH|
00000290: 54 20 46 4C 55 53 48 00 B8 0A B4 00 81 49 B2 31 |T FLUSH......I.1|
000002A0: A4 31 30 3A 81 4A B2 31 A4 37 3A 87 43 25 28 49 |.10:.J.1.7:.C%(I|
000002B0: 2C 4A 29 3A 82 4A 2C 49 00 03 0B B9 00 83 30 2C |,J):.J,I......0,|
000002C0: 30 2C 30 2C 31 2C 30 2C 30 2C 30 2C 31 2C 30 2C |0,0,1,0,0,0,1,0,|
000002D0: 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 30 2C 30 2C |0,0,0,0,1,1,0,0,|
000002E0: 31 2C 30 2C 30 2C 31 2C 32 2C 30 2C 30 2C 30 2C |1,0,0,1,2,0,0,0,|
000002F0: 30 2C 30 2C 32 2C 32 2C 30 2C 30 2C 31 2C 30 2C |0,0,2,2,0,0,1,0,|
00000300: 30 2C 32 00 4E 0B BE 00 83 32 2C 30 2C 30 2C 32 |0,2.N....2,0,0,2|
00000310: 2C 30 2C 30 2C 32 2C 32 2C 30 2C 31 2C 30 2C 32 |,0,0,2,2,0,1,0,2|
00000320: 2C 30 2C 32 2C 32 2C 30 2C 32 2C 30 2C 32 2C 30 |,0,2,2,0,2,0,2,0|
00000330: 2C 32 2C 32 2C 30 2C 32 2C 31 2C 32 2C 30 2C 32 |,2,2,0,2,1,2,0,2|
00000340: 2C 32 2C 31 2C 32 2C 30 2C 32 2C 31 2C 32 00 6E |,2,1,2,0,2,1,2.n|
00000350: 0B C8 00 81 49 B2 31 A4 33 3A 81 4A B2 31 A4 37 |....I.1.3:.J.1.7|
00000360: 3A 87 46 24 28 49 2C 4A 29 3A 82 4A 2C 49 00 B2 |:.F$(I,J):.J,I..|
00000370: 0B CD 00 83 22 DF 92 20 12 A9 20 20 22 2C 22 20 |....".. .. "," |
00000380: 92 BC 12 A7 BA 20 12 20 20 22 2C 22 20 A1 92 A9 |..... . "," ...|
00000390: 12 A9 92 DF 12 20 20 22 2C 22 20 A6 A9 D6 92 A9 |..... "," .....|
000003A0: 12 A6 20 22 2C 22 20 20 DF 92 A9 12 A9 92 A1 12 |.. "," ........|
000003B0: 20 22 00 F6 0B D2 00 83 22 20 20 A7 D0 20 92 BB | "......" .. ..|
000003C0: 12 20 22 2C 22 20 20 92 A9 20 DF 22 2C 22 A9 D0 |. "," .. .","..|
000003D0: 20 20 20 22 2C 22 20 92 A9 12 C2 AA 20 20 20 22 | "," ..... "|
000003E0: 2C 22 20 92 20 20 20 20 12 BB 20 22 2C 22 20 A6 |," . .. "," .|
000003F0: D6 D6 D6 A6 20 22 00 3A 0C D7 00 83 22 20 BC 92 |.... ".:...." ..|
00000400: 20 20 20 20 12 20 22 2C 22 20 20 20 B4 DD A9 20 | . "," ... |
00000410: 22 2C 22 20 20 20 CC 92 A9 22 2C 22 DF 92 20 20 |"," ...",".. |
00000420: 12 A9 20 22 2C 22 20 20 A7 20 A6 C2 20 22 2C 22 |.. "," . .. ","|
00000430: 20 92 A9 20 20 20 BC 12 20 22 00 68 0C DC 00 83 | .. .. ".h....|
00000440: 22 20 A6 BF BF BF A6 20 22 2C 22 20 92 BB 20 20 |" ..... "," .. |
00000450: 20 12 A9 20 22 2C 22 20 DD A6 20 A5 20 20 22 2C | .. "," .. . ",|
00000460: 22 20 92 A9 20 20 DF 22 00 7E 0C F0 00 81 49 B2 |" .. .".~....I.|
00000470: 30 A4 35 31 3A 41 25 28 49 29 B2 49 3A 82 00 9F |0.51:A%(I).I:...|
00000480: 0C FA 00 81 49 B2 30 A4 34 3A 81 4A B2 31 A4 33 |....I.0.4:.J.1.3|
00000490: 3A 42 25 28 49 2C 4A 29 B2 30 3A 82 4A 2C 49 00 |:B%(I,J).0:.J,I.|
000004A0: C0 0C 04 01 81 49 B2 30 A4 31 3A 81 4A B2 30 A4 |.....I.0.1:.J.0.|
000004B0: 31 3A 44 25 28 49 2C 4A 29 B2 30 3A 82 4A 2C 49 |1:D%(I,J).0:.J,I|
000004C0: 00 FC 0C 0E 01 53 24 B2 22 20 20 20 D8 20 20 20 |.....S$." . |
000004D0: DA 20 20 20 D3 20 20 20 C1 20 20 20 22 3A 54 24 |. . . ":T$|
000004E0: B2 22 20 D8 20 20 20 D8 20 DA 20 20 20 DA 20 D3 |." . . . . .|
000004F0: 20 20 20 D3 20 C1 20 20 20 C1 20 22 00 31 0D 18 | . . . ".1..|
00000500: 01 81 49 B2 30 A4 33 3A 53 24 28 30 2C 49 29 B2 |..I.0.3:S$(0,I).|
00000510: 22 20 20 20 20 20 20 20 22 3A 53 24 28 31 2C 49 |" ":S$(1,I|
00000520: 29 B2 CA 28 53 24 2C 49 AC 34 AA 31 2C 37 29 3A |)..(S$,I.4.1,7):|
00000530: 82 00 54 0D 22 01 81 49 B2 30 A4 33 3A 53 24 28 |..T."..I.0.3:S$(|
00000540: 32 2C 49 29 B2 CA 28 54 24 2C 49 AC 36 AA 31 2C |2,I)..(T$,I.6.1,|
00000550: 37 29 3A 82 00 90 0D 2C 01 42 41 B2 31 30 30 30 |7):....,.BA.1000|
00000560: 3A 42 45 B2 30 3A 4F 48 B2 30 3A 48 4C B2 30 3A |:BE.0:OH.0:HL.0:|
00000570: 48 B2 30 3A 44 B2 30 3A 4A B2 30 3A 4B B2 30 3A |H.0:D.0:J.0:K.0:|
00000580: 4C B2 30 3A 4D B2 30 3A 4E B2 30 3A 4F 42 B2 30 |L.0:M.0:N.0:OB.0|
00000590: 00 AC 0D 31 01 53 54 25 B2 30 3A 46 4C 25 B2 30 |...1.ST%.0:FL%.0|
000005A0: 3A 53 46 25 B2 30 3A 41 46 25 B2 30 00 B6 0D 68 |:SF%.0:AF%.0...h|
000005B0: 01 8D 31 32 35 30 00 BC 0D 77 01 8F 00 CB 0D 7C |..1250...w.....||
000005C0: 01 8B 42 41 B2 30 A7 31 37 30 30 00 DC 0D 81 01 |..BA.0.1700.....|
000005D0: 81 49 B2 31 A4 31 30 30 30 3A 82 49 00 EC 0D 86 |.I.1.1000:.I....|
000005E0: 01 42 45 B2 4F 42 3A 8D 31 34 35 30 00 06 0E 90 |.BE.OB:.1450....|
000005F0: 01 99 22 59 4F 55 52 20 42 45 54 3F 20 22 3B 3A |.."YOUR BET? ";:|
00000600: 8D 36 30 30 30 30 00 2B 0E 95 01 8B C8 28 49 4E |.60000.+.....(IN|
00000610: 24 2C 31 29 B2 22 51 22 A7 52 4B B2 48 3A 8D 31 |$,1)."Q".RK.H:.1|
00000620: 33 34 30 3A 8D 31 33 30 30 3A 80 00 41 0E 9A 01 |340:.1300:..A...|
00000630: 8B 49 4E 24 B2 22 22 A7 49 4E 24 B2 C4 28 42 45 |.IN$."".IN$..(BE|
00000640: 29 00 53 0E A4 01 8B C5 28 49 4E 24 29 B2 30 A7 |).S.....(IN$).0.|
00000650: 33 39 30 00 64 0E AE 01 42 45 B2 B5 28 C5 28 49 |390.d...BE..(.(I|
00000660: 4E 24 29 29 00 8A 0E AF 01 8B 42 45 B3 31 A7 99 |N$))......BE.1..|
00000670: 22 59 4F 55 20 43 41 4E 27 54 20 44 4F 20 54 48 |"YOU CAN'T DO TH|
00000680: 41 54 21 22 3A 89 20 33 38 35 00 B8 0E B0 01 8B |AT!":. 385......|
00000690: 42 45 B1 42 41 A7 99 22 59 4F 55 20 44 4F 4E 27 |BE.BA.."YOU DON'|
000006A0: 54 20 48 41 56 45 20 54 48 41 54 20 4D 55 43 48 |T HAVE THAT MUCH|
000006B0: 2E 22 3A 89 20 33 38 35 00 E5 0E B1 01 8B 42 45 |.":. 385......BE|
000006C0: B1 31 30 30 30 30 A7 99 22 48 4F 55 53 45 20 4C |.10000.."HOUSE L|
000006D0: 49 4D 49 54 20 49 53 20 24 31 30 30 30 30 2E 22 |IMIT IS $10000."|
000006E0: 3A 89 33 38 35 00 FA 0E B8 01 52 4B B2 48 3A 8D |:.385.....RK.H:.|
000006F0: 31 33 34 30 3A 8D 31 34 39 30 00 13 0F C2 01 42 |1340:.1490.....B|
00000700: 41 B2 42 41 AB 42 45 3A 8D 31 34 32 30 3A 8D 31 |A.BA.BE:.1420:.1|
00000710: 33 30 30 00 26 0F CC 01 99 4D 44 24 22 11 11 22 |300.&....MD$".."|
00000720: 3B 3A 8D 35 34 30 00 34 0F D6 01 4F 48 B2 30 3A |;:.540.4...OH.0:|
00000730: 8D 36 30 30 00 3D 0F E0 01 8D 39 39 30 00 4C 0F |.600.=....990.L.|
00000740: EA 01 8D 31 34 35 30 3A 89 33 38 30 00 64 0F FE |...1450:.380.d..|
00000750: 01 99 4D 44 24 3B 22 11 12 53 48 55 46 46 4C 49 |..MD$;"..SHUFFLI|
00000760: 4E 47 13 22 00 A3 0F 08 02 81 49 B2 30 A4 35 31 |NG."......I.0.51|
00000770: 3A 4A B2 B5 28 28 35 32 AB 49 29 AC BB 28 31 29 |:J..((52.I)..(1)|
00000780: 29 3A 4B B2 41 25 28 4A 29 3A 41 25 28 4A 29 B2 |):K.A%(J):A%(J).|
00000790: 41 25 28 35 31 AB 49 29 3A 41 25 28 35 31 AB 49 |A%(51.I):A%(51.I|
000007A0: 29 B2 4B 00 B7 0F 12 02 82 49 3A 99 4D 44 24 3B |).K......I:.MD$;|
000007B0: 22 11 11 22 3B 3A 8E 00 CA 0F 1C 02 8B 43 B1 34 |"..";:.......C.4|
000007C0: 34 A7 43 B2 30 3A 8D 35 31 30 00 E0 0F 26 02 81 |4.C.0:.510...&..|
000007D0: 49 B2 31 A4 31 33 3A 48 25 28 49 29 B2 30 3A 82 |I.1.13:H%(I).0:.|
000007E0: 00 EB 0F 30 02 81 4E B2 30 A4 34 00 09 10 3A 02 |...0..N.0.4...:.|
000007F0: 42 25 28 4E 2C 31 29 B2 41 25 28 43 29 3A 43 B2 |B%(N,1).A%(C):C.|
00000800: 43 AA 31 3A 8D 31 35 35 30 00 2F 10 44 02 42 25 |C.1:.1550./.D.B%|
00000810: 28 4E 2C 32 29 B2 4B 3A 42 25 28 4E 2C 33 29 B2 |(N,2).K:B%(N,3).|
00000820: 49 3A 48 25 28 49 29 B2 48 25 28 49 29 AA 31 00 |I:H%(I).H%(I).1.|
00000830: 38 10 4E 02 82 4E 3A 8E 00 54 10 58 02 53 54 25 |8.N..N:..T.X.ST%|
00000840: B2 30 3A 46 4C 25 B2 30 3A 41 46 25 B2 30 3A 53 |.0:FL%.0:AF%.0:S|
00000850: 46 25 B2 30 00 80 10 62 02 81 49 B2 31 A4 34 3A |F%.0...b..I.1.4:|
00000860: 8B 42 25 28 49 2C 32 29 B3 B1 42 25 28 30 2C 32 |.B%(I,2)..B%(0,2|
00000870: 29 A7 49 B2 34 3A 46 4C 25 B2 30 3A 89 36 33 30 |).I.4:FL%.0:.630|
00000880: 00 8A 10 6C 02 46 4C 25 B2 31 00 91 10 76 02 82 |...l.FL%.1...v..|
00000890: 49 00 A8 10 80 02 4A B2 30 3A 8B 48 25 28 31 29 |I.....J.0:.H%(1)|
000008A0: B2 31 A7 41 46 25 B2 31 00 C4 10 8A 02 81 49 B2 |.1.AF%.1......I.|
000008B0: 31 A4 39 3A 8B 48 25 28 49 29 B2 31 A7 4A B2 49 |1.9:.H%(I).1.J.I|
000008C0: 3A 49 B2 39 00 CB 10 94 02 82 49 00 D3 10 9E 02 |:I.9......I.....|
000008D0: 4B B2 34 00 FC 10 A8 02 81 49 B2 4A AA 31 A4 4A |K.4......I.J.1.J|
000008E0: AA 4B 3A 8B 48 25 28 49 29 B2 30 A7 49 B2 4A AA |.K:.H%(I).0.I.J.|
000008F0: 4B 3A 53 54 25 B2 30 3A 89 37 30 30 00 06 11 B2 |K:ST%.0:.700....|
00000900: 02 53 54 25 B2 31 00 0D 11 BC 02 82 49 00 39 11 |.ST%.1......I.9.|
00000910: C6 02 8B 41 46 25 B2 31 AF 53 54 25 B2 30 AF 48 |...AF%.1.ST%.0.H|
00000920: 25 28 31 30 29 B2 31 AF 4B B2 34 A7 4A B2 31 30 |%(10).1.K.4.J.10|
00000930: 3A 4B B2 33 3A 89 36 38 30 00 59 11 D0 02 81 49 |:K.3:.680.Y....I|
00000940: B2 31 A4 31 33 3A 8B 48 25 28 49 29 B1 31 A7 53 |.1.13:.H%(I).1.S|
00000950: 54 25 B2 30 3A 49 B2 31 33 00 60 11 DA 02 82 49 |T%.0:I.13.`....I|
00000960: 00 73 11 E4 02 8B 53 54 25 AF 4B B2 34 A7 4B B2 |.s....ST%.K.4.K.|
00000970: 4A AA 34 00 84 11 EE 02 8B 53 54 25 AF 4B B2 33 |J.4......ST%.K.3|
00000980: A7 4B B2 31 00 97 11 F8 02 8B 53 54 25 AF 46 4C |.K.1......ST%.FL|
00000990: 25 A7 53 46 25 B2 31 00 A9 11 02 03 8B 53 46 25 |%.SF%.1......SF%|
000009A0: A7 48 B2 38 3A 89 39 34 30 00 BB 11 0C 03 8B 53 |.H.8:.940......S|
000009B0: 54 25 A7 48 B2 34 3A 89 39 34 30 00 CD 11 16 03 |T%.H.4:.940.....|
000009C0: 8B 46 4C 25 A7 48 B2 35 3A 89 39 34 30 00 EE 11 |.FL%.H.5:.940...|
000009D0: 20 03 81 49 B2 30 A4 31 3A 81 4A B2 30 A4 31 3A | ..I.0.1:.J.0.1:|
000009E0: 44 25 28 49 2C 4A 29 B2 30 3A 82 4A 2C 49 00 0B |D%(I,J).0:.J,I..|
000009F0: 12 2A 03 4A B2 30 3A 81 49 B2 31 A4 31 33 3A 8B |.*.J.0:.I.1.13:.|
00000A00: 48 25 28 49 29 B3 32 A7 38 34 30 00 2D 12 34 03 |H%(I).2.840.-.4.|
00000A10: 44 25 28 4A 2C 30 29 B2 48 25 28 49 29 3A 44 25 |D%(J,0).H%(I):D%|
00000A20: 28 4A 2C 31 29 B2 49 3A 4A B2 4A AA 31 00 3B 12 |(J,1).I:J.J.1.;.|
00000A30: 3E 03 8B 4A B2 32 A7 49 B2 31 33 00 42 12 48 03 |>..J.2.I.13.B.H.|
00000A40: 82 49 00 54 12 52 03 8B 4A B2 30 A7 48 B2 30 3A |.I.T.R..J.0.H.0:|
00000A50: 89 39 34 30 00 61 12 5C 03 8B 4A B2 31 A7 39 30 |.940.a.\..J.1.90|
00000A60: 30 00 88 12 66 03 81 49 B2 30 A4 31 3A 8B 44 25 |0...f..I.0.1:.D%|
00000A70: 28 49 2C 30 29 B2 33 A7 48 B2 36 3A 4B B2 49 3A |(I,0).3.H.6:K.I:|
00000A80: 49 B2 31 3A 89 38 39 30 00 90 12 70 03 48 B2 32 |I.1:.890...p.H.2|
00000A90: 00 9C 12 7A 03 82 49 3A 89 39 34 30 00 C3 12 84 |...z..I:.940....|
00000AA0: 03 81 49 B2 30 A4 31 3A 8B 44 25 28 49 2C 30 29 |..I.0.1:.D%(I,0)|
00000AB0: B2 34 A7 48 B2 37 3A 4B B2 49 3A 49 B2 31 3A 89 |.4.H.7:K.I:I.1:.|
00000AC0: 39 33 30 00 DF 12 8E 03 8B 44 25 28 49 2C 30 29 |930......D%(I,0)|
00000AD0: B2 33 A7 48 B2 33 3A 49 B2 31 3A 89 39 33 30 00 |.3.H.3:I.1:.930.|
00000AE0: E7 12 98 03 48 B2 31 00 EE 12 A2 03 82 49 00 F8 |....H.1......I..|
00000AF0: 12 AC 03 8D 31 34 35 30 00 04 13 B6 03 8B 4F 48 |....1450......OH|
00000B00: B2 48 A7 8E 00 1B 13 C0 03 52 56 24 B2 22 12 22 |.H.......RV$."."|
00000B10: 3A 52 4B B2 48 3A 8D 31 33 34 30 00 2B 13 CA 03 |:RK.H:.1340.+...|
00000B20: 52 4B B2 4F 48 3A 8D 31 33 34 30 00 31 13 D4 03 |RK.OH:.1340.1...|
00000B30: 8E 00 47 13 DE 03 81 49 B2 31 A4 31 33 3A 48 25 |..G....I.1.13:H%|
00000B40: 28 49 29 B2 30 3A 82 00 6D 13 E8 03 81 49 B2 30 |(I).0:..m....I.0|
00000B50: A4 34 3A 44 53 28 49 29 B2 30 3A 82 49 3A 44 24 |.4:DS(I).0:.I:D$|
00000B60: B2 22 22 3A 5A 43 B2 31 3A 5A 54 B2 30 00 8F 13 |."":ZC.1:ZT.0...|
00000B70: F2 03 99 4D 44 24 22 45 4E 54 45 52 20 44 49 53 |...MD$"ENTER DIS|
00000B80: 43 41 52 44 53 2D 2D 22 44 24 22 20 9D 22 3B 00 |CARDS--"D$" .";.|
00000B90: AA 13 FC 03 A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 |.....Z$:.Z$.."".|
00000BA0: 99 22 20 22 3A 89 31 30 35 30 00 D9 13 06 04 8B |." ":.1050......|
00000BB0: 54 49 B1 5A 54 A7 99 CA 28 22 A6 20 22 2C 5A 43 |TI.ZT...(". ",ZC|
00000BC0: 2C 31 29 3B 22 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 |,1);".";:ZC.3.ZC|
00000BD0: 3A 5A 54 B2 54 49 AA 31 35 00 E3 13 10 04 89 31 |:ZT.TI.15......1|
00000BE0: 30 32 30 00 F6 13 1A 04 8B C6 28 5A 24 29 B2 31 |020.......(Z$).1|
00000BF0: 33 A7 31 31 35 30 00 11 14 24 04 8B C6 28 5A 24 |3.1150...$...(Z$|
00000C00: 29 B2 32 30 AF C3 28 44 24 29 B1 30 A7 31 31 31 |).20..(D$).0.111|
00000C10: 30 00 31 14 2E 04 8B 5A 24 B3 22 31 22 B0 5A 24 |0.1....Z$."1".Z$|
00000C20: B1 22 35 22 B0 C3 28 44 24 29 B1 32 A7 31 30 31 |."5"..(D$).2.101|
00000C30: 30 00 4B 14 38 04 5A B2 C5 28 5A 24 29 AB 31 3A |0.K.8.Z..(Z$).1:|
00000C40: 8B 44 53 28 5A 29 A7 31 30 31 30 00 60 14 42 04 |.DS(Z).1010.`.B.|
00000C50: 44 24 B2 44 24 AA 5A 24 3A 44 53 28 5A 29 B2 31 |D$.D$.Z$:DS(Z).1|
00000C60: 00 83 14 4C 04 99 4D 44 24 3B 22 11 11 22 3B A3 |...L..MD$;"..";.|
00000C70: 5A AC 38 29 22 44 49 53 43 41 52 44 22 3A 89 31 |Z.8)"DISCARD":.1|
00000C80: 30 31 30 00 A9 14 56 04 5A 24 B2 C9 28 44 24 2C |010...V.Z$..(D$,|
00000C90: 31 29 3A 5A B2 C5 28 5A 24 29 AB 31 3A 44 53 28 |1):Z..(Z$).1:DS(|
00000CA0: 5A 29 B2 30 3A 99 22 20 22 00 C6 14 60 04 99 4D |Z).0:." "...`..M|
00000CB0: 44 24 3B 22 11 11 22 3B A3 5A AC 38 29 22 20 20 |D$;"..";.Z.8)" |
00000CC0: 20 20 20 20 20 22 00 EA 14 6A 04 8B C3 28 44 24 | "...j...(D$|
00000CD0: 29 B1 31 A7 44 24 B2 C8 28 44 24 2C C3 28 44 24 |).1.D$..(D$,.(D$|
00000CE0: 29 AB 31 29 3A 89 31 30 31 30 00 F4 14 74 04 89 |).1):.1010...t..|
00000CF0: 31 30 30 30 00 0C 15 7E 04 8D 31 34 35 30 3A 8B |1000...~..1450:.|
00000D00: C3 28 44 24 29 B2 30 A7 31 32 33 30 00 1C 15 88 |.(D$).0.1230....|
00000D10: 04 99 4D 44 24 3B 22 11 11 11 22 3B 00 35 15 92 |..MD$;"...";.5..|
00000D20: 04 81 4E B2 30 A4 34 3A 8B 44 53 28 4E 29 B2 30 |..N.0.4:.DS(N).0|
00000D30: A7 31 32 30 30 00 53 15 9C 04 42 25 28 4E 2C 31 |.1200.S...B%(N,1|
00000D40: 29 B2 41 25 28 43 29 3A 43 B2 43 AA 31 3A 8D 31 |).A%(C):C.C.1:.1|
00000D50: 35 35 30 00 6B 15 A6 04 42 25 28 4E 2C 32 29 B2 |550.k...B%(N,2).|
00000D60: 4B 3A 42 25 28 4E 2C 33 29 B2 49 00 72 15 B0 04 |K:B%(N,3).I.r...|
00000D70: 82 4E 00 9A 15 BA 04 81 49 B2 30 A4 34 3A 48 25 |.N......I.0.4:H%|
00000D80: 28 42 25 28 49 2C 33 29 29 B2 48 25 28 42 25 28 |(B%(I,3)).H%(B%(|
00000D90: 49 2C 33 29 29 AA 31 3A 82 49 00 A8 15 C4 04 4F |I,3)).1:.I.....O|
00000DA0: 48 B2 48 3A 8D 36 30 30 00 C3 15 CE 04 42 41 B2 |H.H:.600.....BA.|
00000DB0: 42 41 AA 42 45 AC 28 4F 25 28 48 29 29 3A 8D 31 |BA.BE.(O%(H)):.1|
00000DC0: 34 32 30 00 C9 15 D8 04 8E 00 D8 15 E2 04 99 22 |420............"|
00000DD0: 93 22 3A 8D 31 34 32 30 00 F4 15 EC 04 54 24 B2 |.":.1420.....T$.|
00000DE0: 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
00000DF0: C3 C3 C3 C3 00 1F 16 F6 04 99 22 11 48 41 4E 44 |..........".HAND|
00000E00: 22 A3 32 31 29 22 4F 44 44 53 22 A3 33 32 29 22 |".21)"ODDS".32)"|
00000E10: 50 41 59 4F 46 46 22 3A 99 54 24 54 24 22 C3 00 |PAYOFF":.T$T$"..|
00000E20: 38 16 00 05 81 52 4B B2 38 A4 31 A9 AB 31 3A 8D |8....RK.8.1..1:.|
00000E30: 31 33 34 30 3A 82 52 4B 00 47 16 0A 05 99 54 24 |1340:.RK.G....T$|
00000E40: 54 24 22 C3 22 3A 8E 00 51 16 14 05 99 4D 44 24 |T$".":..Q....MD$|
00000E50: 3B 00 66 16 1E 05 81 49 B2 31 34 A4 32 34 3A 99 |;.f....I.14.24:.|
00000E60: 42 4C 24 3A 82 49 00 77 16 28 05 99 42 4C 24 3B |BL$:.I.w.(..BL$;|
00000E70: 4D 44 24 3B 22 91 22 00 7D 16 32 05 8E 00 91 16 |MD$;".".}.2.....|
00000E80: 3C 05 8B 52 4B B3 31 B0 52 4B B1 38 A7 31 34 31 |<..RK.1.RK.8.141|
00000E90: 30 00 A7 16 46 05 99 C8 28 42 24 2C 31 33 AB 52 |0...F...(B$,13.R|
00000EA0: 4B 29 3B 52 56 24 3B 00 D5 16 50 05 5A 24 B2 4F |K);RV$;...P.Z$.O|
00000EB0: 24 28 52 4B 29 3A 5A 24 B2 5A 24 AA C9 28 42 4C |$(RK):Z$.Z$..(BL|
00000EC0: 24 AA C4 28 4F 25 28 52 4B 29 29 2C 32 30 AB C3 |$..(O%(RK)),20..|
00000ED0: 28 5A 24 29 29 00 E8 16 5A 05 99 20 5A 24 3B 22 |(Z$))...Z.. Z$;"|
00000EE0: 20 46 4F 52 20 31 22 3B 00 05 17 64 05 5A 24 B2 | FOR 1";...d.Z$.|
00000EF0: 22 24 22 AA CA 28 C4 28 42 45 AC 4F 25 28 52 4B |"$"..(.(BE.O%(RK|
00000F00: 29 29 2C 32 29 00 18 17 6E 05 8B 5A 24 B2 22 24 |)),2)...n..Z$."$|
00000F10: 30 22 A7 5A 24 B2 22 22 00 2A 17 78 05 99 C9 28 |0".Z$."".*.x...(|
00000F20: 42 4C 24 AA 5A 24 2C 31 32 29 00 37 17 82 05 52 |BL$.Z$,12).7...R|
00000F30: 56 24 B2 22 22 3A 8E 00 59 17 8C 05 99 22 13 43 |V$."":..Y....".C|
00000F40: 41 53 48 3A 20 24 22 3B CA 28 C4 28 42 41 29 AA |ASH: $";.(.(BA).|
00000F50: 42 4C 24 2C 32 2C 31 33 29 00 7F 17 96 05 99 A3 |BL$,2,13).......|
00000F60: 32 30 29 3B 22 91 42 45 54 3A 20 24 22 3B CA 28 |20);".BET: $";.(|
00000F70: C4 28 42 45 29 AA 42 4C 24 2C 32 2C 31 33 29 00 |.(BE).BL$,2,13).|
00000F80: 85 17 A0 05 8E 00 8F 17 AA 05 99 4D 44 24 3B 00 |...........MD$;.|
00000F90: 9D 17 B4 05 99 42 4C 24 3A 99 42 4C 24 00 AE 17 |.....BL$:.BL$...|
00000FA0: BE 05 99 42 4C 24 3B 4D 44 24 3B 22 91 22 00 B4 |...BL$;MD$;"."..|
00000FB0: 17 C8 05 8E 00 C4 17 D2 05 8B 4F 42 B2 42 45 A7 |..........OB.BE.|
00000FC0: 31 35 34 30 00 D3 17 DC 05 81 52 4B B2 38 A4 31 |1540......RK.8.1|
00000FD0: A9 AB 31 00 E5 17 E6 05 99 C8 28 42 24 2C 31 33 |..1.......(B$,13|
00000FE0: AB 52 4B 29 3B 00 F6 17 F0 05 99 A3 32 36 29 3B |.RK);.......26);|
00000FF0: 3A 8D 31 33 38 30 00 FE 17 FA 05 82 52 4B 00 0A |:.1380......RK..|
00001000: 18 04 06 4F 42 B2 42 45 3A 8E 00 48 18 0E 06 4B |...OB.BE:..H...K|
00001010: B2 B5 28 42 25 28 4E 2C 31 29 AD 31 33 29 3A 49 |..(B%(N,1).13):I|
00001020: B2 42 25 28 4E 2C 31 29 AB 31 33 AC 4B AA 31 3A |.B%(N,1).13.K.1:|
00001030: 53 24 B2 CA 28 22 D8 DA D3 C1 22 2C 4B AA 31 2C |S$..("....",K.1,|
00001040: 31 29 3A 4C B2 38 AC 4E 00 6E 18 18 06 99 4D 44 |1):L.8.N.n....MD|
00001050: 24 3B 22 11 11 11 22 3B A3 4C 29 3B 22 12 22 3B |$;"...";.L);".";|
00001060: C8 28 41 24 28 49 29 AA 42 4C 24 2C 37 29 00 A1 |.(A$(I).BL$,7)..|
00001070: 18 22 06 8B 49 B3 B2 31 30 A7 81 4A B2 31 A4 37 |."..I..10..J.1.7|
00001080: 3A 99 A3 4C 29 3B 22 12 22 3B 53 24 28 43 25 28 |:..L);".";S$(C%(|
00001090: 49 2C 4A 29 2C 4B 29 3A 82 20 4A 3A 89 31 36 33 |I,J),K):. J:.163|
000010A0: 30 00 B7 18 2C 06 81 4A B2 31 A4 37 3A 99 20 A3 |0...,..J.1.7:. .|
000010B0: 4C 29 3B 22 12 22 3B 00 CB 18 36 06 8B 20 4A B2 |L);".";...6.. J.|
000010C0: 31 A7 20 99 22 20 22 3B 53 24 3B 00 DD 18 40 06 |1. ." ";S$;...@.|
000010D0: 99 20 46 24 28 49 AB 31 30 2C 4A 29 3B 00 F3 18 |. F$(I.10,J);...|
000010E0: 4A 06 8B 4A B2 37 A7 99 22 12 22 3B 53 24 3B 22 |J..J.7..".";S$;"|
000010F0: 20 22 3B 00 FD 18 54 06 99 3A 82 20 4A 00 1E 19 | ";...T..:. J...|
00001100: 5E 06 99 20 A3 4C 29 3B 22 12 22 3B C9 28 42 4C |^.. .L);".";.(BL|
00001110: 24 AA 41 24 28 49 29 2C 37 29 3B 22 13 22 00 24 |$.A$(I),7);".".$|
00001120: 19 68 06 8E 00 40 19 A4 06 8D 31 33 30 30 3A 99 |.h...@....1300:.|
00001130: 22 12 59 4F 55 20 41 52 45 20 42 52 4F 4B 45 21 |".YOU ARE BROKE!|
00001140: 00 64 19 AE 06 99 22 11 57 41 4E 54 20 54 4F 20 |.d....".WANT TO |
00001150: 54 52 59 20 41 47 41 49 4E 3F 20 22 3B 3A 8D 36 |TRY AGAIN? ";:.6|
00001160: 30 30 30 30 00 7B 19 B8 06 8B C8 28 49 4E 24 2C |0000.{.....(IN$,|
00001170: 31 29 B3 B1 22 4E 22 A7 33 30 30 00 81 19 C2 06 |1).."N".300.....|
00001180: 80 00 A2 19 60 EA 49 4E 24 B2 22 20 22 3A 5A 54 |....`.IN$." ":ZT|
00001190: B2 54 49 3A 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 |.TI:ZC.2:ZD$..(2|
000011A0: 30 29 00 B8 19 6A EA A1 5A 24 3A 8B 5A 24 B3 B1 |0)...j..Z$:.Z$..|
000011B0: 22 22 A7 36 30 30 37 30 00 E8 19 74 EA 8B 5A 54 |"".60070...t..ZT|
000011C0: B3 B2 54 49 A7 99 CA 28 22 20 A6 22 2C 5A 43 2C |..TI...(" .",ZC,|
000011D0: 31 29 3B 22 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 3A |1);".";:ZC.3.ZC:|
000011E0: 5A 54 B2 54 49 AA 31 35 00 F3 19 7E EA 89 36 30 |ZT.TI.15...~..60|
000011F0: 30 31 30 00 23 1A A6 EA 5A B2 C6 28 5A 24 29 3A |010.#...Z..(Z$):|
00001200: 5A 4C B2 C3 28 49 4E 24 29 3A 8B 28 5A AF 31 32 |ZL..(IN$):.(Z.12|
00001210: 37 29 B3 33 32 A7 99 22 20 9D 22 3B 3A 89 36 30 |7).32.." .";:.60|
00001220: 31 31 30 00 53 1A B0 EA 8B 46 4C AF 28 5A AF 31 |110.S....FL.(Z.1|
00001230: 32 37 29 B1 36 34 AF 28 5A AF 31 32 37 29 B3 39 |27).64.(Z.127).9|
00001240: 31 A7 5A 24 B2 C7 28 28 5A AA 31 32 38 29 AF 32 |1.Z$..((Z.128).2|
00001250: 35 35 29 00 65 1A BA EA 8B 5A 4C B1 32 35 34 A7 |55).e....ZL.254.|
00001260: 36 30 30 31 30 00 80 1A C4 EA 49 4E 24 B2 49 4E |60010.....IN$.IN|
00001270: 24 AA 5A 24 3A 99 5A 24 3B 5A 44 24 3B 5A 24 3B |$.Z$:.Z$;ZD$;Z$;|
00001280: 00 9F 1A CE EA 8B 5A B2 31 33 A7 49 4E 24 B2 CA |......Z.13.IN$..|
00001290: 28 49 4E 24 2C 32 29 3A 99 43 52 24 3B 3A 8E 00 |(IN$,2):.CR$;:..|
000012A0: CB 1A D8 EA 8B 5A B2 32 30 AF 5A 4C B1 31 A7 49 |.....Z.20.ZL.1.I|
000012B0: 4E 24 B2 C8 28 49 4E 24 2C 5A 4C AB 31 29 3A 99 |N$..(IN$,ZL.1):.|
000012C0: 22 9D 22 3B 3A 89 36 30 30 31 30 00 FE 1A E2 EA |".";:.60010.....|
000012D0: 8B 5A B2 31 34 31 A7 5A 24 B2 C7 28 AB 32 30 AC |.Z.141.Z$..(.20.|
000012E0: 28 5A 4C B1 31 29 29 3A 81 5A B2 32 A4 5A 4C 3A |(ZL.1)):.Z.2.ZL:|
000012F0: 99 5A 24 3B 3A 82 5A 3A 89 36 30 30 30 30 00 09 |.Z$;:.Z:.60000..|
00001300: 1B EC EA 89 36 30 30 31 30 00 19 1B 28 EB 8B 50 |....60010...(..P|
00001310: 4E B2 30 A7 36 30 32 35 30 00 24 1B 2D EB 8D 36 |N.0.60250.$.-..6|
00001320: 30 35 30 30 00 3F 1B 32 EB 99 22 50 52 45 53 53 |0500.?.2.."PRESS|
00001330: 20 12 52 45 54 55 52 4E 92 20 54 4F 20 22 3B 00 | .RETURN. TO ";.|
00001340: 5C 1B 3C EB 8B 50 4E B2 4C 50 A7 99 22 42 45 47 |\.<..PN.LP.."BEG|
00001350: 49 4E 3A 22 3B 3A 89 36 30 32 34 30 00 6E 1B 46 |IN:";:.60240.n.F|
00001360: EB 99 22 43 4F 4E 54 49 4E 55 45 3A 22 3B 00 83 |.."CONTINUE:";..|
00001370: 1B 50 EB A1 54 24 3A 8B 54 24 B2 22 22 A7 36 30 |.P..T$:.T$."".60|
00001380: 32 34 30 00 94 1B 5A EB 8B 50 4E B2 4C 50 A7 36 |240...Z..PN.LP.6|
00001390: 30 33 30 30 00 D2 1B 64 EB 50 4E B2 50 4E AA 31 |0300...d.PN.PN.1|
000013A0: 3A 99 22 93 22 3B 50 47 24 3B 22 20 2D 20 43 55 |:.".";PG$;" - CU|
000013B0: 52 53 4F 52 20 23 22 3B 4E 4D 24 3B 22 20 20 28 |RSOR #";NM$;" (|
000013C0: 43 29 20 31 39 38 30 20 20 20 50 41 47 45 22 3B |C) 1980 PAGE";|
000013D0: 50 4E 00 DD 1B 69 EB 8D 36 30 35 30 30 00 E3 1B |PN...i..60500...|
000013E0: 6E EB 8E 00 FD 1B 8C EB 99 22 93 22 3A 9C 3A 43 |n........".":.:C|
000013F0: 52 24 B2 C7 28 31 33 29 3A 89 31 30 30 00 12 1C |R$..(13):.100...|
00001400: FA EB 8B 20 C2 28 35 30 30 30 30 29 B2 30 20 A7 |... .(50000).0 .|
00001410: 20 8E 00 18 1C 0E EC 8E 00 32 1C 54 EC 81 49 B2 | ........2.T..I.|
00001420: 31 A4 31 30 3A 99 22 C0 C0 C0 C0 22 3B 3A 82 49 |1.10:."....";:.I|
00001430: 3A 8E 00 40 1C 30 F2 97 35 39 34 36 38 2C 31 32 |:..@.0..59468,12|
00001440: 00 6D 1C 35 F2 99 22 93 11 11 22 A3 38 29 3B 22 |.m.5.."...".8);"|
00001450: 43 55 52 53 4F 52 20 23 22 3B 4E 4D 24 3B A3 32 |CURSOR #";NM$;.2|
00001460: 36 AB C3 28 50 47 24 29 29 3B 50 47 24 00 98 1C |6..(PG$));PG$...|
00001470: 3A F2 99 22 11 43 4F 50 59 52 49 47 48 54 20 28 |:..".COPYRIGHT (|
00001480: 43 29 20 31 39 38 30 20 20 20 42 59 20 44 41 56 |C) 1980 BY DAV|
00001490: 49 44 20 48 4F 4F 4B 11 00 A3 1C 44 F2 8D 36 30 |ID HOOK....D..60|
000014A0: 35 30 30 00 B9 1C 4E F2 99 22 11 52 49 43 48 45 |500...N..".RICHE|
000014B0: 53 20 54 4F 20 52 41 47 53 00 DA 1C 62 F2 99 22 |S TO RAGS...b.."|
000014C0: 11 11 11 50 52 45 53 53 20 12 52 45 54 55 52 4E |...PRESS .RETURN|
000014D0: 92 20 54 4F 20 42 45 47 49 4E 00 EF 1C 6C F2 A1 |. TO BEGIN...l..|
000014E0: 54 24 3A 8B 54 24 B2 22 22 A7 36 32 30 36 30 00 |T$:.T$."".62060.|
000014F0: FA 1C 76 F2 89 36 30 33 30 30 00 00 00 FF 19 |..v..60300..... |
..#....:PG$."POKER":NM$."22":.62000.E...
" COPYRIGHT(C)1980 DAVID HOOK.X..." 58 S
TEEL ST..|..." BARRIE,ONTARIO,CANADA,L4M
2E9....."....." CURSOR #22, SEP 1980...
.." THE CODE WORKS.S..." BOX 550, GOLETA
, CA. 93017.Y..."....." AS OF 08 OCT 80.
%.D.. DS(4),A%(51),B%(4,3),H%(13),D%(1,1
),O%(8),O$(8).J.N..A$(13),C%(10,7),S$(2,
3),F$(3,7).|.X.BL$."
".....B$."...........
..............".....MD$.H(B$,14):C.52:I.
.(.TI)......I.1.13:.A$(I):H%(I).0:......
.A,2,3,4,5,6,7,8,9,10,J,Q,K... ..I.0.8:.
O%(I),O$(I):..W....0,NO PAIR,1,ONE PAIR,
3,TWO PAIR,5,THREE OF A KIND,7,STRAIGHT.
.....10,FLUSH,20,FULL HOUSE,30,FOUR OF A
KIND,50,STRAIGHT FLUSH......I.1.10:.J.1
.7:.C%(I,J):.J,I......0,0,0,1,0,0,0,1,0,
0,0,0,0,1,1,0,0,1,0,0,1,2,0,0,0,0,0,2,2,
0,0,1,0,0,2.N....2,0,0,2,0,0,2,2,0,1,0,2
,0,2,2,0,2,0,2,0,2,2,0,2,1,2,0,2,2,1,2,0
,2,1,2.N.H..I.1.3:.J.1.7:.F$(I,J):.J,I..
.M..".. .. "," ..... . "," ........ "
," ..V.... "," ........ "...R.." .P ..
. "," .. .",".P "," ...B. "," .
.. "," .VVV. ".:.W.." .. . "," ...
"," L..",".. .. "," . .B "," .. ..
".H...." ..... "," .. .. "," .. . ",
" .. .".~....I.0.51:A%(I).I:.......I.0.
4:.J.1.3:B%(I,J).0:.J,I......I.0.1:.J.0.
1:D%(I,J).0:.J,I.....S$." X Z S
A ":T$." X X Z Z S S A A ".1..
..I.0.3:S$(0,I)." ":S$(1,I).J(S$,I
.4.1,7):..T."..I.0.3:S$(2,I).J(T$,I.6.1,
7):....,.BA.1000:BE.0:OH.0:HL.0:H.0:D.0:
J.0:K.0:L.0:M.0:N.0:OB.0...1.ST%.0:FL%.0
:SF%.0:AF%.0...H..1250...W...K.|..BA.0.1
700......I.1.1000:.I.....BE.OB:.1450....
.."YOUR BET? ";:.60000.+....H(IN$,1)."Q"
.RK.H:.1340:.1300:..A....IN$."".IN$.D(BE
).S....E(IN$).0.390.D...BE..(E(IN$))....
..BE.1.."YOU CAN'T DO THAT!":. 385......
BE.BA.."YOU DON'T HAVE THAT MUCH.":. 385
......BE.10000.."HOUSE LIMIT IS $10000."
:.385.....RK.H:.1340:.1490...B.BA.BA.BE:
.1420:.1300.&.L..MD$"..";:.540.4.V.OH.0:
.600.=....990.L....1450:.380.D....MD$;".
.SHUFFLING."......I.0.51:J..((52.I)..(1)
):K.A%(J):A%(J).A%(51.I):A%(51.I).K.....
.I:.MD$;"..";:..J....C.44.C.0:.510...&..
I.1.13:H%(I).0:....0..N.0.4...:.B%(N,1).
A%(C):C.C.1:.1550./.D.B%(N,2).K:B%(N,3).
I:H%(I).H%(I).1.8.N..N:..T.X.ST%.0:FL%.0
:AF%.0:SF%.0...B..I.1.4:.B%(I,2)..B%(0,2
).I.4:FL%.0:.630...L.FL%.1...V..I.....J.
0:.H%(1).1.AF%.1.D....I.1.9:.H%(I).1.J.I
:I.9.K....I.S...K.4......I.J.1.J.K:.H%(I
).0.I.J.K:ST%.0:.700.....ST%.1......I.9.
F..AF%.1.ST%.0.H%(10).1.K.4.J.10:K.3:.68
0.Y.P..I.1.13:.H%(I).1.ST%.0:I.13.`.Z..I
.S....ST%.K.4.K.J.4......ST%.K.3.K.1....
..ST%.FL%.SF%.1......SF%.H.8:.940......S
T%.H.4:.940.M....FL%.H.5:.940... ..I.0.1
:.J.0.1:D%(I,J).0:.J,I...*.J.0:.I.1.13:.
H%(I).2.840.-.4.D%(J,0).H%(I):D%(J,1).I:
J.J.1.;.>..J.2.I.13.B.H..I.T.R..J.0.H.0:
.940.A.\..J.1.900...F..I.0.1:.D%(I,0).3.
H.6:K.I:I.1:.890...P.H.2...Z..I:.940.C..
..I.0.1:.D%(I,0).4.H.7:K.I:I.1:.930.....
.D%(I,0).3.H.3:I.1:.930.....H.1......I..
....1450......OH.H.......RV$.".":RK.H:.1
340.+.J.RK.OH:.1340.1.T...G....I.1.13:H%
(I).0:..M....I.0.4:DS(I).0:.I:D$."":ZC.1
:ZT.0......MD$"ENTER DISCARDS--"D$" .";.
.....Z$:.Z$.."".." ":.1050.Y....TI.ZT..J
(". ",ZC,1);".";:ZC.3.ZC:ZT.TI.15......1
020......F(Z$).13.1150...$..F(Z$).20.C(D
$).0.1110.1....Z$."1".Z$."5".C(D$).2.101
0.K.8.Z.E(Z$).1:.DS(Z).1010.`.B.D$.D$.Z$
:DS(Z).1...L..MD$;"..";.Z.8)"DISCARD":.1
010...V.Z$.I(D$,1):Z.E(Z$).1:DS(Z).0:."
".F.`..MD$;"..";.Z.8)" "...J..C(D$
).1.D$.H(D$,C(D$).1):.1010...T..1000...~
..1450:.C(D$).0.1230......MD$;"...";.5..
..N.0.4:.DS(N).0.1200.S...B%(N,1).A%(C):
C.C.1:.1550.K...B%(N,2).K:B%(N,3).I.R...
.N......I.0.4:H%(B%(I,3)).H%(B%(I,3)).1:
.I...D.OH.H:.600.C.N.BA.BA.BE.(O%(H)):.1
420.I.X...X....".":.1420.....T$."CCCCCCC
CCCCCCCCCCCC......".HAND".21)"ODDS".32)"
PAYOFF":.T$T$"C.8....RK.8.1..1:.1340:.RK
.G....T$T$"C":..Q....MD$;.F....I.14.24:.
BL$:.I.W.(..BL$;MD$;".".}.2.....<..RK.1.
RK.8.1410...F..H(B$,13.RK);RV$;.U.P.Z$.O
$(RK):Z$.Z$.I(BL$.D(O%(RK)),20.C(Z$))...
Z.. Z$;" FOR 1";...D.Z$."$".J(D(BE.O%(RK
)),2)...N..Z$."$0".Z$."".*.X..I(BL$.Z$,1
2).7...RV$."":..Y....".CASH: $";J(D(BA).
BL$,2,13)......20);".BET: $";J(D(BE).BL
$,2,13)... ........MD$;......BL$:.BL$...
...BL$;MD$;"."...H...D.R..OB.BE.1540.S..
..RK.8.1..1......H(B$,13.RK);.......26);
:.1380......RK.....OB.BE:..H...K..(B%(N,
1).13):I.B%(N,1).13.K.1:S$.J("XZSA",K.1,
1):L.8.N.N....MD$;"...";.L);".";H(A$(I).
BL$,7)..."..I..10..J.1.7:..L);".";S$(C%(
I,J),K):. J:.1630...,..J.1.7:. .L);".";.
K.6.. J.1. ." ";S$;...@.. F$(I.10,J);...
J..J.7..".";S$;" ";...T..:. J...^.. .L);
".";I(BL$.A$(I),7);".".$.H...@....1300:.
".YOU ARE BROKE!.D....".WANT TO TRY AGAI
N? ";:.60000.{....H(IN$,1).."N".300...B.
....`.IN$." ":ZT.TI:ZC.2:ZD$.G(20)...J..
Z$:.Z$.."".60070...T..ZT..TI..J(" .",ZC,
1);".";:ZC.3.ZC:ZT.TI.15...~..60010.#...
Z.F(Z$):ZL.C(IN$):.(Z.127).32.." .";:.60
110.S....FL.(Z.127).64.(Z.127).91.Z$.G((
Z.128).255).E....ZL.254.60010...D.IN$.IN
$.Z$:.Z$;ZD$;Z$;...N..Z.13.IN$.J(IN$,2):
.CR$;:..K.X..Z.20.ZL.1.IN$.H(IN$,ZL.1):.
".";:.60010......Z.141.Z$.G(.20.(ZL.1)):
.Z.2.ZL:.Z$;:.Z:.60000......60010...(..P
N.0.60250.$.-..60500.?.2.."PRESS .RETURN
. TO ";.\.<..PN.LP.."BEGIN:";:.60240.N.F
.."CONTINUE:";...P..T$:.T$."".60240...Z.
.PN.LP.60300.R.D.PN.PN.1:.".";PG$;" - CU
RSOR #";NM$;" (C) 1980 PAGE";PN...I..
60500...N........".":.:CR$.G(13):.100...
... B(50000).0 . ........2.T..I.1.10:.".
...";:.I:..@.0..59468,12.M.5.."...".8);"
CURSOR #";NM$;.26.C(PG$));PG$...:..".COP
YRIGHT (C) 1980 BY DAVID HOOK....D..60
500...N..".RICHES TO RAGS.Z.B.."...PRESS
.RETURN. TO BEGIN...L..T$:.T$."".62060.
..V..60300.....
> CLICK IMAGE PREVIEW FOR FULL MODAL