SOLITAIRE

00000000: 01 08 21 08 05 00 97 20  35 33 32 38 31 2C 31 3A  |..!.... 53281,1:|
00000010: 97 20 35 33 32 38 30 2C  36 3A 99 C7 28 31 34 34  |. 53280,6:..(144|
00000020: 29 00 5C 08 07 00 99 22  93 11 11 11 11 11 11 11  |).\...."........|
00000030: 11 11 11 53 48 55 46 46  4C 49 4E 47 20 43 41 52  |...SHUFFLING CAR|
00000040: 44 53 20 46 4F 52 20 41  20 47 41 4D 45 20 4F 46  |DS FOR A GAME OF|
00000050: 20 53 4F 4C 49 54 41 49  52 45 21 22 00 8D 08 08  | SOLITAIRE!"....|
00000060: 00 99 3A 99 3A 99 3A 99  22 20 20 20 20 20 49 27  |..:.:.:."     I'|
00000070: 4C 4C 20 42 45 20 52 45  41 44 59 20 49 4E 20 41  |LL BE READY IN A|
00000080: 20 46 45 57 20 53 45 43  4F 4E 44 53 22 00 A4 08  | FEW SECONDS"...|
00000090: 0A 00 81 20 58 B2 31 A4  20 C5 28 C9 28 54 49 24  |... X.1. .(.(TI$|
000000A0: 2C 32 29 29 00 B3 08 0B  00 52 B2 BB 28 31 29 3A  |,2)).....R..(1):|
000000B0: 82 20 58 00 C7 08 0C 00  41 46 4C 41 47 B2 30 3A  |. X.....AFLAG.0:|
000000C0: 4B 46 4C 41 47 B2 30 00  D2 08 0D 00 51 51 24 B2  |KFLAG.0.....QQ$.|
000000D0: 22 22 00 F1 08 14 00 86  20 46 28 37 2C 31 38 29  |""...... F(7,18)|
000000E0: 2C 53 28 34 29 2C 44 28  35 32 29 2C 53 24 28 34  |,S(4),D(52),S$(4|
000000F0: 29 00 1D 09 15 00 53 24  28 31 29 B2 22 D3 22 3A  |).....S$(1).".":|
00000100: 53 24 28 32 29 B2 22 DA  22 3A 53 24 28 33 29 B2  |S$(2).".":S$(3).|
00000110: 22 C1 22 3A 53 24 28 34  29 B2 22 D8 22 00 40 09  |".":S$(4).".".@.|
00000120: 1E 00 81 20 58 B2 30 A4  37 3A 81 59 B2 30 A4 31  |... X.0.7:.Y.0.1|
00000130: 38 3A 46 28 58 2C 59 29  B2 30 3A 82 59 3A 82 58  |8:F(X,Y).0:.Y:.X|
00000140: 00 56 09 28 00 81 58 B2  30 A4 34 3A 53 28 58 29  |.V.(..X.0.4:S(X)|
00000150: B2 30 3A 82 20 58 00 6D  09 32 00 81 58 B2 30 A4  |.0:. X.m.2..X.0.|
00000160: 35 32 3A 44 28 58 29 B2  30 3A 82 20 58 00 81 09  |52:D(X).0:. X...|
00000170: 64 00 8F 20 53 48 55 46  46 4C 45 20 43 41 52 44  |d.. SHUFFLE CARD|
00000180: 53 00 8E 09 6E 00 81 20  58 B2 31 A4 35 32 00 A1  |S...n.. X.1.52..|
00000190: 09 78 00 52 B2 B5 28 BB  28 31 29 AC 35 32 AA 31  |.x.R..(.(1).52.1|
000001A0: 29 00 B3 09 82 00 8B 20  44 28 52 29 B1 30 A7 20  |)...... D(R).0. |
000001B0: 31 32 30 00 C2 09 8C 00  44 28 52 29 B2 58 3A 82  |120.....D(R).X:.|
000001C0: 20 58 00 DE 09 C8 00 8F  20 44 45 41 4C 20 43 41  | X...... DEAL CA|
000001D0: 52 44 53 20 49 4E 54 4F  20 50 49 4C 45 53 00 F6  |RDS INTO PILES..|
000001E0: 09 D2 00 52 B2 35 32 3A  81 20 58 B2 31 A4 37 3A  |...R.52:. X.1.7:|
000001F0: 81 59 B2 31 A4 58 00 0A  0A DC 00 46 28 58 2C 59  |.Y.1.X.....F(X,Y|
00000200: 29 B2 44 28 52 29 AA 31  30 30 00 1F 0A E6 00 44  |).D(R).100.....D|
00000210: 28 52 29 B2 30 3A 52 B2  52 AB 31 3A 82 20 59 00  |(R).0:R.R.1:. Y.|
00000220: 39 0A F0 00 46 28 58 2C  58 29 B2 46 28 58 2C 58  |9...F(X,X).F(X,X|
00000230: 29 AB 31 30 30 3A 82 20  58 00 52 0A 90 01 8F 20  |).100:. X.R.... |
00000240: 44 49 53 50 4C 41 59 20  45 56 45 52 59 54 48 49  |DISPLAY EVERYTHI|
00000250: 4E 47 00 61 0A 9A 01 43  B2 33 3A 8D 20 33 30 30  |NG.a...C.3:. 300|
00000260: 30 00 75 0A F4 01 8F 20  43 4F 4D 4D 41 4E 44 20  |0.u.... COMMAND |
00000270: 49 4E 50 55 54 00 94 0A  F6 01 99 22 13 11 11 11  |INPUT......"....|
00000280: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000290: 11 11 22 3B 00 A2 0A F9  01 4C B2 33 3A 8D 35 30  |..";.....L.3:.50|
000002A0: 30 30 00 DB 0A FE 01 99  22 44 3D 44 45 43 4B 2C  |00......"D=DECK,|
000002B0: 52 4F 57 23 31 2D 37 2C  43 3D 43 41 52 44 2C 51  |ROW#1-7,C=CARD,Q|
000002C0: 3D 51 55 49 54 3B 20 50  4C 41 59 3D 1D 22 3B 3A  |=QUIT; PLAY=.";:|
000002D0: 85 50 24 3A 50 B2 C5 28  50 24 29 00 F2 0A 03 02  |.P$:P..(P$).....|
000002E0: 8B 28 50 B1 37 29 B0 28  50 B3 30 29 20 A7 20 39  |.(P.7).(P.0) . 9|
000002F0: 39 30 00 00 0B 05 02 8B  50 B1 30 A7 20 37 30 30  |90......P.0. 700|
00000300: 00 24 0B 08 02 8B 50 24  B2 22 43 22 A7 20 8D 33  |.$....P$."C". .3|
00000310: 32 30 30 3A 89 35 30 30  3A 8F 20 4E 45 58 54 20  |200:.500:. NEXT |
00000320: 43 41 52 44 00 36 0B 12  02 8B 20 50 24 B3 B1 22  |CARD.6.... P$.."|
00000330: 51 22 89 36 30 30 00 47  0B 17 02 8F 20 51 55 49  |Q".600.G.... QUI|
00000340: 54 54 45 52 21 21 21 00  5B 0B 1C 02 81 20 58 B2  |TTER!!!.[.... X.|
00000350: 31 A4 37 3A 81 59 B2 31  A4 31 38 00 7D 0B 26 02  |1.7:.Y.1.18.}.&.|
00000360: 8B 46 28 58 2C 59 29 B1  31 30 30 A7 46 28 58 2C  |.F(X,Y).100.F(X,|
00000370: 59 29 B2 46 28 58 2C 59  29 AB 31 30 30 00 89 0B  |Y).F(X,Y).100...|
00000380: 30 02 82 20 59 3A 82 20  58 00 93 0B 3A 02 8D 33  |0.. Y:. X...:..3|
00000390: 31 30 30 00 A1 0B 3F 02  4C B2 33 3A 8D 35 30 30  |100...?.L.3:.500|
000003A0: 30 00 C8 0B 44 02 99 22  53 4F 52 52 59 2C 20 42  |0...D.."SORRY, B|
000003B0: 45 54 54 45 52 20 4C 55  43 4B 20 4E 45 58 54 20  |ETTER LUCK NEXT |
000003C0: 54 49 4D 45 20 21 21 22  00 ED 0B 45 02 99 3A 99  |TIME !!"...E..:.|
000003D0: 22 44 4F 20 59 4F 55 20  57 41 4E 54 20 54 4F 20  |"DO YOU WANT TO |
000003E0: 50 4C 41 59 20 41 47 41  49 4E 20 22 3B 00 F7 0B  |PLAY AGAIN ";...|
000003F0: 46 02 85 20 51 51 24 00  0E 0C 47 02 8B 20 C8 28  |F.. QQ$...G.. .(|
00000400: 51 51 24 2C 31 29 B2 22  59 22 20 A7 20 8A 00 25  |QQ$,1)."Y" . ..%|
00000410: 0C 48 02 8B 20 C8 28 51  51 24 2C 31 29 B2 22 4E  |.H.. .(QQ$,1)."N|
00000420: 22 20 A7 20 80 00 2F 0C  49 02 89 20 35 38 31 00  |" . ../.I.. 581.|
00000430: 40 0C 58 02 8B 50 24 B3  B1 22 44 22 89 39 39 30  |@.X..P$.."D".990|
00000440: 00 57 0C 59 02 8F 20 46  52 4F 4D 20 44 45 43 4B  |.W.Y.. FROM DECK|
00000450: 20 54 4F 20 2E 2E 2E 00  67 0C 5A 02 8B 44 28 31  | TO ....g.Z..D(1|
00000460: 29 B2 30 A7 39 39 35 00  86 0C 5B 02 56 B2 44 28  |).0.995...[.V.D(|
00000470: 43 29 3A 53 31 B2 B5 28  28 44 28 43 29 AB 31 29  |C):S1..((D(C).1)|
00000480: AD 31 33 29 AA 31 00 9E  0C 5C 02 8B 20 56 B1 31  |.13).1...\.. V.1|
00000490: 33 A7 20 56 B2 56 AB 31  33 3A 89 36 30 34 00 AD  |3. V.V.13:.604..|
000004A0: 0C 5D 02 4C B2 31 3A 8D  20 34 30 30 30 00 DB 0C  |.].L.1:. 4000...|
000004B0: 62 02 99 22 46 52 4F 4D  20 44 45 43 4B 20 54 4F  |b.."FROM DECK TO|
000004C0: 20 28 41 3D 41 43 45 53  2C 20 52 4F 57 23 31 2D  | (A=ACES, ROW#1-|
000004D0: 37 29 20 22 3B 3A 85 20  20 52 24 00 EE 0C 67 02  |7) ";:.  R$...g.|
000004E0: 8B 52 24 B3 B1 22 41 22  20 A7 20 36 35 30 00 06  |.R$.."A" . 650..|
000004F0: 0D 6A 02 8F 20 46 52 4F  4D 20 44 45 43 4B 20 54  |.j.. FROM DECK T|
00000500: 4F 20 41 43 45 53 00 21  0D 6C 02 8B 53 31 B3 B1  |O ACES.!.l..S1..|
00000510: 28 44 28 43 29 AA 31 32  29 AD 31 33 A7 20 36 33  |(D(C).12).13. 63|
00000520: 30 00 34 0D 6F 02 8B 20  53 28 53 31 29 B1 30 A7  |0.4.o.. S(S1).0.|
00000530: 20 39 39 35 00 3E 0D 72  02 89 20 36 34 30 00 57  | 995.>.r.. 640.W|
00000540: 0D 76 02 8B 44 28 43 29  B3 B1 53 28 53 31 29 AA  |.v..D(C)..S(S1).|
00000550: 31 20 A7 20 39 39 35 00  7E 0D 80 02 53 28 53 31  |1 . 995.~...S(S1|
00000560: 29 B2 44 28 43 29 3A 58  B2 53 31 3A 8D 20 31 30  |).D(C):X.S1:. 10|
00000570: 30 30 3A 8D 20 36 30 30  30 3A 89 35 30 30 00 90  |00:. 6000:.500..|
00000580: 0D 8A 02 8F 20 44 45 43  4B 20 54 4F 20 52 4F 57  |.... DECK TO ROW|
00000590: 00 9C 0D 8F 02 52 B2 C5  28 52 24 29 00 B6 0D 94  |.....R..(R$)....|
000005A0: 02 59 B2 31 3A 8B 28 52  B3 31 29 B0 28 52 B1 37  |.Y.1:.(R.1).(R.7|
000005B0: 29 A7 20 39 39 30 00 C7  0D 99 02 8B 20 59 B1 31  |). 990...... Y.1|
000005C0: 38 20 A7 20 39 39 35 00  E2 0D 9E 02 8B 46 28 52  |8 . 995......F(R|
000005D0: 2C 59 29 B3 B1 30 A7 20  59 B2 59 AA 31 3A 89 36  |,Y)..0. Y.Y.1:.6|
000005E0: 36 35 00 F0 0D A3 02 8B  20 59 B1 31 A7 36 38 30  |65...... Y.1.680|
000005F0: 00 01 0E A5 02 8B 20 56  B2 31 33 20 A7 20 36 39  |...... V.13 . 69|
00000600: 30 00 0B 0E A6 02 89 20  39 39 35 00 1B 0E A8 02  |0...... 995.....|
00000610: 56 31 B2 46 28 52 2C 59  AB 31 29 00 37 0E AA 02  |V1.F(R,Y.1).7...|
00000620: 8B 20 56 31 B1 31 33 A7  20 56 31 B2 56 31 AB 31  |. V1.13. V1.V1.1|
00000630: 33 3A 89 20 36 38 32 00  4A 0E AB 02 8B 20 56 B3  |3:. 682.J.... V.|
00000640: B1 56 31 AB 31 A7 20 39  39 35 00 73 0E AC 02 53  |.V1.1. 995.s...S|
00000650: 32 B2 B5 28 28 46 28 52  2C 59 AB 31 29 AB 31 29  |2..((F(R,Y.1).1)|
00000660: AD 32 36 29 3A 53 31 B2  B5 28 28 53 31 AB 31 29  |.26):S1..((S1.1)|
00000670: AD 32 29 00 85 0E AD 02  8B 20 53 31 B2 53 32 20  |.2)...... S1.S2 |
00000680: A7 20 39 39 35 00 BC 0E  B2 02 46 28 52 2C 59 29  |. 995.....F(R,Y)|
00000690: B2 44 28 43 29 3A 99 22  50 4C 45 41 53 45 20 57  |.D(C):."PLEASE W|
000006A0: 41 49 54 20 57 48 49 4C  45 20 49 20 46 49 58 20  |AIT WHILE I FIX |
000006B0: 54 48 45 20 43 41 52 44  53 20 21 22 00 D2 0E B7  |THE CARDS !"....|
000006C0: 02 8D 20 36 30 30 30 3A  8D 33 31 30 30 3A 89 35  |.. 6000:.3100:.5|
000006D0: 30 30 00 E8 0E BC 02 8F  20 46 52 4F 4D 20 52 4F  |00...... FROM RO|
000006E0: 57 20 54 4F 20 2E 2E 2E  00 FF 0E BE 02 59 B2 30  |W TO ........Y.0|
000006F0: 3A 8B 46 28 50 2C 31 29  B2 30 A7 20 39 39 35 00  |:.F(P,1).0. 995.|
00000700: 19 0F C0 02 8F 20 53 49  4E 47 4C 45 20 43 41 52  |..... SINGLE CAR|
00000710: 44 20 49 4E 20 52 4F 57  3F 00 2F 0F C1 02 59 B2  |D IN ROW?./...Y.|
00000720: 59 AA 31 3A 8B 59 B1 31  38 20 A7 20 39 39 35 00  |Y.1:.Y.18 . 995.|
00000730: 4C 0F C4 02 59 32 B2 46  28 50 2C 59 29 3A 20 8B  |L...Y2.F(P,Y): .|
00000740: 59 32 B1 31 30 30 20 A7  20 37 30 35 00 64 0F C6  |Y2.100 . 705.d..|
00000750: 02 8B 46 28 50 2C 59 AA  31 29 B3 B1 30 20 A7 20  |..F(P,Y.1)..0 . |
00000760: 89 37 33 30 00 81 0F CC  02 8B 20 59 32 B1 31 33  |.730...... Y2.13|
00000770: 20 A7 20 59 32 B2 59 32  AB 31 33 3A 89 20 37 31  | . Y2.Y2.13:. 71|
00000780: 36 00 8B 0F CD 02 89 20  37 34 39 00 A9 0F D0 02  |6...... 749.....|
00000790: 8F 20 46 52 4F 4D 20 57  48 41 54 20 43 41 52 44  |. FROM WHAT CARD|
000007A0: 20 49 4E 20 52 4F 57 20  3F 00 B7 0F DA 02 4C B2  | IN ROW ?.....L.|
000007B0: 31 3A 8D 34 30 30 30 00  F0 0F DF 02 99 22 46 52  |1:.4000......"FR|
000007C0: 4F 4D 20 52 4F 57 22 50  22 43 41 52 44 20 28 41  |OM ROW"P"CARD (A|
000007D0: 2C 32 2D 31 30 2C 4A 2C  51 2C 4B 2C 29 20 20 22  |,2-10,J,Q,K,)  "|
000007E0: 3B 3A 85 20 59 24 20 3A  59 31 B2 C5 28 59 24 29  |;:. Y$ :Y1..(Y$)|
000007F0: 00 03 10 E4 02 8B 20 59  24 B2 22 41 22 A7 20 59  |...... Y$."A". Y|
00000800: 31 B2 31 00 17 10 E5 02  8B 59 24 B2 22 4A 22 20  |1.1......Y$."J" |
00000810: A7 20 59 31 B2 31 31 00  2B 10 E6 02 8B 59 24 B2  |. Y1.11.+....Y$.|
00000820: 22 51 22 20 A7 20 59 31  B2 31 32 00 3F 10 E7 02  |"Q" . Y1.12.?...|
00000830: 8B 59 24 B2 22 4B 22 20  A7 20 59 31 B2 31 33 00  |.Y$."K" . Y1.13.|
00000840: 58 10 E8 02 8B 28 59 31  B2 30 29 B0 28 59 31 B1  |X....(Y1.0).(Y1.|
00000850: 31 33 29 A7 20 39 39 30  00 69 10 E9 02 8B 20 59  |13). 990.i.... Y|
00000860: B1 31 38 20 A7 20 39 39  35 00 8A 10 EA 02 59 32  |.18 . 995.....Y2|
00000870: B2 46 28 50 2C 59 29 3A  8B 59 32 B1 31 30 30 A7  |.F(P,Y):.Y2.100.|
00000880: 59 B2 59 AA 31 3A 89 37  34 35 00 A6 10 EB 02 8B  |Y.Y.1:.745......|
00000890: 20 59 32 B1 31 33 20 A7  20 59 32 B2 59 32 AB 31  | Y2.13 . Y2.Y2.1|
000008A0: 33 3A 89 37 34 37 00 BE  10 EC 02 8B 59 31 B3 B1  |3:.747......Y1..|
000008B0: 59 32 A7 20 59 B2 59 AA  31 3A 89 37 34 35 00 D6  |Y2. Y.Y.1:.745..|
000008C0: 10 ED 02 52 B2 46 28 50  2C 59 29 3A 4C B2 31 3A  |...R.F(P,Y):L.1:|
000008D0: 8D 20 34 30 30 30 00 11  11 EE 02 99 22 46 52 4F  |. 4000......"FRO|
000008E0: 4D 20 22 3B 3A 8D 20 32  30 35 30 3A 99 22 20 52  |M ";:. 2050:." R|
000008F0: 4F 57 22 50 22 54 4F 20  28 41 3D 41 43 45 53 2C  |OW"P"TO (A=ACES,|
00000900: 52 4F 57 23 31 2D 37 29  20 20 22 3B 3A 85 20 41  |ROW#1-7)  ";:. A|
00000910: 24 00 2C 11 EF 02 8F 20  46 52 4F 4D 20 52 4F 57  |$.,.... FROM ROW|
00000920: 2F 43 41 52 44 20 54 4F  20 2E 2E 2E 00 46 11 F0  |/CARD TO ....F..|
00000930: 02 53 31 B2 B5 28 28 46  28 50 2C 59 29 AB 31 29  |.S1..((F(P,Y).1)|
00000940: AD 31 33 29 AA 31 00 59  11 F3 02 8B 20 41 24 B3  |.13).1.Y.... A$.|
00000950: B1 22 41 22 A7 20 38 30  30 00 75 11 F4 02 8F 20  |."A". 800.u.... |
00000960: 46 52 4F 4D 20 52 4F 57  2F 43 41 52 44 20 54 4F  |FROM ROW/CARD TO|
00000970: 20 41 43 45 53 00 8A 11  F5 02 8B 46 28 50 2C 59  | ACES......F(P,Y|
00000980: AA 31 29 B1 30 A7 20 39  39 35 00 A9 11 F6 02 8B  |.1).0. 995......|
00000990: 20 53 31 B3 B1 28 46 28  50 2C 59 29 AA 31 32 29  | S1..(F(P,Y).12)|
000009A0: AD 31 33 20 A7 20 37 36  35 00 BC 11 F8 02 8B 20  |.13 . 765...... |
000009B0: 53 28 53 31 29 B1 30 A7  20 39 39 35 00 C6 11 FA  |S(S1).0. 995....|
000009C0: 02 89 20 37 37 30 00 E1  11 FD 02 8B 46 28 50 2C  |.. 770......F(P,|
000009D0: 59 29 B3 B1 53 28 53 31  29 AA 31 20 A7 20 39 39  |Y)..S(S1).1 . 99|
000009E0: 35 00 21 12 02 03 53 28  53 31 29 B2 46 28 50 2C  |5.!...S(S1).F(P,|
000009F0: 59 29 3A 46 28 50 2C 59  29 B2 30 3A 8B 46 28 50  |Y):F(P,Y).0:.F(P|
00000A00: 2C 59 AB 31 29 B1 31 30  30 20 A7 20 46 28 50 2C  |,Y.1).100 . F(P,|
00000A10: 59 AB 31 29 B2 46 28 50  2C 59 AB 31 29 AB 31 30  |Y.1).F(P,Y.1).10|
00000A20: 30 00 4A 12 07 03 99 22  50 4C 45 41 53 45 20 57  |0.J...."PLEASE W|
00000A30: 41 49 54 20 57 48 49 4C  45 20 49 20 46 49 58 20  |AIT WHILE I FIX |
00000A40: 54 48 45 20 43 41 52 44  53 22 00 65 12 0C 03 8D  |THE CARDS".e....|
00000A50: 20 33 31 30 30 3A 58 B2  53 31 3A 8D 31 30 30 30  | 3100:X.S1:.1000|
00000A60: 3A 89 35 30 30 00 80 12  20 03 8F 20 46 52 4F 4D  |:.500... .. FROM|
00000A70: 20 52 4F 57 2F 43 41 52  44 20 54 4F 20 52 4F 57  | ROW/CARD TO ROW|
00000A80: 00 8C 12 2A 03 51 B2 C5  28 41 24 29 00 A7 12 2F  |...*.Q..(A$).../|
00000A90: 03 5A B2 31 3A 8B 28 51  B3 31 29 B0 28 51 B1 37  |.Z.1:.(Q.1).(Q.7|
00000AA0: 29 20 A7 20 39 39 30 00  B8 12 34 03 8B 20 5A B1  |) . 990...4.. Z.|
00000AB0: 31 38 20 A7 20 39 39 35  00 D4 12 39 03 8B 46 28  |18 . 995...9..F(|
00000AC0: 51 2C 5A 29 B3 B1 30 20  A7 20 5A B2 5A AA 31 3A  |Q,Z)..0 . Z.Z.1:|
00000AD0: 89 38 32 30 00 E3 12 3E  03 8B 20 5A B1 31 A7 20  |.820...>.. Z.1. |
00000AE0: 38 35 30 00 F5 12 43 03  8B 20 59 32 B2 31 33 20  |850...C.. Y2.13 |
00000AF0: A7 20 38 38 30 00 FF 12  48 03 89 20 39 39 35 00  |. 880...H.. 995.|
00000B00: 0F 13 52 03 56 31 B2 46  28 51 2C 5A AB 31 29 00  |..R.V1.F(Q,Z.1).|
00000B10: 2A 13 57 03 8B 56 31 B1  31 33 20 A7 20 56 31 B2  |*.W..V1.13 . V1.|
00000B20: 56 31 AB 31 33 3A 89 38  35 35 00 3F 13 5C 03 8B  |V1.13:.855.?.\..|
00000B30: 20 59 32 B3 B1 56 31 AB  31 20 A7 20 39 39 35 00  | Y2..V1.1 . 995.|
00000B40: 68 13 61 03 53 32 B2 B5  28 28 46 28 51 2C 5A AB  |h.a.S2..((F(Q,Z.|
00000B50: 31 29 AB 31 29 AD 32 36  29 3A 53 31 B2 B5 28 28  |1).1).26):S1..((|
00000B60: 53 31 AB 31 29 AD 32 29  00 7A 13 66 03 8B 20 53  |S1.1).2).z.f.. S|
00000B70: 31 B2 53 32 20 A7 20 39  39 35 00 A4 13 70 03 8B  |1.S2 . 995...p..|
00000B80: 46 28 50 2C 59 AB 31 29  B1 31 30 30 20 A7 20 46  |F(P,Y.1).100 . F|
00000B90: 28 50 2C 59 AB 31 29 B2  46 28 50 2C 59 AB 31 29  |(P,Y.1).F(P,Y.1)|
00000BA0: AB 31 30 30 00 BF 13 72  03 46 28 51 2C 5A 29 B2  |.100...r.F(Q,Z).|
00000BB0: 46 28 50 2C 59 29 3A 46  28 50 2C 59 29 B2 30 00  |F(P,Y):F(P,Y).0.|
00000BC0: CF 13 75 03 59 B2 59 AA  31 3A 5A B2 5A AA 31 00  |..u.Y.Y.1:Z.Z.1.|
00000BD0: E4 13 7A 03 8B 46 28 50  2C 59 29 B3 B1 30 20 A7  |..z..F(P,Y)..0 .|
00000BE0: 20 38 38 32 00 0F 14 7F  03 99 22 50 4C 45 41 53  | 882......"PLEAS|
00000BF0: 45 20 57 41 49 54 20 57  48 49 4C 45 20 49 20 46  |E WAIT WHILE I F|
00000C00: 49 58 20 54 48 45 20 43  41 52 44 53 20 21 22 00  |IX THE CARDS !".|
00000C10: 20 14 84 03 8D 20 33 31  30 30 3A 89 20 35 30 30  | .... 3100:. 500|
00000C20: 00 2D 14 B6 03 8F 20 45  52 52 4F 52 53 00 4D 14  |.-.... ERRORS.M.|
00000C30: DE 03 99 22 49 4E 56 41  4C 49 44 20 52 45 53 50  |..."INVALID RESP|
00000C40: 4F 4E 53 45 20 21 22 3A  89 20 39 39 37 00 62 14  |ONSE !":. 997.b.|
00000C50: E3 03 99 22 49 4C 4C 45  47 41 4C 20 50 4C 41 59  |..."ILLEGAL PLAY|
00000C60: 21 22 00 6B 14 E5 03 54  B2 54 49 00 81 14 E6 03  |!".k...T.TI.....|
00000C70: 8B 20 28 54 49 AB 54 29  B3 35 30 20 89 20 39 39  |. (TI.T).50 . 99|
00000C80: 38 00 8B 14 E7 03 89 20  35 30 30 00 9E 14 E8 03  |8...... 500.....|
00000C90: 8F 20 44 49 53 50 4C 41  59 20 41 43 45 53 00 AC  |. DISPLAY ACES..|
00000CA0: 14 F2 03 99 22 13 11 11  11 11 22 3B 00 C4 14 F4  |....".....";....|
00000CB0: 03 81 58 31 B2 31 A4 58  3A 99 22 11 11 22 3B 3A  |..X1.1.X:."..";:|
00000CC0: 82 20 58 31 00 EB 14 FC  03 8B 28 53 28 58 29 B2  |. X1......(S(X).|
00000CD0: 30 29 AF 28 58 B1 32 29  A7 20 99 22 20 20 22 3B  |0).(X.2). ."  ";|
00000CE0: 53 24 28 58 29 3A 89 32  30 33 30 00 20 15 01 04  |S$(X):.2030. ...|
00000CF0: 8B 20 53 28 58 29 B2 30  20 A7 20 99 20 C7 28 32  |. S(X).0 . . .(2|
00000D00: 38 29 3B 3A 99 22 20 20  22 3B 53 24 28 58 29 3B  |8);:."  ";S$(X);|
00000D10: 3A 99 C7 28 31 34 34 29  3B 3A 89 20 32 30 33 30  |:..(144);:. 2030|
00000D20: 00 3A 15 06 04 52 B2 53  28 58 29 3A 8D 20 32 30  |.:...R.S(X):. 20|
00000D30: 35 30 3A 99 3A 89 32 30  33 30 00 57 15 D0 07 8F  |50:.:.2030.W....|
00000D40: 20 44 49 53 50 4C 41 59  20 43 41 52 44 53 20 49  | DISPLAY CARDS I|
00000D50: 4E 20 50 49 4C 45 53 00  64 15 D5 07 52 B2 46 28  |N PILES.d...R.F(|
00000D60: 58 2C 59 29 00 78 15 DA  07 8B 20 52 B2 30 A7 99  |X,Y).x.... R.0..|
00000D70: 22 20 20 20 22 3B 3A 8E  00 86 15 DF 07 99 20 C7  |"   ";:....... .|
00000D80: 28 31 34 34 29 3B 00 A2  15 E4 07 8B 20 52 B1 31  |(144);...... R.1|
00000D90: 30 30 20 A7 20 99 22 58  58 58 22 3B 3A 89 32 30  |00 . ."XXX";:.20|
00000DA0: 33 30 00 AC 15 E5 07 89  32 30 35 30 00 BA 15 EE  |30......2050....|
00000DB0: 07 41 46 4C 41 47 B2 30  3A 8E 00 CB 15 02 08 8F  |.AFLAG.0:.......|
00000DC0: 20 50 52 49 4E 54 20 43  41 52 44 00 D4 15 07 08  | PRINT CARD.....|
00000DD0: 52 31 B2 52 00 EF 15 08  08 8B 52 31 B1 31 33 20  |R1.R......R1.13 |
00000DE0: A7 52 31 B2 52 31 AB 31  33 3A 89 32 30 35 36 00  |.R1.R1.13:.2056.|
00000DF0: 05 16 09 08 8B 20 52 B3  32 37 20 A7 20 99 20 C7  |..... R.27 . . .|
00000E00: 28 32 38 29 3B 00 4F 16  0C 08 91 20 52 31 89 32  |(28);.O.... R1.2|
00000E10: 31 30 31 2C 32 31 30 32  2C 32 31 30 33 2C 32 31  |101,2102,2103,21|
00000E20: 30 34 2C 32 31 30 35 2C  32 31 30 36 2C 32 31 30  |04,2105,2106,210|
00000E30: 37 2C 32 31 30 38 2C 32  31 30 39 2C 32 31 31 30  |7,2108,2109,2110|
00000E40: 2C 32 31 31 31 2C 32 31  31 32 2C 32 31 31 33 00  |,2111,2112,2113.|
00000E50: 60 16 35 08 99 22 20 41  22 3B 3A 89 32 32 30 30  |`.5.." A";:.2200|
00000E60: 00 71 16 36 08 99 22 20  32 22 3B 3A 89 32 32 30  |.q.6.." 2";:.220|
00000E70: 30 00 82 16 37 08 99 22  20 33 22 3B 3A 89 32 32  |0...7.." 3";:.22|
00000E80: 30 30 00 93 16 38 08 99  22 20 34 22 3B 3A 89 32  |00...8.." 4";:.2|
00000E90: 32 30 30 00 A4 16 39 08  99 22 20 35 22 3B 3A 89  |200...9.." 5";:.|
00000EA0: 32 32 30 30 00 B5 16 3A  08 99 22 20 36 22 3B 3A  |2200...:.." 6";:|
00000EB0: 89 32 32 30 30 00 C6 16  3B 08 99 22 20 37 22 3B  |.2200...;.." 7";|
00000EC0: 3A 89 32 32 30 30 00 D7  16 3C 08 99 22 20 38 22  |:.2200...<.." 8"|
00000ED0: 3B 3A 89 32 32 30 30 00  E8 16 3D 08 99 22 20 39  |;:.2200...=.." 9|
00000EE0: 22 3B 3A 89 32 32 30 30  00 F9 16 3E 08 99 22 31  |";:.2200...>.."1|
00000EF0: 30 22 3B 3A 89 32 32 30  30 00 0A 17 3F 08 99 22  |0";:.2200...?.."|
00000F00: 20 4A 22 3B 3A 89 32 32  30 30 00 1B 17 40 08 99  | J";:.2200...@..|
00000F10: 22 20 51 22 3B 3A 89 32  32 30 30 00 2C 17 41 08  |" Q";:.2200.,.A.|
00000F20: 99 22 20 4B 22 3B 3A 89  32 32 30 30 00 48 17 48  |." K";:.2200.H.H|
00000F30: 08 8B 20 41 46 4C 41 47  B2 31 A7 4B 46 4C 41 47  |.. AFLAG.1.KFLAG|
00000F40: B2 4B 46 4C 41 47 AA 31  00 5C 17 49 08 8B 20 4B  |.KFLAG.1.\.I.. K|
00000F50: 46 4C 41 47 B2 34 A7 20  36 30 37 30 00 71 17 98  |FLAG.4. 6070.q..|
00000F60: 08 52 39 B2 B5 28 28 52  AB 31 29 AD 31 33 29 AA  |.R9..((R.1).13).|
00000F70: 31 00 89 17 A2 08 99 53  24 28 52 39 29 3B 3A 99  |1......S$(R9);:.|
00000F80: C7 28 31 34 34 29 3B 3A  8E 00 A3 17 B8 0B 8F 20  |.(144);:....... |
00000F90: 44 49 53 50 4C 41 59 20  41 43 45 53 20 26 20 52  |DISPLAY ACES & R|
00000FA0: 4F 57 53 00 D3 17 D6 0B  99 22 93 52 4F 57 53 20  |OWS......".ROWS |
00000FB0: 20 2D 31 2D 20 20 2D 32  2D 20 20 2D 33 2D 20 20  | -1-  -2-  -3-  |
00000FC0: 2D 34 2D 20 20 2D 35 2D  20 20 2D 36 2D 20 20 2D  |-4-  -5-  -6-  -|
00000FD0: 37 2D 22 00 0F 18 D8 0B  99 22 11 11 C3 C3 C3 C3  |7-"......"......|
00000FE0: AE 22 3A 99 22 41 43 45  53 DD 11 9D DD 11 9D DD  |.":."ACES.......|
00000FF0: 11 9D DD 11 9D DD 11 9D  DD 11 9D DD 11 9D DD 11  |................|
00001000: 9D DD 11 9D DD 22 3A 99  22 C3 C3 C3 C3 BD 22 00  |.....":.".....".|
00001010: 24 18 DA 0B 81 20 58 B2  31 A4 34 3A 8D 31 30 30  |$.... X.1.4:.100|
00001020: 30 3A 82 58 00 2F 18 E0  0B 8D 20 33 31 30 30 00  |0:.X./.... 3100.|
00001030: 39 18 EA 0B 8D 33 35 30  30 00 3F 18 F4 0B 8E 00  |9....3500.?.....|
00001040: 58 18 1C 0C 8F 20 55 50  44 41 54 45 20 52 4F 57  |X.... UPDATE ROW|
00001050: 20 44 49 53 50 4C 41 59  00 6C 18 26 0C 99 22 13  | DISPLAY.l.&..".|
00001060: 11 11 22 3B 3A 81 59 B2  31 A4 31 38 00 83 18 28  |..";:.Y.1.18...(|
00001070: 0C 59 39 B2 59 AB 31 31  3A 8B 59 B3 31 32 A7 59  |.Y9.Y.11:.Y.12.Y|
00001080: 39 B2 31 00 98 18 2A 0C  99 A3 34 AA 28 28 59 39  |9.1...*...4.((Y9|
00001090: AB 31 29 AC 35 29 29 3B  00 B1 18 30 0C 81 20 58  |.1).5));...0.. X|
000010A0: B2 59 39 A4 37 3A 99 A6  32 29 3B 3A 8D 32 30 30  |.Y9.7:..2);:.200|
000010B0: 30 00 BF 18 4E 0C 82 58  3A 99 3A 82 59 3A 8E 00  |0...N..X:.:.Y:..|
000010C0: DB 18 80 0C 8F 20 4E 45  58 54 20 33 52 44 20 43  |..... NEXT 3RD C|
000010D0: 41 52 44 20 49 4E 20 44  45 43 4B 00 EC 18 94 0C  |ARD IN DECK.....|
000010E0: 8B 44 28 31 29 B2 30 A7  33 35 30 30 00 F6 18 B2  |.D(1).0.3500....|
000010F0: 0C 43 B2 43 AA 33 00 06  19 BC 0C 8B 28 43 B1 32  |.C.C.3......(C.2|
00001100: 34 29 A7 43 B2 33 00 24  19 C6 0C 8B 44 28 43 29  |4).C.3.$....D(C)|
00001110: AA 44 28 43 AB 31 29 AA  44 28 43 AB 32 29 B2 30  |.D(C.1).D(C.2).0|
00001120: A7 43 B2 33 00 3C 19 D0  0C 8B 44 28 43 29 B2 30  |.C.3.<....D(C).0|
00001130: A7 43 B2 43 AB 31 3A 89  33 32 38 30 00 56 19 AC  |.C.C.1:.3280.V..|
00001140: 0D 8F 20 55 50 44 41 54  45 20 44 45 43 4B 20 44  |.. UPDATE DECK D|
00001150: 49 53 50 4C 41 59 00 73  19 B6 0D 99 22 13 11 11  |ISPLAY.s...."...|
00001160: 11 11 11 11 11 11 11 11  11 11 11 11 11 44 45 43  |.............DEC|
00001170: 4B 11 22 00 8F 19 C0 0D  8B 44 28 31 29 B2 30 A7  |K."......D(1).0.|
00001180: 20 99 22 20 20 20 20 22  3B 3A 89 33 35 35 30 00  | ."    ";:.3550.|
00001190: AB 19 CA 0D 8B 44 28 31  29 B2 30 A7 20 99 22 20  |.....D(1).0. ." |
000011A0: 20 20 20 22 3B 3A 89 33  35 35 30 00 BC 19 D4 0D  |   ";:.3550.....|
000011B0: 52 B2 44 28 43 29 3A 8D  32 30 35 30 00 C9 19 D5  |R.D(C):.2050....|
000011C0: 0D 99 C7 28 31 34 34 29  3B 00 EB 19 DE 0D 58 B2  |...(144);.....X.|
000011D0: 41 3A 81 59 B2 31 A4 32  34 3A 8B 44 28 59 29 B3  |A:.Y.1.24:.D(Y).|
000011E0: B1 30 A7 58 B2 58 AA 31  3A 82 59 00 0A 1A E8 0D  |.0.X.X.1:.Y.....|
000011F0: 99 A3 20 39 29 3B 22 28  22 3B 58 3B 22 43 41 52  |.. 9);"(";X;"CAR|
00001200: 44 53 20 4C 45 46 54 20  29 22 00 10 1A F2 0D 8E  |DS LEFT )"......|
00001210: 00 2F 1A A0 0F 8F 20 42  41 43 4B 20 55 50 20 4C  |./.... BACK UP L|
00001220: 49 4E 45 53 20 54 48 45  4E 20 43 4C 45 41 52 00  |INES THEN CLEAR.|
00001230: 47 1A AA 0F 81 20 4C 31  B2 31 A4 4C 3A 99 22 91  |G.... L1.1.L:.".|
00001240: 22 3B 3A 82 20 4C 31 00  59 1A 88 13 8F 20 42 4C  |";:. L1.Y.... BL|
00001250: 41 4E 4B 20 4C 49 4E 45  53 00 66 1A 92 13 81 20  |ANK LINES.f.... |
00001260: 4C 31 B2 31 A4 4C 00 95  1A 9C 13 99 22 20 20 20  |L1.1.L......"   |
00001270: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001280: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001290: 20 20 20 20 22 00 9E 1A  A6 13 82 20 4C 31 00 B8  |    "...... L1..|
000012A0: 1A B0 13 81 20 4C 31 B2  31 A4 4C 3A 99 22 91 22  |.... L1.1.L:."."|
000012B0: 3B 3A 82 20 4C 31 3A 8E  00 DE 1A 70 17 8F 20 52  |;:. L1:....p.. R|
000012C0: 45 4D 4F 56 45 20 43 41  52 44 20 46 52 4F 4D 20  |EMOVE CARD FROM |
000012D0: 44 45 43 4B 20 26 20 44  49 53 50 4C 41 59 00 FA  |DECK & DISPLAY..|
000012E0: 1A 7A 17 81 20 58 B2 43  A4 32 34 3A 44 28 58 29  |.z.. X.C.24:D(X)|
000012F0: B2 44 28 58 AA 31 29 3A  82 58 00 0C 1B 84 17 8B  |.D(X.1):.X......|
00001300: 44 28 31 29 B2 30 A7 20  36 30 35 30 00 20 1B 8E  |D(1).0. 6050. ..|
00001310: 17 43 B2 43 AB 31 3A 8B  43 B3 31 A7 20 43 B2 33  |.C.C.1:.C.1. C.3|
00001320: 00 38 1B 98 17 8B 44 28  43 29 B2 30 A7 43 B2 43  |.8....D(C).0.C.C|
00001330: AB 31 3A 89 36 30 34 30  00 45 1B A2 17 8D 20 33  |.1:.6040.E.... 3|
00001340: 35 30 30 3A 8E 00 58 1B  B6 17 81 20 51 51 B2 31  |500:..X.... QQ.1|
00001350: A4 35 30 30 3A 82 51 51  00 88 1B B7 17 99 22 93  |.500:.QQ......".|
00001360: 22 3A 99 22 43 4F 4E 47  52 41 54 55 4C 41 54 49  |":."CONGRATULATI|
00001370: 4F 4E 53 2E 2E 2E 59 4F  55 27 56 45 20 57 4F 4E  |ONS...YOU'VE WON|
00001380: 21 21 21 21 21 22 3A 99  00 AF 1B B8 17 99 22 44  |!!!!!":......."D|
00001390: 4F 20 59 4F 55 20 57 41  4E 54 20 54 4F 20 50 4C  |O YOU WANT TO PL|
000013A0: 41 59 20 41 47 41 49 4E  22 3B 3A 85 51 51 24 00  |AY AGAIN";:.QQ$.|
000013B0: C6 1B B9 17 8B 20 C8 28  51 51 24 2C 31 29 B2 22  |..... .(QQ$,1)."|
000013C0: 59 22 20 A7 20 8A 00 DD  1B BA 17 8B 20 C8 28 51  |Y" . ....... .(Q|
000013D0: 51 24 2C 31 29 B2 22 4E  22 20 A7 20 80 00 E8 1B  |Q$,1)."N" . ....|
000013E0: BB 17 89 20 36 30 37 32  00 00 00                 |... 6072...     |

..!.... 53281,1:. 53280,6:.G(144).\...."
...........SHUFFLING CARDS FOR A GAME OF
 SOLITAIRE!"......:.:.:."     I'LL BE RE
ADY IN A FEW SECONDS"...... X.1. E(I(TI$
,2)).....R..(1):. X.G...AFLAG.0:KFLAG.0.
R...QQ$.""...... F(7,18),S(4),D(52),S$(4
).....S$(1)."S":S$(2)."Z":S$(3)."A":S$(4
)."X".@.... X.0.7:.Y.0.18:F(X,Y).0:.Y:.X
.V.(..X.0.4:S(X).0:. X.M.2..X.0.52:D(X).
0:. X...D.. SHUFFLE CARDS...N.. X.1.52..
.X.R..(.(1).52.1)...... D(R).0. 120.B...
D(R).X:. X...H.. DEAL CARDS INTO PILES..
.R.R.52:. X.1.7:.Y.1.X.....F(X,Y).D(R).1
00.....D(R).0:R.R.1:. Y.9...F(X,X).F(X,X
).100:. X.R.... DISPLAY EVERYTHING.A...C
.3:. 3000.U.... COMMAND INPUT......"....
..................";.....L.3:.5000......
"D=DECK,ROW#1-7,C=CARD,Q=QUIT; PLAY=.";:
.P$:P.E(P$)......(P.7).(P.0) . 990......
P.0. 700.$....P$."C". .3200:.500:. NEXT 
CARD.6.... P$.."Q".600.G.... QUITTER!!!.
[.... X.1.7:.Y.1.18.}.&..F(X,Y).100.F(X,
Y).F(X,Y).100...0.. Y:. X...:..3100...?.
L.3:.5000.H.D.."SORRY, BETTER LUCK NEXT 
TIME !!"...E..:."DO YOU WANT TO PLAY AGA
IN ";...F.. QQ$...G.. H(QQ$,1)."Y" . ..%
.H.. H(QQ$,1)."N" . ../.I.. 581.@.X..P$.
."D".990.W.Y.. FROM DECK TO ....G.Z..D(1
).0.995...[.V.D(C):S1..((D(C).1).13).1..
.\.. V.13. V.V.13:.604...].L.1:. 4000...
B.."FROM DECK TO (A=ACES, ROW#1-7) ";:. 
 R$...G..R$.."A" . 650...J.. FROM DECK T
O ACES.!.L..S1..(D(C).12).13. 630.4.O.. 
S(S1).0. 995.>.R.. 640.W.V..D(C)..S(S1).
1 . 995.~...S(S1).D(C):X.S1:. 1000:. 600
0:.500...... DECK TO ROW.....R.E(R$)....
.Y.1:.(R.1).(R.7). 990.G.... Y.18 . 995.
.....F(R,Y)..0. Y.Y.1:.665...... Y.1.680
...... V.13 . 690...... 995.....V1.F(R,Y
.1).7.... V1.13. V1.V1.13:. 682.J.... V.
.V1.1. 995.S...S2..((F(R,Y.1).1).26):S1.
.((S1.1).2)...... S1.S2 . 995.....F(R,Y)
.D(C):."PLEASE WAIT WHILE I FIX THE CARD
S !".R.... 6000:.3100:.500...... FROM RO
W TO ........Y.0:.F(P,1).0. 995...... SI
NGLE CARD IN ROW?./.A.Y.Y.1:.Y.18 . 995.
L.D.Y2.F(P,Y): .Y2.100 . 705.D.F..F(P,Y.
1)..0 . .730...L.. Y2.13 . Y2.Y2.13:. 71
6...M.. 749...P.. FROM WHAT CARD IN ROW 
?...Z.L.1:.4000......"FROM ROW"P"CARD (A
,2-10,J,Q,K,)  ";:. Y$ :Y1.E(Y$)...... Y
$."A". Y1.1......Y$."J" . Y1.11.+....Y$.
"Q" . Y1.12.?....Y$."K" . Y1.13.X....(Y1
.0).(Y1.13). 990.I.... Y.18 . 995.....Y2
.F(P,Y):.Y2.100.Y.Y.1:.745...... Y2.13 .
 Y2.Y2.13:.747......Y1..Y2. Y.Y.1:.745.V
...R.F(P,Y):L.1:. 4000......"FROM ";:. 2
050:." ROW"P"TO (A=ACES,ROW#1-7)  ";:. A
$.,.... FROM ROW/CARD TO ....F...S1..((F
(P,Y).1).13).1.Y.... A$.."A". 800.U.... 
FROM ROW/CARD TO ACES......F(P,Y.1).0. 9
95...... S1..(F(P,Y).12).13 . 765...... 
S(S1).0. 995.F.... 770......F(P,Y)..S(S1
).1 . 995.!...S(S1).F(P,Y):F(P,Y).0:.F(P
,Y.1).100 . F(P,Y.1).F(P,Y.1).100.J...."
PLEASE WAIT WHILE I FIX THE CARDS".E....
 3100:X.S1:.1000:.500... .. FROM ROW/CAR
D TO ROW...*.Q.E(A$).../.Z.1:.(Q.1).(Q.7
) . 990...4.. Z.18 . 995.T.9..F(Q,Z)..0 
. Z.Z.1:.820...>.. Z.1. 850...C.. Y2.13 
. 880...H.. 995...R.V1.F(Q,Z.1).*.W..V1.
13 . V1.V1.13:.855.?.\.. Y2..V1.1 . 995.
H.A.S2..((F(Q,Z.1).1).26):S1..((S1.1).2)
.Z.F.. S1.S2 . 995...P..F(P,Y.1).100 . F
(P,Y.1).F(P,Y.1).100...R.F(Q,Z).F(P,Y):F
(P,Y).0.O.U.Y.Y.1:Z.Z.1...Z..F(P,Y)..0 .
 882....."PLEASE WAIT WHILE I FIX THE C
ARDS !". .... 3100:. 500.-.... ERRORS.M.
..."INVALID RESPONSE !":. 997.B...."ILLE
GAL PLAY!".K...T.TI...... (TI.T).50 . 99
8...... 500...... DISPLAY ACES......"...
..";.D....X1.1.X:."..";:. X1......(S(X).
0).(X.2). ."  ";S$(X):.2030. .... S(X).0
 . . G(28);:."  ";S$(X);:.G(144);:. 2030
.:...R.S(X):. 2050:.:.2030.W.P.. DISPLAY
 CARDS IN PILES.D.U.R.F(X,Y).X.Z.. R.0..
"   ";:....... G(144);...... R.100 . ."X
XX";:.2030......2050.....AFLAG.0:..K....
 PRINT CARD.T...R1.R......R1.13 .R1.R1.1
3:.2056...... R.27 . . G(28);.O.... R1.2
101,2102,2103,2104,2105,2106,2107,2108,2
109,2110,2111,2112,2113.`.5.." A";:.2200
.Q.6.." 2";:.2200...7.." 3";:.2200...8..
" 4";:.2200...9.." 5";:.2200...:.." 6";:
.2200.F.;.." 7";:.2200.W.<.." 8";:.2200.
..=.." 9";:.2200...>.."10";:.2200...?.."
 J";:.2200...@.." Q";:.2200.,.A.." K";:.
2200.H.H.. AFLAG.1.KFLAG.KFLAG.1.\.I.. K
FLAG.4. 6070.Q...R9..((R.1).13).1......S
$(R9);:.G(144);:....... DISPLAY ACES & R
OWS.S.V..".ROWS  -1-  -2-  -3-  -4-  -5-
  -6-  -7-"...X.."..CCCC.":."ACES.......
.....................":."CCCC.".$.Z.. X.
1.4:.1000:.X./.... 3100.9....3500.?.....
X.... UPDATE ROW DISPLAY.L.&.."...";:.Y.
1.18...(.Y9.Y.11:.Y.12.Y9.1...*...4.((Y9
.1).5));...0.. X.Y9.7:..2);:.2000...N..X
:.:.Y:....... NEXT 3RD CARD IN DECK.....
.D(1).0.3500.....C.C.3......(C.24).C.3.$
.F..D(C).D(C.1).D(C.2).0.C.3.<.P..D(C).0
.C.C.1:.3280.V.... UPDATE DECK DISPLAY.S
...."................DECK."......D(1).0.
 ."    ";:.3550...J..D(1).0. ."    ";:.3
550...T.R.D(C):.2050.I.U..G(144);.....X.
A:.Y.1.24:.D(Y)..0.X.X.1:.Y....... 9);"(
";X;"CARDS LEFT )"......./. .. BACK UP L
INES THEN CLEAR.G.... L1.1.L:.".";:. L1.
Y.... BLANK LINES.F.... L1.1.L......"   
                                    "...
... L1...... L1.1.L:.".";:. L1:....P.. R
EMOVE CARD FROM DECK & DISPLAY...Z.. X.C
.24:D(X).D(X.1):.X......D(1).0. 6050. ..
.C.C.1:.C.1. C.3.8....D(C).0.C.C.1:.6040
.E.... 3500:..X.... QQ.1.500:.QQ......".
":."CONGRATULATIONS...YOU'VE WON!!!!!":.
......"DO YOU WANT TO PLAY AGAIN";:.QQ$.
F.... H(QQ$,1)."Y" . ....... H(QQ$,1)."N
" . ....... 6072...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL