SOLITARE
FILE INFORMATION
FILENAME(S): SOLITARE
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-12-01 02:21:53
APPEARS ON: 1 disk(s)
FILE HASH
12d82bd44954d25d47d258a2a0e25332b842981ffe182fdd1b484b5465184c82
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 31 GAMES | SOLITARE | PRG | hedning, scooby | 8 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 43 41 53 |..(.... *****CAS|
00000010: 49 4E 4F 20 53 4F 4C 49 54 41 49 52 45 2A 2A 2A |INO SOLITAIRE***|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4D 08 0F 00 96 20 A5 |********.M.... .|
00000030: 43 28 58 29 B2 C2 28 58 29 AA 31 AA 31 36 AC 28 |C(X)..(X).1.16.(|
00000040: 28 C2 28 58 29 AF 31 35 29 B2 31 35 29 00 74 08 |(.(X).15).15).t.|
00000050: 14 00 99 22 93 11 11 11 11 20 20 20 20 20 20 20 |..."..... |
00000060: 20 20 20 20 20 20 20 05 12 53 4F 4C 49 54 41 49 | ..SOLITAI|
00000070: 52 45 92 22 00 95 08 19 00 99 22 11 11 11 54 4F |RE."......"...TO|
00000080: 20 43 48 41 4E 47 45 20 43 4F 4C 4F 52 53 20 2E | CHANGE COLORS .|
00000090: 20 2E 20 2E 22 00 B1 08 1E 00 99 22 11 12 46 31 | . ."......"..F1|
000000A0: 92 20 3D 20 42 4F 52 44 45 52 20 43 4F 4C 4F 52 |. = BORDER COLOR|
000000B0: 22 00 D1 08 20 00 99 22 11 12 46 33 92 20 3D 20 |"... .."..F3. = |
000000C0: 42 41 43 4B 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 |BACKGROUND COLOR|
000000D0: 22 00 E9 08 25 00 99 22 11 12 52 45 54 55 52 4E |"...%.."..RETURN|
000000E0: 92 20 3D 20 44 4F 4E 45 22 00 0F 09 26 00 99 22 |. = DONE"...&.."|
000000F0: 11 11 11 20 20 20 20 20 20 20 20 20 20 90 50 41 |... .PA|
00000100: 59 20 24 35 32 20 46 4F 52 20 44 45 43 4B 22 00 |Y $52 FOR DECK".|
00000110: 3A 09 27 00 99 22 11 11 20 20 20 20 20 20 57 49 |:.'..".. WI|
00000120: 4E 20 24 35 20 46 4F 52 20 45 41 43 48 20 27 41 |N $5 FOR EACH 'A|
00000130: 43 45 20 43 41 52 44 27 05 22 00 4A 09 28 00 A1 |CE CARD'.".J.(..|
00000140: 20 43 24 3A 8B 43 24 89 34 30 00 5D 09 2D 00 A1 | C$:.C$.40.].-..|
00000150: 20 43 24 3A 8B 43 24 B2 22 22 89 34 35 00 85 09 | C$:.C$."".45...|
00000160: 32 00 43 B2 C6 28 43 24 29 3A 20 8B 43 B2 31 33 |2.C..(C$): .C.13|
00000170: 35 20 A7 20 97 36 34 36 2C A5 43 28 36 34 36 29 |5 . .646,.C(646)|
00000180: 3A 89 20 32 30 00 AD 09 37 00 8B 20 43 B2 31 33 |:. 20...7.. C.13|
00000190: 33 20 B0 20 43 B2 31 33 34 20 A7 58 B2 35 33 31 |3 . C.134 .X.531|
000001A0: 34 37 AA 43 3A 97 58 2C A5 43 28 58 29 00 C5 09 |47.C:.X,.C(X)...|
000001B0: 3C 00 8B 20 43 B2 31 33 20 B0 20 43 B2 39 35 20 |<.. C.13 . C.95 |
000001C0: A7 20 89 37 30 00 CE 09 41 00 89 20 34 30 00 09 |. .70...A.. 40..|
000001D0: 0A 46 00 99 22 93 11 11 11 11 11 11 11 11 11 11 |.F.."...........|
000001E0: 53 48 55 46 46 4C 49 4E 47 20 43 41 52 44 53 20 |SHUFFLING CARDS |
000001F0: 46 4F 52 20 41 20 47 41 4D 45 20 4F 46 20 53 4F |FOR A GAME OF SO|
00000200: 4C 49 54 41 49 52 45 21 22 00 39 0A 5A 00 99 3A |LITAIRE!".9.Z..:|
00000210: 99 3A 99 3A 99 22 20 20 20 20 49 27 4C 4C 20 42 |.:.:." I'LL B|
00000220: 45 20 52 45 41 44 59 20 49 4E 20 41 20 46 45 57 |E READY IN A FEW|
00000230: 20 53 45 43 4F 4E 44 53 22 00 53 0A 64 00 81 20 | SECONDS".S.d.. |
00000240: 58 20 B2 20 31 20 A4 20 C5 28 C9 28 54 49 24 2C |X . 1 . .(.(TI$,|
00000250: 32 29 29 00 61 0A 6E 00 52 B2 BB 28 31 29 3A 82 |2)).a.n.R..(1):.|
00000260: 58 00 80 0A 78 00 86 20 46 28 37 2C 31 38 29 2C |X...x.. F(7,18),|
00000270: 53 28 34 29 2C 44 28 35 32 29 2C 53 24 28 34 29 |S(4),D(52),S$(4)|
00000280: 00 AC 0A 82 00 53 24 28 31 29 B2 22 D3 22 3A 53 |.....S$(1).".":S|
00000290: 24 28 32 29 B2 22 DA 22 3A 53 24 28 33 29 B2 22 |$(2).".":S$(3)."|
000002A0: C1 22 3A 53 24 28 34 29 B2 22 D8 22 00 CF 0A B4 |.":S$(4)."."....|
000002B0: 00 51 4D 24 B2 22 20 20 3F 22 AA C7 28 31 35 37 |.QM$." ?"..(157|
000002C0: 29 AA C7 28 31 35 37 29 AA C7 28 31 35 37 29 00 |)..(157)..(157).|
000002D0: F1 0A BE 00 81 20 58 B2 30 A4 37 3A 81 59 B2 30 |..... X.0.7:.Y.0|
000002E0: A4 31 38 3A 46 28 58 2C 59 29 B2 30 3A 82 59 2C |.18:F(X,Y).0:.Y,|
000002F0: 58 00 07 0B C8 00 81 20 58 B2 30 A4 34 3A 53 28 |X...... X.0.4:S(|
00000300: 58 29 B2 30 3A 82 58 00 1F 0B D2 00 81 20 58 B2 |X).0:.X...... X.|
00000310: 30 A4 20 35 32 3A 44 28 58 29 B2 30 3A 82 58 00 |0. 52:D(X).0:.X.|
00000320: 3B 0B DC 00 8F 20 2A 2A 2A 20 53 48 55 46 46 4C |;.... *** SHUFFL|
00000330: 45 20 43 41 52 44 53 20 2A 2A 2A 00 48 0B E6 00 |E CARDS ***.H...|
00000340: 81 20 58 B2 31 A4 35 32 00 68 0B F0 00 52 B2 B5 |. X.1.52.h...R..|
00000350: 28 BB 28 31 29 AC 35 32 AA 31 29 3A 8B 44 28 52 |(.(1).52.1):.D(R|
00000360: 29 B1 30 A7 20 32 34 30 00 76 0B FA 00 44 28 52 |).0. 240.v...D(R|
00000370: 29 B2 58 3A 82 58 00 8E 0B 04 01 8F 20 2A 2A 2A |).X:.X...... ***|
00000380: 44 45 41 4C 20 43 41 52 44 53 20 2A 2A 2A 00 A6 |DEAL CARDS ***..|
00000390: 0B 0E 01 52 B2 35 32 3A 81 58 B2 31 A4 37 3A 81 |...R.52:.X.1.7:.|
000003A0: 20 59 B2 31 A4 58 00 BA 0B 18 01 46 28 58 2C 59 | Y.1.X.....F(X,Y|
000003B0: 29 B2 44 28 52 29 AA 31 30 30 00 CE 0B 22 01 44 |).D(R).100...".D|
000003C0: 28 52 29 B2 30 3A 52 B2 52 AB 31 3A 82 59 00 E7 |(R).0:R.R.1:.Y..|
000003D0: 0B 2C 01 46 28 58 2C 58 29 B2 46 28 58 2C 58 29 |.,.F(X,X).F(X,X)|
000003E0: AB 31 30 30 3A 82 58 00 08 0C 36 01 8F 20 2A 2A |.100:.X...6.. **|
000003F0: 2A 20 44 49 53 50 4C 41 59 20 45 56 45 52 59 54 |* DISPLAY EVERYT|
00000400: 48 49 4E 47 20 2A 2A 2A 00 1A 0C 40 01 43 B2 31 |HING ***...@.C.1|
00000410: 3A 57 B2 31 3A 8D 32 37 33 30 00 36 0C 4A 01 8F |:W.1:.2730.6.J..|
00000420: 20 2A 2A 2A 20 43 4F 4D 4D 41 4E 44 20 49 4E 50 | *** COMMAND INP|
00000430: 55 54 20 2A 2A 2A 00 55 0C 54 01 99 22 13 11 11 |UT ***.U.T.."...|
00000440: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000450: 11 11 11 22 3B 00 63 0C 68 01 4C B2 33 3A 8D 33 |...";.c.h.L.3:.3|
00000460: 30 38 30 00 87 0C 72 01 8B 20 53 28 31 29 AA 53 |080...r.. S(1).S|
00000470: 28 32 29 AA 53 28 33 29 AA 53 28 34 29 B3 B1 31 |(2).S(3).S(4)..1|
00000480: 33 30 20 A7 33 39 30 00 BE 0C 7C 01 99 22 11 43 |30 .390...|..".C|
00000490: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2C 20 |ONGRATULATIONS, |
000004A0: 59 4F 55 20 4A 55 53 54 20 57 4F 4E 20 12 24 22 |YOU JUST WON .$"|
000004B0: 3B 42 4C 3B 22 92 21 21 22 3A 89 35 30 35 00 C8 |;BL;".!!":.505..|
000004C0: 0C 81 01 89 33 30 34 32 00 05 0D 86 01 99 22 44 |....3042......"D|
000004D0: 3D 44 45 43 4B 2C 52 4F 57 23 31 2D 37 2C 43 3D |=DECK,ROW#1-7,C=|
000004E0: 43 41 52 44 2C 5F 3D 51 55 49 54 3B 20 50 4C 41 |CARD,_=QUIT; PLA|
000004F0: 59 3D 22 3B 51 4D 24 3B 3A 20 85 50 24 3A 50 B2 |Y=";QM$;: .P$:P.|
00000500: C5 28 50 24 29 00 1E 0D 90 01 8B 20 28 50 B1 37 |.(P$)...... (P.7|
00000510: 29 B0 20 28 50 B3 30 29 A7 20 32 33 36 30 00 2E |). (P.0). 2360..|
00000520: 0D 9A 01 8B 20 50 B1 30 20 A7 20 38 34 30 00 5B |.... P.0 . 840.[|
00000530: 0D A4 01 8B 20 50 24 B2 22 43 22 A7 20 8D 32 39 |.... P$."C". .29|
00000540: 30 30 3A 89 33 34 30 3A 8F 20 2A 2A 2A 20 4E 45 |00:.340:. *** NE|
00000550: 58 54 20 43 41 52 44 20 2A 2A 2A 00 6D 0D AE 01 |XT CARD ***.m...|
00000560: 8B 20 50 24 B3 B1 22 5F 22 89 35 35 30 00 84 0D |. P$.."_".550...|
00000570: B8 01 8F 20 2A 2A 2A 20 51 55 49 54 54 45 52 21 |... *** QUITTER!|
00000580: 20 2A 2A 2A 00 99 0D C2 01 81 20 58 B2 31 A4 37 | ***...... X.1.7|
00000590: 3A 81 20 59 B2 31 A4 31 38 00 BE 0D CC 01 8B 20 |:. Y.1.18...... |
000005A0: 46 28 58 2C 59 29 B1 31 30 30 20 A7 20 46 28 58 |F(X,Y).100 . F(X|
000005B0: 2C 59 29 B2 46 28 58 2C 59 29 AB 31 30 30 00 C8 |,Y).F(X,Y).100..|
000005C0: 0D D6 01 82 20 59 2C 58 00 D2 0D E0 01 8D 32 38 |.... Y,X......28|
000005D0: 33 30 00 DC 0D EA 01 89 34 30 31 30 00 0B 0E F4 |30......4010....|
000005E0: 01 99 22 11 90 53 4F 52 52 59 2C 20 59 4F 55 20 |.."..SORRY, YOU |
000005F0: 4A 55 53 54 20 4C 4F 53 54 20 12 24 22 3B 42 4C |JUST LOST .$";BL|
00000600: 3B 22 92 2E 20 20 20 20 20 20 22 00 3A 0E F9 01 |;".. ".:...|
00000610: 99 22 20 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 20 20 20 20 20 20 20 20 22 00 63 0E FE 01 99 | ".c....|
00000640: 22 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 |"WANT TO PLAY AG|
00000650: 41 49 4E 20 28 59 2F 4E 29 3F 20 20 20 20 20 20 |AIN (Y/N)? |
00000660: 20 20 22 00 77 0E 08 02 A1 20 50 24 3A 8B 50 24 | ".w.... P$:.P$|
00000670: B2 22 59 22 A7 20 8A 00 8A 0E 12 02 8B 20 50 24 |."Y". ....... P$|
00000680: B3 B1 22 4E 22 A7 20 35 32 30 00 AF 0E 1C 02 97 |.."N". 520......|
00000690: 20 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 | 53280,14:.53281|
000006A0: 2C 36 3A 99 22 93 9A 11 11 42 59 45 22 3A 80 00 |,6:."....BYE":..|
000006B0: C2 0E 26 02 8B 20 50 24 B3 B1 22 44 22 89 32 33 |..&.. P$.."D".23|
000006C0: 36 30 00 E1 0E 30 02 8F 20 2A 2A 2A 20 46 52 4F |60...0.. *** FRO|
000006D0: 4D 20 44 45 43 4B 20 54 4F 20 2E 2E 2E 20 2A 2A |M DECK TO ... **|
000006E0: 2A 00 F3 0E 3A 02 8B 20 44 28 31 29 B2 30 A7 32 |*...:.. D(1).0.2|
000006F0: 33 37 30 00 12 0F 44 02 56 B2 44 28 43 29 3A 53 |370...D.V.D(C):S|
00000700: 31 B2 B5 28 28 44 28 43 29 AB 31 29 AD 31 33 29 |1..((D(C).1).13)|
00000710: AA 31 00 2A 0F 4E 02 8B 20 56 B1 31 33 A7 20 56 |.1.*.N.. V.13. V|
00000720: B2 56 AB 31 33 3A 89 35 39 30 00 38 0F 58 02 4C |.V.13:.590.8.X.L|
00000730: B2 31 3A 8D 33 30 36 30 00 69 0F 62 02 99 22 46 |.1:.3060.i.b.."F|
00000740: 52 4F 4D 20 44 45 43 4B 20 54 4F 20 28 41 3D 41 |ROM DECK TO (A=A|
00000750: 43 45 53 2C 20 52 4F 57 23 31 2D 37 29 22 3B 51 |CES, ROW#1-7)";Q|
00000760: 4D 24 3B 3A 20 85 20 52 24 00 7C 0F 6C 02 8B 20 |M$;: . R$.|.l.. |
00000770: 52 24 B3 B1 22 41 22 A7 20 37 30 30 00 97 0F 76 |R$.."A". 700...v|
00000780: 02 8F 20 2A 2A 2A 20 44 45 43 4B 20 54 4F 20 41 |.. *** DECK TO A|
00000790: 43 45 53 20 2A 2A 2A 00 B2 0F 80 02 8B 20 53 31 |CES ***...... S1|
000007A0: B3 B1 28 44 28 43 29 AA 31 32 29 AD 31 33 A7 36 |..(D(C).12).13.6|
000007B0: 37 30 00 C5 0F 8A 02 8B 20 53 28 53 31 29 B1 30 |70...... S(S1).0|
000007C0: A7 32 33 37 30 00 CF 0F 94 02 89 20 36 38 30 00 |.2370...... 680.|
000007D0: E9 0F 9E 02 8B 20 44 28 43 29 B3 B1 53 28 53 31 |..... D(C)..S(S1|
000007E0: 29 AA 31 20 A7 32 33 37 30 00 0E 10 A8 02 53 28 |).1 .2370.....S(|
000007F0: 53 31 29 B2 44 28 43 29 3A 58 B2 53 31 3A 8D 32 |S1).D(C):X.S1:.2|
00000800: 34 32 30 3A 8D 33 31 33 30 3A 89 33 34 30 00 25 |420:.3130:.340.%|
00000810: 10 B2 02 8F 2A 2A 2A 44 45 43 4B 20 54 4F 20 52 |....***DECK TO R|
00000820: 4F 57 2A 2A 2A 00 31 10 BC 02 52 B2 C5 28 52 24 |OW***.1...R..(R$|
00000830: 29 00 4C 10 C6 02 59 B2 31 3A 8B 20 28 52 B3 31 |).L...Y.1:. (R.1|
00000840: 29 B0 28 52 B1 37 29 A7 32 33 36 30 00 5E 10 D0 |).(R.7).2360.^..|
00000850: 02 8B 20 59 B1 31 38 20 A7 20 32 33 37 30 00 79 |.. Y.18 . 2370.y|
00000860: 10 DA 02 8B 20 46 28 52 2C 59 29 B3 B1 30 A7 59 |.... F(R,Y)..0.Y|
00000870: B2 59 AA 31 3A 89 37 32 30 00 87 10 E4 02 8B 20 |.Y.1:.720...... |
00000880: 59 B1 31 A7 37 37 30 00 96 10 EE 02 8B 20 56 B2 |Y.1.770...... V.|
00000890: 31 33 A7 38 32 30 00 A1 10 F8 02 89 20 32 33 37 |13.820...... 237|
000008A0: 30 00 B1 10 02 03 56 31 B2 46 28 52 2C 59 AB 31 |0.....V1.F(R,Y.1|
000008B0: 29 00 CD 10 0C 03 8B 20 56 31 B1 31 33 20 A7 20 |)...... V1.13 . |
000008C0: 56 31 B2 56 31 AB 31 33 3A 89 37 38 30 00 E1 10 |V1.V1.13:.780...|
000008D0: 16 03 8B 20 56 B3 B1 56 31 AB 31 A7 20 32 33 37 |... V..V1.1. 237|
000008E0: 30 00 0A 11 20 03 53 32 B2 B5 28 28 46 28 52 2C |0... .S2..((F(R,|
000008F0: 59 AB 31 29 AB 31 29 AD 32 36 29 3A 53 31 B2 B5 |Y.1).1).26):S1..|
00000900: 28 28 53 31 AB 31 29 AD 32 29 00 1C 11 2A 03 8B |((S1.1).2)...*..|
00000910: 20 53 31 B2 53 32 20 A7 32 33 37 30 00 43 11 34 | S1.S2 .2370.C.4|
00000920: 03 46 28 52 2C 59 29 B2 44 28 43 29 3A 8D 33 31 |.F(R,Y).D(C):.31|
00000930: 38 30 3A 8D 33 31 33 30 3A 8D 32 38 33 30 3A 89 |80:.3130:.2830:.|
00000940: 33 34 30 00 61 11 3E 03 8F 20 2A 2A 2A 20 46 52 |340.a.>.. *** FR|
00000950: 4F 4D 20 52 4F 57 20 54 4F 20 2E 2E 2E 20 2A 2A |OM ROW TO ... **|
00000960: 2A 00 79 11 48 03 59 B2 30 3A 8B 20 46 28 50 2C |*.y.H.Y.0:. F(P,|
00000970: 31 29 B2 30 A7 32 33 37 30 00 9B 11 52 03 8F 20 |1).0.2370...R.. |
00000980: 2A 2A 2A 20 53 49 4E 47 4C 45 20 43 41 52 44 20 |*** SINGLE CARD |
00000990: 49 4E 20 52 4F 57 3F 20 2A 2A 2A 00 B1 11 5C 03 |IN ROW? ***...\.|
000009A0: 59 B2 59 AA 31 3A 8B 59 B1 31 38 20 A7 32 33 37 |Y.Y.1:.Y.18 .237|
000009B0: 30 00 CD 11 66 03 59 32 B2 46 28 50 2C 59 29 3A |0...f.Y2.F(P,Y):|
000009C0: 20 8B 59 32 B1 31 30 30 20 A7 38 36 30 00 E3 11 | .Y2.100 .860...|
000009D0: 70 03 8B 20 46 28 50 2C 59 AA 31 29 B3 B1 30 A7 |p.. F(P,Y.1)..0.|
000009E0: 39 32 30 00 FE 11 7A 03 8B 20 59 32 B1 31 33 20 |920...z.. Y2.13 |
000009F0: A7 59 32 B2 59 32 AB 31 33 3A 89 38 39 30 00 08 |.Y2.Y2.13:.890..|
00000A00: 12 84 03 89 32 30 33 30 00 2D 12 8E 03 8F 20 2A |....2030.-.... *|
00000A10: 2A 2A 20 46 52 4F 4D 20 57 48 41 54 20 43 41 52 |** FROM WHAT CAR|
00000A20: 44 20 49 4E 20 52 4F 57 3F 20 2A 2A 2A 00 3B 12 |D IN ROW? ***.;.|
00000A30: 98 03 4C B2 31 3A 8D 33 30 36 30 00 75 12 A2 03 |..L.1:.3060.u...|
00000A40: 99 22 46 52 4F 4D 20 52 4F 57 22 3B 50 3B 22 43 |."FROM ROW";P;"C|
00000A50: 41 52 44 28 41 2C 32 2D 31 30 2C 4A 2C 51 2C 4B |ARD(A,2-10,J,Q,K|
00000A60: 29 22 3B 51 4D 24 3B 3A 20 85 59 24 3A 59 31 B2 |)";QM$;: .Y$:Y1.|
00000A70: C5 28 59 24 29 00 89 12 AC 03 8B 20 59 24 B2 22 |.(Y$)...... Y$."|
00000A80: 41 22 20 A7 20 59 31 B2 31 00 9E 12 B6 03 8B 20 |A" . Y1.1...... |
00000A90: 59 24 B2 22 4A 22 20 A7 20 59 31 B2 31 31 00 B3 |Y$."J" . Y1.11..|
00000AA0: 12 C0 03 8B 20 59 24 B2 22 51 22 20 A7 20 59 31 |.... Y$."Q" . Y1|
00000AB0: B2 31 32 00 C8 12 CA 03 8B 20 59 24 B2 22 4B 22 |.12...... Y$."K"|
00000AC0: 20 A7 20 59 31 B2 31 33 00 E2 12 D4 03 8B 20 28 | . Y1.13...... (|
00000AD0: 59 31 B2 30 29 B0 28 59 31 B1 31 33 29 A7 32 33 |Y1.0).(Y1.13).23|
00000AE0: 36 30 00 F4 12 DE 03 8B 20 59 B1 31 38 20 A7 20 |60...... Y.18 . |
00000AF0: 32 33 37 30 00 15 13 D0 07 59 32 B2 46 28 50 2C |2370.....Y2.F(P,|
00000B00: 59 29 3A 8B 59 32 B1 31 30 30 A7 59 B2 59 AA 31 |Y):.Y2.100.Y.Y.1|
00000B10: 3A 89 39 39 30 00 2F 13 DA 07 8B 59 32 B1 31 33 |:.990./....Y2.13|
00000B20: A7 59 32 B2 59 32 AB 31 33 3A 89 32 30 31 30 00 |.Y2.Y2.13:.2010.|
00000B30: 46 13 E4 07 8B 59 31 B3 B1 59 32 A7 59 B2 59 AA |F....Y1..Y2.Y.Y.|
00000B40: 31 3A 89 39 39 30 00 5D 13 EE 07 52 B2 46 28 50 |1:.990.]...R.F(P|
00000B50: 2C 59 29 3A 4C B2 31 3A 8D 33 30 36 30 00 71 13 |,Y):L.1:.3060.q.|
00000B60: F8 07 99 22 46 52 4F 4D 20 22 3B 3A 8D 32 35 32 |..."FROM ";:.252|
00000B70: 30 00 9E 13 02 08 99 22 20 52 4F 57 22 3B 50 3B |0......" ROW";P;|
00000B80: 22 54 4F 20 28 41 3D 41 43 45 53 2C 52 4F 57 23 |"TO (A=ACES,ROW#|
00000B90: 31 2D 37 29 22 3B 51 4D 24 3B 3A 85 41 24 00 C3 |1-7)";QM$;:.A$..|
00000BA0: 13 0C 08 8F 20 2A 2A 2A 20 46 52 4F 4D 20 20 52 |.... *** FROM R|
00000BB0: 4F 57 2F 43 41 52 44 20 54 4F 20 41 43 45 53 20 |OW/CARD TO ACES |
00000BC0: 2A 2A 2A 00 DD 13 16 08 53 31 B2 B5 28 28 46 28 |***.....S1..((F(|
00000BD0: 50 2C 59 29 AB 31 29 AD 31 33 29 AA 31 00 F0 13 |P,Y).1).13).1...|
00000BE0: 20 08 8B 20 41 24 B3 B1 22 41 22 A7 32 31 38 30 | .. A$.."A".2180|
00000BF0: 00 14 14 2A 08 8F 20 2A 2A 2A 20 46 52 4F 4D 20 |...*.. *** FROM |
00000C00: 52 4F 57 2F 43 41 52 44 20 54 4F 20 41 43 45 53 |ROW/CARD TO ACES|
00000C10: 20 2A 2A 2A 00 2A 14 34 08 8B 20 46 28 50 2C 59 | ***.*.4.. F(P,Y|
00000C20: AA 31 29 B1 30 A7 32 33 37 30 00 47 14 3E 08 8B |.1).0.2370.G.>..|
00000C30: 53 31 B3 B1 28 46 28 50 2C 59 29 AA 31 32 29 AD |S1..(F(P,Y).12).|
00000C40: 31 33 A7 32 31 34 30 00 59 14 48 08 8B 53 28 53 |13.2140.Y.H..S(S|
00000C50: 31 29 B1 30 A7 32 33 37 30 00 63 14 52 08 89 32 |1).0.2370.c.R..2|
00000C60: 31 35 30 00 7D 14 5C 08 8B 46 28 50 2C 59 29 B3 |150.}.\..F(P,Y).|
00000C70: B1 53 28 53 31 29 AA 31 A7 32 33 37 30 00 BD 14 |.S(S1).1.2370...|
00000C80: 66 08 53 28 53 31 29 B2 46 28 50 2C 59 29 3A 46 |f.S(S1).F(P,Y):F|
00000C90: 28 50 2C 59 29 B2 30 3A 20 8B 46 28 50 2C 59 AB |(P,Y).0: .F(P,Y.|
00000CA0: 31 29 B1 31 30 30 20 A7 46 28 50 2C 59 AB 31 29 |1).100 .F(P,Y.1)|
00000CB0: B2 46 28 50 2C 59 AB 31 29 AB 31 30 30 00 DD 14 |.F(P,Y.1).100...|
00000CC0: 70 08 8D 33 31 38 30 3A 8D 32 38 33 30 3A 58 B2 |p..3180:.2830:X.|
00000CD0: 53 31 3A 8D 32 34 32 30 3A 89 33 34 30 00 FF 14 |S1:.2420:.340...|
00000CE0: 7A 08 8F 20 2A 2A 2A 46 52 4F 4D 20 52 4F 57 2F |z.. ***FROM ROW/|
00000CF0: 43 41 52 44 20 54 4F 20 52 4F 57 20 2A 2A 2A 00 |CARD TO ROW ***.|
00000D00: 0B 15 84 08 51 B2 C5 28 41 24 29 00 26 15 8E 08 |....Q..(A$).&...|
00000D10: 5A B2 31 3A 8B 20 28 51 B3 31 29 B0 28 51 B1 37 |Z.1:. (Q.1).(Q.7|
00000D20: 29 A7 32 33 36 30 00 36 15 98 08 8B 20 5A B1 31 |).2360.6.... Z.1|
00000D30: 38 A7 32 33 37 30 00 52 15 A2 08 8B 20 46 28 51 |8.2370.R.... F(Q|
00000D40: 2C 5A 29 B3 B1 30 A7 5A B2 5A AA 31 3A 89 32 32 |,Z)..0.Z.Z.1:.22|
00000D50: 30 30 00 62 15 AC 08 8B 20 5A B1 31 A7 20 32 32 |00.b.... Z.1. 22|
00000D60: 35 30 00 73 15 B6 08 8B 20 59 32 B2 31 33 A7 32 |50.s.... Y2.13.2|
00000D70: 33 30 30 00 7E 15 C0 08 89 20 32 33 37 30 00 8E |300.~.... 2370..|
00000D80: 15 CA 08 56 31 B2 46 28 51 2C 5A AB 31 29 00 AA |...V1.F(Q,Z.1)..|
00000D90: 15 D4 08 8B 20 56 31 B1 31 33 A7 20 56 31 B2 56 |.... V1.13. V1.V|
00000DA0: 31 AB 31 33 3A 89 32 32 36 30 00 BE 15 DE 08 8B |1.13:.2260......|
00000DB0: 20 59 32 B3 B1 56 31 AB 31 A7 32 33 37 30 00 E7 | Y2..V1.1.2370..|
00000DC0: 15 E8 08 53 32 B2 B5 28 28 46 28 51 2C 5A AB 31 |...S2..((F(Q,Z.1|
00000DD0: 29 AB 31 29 AD 32 36 29 3A 53 31 B2 B5 28 28 53 |).1).26):S1..((S|
00000DE0: 31 AB 31 29 AD 32 29 00 F9 15 F2 08 8B 20 53 31 |1.1).2)...... S1|
00000DF0: B2 53 32 A7 20 32 33 37 30 00 23 16 FC 08 8B 20 |.S2. 2370.#.... |
00000E00: 46 28 50 2C 59 AB 31 29 B1 31 30 30 A7 20 46 28 |F(P,Y.1).100. F(|
00000E10: 50 2C 59 AB 31 29 B2 46 28 50 2C 59 AB 31 29 AB |P,Y.1).F(P,Y.1).|
00000E20: 31 30 30 00 3E 16 06 09 46 28 51 2C 5A 29 B2 46 |100.>...F(Q,Z).F|
00000E30: 28 50 2C 59 29 3A 46 28 50 2C 59 29 B2 30 00 4E |(P,Y):F(P,Y).0.N|
00000E40: 16 10 09 59 B2 59 AA 31 3A 5A B2 5A AA 31 00 64 |...Y.Y.1:Z.Z.1.d|
00000E50: 16 1A 09 8B 20 46 28 50 2C 59 29 B3 B1 30 A7 20 |.... F(P,Y)..0. |
00000E60: 32 33 31 30 00 79 16 24 09 8D 33 31 38 30 3A 8D |2310.y.$..3180:.|
00000E70: 32 38 33 30 3A 89 33 34 30 00 8F 16 2E 09 8F 20 |2830:.340...... |
00000E80: 2A 2A 2A 20 45 52 52 4F 52 53 21 20 2A 2A 2A 00 |*** ERRORS! ***.|
00000E90: AF 16 38 09 99 22 12 49 4E 56 41 4C 49 44 20 52 |..8..".INVALID R|
00000EA0: 45 53 50 4F 4E 53 45 21 22 3A 89 32 33 38 30 00 |ESPONSE!":.2380.|
00000EB0: C5 16 42 09 99 22 12 49 4C 4C 45 47 41 4C 20 50 |..B..".ILLEGAL P|
00000EC0: 4C 41 59 21 22 00 CE 16 4C 09 54 B2 54 49 00 E4 |LAY!"...L.T.TI..|
00000ED0: 16 56 09 8B 20 28 54 49 AB 54 29 B3 35 30 20 89 |.V.. (TI.T).50 .|
00000EE0: 32 33 39 30 00 ED 16 60 09 89 33 34 30 00 08 17 |2390...`..340...|
00000EF0: 6A 09 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 20 |j.. *** DISPLAY |
00000F00: 41 43 45 53 20 2A 2A 2A 00 16 17 74 09 99 22 13 |ACES ***...t..".|
00000F10: 11 11 11 11 22 3B 00 2E 17 7E 09 81 58 31 B2 31 |....";...~..X1.1|
00000F20: A4 20 58 3A 99 22 11 11 22 3B 3A 82 58 31 00 56 |. X:."..";:.X1.V|
00000F30: 17 88 09 8B 28 53 28 58 29 B2 30 29 AF 28 58 B1 |....(S(X).0).(X.|
00000F40: 32 29 A7 99 22 90 2D 2D 22 3B 53 24 28 58 29 3B |2)..".--";S$(X);|
00000F50: 22 05 22 3B 3A 8E 00 76 17 92 09 8B 53 28 58 29 |".";:..v....S(X)|
00000F60: B2 30 20 A7 99 22 12 2D 2D 22 3B 53 24 28 58 29 |.0 ..".--";S$(X)|
00000F70: 3B 22 92 22 3A 8E 00 8B 17 9C 09 52 B2 53 28 58 |;".":......R.S(X|
00000F80: 29 3A 8D 32 35 32 30 3A 99 3A 8E 00 B0 17 A6 09 |):.2520:.:......|
00000F90: 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 20 43 41 |. *** DISPLAY CA|
00000FA0: 52 44 53 20 49 4E 20 50 49 4C 45 53 20 2A 2A 2A |RDS IN PILES ***|
00000FB0: 00 BD 17 B0 09 52 B2 46 28 58 2C 59 29 00 D2 17 |.....R.F(X,Y)...|
00000FC0: BA 09 8B 20 52 B2 30 20 A7 99 22 20 20 20 22 3B |... R.0 .." ";|
00000FD0: 3A 8E 00 EB 17 C4 09 8B 20 52 B1 31 30 30 20 A7 |:....... R.100 .|
00000FE0: 99 22 90 58 58 58 05 22 3B 3A 8E 00 04 18 CE 09 |.".XXX.";:......|
00000FF0: 8F 20 2A 2A 2A 20 50 52 49 4E 54 20 43 41 52 44 |. *** PRINT CARD|
00001000: 20 2A 2A 2A 00 0D 18 D8 09 52 31 B2 52 00 29 18 | ***.....R1.R.).|
00001010: E2 09 8B 20 52 31 B1 31 33 20 A7 52 31 B2 52 31 |... R1.13 .R1.R1|
00001020: AB 31 33 3A 89 32 35 33 30 00 3B 18 E7 09 8B 20 |.13:.2530.;.... |
00001030: 52 B1 32 36 20 A7 99 22 90 22 3B 00 4E 18 EC 09 |R.26 ..".";.N...|
00001040: 8B 20 52 B3 32 37 20 A7 20 99 22 12 22 3B 00 77 |. R.27 . .".";.w|
00001050: 18 F6 09 91 20 52 31 20 89 20 32 35 37 30 2C 32 |.... R1 . 2570,2|
00001060: 35 38 30 2C 32 35 39 30 2C 32 36 30 30 2C 32 36 |580,2590,2600,26|
00001070: 31 30 2C 32 36 32 30 00 A7 18 00 0A 91 20 52 31 |10,2620...... R1|
00001080: AB 36 20 89 20 32 36 33 30 2C 32 36 34 30 2C 32 |.6 . 2630,2640,2|
00001090: 36 35 30 2C 32 36 36 30 2C 32 36 37 30 2C 32 36 |650,2660,2670,26|
000010A0: 38 30 2C 32 36 39 30 00 B9 18 0A 0A 99 22 20 41 |80,2690......" A|
000010B0: 22 3B 3A 20 89 32 37 30 30 00 CB 18 14 0A 99 22 |";: .2700......"|
000010C0: 20 32 22 3B 3A 20 89 32 37 30 30 00 DD 18 1E 0A | 2";: .2700.....|
000010D0: 99 22 20 33 22 3B 3A 20 89 32 37 30 30 00 EF 18 |." 3";: .2700...|
000010E0: 28 0A 99 22 20 34 22 3B 3A 20 89 32 37 30 30 00 |(.." 4";: .2700.|
000010F0: 01 19 32 0A 99 22 20 35 22 3B 3A 20 89 32 37 30 |..2.." 5";: .270|
00001100: 30 00 13 19 3C 0A 99 22 20 36 22 3B 3A 20 89 32 |0...<.." 6";: .2|
00001110: 37 30 30 00 25 19 46 0A 99 22 20 37 22 3B 3A 20 |700.%.F.." 7";: |
00001120: 89 32 37 30 30 00 37 19 50 0A 99 22 20 38 22 3B |.2700.7.P.." 8";|
00001130: 3A 20 89 32 37 30 30 00 49 19 5A 0A 99 22 20 39 |: .2700.I.Z.." 9|
00001140: 22 3B 3A 20 89 32 37 30 30 00 5B 19 64 0A 99 22 |";: .2700.[.d.."|
00001150: 31 30 22 3B 3A 20 89 32 37 30 30 00 6D 19 6E 0A |10";: .2700.m.n.|
00001160: 99 22 20 4A 22 3B 3A 20 89 32 37 30 30 00 7F 19 |." J";: .2700...|
00001170: 78 0A 99 22 20 51 22 3B 3A 20 89 32 37 30 30 00 |x.." Q";: .2700.|
00001180: 8A 19 82 0A 99 22 20 4B 22 3B 00 9F 19 8C 0A 52 |....." K";.....R|
00001190: 39 B2 B5 28 28 52 AB 31 29 AD 31 33 29 AA 31 00 |9..((R.1).13).1.|
000011A0: B3 19 96 0A 99 53 24 28 52 39 29 3B 22 92 05 22 |.....S$(R9);".."|
000011B0: 3B 3A 8E 00 D7 19 A0 0A 8F 20 2A 2A 2A 20 44 49 |;:....... *** DI|
000011C0: 53 50 4C 41 59 20 41 43 45 53 20 41 4E 44 20 52 |SPLAY ACES AND R|
000011D0: 4F 57 53 20 2A 2A 2A 00 09 1A AA 0A 99 22 93 52 |OWS ***......".R|
000011E0: 4F 57 53 20 20 2D 31 2D 20 20 2D 32 2D 20 20 2D |OWS -1- -2- -|
000011F0: 33 2D 20 20 2D 34 2D 20 20 2D 35 2D 20 20 2D 36 |3- -4- -5- -6|
00001200: 2D 20 20 2D 37 2D 20 20 22 00 3D 1A B4 0A 99 C7 |- -7- ".=.....|
00001210: 28 31 37 29 3B C7 28 31 37 29 3B C7 28 31 39 32 |(17);.(17);.(192|
00001220: 29 3B C7 28 31 39 32 29 3B C7 28 31 39 32 29 3B |);.(192);.(192);|
00001230: C7 28 31 39 32 29 3B C7 28 32 33 38 29 00 4A 1A |.(192);.(238).J.|
00001240: BE 0A 99 22 41 43 45 53 22 3B 00 70 1A C8 0A 81 |..."ACES";.p....|
00001250: 58 58 B2 31 A4 38 3A 99 C7 28 32 32 31 29 3B C7 |XX.1.8:..(221);.|
00001260: 28 31 37 29 3B C7 28 31 35 37 29 3B 3A 82 58 58 |(17);.(157);:.XX|
00001270: 00 7C 1A D2 0A 99 C7 28 32 32 31 29 00 A4 1A DC |.|.....(221)....|
00001280: 0A 99 C7 28 31 39 32 29 3B C7 28 31 39 32 29 3B |...(192);.(192);|
00001290: C7 28 31 39 32 29 3B C7 28 31 39 32 29 3B C7 28 |.(192);.(192);.(|
000012A0: 32 35 33 29 00 B9 1A E6 0A 81 20 58 B2 31 A4 34 |253)...... X.1.4|
000012B0: 3A 8D 32 34 32 30 3A 82 58 00 C3 1A F0 0A 8D 32 |:.2420:.X......2|
000012C0: 38 33 30 00 CD 1A FA 0A 89 32 39 36 30 00 EE 1A |830......2960...|
000012D0: 04 0B 8F 20 2A 2A 2A 20 55 50 44 41 54 45 20 52 |... *** UPDATE R|
000012E0: 4F 57 20 44 49 53 50 4C 41 59 20 2A 2A 2A 00 FA |OW DISPLAY ***..|
000012F0: 1A 0E 0B 99 22 13 11 11 22 3B 00 07 1B 18 0B 81 |...."...";......|
00001300: 20 59 B2 31 A4 31 38 00 1F 1B 22 0B 59 39 B2 59 | Y.1.18...".Y9.Y|
00001310: AB 31 31 3A 8B 59 B3 31 32 20 A7 59 39 B2 31 00 |.11:.Y.12 .Y9.1.|
00001320: 34 1B 2C 0B 99 A3 34 AA 28 28 59 39 AB 31 29 AC |4.,...4.((Y9.1).|
00001330: 35 29 29 3B 00 4D 1B 36 0B 81 20 58 B2 59 39 A4 |5));.M.6.. X.Y9.|
00001340: 37 3A 99 A6 32 29 3B 3A 8D 32 34 38 30 00 59 1B |7:..2);:.2480.Y.|
00001350: 40 0B 82 58 3A 99 3A 82 59 00 6A 1B 45 0B 8B 20 |@..X:.:.Y.j.E.. |
00001360: 44 28 31 29 B1 30 20 A7 20 8E 00 75 1B 48 0B 89 |D(1).0 . ..u.H..|
00001370: 20 33 30 34 32 00 94 1B 4A 0B 8F 2A 2A 2A 20 4E | 3042...J..*** N|
00001380: 45 58 54 20 43 41 52 44 20 49 4E 20 44 45 43 4B |EXT CARD IN DECK|
00001390: 20 2A 2A 2A 00 A6 1B 54 0B 8B 44 28 31 29 B2 30 | ***...T..D(1).0|
000013A0: A7 20 32 39 36 30 00 B6 1B 5E 0B 43 B2 43 AA 31 |. 2960...^.C.C.1|
000013B0: 3A 57 B2 57 AA 31 00 D0 1B 68 0B 8B 57 B1 32 34 |:W.W.1...h..W.24|
000013C0: A7 4C B2 31 3A 8D 33 30 36 30 3A 89 34 30 30 30 |.L.1:.3060:.4000|
000013D0: 00 E7 1B 72 0B 8B 44 28 43 29 AA 44 28 43 AB 31 |...r..D(C).D(C.1|
000013E0: 29 B2 30 A7 43 B2 31 00 FF 1B 7C 0B 8B 44 28 43 |).0.C.1...|..D(C|
000013F0: 29 B2 30 A7 43 B2 43 AB 31 3A 89 32 39 34 30 00 |).0.C.C.1:.2940.|
00001400: 20 1C 86 0B 8F 2A 2A 2A 20 55 50 44 41 54 45 20 | ....*** UPDATE |
00001410: 44 45 43 4B 20 44 49 53 50 4C 41 59 20 2A 2A 2A |DECK DISPLAY ***|
00001420: 00 3E 1C 90 0B 99 22 13 11 11 11 11 11 11 11 11 |.>....".........|
00001430: 11 11 11 11 11 11 11 11 44 45 43 4B 11 22 00 61 |........DECK.".a|
00001440: 1C A4 0B 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00001450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001460: 22 00 6B 1C AE 0B 99 22 91 22 3B 00 85 1C B8 0B |".k....".";.....|
00001470: 8B 44 28 31 29 B2 30 A7 99 22 20 20 20 22 3B 3A |.D(1).0.." ";:|
00001480: 89 33 30 32 30 00 96 1C C2 0B 52 B2 44 28 43 29 |.3020.....R.D(C)|
00001490: 3A 8D 32 35 32 30 00 B8 1C CC 0B 58 B2 30 3A 81 |:.2520.....X.0:.|
000014A0: 59 B2 31 A4 32 34 3A 8B 44 28 59 29 B3 B1 30 A7 |Y.1.24:.D(Y)..0.|
000014B0: 58 B2 58 AA 31 3A 82 59 00 D7 1C D6 0B 99 A3 31 |X.X.1:.Y.......1|
000014C0: 30 29 3B 22 28 22 3B 58 3B 22 43 41 52 44 53 20 |0);"(";X;"CARDS |
000014D0: 4C 45 46 54 20 29 22 00 FA 1C D8 0B 99 22 20 20 |LEFT )"......" |
000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014F0: 20 20 20 20 20 20 20 20 20 22 00 1E 1D DB 0B 99 | "......|
00001500: 22 91 22 A3 31 30 29 3B 22 28 22 3B 57 3B 22 43 |".".10);"(";W;"C|
00001510: 41 52 44 53 20 50 4C 41 59 45 44 20 29 22 00 2D |ARDS PLAYED )".-|
00001520: 1D E0 0B 8B 20 58 20 B1 30 20 A7 20 8E 00 38 1D |.... X .0 . ..8.|
00001530: E1 0B 8D 20 32 38 33 30 00 4D 1D E2 0B 81 20 41 |... 2830.M.... A|
00001540: B2 31 A4 37 3A 81 20 42 B2 31 A4 31 38 00 63 1D |.1.7:. B.1.18.c.|
00001550: E4 0B 8B 20 46 28 41 2C 42 29 20 B1 31 30 30 20 |... F(A,B) .100 |
00001560: A7 20 8E 00 6D 1D E6 0B 82 20 42 2C 41 00 7B 1D |. ..m.... B,A.{.|
00001570: E7 0B 4C B2 31 3A 8D 33 30 36 30 00 AF 1D E8 0B |..L.1:.3060.....|
00001580: 99 22 11 57 4F 57 21 20 59 4F 55 20 4A 55 53 54 |.".WOW! YOU JUST|
00001590: 20 57 4F 4E 20 49 54 20 41 4C 4C 21 21 20 12 24 | WON IT ALL!! .$|
000015A0: 20 32 35 35 92 20 21 21 21 22 3A 89 35 30 35 00 | 255. !!!":.505.|
000015B0: D3 1D EA 0B 8F 2A 2A 2A 42 41 43 4B 20 55 50 20 |.....***BACK UP |
000015C0: 4C 49 4E 45 53 20 54 48 45 4E 20 43 4C 45 41 52 |LINES THEN CLEAR|
000015D0: 2A 2A 2A 00 E9 1D F4 0B 81 4C 31 B2 31 A4 4C 3A |***......L1.1.L:|
000015E0: 99 22 91 22 3B 3A 82 4C 31 00 06 1E FE 0B 8F 20 |.".";:.L1...... |
000015F0: 2A 2A 2A 20 42 4C 41 4E 4B 20 4C 49 4E 45 53 21 |*** BLANK LINES!|
00001600: 21 21 20 2A 2A 2A 00 12 1E 08 0C 81 4C 31 B2 31 |!! ***......L1.1|
00001610: A4 4C 00 41 1E 12 0C 99 22 20 20 20 20 20 20 20 |.L.A...." |
00001620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001640: 22 00 49 1E 1C 0C 82 4C 31 00 61 1E 26 0C 81 4C |".I....L1.a.&..L|
00001650: 31 B2 31 A4 4C 3A 99 22 91 22 3B 3A 82 4C 31 3A |1.1.L:.".";:.L1:|
00001660: 8E 00 87 1E 30 0C 8F 2A 2A 2A 20 52 45 4D 4F 56 |....0..*** REMOV|
00001670: 45 20 43 41 52 44 20 46 52 4F 4D 20 44 45 43 4B |E CARD FROM DECK|
00001680: 20 26 20 44 49 53 50 00 A3 1E 3A 0C 81 20 58 B2 | & DISP...:.. X.|
00001690: 43 A4 32 34 3A 44 28 58 29 B2 44 28 58 AA 31 29 |C.24:D(X).D(X.1)|
000016A0: 3A 82 58 00 B5 1E 44 0C 8B 20 44 28 31 29 B2 30 |:.X...D.. D(1).0|
000016B0: A7 33 31 37 30 00 CF 1E 4E 0C 43 B2 43 AB 31 3A |.3170...N.C.C.1:|
000016C0: 8B 20 43 B3 31 A7 43 B2 31 3A 57 B2 57 AA 31 00 |. C.1.C.1:W.W.1.|
000016D0: E8 1E 58 0C 8B 20 44 28 43 29 B2 30 A7 43 B2 43 |..X.. D(C).0.C.C|
000016E0: AB 31 3A 89 33 31 36 30 00 F4 1E 62 0C 8D 32 39 |.1:.3160...b..29|
000016F0: 36 30 3A 8E 00 21 1F 6C 0C 99 22 12 50 4C 45 41 |60:..!.l..".PLEA|
00001700: 53 45 20 57 41 49 54 20 57 48 49 4C 45 20 49 20 |SE WAIT WHILE I |
00001710: 46 49 58 20 54 48 45 20 43 41 52 44 53 21 22 3A |FIX THE CARDS!":|
00001720: 8E 00 48 1F A0 0F 99 22 20 20 20 20 20 20 20 20 |..H...." |
00001730: 20 20 20 20 20 20 47 41 4D 45 20 4F 56 45 52 20 | GAME OVER |
00001740: 20 20 20 20 20 20 20 22 00 52 1F A5 0F 89 20 34 | ".R.... 4|
00001750: 35 30 00 6C 1F AA 0F 54 B2 53 28 32 29 AB 31 33 |50.l...T.S(2).13|
00001760: 3A 8B 20 54 B3 30 20 A7 20 54 B2 30 00 86 1F B4 |:. T.0 . T.0....|
00001770: 0F 55 B2 53 28 33 29 AB 32 36 3A 8B 20 55 B3 30 |.U.S(3).26:. U.0|
00001780: 20 A7 20 55 B2 30 00 A0 1F BE 0F 56 B2 53 28 34 | . U.0.....V.S(4|
00001790: 29 AB 33 39 3A 8B 20 56 B3 30 20 A7 20 56 B2 30 |).39:. V.0 . V.0|
000017A0: 00 B9 1F C8 0F 42 4C B2 28 53 28 31 29 AA 54 AA |.....BL.(S(1).T.|
000017B0: 55 AA 56 29 AC 35 AB 35 32 00 C7 1F CD 0F 4C B2 |U.V).5.52.....L.|
000017C0: 31 3A 8D 33 30 36 30 00 D8 1F D2 0F 8B 20 42 4C |1:.3060...... BL|
000017D0: B1 30 20 89 20 33 38 30 00 F1 1F DC 0F 8B 20 42 |.0 . 380...... B|
000017E0: 4C B3 30 20 A7 20 42 4C B2 AB 42 4C 3A 89 35 30 |L.0 . BL..BL:.50|
000017F0: 30 00 00 00 |0... |
..(.... *****CASINO SOLITAIRE***********
.M.... .C(X).B(X).1.16.((B(X).15).15).T.
..."..... ..SOLITAIRE."....
.."...TO CHANGE COLORS . . ."......"..F1
. = BORDER COLOR".Q. .."..F3. = BACKGROU
ND COLOR"...%.."..RETURN. = DONE"...&.."
... .PAY $52 FOR DECK".:.'.."..
WIN $5 FOR EACH 'ACE CARD'.".J.(..
C$:.C$.40.].-.. C$:.C$."".45...2.C.F(C$
): .C.135 . .646,.C(646):. 20...7.. C.13
3 . C.134 .X.53147.C:.X,.C(X).E.<.. C.13
. C.95 . .70.N.A.. 40...F.."...........
SHUFFLING CARDS FOR A GAME OF SOLITAIRE!
".9.Z..:.:.:." I'LL BE READY IN A FEW
SECONDS".S.D.. X . 1 . E(I(TI$,2)).A.N.
R..(1):.X...X.. F(7,18),S(4),D(52),S$(4)
.....S$(1)."S":S$(2)."Z":S$(3)."A":S$(4)
."X".O...QM$." ?".G(157).G(157).G(157).
..... X.0.7:.Y.0.18:F(X,Y).0:.Y,X...H..
X.0.4:S(X).0:.X...R.. X.0. 52:D(X).0:.X.
;.... *** SHUFFLE CARDS ***.H.... X.1.52
.H...R..(.(1).52.1):.D(R).0. 240.V...D(R
).X:.X...... ***DEAL CARDS ***.....R.52:
.X.1.7:. Y.1.X.....F(X,Y).D(R).100.N.".D
(R).0:R.R.1:.Y...,.F(X,X).F(X,X).100:.X.
..6.. *** DISPLAY EVERYTHING ***...@.C.1
:W.1:.2730.6.J.. *** COMMAND INPUT ***.U
.T.."......................";.C.H.L.3:.3
080...R.. S(1).S(2).S(3).S(4)..130 .390.
..|..".CONGRATULATIONS, YOU JUST WON .$"
;BL;".!!":.505.H....3042......"D=DECK,RO
W#1-7,C=CARD,_=QUIT; PLAY=";QM$;: .P$:P.
E(P$)...... (P.7). (P.0). 2360...... P.0
. 840.[.... P$."C". .2900:.340:. *** NE
XT CARD ***.M.... P$.."_".550...... ***
QUITTER! ***...B.. X.1.7:. Y.1.18...L..
F(X,Y).100 . F(X,Y).F(X,Y).100.H.V.. Y,X
.R....2830......4010......"..SORRY, YOU
JUST LOST .$";BL;".. ".:...."
".C....
"WANT TO PLAY AGAIN (Y/N)? ".W...
. P$:.P$."Y". ....... P$.."N". 520......
53280,14:.53281,6:."....BYE":..B.&.. P$
.."D".2360...0.. *** FROM DECK TO ... **
*...:.. D(1).0.2370...D.V.D(C):S1..((D(C
).1).13).1.*.N.. V.13. V.V.13:.590.8.X.L
.1:.3060.I.B.."FROM DECK TO (A=ACES, ROW
#1-7)";QM$;: . R$.|.L.. R$.."A". 700...V
.. *** DECK TO ACES ***...... S1..(D(C).
12).13.670.E.... S(S1).0.2370.O.... 680.
..... D(C)..S(S1).1 .2370.....S(S1).D(C)
:X.S1:.2420:.3130:.340.%....***DECK TO R
OW***.1...R.E(R$).L.F.Y.1:. (R.1).(R.7).
2360.^.P.. Y.18 . 2370.Y.Z.. F(R,Y)..0.Y
.Y.1:.720...... Y.1.770...... V.13.820..
.... 2370.....V1.F(R,Y.1).M.... V1.13 .
V1.V1.13:.780...... V..V1.1. 2370... .S2
..((F(R,Y.1).1).26):S1..((S1.1).2)...*..
S1.S2 .2370.C.4.F(R,Y).D(C):.3180:.3130
:.2830:.340.A.>.. *** FROM ROW TO ... **
*.Y.H.Y.0:. F(P,1).0.2370...R.. *** SING
LE CARD IN ROW? ***...\.Y.Y.1:.Y.18 .237
0.M.F.Y2.F(P,Y): .Y2.100 .860...P.. F(P,
Y.1)..0.920...Z.. Y2.13 .Y2.Y2.13:.890..
....2030.-.... *** FROM WHAT CARD IN ROW
? ***.;...L.1:.3060.U...."FROM ROW";P;"C
ARD(A,2-10,J,Q,K)";QM$;: .Y$:Y1.E(Y$)...
... Y$."A" . Y1.1...... Y$."J" . Y1.11..
.... Y$."Q" . Y1.12.H.J.. Y$."K" . Y1.13
...T.. (Y1.0).(Y1.13).2360...... Y.18 .
2370...P.Y2.F(P,Y):.Y2.100.Y.Y.1:.990./.
Z..Y2.13.Y2.Y2.13:.2010.F....Y1..Y2.Y.Y.
1:.990.]...R.F(P,Y):L.1:.3060.Q...."FROM
";:.2520......" ROW";P;"TO (A=ACES,ROW#
1-7)";QM$;:.A$.C.... *** FROM ROW/CARD
TO ACES ***.....S1..((F(P,Y).1).13).1...
.. A$.."A".2180...*.. *** FROM ROW/CARD
TO ACES ***.*.4.. F(P,Y.1).0.2370.G.>..
S1..(F(P,Y).12).13.2140.Y.H..S(S1).0.237
0.C.R..2150.}.\..F(P,Y)..S(S1).1.2370...
F.S(S1).F(P,Y):F(P,Y).0: .F(P,Y.1).100 .
F(P,Y.1).F(P,Y.1).100...P..3180:.2830:X.
S1:.2420:.340...Z.. ***FROM ROW/CARD TO
ROW ***.....Q.E(A$).&...Z.1:. (Q.1).(Q.7
).2360.6.... Z.18.2370.R.... F(Q,Z)..0.Z
.Z.1:.2200.B.... Z.1. 2250.S.... Y2.13.2
300.~.... 2370...J.V1.F(Q,Z.1)...T.. V1.
13. V1.V1.13:.2260...... Y2..V1.1.2370..
...S2..((F(Q,Z.1).1).26):S1..((S1.1).2).
..... S1.S2. 2370.#.... F(P,Y.1).100. F(
P,Y.1).F(P,Y.1).100.>...F(Q,Z).F(P,Y):F(
P,Y).0.N...Y.Y.1:Z.Z.1.D.... F(P,Y)..0.
2310.Y.$..3180:.2830:.340...... *** ERRO
RS! ***...8..".INVALID RESPONSE!":.2380.
E.B..".ILLEGAL PLAY!".N.L.T.TI...V.. (TI
.T).50 .2390...`..340...J.. *** DISPLAY
ACES ***...T..".....";...~..X1.1. X:."..
";:.X1.V....(S(X).0).(X.2)..".--";S$(X);
".";:..V....S(X).0 ..".--";S$(X);".":...
...R.S(X):.2520:.:....... *** DISPLAY CA
RDS IN PILES ***.....R.F(X,Y).R.... R.0
.." ";:....D.. R.100 ..".XXX.";:....N.
. *** PRINT CARD ***...X.R1.R.).... R1.1
3 .R1.R1.13:.2530.;.... R.26 ..".";.N...
. R.27 . .".";.W.... R1 . 2570,2580,2590
,2600,2610,2620...... R1.6 . 2630,2640,2
650,2660,2670,2680,2690......" A";: .270
0.K...." 2";: .2700......" 3";: .2700...
(.." 4";: .2700...2.." 5";: .2700...<.."
6";: .2700.%.F.." 7";: .2700.7.P.." 8";
: .2700.I.Z.." 9";: .2700.[.D.."10";: .2
700.M.N.." J";: .2700..X.." Q";: .2700.
....." K";.....R9..((R.1).13).1......S$(
R9);"..";:..W. .. *** DISPLAY ACES AND R
OWS ***......".ROWS -1- -2- -3- -4-
-5- -6- -7- ".=....G(17);G(17);G(192
);G(192);G(192);G(192);G(238).J...."ACES
";.P.H..XX.1.8:.G(221);G(17);G(157);:.XX
.|.R..G(221)......G(192);G(192);G(192);G
(192);G(253)...... X.1.4:.2420:.X.C....2
830.M....2960...... *** UPDATE ROW DISPL
AY ***......"...";...... Y.1.18...".Y9.Y
.11:.Y.12 .Y9.1.4.,...4.((Y9.1).5));.M.6
.. X.Y9.7:..2);:.2480.Y.@..X:.:.Y.J.E..
D(1).0 . ..U.H.. 3042...J..*** NEXT CARD
IN DECK ***...T..D(1).0. 2960...^.C.C.1
:W.W.1.P.H..W.24.L.1:.3060:.4000...R..D(
C).D(C.1).0.C.1...|..D(C).0.C.C.1:.2940.
....*** UPDATE DECK DISPLAY ***.>....".
................DECK.".A...."
".K....".";......D(1).0.
." ";:.3020...B.R.D(C):.2520...L.X.0:.
Y.1.24:.D(Y)..0.X.X.1:.Y.W.V...10);"(";X
;"CARDS LEFT )"...X.."
"......".".10);"(";W;"CARDS PLA
YED )".-.... X .0 . ..8.... 2830.M.... A
.1.7:. B.1.18.C.... F(A,B) .100 . ..M...
. B,A.{...L.1:.3060......".WOW! YOU JUST
WON IT ALL!! .$ 255. !!!":.505.S....***
BACK UP LINES THEN CLEAR***......L1.1.L:
.".";:.L1...... *** BLANK LINES!!! ***..
....L1.1.L.A...."
".I....L1.A.&..L1.1.L:."
.";:.L1:....0..*** REMOVE CARD FROM DECK
& DISP...:.. X.C.24:D(X).D(X.1):.X...D.
. D(1).0.3170.O.N.C.C.1:. C.1.C.1:W.W.1.
..X.. D(C).0.C.C.1:.3160...B..2960:..!.L
..".PLEASE WAIT WHILE I FIX THE CARDS!":
..H. .." GAME OVER "
.R.... 450.L...T.S(2).13:. T.0 . T.0....
.U.S(3).26:. U.0 . U.0. ...V.S(4).39:. V
.0 . V.0...H.BL.(S(1).T.U.V).5.52.G.M.L.
1:.3060.X.R.. BL.0 . 380...... BL.0 . BL
..BL:.500...
> CLICK IMAGE PREVIEW FOR FULL MODAL