GESTOKEN KAART

00000000: 01 08 1D 08 01 00 8F 2A  20 44 4F 4F 52 47 45 53  |.......* DOORGES|
00000010: 54 4F 4B 45 4E 20 4B 41  41 52 54 20 2A 00 30 08  |TOKEN KAART *.0.|
00000020: 02 00 8F 2A 20 52 45 4E  45 20 42 4F 4F 54 20 2A  |...* RENE BOOT *|
00000030: 00 43 08 03 00 8F 2A 20  57 49 4A 4F 20 4B 4F 45  |.C....* WIJO KOE|
00000040: 4B 20 2A 00 5A 08 04 00  8F 2A 20 4E 49 4A 4D 45  |K *.Z....* NIJME|
00000050: 47 45 4E 20 31 39 38 36  20 2A 00 82 08 05 00 8F  |GEN 1986 *......|
00000060: 2A 53 43 48 45 52 4D 20  4B 4C 45 55 52 45 4E 20  |*SCHERM KLEUREN |
00000070: 45 4E 20 4E 41 41 52 20  49 4E 49 54 49 41 54 49  |EN NAAR INITIATI|
00000080: 45 2A 00 88 08 06 00 3A  00 B9 08 07 00 97 35 33  |E*.....:......53|
00000090: 32 38 30 2C 31 35 3A 97  35 33 32 38 31 2C 31 35  |280,15:.53281,15|
000000A0: 3A 99 C7 28 31 34 37 29  C7 28 31 34 34 29 3A 8D  |:..(147).(144):.|
000000B0: 31 31 33 3A 8D 20 31 34  31 00 C1 08 08 00 89 33  |113:. 141......3|
000000C0: 38 00 D6 08 09 00 8F 2A  20 47 45 54 2D 52 4F 55  |8......* GET-ROU|
000000D0: 54 49 4E 45 20 2A 00 F0  08 0A 00 8B 54 45 4C 4C  |TINE *......TELL|
000000E0: B2 4C 4C 28 52 52 29 A7  4B 45 55 53 B2 31 3A 8E  |.LL(RR).KEUS.1:.|
000000F0: 00 02 09 0B 00 99 22 4A  2F 4E 22 3A 97 31 39 38  |......"J/N":.198|
00000100: 2C 30 00 14 09 0C 00 A1  41 24 3A 8B 41 24 B2 22  |,0......A$:.A$."|
00000110: 22 A7 31 32 00 29 09 0D  00 8B 41 24 B2 22 4A 22  |".12.)....A$."J"|
00000120: A7 4B 45 55 53 B2 32 3A  8E 00 3E 09 0E 00 8B 41  |.KEUS.2:..>....A|
00000130: 24 B2 22 4E 22 A7 4B 45  55 53 B2 31 3A 8E 00 46  |$."N".KEUS.1:..F|
00000140: 09 0F 00 89 31 32 00 61  09 10 00 8F 2A 20 4B 41  |....12.a....* KA|
00000150: 41 52 54 5A 4F 45 4B 20  52 4F 55 54 49 4E 45 20  |ARTZOEK ROUTINE |
00000160: 2A 00 8B 09 11 00 4B 41  41 52 54 B2 B5 28 BB 28  |*.....KAART..(.(|
00000170: 31 29 AC 33 32 29 AA 31  3A 8B 4B 41 41 52 54 28  |1).32).1:.KAART(|
00000180: 4B 41 41 52 54 29 B2 30  A7 31 37 00 9E 09 12 00  |KAART).0.17.....|
00000190: 4B 41 41 52 54 28 4B 41  41 52 54 29 B2 30 00 B8  |KAART(KAART).0..|
000001A0: 09 13 00 8B 57 41 41 52  44 45 28 4B 41 41 52 54  |....WAARDE(KAART|
000001B0: 29 B2 31 A7 41 31 B2 31  00 BE 09 14 00 8E 00 E2  |).1.A1.1........|
000001C0: 09 15 00 8F 2A 20 57 41  41 52 44 45 20 54 4F 45  |....* WAARDE TOE|
000001D0: 56 4F 45 47 45 4E 20 45  4E 20 43 48 45 43 4B 45  |VOEGEN EN CHECKE|
000001E0: 4E 2A 00 0D 0A 16 00 8B  57 41 41 52 44 45 28 4B  |N*......WAARDE(K|
000001F0: 41 41 52 54 29 B2 31 A7  41 41 28 48 4F 4F 46 44  |AART).1.AA(HOOFD|
00000200: 29 B2 41 41 28 48 4F 4F  46 44 29 AA 31 00 49 0A  |).AA(HOOFD).1.I.|
00000210: 17 00 57 41 41 52 44 45  B2 57 41 41 52 44 45 AA  |..WAARDE.WAARDE.|
00000220: 57 41 41 52 44 45 28 4B  41 41 52 54 29 3A 8B 57  |WAARDE(KAART):.W|
00000230: 41 41 52 44 45 B1 32 31  A7 53 50 45 4C 45 52 28  |AARDE.21.SPELER(|
00000240: 48 4F 4F 46 44 29 B2 AB  31 00 4F 0A 18 00 8E 00  |HOOFD)..1.O.....|
00000250: 6A 0A 19 00 8F 2A 50 52  49 4E 54 20 4B 41 41 52  |j....*PRINT KAAR|
00000260: 54 52 4F 55 54 49 4E 45  20 2A 00 88 0A 1A 00 99  |TROUTINE *......|
00000270: C7 28 31 39 29 3A 81 54  54 B2 31 A4 31 30 3A 99  |.(19):.TT.1.10:.|
00000280: C7 28 31 37 29 3B 3A 82  00 99 0A 1B 00 99 A3 A5  |.(17);:.........|
00000290: 50 28 58 29 29 4B 52 54  24 00 B0 0A 1C 00 81 54  |P(X))KRT$......T|
000002A0: 54 B2 31 A4 36 3A 99 C7  28 31 34 35 29 3B 3A 82  |T.1.6:..(145);:.|
000002B0: 00 D2 0A 1D 00 54 54 B2  28 C6 28 C8 28 4B 41 41  |.....TT.(.(.(KAA|
000002C0: 52 54 24 28 4B 41 41 52  54 29 2C 31 29 29 AB 36  |RT$(KAART),1)).6|
000002D0: 34 29 00 F7 0A 1E 00 99  C7 28 4B 4C 45 55 52 28  |4).......(KLEUR(|
000002E0: 54 54 29 29 A3 A5 50 28  58 29 AA 34 29 C7 28 4B  |TT))..P(X).4).(K|
000002F0: 28 54 54 29 29 3A 99 00  05 0B 1F 00 91 41 31 89  |(TT)):.......A1.|
00000300: 33 32 2C 33 34 00 21 0B  20 00 99 C7 28 31 34 34  |32,34.!. ...(144|
00000310: 29 A3 A5 50 28 58 29 AA  32 29 C7 28 36 35 29 3A  |)..P(X).2).(65):|
00000320: 99 00 2E 0B 21 00 41 31  B2 32 3A 89 33 35 00 5A  |....!.A1.2:.35.Z|
00000330: 0B 22 00 99 C7 28 31 34  34 29 A3 A5 50 28 58 29  |."...(144)..P(X)|
00000340: AA 31 29 C5 28 C9 28 4B  41 41 52 54 24 28 4B 41  |.1).(.(KAART$(KA|
00000350: 41 52 54 29 2C 32 29 29  3A 99 00 87 0B 23 00 99  |ART),2)):....#..|
00000360: C7 28 4B 4C 45 55 52 28  54 54 29 29 A3 A5 50 28  |.(KLEUR(TT))..P(|
00000370: 58 29 AA 31 29 C7 28 4B  28 54 54 29 29 3A 99 3A  |X).1).(K(TT)):.:|
00000380: 99 C7 28 31 34 34 29 00  8D 0B 24 00 8E 00 B5 0B  |..(144)...$.....|
00000390: 25 00 8F 2A 20 53 54 41  52 54 3A 20 49 4E 56 4F  |%..* START: INVO|
000003A0: 45 52 20 4E 41 4D 45 4E  20 56 41 4E 20 53 50 45  |ER NAMEN VAN SPE|
000003B0: 4C 45 52 53 2A 00 FF 0B  26 00 85 22 48 4F 45 56  |LERS*...&.."HOEV|
000003C0: 45 45 4C 20 53 50 45 4C  45 52 53 22 3B 41 53 50  |EEL SPELERS";ASP|
000003D0: 45 4C 45 52 53 3A 86 53  50 45 4C 45 52 24 28 41  |ELERS:.SPELER$(A|
000003E0: 53 29 2C 53 50 45 4C 45  52 28 41 53 29 2C 49 4E  |S),SPELER(AS),IN|
000003F0: 5A 45 54 28 41 53 29 2C  56 4C 53 28 41 53 29 00  |ZET(AS),VLS(AS).|
00000400: 37 0C 27 00 99 22 4E 41  4D 45 4E 20 45 4E 20 52  |7.'.."NAMEN EN R|
00000410: 41 4E 47 4E 55 4D 4D 45  52 53 20 56 41 4E 20 53  |ANGNUMMERS VAN S|
00000420: 50 45 4C 45 52 53 2E 22  3A 99 22 20 56 4F 4F 52  |PELERS.":." VOOR|
00000430: 42 45 45 4C 44 3A 22 00  6B 0C 28 00 99 C7 28 31  |BEELD:".k.(...(1|
00000440: 35 31 29 22 4B 41 41 52  54 53 50 45 4C 45 52 20  |51)"KAARTSPELER |
00000450: 3A 20 57 4F 55 54 45 52  20 48 45 4E 44 52 49 4B  |: WOUTER HENDRIK|
00000460: 53 45 22 3A 99 C7 28 31  34 34 29 00 81 0C 29 00  |SE":..(144)...).|
00000470: 81 48 4F 4F 46 44 B2 31  A4 41 53 50 45 4C 45 52  |.HOOFD.1.ASPELER|
00000480: 53 00 91 0C 2A 00 3A 20  54 B2 30 3A 42 24 B2 22  |S...*.: T.0:B$."|
00000490: 22 00 A9 0C 2B 00 3A 20  54 54 B2 54 49 3A 99 22  |"...+.: TT.TI:."|
000004A0: AF 22 C7 28 31 35 37 29  3B 00 BD 0C 2C 00 3A 20  |.".(157);...,.: |
000004B0: A1 41 24 3A 8B 41 24 B2  22 22 A7 34 34 00 F2 0C  |.A$:.A$."".44...|
000004C0: 2D 00 3A 20 8B 41 24 B3  B1 C7 28 31 33 29 A7 54  |-.: .A$...(13).T|
000004D0: 54 28 54 29 B2 54 49 AB  54 54 3A 99 41 24 3B 3A  |T(T).TI.TT:.A$;:|
000004E0: 42 24 B2 42 24 AA 41 24  3A 54 B2 54 AA 31 3A 89  |B$.B$.A$:T.T.1:.|
000004F0: 34 33 00 0B 0D 2E 00 8B  C3 28 42 24 29 B3 31 32  |43.......(B$).12|
00000500: A7 99 C7 28 31 33 29 3A  89 34 32 00 43 0D 2F 00  |...(13):.42.C./.|
00000510: 3A 20 20 20 81 54 B2 32  A4 31 30 3A 53 52 B2 53  |:   .T.2.10:SR.S|
00000520: 52 AA 28 54 54 28 54 29  AB 52 45 46 28 54 29 29  |R.(TT(T).REF(T))|
00000530: AE 32 3A 8F 2A 4D 41 43  48 54 53 2D 54 45 4B 45  |.2:.*MACHTS-TEKE|
00000540: 4E 21 2A 00 65 0D 30 00  3A 20 20 20 82 54 3A 53  |N!*.e.0.:   .T:S|
00000550: 52 B2 BA 28 53 52 29 3A  56 4C 53 28 48 4F 4F 46  |R..(SR):VLS(HOOF|
00000560: 44 29 B2 53 52 00 7B 0D  31 00 41 24 B2 C9 28 42  |D).SR.{.1.A$..(B|
00000570: 24 2C C3 28 42 24 29 AB  31 32 29 00 91 0D 32 00  |$,.(B$).12)...2.|
00000580: 53 50 45 4C 45 52 24 28  48 4F 4F 46 44 29 B2 41  |SPELER$(HOOFD).A|
00000590: 24 00 A1 0D 33 00 99 C7  28 33 32 29 C7 28 31 33  |$...3...(32).(13|
000005A0: 29 00 AC 0D 34 00 82 48  4F 4F 46 44 00 DA 0D 35  |)...4..HOOFD...5|
000005B0: 00 8F 2A 20 4C 41 41 47  53 54 45 20 53 52 2D 57  |..* LAAGSTE SR-W|
000005C0: 41 41 52 44 45 20 49 4E  20 56 4C 53 28 31 29 20  |AARDE IN VLS(1) |
000005D0: 50 4C 41 41 54 53 45 4E  20 2A 00 EA 0D 36 00 44  |PLAATSEN *...6.D|
000005E0: 52 B2 32 30 3A 56 53 B2  31 3A 00 0E 0E 37 00 81  |R.20:VS.1:...7..|
000005F0: 54 B2 31 A4 41 53 50 45  4C 45 52 53 AB 31 3A 81  |T.1.ASPELERS.1:.|
00000600: 55 B2 54 AA 31 A4 41 53  50 45 4C 45 52 53 00 48  |U.T.1.ASPELERS.H|
00000610: 0E 38 00 8B 56 4C 53 28  54 29 B1 56 4C 53 28 55  |.8..VLS(T).VLS(U|
00000620: 29 A7 56 53 B2 55 3A 54  54 B2 56 4C 53 28 54 29  |).VS.U:TT.VLS(T)|
00000630: 3A 56 4C 53 28 54 29 B2  56 4C 53 28 55 29 3A 56  |:VLS(T).VLS(U):V|
00000640: 4C 53 28 55 29 B2 54 54  00 81 0E 39 00 82 3A 82  |LS(U).TT...9..:.|
00000650: 3A 56 4C 53 B2 56 4C 53  28 31 29 3A 8B 56 4C 53  |:VLS.VLS(1):.VLS|
00000660: B1 44 52 A7 56 53 B2 30  3A 8F 2A 20 5A 45 4C 46  |.DR.VS.0:.* ZELF|
00000670: 20 44 52 45 4D 50 45 4C  57 41 41 52 44 45 20 42  | DREMPELWAARDE B|
00000680: 45 00 91 0E 3A 00 8F 2A  48 4F 4F 46 44 4C 4F 4F  |E...:..*HOOFDLOO|
00000690: 50 00 97 0E 3B 00 3A 00  AD 0E 3C 00 81 48 4F 4F  |P...;.:...<..HOO|
000006A0: 46 44 B2 31 A4 41 53 50  45 4C 45 52 53 00 E2 0E  |FD.1.ASPELERS...|
000006B0: 3D 00 57 41 41 52 44 45  B2 30 3A 54 42 B2 30 3A  |=.WAARDE.0:TB.0:|
000006C0: 57 57 28 48 4F 4F 46 44  29 B2 30 3A 53 50 45 4C  |WW(HOOFD).0:SPEL|
000006D0: 45 52 28 48 4F 4F 46 44  29 B2 30 3A 54 45 4C 4C  |ER(HOOFD).0:TELL|
000006E0: B2 30 00 1C 0F 3E 00 99  22 4B 41 41 52 54 53 50  |.0...>.."KAARTSP|
000006F0: 45 4C 45 52 20 22 53 50  45 4C 45 52 24 28 48 4F  |ELER "SPELER$(HO|
00000700: 4F 46 44 29 22 20 41 41  4E 20 42 45 55 52 54 22  |OFD)" AAN BEURT"|
00000710: 3A 81 54 B2 31 A4 31 35  30 30 3A 82 00 28 0F 3F  |:.T.1.1500:..(.?|
00000720: 00 99 C7 28 31 34 37 29  00 39 0F 40 00 8B 56 53  |...(147).9.@..VS|
00000730: B2 48 4F 4F 46 44 A7 36  36 00 55 0F 41 00 8D 31  |.HOOFD.66.U.A..1|
00000740: 37 3A 89 36 37 3A 8F 20  50 41 4B 20 45 45 4E 20  |7:.67:. PAK EEN |
00000750: 4B 41 41 52 54 00 6E 0F  42 00 8D 31 36 30 3A 8F  |KAART.n.B..160:.|
00000760: 20 50 41 4B 20 45 45 4E  20 4B 41 41 52 54 00 92  | PAK EEN KAART..|
00000770: 0F 43 00 8D 32 32 3A 8F  20 57 41 41 52 44 45 20  |.C..22:. WAARDE |
00000780: 4F 50 48 4F 47 45 4E 20  45 4E 20 43 48 45 43 4B  |OPHOGEN EN CHECK|
00000790: 45 4E 00 A7 0F 44 00 8D  32 35 3A 8F 2A 50 52 49  |EN...D..25:.*PRI|
000007A0: 4E 54 4B 41 41 52 54 00  C0 0F 45 00 8B 53 50 45  |NTKAART...E..SPE|
000007B0: 4C 45 52 28 48 4F 4F 46  44 29 B2 AB 31 A7 37 34  |LER(HOOFD)..1.74|
000007C0: 00 CC 0F 46 00 54 42 B2  54 42 AA 33 00 ED 0F 47  |...F.TB.TB.3...G|
000007D0: 00 99 22 4B 41 41 52 54  3F 20 22 53 50 45 4C 45  |.."KAART? "SPELE|
000007E0: 52 24 28 48 4F 4F 46 44  29 3A 8D 31 30 00 FD 0F  |R$(HOOFD):.10...|
000007F0: 48 00 91 4B 45 55 53 89  37 34 2C 36 34 00 22 10  |H..KEUS.74,64.".|
00000800: 49 00 8F 2A 20 53 50 45  4C 45 52 20 48 45 45 46  |I..* SPELER HEEF|
00000810: 54 20 47 45 4E 4F 45 47  20 4B 41 41 52 54 45 4E  |T GENOEG KAARTEN|
00000820: 20 2A 00 37 10 4A 00 57  57 28 48 4F 4F 46 44 29  | *.7.J.WW(HOOFD)|
00000830: B2 57 41 41 52 44 45 00  3D 10 4B 00 99 00 4F 10  |.WAARDE.=.K...O.|
00000840: 4C 00 82 3A 81 54 B2 31  A4 31 35 30 30 3A 82 00  |L..:.T.1.1500:..|
00000850: 6A 10 4D 00 8F 2A 20 42  41 4E 4B 20 41 41 4E 20  |j.M..* BANK AAN |
00000860: 44 45 20 42 45 55 52 54  20 2A 00 8F 10 4E 00 99  |DE BEURT *...N..|
00000870: C7 28 31 34 37 29 C7 28  33 31 29 C7 28 31 38 29  |.(147).(31).(18)|
00000880: 22 44 45 20 42 41 4E 4B  22 C7 28 31 34 36 29 00  |"DE BANK".(146).|
00000890: C9 10 4F 00 54 42 B2 30  3A 48 4F 4F 46 44 B2 30  |..O.TB.0:HOOFD.0|
000008A0: 3A 53 50 45 4C 45 52 28  30 29 B2 30 3A 57 5A B2  |:SPELER(0).0:WZ.|
000008B0: 30 3A 57 4D 28 31 29 B2  30 3A 57 4D 28 32 29 B2  |0:WM(1).0:WM(2).|
000008C0: 30 3A 41 41 28 30 29 B2  30 00 DD 10 50 00 8D 31  |0:AA(0).0...P..1|
000008D0: 37 3A 8D 32 35 3A 54 42  B2 54 42 AA 34 00 04 11  |7:.25:TB.TB.4...|
000008E0: 51 00 8B 57 41 41 52 44  45 28 4B 41 41 52 54 29  |Q..WAARDE(KAART)|
000008F0: B2 31 A7 41 41 28 30 29  B2 41 41 28 30 29 AA 31  |.1.AA(0).AA(0).1|
00000900: 3A 89 38 33 00 1C 11 52  00 57 5A B2 57 5A AA 57  |:.83...R.WZ.WZ.W|
00000910: 41 41 52 44 45 28 4B 41  41 52 54 29 00 3B 11 53  |AARDE(KAART).;.S|
00000920: 00 57 4D 28 31 29 B2 57  5A AA 41 41 28 30 29 3A  |.WM(1).WZ.AA(0):|
00000930: 8B 41 41 28 30 29 B2 30  A7 38 35 00 51 11 54 00  |.AA(0).0.85.Q.T.|
00000940: 57 4D 28 32 29 B2 57 5A  AA 41 41 28 30 29 AA 31  |WM(2).WZ.AA(0).1|
00000950: 30 00 7C 11 55 00 8B 57  4D 28 31 29 B1 32 31 A7  |0.|.U..WM(1).21.|
00000960: 53 50 45 4C 45 52 28 30  29 B2 AB 31 3A 57 57 28  |SPELER(0)..1:WW(|
00000970: 30 29 B2 57 4D 28 31 29  3A 89 39 30 00 9B 11 56  |0).WM(1):.90...V|
00000980: 00 8B 57 4D 28 31 29 B2  B1 31 38 A7 57 57 28 30  |..WM(1)..18.WW(0|
00000990: 29 B2 57 4D 28 31 29 3A  89 39 30 00 C4 11 57 00  |).WM(1):.90...W.|
000009A0: 8B 57 4D 28 32 29 B2 B1  31 39 AF 57 4D 28 32 29  |.WM(2)..19.WM(2)|
000009B0: B3 B2 32 31 A7 57 57 28  30 29 B2 57 4D 28 32 29  |..21.WW(0).WM(2)|
000009C0: 3A 89 39 30 00 CC 11 58  00 89 38 30 00 F4 11 59  |:.90...X..80...Y|
000009D0: 00 8F 2A 20 56 45 52 47  45 4C 49 4A 4B 45 4E 20  |..* VERGELIJKEN |
000009E0: 4D 45 54 20 41 4E 44 45  52 45 20 53 50 45 4C 45  |MET ANDERE SPELE|
000009F0: 52 53 20 2A 00 0A 12 5A  00 81 48 4F 4F 46 44 B2  |RS *...Z..HOOFD.|
00000A00: 30 A4 41 53 50 45 4C 45  52 53 00 20 12 5B 00 3A  |0.ASPELERS. .[.:|
00000A10: 20 8B 41 41 28 48 4F 4F  46 44 29 B2 30 A7 39 34  | .AA(HOOFD).0.94|
00000A20: 00 3D 12 5C 00 3A 20 57  57 28 48 4F 4F 46 44 29  |.=.\.: WW(HOOFD)|
00000A30: B2 57 57 28 48 4F 4F 46  44 29 AA 31 30 00 68 12  |.WW(HOOFD).10.h.|
00000A40: 5D 00 3A 20 8B 57 57 28  48 4F 4F 46 44 29 B1 32  |].: .WW(HOOFD).2|
00000A50: 31 A7 57 57 28 48 4F 4F  46 44 29 B2 57 57 28 48  |1.WW(HOOFD).WW(H|
00000A60: 4F 4F 46 44 29 AB 31 30  00 8D 12 5E 00 3A 20 8B  |OOFD).10...^.: .|
00000A70: 57 57 28 48 4F 4F 46 44  29 B1 32 31 A7 53 50 45  |WW(HOOFD).21.SPE|
00000A80: 4C 45 52 28 48 4F 4F 46  44 29 B2 AB 31 00 93 12  |LER(HOOFD)..1...|
00000A90: 5F 00 82 00 A9 12 60 00  81 48 4F 4F 46 44 B2 31  |_.....`..HOOFD.1|
00000AA0: A4 41 53 50 45 4C 45 52  53 00 D0 12 61 00 8B 53  |.ASPELERS...a..S|
00000AB0: 50 45 4C 45 52 28 30 29  B2 AB 31 AF 53 50 45 4C  |PELER(0)..1.SPEL|
00000AC0: 45 52 28 48 4F 4F 46 44  29 B2 AB 31 A7 31 30 32  |ER(HOOFD)..1.102|
00000AD0: 00 E6 12 62 00 8B 53 50  45 4C 45 52 28 30 29 B2  |...b..SPELER(0).|
00000AE0: AB 31 A7 31 30 31 00 1D  13 63 00 8B 53 50 45 4C  |.1.101...c..SPEL|
00000AF0: 45 52 28 48 4F 4F 46 44  29 B2 AB 31 A7 49 4E 5A  |ER(HOOFD)..1.INZ|
00000B00: 45 54 28 48 4F 4F 46 44  29 B2 49 4E 5A 45 54 28  |ET(HOOFD).INZET(|
00000B10: 48 4F 4F 46 44 29 AB 31  3A 89 31 30 32 00 55 13  |HOOFD).1:.102.U.|
00000B20: 64 00 8B 20 57 57 28 30  29 B2 B1 57 57 28 48 4F  |d.. WW(0)..WW(HO|
00000B30: 4F 46 44 29 A7 49 4E 5A  45 54 28 48 4F 4F 46 44  |OFD).INZET(HOOFD|
00000B40: 29 B2 49 4E 5A 45 54 28  48 4F 4F 46 44 29 AB 31  |).INZET(HOOFD).1|
00000B50: 3A 89 31 30 32 00 75 13  65 00 49 4E 5A 45 54 28  |:.102.u.e.INZET(|
00000B60: 48 4F 4F 46 44 29 B2 49  4E 5A 45 54 28 48 4F 4F  |HOOFD).INZET(HOO|
00000B70: 46 44 29 AA 31 00 7B 13  66 00 82 00 8B 13 67 00  |FD).1.{.f.....g.|
00000B80: 81 54 B2 31 A4 31 35 30  30 3A 82 00 97 13 68 00  |.T.1.1500:....h.|
00000B90: 99 C7 28 31 39 29 3B 00  D9 13 69 00 81 48 4F 4F  |..(19);...i..HOO|
00000BA0: 46 44 B2 31 A4 41 53 50  45 4C 45 52 53 3A 99 22  |FD.1.ASPELERS:."|
00000BB0: 4B 41 41 52 54 53 50 45  4C 45 52 22 20 53 50 45  |KAARTSPELER" SPE|
00000BC0: 4C 45 52 24 28 48 4F 4F  46 44 29 22 3A 20 22 57  |LER$(HOOFD)": "W|
00000BD0: 57 28 48 4F 4F 46 44 29  3B 00 F4 13 6A 00 99 22  |W(HOOFD);...j.."|
00000BE0: 42 45 5A 49 54 20 3A 22  49 4E 5A 45 54 28 48 4F  |BEZIT :"INZET(HO|
00000BF0: 4F 46 44 29 00 FA 13 6B  00 82 00 10 14 6C 00 99  |OFD)...k.....l..|
00000C00: 22 44 45 20 42 41 4E 4B  20 3A 22 57 57 28 30 29  |"DE BANK :"WW(0)|
00000C10: 00 2E 14 6D 00 99 3A 99  22 4E 4F 47 20 45 45 4E  |...m..:."NOG EEN|
00000C20: 20 4B 45 45 52 3F 22 3A  54 45 4C 4C B2 30 00 44  | KEER?":TELL.0.D|
00000C30: 14 6E 00 8D 31 30 3A 91  4B 45 55 53 89 31 31 32  |.n..10:.KEUS.112|
00000C40: 2C 31 31 31 00 51 14 6F  00 8D 31 34 31 3A 89 36  |,111.Q.o..141:.6|
00000C50: 30 00 57 14 70 00 80 00  6A 14 71 00 8F 2A 20 49  |0.W.p...j.q..* I|
00000C60: 4E 49 54 49 41 54 49 45  20 2A 00 81 14 72 00 8F  |NITIATIE *...r..|
00000C70: 2A 20 44 49 4D 45 4E 53  49 4F 4E 45 52 45 4E 20  |* DIMENSIONEREN |
00000C80: 2A 00 C4 14 73 00 86 4B  41 41 52 54 28 33 32 29  |*...s..KAART(32)|
00000C90: 2C 4B 41 41 52 54 24 28  33 32 29 2C 57 41 41 52  |,KAART$(32),WAAR|
00000CA0: 44 45 28 33 32 29 2C 52  45 46 28 31 30 29 2C 54  |DE(32),REF(10),T|
00000CB0: 54 28 34 30 29 2C 52 52  28 31 30 2C 31 31 29 3A  |T(40),RR(10,11):|
00000CC0: 41 31 B2 32 00 D2 14 74  00 86 44 55 4D 50 28 31  |A1.2...t..DUMP(1|
00000CD0: 32 29 00 E8 14 75 00 8F  2A 20 44 41 54 41 20 49  |2)...u..* DATA I|
00000CE0: 4E 4C 45 5A 45 4E 20 2A  00 15 15 76 00 81 54 B2  |NLEZEN *...v..T.|
00000CF0: 30 A4 33 3A 8C 3A 81 54  54 B2 31 A4 38 3A 87 55  |0.3:.:.TT.1.8:.U|
00000D00: 3A 57 41 41 52 44 45 28  54 AC 38 AA 54 54 29 B2  |:WAARDE(T.8.TT).|
00000D10: 55 3A 82 3A 82 00 3E 15  77 00 81 54 B2 31 A4 37  |U:.:..>.w..T.1.7|
00000D20: 3A 87 54 54 3A 50 50 4C  41 41 54 53 24 B2 50 50  |:.TT:PPLAATS$.PP|
00000D30: 4C 41 41 54 53 24 AA C7  28 54 54 29 3A 82 00 5D  |LAATS$..(TT):..]|
00000D40: 15 78 00 81 54 B2 31 A4  36 3A 87 55 3A 4B 52 54  |.x..T.1.6:.U:KRT|
00000D50: 24 B2 4B 52 54 24 AA C7  28 55 29 3A 82 00 78 15  |$.KRT$..(U):..x.|
00000D60: 79 00 81 54 B2 31 A4 36  3A 87 55 3A 41 24 B2 41  |y..T.1.6:.U:A$.A|
00000D70: 24 AA C7 28 55 29 3A 82  00 AD 15 7A 00 4B 52 54  |$..(U):....z.KRT|
00000D80: 24 B2 4B 52 54 24 AA 50  50 24 AA 41 24 AA 50 50  |$.KRT$.PP$.A$.PP|
00000D90: 24 AA 41 24 AA 50 50 24  AA 41 24 AA 50 50 24 AA  |$.A$.PP$.A$.PP$.|
00000DA0: 41 24 AA 50 50 24 AA 41  24 AA 50 50 24 00 CC 15  |A$.PP$.A$.PP$...|
00000DB0: 7B 00 81 54 B2 31 A4 36  3A 87 55 3A 4B 52 54 24  |{..T.1.6:.U:KRT$|
00000DC0: B2 4B 52 54 24 AA C7 28  55 29 3A 82 00 EB 15 7C  |.KRT$..(U):....||
00000DD0: 00 81 54 B2 31 A4 33 32  3A 87 41 24 3A 4B 41 41  |..T.1.32:.A$:KAA|
00000DE0: 52 54 24 28 54 29 B2 41  24 3A 82 00 01 16 7D 00  |RT$(T).A$:....}.|
00000DF0: 96 A5 50 28 58 29 B2 28  28 54 42 AD 34 29 AC 35  |..P(X).((TB.4).5|
00000E00: 29 00 28 16 7E 00 81 54  B2 31 A4 34 3A 87 54 54  |).(.~..T.1.4:.TT|
00000E10: 3A 87 55 3A 4B 4C 45 55  52 28 54 29 B2 54 54 3A  |:.U:KLEUR(T).TT:|
00000E20: 4B 28 54 29 B2 55 3A 82  00 44 16 7F 00 81 54 B2  |K(T).U:..D....T.|
00000E30: 32 A4 31 30 3A 87 54 54  3A 52 45 46 28 54 29 B2  |2.10:.TT:REF(T).|
00000E40: 54 54 3A 82 00 5F 16 80  00 81 54 B2 31 A4 31 30  |TT:.._....T.1.10|
00000E50: 3A 87 54 54 3A 4C 4C 28  54 29 B2 54 54 3A 82 00  |:.TT:LL(T).TT:..|
00000E60: 8B 16 81 00 81 54 B2 31  A4 31 30 3A 81 54 54 B2  |.....T.1.10:.TT.|
00000E70: 31 A4 4C 4C 28 54 29 3A  87 55 3A 52 52 28 54 2C  |1.LL(T):.U:RR(T,|
00000E80: 54 54 29 B2 55 3A 82 3A  82 3A 8E 00 AD 16 82 00  |TT).U:.:.:......|
00000E90: 83 37 2C 38 2C 39 2C 31  30 2C 32 2C 33 2C 34 2C  |.7,8,9,10,2,3,4,|
00000EA0: 31 3A 8F 2A 20 57 41 41  52 44 45 20 2A 00 CD 16  |1:.* WAARDE *...|
00000EB0: 83 00 83 31 37 2C 31 35  37 2C 31 35 37 2C 31 35  |...17,157,157,15|
00000EC0: 37 2C 31 35 37 2C 31 35  37 2C 31 35 37 00 E6 16  |7,157,157,157...|
00000ED0: 84 00 83 31 31 37 2C 39  36 2C 39 36 2C 39 36 2C  |...117,96,96,96,|
00000EE0: 39 36 2C 31 30 35 00 FD  16 85 00 83 39 38 2C 33  |96,105......98,3|
00000EF0: 32 2C 33 32 2C 33 32 2C  33 32 2C 39 38 00 16 17  |2,32,32,32,98...|
00000F00: 86 00 83 31 30 36 2C 39  36 2C 39 36 2C 39 36 2C  |...106,96,96,96,|
00000F10: 39 36 2C 31 30 37 00 3B  17 87 00 83 41 30 37 2C  |96,107.;....A07,|
00000F20: 41 30 38 2C 41 30 39 2C  41 31 30 2C 41 30 32 2C  |A08,A09,A10,A02,|
00000F30: 41 30 33 2C 41 30 34 2C  41 31 31 00 60 17 88 00  |A03,A04,A11.`...|
00000F40: 83 42 30 37 2C 42 30 38  2C 42 30 39 2C 42 31 30  |.B07,B08,B09,B10|
00000F50: 2C 42 30 32 2C 42 30 33  2C 42 30 34 2C 42 31 31  |,B02,B03,B04,B11|
00000F60: 00 85 17 89 00 83 43 30  37 2C 43 30 38 2C 43 30  |......C07,C08,C0|
00000F70: 39 2C 43 31 30 2C 43 30  32 2C 43 30 33 2C 43 30  |9,C10,C02,C03,C0|
00000F80: 34 2C 43 31 31 00 AA 17  8A 00 83 44 30 37 2C 44  |4,C11......D07,D|
00000F90: 30 38 2C 44 30 39 2C 44  31 30 2C 44 30 32 2C 44  |08,D09,D10,D02,D|
00000FA0: 30 33 2C 44 30 34 2C 44  31 31 00 CC 17 8B 00 83  |03,D04,D11......|
00000FB0: 31 34 34 2C 39 37 2C 32  38 2C 31 31 35 2C 31 34  |144,97,28,115,14|
00000FC0: 34 2C 31 32 30 2C 32 38  2C 31 32 32 00 F7 17 8C  |4,120,28,122....|
00000FD0: 00 83 30 2C 30 2C 30 2C  30 2C 30 2C 30 2C 30 2C  |..0,0,0,0,0,0,0,|
00000FE0: 30 2C 30 3A 8F 2A 52 45  46 45 52 45 4E 54 49 45  |0,0:.*REFERENTIE|
00000FF0: 2D 53 54 52 49 4E 47 00  17 18 8D 00 81 54 B2 31  |-STRING......T.1|
00001000: A4 33 32 3A 4B 41 41 52  54 28 54 29 B2 54 3A 82  |.32:KAART(T).T:.|
00001010: 3A 8D 31 34 37 3A 8E 00  30 18 8E 00 83 32 2C 34  |:.147:..0....2,4|
00001020: 2C 34 2C 35 2C 35 2C 34  2C 33 2C 35 2C 39 2C 34  |,4,5,5,4,3,5,9,4|
00001030: 00 59 18 8F 00 83 38 2C  34 2C 38 2C 38 2C 34 2C  |.Y....8,4,8,8,4,|
00001040: 33 2C 35 2C 35 2C 31 2C  34 2C 35 2C 36 2C 37 2C  |3,5,5,1,4,5,6,7,|
00001050: 38 2C 38 2C 36 2C 36 2C  34 00 82 18 90 00 83 37  |8,8,6,6,4......7|
00001060: 2C 38 2C 31 2C 32 2C 37  2C 35 2C 34 2C 34 2C 38  |,8,1,2,7,5,4,4,8|
00001070: 2C 37 2C 37 2C 33 2C 36  2C 38 2C 38 2C 35 2C 38  |,7,7,3,6,8,8,5,8|
00001080: 2C 33 00 99 18 91 00 83  35 2C 38 2C 35 2C 35 2C  |,3......5,8,5,5,|
00001090: 38 2C 32 2C 32 2C 35 2C  36 00 B3 18 92 00 8F 2A  |8,2,2,5,6......*|
000010A0: 20 56 41 4C 53 53 50 45  45 4C 52 4F 55 54 49 4E  | VALSSPEELROUTIN|
000010B0: 45 20 2A 00 C7 18 93 00  52 52 B2 B5 28 BB 28 31  |E *.....RR..(.(1|
000010C0: 29 AC 31 30 29 AA 31 00  DF 18 94 00 4D 4D B2 B5  |).10).1.....MM..|
000010D0: 28 BB 28 31 29 AC 4C 4C  28 52 52 29 29 AA 31 00  |(.(1).LL(RR)).1.|
000010E0: EF 18 95 00 81 54 B2 31  A4 4C 4C 28 52 52 29 00  |.....T.1.LL(RR).|
000010F0: 0C 19 96 00 8B 20 4D 4D  AA 28 54 AB 31 29 B1 B2  |..... MM.(T.1)..|
00001100: 4C 4C 28 52 52 29 AA 31  A7 31 35 32 00 2D 19 97  |LL(RR).1.152.-..|
00001110: 00 44 55 4D 50 28 54 29  B2 52 52 28 52 52 2C 4D  |.DUMP(T).RR(RR,M|
00001120: 4D AA 28 54 AB 31 29 29  3A 89 31 35 33 00 52 19  |M.(T.1)):.153.R.|
00001130: 98 00 44 55 4D 50 28 54  29 B2 52 52 28 52 52 2C  |..DUMP(T).RR(RR,|
00001140: 54 AB 28 28 4C 4C 28 52  52 29 AA 31 29 AB 4D 4D  |T.((LL(RR).1).MM|
00001150: 29 29 00 58 19 99 00 82  00 68 19 9A 00 81 54 B2  |)).X.....h....T.|
00001160: 31 A4 4C 4C 28 52 52 29  00 7F 19 9B 00 54 54 B2  |1.LL(RR).....TT.|
00001170: 28 B5 28 BB 28 31 29 AC  34 29 AA 30 29 AC 38 00  |(.(.(1).4).0).8.|
00001180: 9C 19 9C 00 8B 4B 41 41  52 54 28 54 54 AA 44 55  |.....KAART(TT.DU|
00001190: 4D 50 28 54 29 29 B2 30  A7 31 35 35 00 C4 19 9D  |MP(T)).0.155....|
000011A0: 00 44 55 4D 50 28 54 29  B2 44 55 4D 50 28 54 29  |.DUMP(T).DUMP(T)|
000011B0: AA 54 54 3A 4B 41 41 52  54 28 44 55 4D 50 28 54  |.TT:KAART(DUMP(T|
000011C0: 29 29 B2 30 00 CC 19 9E  00 82 3A 8E 00 ED 19 9F  |)).0......:.....|
000011D0: 00 8F 2A 20 4F 50 48 41  41 4C 52 4F 55 54 49 4E  |..* OPHAALROUTIN|
000011E0: 45 20 56 4F 4F 52 20 56  41 4C 53 20 2A 00 0C 1A  |E VOOR VALS *...|
000011F0: A0 00 54 45 4C 4C B2 54  45 4C 4C AA 31 3A 8B 54  |..TELL.TELL.1:.T|
00001200: 45 4C 4C B1 4C 4C 28 52  52 29 A7 8E 00 37 1A A1  |ELL.LL(RR)...7..|
00001210: 00 4B 41 41 52 54 B2 44  55 4D 50 28 54 45 4C 4C  |.KAART.DUMP(TELL|
00001220: 29 3A 8B 57 41 41 52 44  45 28 4B 41 41 52 54 29  |):.WAARDE(KAART)|
00001230: B2 31 A7 41 31 B2 31 00  3D 1A A2 00 8E 00 00 00  |.1.A1.1.=.......|

.......* DOORGESTOKEN KAART *.0....* REN
E BOOT *.C....* WIJO KOEK *.Z....* NIJME
GEN 1986 *......*SCHERM KLEUREN EN NAAR 
INITIATIE*.....:......53280,15:.53281,15
:.G(147)G(144):.113:. 141.A....38.V....*
 GET-ROUTINE *......TELL.LL(RR).KEUS.1:.
......"J/N":.198,0......A$:.A$."".12.)..
..A$."J".KEUS.2:..>....A$."N".KEUS.1:..F
....12.A....* KAARTZOEK ROUTINE *.....KA
ART..(.(1).32).1:.KAART(KAART).0.17.....
KAART(KAART).0......WAARDE(KAART).1.A1.1
............* WAARDE TOEVOEGEN EN CHECKE
N*......WAARDE(KAART).1.AA(HOOFD).AA(HOO
FD).1.I...WAARDE.WAARDE.WAARDE(KAART):.W
AARDE.21.SPELER(HOOFD)..1.O.....J....*PR
INT KAARTROUTINE *......G(19):.TT.1.10:.
G(17);:.........P(X))KRT$......TT.1.6:.G
(145);:..R...TT.(F(H(KAART$(KAART),1)).6
4)......G(KLEUR(TT))..P(X).4)G(K(TT)):..
.....A1.32,34.!. ..G(144)..P(X).2)G(65):
....!.A1.2:.35.Z."..G(144)..P(X).1)E(I(K
AART$(KAART),2)):....#..G(KLEUR(TT))..P(
X).1)G(K(TT)):.:.G(144)...$.....%..* STA
RT: INVOER NAMEN VAN SPELERS*...&.."HOEV
EEL SPELERS";ASPELERS:.SPELER$(AS),SPELE
R(AS),INZET(AS),VLS(AS).7.'.."NAMEN EN R
ANGNUMMERS VAN SPELERS.":." VOORBEELD:".
K.(..G(151)"KAARTSPELER : WOUTER HENDRIK
SE":.G(144)...)..HOOFD.1.ASPELERS...*.: 
T.0:B$.""...+.: TT.TI:."."G(157);...,.: 
.A$:.A$."".44...-.: .A$..G(13).TT(T).TI.
TT:.A$;:B$.B$.A$:T.T.1:.43......C(B$).12
..G(13):.42.C./.:   .T.2.10:SR.SR.(TT(T)
.REF(T)).2:.*MACHTS-TEKEN!*.E.0.:   .T:S
R..(SR):VLS(HOOFD).SR.{.1.A$.I(B$,C(B$).
12)...2.SPELER$(HOOFD).A$...3..G(32)G(13
)...4..HOOFD.Z.5..* LAAGSTE SR-WAARDE IN
 VLS(1) PLAATSEN *...6.DR.20:VS.1:...7..
T.1.ASPELERS.1:.U.T.1.ASPELERS.H.8..VLS(
T).VLS(U).VS.U:TT.VLS(T):VLS(T).VLS(U):V
LS(U).TT...9..:.:VLS.VLS(1):.VLS.DR.VS.0
:.* ZELF DREMPELWAARDE BE...:..*HOOFDLOO
P...;.:...<..HOOFD.1.ASPELERS...=.WAARDE
.0:TB.0:WW(HOOFD).0:SPELER(HOOFD).0:TELL
.0...>.."KAARTSPELER "SPELER$(HOOFD)" AA
N BEURT":.T.1.1500:..(.?..G(147).9.@..VS
.HOOFD.66.U.A..17:.67:. PAK EEN KAART.N.
B..160:. PAK EEN KAART...C..22:. WAARDE 
OPHOGEN EN CHECKEN...D..25:.*PRINTKAART.
..E..SPELER(HOOFD)..1.74.L.F.TB.TB.3...G
.."KAART? "SPELER$(HOOFD):.10...H..KEUS.
74,64.".I..* SPELER HEEFT GENOEG KAARTEN
 *.7.J.WW(HOOFD).WAARDE.=.K...O.L..:.T.1
.1500:..J.M..* BANK AAN DE BEURT *...N..
G(147)G(31)G(18)"DE BANK"G(146).I.O.TB.0
:HOOFD.0:SPELER(0).0:WZ.0:WM(1).0:WM(2).
0:AA(0).0...P..17:.25:TB.TB.4...Q..WAARD
E(KAART).1.AA(0).AA(0).1:.83...R.WZ.WZ.W
AARDE(KAART).;.S.WM(1).WZ.AA(0):.AA(0).0
.85.Q.T.WM(2).WZ.AA(0).10.|.U..WM(1).21.
SPELER(0)..1:WW(0).WM(1):.90...V..WM(1).
.18.WW(0).WM(1):.90.D.W..WM(2)..19.WM(2)
..21.WW(0).WM(2):.90.L.X..80...Y..* VERG
ELIJKEN MET ANDERE SPELERS *...Z..HOOFD.
0.ASPELERS. .[.: .AA(HOOFD).0.94.=.\.: W
W(HOOFD).WW(HOOFD).10.H.].: .WW(HOOFD).2
1.WW(HOOFD).WW(HOOFD).10...^.: .WW(HOOFD
).21.SPELER(HOOFD)..1..._.....`..HOOFD.1
.ASPELERS.P.A..SPELER(0)..1.SPELER(HOOFD
)..1.102...B..SPELER(0)..1.101...C..SPEL
ER(HOOFD)..1.INZET(HOOFD).INZET(HOOFD).1
:.102.U.D.. WW(0)..WW(HOOFD).INZET(HOOFD
).INZET(HOOFD).1:.102.U.E.INZET(HOOFD).I
NZET(HOOFD).1.{.F.....G..T.1.1500:....H.
.G(19);.Y.I..HOOFD.1.ASPELERS:."KAARTSPE
LER" SPELER$(HOOFD)": "WW(HOOFD);...J.."
BEZIT :"INZET(HOOFD)...K.....L.."DE BANK
 :"WW(0)...M..:."NOG EEN KEER?":TELL.0.D
.N..10:.KEUS.112,111.Q.O..141:.60.W.P...
J.Q..* INITIATIE *...R..* DIMENSIONEREN 
*.D.S..KAART(32),KAART$(32),WAARDE(32),R
EF(10),TT(40),RR(10,11):A1.2.R.T..DUMP(1
2)...U..* DATA INLEZEN *...V..T.0.3:.:.T
T.1.8:.U:WAARDE(T.8.TT).U:.:..>.W..T.1.7
:.TT:PPLAATS$.PPLAATS$.G(TT):..].X..T.1.
6:.U:KRT$.KRT$.G(U):..X.Y..T.1.6:.U:A$.A
$.G(U):....Z.KRT$.KRT$.PP$.A$.PP$.A$.PP$
.A$.PP$.A$.PP$.A$.PP$.L.{..T.1.6:.U:KRT$
.KRT$.G(U):....|..T.1.32:.A$:KAART$(T).A
$:....}...P(X).((TB.4).5).(.~..T.1.4:.TT
:.U:KLEUR(T).TT:K(T).U:..D...T.2.10:.TT
:REF(T).TT:.._....T.1.10:.TT:LL(T).TT:..
.....T.1.10:.TT.1.LL(T):.U:RR(T,TT).U:.:
.:.......7,8,9,10,2,3,4,1:.* WAARDE *.M.
...17,157,157,157,157,157,157......117,9
6,96,96,96,105......98,32,32,32,32,98...
...106,96,96,96,96,107.;....A07,A08,A09,
A10,A02,A03,A04,A11.`....B07,B08,B09,B10
,B02,B03,B04,B11......C07,C08,C09,C10,C0
2,C03,C04,C11......D07,D08,D09,D10,D02,D
03,D04,D11.L....144,97,28,115,144,120,28
,122......0,0,0,0,0,0,0,0,0:.*REFERENTIE
-STRING......T.1.32:KAART(T).T:.:.147:..
0....2,4,4,5,5,4,3,5,9,4.Y....8,4,8,8,4,
3,5,5,1,4,5,6,7,8,8,6,6,4......7,8,1,2,7
,5,4,4,8,7,7,3,6,8,8,5,8,3......5,8,5,5,
8,2,2,5,6......* VALSSPEELROUTINE *.G...
RR..(.(1).10).1.....MM..(.(1).LL(RR)).1.
.....T.1.LL(RR)...... MM.(T.1)..LL(RR).1
.152.-...DUMP(T).RR(RR,MM.(T.1)):.153.R.
..DUMP(T).RR(RR,T.((LL(RR).1).MM)).X....
.H....T.1.LL(RR)....TT.(.(.(1).4).0).8.
.....KAART(TT.DUMP(T)).0.155.D...DUMP(T)
.DUMP(T).TT:KAART(DUMP(T)).0.L....:.....
..* OPHAALROUTINE VOOR VALS *... .TELL.T
ELL.1:.TELL.LL(RR)...7...KAART.DUMP(TELL
):.WAARDE(KAART).1.A1.1.=.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL