2 IFA=.THENA=1:BA=36173:POKEBA+1079,4:POKE54296,0:POKE56,141:CLR:A=1:LOAD"SHUFFLE",8,1
4 IFA=1THENA=2:QW=RND(-TI):CH=.:M1=.:LOAD"CLEAR IT!",8,1
6 IFA=2THENA=3:GOSUB866:LOAD"ENTERTAINER",8,1
8 L=49152:BA=36173:A=.
10 POKE53281,0:POKE53280,.:POKE49,PEEK(47):POKE50,PEEK(48):DIMSC$(112),CC$(36),MC$(36),A$(15)
12 REM
14 R$="[167]   [165][146][157][157][157][157][157]":B$=" [164][164][164] [146][157][157][157][157][157]"+R$+R$+R$+" [163][163][163] [157][157][157][157][157][145][145][145][145][145]
16 L$[178]"":Z$[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
17 CN[178].:CL$[178]"WAIT":[129]HG[178]1[164]50:CL$[178]CL$[170]"    ":[130]:[141]1000
18 [139][194](1079[170]BA)[178]4[167][151]54296,15:[158]BA[170]155:[151]BA[170]1079,0       
19 [137]30
20 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
22 REM"265: SHUFFLING #1
24 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
26 REM
28 GOTO1000
30 CN=.:PRINT"[147]DEALING...":FORK=1TO7
32 CN=CN+1:CC$(K)=SC$(CN):CN=CN+1:MC$(K)=SC$(CN):SC$(CN)="":NEXT
34 PRINT"[147]";:NM=7:NC=7:CN=CN+1:CP$=SC$(CN):SC$(CN)="":GOSUB96:GOTO624
36 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
38 [143] 300:    PRINT HAND
40 DC[178].:[143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
42 POKE198,0:GOTO60:IFNM>36THENNM=35:MC$(36)=""
44 IFNM<36THENIC=1
46 IFNM<19THENIC=2
48 IFNM<13THENIC=3
50 IFNM<10THENIC=4
52 IFNM<8THENIC=5
54 IFNM<7THENIC=6
56 IFCN=106THENGOSUB26
58 PRINT"";:FORH=1TONM:PRINTMC$(H)"[145][145][145][157][157][157][157]";LEFT$(L$,IC);:NEXTH
60 PRINT"[155][146]                                  "
62 PRINT"[155][146]COMPUTER HAS"NC"CARDS LEFT.       "
64 IFNC>1THENPOKEBA+1079,0
66 PRINT"[146] USE LEFT CURSOR KEY TO MOVE ARROW (^)."
68 IFNC=1THENPOKEBA+1079,3
70 PRINT"PRESS RETURN TO PLAY CARD OR TO  EXECUTE";
72 PRINT"     FUNCTION ARROW IS POINTING TO."
74 IFDC=.THENPRINT"                                    DRAW";:GOTO78
76 PRINT"                                    PASS";
78 PRINT"^[157]";:X=1:CL=1
80 GETA$:IFA$=""THEN80
82 IFA$=""ANDCL<NMANDX+IC<37THENPRINT" [157]";LEFT$(L$,IC);:X=X+IC:PRINT"^[157]";:CL=CL+1:GOTO80
84 IFA$=""ANDX<37THENPRINT" [157]";:FORZ=XTO36:PRINT"";:NEXT:PRINT"^[157]";:X=37:CL=CL+1:GOTO80
86 IFA$=""ANDX=>37THENX=1:CL=1:PRINT" [157]^[157]";:GOTO80
88 IFA$=CHR$(13)ANDCL<=NMTHENPRINT" [157]";:TC$=MC$(CL):GOSUB118:IFCO<>0THEN132
90 IFA$=CHR$(13)ANDCL>NMTHENPRINT" [157]";:GOTO708
92 REM
94 PRINT"^[157]";:GOTO80
96 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
98 [143]"PRINT DECK OF CARDS
100 PRINT"";CP$"[145][145][145][151]"+B$+"[151]![146]";
102 IFLEFT$(CP$,1)<>"[151]"THENXC$=LEFT$(CP$,1):GOTO106
104 XC$=WC$
106 PRINT""LEFT$(XC$,1)"    [157][187][146]";
108 IFLEFT$(CP$,1)<>"[151]"THENWC$=LEFT$(CP$,1)
110 RETURN
112 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
114 [143]"CHECK PLAY
116 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
118 [139][200](TC$,1)[178][200](CP$,1)[176][202](TC$,71,1)[178][202](CP$,71,1)[167]CO[178]1:[142]
120 [139][200](TC$,1)[178]"POKE"[167]CO[178]1:[142]
122 [139][200](TC$,1)[178]WC$[167]CO[178]1:[142]
124 CO[178].:[142]
126 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
128 REM"PLAY ROUTINE FOR PLAYER
130 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
132 CP$=TC$:GOSUB96:Q=.:MC$(CL)=""
134 FORJ=1TONM:Q=Q+1:IFMC$(J)=""THENQ=Q-1:NEXT:NM=NM-1:GOTO138
136 MC$(Q)=MC$(J):NEXT:NM=NM-1
138 GOSUB848:IFNM=.THENGOSUB888:POKE198,0:GOTO144
140 GOTO168
142 POKEBA+1079,0:GOTO168
144 PRINT"[147]";:GOSUB812:GOSUB96:PRINT"YOU WON!!!!":INPUT"PLAY AGAIN";A$
146 IFLEFT$(A$,1)="Y"THEN8
148 GOTO780
150 Q=.:GOSUB768
152 FORJ=1TONC:IFCC$(J)=""THENNEXT:NC=Q:GOTO156
154 Q=Q+1:CC$(Q)=CC$(J):NEXT:NC=Q
156 IFNC=.THENGOSUB902:POKE198,0:GOTO162
158 IFNC=1THENPOKEBA+1079,3:RETURN
160 POKEBA+1079,0:RETURN
162 PRINT"[147]";:GOSUB826:GOSUB96:PRINT"I WON!!!!":INPUT"PLAY AGAIN";A$
164 IFLEFT$(A$,1)="Y"THEN8
166 GOTO780
168 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
170 [143]"CHECK CARD
172 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
174 [139][197]([202](CP$,71,1))[177]0[176][202](CP$,71,1)[178]"0"[167]210
176 [139][200](CP$,1)[178]"POKE"[167]184
178 [139][202](CP$,71,1)[178]"S"[167]DC[178].:[137]42
180 [139][202](CP$,71,1)[178]"R"[167]DC[178].:[137]42
182 [129]KK[178]1[164]2:NC[178]NC[170]1:CN[178]CN[170]1:CC$(NC)[178]SC$(CN):SC$(CN)[178]"":[130]:DC[178].:[137]42
184 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
186 REM"WILD CARD FROM PLAYER
188 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
190 DF=.:IFMID$(CP$,71,1)<>"!"THEN194
192 DF=1:FORKK=1TO4:NC=NC+1:CN=CN+1:CC$(NC)=SC$(CN):SC$(CN)="":NEXT
194 INPUT"[146]RED/BLUE/YELLOW/GREEN";V$:PRINT""
196 IFLEFT$(V$,1)="R"THENWC$="":GOTO204
198 IFLEFT$(V$,1)="B"THENWC$="":GOTO204
200 IFLEFT$(V$,1)="Y"THENWC$="[158]":GOTO204
202 IFLEFT$(V$,1)="G"THENWC$="":GOTO204
204 PRINT"[146]                              ";:GOSUB96
206 DC=.:IFDF=1THENDF=.:GOTO42
208 DF=.:GOTO210
210 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
212 [143]"COMPUTERS TURN
214 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
216 [143]"C(1)=RED
218 REM"C(2)=GRN
220 [143]"C(3)=BLU
222 GOSUB616:DC=.:REM"C(4)=YEL                                WD  =WILD
224 OK[178].:GA[178].:XV[178].:[129]I[178]1[164]4:C(I)[178].:[130]:WD[178].:WF[178].
226 [129]Y[178]1[164]NC:FG$[178][200](CC$(Y),1):[139]FG$[178]""[167]C(1)[178]C(1)[170]1:[130]:[137]246
228 [139]FG$[178]""[167]C(2)[178]C(2)[170]1:[130]:[137]246
230 [139]FG$[178]""[167]C(3)[178]C(3)[170]1:[130]:[137]246
232 [139]FG$[178]"SYS"[167]C(4)[178]C(4)[170]1:[130]:[137]246
234 [139][202](CC$(Y),71,1)[178]"!"[167]WF[178]WF[170]1:[130]:[137]246
236 [139][202](CC$(Y),71,1)[178]"W"[167]WD[178]WD[170]1:[130]:[137]246
238 [144]
240 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
242 REM"PICK FREQUENCY
244 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
246 FORK=1TO4:D(K)=C(K):NEXT:N=4:M=N
248 M=INT(M/2):IFM=.THEN262
250 J=1:K=N-M
252 I=J
254 L=I+M:CM=CM+1:IFD(I)<D(L)THEN258
256 T=D(I):D(I)=D(L):D(L)=T:SW=SW+1:I=I-M:IFI>1THEN254
258 J=J+1:IFJ>KTHEN248
260 GOTO252
262 FORK1=1TO4:IFC(K1)<>D(4)THENNEXT
264 C1=K1:K1=5:NEXT:FORK1=1TO4:IFC(K1)<>D(3)THENNEXT
266 C2=K1:K1=5:NEXT:FORK1=1TO4:IFC(K1)<>D(2)THENNEXT
268 C3=K1:K1=5:NEXT:FORK1=1TO4:IFC(K1)<>D(1)THENNEXT
270 C4=K1:K1=5:NEXT
272 IFNM<3ANDWF>0THEN484
274 IFNC<3ANDWF>0THEN484
276 IFNM<2ANDWD>0THEN500
278 ONC1GOTO280,340,382,422
280 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
282 [143]"CAN PLAY RED?
284 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
286 RC$[178]""
288 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[178]"D"[167][141]322
290 [139]OK[178]1[167]Y[178]NC[170]1:[130]:[141]96:[141]768:[137]332
292 [130]
294 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[178]"S"[167][141]322
296 [139]OK[178]1[167]Y[178]NC[170]1:[130]:[141]96:[137]332
298 [130]
300 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[178]"R"[167][141]322
302 [139]OK[178]1[167]Y[178]NC[170]1:[130]:[141]96:[137]332
304 [130]
306 [141]308:[139]OK[178]1[167]GA[178]1:[141]96:[137]332
307 [137]312
308 OK[178].:[129]WR[178]9[164]0[169][171]1:[129]Y[178]1[164]NC:[139][197]([202](CC$(Y),71,1))[178]WR[167][141]322
309 [139]OK[178]1[167]WR[178][171]1:[130]:Y[178]NC[170]1:[130]:[142]
310 [130]Y,WR:[142]
312 [129]Y[178]1[164]NC
314 [139][202](CC$(Y),71,1)[179][177][202](CP$,71,1)[167]318
316 CP$[178]CC$(Y):CC$(Y)[178]"":GA[178]1:Y[178]NC[170]1:[130]:[141]96:[137]332
318 [130]:[137]462
320 [144]
322 [139][200](CC$(Y),1)[178]RC$[175]RC$[178][200](CP$,1)[175][202](CC$(Y),71,1)[178][202](CP$,71,1)[167]330
324 [139][200](CC$(Y),1)[178]WC$[167]OK[178]1:DC[178].:CP$[178]CC$(Y):CC$(Y)[178]"":[142]
326 OK[178].:F$[178][200](CC$(Y),1):[139]F$[178][200](CP$,1)[175]F$[179][177]"POKE"[167]330
328 OK[178].:[142]
330 OK[178]1:DC[178].:CP$[178]CC$(Y):CC$(Y)[178]"":[142]
332 [143]
334 [141]96:[141]150:[139][197]([202](CP$,71,1))[177]0[167]40
336 [139][202](CP$,71,1)[178]"0"[176][202](CP$,71,1)[178]"W"[167]40
338 [137]210
340 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
342 REM"CAN PLAY GRN?
344 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
346 RC$=""
348 FORY=1TONC:IFMID$(CC$(Y),71,1)="D"THENGOSUB322
350 IFOK=1THENY=NC+1:NEXT:GOSUB96:GOSUB768:GOTO332
352 NEXT
354 FORY=1TONC:IFMID$(CC$(Y),71,1)="S"THENGOSUB322
356 IFOK=1THENY=NC+1:NEXT:GOSUB96:GOTO332
358 NEXT
360 FORY=1TONC:IFMID$(CC$(Y),71,1)="R"THENGOSUB322
362 IFOK=1THENY=NC+1:NEXT:GOSUB96:GOTO332
364 NEXT
366 GOSUB308:IFOK=1THENGA=1:GOSUB96:GOTO332
372 FORY=1TONC:IFMID$(CC$(Y),71,1)<>MID$(CP$,71,1)THEN376
374 GA=1:CP$=CC$(Y):CC$(Y)="":Y=NC+1:NEXT:GOSUB96:GOTO332
376 NEXT:GOTO462
378 STOP
380 REMIFWD>1THEN950
382 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
384 [143]"CAN PLAY BLU?
386 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
388 RC$[178]""
390 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[178]"D"[167][141]322
392 [139]OK[178]1[167]Y[178]NC[170]1:[130]:[141]96:[141]768:[137]332
394 [130]
396 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[178]"S"[167][141]322
398 [139]OK[178]1[167]Y[178]NC[170]1:[130]:[141]96:[137]332
400 [130]
402 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[178]"R"[167][141]322
404 [139]OK[178]1[167]Y[178]NC[170]1:[130]:[141]96:[137]332
406 [130]
408 [141]308:[139]OK[178]1[167]GA[178]1:[141]96:[137]332
414 [129]Y[178]1[164]NC:[139][202](CC$(Y),71,1)[179][177][202](CP$,71,1)[167]418
416 GA[178]1:CP$[178]CC$(Y):CC$(Y)[178]"":Y[178]NC[170]1:[130]:[141]96:[137]332
418 [130]:[137]462
420 [143]IFWD>1THEN950
422 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
424 REM"CAN PLAY YEL?
426 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
428 RC$="[158]"
430 FORY=1TONC:IFMID$(CC$(Y),71,1)="D"THENGOSUB322
432 IFOK=1THENY=NC+1:NEXT:GOSUB96:GOSUB768:GOTO332
434 NEXT
436 FORY=1TONC:IFMID$(CC$(Y),71,1)="S"THENGOSUB322
438 IFOK=1THENY=NC+1:NEXT:GOSUB96:GOTO332
440 NEXT
442 FORY=1TONC:IFMID$(CC$(Y),71,1)="R"THENGOSUB322
444 IFOK=1THENY=NC+1:NEXT:GOSUB96:GOTO332
446 NEXT
448 GOSUB308:IFOK=1THENGA=1:GOSUB96:GOTO332
454 FORY=1TONC:IFMID$(CC$(Y),71,1)<>MID$(CP$,71,1)THEN458
456 GA=1:CP$=CC$(Y):CC$(Y)="":Y=NC+1:NEXT:GOSUB96:GOTO332
458 NEXT:GOTO462
460 STOP
462 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
464 [143]"OPTIONAL COLORS
466 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
468 XV[178]XV[170]1:[145]XV[137]470,472,474,476,482
470 [145]C2[137]280,340,382,422
472 [145]C3[137]280,340,382,422
474 [145]C4[137]280,340,382,422
476 [139]WD[177]0[167][137]506
478 [139]WF[177]0[167][137]490
480 [137]554:[137]224
482 [144]
484 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
486 REM"PLAY A WF(!)
488 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
490 FORW=1TONC:IFMID$(CC$(W),71,1)<>"!"THENNEXT:STOP
492 R=W:W=NC+1:NEXT
494 GOSUB572:CP$=CC$(R):CC$(R)="":GOSUB96:GOSUB512:GA=.
496 FORG=1TO4:NM=NM+1:CN=CN+1:MC$(NM)=SC$(CN):NEXT:GOSUB848
498 GOSUB616:PRINT"COLOR IS "WC$"     [146]";:GOTO332
500 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
502 [143]"PLAY A WD(W)
504 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
506 [129]W[178]1[164]NC:[139][202](CC$(W),71,1)[179][177]"W"[167][130]:[144]
508 R[178]W:W[178]NC[170]1:[130]
510 [141]572:CP$[178]CC$(R):CC$(R)[178]"":[141]96:[141]512:GA[178].:[137]498
512 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
514 REM"COMPUTER COLOR PICK
516 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
518 PC$=LEFT$(CP$,1)
520 IFC1=1ANDPC$<>""THENWC$="":RETURN
522 IFC1=2ANDPC$<>""THENWC$="":RETURN
524 IFC1=3ANDPC$<>""THENWC$="":RETURN
526 IFC1=4ANDPC$<>"[158]"THENWC$="[158]":RETURN
528 IFC2=1ANDPC$<>""THENWC$="":RETURN
530 IFC2=2ANDPC$<>""THENWC$="":RETURN
532 IFC2=3ANDPC$<>""THENWC$="":RETURN
534 IFC2=4ANDPC$<>"[158]"THENWC$="[158]":RETURN
536 IFC3=1ANDPC$<>""THENWC$="":RETURN
538 IFC3=2ANDPC$<>""THENWC$="":RETURN
540 IFC3=3ANDPC$<>""THENWC$="":RETURN
542 IFC3=4ANDPC$<>"[158]"THENWC$="[158]":RETURN
544 IFC4=1ANDPC$<>""THENWC$="":RETURN
546 IFC4=2ANDPC$<>""THENWC$="":RETURN
548 IFC4=3ANDPC$<>""THENWC$="":RETURN
550 IFC4=4ANDPC$<>"[158]"THENWC$="[158]":RETURN
552 STOP
554 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
556 [143]"DRAW FOR COMPUTER
558 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
560 [139]DC[178]1[167]566
562 [153]"COMPUTER DRAWS      ";
564 NC[178]NC[170]1:CN[178]CN[170]1:CC$(NC)[178]SC$(CN):SC$(CN)[178]"":DC[178]1:[137]224
566 [153]"COMPUTER PASSES     ";
568 DC[178].:GA[178].:[137]42
570 [144]
572 [143]
574 [129]I[178]1[164]4:C(I)[178].:[130]:WD[178].
576 [129]Y[178]1[164]NC:FG$[178][200](CC$(Y),1):[139]FG$[178]""[167]C(1)[178]C(1)[170]1:[130]:[137]588
578 [139]FG$[178]""[167]C(2)[178]C(2)[170]1:[130]:[137]588
580 [139]FG$[178]""[167]C(3)[178]C(3)[170]1:[130]:[137]588
582 [139]FG$[178]"SYS"[167]C(4)[178]C(4)[170]1:[130]:[137]588
584 [139][202](CC$(Y),71,1)[178]"!"[167]WF[178]WF[170]1:[130]:[137]588
586 [139][202](CC$(Y),71,1)[178]"W"[167]WD[178]WD[170]1:[130]:[137]588
588 [129]K[178]1[164]4:D(K)[178]C(K):[130]:N[178]4:M[178]N
590 M[178][181](M[173]2):[139]M[178].[167]604
592 J[178]1:K[178]N[171]M
594 I[178]J
596 L[178]I[170]M:CM[178]CM[170]1:[139]D(I)[179]D(L)[167]600
598 T[178]D(I):D(I)[178]D(L):D(L)[178]T:SW[178]SW[170]1:I[178]I[171]M:[139]I[177]1[167]596
600 J[178]J[170]1:[139]J[177]K[167]590
602 [137]594
604 [129]K1[178]1[164]4:[139]C(K1)[179][177]D(4)[167][130]
606 C1[178]K1:K1[178]5:[130]:[129]K1[178]1[164]4:[139]C(K1)[179][177]D(3)[167][130]
608 C2[178]K1:K1[178]5:[130]:[129]K1[178]1[164]4:[139]C(K1)[179][177]D(2)[167][130]
610 C3[178]K1:K1[178]5:[130]:[129]K1[178]1[164]4:[139]C(K1)[179][177]D(1)[167][130]
612 C4[178]K1:K1[178]5:[130]
614 [142]
616 [153]"                    ";:[142]
618 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
620 REM"END COMPUTER ROUTINE
622 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
624 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
626 [143]"CHECK FIRST CARD PLAYED
628 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
630 IC[178]5:U[178][181](1000[172][187](.)):[139]U[177]500[167][153]"YOU GO FIRST.":[137]634
632 [153]"I GO FIRST."
634 [133]"HIT RETURN TO CONTINUE";K$:[153]"LOAD";:[141]96
636 [139][202](CP$,71,1)[178]"W"[175]U[177]500[167]670
638 [139][202](CP$,71,1)[178]"W"[175]U[179][178]500[167]668
640 [139][202](CP$,71,1)[178]"!"[175]U[177]500[167]672
642 [139][202](CP$,71,1)[178]"!"[175]U[179][178]500[167]660
644 [139][202](CP$,71,1)[178]"D"[175]U[177]500[167]678
646 [139][202](CP$,71,1)[178]"D"[175]U[179][178]500[167]684
648 [139][202](CP$,71,1)[178]"R"[175]U[177]500[167]690
650 [139][202](CP$,71,1)[178]"R"[175]U[179][178]500[167]694
652 [139][202](CP$,71,1)[178]"S"[175]U[177]500[167]698
654 [139][202](CP$,71,1)[178]"S"[175]U[179][178]500[167]702
656 [139]U[177]500[167][141]848:[137]42
658 [139]U[179][178]500[167][141]848:[137]210
660 [141]96:[153]"THE FIRST CARD WAS A DRAW FOUR.":[153]"YOU GET FOUR EXTRA CARDS!"
662 [143]FORH=1TO4:CN=CN+1:NM=NM+1:MC$(NM)=SC$(CN):SC$(CN)="":NEXT
664 [153]"NOW I GET TO GO FIRST!":[141]848:[141]706
666 CC$(NC[170]1)[178]CP$:R[178]NC[170]1:[141]848:[137]494
668 CC$(NC[170]1)[178]CP$:R[178]NC[170]1:[141]848:[137]510
670 DF[178].:[141]848:[137]194
672 [141]96:[153]"THE FIRST CARD WAS A DRAW FOUR.":[153]"I GET FOUR EXTRA CARDS!"
674 [143]
676 [153]"NOW YOU GET TO GO FIRST!":[141]706:DF[178]1:[141]848:[137]192
678 [141]96:[153]"THE FIRST CARD WAS A DRAW TWO.":[153]"YOU GET TWO EXTRA CARDS!"
680 [129]H[178]1[164]2:CN[178]CN[170]1:NM[178]NM[170]1:MC$(NM)[178]SC$(CN):SC$(CN)[178]"":[130]
682 [153]"NOW I GET TO GO FIRST!":[141]706:[141]848:[137]210
684 [141]96:[153]"THE FIRST CARD WAS A DRAW TWO.":[153]"I GET TWO EXTRA CARDS!"
686 [129]H[178]1[164]2:CN[178]CN[170]1:NC[178]NC[170]1:CC$(NC)[178]SC$(CN):SC$(CN)[178]"":[130]
688 [153]"NOW YOU GET TO GO FIRST!":[141]706:[141]848:[137]40
690 [141]96:[153]"THE FIRST CARD WAS A REVERSE."
692 [153]"NOW I GET TO GO FIRST!":[141]706:[141]848:[137]210
694 [141]96:[153]"THE FIRST CARD WAS A REVERSE."
696 [153]"NOW YOU GET TO GO FIRST!":[141]706:[141]848:[137]40
698 [141]96:[153]"THE FIRST CARD WAS A SKIP."
700 [153]"NOW I GET TO GO FIRST!":[141]706:[141]848:[137]210
702 [141]96:[153]"THE FIRST CARD WAS A SKIP."
704 [153]"NOW YOU GET TO GO FIRST!":[141]706:[141]848:[137]40
706 [129]H[178]1[164]5000:[130]:[142]
708 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
710 REM"DRAW A CARD
712 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
714 PRINT"";
716 IFDC=1THEN722
718 INPUT"DRAW A CARD     ";YN$:PRINT"";:IFLEFT$(YN$,1)="N"THEN42
720 NM=NM+1:CN=CN+1:MC$(NM)=SC$(CN):SC$(CN)="":DC=1:GOSUB848:GOTO42
722 INPUT"PASS TO COMPUTER";YN$:PRINT"";
724 IFLEFT$(YN$,1)="N"THEN42
726 DC=.:GOTO210
728 IFNC>36THENNM=35:CC$(36)=""
730 IFNC<36THENIC=1
732 IFNC<19THENIC=2
734 IFNC<13THENIC=3
736 IFNC<10THENIC=4
738 IFNC<8THENIC=5
740 IFNC<7THENIC=6
742 IFCN=106THENGOSUB26
744 PRINTCL$"";:FORH=1TONC:PRINTCC$(H)"[145][145][145][157][157][157][157]";LEFT$(L$,IC);:NEXTH
746 PRINT"[155][146]                                  ":RETURN
748 REM
750 SYS49386:L=49152
752 POKE53265,PEEK(53265)AND239:OPEN2,8,2,"CARDS4,S,R":FORH=1TO56
754 SYS49352
756 U=PEEK(L)
758 GET#2,A$:SC$(U)=A$+B$:GET#2,A$
760 FORP=1TO35:GET#2,A$:SC$(U)=SC$(U)+A$:NEXT
762 GET#2,A$:IFA$<>CHR$(13)THENSC$(U)=SC$(U)+A$:GOTO762
764 SYS49352:SC$(PEEK(L))=SC$(U):NEXT:CLOSE2:POKE53265,PEEK(53265)OR16
766 POKE54296,15:SYSBA+155:POKEBA+1079,0:RETURN
768 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
770 [143]"GIVE PLAYER 2 CARDS
772 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
774 [139][202](CP$,71,1)[179][177]"D"[167][142]
776 [139]DT[178]1[167]DT[178].:[142]
778 DT[178]1:[129]H[178]1[164]2:CN[178]CN[170]1:NM[178]NM[170]1:MC$(NM)[178]SC$(CN):SC$(CN)[178]"":[130]:[141]848:[142]
780 [139][200](A$,1)[178]"N"[167][151]37252,4:[137]63000
782 [153]"LOADNOW SEE HERE.  IF YOU THINK I'M GOING"
784 [153]"TO SIT HERE AND TAKE THIS GARBAGE FROM"
786 [153]"YOU, WELL, YOU'VE GOT ANOTHER THING"
788 [153]"COMING!  TAKE THIS!!!"
790 [129]T[178]1[164]7000:[130]
792 D$[178]""
794 R$[178]""
796 [129]G[178]1[164]2:[129]GG[178]1[164]112[171]CN:[151]BA[170]1079,[181](2[172][187](.))[170]1
798 D[178][181](16[172][187](.))[170]4:R[178][181](34[172][187](.))
800 [153]"";[200](D$,D);[200](R$,R);SC$(GG):[130]:[130]
802 [151]BA[170]1079,0:[153]"LOAD";:[153]:[133]"ANSWER ME! DO YOU WANT PLAY AGAIN(Y/N)";A$
804 [139][200](A$,1)[178]"Y"[167]8
806 [139][200](A$,1)[179][177]"N"[167]780
808 [137]63000
810 [153]CL$"";:[129]H[178]1[164]NM:[153]MC$(H)"ONONONCMDCMDCMDCMD";[200](L$,IC);:[130]H:[142]
812 [153]"WAITLOAD";:[141]728:M1[178]M1[170]1:[129]T[178]1[164]NC:R$[178][202](CC$(T),71,1)
814 [139][197](R$)[177]0[176]R$[178]"0"[167]CS[178]CS[170][197](R$):[130]:[137]820
816 [139]R$[178]"R"[176]R$[178]"S"[176]R$[178]"D"[167]CS[178]CS[170]20:[130]:[137]820
818 [139][200](CC$(T),1)[178]"POKE"[167]CS[178]CS[170]50:[130]
820 [139]CS[179]YU[167]CS$[178]"":YU$[178]"WAIT":[137]824
822 CS$[178]"WAIT":YU$[178]""
824 [153]"WAIT";YU$"YOU HAVE"CS"CMD POINTS.  YOU'VE WON"M1;:[137]836
826 [153]"WAIT";:[141]848:CH[178]CH[170]1:[129]T[178]1[164]NM:R$[178][202](MC$(T),71,1)
828 [139][197](R$)[177]0[176]R$[178]"0"[167]YU[178]YU[170][197](R$):[130]:[137]820
830 [139]R$[178]"R"[176]R$[178]"S"[176]R$[178]"D"[167]YU[178]YU[170]20:[130]:[137]820
832 [139][200](MC$(T),1)[178]"POKE"[167]YU[178]YU[170]50:[130]:[137]820
834 [144]
836 [139]M1[177]1[176]M1[178].[167][153]"CMD GAMES":[137]840
838 [153]"CMD GAME"
840 [153]"WAIT";CS$"I HAVE  "YU"CMD POINTS.  I'VE WON"CH;
842 [139]CH[177]1[176]CH[178].[167][153]"CMD GAMES":[137]846
844 [153]"CMD GAME"
846 [142]
848 [139]NM[177]36[167]NM[178]35:MC$(36)[178]""
850 [139]NM[179]36[167]IC[178]1
852 [139]NM[179]19[167]IC[178]2
854 [139]NM[179]13[167]IC[178]3
856 [139]NM[179]10[167]IC[178]4
858 [139]NM[179]8[167]IC[178]5
860 [139]NM[179]7[167]IC[178]6
862 [143]IFCN=106THENGOSUB18
864 [153]""CL$"WAIT";:[129]H[178]1[164]NM:[153]MC$(H)"ONONONCMDCMDCMDCMD";[200](L$,IC);"WAIT";:[130]:[142]
866 [151]53281,0:[153]"LOADPRINT#              NOW LOADING":[153]:[153]
868 [153]"           LISTONANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND":[153]"           CONTUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
870 [153]"            THE ENTERTAINER"
872 [153]"           CONTANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND":[153]"           LISTUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
874 [153]:[153]:[153]"PRINT#             WRITTEN USING":[153]:[153]
876 [153]"            MASTER COMPOSER":[153]:[153]
878 [153]"            ACCESS SOFTWARE"
880 [153]"          925 EAST  900 SOUTH"
882 [153]"      SALT LAKE CITY,  UTAH 84105"
884 [153]:[153]"LIST         PLEASE TURN UP VOLUMEWAIT"
886 [142]
888 [139][197]([202](CP$,71,1))[177]0[176][202](CP$,71,1)[178]"0"[167][142]
890 [139][202](CP$,71,1)[178]"!"[167]900
892 [139][202](CP$,71,1)[178]"W"[167][142]
894 [139][202](CP$,71,1)[178]"S"[167][142]
896 [139][202](CP$,71,1)[178]"R"[167][142]
898 [129]KK[178]1[164]2:NC[178]NC[170]1:CN[178]CN[170]1:CC$(NC)[178]SC$(CN):SC$(CN)[178]"":[130]:[142]
900 [129]KK[178]1[164]4:NC[178]NC[170]1:CN[178]CN[170]1:CC$(NC)[178]SC$(CN):SC$(CN)[178]"":[130]:[142]
902 [139][197]([202](CP$,71,1))[177]0[176][202](CP$,71,1)[178]"0"[167][142]
904 [139][202](CP$,71,1)[178]"!"[167]914
906 [139][202](CP$,71,1)[178]"W"[167][142]
908 [139][202](CP$,71,1)[178]"S"[167][142]
910 [139][202](CP$,71,1)[178]"R"[167][142]
912 [129]KK[178]1[164]2:NM[178]NM[170]1:CN[178]CN[170]1:MC$(NM)[178]SC$(CN):SC$(CN)[178]"":[130]:[142]
914 [129]KK[178]1[164]4:NM[178]NM[170]1:CN[178]CN[170]1:MC$(NM)[178]SC$(CN):SC$(CN)[178]"":[130]:[142]
1000 [158]49386:[140]:[151]53281,0:[153]""[199](142):L[178]49152:[141]1022
1001 [153]"LOADSHUFFLING CARDS.":[153]"PLEASE WAIT ABOUT 15 SECONDS..."
1002 R$[178]"THEN   FNWAITCMDCMDCMDCMDCMD":B$[178]" TOTOTO WAITCMDCMDCMDCMDCMD"[170]R$[170]R$[170]R$[170]" TAB(TAB(TAB( CMDCMDCMDCMDCMDONONONONON
1004 Z9$="[158]"
1006 FORL1=0TO12
1008 READNQ$,NQ:FORL2=1TO4:FORL3=1TO2:SYS49352:U=PEEK(L)
1010 SC$(U)=MID$(Z9$,L2,1)+B$+NQ$+""+NQ$+"[145][145][145][157][157][157][157]"+A$(NQ)
1012 NEXT:NEXT:NEXT
1014 FORME=1TO4:SYS49352:U=PEEK(L):SC$(U)="[151]"+B$+"WW[145][145][145][157][157][157][157]"+A$(13):NEXT
1016 FORWE=1TO4:SYS49352:U=PEEK(L):SC$(U)="[151]"+B$+"!![145][145][145][157][157][157][157]"+A$(14):NEXT
1018 RETURN
1020 DATA0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,D,10,R,11,S,12
1022 A$(.)="[213][192][201][157][157][157][221][206][221][157][157][157][202][192][203]"
1024 A$(1)=" [174] [157][157][157] [221] [157][157][157] [177] "
1026 A$(2)="[213][192][174][157][157][157] [206] [157][157][157] [192][192]"
1028 A$(3)="[213][192][201][157][157][157] [192][179][157][157][157][202][192][203]"
1030 A$(4)=" [206][180][157][157][157][206] [180][157][157][157][183][183][207]"
1032 A$(5)="[176][192][192][157][157][157][173][192][201][157][157][157][192][192][203]"
1034 A$(6)="[213][192][201][157][157][157][171][192][201][157][157][157][202][192][203]"
1036 A$(7)="[175][175][175][157][157][157][190] [206][157][157][157] [206] "
1038 A$(8)="[213][192][201][157][157][157][171][192][179][157][157][157][202][192][203]"
1040 A$(9)="[213][192][201][157][157][157][202][192][179][157][157][157][202][192][203]"
1042 A$(10)="[176][192][201][157][157][157][221] [221][157][157][157][173][192][203]"
1044 A$(11)="[176][192][201][157][157][157][171][178][203][157][157][157][221] [205]"
1046 A$(12)="[213][192][201][157][157][157][202][192][201][157][157][157][202][192][203]"
1048 A$(13)="[221] [221][157][157][157][221][221][221][157][157][157][202][177][203]"
1050 A$(14)=" [151][221] [157][157][157][151][192][219][192][157][157][157][158] [151][221] "
1052 RETURN
63000 REM   CONNECT TO LS
63010 LOAD"HELLO CONNECT",8