D A M E
FILE INFORMATION
FILENAME(S): D A M E
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-02 16:54:23
APPEARS ON: 1 disk(s)
FILE HASH
756fe7030ad5b2e677793c69b5bd36dc283c46eb6a3b3fb3167dca8908400360
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARC | D A M E | PRG | Treasure Chest - Reamigation | 7 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 01 00 8F 2D 2D 43 48 45 43 4B 45 52 |.."....--CHECKER| 00000010: 53 20 46 4F 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 |S FOR COMMODORE | 00000020: 36 34 00 47 08 05 00 8F 2D 2D 47 4F 20 49 4E 49 |64.G....--GO INI| 00000030: 54 49 41 4C 49 5A 45 20 41 4E 44 20 50 52 49 4E |TIALIZE AND PRIN| 00000040: 54 20 42 4F 41 52 44 00 67 08 07 00 8F 2D 2D 43 |T BOARD.g....--C| 00000050: 4F 50 59 52 49 47 48 54 20 42 59 20 44 41 4E 49 |OPYRIGHT BY DANI| 00000060: 45 4C 20 52 4F 54 48 00 76 08 0A 00 8D 31 39 30 |EL ROTH.v....190| 00000070: 30 3A 89 32 30 30 00 88 08 14 00 A1 41 24 3A 8B |0:.200......A$:.| 00000080: 41 24 B2 22 22 A7 32 30 00 8E 08 16 00 8E 00 A4 |A$."".20........| 00000090: 08 1D 00 8F 2D 2D 43 4F 4D 50 55 54 45 52 53 20 |....--COMPUTERS | 000000A0: 53 43 41 4E 00 C8 08 1E 00 55 B2 58 AA 41 3A 56 |SCAN.....U.X.A:V| 000000B0: B2 59 AA 42 3A 8B 55 B3 30 B0 55 B1 37 B0 56 B3 |.Y.B:.U.0.U.7.V.| 000000C0: 30 B0 56 B1 37 A7 38 30 00 DE 08 28 00 8B 53 28 |0.V.7.80...(..S(| 000000D0: 55 2C 56 29 B2 30 A7 8D 39 30 3A 89 38 30 00 EF |U,V).0..90:.80..| 000000E0: 08 32 00 8B 53 28 55 2C 56 29 B3 30 A7 38 30 00 |.2..S(U,V).0.80.| 000000F0: 13 09 3C 00 55 B2 55 AA 41 3A 56 B2 56 AA 42 3A |..<.U.U.A:V.V.B:| 00000100: 8B 55 B3 30 B0 56 B3 30 B0 55 B1 37 B0 56 B1 37 |.U.0.V.0.U.7.V.7| 00000110: A7 38 30 00 25 09 46 00 8B 53 28 55 2C 56 29 B2 |.80.%.F..S(U,V).| 00000120: 30 A7 8D 39 30 00 2B 09 50 00 8E 00 44 09 5A 00 |0..90.+.P...D.Z.| 00000130: 8B 56 B2 30 AF 53 28 58 2C 59 29 B2 AB 31 A7 51 |.V.0.S(X,Y)..1.Q| 00000140: B2 51 AA 32 00 58 09 5F 00 8B B6 28 59 AB 56 29 |.Q.2.X._...(Y.V)| 00000150: B2 32 A7 51 B2 51 AA 35 00 67 09 64 00 8B 59 B2 |.2.Q.Q.5.g.d..Y.| 00000160: 37 A7 51 B2 51 AB 32 00 7A 09 69 00 8B 59 B2 30 |7.Q.Q.2.z.i..Y.0| 00000170: B0 55 B2 37 A7 51 B2 51 AA 31 00 9F 09 6E 00 81 |.U.7.Q.Q.1...n..| 00000180: 43 B2 AB 31 A4 31 A9 32 3A 8B 55 AA 43 B3 30 B0 |C..1.1.2:.U.C.0.| 00000190: 55 AA 43 B1 37 B0 56 AA 47 B3 30 A7 31 33 30 00 |U.C.7.V.G.0.130.| 000001A0: BC 09 73 00 8B 53 28 55 AA 43 2C 56 AA 47 29 B3 |..s..S(U.C,V.G).| 000001B0: 30 A7 51 B2 51 AA 31 3A 89 31 33 30 00 D7 09 78 |0.Q.Q.1:.130...x| 000001C0: 00 8B 55 AB 43 B3 30 B0 55 AB 43 B1 37 B0 56 AB |..U.C.0.U.C.7.V.| 000001D0: 47 B1 37 A7 31 33 30 00 0C 0A 7D 00 8B 53 28 55 |G.7.130...}..S(U| 000001E0: AA 43 2C 56 AA 47 29 B1 30 AF 28 53 28 55 AB 43 |.C,V.G).0.(S(U.C| 000001F0: 2C 56 AB 47 29 B2 30 B0 28 55 AB 43 B2 58 AF 56 |,V.G).0.(U.C.X.V| 00000200: AB 47 B2 59 29 29 A7 51 B2 51 AB 32 00 3E 0A 82 |.G.Y)).Q.Q.2.>..| 00000210: 00 82 43 3A 8B 51 B1 52 28 30 29 A7 52 28 30 29 |..C:.Q.R(0).R(0)| 00000220: B2 51 3A 52 28 31 29 B2 58 3A 52 28 32 29 B2 59 |.Q:R(1).X:R(2).Y| 00000230: 3A 52 28 33 29 B2 55 3A 52 28 34 29 B2 56 00 48 |:R(3).U:R(4).V.H| 00000240: 0A 87 00 51 B2 30 3A 8E 00 6D 0A 96 00 55 B2 58 |...Q.0:..m...U.X| 00000250: AA 41 3A 56 B2 59 AA 42 3A 8B 55 B3 30 B0 55 B1 |.A:V.Y.B:.U.0.U.| 00000260: 37 B0 56 B3 30 B0 56 B1 37 A7 31 36 30 00 90 0A |7.V.0.V.7.160...| 00000270: 9B 00 8B 53 28 55 2C 56 29 B2 30 AF 53 28 58 AA |...S(U,V).0.S(X.| 00000280: 41 AD 32 2C 59 AA 42 AD 32 29 B1 30 A7 8D 39 30 |A.2,Y.B.2).0..90| 00000290: 00 96 0A A0 00 8E 00 AE 0A C7 00 8F 2D 2D 50 4C |............--PL| 000002A0: 41 59 45 52 20 4D 41 49 4E 20 4C 4F 4F 50 00 B8 |AYER MAIN LOOP..| 000002B0: 0A C8 00 8D 32 37 30 30 00 DF 0A DC 00 8B 43 31 |....2700......C1| 000002C0: B2 31 32 A7 44 24 B2 22 49 20 57 4F 4E 20 54 4F |.12.D$."I WON TO| 000002D0: 55 47 48 20 4C 55 43 4B 22 3A 89 31 36 30 30 00 |UGH LUCK":.1600.| 000002E0: 0D 0B E6 00 8B 50 31 B2 31 32 A7 44 24 B2 22 59 |.....P1.12.D$."Y| 000002F0: 4F 55 20 57 4F 4E 20 43 4F 4E 47 52 41 54 55 4C |OU WON CONGRATUL| 00000300: 41 54 49 4F 4E 53 22 3A 89 31 36 30 30 00 21 0B |ATIONS":.1600.!.| 00000310: F0 00 44 24 B2 54 24 3A 8D 31 38 30 30 3A 5A B2 |..D$.T$:.1800:Z.| 00000320: 30 00 49 0B FA 00 46 31 B2 31 3A 46 32 B2 32 3A |0.I...F1.1:F2.2:| 00000330: 4C 4F B2 53 55 AA 28 32 32 AC 43 44 29 AA 31 3A |LO.SU.(22.CD).1:| 00000340: 4C 31 B2 30 3A 55 31 B2 30 00 63 0B 04 01 4C 32 |L1.0:U1.0.c...L2| 00000350: B2 4C 31 AB 31 3A 55 32 B2 55 31 AB 31 3A 4B 49 |.L1.1:U2.U1.1:KI| 00000360: B2 36 33 00 7F 0B 0E 01 46 B2 30 3A A1 46 24 3A |.63.....F.0:.F$:| 00000370: 8B 46 24 B3 B1 22 22 A7 46 B2 C6 28 46 24 29 00 |.F$.."".F..(F$).| 00000380: B3 0B 18 01 50 45 B2 C2 28 4C 4F 29 3A 97 4C 4F |....PE..(LO):.LO| 00000390: 2C 4B 49 3A 81 54 B2 31 A4 31 30 30 3A 82 3A 50 |,KI:.T.1.100:.:P| 000003A0: 43 B2 C2 28 4C 4F AA 44 49 29 3A 97 4C 4F AA 44 |C..(LO.DI):.LO.D| 000003B0: 49 2C 32 00 DB 0B 22 01 97 4C 4F 2C 31 36 30 3A |I,2..."..LO,160:| 000003C0: 81 54 B2 31 A4 31 30 30 3A 82 3A 97 4C 4F 2C 50 |.T.1.100:.:.LO,P| 000003D0: 45 3A 97 4C 4F AA 44 49 2C 50 43 00 FC 0B 2C 01 |E:.LO.DI,PC...,.| 000003E0: 8B 46 B2 31 35 37 A7 8B 4C 31 B1 30 A7 4C 31 B2 |.F.157..L1.0.L1.| 000003F0: 4C 31 AB 31 3A 4C 4F B2 4C 4F AB 33 00 0D 0C 40 |L1.1:LO.LO.3...@| 00000400: 01 8B 46 B2 31 39 A7 99 22 93 22 3A 80 00 21 0C |..F.19..".":..!.| 00000410: 54 01 8B 46 B2 31 33 B0 46 B2 31 34 31 A7 34 39 |T..F.13.F.141.49| 00000420: 30 00 2F 0C 68 01 8B 46 B2 33 32 A7 36 39 30 00 |0./.h..F.32.690.| 00000430: 41 0C 72 01 8B 46 B2 32 30 AF 5A B2 30 A7 32 35 |A.r..F.20.Z.0.25| 00000440: 30 00 61 0C 90 01 8B 46 B2 32 39 A7 8B 4C 31 B3 |0.a....F.29..L1.| 00000450: 37 A7 4C 31 B2 4C 31 AA 31 3A 4C 4F B2 4C 4F AA |7.L1.L1.1:LO.LO.| 00000460: 33 00 85 0C A4 01 8B 46 B2 31 34 35 A7 8B 55 31 |3......F.145..U1| 00000470: B3 37 A7 55 31 B2 55 31 AA 31 3A 4C 4F B2 4C 4F |.7.U1.U1.1:LO.LO| 00000480: AB 33 AC 43 44 00 A8 0C CC 01 8B 46 B2 31 37 A7 |.3.CD......F.17.| 00000490: 8B 55 31 B1 30 A7 55 31 B2 55 31 AB 31 3A 4C 4F |.U1.0.U1.U1.1:LO| 000004A0: B2 4C 4F AA 33 AC 43 44 00 B1 0C E0 01 89 32 37 |.LO.3.CD......27| 000004B0: 30 00 E1 0C EA 01 97 31 39 38 2C 30 3A 52 31 28 |0......198,0:R1(| 000004C0: 46 31 29 B2 4C 31 3A 52 31 28 46 32 29 B2 55 31 |F1).L1:R1(F2).U1| 000004D0: 3A 8B 4C 32 B2 4C 31 B0 55 32 B2 55 31 A7 33 36 |:.L2.L1.U2.U1.36| 000004E0: 30 00 FC 0C EB 01 8B 53 28 4C 31 2C 55 31 29 B2 |0......S(L1,U1).| 000004F0: 30 AF 4B 49 B2 36 33 A7 31 30 34 30 00 1C 0D EC |0.KI.63.1040....| 00000500: 01 8B 53 28 4C 31 2C 55 31 29 B2 34 B0 53 28 4C |..S(L1,U1).4.S(L| 00000510: 31 2C 55 31 29 B3 30 A7 31 30 34 30 00 2C 0D ED |1,U1).0.1040.,..| 00000520: 01 8B 4B 49 B3 B1 36 33 A7 35 30 39 00 5D 0D EE |..KI..63.509.]..| 00000530: 01 4C 4D B2 4C 31 AB 31 3A 55 50 B2 55 31 AA 31 |.LM.L1.1:UP.U1.1| 00000540: 3A 8B 4C 31 B1 B2 31 AF 55 31 B3 B2 36 A7 8B 53 |:.L1..1.U1..6..S| 00000550: 28 4C 4D 2C 55 50 29 B2 30 A7 35 30 39 00 86 0D |(LM,UP).0.509...| 00000560: EF 01 4C 50 B2 4C 31 AA 31 3A 8B 4C 31 B3 B2 36 |..LP.L1.1:.L1..6| 00000570: AF 55 31 B3 B2 36 A7 8B 53 28 4C 50 2C 55 50 29 |.U1..6..S(LP,UP)| 00000580: B2 30 A7 35 30 39 00 9A 0D F0 01 8B 53 28 4C 31 |.0.509......S(L1| 00000590: 2C 55 31 29 B2 31 A7 34 39 39 00 C3 0D F1 01 55 |,U1).1.499.....U| 000005A0: 4D B2 55 31 AB 31 3A 8B 4C 31 B1 B2 31 AF 55 31 |M.U1.1:.L1..1.U1| 000005B0: B1 B2 31 A7 8B 53 28 4C 4D 2C 55 4D 29 B2 30 A7 |..1..S(LM,UM).0.| 000005C0: 35 30 39 00 E4 0D F2 01 8B 4C 31 B3 B2 36 AF 55 |509......L1..6.U| 000005D0: 31 B1 B2 31 A7 8B 53 28 4C 50 2C 55 4D 29 B2 30 |1..1..S(LP,UM).0| 000005E0: A7 35 30 39 00 14 0E F3 01 8B 4C 31 B1 B2 32 AF |.509......L1..2.| 000005F0: 55 31 B3 B2 35 A7 8B 53 28 4C 4D 2C 55 50 29 B3 |U1..5..S(LM,UP).| 00000600: 30 AF 53 28 4C 31 AB 32 2C 55 31 AA 32 29 B2 30 |0.S(L1.2,U1.2).0| 00000610: A7 35 30 39 00 44 0E F4 01 8B 4C 31 B3 B2 35 AF |.509.D....L1..5.| 00000620: 55 31 B3 B2 35 A7 8B 53 28 4C 50 2C 55 50 29 B3 |U1..5..S(LP,UP).| 00000630: 30 AF 53 28 4C 31 AA 32 2C 55 31 AA 32 29 B2 30 |0.S(L1.2,U1.2).0| 00000640: A7 35 30 39 00 59 0E F5 01 8B 53 28 4C 31 2C 55 |.509.Y....S(L1,U| 00000650: 31 29 B2 31 A7 31 30 34 30 00 89 0E F6 01 8B 4C |1).1.1040......L| 00000660: 31 B1 B2 32 AF 55 31 B1 B2 32 A7 8B 53 28 4C 4D |1..2.U1..2..S(LM| 00000670: 2C 55 4D 29 B3 30 AF 53 28 4C 31 AB 32 2C 55 31 |,UM).0.S(L1.2,U1| 00000680: AB 32 29 B2 30 A7 35 30 39 00 B9 0E F7 01 8B 4C |.2).0.509......L| 00000690: 31 B3 B2 35 AF 55 31 B1 B2 32 A7 8B 53 28 4C 50 |1..5.U1..2..S(LP| 000006A0: 2C 55 4D 29 B3 30 AF 53 28 4C 31 AA 32 2C 55 31 |,UM).0.S(L1.2,U1| 000006B0: AB 32 29 B2 30 A7 35 30 39 00 C3 0E F8 01 89 31 |.2).0.509......1| 000006C0: 30 34 30 00 ED 0E FD 01 4B 49 B2 30 3A 4C 32 B2 |040.....KI.0:L2.| 000006D0: 4C 31 3A 55 32 B2 55 31 3A 8B 46 31 B2 31 A7 46 |L1:U2.U1:.F1.1.F| 000006E0: 31 B2 33 3A 46 32 B2 34 3A 89 32 37 30 00 2A 0F |1.3:F2.4:.270.*.| 000006F0: 12 02 45 B2 52 31 28 31 29 3A 48 B2 52 31 28 32 |..E.R1(1):H.R1(2| 00000700: 29 3A 41 B2 52 31 28 33 29 3A 42 B2 52 31 28 34 |):A.R1(3):B.R1(4| 00000710: 29 3A 8B 53 28 45 2C 48 29 B2 34 B0 53 28 41 2C |):.S(E,H).4.S(A,| 00000720: 42 29 B3 B1 30 A7 31 30 34 30 00 46 0F 1C 02 8B |B)..0.1040.F....| 00000730: B6 28 45 AB 41 29 B1 32 B0 B6 28 48 AB 42 29 B1 |.(E.A).2..(H.B).| 00000740: 32 A7 31 30 34 30 00 5F 0F 21 02 8B 53 28 45 2C |2.1040._.!..S(E,| 00000750: 48 29 B2 31 AF 42 AB 48 B3 31 A7 31 30 34 30 00 |H).1.B.H.1.1040.| 00000760: 88 0F 26 02 8B B6 28 45 AB 41 29 B2 32 AF 53 28 |..&...(E.A).2.S(| 00000770: 28 45 AA 41 29 AD 32 2C 28 48 AA 42 29 AD 32 29 |(E.A).2,(H.B).2)| 00000780: B2 B1 30 A7 31 30 34 30 00 B2 0F 30 02 53 28 41 |..0.1040...0.S(A| 00000790: 2C 42 29 B2 53 28 45 2C 48 29 3A 53 28 45 2C 48 |,B).S(E,H):S(E,H| 000007A0: 29 B2 30 3A 8B B6 28 45 AB 41 29 B3 B1 32 A7 36 |).0:..(E.A)..2.6| 000007B0: 36 30 00 F9 0F 3A 02 53 28 28 45 AA 41 29 AD 32 |60...:.S((E.A).2| 000007C0: 2C 28 48 AA 42 29 AD 32 29 B2 30 3A 50 31 B2 50 |,(H.B).2).0:P1.P| 000007D0: 31 AA 31 3A 46 32 B2 34 3A 46 31 B2 33 3A 5A B2 |1.1:F2.4:F1.3:Z.| 000007E0: 31 3A 52 31 28 31 29 B2 52 31 28 33 29 3A 52 31 |1:R1(1).R1(3):R1| 000007F0: 28 32 29 B2 52 31 28 34 29 00 0B 10 3F 02 8B 42 |(2).R1(4)...?..B| 00000800: B2 37 A7 53 28 41 2C 42 29 B2 32 00 1B 10 44 02 |.7.S(A,B).2...D.| 00000810: 8D 32 37 30 30 3A 4B 49 B2 33 35 00 5B 10 45 02 |.2700:KI.35.[.E.| 00000820: 4C 4D B2 4C 31 AB 31 3A 55 50 B2 55 31 AA 31 3A |LM.L1.1:UP.U1.1:| 00000830: 8B 4C 31 B1 B2 32 AF 55 31 B3 B2 35 A7 8B 53 28 |.L1..2.U1..5..S(| 00000840: 4C 4D 2C 55 50 29 B3 30 AF 53 28 4C 31 AB 32 2C |LM,UP).0.S(L1.2,| 00000850: 55 31 AA 32 29 B2 30 A7 36 30 30 00 93 10 46 02 |U1.2).0.600...F.| 00000860: 4C 50 B2 4C 31 AA 31 3A 8B 4C 31 B3 B2 35 AF 55 |LP.L1.1:.L1..5.U| 00000870: 31 B3 B2 35 A7 8B 53 28 4C 50 2C 55 50 29 B3 30 |1..5..S(LP,UP).0| 00000880: AF 53 28 4C 31 AA 32 2C 55 31 AA 32 29 B2 30 A7 |.S(L1.2,U1.2).0.| 00000890: 36 30 30 00 A7 10 47 02 8B 53 28 4C 31 2C 55 31 |600...G..S(L1,U1| 000008A0: 29 B2 31 A7 36 39 30 00 DF 10 48 02 55 4D B2 55 |).1.690...H.UM.U| 000008B0: 31 AB 31 3A 8B 4C 31 B1 B2 32 AF 55 31 B1 B2 32 |1.1:.L1..2.U1..2| 000008C0: A7 8B 53 28 4C 4D 2C 55 4D 29 B3 30 AF 53 28 4C |..S(LM,UM).0.S(L| 000008D0: 31 AB 32 2C 55 31 AB 32 29 B2 30 A7 36 30 30 00 |1.2,U1.2).0.600.| 000008E0: 0F 11 49 02 8B 4C 31 B3 B2 35 AF 55 31 B1 B2 32 |..I..L1..5.U1..2| 000008F0: A7 8B 53 28 4C 50 2C 55 4D 29 B3 30 AF 53 28 4C |..S(LP,UM).0.S(L| 00000900: 31 AA 32 2C 55 31 AB 32 29 B2 30 A7 36 30 30 00 |1.2,U1.2).0.600.| 00000910: 18 11 4A 02 89 36 39 30 00 2E 11 58 02 44 24 B2 |..J..690...X.D$.| 00000920: 41 4D 24 3A 8D 31 38 30 30 3A 89 32 37 30 00 46 |AM$:.1800:.270.F| 00000930: 11 76 02 41 31 B2 52 31 28 46 31 29 3A 42 31 B2 |.v.A1.R1(F1):B1.| 00000940: 52 31 28 46 32 29 00 72 11 80 02 8B 53 28 41 31 |R1(F2).r....S(A1| 00000950: 2C 42 31 29 B3 B1 30 B0 B6 28 41 31 AB 41 29 B3 |,B1)..0..(A1.A).| 00000960: B1 32 B0 B6 28 42 31 AB 42 29 B3 B1 32 A7 31 30 |.2..(B1.B)..2.10| 00000970: 34 30 00 8D 11 8A 02 45 B2 41 3A 48 B2 42 3A 41 |40.....E.A:H.B:A| 00000980: B2 41 31 3A 42 B2 42 31 3A 89 35 36 30 00 9F 11 |.A1:B.B1:.560...| 00000990: 94 02 8B 42 B2 37 A7 53 28 41 2C 42 29 B2 32 00 |...B.7.S(A,B).2.| 000009A0: A9 11 B2 02 8D 32 37 30 30 00 BA 11 BC 02 44 24 |.....2700.....D$| 000009B0: B2 4D 54 24 3A 8D 31 38 30 30 00 DB 11 D0 02 52 |.MT$:.1800.....R| 000009C0: 4D 28 30 29 B2 B5 28 2E 32 35 AA 28 37 AC BB 28 |M(0)..(.25.(7..(| 000009D0: 31 29 29 29 3A 81 49 B2 31 A4 37 00 13 12 DA 02 |1))):.I.1.7.....| 000009E0: 52 4D B2 B5 28 2E 32 35 AA 28 37 AC BB 28 31 29 |RM..(.25.(7..(1)| 000009F0: 29 29 3A 81 4A B2 30 A4 49 AB 31 3A 8B 52 4D 28 |)):.J.0.I.1:.RM(| 00000A00: 4A 29 B2 52 4D A7 4A B2 49 AB 31 3A 82 4A 3A 89 |J).RM.J.I.1:.J:.| 00000A10: 37 33 30 00 26 12 E4 02 82 4A 3A 52 4D 28 49 29 |730.&....J:RM(I)| 00000A20: B2 52 4D 3A 82 49 00 51 12 EE 02 81 58 49 B2 30 |.RM:.I.Q....XI.0| 00000A30: A4 37 3A 58 B2 52 4D 28 58 49 29 3A 81 59 B2 30 |.7:X.RM(XI):.Y.0| 00000A40: A4 37 3A 8B 53 28 58 2C 59 29 B1 AB 31 A7 37 38 |.7:.S(X,Y)..1.78| 00000A50: 30 00 75 12 F8 02 8B 53 28 58 2C 59 29 B2 AB 31 |0.u....S(X,Y)..1| 00000A60: A7 81 41 B2 AB 31 A4 31 A9 32 3A 42 B2 47 3A 8D |..A..1.1.2:B.G:.| 00000A70: 33 30 3A 82 41 00 A1 12 02 03 8B 53 28 58 2C 59 |30:.A......S(X,Y| 00000A80: 29 B2 AB 32 A7 81 41 B2 AB 31 A4 31 A9 32 3A 81 |)..2..A..1.1.2:.| 00000A90: 42 B2 AB 31 A4 31 A9 32 3A 8D 33 30 3A 82 42 2C |B..1.1.2:.30:.B,| 00000AA0: 41 00 AB 12 0C 03 82 59 2C 58 49 00 C4 12 16 03 |A......Y,XI.....| 00000AB0: 8B 52 28 30 29 B2 AB 39 39 A7 50 31 B2 31 32 3A |.R(0)..99.P1.12:| 00000AC0: 89 32 33 30 00 D1 12 20 03 52 28 30 29 B2 AB 39 |.230... .R(0)..9| 00000AD0: 39 00 F2 12 2A 03 8B 52 28 34 29 B2 30 A7 53 28 |9...*..R(4).0.S(| 00000AE0: 52 28 33 29 2C 52 28 34 29 29 B2 AB 32 3A 89 38 |R(3),R(4))..2:.8| 00000AF0: 33 30 00 10 13 34 03 53 28 52 28 33 29 2C 52 28 |30...4.S(R(3),R(| 00000B00: 34 29 29 B2 53 28 52 28 31 29 2C 52 28 32 29 29 |4)).S(R(1),R(2))| 00000B10: 00 38 13 3E 03 53 28 52 28 31 29 2C 52 28 32 29 |.8.>.S(R(1),R(2)| 00000B20: 29 B2 30 3A 8B B6 28 52 28 31 29 AB 52 28 33 29 |).0:..(R(1).R(3)| 00000B30: 29 B3 B1 32 A7 32 30 30 00 65 13 48 03 53 28 28 |)..2.200.e.H.S((| 00000B40: 52 28 31 29 AA 52 28 33 29 29 AD 32 2C 28 52 28 |R(1).R(3)).2,(R(| 00000B50: 32 29 AA 52 28 34 29 29 AD 32 29 B2 30 3A 43 31 |2).R(4)).2).0:C1| 00000B60: B2 43 31 AA 31 00 96 13 52 03 58 B2 52 28 33 29 |.C1.1...R.X.R(3)| 00000B70: 3A 59 B2 52 28 34 29 3A 8B 53 28 58 2C 59 29 B2 |:Y.R(4):.S(X,Y).| 00000B80: AB 31 A7 42 B2 AB 32 3A 81 41 B2 AB 32 A4 32 A9 |.1.B..2:.A..2.2.| 00000B90: 34 3A 8D 31 35 30 00 C1 13 5C 03 8B 53 28 58 2C |4:.150...\..S(X,| 00000BA0: 59 29 B2 AB 32 A7 81 41 B2 AB 32 A4 32 A9 34 3A |Y)..2..A..2.2.4:| 00000BB0: 81 42 B2 AB 32 A4 32 A9 34 3A 8D 31 35 30 3A 82 |.B..2.2.4:.150:.| 00000BC0: 42 00 E1 13 66 03 82 41 3A 8B 52 28 30 29 B3 B1 |B...f..A:.R(0)..| 00000BD0: AB 39 39 A7 52 28 30 29 B2 AB 39 39 3A 89 38 31 |.99.R(0)..99:.81| 00000BE0: 30 00 EA 13 70 03 89 32 30 30 00 0B 14 10 04 44 |0...p..200.....D| 00000BF0: 24 B2 43 24 3A 8D 31 38 30 30 3A 81 54 B2 31 A4 |$.C$:.1800:.T.1.| 00000C00: 32 30 30 30 3A 82 3A 89 32 32 30 00 21 14 40 06 |2000:.:.220.!.@.| 00000C10: 8D 31 38 30 30 3A 81 49 B2 31 A4 35 30 30 30 3A |.1800:.I.1.5000:| 00000C20: 82 00 43 14 4A 06 44 24 B2 22 57 41 4E 54 20 54 |..C.J.D$."WANT T| 00000C30: 4F 20 50 4C 41 59 20 41 47 41 49 4E 22 3A 8D 31 |O PLAY AGAIN":.1| 00000C40: 38 30 30 00 55 14 54 06 8D 32 30 3A 8B 41 24 B2 |800.U.T..20:.A$.| 00000C50: 22 59 22 A7 8A 00 77 14 5E 06 99 3A 99 A6 31 39 |"Y"...w.^..:..19| 00000C60: 29 22 54 48 41 4E 4B 53 20 46 4F 52 20 50 4C 41 |)"THANKS FOR PLA| 00000C70: 59 49 4E 47 22 3A 80 00 95 14 08 07 44 24 B2 22 |YING":......D$."| 00000C80: 20 20 20 20 20 20 20 20 22 AA 44 24 AA 22 20 20 | ".D$." | 00000C90: 20 20 20 20 22 00 AF 14 12 07 99 22 13 22 3B 3A | "......".";:| 00000CA0: 81 49 B2 31 A4 32 34 3A 99 22 11 22 3B 3A 82 00 |.I.1.24:.".";:..| 00000CB0: BE 14 1C 07 99 52 54 24 3B 44 24 3B 3A 8E 00 DC |.....RT$;D$;:...| 00000CC0: 14 6C 07 99 22 93 11 11 11 22 3A 52 54 24 B2 22 |.l.."....":RT$."| 00000CD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 06 15 8A |..........."....| 00000CE0: 07 99 52 54 24 3B 22 12 20 92 A3 12 20 92 A3 12 |..RT$;". ... ...| 00000CF0: 20 92 A3 12 20 92 A3 12 20 92 A3 12 20 92 A3 12 | ... ... ... ...| 00000D00: 20 92 A3 12 20 22 00 33 15 94 07 99 22 92 22 3B | ... ".3....".";| 00000D10: 52 54 24 3B 22 A5 12 20 92 20 12 20 92 20 12 20 |RT$;".. . . . . | 00000D20: 92 20 12 20 92 20 12 20 92 20 12 20 92 20 12 20 |. . . . . . . . | 00000D30: 92 A7 22 00 5D 15 9E 07 99 52 54 24 3B 22 12 43 |..".]....RT$;".C| 00000D40: 92 20 12 48 92 20 12 45 92 20 12 43 92 20 12 4B |. .H. .E. .C. .K| 00000D50: 92 20 12 45 92 20 12 52 92 20 12 53 22 00 89 15 |. .E. .R. .S"...| 00000D60: A8 07 99 22 92 22 3B 52 54 24 3B 22 A5 12 20 92 |...".";RT$;".. .| 00000D70: 20 12 20 92 20 12 20 92 20 12 20 92 20 12 20 92 | . . . . . . . .| 00000D80: 20 12 20 92 20 12 20 92 A7 00 B3 15 B2 07 99 52 | . . . ........R| 00000D90: 54 24 3B 22 12 20 92 A4 12 20 92 A4 12 20 92 A4 |T$;". ... ... ..| 00000DA0: 12 20 92 A4 12 20 92 A4 12 20 92 A4 12 20 92 A4 |. ... ... ... ..| 00000DB0: 12 20 22 00 D0 15 BC 07 85 22 11 11 11 1D 1D 1D |. "......"......| 00000DC0: 4E 41 4D 45 20 50 4C 45 41 53 45 22 3B 50 4C 24 |NAME PLEASE";PL$| 00000DD0: 00 FB 15 D0 07 99 22 11 11 11 11 11 1D 1D 1D 57 |......"........W| 00000DE0: 41 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ANT INSTRUCTIONS| 00000DF0: 20 28 59 2F 4E 29 22 3A 8D 32 30 00 0D 16 E4 07 | (Y/N)":.20.....| 00000E00: 8B 41 24 B3 B1 22 59 22 A7 32 33 30 30 00 13 16 |.A$.."Y".2300...| 00000E10: EE 07 99 00 39 16 F8 07 99 22 93 11 4D 4F 56 45 |....9...."..MOVE| 00000E20: 20 46 4C 41 53 48 49 4E 47 20 12 3F 92 20 54 4F | FLASHING .?. TO| 00000E30: 20 4D 41 4E 20 59 4F 55 22 00 59 16 02 08 99 22 | MAN YOU".Y...."| 00000E40: 57 41 4E 54 20 54 4F 20 4D 4F 56 45 2C 20 57 49 |WANT TO MOVE, WI| 00000E50: 54 48 20 43 55 52 53 4F 52 00 6B 16 0C 08 99 22 |TH CURSOR.k...."| 00000E60: 43 4F 4E 54 52 4F 4C 53 2E 11 22 00 8D 16 16 08 |CONTROLS..".....| 00000E70: 99 22 50 52 45 53 53 20 54 48 45 20 43 41 52 52 |."PRESS THE CARR| 00000E80: 49 41 47 45 20 52 45 54 55 52 4E 2E 22 00 B0 16 |IAGE RETURN."...| 00000E90: 20 08 99 22 54 48 45 4E 20 4D 4F 56 45 20 54 48 | .."THEN MOVE TH| 00000EA0: 45 20 46 4C 41 53 43 48 49 4E 47 20 12 40 92 22 |E FLASCHING .@."| 00000EB0: 00 D0 16 2A 08 99 22 54 4F 20 57 48 45 52 45 20 |...*.."TO WHERE | 00000EC0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 47 4F 2E 22 |YOU WANT TO GO."| 00000ED0: 00 EE 16 34 08 99 22 50 52 45 53 53 20 43 41 52 |...4.."PRESS CAR| 00000EE0: 52 49 41 47 45 20 52 45 54 55 52 4E 2E 11 00 0D |RIAGE RETURN....| 00000EF0: 17 3E 08 99 22 49 46 20 59 4F 55 20 48 41 56 45 |.>.."IF YOU HAVE| 00000F00: 20 41 4E 4F 54 48 45 52 20 4D 4F 56 45 00 2D 17 | ANOTHER MOVE.-.| 00000F10: 48 08 99 22 4D 4F 56 45 20 54 48 49 53 20 4D 41 |H.."MOVE THIS MA| 00000F20: 4E 20 41 4E 44 20 46 4F 4C 4C 4F 57 22 00 4C 17 |N AND FOLLOW".L.| 00000F30: 52 08 99 22 57 49 54 48 20 41 20 43 41 52 52 49 |R.."WITH A CARRI| 00000F40: 41 47 45 20 52 45 54 55 52 4E 2E 11 00 6C 17 5C |AGE RETURN...l.\| 00000F50: 08 99 22 49 46 20 59 4F 55 20 44 4F 20 4E 4F 54 |.."IF YOU DO NOT| 00000F60: 20 48 41 56 45 20 41 20 4D 4F 56 45 00 8A 17 66 | HAVE A MOVE...f| 00000F70: 08 99 22 50 52 45 53 53 20 53 50 41 43 45 20 42 |.."PRESS SPACE B| 00000F80: 41 52 20 54 4F 20 53 4B 49 50 00 AC 17 70 08 99 |AR TO SKIP...p..| 00000F90: 22 41 20 54 55 52 4E 2E 11 22 3A 99 22 48 4F 4D |"A TURN..":."HOM| 00000FA0: 45 20 45 4E 44 53 20 47 41 4D 45 2E 00 D5 17 FC |E ENDS GAME.....| 00000FB0: 08 53 43 B2 31 30 32 37 3A 43 43 B2 38 30 3A 53 |.SC.1027:CC.80:S| 00000FC0: 55 B2 53 43 3A 43 44 B2 43 43 AD 32 3A 44 49 B2 |U.SC:CD.CC.2:DI.| 00000FD0: 35 34 32 37 32 00 FC 17 24 09 5A 31 B2 38 37 3A |54272...$.Z1.87:| 00000FE0: 5A 32 B2 31 30 32 3A 5A 33 B2 38 31 3A 5A 34 B2 |Z2.102:Z3.81:Z4.| 00000FF0: 33 32 3A 52 43 B2 32 3A 42 43 B2 30 00 31 18 2E |32:RC.2:BC.0.1..| 00001000: 09 99 22 11 11 11 11 1D 1D 1D 12 22 3B 50 4C 24 |.."........";PL$| 00001010: 3B 22 92 20 44 4F 20 59 4F 55 20 57 49 53 48 20 |;". DO YOU WISH | 00001020: 52 45 44 20 4F 52 20 42 4C 41 43 4B 20 3F 92 20 |RED OR BLACK ?. | 00001030: 22 00 4F 18 38 09 8D 32 30 3A 8B 41 24 B3 B1 22 |".O.8..20:.A$.."| 00001040: 52 22 AF 41 24 B3 B1 22 42 22 A7 32 33 36 30 00 |R".A$.."B".2360.| 00001050: 7E 18 42 09 8B 41 24 B2 22 42 22 A7 5A 31 B2 31 |~.B..A$."B".Z1.1| 00001060: 30 32 3A 5A 32 B2 38 37 3A 5A 33 B2 33 32 3A 5A |02:Z2.87:Z3.32:Z| 00001070: 34 B2 38 31 3A 52 43 B2 30 3A 42 43 B2 32 00 A7 |4.81:RC.0:BC.2..| 00001080: 18 4C 09 41 B2 53 55 3A 42 B2 41 AA 28 33 AC 43 |.L.A.SU:B.A.(3.C| 00001090: 44 29 AA 33 3A 86 53 28 38 2C 38 29 2C 52 31 28 |D).3:.S(8,8),R1(| 000010A0: 34 29 2C 52 28 34 29 00 D2 18 56 09 83 31 2C 34 |4),R(4)...V..1,4| 000010B0: 2C 31 2C 34 2C 30 2C 34 2C 2D 31 2C 34 2C 34 2C |,1,4,0,4,-1,4,4,| 000010C0: 31 2C 34 2C 30 2C 34 2C 2D 31 2C 34 2C 2D 31 2C |1,4,0,4,-1,4,-1,| 000010D0: 31 35 00 F2 18 60 09 81 49 B2 30 A4 37 3A 81 4A |15...`..I.0.7:.J| 000010E0: B2 30 A4 37 3A 87 58 3A 8B 58 B2 31 35 A7 32 34 |.0.7:.X:.X.15.24| 000010F0: 32 30 00 05 19 6A 09 53 28 49 2C 4A 29 B2 58 3A |20...j.S(I,J).X:| 00001100: 89 32 34 33 30 00 13 19 74 09 8C 3A 87 53 28 49 |.2430...t..:.S(I| 00001110: 2C 4A 29 00 1C 19 7E 09 82 4A 2C 49 00 63 19 88 |,J)...~..J,I.c..| 00001120: 09 54 24 B2 22 59 4F 55 52 20 54 55 52 4E 22 3A |.T$."YOUR TURN":| 00001130: 43 24 B2 22 12 20 54 52 59 20 41 47 41 49 4E 20 |C$.". TRY AGAIN | 00001140: 92 22 3A 4D 54 24 B2 22 4D 59 20 54 55 52 4E 22 |.":MT$."MY TURN"| 00001150: 3A 41 4D 24 B2 22 41 4E 4F 54 48 45 52 20 4D 4F |:AM$."ANOTHER MO| 00001160: 56 45 22 00 95 19 92 09 43 36 24 B2 22 43 2D 36 |VE".....C6$."C-6| 00001170: 34 22 3A 53 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D |4":SR$."........| 00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001190: 1D 1D 1D 1D 22 00 AB 19 9C 09 97 35 33 32 38 31 |...."......53281| 000011A0: 2C 31 34 3A 99 C7 28 31 34 32 29 00 BD 19 A6 09 |,14:..(142).....| 000011B0: 47 B2 AB 31 3A 52 28 30 29 B2 AB 39 39 00 F0 19 |G..1:R(0)..99...| 000011C0: 28 0A 99 22 93 22 3B 3A 52 54 24 B2 22 1D 1D 1D |(..".";:RT$."...| 000011D0: 22 3A 52 24 B2 C7 28 32 38 29 AA 22 20 20 20 22 |":R$..(28)." "| 000011E0: 3A 42 24 B2 C7 28 31 34 34 29 AA 22 20 20 20 22 |:B$..(144)." "| 000011F0: 00 08 1A 32 0A 81 49 B2 31 A4 34 3A 81 4A B2 31 |...2..I.1.4:.J.1| 00001200: A4 33 3A 99 52 54 24 3B 00 28 1A 3C 0A 81 4C B2 |.3:.RT$;.(.<..L.| 00001210: 31 A4 34 3A 99 22 12 22 3B 52 24 3B 42 24 3B 3A |1.4:.".";R$;B$;:| 00001220: 82 3A 99 22 92 22 3A 82 00 39 1A 46 0A 81 4B B2 |.:.".":..9.F..K.| 00001230: 31 A4 33 3A 99 52 54 24 3B 00 54 1A 50 0A 81 4C |1.3:.RT$;.T.P..L| 00001240: B2 31 A4 34 3A 99 22 12 22 3B 42 24 3B 52 24 3B |.1.4:.".";B$;R$;| 00001250: 3A 82 3A 99 00 63 1A 5A 0A 82 4B 2C 49 3A 99 22 |:.:..c.Z..K,I:."| 00001260: 91 90 22 00 98 1A 64 0A 99 22 13 11 11 22 3B 53 |.."...d.."...";S| 00001270: 52 24 3B 43 36 24 3B 22 20 22 3B 50 4C 24 3A 49 |R$;C6$;" ";PL$:I| 00001280: B2 53 55 AA 33 AC 43 44 AA 32 37 3A 4A B2 53 55 |.SU.3.CD.27:J.SU| 00001290: AA 33 AC 43 44 AA 33 32 00 BA 1A 78 0A 97 49 2C |.3.CD.32...x..I,| 000012A0: 5A 32 3A 97 49 AA 44 49 2C 52 43 3A 97 4A 2C 5A |Z2:.I.DI,RC:.J,Z| 000012B0: 31 3A 97 4A AA 44 49 2C 42 43 00 C0 1A 82 0A 8E |1:.J.DI,BC......| 000012C0: 00 E0 1A 8C 0A 44 31 B2 53 55 AA 43 44 AA 31 3A |.....D1.SU.CD.1:| 000012D0: 81 4A B2 37 A4 30 A9 AB 31 3A 81 49 B2 30 A4 37 |.J.7.0..1:.I.0.7| 000012E0: 00 05 1B 96 0A 8B 53 28 49 2C 4A 29 B2 30 A7 97 |......S(I,J).0..| 000012F0: 44 31 2C 31 36 30 3A 97 44 31 AA 44 49 2C 30 3A |D1,160:.D1.DI,0:| 00001300: 89 32 38 35 30 00 2A 1B A0 0A 8B 53 28 49 2C 4A |.2850.*....S(I,J| 00001310: 29 B2 31 A7 97 44 31 2C 5A 31 3A 97 44 31 AA 44 |).1..D1,Z1:.D1.D| 00001320: 49 2C 52 43 3A 89 32 38 35 30 00 50 1B AA 0A 8B |I,RC:.2850.P....| 00001330: 53 28 49 2C 4A 29 B2 AB 31 A7 97 44 31 2C 5A 32 |S(I,J)..1..D1,Z2| 00001340: 3A 97 44 31 AA 44 49 2C 42 43 3A 89 32 38 35 30 |:.D1.DI,BC:.2850| 00001350: 00 75 1B B4 0A 8B 53 28 49 2C 4A 29 B2 32 A7 97 |.u....S(I,J).2..| 00001360: 44 31 2C 5A 33 3A 97 44 31 AA 44 49 2C 52 43 3A |D1,Z3:.D1.DI,RC:| 00001370: 89 32 38 35 30 00 9B 1B BE 0A 8B 53 28 49 2C 4A |.2850......S(I,J| 00001380: 29 B2 AB 32 A7 97 44 31 2C 5A 34 3A 97 44 31 AA |)..2..D1,Z4:.D1.| 00001390: 44 49 2C 42 43 3A 89 32 38 35 30 00 B4 1B 22 0B |DI,BC:.2850...".| 000013A0: 44 31 B2 44 31 AA 33 3A 82 3A 44 31 B2 44 31 AA |D1.D1.3:.:D1.D1.| 000013B0: 39 36 3A 82 00 D2 1B 36 0B 99 22 13 11 11 11 11 |96:....6..".....| 000013C0: 11 22 3B 53 52 24 3B 43 31 3B 22 20 20 20 22 3B |.";SR$;C1;" ";| 000013D0: 50 31 00 D8 1B B8 0B 8E 00 00 00 57 8E 00 |P1.........W.. |
.."....--CHECKERS FOR COMMODORE 64.G....
--GO INITIALIZE AND PRINT BOARD.G....--C
OPYRIGHT BY DANIEL ROTH.V....1900:.200..
....A$:.A$."".20............--COMPUTERS
SCAN.H...U.X.A:V.Y.B:.U.0.U.7.V.0.V.7.80
...(..S(U,V).0..90:.80...2..S(U,V).0.80.
..<.U.U.A:V.V.B:.U.0.V.0.U.7.V.7.80.%.F.
.S(U,V).0..90.+.P...D.Z..V.0.S(X,Y)..1.Q
.Q.2.X._...(Y.V).2.Q.Q.5.G.D..Y.7.Q.Q.2.
Z.I..Y.0.U.7.Q.Q.1...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.W.X..U.C.0.U.C.7.V.G.7.130...}..S(U
.C,V.G).0.(S(U.C,V.G).0.(U.C.X.V.G.Y)).Q
.Q.2.>....C:.Q.R(0).R(0).Q:R(1).X:R(2).Y
:R(3).U:R(4).V.H...Q.0:..M...U.X.A:V.Y.B
:.U.0.U.7.V.0.V.7.160......S(U,V).0.S(X.
A.2,Y.B.2).0..90... .....G..--PLAYER MAI
N LOOP...H..2700......C1.12.D$."I WON TO
UGH LUCK":.1600......P1.12.D$."YOU WON C
ONGRATULATIONS":.1600.!...D$.T$:.1800:Z.
0.I...F1.1:F2.2:LO.SU.(22.CD).1:L1.0:U1.
0.C...L2.L1.1:U2.U1.1:KI.63....F.0:.F$:
.F$.."".F.F(F$).....PE.B(LO):.LO,KI:.T.1
.100:.:PC.B(LO.DI):.LO.DI,2..."..LO,160:
.T.1.100:.:.LO,PE:.LO.DI,PC...,..F.157..
L1.0.L1.L1.1:LO.LO.3...@..F.19..".":..!.
T..F.13.F.141.490./.H..F.32.690.A.R..F.2
0.Z.0.250.A....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......27
0......198,0:R1(F1).L1:R1(F2).U1:.L2.L1.
U2.U1.360......S(L1,U1).0.KI.63.1040....
..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.C...U
M.U1.1:.L1..1.U1..1..S(LM,UM).0.509.....
.L1..6.U1..1..S(LP,UM).0.509......L1..2.
U1..5..S(LM,UP).0.S(L1.2,U1.2).0.509.D..
..L1..5.U1..5..S(LP,UP).0.S(L1.2,U1.2).0
.509.Y....S(L1,U1).1.1040......L1..2.U1.
.2..S(LM,UM).0.S(L1.2,U1.2).0.509......L
1..5.U1..2..S(LP,UM).0.S(L1.2,U1.2).0.50
9.C....1040.....KI.0:L2.L1:U2.U1:.F1.1.F
1.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.F....
.(E.A).2..(H.B).2.1040._.!..S(E,H).1.B.H
.1.1040...&...(E.A).2.S((E.A).2,(H.B).2)
..0.1040...0.S(A,B).S(E,H):S(E,H).0:..(E
.A)..2.660...:.S((E.A).2,(H.B).2).0:P1.P
1.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.[.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.U
1..5..S(LP,UP).0.S(L1.2,U1.2).0.600...G.
.S(L1,U1).1.690...H.UM.U1.1:.L1..2.U1..2
..S(LM,UM).0.S(L1.2,U1.2).0.600...I..L1.
.5.U1..2..S(LP,UM).0.S(L1.2,U1.2).0.600.
..J..690...X.D$.AM$:.1800:.270.F.V.A1.R1
(F1):B1.R1(F2).R....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......2700.....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.&....J:RM(I).RM:.I.Q
....XI.0.7:X.RM(XI):.Y.0.7:.S(X,Y)..1.78
0.U....S(X,Y)..1..A..1.1.2:B.G:.30:.A...
...S(X,Y)..2..A..1.1.2:.B..1.1.2:.30:.B,
A......Y,XI.D....R(0)..99.P1.12:.230.Q.
.R(0)..99...*..R(4).0.S(R(3),R(4))..2:.8
30...4.S(R(3),R(4)).S(R(1),R(2)).8.>.S(R
(1),R(2)).0:..(R(1).R(3))..2.200.E.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.A.\..S(X,Y)..2..A..2.2.4:.B..2.2.
4:.150:.B...F..A:.R(0)...99.R(0)..99:.81
0...P..200.....D$.C$:.1800:.T.1.2000:.:.
220.!.@..1800:.I.1.5000:..C.J.D$."WANT T
O PLAY AGAIN":.1800.U.T..20:.A$."Y"...W.
^..:..19)"THANKS FOR PLAYING":......D$."
".D$." "......".";:.I.1.24:
.".";:.......RT$;D$;:....L.."....":RT$."
..........."......RT$;". ... ... ... ...
... ... ... ".3....".";RT$;".. . . . .
. . . . . . . . ..".]....RT$;".C. .H. .E
. .C. .K. .E. .R. .S"......".";RT$;".. .
. . . . . . . . . . . ........RT$;". ..
. ... ... ... ... ... ... ".P...."......
NAME PLEASE";PL$...P.."........WANT INST
RUCTIONS (Y/N)":.20......A$.."Y".2300...
....9...."..MOVE FLASHING .?. TO MAN YOU
".Y...."WANT TO MOVE, WITH CURSOR.K...."
CONTROLS.."......"PRESS THE CARRIAGE RET
URN."... .."THEN MOVE THE FLASCHING .@."
.P.*.."TO WHERE YOU WANT TO GO."...4.."P
RESS CARRIAGE RETURN.....>.."IF YOU HAVE
ANOTHER MOVE.-.H.."MOVE THIS MAN AND FO
LLOW".L.R.."WITH A CARRIAGE RETURN...L.\
.."IF YOU DO NOT HAVE A MOVE...F.."PRESS
SPACE BAR TO SKIP...P.."A TURN..":."HOM
E ENDS GAME..U...SC.1027:CC.80:SU.SC:CD.
CC.2:DI.54272...$.Z1.87:Z2.102:Z3.81:Z4.
32:RC.2:BC.0.1...."........";PL$;". DO Y
OU WISH RED OR BLACK ?. ".O.8..20:.A$.."
R".A$.."B".2360.~.B..A$."B".Z1.102:Z2.87
:Z3.32:Z4.81:RC.0:BC.2...L.A.SU:B.A.(3.C
D).3:.S(8,8),R1(4),R(4).R.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.2420...J.S(I,J).X:.2430...
T..:.S(I,J)...~..J,I.C...T$."YOUR TURN":
C$.". TRY AGAIN .":MT$."MY TURN":AM$."AN
OTHER MOVE".....C6$."C-64":SR$."........
...................."......53281,14:.G(1
42).....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$;:
.:.".":..9.F..K.1.3:.RT$;.T.P..L.1.4:.".
";B$;R$;:.:..C.Z..K,I:.".."...D.."...";S
R$;C6$;" ";PL$:I.SU.3.CD.27:J.SU.3.CD.32
...X..I,Z2:.I.DI,RC:.J,Z1:.J.DI,BC......
.....D1.SU.CD.1:.J.7.0..1:.I.0.7......S(
I,J).0..D1,160:.D1.DI,0:.2850.*. ..S(I,J
).1..D1,Z1:.D1.DI,RC:.2850.P....S(I,J)..
1..D1,Z2:.D1.DI,BC:.2850.U....S(I,J).2..
D1,Z3:.D1.DI,RC:.2850......S(I,J)..2..D1
,Z4:.D1.DI,BC:.2850...".D1.D1.3:.:D1.D1.
96:..R.6.."......";SR$;C1;" ";P1.X....
...W..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL