VIDEO POKER

00000000: 01 08 24 08 0A 00 8B 58  B2 30 A7 58 B2 31 3A 93  |..$....X.0.X.1:.|
00000010: 22 56 49 44 45 4F 20 50  4F 4B 45 52 2E 4D 4C 22  |"VIDEO POKER.ML"|
00000020: 2C 38 2C 31 00 61 08 14  00 97 35 33 32 38 30 2C  |,8,1.a....53280,|
00000030: 34 3A 8D 31 31 39 30 3A  43 4C B2 35 34 32 37 32  |4:.1190:CL.54272|
00000040: 3A 56 4C B2 43 4C AA 32  34 3A 86 5A 24 28 31 35  |:VL.CL.24:.Z$(15|
00000050: 29 3A 81 41 B2 43 4C A4  56 4C 3A 97 41 2C 30 3A  |):.A.CL.VL:.A,0:|
00000060: 82 00 A4 08 1E 00 4E 24  B2 22 13 11 11 11 11 11  |......N$."......|
00000070: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000080: 11 11 11 22 3A 47 24 B2  22 20 20 20 20 20 20 20  |...":G$."       |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 3A 97  |             ":.|
000000A0: 56 4C 2C 38 00 E4 08 28  00 81 41 B2 31 A4 31 35  |VL,8...(..A.1.15|
000000B0: 3A 87 42 2C 43 2C 44 2C  5A 24 28 41 29 3A 45 B2  |:.B,C,D,Z$(A):E.|
000000C0: B5 28 28 34 30 AB C3 28  5A 24 28 41 29 29 29 AD  |.((40..(Z$(A))).|
000000D0: 32 29 3A 46 B2 34 30 AB  C3 28 5A 24 28 41 29 29  |2):F.40..(Z$(A))|
000000E0: AB 45 AB 32 00 F1 08 32  00 8B 46 B3 30 A7 46 B2  |.E.2...2..F.0.F.|
000000F0: 30 00 0C 09 3C 00 8B 41  B2 35 A7 5A 24 28 41 29  |0...<..A.5.Z$(A)|
00000100: B2 5A 24 28 41 29 AA C7  28 35 38 29 00 3A 09 46  |.Z$(A)..(58).:.F|
00000110: 00 5A 24 28 41 29 B2 C8  28 47 24 2C 45 29 AA 5A  |.Z$(A)..(G$,E).Z|
00000120: 24 28 41 29 AA C8 28 47  24 2C 46 29 3A 99 C7 28  |$(A)..(G$,F):..(|
00000130: 43 29 3B 3A 97 31 39 38  2C 2E 00 5C 09 50 00 81  |C);:.198,..\.P..|
00000140: 47 B2 31 A4 33 38 3A 99  C8 28 4E 24 2C 42 29 22  |G.1.38:..(N$,B)"|
00000150: 1D 22 C9 28 5A 24 28 41  29 2C 47 29 00 7C 09 55  |.".(Z$(A),G).|.U|
00000160: 00 8B 28 C2 28 31 39 38  29 B1 2E 29 AF 28 41 B1  |..(.(198)..).(A.|
00000170: 32 29 A7 41 B2 31 35 3A  47 B2 33 38 00 A6 09 5A  |2).A.15:G.38...Z|
00000180: 00 54 4E B2 33 32 3A 54  31 B2 31 37 3A 8B 41 B2  |.TN.32:T1.17:.A.|
00000190: 32 B0 41 B2 34 B0 41 B2  31 35 A7 54 4E B2 31 36  |2.A.4.A.15.TN.16|
000001A0: 3A 54 31 B2 33 33 00 DC  09 64 00 97 43 4C 2C 31  |:T1.33...d..CL,1|
000001B0: 32 38 3A 97 43 4C AA 31  2C 44 3A 97 43 4C AA 34  |28:.CL.1,D:.CL.4|
000001C0: 2C 54 4E 3A 8B C8 28 C9  28 5A 24 28 41 29 2C 47  |,TN:..(.(Z$(A),G|
000001D0: 29 2C 31 29 B2 22 20 22  A7 31 33 30 00 F9 09 6E  |),1)." ".130...n|
000001E0: 00 8B C8 28 C9 28 5A 24  28 32 29 2C 47 29 2C 31  |...(.(Z$(2),G),1|
000001F0: 29 B2 22 43 22 A7 31 33  30 00 1A 0A 78 00 97 43  |)."C".130...x..C|
00000200: 4C AA 35 2C 31 33 36 3A  97 43 4C AA 36 2C 31 33  |L.5,136:.CL.6,13|
00000210: 36 3A 97 43 4C AA 34 2C  54 31 00 2B 0A 82 00 82  |6:.CL.4,T1.+....|
00000220: 3A 8B 41 B2 32 A7 8D 31  30 37 30 00 6A 0A 8C 00  |:.A.2..1070.j...|
00000230: 5A 24 28 41 29 B2 CA 28  5A 24 28 41 29 2C 34 2C  |Z$(A)..(Z$(A),4,|
00000240: 32 38 29 3A 5A 24 28 41  29 B2 22 1D 1D 1D 22 AA  |28):Z$(A)."...".|
00000250: 5A 24 28 41 29 3A 82 3A  97 43 4C AA 34 2C 30 3A  |Z$(A):.:.CL.4,0:|
00000260: 81 41 B2 31 A4 31 30 30  3A 82 00 A3 0A 96 00 8D  |.A.1.100:.......|
00000270: 31 31 39 30 3A 97 31 39  38 2C 30 3A 99 C8 28 4E  |1190:.198,0:..(N|
00000280: 24 2C 35 29 A3 36 29 22  1F 48 4F 57 20 4D 41 4E  |$,5).6)".HOW MAN|
00000290: 59 20 50 4C 41 59 45 52  53 20 28 31 20 54 4F 20  |Y PLAYERS (1 TO |
000002A0: 34 29 3F 00 B6 0A A0 00  A1 53 24 3A 8B 53 24 B2  |4)?......S$:.S$.|
000002B0: 22 22 A7 31 36 30 00 D2  0A AA 00 4E 4D B2 C5 28  |"".160.....NM..(|
000002C0: 53 24 29 3A 8B 4E 4D B3  31 B0 4E 4D B1 34 A7 31  |S$):.NM.1.NM.4.1|
000002D0: 35 30 00 0C 0B B4 00 8D  31 31 39 30 3A 81 41 B2  |50......1190:.A.|
000002E0: 31 A4 4E 4D 3A 99 22 13  11 11 11 1D 1D 1F 4E 41  |1.NM:.".......NA|
000002F0: 4D 45 20 4F 46 20 50 4C  41 59 45 52 22 41 22 3D  |ME OF PLAYER"A"=|
00000300: 20 12 22 3B 3A 85 4E 4D  24 28 41 29 00 1F 0B B9  | .";:.NM$(A)....|
00000310: 00 8B 4E 4D 24 28 41 29  B2 22 22 A7 31 38 30 00  |..NM$(A)."".180.|
00000320: 5C 0B BE 00 81 52 4A B2  31 A4 C3 28 4E 4D 24 28  |\....RJ.1..(NM$(|
00000330: 41 29 29 3A 8B C9 28 4E  4D 24 28 41 29 2C 31 29  |A)):..(NM$(A),1)|
00000340: B1 C7 28 36 34 29 AF C9  28 4E 4D 24 28 41 29 2C  |..(64)..(NM$(A),|
00000350: 31 29 B3 C7 28 39 31 29  A7 32 31 30 00 7D 0B C8  |1)..(91).210.}..|
00000360: 00 4E 4D 24 28 41 29 B2  C8 28 4E 4D 24 28 41 29  |.NM$(A)..(NM$(A)|
00000370: 2C C3 28 4E 4D 24 28 41  29 29 AB 31 29 00 A9 0B  |,.(NM$(A)).1)...|
00000380: D2 00 82 52 4A 3A 8B C3  28 4E 4D 24 28 41 29 29  |...RJ:..(NM$(A))|
00000390: B1 31 36 A7 4E 4D 24 28  4E 4D 29 B2 C8 28 4E 4D  |.16.NM$(NM)..(NM|
000003A0: 24 28 4E 4D 29 2C 31 36  29 00 DB 0B DC 00 82 3A  |$(NM),16)......:|
000003B0: 86 4A 25 28 31 33 2C 34  29 3A 42 24 B2 C8 28 4E  |.J%(13,4):B$..(N|
000003C0: 24 2C 32 30 29 3A 4A 57  24 B2 C8 28 4E 24 2C 31  |$,20):JW$..(N$,1|
000003D0: 30 29 3A 58 B2 BB 28 AB  54 49 29 00 F6 0B E6 00  |0):X..(.TI).....|
000003E0: 81 41 B2 31 A4 4E 4D 3A  53 43 24 28 41 29 B2 22  |.A.1.NM:SC$(A)."|
000003F0: 20 24 30 22 3A 82 00 07  0C F0 00 8D 31 31 35 30  | $0":.......1150|
00000400: 3A 57 58 B2 31 30 31 00  4F 0C FA 00 44 4B 24 B2  |:WX.101.O...DK$.|
00000410: 22 1D 1D 20 20 20 20 20  20 20 20 20 20 20 20 20  |"..             |
00000420: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000430: 20 20 20 20 20 20 20 20  22 3A 44 24 B2 42 24 AA  |        ":D$.B$.|
00000440: 44 4B 24 3A 45 24 B2 C8  28 4E 24 2C 31 35 29 00  |DK$:E$..(N$,15).|
00000450: 70 0C 04 01 48 44 B2 48  44 AA 31 3A 81 54 52 B2  |p...HD.HD.1:.TR.|
00000460: 31 A4 4E 4D 3A 8D 31 30  31 30 3A 8D 31 31 39 30  |1.NM:.1010:.1190|
00000470: 00 93 0C 0E 01 99 C8 28  4E 24 2C 35 29 A6 31 33  |.......(N$,5).13|
00000480: 29 22 1F 48 49 54 20 12  4B 92 20 54 4F 20 4B 45  |)".HIT .K. TO KE|
00000490: 45 50 22 00 C3 0C 18 01  99 C8 28 4E 24 2C 37 29  |EP".......(N$,7)|
000004A0: A6 31 32 29 22 48 49 54  20 12 43 92 20 54 4F 20  |.12)"HIT .C. TO |
000004B0: 43 48 41 4E 47 45 22 3A  8D 31 30 39 30 3A 44 43  |CHANGE":.1090:DC|
000004C0: B2 31 30 00 00 0D 1D 01  99 22 13 11 11 11 11 11  |.10......"......|
000004D0: 11 11 11 11 11 11 11 11  11 11 11 1D 20 20 20 20  |............    |
000004E0: 20 20 20 20 20 20 20 20  9C 50 52 45 53 53 20 51  |        .PRESS Q|
000004F0: 20 54 4F 20 51 55 49 54  22 3A 81 4B B2 31 A4 35  | TO QUIT":.K.1.5|
00000500: 00 30 0D 22 01 58 B2 B5  28 BB 28 31 29 AC 31 33  |.0.".X..(.(1).13|
00000510: 29 AA 31 3A 59 B2 B5 28  BB 28 31 29 AC 34 29 AA  |).1:Y..(.(1).4).|
00000520: 31 3A 8B 4A 25 28 58 2C  59 29 B2 31 A7 32 39 30  |1:.J%(X,Y).1.290|
00000530: 00 59 0D 2C 01 4A 25 28  58 2C 59 29 B2 31 3A 42  |.Y.,.J%(X,Y).1:B|
00000540: 34 B2 33 32 3A 43 52 B2  31 34 34 3A 97 37 38 31  |4.32:CR.144:.781|
00000550: 2C 58 3A 97 37 38 32 2C  59 00 84 0D 36 01 9E 34  |,X:.782,Y...6..4|
00000560: 39 33 33 33 3A 43 34 B2  C2 28 37 38 32 29 3A 41  |9333:C4..(782):A|
00000570: 34 B2 C2 28 37 38 31 29  3A 8B 58 B2 31 30 A7 42  |4..(781):.X.10.B|
00000580: 34 B2 34 38 00 97 0D 40  01 8B 59 B2 33 B0 59 B2  |4.48...@..Y.3.Y.|
00000590: 31 A7 43 52 B2 32 38 00  A5 0D 4A 01 8B 58 B2 31  |1.CR.28...J..X.1|
000005A0: A7 58 B2 31 34 00 B0 0D  54 01 8B 4B B1 35 A7 8E  |.X.14...T..K.5..|
000005B0: 00 E5 0D 5E 01 50 54 28  4B 29 B2 58 3A 53 54 28  |...^.PT(K).X:ST(|
000005C0: 4B 29 B2 59 3A 99 C8 28  4E 24 2C 44 43 29 A3 38  |K).Y:..(N$,DC).8|
000005D0: AC 4B AB 37 29 3B 3A 8D  38 33 30 3A 8B 48 24 B2  |.K.7);:.830:.H$.|
000005E0: 22 59 22 A7 8E 00 26 0E  68 01 82 3A 97 31 39 38  |"Y"...&.h..:.198|
000005F0: 2C 30 3A 99 44 24 3A 99  42 24 A3 31 33 29 22 1C  |,0:.D$:.B$.13)".|
00000600: 4B 45 45 50 20 4F 52 20  43 48 41 4E 47 45 3F 22  |KEEP OR CHANGE?"|
00000610: 3A 81 44 4B B2 31 A4 35  3A 8D 39 35 30 3A 8B 43  |:.DK.1.5:.950:.C|
00000620: 54 B3 52 52 A7 82 00 38  0E 72 01 44 43 B2 31 30  |T.RR...8.r.DC.10|
00000630: 3A 81 55 41 B2 31 A4 35  00 7A 0E 7C 01 8B 41 28  |:.UA.1.5.z.|..A(|
00000640: 55 41 29 B1 30 A7 4B B2  55 41 3A 41 34 B2 41 28  |UA).0.K.UA:A4.A(|
00000650: 55 41 29 3A 42 34 B2 42  28 55 41 29 3A 43 34 B2  |UA):B4.B(UA):C4.|
00000660: 43 28 55 41 29 3A 44 34  B2 33 32 3A 43 52 B2 43  |C(UA):D4.32:CR.C|
00000670: 52 28 55 41 29 3A 8D 38  33 30 00 B7 0E 86 01 82  |R(UA):.830......|
00000680: 3A 99 44 24 45 24 44 4B  24 3A 81 41 B2 31 A4 35  |:.D$E$DK$:.A.1.5|
00000690: 3A 41 28 41 29 B2 30 3A  42 28 41 29 B2 30 3A 43  |:A(A).0:B(A).0:C|
000006A0: 28 41 29 B2 30 3A 97 28  31 30 31 35 AA 41 29 2C  |(A).0:.(1015.A),|
000006B0: 50 54 28 41 29 3A 82 00  DB 0E 90 01 9E 34 39 32  |PT(A):.......492|
000006C0: 34 32 3A 81 41 B2 31 A4  35 3A 50 54 28 41 29 B2  |42:.A.1.5:PT(A).|
000006D0: C2 28 31 30 31 35 AA 41  29 3A 82 00 20 0F 9A 01  |.(1015.A):.. ...|
000006E0: 8B 50 54 28 35 29 AB 50  54 28 34 29 B2 31 A7 8B  |.PT(5).PT(4).1..|
000006F0: 50 54 28 34 29 AB 50 54  28 33 29 B2 31 A7 8B 50  |PT(4).PT(3).1..P|
00000700: 54 28 33 29 AB 50 54 28  32 29 B2 31 A7 8B 50 54  |T(3).PT(2).1..PT|
00000710: 28 32 29 AB 50 54 28 31  29 B2 31 A7 53 53 B2 31  |(2).PT(1).1.SS.1|
00000720: 00 5D 0F A4 01 8B 53 54  28 31 29 B2 53 54 28 32  |.]....ST(1).ST(2|
00000730: 29 A7 8B 53 54 28 32 29  B2 53 54 28 33 29 A7 8B  |)..ST(2).ST(3)..|
00000740: 53 54 28 33 29 B2 53 54  28 34 29 A7 8B 53 54 28  |ST(3).ST(4)..ST(|
00000750: 34 29 B2 53 54 28 35 29  A7 46 4C B2 31 00 9D 0F  |4).ST(5).FL.1...|
00000760: AE 01 9E 34 39 32 39 34  3A 58 45 B2 C2 28 31 30  |...49294:XE..(10|
00000770: 31 31 29 3A 5A 51 B2 C2  28 31 30 31 32 29 3A 5A  |11):ZQ..(1012):Z|
00000780: 24 B2 22 1D 1D 20 20 20  20 20 20 20 20 20 20 20  |$."..           |
00000790: 20 20 59 4F 55 20 4C 4F  53 54 21 21 22 00 CD 0F  |  YOU LOST!!"...|
000007A0: B8 01 8B 50 54 28 31 29  B2 50 54 28 32 29 A7 8B  |...PT(1).PT(2)..|
000007B0: 50 54 28 31 29 B2 50 54  28 33 29 A7 8B 50 54 28  |PT(1).PT(3)..PT(|
000007C0: 31 29 B2 50 54 28 34 29  A7 46 52 B2 31 00 FD 0F  |1).PT(4).FR.1...|
000007D0: C2 01 8B 50 54 28 35 29  B2 50 54 28 34 29 A7 8B  |...PT(5).PT(4)..|
000007E0: 50 54 28 35 29 B2 50 54  28 33 29 A7 8B 50 54 28  |PT(5).PT(3)..PT(|
000007F0: 35 29 B2 50 54 28 32 29  A7 46 52 B2 31 00 2C 10  |5).PT(2).FR.1.,.|
00000800: CC 01 8B 53 53 B2 31 A7  8B 46 4C B2 31 A7 8B 50  |...SS.1..FL.1..P|
00000810: 54 28 35 29 B2 31 34 A7  4D 4E B2 32 34 39 3A 5A  |T(5).14.MN.249:Z|
00000820: 24 B2 5A 24 28 36 29 3A  89 35 36 30 00 50 10 D6  |$.Z$(6):.560.P..|
00000830: 01 8B 53 53 B2 31 A7 8B  46 4C B2 31 A7 4D 4E B2  |..SS.1..FL.1.MN.|
00000840: 39 39 3A 5A 24 B2 5A 24  28 37 29 3A 89 35 36 30  |99:Z$.Z$(7):.560|
00000850: 00 6E 10 E0 01 8B 46 52  B2 31 A7 4D 4E B2 31 39  |.n....FR.1.MN.19|
00000860: 3A 5A 24 B2 5A 24 28 38  29 3A 89 35 36 30 00 92  |:Z$.Z$(8):.560..|
00000870: 10 EA 01 8B 5A 51 B2 34  A7 8B 46 52 B3 B1 31 A7  |....ZQ.4..FR..1.|
00000880: 4D 4E B2 39 3A 5A 24 B2  5A 24 28 39 29 3A 89 35  |MN.9:Z$.Z$(9):.5|
00000890: 36 30 00 B0 10 F4 01 8B  46 4C B2 31 A7 4D 4E B2  |60......FL.1.MN.|
000008A0: 37 3A 5A 24 B2 5A 24 28  31 30 29 3A 89 35 36 30  |7:Z$.Z$(10):.560|
000008B0: 00 CE 10 FE 01 8B 53 53  B2 31 A7 4D 4E B2 34 3A  |......SS.1.MN.4:|
000008C0: 5A 24 B2 5A 24 28 31 31  29 3A 89 35 36 30 00 EC  |Z$.Z$(11):.560..|
000008D0: 10 08 02 8B 5A 51 B2 33  A7 4D 4E B2 33 3A 5A 24  |....ZQ.3.MN.3:Z$|
000008E0: B2 5A 24 28 31 32 29 3A  89 35 36 30 00 0A 11 12  |.Z$(12):.560....|
000008F0: 02 8B 5A 51 B2 32 A7 4D  4E B2 32 3A 5A 24 B2 5A  |..ZQ.2.MN.2:Z$.Z|
00000900: 24 28 31 33 29 3A 89 35  36 30 00 2B 11 1C 02 8B  |$(13):.560.+....|
00000910: 5A 51 B2 31 A7 8B 58 45  B1 B2 31 31 A7 5A 24 B2  |ZQ.1..XE..11.Z$.|
00000920: 5A 24 28 31 34 29 3A 4D  4E B2 30 00 4A 11 26 02  |Z$(14):MN.0.J.&.|
00000930: 8B CA 28 5A 24 2C 32 30  2C 31 29 B2 22 4C 22 A7  |..(Z$,20,1)."L".|
00000940: 51 50 B2 31 3A 4D 4E B2  AB 31 00 5F 11 30 02 53  |QP.1:MN..1._.0.S|
00000950: 43 28 54 52 29 B2 53 43  28 54 52 29 AA 4D 4E 00  |C(TR).SC(TR).MN.|
00000960: 85 11 3A 02 44 53 B2 31  36 3A 8D 31 30 39 30 3A  |..:.DS.16:.1090:|
00000970: 99 22 9C 22 3A 8B 51 50  B2 31 A7 99 22 90 22 3A  |.".":.QP.1..".":|
00000980: 44 53 B2 33 32 00 C5 11  44 02 81 41 B2 31 A4 35  |DS.32...D..A.1.5|
00000990: 3A 99 42 24 5A 24 3A 57  57 B2 32 30 3A 81 42 B2  |:.B$Z$:WW.20:.B.|
000009A0: 31 33 35 A4 32 34 33 A9  31 32 3A 8B 51 50 B2 31  |135.243.12:.QP.1|
000009B0: A7 81 42 B2 32 34 33 A4  31 33 35 A9 AB 31 32 3A  |..B.243.135..12:|
000009C0: 57 57 B2 33 32 00 08 12  4E 02 97 43 4C AA 34 2C  |WW.32...N..CL.4,|
000009D0: 44 53 AA 31 3A 97 43 4C  AA 31 2C 42 3A 97 43 4C  |DS.1:.CL.1,B:.CL|
000009E0: 2C 42 3A 81 43 B2 31 A4  57 57 3A 82 3A 82 3A 97  |,B:.C.1.WW:.:.:.|
000009F0: 43 4C AA 34 2C 44 53 3A  99 44 24 3A 81 44 B2 31  |CL.4,DS:.D$:.D.1|
00000A00: A4 31 30 30 3A 82 3A 82  00 2D 12 58 02 81 58 B2  |.100:.:..-.X..X.|
00000A10: 31 A4 31 33 3A 81 59 B2  31 A4 34 3A 4A 25 28 58  |1.13:.Y.1.4:J%(X|
00000A20: 2C 59 29 B2 30 3A 82 3A  82 3A 4B B2 30 00 72 12  |,Y).0:.:.:K.0.r.|
00000A30: 62 02 81 41 B2 31 A4 35  3A 50 54 28 41 29 B2 30  |b..A.1.5:PT(A).0|
00000A40: 3A 53 54 28 41 29 B2 30  3A 82 3A 53 53 B2 30 3A  |:ST(A).0:.:SS.0:|
00000A50: 46 4C B2 30 3A 5A 51 B2  30 3A 46 52 B2 30 3A 58  |FL.0:ZQ.0:FR.0:X|
00000A60: 45 B2 30 3A 51 50 B2 30  3A 43 54 B2 30 3A 55 41  |E.0:QP.0:CT.0:UA|
00000A70: B2 30 00 92 12 6C 02 81  41 B2 31 A4 31 35 30 30  |.0...l..A.1.1500|
00000A80: 3A 82 3A 48 24 B2 22 22  3A 8B 4D 4E B3 32 A7 38  |:.:H$."":.MN.2.8|
00000A90: 32 30 00 C2 12 76 02 8D  31 31 39 30 3A 97 35 33  |20...v..1190:.53|
00000AA0: 32 38 30 2C 32 3A 99 22  13 22 A3 31 32 29 22 12  |280,2:.".".12)".|
00000AB0: 1F 48 49 2D 4C 4F 20 42  4F 4E 55 53 20 52 4F 55  |.HI-LO BONUS ROU|
00000AC0: 4E 44 00 D0 12 80 02 8B  48 24 B2 22 59 22 A7 8E  |ND......H$."Y"..|
00000AD0: 00 0A 13 8A 02 8D 31 30  39 30 3A 99 22 11 11 11  |......1090:."...|
00000AE0: 11 1D 1D 1D 1D 1F 44 4F  20 59 4F 55 20 57 41 4E  |......DO YOU WAN|
00000AF0: 54 20 54 4F 20 50 4C 41  59 20 42 4F 4E 55 53 20  |T TO PLAY BONUS |
00000B00: 28 12 59 92 2F 12 4E 92  29 3F 00 1D 13 94 02 A1  |(.Y./.N.)?......|
00000B10: 48 24 3A 8B 48 24 B2 22  22 A7 36 36 30 00 2D 13  |H$:.H$."".660.-.|
00000B20: 9E 02 8B 48 24 B2 22 4E  22 A7 38 32 30 00 3E 13  |...H$."N".820.>.|
00000B30: A8 02 8B 48 24 B3 B1 22  59 22 A7 36 33 30 00 65  |...H$.."Y".630.e|
00000B40: 13 B2 02 44 43 B2 31 30  3A 8D 36 33 30 3A 8D 31  |...DC.10:.630:.1|
00000B50: 30 39 30 3A 4B B2 32 3A  8D 32 39 30 3A 4B B2 34  |090:K.2:.290:K.4|
00000B60: 3A 8D 32 39 30 00 AE 13  BC 02 8B B6 28 50 54 28  |:.290.......(PT(|
00000B70: 32 29 AB 50 54 28 34 29  29 B2 31 B0 50 54 28 32  |2).PT(4)).1.PT(2|
00000B80: 29 AB 50 54 28 34 29 B2  30 A7 51 50 B2 31 3A 5A  |).PT(4).0.QP.1:Z|
00000B90: 24 B2 22 1D 1D 20 20 20  20 20 20 20 20 20 20 20  |$."..           |
00000BA0: 20 59 4F 55 20 4C 4F 53  45 20 24 31 21 22 00 C2  | YOU LOSE $1!"..|
00000BB0: 13 C6 02 8B 51 50 B2 31  A7 42 54 B2 31 3A 89 38  |....QP.1.BT.1:.8|
00000BC0: 30 30 00 E4 13 D0 02 99  C8 28 4E 24 2C 31 37 29  |00.......(N$,17)|
00000BD0: A3 31 33 29 22 12 1F 50  41 59 4F 46 46 20 49 53  |.13)"..PAYOFF IS|
00000BE0: 20 32 3A 31 00 F2 13 DA  02 4D 4E 24 B2 C4 28 4D  | 2:1.....MN$..(M|
00000BF0: 4E 29 00 2F 14 E4 02 99  C8 28 4E 24 2C 31 39 29  |N)./.....(N$,19)|
00000C00: A3 36 29 22 45 4E 54 45  52 20 42 45 54 20 42 45  |.6)"ENTER BET BE|
00000C10: 54 57 45 45 4E 20 24 31  20 41 4E 44 20 24 22 C9  |TWEEN $1 AND $".|
00000C20: 28 4D 4E 24 2C C3 28 4D  4E 24 29 AB 31 29 3B 00  |(MN$,.(MN$).1);.|
00000C30: 45 14 EE 02 85 4A 41 24  3A 42 54 B2 B5 28 C5 28  |E....JA$:BT..(.(|
00000C40: 4A 41 24 29 29 00 70 14  F8 02 99 22 91 91 91 91  |JA$)).p...."....|
00000C50: 91 22 3A 81 41 B2 31 A4  36 3A 99 44 4B 24 3A 82  |.":.A.1.6:.DK$:.|
00000C60: 3A 8B 42 54 B3 31 B0 42  54 B1 4D 4E A7 37 34 30  |:.BT.1.BT.MN.740|
00000C70: 00 A7 14 02 03 44 43 B2  31 33 3A 4B B2 33 3A 8D  |.....DC.13:K.3:.|
00000C80: 32 39 30 3A 5A 24 B2 22  1D 1D 20 20 20 20 20 20  |290:Z$."..      |
00000C90: 20 20 20 20 20 20 20 59  4F 55 20 4C 4F 53 45 21  |       YOU LOSE!|
00000CA0: 21 22 3A 51 50 B2 31 00  E5 14 0C 03 8B 28 50 54  |!":QP.1......(PT|
00000CB0: 28 33 29 B3 50 54 28 34  29 AF 50 54 28 33 29 B1  |(3).PT(4).PT(3).|
00000CC0: 50 54 28 32 29 29 B0 28  50 54 28 33 29 B1 50 54  |PT(2)).(PT(3).PT|
00000CD0: 28 34 29 AF 50 54 28 33  29 B3 50 54 28 32 29 29  |(4).PT(3).PT(2))|
00000CE0: A7 51 50 B2 30 00 21 15  16 03 8B 51 50 B2 30 A7  |.QP.0.!....QP.0.|
00000CF0: 5A 24 B2 22 1D 1D 20 20  20 20 20 20 20 20 20 20  |Z$."..          |
00000D00: 20 20 20 59 4F 55 20 57  49 4E 21 21 21 22 3A 53  |   YOU WIN!!!":S|
00000D10: 43 28 54 52 29 B2 53 43  28 54 52 29 AA 32 AC 42  |C(TR).SC(TR).2.B|
00000D20: 54 00 42 15 20 03 48 24  B2 22 22 3A 8B 51 50 B2  |T.B. .H$."":.QP.|
00000D30: 31 A7 53 43 28 54 52 29  B2 53 43 28 54 52 29 AB  |1.SC(TR).SC(TR).|
00000D40: 42 54 00 50 15 2A 03 4D  4E B2 30 3A 89 35 37 30  |BT.P.*.MN.0:.570|
00000D50: 00 5D 15 34 03 82 54 52  3A 89 32 36 30 00 67 15  |.].4..TR:.260.g.|
00000D60: 3E 03 57 5A B2 57 58 00  8E 15 48 03 57 58 B2 B5  |>.WZ.WX...H.WX..|
00000D70: 28 BB 28 31 29 AC 31 32  38 29 AA 32 35 3A 8B B6  |(.(1).128).25:..|
00000D80: 28 57 5A AB 57 58 29 B3  33 30 A7 38 34 30 00 A8  |(WZ.WX).30.840..|
00000D90: 15 52 03 57 42 B2 57 58  AB 36 34 3A 8B 57 42 B3  |.R.WB.WX.64:.WB.|
00000DA0: 32 30 A7 57 42 B2 32 30  00 F0 15 5C 03 58 31 B2  |20.WB.20...\.X1.|
00000DB0: 41 34 3A 58 32 B2 42 34  3A 58 33 B2 43 34 3A 58  |A4:X2.B4:X3.C4:X|
00000DC0: 34 B2 43 52 3A 41 34 B2  31 36 36 3A 42 34 B2 31  |4.CR:A4.166:B4.1|
00000DD0: 36 36 3A 43 34 B2 31 36  36 3A 44 34 B2 31 36 36  |66:C4.166:D4.166|
00000DE0: 3A 43 52 B2 32 38 3A 8B  55 41 B1 30 A7 38 38 30  |:CR.28:.UA.0.880|
00000DF0: 00 F9 15 66 03 8D 39 32  30 00 38 16 70 03 81 41  |...f..920.8.p..A|
00000E00: B2 31 A4 33 3A 97 56 4C  2C 31 32 3A 97 43 4C AA  |.1.3:.VL,12:.CL.|
00000E10: 31 2C 57 42 3A 97 43 4C  2C 57 58 3A 97 43 4C AA  |1,WB:.CL,WX:.CL.|
00000E20: 34 2C 31 37 3A 99 C8 28  4E 24 2C 44 43 AA 31 29  |4,17:..(N$,DC.1)|
00000E30: A3 38 AC 4B AB 36 29 3B  00 68 16 7A 03 8D 39 33  |.8.K.6);.h.z..93|
00000E40: 30 3A 81 42 B2 31 A4 31  30 30 3A 82 3A 97 43 4C  |0:.B.1.100:.:.CL|
00000E50: AA 34 2C 31 36 3A 57 42  B2 57 42 AA 33 3A 8B 41  |.4,16:WB.WB.3:.A|
00000E60: B2 31 A7 43 52 B2 33 30  00 77 16 84 03 8B 41 B2  |.1.CR.30.w....A.|
00000E70: 32 A7 43 52 B2 33 31 00  B6 16 8E 03 82 3A 41 34  |2.CR.31......:A4|
00000E80: B2 58 31 3A 42 34 B2 58  32 3A 43 34 B2 58 33 3A  |.X1:B4.X2:C4.X3:|
00000E90: 44 34 B2 33 32 3A 43 52  B2 58 34 3A 99 C8 28 4E  |D4.32:CR.X4:..(N|
00000EA0: 24 2C 44 43 AA 31 29 A3  38 AC 4B AB 36 29 3B 3A  |$,DC.1).8.K.6);:|
00000EB0: 8D 39 33 30 3A 8E 00 FB  16 98 03 99 22 90 B0 C0  |.930:......."...|
00000EC0: C0 C0 C0 AE 11 9D 9D 9D  9D 9D 9D DD 20 20 20 20  |............    |
00000ED0: DD 11 9D 9D 9D 9D 9D 9D  DD 20 20 20 20 DD 11 9D  |.........    ...|
00000EE0: 9D 9D 9D 9D 9D DD 20 20  20 20 DD 11 9D 9D 9D 9D  |......    ......|
00000EF0: 9D 9D AD C0 C0 C0 C0 BD  22 3A 8E 00 36 17 A2 03  |........":..6...|
00000F00: 99 C7 28 43 52 29 C7 28  41 34 29 C7 28 42 34 29  |..(CR).(A4).(B4)|
00000F10: C7 28 44 34 29 C7 28 44  34 29 22 11 9D 9D 9D 9D  |.(D4).(D4)".....|
00000F20: 22 C7 28 44 34 29 C7 28  43 34 29 C7 28 43 34 29  |".(D4).(C4).(C4)|
00000F30: C7 28 44 34 29 3B 00 59  17 AC 03 99 22 11 9D 9D  |.(D4);.Y...."...|
00000F40: 9D 9D 22 C7 28 44 34 29  C7 28 44 34 29 C7 28 41  |..".(D4).(D4).(A|
00000F50: 34 29 C7 28 42 34 29 3A  8E 00 91 17 B6 03 99 45  |4).(B4):.......E|
00000F60: 24 A6 44 4B AC 38 AB 34  29 22 1E 3F 22 3A 81 41  |$.DK.8.4)".?":.A|
00000F70: B2 31 A4 31 30 30 3A 82  3A 99 45 24 A6 44 4B AC  |.1.100:.:.E$.DK.|
00000F80: 38 AB 34 29 22 20 22 3A  81 41 B2 31 A4 35 30 3A  |8.4)" ":.A.1.50:|
00000F90: 82 00 A4 17 C0 03 A1 48  24 3A 8B 48 24 B2 22 22  |.......H$:.H$.""|
00000FA0: A7 39 35 30 00 B7 17 C5  03 8B 48 24 B2 22 51 22  |.950......H$."Q"|
00000FB0: A7 8D 36 30 30 30 30 00  C5 17 CA 03 8B 48 24 B2  |..60000......H$.|
00000FC0: 22 4B 22 A7 8E 00 D8 17  D4 03 8B C6 28 48 24 29  |"K".........(H$)|
00000FD0: B3 B1 36 37 A7 39 35 30  00 20 18 DE 03 43 54 B2  |..67.950. ...CT.|
00000FE0: 43 54 AA 31 3A 8D 32 39  30 3A 50 54 28 44 4B 29  |CT.1:.290:PT(DK)|
00000FF0: B2 58 3A 53 54 28 44 4B  29 B2 59 3A 42 28 44 4B  |.X:ST(DK).Y:B(DK|
00001000: 29 B2 42 34 3A 43 28 44  4B 29 B2 43 34 3A 41 28  |).B4:C(DK).C4:A(|
00001010: 44 4B 29 B2 41 34 3A 43  52 28 44 4B 29 B2 43 52  |DK).A4:CR(DK).CR|
00001020: 00 60 18 E8 03 43 52 B2  33 30 3A 41 34 B2 31 36  |.`...CR.30:A4.16|
00001030: 36 3A 42 34 B2 31 36 36  3A 43 34 B2 31 36 36 3A  |6:B4.166:C4.166:|
00001040: 44 34 B2 31 36 36 3A 99  C8 28 4E 24 2C 31 31 29  |D4.166:..(N$,11)|
00001050: A3 38 AC 44 4B AB 36 29  3B 3A 8D 39 33 30 3A 8E  |.8.DK.6);:.930:.|
00001060: 00 9E 18 F2 03 97 35 33  32 38 30 2C 38 3A 8D 31  |......53280,8:.1|
00001070: 31 39 30 3A 99 22 11 11  22 A3 31 36 29 22 90 12  |190:."..".16)"..|
00001080: 48 41 4E 44 22 48 44 3A  4D 44 B2 28 28 33 34 AB  |HAND"HD:MD.((34.|
00001090: C3 28 4E 4D 24 28 54 52  29 29 29 AD 32 29 00 D7  |.(NM$(TR))).2)..|
000010A0: 18 FC 03 99 C8 28 4E 24  2C 36 29 A3 4D 44 29 22  |.....(N$,6).MD)"|
000010B0: 1E 12 22 4E 4D 24 28 54  52 29 22 20 49 53 20 55  |.."NM$(TR)" IS U|
000010C0: 50 22 3A 3A 99 A3 31 35  29 22 11 11 12 1C 57 49  |P"::..15)"....WI|
000010D0: 4E 4E 49 4E 47 53 3A 00  FE 18 06 04 81 44 B2 31  |NNINGS:......D.1|
000010E0: A4 4E 4D 3A 4D 44 B2 C3  28 4E 4D 24 28 44 29 29  |.NM:MD..(NM$(D))|
000010F0: 3A 45 B2 C3 28 C4 28 53  43 28 44 29 29 29 00 27  |:E..(.(SC(D))).'|
00001100: 19 10 04 99 22 11 11 22  A3 28 33 35 AB 4D 44 AB  |...."..".(35.MD.|
00001110: 45 29 AD 32 29 4E 4D 24  28 44 29 22 20 3D 22 53  |E).2)NM$(D)" ="S|
00001120: 43 24 28 44 29 3A 82 00  4F 19 1A 04 81 41 B2 31  |C$(D):..O....A.1|
00001130: A4 34 3A 81 42 B2 30 A4  31 35 3A 97 35 33 32 38  |.4:.B.0.15:.5328|
00001140: 30 2C 42 3A 81 43 B2 31  A4 35 30 3A 82 3A 82 00  |0,B:.C.1.50:.:..|
00001150: 61 19 24 04 82 3A 97 35  33 32 38 30 2C 31 34 3A  |a.$..:.53280,14:|
00001160: 8E 00 92 19 2E 04 9E 34  39 33 36 34 3A 81 48 B2  |.......49364:.H.|
00001170: 31 A4 33 3A 81 49 B2 30  A4 31 35 3A 97 35 33 32  |1.3:.I.0.15:.532|
00001180: 38 30 2C 49 3A 81 4A B2  31 A4 35 30 3A 82 3A 82  |80,I:.J.1.50:.:.|
00001190: 3A 82 00 A1 19 38 04 97  35 33 32 38 30 2C 34 3A  |:....8..53280,4:|
000011A0: 8E 00 D7 19 42 04 4D 44  B2 C3 28 4E 4D 24 28 54  |....B.MD..(NM$(T|
000011B0: 52 29 29 3A 99 C8 28 4E  24 2C 33 29 A3 28 32 35  |R)):..(N$,3).(25|
000011C0: AB 4D 44 29 AD 32 29 22  12 1C 22 4E 4D 24 28 54  |.MD).2)".."NM$(T|
000011D0: 52 29 22 27 53 22 3B 00  ED 19 4C 04 53 43 24 28  |R)"'S";...L.SC$(|
000011E0: 54 52 29 B2 C4 28 53 43  28 54 52 29 29 00 14 1A  |TR)..(SC(TR))...|
000011F0: 56 04 53 4D 24 B2 22 20  22 3A 8B C8 28 53 43 24  |V.SM$." ":..(SC$|
00001200: 28 54 52 29 2C 31 29 B2  22 2D 22 A7 53 4D 24 B2  |(TR),1)."-".SM$.|
00001210: 22 20 2D 22 00 38 1A 60  04 53 43 24 28 54 52 29  |" -".8.`.SC$(TR)|
00001220: B2 C9 28 53 43 24 28 54  52 29 2C C3 28 53 43 24  |..(SC$(TR),.(SC$|
00001230: 28 54 52 29 29 AB 31 29  00 5A 1A 6A 04 53 43 24  |(TR)).1).Z.j.SC$|
00001240: 28 54 52 29 B2 53 4D 24  AA 22 24 22 AA 53 43 24  |(TR).SM$."$".SC$|
00001250: 28 54 52 29 AA 22 92 20  20 22 00 75 1A 74 04 99  |(TR).".  ".u.t..|
00001260: 22 20 57 49 4E 4E 49 4E  47 53 3A 22 53 43 24 28  |" WINNINGS:"SC$(|
00001270: 54 52 29 3A 8E 00 A6 1A  7E 04 8D 31 31 39 30 3A  |TR):....~..1190:|
00001280: 99 22 11 11 1D 20 20 20  4D 41 58 2E 20 23 20 4F  |."...   MAX. # O|
00001290: 46 20 44 52 41 57 20 43  41 52 44 53 20 28 31 20  |F DRAW CARDS (1 |
000012A0: 54 4F 20 35 29 3F 00 BC  1A 88 04 A1 52 52 24 3A  |TO 5)?......RR$:|
000012B0: 8B 52 52 24 B2 22 22 A7  31 31 36 30 00 DA 1A 92  |.RR$."".1160....|
000012C0: 04 52 52 B2 C5 28 52 52  24 29 3A 8B 52 52 B3 31  |.RR..(RR$):.RR.1|
000012D0: B0 52 52 B1 35 A7 31 31  35 30 00 E0 1A 9C 04 8E  |.RR.5.1150......|
000012E0: 00 FB 1A A6 04 99 22 93  22 3A 97 35 33 32 38 31  |......".":.53281|
000012F0: 2C 31 3A 9E 34 39 31 35  32 3A 8E 00 25 1B B0 04  |,1:.49152:..%...|
00001300: 83 32 2C 31 34 34 2C 33  35 2C 2A 2A 2A 20 56 49  |.2,144,35,*** VI|
00001310: 44 45 4F 20 50 4F 4B 45  52 20 2A 2A 2A 2C 33 2C  |DEO POKER ***,3,|
00001320: 32 38 2C 32 36 00 51 1B  BA 04 83 43 4F 50 59 52  |28,26.Q....COPYR|
00001330: 49 47 48 54 20 31 39 38  34 2D 31 39 38 37 20 42  |IGHT 1984-1987 B|
00001340: 59 20 41 2E 20 4A 2E 20  4B 57 49 54 4F 57 53 4B  |Y A. J. KWITOWSK|
00001350: 49 00 9F 1B C4 04 83 35  2C 33 30 2C 33 32 2C 55  |I......5,30,32,U|
00001360: 50 20 54 4F 20 34 20 43  41 4E 20 50 4C 41 59 20  |P TO 4 CAN PLAY |
00001370: 2C 37 2C 31 35 34 2C 33  35 2C 22 48 49 2D 4C 4F  |,7,154,35,"HI-LO|
00001380: 20 42 4F 4E 55 53 20 4F  50 54 49 4F 4E 20 4F 4E  | BONUS OPTION ON|
00001390: 20 57 49 4E 53 20 4F 56  45 52 20 24 31 20 22 00  | WINS OVER $1 ".|
000013A0: DC 1B CE 04 83 31 30 2C  32 38 2C 33 32 2C 59 4F  |.....10,28,32,YO|
000013B0: 55 20 57 49 4E 20 41 53  20 46 4F 4C 4C 4F 57 53  |U WIN AS FOLLOWS|
000013C0: 2C 31 32 2C 33 31 2C 33  30 2C 52 4F 59 41 4C 20  |,12,31,30,ROYAL |
000013D0: 46 4C 55 53 48 20 3D 20  24 32 35 30 00 1B 1C D8  |FLUSH = $250....|
000013E0: 04 83 31 33 2C 33 31 2C  32 38 2C 53 54 52 41 49  |..13,31,28,STRAI|
000013F0: 47 48 54 20 46 4C 55 53  48 20 3D 20 24 31 30 30  |GHT FLUSH = $100|
00001400: 2C 31 34 2C 33 31 2C 32  36 2C 34 20 4F 46 20 41  |,14,31,26,4 OF A|
00001410: 20 4B 49 4E 44 20 3D 20  24 32 30 00 4E 1C E2 04  | KIND = $20.N...|
00001420: 83 31 35 2C 33 31 2C 32  34 2C 46 55 4C 4C 20 48  |.15,31,24,FULL H|
00001430: 4F 55 53 45 20 3D 20 24  31 30 2C 31 36 2C 33 31  |OUSE = $10,16,31|
00001440: 2C 32 32 2C 46 4C 55 53  48 20 3D 20 24 38 00 8A  |,22,FLUSH = $8..|
00001450: 1C EC 04 83 31 37 2C 33  31 2C 32 30 2C 22 53 54  |....17,31,20,"ST|
00001460: 52 41 49 47 48 54 20 3D  20 24 35 20 22 2C 31 38  |RAIGHT = $5 ",18|
00001470: 2C 33 31 2C 31 38 2C 22  33 20 4F 46 20 41 20 4B  |,31,18,"3 OF A K|
00001480: 49 4E 44 20 3D 20 24 34  20 22 00 C5 1C F6 04 83  |IND = $4 "......|
00001490: 31 39 2C 33 31 2C 31 36  2C 32 20 50 41 49 52 20  |19,31,16,2 PAIR |
000014A0: 3D 20 24 33 2C 32 30 2C  33 31 2C 31 34 2C 50 41  |= $3,20,31,14,PA|
000014B0: 49 52 20 4F 46 20 4A 41  43 4B 53 20 26 20 55 50  |IR OF JACKS & UP|
000014C0: 20 3D 20 24 31 00 E6 1C  00 05 83 32 33 2C 31 34  | = $1......23,14|
000014D0: 34 2C 39 2C 45 41 43 48  20 48 41 4E 44 20 43 4F  |4,9,EACH HAND CO|
000014E0: 53 54 53 20 24 31 00 26  1D 60 EA 99 22 13 11 11  |STS $1.&.`.."...|
000014F0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 1D 20  |............... |
00001500: 9C 41 52 45 20 59 4F 55  20 53 55 52 45 20 59 4F  |.ARE YOU SURE YO|
00001510: 55 20 57 41 4E 54 20 54  4F 20 51 55 49 54 3F 20  |U WANT TO QUIT? |
00001520: 28 59 2F 4E 29 22 00 46  1D 6A EA 41 B2 C2 28 32  |(Y/N)".F.j.A..(2|
00001530: 30 33 29 3A 8B 41 B3 B1  32 35 AF 41 B3 B1 33 39  |03):.A..25.A..39|
00001540: A7 36 30 30 31 30 00 7D  1D 74 EA 8B 41 B2 33 39  |.60010.}.t..A.39|
00001550: A7 99 22 91 1D 20 20 20  20 20 20 20 20 20 20 20  |.."..           |
00001560: 20 50 52 45 53 53 20 51  20 54 4F 20 51 55 49 54  | PRESS Q TO QUIT|
00001570: 20 20 20 20 20 20 20 20  20 20 22 3A 8E 00 B6 1D  |          ":....|
00001580: 7E EA 9F 31 35 2C 38 2C  31 35 2C 22 52 30 3A 48  |~..15,8,15,"R0:H|
00001590: 45 4C 4C 4F 20 43 4F 4E  4E 45 43 54 3D 48 45 4C  |ELLO CONNECT=HEL|
000015A0: 4C 4F 20 43 4F 4E 4E 45  43 54 22 3A 84 31 35 2C  |LO CONNECT":.15,|
000015B0: 45 52 3A A0 31 35 00 C4  1D 88 EA 8B 45 52 B3 B1  |ER:.15......ER..|
000015C0: 36 33 A7 80 00 DB 1D 92  EA 93 22 48 45 4C 4C 4F  |63........"HELLO|
000015D0: 20 43 4F 4E 4E 45 43 54  22 2C 38 00 00 00        | CONNECT",8...  |

..$....X.0.X.1:."VIDEO POKER.ML",8,1.A..
..53280,4:.1190:CL.54272:VL.CL.24:.Z$(15
):.A.CL.VL:.A,0:......N$."..............
...........":G$."                    ":.
VL,8...(..A.1.15:.B,C,D,Z$(A):E..((40.C(
Z$(A))).2):F.40.C(Z$(A)).E.2...2..F.0.F.
0...<..A.5.Z$(A).Z$(A).G(58).:.F.Z$(A).H
(G$,E).Z$(A).H(G$,F):.G(C);:.198,..\.P..
G.1.38:.H(N$,B)"."I(Z$(A),G).|.U..(B(198
)..).(A.2).A.15:G.38...Z.TN.32:T1.17:.A.
2.A.4.A.15.TN.16:T1.33...D..CL,128:.CL.1
,D:.CL.4,TN:.H(I(Z$(A),G),1)." ".130...N
..H(I(Z$(2),G),1)."C".130...X..CL.5,136:
.CL.6,136:.CL.4,T1.+....:.A.2..1070.J...
Z$(A).J(Z$(A),4,28):Z$(A)."...".Z$(A):.:
.CL.4,0:.A.1.100:.......1190:.198,0:.H(N
$,5).6)".HOW MANY PLAYERS (1 TO 4)?... .
.S$:.S$."".160.R...NM.E(S$):.NM.1.NM.4.1
50......1190:.A.1.NM:.".......NAME OF PL
AYER"A"= .";:.NM$(A)......NM$(A)."".180.
\....RJ.1.C(NM$(A)):.I(NM$(A),1).G(64).I
(NM$(A),1).G(91).210.}.H.NM$(A).H(NM$(A)
,C(NM$(A)).1)...R..RJ:.C(NM$(A)).16.NM$(
NM).H(NM$(NM),16)......:.J%(13,4):B$.H(N
$,20):JW$.H(N$,10):X..(.TI)......A.1.NM:
SC$(A)." $0":.......1150:WX.101.O...DK$.
"..                                     
":D$.B$.DK$:E$.H(N$,15).P...HD.HD.1:.TR.
1.NM:.1010:.1190......H(N$,5).13)".HIT .
K. TO KEEP".C....H(N$,7).12)"HIT .C. TO 
CHANGE":.1090:DC.10......"..............
....            .PRESS Q TO QUIT":.K.1.5
.0.".X..(.(1).13).1:Y..(.(1).4).1:.J%(X,
Y).1.290.Y.,.J%(X,Y).1:B4.32:CR.144:.781
,X:.782,Y...6..49333:C4.B(782):A4.B(781)
:.X.10.B4.48...@..Y.3.Y.1.CR.28...J..X.1
.X.14...T..K.5.....^.PT(K).X:ST(K).Y:.H(
N$,DC).8.K.7);:.830:.H$."Y"...&.H..:.198
,0:.D$:.B$.13)".KEEP OR CHANGE?":.DK.1.5
:.950:.CT.RR...8.R.DC.10:.UA.1.5.Z.|..A(
UA).0.K.UA:A4.A(UA):B4.B(UA):C4.C(UA):D4
.32:CR.CR(UA):.830......:.D$E$DK$:.A.1.5
:A(A).0:B(A).0:C(A).0:.(1015.A),PT(A):..
.....49242:.A.1.5:PT(A).B(1015.A):.. ...
.PT(5).PT(4).1..PT(4).PT(3).1..PT(3).PT(
2).1..PT(2).PT(1).1.SS.1.]....ST(1).ST(2
)..ST(2).ST(3)..ST(3).ST(4)..ST(4).ST(5)
.FL.1......49294:XE.B(1011):ZQ.B(1012):Z
$."..             YOU LOST!!".M....PT(1)
.PT(2)..PT(1).PT(3)..PT(1).PT(4).FR.1...
B..PT(5).PT(4)..PT(5).PT(3)..PT(5).PT(2)
.FR.1.,.L..SS.1..FL.1..PT(5).14.MN.249:Z
$.Z$(6):.560.P.V..SS.1..FL.1.MN.99:Z$.Z$
(7):.560.N....FR.1.MN.19:Z$.Z$(8):.560..
....ZQ.4..FR..1.MN.9:Z$.Z$(9):.560......
FL.1.MN.7:Z$.Z$(10):.560.N....SS.1.MN.4:
Z$.Z$(11):.560......ZQ.3.MN.3:Z$.Z$(12):
.560......ZQ.2.MN.2:Z$.Z$(13):.560.+....
ZQ.1..XE..11.Z$.Z$(14):MN.0.J.&..J(Z$,20
,1)."L".QP.1:MN..1._.0.SC(TR).SC(TR).MN.
..:.DS.16:.1090:.".":.QP.1..".":DS.32.E.
D..A.1.5:.B$Z$:WW.20:.B.135.243.12:.QP.1
..B.243.135..12:WW.32...N..CL.4,DS.1:.CL
.1,B:.CL,B:.C.1.WW:.:.:.CL.4,DS:.D$:.D.1
.100:.:..-.X..X.1.13:.Y.1.4:J%(X,Y).0:.:
.:K.0.R.B..A.1.5:PT(A).0:ST(A).0:.:SS.0:
FL.0:ZQ.0:FR.0:XE.0:QP.0:CT.0:UA.0...L..
A.1.1500:.:H$."":.MN.2.820.B.V..1190:.53
280,2:.".".12)"..HI-LO BONUS ROUND.P....
H$."Y"........1090:.".........DO YOU WAN
T TO PLAY BONUS (.Y./.N.)?......H$:.H$."
".660.-....H$."N".820.>....H$.."Y".630.E
...DC.10:.630:.1090:K.2:.290:K.4:.290...
....(PT(2).PT(4)).1.PT(2).PT(4).0.QP.1:Z
$."..            YOU LOSE $1!".B.F..QP.1
.BT.1:.800...P..H(N$,17).13)"..PAYOFF IS
 2:1...Z.MN$.D(MN)./....H(N$,19).6)"ENTE
R BET BETWEEN $1 AND $"I(MN$,C(MN$).1);.
E....JA$:BT..(E(JA$)).P....".....":.A.1.
6:.DK$:.:.BT.1.BT.MN.740.....DC.13:K.3:.
290:Z$."..             YOU LOSE!!":QP.1.
.....(PT(3).PT(4).PT(3).PT(2)).(PT(3).PT
(4).PT(3).PT(2)).QP.0.!....QP.0.Z$."..  
           YOU WIN!!!":SC(TR).SC(TR).2.B
T.B. .H$."":.QP.1.SC(TR).SC(TR).BT.P.*.M
N.0:.570.].4..TR:.260.G.>.WZ.WX...H.WX..
(.(1).128).25:..(WZ.WX).30.840...R.WB.WX
.64:.WB.20.WB.20...\.X1.A4:X2.B4:X3.C4:X
4.CR:A4.166:B4.166:C4.166:D4.166:CR.28:.
UA.0.880...F..920.8.P..A.1.3:.VL,12:.CL.
1,WB:.CL,WX:.CL.4,17:.H(N$,DC.1).8.K.6);
.H.Z..930:.B.1.100:.:.CL.4,16:WB.WB.3:.A
.1.CR.30.W....A.2.CR.31......:A4.X1:B4.X
2:C4.X3:D4.32:CR.X4:.H(N$,DC.1).8.K.6);:
.930:......."...............    ........
.    .........    ..............":..6...
.G(CR)G(A4)G(B4)G(D4)G(D4)"....."G(D4)G(
C4)G(C4)G(D4);.Y...."....."G(D4)G(D4)G(A
4)G(B4):.......E$.DK.8.4)".?":.A.1.100:.
:.E$.DK.8.4)" ":.A.1.50:.......H$:.H$.""
.950...E..H$."Q"..60000.E.J..H$."K"...X.
T..F(H$)..67.950. ...CT.CT.1:.290:PT(DK)
.X:ST(DK).Y:B(DK).B4:C(DK).C4:A(DK).A4:C
R(DK).CR.`...CR.30:A4.166:B4.166:C4.166:
D4.166:.H(N$,11).8.DK.6);:.930:.......53
280,8:.1190:."..".16)"..HAND"HD:MD.((34.
C(NM$(TR))).2).W....H(N$,6).MD)".."NM$(T
R)" IS UP"::..15)"....WINNINGS:......D.1
.NM:MD.C(NM$(D)):E.C(D(SC(D))).'....".."
.(35.MD.E).2)NM$(D)" ="SC$(D):..O....A.1
.4:.B.0.15:.53280,B:.C.1.50:.:..A.$..:.5
3280,14:.......49364:.H.1.3:.I.0.15:.532
80,I:.J.1.50:.:.:....8..53280,4:..W.B.MD
.C(NM$(TR)):.H(N$,3).(25.MD).2)".."NM$(T
R)"'S";...L.SC$(TR).D(SC(TR))...V.SM$." 
":.H(SC$(TR),1)."-".SM$." -".8.`.SC$(TR)
.I(SC$(TR),C(SC$(TR)).1).Z.J.SC$(TR).SM$
."$".SC$(TR).".  ".U.T.." WINNINGS:"SC$(
TR):....~..1190:."...   MAX. # OF DRAW C
ARDS (1 TO 5)?......RR$:.RR$."".1160.Z..
.RR.E(RR$):.RR.1.RR.5.1150............".
":.53281,1:.49152:..%....2,144,35,*** VI
DEO POKER ***,3,28,26.Q....COPYRIGHT 198
4-1987 BY A. J. KWITOWSKI...D..5,30,32,U
P TO 4 CAN PLAY ,7,154,35,"HI-LO BONUS O
PTION ON WINS OVER $1 "...N..10,28,32,YO
U WIN AS FOLLOWS,12,31,30,ROYAL FLUSH = 
$250...X..13,31,28,STRAIGHT FLUSH = $100
,14,31,26,4 OF A KIND = $20.N....15,31,2
4,FULL HOUSE = $10,16,31,22,FLUSH = $8..
....17,31,20,"STRAIGHT = $5 ",18,31,18,"
3 OF A KIND = $4 ".E....19,31,16,2 PAIR 
= $3,20,31,14,PAIR OF JACKS & UP = $1...
...23,144,9,EACH HAND COSTS $1.&.`.."...
............... .ARE YOU SURE YOU WANT T
O QUIT? (Y/N)".F.J.A.B(203):.A..25.A..39
.60010.}.T..A.39.."..            PRESS Q
 TO QUIT          ":....~..15,8,15,"R0:H
ELLO CONNECT=HELLO CONNECT":.15,ER: 15.D
....ER..63........"HELLO CONNECT",8...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL