2 PRINTCHR$(147)"WOULD YOU LIKE INSTRUCTIONS (Y/N)?
4 [161] A$: [139] A$[179][177] "Y" [175] A$[179][177]"N" [167] 4
6 [139] A$[178]"N" [167] 84
8 [153]"INSTRUCTIONS ON SCREEN OR PRINTER (S/P)?
10 GET B$: IF B$<> "S" AND B$<>"P" THEN 10
12 IF B$="S"THEN  D=3
14 IF B$="P" THEN D=4
16 OPEN D,D
18 PRINT#D,"
20 [152]D,"CARDS-31 BY JOHN FEDOR
22 PRINT#D,"
24 [152]D,"RUN IT RIGHT: C-64
26 PRINT#D,"
28 [152]D,"CARDS-31 IS AN ADAPTATION OF KNOCK, A
30 PRINT#D,"GAME WHERE YOU CAN WIN NICKELS BY
32 [152]D,"SCORING CLOSE TO 31 WITH CARDS OF ONE
34 PRINT#D,"SUIT. HERE THE POT HOLDS $5 BILLS. YOU
36 [152]D,"AND UP TO 4 COMPUTER OPPONENTS EACH
38 PRINT#D,"START WITH THREE CARDS AND $15. NUMBER
40 [152]D,"CARDS ARE WORTH FACE-VALUE, FACE CARDS
42 PRINT#D,"ARE WORTH 10 AND ACES 11.
44 [152]D,"
46 PRINT#D,"YOU HAVE FOUR OPTIONS: DRAW A CARD FROM
48 [152]D,"THE DECK; DRAW THE TOP CARD FROM THE
50 PRINT#D,"DISCARD PILE. IF YOU THINK YOU'RE
52 [152]D,"CLOSER TO 31 THAN YOUR OPPONENTS, ASK
54 PRINT#D,"THE COMPUTER FOR ADVICE OR KNOCK. WHEN
56 [152]D,"YOU DRAW, YOU MUST ALSO DISCARD.":[139] D[178]4 [167] 64
58 [152]D,"
60 PRINT"PRESS A KEY TO CONTINUE"
62 GET DD$:IF DD$="" THEN 62
64 PRINT#D,"
66 [152]D,"
68 PRINT#D,"
70 [152]D,"AFTER YOU KNOCK, EACH PLAYER GETS ONE
72 PRINT#D,"MORE TURN, THEN SCORES ARE COMPUTED.
74 [152]D,"YOUR SCORE IS THE HIGHEST TOTAL IN ONE
76 PRINT#D,"SUIT. LOSERS GIVE $5 TO THE POT, AND
78 [152]D,"A GAME CONTINUES UNTIL ONLY ONE PLAYER
80 PRINT#D,"HAS  MONEY LEFT AND WINS THE POT.
82 [152]D,"":[160]D
84 [153]"PRESS ANY KEY TO BEGIN THE PROGRAM..."
86 [161] E$:[139] E$[178]"" [167] 86
88 [156]
90 [143] CARDS 31 - JOHN FEDOR
92 [156]:[134] P$(5),D(52),H(5,4),Q(3),C$(13),S$(4),CA(5),MO(5),SC(4),T(4),TE(5)
94 [151]53280,11:[151]53281,12
96 [153]"LOADCARDS-31"
98 [153]"PROGRAMMED BY JOHN FEDOR"
100 [153]"HOW MANY OPPONENTS WOULD YOU LIKE (1-4)?"
102 [153]"(PRESS <D> IF YOU WOULD LIKE TO WATCH.)"
104 [151]198,0:PL$[178]"D":P$(1)[178]"OBSERVER"
106 [161]A$:[139](A$[179]"1"[176]A$[177]"4")[175]A$[179][177]"D"[167]106
108 [139]A$[178]"D"[167]OP[178]5:MO(1)[178]0:[137]120
110 [153]"LOADYOU WILL PLAY AGAINST "A$" OPPONENT";:OP[178][197](A$)[170]1:PL$[178]""
112 A$[178]"S.":[139]OP[178]2[167]A$[178]"."
114 [153]A$
116 [153]"WHAT SHALL I CALL YOU ";
118 [133]P$(1):P$(1)[178][200](P$(1),12):[129]I[178]1[164]5:MO(I)[178]0:[130]I:MO(1)[178]15:CA(1)[178]27
120 [129]I[178]2[164] OP:MO(I)[178]15
122 [135]P$(I),CA(I):[139]P$(I)[178]P$(1)[167]122
124 [130]I:TU[178]0
126 [131] FRED,30,TED,29,ALFRED,28,ERNEST,27,BERTRAM,25
128 [143] START AGAIN HERE
130 [153]"LOADTHE PLAYERS ARE:":KN[178]0
132 [129]I[178]1[164]OP:[153]P$(I)[163]15)"$"MO(I):[130]
134 [153]"POT:"[163]15)"$";
136 M[178]OP[172]15:[129]I[178]1[164]OP:M[178]M[171]MO(I):[130]I:[139]P$(1)[178]"OBSERVER"[167]M[178]M[171]15
138 [153]M
140 [153]"SHUFFLING DECK.........................";
142 [129]Y[178]0[164]3:[129]X[178]1[164]13:D(Y[172]13[170]X)[178]Y[172]100[170]X:[130]X:[153]"CMD CMD";:[130]Y
144 [129]X[178]1[164]21:[129]Y[178]1[164]7
146 Z1[178][181]([187](1)[172]52)[170]1:Z2[178][181]([187](1)[172]52)[170]1
148 Z3[178]D(Z1):D(Z1)[178]D(Z2):D(Z2)[178]Z3
150 [130]Y:[153]"CMD CMD";:[130]X:[153]
152 [153]"DEALING..."
154 DP[178]1:[143] DECK POINTER
156 [129]I[178]1[164] 3
158 [129]Z[178]1[164] OP
160 [139] MO(Z)[178]0[167]164
162 H(Z,I)[178]D(DP):DP[178]DP[170]1
164 [130]Z,I
166 DI[178]D(DP):DP[178]DP[170]1:[143] DISCARD PILE
168 [129]I[178]1[164]3:Q(I)[178]H(1,I):[130]:[143] FOR PRINT ROUTINE
170 TU[178]TU[170]1:[139]TU[177]OP[167]TU[178]1
172 [139] DP[177]52[167][153]"LOADNO MORE CARDS IN THE DECK.":[137]288
174 [139] KN[179][177]0 [167] KN[178]KN[171]1:[139] KN[178]0 [167][153]"LOADLAST ROUND COMPLETED.":[137]288
176 [139] MO(TU)[178]0[167]168
178 [153]"LOADYOUR HAND:"
180 [139] MO(1)[178]0 [167][153]""[163]13)"NOT AVAILABLEONONONON":[137]184
182 [141]  350
184 [153]"":[153]"DISCARD PILE:":Q(1)[178]DI:Q(2)[178]0:Q(3)[178]0:[141]350
186 [139]TU[177]1[167]256
188 [153]"WHAT WOULD YOU LIKE TO DO?"
190 [153]"1) PICK FROM DECK"
192 [153]"2) PICK FROM DISCARD PILE"
194 [153]"3) KNOCK"
196 [153]"4) ASK FOR ADVICE";:[151]198,0
198 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]198
200 [139]A$[178]"3"[175]KN[179][177]0[167]198
202 [139]A$[178]"3"[167] KN[178]OP:[153]"KNOCKING...";:[129]I[178]1[164]5000:[130]:[137]168
204 [139]A$[178]"4"[167]226
206 [139]A$[178]"1"[167]DI[178]D(DP):DP[178]DP[170]1
208 [153]"LOAD"[163]8)"(1)"[163]18)"(2)"[163]28)"(3)"
210 [129]I[178]1[164]3:Q(I)[178]H(1,I):[130]:[141]350
212 [153]""[163]18)"(4)"
214 Q(1)[178]0:Q(2)[178]DI:Q(3)[178]0:[141]350
216 [153]"WHICH ONE WOULD YOU LIKE TO DISCARD?"
218 [151]198,0
220 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]220
222 [139]A$[179][177]"4"[167]A[178]DI:DI[178]H(1,[197](A$)):H(1,[197](A$))[178]A
224 [137]168
226 [143] GIVE ADVICE
228 K1[178]31[171]OP[172]2[171]2[172](I[178]4)[171]4[172](I[178]5)
230 [143] CHECK TO SEE FOR DISCARD
232 H(1,4)[178]DI
234 [129]I[178]1[164]4:SC(I)[178]H(1,I):[130]
236 [141]386
238 [139]DR[178]4[167]242
240 [153]"LOADIF I WERE YOU, I WOULD PICK UP FROM THE DISCARD PILE.":[137]248
242 [139] KN[179][177]0[167]246
244 [139]SC[177][178]K1[167][153]"LOADIT WOULD SEEM LOGICAL TO KNOCK AT THIS  TIME.":[137]248
246 [153]"LOADYOU MIGHT AS WELL TAKE A CHANCE AND PICKA CARD FROM THE DECK."
248 [153]"PRESS <RETURN> TO CONTINUE."
250 [151]198,0
252 [161]A$:[139]A$[179][177][199](13)[167]252
254 TU[178]TU[171]1:[137]168
256 [143]  COMPUTER'S TURN
258 K1[178]CA(TU)
260 H(TU,4)[178]DI
262 [129]I[178]1[164]4:SC(I)[178]H(TU,I):[130]
264 [141]386:[153]"";
266 [139]DR[178]4 [167] 274
268 [139]DI[171][181](DI[173]100)[172]100[179]2 [175] KN[178]0 [167]280
270 A$[178]P$(TU)[170]" IS PICKING FROM THE DISCARD PILE.":[141]420
272 DI[178]H(TU,DR):H(TU,DR)[178]H(TU,4):[129]I[178]1[164]1000:[130]I:[137]168
274 [139] SC[179]K1 [176] KN[179][177]0 [167] 280
276 A$[178]P$(TU)[170]" IS KNOCKING.":[141]420
278 KN[178]OP:[129]I[178]1[164]1000:[130]I:[137]168
280 A$[178]P$(TU)[170]" PICKS A CARD FROM THE DECK.":[141]420
282 H(TU,4)[178]D(DP):DP[178]DP[170]1
284 [129]I[178]1[164]4:SC(I)[178]H(TU,I):[130]
286 [141]386:DI[178]H(TU,DR):H(TU,DR)[178]H(TU,4):[129]I[178]1[164]1000:[130]I:[137]168
288 [143] ROUND OVER
290 [153]"":[129]I4[178]1[164]OP:[141]432:[130]I4
292 X[178]0:SC[178]0:[129]I[178]1[164]OP:[139]TE(I)[177]SC[167]SC[178]TE(I)
294 [130]I
296 [129]I[178]1[164]OP:[139]TE(I)[178]SC[167]X[178]X[170]1
298 [130]I:A$[178]" IS":[139]X[177]1[167]A$[178]"S ARE"
300 [153]"THE WINNER"A$": ";
302 [129]I[178]1[164]OP:[139]TE(I)[178]SC[167][153]P$(I)",";
304 [139] TE(I)[179]SC[167]MO(I)[178]MO(I)[171]5:[139]MO(I)[179]0[167]MO(I)[178]0
306 [130]I:[153]"CMD."
308 [153]"PRESS <RETURN> TO CONTINUE."
310 [151]198,0
312 [161]A$:[139]A$[179][177][199](13)[167]312
314 X[178]0:[129]I[178]1[164]OP:[139]MO(I)[179][177]0[167]X[178]X[170]1
316 [130]I:[139]X[177]1[167]328
318 [153]"LOADTHE WINNER IS: ";
320 [129]I[178]1[164]OP:[139]MO(I)[179][177]0[167][153]P$(I)
322 [130]I:[153]"THE WINNING POT IS $";:M[178]OP[172]15:[129]I[178]1[164]OP:M[178]M[171]MO(I):[130]
324 [139]P$(1)[178]"OBSERVER"[167]M[178]M[171]15
326 [153]M:[137]342
328 [139] MO(1)[179][177]0 [167] 130
330 [139]PL$[178]"D"[167]130
332 [153]"LOADYOU ARE OUT OF THE GAME."
334 [153]"WOULD YOU LIKE TO WATCH THE OTHERS PLAY?"
336 [151]198,0
338 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]338
340 [139]A$[178]"Y"[167]PL$[178]"D":[137]130
342 [153]"PRESS <RETURN> TO RESTART."
344 [151]198,0
346 [161]A$:[139]A$[179][177][199](13)[167]346
348 [138]
350 [143] PRINT OUT CARD(S)
352 [129]I[178]1[164]3:A[178]Q(I):S[178][181](A[173]100):F[178]A[171]S[172]100:S[178]S[170]1
354 [139]Q(I)[178]0[167]382
356 S$(1)[178]"ATN":S$(2)[178]"(null)":S$(3)[178]"(null)":S$(4)[178]"(null)"
358 C$(1)[178]"2":C$(2)[178]"3":C$(3)[178]"4":C$(4)[178]"5":C$(5)[178]"6":C$(6)[178]"7":C$(7)[178]"8"
360 C$(8)[178]"9":C$(9)[178]"10":C$(10)[178]"J":C$(11)[178]"Q":C$(12)[178]"K":C$(13)[178]"A"
362 S$[178]S$(S):C$[178]C$(F)
364 [139][195](C$)[179]2[167]C$[178]" "[170]C$
366 [153][163](I[171]1)[172]10[170]5)"STEP       (null)WAIT"
368 [153][163](I[171]1)[172]10[170]5)" "C$"      WAIT"
370 [153][163](I[171]1)[172]10[170]5)"         WAIT"
372 [153][163](I[171]1)[172]10[170]5)"    "S$"    WAIT"
374 [153][163](I[171]1)[172]10[170]5)"         WAIT"
376 [153][163](I[171]1)[172]10[170]5)"      "C$" WAIT"
378 [153][163](I[171]1)[172]10[170]5)"(null)       WAITSTEP"
380 [153]"ONONONONONONONON"
382 [130]I
384 [142]
386 [143] SCORE THE HAND (SC(1)-SC(4))
388 [143] RETURN SC=BEST SCORE
390 [143]        DR=WORST CARD
392 [129]I[178]1[164]4:[139]SC(I)[178]0[167]SC(I)[178]500
394 [130]I
396 DR[178]1:SC[178]0:[129]I[178]1[164]4:[143] I IS THE CARD NOT TO BE INCLUDED DURING SEARCH
398 [129]X[178]1[164]4:T(X)[178]0:[130]X
400 [129]X[178]1[164]4:[139]X[178]I[167]408
402 A[178]SC(X):B[178][181](A[173]100):C[178]1[170]A[171]B[172]100:B[178]B[170]1:[139]C[177]10[167]C[178]10[171](C[178]14)
404 [139]B[177]4[167]408
406 T(B)[178]T(B)[170]C
408 [130]X:Q[178]0:[129]X[178]1[164]4:[139]T(X)[177]Q[167]Q[178]T(X)
410 [130]X:[139]Q[177]SC[167]SC[178]Q:DR[178]I:[137]418
412 [139]Q[179]SC[167]418
414 [139]I[178]4[167]DR[178]I:[137]418
416 [139]SC(DR)[171][181](SC(DR)[173]100)[172]100[177]SC(I)[171][181](SC(I)[173]100)[172]100[167]DR[178]I
418 [130]I:[142]
420 [143] PRINT OUT A$-> NO WRAP AROUND
422 X[178]0:[153]"";
424 [129]I[178]1[164][195](A$):[139][202](A$,I,1)[179][177]" "[167][130]I:I[178][195](A$)
426 [139]X[170]I[177]38[167][153]:[153]"";:X[178]0
428 X[178]X[170]I:[153][200](A$,I);:A$[178][201](A$,[195](A$)[171]I):[139]A$[179][177]""[167]424
430 [153]:[142]
432 [143] PRINT OUT NAME,CARDS,SCORE
434 [153]P$(I4);:[139]I4[178]TU[167][153]" (KNOCKED)";
436 [153][163]23):[139] MO(I4)[178]0[167][153]"OUT OF PLAY"[163]36):SC[178]0:[137]444
438 [129]X[178]1[164]3:A[178]H(I4,X):S[178][181](A[173]100):F[178]A[171]S[172]100:S[178]S[170]1
440 [153]C$(F)S$(S)"  ";:[130]X:[153][163]36)
442 [129]I[178]1[164]3:SC(I)[178]H(I4,I):[130]I:SC(4)[178]0:[141]386
444 [153]SC"   ":TE(I4)[178]SC:[142]