DOMINOES
FILE INFORMATION
FILENAME(S): DOMINOES
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 21:07:06
APPEARS ON: 1 disk(s)
FILE HASH
aad5d6f7f94dcd5e633d4789028237e19be52bed46fa4593e4658a5665a1e27b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 02 | DOMINOES | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2B 04 64 00 51 31 B2 35 32 35 3A 51 32 B2 |..+.d.Q1.525:Q2.| 00000010: 35 31 35 3A 8B C2 28 35 30 30 30 33 29 A7 51 31 |515:..(50003).Q1| 00000020: B2 31 35 38 3A 51 32 B2 31 35 31 00 47 04 6E 00 |.158:Q2.151.G.n.| 00000030: 8F 20 4D 2E 52 49 43 48 54 45 52 20 39 30 30 36 |. M.RICHTER 9006| 00000040: 34 20 31 32 2F 37 38 00 5A 04 78 00 50 57 B2 30 |4 12/78.Z.x.PW.0| 00000050: 3A 54 57 B2 30 3A 54 59 B2 30 00 8E 04 82 00 97 |:TW.0:TY.0......| 00000060: 35 39 34 36 38 2C 31 32 3A 49 B2 BB 28 AB 54 49 |59468,12:I..(.TI| 00000070: 29 3A 86 44 24 28 32 37 29 2C 48 24 28 31 2C 32 |):.D$(27),H$(1,2| 00000080: 30 29 2C 50 4C 28 36 29 2C 48 28 32 30 29 00 DC |0),PL(6),H(20)..| 00000090: 04 8C 00 4C 55 24 B2 22 13 11 11 11 11 11 11 11 |...LU$."........| 000000A0: 11 11 11 11 11 11 11 11 11 11 22 3A 4C 4F 24 B2 |..........":LO$.| 000000B0: 4C 55 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 |LU$." | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 20 20 20 20 91 22 00 1C 05 96 | ."....| 000000E0: 00 99 22 93 11 11 20 20 20 20 20 20 20 20 12 20 |.."... . | 000000F0: 44 4F 4D 49 4E 4F 45 53 20 11 11 22 3A 99 22 50 |DOMINOES ..":."P| 00000100: 45 54 20 48 41 53 20 54 48 52 45 45 20 4C 45 56 |ET HAS THREE LEV| 00000110: 45 4C 53 20 4F 46 20 50 4C 41 59 3A 00 4B 05 A0 |ELS OF PLAY:.K..| 00000120: 00 99 22 11 31 2E 20 45 41 53 59 3A 20 59 4F 55 |..".1. EASY: YOU| 00000130: 20 43 41 4E 20 57 49 4E 20 54 57 4F 20 47 41 4D | CAN WIN TWO GAM| 00000140: 45 53 20 4F 46 20 54 48 52 45 45 00 7A 05 AA 00 |ES OF THREE.z...| 00000150: 99 22 11 32 2E 20 53 4C 49 47 48 54 4C 59 20 48 |.".2. SLIGHTLY H| 00000160: 41 52 44 45 52 3A 20 4D 41 59 42 45 20 36 30 2F |ARDER: MAYBE 60/| 00000170: 34 30 20 46 4F 52 20 59 4F 55 00 A3 05 B4 00 99 |40 FOR YOU......| 00000180: 22 11 33 2E 20 54 4F 55 47 48 3A 20 4E 45 41 52 |".3. TOUGH: NEAR| 00000190: 4C 59 20 45 51 55 41 4C 53 20 42 45 53 54 20 50 |LY EQUALS BEST P| 000001A0: 4C 41 59 00 BE 05 BE 00 99 22 11 11 57 48 49 43 |LAY......"..WHIC| 000001B0: 48 20 44 4F 20 59 4F 55 20 57 41 4E 54 3F 00 E5 |H DO YOU WANT?..| 000001C0: 05 C8 00 97 51 31 2C 30 3A 92 51 31 2C 31 3A A1 |....Q1,0:.Q1,1:.| 000001D0: 43 24 3A 8B 43 24 B3 22 31 22 B0 43 24 B1 22 33 |C$:.C$."1".C$."3| 000001E0: 22 89 32 30 30 00 F2 05 D2 00 41 4C B2 C5 28 43 |".200.....AL..(C| 000001F0: 24 29 00 18 06 DC 00 50 4C B2 30 3A 99 22 93 22 |$).....PL.0:."."| 00000200: A6 31 35 29 22 44 4F 4D 49 4E 4F 45 53 11 11 11 |.15)"DOMINOES...| 00000210: 11 11 11 11 11 11 11 11 00 4C 06 E6 00 4A B2 30 |.........L...J.0| 00000220: 3A 4B B2 30 3A 81 49 B2 30 A4 32 37 3A 44 24 28 |:K.0:.I.0.27:D$(| 00000230: 49 29 B2 CA 28 C4 28 4A 29 2C 32 29 AA CA 28 C4 |I)..(.(J),2)..(.| 00000240: 28 4B 29 2C 32 29 3A 8D 31 35 31 30 00 65 06 F0 |(K),2):.1510.e..| 00000250: 00 4B B2 4B AA 31 3A 8B 4B B1 4A A7 4B B2 30 3A |.K.K.1:.K.J.K.0:| 00000260: 4A B2 4A AA 31 00 A8 06 FA 00 82 49 3A 81 49 B2 |J.J.1......I:.I.| 00000270: 30 A4 32 36 3A 4A B2 49 AA 28 32 38 AB 49 29 AC |0.26:J.I.(28.I).| 00000280: BB 28 31 29 3A 58 24 B2 44 24 28 49 29 3A 44 24 |.(1):X$.D$(I):D$| 00000290: 28 49 29 B2 44 24 28 4A 29 3A 44 24 28 4A 29 B2 |(I).D$(J):D$(J).| 000002A0: 58 24 3A 8D 31 35 31 30 00 E1 06 04 01 82 49 3A |X$:.1510......I:| 000002B0: 81 4A B2 30 A4 36 3A 81 49 B2 30 A4 31 3A 48 24 |.J.0.6:.I.0.1:H$| 000002C0: 28 49 2C 4A 29 B2 44 24 28 37 AC 49 AA 4A 29 3A |(I,J).D$(7.I.J):| 000002D0: 82 49 3A 8D 31 35 31 30 3A 82 4A 3A 53 50 B2 31 |.I:.1510:.J:SP.1| 000002E0: 34 00 0B 07 0E 01 81 4A B2 37 A4 32 30 3A 81 49 |4......J.7.20:.I| 000002F0: B2 30 A4 31 3A 48 24 28 49 2C 4A 29 B2 22 22 3A |.0.1:H$(I,J)."":| 00000300: 82 49 3A 8D 31 35 31 30 3A 82 4A 00 36 07 18 01 |.I:.1510:.J.6...| 00000310: 4B 30 24 B2 22 44 22 3A 4B 31 24 B2 22 12 44 92 |K0$."D":K1$.".D.| 00000320: 52 41 57 22 3A 4B 32 24 B2 22 44 52 41 57 53 20 |RAW":K2$."DRAWS | 00000330: 41 20 42 4F 4E 45 00 64 07 22 01 4C 24 B2 22 22 |A BONE.d.".L$.""| 00000340: 3A 81 4A B2 30 A4 31 3A 81 49 B2 30 A4 36 3A 58 |:.J.0.1:.I.0.6:X| 00000350: 24 B2 C8 28 48 24 28 4A 2C 49 29 2C 31 29 3A 8D |$..(H$(J,I),1):.| 00000360: 31 35 31 30 00 8D 07 2C 01 8B 58 24 B2 C9 28 48 |1510...,..X$..(H| 00000370: 24 28 4A 2C 49 29 2C 31 29 AF 58 24 B1 4C 24 A7 |$(J,I),1).X$.L$.| 00000380: 4C 24 B2 58 24 3A 50 B2 4A 3A 4B B2 49 00 A2 07 |L$.X$:P.J:K.I...| 00000390: 36 01 82 49 3A 82 4A 3A 8B 4C 24 B2 22 22 89 32 |6..I:.J:.L$."".2| 000003A0: 32 30 00 BE 07 40 01 99 22 13 11 11 50 11 9D 4C |20...@.."...P..L| 000003B0: 11 9D 41 11 9D 59 11 9D 45 11 9D 44 11 11 00 E2 |..A..Y..E..D....| 000003C0: 07 4A 01 99 A6 38 29 22 D5 C0 C0 C0 C0 A2 A2 A2 |.J...8)"........| 000003D0: C0 C0 C0 C0 C9 20 20 20 42 4F 4E 45 20 43 4F 55 |..... BONE COU| 000003E0: 4E 54 00 08 08 54 01 99 A6 38 29 22 DD 20 20 20 |NT...T...8)". | 000003F0: 20 12 20 20 20 92 20 20 20 20 DD 20 20 20 C4 C4 | . . . ..| 00000400: C4 C4 C4 C4 C4 C4 C4 C4 00 28 08 5E 01 99 A6 38 |.........(.^...8| 00000410: 29 22 DD 20 D6 20 20 12 20 20 20 92 20 20 D6 20 |)". . . . . | 00000420: DD 20 20 20 59 41 52 44 00 47 08 68 01 99 A6 38 |. YARD.G.h...8| 00000430: 29 22 DD 20 20 20 20 12 20 20 20 92 20 20 20 20 |)". . . | 00000440: DD 20 20 20 59 4F 55 00 66 08 72 01 99 A6 38 29 |. YOU.f.r...8)| 00000450: 22 CA C0 C0 C0 C0 12 A2 A2 A2 92 C0 C0 C0 C0 CB |"...............| 00000460: 20 20 20 50 45 54 00 76 08 7C 01 8D 31 30 32 30 | PET.v.|..1020| 00000470: 3A 8D 31 31 37 30 00 B0 08 86 01 99 4C 4F 24 3A |:.1170......LO$:| 00000480: 99 22 54 48 45 20 4C 41 52 47 45 53 54 20 44 4F |."THE LARGEST DO| 00000490: 55 42 4C 45 54 20 49 53 20 22 3B 4C 24 4C 24 3A |UBLET IS ";L$L$:| 000004A0: 52 24 B2 4C 24 3A 8D 31 30 31 30 3A 89 36 34 30 |R$.L$:.1010:.640| 000004B0: 00 DF 08 90 01 50 B2 30 3A 97 51 31 2C 30 3A 99 |.....P.0:.Q1,0:.| 000004C0: 4C 4F 24 3A 99 22 57 48 49 43 48 20 42 4F 4E 45 |LO$:."WHICH BONE| 000004D0: 20 28 4F 52 20 22 4B 31 24 22 29 3F 20 22 3B 00 | (OR "K1$")? ";.| 000004E0: FF 08 9A 01 92 51 31 2C 31 3A A1 58 24 3A 8B 58 |.....Q1,1:.X$:.X| 000004F0: 24 B2 4B 30 24 A7 99 58 24 3A 89 31 32 33 30 00 |$.K0$..X$:.1230.| 00000500: 16 09 A4 01 8B 58 24 B3 22 30 22 B0 58 24 B1 22 |.....X$."0".X$."| 00000510: 36 22 89 34 31 30 00 20 09 AE 01 99 58 24 3B 3A |6".410. ....X$;:| 00000520: 00 41 09 B8 01 92 51 31 2C 31 3A A1 59 24 3A 8B |.A....Q1,1:.Y$:.| 00000530: 59 24 B3 22 30 22 B0 59 24 B1 22 36 22 89 34 34 |Y$."0".Y$."6".44| 00000540: 30 00 60 09 C2 01 99 59 24 3A 58 24 B2 58 24 AA |0.`....Y$:X$.X$.| 00000550: 59 24 3A 59 24 B2 59 24 AA C8 28 58 24 2C 31 29 |Y$:Y$.Y$..(X$,1)| 00000560: 00 8E 09 CC 01 81 4B B2 30 A4 32 30 3A 8B 48 24 |......K.0.20:.H$| 00000570: 28 30 2C 4B 29 B3 B1 58 24 AF 48 24 28 30 2C 4B |(0,K)..X$.H$(0,K| 00000580: 29 B3 B1 59 24 A7 82 4B 3A 89 31 35 30 30 00 BD |)..Y$..K:.1500..| 00000590: 09 D6 01 52 46 B2 30 3A 8B 50 4C B2 30 A7 4C 24 |...RF.0:.PL.0.L$| 000005A0: B2 C9 28 58 24 2C 31 29 3A 52 24 B2 C8 28 58 24 |..(X$,1):R$..(X$| 000005B0: 2C 31 29 3A 4C 46 B2 31 3A 89 36 34 30 00 E2 09 |,1):LF.1:.640...| 000005C0: E0 01 4C 46 B2 30 3A 8B 4C 24 B2 C8 28 58 24 2C |..LF.0:.L$..(X$,| 000005D0: 31 29 B0 4C 24 B2 C9 28 58 24 2C 31 29 A7 4C 46 |1).L$..(X$,1).LF| 000005E0: B2 31 00 02 0A EA 01 8B 52 24 B2 C8 28 58 24 2C |.1......R$..(X$,| 000005F0: 31 29 B0 52 24 B2 C9 28 58 24 2C 31 29 A7 52 46 |1).R$..(X$,1).RF| 00000600: B2 31 00 14 0A F4 01 8B 4C 46 AA 52 46 B2 30 89 |.1......LF.RF.0.| 00000610: 31 35 30 30 00 2F 0A FE 01 8B 4C 46 AC 52 46 B2 |1500./....LF.RF.| 00000620: 30 A7 91 4C 46 AA 31 89 36 30 30 2C 36 32 30 00 |0..LF.1.600,620.| 00000630: 49 0A 08 02 8B 4C 24 B2 52 24 B0 48 24 28 30 2C |I....L$.R$.H$(0,| 00000640: 31 29 B2 22 22 89 35 38 30 00 6B 0A 12 02 99 4C |1)."".580.k....L| 00000650: 4F 24 3A 99 58 24 22 20 2D 20 4C 45 46 54 20 4F |O$:.X$" - LEFT O| 00000660: 52 20 52 49 47 48 54 3F 20 22 3B 00 88 0A 1C 02 |R RIGHT? ";.....| 00000670: A1 43 24 3A 8B 43 24 B3 B1 22 4C 22 AF 43 24 B3 |.C$:.C$.."L".C$.| 00000680: B1 22 52 22 89 35 34 30 00 9C 0A 26 02 99 43 24 |."R".540...&..C$| 00000690: 3A 8B 43 24 B2 22 4C 22 89 35 38 30 00 BC 0A 30 |:.C$."L".580...0| 000006A0: 02 8B 52 24 B2 C9 28 58 24 2C 31 29 A7 52 24 B2 |..R$..(X$,1).R$.| 000006B0: C8 28 58 24 2C 31 29 3A 89 36 34 30 00 D0 0A 3A |.(X$,1):.640...:| 000006C0: 02 52 24 B2 C9 28 58 24 2C 31 29 3A 89 36 34 30 |.R$..(X$,1):.640| 000006D0: 00 F0 0A 44 02 8B 4C 24 B2 C9 28 58 24 2C 31 29 |...D..L$..(X$,1)| 000006E0: A7 4C 24 B2 C8 28 58 24 2C 31 29 3A 89 36 34 30 |.L$..(X$,1):.640| 000006F0: 00 04 0B 4E 02 4C 24 B2 C9 28 58 24 2C 31 29 3A |...N.L$..(X$,1):| 00000700: 89 36 34 30 00 24 0B 58 02 8B 52 24 B2 C9 28 58 |.640.$.X..R$..(X| 00000710: 24 2C 31 29 A7 52 24 B2 C8 28 58 24 2C 31 29 3A |$,1).R$..(X$,1):| 00000720: 89 36 34 30 00 38 0B 62 02 52 24 B2 C9 28 58 24 |.640.8.b.R$..(X$| 00000730: 2C 31 29 3A 89 36 34 30 00 58 0B 6C 02 8B 4C 24 |,1):.640.X.l..L$| 00000740: B2 C9 28 58 24 2C 31 29 A7 4C 24 B2 C8 28 58 24 |..(X$,1).L$..(X$| 00000750: 2C 31 29 3A 89 36 34 30 00 6C 0B 76 02 4C 24 B2 |,1):.640.l.v.L$.| 00000760: C9 28 58 24 2C 31 29 3A 89 36 34 30 00 82 0B 80 |.(X$,1):.640....| 00000770: 02 8F 20 50 4C 41 59 20 54 48 45 20 44 4F 4D 49 |.. PLAY THE DOMI| 00000780: 4E 4F 00 C4 0B 8A 02 4C 25 B2 30 3A 59 24 B2 48 |NO.....L%.0:Y$.H| 00000790: 24 28 50 2C 4B 29 3A 81 49 B2 4B A4 31 39 3A 48 |$(P,K):.I.K.19:H| 000007A0: 24 28 50 2C 49 29 B2 48 24 28 50 2C 49 AA 31 29 |$(P,I).H$(P,I.1)| 000007B0: 3A 82 49 3A 48 24 28 50 2C 49 29 B2 22 22 3A 8D |:.I:H$(P,I)."":.| 000007C0: 31 31 37 30 00 E8 0B 94 02 8D 31 30 32 30 3A 58 |1170......1020:X| 000007D0: 24 B2 59 24 3A 99 22 13 11 22 3A 8D 31 30 37 30 |$.Y$:."..":.1070| 000007E0: 3A 50 4C B2 50 4C AA 31 00 04 0C 9E 02 58 B2 50 |:PL.PL.1.....X.P| 000007F0: 4C 3A 8B 58 B1 31 38 A7 58 B2 58 AB 31 38 3A 99 |L:.X.18.X.X.18:.| 00000800: 22 11 11 11 00 13 0C A8 02 99 A3 31 AA 32 AC 58 |"..........1.2.X| 00000810: 29 58 24 00 3F 0C B2 02 58 24 B2 4C 24 3A 8D 31 |)X$.?...X$.L$:.1| 00000820: 30 38 30 3A 99 C8 28 4C 4F 24 2C 31 32 29 A3 39 |080:..(LO$,12).9| 00000830: 29 58 24 3A 58 24 B2 52 24 3A 8D 31 30 38 30 00 |)X$:X$.R$:.1080.| 00000840: 6C 0C BC 02 99 22 91 91 91 22 A3 31 37 29 58 24 |l...."...".17)X$| 00000850: 3A 8B 48 24 28 30 2C 30 29 B2 22 22 B0 48 24 28 |:.H$(0,0)."".H$(| 00000860: 31 2C 30 29 B2 22 22 89 31 33 33 30 00 77 0C C6 |1,0)."".1330.w..| 00000870: 02 8B 50 89 34 30 30 00 88 0C D0 02 8F 20 50 45 |..P.400...... PE| 00000880: 54 27 53 20 50 4C 41 59 00 9C 0C DA 02 50 B2 31 |T'S PLAY.....P.1| 00000890: 3A 91 41 4C 89 39 31 30 2C 38 36 30 00 B2 0C E4 |:.AL.910,860....| 000008A0: 02 81 49 B2 30 A4 36 3A 50 4C 28 49 29 B2 30 3A |..I.0.6:PL(I).0:| 000008B0: 82 49 00 CE 0C EE 02 81 4B B2 30 A4 32 30 3A 8B |.I......K.0.20:.| 000008C0: 48 24 28 31 2C 4B 29 B2 22 22 89 37 37 30 00 07 |H$(1,K)."".770..| 000008D0: 0D F8 02 8D 31 35 33 30 3A 58 B2 C5 28 58 24 29 |....1530:X..(X$)| 000008E0: 3A 50 4C 28 58 29 B2 50 4C 28 58 29 AA 31 3A 58 |:PL(X).PL(X).1:X| 000008F0: B2 C5 28 59 24 29 3A 50 4C 28 59 29 B2 50 4C 28 |..(Y$):PL(Y).PL(| 00000900: 59 29 AA 31 3A 82 4B 00 2D 0D 02 03 8F 20 50 4C |Y).1:.K.-.... PL| 00000910: 41 59 41 42 4C 45 20 44 4F 55 42 4C 45 54 20 57 |AYABLE DOUBLET W| 00000920: 49 54 48 20 53 55 43 43 45 53 53 4F 52 00 49 0D |ITH SUCCESSOR.I.| 00000930: 0C 03 81 4B B2 30 A4 32 30 3A 8B 48 24 28 31 2C |...K.0.20:.H$(1,| 00000940: 4B 29 B2 22 22 89 38 31 30 00 7C 0D 16 03 8D 31 |K)."".810.|....1| 00000950: 35 33 30 3A 8B 28 58 24 B2 59 24 29 AF 28 58 24 |530:.(X$.Y$).(X$| 00000960: B2 52 24 B0 58 24 B2 4C 24 29 AF 28 50 4C 28 C5 |.R$.X$.L$).(PL(.| 00000970: 28 58 24 29 29 B1 32 29 89 39 34 30 00 83 0D 20 |(X$)).2).940... | 00000980: 03 82 4B 00 A6 0D 2A 03 8F 20 50 4C 41 59 41 42 |..K...*.. PLAYAB| 00000990: 4C 45 20 42 4F 4E 45 20 57 49 54 48 20 53 55 43 |LE BONE WITH SUC| 000009A0: 43 45 53 53 4F 52 00 C2 0D 34 03 81 4B B2 30 A4 |CESSOR...4..K.0.| 000009B0: 32 30 3A 8B 48 24 28 31 2C 4B 29 B2 22 22 89 38 |20:.H$(1,K)."".8| 000009C0: 36 30 00 EF 0D 3E 03 8D 31 35 33 30 3A 8B 28 28 |60...>..1530:.((| 000009D0: 58 24 B2 4C 24 29 B0 28 58 24 B2 52 24 29 29 AF |X$.L$).(X$.R$)).| 000009E0: 50 4C 28 C5 28 58 24 29 29 B1 31 89 39 34 30 00 |PL(.(X$)).1.940.| 000009F0: 16 0E 48 03 8B 28 28 59 24 B2 4C 24 29 B0 28 59 |..H..((Y$.L$).(Y| 00000A00: 24 B2 52 24 29 29 AF 50 4C 28 C5 28 59 24 29 29 |$.R$)).PL(.(Y$))| 00000A10: B1 31 89 39 34 30 00 1D 0E 52 03 82 4B 00 34 0E |.1.940...R..K.4.| 00000A20: 5C 03 8F 20 50 4C 41 59 41 42 4C 45 20 44 4F 55 |\.. PLAYABLE DOU| 00000A30: 42 4C 45 54 00 50 0E 66 03 81 4B B2 30 A4 32 30 |BLET.P.f..K.0.20| 00000A40: 3A 8B 48 24 28 31 2C 4B 29 B2 22 22 89 39 30 30 |:.H$(1,K)."".900| 00000A50: 00 73 0E 70 03 8D 31 35 33 30 3A 8B 58 24 B2 59 |.s.p..1530:.X$.Y| 00000A60: 24 AF 28 58 24 B2 4C 24 B0 58 24 B2 52 24 29 89 |$.(X$.L$.X$.R$).| 00000A70: 39 34 30 00 7A 0E 7A 03 82 4B 00 9B 0E 84 03 8F |940.z.z..K......| 00000A80: 20 53 54 49 4C 4C 20 4D 4F 52 45 20 41 4C 47 4F | STILL MORE ALGO| 00000A90: 52 49 54 48 4D 53 20 48 45 52 45 00 AF 0E 8E 03 |RITHMS HERE.....| 00000AA0: 8F 20 50 4C 41 59 41 42 4C 45 20 42 4F 4E 45 00 |. PLAYABLE BONE.| 00000AB0: DE 0E 98 03 81 4B B2 30 A4 32 30 3A 8D 31 35 33 |.....K.0.20:.153| 00000AC0: 30 3A 8B 4C 24 B2 58 24 B0 52 24 B2 58 24 B0 4C |0:.L$.X$.R$.X$.L| 00000AD0: 24 B2 59 24 B0 52 24 B2 59 24 89 39 34 30 00 17 |$.Y$.R$.Y$.940..| 00000AE0: 0F A2 03 82 4B 3A 99 4C 4F 24 3A 99 22 50 45 54 |....K:.LO$:."PET| 00000AF0: 20 22 4B 32 24 3A 8D 31 30 31 30 3A 89 31 32 33 | "K2$:.1010:.123| 00000B00: 30 3A 8F 20 50 45 54 20 44 52 41 57 53 20 4F 52 |0:. PET DRAWS OR| 00000B10: 20 50 41 53 53 45 53 00 2F 0F AC 03 8F 20 57 52 | PASSES./.... WR| 00000B20: 41 50 55 50 20 50 45 54 27 53 20 50 4C 41 59 00 |APUP PET'S PLAY.| 00000B30: 50 0F B6 03 99 4C 4F 24 3A 99 22 50 45 54 20 50 |P....LO$:."PET P| 00000B40: 4C 41 59 53 20 22 58 24 59 24 3A 8D 31 30 31 30 |LAYS "X$Y$:.1010| 00000B50: 00 80 0F C0 03 58 B2 C5 28 58 24 29 3A 50 4C 28 |.....X..(X$):PL(| 00000B60: 58 29 B2 50 4C 28 58 29 AB 31 3A 58 B2 C5 28 59 |X).PL(X).1:X..(Y| 00000B70: 24 29 3A 50 4C 28 58 29 B2 50 4C 28 58 29 AB 31 |$):PL(X).PL(X).1| 00000B80: 00 96 0F CA 03 8B 4C 24 B2 58 24 A7 4C 24 B2 59 |......L$.X$.L$.Y| 00000B90: 24 3A 89 36 34 30 00 AC 0F D4 03 8B 4C 24 B2 59 |$:.640......L$.Y| 00000BA0: 24 A7 4C 24 B2 58 24 3A 89 36 34 30 00 C2 0F DE |$.L$.X$:.640....| 00000BB0: 03 8B 52 24 B2 58 24 A7 52 24 B2 59 24 3A 89 36 |..R$.X$.R$.Y$:.6| 00000BC0: 34 30 00 D1 0F E8 03 52 24 B2 58 24 3A 89 36 34 |40.....R$.X$:.64| 00000BD0: 30 00 F1 0F F2 03 81 49 5A B2 30 A4 38 30 30 3A |0......IZ.0.800:| 00000BE0: 82 3A 8E 3A 8F 20 50 41 55 53 45 20 31 20 53 45 |.:.:. PAUSE 1 SE| 00000BF0: 43 00 04 10 FC 03 8F 20 50 55 54 20 55 50 20 43 |C...... PUT UP C| 00000C00: 4F 55 4E 54 00 20 10 06 04 99 C8 28 4C 4F 24 2C |OUNT. .....(LO$,| 00000C10: 31 33 29 A3 33 30 29 32 38 AB 53 50 22 9D 20 22 |13).30)28.SP". "| 00000C20: 00 3B 10 10 04 81 49 B2 30 A4 32 30 3A 8B 48 24 |.;....I.0.20:.H$| 00000C30: 28 30 2C 49 29 B1 22 22 A7 82 49 00 61 10 1A 04 |(0,I).""..I.a...| 00000C40: 99 A3 33 30 29 49 22 9D 20 22 3A 81 49 B2 30 A4 |..30)I". ":.I.0.| 00000C50: 31 39 3A 8B 48 24 28 31 2C 49 29 B1 22 22 A7 82 |19:.H$(1,I).""..| 00000C60: 49 00 72 10 24 04 99 A3 33 30 29 49 22 9D 20 22 |I.r.$...30)I". "| 00000C70: 3A 8E 00 93 10 2E 04 58 24 B2 C8 28 58 24 2C 31 |:......X$..(X$,1| 00000C80: 29 AA 22 9D 11 C0 9D 11 22 AA C9 28 58 24 2C 31 |)."....."..(X$,1| 00000C90: 29 3A 8E 00 A8 10 38 04 8F 20 47 45 54 20 44 4F |):....8.. GET DO| 00000CA0: 54 20 46 4F 52 4D 41 54 00 D8 10 42 04 91 31 AA |T FORMAT...B..1.| 00000CB0: C5 28 58 24 29 89 31 31 30 30 2C 31 31 31 30 2C |.(X$).1100,1110,| 00000CC0: 31 31 32 30 2C 31 31 33 30 2C 31 31 34 30 2C 31 |1120,1130,1140,1| 00000CD0: 31 35 30 2C 31 31 36 30 00 F5 10 4C 04 58 24 B2 |150,1160...L.X$.| 00000CE0: 22 20 20 20 11 9D 9D 9D 20 20 20 11 9D 9D 9D 20 |" .... .... | 00000CF0: 20 20 22 3A 8E 00 12 11 56 04 58 24 B2 22 20 20 | ":....V.X$." | 00000D00: 20 11 9D 9D 9D 20 D1 20 11 9D 9D 9D 20 20 20 22 | .... . .... "| 00000D10: 3A 8E 00 2F 11 60 04 58 24 B2 22 D1 20 20 11 9D |:../.`.X$.". ..| 00000D20: 9D 9D 20 20 20 11 9D 9D 9D 20 20 D1 22 3A 8E 00 |.. .... .":..| 00000D30: 4C 11 6A 04 58 24 B2 22 D1 20 20 11 9D 9D 9D 20 |L.j.X$.". .... | 00000D40: D1 20 11 9D 9D 9D 20 20 D1 22 3A 8E 00 69 11 74 |. .... .":..i.t| 00000D50: 04 58 24 B2 22 D1 20 D1 11 9D 9D 9D 20 20 20 11 |.X$.". ..... .| 00000D60: 9D 9D 9D D1 20 D1 22 3A 8E 00 86 11 7E 04 58 24 |.... .":....~.X$| 00000D70: B2 22 D1 20 D1 11 9D 9D 9D 20 D1 20 11 9D 9D 9D |.". ..... . ....| 00000D80: D1 20 D1 22 3A 8E 00 A3 11 88 04 58 24 B2 22 D1 |. .":......X$.".| 00000D90: 20 D1 11 9D 9D 9D D1 20 D1 11 9D 9D 9D D1 20 D1 | ...... ...... .| 00000DA0: 22 3A 8E 00 C1 11 92 04 8F 20 50 52 49 4E 54 20 |":....... PRINT | 00000DB0: 50 4C 41 59 45 52 27 53 20 44 4F 4D 49 4E 4F 45 |PLAYER'S DOMINOE| 00000DC0: 53 00 E8 11 9C 04 99 4C 55 24 22 11 11 11 22 3A |S......LU$"...":| 00000DD0: 81 49 B2 30 A4 31 39 3A 8B 48 24 28 30 2C 49 29 |.I.0.19:.H$(0,I)| 00000DE0: B1 22 22 89 31 32 31 30 00 FD 11 A6 04 8B 49 B3 |."".1210......I.| 00000DF0: 32 30 A7 99 22 20 9D 11 20 9D 11 20 22 00 07 12 |20.." .. .. "...| 00000E00: B0 04 49 B2 30 3A 8E 00 2F 12 BA 04 58 24 B2 48 |..I.0:../...X$.H| 00000E10: 24 28 30 2C 49 29 3A 8D 31 30 37 30 3A 99 58 24 |$(0,I):.1070:.X$| 00000E20: 3B 3A 8B 49 B3 31 39 A7 99 22 91 20 91 22 3B 00 |;:.I.19..". .";.| 00000E30: 38 12 C4 04 82 49 3A 8E 00 52 12 CE 04 8F 20 50 |8....I:..R.... P| 00000E40: 45 54 20 44 52 41 57 53 20 4F 52 20 50 41 53 53 |ET DRAWS OR PASS| 00000E50: 45 53 00 62 12 D8 04 8B 53 50 B2 32 38 89 31 32 |ES.b....SP.28.12| 00000E60: 39 30 00 7D 12 E2 04 81 49 B2 30 A4 32 30 3A 8B |90.}....I.0.20:.| 00000E70: 48 24 28 50 2C 49 29 B1 22 22 A7 82 49 00 8C 12 |H$(P,I).""..I...| 00000E80: EC 04 99 C8 28 4C 55 24 2C 31 33 29 00 CC 12 F6 |....(LU$,13)....| 00000E90: 04 8B 53 50 B1 32 36 A7 99 22 12 20 59 41 52 44 |..SP.26..". YARD| 00000EA0: 22 3A 99 22 12 45 4D 50 54 59 22 3A 4B 30 24 B2 |":.".EMPTY":K0$.| 00000EB0: 22 50 22 3A 4B 31 24 B2 22 12 50 92 41 53 53 22 |"P":K1$.".P.ASS"| 00000EC0: 3A 4B 32 24 B2 22 50 41 53 53 45 53 00 00 13 00 |:K2$."PASSES....| 00000ED0: 05 48 24 28 50 2C 49 29 B2 44 24 28 53 50 29 3A |.H$(P,I).D$(SP):| 00000EE0: 53 50 B2 53 50 AA 31 3A 8D 31 31 37 30 3A 8D 31 |SP.SP.1:.1170:.1| 00000EF0: 30 32 30 3A 91 50 AA 31 89 34 30 30 2C 37 32 30 |020:.P.1.400,720| 00000F00: 00 11 13 0A 05 8F 20 50 41 53 53 20 4C 4F 47 49 |...... PASS LOGI| 00000F10: 43 00 1E 13 14 05 8B 4C 25 89 31 33 33 30 00 27 |C......L%.1330.'| 00000F20: 13 1E 05 4C 25 B2 31 00 38 13 28 05 91 50 AA 31 |...L%.1.8.(..P.1| 00000F30: 89 37 32 30 2C 34 30 30 00 54 13 32 05 53 30 B2 |.720,400.T.2.S0.| 00000F40: 30 3A 81 49 B2 30 A4 31 39 3A 58 24 B2 48 24 28 |0:.I.0.19:X$.H$(| 00000F50: 30 2C 49 29 00 7E 13 3C 05 8B 58 24 B1 22 22 A7 |0,I).~.<..X$."".| 00000F60: 53 30 B2 53 30 AA C5 28 C8 28 58 24 2C 31 29 29 |S0.S0..(.(X$,1))| 00000F70: AA C5 28 C9 28 58 24 2C 31 29 29 3A 82 49 00 9A |..(.(X$,1)):.I..| 00000F80: 13 46 05 53 31 B2 30 3A 81 49 B2 30 A4 31 39 3A |.F.S1.0:.I.0.19:| 00000F90: 58 24 B2 48 24 28 31 2C 49 29 00 C4 13 50 05 8B |X$.H$(1,I)...P..| 00000FA0: 58 24 B1 22 22 A7 53 31 B2 53 31 AA C5 28 C8 28 |X$."".S1.S1..(.(| 00000FB0: 58 24 2C 31 29 29 AA C5 28 C9 28 58 24 2C 31 29 |X$,1))..(.(X$,1)| 00000FC0: 29 3A 82 49 00 E9 13 5A 05 8B 53 30 B1 53 31 A7 |):.I...Z..S0.S1.| 00000FD0: 58 24 B2 22 12 20 50 45 54 20 57 49 4E 53 20 20 |X$.". PET WINS | 00000FE0: 22 3A 50 57 B2 50 57 AA 31 00 06 14 64 05 8B 53 |":PW.PW.1...d..S| 00000FF0: 31 B1 53 30 A7 58 24 B2 22 12 20 59 4F 55 20 57 |1.S0.X$.". YOU W| 00001000: 49 4E 20 20 20 22 00 2B 14 6E 05 8B 53 30 B2 53 |IN ".+.n..S0.S| 00001010: 31 A7 58 24 B2 22 12 49 54 27 53 20 41 20 44 52 |1.X$.".IT'S A DR| 00001020: 41 57 22 3A 54 59 B2 54 59 AA 31 00 4F 14 78 05 |AW":TY.TY.1.O.x.| 00001030: 54 30 B2 54 30 AA 53 30 3A 54 31 B2 54 31 AA 53 |T0.T0.S0:T1.T1.S| 00001040: 31 3A 54 57 B2 54 57 AA 31 3A 8D 31 30 32 30 00 |1:TW.TW.1:.1020.| 00001050: 7E 14 82 05 99 4C 4F 24 3A 99 22 12 22 58 24 22 |~....LO$:."."X$"| 00001060: 92 20 53 43 4F 52 45 3A 20 59 4F 55 22 53 30 22 |. SCORE: YOU"S0"| 00001070: 2C 20 50 45 54 22 53 31 3A 8D 31 30 31 30 00 A1 |, PET"S1:.1010..| 00001080: 14 8C 05 99 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |...."...........| 00001090: 22 3A 99 22 12 20 41 4E 4F 54 48 45 52 3F 20 20 |":.". ANOTHER? | 000010A0: 22 00 C1 14 96 05 97 51 31 2C 30 3A 92 51 31 2C |"......Q1,0:.Q1,| 000010B0: 31 3A A1 43 24 3A 8B 43 24 B2 22 59 22 89 32 32 |1:.C$:.C$."Y".22| 000010C0: 30 00 D3 14 A0 05 8B 43 24 B3 B1 22 4E 22 89 31 |0......C$.."N".1| 000010D0: 34 33 30 00 E0 14 AA 05 8F 20 57 52 41 50 55 50 |430...... WRAPUP| 000010E0: 00 16 15 B4 05 99 22 93 11 11 4F 46 20 54 48 45 |......"...OF THE| 000010F0: 22 54 57 22 47 41 4D 45 53 2C 20 59 4F 55 20 57 |"TW"GAMES, YOU W| 00001100: 4F 4E 22 54 57 AB 54 59 AB 50 57 22 50 45 54 20 |ON"TW.TY.PW"PET | 00001110: 57 4F 4E 22 50 57 00 32 15 BE 05 8B 54 59 A7 99 |WON"PW.2....TY..| 00001120: 22 41 4E 44 22 54 59 22 57 45 52 45 20 44 52 41 |"AND"TY"WERE DRA| 00001130: 57 53 00 5A 15 C8 05 99 22 11 54 48 45 20 54 4F |WS.Z....".THE TO| 00001140: 54 41 4C 53 20 57 45 52 45 3A 20 59 4F 55 22 54 |TALS WERE: YOU"T| 00001150: 30 22 2C 20 50 45 54 22 54 31 00 72 15 D2 05 99 |0", PET"T1.r....| 00001160: 22 11 11 53 45 45 20 59 4F 55 2E 22 3A 89 31 35 |"..SEE YOU.":.15| 00001170: 34 30 00 96 15 DC 05 99 4C 4F 24 3A 99 22 54 52 |40......LO$:."TR| 00001180: 59 20 41 47 41 49 4E 3A 20 22 3B 3A 97 51 31 2C |Y AGAIN: ";:.Q1,| 00001190: 30 3A 89 34 31 30 00 AD 15 E6 05 99 22 91 22 A6 |0:.410......".".| 000011A0: 31 34 29 3B 3A 8B 55 A7 99 22 20 22 3B 00 C7 15 |14);:.U.." ";...| 000011B0: F0 05 99 22 53 48 55 46 46 4C 49 4E 47 20 22 3A |..."SHUFFLING ":| 000011C0: 55 B2 31 AB 55 3A 8E 00 EE 15 FA 05 58 24 B2 48 |U.1.U:......X$.H| 000011D0: 24 28 31 2C 4B 29 3A 59 24 B2 C9 28 58 24 2C 31 |$(1,K):Y$..(X$,1| 000011E0: 29 3A 58 24 B2 C8 28 58 24 2C 31 29 3A 8E 00 F4 |):X$..(X$,1):...| 000011F0: 15 04 06 80 00 00 00 |....... |
..+.D.Q1.525:Q2.515:.B(50003).Q1.158:Q2.
151.G.N.. M.RICHTER 90064 12/78.Z.X.PW.0
:TW.0:TY.0......59468,12:I..(.TI):.D$(27
),H$(1,20),PL(6),H(20).....LU$."........
..........":LO$.LU$."
."......"... .
DOMINOES ..":."PET HAS THREE LEVELS OF P
LAY:.K. ..".1. EASY: YOU CAN WIN TWO GAM
ES OF THREE.Z....".2. SLIGHTLY HARDER: M
AYBE 60/40 FOR YOU......".3. TOUGH: NEAR
LY EQUALS BEST PLAY......"..WHICH DO YOU
WANT?...H..Q1,0:.Q1,1:.C$:.C$."1".C$."3
".200...R.AL.E(C$).....PL.0:.".".15)"DOM
INOES............L...J.0:K.0:.I.0.27:D$(
I).J(D(J),2).J(D(K),2):.1510.E...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
......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.6...K0$."D":K1$.".D.
RAW":K2$."DRAWS A BONE.D.".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....
.J...8)"U...........I BONE COUNT...T..
.8)". . . . DDDDDDDDDD.(.^...8
)". V . . V . YARD.G.H...8)". .
. . YOU.F.R...8)"J.............K
PET.V.|..1020:.1170......LO$:."THE LA
RGEST DOUBLET IS ";L$L$:R$.L$:.1010:.640
.....P.0:.Q1,0:.LO$:."WHICH BONE (OR "K1
$")? ";......Q1,1:.X$:.X$.K0$..X$:.1230.
.....X$."0".X$."6".410. ....X$;:.A....Q1
,1:.Y$:.Y$."0".Y$."6".440.`.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.....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..LF.1.600,620.I....L$.R$.H$(0,
1)."".580.K....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.P.:.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.8.B.R$.I(X$
,1):.640.X.L..L$.I(X$,1).L$.H(X$,1):.640
.L.V.L$.I(X$,1):.640...... PLAY THE DOMI
NO.D...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$.?...X$.L$:.1
080:.H(LO$,12).9)X$:X$.R$:.1080.L...."..
.".17)X$:.H$(0,0)."".H$(1,0)."".1330.W.F
..P.400...P.. PET'S PLAY...Z.P.1:.AL.910
,860......I.0.6:PL(I).0:.I.N....K.0.20:.
H$(1,K)."".770......1530:X.E(X$):PL(X).P
L(X).1:X.E(Y$):PL(Y).PL(Y).1:.K.-.... PL
AYABLE DOUBLET WITH SUCCESSOR.I....K.0.2
0:.H$(1,K)."".810.|....1530:.(X$.Y$).(X$
.R$.X$.L$).(PL(E(X$)).2).940... ..K...*.
. PLAYABLE BONE WITH SUCCESSOR.B.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.4.\.. PLAY
ABLE DOUBLET.P.F..K.0.20:.H$(1,K)."".900
.S.P..1530:.X$.Y$.(X$.L$.X$.R$).940.Z.Z.
.K...... STILL MORE ALGORITHMS HERE.....
. PLAYABLE BONE......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.P....LO$:."PET P
LAYS "X$Y$:.1010.....X.E(X$):PL(X).PL(X)
.1:X.E(Y$):PL(X).PL(X).1...J..L$.X$.L$.Y
$:.640...T..L$.Y$.L$.X$:.640.B....R$.X$.
R$.Y$:.640.Q...R$.X$:.640......IZ.0.800:
.:.:. PAUSE 1 SEC...... PUT UP COUNT. ..
..H(LO$,13).30)28.SP". ".;....I.0.20:.H$
(0,I).""..I.A.....30)I". ":.I.0.19:.H$(1
,I).""..I.R.$...30)I". ":......X$.H(X$,1
).".....".I(X$,1):....8.. GET DOT FORMAT
.X.B..1.E(X$).1100,1110,1120,1130,1140,1
150,1160...L.X$." .... .... ":....
V.X$." .... Q .... ":../.`.X$."Q ..
.. .... Q":..L.J.X$."Q .... Q ....
Q":..I.T.X$."Q Q.... ....Q Q":....~.X$
."Q Q.... Q ....Q Q":......X$."Q Q....Q
Q....Q Q":..A.... PRINT PLAYER'S DOMINOE
S......LU$"...":.I.0.19:.H$(0,I)."".1210
......I.20.." .. .. ".....I.0:../...X$.H
$(0,I):.1070:.X$;:.I.19..". .";.8.D..I:.
.R.N.. PET DRAWS OR PASSES.B.X..SP.28.12
90.}....I.0.20:.H$(P,I).""..I......H(LU$
,13).L....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
...... PASS LOGIC......L%.1330.'...L%.1.
8.(..P.1.720,400.T.2.S0.0:.I.0.19:X$.H$(
0,I).~.<..X$."".S0.S0.E(H(X$,1)).E(I(X$,
1)):.I...F.S1.0:.I.0.19:X$.H$(1,I).D.P..
X$."".S1.S1.E(H(X$,1)).E(I(X$,1)):.I...Z
..S0.S1.X$.". PET WINS ":PW.PW.1...D..S
1.S0.X$.". YOU WIN ".+.N..S0.S1.X$.".I
T'S A DRAW":TY.TY.1.O.X.T0.T0.S0:T1.T1.S
1:TW.TW.1:.1020.~....LO$:."."X$". SCORE:
YOU"S0", PET"S1:.1010......"...........
":.". ANOTHER? ".A....Q1,0:.Q1,1:.C$:.C
$."Y".220.S. ..C$.."N".1430...... WRAPUP
......"...OF THE"TW"GAMES, YOU WON"TW.TY
.PW"PET WON"PW.2....TY.."AND"TY"WERE DRA
WS.Z.H..".THE TOTALS WERE: YOU"T0", PET"
T1.R.R.."..SEE YOU.":.1540......LO$:."TR
Y AGAIN: ";:.Q1,0:.410......".".14);:.U.
." ";.G...."SHUFFLING ":U.1.U:......X$.H
$(1,K):Y$.I(X$,1):X$.H(X$,1):..........
> CLICK IMAGE PREVIEW FOR FULL MODAL