9 HOME : PRINT " SOLITAIRE BY ART CARPET": VTAB 12: HTAB 15: FLASH : PRINT "SHUFFLING": NORMAL : GOSUB 277: HGR2 : HCOLOR= 3: GOTO 63
10 IF M = 1 THEN 69
11 GOSUB 4:B$ = " INVALID":F = 190:H = A% +6: GOSUB 5: PRINT "<CTRL-G>": FOR I = 1 TO 100: NEXT : GOTO 69
12 H$ = STR$( VAL(H$) +1): IF N = 1 THEN P = P +5:Q = Q +5
13 RETURN
14 G(G(0)) = 0:G(0) = G(0) -1: RETURN
15 IF N = 2 THEN B$ = B$(R): RETURN
16 B$ = K$(G(G(0))): RETURN
17 R = R -1:S = S -1:B$ = B$(R)
18 IF N = 2 THEN F$ = B$(R): RETURN
19 F$ = K$(G(G(0))): RETURN
20 HPLOT T,V TO T +16,V TO T +16,V +20 TO T,V +20 TO T,V: RETURN
21 GOSUB 2: DRAW D AT A%,A%: DRAW B AT A%,A%: IF NOT FN D(A) THEN XDRAW B AT A%,A%
22 RETURN
23 GOSUB 2: XDRAW D AT A%,A%: XDRAW B AT A%,A%: RETURN
24 B$ = H$: IF LEN(H$) = 1 THEN B$ = "0" +H$
25 IF M$ < >H$ THEN X = 157: GOSUB 33:H = 157: GOSUB 5:M$ = H$
26 IF N = 2 THEN 42
27 I$ = STR$(Y):B$ = I$: IF LEN(I$) = 1 THEN B$ = "0" +I$
28 IF N$ < >I$ THEN X = 171: GOSUB 33:H = 171: GOSUB 5:N$ = I$
29 IF N = 2 THEN 44
30 J$ = STR$(G(0)):B$ = J$: IF LEN(J$) = 1 THEN B$ = "0" +J$
31 IF O$ < >J$ THEN X = 185: GOSUB 33:H = 185: GOSUB 5:O$ = J$
32 RETURN
33 HCOLOR= 0: FOR I = X TO X +6: HPLOT 267,I TO 279,I: NEXT : HCOLOR= 3:F = 267: RETURN
34 DRAW 65 AT 237,H
35 IF PEEK( -16384) = 155 THEN POKE -16368,0: POP : GOTO 46
36 IF PEEK( -16384) <193 OR PEEK( -16384) >202 THEN XDRAW 1 AT 239,H +3: FOR I = 1 TO 50: NEXT : DRAW 1 AT 239,H +3: FOR I = 1 TO 50: NEXT : GOTO 35
37 K = PEEK( -16384): POKE -16368,0: XDRAW 65 AT 237,H: RETURN
38 DRAW 65 AT G +5,H
39 IF PEEK( -16384) = 209 AND G < >95 THEN K = PEEK( -16384): POKE -16368,0: RETURN
40 IF PEEK( -16384) <193 OR PEEK( -16384) >208 THEN XDRAW 1 AT G +7,H +3: FOR I = 1 TO 50: NEXT : DRAW 1 AT G +7,H +3: FOR I = 1 TO 50: NEXT : GOTO 39
41 K = PEEK( -16384): POKE -16368,0: XDRAW 65 AT G +5,H: RETURN
42 I$ = STR$(S -R):B$ = I$: IF LEN(I$) = 1 THEN B$ = "0" +I$
43 GOTO 28
44 J$ = STR$(R):B$ = J$: IF LEN(J$) = 1 THEN B$ = "0" +J$
45 GOTO 31
46 TEXT : HOME : PRINT : PRINT "A) KLONDIKE (1 AT A TIME, ONCE THRU)": PRINT : PRINT "B) KLONDIKE VAR. (3 AT A TIME, NO LIMIT)": PRINT "C) PICTURE FRAME": PRINT : PRINT "D) PYRAMID": IF A1 +B1 +D1 +E1 = 0 THEN 49
47 IF N >2 THEN 49
48 PRINT : PRINT "E) CONTINUE GAME IN PROGRESS": IF FN F(A) = 52 THEN N = 0: GOTO 49
52 POKE -16368,0: PRINT : PRINT "CHOICE ";: GET A$: PRINT A$: IF A$ = "A" OR A$ = "B" OR A$ = "C" OR A$ = "D" THEN 57
53 IF B1 +A1 +D1 +E1 = 0 THEN 46
54 IF FN F(A) = 52 THEN 46
55 POKE -16304,0: POKE -16299,0: IF N = 1 OR N = 2 THEN 69
56 GOTO 46
57 N = 1: IF A$ = "B" THEN N = 2:A1 = A1 +1
58 IF A$ = "C" THEN N = 3:D1 = D1 +1: GOTO 62
59 IF A$ = "D" THEN N = 4:E1 = E1 +1: GOTO 62
60 IF N = 1 THEN P = -52:Q = Q -52:B1 = B1 +1
61 POKE -16368,0: PRINT : PRINT "DO YOU WANT AUTOMATIC FLIPPING? ";: GET A$: PRINT A$:J1 = 0: IF A$ = "Y" THEN J1 = 1
62 FOR I = 1 TO PEEK(79) +1 + VAL(A$):B% = RND(1): NEXT : GOTO 9
63 IF N = 3 THEN 177
64 IF N = 4 THEN 228
65 B$ = K$(1): GOSUB 2: DRAW D AT 11,0: DRAW B AT 11,0: IF NOT FN D(A) THEN XDRAW B AT 11,0
66 FOR I = 1 TO 6:U = I *22:Z = 0: FOR V = 1 TO I: DRAW 84 AT 11 +Z,U:Z = Z +9: NEXT :B$ = P$(I +1,F(I +1) +H(I +1)): GOSUB 2: DRAW D AT 11 +Z,U: DRAW B AT 11 +Z,U: IF NOT FN D(A) THEN XDRAW B AT 11 +Z,U
67 NEXT : FOR I = 0 TO 6: DRAW 85 AT 0,C: XDRAW I +35 AT 2,C +7:C = C +22: NEXT : DRAW 85 AT 0,A%: XDRAW 42 AT 2,177: DRAW 85 AT 118,A%: XDRAW 43 AT 120,177: DRAW 66 AT 131,A%: DRAW 85 AT 158,A%: XDRAW 44 AT 160,177: DRAW 42 AT 255,157: DRAW 43 AT 255,171: DRAW 44 AT 255,185:H$ = "00":I$ = "24":J$ = "00": IF N < >2 THEN 69
68 FOR I = 24 TO 1 STEP -1:A$(I) = K$(53 -I):B$(I) = "": NEXT :K1 = 24:S = 24:R = 0
69 GOSUB 283: IF M < >1 THEN 72
70 L1 = L1 +1: IF L1 >7 THEN L1 = 1
71 GOTO 74
72 IF J1 = 1 AND E(L1) = 1 AND H(L1) < >0 THEN GOSUB 24:Q$ = "":E$ = "": GOTO 74
73 GOSUB 24: GOSUB 4:Q$ = "":E$ = "":B$ = " PLAY":F = 200:H = A%: GOSUB 5: GOSUB 34: DRAW K -158 AT G +5,H:L1 = K -192: IF E(L1) = 1 AND H(L1) = 0 THEN E(L1) = 0
74 IF L1 = 8 THEN 10
75 IF L1 = 9 THEN 91
76 IF L1 = 10 THEN 97
77 T = L1:F$ = P$(L1,F(L1) +H(L1)):T = L1: IF F$ = "" THEN 10
78 E$ = "": IF F(L1) >1 THEN E$ = P$(L1,1 +H(L1))
79 IF E(L1) < >1 THEN 82
80 B$ = F$: GOSUB 2: XDRAW 66 AT F -9,H: DRAW D AT F -9,H: DRAW B AT F -9,H: IF NOT FN D(A) THEN XDRAW B AT F -9,H
99 GOSUB 18: IF VAL(F$) = 1 THEN B$ = F$: GOSUB 23: DRAW D AT FN C(A),A%: DRAW B AT FN C(A),A%: IF NOT FN D(A) THEN XDRAW B AT FN C(A),A%
100 IF VAL(F$) = 1 THEN 110
101 IF M = 1 THEN M1 = 8: GOTO 103
102 GOSUB 18:B$ = " TO":F = 200:H = 185: GOSUB 5: GOSUB 34: DRAW K -158 AT G +19,H:M1 = K -192
103 IF M1 >8 THEN 10
104 IF E(M1) = 1 AND H(M1) = 0 THEN E(M1) = 0
105 IF E(M1) = 1 THEN 10
106 IF M1 = 8 THEN B$ = F$:Q$ = G$( FN E(A)): IF VAL(Q$) +1 = VAL(B$) AND RIGHT$(Q$,1) = RIGHT$(B$,1) THEN 109
107 IF M1 < >8 THEN 113
108 GOTO 10
109 B$ = Q$: GOSUB 2: XDRAW D AT FN C(A),A%: XDRAW B AT FN C(A),A%:B$ = F$: GOSUB 23: DRAW D AT FN C(A),A%: DRAW B AT FN C(A),A%: IF NOT FN D(A) THEN XDRAW B AT FN C(A),A%
110 IF N = 2 THEN 140
111 GOSUB 14:G$( FN E(A)) = F$: GOSUB 12: IF G(0) >0 THEN GOSUB 15: GOSUB 21
112 GOTO 69
113 IF F(M1) +H(M1) >0 THEN 119
114 IF VAL(F$) < >13 THEN 10
115 B$ = F$: GOSUB 23:T = M1: DRAW D AT 11,(M1 -1) *22: DRAW B AT 11,(M1 -1) *22: IF NOT FN D(A) THEN XDRAW B AT 11,(M1 -1) *22
166 GOSUB 300:Q1 = F(L1):U = U +1:F(L1) = U: GOSUB 2: XDRAW D AT F -18,H: XDRAW B AT F -18,H:F(L1) = Q1:O = H(L1): IF P1 = 1 AND H(L1) >0 THEN DRAW 66 AT F -27,H:E(L1) = 1:P1 = 2
167 O = O +1: IF P$(L1,O +1) = "" THEN 169
168 P$(L1,O) = P$(L1,O +1): GOTO 167
169 P$(L1,H(L1) +F(L1)) = "":F(L1) = F(L1) -1:T = M1: GOSUB 2: DRAW D AT F,H: DRAW B AT F,H: IF NOT FN D(A) THEN XDRAW B AT F,H
170 P$(M1,F(M1) +H(M1) +1) = F$:F(M1) = F(M1) +1: IF F(L1) = 0 AND H(L1) >0 AND P1 < >2 THEN T = L1: GOSUB 2: DRAW 66 AT F -9,H:E(L1) = 1: GOTO 69
171 IF F(L1) >0 THEN E$ = P$(L1,H(L1) +1):Q$ = P$(M1,F(M1) +H(M1)): GOTO 164
172 GOTO 69
173 IF M1 >8 THEN 10
174 B$ = F$:Q$ = G$( FN E(A)): IF VAL(Q$) +1 = VAL(B$) AND RIGHT$(Q$,1) = RIGHT$(B$,1) THEN 176
175 GOTO 10
176 B$ = Q$: GOSUB 2: XDRAW D AT FN C(A),A%: XDRAW B AT FN C(A),A%:E = 2: GOTO 83
177 HGR2 : DRAW 45 AT 5,3: DRAW 51 AT 15,3: DRAW 51 AT 25,3: DRAW 45 AT 35,3: DRAW 44 AT 5,13: DRAW 44 AT 35,13: DRAW 44 AT 5,23: DRAW 44 AT 35,23: DRAW 45 AT 5,33: DRAW 51 AT 15,33: DRAW 51 AT 25,33: DRAW 45 AT 35,33: HPLOT 0,0 TO 44,0 TO 44,43 TO 0,43 TO 0,0:T = 240:V = 3: FOR I = 35 TO 50: DRAW I AT T,V:T = T +10: IF T >270 THEN T = 240:V = V +10
178 NEXT : HPLOT 235,0 TO 279,0 TO 279,43 TO 235,43 TO 235,0: FOR A = 1 TO 16: GOSUB 220: GOSUB 20:R$(A) = "": NEXT :R1 = 1:S1 = 0: IF A = 2 OR A = 6 OR A = 10 OR A = 14 THEN T1 = 114
179 B$ = "DISCARDS":F = 0:H = 55: GOSUB 5: HPLOT 0,65 TO 53,65: ROT= 32:T = 279: FOR I = 1 TO 51: DRAW 84 AT T,165: HCOLOR= 0: FOR V = T -8 TO T -4: HPLOT V,145 TO V,166: NEXT : HCOLOR= 3:T = T -5: NEXT : XDRAW 84 AT T,165: DRAW 66 AT T,165: ROT= 0
180 GOSUB 225: IF U = 0 THEN 204
181 B$ = K$(R1): GOSUB 3:U1 = R1 *5 +3: XDRAW 66 AT U1,145: DRAW D AT U1,145: DRAW B AT U1,145: IF NOT FN D(A) THEN XDRAW B AT U1,145
182 GOTO 198
183 GOSUB 227:B$ = "POSITION ?":F = 10:H = 180: GOSUB 5: GOSUB 38: DRAW K -158 AT G +5,H:A = K -192:B$ = K$(R1):J1 = VAL(B$): IF A = 17 THEN 183
184 IF R$(A) < >"" THEN 214
185 IF J1 = 13 AND A < >1 AND A < >4 AND A < >13 AND A < >16 THEN 213
186 IF J1 = 12 AND A < >2 AND A < >3 AND A < >14 AND A < >15 THEN 213
187 IF J1 = 11 AND A < >5 AND A < >8 AND A < >9 AND A < >12 THEN 213
188 IF J1 >10 THEN S1 = S1 +J1
189 R$(A) = B$: IF R1 >52 THEN END
190 GOSUB 220: GOSUB 20:B$ = K$(R1): GOSUB 3:U1 = R1 *5 +3: XDRAW D AT U1,145: XDRAW B AT U1,145: IF R1 < >52 THEN 193
191 DRAW D AT T1,V1: DRAW B AT T1,V1:U = 0:R1 = R1 +1: IF NOT FN D(A) THEN XDRAW B AT T1,V1
192 GOTO 197
193 DRAW 66 AT U1 +5,145: DRAW D AT T1,V1: DRAW B AT T1,V1:U = U -1:R1 = R1 +1: IF NOT FN D(A) THEN XDRAW B AT T1,V1
194 IF U < >0 THEN B$ = K$(R1): GOSUB 3: XDRAW 66 AT U1 +5,145: DRAW D AT U1 +5,145: DRAW B AT U1 +5,145: IF NOT FN D(A) THEN XDRAW B AT U1 +5,145
195 IF S1 = 144 THEN 197
196 IF U = 0 THEN 202
197 IF S1 = 144 THEN B$ = "CONGRATULATIONS, YOU WON!": GOSUB 227: PRINT "<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>":F = 10:H = 174: GOSUB 5:B$ = "PRESS ANY KEY FOR ANOTHER GAME.":F = 10:H = 184: GOSUB 5: GET A$:H1 = H1 +1: GOTO 46
198 IF VAL(K$(R1)) = 13 AND R$(1) < >"" AND R$(4) < >"" AND R$(13) < >"" AND R$(16) < >"" THEN 215
199 IF VAL(K$(R1)) = 12 AND R$(2) < >"" AND R$(3) < >"" AND R$(14) < >"" AND R$(15) < >"" THEN 215
200 IF VAL(K$(R1)) = 11 AND R$(5) < >"" AND R$(8) < >"" AND R$(9) < >"" AND R$(12) < >"" THEN 215
201 IF U < >0 THEN 183
202 GOSUB 227:W1 = 0: FOR T = 1 TO 15: FOR V = T +1 TO 16:X1 = VAL(R$(T)):Y1 = VAL(R$(V)): IF X1 +Y1 = 10 OR X1 = 10 OR Y1 = 10 THEN W1 = 1
203 NEXT : NEXT : IF W1 = 0 THEN 215
204 B$ = "CARD TO REMOVE (TYPE 'Q' IF NONE) ?": GOSUB 227:F = 10:H = 174: GOSUB 5: GOSUB 38: DRAW K -158 AT G +5,H:A = K -192: IF A = 17 THEN 180
205 IF VAL(R$(A)) >10 THEN 216
206 IF VAL(R$(A)) = 10 THEN GOSUB 212: GOTO 204
207 B$ = "SECOND CARD ?":F = 10:H = 184: GOSUB 5: GOSUB 38: DRAW K -158 AT G +5,H:Z1 = K -192: IF VAL(R$(Z1)) >10 THEN 216
208 IF VAL(R$(Z1)) = 10 THEN 217
209 IF VAL(R$(Z1)) + VAL(R$(A)) < >10 THEN 217
210 IF R$(Z1) = R$(A) THEN B$ = "CAN'T USE SAME CARD!": GOTO 218
211 GOSUB 212:A = Z1: GOSUB 212: GOTO 204
212 B$ = R$(A):R$(A) = "": GOSUB 3: GOSUB 220: XDRAW D AT T,V: XDRAW B AT T,V: GOSUB 20: XDRAW 66 AT 15,70: FOR I = 1 TO 100: NEXT : DRAW 66 AT 15,70: RETURN
213 B$ = "SORRY, INVALID MOVE!": GOTO 219
214 B$ = "SORRY, SPACE OCCUPIED!": GOTO 219
215 GOSUB 227:B$ = "SORRY, YOU HAVE NO MOVE!":F = 10:H = 175: PRINT "<CTRL-G><CTRL-G><CTRL-G>": GOSUB 5:B$ = "PRESS ANY KEY FOR ANOTHER GAME.":F = 10:H = 184: GOSUB 5: GET A$:S1 = 144: GOTO 46
216 B$ = "CANNOT REMOVE A FACE CARD!": GOTO 218
217 B$ = "CARDS MUST TOTAL 10 POINTS!": GOTO 218
218 GOSUB 227: PRINT "<CTRL-G>":F = 10:H = 180: GOSUB 5: FOR I = 1 TO 1000: NEXT : GOTO 204
219 GOSUB 227: PRINT "<CTRL-G>":F = 10:H = 180: GOSUB 5: FOR I = 1 TO 1000: NEXT : GOTO 183
220 V1 = 115: IF A <13 THEN V1 = 80: IF A <9 THEN V1 = 45: IF A <5 THEN V1 = 10
221 T1 = 184: IF A = 1 OR A = 5 OR A = 9 OR A = 13 THEN T1 = 79
222 IF A = 2 OR A = 6 OR A = 10 OR A = 14 THEN T1 = 114
223 IF A = 3 OR A = 7 OR A = 11 OR A = 15 THEN T1 = 149
224 T = T1:V = V1: RETURN
225 U = 0: FOR I = 1 TO 16: IF R$(I) = "" THEN U = U +1
226 NEXT : RETURN
227 HCOLOR= 0: FOR I = 174 TO 191: HPLOT 10,I TO 260,I: NEXT : HCOLOR= 3: RETURN
228 HGR2 :W = 1:U = 1:T = 171:V = 0:B$ = K$(1): GOSUB 3: DRAW D AT T,V: DRAW B AT T,V: IF NOT FN D(A) THEN XDRAW B AT T,V
229 FOR Z = 158 TO 93 STEP -13:V = V +21:U = U +1:T = Z: FOR J = 1 TO U:W = W +1:B$ = K$(W): GOSUB 3: DRAW D AT T,V: DRAW B AT T,V: IF NOT FN D(A) THEN XDRAW B AT T,V
230 T = T +26: NEXT : NEXT :A2 = 130:B2 = 29: FOR I = 150 TO 160: HPLOT 93,I TO 265,I: NEXT : FOR I = 0 TO 12: XDRAW I +35 AT I *13 +99,152: NEXT : FOR I = 1 TO 7: FOR V = 1 TO 7:S$(I,V) = "": NEXT :B$ = "PRESS 'ESC' TO END":F = 123:H = 164: GOSUB 5: HPLOT 119,161 TO 119,173 TO 241,173 TO 241,161: FOR V = 0 TO 10: HPLOT 0,V TO 16,V: HPLOT 48,V TO 64,V: NEXT : XDRAW 48 AT 6,2: XDRAW 49 AT 54,2
231 ROT= 0:V = 15: FOR I = 1 TO 23: DRAW 66 AT 0,V: HCOLOR= 0: FOR U = V +5 TO V +20: HPLOT 0,U TO 21,U: NEXT : HCOLOR= 3:V = V +5: NEXT : DRAW 66 AT 0,V:B$ = "DISCARDS":F = 30:H = 65: GOSUB 5: HPLOT 30,75 TO 83,75
232 IF D2 = 0 THEN B$ = "CONGRATULATIONS, YOU DID IT!": GOSUB 227:F = 0:H = 174: PRINT "<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>": GOSUB 5:B$ = "PRESS ANY KEY FOR ANOTHER GAME":F = 0:H = 184: GOSUB 5:I1 = I1 +1:N = 0: GET A$: GOTO 46
233 B$ = "MOVE ?":F = 79:H = 184: GOSUB 227: GOSUB 5: GOSUB 257: DRAW K -158 AT G +5,H:A = K -192: IF A = 14 THEN GOSUB 261: GOTO 233
234 IF A < >15 THEN 238
235 IF G(0) = 0 THEN GOSUB 273: GOTO 232
236 B$ = K$(G(G(0))): IF VAL(B$) < >13 THEN T$ = B$:C2 = A: GOTO 242
237 GOSUB 266: GOTO 232
238 C1 = 0: FOR I = 7 TO 1 STEP -1: IF I(I,A) < >0 THEN C1 = I:I = 1
239 NEXT : IF C1 = 0 THEN GOSUB 273: GOTO 232
240 IF I(C1 +1,A -1) +I(C1 +1,A +1) < >0 THEN GOSUB 271: GOTO 232
241 T$ = K$(I(C1,A)):C2 = A:E2 = C1: IF VAL(T$) = 13 THEN B$ = T$: GOSUB 268: GOTO 232
242 B$ = "AND ?":F = 150:H = 184: GOSUB 5: GOSUB 257: DRAW K -158 AT G +5,H:A = K -192: IF A = 14 THEN GOTO 274
243 IF A < >15 THEN 249
244 IF A = C2 THEN GOTO 274
245 IF G(0) = 0 THEN GOSUB 273: GOTO 232
246 B$ = K$(G(G(0))): IF VAL(B$) = 13 THEN GOSUB 272: GOTO 232
247 IF VAL(B$) + VAL(T$) < >13 THEN GOSUB 272: GOTO 232
258 IF PEEK( -16384) = 155 THEN POKE -16368,0: POP : GOTO 46
259 IF PEEK( -16384) <193 OR PEEK( -16384) >207 THEN XDRAW 1 AT G +7,H +3: FOR I = 1 TO 50: NEXT : DRAW 1 AT G +7,H +3: FOR I = 1 TO 50: NEXT : GOTO 258
260 K = PEEK( -16384): POKE -16368,0: XDRAW 65 AT G +5,H: RETURN
261 IF A2 <15 THEN B$ = "NO CARDS LEFT!":F = 79:H = 184: GOSUB 227: PRINT "<CTRL-G>": GOSUB 5: FOR I = 1 TO 500: NEXT : RETURN
262 XDRAW 66 AT 0,A2: IF G(0) >0 THEN B$ = K$(G(G(0))): GOSUB 3: XDRAW D AT 48,15: XDRAW B AT 48,15
263 B$ = K$(B2): GOSUB 3: DRAW D AT 48,15: DRAW B AT 48,15: IF NOT FN D(A) THEN XDRAW B AT 48,15
266 GOSUB 3: XDRAW D AT 48,15: XDRAW B AT 48,15:G(G(0)) = 0:G(0) = G(0) -1: XDRAW 66 AT 48,80: FOR I = 1 TO 50: NEXT : DRAW 66 AT 48,80: IF G(0) >0 THEN B$ = K$(G(G(0))): GOSUB 3: DRAW D AT 48,15: DRAW B AT 48,15: IF NOT FN D(A) THEN XDRAW B AT 48,15
267 RETURN
268 GOSUB 3: XDRAW D AT D(A),J(C1): XDRAW B AT D(A),J(C1): XDRAW 66 AT 48,80: FOR I = 1 TO 50: NEXT : DRAW 66 AT 48,80:I(C1,A) = 0:D2 = D2 -1:F2 = 0: FOR I = 7 TO 1 STEP -1: IF I(I,A) < >0 THEN F2 = I
269 NEXT : IF F2 = 0 THEN HCOLOR= 0: HPLOT D(A) +8,0 TO D(A) +8,149: HCOLOR= 3: RETURN
270 FOR I = J(C1) -21 TO 149 STEP 4: HPLOT D(A) +8,I: NEXT : RETURN
271 B$ = "CARD IS BLOCKED!":F = 79:H = 184: GOSUB 227: PRINT "<CTRL-G>": GOSUB 5: FOR I = 1 TO 500: NEXT : RETURN
272 B$ = "CARDS MUST TOTAL 13 POINTS!":F = 79:H = 184: GOSUB 227: PRINT "<CTRL-G>": GOSUB 5: FOR I = 1 TO 500: NEXT : RETURN
273 B$ = "NO CARD AT THAT LOCATION!":F = 79:H = 184: GOSUB 227: PRINT "<CTRL-G>": GOSUB 5: FOR I = 1 TO 500: NEXT : RETURN
274 B$ = "INVALID COMBINATION": GOSUB 227:F = 79:H = 184: PRINT "<CTRL-G>": GOSUB 5: FOR I = 1 TO 500: NEXT : GOTO 232
276 FOR I = 1 TO 13:C$(I) = STR$(I) +"A":C$(I +13) = STR$(I) +"B":C$(I +26) = STR$(I) +"C":C$(I +39) = STR$(I) +"D": NEXT : RETURN
277 FOR I = 0 TO 7:E(I) = 0:F(I) = 0:H(I) = 0: NEXT :N$ = "0":O$ = "0": FOR I = 1 TO 4:G$(I) = "": NEXT :M = 0:C = 0:G = 0: FOR I = 0 TO 30:G(I) = 0: NEXT : FOR I = 1 TO 7: FOR V = 1 TO 18:P$(I,V) = "": NEXT : NEXT :I = FRE(0): FOR I = 1 TO 1 + PEEK(79):B% = RND(1): NEXT : FOR I = 1 TO 52:D(I) = 0: NEXT :A% = 171
278 FOR T = 1 TO 52:B% = RND(1) *52 +1:M$ = C$(B%):C$(B%) = C$(T):C$(T) = M$: NEXT : FOR T = 1 TO 52:K$(T) = C$(T): NEXT
279 M$ = "0": IF N >2 THEN 281
280 FOR I = 1 TO 7:P$(I,1) = K$(I):F(I) = 1:H(I) = I -1: NEXT : FOR I = 2 TO 7:P$(I,2) = K$(I +6): NEXT : FOR I = 3 TO 7:P$(I,3) = K$(I +11): NEXT : FOR I = 4 TO 7:P$(I,4) = K$(I +15): NEXT : FOR I = 5 TO 7:P$(I,5) = K$(I +18): NEXT : FOR I = 6 TO 7:P$(I,6) = K$(I +20): NEXT :P$(7,7) = K$(28):Y = 24:T = 0: RETURN
281 IF N = 3 THEN RETURN
282 T = 93: FOR I = 1 TO 13:D(I) = T:T = T +13: NEXT :T = 0: FOR I = 1 TO 7:J(I) = T:T = T +21: NEXT :U = 8: FOR T = 1 TO 7:U = U -1: FOR V = 0 TO T -1:G = G +1:I(T,U +(V *2)) = G: NEXT : NEXT :D2 = 28: RETURN
283 IF FN F(A) = 52 THEN POP : GOTO 294
284 IF M = 1 THEN RETURN
285 IF N < >2 THEN 289
286 IF S < >0 THEN RETURN
287 IF R < >0 THEN RETURN
288 GOTO 291
289 IF Y < >0 THEN RETURN
290 IF G(0) >0 THEN RETURN
291 G2 = 0: FOR I = 1 TO 7: IF H(I) = 0 THEN G2 = G2 +1
292 NEXT : IF G2 < >7 THEN RETURN
293 M = 1: RETURN
294 H$ = "52":Y = 0:G(0) = 0:R = 0:S = 0: GOSUB 24: PRINT "<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>":B$ = "CONGRATULATIONS!":F = 100:H = 80: GOSUB 5:B$ = "YOU DID IT!":F = 115:H = 100: GOSUB 5: IF N = 1 THEN P = P +(52 - VAL(H$)) *5:F1 = F1 +1:Q = Q +(52 - VAL(H$)) *5
295 IF N = 2 THEN G1 = G1 +1
296 B$ = "PLEASE PRESS ANY KEY":F = 86:H = 120: GOSUB 5: POKE -16368,0: GET A$: GOTO 46
300 IF F(L1) <2 THEN RETURN
301 POP :H = (L1 -1) *22:F = H(L1) *9 +11:HU = 0:HL = H +20: FOR ZZ = F TO F +(F(L1) *18) -36 STEP 18:HU = HU +1: HCOLOR= 0: FOR ZA = ZZ -2 *HU TO ZZ +16: HPLOT ZA,H TO ZA,HL: NEXT : HCOLOR= 3: IF P1 = 1 AND ZZ = F AND H(L1) >0 THEN DRAW 66 AT ZZ -9,H:E(L1) = 1:P1 = 2
302 HPLOT ZA,H TO ZA -1,H TO ZA -1,HL TO ZA,HL: NEXT : HCOLOR= 0: FOR HU = ZZ -(F(L1) *2) -2 TO ZZ +17: HPLOT HU,H TO HU,HL: NEXT : HCOLOR= 3
303 T = M1: FOR ZZ = 1 TO F(L1):B$ = P$(L1,H(L1) +ZZ): GOSUB 2:F(M1) = F(M1) +1:P$(M1,H(M1) +F(M1)) = B$: DRAW D AT F,H: DRAW B AT F,H: IF NOT FN D(A) THEN XDRAW B AT F,H
304 NEXT : FOR ZZ = 1 TO F(L1):P$(L1,H(L1) +ZZ) = "": NEXT :F(L1) = 0: GOTO 69