DAMMEN
FILE INFORMATION
FILENAME(S): DAMMEN
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 21:28:05
APPEARS ON: 1 disk(s)
FILE HASH
f48135c6f5bd606ec4461490297b49120932a97d85b01d051ae750ebecaa980a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NICO RADEMAKERS | DAMMEN | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 8F 20 2D 2D 43 48 45 43 4B 45 |....... --CHECKE|
00000010: 52 53 20 46 4F 52 20 43 2D 36 34 20 2D 2D 00 45 |RS FOR C-64 --.E|
00000020: 08 05 00 8F 20 2D 2D 47 4F 20 49 4E 49 54 49 41 |.... --GO INITIA|
00000030: 4C 49 5A 45 20 41 4E 44 20 50 52 49 4E 54 20 42 |LIZE AND PRINT B|
00000040: 4F 41 52 44 2D 00 55 08 0A 00 8D 20 31 39 30 30 |OARD-.U.... 1900|
00000050: 3A 89 32 30 30 00 6B 08 14 00 A1 20 41 24 3A 20 |:.200.k.... A$: |
00000060: 8B 20 41 24 B2 22 22 A7 20 32 30 00 71 08 16 00 |. A$."". 20.q...|
00000070: 8E 00 8B 08 1D 00 8F 20 2D 2D 20 43 4F 4D 50 55 |....... -- COMPU|
00000080: 54 45 52 20 53 43 41 4E 20 2D 2D 00 BA 08 1E 00 |TER SCAN --.....|
00000090: 55 B2 58 AA 41 3A 20 56 B2 59 AA 42 3A 20 8B 20 |U.X.A: V.Y.B: . |
000000A0: 55 B3 30 20 B0 20 55 B1 37 20 B0 20 56 B3 30 20 |U.0 . U.7 . V.0 |
000000B0: B0 20 56 B1 37 20 A7 20 38 30 00 D6 08 28 00 8B |. V.7 . 80...(..|
000000C0: 20 53 28 55 2C 56 29 B2 30 20 A7 20 8D 20 39 30 | S(U,V).0 . . 90|
000000D0: 20 3A 89 20 38 30 00 EA 08 32 00 8B 20 53 28 55 | :. 80...2.. S(U|
000000E0: 2C 56 29 B3 30 20 A7 20 38 30 00 18 09 3C 00 55 |,V).0 . 80...<.U|
000000F0: B2 55 AA 41 3A 20 56 B2 56 AA 42 3A 20 8B 20 55 |.U.A: V.V.B: . U|
00000100: B3 30 20 B0 20 55 B1 37 20 B0 20 56 B3 30 20 B0 |.0 . U.7 . V.0 .|
00000110: 20 56 B1 37 A7 20 38 30 00 2C 09 46 00 8B 20 53 | V.7. 80.,.F.. S|
00000120: 28 55 2C 56 29 B2 30 20 A7 20 39 30 00 32 09 50 |(U,V).0 . 90.2.P|
00000130: 00 8E 00 50 09 5A 00 8B 20 56 B2 30 20 AF 20 53 |...P.Z.. V.0 . S|
00000140: 28 58 2C 59 29 B2 AB 31 20 A7 20 51 B2 51 AA 32 |(X,Y)..1 . Q.Q.2|
00000150: 00 67 09 5F 00 8B 20 B6 28 59 AB 56 29 B2 32 20 |.g._.. .(Y.V).2 |
00000160: A7 20 51 B2 51 AA 35 00 79 09 64 00 8B 20 59 B2 |. Q.Q.5.y.d.. Y.|
00000170: 37 20 A7 20 51 B2 51 AB 32 00 91 09 69 00 8B 20 |7 . Q.Q.2...i.. |
00000180: 59 B2 30 20 B0 20 55 B2 37 20 A7 20 51 B2 51 AA |Y.0 . U.7 . Q.Q.|
00000190: 31 00 C2 09 6E 00 81 20 43 B2 AB 31 20 A4 20 31 |1...n.. C..1 . 1|
000001A0: 20 A9 32 3A 20 8B 20 55 AA 43 B3 30 20 B0 20 55 | .2: . U.C.0 . U|
000001B0: AA 43 B1 37 20 B0 20 56 AA 47 B3 30 20 A7 20 31 |.C.7 . V.G.0 . 1|
000001C0: 33 30 00 E3 09 73 00 8B 53 28 55 AA 43 2C 56 AA |30...s..S(U.C,V.|
000001D0: 47 29 B3 30 20 A7 20 51 B2 51 AA 31 3A 20 89 20 |G).0 . Q.Q.1: . |
000001E0: 31 33 30 00 05 0A 78 00 8B 20 55 AB 43 B3 30 20 |130...x.. U.C.0 |
000001F0: B0 20 55 AB 43 B1 37 20 B0 20 56 AB 47 B1 37 20 |. U.C.7 . V.G.7 |
00000200: A7 20 31 33 30 00 42 0A 7D 00 8B 53 28 55 AA 43 |. 130.B.}..S(U.C|
00000210: 2C 56 AA 47 29 B1 30 20 AF 20 28 53 28 55 AB 43 |,V.G).0 . (S(U.C|
00000220: 2C 56 AB 47 29 B2 30 20 B0 20 28 55 AB 43 B2 58 |,V.G).0 . (U.C.X|
00000230: 20 AF 20 56 AB 47 B2 59 29 29 20 A7 20 51 B2 51 | . V.G.Y)) . Q.Q|
00000240: AB 32 00 79 0A 82 00 82 20 43 3A 20 8B 20 51 B1 |.2.y.... C: . Q.|
00000250: 52 28 30 29 20 A7 20 52 28 30 29 B2 51 3A 52 28 |R(0) . R(0).Q:R(|
00000260: 31 29 B2 58 3A 52 28 32 29 B2 59 3A 52 28 33 29 |1).X:R(2).Y:R(3)|
00000270: B2 55 3A 52 28 34 29 B2 56 00 84 0A 87 00 51 B2 |.U:R(4).V.....Q.|
00000280: 30 3A 20 8E 00 A9 0A 96 00 55 B2 58 AA 41 3A 56 |0: ......U.X.A:V|
00000290: B2 59 AA 42 3A 8B 55 B3 30 B0 55 B1 37 B0 56 B3 |.Y.B:.U.0.U.7.V.|
000002A0: 30 B0 56 B1 37 A7 31 36 30 00 CC 0A 9B 00 8B 53 |0.V.7.160......S|
000002B0: 28 55 2C 56 29 B2 30 AF 53 28 58 AA 41 AD 32 2C |(U,V).0.S(X.A.2,|
000002C0: 59 AA 42 AD 32 29 B1 30 A7 8D 39 30 00 D2 0A A0 |Y.B.2).0..90....|
000002D0: 00 8E 00 EA 0A C7 00 8F 2D 2D 50 4C 41 59 45 52 |........--PLAYER|
000002E0: 20 4D 41 49 4E 20 4C 4F 4F 50 00 F4 0A C8 00 8D | MAIN LOOP......|
000002F0: 32 37 30 30 00 1A 0B DC 00 8B 43 31 B2 31 32 A7 |2700......C1.12.|
00000300: 44 24 B2 22 49 4B 20 48 45 42 20 47 45 57 4F 4E |D$."IK HEB GEWON|
00000310: 4E 45 4E 22 3A 89 31 36 30 30 00 42 0B E6 00 8B |NEN":.1600.B....|
00000320: 50 31 B2 31 32 A7 44 24 B2 22 4A 49 4A 20 48 45 |P1.12.D$."JIJ HE|
00000330: 42 54 20 47 45 57 4F 4E 4E 45 4E 22 3A 89 31 36 |BT GEWONNEN":.16|
00000340: 30 30 00 56 0B F0 00 44 24 B2 54 24 3A 8D 31 38 |00.V...D$.T$:.18|
00000350: 30 30 3A 5A B2 30 00 7E 0B FA 00 46 31 B2 31 3A |00:Z.0.~...F1.1:|
00000360: 46 32 B2 32 3A 4C 4F B2 53 55 AA 28 32 32 AC 43 |F2.2:LO.SU.(22.C|
00000370: 44 29 AA 31 3A 4C 31 B2 30 3A 55 31 B2 30 00 98 |D).1:L1.0:U1.0..|
00000380: 0B 04 01 4C 32 B2 4C 31 AB 31 3A 55 32 B2 55 31 |...L2.L1.1:U2.U1|
00000390: AB 31 3A 4B 49 B2 36 33 00 B4 0B 0E 01 46 B2 30 |.1:KI.63.....F.0|
000003A0: 3A A1 46 24 3A 8B 46 24 B3 B1 22 22 A7 46 B2 C6 |:.F$:.F$.."".F..|
000003B0: 28 46 24 29 00 E7 0B 18 01 50 45 B2 C2 28 4C 4F |(F$).....PE..(LO|
000003C0: 29 3A 97 4C 4F 2C 4B 49 3A 81 54 B2 31 A4 35 30 |):.LO,KI:.T.1.50|
000003D0: 3A 82 3A 50 43 B2 C2 28 4C 4F AA 44 49 29 3A 97 |:.:PC..(LO.DI):.|
000003E0: 4C 4F AA 44 49 2C 31 00 0E 0C 22 01 97 4C 4F 2C |LO.DI,1..."..LO,|
000003F0: 31 36 30 3A 81 54 B2 31 A4 35 30 3A 82 3A 97 4C |160:.T.1.50:.:.L|
00000400: 4F 2C 50 45 3A 97 4C 4F AA 44 49 2C 50 43 00 32 |O,PE:.LO.DI,PC.2|
00000410: 0C 2C 01 8B 20 46 B2 31 35 37 20 A7 20 8B 4C 31 |.,.. F.157 . .L1|
00000420: B1 30 A7 4C 31 B2 4C 31 AB 31 3A 4C 4F B2 4C 4F |.0.L1.L1.1:LO.LO|
00000430: AB 33 00 46 0C 40 01 8B 20 46 B2 31 39 20 A7 20 |.3.F.@.. F.19 . |
00000440: 99 22 93 22 3A 80 00 5E 0C 54 01 8B 20 46 B2 31 |.".":..^.T.. F.1|
00000450: 33 20 B0 20 46 B2 31 34 20 A7 20 34 39 30 00 6F |3 . F.14 . 490.o|
00000460: 0C 68 01 8B 20 46 B2 33 32 20 A7 20 36 39 30 00 |.h.. F.32 . 690.|
00000470: A4 0C 72 01 8B 20 46 B2 32 30 20 AF 20 5A B2 30 |..r.. F.20 . Z.0|
00000480: 20 A7 20 32 35 30 3A 20 8F 20 2D 2D 2D 2D 2D 2D | . 250: . ------|
00000490: 2D 2D 2D 2D 2D 4E 55 4C 4C 20 4D 4F 56 45 20 20 |-----NULL MOVE |
000004A0: 2D 2D 2D 2D 00 CA 0C 90 01 8B 20 46 B2 32 39 20 |----...... F.29 |
000004B0: A7 20 8B 20 4C 31 B3 37 20 A7 20 4C 31 B2 4C 31 |. . L1.7 . L1.L1|
000004C0: AA 31 3A 4C 4F B2 4C 4F AA 33 00 F4 0C A4 01 8B |.1:LO.LO.3......|
000004D0: 20 46 B2 31 34 35 20 A7 20 8B 20 55 31 B3 37 20 | F.145 . . U1.7 |
000004E0: A7 20 55 31 B2 55 31 AA 31 3A 4C 4F B2 4C 4F AB |. U1.U1.1:LO.LO.|
000004F0: 33 AC 43 44 00 1D 0D CC 01 8B 20 46 B2 31 37 20 |3.CD...... F.17 |
00000500: A7 20 8B 20 55 31 B1 30 20 A7 20 55 31 B2 55 31 |. . U1.0 . U1.U1|
00000510: AB 31 3A 4C 4F B2 4C 4F AA 33 AC 43 44 00 27 0D |.1:LO.LO.3.CD.'.|
00000520: E0 01 89 20 32 37 30 00 5B 0D EA 01 97 31 39 38 |... 270.[....198|
00000530: 2C 30 3A 52 31 28 46 31 29 B2 4C 31 3A 52 31 28 |,0:R1(F1).L1:R1(|
00000540: 46 32 29 B2 55 31 3A 8B 4C 32 B2 4C 31 20 B0 20 |F2).U1:.L2.L1 . |
00000550: 55 32 B2 55 31 20 A7 20 36 33 30 00 7B 0D EB 01 |U2.U1 . 630.{...|
00000560: 8B 20 53 28 4C 31 2C 55 31 29 B2 30 20 AF 20 4B |. S(L1,U1).0 . K|
00000570: 49 B2 36 33 20 A7 20 31 30 34 30 00 A0 0D EC 01 |I.63 . 1040.....|
00000580: 8B 20 53 28 4C 31 2C 55 31 29 B2 34 20 B0 20 53 |. S(L1,U1).4 . S|
00000590: 28 4C 31 2C 55 31 29 B3 30 20 A7 20 31 30 34 30 |(L1,U1).0 . 1040|
000005A0: 00 B3 0D ED 01 8B 20 4B 49 B3 B1 36 33 20 A7 20 |...... KI..63 . |
000005B0: 35 30 39 00 EB 0D EE 01 4C 4D B2 4C 31 AB 31 3A |509.....LM.L1.1:|
000005C0: 55 50 B2 55 31 AA 31 3A 8B 20 4C 31 B1 B2 31 20 |UP.U1.1:. L1..1 |
000005D0: AF 55 31 B3 B2 36 20 A7 20 8B 20 53 28 4C 4D 2C |.U1..6 . . S(LM,|
000005E0: 55 50 29 B2 30 20 A7 20 35 30 39 00 17 0E EF 01 |UP).0 . 509.....|
000005F0: 4C 50 B2 4C 31 AA 31 3A 8B 4C 31 B3 B2 36 AF 55 |LP.L1.1:.L1..6.U|
00000600: 31 B3 B2 36 20 A7 8B 53 28 4C 50 2C 55 50 29 B2 |1..6 ..S(LP,UP).|
00000610: 30 20 A7 20 35 30 39 00 2D 0E F0 01 8B 53 28 4C |0 . 509.-....S(L|
00000620: 31 2C 55 31 29 B2 31 20 A7 20 34 39 39 00 59 0E |1,U1).1 . 499.Y.|
00000630: F1 01 55 4D B2 55 31 AB 31 3A 8B 4C 31 B1 B2 31 |..UM.U1.1:.L1..1|
00000640: AF 55 31 B1 B2 31 A7 20 8B 53 28 4C 4D 2C 55 4D |.U1..1. .S(LM,UM|
00000650: 29 B2 30 20 A7 20 35 30 39 00 7A 0E F2 01 8B 4C |).0 . 509.z....L|
00000660: 31 B3 B2 36 AF 55 31 B1 B2 31 A7 8B 53 28 4C 50 |1..6.U1..1..S(LP|
00000670: 2C 55 4D 29 B2 30 A7 35 30 39 00 AD 0E F3 01 8B |,UM).0.509......|
00000680: 4C 31 B1 B2 32 20 AF 55 31 B3 B2 35 A7 8B 20 53 |L1..2 .U1..5.. S|
00000690: 28 4C 4D 2C 55 50 29 B3 30 AF 53 28 4C 31 AB 32 |(LM,UP).0.S(L1.2|
000006A0: 2C 55 31 AA 32 29 B2 30 A7 20 35 30 39 00 E0 0E |,U1.2).0. 509...|
000006B0: F4 01 8B 4C 31 B3 B2 35 AF 55 31 B3 B2 35 A7 20 |...L1..5.U1..5. |
000006C0: 8B 53 28 4C 50 2C 55 50 29 B3 30 AF 20 53 28 4C |.S(LP,UP).0. S(L|
000006D0: 31 AA 32 2C 55 31 AA 32 29 B2 30 A7 20 35 30 39 |1.2,U1.2).0. 509|
000006E0: 00 F7 0E F5 01 8B 53 28 4C 31 2C 55 31 29 B2 31 |......S(L1,U1).1|
000006F0: 20 A7 20 31 30 34 30 00 2A 0F F6 01 8B 4C 31 B1 | . 1040.*....L1.|
00000700: B2 32 AF 55 31 B1 B2 32 20 A7 20 8B 53 28 4C 4D |.2.U1..2 . .S(LM|
00000710: 2C 55 4D 29 B3 30 20 AF 53 28 4C 31 AB 32 2C 55 |,UM).0 .S(L1.2,U|
00000720: 31 AB 32 29 B2 30 A7 35 30 39 00 5E 0F F7 01 8B |1.2).0.509.^....|
00000730: 4C 31 B3 B2 35 AF 55 31 B1 B2 32 20 A7 20 8B 53 |L1..5.U1..2 . .S|
00000740: 28 4C 50 2C 55 4D 29 B3 30 20 AF 53 28 4C 31 AA |(LP,UM).0 .S(L1.|
00000750: 32 2C 55 31 AB 32 29 B2 30 A7 20 35 30 39 00 71 |2,U1.2).0. 509.q|
00000760: 0F F8 01 89 20 31 30 34 30 3A 8F 20 45 52 52 4F |.... 1040:. ERRO|
00000770: 52 00 9C 0F FD 01 4B 49 B2 30 3A 4C 32 B2 4C 31 |R.....KI.0:L2.L1|
00000780: 3A 55 32 B2 55 31 3A 8B 46 31 B2 31 A7 20 46 31 |:U2.U1:.F1.1. F1|
00000790: B2 33 3A 46 32 B2 34 3A 89 32 37 30 00 DB 0F 12 |.3:F2.4:.270....|
000007A0: 02 45 B2 52 31 28 31 29 3A 48 B2 52 31 28 32 29 |.E.R1(1):H.R1(2)|
000007B0: 3A 41 B2 52 31 28 33 29 3A 42 B2 52 31 28 34 29 |:A.R1(3):B.R1(4)|
000007C0: 3A 8B 53 28 45 2C 48 29 B2 34 B0 53 28 41 2C 42 |:.S(E,H).4.S(A,B|
000007D0: 29 B3 B1 30 20 A7 20 31 30 34 30 00 FB 0F 1C 02 |)..0 . 1040.....|
000007E0: 8B B6 28 45 AB 41 29 B1 32 20 B0 20 B6 28 48 AB |..(E.A).2 . .(H.|
000007F0: 42 29 B1 32 20 A7 20 31 30 34 30 00 27 10 30 02 |B).2 . 1040.'.0.|
00000800: 53 28 41 2C 42 29 B2 53 28 45 2C 48 29 3A 53 28 |S(A,B).S(E,H):S(|
00000810: 45 2C 48 29 B2 30 3A 8B B6 28 45 AB 41 29 B3 B1 |E,H).0:..(E.A)..|
00000820: 32 20 A7 20 36 36 30 00 6E 10 3A 02 53 28 28 45 |2 . 660.n.:.S((E|
00000830: AA 41 29 AD 32 2C 28 48 AA 42 29 AD 32 29 B2 30 |.A).2,(H.B).2).0|
00000840: 3A 50 31 B2 50 31 AA 31 3A 46 32 B2 34 3A 46 31 |:P1.P1.1:F2.4:F1|
00000850: B2 33 3A 5A B2 31 3A 52 31 28 31 29 B2 52 31 28 |.3:Z.1:R1(1).R1(|
00000860: 33 29 3A 52 31 28 32 29 B2 52 31 28 34 29 00 80 |3):R1(2).R1(4)..|
00000870: 10 3F 02 8B 42 B2 37 A7 53 28 41 2C 42 29 B2 32 |.?..B.7.S(A,B).2|
00000880: 00 90 10 44 02 8D 32 37 30 30 3A 4B 49 B2 33 35 |...D..2700:KI.35|
00000890: 00 D4 10 45 02 4C 4D B2 4C 31 AB 31 3A 55 50 B2 |...E.LM.L1.1:UP.|
000008A0: 55 31 AA 31 3A 8B 4C 31 B1 B2 32 AF 55 31 B3 B2 |U1.1:.L1..2.U1..|
000008B0: 35 A7 20 8B 53 28 4C 4D 2C 55 50 29 B3 30 20 AF |5. .S(LM,UP).0 .|
000008C0: 53 28 4C 31 AB 32 2C 55 31 AA 32 29 B2 30 20 A7 |S(L1.2,U1.2).0 .|
000008D0: 20 36 30 30 00 0C 11 46 02 4C 50 B2 4C 31 AA 31 | 600...F.LP.L1.1|
000008E0: 3A 8B 4C 31 B3 B2 35 AF 55 31 B3 B2 35 A7 8B 53 |:.L1..5.U1..5..S|
000008F0: 28 4C 50 2C 55 50 29 B3 30 AF 53 28 4C 31 AA 32 |(LP,UP).0.S(L1.2|
00000900: 2C 55 31 AA 32 29 B2 30 A7 36 30 30 00 20 11 47 |,U1.2).0.600. .G|
00000910: 02 8B 53 28 4C 31 2C 55 31 29 B2 31 A7 36 39 30 |..S(L1,U1).1.690|
00000920: 00 59 11 48 02 55 4D B2 55 31 AB 31 3A 8B 4C 31 |.Y.H.UM.U1.1:.L1|
00000930: B1 B2 32 AF 55 31 B1 B2 32 A7 8B 53 28 4C 4D 2C |..2.U1..2..S(LM,|
00000940: 55 4D 29 B3 30 AF 53 28 4C 31 AB 32 2C 55 31 AB |UM).0.S(L1.2,U1.|
00000950: 32 29 B2 30 A7 20 36 30 30 00 8A 11 49 02 8B 4C |2).0. 600...I..L|
00000960: 31 B3 B2 35 AF 55 31 B1 B2 32 A7 8B 53 28 4C 50 |1..5.U1..2..S(LP|
00000970: 2C 55 4D 29 B3 30 AF 53 28 4C 31 AA 32 2C 55 31 |,UM).0.S(L1.2,U1|
00000980: AB 32 29 B2 30 20 A7 36 30 30 00 93 11 4A 02 89 |.2).0 .600...J..|
00000990: 36 39 30 00 A9 11 58 02 44 24 B2 41 4D 24 3A 8D |690...X.D$.AM$:.|
000009A0: 31 38 30 30 3A 89 32 37 30 00 C1 11 76 02 41 31 |1800:.270...v.A1|
000009B0: B2 52 31 28 46 31 29 3A 42 31 B2 52 31 28 46 32 |.R1(F1):B1.R1(F2|
000009C0: 29 00 EE 11 80 02 8B 53 28 41 31 2C 42 31 29 B3 |)......S(A1,B1).|
000009D0: B1 30 B0 B6 28 41 31 AB 41 29 B3 B1 32 B0 B6 28 |.0..(A1.A)..2..(|
000009E0: 42 31 AB 42 29 B3 B1 32 A7 20 31 30 34 30 00 09 |B1.B)..2. 1040..|
000009F0: 12 8A 02 45 B2 41 3A 48 B2 42 3A 41 B2 41 31 3A |...E.A:H.B:A.A1:|
00000A00: 42 B2 42 31 3A 89 35 36 30 00 1B 12 94 02 8B 42 |B.B1:.560......B|
00000A10: B2 37 A7 53 28 41 2C 42 29 B2 32 00 34 12 B2 02 |.7.S(A,B).2.4...|
00000A20: 8D 32 37 30 30 3A 8F 20 55 50 44 41 54 45 20 42 |.2700:. UPDATE B|
00000A30: 4F 41 52 44 00 49 12 BB 02 8F 20 43 4F 4D 50 55 |OARD.I.... COMPU|
00000A40: 54 45 52 53 20 54 55 52 4E 00 5A 12 BC 02 44 24 |TERS TURN.Z...D$|
00000A50: B2 4D 54 24 3A 8D 31 38 30 30 00 7B 12 D0 02 52 |.MT$:.1800.{...R|
00000A60: 4D 28 30 29 B2 B5 28 2E 32 35 AA 28 37 AC BB 28 |M(0)..(.25.(7..(|
00000A70: 31 29 29 29 3A 81 49 B2 31 A4 37 00 B3 12 DA 02 |1))):.I.1.7.....|
00000A80: 52 4D B2 B5 28 2E 32 35 AA 28 37 AC BB 28 31 29 |RM..(.25.(7..(1)|
00000A90: 29 29 3A 81 4A B2 30 A4 49 AB 31 3A 8B 52 4D 28 |)):.J.0.I.1:.RM(|
00000AA0: 4A 29 B2 52 4D A7 4A B2 49 AB 31 3A 82 4A 3A 89 |J).RM.J.I.1:.J:.|
00000AB0: 37 33 30 00 C6 12 E4 02 82 4A 3A 52 4D 28 49 29 |730......J:RM(I)|
00000AC0: B2 52 4D 3A 82 49 00 F1 12 EE 02 81 58 49 B2 30 |.RM:.I......XI.0|
00000AD0: A4 37 3A 58 B2 52 4D 28 58 49 29 3A 81 59 B2 30 |.7:X.RM(XI):.Y.0|
00000AE0: A4 37 3A 8B 53 28 58 2C 59 29 B1 AB 31 A7 37 38 |.7:.S(X,Y)..1.78|
00000AF0: 30 00 15 13 F8 02 8B 53 28 58 2C 59 29 B2 AB 31 |0......S(X,Y)..1|
00000B00: A7 81 41 B2 AB 31 A4 31 A9 32 3A 42 B2 47 3A 8D |..A..1.1.2:B.G:.|
00000B10: 33 30 3A 82 41 00 41 13 02 03 8B 53 28 58 2C 59 |30:.A.A....S(X,Y|
00000B20: 29 B2 AB 32 A7 81 41 B2 AB 31 A4 31 A9 32 3A 81 |)..2..A..1.1.2:.|
00000B30: 42 B2 AB 31 A4 31 A9 32 3A 8D 33 30 3A 82 42 2C |B..1.1.2:.30:.B,|
00000B40: 41 00 4B 13 0C 03 82 59 2C 58 49 00 6C 13 16 03 |A.K....Y,XI.l...|
00000B50: 8B 52 28 30 29 B2 AB 39 39 A7 50 31 B2 31 32 3A |.R(0)..99.P1.12:|
00000B60: 89 32 33 30 3A 8F 20 4C 4F 4F 53 45 00 79 13 20 |.230:. LOOSE.y. |
00000B70: 03 52 28 30 29 B2 AB 39 39 00 9A 13 2A 03 8B 52 |.R(0)..99...*..R|
00000B80: 28 34 29 B2 30 A7 53 28 52 28 33 29 2C 52 28 34 |(4).0.S(R(3),R(4|
00000B90: 29 29 B2 AB 32 3A 89 38 33 30 00 B8 13 34 03 53 |))..2:.830...4.S|
00000BA0: 28 52 28 33 29 2C 52 28 34 29 29 B2 53 28 52 28 |(R(3),R(4)).S(R(|
00000BB0: 31 29 2C 52 28 32 29 29 00 E0 13 3E 03 53 28 52 |1),R(2))...>.S(R|
00000BC0: 28 31 29 2C 52 28 32 29 29 B2 30 3A 8B B6 28 52 |(1),R(2)).0:..(R|
00000BD0: 28 31 29 AB 52 28 33 29 29 B3 B1 32 A7 32 30 30 |(1).R(3))..2.200|
00000BE0: 00 0D 14 48 03 53 28 28 52 28 31 29 AA 52 28 33 |...H.S((R(1).R(3|
00000BF0: 29 29 AD 32 2C 28 52 28 32 29 AA 52 28 34 29 29 |)).2,(R(2).R(4))|
00000C00: AD 32 29 B2 30 3A 43 31 B2 43 31 AA 31 00 3E 14 |.2).0:C1.C1.1.>.|
00000C10: 52 03 58 B2 52 28 33 29 3A 59 B2 52 28 34 29 3A |R.X.R(3):Y.R(4):|
00000C20: 8B 53 28 58 2C 59 29 B2 AB 31 A7 42 B2 AB 32 3A |.S(X,Y)..1.B..2:|
00000C30: 81 41 B2 AB 32 A4 32 A9 34 3A 8D 31 35 30 00 69 |.A..2.2.4:.150.i|
00000C40: 14 5C 03 8B 53 28 58 2C 59 29 B2 AB 32 A7 81 41 |.\..S(X,Y)..2..A|
00000C50: B2 AB 32 A4 32 A9 34 3A 81 42 B2 AB 32 A4 32 A9 |..2.2.4:.B..2.2.|
00000C60: 34 3A 8D 31 35 30 3A 82 42 00 89 14 66 03 82 41 |4:.150:.B...f..A|
00000C70: 3A 8B 52 28 30 29 B3 B1 AB 39 39 A7 52 28 30 29 |:.R(0)...99.R(0)|
00000C80: B2 AB 39 39 3A 89 38 31 30 00 92 14 70 03 89 32 |..99:.810...p..2|
00000C90: 30 30 00 B3 14 10 04 44 24 B2 43 24 3A 8D 31 38 |00.....D$.C$:.18|
00000CA0: 30 30 3A 81 54 B2 31 A4 32 30 30 30 3A 82 3A 89 |00:.T.1.2000:.:.|
00000CB0: 32 32 30 00 C9 14 40 06 8D 31 38 30 30 3A 81 49 |220...@..1800:.I|
00000CC0: B2 31 A4 35 30 30 30 3A 82 00 F4 14 4A 06 44 24 |.1.5000:....J.D$|
00000CD0: B2 22 57 49 4C 20 4A 45 20 4E 4F 47 20 45 45 4E |."WIL JE NOG EEN|
00000CE0: 20 4B 45 45 52 20 53 50 45 4C 45 4E 3F 22 3A 8D | KEER SPELEN?":.|
00000CF0: 31 38 30 30 00 06 15 54 06 8D 32 30 3A 8B 41 24 |1800...T..20:.A$|
00000D00: B2 22 4A 22 A7 8A 00 25 15 5E 06 99 22 42 45 44 |."J"...%.^.."BED|
00000D10: 41 4E 4B 54 20 56 4F 4F 52 20 48 45 54 20 53 50 |ANKT VOOR HET SP|
00000D20: 45 4C 22 3A 80 00 43 15 08 07 44 24 B2 22 20 20 |EL":..C...D$." |
00000D30: 20 20 20 20 20 20 22 AA 44 24 AA 22 20 20 20 20 | ".D$." |
00000D40: 20 20 22 00 5D 15 12 07 99 22 13 22 3B 3A 81 49 | ".]....".";:.I|
00000D50: B2 31 A4 32 34 3A 99 22 11 22 3B 3A 82 00 6C 15 |.1.24:.".";:..l.|
00000D60: 1C 07 99 52 54 24 3B 44 24 3B 3A 8E 00 8A 15 6C |...RT$;D$;:....l|
00000D70: 07 99 22 93 11 11 11 22 3A 52 54 24 B2 22 1D 1D |.."....":RT$."..|
00000D80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 B4 15 8A 07 99 |........."......|
00000D90: 52 54 24 3B 22 12 20 92 C3 12 20 92 C3 12 20 92 |RT$;". ... ... .|
00000DA0: C3 12 20 92 C3 12 20 92 C3 12 20 92 C3 12 20 92 |.. ... ... ... .|
00000DB0: C3 12 20 22 00 E1 15 94 07 99 22 92 22 3B 52 54 |.. "......".";RT|
00000DC0: 24 3B 22 C2 12 20 92 20 12 20 92 20 12 20 92 20 |$;".. . . . . . |
00000DD0: 12 20 92 20 12 20 92 20 12 20 92 20 12 20 92 C2 |. . . . . . . ..|
00000DE0: 22 00 0C 16 9E 07 99 52 54 24 3B 22 12 C2 92 20 |"......RT$;"... |
00000DF0: 12 44 92 20 12 41 92 20 12 4D 92 20 12 4D 92 20 |.D. .A. .M. .M. |
00000E00: 12 45 92 20 12 4E 92 20 12 C2 92 22 00 35 16 A8 |.E. .N. ...".5..|
00000E10: 07 99 52 54 24 3B 22 C2 12 20 92 20 12 20 92 20 |..RT$;".. . . . |
00000E20: 12 20 92 20 12 20 92 20 12 20 92 20 12 20 92 20 |. . . . . . . . |
00000E30: 12 20 92 C2 22 00 5F 16 B2 07 99 52 54 24 3B 22 |. .."._....RT$;"|
00000E40: 12 20 92 C3 12 20 92 C3 12 20 92 C3 12 20 92 C3 |. ... ... ... ..|
00000E50: 12 20 92 C3 12 20 92 C3 12 20 92 C3 12 20 22 00 |. ... ... ... ".|
00000E60: 98 16 BC 07 85 22 11 11 11 4E 41 41 4D 20 20 28 |....."...NAAM (|
00000E70: 48 4F 4F 47 53 54 45 4E 53 20 36 20 4C 45 54 54 |HOOGSTENS 6 LETT|
00000E80: 45 52 53 29 22 3B 50 4C 24 3A 8B C3 28 50 4C 24 |ERS)";PL$:..(PL$|
00000E90: 29 B1 36 A7 31 39 38 30 00 C4 16 D0 07 99 22 11 |).6.1980......".|
00000EA0: 11 11 11 11 1D 1D 1D 57 49 4C 20 4A 45 20 49 4E |.......WIL JE IN|
00000EB0: 53 54 52 55 43 54 49 45 53 20 28 4A 2F 4E 29 22 |STRUCTIES (J/N)"|
00000EC0: 3A 8D 32 30 00 D7 16 E4 07 8B 41 24 B3 B1 22 4A |:.20......A$.."J|
00000ED0: 22 A7 20 32 33 30 30 00 E2 16 EE 07 99 C7 28 31 |". 2300.......(1|
00000EE0: 34 29 00 2E 17 F8 07 99 22 93 11 C2 45 57 45 45 |4)......"...EWEE|
00000EF0: 47 20 44 45 20 4B 4E 49 50 50 45 52 45 4E 44 45 |G DE KNIPPERENDE|
00000F00: 20 12 3F 92 20 4E 41 41 52 22 3A 99 22 44 45 20 | .?. NAAR":."DE |
00000F10: 53 54 45 45 4E 20 44 49 45 20 4A 45 20 57 49 4C |STEEN DIE JE WIL|
00000F20: 20 56 45 52 50 4C 41 41 54 53 45 4E 2C 22 00 4C | VERPLAATSEN,".L|
00000F30: 17 FD 07 99 22 4D 45 54 20 44 45 20 43 55 52 53 |...."MET DE CURS|
00000F40: 4F 52 2D 54 4F 45 54 53 45 4E 2E 22 00 55 17 02 |OR-TOETSEN.".U..|
00000F50: 08 99 22 11 22 00 79 17 16 08 99 22 C4 52 55 4B |..".".y....".RUK|
00000F60: 20 44 41 4E 20 4F 50 20 44 45 20 52 45 54 55 52 | DAN OP DE RETUR|
00000F70: 4E 2D 54 4F 45 54 53 2E 22 00 A1 17 20 08 99 22 |N-TOETS."... .."|
00000F80: D6 45 52 50 4C 41 41 54 53 20 44 41 4E 20 44 45 |.ERPLAATS DAN DE|
00000F90: 20 4B 4E 49 50 50 45 52 45 4E 44 45 20 12 40 92 | KNIPPERENDE .@.|
00000FA0: 22 00 C2 17 2A 08 99 22 4E 41 41 52 20 57 41 41 |"...*.."NAAR WAA|
00000FB0: 52 20 4A 45 20 4E 41 41 52 54 4F 45 20 57 49 4C |R JE NAARTOE WIL|
00000FC0: 2E 22 00 E5 17 34 08 99 22 C4 52 55 4B 20 57 45 |."...4..".RUK WE|
00000FD0: 45 52 20 44 45 20 52 45 54 55 52 4E 2D 54 4F 45 |ER DE RETURN-TOE|
00000FE0: 54 53 2E 11 22 00 04 18 3E 08 99 22 C1 4C 53 20 |TS.."...>..".LS |
00000FF0: 4A 45 20 4E 4F 47 20 45 45 4E 20 5A 45 54 20 48 |JE NOG EEN ZET H|
00001000: 45 42 54 22 00 28 18 48 08 99 22 56 45 52 50 4C |EBT".(.H.."VERPL|
00001010: 41 41 54 53 20 44 45 5A 45 20 53 54 45 45 4E 20 |AATS DEZE STEEN |
00001020: 45 4E 20 56 4F 4C 47 22 00 46 18 52 08 99 22 4D |EN VOLG".F.R.."M|
00001030: 45 54 20 45 45 4E 20 52 45 54 55 52 4E 2D 54 4F |ET EEN RETURN-TO|
00001040: 45 54 53 2E 11 22 00 75 18 5C 08 99 22 C1 4C 53 |ETS..".u.\..".LS|
00001050: 20 4A 45 20 47 45 45 4E 20 5A 45 54 20 48 45 42 | JE GEEN ZET HEB|
00001060: 54 2C 20 44 52 55 4B 20 44 41 4E A0 27 53 50 41 |T, DRUK DAN.'SPA|
00001070: 54 49 45 27 22 00 AF 18 70 08 99 22 4F 4D 20 45 |TIE'"...p.."OM E|
00001080: 45 4E 20 42 45 55 52 54 20 4F 56 45 52 20 54 45 |EN BEURT OVER TE|
00001090: 20 53 4C 41 41 4E 2E 11 22 3A 99 22 C8 4F 4D 45 | SLAAN..":.".OME|
000010A0: 20 53 54 4F 50 20 48 45 54 20 53 50 45 4C 22 00 | STOP HET SPEL".|
000010B0: D8 18 FC 08 53 43 B2 31 30 32 37 3A 43 43 B2 38 |....SC.1027:CC.8|
000010C0: 30 3A 53 55 B2 53 43 3A 43 44 B2 43 43 AD 32 3A |0:SU.SC:CD.CC.2:|
000010D0: 44 49 B2 35 34 32 37 32 00 FF 18 24 09 5A 49 B2 |DI.54272...$.ZI.|
000010E0: 38 37 3A 5A 32 B2 31 30 32 3A 5A 33 B2 38 31 3A |87:Z2.102:Z3.81:|
000010F0: 5A 34 B2 33 32 3A 52 43 B2 32 3A 42 43 B2 30 00 |Z4.32:RC.2:BC.0.|
00001100: 2D 19 2E 09 99 22 11 11 11 11 1D 1D 1D 12 22 3B |-...."........";|
00001110: 50 4C 24 3B 22 92 20 57 49 4C 20 4A 45 20 52 4F |PL$;". WIL JE RO|
00001120: 4F 44 20 4F 46 20 5A 57 41 52 54 3F 22 00 4C 19 |OD OF ZWART?".L.|
00001130: 38 09 8D 32 30 3A 8B 41 24 B3 B1 22 52 22 AF 41 |8..20:.A$.."R".A|
00001140: 24 B3 B1 22 5A 22 A7 20 32 33 36 30 00 7B 19 42 |$.."Z". 2360.{.B|
00001150: 09 8B 41 24 B2 22 5A 22 A7 5A 31 B2 31 30 32 3A |..A$."Z".Z1.102:|
00001160: 5A 32 B2 38 37 3A 5A 33 B2 33 32 3A 5A 34 B2 38 |Z2.87:Z3.32:Z4.8|
00001170: 31 3A 52 43 B2 30 3A 42 43 B2 32 00 A4 19 4C 09 |1:RC.0:BC.2...L.|
00001180: 41 B2 53 55 3A 42 B2 41 AA 28 33 AC 43 44 29 AA |A.SU:B.A.(3.CD).|
00001190: 33 3A 86 53 28 38 2C 38 29 2C 52 31 28 34 29 2C |3:.S(8,8),R1(4),|
000011A0: 52 28 34 29 00 CF 19 56 09 83 31 2C 34 2C 31 2C |R(4)...V..1,4,1,|
000011B0: 34 2C 30 2C 34 2C 2D 31 2C 34 2C 34 2C 31 2C 34 |4,0,4,-1,4,4,1,4|
000011C0: 2C 30 2C 34 2C 2D 31 2C 34 2C 2D 31 2C 31 35 00 |,0,4,-1,4,-1,15.|
000011D0: FA 19 60 09 81 20 49 B2 30 20 A4 37 3A 20 81 4A |..`.. I.0 .7: .J|
000011E0: B2 30 20 A4 20 37 3A 20 87 58 20 3A 20 8B 20 58 |.0 . 7: .X : . X|
000011F0: B2 31 35 20 A7 20 32 34 32 30 00 0D 1A 6A 09 53 |.15 . 2420...j.S|
00001200: 28 49 2C 4A 29 B2 58 3A 89 32 34 33 30 00 1B 1A |(I,J).X:.2430...|
00001210: 74 09 8C 3A 87 53 28 49 2C 4A 29 00 24 1A 7E 09 |t..:.S(I,J).$.~.|
00001220: 82 4A 2C 49 00 61 1A 88 09 54 24 B2 22 4A 4F 55 |.J,I.a...T$."JOU|
00001230: 57 20 42 45 55 52 54 22 3A 43 24 B2 22 12 50 52 |W BEURT":C$.".PR|
00001240: 4F 42 45 45 52 20 4E 4F 47 4D 41 41 4C 53 92 22 |OBEER NOGMAALS."|
00001250: 3A 4D 54 24 B2 22 4D 49 4A 4E 20 42 45 55 52 54 |:MT$."MIJN BEURT|
00001260: 22 00 7A 1A 8D 09 41 4D 24 B2 22 45 45 4E 20 41 |".z...AM$."EEN A|
00001270: 4E 44 45 52 45 20 5A 45 54 22 00 AC 1A 92 09 43 |NDERE ZET".....C|
00001280: 36 24 B2 22 43 2D 36 34 22 3A 53 52 24 B2 22 1D |6$."C-64":SR$.".|
00001290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 C2 1A 9C |..........."....|
000012B0: 09 97 35 33 32 38 31 2C 31 35 3A 99 C7 28 31 34 |..53281,15:..(14|
000012C0: 32 29 00 D4 1A A6 09 47 B2 AB 31 3A 52 28 30 29 |2).....G..1:R(0)|
000012D0: B2 AB 39 39 00 07 1B 28 0A 99 22 93 22 3B 3A 52 |..99...(..".";:R|
000012E0: 54 24 B2 22 1D 1D 1D 22 3A 52 24 B2 C7 28 32 38 |T$."...":R$..(28|
000012F0: 29 AA 22 20 20 20 22 3A 42 24 B2 C7 28 31 34 34 |)." ":B$..(144|
00001300: 29 AA 22 20 20 20 22 00 1F 1B 32 0A 81 49 B2 31 |)." "...2..I.1|
00001310: A4 34 3A 81 4A B2 31 A4 33 3A 99 52 54 24 3B 00 |.4:.J.1.3:.RT$;.|
00001320: 40 1B 3C 0A 81 4C B2 31 A4 34 3A 99 22 12 22 3B |@.<..L.1.4:.".";|
00001330: 52 24 3B 42 24 3B 3A 82 3A 99 22 92 22 3A 82 4A |R$;B$;:.:.".":.J|
00001340: 00 51 1B 46 0A 81 4B B2 31 A4 33 3A 99 52 54 24 |.Q.F..K.1.3:.RT$|
00001350: 3B 00 6C 1B 50 0A 81 4C B2 31 A4 34 3A 99 22 12 |;.l.P..L.1.4:.".|
00001360: 22 3B 42 24 3B 52 24 3B 3A 82 3A 99 00 7B 1B 5A |";B$;R$;:.:..{.Z|
00001370: 0A 82 4B 2C 49 3A 99 22 90 22 3B 00 B0 1B 64 0A |..K,I:.".";...d.|
00001380: 99 22 13 11 11 22 3B 53 52 24 3B 43 36 24 3B 22 |."...";SR$;C6$;"|
00001390: 20 22 3B 50 4C 24 3A 49 B2 53 55 AA 33 AC 43 44 | ";PL$:I.SU.3.CD|
000013A0: AA 32 37 3A 4A B2 53 55 AA 33 AC 43 44 AA 33 32 |.27:J.SU.3.CD.32|
000013B0: 00 D2 1B 78 0A 97 49 2C 5A 32 3A 97 49 AA 44 49 |...x..I,Z2:.I.DI|
000013C0: 2C 52 43 3A 97 4A 2C 5A 31 3A 97 4A AA 44 49 2C |,RC:.J,Z1:.J.DI,|
000013D0: 42 43 00 D8 1B 82 0A 8E 00 EB 1B 8B 0A 8F 20 55 |BC............ U|
000013E0: 50 44 41 54 45 20 42 4F 41 52 44 00 0B 1C 8C 0A |PDATE BOARD.....|
000013F0: 44 31 B2 53 55 AA 43 44 AA 31 3A 81 4A B2 37 A4 |D1.SU.CD.1:.J.7.|
00001400: 30 A9 AB 31 3A 81 49 B2 30 A4 37 00 31 1C 96 0A |0..1:.I.0.7.1...|
00001410: 8B 53 28 49 2C 4A 29 B2 30 A7 20 97 44 31 2C 31 |.S(I,J).0. .D1,1|
00001420: 36 30 3A 97 44 31 AA 44 49 2C 30 3A 89 32 38 35 |60:.D1.DI,0:.285|
00001430: 30 00 57 1C A0 0A 8B 53 28 49 2C 4A 29 B2 31 A7 |0.W....S(I,J).1.|
00001440: 20 97 44 31 2C 5A 31 3A 97 44 31 AA 44 49 2C 52 | .D1,Z1:.D1.DI,R|
00001450: 43 3A 89 32 38 35 30 00 7E 1C AA 0A 8B 53 28 49 |C:.2850.~....S(I|
00001460: 2C 4A 29 B2 AB 31 A7 20 97 44 31 2C 5A 32 3A 97 |,J)..1. .D1,Z2:.|
00001470: 44 31 AA 44 49 2C 42 43 3A 89 32 38 35 30 00 A4 |D1.DI,BC:.2850..|
00001480: 1C B4 0A 8B 53 28 49 2C 4A 29 B2 32 A7 20 97 44 |....S(I,J).2. .D|
00001490: 31 2C 5A 33 3A 97 44 31 AA 44 49 2C 52 43 3A 89 |1,Z3:.D1.DI,RC:.|
000014A0: 32 38 35 30 00 CA 1C BE 0A 8B 53 28 49 2C 4A 29 |2850......S(I,J)|
000014B0: B2 AB 32 A7 97 44 31 2C 5A 34 3A 97 44 31 AA 44 |..2..D1,Z4:.D1.D|
000014C0: 49 2C 42 43 3A 89 32 38 35 30 00 E5 1C 22 0B 44 |I,BC:.2850...".D|
000014D0: 31 B2 44 31 AA 33 3A 82 49 3A 44 31 B2 44 31 AA |1.D1.3:.I:D1.D1.|
000014E0: 39 36 3A 82 4A 00 FA 1C 2C 0B 8F 20 2D 2D 20 55 |96:.J...,.. -- U|
000014F0: 50 44 41 54 20 53 43 4F 52 45 00 18 1D 36 0B 99 |PDAT SCORE...6..|
00001500: 22 13 11 11 11 11 11 22 3B 53 52 24 3B 43 31 3B |"......";SR$;C1;|
00001510: 22 20 20 20 22 3B 50 31 00 1E 1D B8 0B 8E 00 00 |" ";P1........|
00001520: 00 18 |.. |
....... --CHECKERS FOR C-64 --.E.... --G
O INITIALIZE AND PRINT BOARD-.U.... 1900
:.200.K.... A$: . A$."". 20.Q..........
-- COMPUTER SCAN --.....U.X.A: V.Y.B: .
U.0 . U.7 . V.0 . V.7 . 80.V.(.. S(U,V).
0 . . 90 :. 80...2.. S(U,V).0 . 80...<.U
.U.A: V.V.B: . U.0 . U.7 . V.0 . V.7. 80
.,.F.. S(U,V).0 . 90.2.P...P.Z.. V.0 . S
(X,Y)..1 . Q.Q.2.G._.. .(Y.V).2 . Q.Q.5.
Y.D.. Y.7 . Q.Q.2...I.. Y.0 . U.7 . Q.Q.
1.B.N.. C..1 . 1 .2: . U.C.0 . U.C.7 . V
.G.0 . 130...S..S(U.C,V.G).0 . Q.Q.1: .
130...X.. U.C.0 . U.C.7 . V.G.7 . 130.B.
}..S(U.C,V.G).0 . (S(U.C,V.G).0 . (U.C.X
. V.G.Y)) . Q.Q.2.Y.... C: . Q.R(0) . R
(0).Q:R(1).X:R(2).Y:R(3).U:R(4).V.....Q.
0: ......U.X.A:V.Y.B:.U.0.U.7.V.0.V.7.16
0.L....S(U,V).0.S(X.A.2,Y.B.2).0..90.R.
.....G..--PLAYER MAIN LOOP...H..2700....
..C1.12.D$."IK HEB GEWONNEN":.1600.B....
P1.12.D$."JIJ HEBT GEWONNEN":.1600.V...D
$.T$:.1800:Z.0.~...F1.1:F2.2:LO.SU.(22.C
D).1:L1.0:U1.0.....L2.L1.1:U2.U1.1:KI.63
.....F.0:.F$:.F$.."".F.F(F$).....PE.B(LO
):.LO,KI:.T.1.50:.:PC.B(LO.DI):.LO.DI,1.
.."..LO,160:.T.1.50:.:.LO,PE:.LO.DI,PC.2
.,.. F.157 . .L1.0.L1.L1.1:LO.LO.3.F.@..
F.19 . .".":..^.T.. F.13 . F.14 . 490.O
.H.. F.32 . 690...R.. F.20 . Z.0 . 250:
. -----------NULL MOVE ----.J.... F.29
. . L1.7 . L1.L1.1:LO.LO.3...... F.145 .
. U1.7 . U1.U1.1:LO.LO.3.CD...L.. F.17
. . U1.0 . U1.U1.1:LO.LO.3.CD.'.... 270.
[....198,0:R1(F1).L1:R1(F2).U1:.L2.L1 .
U2.U1 . 630.{.... S(L1,U1).0 . KI.63 . 1
040. .... S(L1,U1).4 . S(L1,U1).0 . 1040
...... KI..63 . 509.....LM.L1.1:UP.U1.1:
. L1..1 .U1..6 . . S(LM,UP).0 . 509.....
LP.L1.1:.L1..6.U1..6 ..S(LP,UP).0 . 509.
-....S(L1,U1).1 . 499.Y...UM.U1.1:.L1..1
.U1..1. .S(LM,UM).0 . 509.Z....L1..6.U1.
.1..S(LP,UM).0.509......L1..2 .U1..5.. S
(LM,UP).0.S(L1.2,U1.2).0. 509......L1..5
.U1..5. .S(LP,UP).0. S(L1.2,U1.2).0. 509
......S(L1,U1).1 . 1040.*....L1..2.U1..2
. .S(LM,UM).0 .S(L1.2,U1.2).0.509.^....
L1..5.U1..2 . .S(LP,UM).0 .S(L1.2,U1.2).
0. 509.Q.... 1040:. ERROR.....KI.0:L2.L1
:U2.U1:.F1.1. F1.3:F2.4:.270.....E.R1(1)
:H.R1(2):A.R1(3):B.R1(4):.S(E,H).4.S(A,B
)..0 . 1040.......(E.A).2 . .(H.B).2 . 1
040.'.0.S(A,B).S(E,H):S(E,H).0:..(E.A)..
2 . 660.N.:.S((E.A).2,(H.B).2).0:P1.P1.1
:F2.4:F1.3:Z.1:R1(1).R1(3):R1(2).R1(4)..
.?..B.7.S(A,B).2...D..2700:KI.35.T.E.LM.
L1.1:UP.U1.1:.L1..2.U1..5. .S(LM,UP).0 .
S(L1.2,U1.2).0 . 600...F.LP.L1.1:.L1..5.
U1..5..S(LP,UP).0.S(L1.2,U1.2).0.600. .G
..S(L1,U1).1.690.Y.H.UM.U1.1:.L1..2.U1..
2..S(LM,UM).0.S(L1.2,U1.2).0. 600...I..L
1..5.U1..2..S(LP,UM).0.S(L1.2,U1.2).0 .6
00...J..690...X.D$.AM$:.1800:.270.A.V.A1
.R1(F1):B1.R1(F2)......S(A1,B1)..0..(A1.
A)..2..(B1.B)..2. 1040.....E.A:H.B:A.A1:
B.B1:.560......B.7.S(A,B).2.4....2700:.
UPDATE BOARD.I.... COMPUTERS TURN.Z...D$
.MT$:.1800.{.P.RM(0)..(.25.(7..(1))):.I.
1.7...Z.RM..(.25.(7..(1))):.J.0.I.1:.RM(
J).RM.J.I.1:.J:.730.F....J:RM(I).RM:.I..
....XI.0.7:X.RM(XI):.Y.0.7:.S(X,Y)..1.78
0......S(X,Y)..1..A..1.1.2:B.G:.30:.A.A.
...S(X,Y)..2..A..1.1.2:.B..1.1.2:.30:.B,
A.K....Y,XI.L....R(0)..99.P1.12:.230:. L
OOSE.Y. .R(0)..99...*..R(4).0.S(R(3),R(4
))..2:.830...4.S(R(3),R(4)).S(R(1),R(2))
...>.S(R(1),R(2)).0:..(R(1).R(3))..2.200
...H.S((R(1).R(3)).2,(R(2).R(4)).2).0:C1
.C1.1.>.R.X.R(3):Y.R(4):.S(X,Y)..1.B..2:
.A..2.2.4:.150.I.\..S(X,Y)..2..A..2.2.4:
.B..2.2.4:.150:.B...F..A:.R(0)...99.R(0)
..99:.810...P..200.....D$.C$:.1800:.T.1.
2000:.:.220.I.@..1800:.I.1.5000:....J.D$
."WIL JE NOG EEN KEER SPELEN?":.1800...T
..20:.A$."J"...%.^.."BEDANKT VOOR HET SP
EL":..C...D$." ".D$." ".]...
.".";:.I.1.24:.".";:..L....RT$;D$;:....L
.."....":RT$."..........."......RT$;". .
C. .C. .C. .C. .C. .C. .C. "......".";RT
$;"B. . . . . . . . . . . . . .B"......R
T$;".B. .D. .A. .M. .M. .E. .N. .B.".5..
..RT$;"B. . . . . . . . . . . . . .B"._.
...RT$;". .C. .C. .C. .C. .C. .C. .C. ".
....."...NAAM (HOOGSTENS 6 LETTERS)";PL
$:.C(PL$).6.1980.D.P.."........WIL JE IN
STRUCTIES (J/N)":.20.W....A$.."J". 2300.
.....G(14)......"..BEWEEG DE KNIPPERENDE
.?. NAAR":."DE STEEN DIE JE WIL VERPLAA
TSEN,".L...."MET DE CURSOR-TOETSEN.".U..
..".".Y...."DRUK DAN OP DE RETURN-TOETS.
"... .."VERPLAATS DAN DE KNIPPERENDE .@.
".B.*.."NAAR WAAR JE NAARTOE WIL."...4..
"DRUK WEER DE RETURN-TOETS.."...>.."ALS
JE NOG EEN ZET HEBT".(.H.."VERPLAATS DEZ
E STEEN EN VOLG".F.R.."MET EEN RETURN-TO
ETS..".U.\.."ALS JE GEEN ZET HEBT, DRUK
DAN 'SPATIE'"...P.."OM EEN BEURT OVER TE
SLAAN..":."HOME STOP HET SPEL".X...SC.1
027:CC.80:SU.SC:CD.CC.2:DI.54272...$.ZI.
87:Z2.102:Z3.81:Z4.32:RC.2:BC.0.-...."..
......";PL$;". WIL JE ROOD OF ZWART?".L.
8..20:.A$.."R".A$.."Z". 2360.{.B..A$."Z"
.Z1.102:Z2.87:Z3.32:Z4.81:RC.0:BC.2...L.
A.SU:B.A.(3.CD).3:.S(8,8),R1(4),R(4).O.V
..1,4,1,4,0,4,-1,4,4,1,4,0,4,-1,4,-1,15.
..`.. I.0 .7: .J.0 . 7: .X : . X.15 . 24
20...J.S(I,J).X:.2430...T..:.S(I,J).$.~.
.J,I.A...T$."JOUW BEURT":C$.".PROBEER NO
GMAALS.":MT$."MIJN BEURT".Z...AM$."EEN A
NDERE ZET".....C6$."C-64":SR$.".........
...................".B....53281,15:.G(14
2).T...G..1:R(0)..99...(..".";:RT$."..."
:R$.G(28)." ":B$.G(144)." "...2..I.1
.4:.J.1.3:.RT$;.@.<..L.1.4:.".";R$;B$;:.
:.".":.J.Q.F..K.1.3:.RT$;.L.P..L.1.4:.".
";B$;R$;:.:..{.Z..K,I:.".";...D.."...";S
R$;C6$;" ";PL$:I.SU.3.CD.27:J.SU.3.CD.32
.R.X..I,Z2:.I.DI,RC:.J,Z1:.J.DI,BC.X....
...... UPDATE BOARD.....D1.SU.CD.1:.J.7.
0..1:.I.0.7.1....S(I,J).0. .D1,160:.D1.D
I,0:.2850.W. ..S(I,J).1. .D1,Z1:.D1.DI,R
C:.2850.~....S(I,J)..1. .D1,Z2:.D1.DI,BC
:.2850......S(I,J).2. .D1,Z3:.D1.DI,RC:.
2850.J....S(I,J)..2..D1,Z4:.D1.DI,BC:.28
50...".D1.D1.3:.I:D1.D1.96:.J...,.. -- U
PDAT SCORE...6.."......";SR$;C1;" ";P1
..........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL