SSIMUL
FILE INFORMATION
FILENAME(S): SSIMUL
FILE TYPE(S): SEQ
FILE SIZE: 7.8K
FIRST SEEN: 2025-12-02 02:15:42
APPEARS ON: 1 disk(s)
FILE HASH
4086f55b3d59f0e0561a0137437c1fab27d1023cdc77ec7277c5e23dfe5412fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BAMIGA SECTOR 1 | SSIMUL | SEQ | The BAM Archive | 25 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 70 6F 6B 65 72 20 20 20 20 20 30 1F 27 80 0B |.poker 0.'..|
00000010: 1F 00 01 56 00 EA 10 02 55 53 45 20 4C 49 53 54 |...V....USE LIST|
00000020: 20 32 11 64 64 01 FE 00 3A 48 5C 0F 0F 0F E6 07 | 2.dd...:H\.....|
00000030: 6F C6 18 67 ED 69 7B 3D 20 FD ED 61 7B 3D 20 FD |o..g.i{= ..a{= .|
00000040: 1D 15 20 F0 00 11 64 80 01 FE 00 3A 48 5C 0F 0F |.. ...d....:H\..|
00000050: 0F E6 07 6F C6 18 67 ED 69 7B 3D 20 FD ED 61 7B |...o..g.i{= ..a{|
00000060: 3D 20 FD 1C 15 20 F0 C9 6F 6F 0D 00 02 2A 00 E7 |= ... ..oo...*..|
00000070: 35 0E 00 00 05 00 00 3A DA 35 0E 00 00 05 00 00 |5......:.5......|
00000080: 3A F1 61 3D 32 0E 00 00 02 00 00 3A F1 62 3D 37 |:.a=2......:.b=7|
00000090: 0E 00 00 07 00 00 3A FB 0D 00 03 14 00 EB 69 3D |......:.......i=|
000000A0: 30 0E 00 00 00 00 00 CC 32 31 0E 00 00 15 00 00 |0.......21......|
000000B0: 0D 00 04 2D 00 F5 AC 69 2C 38 0E 00 00 08 00 00 |...-...i,8......|
000000C0: 3B D9 61 3B DA 62 3B DB 31 0E 00 00 01 00 00 3B |;.a;.b;.1......;|
000000D0: 22 20 53 54 4F 50 20 44 45 20 42 41 4E 44 21 20 |" STOP DE BAND! |
000000E0: 22 0D 00 05 12 00 F1 63 3D 61 3A F1 61 3D 62 3A |"......c=a:.a=b:|
000000F0: F1 62 3D 63 3A F3 69 0D 00 06 47 00 F5 23 31 0E |.b=c:.i...G..#1.|
00000100: 00 00 01 00 00 3B AC 31 0E 00 00 01 00 00 2C 30 |.....;.1......,0|
00000110: 0E 00 00 00 00 00 3B D9 39 0E 00 00 09 00 00 3B |......;.9......;|
00000120: 22 20 20 20 44 52 55 4B 20 45 45 4E 20 54 4F 45 |" DRUK EEN TOE|
00000130: 54 53 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 20 |TS VOOR VERVOLG |
00000140: 20 22 0D 00 07 0E 00 F9 C0 32 33 37 37 32 0E 00 | ".......23772..|
00000150: 00 DC 5C 00 0D 00 08 0F 00 FA A6 3D 22 22 CB EC |..\........=""..|
00000160: 37 0E 00 00 07 00 00 0D 00 09 AA 00 FB 3A F5 27 |7............:.'|
00000170: 27 27 22 20 20 20 50 4F 4B 45 52 20 64 6F 6F 72 |''" POKER door|
00000180: 20 4B 65 76 69 6E 20 4D 63 43 61 6C 6C 69 6F 6E | Kevin McCallion|
00000190: 20 7F 22 27 27 27 27 22 20 20 20 20 45 65 72 73 | ."''''" Eers|
000001A0: 74 65 20 72 6F 6E 64 65 20 69 73 20 50 4F 4B 45 |te ronde is POKE|
000001B0: 52 20 20 20 20 20 20 20 20 20 20 20 28 41 63 65 |R (Ace|
000001C0: 73 20 6F 72 20 62 65 74 74 65 72 20 74 6F 20 77 |s or better to w|
000001D0: 69 6E 29 22 27 27 27 22 20 20 54 77 65 65 64 65 |in)"'''" Tweede|
000001E0: 20 72 6F 6E 64 65 20 69 73 20 48 4F 47 45 52 2F | ronde is HOGER/|
000001F0: 4C 41 47 45 52 22 27 27 27 27 22 20 20 20 20 20 |LAGER"''''" |
00000200: 53 74 61 72 74 62 65 64 72 61 67 20 69 73 20 66 |Startbedrag is f|
00000210: 20 31 30 30 22 0D 00 0A 0C 00 ED 39 30 30 30 0E | 100"......9000.|
00000220: 00 00 28 23 00 0D 00 0B 1B 00 CE 77 28 66 0E 00 |..(#.......w(f..|
00000230: 00 2F 00 00 29 3D BA 28 A5 2A 66 29 2B 31 0E 00 |./..)=.(.*f)+1..|
00000240: 00 01 00 00 0D 00 0C 81 00 E9 62 28 35 0E 00 00 |..........b(5...|
00000250: 05 00 00 29 3A E9 7A 28 35 0E 00 00 05 00 00 29 |...):.z(5......)|
00000260: 3A E9 70 28 35 0E 00 00 05 00 00 29 3A E9 63 28 |:.p(5......):.c(|
00000270: 35 0E 00 00 05 00 00 29 3A F1 63 72 65 64 69 74 |5......):.credit|
00000280: 3D 31 30 30 0E 00 00 64 00 00 3A F1 76 3D 31 0E |=100...d..:.v=1.|
00000290: 00 00 01 00 00 3A EB 66 3D 32 0E 00 00 02 00 00 |.....:.f=2......|
000002A0: CC 32 36 0E 00 00 1A 00 00 CD 36 0E 00 00 06 00 |.26.......6.....|
000002B0: 00 3A F1 63 28 76 29 3D 66 3A F1 76 3D 76 2B 31 |.:.c(v)=f:.v=v+1|
000002C0: 0E 00 00 01 00 00 3A F3 66 0D 00 12 0B 00 EC 31 |......:.f......1|
000002D0: 36 32 0E 00 00 A2 00 00 0D 00 13 26 00 DC 31 0E |62.........&..1.|
000002E0: 00 00 01 00 00 3A DA 35 0E 00 00 05 00 00 3A E7 |.....:.5......:.|
000002F0: 35 0E 00 00 05 00 00 3A FB 3A DA 37 0E 00 00 07 |5......:.:.7....|
00000300: 00 00 0D 00 14 2C 00 E9 61 28 35 32 0E 00 00 34 |.....,..a(52...4|
00000310: 00 00 29 3A EB 66 3D 31 0E 00 00 01 00 00 CC 35 |..):.f=1.......5|
00000320: 32 0E 00 00 34 00 00 3A F1 61 28 66 29 3D 66 3A |2...4..:.a(f)=f:|
00000330: F3 66 0D 00 1E 0C 00 F1 66 3D 35 31 0E 00 00 33 |.f......f=51...3|
00000340: 00 00 0D 00 32 13 00 F1 63 72 65 64 69 74 3D 63 |....2...credit=c|
00000350: 72 65 64 69 74 2D 62 65 74 0D 00 3C 3A 00 F5 D9 |redit-bet..<:...|
00000360: 31 0E 00 00 01 00 00 3B 22 43 52 45 44 49 54 3A |1......;"CREDIT:|
00000370: 22 3B 63 72 65 64 69 74 3B AC 30 0E 00 00 00 00 |";credit;.0.....|
00000380: 00 2C 31 35 0E 00 00 0F 00 00 3B 22 49 4E 5A 45 |.,15......;"INZE|
00000390: 54 3A 22 3B 62 65 74 0D 00 46 2E 00 EB 78 3D 31 |T:";bet..F...x=1|
000003A0: 0E 00 00 01 00 00 CC 35 0E 00 00 05 00 00 3A ED |.......5......:.|
000003B0: 39 39 30 30 0E 00 00 AC 26 00 3A ED 33 30 30 30 |9900....&.:.3000|
000003C0: 0E 00 00 B8 0B 00 3A F3 78 0D 00 50 0B 00 ED 33 |......:.x..P...3|
000003D0: 30 31 0E 00 00 2D 01 00 0D 00 5A 2A 00 EB 78 3D |01...-....Z*..x=|
000003E0: 31 0E 00 00 01 00 00 CC 35 0E 00 00 05 00 00 3A |1.......5......:|
000003F0: FA 6D 24 28 78 29 3D 22 6E 22 CB ED 33 30 30 30 |.m$(x)="n"..3000|
00000400: 0E 00 00 B8 0B 00 0D 00 5F 03 00 F3 78 0D 00 64 |........_...x..d|
00000410: 17 00 ED 38 30 30 30 0E 00 00 40 1F 00 3A ED 34 |...8000...@..:.4|
00000420: 33 30 0E 00 00 AE 01 00 0D 00 78 1B 00 FA 63 72 |30........x...cr|
00000430: 65 64 69 74 3D 30 0E 00 00 00 00 00 CB EC 31 37 |edit=0........17|
00000440: 39 0E 00 00 B3 00 00 0D 00 A3 1B 00 DC 30 0E 00 |9............0..|
00000450: 00 00 00 00 3A DA 35 0E 00 00 05 00 00 3A E7 35 |....:.5......:.5|
00000460: 0E 00 00 05 00 00 0D 00 AA 54 00 EE 28 22 55 20 |.........T..("U |
00000470: 48 45 45 46 54 20 66 20 22 3B 43 52 45 44 49 54 |HEEFT f ";CREDIT|
00000480: 3B 27 22 48 4F 45 56 45 45 4C 20 49 4E 5A 45 54 |;'"HOEVEEL INZET|
00000490: 3F 20 66 20 22 29 3B CA 62 24 3A FA 62 24 3D 22 |? f ");.b$:.b$="|
000004A0: 22 CB D7 2E 31 0E 7D 4C CC CC CC 2C 30 0E 00 00 |"...1.}L...,0...|
000004B0: 00 00 00 3A EC 31 36 33 0E 00 00 A3 00 00 0D 00 |...:.163........|
000004C0: AB 0F 00 EB 78 3D 31 0E 00 00 01 00 00 CC B1 62 |....x=1........b|
000004D0: 24 0D 00 AD 32 00 FA 62 24 28 78 29 3C 22 30 22 |$...2..b$(x)<"0"|
000004E0: C5 62 24 28 78 29 3E 22 39 22 CB D7 2E 31 0E 7D |.b$(x)>"9"...1.}|
000004F0: 4C CC CC CC 2C 30 0E 00 00 00 00 00 3A EC 31 36 |L...,0......:.16|
00000500: 33 0E 00 00 A3 00 00 0D 00 AF 41 00 F3 78 3A F1 |3.........A..x:.|
00000510: 62 65 74 3D B0 62 24 3A FA 62 65 74 3D 30 0E 00 |bet=.b$:.bet=0..|
00000520: 00 00 00 00 C5 62 65 74 3E 63 72 65 64 69 74 CB |.....bet>credit.|
00000530: D7 2E 31 0E 7D 4C CC CC CC 2C 30 0E 00 00 00 00 |..1.}L...,0.....|
00000540: 00 3A EC 31 36 33 0E 00 00 A3 00 00 0D 00 B1 0C |.:.163..........|
00000550: 00 F9 3A EC 31 39 0E 00 00 13 00 00 0D 00 B3 0B |..:.19..........|
00000560: 00 DA 35 0E 00 00 05 00 00 3A FB 0D 00 B4 43 00 |..5......:....C.|
00000570: EB 66 3D 33 30 0E 00 00 1E 00 00 CC 2D 33 30 0E |.f=30.......-30.|
00000580: 00 00 1E 00 00 CD 2D 31 30 0E 00 00 0A 00 00 3A |......-10......:|
00000590: D7 2E 31 0E 7D 4C CC CC CC 2C 66 3A D7 2E 32 0E |..1.}L...,f:..2.|
000005A0: 7E 4C CC CC CC 2C 66 2B 35 0E 00 00 05 00 00 3A |~L...,f+5......:|
000005B0: F3 66 0D 00 D2 62 00 F5 DB 31 0E 00 00 01 00 00 |.f...b...1......|
000005C0: 3B DA 37 0E 00 00 07 00 00 3B AC 31 30 0E 00 00 |;.7......;.10...|
000005D0: 0A 00 00 2C 39 0E 00 00 09 00 00 3B 22 20 41 4C |...,9......;" AL|
000005E0: 57 45 45 52 20 42 4C 55 54 20 22 27 27 DD 31 0E |WEER BLUT "''.1.|
000005F0: 00 00 01 00 00 3B 22 51 20 3D 20 53 54 4F 50 20 |.....;"Q = STOP |
00000600: 2D 20 61 6C 6C 65 20 61 6E 64 65 72 65 3A 20 64 |- alle andere: d|
00000610: 6F 6F 72 67 61 61 6E 22 0D 00 DC 11 00 FA A6 C9 |oorgaan"........|
00000620: 22 22 CB EC 32 32 30 0E 00 00 DC 00 00 0D 00 E6 |""..220.........|
00000630: 54 00 F2 30 0E 00 00 00 00 00 3A FA A6 3D 22 71 |T..0......:..="q|
00000640: 22 C5 A6 3D 22 51 22 CB D9 39 0E 00 00 09 00 00 |"..="Q"..9......|
00000650: 3A DC 30 0E 00 00 00 00 00 3A FB 3A F5 AC 31 30 |:.0......:.:..10|
00000660: 0E 00 00 0A 00 00 2C 38 0E 00 00 08 00 00 3B 22 |......,8......;"|
00000670: 20 53 54 41 52 54 20 44 45 20 42 41 4E 44 21 20 | START DE BAND! |
00000680: 22 3A EF 22 22 0D 00 FA 0A 00 F7 31 32 0E 00 00 |":.""......12...|
00000690: 0C 00 00 0D 01 31 0D 00 E9 6D 24 28 35 0E 00 00 |.....1...m$(5...|
000006A0: 05 00 00 29 0D 01 36 6C 00 F5 D9 33 0E 00 00 03 |...)..6l...3....|
000006B0: 00 00 3B AC 33 0E 00 00 03 00 00 2C 31 0E 00 00 |..;.3......,1...|
000006C0: 01 00 00 3B 22 6E 75 6D 6D 65 72 20 31 2D 35 20 |...;"nummer 1-5 |
000006D0: 3D 20 6B 61 61 72 74 20 72 75 69 6C 65 6E 20 20 |= kaart ruilen |
000006E0: 20 20 22 3B AC 34 0E 00 00 04 00 00 2C 31 0E 00 | ";.4......,1..|
000006F0: 00 01 00 00 3B 22 6E 72 2E 20 36 20 3D 20 44 45 |....;"nr. 6 = DE|
00000700: 4C 45 4E 20 65 6E 20 51 20 3D 20 48 45 52 5A 49 |LEN en Q = HERZI|
00000710: 45 4E 2E 22 0D 01 37 18 00 FA A6 3D 22 71 22 C5 |EN."..7....="q".|
00000720: A6 3D 22 51 22 CB ED 33 37 30 0E 00 00 72 01 00 |.="Q"..370...r..|
00000730: 0D 01 4A 13 00 EB 78 3D 31 0E 00 00 01 00 00 CC |..J...x=1.......|
00000740: 35 0E 00 00 05 00 00 0D 01 59 12 00 FA A6 3D C1 |5........Y....=.|
00000750: 78 CB ED 37 33 30 30 0E 00 00 84 1C 00 0D 01 5D |x..7300........]|
00000760: 03 00 F3 78 0D 01 5E 1D 00 FA A6 3D 22 36 22 CB |...x..^....="6".|
00000770: D7 2E 30 33 0E 7B 75 C2 8F 5C 2C 32 30 0E 00 00 |..03.{u..\,20...|
00000780: 14 00 00 3A FE 0D 01 68 0B 00 EC 33 31 31 0E 00 |...:...h...311..|
00000790: 00 37 01 00 0D 01 72 4A 00 D7 2E 30 33 0E 7B 75 |.7....rJ...03.{u|
000007A0: C2 8F 5C 2C 32 30 0E 00 00 14 00 00 3A EB 78 3D |..\,20......:.x=|
000007B0: 31 0E 00 00 01 00 00 CC 35 0E 00 00 05 00 00 3A |1.......5......:|
000007C0: FA 6D 24 28 78 29 3D 22 6E 22 CB F1 7A 28 78 29 |.m$(x)="n"..z(x)|
000007D0: 3D 62 28 78 29 3A 3A ED 33 30 30 30 0E 00 00 B8 |=b(x)::.3000....|
000007E0: 0B 00 0D 01 7C 05 00 F3 78 3A FE 0D 01 AE 09 00 |....|...x:......|
000007F0: DB 31 0E 00 00 01 00 00 0D 01 B3 1D 00 EB 6F 3D |.1............o=|
00000800: 30 0E 00 00 00 00 00 CC 35 32 0E 00 00 34 00 00 |0.......52...4..|
00000810: CD 31 33 0E 00 00 0D 00 00 0D 01 B8 BC 00 FA 7A |.13............z|
00000820: 28 31 0E 00 00 01 00 00 29 3E 6F C6 7A 28 31 0E |(1......)>o.z(1.|
00000830: 00 00 01 00 00 29 3C 6F 2B 31 34 0E 00 00 0E 00 |.....)<o+14.....|
00000840: 00 C6 7A 28 32 0E 00 00 02 00 00 29 3E 6F C6 7A |..z(2......)>o.z|
00000850: 28 32 0E 00 00 02 00 00 29 3C 6F 2B 31 34 0E 00 |(2......)<o+14..|
00000860: 00 0E 00 00 C6 7A 28 33 0E 00 00 03 00 00 29 3E |.....z(3......)>|
00000870: 6F C6 7A 28 33 0E 00 00 03 00 00 29 3C 6F 2B 31 |o.z(3......)<o+1|
00000880: 34 0E 00 00 0E 00 00 C6 7A 28 34 0E 00 00 04 00 |4.......z(4.....|
00000890: 00 29 3E 6F C6 7A 28 34 0E 00 00 04 00 00 29 3C |.)>o.z(4......)<|
000008A0: 6F 2B 31 34 0E 00 00 0E 00 00 C6 7A 28 35 0E 00 |o+14.......z(5..|
000008B0: 00 05 00 00 29 3E 6F C6 7A 28 35 0E 00 00 05 00 |....)>o.z(5.....|
000008C0: 00 29 3C 6F 2B 31 34 0E 00 00 0E 00 00 CB EC 36 |.)<o+14........6|
000008D0: 30 30 30 0E 00 00 70 17 00 0D 01 C2 03 00 F3 6F |000...p........o|
000008E0: 0D 01 CC BE 01 FA 28 71 28 31 0E 00 00 01 00 00 |......(q(1......|
000008F0: 29 3D 31 0E 00 00 01 00 00 C6 71 28 32 0E 00 00 |)=1.......q(2...|
00000900: 02 00 00 29 3D 31 0E 00 00 01 00 00 C6 71 28 32 |...)=1.......q(2|
00000910: 0E 00 00 02 00 00 29 C9 71 28 33 0E 00 00 03 00 |......).q(3.....|
00000920: 00 29 C6 71 28 33 0E 00 00 03 00 00 29 C9 71 28 |.).q(3......).q(|
00000930: 34 0E 00 00 04 00 00 29 C6 71 28 34 0E 00 00 04 |4......).q(4....|
00000940: 00 00 29 C9 71 28 35 0E 00 00 05 00 00 29 29 C5 |..).q(5......)).|
00000950: 28 71 28 31 0E 00 00 01 00 00 29 C9 71 28 32 0E |(q(1......).q(2.|
00000960: 00 00 02 00 00 29 C6 71 28 32 0E 00 00 02 00 00 |.....).q(2......|
00000970: 29 3D 71 28 33 0E 00 00 03 00 00 29 C6 71 28 33 |)=q(3......).q(3|
00000980: 0E 00 00 03 00 00 29 3D 31 0E 00 00 01 00 00 C6 |......)=1.......|
00000990: 71 28 33 0E 00 00 03 00 00 29 C9 71 28 34 0E 00 |q(3......).q(4..|
000009A0: 00 04 00 00 29 C6 71 28 34 0E 00 00 04 00 00 29 |....).q(4......)|
000009B0: C9 71 28 35 0E 00 00 05 00 00 29 29 C5 28 71 28 |.q(5......)).(q(|
000009C0: 31 0E 00 00 01 00 00 29 C9 71 28 32 0E 00 00 02 |1......).q(2....|
000009D0: 00 00 29 C6 71 28 32 0E 00 00 02 00 00 29 C9 71 |..).q(2......).q|
000009E0: 28 33 0E 00 00 03 00 00 29 C6 71 28 33 0E 00 00 |(3......).q(3...|
000009F0: 03 00 00 29 3D 71 28 34 0E 00 00 04 00 00 29 C6 |...)=q(4......).|
00000A00: 71 28 34 0E 00 00 04 00 00 29 3D 31 0E 00 00 01 |q(4......)=1....|
00000A10: 00 00 C6 71 28 34 0E 00 00 04 00 00 29 C9 71 28 |...q(4......).q(|
00000A20: 35 0E 00 00 05 00 00 29 29 C5 28 71 28 31 0E 00 |5......)).(q(1..|
00000A30: 00 01 00 00 29 C9 71 28 32 0E 00 00 02 00 00 29 |....).q(2......)|
00000A40: C6 71 28 32 0E 00 00 02 00 00 29 C9 71 28 33 0E |.q(2......).q(3.|
00000A50: 00 00 03 00 00 29 C6 71 28 33 0E 00 00 03 00 00 |.....).q(3......|
00000A60: 29 C9 71 28 34 0E 00 00 04 00 00 29 C6 71 28 34 |).q(4......).q(4|
00000A70: 0E 00 00 04 00 00 29 3D 71 28 35 0E 00 00 05 00 |......)=q(5.....|
00000A80: 00 29 C6 71 28 35 0E 00 00 05 00 00 29 3D 31 0E |.).q(5......)=1.|
00000A90: 00 00 01 00 00 29 CB EC 36 32 30 30 0E 00 00 38 |.....)..6200...8|
00000AA0: 18 00 0D 01 F4 1B 01 FA 28 71 28 31 0E 00 00 01 |........(q(1....|
00000AB0: 00 00 29 3D 71 28 32 0E 00 00 02 00 00 29 C6 71 |..)=q(2......).q|
00000AC0: 28 33 0E 00 00 03 00 00 29 3D 71 28 34 0E 00 00 |(3......)=q(4...|
00000AD0: 04 00 00 29 C6 71 28 34 0E 00 00 04 00 00 29 C9 |...).q(4......).|
00000AE0: 71 28 35 0E 00 00 05 00 00 29 C6 71 28 32 0E 00 |q(5......).q(2..|
00000AF0: 00 02 00 00 29 C9 71 28 33 0E 00 00 03 00 00 29 |....).q(3......)|
00000B00: 29 C5 28 71 28 31 0E 00 00 01 00 00 29 C9 71 28 |).(q(1......).q(|
00000B10: 32 0E 00 00 02 00 00 29 C6 71 28 32 0E 00 00 02 |2......).q(2....|
00000B20: 00 00 29 3D 71 28 33 0E 00 00 03 00 00 29 C6 71 |..)=q(3......).q|
00000B30: 28 33 0E 00 00 03 00 00 29 C9 71 28 34 0E 00 00 |(3......).q(4...|
00000B40: 04 00 00 29 C6 71 28 34 0E 00 00 04 00 00 29 3D |...).q(4......)=|
00000B50: 71 28 35 0E 00 00 05 00 00 29 29 C5 28 71 28 31 |q(5......)).(q(1|
00000B60: 0E 00 00 01 00 00 29 3D 71 28 32 0E 00 00 02 00 |......)=q(2.....|
00000B70: 00 29 C6 71 28 32 0E 00 00 02 00 00 29 C9 71 28 |.).q(2......).q(|
00000B80: 33 0E 00 00 03 00 00 29 C6 71 28 33 0E 00 00 03 |3......).q(3....|
00000B90: 00 00 29 C9 71 28 34 0E 00 00 04 00 00 29 C6 71 |..).q(4......).q|
00000BA0: 28 34 0E 00 00 04 00 00 29 3D 71 28 35 0E 00 00 |(4......)=q(5...|
00000BB0: 05 00 00 29 29 CB EC 36 34 30 30 0E 00 00 00 19 |...))..6400.....|
00000BC0: 00 0D 02 30 95 00 FA 28 71 28 31 0E 00 00 01 00 |...0...(q(1.....|
00000BD0: 00 29 3D 71 28 32 0E 00 00 02 00 00 29 C6 71 28 |.)=q(2......).q(|
00000BE0: 32 0E 00 00 02 00 00 29 3D 71 28 33 0E 00 00 03 |2......)=q(3....|
00000BF0: 00 00 29 C6 71 28 33 0E 00 00 03 00 00 29 3D 71 |..).q(3......)=q|
00000C00: 28 34 0E 00 00 04 00 00 29 29 C5 28 71 28 32 0E |(4......)).(q(2.|
00000C10: 00 00 02 00 00 29 3D 71 28 33 0E 00 00 03 00 00 |.....)=q(3......|
00000C20: 29 C6 71 28 33 0E 00 00 03 00 00 29 3D 71 28 34 |).q(3......)=q(4|
00000C30: 0E 00 00 04 00 00 29 C6 71 28 34 0E 00 00 04 00 |......).q(4.....|
00000C40: 00 29 3D 71 28 35 0E 00 00 05 00 00 29 29 CB EC |.)=q(5......))..|
00000C50: 36 36 30 30 0E 00 00 C8 19 00 0D 02 44 EC 00 FA |6600........D...|
00000C60: 28 71 28 31 0E 00 00 01 00 00 29 3D 71 28 32 0E |(q(1......)=q(2.|
00000C70: 00 00 02 00 00 29 2D 31 0E 00 00 01 00 00 C6 71 |.....)-1.......q|
00000C80: 28 32 0E 00 00 02 00 00 29 3D 71 28 33 0E 00 00 |(2......)=q(3...|
00000C90: 03 00 00 29 2D 31 0E 00 00 01 00 00 C6 71 28 33 |...)-1.......q(3|
00000CA0: 0E 00 00 03 00 00 29 3D 71 28 34 0E 00 00 04 00 |......)=q(4.....|
00000CB0: 00 29 2D 31 0E 00 00 01 00 00 C6 71 28 35 0E 00 |.)-1.......q(5..|
00000CC0: 00 05 00 00 29 3D 71 28 34 0E 00 00 04 00 00 29 |....)=q(4......)|
00000CD0: 2B 31 0E 00 00 01 00 00 29 C5 28 71 28 31 0E 00 |+1......).(q(1..|
00000CE0: 00 01 00 00 29 3D 31 0E 00 00 01 00 00 C6 71 28 |....)=1.......q(|
00000CF0: 32 0E 00 00 02 00 00 29 3D 31 30 0E 00 00 0A 00 |2......)=10.....|
00000D00: 00 C6 71 28 33 0E 00 00 03 00 00 29 3D 31 31 0E |..q(3......)=11.|
00000D10: 00 00 0B 00 00 C6 71 28 34 0E 00 00 04 00 00 29 |......q(4......)|
00000D20: 3D 31 32 0E 00 00 0C 00 00 C6 71 28 35 0E 00 00 |=12.......q(5...|
00000D30: 05 00 00 29 3D 31 33 0E 00 00 0D 00 00 29 CB EC |...)=13......)..|
00000D40: 36 38 30 30 0E 00 00 90 1A 00 0D 02 58 C1 00 FA |6800........X...|
00000D50: 28 71 28 31 0E 00 00 01 00 00 29 3D 71 28 32 0E |(q(1......)=q(2.|
00000D60: 00 00 02 00 00 29 C6 71 28 32 0E 00 00 02 00 00 |.....).q(2......|
00000D70: 29 3D 71 28 33 0E 00 00 03 00 00 29 C6 71 28 33 |)=q(3......).q(3|
00000D80: 0E 00 00 03 00 00 29 C9 71 28 34 0E 00 00 04 00 |......).q(4.....|
00000D90: 00 29 C6 71 28 34 0E 00 00 04 00 00 29 3D 71 28 |.).q(4......)=q(|
00000DA0: 35 0E 00 00 05 00 00 29 29 C5 28 71 28 31 0E 00 |5......)).(q(1..|
00000DB0: 00 01 00 00 29 3D 71 28 32 0E 00 00 02 00 00 29 |....)=q(2......)|
00000DC0: C6 71 28 32 0E 00 00 02 00 00 29 C9 71 28 33 0E |.q(2......).q(3.|
00000DD0: 00 00 03 00 00 29 C6 71 28 33 0E 00 00 03 00 00 |.....).q(3......|
00000DE0: 29 3D 71 28 34 0E 00 00 04 00 00 29 C6 71 28 34 |)=q(4......).q(4|
00000DF0: 0E 00 00 04 00 00 29 3D 71 28 35 0E 00 00 05 00 |......)=q(5.....|
00000E00: 00 29 29 CB EC 37 30 30 30 0E 00 00 58 1B 00 0D |.))..7000...X...|
00000E10: 02 6C 1B 01 FA 28 71 28 31 0E 00 00 01 00 00 29 |.l...(q(1......)|
00000E20: 3D 71 28 32 0E 00 00 02 00 00 29 C6 71 28 32 0E |=q(2......).q(2.|
00000E30: 00 00 02 00 00 29 3D 71 28 33 0E 00 00 03 00 00 |.....)=q(3......|
00000E40: 29 C6 71 28 33 0E 00 00 03 00 00 29 C9 71 28 34 |).q(3......).q(4|
00000E50: 0E 00 00 04 00 00 29 C6 71 28 34 0E 00 00 04 00 |......).q(4.....|
00000E60: 00 29 C9 71 28 35 0E 00 00 05 00 00 29 29 C5 28 |.).q(5......)).(|
00000E70: 71 28 31 0E 00 00 01 00 00 29 C9 71 28 32 0E 00 |q(1......).q(2..|
00000E80: 00 02 00 00 29 C6 71 28 32 0E 00 00 02 00 00 29 |....).q(2......)|
00000E90: 3D 71 28 33 0E 00 00 03 00 00 29 C6 71 28 33 0E |=q(3......).q(3.|
00000EA0: 00 00 03 00 00 29 3D 71 28 34 0E 00 00 04 00 00 |.....)=q(4......|
00000EB0: 29 C6 71 28 34 0E 00 00 04 00 00 29 C9 71 28 35 |).q(4......).q(5|
00000EC0: 0E 00 00 05 00 00 29 29 C5 28 71 28 31 0E 00 00 |......)).(q(1...|
00000ED0: 01 00 00 29 C9 71 28 32 0E 00 00 02 00 00 29 C6 |...).q(2......).|
00000EE0: 71 28 32 0E 00 00 02 00 00 29 C9 71 28 33 0E 00 |q(2......).q(3..|
00000EF0: 00 03 00 00 29 C6 71 28 33 0E 00 00 03 00 00 29 |....).q(3......)|
00000F00: 3D 71 28 34 0E 00 00 04 00 00 29 C6 71 28 34 0E |=q(4......).q(4.|
00000F10: 00 00 04 00 00 29 3D 71 28 35 0E 00 00 05 00 00 |.....)=q(5......|
00000F20: 29 29 CB EC 37 32 30 30 0E 00 00 20 1C 00 0D 02 |))..7200... ....|
00000F30: 76 1F 00 D7 2E 35 0E 7F 7F FF FF FF 2C 2D 31 30 |v....5......,-10|
00000F40: 0E 00 00 0A 00 00 3A DB 30 0E 00 00 00 00 00 3A |......:.0......:|
00000F50: FE 0D 02 80 1D 00 DB 30 0E 00 00 00 00 00 3A DA |.......0......:.|
00000F60: 35 0E 00 00 05 00 00 3A FB 3A DA 37 0E 00 00 07 |5......:.:.7....|
00000F70: 00 00 0D 02 81 86 00 F5 AC 32 0E 00 00 02 00 00 |.........2......|
00000F80: 2C 35 0E 00 00 05 00 00 3B 22 47 65 62 72 75 69 |,5......;"Gebrui|
00000F90: 6B 20 6E 6F 2E 20 31 20 76 6F 6F 72 20 10 02 10 |k no. 1 voor ...|
00000FA0: 02 10 04 10 02 4C 41 47 45 52 10 00 10 00 22 3B |.....LAGER....";|
00000FB0: AC 33 0E 00 00 03 00 00 2C 37 0E 00 00 07 00 00 |.3......,7......|
00000FC0: 3B 22 20 4E 6F 2E 20 30 20 76 6F 6F 72 20 10 01 |;" No. 0 voor ..|
00000FD0: 48 4F 47 45 52 10 00 22 3B AC 34 0E 00 00 04 00 |HOGER..";.4.....|
00000FE0: 00 2C 38 0E 00 00 08 00 00 3B 22 20 50 20 6F 6D |.,8......;" P om|
00000FF0: 20 74 65 20 68 6F 75 64 65 6E 20 22 0D 02 85 23 | te houden "...#|
00001000: 00 F1 78 3D 31 0E 00 00 01 00 00 3A ED 39 39 30 |..x=1......:.990|
00001010: 30 0E 00 00 AC 26 00 3A ED 33 30 30 30 0E 00 00 |0....&.:.3000...|
00001020: B8 0B 00 0D 02 8A 13 00 EB 78 3D 32 0E 00 00 02 |.........x=2....|
00001030: 00 00 CC 35 0E 00 00 05 00 00 0D 02 94 2C 00 F5 |...5.........,..|
00001040: D9 31 0E 00 00 01 00 00 3B AC 37 0E 00 00 07 00 |.1......;.7.....|
00001050: 00 2C 31 31 0E 00 00 0B 00 00 3B 22 57 49 4E 4E |.,11......;"WINN|
00001060: 45 4E 44 20 3D 22 3B 62 65 74 0D 02 9E 24 00 ED |END =";bet...$..|
00001070: 31 38 30 30 0E 00 00 08 07 00 3A ED 39 39 30 30 |1800......:.9900|
00001080: 0E 00 00 AC 26 00 3A ED 33 30 30 30 0E 00 00 B8 |....&.:.3000....|
00001090: 0B 00 0D 02 A8 19 00 F5 AC 31 38 0E 00 00 12 00 |.........18.....|
000010A0: 00 2C 79 79 2B 31 0E 00 00 01 00 00 3B 76 24 0D |.,yy+1......;v$.|
000010B0: 02 BC 64 00 FA 70 28 78 2D 31 0E 00 00 01 00 00 |..d..p(x-1......|
000010C0: 29 3D 31 0E 00 00 01 00 00 C5 70 28 78 29 3D 31 |)=1.......p(x)=1|
000010D0: 0E 00 00 01 00 00 C5 28 76 24 3D 22 4C 22 C6 70 |.......(v$="L".p|
000010E0: 28 78 2D 31 0E 00 00 01 00 00 29 3E 70 28 78 29 |(x-1......)>p(x)|
000010F0: 29 C5 28 76 24 3D 22 48 22 C6 70 28 78 2D 31 0E |).(v$="H".p(x-1.|
00001100: 00 00 01 00 00 29 3C 70 28 78 29 29 CB EC 37 31 |.....)<p(x))..71|
00001110: 35 0E 00 00 CB 02 00 0D 02 C6 16 00 D7 2E 35 0E |5.............5.|
00001120: 7F 7F FF FF FF 2C 2D 31 30 0E 00 00 0A 00 00 3A |.....,-10......:|
00001130: FE 0D 02 F8 3F 00 F1 62 65 74 3D 62 65 74 2A 32 |....?..bet=bet*2|
00001140: 0E 00 00 02 00 00 3A F5 AC 37 0E 00 00 07 00 00 |......:..7......|
00001150: 2C 31 31 0E 00 00 0B 00 00 3B 22 57 49 4E 4E 45 |,11......;"WINNE|
00001160: 4E 44 20 3D 22 3B 62 65 74 3A F2 31 30 30 0E 00 |ND =";bet:.100..|
00001170: 00 64 00 00 0D 03 0C 03 00 F3 78 0D 03 84 39 00 |.d........x...9.|
00001180: EB 66 3D 30 0E 00 00 00 00 00 CC 36 30 0E 00 00 |.f=0.......60...|
00001190: 3C 00 00 CD 31 30 0E 00 00 0A 00 00 3A E7 66 2F |<...10......:.f/|
000011A0: 31 30 0E 00 00 0A 00 00 3A D7 2E 31 0E 7D 4C CC |10......:..1.}L.|
000011B0: CC CC 2C 66 3A 3A F3 66 0D 05 DC 13 00 F1 63 72 |..,f::.f......cr|
000011C0: 65 64 69 74 3D 63 72 65 64 69 74 2B 62 65 74 0D |edit=credit+bet.|
000011D0: 06 40 0B 00 EC 31 35 30 0E 00 00 96 00 00 0D 07 |.@...150........|
000011E0: 08 19 00 FA A6 3D 22 70 22 C5 A6 3D 22 50 22 CB |.....="p"..="P".|
000011F0: EC 31 35 30 30 0E 00 00 DC 05 00 0D 07 6C 33 00 |.1500........l3.|
00001200: D7 2E 31 0E 7D 4C CC CC CC 2C 30 0E 00 00 00 00 |..1.}L...,0.....|
00001210: 00 3A F1 76 24 3D A6 3A FA 76 24 C9 22 31 22 C6 |.:.v$=.:.v$."1".|
00001220: 76 24 C9 22 30 22 CB EC 31 38 30 30 0E 00 00 08 |v$."0"..1800....|
00001230: 07 00 0D 07 76 10 00 FA 76 24 3D 22 31 22 CB F1 |....v...v$="1"..|
00001240: 76 24 3D 22 4C 22 0D 07 80 10 00 FA 76 24 3D 22 |v$="L"......v$="|
00001250: 30 22 CB F1 76 24 3D 22 48 22 0D 07 9E 02 00 FE |0"..v$="H"......|
00001260: 0D 07 D1 3F 00 FA 66 66 3C 31 34 0E 00 00 0E 00 |...?..ff<14.....|
00001270: 00 CB D9 32 0E 00 00 02 00 00 3A F5 AC 31 33 0E |...2......:..13.|
00001280: 00 00 0D 00 00 2C 79 79 3B 22 20 9A 9A 20 22 3B |.....,yy;" .. ";|
00001290: AC 31 34 0E 00 00 0E 00 00 2C 79 79 3B 22 20 96 |.14......,yy;" .|
000012A0: 97 20 22 0D 07 D2 4B 00 FA 66 66 3E 31 33 0E 00 |. "...K..ff>13..|
000012B0: 00 0D 00 00 C6 66 66 3C 32 37 0E 00 00 1B 00 00 |.....ff<27......|
000012C0: CB D9 32 0E 00 00 02 00 00 3A F5 AC 31 33 0E 00 |..2......:..13..|
000012D0: 00 0D 00 00 2C 79 79 3B 22 20 94 95 20 22 3B AC |....,yy;" .. ";.|
000012E0: 31 34 0E 00 00 0E 00 00 2C 79 79 3B 22 20 96 97 |14......,yy;" ..|
000012F0: 20 22 0D 07 D3 4B 00 FA 66 66 3E 32 36 0E 00 00 | "...K..ff>26...|
00001300: 1A 00 00 C6 66 66 3C 34 30 0E 00 00 28 00 00 CB |....ff<40...(...|
00001310: D9 30 0E 00 00 00 00 00 3A F5 AC 31 33 0E 00 00 |.0......:..13...|
00001320: 0D 00 00 2C 79 79 3B 22 20 90 91 20 22 3B AC 31 |...,yy;" .. ";.1|
00001330: 34 0E 00 00 0E 00 00 2C 79 79 3B 22 20 92 93 20 |4......,yy;" .. |
00001340: 22 0D 07 D4 3F 00 FA 66 66 3E 33 39 0E 00 00 27 |"...?..ff>39...'|
00001350: 00 00 CB D9 30 0E 00 00 00 00 00 3A F5 AC 31 33 |....0......:..13|
00001360: 0E 00 00 0D 00 00 2C 79 79 3B 22 20 94 95 20 22 |......,yy;" .. "|
00001370: 3B AC 31 34 0E 00 00 0E 00 00 2C 79 79 3B 22 20 |;.14......,yy;" |
00001380: 98 99 20 22 0D 07 D5 10 00 FA 66 24 3D 22 31 22 |.. "......f$="1"|
00001390: CB F1 66 24 3D 22 41 22 0D 07 D6 11 00 FA 66 24 |..f$="A"......f$|
000013A0: 3D 22 31 31 22 CB F1 66 24 3D 22 4A 22 0D 07 D7 |="11"..f$="J"...|
000013B0: 11 00 FA 66 24 3D 22 31 32 22 CB F1 66 24 3D 22 |...f$="12"..f$="|
000013C0: 51 22 0D 07 D8 11 00 FA 66 24 3D 22 31 33 22 CB |Q"......f$="13".|
000013D0: F1 66 24 3D 22 4B 22 0D 07 D9 56 00 F5 AC 31 30 |.f$="K"...V...10|
000013E0: 0E 00 00 0A 00 00 2C 79 79 3B 22 20 20 20 20 22 |......,yy;" "|
000013F0: 3B AC 31 31 0E 00 00 0B 00 00 2C 79 79 3B 22 20 |;.11......,yy;" |
00001400: 22 3B 66 24 3B 22 20 20 22 3B AC 31 32 0E 00 00 |";f$;" ";.12...|
00001410: 0C 00 00 2C 79 79 3B 22 20 20 20 20 22 3B AC 31 |...,yy;" ";.1|
00001420: 35 0E 00 00 0F 00 00 2C 79 79 3B 22 20 20 20 20 |5......,yy;" |
00001430: 22 0D 07 DA 2C 00 D9 35 0E 00 00 05 00 00 3A F5 |"...,..5......:.|
00001440: AC 31 31 0E 00 00 0B 00 00 2C 79 79 2B 34 0E 00 |.11......,yy+4..|
00001450: 00 04 00 00 3B 22 8F 22 3A D9 32 0E 00 00 02 00 |....;".":.2.....|
00001460: 00 0D 07 DB 02 00 FE 0D 0B B8 19 00 FA 7A 28 78 |.............z(x|
00001470: 29 3C 31 34 0E 00 00 0E 00 00 CB F1 66 24 3D C1 |)<14........f$=.|
00001480: 7A 28 78 29 0D 0C 1C 32 00 FA 7A 28 78 29 3E 31 |z(x)...2..z(x)>1|
00001490: 33 0E 00 00 0D 00 00 C6 7A 28 78 29 3C 32 37 0E |3.......z(x)<27.|
000014A0: 00 00 1B 00 00 CB F1 66 24 3D C1 28 7A 28 78 29 |.......f$=.(z(x)|
000014B0: 2D 31 33 0E 00 00 0D 00 00 29 0D 0C 8A 32 00 FA |-13......)...2..|
000014C0: 7A 28 78 29 3E 32 36 0E 00 00 1A 00 00 C6 7A 28 |z(x)>26.......z(|
000014D0: 78 29 3C 34 30 0E 00 00 28 00 00 CB F1 66 24 3D |x)<40...(....f$=|
000014E0: C1 28 7A 28 78 29 2D 32 36 0E 00 00 1A 00 00 29 |.(z(x)-26......)|
000014F0: 0D 0C EE 24 00 FA 7A 28 78 29 3E 33 39 0E 00 00 |...$..z(x)>39...|
00001500: 27 00 00 CB F1 66 24 3D C1 28 7A 28 78 29 2D 33 |'....f$=.(z(x)-3|
00001510: 39 0E 00 00 27 00 00 29 0D 0C F8 27 00 F1 62 28 |9...'..)...'..b(|
00001520: 78 29 3D 7A 28 78 29 3A F1 70 28 78 29 3D B0 66 |x)=z(x):.p(x)=.f|
00001530: 24 3A F1 66 66 3D 7A 28 78 29 3A F1 79 79 3D 63 |$:.ff=z(x):.yy=c|
00001540: 28 78 29 0D 0D 48 0E 00 ED 32 30 30 30 0E 00 00 |(x)..H...2000...|
00001550: D0 07 00 3A FE 0D 17 70 EC 00 FA 28 71 28 31 0E |...:...p...(q(1.|
00001560: 00 00 01 00 00 29 3D 71 28 32 0E 00 00 02 00 00 |.....)=q(2......|
00001570: 29 2D 31 0E 00 00 01 00 00 C6 71 28 32 0E 00 00 |)-1.......q(2...|
00001580: 02 00 00 29 3D 71 28 33 0E 00 00 03 00 00 29 2D |...)=q(3......)-|
00001590: 31 0E 00 00 01 00 00 C6 71 28 33 0E 00 00 03 00 |1.......q(3.....|
000015A0: 00 29 3D 71 28 34 0E 00 00 04 00 00 29 2D 31 0E |.)=q(4......)-1.|
000015B0: 00 00 01 00 00 C6 71 28 35 0E 00 00 05 00 00 29 |......q(5......)|
000015C0: 3D 71 28 34 0E 00 00 04 00 00 29 2B 31 0E 00 00 |=q(4......)+1...|
000015D0: 01 00 00 29 C5 28 71 28 31 0E 00 00 01 00 00 29 |...).(q(1......)|
000015E0: 3D 31 0E 00 00 01 00 00 C6 71 28 32 0E 00 00 02 |=1.......q(2....|
000015F0: 00 00 29 3D 31 30 0E 00 00 0A 00 00 C6 71 28 33 |..)=10.......q(3|
00001600: 0E 00 00 03 00 00 29 3D 31 31 0E 00 00 0B 00 00 |......)=11......|
00001610: C6 71 28 34 0E 00 00 04 00 00 29 3D 31 32 0E 00 |.q(4......)=12..|
00001620: 00 0C 00 00 C6 71 28 35 0E 00 00 05 00 00 29 3D |.....q(5......)=|
00001630: 31 33 0E 00 00 0D 00 00 29 CB EC 36 39 30 30 0E |13......)..6900.|
00001640: 00 00 F4 1A 00 0D 17 7A 11 00 F1 62 65 74 3D 62 |.......z...bet=b|
00001650: 65 74 2A 38 0E 00 00 08 00 00 0D 17 8E 49 00 F5 |et*8.........I..|
00001660: AC 38 0E 00 00 08 00 00 2C 31 34 0E 00 00 0E 00 |.8......,14.....|
00001670: 00 3B 22 46 4C 55 53 48 22 3A EB 66 3D 30 0E 00 |.;"FLUSH":.f=0..|
00001680: 00 00 00 00 CC 31 32 0E 00 00 0C 00 00 3A D7 2E |.....12......:..|
00001690: 31 0E 7D 4C CC CC CC 2C 66 3A F3 66 3A EC 36 34 |1.}L...,f:.f:.64|
000016A0: 30 0E 00 00 80 02 00 0D 18 56 50 00 F5 AC 38 0E |0........VP...8.|
000016B0: 00 00 08 00 00 2C 31 30 0E 00 00 0A 00 00 3B 22 |.....,10......;"|
000016C0: 50 41 49 52 20 4F 46 20 41 43 45 53 22 3A EB 66 |PAIR OF ACES":.f|
000016D0: 3D 35 0E 00 00 05 00 00 CC 31 37 0E 00 00 11 00 |=5.......17.....|
000016E0: 00 3A D7 2E 31 0E 7D 4C CC CC CC 2C 66 3A F3 66 |.:..1.}L...,f:.f|
000016F0: 3A EC 36 34 30 0E 00 00 80 02 00 0D 19 00 11 00 |:.640...........|
00001700: F1 62 65 74 3D 62 65 74 2A 32 0E 00 00 02 00 00 |.bet=bet*2......|
00001710: 0D 19 0A 1C 00 F5 AC 38 0E 00 00 08 00 00 2C 31 |.......8......,1|
00001720: 33 0E 00 00 0D 00 00 3B 22 32 20 50 41 49 52 22 |3......;"2 PAIR"|
00001730: 0D 19 14 2F 00 EB 66 3D 31 30 0E 00 00 0A 00 00 |.../..f=10......|
00001740: CC 32 32 0E 00 00 16 00 00 3A D7 2E 31 0E 7D 4C |.22......:..1.}L|
00001750: CC CC CC 2C 66 3A F3 66 3A EC 36 34 30 0E 00 00 |...,f:.f:.640...|
00001760: 80 02 00 0D 19 C8 12 00 F1 62 65 74 3D 62 65 74 |.........bet=bet|
00001770: 2A 34 30 0E 00 00 28 00 00 0D 19 DC 1B 00 F5 AC |*40...(.........|
00001780: 38 0E 00 00 08 00 00 2C 31 34 0E 00 00 0E 00 00 |8......,14......|
00001790: 3B 22 50 4F 4B 45 52 22 0D 19 E6 2F 00 EB 66 3D |;"POKER".../..f=|
000017A0: 31 35 0E 00 00 0F 00 00 CC 32 37 0E 00 00 1B 00 |15.......27.....|
000017B0: 00 3A D7 2E 31 0E 7D 4C CC CC CC 2C 66 3A F3 66 |.:..1.}L...,f:.f|
000017C0: 3A EC 36 34 30 0E 00 00 80 02 00 0D 1A AE 11 00 |:.640...........|
000017D0: F1 62 65 74 3D 62 65 74 2A 35 0E 00 00 05 00 00 |.bet=bet*5......|
000017E0: 0D 1A CC 19 00 F5 AC 38 0E 00 00 08 00 00 2C 31 |.......8......,1|
000017F0: 34 0E 00 00 0E 00 00 3B 22 52 55 4E 22 0D 1A D6 |4......;"RUN"...|
00001800: 2F 00 EB 66 3D 32 30 0E 00 00 14 00 00 CC 33 32 |/..f=20.......32|
00001810: 0E 00 00 20 00 00 3A D7 2E 31 0E 7D 4C CC CC CC |... ..:..1.}L...|
00001820: 2C 66 3A F3 66 3A EC 36 34 30 0E 00 00 80 02 00 |,f:.f:.640......|
00001830: 0D 1A F4 34 00 FA 71 28 31 0E 00 00 01 00 00 29 |...4..q(1......)|
00001840: 3D 31 0E 00 00 01 00 00 C6 71 28 35 0E 00 00 05 |=1.......q(5....|
00001850: 00 00 29 3D 31 33 0E 00 00 0D 00 00 CB EC 36 39 |..)=13........69|
00001860: 33 30 0E 00 00 12 1B 00 0D 1A F9 13 00 F1 62 65 |30............be|
00001870: 74 3D 62 65 74 2A 31 30 30 0E 00 00 64 00 00 0D |t=bet*100...d...|
00001880: 1A FE 1E 00 F5 AC 38 0E 00 00 08 00 00 2C 31 34 |......8......,14|
00001890: 0E 00 00 0E 00 00 3B 22 53 54 52 41 49 47 48 54 |......;"STRAIGHT|
000018A0: 22 0D 1B 08 2F 00 EB 66 3D 32 35 0E 00 00 19 00 |".../..f=25.....|
000018B0: 00 CC 33 37 0E 00 00 25 00 00 3A D7 2E 31 0E 7D |..37...%..:..1.}|
000018C0: 4C CC CC CC 2C 66 3A F3 66 3A EC 36 34 30 0E 00 |L...,f:.f:.640..|
000018D0: 00 80 02 00 0D 1B 12 13 00 F1 62 65 74 3D 62 65 |..........bet=be|
000018E0: 74 2A 35 30 30 0E 00 00 F4 01 00 0D 1B 1C 21 00 |t*500.........!.|
000018F0: F5 AC 36 0E 00 00 06 00 00 2C 31 34 0E 00 00 0E |..6......,14....|
00001900: 00 00 3B 22 52 4F 59 41 4C 20 46 4C 55 53 48 22 |..;"ROYAL FLUSH"|
00001910: 0D 1B 26 2F 00 EB 66 3D 32 37 0E 00 00 1B 00 00 |..&/..f=27......|
00001920: CC 33 39 0E 00 00 27 00 00 3A D7 2E 31 0E 7D 4C |.39...'..:..1.}L|
00001930: CC CC CC 2C 66 3A F3 66 3A EC 36 34 30 0E 00 00 |...,f:.f:.640...|
00001940: 80 02 00 0D 1B 58 12 00 F1 62 65 74 3D 62 65 74 |.....X...bet=bet|
00001950: 2A 31 30 0E 00 00 0A 00 00 0D 1B 6C 1B 00 F5 AC |*10........l....|
00001960: 38 0E 00 00 08 00 00 2C 31 34 0E 00 00 0E 00 00 |8......,14......|
00001970: 3B 22 48 4F 55 53 45 22 0D 1B 76 2F 00 EB 66 3D |;"HOUSE"..v/..f=|
00001980: 33 30 0E 00 00 1E 00 00 CC 34 32 0E 00 00 2A 00 |30.......42...*.|
00001990: 00 3A D7 2E 31 0E 7D 4C CC CC CC 2C 66 3A F3 66 |.:..1.}L...,f:.f|
000019A0: 3A EC 36 34 30 0E 00 00 80 02 00 0D 1C 20 11 00 |:.640........ ..|
000019B0: F1 62 65 74 3D 62 65 74 2A 33 0E 00 00 03 00 00 |.bet=bet*3......|
000019C0: 0D 1C 34 1B 00 F5 AC 38 0E 00 00 08 00 00 2C 31 |..4....8......,1|
000019D0: 34 0E 00 00 0E 00 00 3B 22 50 52 49 44 45 22 0D |4......;"PRIDE".|
000019E0: 1C 3E 2F 00 EB 66 3D 33 35 0E 00 00 23 00 00 CC |.>/..f=35...#...|
000019F0: 34 37 0E 00 00 2F 00 00 3A D7 2E 31 0E 7D 4C CC |47.../..:..1.}L.|
00001A00: CC CC 2C 66 3A F3 66 3A EC 36 34 30 0E 00 00 80 |..,f:.f:.640....|
00001A10: 02 00 0D 1C 84 14 00 D7 2E 30 33 0E 7B 75 C2 8F |.........03.{u..|
00001A20: 5C 2C 32 30 0E 00 00 14 00 00 0D 1C 89 0B 00 F1 |\,20............|
00001A30: 6D 24 28 78 29 3D 22 6E 22 0D 1C 8E 15 00 F1 67 |m$(x)="n"......g|
00001A40: 67 3D 63 28 78 29 3A ED 39 39 30 30 0E 00 00 AC |g=c(x):.9900....|
00001A50: 26 00 0D 1C E8 26 00 EB 67 3D 31 30 0E 00 00 0A |&....&..g=10....|
00001A60: 00 00 CC 31 35 0E 00 00 0F 00 00 3A F5 AC 67 2C |...15......:..g,|
00001A70: 67 67 3B 22 89 89 89 89 22 3A F3 67 0D 1D 4C 02 |gg;"....":.g..L.|
00001A80: 00 FE 0D 1F 40 2E 00 E9 71 28 35 0E 00 00 05 00 |....@...q(5.....|
00001A90: 00 29 3A EB 69 3D 31 0E 00 00 01 00 00 CC 35 0E |.):.i=1.......5.|
00001AA0: 00 00 05 00 00 3A F1 71 28 69 29 3D 31 35 0E 00 |.....:.q(i)=15..|
00001AB0: 00 0F 00 00 0D 1F 5E 0D 00 EB 6A 3D 69 CC 35 0E |......^...j=i.5.|
00001AC0: 00 00 05 00 00 0D 1F 68 1C 00 FA 70 28 6A 29 3C |.......h...p(j)<|
00001AD0: 71 28 69 29 CB F1 70 70 3D 6A 3A F1 71 28 69 29 |q(i)..pp=j:.q(i)|
00001AE0: 3D 70 28 6A 29 0D 1F 7C 03 00 F3 6A 0D 1F 86 0C |=p(j)..|...j....|
00001AF0: 00 F1 70 28 70 70 29 3D 70 28 69 29 0D 1F 90 03 |..p(pp)=p(i)....|
00001B00: 00 F3 69 0D 1F 9A 02 00 FE 0D 23 28 0C 00 E5 39 |..i.......#(...9|
00001B10: 30 39 30 0E 00 00 82 23 00 0D 23 46 16 00 EB 67 |090....#..#F...g|
00001B20: 3D C0 22 61 22 CC C0 22 61 22 2B 38 37 0E 00 00 |=."a".."a"+87...|
00001B30: 57 00 00 0D 23 50 0B 00 E3 61 3A F4 67 2C 61 3A |W...#P...a:.g,a:|
00001B40: F3 67 0D 23 5A 02 00 FE 0D 23 82 4A 00 E4 33 0E |.g.#Z....#.J..3.|
00001B50: 00 00 03 00 00 2C 37 0E 00 00 07 00 00 2C 31 35 |.....,7......,15|
00001B60: 0E 00 00 0F 00 00 2C 31 35 0E 00 00 0F 00 00 2C |......,15......,|
00001B70: 35 35 0E 00 00 37 00 00 2C 31 32 33 0E 00 00 7B |55...7..,123...{|
00001B80: 00 00 2C 32 35 33 0E 00 00 FD 00 00 2C 32 35 35 |..,253......,255|
00001B90: 0E 00 00 FF 00 00 0D 23 8C 51 00 E4 31 39 32 0E |.......#.Q..192.|
00001BA0: 00 00 C0 00 00 2C 32 32 34 0E 00 00 E0 00 00 2C |.....,224......,|
00001BB0: 32 34 30 0E 00 00 F0 00 00 2C 32 34 30 0E 00 00 |240......,240...|
00001BC0: F0 00 00 2C 32 33 36 0E 00 00 EC 00 00 2C 32 32 |...,236......,22|
00001BD0: 32 0E 00 00 DE 00 00 2C 31 39 31 0E 00 00 BF 00 |2......,191.....|
00001BE0: 00 2C 32 35 35 0E 00 00 FF 00 00 0D 23 96 4A 00 |.,255.......#.J.|
00001BF0: E4 32 35 35 0E 00 00 FF 00 00 2C 32 35 33 0E 00 |.255......,253..|
00001C00: 00 FD 00 00 2C 31 32 31 0E 00 00 79 00 00 2C 34 |....,121...y..,4|
00001C10: 39 0E 00 00 31 00 00 2C 33 0E 00 00 03 00 00 2C |9...1..,3......,|
00001C20: 37 0E 00 00 07 00 00 2C 31 35 0E 00 00 0F 00 00 |7......,15......|
00001C30: 2C 33 31 0E 00 00 1F 00 00 0D 23 A0 51 00 E4 32 |,31.......#.Q..2|
00001C40: 35 35 0E 00 00 FF 00 00 2C 31 39 31 0E 00 00 BF |55......,191....|
00001C50: 00 00 2C 31 35 38 0E 00 00 9E 00 00 2C 31 34 30 |..,158......,140|
00001C60: 0E 00 00 8C 00 00 2C 31 39 32 0E 00 00 C0 00 00 |......,192......|
00001C70: 2C 32 32 34 0E 00 00 E0 00 00 2C 32 34 30 0E 00 |,224......,240..|
00001C80: 00 F0 00 00 2C 32 34 38 0E 00 00 F8 00 00 0D 23 |....,248.......#|
00001C90: AA 48 00 E4 31 0E 00 00 01 00 00 2C 33 0E 00 00 |.H..1......,3...|
00001CA0: 03 00 00 2C 37 0E 00 00 07 00 00 2C 31 35 0E 00 |...,7......,15..|
00001CB0: 00 0F 00 00 2C 33 31 0E 00 00 1F 00 00 2C 36 33 |....,31......,63|
00001CC0: 0E 00 00 3F 00 00 2C 31 32 37 0E 00 00 7F 00 00 |...?..,127......|
00001CD0: 2C 32 35 35 0E 00 00 FF 00 00 0D 23 B4 51 00 E4 |,255.......#.Q..|
00001CE0: 31 32 38 0E 00 00 80 00 00 2C 31 39 32 0E 00 00 |128......,192...|
00001CF0: C0 00 00 2C 32 32 34 0E 00 00 E0 00 00 2C 32 34 |...,224......,24|
00001D00: 30 0E 00 00 F0 00 00 2C 32 34 38 0E 00 00 F8 00 |0......,248.....|
00001D10: 00 2C 32 35 32 0E 00 00 FC 00 00 2C 32 35 34 0E |.,252......,254.|
00001D20: 00 00 FE 00 00 2C 32 35 35 0E 00 00 FF 00 00 0D |.....,255.......|
00001D30: 23 BE 48 00 E4 32 35 35 0E 00 00 FF 00 00 2C 31 |#.H..255......,1|
00001D40: 32 37 0E 00 00 7F 00 00 2C 36 33 0E 00 00 3F 00 |27......,63...?.|
00001D50: 00 2C 33 31 0E 00 00 1F 00 00 2C 31 35 0E 00 00 |.,31......,15...|
00001D60: 0F 00 00 2C 37 0E 00 00 07 00 00 2C 33 0E 00 00 |...,7......,3...|
00001D70: 03 00 00 2C 31 0E 00 00 01 00 00 0D 23 C8 51 00 |...,1.......#.Q.|
00001D80: E4 32 35 35 0E 00 00 FF 00 00 2C 32 35 34 0E 00 |.255......,254..|
00001D90: 00 FE 00 00 2C 32 35 32 0E 00 00 FC 00 00 2C 32 |....,252......,2|
00001DA0: 34 38 0E 00 00 F8 00 00 2C 32 34 30 0E 00 00 F0 |48......,240....|
00001DB0: 00 00 2C 32 32 34 0E 00 00 E0 00 00 2C 31 39 32 |..,224......,192|
00001DC0: 0E 00 00 C0 00 00 2C 31 32 38 0E 00 00 80 00 00 |......,128......|
00001DD0: 0D 23 D2 49 00 E4 32 35 35 0E 00 00 FF 00 00 2C |.#.I..255......,|
00001DE0: 32 35 33 0E 00 00 FD 00 00 2C 31 32 31 0E 00 00 |253......,121...|
00001DF0: 79 00 00 2C 34 39 0E 00 00 31 00 00 2C 33 0E 00 |y..,49...1..,3..|
00001E00: 00 03 00 00 2C 37 0E 00 00 07 00 00 2C 37 0E 00 |....,7......,7..|
00001E10: 00 07 00 00 2C 31 35 0E 00 00 0F 00 00 0D 23 DC |....,15.......#.|
00001E20: 51 00 E4 32 35 35 0E 00 00 FF 00 00 2C 31 39 31 |Q..255......,191|
00001E30: 0E 00 00 BF 00 00 2C 31 35 38 0E 00 00 9E 00 00 |......,158......|
00001E40: 2C 31 34 30 0E 00 00 8C 00 00 2C 31 39 32 0E 00 |,140......,192..|
00001E50: 00 C0 00 00 2C 32 32 34 0E 00 00 E0 00 00 2C 32 |....,224......,2|
00001E60: 32 34 0E 00 00 E0 00 00 2C 32 34 30 0E 00 00 F0 |24......,240....|
00001E70: 00 00 0D 23 E6 4B 00 E4 30 0E 00 00 00 00 00 2C |...#.K..0......,|
00001E80: 30 0E 00 00 00 00 00 2C 32 34 0E 00 00 18 00 00 |0......,24......|
00001E90: 2C 36 30 0E 00 00 3C 00 00 2C 31 32 36 0E 00 00 |,60...<..,126...|
00001EA0: 7E 00 00 2C 32 35 35 0E 00 00 FF 00 00 2C 32 35 |~..,255......,25|
00001EB0: 35 0E 00 00 FF 00 00 2C 32 35 35 0E 00 00 FF 00 |5......,255.....|
00001EC0: 00 0D 26 AC 36 00 F1 71 3D A8 77 28 66 29 3A F1 |..&.6..q=.w(f):.|
00001ED0: 7A 28 78 29 3D 61 28 71 29 3A F1 61 28 71 29 3D |z(x)=a(q):.a(q)=|
00001EE0: 61 28 66 2B 31 0E 00 00 01 00 00 29 3A F1 66 3D |a(f+1......):.f=|
00001EF0: 66 2D 31 0E 00 00 01 00 00 3A FE 0D 27 0E 16 00 |f-1......:..'...|
00001F00: F8 22 70 6F 6B 65 72 22 CA 39 39 39 39 0E 00 00 |."poker".9999...|
00001F10: 0F 27 00 3A E2 0D 27 0F 02 00 F7 0D 61 00 00 07 |.'.:..'.....a...|
00001F20: 00 00 62 00 00 02 00 00 E9 00 00 15 00 00 00 00 |..b.............|
00001F30: 15 00 00 00 00 01 00 00 03 00 02 63 00 00 02 00 |...........c....|
00001F40: 00 |. |
.POKER 0.'.....V....USE LIST 2.DD...
:H\.....OF.G.I{= ..A{= ... ...D....:H\..
...OF.G.I{= ..A{= ... .IOO...*..5......:
Z5......:.A=2......:.B=7......:.......I=
0......L21.........-...I,8......;YA;ZB;.
1......;" STOP DE BAND! "......C=A:.A=B:
.B=C:.I...G..#1......;.1......,0......;Y
9......;" DRUK EEN TOETS VOOR VERVOLG
".......23772....\........=""K.7.......
.....:.'''" POKER DOOR KEVIN MCCALLION
"''''" EERSTE RONDE IS POKER
(ACES OR BETTER TO WIN)"'''" TWEEDE
RONDE IS HOGER/LAGER"''''" STARTBED
RAG IS F 100"......9000...(#......NW(F..
./..)=.(.*F)+1............B(5......):.Z(
5......):.P(5......):.C(5......):.CREDIT
=100...D..:.V=1......:.F=2......L26.....
.M6......:.C(V)=F:.V=V+1......:.F......1
62.........&..1......:Z5......:.5......:
.:Z7.........,..A(52...4..):.F=1......L5
2...4..:.A(F)=F:.F......F=51...3....2...
CREDIT=CREDIT-BET..<:..Y1......;"CREDIT:
";CREDIT;.0......,15......;"INZET:";BET.
.F...X=1......L5......:.9900....&.:.3000
......:.X..P...301...-....Z*..X=1......L
5......:.M$(X)="N"K.3000........_...X..D
...8000...@..:.430........X...CREDIT=0..
....K.179............0......:Z5......:.5
.........T..("U HEEFT F ";CREDIT;'"HOEVE
EL INZET? F ");JB$:.B$=""KW.1.}LLLL,0...
...:.163............X=1......L.B$...2..B
$(X)<"0"EB$(X)>"9"KW.1.}LLLL,0......:.16
3.........A..X:.BET=.B$:.BET=0......EBET
>CREDITKW.1.}LLLL,0......:.163..........
..:.19...........Z5......:....C..F=30...
...L-30......M-10......:W.1.}LLLL,F:W.2.
~LLLL,F+5......:.F..RB...1......;Z7.....
.;.10......,9......;" ALWEER BLUT "''.1.
.....;"Q = STOP - ALLE ANDERE: DOORGAAN"
.......I""K.220.........T..0......:..="Q
"E.="Q"KY9......:.0......:.:..10......,8
......;" START DE BAND! ":.""......12...
.....1...M$(5......)..6L..Y3......;.3...
...,1......;"NUMMER 1-5 = KAART RUILEN
";.4......,1......;"NR. 6 = DELEN EN Q
= HERZIEN."..7....="Q"E.="Q"K.370...R..
..J...X=1......L5........Y....=AXK.7300.
.......]...X..^....="6"KW.03.{UB.\,20...
...:...H...311...7....RJ.W.03.{UB.\,20..
....:.X=1......L5......:.M$(X)="N"K.Z(X)
=B(X)::.3000........|...X:.......1......
......O=0......L52...4..M13............Z
(1......)>OFZ(1......)<O+14......FZ(2...
...)>OFZ(2......)<O+14......FZ(3......)>
OFZ(3......)<O+14......FZ(4......)>OFZ(4
......)<O+14......FZ(5......)>OFZ(5.....
.)<O+14......K.6000...P....B...O..L...(Q
(1......)=1......FQ(2......)=1......FQ(2
......)IQ(3......)FQ(3......)IQ(4......)
FQ(4......)IQ(5......))E(Q(1......)IQ(2.
.....)FQ(2......)=Q(3......)FQ(3......)=
1......FQ(3......)IQ(4......)FQ(4......)
IQ(5......))E(Q(1......)IQ(2......)FQ(2.
.....)IQ(3......)FQ(3......)=Q(4......)F
Q(4......)=1......FQ(4......)IQ(5......)
)E(Q(1......)IQ(2......)FQ(2......)IQ(3.
.....)FQ(3......)IQ(4......)FQ(4......)=
Q(5......)FQ(5......)=1......)K.6200...8
........(Q(1......)=Q(2......)FQ(3......
)=Q(4......)FQ(4......)IQ(5......)FQ(2..
....)IQ(3......))E(Q(1......)IQ(2......)
FQ(2......)=Q(3......)FQ(3......)IQ(4...
...)FQ(4......)=Q(5......))E(Q(1......)=
Q(2......)FQ(2......)IQ(3......)FQ(3....
..)IQ(4......)FQ(4......)=Q(5......))K.6
400........0...(Q(1......)=Q(2......)FQ(
2......)=Q(3......)FQ(3......)=Q(4......
))E(Q(2......)=Q(3......)FQ(3......)=Q(4
......)FQ(4......)=Q(5......))K.6600...H
....D...(Q(1......)=Q(2......)-1......FQ
(2......)=Q(3......)-1......FQ(3......)=
Q(4......)-1......FQ(5......)=Q(4......)
+1......)E(Q(1......)=1......FQ(2......)
=10......FQ(3......)=11......FQ(4......)
=12......FQ(5......)=13......)K.6800....
....XA..(Q(1......)=Q(2......)FQ(2......
)=Q(3......)FQ(3......)IQ(4......)FQ(4..
....)=Q(5......))E(Q(1......)=Q(2......)
FQ(2......)IQ(3......)FQ(3......)=Q(4...
...)FQ(4......)=Q(5......))K.7000...X...
.L...(Q(1......)=Q(2......)FQ(2......)=Q
(3......)FQ(3......)IQ(4......)FQ(4.....
.)IQ(5......))E(Q(1......)IQ(2......)FQ(
2......)=Q(3......)FQ(3......)=Q(4......
)FQ(4......)IQ(5......))E(Q(1......)IQ(2
......)FQ(2......)IQ(3......)FQ(3......)
=Q(4......)FQ(4......)=Q(5......))K.7200
... ....V..W.5....,-10......:.0......:
.......0......:Z5......:.:Z7............
.2......,5......;"GEBRUIK NO. 1 VOOR ...
.....LAGER....";.3......,7......;" NO. 0
VOOR ..HOGER..";.4......,8......;" P OM
TE HOUDEN "...#..X=1......:.9900....&.:
.3000............X=2......L5.........,..
Y1......;.7......,11......;"WINNEND =";B
ET...$..1800......:.9900....&.:.3000....
.........18......,YY+1......;V$...D..P(X
-1......)=1......EP(X)=1......E(V$="L"FP
(X-1......)>P(X))E(V$="H"FP(X-1......)<P
(X))K.715...K....F..W.5....,-10......:
....?..BET=BET*2......:..7......,11.....
.;"WINNEND =";BET:.100...D........X...9.
.F=0......L60...<..M10......:.F/10......
:W.1.}LLLL,F::.F......CREDIT=CREDIT+BET.
.@...150.............="P"E.="P"K.1500...
.....L3.W.1.}LLLL,0......:.V$=.:.V$I"1"F
V$I"0"K.1800........V...V$="1"K.V$="L"..
....V$="0"K.V$="H"........Q?..FF<14.....
.KY2......:..13......,YY;" .. ";.14.....
.,YY;" .. "..RK..FF>13......FFF<27......
KY2......:..13......,YY;" .. ";.14......
,YY;" .. "..SK..FF>26......FFF<40...(..K
Y0......:..13......,YY;" .. ";.14......,
YY;" .. "..T?..FF>39...'..KY0......:..13
......,YY;" .. ";.14......,YY;" .. "..U.
..F$="1"K.F$="A"..V...F$="11"K.F$="J"..W
...F$="12"K.F$="Q"..X...F$="13"K.F$="K".
.YV...10......,YY;" ";.11......,YY;"
";F$;" ";.12......,YY;" ";.15......,
YY;" "..Z,.Y5......:..11......,YY+4..
....;".":Y2..................Z(X)<14....
..K.F$=AZ(X)...2..Z(X)>13......FZ(X)<27.
.....K.F$=A(Z(X)-13......)...2..Z(X)>26.
.....FZ(X)<40...(..K.F$=A(Z(X)-26......)
...$..Z(X)>39...'..K.F$=A(Z(X)-39...'..)
...'..B(X)=Z(X):.P(X)=.F$:.FF=Z(X):.YY=C
(X)..H...2000...P..:...P...(Q(1......)=Q
(2......)-1......FQ(2......)=Q(3......)-
1......FQ(3......)=Q(4......)-1......FQ(
5......)=Q(4......)+1......)E(Q(1......)
=1......FQ(2......)=10......FQ(3......)=
11......FQ(4......)=12......FQ(5......)=
13......)K.6900........Z...BET=BET*8....
.....I...8......,14......;"FLUSH":.F=0..
....L12......:W.1.}LLLL,F:.F:.640.......
.VP...8......,10......;"PAIR OF ACES":.F
=5......L17......:W.1.}LLLL,F:.F:.640...
.........BET=BET*2.............8......,1
3......;"2 PAIR".../..F=10......L22.....
.:W.1.}LLLL,F:.F:.640........H...BET=BET
*40...(.........8......,14......;"POKER"
.../..F=15......L27......:W.1.}LLLL,F:.F
:.640............BET=BET*5........L....8
......,14......;"RUN"..V/..F=20......L32
... ..:W.1.}LLLL,F:.F:.640.........4..Q(
1......)=1......FQ(5......)=13......K.69
30............BET=BET*100...D.........8.
.....,14......;"STRAIGHT".../..F=25.....
.L37...%..:W.1.}LLLL,F:.F:.640..........
..BET=BET*500.........!...6......,14....
..;"ROYAL FLUSH"..&/..F=27......L39...'.
.:W.1.}LLLL,F:.F:.640........X...BET=BET
*10........L....8......,14......;"HOUSE"
..V/..F=30......L42...*..:W.1.}LLLL,F:.F
:.640........ ...BET=BET*3........4....8
......,14......;"PRIDE"..>/..F=35...#..L
47.../..:W.1.}LLLL,F:.F:.640...........W
.03.{UB.\,20............M$(X)="N"......G
G=C(X):.9900....&....&..G=10......L15...
...:..G,GG;"....":.G..L.....@...Q(5.....
.):.I=1......L5......:.Q(I)=15........^.
..J=IL5........H...P(J)<Q(I)K.PP=J:.Q(I)
=P(J)..|...J......P(PP)=P(I)......I.....
..#(...9090....#..#F...G=."A"L."A"+87...
W...#P...A:.G,A:.G.#Z....#.J..3......,7.
.....,15......,15......,55...7..,123...{
..,253......,255.......#.Q..192......,22
4......,240......,240......,236......,22
2......,191......,255.......#.J..255....
..,253......,121...Y..,49...1..,3......,
7......,15......,31.......# Q..255......
,191......,158......,140......,192......
,224......,240......,248.......#.H..1...
...,3......,7......,15......,31......,63
...?..,127.....,255.......#.Q..128.....
.,192......,224......,240......,248.....
.,252......,254......,255.......#.H..255
......,127.....,63...?..,31......,15...
...,7......,3......,1.......#HQ..255....
..,254......,252......,248......,240....
..,224......,192......,128.......#RI..25
5......,253......,121...Y..,49...1..,3..
....,7......,7......,15.......#.Q..255..
....,191......,158......,140......,192..
....,224......,224......,240.......#.K..
0......,0......,24......,60...<..,126...
~..,255......,255......,255.......&.6..Q
=.W(F):.Z(X)=A(Q):.A(Q)=A(F+1......):.F=
F-1......:..'...."POKER"J9999....'.:..'.
....A.....B........................C....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL