10 DIM BX(8,13),ZO(84),ZX(4,4) 20 FORA=679TO743:READB:CH=CH+B:POKEA,B:NEXT 30 FORX=0TO4:FORY=1TO4:READZX(X,Y):CH=CH+ZX(X,Y):NEXT:NEXT 40 IFCH<>6391THENPRINT"DATA ERROR":END 50 POKE785,167:POKE786,2 60 DATA 32,247,183,165,20,201,3,176,26,73,3,170,189,255,219,41,15,133,2,169 70 DATA 15,56,229,2,170,189,221,2,168,169,0,32,145,179,96,160,0,41,1,170,189 80 DATA 0,220,41,16,208,1,200,169,0,32,145,179,96,0,1,3,0,4,8,7,0,2,5,6 90 DATA 1,40,42,81,-1,0,0,2,0,-1,0,80,0,1,2,82,1,0,80,82 100 PRINT"[147]":S=1024:C=54272:CH=81:CL=2:OX=46:P1=0:P2=0:IN$="":LX=28:UX=12 110 POKE53280,15:POKE53281,1:FORT=0TO3:PC$(T)="":BZ$(T)="":NEXT 120 X=7:Y=6:V=S+40*X+Y:OV=V:PL=1:OL=46:DT$="" 130 GOSUB710:IFPC$(1)<>"X"THENPOKEV,CH:POKEV+C,14:X=7:Y=6:GOTO150 140 GOTO1210 150 A=USR(PL):IFA=0GOTO210 160 IFA=1THENX=X-1 170 IFA=2THENY=Y+1 180 IFA=3THENX=X+1 190 IFA=4THENY=Y-1 200 GOTO260 210 B=USR(PL+2):IFB=0GOTO150 220 IFOL=66GOTO690 230 IFOL<>46THENGOSUB1440:GOTO150 240 GOSUB1460:IFD1=0THEND1=V:GOTO150 250 D2=V:GOTO360 260 IFX<7THENX=7 270 IFX>21THENX=21 280 IFY<6THENY=6 290 IFY>LXTHENY=LX 300 V=S+40*X+Y 310 IFPC$(PL)="X"THENOL=OX:OC=OY 320 POKEOV,OL:POKEOV+C,OC 330 OL=PEEK(V):OC=PEEK(V+C):POKEV,CH:POKEV+C,14:OV=V:OX=OL 340 IFPC$(PL)<"X"THENOY=OC 350 GOTO150 360 AA=D1:BB=D2:BX$="":IFD14GOTO660 650 BX$="X":GOSUB1480:GOSUB880:GOSUB950 660 D1=0:D2=0:IFBX$=""THENPL=PL+1:GOSUB950 670 IFPC$(PL)="X"GOTO1210 680 POKEV,CH:POKEV+C,14:OV=V:GOTO150 690 E=X:FORK=1TO9:E=E-2:IFE=0THENGOSUB1440:GOTO150 700 NEXT:GOTO240 710 PRINT"[147]":PRINTTAB(8)"[150] WELCOME TO CONNECT'EM ":PRINT:PRINT:GOSUB1480 720 TS=84:GOSUB1460 730 PRINT"TO PLAY THE COMPUTER, ENTER [150]C-64" 740 PRINT"FOR EITHER OR BOTH PLAYER'S NAMES..":PRINT:PRINT:FORT=1TO2500:NEXT 750 FORI=1TO2:GOSUB1460:PRINT"WHAT IS PLAYER #"I"[157]'S NAME[150]";:INPUTPL$(I) 755 IF PL$(I)="" THEN GOTO 750 760 PL$(I)=LEFT$(PL$(I),8):NEXT 770 PRINT:GOSUB1460:F1=-1:F2=0:PRINT:FORT=1TO2:Z$=LEFT$(PL$(T),1):A=ASC(Z$) 780 FL(T)=A-64:F1=F1+4:NC(T)=F1:IFPL$(T)="C-64"THENF2=F2+1:PC$(T)="X" 790 IFT=2ANDF2=2THENPL$(T)="COMMODORE" 800 PRINT"[150] ";PL$(T);" WILL USE JOYSTICK";T:NEXT 810 L%=LEN(PL$(1)):M%=LEN(PL$(2)):L%=(L%/2)+7:M%=(M%/2)+23 820 PRINT:PRINT:PRINT"REGULAR OR MINI GAME (R/M)?" 830 GETZ$:IFZ$="R"GOTO860 840 IFZ$<>"M"GOTO830 850 LX=18:UX=7:TS=42 860 FORX=1TOUX:DT$=DT$+". ":NEXT 870 GOSUB1480:GOSUB950:RETURN 880 IFTY$="N"THENAA=RO:BB=CO 890 IFTY$="A"THENAA=RO-1:BB=CO 900 IFTY$="D"THENAA=RO:BB=CO-1 910 A=(AA*2+7)-2:B=BB*2+4:E=S+A*40+B+41 920 AA=FL(PL):CL=NC(PL) 930 POKEE,AA+128:POKEE+C,CL:CL=2:RETURN 940 PRINT"":FORJ=1TOCC:PRINT:NEXT:RETURN 950 IFIN$=""THENBX$="":PRINT"[147]" 960 PRINT"":PRINTTAB(9)" CONNECT'EM SCOREBOARD ":PRINT 970 IFBX$<>"X"GOTO1000 980 IFPL=1THENP1=P1+1:GOTO1000 990 P2=P2+1:PL=2 1000 PRINTTAB(8)"[159]"+PL$(1);TAB(24)"[158]"+PL$(2):IFPL>2THENPL=1 1010 PRINTTAB(L%)"[150]";P1;TAB(M%)P2 1020 POKE781,6:SYS59903:NA$=PL$(PL):POKE646,NC(PL) 1030 PRINT:PRINTTAB(4)NA$;"'S TURN":IFPC$(PL)=""THENGOSUB1460 1040 IFIN$<>""GOTO1070 1050 IN$="X":CC=6:GOSUB940 1060 FORX=1TO8:PRINTTAB(6)"";DT$:PRINT:NEXT:TI$="000000" 1070 GOSUB1200 1080 A=P1+P2:IFA=TSGOTO1100 1090 RETURN 1100 WN$=" WINS!!":NA$=PL$(1)+WN$:IFP2=P1THENNA$="IT'S A TIE!!":GOTO1120 1110 POKE646,NC(1):IFP2>P1THENNA$=PL$(2)+WN$:POKE646,NC(2) 1120 CC=22:GOSUB940 1130 FORX=1TO7:POKE781,22:SYS59903:GOSUB1480:PRINTTAB(12)"[145]";NA$ 1140 FORY=1TO300:NEXT:NEXT 1150 PRINTTAB(7)"[150]CARE TO PLAY AGAIN (Y/N)?" 1160 GETZ$:IFZ$=""GOTO1160 1170 IFZ$="N"THENEND 1180 IFZ$<>"Y"THENGOTO1160 1190 FORA=1TO7:FORB=1TO12:BX(A,B)=0:NEXT:NEXT:D1=0:D2=0:GOTO100 1200 PRINT"":PRINT"[156]";LEFT$(TI$,2);":";MID$(TI$,3,2);":";RIGHT$(TI$,2):RETURN 1210 NZ=0:VA=-1:NX=0:GOSUB1510 1220 VA=VA+1:NL=VA+1 1230 IFBZ$(VA)="X"GOTO1220 1240 FORA=1TO7:FORB=1TOUX-1 1250 IFBX(A,B)=3THENNZ=0:NL=4:NX=0:GOSUB1380:A=7:B=UX-1:GOTO1270 1260 IFBX(A,B)=VATHENGOSUB1380 1270 NEXT:NEXT:NX=0:IFNZ>0GOTO1290 1280 BZ$(VA)="X":GOTO1220 1290 R=INT(RND(1)*NZ)+1:IFNX=NZTHENNZ=0:GOTO1220 1300 IFZO(R)=99GOTO1290 1310 NX=NX+1:LOC=ZO(R) 1320 FORZ=1TO4:RX$(Z)="":NEXT:RX=0 1330 IFRX=4THENZO(R)=99:GOTO1290 1340 Z=INT(RND(1)*4)+1:IFRX$(Z)="X"GOTO1340 1350 RX=RX+1:RX$(Z)="X" 1360 E=PEEK(LOC+ZX(0,Z)):IFE=32THENGOSUB1390:GOTO1420 1370 GOTO1330 1380 E=(A*2+7)-2:K=B*2+4:LOC=S+E*40+K:NZ=NZ+1:ZO(NZ)=LOC:RETURN 1390 XX=LOC-S:FORK=1TO21:XX=XX-40:YY=XX:IFYY<40THENXX=K:K=21 1400 NEXT 1410 ROW=(XX-7)/2+1:COL=(YY-6)/2+1:RETURN 1420 IFBX(ROW+ZX(Z,1),COL+ZX(Z,2))