DOMINOES
FILE INFORMATION
FILENAME(S): DOMINOES
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-12-01 02:21:53
APPEARS ON: 1 disk(s)
FILE HASH
3936138d96c458df81d5ea7f484cb279c83c16c7ad057ec8a217af4aad6f15b4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 31 GAMES | DOMINOES | PRG | hedning, scooby | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 64 00 8F 20 4D 2E 52 49 43 48 54 45 |....d.. M.RICHTE| 00000010: 52 20 39 30 30 36 34 20 31 32 2F 37 38 00 30 08 |R 90064 12/78.0.| 00000020: 6E 00 50 57 B2 30 3A 54 57 B2 30 3A 54 59 B2 30 |n.PW.0:TW.0:TY.0| 00000030: 00 3B 08 78 00 4B 42 B2 32 30 33 00 81 08 82 00 |.;.x.KB.203.....| 00000040: 97 35 33 32 38 30 2C 31 3A 97 35 33 32 38 31 2C |.53280,1:.53281,| 00000050: 31 3A 97 35 33 32 37 32 2C 32 31 3A 49 B2 BB 28 |1:.53272,21:I..(| 00000060: AB 54 49 29 3A 86 44 24 28 32 37 29 2C 48 24 28 |.TI):.D$(27),H$(| 00000070: 31 2C 32 30 29 2C 50 4C 28 36 29 2C 48 28 32 30 |1,20),PL(6),H(20| 00000080: 29 00 CF 08 8C 00 4C 55 24 B2 22 13 11 11 11 11 |).....LU$.".....| 00000090: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 4C |.............":L| 000000A0: 4F 24 B2 4C 55 24 AA 22 20 20 20 20 20 20 20 20 |O$.LU$." | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 00 | .".| 000000D0: 10 09 96 00 99 22 98 93 11 11 20 20 20 20 20 20 |.....".... | 000000E0: 20 20 12 20 44 4F 4D 49 4E 4F 45 53 20 11 11 22 | . DOMINOES .."| 000000F0: 3A 99 22 50 45 54 20 48 41 53 20 54 48 52 45 45 |:."PET HAS THREE| 00000100: 20 4C 45 56 45 4C 53 20 4F 46 20 50 4C 41 59 3A | LEVELS OF PLAY:| 00000110: 00 3F 09 A0 00 99 22 11 31 2E 20 45 41 53 59 3A |.?....".1. EASY:| 00000120: 20 59 4F 55 20 43 41 4E 20 57 49 4E 20 54 57 4F | YOU CAN WIN TWO| 00000130: 20 47 41 4D 45 53 20 4F 46 20 54 48 52 45 45 00 | GAMES OF THREE.| 00000140: 6E 09 AA 00 99 22 11 32 2E 20 53 4C 49 47 48 54 |n....".2. SLIGHT| 00000150: 4C 59 20 48 41 52 44 45 52 3A 20 4D 41 59 42 45 |LY HARDER: MAYBE| 00000160: 20 36 30 2F 34 30 20 46 4F 52 20 59 4F 55 00 97 | 60/40 FOR YOU..| 00000170: 09 B4 00 99 22 11 33 2E 20 54 4F 55 47 48 3A 20 |....".3. TOUGH: | 00000180: 4E 45 41 52 4C 59 20 45 51 55 41 4C 53 20 42 45 |NEARLY EQUALS BE| 00000190: 53 54 20 50 4C 41 59 00 B2 09 BE 00 99 22 11 11 |ST PLAY......"..| 000001A0: 57 48 49 43 48 20 44 4F 20 59 4F 55 20 57 41 4E |WHICH DO YOU WAN| 000001B0: 54 3F 00 D9 09 C8 00 97 4B 42 2C 30 3A 92 4B 42 |T?......KB,0:.KB| 000001C0: 2C 31 3A A1 43 24 3A 8B 43 24 B3 22 31 22 B0 43 |,1:.C$:.C$."1".C| 000001D0: 24 B1 22 33 22 89 32 30 30 00 E6 09 D2 00 41 4C |$."3".200.....AL| 000001E0: B2 C5 28 43 24 29 00 0C 0A DC 00 50 4C B2 30 3A |..(C$).....PL.0:| 000001F0: 99 22 93 22 A6 31 35 29 22 44 4F 4D 49 4E 4F 45 |.".".15)"DOMINOE| 00000200: 53 11 11 11 11 11 11 11 11 11 11 11 00 40 0A E6 |S............@..| 00000210: 00 4A B2 30 3A 4B B2 30 3A 81 49 B2 30 A4 32 37 |.J.0:K.0:.I.0.27| 00000220: 3A 44 24 28 49 29 B2 CA 28 C4 28 4A 29 2C 32 29 |:D$(I)..(.(J),2)| 00000230: AA CA 28 C4 28 4B 29 2C 32 29 3A 8D 31 35 31 30 |..(.(K),2):.1510| 00000240: 00 59 0A F0 00 4B B2 4B AA 31 3A 8B 4B B1 4A A7 |.Y...K.K.1:.K.J.| 00000250: 4B B2 30 3A 4A B2 4A AA 31 00 9C 0A FA 00 82 49 |K.0:J.J.1......I| 00000260: 3A 81 49 B2 30 A4 32 36 3A 4A B2 49 AA 28 32 38 |:.I.0.26:J.I.(28| 00000270: AB 49 29 AC BB 28 31 29 3A 58 24 B2 44 24 28 49 |.I)..(1):X$.D$(I| 00000280: 29 3A 44 24 28 49 29 B2 44 24 28 4A 29 3A 44 24 |):D$(I).D$(J):D$| 00000290: 28 4A 29 B2 58 24 3A 8D 31 35 31 30 00 D5 0A 04 |(J).X$:.1510....| 000002A0: 01 82 49 3A 81 4A B2 30 A4 36 3A 81 49 B2 30 A4 |..I:.J.0.6:.I.0.| 000002B0: 31 3A 48 24 28 49 2C 4A 29 B2 44 24 28 37 AC 49 |1:H$(I,J).D$(7.I| 000002C0: AA 4A 29 3A 82 49 3A 8D 31 35 31 30 3A 82 4A 3A |.J):.I:.1510:.J:| 000002D0: 53 50 B2 31 34 00 FF 0A 0E 01 81 4A B2 37 A4 32 |SP.14......J.7.2| 000002E0: 30 3A 81 49 B2 30 A4 31 3A 48 24 28 49 2C 4A 29 |0:.I.0.1:H$(I,J)| 000002F0: B2 22 22 3A 82 49 3A 8D 31 35 31 30 3A 82 4A 00 |."":.I:.1510:.J.| 00000300: 2A 0B 18 01 4B 30 24 B2 22 44 22 3A 4B 31 24 B2 |*...K0$."D":K1$.| 00000310: 22 12 44 92 52 41 57 22 3A 4B 32 24 B2 22 44 52 |".D.RAW":K2$."DR| 00000320: 41 57 53 20 41 20 42 4F 4E 45 00 58 0B 22 01 4C |AWS A BONE.X.".L| 00000330: 24 B2 22 22 3A 81 4A B2 30 A4 31 3A 81 49 B2 30 |$."":.J.0.1:.I.0| 00000340: A4 36 3A 58 24 B2 C8 28 48 24 28 4A 2C 49 29 2C |.6:X$..(H$(J,I),| 00000350: 31 29 3A 8D 31 35 31 30 00 81 0B 2C 01 8B 58 24 |1):.1510...,..X$| 00000360: B2 C9 28 48 24 28 4A 2C 49 29 2C 31 29 AF 58 24 |..(H$(J,I),1).X$| 00000370: B1 4C 24 A7 4C 24 B2 58 24 3A 50 B2 4A 3A 4B B2 |.L$.L$.X$:P.J:K.| 00000380: 49 00 96 0B 36 01 82 49 3A 82 4A 3A 8B 4C 24 B2 |I...6..I:.J:.L$.| 00000390: 22 22 89 32 32 30 00 B2 0B 40 01 99 22 13 11 11 |"".220...@.."...| 000003A0: 50 11 9D 4C 11 9D 41 11 9D 59 11 9D 45 11 9D 44 |P..L..A..Y..E..D| 000003B0: 11 11 00 D6 0B 4A 01 99 A6 38 29 22 D5 C0 C0 C0 |.....J...8)"....| 000003C0: C0 A2 A2 A2 C0 C0 C0 C0 C9 20 20 20 42 4F 4E 45 |......... BONE| 000003D0: 20 43 4F 55 4E 54 00 FC 0B 54 01 99 A6 38 29 22 | COUNT...T...8)"| 000003E0: DD 20 20 20 20 12 20 20 20 92 20 20 20 20 DD 20 |. . . . | 000003F0: 20 20 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 00 1C 0C 5E | .............^| 00000400: 01 99 A6 38 29 22 DD 20 D6 20 20 12 20 20 20 92 |...8)". . . .| 00000410: 20 20 D6 20 DD 20 20 20 59 41 52 44 00 3B 0C 68 | . . YARD.;.h| 00000420: 01 99 A6 38 29 22 DD 20 20 20 20 12 20 20 20 92 |...8)". . .| 00000430: 20 20 20 20 DD 20 20 20 59 4F 55 00 5A 0C 72 01 | . YOU.Z.r.| 00000440: 99 A6 38 29 22 CA C0 C0 C0 C0 12 A2 A2 A2 92 C0 |..8)"...........| 00000450: C0 C0 C0 CB 20 20 20 50 45 54 00 6A 0C 7C 01 8D |.... PET.j.|..| 00000460: 31 30 32 30 3A 8D 31 31 37 30 00 A4 0C 86 01 99 |1020:.1170......| 00000470: 4C 4F 24 3A 99 22 54 48 45 20 4C 41 52 47 45 53 |LO$:."THE LARGES| 00000480: 54 20 44 4F 55 42 4C 45 54 20 49 53 20 22 3B 4C |T DOUBLET IS ";L| 00000490: 24 4C 24 3A 52 24 B2 4C 24 3A 8D 31 30 31 30 3A |$L$:R$.L$:.1010:| 000004A0: 89 36 34 30 00 D3 0C 90 01 50 B2 30 3A 97 4B 42 |.640.....P.0:.KB| 000004B0: 2C 30 3A 99 4C 4F 24 3A 99 22 57 48 49 43 48 20 |,0:.LO$:."WHICH | 000004C0: 42 4F 4E 45 20 28 4F 52 20 22 4B 31 24 22 29 3F |BONE (OR "K1$")?| 000004D0: 20 22 3B 00 F3 0C 9A 01 92 4B 42 2C 31 3A A1 58 | ";......KB,1:.X| 000004E0: 24 3A 8B 58 24 B2 4B 30 24 A7 99 58 24 3A 89 31 |$:.X$.K0$..X$:.1| 000004F0: 32 33 30 00 0A 0D A4 01 8B 58 24 B3 22 30 22 B0 |230......X$."0".| 00000500: 58 24 B1 22 36 22 89 34 31 30 00 14 0D AE 01 99 |X$."6".410......| 00000510: 58 24 3B 3A 00 35 0D B8 01 92 4B 42 2C 31 3A A1 |X$;:.5....KB,1:.| 00000520: 59 24 3A 8B 59 24 B3 22 30 22 B0 59 24 B1 22 36 |Y$:.Y$."0".Y$."6| 00000530: 22 89 34 34 30 00 54 0D C2 01 99 59 24 3A 58 24 |".440.T....Y$:X$| 00000540: B2 58 24 AA 59 24 3A 59 24 B2 59 24 AA C8 28 58 |.X$.Y$:Y$.Y$..(X| 00000550: 24 2C 31 29 00 82 0D CC 01 81 4B B2 30 A4 32 30 |$,1)......K.0.20| 00000560: 3A 8B 48 24 28 30 2C 4B 29 B3 B1 58 24 AF 48 24 |:.H$(0,K)..X$.H$| 00000570: 28 30 2C 4B 29 B3 B1 59 24 A7 82 4B 3A 89 31 35 |(0,K)..Y$..K:.15| 00000580: 30 30 00 B1 0D D6 01 52 46 B2 30 3A 8B 50 4C B2 |00.....RF.0:.PL.| 00000590: 30 A7 4C 24 B2 C9 28 58 24 2C 31 29 3A 52 24 B2 |0.L$..(X$,1):R$.| 000005A0: C8 28 58 24 2C 31 29 3A 4C 46 B2 31 3A 89 36 34 |.(X$,1):LF.1:.64| 000005B0: 30 00 D6 0D E0 01 4C 46 B2 30 3A 8B 4C 24 B2 C8 |0.....LF.0:.L$..| 000005C0: 28 58 24 2C 31 29 B0 4C 24 B2 C9 28 58 24 2C 31 |(X$,1).L$..(X$,1| 000005D0: 29 A7 4C 46 B2 31 00 F6 0D EA 01 8B 52 24 B2 C8 |).LF.1......R$..| 000005E0: 28 58 24 2C 31 29 B0 52 24 B2 C9 28 58 24 2C 31 |(X$,1).R$..(X$,1| 000005F0: 29 A7 52 46 B2 31 00 08 0E F4 01 8B 4C 46 AA 52 |).RF.1......LF.R| 00000600: 46 B2 30 89 31 35 30 30 00 23 0E FE 01 8B 4C 46 |F.0.1500.#....LF| 00000610: AC 52 46 B2 30 A7 91 4C 46 AA 31 89 36 30 30 2C |.RF.0..LF.1.600,| 00000620: 36 32 30 00 3D 0E 08 02 8B 4C 24 B2 52 24 B0 48 |620.=....L$.R$.H| 00000630: 24 28 30 2C 31 29 B2 22 22 89 35 38 30 00 5F 0E |$(0,1)."".580._.| 00000640: 12 02 99 4C 4F 24 3A 99 58 24 22 20 2D 20 4C 45 |...LO$:.X$" - LE| 00000650: 46 54 20 4F 52 20 52 49 47 48 54 3F 20 22 3B 00 |FT OR RIGHT? ";.| 00000660: 7C 0E 1C 02 A1 43 24 3A 8B 43 24 B3 B1 22 4C 22 ||....C$:.C$.."L"| 00000670: AF 43 24 B3 B1 22 52 22 89 35 34 30 00 90 0E 26 |.C$.."R".540...&| 00000680: 02 99 43 24 3A 8B 43 24 B2 22 4C 22 89 35 38 30 |..C$:.C$."L".580| 00000690: 00 B0 0E 30 02 8B 52 24 B2 C9 28 58 24 2C 31 29 |...0..R$..(X$,1)| 000006A0: A7 52 24 B2 C8 28 58 24 2C 31 29 3A 89 36 34 30 |.R$..(X$,1):.640| 000006B0: 00 C4 0E 3A 02 52 24 B2 C9 28 58 24 2C 31 29 3A |...:.R$..(X$,1):| 000006C0: 89 36 34 30 00 E4 0E 44 02 8B 4C 24 B2 C9 28 58 |.640...D..L$..(X| 000006D0: 24 2C 31 29 A7 4C 24 B2 C8 28 58 24 2C 31 29 3A |$,1).L$..(X$,1):| 000006E0: 89 36 34 30 00 F8 0E 4E 02 4C 24 B2 C9 28 58 24 |.640...N.L$..(X$| 000006F0: 2C 31 29 3A 89 36 34 30 00 18 0F 58 02 8B 52 24 |,1):.640...X..R$| 00000700: B2 C9 28 58 24 2C 31 29 A7 52 24 B2 C8 28 58 24 |..(X$,1).R$..(X$| 00000710: 2C 31 29 3A 89 36 34 30 00 2C 0F 62 02 52 24 B2 |,1):.640.,.b.R$.| 00000720: C9 28 58 24 2C 31 29 3A 89 36 34 30 00 4C 0F 6C |.(X$,1):.640.L.l| 00000730: 02 8B 4C 24 B2 C9 28 58 24 2C 31 29 A7 4C 24 B2 |..L$..(X$,1).L$.| 00000740: C8 28 58 24 2C 31 29 3A 89 36 34 30 00 60 0F 76 |.(X$,1):.640.`.v| 00000750: 02 4C 24 B2 C9 28 58 24 2C 31 29 3A 89 36 34 30 |.L$..(X$,1):.640| 00000760: 00 76 0F 80 02 8F 20 50 4C 41 59 20 54 48 45 20 |.v.... PLAY THE | 00000770: 44 4F 4D 49 4E 4F 00 B8 0F 8A 02 4C 25 B2 30 3A |DOMINO.....L%.0:| 00000780: 59 24 B2 48 24 28 50 2C 4B 29 3A 81 49 B2 4B A4 |Y$.H$(P,K):.I.K.| 00000790: 31 39 3A 48 24 28 50 2C 49 29 B2 48 24 28 50 2C |19:H$(P,I).H$(P,| 000007A0: 49 AA 31 29 3A 82 49 3A 48 24 28 50 2C 49 29 B2 |I.1):.I:H$(P,I).| 000007B0: 22 22 3A 8D 31 31 37 30 00 DC 0F 94 02 8D 31 30 |"":.1170......10| 000007C0: 32 30 3A 58 24 B2 59 24 3A 99 22 13 11 22 3A 8D |20:X$.Y$:."..":.| 000007D0: 31 30 37 30 3A 50 4C B2 50 4C AA 31 00 F8 0F 9E |1070:PL.PL.1....| 000007E0: 02 58 B2 50 4C 3A 8B 58 B1 31 38 A7 58 B2 58 AB |.X.PL:.X.18.X.X.| 000007F0: 31 38 3A 99 22 11 11 11 00 07 10 A8 02 99 A3 31 |18:."..........1| 00000800: AA 32 AC 58 29 58 24 00 33 10 B2 02 58 24 B2 4C |.2.X)X$.3...X$.L| 00000810: 24 3A 8D 31 30 38 30 3A 99 C8 28 4C 4F 24 2C 31 |$:.1080:..(LO$,1| 00000820: 32 29 A3 39 29 58 24 3A 58 24 B2 52 24 3A 8D 31 |2).9)X$:X$.R$:.1| 00000830: 30 38 30 00 60 10 BC 02 99 22 91 91 91 22 A3 31 |080.`...."...".1| 00000840: 37 29 58 24 3A 8B 48 24 28 30 2C 30 29 B2 22 22 |7)X$:.H$(0,0).""| 00000850: B0 48 24 28 31 2C 30 29 B2 22 22 89 31 33 33 30 |.H$(1,0)."".1330| 00000860: 00 6B 10 C6 02 8B 50 89 34 30 30 00 7C 10 D0 02 |.k....P.400.|...| 00000870: 8F 20 50 45 54 27 53 20 50 4C 41 59 00 90 10 DA |. PET'S PLAY....| 00000880: 02 50 B2 31 3A 91 41 4C 89 39 31 30 2C 38 36 30 |.P.1:.AL.910,860| 00000890: 00 A6 10 E4 02 81 49 B2 30 A4 36 3A 50 4C 28 49 |......I.0.6:PL(I| 000008A0: 29 B2 30 3A 82 49 00 C2 10 EE 02 81 4B B2 30 A4 |).0:.I......K.0.| 000008B0: 32 30 3A 8B 48 24 28 31 2C 4B 29 B2 22 22 89 37 |20:.H$(1,K)."".7| 000008C0: 37 30 00 FB 10 F8 02 8D 31 35 33 30 3A 58 B2 C5 |70......1530:X..| 000008D0: 28 58 24 29 3A 50 4C 28 58 29 B2 50 4C 28 58 29 |(X$):PL(X).PL(X)| 000008E0: AA 31 3A 58 B2 C5 28 59 24 29 3A 50 4C 28 59 29 |.1:X..(Y$):PL(Y)| 000008F0: B2 50 4C 28 59 29 AA 31 3A 82 4B 00 21 11 02 03 |.PL(Y).1:.K.!...| 00000900: 8F 20 50 4C 41 59 41 42 4C 45 20 44 4F 55 42 4C |. PLAYABLE DOUBL| 00000910: 45 54 20 57 49 54 48 20 53 55 43 43 45 53 53 4F |ET WITH SUCCESSO| 00000920: 52 00 3D 11 0C 03 81 4B B2 30 A4 32 30 3A 8B 48 |R.=....K.0.20:.H| 00000930: 24 28 31 2C 4B 29 B2 22 22 89 38 31 30 00 70 11 |$(1,K)."".810.p.| 00000940: 16 03 8D 31 35 33 30 3A 8B 28 58 24 B2 59 24 29 |...1530:.(X$.Y$)| 00000950: AF 28 58 24 B2 52 24 B0 58 24 B2 4C 24 29 AF 28 |.(X$.R$.X$.L$).(| 00000960: 50 4C 28 C5 28 58 24 29 29 B1 32 29 89 39 34 30 |PL(.(X$)).2).940| 00000970: 00 77 11 20 03 82 4B 00 9A 11 2A 03 8F 20 50 4C |.w. ..K...*.. PL| 00000980: 41 59 41 42 4C 45 20 42 4F 4E 45 20 57 49 54 48 |AYABLE BONE WITH| 00000990: 20 53 55 43 43 45 53 53 4F 52 00 B6 11 34 03 81 | SUCCESSOR...4..| 000009A0: 4B B2 30 A4 32 30 3A 8B 48 24 28 31 2C 4B 29 B2 |K.0.20:.H$(1,K).| 000009B0: 22 22 89 38 36 30 00 E3 11 3E 03 8D 31 35 33 30 |"".860...>..1530| 000009C0: 3A 8B 28 28 58 24 B2 4C 24 29 B0 28 58 24 B2 52 |:.((X$.L$).(X$.R| 000009D0: 24 29 29 AF 50 4C 28 C5 28 58 24 29 29 B1 31 89 |$)).PL(.(X$)).1.| 000009E0: 39 34 30 00 0A 12 48 03 8B 28 28 59 24 B2 4C 24 |940...H..((Y$.L$| 000009F0: 29 B0 28 59 24 B2 52 24 29 29 AF 50 4C 28 C5 28 |).(Y$.R$)).PL(.(| 00000A00: 59 24 29 29 B1 31 89 39 34 30 00 11 12 52 03 82 |Y$)).1.940...R..| 00000A10: 4B 00 28 12 5C 03 8F 20 50 4C 41 59 41 42 4C 45 |K.(.\.. PLAYABLE| 00000A20: 20 44 4F 55 42 4C 45 54 00 44 12 66 03 81 4B B2 | DOUBLET.D.f..K.| 00000A30: 30 A4 32 30 3A 8B 48 24 28 31 2C 4B 29 B2 22 22 |0.20:.H$(1,K).""| 00000A40: 89 39 30 30 00 67 12 70 03 8D 31 35 33 30 3A 8B |.900.g.p..1530:.| 00000A50: 58 24 B2 59 24 AF 28 58 24 B2 4C 24 B0 58 24 B2 |X$.Y$.(X$.L$.X$.| 00000A60: 52 24 29 89 39 34 30 00 6E 12 7A 03 82 4B 00 8F |R$).940.n.z..K..| 00000A70: 12 84 03 8F 20 53 54 49 4C 4C 20 4D 4F 52 45 20 |.... STILL MORE | 00000A80: 41 4C 47 4F 52 49 54 48 4D 53 20 48 45 52 45 00 |ALGORITHMS HERE.| 00000A90: A3 12 8E 03 8F 20 50 4C 41 59 41 42 4C 45 20 42 |..... PLAYABLE B| 00000AA0: 4F 4E 45 00 D2 12 98 03 81 4B B2 30 A4 32 30 3A |ONE......K.0.20:| 00000AB0: 8D 31 35 33 30 3A 8B 4C 24 B2 58 24 B0 52 24 B2 |.1530:.L$.X$.R$.| 00000AC0: 58 24 B0 4C 24 B2 59 24 B0 52 24 B2 59 24 89 39 |X$.L$.Y$.R$.Y$.9| 00000AD0: 34 30 00 0B 13 A2 03 82 4B 3A 99 4C 4F 24 3A 99 |40......K:.LO$:.| 00000AE0: 22 50 45 54 20 22 4B 32 24 3A 8D 31 30 31 30 3A |"PET "K2$:.1010:| 00000AF0: 89 31 32 33 30 3A 8F 20 50 45 54 20 44 52 41 57 |.1230:. PET DRAW| 00000B00: 53 20 4F 52 20 50 41 53 53 45 53 00 23 13 AC 03 |S OR PASSES.#...| 00000B10: 8F 20 57 52 41 50 55 50 20 50 45 54 27 53 20 50 |. WRAPUP PET'S P| 00000B20: 4C 41 59 00 44 13 B6 03 99 4C 4F 24 3A 99 22 50 |LAY.D....LO$:."P| 00000B30: 45 54 20 50 4C 41 59 53 20 22 58 24 59 24 3A 8D |ET PLAYS "X$Y$:.| 00000B40: 31 30 31 30 00 74 13 C0 03 58 B2 C5 28 58 24 29 |1010.t...X..(X$)| 00000B50: 3A 50 4C 28 58 29 B2 50 4C 28 58 29 AB 31 3A 58 |:PL(X).PL(X).1:X| 00000B60: B2 C5 28 59 24 29 3A 50 4C 28 58 29 B2 50 4C 28 |..(Y$):PL(X).PL(| 00000B70: 58 29 AB 31 00 8A 13 CA 03 8B 4C 24 B2 58 24 A7 |X).1......L$.X$.| 00000B80: 4C 24 B2 59 24 3A 89 36 34 30 00 A0 13 D4 03 8B |L$.Y$:.640......| 00000B90: 4C 24 B2 59 24 A7 4C 24 B2 58 24 3A 89 36 34 30 |L$.Y$.L$.X$:.640| 00000BA0: 00 B6 13 DE 03 8B 52 24 B2 58 24 A7 52 24 B2 59 |......R$.X$.R$.Y| 00000BB0: 24 3A 89 36 34 30 00 C5 13 E8 03 52 24 B2 58 24 |$:.640.....R$.X$| 00000BC0: 3A 89 36 34 30 00 E7 13 F2 03 81 58 58 B2 31 A4 |:.640......XX.1.| 00000BD0: 31 30 30 3A 82 58 58 3A 8E 3A 8F 20 50 41 55 53 |100:.XX:.:. PAUS| 00000BE0: 45 20 31 20 53 45 43 00 FA 13 FC 03 8F 20 50 55 |E 1 SEC...... PU| 00000BF0: 54 20 55 50 20 43 4F 55 4E 54 00 16 14 06 04 99 |T UP COUNT......| 00000C00: C8 28 4C 4F 24 2C 31 33 29 A3 33 30 29 32 38 AB |.(LO$,13).30)28.| 00000C10: 53 50 22 9D 20 22 00 31 14 10 04 81 49 B2 30 A4 |SP". ".1....I.0.| 00000C20: 32 30 3A 8B 48 24 28 30 2C 49 29 B1 22 22 A7 82 |20:.H$(0,I).""..| 00000C30: 49 00 57 14 1A 04 99 A3 33 30 29 49 22 9D 20 22 |I.W.....30)I". "| 00000C40: 3A 81 49 B2 30 A4 31 39 3A 8B 48 24 28 31 2C 49 |:.I.0.19:.H$(1,I| 00000C50: 29 B1 22 22 A7 82 49 00 68 14 24 04 99 A3 33 30 |).""..I.h.$...30| 00000C60: 29 49 22 9D 20 22 3A 8E 00 89 14 2E 04 58 24 B2 |)I". ":......X$.| 00000C70: C8 28 58 24 2C 31 29 AA 22 9D 11 C0 9D 11 22 AA |.(X$,1).".....".| 00000C80: C9 28 58 24 2C 31 29 3A 8E 00 9E 14 38 04 8F 20 |.(X$,1):....8.. | 00000C90: 47 45 54 20 44 4F 54 20 46 4F 52 4D 41 54 00 CE |GET DOT FORMAT..| 00000CA0: 14 42 04 91 31 AA C5 28 58 24 29 89 31 31 30 30 |.B..1..(X$).1100| 00000CB0: 2C 31 31 31 30 2C 31 31 32 30 2C 31 31 33 30 2C |,1110,1120,1130,| 00000CC0: 31 31 34 30 2C 31 31 35 30 2C 31 31 36 30 00 EB |1140,1150,1160..| 00000CD0: 14 4C 04 58 24 B2 22 20 20 20 11 9D 9D 9D 20 20 |.L.X$." .... | 00000CE0: 20 11 9D 9D 9D 20 20 20 22 3A 8E 00 08 15 56 04 | .... ":....V.| 00000CF0: 58 24 B2 22 20 20 20 11 9D 9D 9D 20 D1 20 11 9D |X$." .... . ..| 00000D00: 9D 9D 20 20 20 22 3A 8E 00 25 15 60 04 58 24 B2 |.. ":..%.`.X$.| 00000D10: 22 D1 20 20 11 9D 9D 9D 20 20 20 11 9D 9D 9D 20 |". .... .... | 00000D20: 20 D1 22 3A 8E 00 42 15 6A 04 58 24 B2 22 D1 20 | .":..B.j.X$.". | 00000D30: 20 11 9D 9D 9D 20 D1 20 11 9D 9D 9D 20 20 D1 22 | .... . .... ."| 00000D40: 3A 8E 00 5F 15 74 04 58 24 B2 22 D1 20 D1 11 9D |:.._.t.X$.". ...| 00000D50: 9D 9D 20 20 20 11 9D 9D 9D D1 20 D1 22 3A 8E 00 |.. ..... .":..| 00000D60: 7C 15 7E 04 58 24 B2 22 D1 20 D1 11 9D 9D 9D 20 ||.~.X$.". ..... | 00000D70: D1 20 11 9D 9D 9D D1 20 D1 22 3A 8E 00 99 15 88 |. ..... .":.....| 00000D80: 04 58 24 B2 22 D1 20 D1 11 9D 9D 9D D1 20 D1 11 |.X$.". ...... ..| 00000D90: 9D 9D 9D D1 20 D1 22 3A 8E 00 B7 15 92 04 8F 20 |.... .":....... | 00000DA0: 50 52 49 4E 54 20 50 4C 41 59 45 52 27 53 20 44 |PRINT PLAYER'S D| 00000DB0: 4F 4D 49 4E 4F 45 53 00 DE 15 9C 04 99 4C 55 24 |OMINOES......LU$| 00000DC0: 22 11 11 11 22 3A 81 49 B2 30 A4 31 39 3A 8B 48 |"...":.I.0.19:.H| 00000DD0: 24 28 30 2C 49 29 B1 22 22 89 31 32 31 30 00 F3 |$(0,I)."".1210..| 00000DE0: 15 A6 04 8B 49 B3 32 30 A7 99 22 20 9D 11 20 9D |....I.20.." .. .| 00000DF0: 11 20 22 00 FD 15 B0 04 49 B2 30 3A 8E 00 25 16 |. ".....I.0:..%.| 00000E00: BA 04 58 24 B2 48 24 28 30 2C 49 29 3A 8D 31 30 |..X$.H$(0,I):.10| 00000E10: 37 30 3A 99 58 24 3B 3A 8B 49 B3 31 39 A7 99 22 |70:.X$;:.I.19.."| 00000E20: 91 20 91 22 3B 00 2E 16 C4 04 82 49 3A 8E 00 48 |. .";......I:..H| 00000E30: 16 CE 04 8F 20 50 45 54 20 44 52 41 57 53 20 4F |.... PET DRAWS O| 00000E40: 52 20 50 41 53 53 45 53 00 58 16 D8 04 8B 53 50 |R PASSES.X....SP| 00000E50: B2 32 38 89 31 32 39 30 00 73 16 E2 04 81 49 B2 |.28.1290.s....I.| 00000E60: 30 A4 32 30 3A 8B 48 24 28 50 2C 49 29 B1 22 22 |0.20:.H$(P,I).""| 00000E70: A7 82 49 00 82 16 EC 04 99 C8 28 4C 55 24 2C 31 |..I.......(LU$,1| 00000E80: 33 29 00 C2 16 F6 04 8B 53 50 B1 32 36 A7 99 22 |3)......SP.26.."| 00000E90: 12 20 59 41 52 44 22 3A 99 22 12 45 4D 50 54 59 |. YARD":.".EMPTY| 00000EA0: 22 3A 4B 30 24 B2 22 50 22 3A 4B 31 24 B2 22 12 |":K0$."P":K1$.".| 00000EB0: 50 92 41 53 53 22 3A 4B 32 24 B2 22 50 41 53 53 |P.ASS":K2$."PASS| 00000EC0: 45 53 00 F6 16 00 05 48 24 28 50 2C 49 29 B2 44 |ES.....H$(P,I).D| 00000ED0: 24 28 53 50 29 3A 53 50 B2 53 50 AA 31 3A 8D 31 |$(SP):SP.SP.1:.1| 00000EE0: 31 37 30 3A 8D 31 30 32 30 3A 91 50 AA 31 89 34 |170:.1020:.P.1.4| 00000EF0: 30 30 2C 37 32 30 00 07 17 0A 05 8F 20 50 41 53 |00,720...... PAS| 00000F00: 53 20 4C 4F 47 49 43 00 14 17 14 05 8B 4C 25 89 |S LOGIC......L%.| 00000F10: 31 33 33 30 00 1D 17 1E 05 4C 25 B2 31 00 2E 17 |1330.....L%.1...| 00000F20: 28 05 91 50 AA 31 89 37 32 30 2C 34 30 30 00 4A |(..P.1.720,400.J| 00000F30: 17 32 05 53 30 B2 30 3A 81 49 B2 30 A4 31 39 3A |.2.S0.0:.I.0.19:| 00000F40: 58 24 B2 48 24 28 30 2C 49 29 00 74 17 3C 05 8B |X$.H$(0,I).t.<..| 00000F50: 58 24 B1 22 22 A7 53 30 B2 53 30 AA C5 28 C8 28 |X$."".S0.S0..(.(| 00000F60: 58 24 2C 31 29 29 AA C5 28 C9 28 58 24 2C 31 29 |X$,1))..(.(X$,1)| 00000F70: 29 3A 82 49 00 90 17 46 05 53 31 B2 30 3A 81 49 |):.I...F.S1.0:.I| 00000F80: B2 30 A4 31 39 3A 58 24 B2 48 24 28 31 2C 49 29 |.0.19:X$.H$(1,I)| 00000F90: 00 BA 17 50 05 8B 58 24 B1 22 22 A7 53 31 B2 53 |...P..X$."".S1.S| 00000FA0: 31 AA C5 28 C8 28 58 24 2C 31 29 29 AA C5 28 C9 |1..(.(X$,1))..(.| 00000FB0: 28 58 24 2C 31 29 29 3A 82 49 00 DF 17 5A 05 8B |(X$,1)):.I...Z..| 00000FC0: 53 30 B1 53 31 A7 58 24 B2 22 12 20 50 45 54 20 |S0.S1.X$.". PET | 00000FD0: 57 49 4E 53 20 20 22 3A 50 57 B2 50 57 AA 31 00 |WINS ":PW.PW.1.| 00000FE0: FC 17 64 05 8B 53 31 B1 53 30 A7 58 24 B2 22 12 |..d..S1.S0.X$.".| 00000FF0: 20 59 4F 55 20 57 49 4E 20 20 20 22 00 21 18 6E | YOU WIN ".!.n| 00001000: 05 8B 53 30 B2 53 31 A7 58 24 B2 22 12 49 54 27 |..S0.S1.X$.".IT'| 00001010: 53 20 41 20 44 52 41 57 22 3A 54 59 B2 54 59 AA |S A DRAW":TY.TY.| 00001020: 31 00 45 18 78 05 54 30 B2 54 30 AA 53 30 3A 54 |1.E.x.T0.T0.S0:T| 00001030: 31 B2 54 31 AA 53 31 3A 54 57 B2 54 57 AA 31 3A |1.T1.S1:TW.TW.1:| 00001040: 8D 31 30 32 30 00 74 18 82 05 99 4C 4F 24 3A 99 |.1020.t....LO$:.| 00001050: 22 12 22 58 24 22 92 20 53 43 4F 52 45 3A 20 59 |"."X$". SCORE: Y| 00001060: 4F 55 22 53 30 22 2C 20 50 45 54 22 53 31 3A 8D |OU"S0", PET"S1:.| 00001070: 31 30 31 30 00 97 18 8C 05 99 22 A4 A4 A4 A4 A4 |1010......".....| 00001080: A4 A4 A4 A4 A4 A4 22 3A 99 22 12 20 41 4E 4F 54 |......":.". ANOT| 00001090: 48 45 52 3F 20 20 22 00 B7 18 96 05 97 4B 42 2C |HER? "......KB,| 000010A0: 30 3A 92 4B 42 2C 31 3A A1 43 24 3A 8B 43 24 B2 |0:.KB,1:.C$:.C$.| 000010B0: 22 59 22 89 32 32 30 00 C9 18 A0 05 8B 43 24 B3 |"Y".220......C$.| 000010C0: B1 22 4E 22 89 31 34 33 30 00 D6 18 AA 05 8F 20 |."N".1430...... | 000010D0: 57 52 41 50 55 50 00 0C 19 B4 05 99 22 93 11 11 |WRAPUP......"...| 000010E0: 4F 46 20 54 48 45 22 54 57 22 47 41 4D 45 53 2C |OF THE"TW"GAMES,| 000010F0: 20 59 4F 55 20 57 4F 4E 22 54 57 AB 54 59 AB 50 | YOU WON"TW.TY.P| 00001100: 57 22 50 45 54 20 57 4F 4E 22 50 57 00 28 19 BE |W"PET WON"PW.(..| 00001110: 05 8B 54 59 A7 99 22 41 4E 44 22 54 59 22 57 45 |..TY.."AND"TY"WE| 00001120: 52 45 20 44 52 41 57 53 00 50 19 C8 05 99 22 11 |RE DRAWS.P....".| 00001130: 54 48 45 20 54 4F 54 41 4C 53 20 57 45 52 45 3A |THE TOTALS WERE:| 00001140: 20 59 4F 55 22 54 30 22 2C 20 50 45 54 22 54 31 | YOU"T0", PET"T1| 00001150: 00 76 19 D2 05 99 22 11 11 54 4F 20 50 4C 41 59 |.v...."..TO PLAY| 00001160: 20 41 47 41 49 4E 2C 20 45 4E 54 45 52 20 27 52 | AGAIN, ENTER 'R| 00001170: 55 4E 27 22 3A 80 00 9B 19 DC 05 99 4C 4F 24 3A |UN'":.......LO$:| 00001180: 99 22 54 52 59 20 41 47 41 49 4E 3A 20 22 3B 3A |."TRY AGAIN: ";:| 00001190: 97 32 30 33 2C 30 3A 89 34 31 30 00 B2 19 E6 05 |.203,0:.410.....| 000011A0: 99 22 91 22 A6 31 34 29 3B 3A 8B 55 A7 99 22 20 |.".".14);:.U.." | 000011B0: 22 3B 00 CC 19 F0 05 99 22 53 48 55 46 46 4C 49 |";......"SHUFFLI| 000011C0: 4E 47 20 22 3A 55 B2 31 AB 55 3A 8E 00 F3 19 FA |NG ":U.1.U:.....| 000011D0: 05 58 24 B2 48 24 28 31 2C 4B 29 3A 59 24 B2 C9 |.X$.H$(1,K):Y$..| 000011E0: 28 58 24 2C 31 29 3A 58 24 B2 C8 28 58 24 2C 31 |(X$,1):X$..(X$,1| 000011F0: 29 3A 8E 00 00 00 |):.... |
....D.. M.RICHTER 90064 12/78.0.N.PW.0:T
W.0:TY.0.;.X.KB.203......53280,1:.53281,
1:.53272,21:I..(.TI):.D$(27),H$(1,20),PL
(6),H(20).O...LU$."..................":L
O$.LU$."
."......".... . DOMINOES .."
:."PET HAS THREE LEVELS OF PLAY:.?. ..".
1. EASY: YOU CAN WIN TWO GAMES OF THREE.
N....".2. SLIGHTLY HARDER: MAYBE 60/40 F
OR YOU......".3. TOUGH: NEARLY EQUALS BE
ST PLAY......"..WHICH DO YOU WANT?.Y.H..
KB,0:.KB,1:.C$:.C$."1".C$."3".200...R.AL
.E(C$).....PL.0:.".".15)"DOMINOES.......
.....@...J.0:K.0:.I.0.27:D$(I).J(D(J),2)
.J(D(K),2):.1510.Y...K.K.1:.K.J.K.0:J.J.
1......I:.I.0.26:J.I.(28.I)..(1):X$.D$(I
):D$(I).D$(J):D$(J).X$:.1510.U....I:.J.0
.6:.I.0.1:H$(I,J).D$(7.I.J):.I:.1510:.J:
SP.14......J.7.20:.I.0.1:H$(I,J)."":.I:.
1510:.J.*...K0$."D":K1$.".D.RAW":K2$."DR
AWS A BONE.X.".L$."":.J.0.1:.I.0.6:X$.H(
H$(J,I),1):.1510...,..X$.I(H$(J,I),1).X$
.L$.L$.X$:P.J:K.I...6..I:.J:.L$."".220..
.@.."...P..L..A..Y..E..D...V.J...8)"U...
........I BONE COUNT...T...8)". .
. . DDDDDDDDDD...^...8)". V . .
V . YARD.;.H...8)". . . .
YOU.Z.R...8)"J.............K PET.J.|..
1020:.1170......LO$:."THE LARGEST DOUBLE
T IS ";L$L$:R$.L$:.1010:.640.S...P.0:.KB
,0:.LO$:."WHICH BONE (OR "K1$")? ";.....
.KB,1:.X$:.X$.K0$..X$:.1230......X$."0".
X$."6".410......X$;:.5....KB,1:.Y$:.Y$."
0".Y$."6".440.T.B..Y$:X$.X$.Y$:Y$.Y$.H(X
$,1)...L..K.0.20:.H$(0,K)..X$.H$(0,K)..Y
$..K:.1500...V.RF.0:.PL.0.L$.I(X$,1):R$.
H(X$,1):LF.1:.640.V...LF.0:.L$.H(X$,1).L
$.I(X$,1).LF.1......R$.H(X$,1).R$.I(X$,1
).RF.1......LF.RF.0.1500.#....LF.RF.0..L
F.1.600,620.=....L$.R$.H$(0,1)."".580._.
...LO$:.X$" - LEFT OR RIGHT? ";.|....C$:
.C$.."L".C$.."R".540...&..C$:.C$."L".580
...0..R$.I(X$,1).R$.H(X$,1):.640.D.:.R$.
I(X$,1):.640...D..L$.I(X$,1).L$.H(X$,1):
.640...N.L$.I(X$,1):.640...X..R$.I(X$,1)
.R$.H(X$,1):.640.,.B.R$.I(X$,1):.640.L.L
..L$.I(X$,1).L$.H(X$,1):.640.`.V.L$.I(X$
,1):.640.V.... PLAY THE DOMINO.....L%.0:
Y$.H$(P,K):.I.K.19:H$(P,I).H$(P,I.1):.I:
H$(P,I)."":.1170......1020:X$.Y$:."..":.
1070:PL.PL.1.....X.PL:.X.18.X.X.18:."...
.......1.2.X)X$.3...X$.L$:.1080:.H(LO$,1
2).9)X$:X$.R$:.1080.`...."...".17)X$:.H$
(0,0)."".H$(1,0)."".1330.K.F..P.400.|.P.
. PET'S PLAY...Z.P.1:.AL.910,860......I.
0.6:PL(I).0:.I.B....K.0.20:.H$(1,K)."".7
70......1530:X.E(X$):PL(X).PL(X).1:X.E(Y
$):PL(Y).PL(Y).1:.K.!.... PLAYABLE DOUBL
ET WITH SUCCESSOR.=....K.0.20:.H$(1,K)."
".810.P....1530:.(X$.Y$).(X$.R$.X$.L$).(
PL(E(X$)).2).940.W. ..K...*.. PLAYABLE B
ONE WITH SUCCESSOR...4..K.0.20:.H$(1,K).
"".860...>..1530:.((X$.L$).(X$.R$)).PL(E
(X$)).1.940...H..((Y$.L$).(Y$.R$)).PL(E(
Y$)).1.940...R..K.(.\.. PLAYABLE DOUBLET
.D.F..K.0.20:.H$(1,K)."".900.G.P..1530:.
X$.Y$.(X$.L$.X$.R$).940.N.Z..K...... STI
LL MORE ALGORITHMS HERE...... PLAYABLE B
ONE.R....K.0.20:.1530:.L$.X$.R$.X$.L$.Y$
.R$.Y$.940......K:.LO$:."PET "K2$:.1010:
.1230:. PET DRAWS OR PASSES.#.... WRAPUP
PET'S PLAY.D....LO$:."PET PLAYS "X$Y$:.
1010.T...X.E(X$):PL(X).PL(X).1:X.E(Y$):P
L(X).PL(X).1...J..L$.X$.L$.Y$:.640. .T..
L$.Y$.L$.X$:.640......R$.X$.R$.Y$:.640.E
...R$.X$:.640......XX.1.100:.XX:.:. PAUS
E 1 SEC...... PUT UP COUNT......H(LO$,13
).30)28.SP". ".1....I.0.20:.H$(0,I).""..
I.W.....30)I". ":.I.0.19:.H$(1,I).""..I.
H.$...30)I". ":......X$.H(X$,1).".....".
I(X$,1):....8.. GET DOT FORMAT.N.B..1.E(
X$).1100,1110,1120,1130,1140,1150,1160..
.L.X$." .... .... ":....V.X$." .
... Q .... ":..%.`.X$."Q .... ....
Q":..B.J.X$."Q .... Q .... Q":.._.T.X
$."Q Q.... ....Q Q":..|.~.X$."Q Q....
Q ....Q Q":......X$."Q Q....Q Q....Q Q":
....... PRINT PLAYER'S DOMINOES......LU$
"...":.I.0.19:.H$(0,I)."".1210......I.20
.." .. .. ".....I.0:..%...X$.H$(0,I):.10
70:.X$;:.I.19..". .";...D..I:..H.N.. PET
DRAWS OR PASSES.X.X..SP.28.1290.S....I.
0.20:.H$(P,I).""..I......H(LU$,13).B....
SP.26..". YARD":.".EMPTY":K0$."P":K1$.".
P.ASS":K2$."PASSES.....H$(P,I).D$(SP):SP
.SP.1:.1170:.1020:.P.1.400,720...... PAS
S LOGIC......L%.1330.....L%.1...(..P.1.7
20,400.J.2.S0.0:.I.0.19:X$.H$(0,I).T.<..
X$."".S0.S0.E(H(X$,1)).E(I(X$,1)):.I...F
.S1.0:.I.0.19:X$.H$(1,I)...P..X$."".S1.S
1.E(H(X$,1)).E(I(X$,1)):.I...Z..S0.S1.X$
.". PET WINS ":PW.PW.1...D..S1.S0.X$.".
YOU WIN ".!.N..S0.S1.X$.".IT'S A DRAW
":TY.TY.1.E.X.T0.T0.S0:T1.T1.S1:TW.TW.1:
.1020.T....LO$:."."X$". SCORE: YOU"S0",
PET"S1:.1010......"...........":.". ANOT
HER? "......KB,0:.KB,1:.C$:.C$."Y".220.
I. ..C$.."N".1430.V.... WRAPUP......"...
OF THE"TW"GAMES, YOU WON"TW.TY.PW"PET WO
N"PW.(....TY.."AND"TY"WERE DRAWS.P.H..".
THE TOTALS WERE: YOU"T0", PET"T1.V.R..".
.TO PLAY AGAIN, ENTER 'RUN'":.......LO$:
."TRY AGAIN: ";:.203,0:.410......".".14)
;:.U.." ";.L...."SHUFFLING ":U.1.U:.....
.X$.H$(1,K):Y$.I(X$,1):X$.H(X$,1):....
> CLICK IMAGE PREVIEW FOR FULL MODAL