100 CLR:RESTORE
105 PRINT"[147][155]"TAB(18)"CONCENTRATION"TAB(48)"(C) 1984 MATTHEW OLDHAM"
110 S=54272:V=53248:POKEV+33,6:POKEV+32,14
112 DIMX(13),CD(13),UD(4,13),SD(4,13)
115 FORI=0TO2:POKE12288+I,0:NEXTI
120 FORI=3TO62STEP3:POKE12288+I,15:POKE12289+I,255:POKE12290+I,240:NEXTI
130 POKE2040,192:POKE2041,192:POKEV+21,3:POKEV+27,3:POKEV+39,1:POKEV+40,1
135 READNL$:PL=1264
140 PRINT"DO YOU WISH TO PLAY AGAINST THE COMPUTER"
141 INPUT"(1) OR AGAINST OTHER HUMANS(2-10)";NP
150 IF NP<1ORNP>10THEN140
160 FORI=1TO3:READBB$:FORJ=1TO13:GL$(I)=GL$(I)+BB$:NEXTJ:NEXTI:READNM$
170 GL$(4)=GL$(3):GL$(3)=GL$(2):FORI=1TO4:READY(I),ST(I),BL(I):NEXTI
175 FORI=1TO13:READX(I),CD(I):NEXTI
180 PRINT"[147]":PRINTNM$:FORI=1TO4:FORJ=1TO4:PRINTGL$(J):NEXT:NEXT
190 FORI=1TO4:PL=PL+121
200 FORJ=1TO13
210 RW=INT(RND(1)*4+1):CL=INT(RND(1)*13+1)
220 IFUD(RW,CL)=32THEN210
230 SD(I,J)=CD(CL):UD(RW,CL)=32:POKEPL,CD(CL):POKEPL+40,ST(RW)
240 POKEPL+54272,6:POKEPL+54312,6:PL=PL+3
250 NEXTJ:NEXTI
260 FORI=1TONP
270 PRINT"":FORJ=1TO6:PRINTNL$:NEXTJ
280 PRINT"PLAYER NUMBER ";I,"MATCHES ";PM(I)
290 INPUT"PLEASE CHOOSE CARD 1 (ROW,COL)";RO(1),CO(1)
291 IFRO(1)<1ORRO(1)>4ORCO(1)<1ORCO(1)>13THEN280
295 IFSD(RO(1),CO(1))=32THENPRINT"CARD GONE!":GOTO280
300 IFX(CO(1))>255THENPOKEV,X(CO(1))-256:POKEV+16,PEEK(V+16)OR1:GOTO310
305 POKEV,X(CO(1))
310 POKEV+1,Y(RO(1))
315 INPUT"PLEASE CHOOSE CARD 2 (ROW,COL)";RO(2),CO(2)
316 IFRO(2)<1ORRO(2)>4ORCO(2)<1ORCO(2)>13THEN315
320 IFRO(1)=RO(2)ANDCO(1)=CO(2)THENPRINT"THEY'RE THE SAME CARD!":GOTO280
325 IFSD(RO(2),CO(2))=32THENPRINT"CARD GONE!":GOTO315
330 IFX(CO(2))>255THENPOKEV+2,X(CO(2))-256:POKEV+16,PEEK(V+16)OR2:GOTO340
335 POKEV+2,X(CO(2))
340 POKEV+3,Y(RO(2))
350 IFSD(RO(1),CO(1))=SD(RO(2),CO(2))THENPM(I)=PM(I)+1:GOSUB500:GOTO270
355 UD(RO(1),CO(1))=SD(RO(1),CO(1)):UD(RO(2),CO(2))=SD(RO(2),CO(2))
360 FORJ=1TO2700:NEXTJ:FORK=0TO3:POKEV+K,0:NEXTK:POKEV+16,0:NEXTI
370 IFNP=1THENGOSUB560
380 GOTO260
390 IFNP=1THEN440
400 HS=1:FORI=2TONP:IFPM(I)>PM(HS)THENHS=I:FL=0:GOTO410
405 IFPM(I)=PM(HS)THENFL=1
410 NEXTI
415 IFFL=1THENPRINT"[147]THERE IS A TIE WITH ";PM(HS);" MATCHES":GOTO430
420 PRINT"[147]AND THE WINNER IS PLAYER #";HS
430 PRINT:PRINT:FORI=1TONP:PRINT"PLAYER #";I,PM(I);" MATCHES"
435 NEXTI:GOTO470
440 IFCM>PM(1)THENPRINT"[147]I WIN! I WIN! I WIN!"
450 IFCM<PM(1)THENPRINT"[147]RATS! YOU WIN "
455 IFPM(1)=CMTHENPRINT"[147]IT'S A TIE!"
460 PRINT"YOU HAVE ";PM(1);" MATCHES"TAB(40)"AND I HAVE ";CM;" MATCHES"
470 INPUT"DO YOU WISH ANOTHER GAME";AN$
480 IF AN$="YES"ORAN$="Y"THENGOTO100
490 GOTO63000
500 UD(RO(1),CO(1))=32:UD(RO(2),CO(2))=32:SD(RO(1),CO(1))=32
505 FORJ=1TO1500:NEXTJ
510 SD(RO(2),CO(2))=32:FORJ=1TO2:EL(J)=BL(RO(J))+3*CO(J):NEXTJ
520 POKES+24,15:POKES+5,65:POKES+6,136:POKES+1,57:POKES,172:POKES+4,17
525 FORJ=0TO120STEP40:FORK=0TO2:POKEEL(1)+J+K,32:NEXTK:NEXTJ:POKES+4,16
530 POKES+1,40:POKES,200:POKES+4,17
535 FORJ=0TO120STEP40:FORK=0TO2:POKEEL(2)+J+K,32:NEXTK:NEXTJ:POKES+4,16
540 FORJ=0TO3:POKEV+J,0:NEXTJ:POKEV+16,0
545 TM=TM+1:IFTM=26THEN390
550 RETURN
560 PRINT"":FORJ=1TO6:PRINTNL$:NEXTJ:PRINT"MY TURN",CM;" MATCHES"
565 FL=FL+1:IFFL/2=INT(FL/2)ORPM(1)>11THENGOTO670
570 RO(1)=INT(RND(1)*4+1):CO(1)=INT(RND(1)*13+1)
575 IFSD(RO(1),CO(1))=32THEN570
580 RO(2)=INT(RND(1)*4+1):CO(2)=INT(RND(1)*13+1)
590 IFRO(1)=RO(2)ANDCO(1)=CO(2)THEN580
600 IFSD(RO(2),CO(2))=32THEN580
610 IFX(CO(1))>255THENPOKEV,X(CO(1))-256:POKEV+16,PEEK(V+16)OR1:GOTO620
615 POKEV,X(CO(1))
620 IFX(CO(2))>255THENPOKEV+2,X(CO(2))-256:POKEV+16,PEEK(V+16)OR2:GOTO630
625 POKEV+2,X(CO(2))
630 POKEV+1,Y(RO(1)):POKEV+3,Y(RO(2))
640 IFSD(RO(1),CO(1))=SD(RO(2),CO(2))THENCM=CM+1:GOSUB500:GOTO560
645 UD(RO(1),CO(1))=SD(RO(1),CO(1)):UD(RO(2),CO(2))=SD(RO(2),CO(2))
650 FORJ=1TO2700:NEXTJ:FORK=0TO3:POKEV+K,0:NEXTK:POKEV+16,0
660 RETURN
670 RO(1)=INT(RND(1)*4+1):CO(1)=INT(RND(1)*13+1)
680 IFSD(RO(1),CO(1))=32THEN670
690 FORJ=1TO4:FORK=1TO13
700 IFRO(1)=JANDCO(1)=KTHEN720
710 IF SD(RO(1),CO(1))=UD(J,K)THENRO(2)=J:CO(2)=K:GOTO610
720 NEXTK:NEXTJ
730 RO(2)=INT(RND(1)*4+1):CO(2)=INT(RND(1)*13+1)
740 IFSD(RO(2),CO(2))=32THEN730
750 IFRO(1)=RO(2)ANDCO(1)=CO(2)THEN730
760 GOTO610
770 DATA"                                      ","[213][195][201]","[194] [194]","[202][195][203]"
775 DATA" 1  2  3  4  5  6  7  8  9  10 11 12 13"
780 DATA119,65,1341,151,83,1501,183,88,1661,215,90,1821
790 DATA24,1,48,11,72,17,96,10,120,20,144,57,168,56,192,55
800 DATA216,54,240,53,264,52,288,51,312,50
63000 REM   RETURN TO LOADSTAR
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END