10 PRINT"[147]"SPC(4)"[159]M A T C H B L O C K S[154]"
20 DIMCR(55),UL(55),UR(55),LL(55),LR(55),R(99),T(55),S(25),BK(3),PLA,MATCH
30 DIM HF(6),LF(6),DR(6):FL=1:TD=720:TRN=1:POKE198,0
40 RESTORE:FORA=1TO27:READCR(A),UL(A),UR(A),LL(A),LR(A):NEXT
50 FORA=1TO6:READHF(A),LF(A),DR(A):NEXT
60 PRINT"[154][176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]";:PRINT"  [159]SCORE[154]":FORA=1TO5:GOSUB90
70 PRINT"[171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]":NEXTA:GOSUB90
80 PRINT"[173][192][192][177][192][192][177][192][192][177][192][192][177][195][195][177][192][192][177][192][192][177][192][192][177][192][192][189]":GOTO100
90 FORB=1TO2:PRINT"[221]  [221]  [221]  [221]  [221]  [221]  [221]  [221]  [221]  [221]":NEXT:RETURN
100 GOSUB690:INPUT"[159]HOW MANY PLAYERS";P$:P=VAL(P$)
110 IF(P<1)OR(P>10)THENGOSUB640:PRINT"SORRY, 1 TO 10 PLAYERS ONLY":GOTO100
120 GOSUB680:FORA=1TOP:PRINT"TYPE NAME OF PLAYER";A:INPUTN$(A)
130 N$(A)=LEFT$(N$(A),9):L=LEN(N$(A)):PRINT"[145]  "N$(A);:FORB=1TO26:FORC=1TOL
140 PRINT"[157]";:NEXT:PRINT" "N$(A);:FORD=1TO15:NEXTD,B:FORE=1TO(21-A*2):FORF=1TOL
150 PRINT"[157]";:NEXTF:PRINT"          [145][157][157][157][157][157][157][157][157][157][157]"N$(A);:FORG=1TO20:NEXTG,E
160 PRINT:PRINTTAB(38)"[145]0[157]":GOSUB690:NEXTA
170 PRINT"DO YOU WANT A MATCH TO BE 2 IDENTICAL"
180 PRINT"BLOCKS OR 3? (PRESS 2 OR 3)"
190 GETI$:I=VAL(I$):IFI<>2ANDI<>3GOTO190
200 GOSUB680:SC=160:M=54:Q=0:FORJ=1TOM:T(J)=J:NEXTJ:FORJ=MTO1STEP-1
210 R=INT(J*RND(0)+1):R(J)=T(R):FORK=RTOJ:T(K)=T(K+1):NEXTK
220 Q=Q+1:BB=Q:GOSUB650:NEXTJ
230 FORN=1TOM:IFR(N)>M/ITHENR(N)=R(N)-M/I:IFI=3ANDR(N)>18THENR(N)=R(N)-18
240 NEXT
250 V=53248:POKEV+21,4:POKE2042,13:POKEV+41,1
260 FORN=18TO45STEP3:POKE832+N,1:POKE833+N,255:POKE834+N,128:NEXT
270 POKEV+4,124:POKEV+5,111
280 BLK=23:X=124:Y=111:BK(2)=0:BK(3)=99:PLA=PLA+1:IFPLA>PTHENPLA=1:TRN=TRN+1
290 FL=1:GOSUB690:PRINT"ROUND NUMBER";TRN:IFMATCH<M/ITHEN330
300 PRINT"[145]GAME OVER":PRINT"PRESS FIRE BUTTON TO PLAY AGAIN."
310 A=PEEK(56321)AND16:IFA=16THEN310
320 RUN
330 PRINT"IT IS YOUR TURN, ";N$(PLA);"        "
340 POKEV+21,4:POKEV+4,X:POKEV+5,Y:JV=255-PEEK(56321)
350 IFJV=1THENY=Y-24:GOTO410
360 IFJV=2THENY=Y+24:GOTO410
370 IFJV=8THENX=X+24:GOTO410
380 IFJV=4THENX=X-24:GOTO410
390 IFJV>10THENROW=(Y-39)/24:COL=(X-4)/24:BK(FL)=BLK:GOTO460
400 POKEV+21,0:FORG=1TO15:NEXT:GOTO340
410 FORG=1TO60:NEXT:IFY<63THENY=63:GOTO340
420 IFY>183THENY=183:GOTO340
430 IFX<28THENX=28:GOTO340
440 IFX>220THENX=220:GOTO340
450 BLK=(9*Y+X-571)/24:GOTO340
460 IF(R(BLK)=0)OR(BK(2)=BK(1))OR(BK(3)=BK(2))OR(BK(3)=BK(1))GOTO340
470 POKEV+21,0:PT=1105+(ROW-1)*120+(COL-1)*3:PC=PT+54272:B=R(BLK)
480 POKEPT,UL(B):POKEPT+1,UR(B):POKEPC,CR(B):POKEPC+1,CR(B):POKEPT+40,LL(B)
490 POKEPT+41,LR(B):POKEPC+40,CR(B):POKEPC+41,CR(B):IFFL=IGOTO520
500 BK(FL)=BLK:X=124:Y=111:BLK=23:IFBK(FL)=23THENX=124:Y=135:BLK=32
505 IF(BK(1)=23ANDBK(2)=32)OR(BK(1)=32ANDBK(2)=23)THENX=124:Y=87:BLK=14
510 FL=FL+1:GOTO340
520 IFR(BK(1))<>R(BK(2))THEN580
530 IFI=3ANDR(BK(2))<>R(BK(3))THEN580
540 S=54272:POKES+5,15:POKES+6,0:POKES+24,10
550 FORA=1TO6:PRINT"    M A T C H [146]":POKES+1,HF(A):POKES,LF(A):POKES+4,17
560 FORB=1TODR(A):NEXTB:PRINT"   [146] M A T C H ":POKES+4,16:FORC=1TO50:NEXTC,A
570 GOTO610
580 GOSUB690:PRINT"         NO MATCH [146]"
590 FORA=1TO30:POKE54296,5:POKE54296,0:NEXT:GOSUB690
600 SC=160:FORA=1TOI:BB=BK(A):GOSUB650:NEXT:GOTO280
610 S(PLA)=S(PLA)+1:POKE214,(1+PLA*2):PRINT:POKE211,37:PRINTS(PLA)
620 MATCH=MATCH+1:R(BK(1))=0:R(BK(2))=0:R(BK(3))=0
630 SC=32:FORA=1TOI:BB=BK(A):GOSUB650:NEXT:PLA=PLA-1:GOTO280
640 FORA=1TO30:POKE54296,5:POKE54296,0:NEXT:RETURN
650 PT=1009+93*INT((BB+8)/9)+3*BB:PC=PT+54272
660 POKEPC,14:POKEPC+1,14:POKEPC+40,14:POKEPC+41,14
670 POKEPT,SC:POKEPT+1,SC:POKEPT+40,SC:POKEPT+41,SC:RETURN
680 POKE214,21:PRINT:POKE211,0:FORZ=1TO35:PRINT" ";:NEXT
690 POKE214,20:PRINT:POKE211,1:FORZ=1TO40:PRINT" ";:NEXT:PRINT"[145]";:RETURN
700 DATA01,233,223,95,105,13,122,76,80,79,07,108,123,124,126
710 DATA10,77,78,78,77,10,91,91,91,91,03,32,160,160,32
720 DATA07,118,117,118,117,07,76,122,103,101,13,233,121,95,120
730 DATA10,63,63,63,63,10,85,73,74,75,03,127,32,32,127
740 DATA01,102,102,102,102,01,90,90,90,90,00,65,65,65,65
750 DATA10,83,83,83,83,13,13,13,13,13,10,79,80,76,122
760 DATA03,32,255,255,32,13,121,223,120,105,13,2,2,2,2
770 DATA05,36,36,36,36,03,121,121,106,116,07,121,121,120,120
780 DATA03,87,87,87,87,03,160,32,32,160,07,112,110,109,125
790 DATA12,143,40,15,210,40,18,209,40,25,30,150,18,209,40,25,30,800
800 PRINT"[147]":POKE53269,0:RESTORE:G=1104:FORF=1TO27:READA,B,C,D,E
810 POKEG,B:POKEG+1,C:POKEG+54272,A:POKEG+54273,A
820 POKEG+40,D:POKEG+41,E:POKEG+54312,A:POKEG+54313,A
830 G=G+4:IFG=1140THENG=1264
840 IFG=1300THENG=1424
850 NEXT:FORG=1TO12:PRINT:NEXT