MOSAIC
FILE INFORMATION
FILENAME(S): MOSAIC
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-12-01 01:07:58
APPEARS ON: 1 disk(s)
FILE HASH
063b8800c37bc273473b0b9877dd07f8352cd7bd6f249921668cb128265af8a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 19A | MOSAIC | PRG | hedning, Kaevlinge | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..A.... COPYRIGH|
00000010: 54 20 31 39 38 38 20 43 4F 4D 50 55 54 45 21 20 |T 1988 COMPUTE! |
00000020: 50 55 42 4C 2E 2C 20 49 4E 43 2E 20 2D 20 41 4C |PUBL., INC. - AL|
00000030: 4C 20 52 49 47 48 54 53 20 52 45 53 45 52 56 45 |L RIGHTS RESERVE|
00000040: 44 00 83 08 14 00 86 52 2C 50 2C 4E 2C 48 2C 4C |D......R,P,N,H,L|
00000050: 2C 54 2C 58 2C 59 2C 41 2C 42 2C 43 2C 4E 24 28 |,T,X,Y,A,B,C,N$(|
00000060: 34 29 3A 53 B2 35 33 32 34 38 3A 97 53 AA 32 31 |4):S.53248:.S.21|
00000070: 2C 30 3A 97 53 AA 33 32 2C 36 3A 97 53 AA 32 34 |,0:.S.32,6:.S.24|
00000080: 2C 32 31 00 C2 08 1E 00 58 24 B2 22 D6 CE CD CE |,21.....X$."....|
00000090: D6 CD CE CD DA CE CD 22 3A 81 52 B2 31 A4 34 3A |.......":.R.1.4:|
000000A0: 58 24 B2 58 24 AA 58 24 3A 87 4E 24 28 52 29 3A |X$.X$.X$:.N$(R):|
000000B0: 82 3A 46 B2 32 35 36 3A 43 4F B2 37 3A 8D 31 32 |.:F.256:CO.7:.12|
000000C0: 31 30 00 EF 08 28 00 4C 4E B2 32 31 34 3A 59 53 |10...(.LN.214:YS|
000000D0: B2 36 37 39 3A 86 48 28 31 31 2C 32 29 2C 42 28 |.679:.H(11,2),B(|
000000E0: 31 31 2C 32 29 2C 50 28 32 29 2C 43 28 32 29 00 |11,2),P(2),C(2).|
000000F0: 0A 09 32 00 8F 2A 2A 2A 20 45 4E 54 45 52 20 4D |..2..*** ENTER M|
00000100: 4C 20 44 41 54 41 20 2A 2A 2A 00 29 09 3C 00 81 |L DATA ***.).<..|
00000110: 52 B2 59 53 A4 52 AA 32 35 3A 87 50 3A 97 52 2C |R.YS.R.25:.P:.R,|
00000120: 50 3A 54 B2 54 AA 50 3A 82 00 67 09 46 00 81 50 |P:T.T.P:..g.F..P|
00000130: B2 30 A4 32 3A 42 28 30 2C 50 29 B2 31 3A 42 28 |.0.2:B(0,P).1:B(|
00000140: 31 31 2C 50 29 B2 31 3A 48 28 31 31 2C 50 29 B2 |11,P).1:H(11,P).|
00000150: 36 35 3A 82 3A 57 B2 38 32 38 3A 52 B2 BB 28 AB |65:.:W.828:R..(.|
00000160: BB 28 AB 54 49 29 29 00 9C 09 50 00 96 A5 56 28 |.(.TI))...P...V(|
00000170: 54 29 B2 B5 28 28 54 AB 48 28 4C 2C 50 29 29 AD |T)..((T.H(L,P)).|
00000180: 28 48 28 48 2C 50 29 AB 48 28 4C 2C 50 29 29 AC |(H(H,P).H(L,P)).|
00000190: 28 48 AB 4C AB 31 29 AA 4C AA 31 29 00 D8 09 5A |(H.L.1).L.1)...Z|
000001A0: 00 96 A5 4C 28 50 29 B2 28 50 AA 28 50 B2 30 29 |...L(P).(P.(P.0)|
000001B0: B0 28 50 B1 50 4E 29 29 AC 36 AA 31 31 AB 32 AC |.(P.PN)).6.11.2.|
000001C0: 50 4E 3A 96 A5 50 28 50 29 B2 28 32 B2 50 B0 50 |PN:..P(P).(2.P.P|
000001D0: B0 47 4E AF 31 29 AB 31 00 FC 09 64 00 8F 20 2A |.GN.1).1...d.. *|
000001E0: 2A 2A 20 43 4C 45 41 52 20 43 41 53 53 45 54 54 |** CLEAR CASSETT|
000001F0: 45 20 42 55 46 46 45 52 20 2A 2A 2A 00 1E 0A 6E |E BUFFER ***...n|
00000200: 00 97 31 30 32 33 2C 30 3A 97 37 38 31 2C 31 3A |..1023,0:.781,1:|
00000210: 97 37 38 32 2C 31 39 31 3A 97 39 31 2C 33 00 3D |.782,191:.91,3.=|
00000220: 0A 78 00 97 39 30 2C 36 35 3A 97 38 39 2C 33 3A |.x..90,65:.89,3:|
00000230: 97 38 38 2C 36 34 3A 9E 34 31 39 36 34 00 57 0A |.88,64:.41964.W.|
00000240: 82 00 8F 20 2A 2A 2A 20 44 52 41 57 20 53 50 52 |... *** DRAW SPR|
00000250: 49 54 45 20 2A 2A 2A 00 8A 0A 8C 00 81 52 B2 38 |ITE ***......R.8|
00000260: 33 32 A4 52 AA 33 35 A9 36 3A 87 58 2C 59 3A 81 |32.R.35.6:.X,Y:.|
00000270: 50 B2 52 A4 52 AA 33 A9 33 3A 97 50 2C 58 3A 97 |P.R.R.3.3:.P,X:.|
00000280: 50 AA 31 2C 59 3A 82 50 2C 52 00 C1 0A 96 00 97 |P.1,Y:.P,R......|
00000290: 53 AA 32 33 2C 31 30 3A 97 53 AA 32 38 2C 31 30 |S.23,10:.S.28,10|
000002A0: 3A 97 53 AA 32 39 2C 31 30 3A 97 53 AA 33 37 2C |:.S.29,10:.S.37,|
000002B0: 38 3A 97 53 AA 33 38 2C 30 3A 97 53 AA 33 39 2C |8:.S.38,0:.S.39,|
000002C0: 37 00 EF 0A A0 00 97 53 AA 34 30 2C 32 3A 97 53 |7......S.40,2:.S|
000002D0: AA 34 31 2C 37 3A 97 53 AA 34 32 2C 32 3A 97 53 |.41,7:.S.42,2:.S|
000002E0: AA 34 2C 31 37 34 3A 97 53 AA 36 2C 31 37 34 00 |.4,174:.S.6,174.|
000002F0: 17 0B AA 00 97 32 30 34 30 2C 31 34 3A 97 32 30 |.....2040,14:.20|
00000300: 34 31 2C 31 33 3A 97 32 30 34 32 2C 31 35 3A 97 |41,13:.2042,15:.|
00000310: 32 30 34 33 2C 31 33 00 32 0B B4 00 8F 20 2A 2A |2043,13.2.... **|
00000320: 2A 20 4E 55 4D 42 45 52 20 54 49 4C 45 53 20 2A |* NUMBER TILES *|
00000330: 2A 2A 00 4D 0B BE 00 81 52 B2 31 A4 36 34 3A 44 |**.M....R.1.64:D|
00000340: 4B 24 B2 44 4B 24 AA C7 28 52 29 3A 82 00 73 0B |K$.DK$..(R):..s.|
00000350: C8 00 8F 20 2A 2A 2A 20 47 45 54 20 53 45 4C 45 |... *** GET SELE|
00000360: 43 54 49 4F 4E 20 46 52 4F 4D 20 4D 45 4E 55 20 |CTION FROM MENU |
00000370: 2A 2A 2A 00 7E 0B D2 00 97 31 39 38 2C 30 00 91 |***.~....198,0..|
00000380: 0B DC 00 A1 44 24 3A 8B 44 24 B2 22 22 A7 32 32 |....D$:.D$."".22|
00000390: 30 00 B0 0B E6 00 8B 44 24 B2 22 88 22 A7 43 4F |0......D$.".".CO|
000003A0: B2 37 AB 43 4F 3A 8D 31 32 36 30 3A 89 32 31 30 |.7.CO:.1260:.210|
000003B0: 00 CA 0B F0 00 8B 44 24 B2 C7 28 31 33 29 A7 44 |......D$..(13).D|
000003C0: 24 B2 22 34 22 3A 89 32 37 30 00 DE 0B FA 00 8B |$."4":.270......|
000003D0: 44 24 B2 22 30 22 A7 8B 47 4D A7 33 30 30 00 F5 |D$."0"..GM.300..|
000003E0: 0B 04 01 8B 44 24 B3 22 31 22 B0 44 24 B1 22 34 |....D$."1".D$."4|
000003F0: 22 A7 32 31 30 00 2B 0C 0E 01 47 B2 30 3A 47 4D |".210.+...G.0:GM|
00000400: B2 30 3A 47 4E B2 C5 28 44 24 29 3A 50 4E B2 31 |.0:GN..(D$):PN.1|
00000410: AB 28 47 4E B1 32 29 3A 4E 24 28 30 29 B2 4E 24 |.(GN.2):N$(0).N$|
00000420: 28 B6 28 47 4E AB 32 29 AA 32 29 00 5E 0C 18 01 |(.(GN.2).2).^...|
00000430: 4D B2 31 34 36 AB 31 36 AC 50 4E 3A 97 53 AA 35 |M.146.16.PN:.S.5|
00000440: 2C 4D AA 35 3A 97 53 AA 37 2C 4D AA 35 3A 81 52 |,M.5:.S.7,M.5:.R|
00000450: B2 30 A4 50 4E 3A 50 28 52 29 B2 30 3A 82 00 77 |.0.PN:P(R).0:..w|
00000460: 0C 22 01 8F 20 2A 2A 2A 20 44 45 41 4C 20 48 41 |.".. *** DEAL HA|
00000470: 4E 44 53 20 2A 2A 2A 00 9A 0C 2C 01 8D 31 33 34 |NDS ***...,..134|
00000480: 30 3A 44 B2 36 34 3A 81 50 B2 30 A4 50 4E 3A 97 |0:D.64:.P.0.PN:.|
00000490: 4C 4E 2C A5 4C 28 50 29 3A 99 00 CE 0C 36 01 99 |LN,.L(P):....6..|
000004A0: 22 91 1D 9A 22 4E 24 28 50 29 A3 38 30 AB C3 28 |"..."N$(P).80..(|
000004B0: C4 28 50 28 50 29 29 29 29 3B CA 28 C4 28 50 28 |.(P(P))));.(.(P(|
000004C0: 50 29 29 2C 32 29 3A 81 52 B2 31 A4 31 30 00 03 |P)),2):.R.1.10..|
000004D0: 0D 40 01 8D 31 30 33 30 3A 48 28 52 2C 50 29 B2 |.@..1030:H(R,P).|
000004E0: 54 3A 42 28 52 2C 50 29 B2 30 3A 99 22 11 81 92 |T:B(R,P).0:."...|
000004F0: A1 9E 22 3B 3A 8B A5 50 28 50 29 A7 97 36 34 36 |..";:..P(P)..646|
00000500: 2C 43 4F 00 40 0D 4A 01 99 C9 28 C4 28 54 29 2C |,CO.@.J...(.(T),|
00000510: 32 29 22 1C 12 A1 11 9D 9D 9D 9D 81 BB 1C 92 A2 |2)".............|
00000520: A2 12 AC 91 91 9D 9D 9D 9D 81 BE A2 A2 1C BC 22 |..............."|
00000530: 3B 3A 82 52 2C 50 3A 48 4D B2 31 31 3A 50 B2 47 |;:.R,P:HM.11:P.G|
00000540: 00 75 0D 54 01 8D 31 30 32 30 3A 8D 31 33 31 30 |.u.T..1020:.1310|
00000550: 3A 8D 31 31 37 30 3A 81 50 B2 30 A4 50 4E A9 32 |:.1170:.P.0.PN.2|
00000560: 3A 4C B2 30 3A 48 B2 31 31 3A 8D 31 30 36 30 3A |:L.0:H.11:.1060:|
00000570: 82 3A 50 B2 47 00 8D 0D 5E 01 8F 20 2A 2A 2A 20 |.:P.G...^.. *** |
00000580: 4D 41 49 4E 20 4C 4F 4F 50 20 2A 2A 2A 00 AC 0D |MAIN LOOP ***...|
00000590: 68 01 50 B2 AB 28 50 AA 31 29 AC 28 50 B3 50 4E |h.P..(P.1).(P.PN|
000005A0: 29 3A 8B A5 50 28 50 29 A7 34 36 30 00 CC 0D 72 |):..P(P).460...r|
000005B0: 01 8F 20 2A 2A 2A 20 47 45 54 20 50 4C 41 59 45 |.. *** GET PLAYE|
000005C0: 52 27 53 20 4D 4F 56 45 20 2A 2A 2A 00 D7 0D 7C |R'S MOVE ***...||
000005D0: 01 97 31 39 38 2C 30 00 FC 0D 86 01 A1 44 24 3A |..198,0......D$:|
000005E0: 8B 28 44 24 B3 22 30 22 B0 44 24 B1 22 39 22 29 |.(D$."0".D$."9")|
000005F0: AF 44 24 B3 B1 22 20 22 A7 33 39 30 00 0D 0E 90 |.D$.." ".390....|
00000600: 01 8B 44 24 B3 B1 22 20 22 A7 34 33 30 00 24 0E |..D$.." ".430.$.|
00000610: 9A 01 8D 31 30 32 30 3A 8D 31 31 36 30 3A 97 31 |...1020:.1160:.1|
00000620: 39 38 2C 30 00 49 0E A4 01 A1 44 24 3A 8B 28 44 |98,0.I....D$:.(D|
00000630: 24 B3 22 30 22 B0 44 24 B1 22 39 22 29 AF 44 24 |$."0".D$."9").D$|
00000640: B3 B1 22 20 22 A7 34 32 30 00 6E 0E AE 01 8D 31 |.." ".420.n....1|
00000650: 33 33 30 3A 8B 44 24 B2 22 20 22 A7 97 53 AA 32 |330:.D$." "..S.2|
00000660: 31 2C 33 3A 8D 31 33 31 30 3A 89 33 36 30 00 90 |1,3:.1310:.360..|
00000670: 0E B8 01 4E B2 C5 28 44 24 29 AB 31 30 AC 28 44 |...N..(D$).10.(D|
00000680: 24 B2 22 30 22 29 3A 99 22 9E 22 3A 89 35 31 30 |$."0"):.".":.510|
00000690: 00 B2 0E C2 01 8F 20 2A 2A 2A 20 47 45 54 20 43 |...... *** GET C|
000006A0: 4F 4D 50 55 54 45 52 27 53 20 4D 4F 56 45 20 2A |OMPUTER'S MOVE *|
000006B0: 2A 2A 00 CB 0E CC 01 8D 37 34 30 3A 8B 42 28 4E |**......740:.B(N|
000006C0: 2C 50 29 AB 31 B0 45 A7 34 39 30 00 F0 0E D6 01 |,P).1.E.490.....|
000006D0: 8D 31 30 32 30 3A 8D 31 31 36 30 3A 8D 37 34 30 |.1020:.1160:.740|
000006E0: 3A 8B 42 28 4E 2C 50 29 AB 31 B0 45 A7 34 39 30 |:.B(N,P).1.E.490|
000006F0: 00 2A 0F E0 01 52 B2 28 4E B2 4C 29 AB 28 4E B2 |.*...R.(N.L).(N.|
00000700: 48 29 3A 8B 52 A7 8B B6 28 54 AB 48 28 4E 2C 50 |H):.R...(T.H(N,P|
00000710: 29 29 B3 B6 28 54 AB 48 28 4E AB 52 2C 50 29 29 |))..(T.H(N.R,P))|
00000720: A7 4E B2 4E AA 52 3A 45 B2 31 00 34 0F EA 01 8D |.N.N.R:E.1.4....|
00000730: 31 33 33 30 00 56 0F F4 01 8F 20 2A 2A 2A 20 4D |1330.V.... *** M|
00000740: 41 4B 45 20 50 4C 41 59 20 4F 4E 20 53 43 52 45 |AKE PLAY ON SCRE|
00000750: 45 4E 20 2A 2A 2A 00 99 0F FE 01 97 53 AA 32 31 |EN ***......S.21|
00000760: 2C 33 3A 49 B2 4E AB 35 2E 35 3A 53 4E B2 AB 31 |,3:I.N.5.5:SN..1|
00000770: 2E 35 AC 28 B4 28 50 AB 2E 35 29 AB 28 50 B2 32 |.5.(.(P..5).(P.2|
00000780: 29 29 3A 58 B2 31 36 38 3A 81 59 B2 4D A4 59 AB |)):X.168:.Y.M.Y.|
00000790: 53 4E AC 33 32 A9 AB 53 4E 00 C6 0F 08 02 97 57 |SN.32..SN......W|
000007A0: 2C 58 3A 97 57 AA 31 2C 59 3A 9E 59 53 3A 58 B2 |,X:.W.1,Y:.YS:X.|
000007B0: 58 AA 49 3A 8B 58 B1 B2 46 A7 58 B2 58 AB 46 3A |X.I:.X..F.X.X.F:|
000007C0: 97 57 AA 32 2C 33 00 E5 0F 12 02 82 3A 97 4C 4E |.W.2,3......:.LN|
000007D0: 2C A5 4C 28 50 29 3A 8B A5 50 28 50 29 A7 97 36 |,.L(P):..P(P)..6|
000007E0: 34 36 2C 43 4F 00 14 10 1C 02 99 3A 99 A3 34 AC |46,CO......:..4.|
000007F0: 4E AA 33 37 29 C9 28 C4 28 54 29 2C 32 29 3A 52 |N.37).(.(T),2):R|
00000800: B2 48 28 4E 2C 50 29 3A 48 28 4E 2C 50 29 B2 54 |.H(N,P):H(N,P).T|
00000810: 3A 54 B2 52 00 32 10 26 02 81 52 B2 31 A4 39 3A |:T.R.2.&..R.1.9:|
00000820: 8B 48 28 52 2C 50 29 B3 48 28 52 AA 31 2C 50 29 |.H(R,P).H(R.1,P)|
00000830: A7 82 00 6D 10 30 02 43 28 50 29 B2 52 3A 91 31 |...m.0.C(P).R:.1|
00000840: 31 AB 52 89 36 31 30 3A 8D 31 33 31 30 3A 8D 31 |1.R.610:.1310:.1|
00000850: 31 31 30 3A 97 31 39 38 2C 30 3A 58 B2 58 AB 49 |110:.198,0:X.X.I|
00000860: 3A 81 59 B2 59 AA 53 4E A4 4D A9 53 4E 00 99 10 |:.Y.Y.SN.M.SN...|
00000870: 3A 02 97 57 2C 58 3A 97 57 AA 31 2C 59 3A 9E 59 |:..W,X:.W.1,Y:.Y|
00000880: 53 3A 58 B2 58 AB 49 3A 8B 58 B3 30 A7 58 B2 58 |S:X.X.I:.X.0.X.X|
00000890: AA 46 3A 97 57 AA 32 2C 30 00 CA 10 44 02 82 3A |.F:.W.2,0...D..:|
000008A0: 8B A5 50 28 50 29 A7 8B 45 AA 42 28 4E 2C 50 29 |..P(P)..E.B(N,P)|
000008B0: B2 30 A7 42 28 4E 2C 50 29 B2 31 3A 48 4D B2 48 |.0.B(N,P).1:HM.H|
000008C0: 3A 48 B2 4E 3A 8D 31 30 36 30 00 D7 10 4E 02 45 |:H.N:.1060...N.E|
000008D0: B2 30 3A 89 33 36 30 00 F1 10 58 02 8F 20 2A 2A |.0:.360...X.. **|
000008E0: 2A 20 57 49 4E 20 52 4F 55 54 49 4E 45 20 2A 2A |* WIN ROUTINE **|
000008F0: 2A 00 2C 11 62 02 97 4C 4E 2C A5 4C 28 30 29 AA |*.,.b..LN,.L(0).|
00000900: 34 3A 99 3A 99 A3 38 29 22 05 22 4E 24 28 50 29 |4:.:..8)"."N$(P)|
00000910: 22 1D 57 49 4E 53 1D 52 4F 55 4E 44 1D 22 3B CA |".WINS.ROUND.";.|
00000920: 28 C4 28 47 4D AA 31 29 2C 32 29 3B 00 63 11 6C |(.(GM.1),2);.c.l|
00000930: 02 99 22 21 9E 22 3A 97 53 AA 32 31 2C 30 3A 81 |.."!.":.S.21,0:.|
00000940: 52 B2 30 A4 50 4E 3A 99 2C 22 1D 22 C9 28 22 1D |R.0.PN:.,".".(".|
00000950: 1D 1D 1D 22 AA 4E 24 28 52 29 2C 31 31 29 22 3A |...".N$(R),11)":|
00000960: 1D 22 3B 00 91 11 76 02 99 C9 28 C4 28 43 28 52 |.";...v...(.(C(R|
00000970: 29 AC 35 29 2C 32 29 3A 82 3A 47 4D B2 47 4D AA |).5),2):.:GM.GM.|
00000980: 31 3A 47 B2 47 AA 31 3A 8B 47 B1 50 4E A7 47 B2 |1:G.G.1:.G.PN.G.|
00000990: 30 00 B6 11 80 02 97 36 34 36 2C 31 34 3A 81 52 |0......646,14:.R|
000009A0: B2 30 A4 50 4E 3A 59 B2 30 3A 44 B2 37 3A 8B 50 |.0.PN:Y.0:D.7:.P|
000009B0: B2 52 A7 44 B2 31 00 E6 11 8A 02 81 58 B2 35 35 |.R.D.1......X.55|
000009C0: 33 37 37 AA A5 4C 28 52 29 AC 34 30 A4 58 AA 33 |377..L(R).40.X.3|
000009D0: 39 A9 34 3A 59 B2 59 AA 31 3A 8B 59 B1 43 28 52 |9.4:Y.Y.1:.Y.C(R|
000009E0: 29 A7 44 B2 31 31 00 0A 12 94 02 97 58 2C 44 3A |).D.11......X,D:|
000009F0: 97 58 AA 31 2C 44 3A 82 58 3A 50 28 52 29 B2 50 |.X.1,D:.X:P(R).P|
00000A00: 28 52 29 AA 43 28 52 29 AC 35 00 3D 12 9E 02 97 |(R).C(R).5.=....|
00000A10: 4C 4E 2C A5 4C 28 52 29 3A 99 3A 99 22 91 22 A6 |LN,.L(R):.:.".".|
00000A20: 34 30 AB C3 28 C4 28 50 28 52 29 29 29 29 CA 28 |40..(.(P(R)))).(|
00000A30: C4 28 50 28 52 29 29 2C 32 29 3A 82 52 00 7A 12 |.(P(R)),2):.R.z.|
00000A40: A8 02 97 4C 4E 2C A5 4C 28 31 29 AA 34 3A 99 3A |...LN,.L(1).4:.:|
00000A50: 99 A3 36 29 22 9F 50 52 45 53 53 1D 41 4E 59 1D |..6)".PRESS.ANY.|
00000A60: 4B 45 59 3B 1D 5B 46 31 5D 1D 46 4F 52 1D 4D 45 |KEY;.[F1].FOR.ME|
00000A70: 4E 55 22 3A 97 57 AA 32 2C 33 00 85 12 B2 02 97 |NU":.W.2,3......|
00000A80: 31 39 38 2C 30 00 98 12 BC 02 A1 44 24 3A 8B 44 |198,0......D$:.D|
00000A90: 24 B2 22 22 A7 37 30 30 00 AF 12 C6 02 8B 44 24 |$."".700......D$|
00000AA0: B2 22 85 22 A7 8D 31 32 31 30 3A 89 32 31 30 00 |."."..1210:.210.|
00000AB0: B8 12 D0 02 89 33 30 30 00 DC 12 DA 02 8F 20 2A |.....300...... *|
00000AC0: 2A 2A 20 53 42 52 3A 20 43 48 4F 4F 53 45 20 42 |** SBR: CHOOSE B|
00000AD0: 45 53 54 20 50 4C 41 59 20 2A 2A 2A 00 F9 12 E4 |EST PLAY ***....|
00000AE0: 02 4E B2 B5 28 54 AD 36 2E 35 AA 31 29 3A 8B 42 |.N..(T.6.5.1):.B|
00000AF0: 28 4E 2C 50 29 A7 39 32 30 00 15 13 EE 02 81 4C |(N,P).920......L|
00000B00: B2 4E AB 31 A4 31 A9 AB 31 3A 8B 42 28 4C 2C 50 |.N.1.1..1:.B(L,P|
00000B10: 29 AB 31 A7 82 00 2C 13 F8 02 8B 54 B3 48 28 4C |).1...,....T.H(L|
00000B20: 2C 50 29 A7 4E B2 4C 3A 89 39 32 30 00 46 13 02 |,P).N.L:.920.F..|
00000B30: 03 81 48 B2 4E AA 31 A4 31 30 3A 8B 42 28 48 2C |..H.N.1.10:.B(H,|
00000B40: 50 29 AB 31 A7 82 00 5D 13 0C 03 8B 54 B1 48 28 |P).1...]....T.H(|
00000B50: 48 2C 50 29 A7 4E B2 48 3A 89 39 32 30 00 88 13 |H,P).N.H:.920...|
00000B60: 16 03 4E B2 A5 56 28 54 29 3A 8B 48 AB 4C B3 34 |..N..V(T):.H.L.4|
00000B70: B0 54 AB 48 28 4C 2C 50 29 B3 36 B0 48 28 48 2C |.T.H(L,P).6.H(H,|
00000B80: 50 29 AB 54 B3 36 A7 8E 00 A1 13 20 03 42 B2 30 |P).T.6..... .B.0|
00000B90: 3A 59 B2 4C 3A 48 4D B2 48 3A 58 B2 4E 3A 43 B2 |:Y.L:HM.H:X.N:C.|
00000BA0: 30 00 B7 13 2A 03 48 B2 45 AA 58 3A 8B 42 28 48 |0...*.H.E.X:.B(H|
00000BB0: 2C 50 29 A7 38 37 30 00 D2 13 34 03 41 B2 48 28 |,P).870...4.A.H(|
00000BC0: 48 2C 50 29 3A 8B 43 B2 30 A7 48 28 48 2C 50 29 |H,P):.C.0.H(H,P)|
00000BD0: B2 54 00 EF 13 3E 03 42 28 48 2C 50 29 B2 31 3A |.T...>.B(H,P).1:|
00000BE0: 8D 31 30 36 30 3A 48 B2 45 AA 58 3A 4C B2 30 00 |.1060:H.E.X:L.0.|
00000BF0: 26 14 48 03 81 52 B2 59 AA 31 A4 48 4D AB 31 3A |&.H..R.Y.1.HM.1:|
00000C00: 4C B2 4C AA 42 28 52 2C 50 29 3A 82 3A 48 28 48 |L.L.B(R,P):.:H(H|
00000C10: 2C 50 29 B2 41 3A 41 B2 42 B3 4C 3A 8B 41 A7 42 |,P).A:A.B.L:.A.B|
00000C20: B2 4C 3A 4E B2 48 00 47 14 52 03 81 52 B2 59 AA |.L:N.H.G.R..R.Y.|
00000C30: 31 A4 48 4D AB 31 3A 8B 41 A7 42 28 52 2C 31 29 |1.HM.1:.A.B(R,1)|
00000C40: B2 42 28 52 2C 50 29 00 5A 14 5C 03 42 28 52 2C |.B(R,P).Z.\.B(R,|
00000C50: 50 29 B2 30 3A 82 3A 4C B2 59 00 72 14 66 03 8B |P).0:.:L.Y.r.f..|
00000C60: 45 AB 31 A7 45 B2 28 45 B2 30 29 AB 45 3A 89 38 |E.1.E.(E.0).E:.8|
00000C70: 31 30 00 9A 14 70 03 8B 43 B0 48 28 4E 2C 50 29 |10...p..C.H(N,P)|
00000C80: B3 48 28 59 2C 50 29 B0 48 28 4E 2C 50 29 B1 48 |.H(Y,P).H(N,P).H|
00000C90: 28 48 4D 2C 50 29 A7 39 31 30 00 D5 14 7A 03 8B |(HM,P).910...z..|
00000CA0: 48 28 4E 2C 50 29 AB 48 28 59 2C 50 29 B3 34 AC |H(N,P).H(Y,P).4.|
00000CB0: 28 4E AB 59 AB 31 29 B0 48 28 48 4D 2C 50 29 AB |(N.Y.1).H(HM,P).|
00000CC0: 48 28 4E 2C 50 29 B3 34 AC 28 48 4D AB 4E AB 31 |H(N,P).4.(HM.N.1|
00000CD0: 29 A7 39 31 30 00 19 15 84 03 8B B6 28 54 AB 48 |).910.......(T.H|
00000CE0: 28 4E 2C 50 29 29 B3 28 48 28 48 4D 2C 50 29 AB |(N,P)).(H(HM,P).|
00000CF0: 48 28 4C 2C 50 29 29 AD 28 48 4D AB 4C AB 31 29 |H(L,P)).(HM.L.1)|
00000D00: A7 43 B2 42 3A 58 B2 4E AB 31 3A 48 B2 4E 3A 42 |.C.B:X.N.1:H.N:B|
00000D10: B2 42 AB 31 3A 89 38 32 30 00 44 15 8E 03 81 52 |.B.1:.820.D....R|
00000D20: B2 59 AA 31 A4 48 4D AB 31 3A 42 28 52 2C 50 29 |.Y.1.HM.1:B(R,P)|
00000D30: B2 42 28 52 2C 31 29 3A 82 3A 8B 43 B2 30 B0 42 |.B(R,1):.:.C.0.B|
00000D40: B3 43 A7 8E 00 62 15 98 03 45 B2 30 3A 81 4C B2 |.C...b...E.0:.L.|
00000D50: 4E A4 31 A9 AB 31 3A 8B 42 28 4C AB 31 2C 50 29 |N.1..1:.B(L.1,P)|
00000D60: A7 82 00 7A 15 A2 03 81 48 B2 4E A4 31 30 3A 8B |...z....H.N.10:.|
00000D70: 42 28 48 AA 31 2C 50 29 A7 82 00 93 15 AC 03 8B |B(H.1,P)........|
00000D80: 54 B3 48 28 4C 2C 50 29 A7 4E B2 4C AB 31 3A 89 |T.H(L,P).N.L.1:.|
00000D90: 37 35 30 00 AC 15 B6 03 8B 54 B1 48 28 48 2C 50 |750......T.H(H,P|
00000DA0: 29 A7 4E B2 48 AA 31 3A 89 37 35 30 00 C3 15 C0 |).N.H.1:.750....|
00000DB0: 03 81 4E B2 4C A4 48 3A 8B 54 B1 48 28 4E 2C 50 |..N.L.H:.T.H(N,P|
00000DC0: 29 A7 82 00 D0 15 CA 03 8B 4C B2 30 A7 39 39 30 |)........L.0.990|
00000DD0: 00 13 16 D4 03 4E B2 4E AA 28 4E AB 4C B3 B2 48 |.....N.N.(N.L..H|
00000DE0: AB 4E B0 48 B1 39 29 3A 8B 4E B2 48 B2 4C AB 48 |.N.H.9):.N.H.L.H|
00000DF0: A7 4E B2 4E AA 28 48 28 4E AB 31 2C 50 29 B3 48 |.N.N.(H(N.1,P).H|
00000E00: 28 4E AB 32 2C 50 29 AF 48 28 4E AB 32 2C 50 29 |(N.2,P).H(N.2,P)|
00000E10: B3 54 29 00 56 16 DE 03 52 B2 28 4E B2 4C 29 AB |.T).V...R.(N.L).|
00000E20: 28 4E B2 48 29 3A 8B 52 A7 8B 28 48 28 4E 2C 50 |(N.H):.R..(H(N,P|
00000E30: 29 B3 48 28 4E AA 52 2C 50 29 29 B2 28 48 28 4E |).H(N.R,P)).(H(N|
00000E40: AA 52 2C 50 29 B3 54 29 A7 42 28 4E 2C 50 29 B2 |.R,P).T).B(N,P).|
00000E50: 30 3A 89 37 35 30 00 5C 16 E8 03 8E 00 7E 16 F2 |0:.750.\.....~..|
00000E60: 03 8F 20 2A 2A 2A 20 53 42 52 3A 20 44 52 41 57 |.. *** SBR: DRAW|
00000E70: 20 4E 45 58 54 20 54 49 4C 45 20 2A 2A 2A 00 B4 | NEXT TILE ***..|
00000E80: 16 FC 03 97 37 38 31 2C 31 3A 97 37 38 32 2C 36 |....781,1:.782,6|
00000E90: 32 3A 97 39 31 2C 33 3A 97 39 30 2C 31 32 38 3A |2:.91,3:.90,128:|
00000EA0: 97 38 39 2C 33 3A 97 38 38 2C 31 39 32 3A 9E 34 |.89,3:.88,192:.4|
00000EB0: 31 39 36 34 00 E8 16 06 04 58 B2 BB 28 31 29 AC |1964.....X..(1).|
00000EC0: 44 AA 31 3A 44 4B 24 B2 C8 28 44 4B 24 2C 58 AB |D.1:DK$..(DK$,X.|
00000ED0: 31 29 AA CA 28 44 4B 24 2C 58 AA 31 29 AA CA 28 |1)..(DK$,X.1)..(|
00000EE0: 44 4B 24 2C 58 2C 31 29 00 02 17 10 04 54 B2 C6 |DK$,X,1).....T..|
00000EF0: 28 C9 28 44 4B 24 2C 31 29 29 3A 44 B2 44 AB 31 |(.(DK$,1)):D.D.1|
00000F00: 3A 8E 00 23 17 1A 04 8F 20 2A 2A 2A 20 53 42 52 |:..#.... *** SBR|
00000F10: 3A 20 45 56 41 4C 55 41 54 45 20 48 41 4E 44 20 |: EVALUATE HAND |
00000F20: 2A 2A 2A 00 5D 17 24 04 81 52 B2 4C AA 31 A4 48 |***.].$..R.L.1.H|
00000F30: AB 31 3A 8B A5 56 28 48 28 52 2C 50 29 29 B2 52 |.1:..V(H(R,P)).R|
00000F40: A7 42 28 52 2C 50 29 B2 31 3A 91 52 AB 4C 89 31 |.B(R,P).1:.R.L.1|
00000F50: 30 38 30 3A 48 B2 52 3A 89 31 30 36 30 00 6C 17 |080:H.R:.1060.l.|
00000F60: 2E 04 82 3A 8B 52 B1 B2 48 4D A7 8E 00 88 17 38 |...:.R..HM.....8|
00000F70: 04 81 4C B2 52 A4 48 4D AB 32 3A 8B 42 28 4C AA |..L.R.HM.2:.B(L.|
00000F80: 31 2C 50 29 A7 82 3A 8E 00 A4 17 42 04 81 52 B2 |1,P)..:....B..R.|
00000F90: 4C AA 31 A4 48 4D AB 31 3A 8B 42 28 52 2C 50 29 |L.1.HM.1:.B(R,P)|
00000FA0: AB 31 A7 82 00 B2 17 4C 04 48 B2 52 3A 89 31 30 |.1.....L.H.R:.10|
00000FB0: 36 30 00 DE 17 56 04 8F 20 2A 2A 2A 20 53 42 52 |60...V.. *** SBR|
00000FC0: 3A 20 43 48 41 4E 47 45 20 4E 55 4D 42 45 52 53 |: CHANGE NUMBERS|
00000FD0: 20 49 4E 20 53 50 52 49 54 45 20 2A 2A 2A 00 12 | IN SPRITE ***..|
00000FE0: 18 60 04 41 B2 53 AA 38 AC C6 28 C9 28 C4 28 54 |.`.A.S.8..(.(.(T|
00000FF0: 29 2C 32 29 29 3A 42 B2 53 AB 41 AA 38 AC 28 C6 |),2)):B.S.A.8.(.|
00001000: 28 C9 28 C4 28 54 29 2C 31 29 29 29 3A 43 B2 39 |(.(.(T),1))):C.9|
00001010: 32 31 00 39 18 6A 04 97 35 36 33 33 33 2C 31 32 |21.9.j..56333,12|
00001020: 37 3A 97 31 2C 32 35 31 3A 81 52 B2 41 A4 41 AA |7:.1,251:.R.A.A.|
00001030: 37 3A 97 43 2C C2 28 52 29 00 65 18 74 04 97 43 |7:.C,.(R).e.t..C|
00001040: AA 31 2C C2 28 52 AA 42 29 3A 43 B2 43 AA 33 3A |.1,.(R.B):C.C.3:|
00001050: 82 3A 97 31 2C 32 35 35 3A 97 35 36 33 33 33 2C |.:.1,255:.56333,|
00001060: 31 32 39 3A 8E 00 8E 18 7E 04 8F 20 2A 2A 2A 20 |129:....~.. *** |
00001070: 53 42 52 3A 20 4D 4F 56 45 20 54 49 4C 45 20 4F |SBR: MOVE TILE O|
00001080: 4E 54 4F 20 53 43 52 45 45 4E 20 2A 2A 2A 00 BF |NTO SCREEN ***..|
00001090: 18 88 04 81 52 B2 31 A4 31 30 3A 97 57 2C 52 AD |....R.1.10:.W,R.|
000010A0: 32 AA 31 36 38 3A 97 57 AA 31 2C 52 AD 32 AA 4D |2.168:.W.1,R.2.M|
000010B0: 3A 9E 59 53 3A 82 3A 97 53 AA 32 31 2C 31 32 00 |:.YS:.:.S.21,12.|
000010C0: EC 18 92 04 97 57 AA 31 2C 4D 3A 97 57 2C 32 32 |.....W.1,M:.W,22|
000010D0: 35 3A 97 57 AA 32 2C 33 3A 9E 59 53 3A 97 53 AA |5:.W.2,3:.YS:.S.|
000010E0: 32 31 2C C2 28 53 AA 32 31 29 B0 33 00 21 19 9C |21,.(S.21).3.!..|
000010F0: 04 97 31 39 38 2C 30 3A 8D 31 31 31 30 3A 41 B2 |..198,0:.1110:A.|
00001100: 32 34 34 3A 81 52 B2 31 A4 39 30 3A 41 B2 41 AA |244:.R.1.90:A.A.|
00001110: 32 3A 8B 41 B2 46 A7 97 57 AA 32 2C 30 3A 41 B2 |2:.A.F..W.2,0:A.|
00001120: 30 00 32 19 A6 04 97 57 2C 41 3A 9E 59 53 3A 82 |0.2....W,A:.YS:.|
00001130: 3A 8E 00 57 19 B0 04 8F 20 2A 2A 2A 20 53 42 52 |:..W.... *** SBR|
00001140: 3A 20 50 52 49 4E 54 20 4D 45 4E 55 20 53 43 52 |: PRINT MENU SCR|
00001150: 45 45 4E 20 2A 2A 2A 00 93 19 BA 04 8D 31 33 34 |EEN ***......134|
00001160: 30 3A 99 22 11 11 22 C8 28 22 1D 1D 1D 9F 5B 30 |0:."..".("....[0|
00001170: 5D 1D 1D 43 4F 4E 54 49 4E 55 45 1D 43 55 52 52 |]..CONTINUE.CURR|
00001180: 45 4E 54 1D 47 41 4D 45 22 2C B4 28 47 4D 29 AC |ENT.GAME",.(GM).|
00001190: 33 30 29 00 B4 19 C4 04 99 22 9E 1D 1D 1D 5B 31 |30)......"....[1|
000011A0: 5D 1D 1D 50 4C 41 59 45 52 1D 56 53 1D 50 4C 41 |]..PLAYER.VS.PLA|
000011B0: 59 45 52 22 00 D6 19 CE 04 99 22 1D 1D 1D 5B 32 |YER"......"...[2|
000011C0: 5D 1D 1D 50 4C 41 59 45 52 1D 56 53 1D 43 4F 4D |]..PLAYER.VS.COM|
000011D0: 50 55 54 45 52 22 00 02 1A D8 04 99 22 1D 1D 1D |PUTER"......"...|
000011E0: 5B 33 5D 1D 1D 50 4C 41 59 45 52 1D 56 53 1D 50 |[3]..PLAYER.VS.P|
000011F0: 4C 41 59 45 52 1D 56 53 1D 43 4F 4D 50 55 54 45 |LAYER.VS.COMPUTE|
00001200: 52 22 00 32 1A E2 04 99 22 1D 1D 1D 5B 34 5D 1D |R".2...."...[4].|
00001210: 1D 50 4C 41 59 45 52 1D 56 53 1D 43 4F 4D 50 55 |.PLAYER.VS.COMPU|
00001220: 54 45 52 1D 56 53 1D 43 4F 4D 50 55 54 45 52 11 |TER.VS.COMPUTER.|
00001230: 11 22 00 6C 1A EC 04 99 22 13 11 11 11 11 11 11 |.".l....".......|
00001240: 11 11 11 11 11 11 11 11 22 3A 99 A3 38 29 22 9F |........":..8)".|
00001250: 54 4F 1D 22 CA 28 22 53 48 4F 57 20 20 20 48 49 |TO.".("SHOW HI|
00001260: 44 45 22 2C 43 4F AA 31 2C 34 29 3B 00 A8 1A F6 |DE",CO.1,4);....|
00001270: 04 99 22 1D 43 4F 4D 50 55 54 45 52 27 53 1D 54 |..".COMPUTER'S.T|
00001280: 49 4C 45 53 2C 22 3A 99 A3 37 29 22 50 55 53 48 |ILES,":..7)"PUSH|
00001290: 1D 5B 46 37 5D 1D 42 45 46 4F 52 45 1D 53 45 4C |.[F7].BEFORE.SEL|
000012A0: 45 43 54 49 4F 4E 2E 22 00 D8 1A 00 05 99 A3 33 |ECTION.".......3|
000012B0: 29 22 11 11 05 43 4F 50 59 52 49 47 48 54 1D 31 |)"...COPYRIGHT.1|
000012C0: 39 38 38 1D 43 4F 4D 50 55 54 45 21 1D 50 55 42 |988.COMPUTE!.PUB|
000012D0: 2E 2C 1D 49 4E 43 2E 22 00 FA 1A 0A 05 99 A3 31 |.,.INC.".......1|
000012E0: 30 29 22 41 4C 4C 1D 52 49 47 48 54 53 1D 52 45 |0)"ALL.RIGHTS.RE|
000012F0: 53 45 52 56 45 44 91 22 3A 8E 00 19 1B 14 05 8F |SERVED.":.......|
00001300: 20 2A 2A 2A 20 53 42 52 3A 20 50 52 49 4E 54 20 | *** SBR: PRINT |
00001310: 47 55 49 44 45 20 2A 2A 2A 00 38 1B 1E 05 97 4C |GUIDE ***.8....L|
00001320: 4E 2C A5 4C 28 50 AA 31 29 AA 31 3A 99 3A 99 22 |N,.L(P.1).1:.:."|
00001330: 9A 11 12 A9 31 92 22 3B 00 79 1B 28 05 99 22 A9 |....1.";.y.(..".|
00001340: 1D 12 A9 32 92 A9 1D 12 A9 33 92 A9 1D 12 A9 34 |...2.....3.....4|
00001350: 92 A9 1D 12 A9 35 20 1D 1D 20 36 DF 1D 92 DF 12 |.....5 .. 6.....|
00001360: 37 DF 1D 92 DF 12 38 DF 1D 92 DF 12 39 DF 1D 92 |7.....8.....9...|
00001370: DF 12 30 DF 91 22 3B 3A 8E 00 9B 1B 32 05 99 22 |..0..";:....2.."|
00001380: 1F 92 22 CA 28 58 24 2C 37 AC A5 4C 28 50 29 AB |..".(X$,7..L(P).|
00001390: 34 2C 34 30 29 22 9E 22 3B 3A 8E 00 CC 1B 3C 05 |4,40)".";:....<.|
000013A0: 97 53 AA 31 37 2C 34 33 3A 99 22 1F 08 93 22 58 |.S.17,43:."..."X|
000013B0: 24 58 24 58 24 58 24 58 24 C8 28 58 24 2C 31 31 |$X$X$X$X$.(X$,11|
000013C0: 38 29 22 CE 9D 94 DA 13 92 05 22 2C 00 FD 1B 46 |8)".......",...F|
000013D0: 05 99 22 9D 4D 1D 1D 1D 4F 1D 1D 1D 53 1D 1D 1D |..".M...O...S...|
000013E0: 41 1D 1D 1D 49 1D 1D 1D 43 22 3A 97 53 AA 33 33 |A...I...C":.S.33|
000013F0: 2C 30 3A 97 53 AA 31 37 2C 32 37 3A 8E 00 32 1C |,0:.S.17,27:..2.|
00001400: 50 05 83 22 50 4C 41 59 45 52 1D 31 22 2C 22 43 |P.."PLAYER.1","C|
00001410: 4F 4D 50 55 54 45 52 1D 31 22 2C 22 50 4C 41 59 |OMPUTER.1","PLAY|
00001420: 45 52 1D 32 22 2C 22 43 4F 4D 50 55 54 45 52 1D |ER.2","COMPUTER.|
00001430: 32 22 00 64 1C 5A 05 83 31 37 33 2C 31 37 2C 32 |2".d.Z..173,17,2|
00001440: 30 38 2C 31 36 2C 32 35 31 2C 31 36 30 2C 32 2C |08,16,251,160,2,|
00001450: 31 38 35 2C 35 39 2C 33 2C 31 35 33 2C 32 35 35 |185,59,3,153,255|
00001460: 2C 32 30 37 00 96 1C 64 05 83 31 35 33 2C 31 2C |,207...d..153,1,|
00001470: 32 30 38 2C 31 33 36 2C 32 30 38 2C 32 34 34 2C |208,136,208,244,|
00001480: 31 37 33 2C 36 32 2C 33 2C 31 34 31 2C 31 36 2C |173,62,3,141,16,|
00001490: 32 30 38 2C 39 36 00 C6 1C 6E 05 83 32 31 2C 38 |208,96...n..21,8|
000014A0: 38 2C 39 35 2C 32 35 30 2C 31 32 37 2C 32 35 34 |8,95,250,127,254|
000014B0: 2C 31 32 37 2C 32 35 34 2C 39 35 2C 32 35 30 2C |,127,254,95,250,|
000014C0: 32 36 2C 31 36 38 00 00 00 |26,168... |
..A.... COPYRIGHT 1988 COMPUTE! PUBL., I
NC. - ALL RIGHTS RESERVED......R,P,N,H,L
,T,X,Y,A,B,C,N$(4):S.53248:.S.21,0:.S.32
,6:.S.24,21.B...X$."VNMNVMNMZNM":.R.1.4:
X$.X$.X$:.N$(R):.:F.256:CO.7:.1210...(.L
N.214:YS.679:.H(11,2),B(11,2),P(2),C(2).
..2..*** ENTER ML DATA ***.).<..R.YS.R.2
5:.P:.R,P:T.T.P:..G.F..P.0.2:B(0,P).1:B(
11,P).1:H(11,P).65:.:W.828:R..(..(.TI)).
..P...V(T)..((T.H(L,P)).(H(H,P).H(L,P)).
(H.L.1).L.1).X.Z...L(P).(P.(P.0).(P.PN))
.6.11.2.PN:..P(P).(2.P.P.GN.1).1...D.. *
** CLEAR CASSETTE BUFFER ***...N..1023,0
:.781,1:.782,191:.91,3.=.X..90,65:.89,3:
.88,64:.41964.W.... *** DRAW SPRITE ***.
.....R.832.R.35.6:.X,Y:.P.R.R.3.3:.P,X:.
P.1,Y:.P,R.A....S.23,10:.S.28,10:.S.29,1
0:.S.37,8:.S.38,0:.S.39,7... ..S.40,2:.S
.41,7:.S.42,2:.S.4,174:.S.6,174......204
0,14:.2041,13:.2042,15:.2043,13.2.... **
* NUMBER TILES ***.M....R.1.64:DK$.DK$.G
(R):..S.H.. *** GET SELECTION FROM MENU
***.~.R..198,0......D$:.D$."".220......D
$.".".CO.7.CO:.1260:.210.J....D$.G(13).D
$."4":.270......D$."0"..GM.300......D$."
1".D$."4".210.+...G.0:GM.0:GN.E(D$):PN.1
.(GN.2):N$(0).N$(.(GN.2).2).^...M.146.16
.PN:.S.5,M.5:.S.7,M.5:.R.0.PN:P(R).0:..W
.".. *** DEAL HANDS ***...,..1340:D.64:.
P.0.PN:.LN,.L(P):..N.6.."..."N$(P).80.C(
D(P(P))));J(D(P(P)),2):.R.1.10...@..1030
:H(R,P).T:B(R,P).0:.".....";:..P(P)..646
,CO.@.J..I(D(T),2)".....................
.......";:.R,P:HM.11:P.G.U.T..1020:.1310
:.1170:.P.0.PN.2:L.0:H.11:.1060:.:P.G...
^.. *** MAIN LOOP ***...H.P..(P.1).(P.PN
):..P(P).460.L.R.. *** GET PLAYER'S MOVE
***.W.|..198,0......D$:.(D$."0".D$."9")
.D$.." ".390......D$.." ".430.$....1020:
.1160:.198,0.I....D$:.(D$."0".D$."9").D$
.." ".420.N....1330:.D$." "..S.21,3:.131
0:.360.....N.E(D$).10.(D$."0"):.".":.510
...B.. *** GET COMPUTER'S MOVE ***.K.L..
740:.B(N,P).1.E.490...V..1020:.1160:.740
:.B(N,P).1.E.490.*...R.(N.L).(N.H):.R...
(T.H(N,P))..(T.H(N.R,P)).N.N.R:E.1.4....
1330.V.... *** MAKE PLAY ON SCREEN ***..
....S.21,3:I.N.5.5:SN..1.5.(.(P..5).(P.2
)):X.168:.Y.M.Y.SN.32..SN.F....W,X:.W.1,
Y:.YS:X.X.I:.X..F.X.X.F:.W.2,3......:.LN
,.L(P):..P(P)..646,CO......:..4.N.37)I(D
(T),2):R.H(N,P):H(N,P).T:T.R.2.&..R.1.9:
.H(R,P).H(R.1,P)...M.0.C(P).R:.11.R.610:
.1310:.1110:.198,0:X.X.I:.Y.Y.SN.M.SN...
:..W,X:.W.1,Y:.YS:X.X.I:.X.0.X.X.F:.W.2,
0.J.D..:..P(P)..E.B(N,P).0.B(N,P).1:HM.H
:H.N:.1060.W.N.E.0:.360...X.. *** WIN RO
UTINE ***.,.B..LN,.L(0).4:.:..8)"."N$(P)
".WINS.ROUND.";J(D(GM.1),2);.C.L.."!.":.
S.21,0:.R.0.PN:.,"."I("....".N$(R),11)":
.";...V..I(D(C(R).5),2):.:GM.GM.1:G.G.1:
.G.PN.G.0......646,14:.R.0.PN:Y.0:D.7:.P
.R.D.1......X.55377..L(R).40.X.39.4:Y.Y.
1:.Y.C(R).D.11......X,D:.X.1,D:.X:P(R).P
(R).C(R).5.=....LN,.L(R):.:.".".40.C(D(P
(R))))J(D(P(R)),2):.R.Z....LN,.L(1).4:.:
..6)".PRESS.ANY.KEY;.[F1].FOR.MENU":.W.2
,3......198,0......D$:.D$."".700...F..D$
."."..1210:.210...P..300...Z.. *** SBR:
CHOOSE BEST PLAY ***.....N..(T.6.5.1):.B
(N,P).920......L.N.1.1..1:.B(L,P).1...,.
...T.H(L,P).N.L:.920.F....H.N.1.10:.B(H,
P).1...]....T.H(H,P).N.H:.920.....N..V(T
):.H.L.4.T.H(L,P).6.H(H,P).T.6..... .B.0
:Y.L:HM.H:X.N:C.0...*.H.E.X:.B(H,P).870.
R.4.A.H(H,P):.C.0.H(H,P).T...>.B(H,P).1:
.1060:H.E.X:L.0.&.H..R.Y.1.HM.1:L.L.B(R,
P):.:H(H,P).A:A.B.L:.A.B.L:N.H.G.R..R.Y.
1.HM.1:.A.B(R,1).B(R,P).Z.\.B(R,P).0:.:L
.Y.R.F..E.1.E.(E.0).E:.810...P..C.H(N,P)
.H(Y,P).H(N,P).H(HM,P).910.U.Z..H(N,P).H
(Y,P).4.(N.Y.1).H(HM,P).H(N,P).4.(HM.N.1
).910.......(T.H(N,P)).(H(HM,P).H(L,P)).
(HM.L.1).C.B:X.N.1:H.N:B.B.1:.820.D....R
.Y.1.HM.1:B(R,P).B(R,1):.:.C.0.B.C...B..
.E.0:.L.N.1..1:.B(L.1,P)...Z....H.N.10:.
B(H.1,P)........T.H(L,P).N.L.1:.750.....
.T.H(H,P).N.H.1:.750.C....N.L.H:.T.H(N,P
)...P.J..L.0.990...T.N.N.(N.L..H.N.H.9):
.N.H.L.H.N.N.(H(N.1,P).H(N.2,P).H(N.2,P)
.T).V...R.(N.L).(N.H):.R..(H(N,P).H(N.R,
P)).(H(N.R,P).T).B(N,P).0:.750.\.....~..
.. *** SBR: DRAW NEXT TILE ***......781,
1:.782,62:.91,3:.90,128:.89,3:.88,192:.4
1964.....X..(1).D.1:DK$.H(DK$,X.1).J(DK$
,X.1).J(DK$,X,1).....T.F(I(DK$,1)):D.D.1
:..#.... *** SBR: EVALUATE HAND ***.].$.
.R.L.1.H.1:..V(H(R,P)).R.B(R,P).1:.R.L.1
080:H.R:.1060.L....:.R..HM.....8..L.R.HM
.2:.B(L.1,P)..:....B..R.L.1.HM.1:.B(R,P)
.1.....L.H.R:.1060...V.. *** SBR: CHANGE
NUMBERS IN SPRITE ***...`.A.S.8.F(I(D(T
),2)):B.S.A.8.(F(I(D(T),1))):C.921.9.J..
56333,127:.1,251:.R.A.A.7:.C,B(R).E.T..C
.1,B(R.B):C.C.3:.:.1,255:.56333,129:....
~.. *** SBR: MOVE TILE ONTO SCREEN ***..
....R.1.10:.W,R.2.168:.W.1,R.2.M:.YS:.:.
S.21,12......W.1,M:.W,225:.W.2,3:.YS:.S.
21,B(S.21).3.!....198,0:.1110:A.244:.R.1
.90:A.A.2:.A.F..W.2,0:A.0.2....W,A:.YS:.
:..W.... *** SBR: PRINT MENU SCREEN ***.
.....1340:.".."H("....[0]..CONTINUE.CURR
ENT.GAME",.(GM).30)...D.."....[1]..PLAYE
R.VS.PLAYER".V.N.."...[2]..PLAYER.VS.COM
PUTER"...X.."...[3]..PLAYER.VS.PLAYER.VS
.COMPUTER".2...."...[4]..PLAYER.VS.COMPU
TER.VS.COMPUTER..".L...."...............
":..8)".TO."J("SHOW HIDE",CO.1,4);....
..".COMPUTER'S.TILES,":..7)"PUSH.[F7].BE
FORE.SELECTION.".X.....3)"...COPYRIGHT.1
988.COMPUTE!.PUB.,.INC.".......10)"ALL.R
IGHTS.RESERVED.":....... *** SBR: PRINT
GUIDE ***.8....LN,.L(P.1).1:.:."....1.";
.Y.(.."....2.....3.....4.....5 .. 6.....
7.....8.....9.....0..";:....2..".."J(X$,
7..L(P).4,40)".";:..L.<..S.17,43:."..."X
$X$X$X$X$H(X$,118)"N..Z...",...F..".M...
O...S...A...I...C":.S.33,0:.S.17,27:..2.
P.."PLAYER.1","COMPUTER.1","PLAYER.2","C
OMPUTER.2".D.Z..173,17,208,16,251,160,2,
185,59,3,153,255,207...D..153,1,208,136,
208,244,173,62,3,141,16,208,96.F.N..21,8
8,95,250,127,254,127,254,95,250,26,168..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL