SOLITAIRE
FILE INFORMATION
FILENAME(S): SOLITAIRE
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-12-01 01:02:25
APPEARS ON: 1 disk(s)
FILE HASH
302ed1774bd4a2370273cf66395824ecaf2d6833303bea1b195752d502f348d1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARBETSDISK NR1 | SOLITAIRE | PRG | hedning, German ebay | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 9C 3A 41 B2 BB 28 AB 54 49 29 |..$....:A..(.TI)| 00000010: 3A 99 22 93 22 3B 3A 46 35 B2 31 3A 43 B2 35 32 |:.".";:F5.1:C.52| 00000020: 3A 57 B2 31 00 3C 08 14 00 97 35 33 32 38 31 2C |:W.1.<....53281,| 00000030: 31 35 3A 97 35 33 32 38 30 2C 31 34 00 55 08 1E |15:.53280,14.U..| 00000040: 00 86 50 28 34 2C 31 33 29 2C 44 28 35 32 29 2C |..P(4,13),D(52),| 00000050: 54 28 35 32 29 00 6E 08 28 00 8D 39 32 30 3A 8F |T(52).n.(..920:.| 00000060: 2D 2D 44 52 41 57 20 42 4F 58 45 53 2D 2D 00 8C |--DRAW BOXES--..| 00000070: 08 32 00 99 22 13 1F 22 3B A3 31 35 29 3B 22 53 |.2.."..";.15);"S| 00000080: 48 55 46 46 4C 49 4E 47 2E 2E 2E 22 00 A8 08 3C |HUFFLING..."...<| 00000090: 00 8D 31 30 32 30 3A 8F 2D 2D 53 48 55 46 46 4C |..1020:.--SHUFFL| 000000A0: 45 20 44 45 43 4B 2D 2D 00 C9 08 46 00 99 22 13 |E DECK--...F..".| 000000B0: 22 3B A3 31 35 29 3B 22 44 45 41 4C 49 4E 47 2E |";.15);"DEALING.| 000000C0: 2E 2E 20 20 20 20 20 20 22 00 E8 08 50 00 81 49 |.. "...P..I| 000000D0: B2 31 A4 34 3A 81 4A B2 31 A4 31 33 3A 8D 31 30 |.1.4:.J.1.13:.10| 000000E0: 38 30 3A 82 4A 3A 82 49 00 12 09 5A 00 8D 31 32 |80:.J:.I...Z..12| 000000F0: 31 30 3A 8F 20 2D 2D 46 49 4E 44 20 46 49 52 53 |10:. --FIND FIRS| 00000100: 54 20 46 4F 55 52 20 45 4D 50 54 59 20 42 4F 58 |T FOUR EMPTY BOX| 00000110: 45 53 00 46 09 64 00 99 22 13 22 3B 22 1F 54 59 |ES.F.d..".";".TY| 00000120: 50 45 20 27 4D 27 20 54 4F 20 4D 4F 56 45 20 54 |PE 'M' TO MOVE T| 00000130: 4F 20 54 48 45 20 4E 45 58 54 20 45 4D 50 54 59 |O THE NEXT EMPTY| 00000140: 20 53 4C 4F 54 22 00 72 09 6E 00 99 22 4F 52 20 | SLOT".r.n.."OR | 00000150: 27 50 27 20 54 4F 20 50 4C 41 43 45 20 41 20 43 |'P' TO PLACE A C| 00000160: 41 52 44 20 41 54 20 54 48 45 20 43 55 52 53 4F |ARD AT THE CURSO| 00000170: 52 22 00 94 09 78 00 8B 57 B2 35 A7 57 B2 31 3A |R"...x..W.5.W.1:| 00000180: 46 31 B2 30 3A 8D 31 32 38 30 3A 8B 46 31 B2 30 |F1.0:.1280:.F1.0| 00000190: A7 35 37 30 00 C4 09 82 00 49 B2 B5 28 28 45 28 |.570.....I..((E(| 000001A0: 57 29 AB 31 29 AD 31 33 29 AA 31 3A 4A B2 45 28 |W).1).13).1:J.E(| 000001B0: 57 29 AB 31 33 AC B5 28 28 45 28 57 29 AB 31 29 |W).13..((E(W).1)| 000001C0: AD 31 33 29 00 D1 09 8C 00 8B 4A B2 31 A7 31 37 |.13)......J.1.17| 000001D0: 30 00 FC 09 96 00 4C 4C B2 50 28 49 2C 4A AB 31 |0.....LL.P(I,J.1| 000001E0: 29 3A 8B 4C 4C AD 31 33 B2 B5 28 4C 4C AD 31 33 |):.LL.13..(LL.13| 000001F0: 29 A7 57 B2 57 AA 31 3A 89 31 32 30 00 23 0A A0 |).W.W.1:.120.#..| 00000200: 00 8B 4C 4C B2 31 B0 4C 4C B2 31 34 B0 4C 4C B2 |..LL.1.LL.14.LL.| 00000210: 32 37 B0 4C 4C B2 34 30 A7 57 B2 57 AA 31 3A 89 |27.LL.40.W.W.1:.| 00000220: 31 32 30 00 41 0A AA 00 4E 24 B2 22 D7 22 3A 53 |120.A...N$.".":S| 00000230: 24 B2 22 20 22 3A 99 22 1F 22 3B 3A 8D 31 31 36 |$." ":.".";:.116| 00000240: 30 00 5C 0A B4 00 A1 58 24 3A 8B 58 24 B2 22 22 |0.\....X$:.X$.""| 00000250: A7 99 22 9E 22 3B 3A 8D 31 31 36 30 00 6C 0A BE |..".";:.1160.l..| 00000260: 00 8B 58 24 B3 B1 22 22 A7 32 31 30 00 8C 0A C8 |..X$.."".210....| 00000270: 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 99 22 1F 22 |..X$:.X$."".."."| 00000280: 3B 3A 8D 31 31 36 30 3A 89 31 38 30 00 9C 0A D2 |;:.1160:.180....| 00000290: 00 8B 58 24 B2 22 50 22 A7 32 34 30 00 C1 0A DC |..X$."P".240....| 000002A0: 00 8B 58 24 B2 22 4D 22 A7 3A 4E 24 B2 22 20 22 |..X$."M".:N$." "| 000002B0: 3A 8D 31 31 36 30 3A 57 B2 57 AA 31 3A 89 31 32 |:.1160:W.W.1:.12| 000002C0: 30 00 CA 0A E6 00 89 31 38 30 00 D7 0A F0 00 8B |0......180......| 000002D0: 4A B2 31 A7 33 37 30 00 E7 0A FA 00 4C 4C B2 50 |J.1.370.....LL.P| 000002E0: 28 49 2C 4A AB 31 29 00 FF 0A 04 01 8B 4C 4C AD |(I,J.1)......LL.| 000002F0: 31 33 B2 B5 28 4C 4C AD 31 33 29 A7 31 38 30 00 |13..(LL.13).180.| 00000300: 1F 0B 0E 01 8B 4C 4C B2 31 B0 4C 4C B2 31 34 B0 |.....LL.1.LL.14.| 00000310: 4C 4C B2 32 37 B0 4C 4C B2 34 30 A7 31 38 30 00 |LL.27.LL.40.180.| 00000320: 4B 0B 18 01 54 45 B2 50 28 49 2C 4A 29 3A 54 54 |K...TE.P(I,J):TT| 00000330: B2 54 28 50 28 49 2C 4A 29 29 3A 4C B2 54 28 50 |.T(P(I,J)):L.T(P| 00000340: 28 49 2C 4A 20 AB 31 29 AA 31 29 00 67 0B 22 01 |(I,J .1).1).g.".| 00000350: 54 28 50 28 49 2C 4A 29 29 B2 54 28 50 28 49 2C |T(P(I,J)).T(P(I,| 00000360: 4A AB 31 29 AA 31 29 00 7C 0B 2C 01 54 28 50 28 |J.1).1).|.,.T(P(| 00000370: 49 2C 4A AB 31 29 AA 31 29 B2 54 54 00 A9 0B 36 |I,J.1).1).TT...6| 00000380: 01 50 28 49 2C 4A 29 B2 50 28 B5 28 28 4C AB 31 |.P(I,J).P(.((L.1| 00000390: 29 AD 31 33 AA 31 29 2C 4C AB 31 33 AC B5 28 28 |).13.1),L.13..((| 000003A0: 4C AB 31 29 AD 31 33 29 29 00 D2 0B 40 01 50 28 |L.1).13))...@.P(| 000003B0: B5 28 28 4C AB 31 29 AD 31 33 29 AA 31 2C 4C AB |.((L.1).13).1,L.| 000003C0: 31 33 AC B5 28 28 4C AB 31 29 AD 31 33 29 29 B2 |13..((L.1).13)).| 000003D0: 54 45 00 DC 0B 4A 01 8D 31 30 38 30 00 09 0C 54 |TE...J..1080...T| 000003E0: 01 49 B2 B5 28 28 4C AB 31 29 AD 31 33 29 AA 31 |.I..((L.1).13).1| 000003F0: 3A 4A B2 4C AB 31 33 AC B5 28 28 4C AB 31 29 AD |:J.L.13..((L.1).| 00000400: 31 33 29 3A 8D 31 30 38 30 00 1C 0C 5E 01 8D 31 |13):.1080...^..1| 00000410: 32 31 30 3A 57 B2 31 3A 89 31 32 30 00 3A 0C 68 |210:W.1:.120.:.h| 00000420: 01 8F 2D 2D 4F 46 46 45 52 20 43 48 4F 49 43 45 |..--OFFER CHOICE| 00000430: 20 4F 46 20 27 54 57 4F 53 27 00 5A 0C 72 01 99 | OF 'TWOS'.Z.r..| 00000440: 22 13 22 3A 99 22 11 11 11 11 11 11 11 11 11 11 |".":."..........| 00000450: 11 11 11 11 11 11 11 11 11 22 00 64 0C 7C 01 99 |.........".d.|..| 00000460: 22 1F 22 3B 00 84 0C 86 01 99 22 4E 4F 57 20 59 |".";......"NOW Y| 00000470: 4F 55 20 48 41 56 45 20 41 20 43 48 4F 49 43 45 |OU HAVE A CHOICE| 00000480: 20 4F 46 22 00 A7 0C 90 01 99 22 57 48 49 43 48 | OF"......"WHICH| 00000490: 20 27 32 27 20 59 4F 55 20 57 41 4E 54 20 54 4F | '2' YOU WANT TO| 000004A0: 20 50 4C 41 43 45 22 00 C9 0C 9A 01 99 22 54 57 | PLACE"......"TW| 000004B0: 4F 20 4F 46 20 27 53 27 2C 27 48 27 2C 27 44 27 |O OF 'S','H','D'| 000004C0: 2C 4F 52 20 27 43 27 22 3B 00 DC 0C A4 01 A1 54 |,OR 'C'";......T| 000004D0: 24 3A 8B 54 24 B2 22 22 A7 34 32 30 00 F2 0C AE |$:.T$."".420....| 000004E0: 01 8B 54 24 B2 22 53 22 A7 4E 32 B2 32 3A 89 34 |..T$."S".N2.2:.4| 000004F0: 39 30 00 09 0D B8 01 8B 54 24 B2 22 48 22 A7 4E |90......T$."H".N| 00000500: 32 B2 31 35 3A 89 34 39 30 00 20 0D C2 01 8B 54 |2.15:.490. ....T| 00000510: 24 B2 22 44 22 A7 4E 32 B2 32 38 3A 89 34 39 30 |$."D".N2.28:.490| 00000520: 00 38 0D CC 01 8B 20 54 24 B2 22 43 22 A7 4E 32 |.8.... T$."C".N2| 00000530: B2 34 31 3A 89 34 39 30 00 41 0D D6 01 89 34 32 |.41:.490.A....42| 00000540: 30 00 61 0D E0 01 8F 2D 2D 4E 4F 57 20 45 58 43 |0.a....--NOW EXC| 00000550: 48 41 4E 47 45 20 4C 4F 43 41 54 49 4F 4E 53 2D |HANGE LOCATIONS-| 00000560: 2D 00 84 0D EA 01 54 45 B2 50 28 49 2C 4A 29 3A |-.....TE.P(I,J):| 00000570: 54 54 B2 54 28 50 28 49 2C 4A 29 29 3A 4C B2 54 |TT.T(P(I,J)):L.T| 00000580: 28 4E 32 29 00 98 0D F4 01 54 28 50 28 49 2C 4A |(N2).....T(P(I,J| 00000590: 29 29 B2 54 28 4E 32 29 00 A5 0D FE 01 54 28 4E |)).T(N2).....T(N| 000005A0: 32 29 B2 54 54 00 C5 0D 08 02 99 22 13 22 3A 99 |2).TT......".":.| 000005B0: 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 000005C0: 11 11 11 11 22 00 E6 0D 12 02 99 22 20 20 20 20 |...."......" | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 22 00 0C 0E 1C 02 99 22 20 20 20 | "......" | 000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000600: 20 20 20 20 20 20 20 20 20 20 20 22 00 33 0E 26 | ".3.&| 00000610: 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000630: 20 22 3B 00 3C 0E 30 02 89 33 31 30 00 47 0E 3A | ";.<.0..310.G.:| 00000640: 02 81 49 B2 31 A4 34 00 52 0E 44 02 4E 28 49 29 |..I.1.4.R.D.N(I)| 00000650: B2 30 00 86 0E 4E 02 8B 50 28 49 2C 31 29 B3 B1 |.0...N..P(I,1)..| 00000660: 32 AF 50 28 49 2C 31 29 B3 B1 31 35 AF 50 28 49 |2.P(I,1)..15.P(I| 00000670: 2C 31 29 B3 B1 32 38 AF 50 28 49 2C 31 29 B3 B1 |,1)..28.P(I,1)..| 00000680: 34 31 A7 36 35 30 00 91 0E 58 02 4E 28 49 29 B2 |41.650...X.N(I).| 00000690: 31 00 9D 0E 62 02 81 4A B2 32 A4 31 32 00 BF 0E |1...b..J.2.12...| 000006A0: 6C 02 8B 50 28 49 2C 4A 29 AB 31 B3 B1 50 28 49 |l..P(I,J).1..P(I| 000006B0: 2C 4A AB 31 29 A7 4A B2 31 34 3A 89 36 34 30 00 |,J.1).J.14:.640.| 000006C0: CF 0E 76 02 4E 28 49 29 B2 4E 28 49 29 AA 31 00 |..v.N(I).N(I).1.| 000006D0: D6 0E 80 02 82 4A 00 DD 0E 8A 02 82 49 00 07 0F |.....J......I...| 000006E0: 94 02 8B 4E 28 31 29 B2 31 32 AF 4E 28 32 29 B2 |...N(1).12.N(2).| 000006F0: 31 32 AF 4E 28 33 29 B2 31 32 AF 4E 28 34 29 B2 |12.N(3).12.N(4).| 00000700: 31 32 A7 31 33 35 30 00 13 0F 9E 02 46 35 B2 46 |12.1350.....F5.F| 00000710: 35 AA 31 00 32 0F A8 02 8F 2D 2D 45 52 41 53 45 |5.1.2....--ERASE| 00000720: 20 54 48 45 20 57 52 4F 4E 47 20 45 4E 54 52 49 | THE WRONG ENTRI| 00000730: 45 53 00 62 0F B2 02 99 22 13 20 20 20 20 20 20 |ES.b....". | 00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000760: 20 22 00 92 0F BC 02 99 22 20 20 20 20 20 20 20 | "......" | 00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000790: 22 3B 00 A4 0F C6 02 4E 24 B2 22 20 22 3A 53 24 |";.....N$." ":S$| 000007A0: B2 22 20 22 00 C4 0F D0 02 99 22 13 1F 22 3B A3 |." "......"..";.| 000007B0: 31 35 29 3B 22 52 45 53 48 55 46 46 4C 49 4E 47 |15);"RESHUFFLING| 000007C0: 2E 2E 2E 22 00 D9 0F DA 02 81 49 B2 31 A4 35 32 |..."......I.1.52| 000007D0: 3A 44 28 49 29 B2 49 3A 82 00 E4 0F E4 02 81 49 |:D(I).I:.......I| 000007E0: B2 31 A4 34 00 F5 0F EE 02 81 4A B2 4E 28 49 29 |.1.4......J.N(I)| 000007F0: AA 31 A4 31 33 00 FF 0F F8 02 8D 31 31 36 30 00 |.1.13......1160.| 00000800: 07 10 02 03 82 3A 82 00 11 10 0C 03 43 33 B2 35 |.....:......C3.5| 00000810: 32 00 1C 10 16 03 81 49 B2 31 A4 34 00 2C 10 20 |2......I.1.4.,. | 00000820: 03 8B 4E 28 49 29 B2 30 A7 38 32 30 00 49 10 2A |..N(I).0.820.I.*| 00000830: 03 81 4A B2 31 A4 4E 28 49 29 3A 44 28 50 28 49 |..J.1.N(I):D(P(I| 00000840: 2C 4A 29 29 B2 30 3A 82 4A 00 50 10 34 03 82 49 |,J)).0:.J.P.4..I| 00000850: 00 68 10 3E 03 81 49 B2 31 A4 34 3A 81 4A B2 31 |.h.>..I.1.4:.J.1| 00000860: AA 4E 28 49 29 A4 31 33 00 7C 10 48 03 52 31 B2 |.N(I).13.|.H.R1.| 00000870: B5 28 BB 28 31 29 AC 43 33 AA 31 29 00 A2 10 52 |.(.(1).C3.1)...R| 00000880: 03 8B 44 28 52 31 29 B2 30 A7 44 28 52 31 29 B2 |..D(R1).0.D(R1).| 00000890: 44 28 43 33 29 3A 43 33 B2 43 33 AB 31 3A 89 38 |D(C3):C3.C3.1:.8| 000008A0: 34 30 00 B3 10 5C 03 50 28 49 2C 4A 29 B2 44 28 |40...\.P(I,J).D(| 000008B0: 52 31 29 00 CE 10 66 03 44 28 52 31 29 B2 44 28 |R1)...f.D(R1).D(| 000008C0: 43 33 29 3A 43 33 B2 43 33 AB 31 3A 82 4A 00 D5 |C3):C3.C3.1:.J..| 000008D0: 10 70 03 82 49 00 EC 10 7A 03 81 49 49 B2 31 A4 |.p..I...z..II.1.| 000008E0: 35 32 3A 54 28 49 49 29 B2 30 3A 82 00 F6 10 84 |52:T(II).0:.....| 000008F0: 03 8D 31 30 36 30 00 FE 10 8E 03 89 37 30 00 12 |..1060......70..| 00000900: 11 98 03 8F 2D 2D 53 45 54 20 55 50 20 42 4F 58 |....--SET UP BOX| 00000910: 45 53 00 1C 11 A2 03 99 22 05 22 3B 00 27 11 AC |ES......".";.'..| 00000920: 03 81 49 B2 31 A4 34 00 2F 11 B6 03 99 3A 99 00 |..I.1.4./....:..| 00000930: 4C 11 C0 03 81 4A B2 31 A4 31 32 3A 99 22 C0 C0 |L....J.1.12:."..| 00000940: B2 22 3B 3A 82 3A 99 22 C0 C0 AE 22 00 64 11 CA |.";:.:."...".d..| 00000950: 03 81 4A B2 31 A4 31 33 3A 99 22 20 20 DD 22 3B |..J.1.13:." .";| 00000960: 3A 82 3A 99 00 81 11 D4 03 81 4A B2 31 A4 31 32 |:.:.......J.1.12| 00000970: 3A 99 22 C0 C0 B1 22 3B 3A 82 3A 99 22 C0 C0 BD |:."...";:.:."...| 00000980: 22 00 87 11 DE 03 82 00 91 11 E8 03 99 22 13 22 |"............"."| 00000990: 3B 00 97 11 F2 03 8E 00 AA 11 FC 03 8F 2D 2D 53 |;............--S| 000009A0: 45 54 20 55 50 20 44 45 43 4B 00 BF 11 06 04 81 |ET UP DECK......| 000009B0: 49 B2 31 A4 35 32 3A 44 28 49 29 B2 49 3A 82 00 |I.1.52:D(I).I:..| 000009C0: FF 11 10 04 81 49 B2 31 A4 34 3A 81 4A B2 31 A4 |.....I.1.4:.J.1.| 000009D0: 31 33 3A 52 31 B2 B5 28 BB 28 31 29 AC 43 AA 31 |13:R1..(.(1).C.1| 000009E0: 29 3A 50 28 49 2C 4A 29 B2 44 28 52 31 29 3A 44 |):P(I,J).D(R1):D| 000009F0: 28 52 31 29 B2 44 28 43 29 3A 43 B2 43 AB 31 00 |(R1).D(C):C.C.1.| 00000A00: 07 12 1A 04 82 3A 82 00 3A 12 24 04 81 49 49 B2 |.....:..:.$..II.| 00000A10: 31 A4 34 3A 81 4A 4A B2 31 A4 31 33 3A 54 28 50 |1.4:.JJ.1.13:T(P| 00000A20: 28 49 49 2C 20 4A 4A 29 29 B2 28 49 49 AB 31 29 |(II, JJ)).(II.1)| 00000A30: AC 31 33 AA 4A 4A 3A 82 3A 82 00 40 12 2E 04 8E |.13.JJ:.:..@....| 00000A40: 00 58 12 38 04 8F 2D 2D 53 48 4F 57 20 43 41 52 |.X.8..--SHOW CAR| 00000A50: 44 20 50 28 49 2C 4A 29 00 84 12 42 04 53 24 B2 |D P(I,J)...B.S$.| 00000A60: 22 C1 D3 DA D8 22 3A 53 24 B2 CA 28 53 24 2C B5 |"....":S$..(S$,.| 00000A70: 28 28 50 28 49 2C 4A 29 AB 31 29 AD 31 33 29 AA |((P(I,J).1).13).| 00000A80: 31 2C 31 29 00 A3 12 4C 04 99 22 90 22 3B 3A 8B |1,1)...L..".";:.| 00000A90: 53 24 B2 22 D3 22 B0 53 24 B2 22 DA 22 A7 99 22 |S$.".".S$.".".."| 00000AA0: 1C 22 3B 00 C4 12 56 04 4E B2 50 28 49 2C 4A 29 |.";...V.N.P(I,J)| 00000AB0: AB 31 33 AC B5 28 28 50 28 49 2C 4A 29 AB 31 29 |.13..((P(I,J).1)| 00000AC0: AD 31 33 29 00 D4 12 60 04 8B 4E B2 31 A7 53 24 |.13)...`..N.1.S$| 00000AD0: B2 22 20 22 00 FA 12 6A 04 4E 31 24 B2 22 20 32 |." "...j.N1$." 2| 00000AE0: 33 34 35 36 37 38 39 30 4A 51 4B 22 3A 4E 24 B2 |34567890JQK":N$.| 00000AF0: CA 28 4E 31 24 2C 4E 2C 31 29 00 04 13 74 04 8D |.(N1$,N,1)...t..| 00000B00: 31 31 36 30 00 0A 13 7E 04 8E 00 2D 13 88 04 8F |1160...~...-....| 00000B10: 2D 2D 50 52 49 4E 54 20 4E 24 3B 53 24 20 41 54 |--PRINT N$;S$ AT| 00000B20: 20 50 4F 53 49 54 49 4F 4E 20 49 2C 4A 00 44 13 | POSITION I,J.D.| 00000B30: 92 04 99 22 13 22 3A 99 3A 99 3A 8B 49 B2 31 A7 |...".":.:.:.I.1.| 00000B40: 31 31 39 30 00 5B 13 9C 04 81 5A B2 32 A4 49 3A |1190.[....Z.2.I:| 00000B50: 99 3A 99 3A 99 3A 99 3A 99 3A 82 00 70 13 A6 04 |.:.:.:.:.:..p...| 00000B60: 99 A3 33 AC 28 4A AB 31 29 29 3B 4E 24 3B 53 24 |..3.(J.1));N$;S$| 00000B70: 00 76 13 B0 04 8E 00 7E 13 BA 04 5A B2 31 00 9F |.v.....~...Z.1..| 00000B80: 13 C4 04 81 49 B2 31 A4 35 32 A9 31 33 3A 45 28 |....I.1.52.13:E(| 00000B90: 5A 29 B2 54 28 49 29 3A 5A B2 5A AA 31 3A 82 00 |Z).T(I):Z.Z.1:..| 00000BA0: AA 13 CE 04 81 4A B2 31 A4 34 00 E0 13 D8 04 81 |.....J.1.4......| 00000BB0: 49 B2 31 A4 33 3A 8B 45 28 49 29 B1 45 28 49 AA |I.1.3:.E(I).E(I.| 00000BC0: 31 29 A7 41 41 B2 45 28 49 29 3A 45 28 49 29 B2 |1).AA.E(I):E(I).| 00000BD0: 45 28 49 AA 31 29 3A 45 28 49 AA 31 29 B2 41 41 |E(I.1):E(I.1).AA| 00000BE0: 00 E6 13 E2 04 82 00 EC 13 EC 04 82 00 F2 13 F6 |................| 00000BF0: 04 8E 00 31 14 00 05 8F 2D 2D 43 48 45 43 4B 20 |...1....--CHECK | 00000C00: 54 4F 20 53 45 45 20 49 46 20 41 4C 4C 20 46 4F |TO SEE IF ALL FO| 00000C10: 55 52 20 53 50 41 43 45 53 20 46 4F 4C 4C 4F 57 |UR SPACES FOLLOW| 00000C20: 53 20 41 20 4B 49 4E 47 20 4F 52 20 42 4C 41 4E |S A KING OR BLAN| 00000C30: 4B 00 3C 14 0A 05 81 4B B2 31 A4 34 00 6C 14 14 |K.<....K.1.4.l..| 00000C40: 05 58 B2 B5 28 28 45 28 4B 29 AB 31 29 AD 31 33 |.X..((E(K).1).13| 00000C50: AA 31 29 3A 59 B2 45 28 4B 29 AB 31 33 AC B5 28 |.1):Y.E(K).13..(| 00000C60: 28 45 28 4B 29 AB 31 29 AD 31 33 29 00 7A 14 1E |(E(K).1).13).z..| 00000C70: 05 8B 59 B2 31 A7 46 31 B2 31 00 BB 14 28 05 57 |..Y.1.F1.1...(.W| 00000C80: 32 B2 50 28 58 2C 59 AB 31 29 3A 8B 57 32 B3 B1 |2.P(X,Y.1):.W2..| 00000C90: 31 AF 57 32 B3 B1 31 34 AF 57 32 B3 B1 32 37 AF |1.W2..14.W2..27.| 00000CA0: 57 32 B3 B1 34 30 AF 57 32 AD 31 33 B3 B1 B5 28 |W2..40.W2.13...(| 00000CB0: 57 32 AD 31 33 29 A7 46 31 B2 31 00 C3 14 32 05 |W2.13).F1.1...2.| 00000CC0: 82 3A 8E 00 D6 14 3C 05 8F 2D 2D 41 4C 4C 20 44 |.:....<..--ALL D| 00000CD0: 4F 4E 45 2E 2E 2E 00 09 15 46 05 99 22 13 11 11 |ONE......F.."...| 00000CE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000CF0: 11 11 22 3B 22 1F 43 4F 4E 47 52 41 54 55 4C 41 |..";".CONGRATULA| 00000D00: 54 49 4F 4E 53 21 21 22 3B 00 34 15 50 05 99 22 |TIONS!!";.4.P.."| 00000D10: 20 59 4F 55 20 57 4F 4E 21 21 22 3A 99 22 49 54 | YOU WON!!":."IT| 00000D20: 20 54 4F 4F 4B 20 59 4F 55 22 3B 46 35 22 54 52 | TOOK YOU";F5"TR| 00000D30: 49 45 53 22 00 53 15 5A 05 99 22 54 59 50 45 20 |IES".S.Z.."TYPE | 00000D40: 27 59 27 20 54 4F 20 50 4C 41 59 20 41 47 41 49 |'Y' TO PLAY AGAI| 00000D50: 4E 22 3B 00 67 15 64 05 A1 58 24 3A 8B 58 24 B2 |N";.g.d..X$:.X$.| 00000D60: 22 22 A7 31 33 38 30 00 75 15 6E 05 8B 58 24 B2 |"".1380.u.n..X$.| 00000D70: 22 4E 22 A7 80 00 84 15 78 05 8B 58 24 B2 22 59 |"N".....x..X$."Y| 00000D80: 22 A7 31 30 00 8E 15 82 05 89 31 33 38 30 00 00 |".10......1380..| 00000D90: 00 |. |
..$....:A..(.TI):.".";:F5.1:C.52:W.1.<..
..53281,15:.53280,14.U....P(4,13),D(52),
T(52).N.(..920:.--DRAW BOXES--...2..".."
;.15);"SHUFFLING..."...<..1020:.--SHUFFL
E DECK--.I.F..".";.15);"DEALING...
"...P..I.1.4:.J.1.13:.1080:.J:.I...Z..12
10:. --FIND FIRST FOUR EMPTY BOXES.F.D..
".";".TYPE 'M' TO MOVE TO THE NEXT EMPTY
SLOT".R.N.."OR 'P' TO PLACE A CARD AT T
HE CURSOR"...X..W.5.W.1:F1.0:.1280:.F1.0
.570.D...I..((E(W).1).13).1:J.E(W).13..(
(E(W).1).13).Q....J.1.170.....LL.P(I,J.1
):.LL.13..(LL.13).W.W.1:.120.#. ..LL.1.L
L.14.LL.27.LL.40.W.W.1:.120.A...N$."W":S
$." ":.".";:.1160.\....X$:.X$.""..".";:.
1160.L....X$.."".210...H..X$:.X$."".."."
;:.1160:.180...R..X$."P".240.A....X$."M"
.:N$." ":.1160:W.W.1:.120.J....180.W....
J.1.370.....LL.P(I,J.1)......LL.13..(LL.
13).180......LL.1.LL.14.LL.27.LL.40.180.
K...TE.P(I,J):TT.T(P(I,J)):L.T(P(I,J .1)
.1).G.".T(P(I,J)).T(P(I,J.1).1).|.,.T(P(
I,J.1).1).TT...6.P(I,J).P(.((L.1).13.1),
L.13..((L.1).13)).R.@.P(.((L.1).13).1,L.
13..((L.1).13)).TE...J..1080...T.I..((L.
1).13).1:J.L.13..((L.1).13):.1080...^..1
210:W.1:.120.:.H..--OFFER CHOICE OF 'TWO
S'.Z.R..".":."...................".D.|..
".";......"NOW YOU HAVE A CHOICE OF"....
.."WHICH '2' YOU WANT TO PLACE".I...."TW
O OF 'S','H','D',OR 'C'";......T$:.T$.""
.420......T$."S".N2.2:.490......T$."H".N
2.15:.490. .B..T$."D".N2.28:.490.8.L.. T
$."C".N2.41:.490.A.V..420.A....--NOW EXC
HANGE LOCATIONS--.....TE.P(I,J):TT.T(P(I
,J)):L.T(N2).....T(P(I,J)).T(N2).....T(N
2).TT.E....".":."..................."...
..." "......"
".3.&.."
";.<.0..310.G.:
..I.1.4.R.D.N(I).0...N..P(I,1)..2.P(I,1)
..15.P(I,1)..28.P(I,1)..41.650...X.N(I).
1...B..J.2.12...L..P(I,J).1..P(I,J.1).J.
14:.640.O.V.N(I).N(I).1.V....J......I...
...N(1).12.N(2).12.N(3).12.N(4).12.1350.
....F5.F5.1.2....--ERASE THE WRONG ENTRI
ES.B....".
"......"
";...F.N$." ":S$." ".D.P
.."..";.15);"RESHUFFLING...".Y.Z..I.1.52
:D(I).I:.......I.1.4......J.N(I).1.13...
...1160......:......C3.52......I.1.4.,.
..N(I).0.820.I.*..J.1.N(I):D(P(I,J)).0:.
J.P.4..I.H.>..I.1.4:.J.1.N(I).13.|.H.R1.
.(.(1).C3.1)...R..D(R1).0.D(R1).D(C3):C3
.C3.1:.840...\.P(I,J).D(R1).N.F.D(R1).D(
C3):C3.C3.1:.J.U.P..I...Z..II.1.52:T(II)
.0:.......1060......70......--SET UP BOX
ES......".";.'....I.1.4./....:..L....J.1
.12:."...";:.:."...".D.J..J.1.13:." .";
:.:....T..J.1.12:."...";:.:."...".......
.....".";............--SET UP DECK......
I.1.52:D(I).I:.......I.1.4:.J.1.13:R1..(
.(1).C.1):P(I,J).D(R1):D(R1).D(C):C.C.1.
.....:..:.$..II.1.4:.JJ.1.13:T(P(II, JJ)
).(II.1).13.JJ:.:..@.....X.8..--SHOW CAR
D P(I,J)...B.S$."ASZX":S$.J(S$,.((P(I,J)
.1).13).1,1)...L..".";:.S$."S".S$."Z".."
.";.D.V.N.P(I,J).13..((P(I,J).1).13).T.`
..N.1.S$." "...J.N1$." 234567890JQK":N$.
J(N1$,N,1)...T..1160...~...-....--PRINT
N$;S$ AT POSITION I,J.D....".":.:.:.I.1.
1190.[....Z.2.I:.:.:.:.:.:..P.....3.(J.1
));N$;S$.V.....~...Z.1...D..I.1.52.13:E(
Z).T(I):Z.Z.1:....N..J.1.4...X..I.1.3:.E
(I).E(I.1).AA.E(I):E(I).E(I.1):E(I.1).AA
...................1....--CHECK TO SEE I
F ALL FOUR SPACES FOLLOWS A KING OR BLAN
K.<....K.1.4.L...X..((E(K).1).13.1):Y.E(
K).13..((E(K).1).13).Z....Y.1.F1.1...(.W
2.P(X,Y.1):.W2..1.W2..14.W2..27.W2..40.W
2.13...(W2.13).F1.1.C.2..:..V.<..--ALL D
ONE......F..".....................";".CO
NGRATULATIONS!!";.4.P.." YOU WON!!":."IT
TOOK YOU";F5"TRIES".S.Z.."TYPE 'Y' TO P
LAY AGAIN";.G.D..X$:.X$."".1380.U.N..X$.
"N".....X..X$."Y".10......1380...
> CLICK IMAGE PREVIEW FOR FULL MODAL