10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 PRINT"[147]":POKE53265,27:GOSUB680:GOSUB620:GOSUB470
30 PL=0:FORL=RWTO4:FORK=CLTO10
40 IFLO(L,K)<50THEN110
50 IFK>0THENIFRIGHT$(STR$(LO(L,K-1)),1)="9"ORLO(L,K-1)>49THEN110
60 PL=1:T=K*24+27:IFT>255THENT=T-256
70 POKESX,T:POKESM,-(K>9):POKESY,L*24+116:POKEVL,0:POKEVL,15:POKESP,1
80 POKE198,0:WAIT198,1:GETG$
90 IFG$=CHR$(13)THENGOSUB290:MV=MV+1
100 POKESP,0
110 NEXT:NEXT:IFPLTHEN30
120 NC=0:LC=0:FORL=0TO4:FORK=0TO10
130 IFK>0THENIFLO(L,K-1)+1<>LO(L,K)THEN150
140 IFVAL(RIGHT$(STR$(LO(L,K)),1))=KANDLO(L,K)<50THEN160
150 TB(L)=K:FORJ=KTO10:DK(NC)=LO(L,J):NC=NC+1:NEXT:K=10
160 NEXT:NEXT:IFNC=5ORDL=5THEN180
170 GOSUB470:GOTO30
180 SC=0:FORL=0TO4
190 IFLO(L,0)/10>INT(LO(L,0)/10)THEN220
200 T=5-VAL(LEFT$(STR$(LO(L,0)),2))
210 SC=SC+TB(L)*T*10-(TB(L)=10)*100
220 NEXT
230 SC=SC-MV*5-DL*100:IFSC<0THENSC=0
240 IFSC>HSTHENHS=SC
250 PRINT""CL$:PRINTTAB(8)"[145][158]SCORE"SCTAB(22-(HS<1000))"[158]HIGH"HS
260 FORL=0TO5:GOSUB440:GOSUB450:NEXT
270 PRINTTAB(8)"PRESS ANY KEY TO REPLAY"
280 POKE198,0:WAIT198,1:SH=0:DL=0:MV=0:GOSUB620:GOSUB470:GOTO30
290 IFK>0THENT=LO(L,K-1)+1:GOTO340
300 PRINT""CL$:PRINTTAB(14)"[145][158]WHICH COLOR?[145]":GOSUB450
310 POKE198,0:WAIT198,1:GETG$
320 FORJ=1TO5:IFG$<>MID$("RBGPC",J,1)THENNEXT:GOSUB420:GOTO310
330 T=J*10-10:PRINTCL$
340 POKESP,0:FORJ=0TO4:FORH=0TO10
350 IFLO(J,H)<>TTHENNEXT:NEXT
360 PRINTLEFT$(CD$,9+L*3)TAB(K*3+3)CC$(LO(J,H))TH$CD$(LO(J,H))BH$
370 PRINTLEFT$(CD$,9+J*3)TAB(H*3+3)"[158]"TH$CD$(50)BH$:GOSUB400
380 T=LO(L,K):LO(L,K)=LO(J,H):LO(J,H)=T
390 RETURN
400 POKEAT,10:POKESR,73:POKEWV,17:POKEHF,50:POKELF,0
410 FORI=1TO333:NEXT:POKEWV,16:RETURN
420 POKEHF,5:POKEAT,0:POKESR,240:POKEWV,33
430 FORI=1TO500:NEXT:POKEWV,32:RETURN
440 POKESR,240:POKEHF,50:POKELF,35:GOTO460
450 POKESR,225:POKEHF,33:POKELF,33
460 POKEAT,0:POKEWV,17:FORI=1TO99:NEXT:POKEWV,16:RETURN
470 DL=DL+1:R=RND(-TI)
480 PRINT""TAB(10)"[158]SHUFFLING THE CARDS [145]":GOSUB450
490 PRINTCD$TAB(13)"[158]DEAL NUMBER"DL;
500 IFSH=0THENNC=54:FORL=0TO54:DK(L)=L:NEXT:FORL=0TO4:TB(L)=0:NEXT:GOTO530
510 FORL=0TO4:PRINTLEFT$(CD$,9+L*3)TAB(TB(L)*3+3);
520 FORK=TB(L)TO10:PRINTEC$;:NEXT:NEXT
530 FORL=0TO99
540 R1=INT(RND(1)*NC):R2=INT(RND(1)*NC)
550 T=DK(R1):DK(R1)=DK(R2):DK(R2)=T
560 NEXT
570 T=0:FORL=0TO4:PRINTLEFT$(CD$,9+L*3)TAB(TB(L)*3+3);
580 FORK=TB(L)TO10:PRINTCC$(DK(T))TH$CD$(DK(T))BH$;:LO(L,K)=DK(T)
590 T=T+1:NEXT:NEXT
600 SH=1:PRINT""TAB(10)"[158]PRESS RETURN [158]TO SWAP"
610 RETURN
620 POKE53280,0:POKE53281,0
630 PRINT"[147][155]"TAB(9)"[@\[@\[@\[@\[@\[@\[@\"
640 PRINTTAB(9)"=,>=.>=/>=:>=->=;>=<>"
650 PRINTTAB(9)"]*^]*^]*^]*^]*^]*^]*^"
660 PRINT"[146]"TAB(5)"RED  BLUE  GREEN  P[156]URPLE  C[159]YAN"
670 RETURN
680 POKE56334,0:POKE1,51
690 POKE781,9:POKE782,1:POKE88,0:POKE89,64:POKE90,0:POKE91,216
700 SYS41964:POKE1,55:POKE56334,1:POKE53272,30
710 POKE53272,(PEEK(53272)AND240)OR14
720 POKE53270,PEEK(53270)OR16
730 POKE2040,13:POKE53287,9:POKE53269,0
740 POKE53276,0:POKE53283,9:POKE53285,1:POKE53277,1:POKE53271,1
750 DIM CD$(54),CC$(54),DK(54),LO(4,10),TB(4)
760 LF=54272:HF=54273:WV=54276:AT=54277:SR=54278:VL=54296:POKEVL,15
770 SP=53269:SX=53248:SY=53249:SM=53264
780 FORL=0TO9
790 READT$:CD$(L)=T$:CD$(L+10)=T$:CD$(L+20)=T$:CD$(L+30)=T$:CD$(L+40)=T$:NEXT
800 FORL=0TO40STEP10:READT$:FORK=0TO10:CC$(L+K)=T$:NEXT:NEXT
810 FORL=50TO54:CC$(L)="[158]":CD$(L)=" [146]":NEXT
820 TH$="[@\[157][157][157]=":BH$=">[157][157][157]]*^[145][145]":EC$="   [157][157][157]   [157][157][157]   [145][145]"
830 CD$="":CL$="[146]                                   "
840 FORL=832TO895:READK:POKEL,K:NEXT
850 FORL=14336TO14847:READK:POKEL,K:NEXT
860 RETURN
870 DATA +,!,_,#,$,%,&,',(,)
880 DATA "[150]","[154]","[153]","[152]","[151]"
890 DATA 0,7,240,0,12,24,0,9,200,0,11,104,0,10,40,0
900 DATA 10,40,0,11,104,0,9,200,0,12,24,0,7,240,0,0
910 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
920 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,188
930 DATA 0,255,255,255,255,255,255,255,0,124,230,254,230,230,230,0
940 DATA 0,252,230,252,230,230,252,0,0,124,230,224,224,230,124,0
950 DATA 0,248,236,230,230,236,248,0,0,254,224,248,224,224,254,0
960 DATA 0,254,224,248,224,224,224,0,0,124,224,238,230,230,124,0
970 DATA 0,230,230,254,230,230,230,0,0,124,56,56,56,56,124,0
980 DATA 0,62,28,28,28,220,120,0,0,236,248,240,248,236,230,0
990 DATA 0,224,224,224,224,224,254,0,0,227,247,255,235,227,227,0
1000 DATA 0,230,246,254,238,230,230,0,0,124,230,230,230,230,124,0
1010 DATA 0,252,230,230,252,224,224,0,0,124,230,230,230,124,14,0
1020 DATA 0,252,230,230,252,238,230,0,0,126,224,124,14,238,124,0
1030 DATA 0,254,56,56,56,56,56,0,0,230,230,230,230,230,124,0
1040 DATA 0,230,230,230,230,124,56,0,0,227,227,235,255,247,227,0
1050 DATA 0,198,238,124,124,238,198,0,0,230,230,124,56,56,56,0
1060 DATA 0,254,28,56,112,224,254,0,0,15,63,63,63,63,63,63
1070 DATA 0,240,252,252,252,252,252,252,63,63,63,63,63,63,15,0
1080 DATA 252,252,252,252,252,252,240,0,215,125,253,245,215,95,127,85
1090 DATA 0,0,0,0,0,0,0,0,247,215,247,247,247,247,247,213
1100 DATA 102,102,102,0,0,0,0,0,215,125,253,215,253,253,125,215
1110 DATA 245,221,125,125,85,253,253,253,85,127,127,87,253,253,125,215
1120 DATA 215,125,127,87,125,125,125,215,85,125,253,247,223,223,223,223
1130 DATA 215,125,125,215,125,125,125,215,215,125,125,125,213,253,125,215
1140 DATA 255,255,255,255,255,255,255,0,215,125,125,117,93,125,125,215
1150 DATA 175,175,175,175,175,175,175,170,255,255,255,170,170,255,255,255
1160 DATA 170,235,235,235,235,235,235,170,171,170,174,174,174,174,174,174
1170 DATA 0,124,230,238,246,230,124,0,0,56,248,56,56,56,254,0
1180 DATA 0,124,206,28,112,224,254,0,0,124,206,28,14,206,124,0
1190 DATA 0,30,62,110,255,14,14,0,0,254,224,252,14,206,124,0
1200 DATA 0,124,224,252,230,230,124,0,0,254,206,28,56,56,56,0
1210 DATA 0,124,230,124,230,230,124,0,0,124,206,206,126,14,124,0
1220 DATA 170,175,175,171,175,175,175,170,174,174,174,174,174,174,174,235
1230 DATA 171,174,174,174,171,175,175,175,63,63,63,63,63,63,63,63
1240 DATA 252,252,252,252,252,252,252,252,0,62,103,14,28,0,28,0