POKER DEC

00000000: 01 10 13 10 50 C3 8F 20  50 4F 4B 45 52 20 4D 41  |....P.. POKER MA|
00000010: 4B 45 52 00 28 10 5C C3  85 22 42 45 47 49 4E 41  |KER.(.\.."BEGINA|
00000020: 44 52 45 53 22 3B 4C 31  00 3C 10 5E C3 85 22 45  |DRES";L1.<.^.."E|
00000030: 49 4E 44 41 44 52 45 53  22 3B 4C 32 00 4E 10 60  |INDADRES";L2.N.`|
00000040: C3 8B 4C 32 B3 B2 4C 31  A7 35 30 30 31 32 00 59  |..L2..L1.50012.Y|
00000050: 10 62 C3 99 22 93 11 11  22 00 8C 10 64 C3 99 22  |.b.."..."...d.."|
00000060: 32 30 46 4F 52 49 3D 22  3B 4C 31 3B 22 54 4F 22  |20FORI=";L1;"TO"|
00000070: 3B 4C 32 3B 22 3A 52 45  41 44 44 43 3A 50 4F 4B  |;L2;":READDC:POK|
00000080: 45 49 2C 44 43 3A 4E 45  58 54 49 22 00 B1 10 66  |EI,DC:NEXTI"...f|
00000090: C3 99 22 4C 31 3D 22 3B  4C 31 3B 22 3A 4C 32 3D  |.."L1=";L1;":L2=|
000000A0: 22 3B 4C 32 3B 22 3A 47  4F 54 4F 35 30 30 32 38  |";L2;":GOTO50028|
000000B0: 22 00 D1 10 68 C3 97 31  39 38 2C 31 30 3A 81 4E  |"...h..198,10:.N|
000000C0: B2 30 A4 39 3A 97 36 33  31 AA 4E 2C 31 33 3A 82  |.0.9:.631.N,13:.|
000000D0: 4E 00 DC 10 6A C3 99 22  13 22 3A 80 00 EC 10 6C  |N...j..".":....l|
000000E0: C3 4D 4C B2 4C 31 3A 4C  4E B2 32 32 00 F7 10 6E  |.ML.L1:LN.22...n|
000000F0: C3 99 22 93 11 11 22 00  07 11 70 C3 99 4C 4E 3B  |.."..."...p..LN;|
00000100: 22 44 41 54 41 22 3B 00  1E 11 72 C3 44 31 B2 C2  |"DATA";...r.D1..|
00000110: 28 4D 4C 29 3A 44 31 24  B2 C4 28 44 31 29 00 36  |(ML):D1$..(D1).6|
00000120: 11 74 C3 44 43 24 B2 C9  28 44 31 24 2C C3 28 44  |.t.DC$..(D1$,.(D|
00000130: 31 24 29 AB 31 29 00 48  11 76 C3 99 44 43 24 3B  |1$).1).H.v..DC$;|
00000140: 3A 4D 4C B2 4D 4C AA 31  00 5B 11 78 C3 8B B9 28  |:ML.ML.1.[.x...(|
00000150: 30 29 B3 31 38 A7 35 30  30 34 34 00 95 11 7A C3  |0).18.50044...z.|
00000160: 99 3A 99 22 4C 4E 3D 22  3B 4C 4E 3B 22 2B 32 3A  |.:."LN=";LN;"+2:|
00000170: 4D 4C 3D 22 3B 4D 4C 3B  22 3A 4C 32 3D 22 3B 4C  |ML=";ML;":L2=";L|
00000180: 32 3B 22 3A 47 4F 54 4F  35 30 30 33 30 22 3A 89  |2;":GOTO50030":.|
00000190: 35 30 30 34 38 00 B6 11  7C C3 8B 4D 4C B1 4C 32  |50048...|..ML.L2|
000001A0: A7 99 3A 99 22 47 4F 54  4F 35 30 30 35 34 22 3A  |..:."GOTO50054":|
000001B0: 89 35 30 30 34 38 00 C9  11 7E C3 99 C7 28 34 34  |.50048...~...(44|
000001C0: 29 3B 3A 89 35 30 30 33  34 00 D2 11 80 C3 99 22  |);:.50034......"|
000001D0: 13 22 00 F2 11 82 C3 97  31 39 38 2C 31 30 3A 81  |."......198,10:.|
000001E0: 4E B2 30 A4 39 3A 97 36  33 31 AA 4E 2C 31 33 3A  |N.0.9:.631.N,13:|
000001F0: 82 4E 00 FD 11 84 C3 99  22 13 22 3A 80 00 19 12  |.N......".":....|
00000200: 86 C3 49 B2 35 30 30 30  30 3A 4A B2 35 30 30 30  |..I.50000:J.5000|
00000210: 32 3A 4B B2 35 30 30 30  34 00 1F 12 88 C3 8F 00  |2:K.50004.......|
00000220: 25 12 8A C3 8F 00 39 12  8C C3 99 22 93 11 11 22  |%.....9...."..."|
00000230: 3A 99 49 3A 99 4A 3A 99  4B 00 67 12 8E C3 99 22  |:.I:.J:.K.g...."|
00000240: 49 3D 22 3B 49 AA 36 3B  22 3A 4A 3D 22 3B 4A AA  |I=";I.6;":J=";J.|
00000250: 36 3B 22 3A 4B 3D 22 3B  4B AA 36 3B 22 3A 47 4F  |6;":K=";K.6;":GO|
00000260: 54 4F 35 30 30 36 30 00  8B 12 90 C3 99 22 13 22  |TO50060......"."|
00000270: 3A 97 31 39 38 2C 31 30  3A 81 4E B2 30 A4 39 3A  |:.198,10:.N.0.9:|
00000280: 97 36 33 31 AA 4E 2C 31  33 3A 82 00 00 00        |.631.N,13:....  |

....PC. POKER MAKER.(.\C."BEGINADRES";L1
.<.^C."EINDADRES";L2.N.`C.L2..L1.50012.Y
.BC."..."...DC."20FORI=";L1;"TO";L2;":RE
ADDC:POKEI,DC:NEXTI"...FC."L1=";L1;":L2=
";L2;":GOTO50028".Q.HC.198,10:.N.0.9:.63
1.N,13:.N...JC.".":....LCML.L1:LN.22...N
C."..."...PC.LN;"DATA";...RCD1.B(ML):D1$
.D(D1).6.TCDC$.I(D1$,C(D1$).1).H.VC.DC$;
:ML.ML.1.[.XC..(0).18.50044...ZC.:."LN="
;LN;"+2:ML=";ML;":L2=";L2;":GOTO50030":.
50048...|C.ML.L2..:."GOTO50054":.50048.I
.~C.G(44);:.50034.R..C."."....C.198,10:.
N.0.9:.631.N,13:.N....C.".":.....CI.5000
0:J.50002:K.50004....C..%..C..9..C."..."
:.I:.J:.K.G..C."I=";I.6;":J=";J.6;":K=";
K.6;":GOTO50060....C.".":.198,10:.N.0.9:
.631.N,13:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL