0 POKE53269,0:POKE53280,4:POKE53281,1:POKE646,15:X=RND(-TI):POKE198,0 1 PRINT"[147]"SPC(15);"ONE ON ONE" 2 PRINT"[154]"TAB(16)"BACKYARD" 3 PRINTTAB(8)"[153][172][146][191][172][162][146][187][191][146][191][161][146][172][190][172][162][146][188][187][162][161][162][146][187][191][146][191][161][146][161]" 4 PRINTTAB(8)"[188][191][161][146][162][161][188][187][161][146][161][188][146][162][161][161][146][162][190][188][190][161][146][161]" 5 PRINTTAB(8)"[188][191][161][146][161][191][191][161][146][188][187][188][146][162][161][161][146][162][190][161][161][161][146][162][187][188][146][162]" 6 PRINT""TAB(12)"[144]BY: DAVID GARNER" 7 PRINT""TAB(10)"[159]PRESS ANY KEY TO PLAY" 8 GETA$:IFA$=""THEN8 10 POKE53265,PEEK(53265)AND239:POKE53280,14:POKE53281,13:PRINT"[147]"; 20 D$="[159]  [157][148] ":PRINTD$D$D$D$D$D$ 30 A$=" [157][157][157][157][157][157]":B$="[161][146][161][157][157]" 40 PRINT""A$A$A$"[150]"B$B$B$B$ 50 A$=" ":PRINT"[155]"; 60 FORI=1TO10:PRINTA$;:NEXT 70 PRINTSPC(26)"[145][182][145][157][182][146][145][157][161][145][157][161][145][157][181][145][157][181][145][157][165][145][157][165][145]"SPC(12);"[167][157][167][157][182][157][182][157][161][157][161][157][181][157][181][157]" 71 A$=" [157][157][157] [157][157][157][157] [157][157][157][157][157] [157][157][157][157][157][157] [157][157][157][157] [157][157] " 73 PRINT""TAB(4)A$""TAB(10)A$ 74 UC=29:UK=4:PRINT"";:FORI=1TO4 75 PRINTTAB(UC)"[129] ";:FORQ=1TOUK 76 PRINT" ";:NEXT:UC=UC-1:UK=UK+2 77 PRINT"[129] [146]":NEXT 78 FORI=1TO6:PRINTTAB(UC+1)"[163][163][163][163][163][163][163][163][163][163][163][163][146]":NEXT 79 PRINT"" 80 PRINT"":FORI=1TO6:PRINTTAB(39)CHR$(20)"[164][157][148][164]":NEXT 82 PRINT""TAB(31)"[150] ":PRINTTAB(31)" .":PRINTTAB(31)" " 83 PRINTTAB(31)" " 110 PRINT"[156]ONE"SPC(32)"TWO" 120 POKE52,62:POKE56,62:CLR:FORI=15872TO15999:READJ:POKEI,J:NEXT 130 POKE53269,17:POKE2040,248:POKE53287,2:POKE53248,176 140 POKE53249,102 150 DATA 219,219,0,181,173,0,74,82,0,74,82,0,53,172,0,53,172,0,26,88,0 160 DATA 21,168,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 170 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 180 DATA 12,0,0,63,0,0,127,128,0,127,128,0,127,128,0,63,0,0,30,0,0 190 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 200 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 210 POKE2044,249:POKE53291,8:POKE53256,178:POKE53257,204 220 DATA 0,40,0,0,170,0,0,170,0,0,170,0,2,170,128,0,170,0,0,40,0 230 DATA 21,85,84,85,85,85,81,85,69,161,85,74,1,85,64,1,85,64,1,85,64 240 DATA 3,255,192,15,255,240,15,195,240,10,0,160,10,0,160,10,0,160,10,0,160,0 250 DATA 0,40,0,0,170,0,0,170,0,0,170,0,2,170,128,0,170,0,0,40,0,21,85,80 260 DATA 85,85,84,81,85,20,161,85,20,1,85,0,1,85,0,1,85,0,3,255,0 270 DATA 3,207,0,3,207,0,2,138,0,2,138,0,2,138,0,2,138,0,0 280 FORI=16000TO16255:READJ:POKEI,J:NEXT 303 DATA 0,40,0,0,170,0,0,170,0,2,170,128,0,170,40,0,40,20,21,85,84 306 DATA 85,85,84,81,85,80,161,85,0,1,85,0,1,85,0,1,85,0,3,255,0 309 DATA 3,255,0,3,207,0,3,207,0,2,138,0,2,138,0,2,138,0,2,138,0,0 312 DATA 0,40,0,0,170,0,0,170,0,2,170,128,20,170,24,20,170,24,21,40,84 315 DATA 21,85,84,5,85,80,1,85,0,1,85,0,1,85,0,1,85,0,3,255,0 318 DATA 3,255,0,3,207,0,2,138,0,2,138,0,2,138,0,2,138,0,2,138,0,0 320 POKE53285,2:POKE53286,1 330 POKE2042,250:POKE53289,10:POKE2043,251:POKE53290,9:T=250:U=251 340 POKE53276,12:POKE53269,29 350 POKE53252,174:POKE53253,194:POKE53254,174:POKE53255,162:CX=174:CY=194 360 POKE53275,0:P1=0:P2=0:BP=1:QX=174:QY=162 364 POKE53265,PEEK(53265)+16 365 REM START MAIN ROUTINE 370 PRINT"[144]"P1TAB(36)P2 380 IFP1=9THENPRINT"[152]PLAYER ONE WINS";:FORI=1TO2500:NEXT:RUN 390 IFP2=9THENPRINT"[152]PLAYER TWO WINS";:FORI=1TO2500:NEXT:RUN 400 J1=PEEK(56320):J2=PEEK(56321) 410 X1=((J1AND4)-4)/4-((J1AND8)-8)/8:Y1=((J1AND1)-1)-((J1AND2)-2)/2 420 M1=-((J1AND16)-16)/16:X1=X1*8:Y1=Y1*9 430 X2=((J2AND4)-4)/4-((J2AND8)-8)/8:Y2=((J2AND1)-1)-((J2AND2)-2)/2 440 M2=-((J2AND16)-16)/16:X2=X2*8:Y2=Y2*9 460 IFX1=0THEN480 470 IF(CX+X1>79)AND(CX+X1<263)THENCX=CX+X1:T=T+((NOTT)AND1)*2-1:POKE2042,T:XZ=1 473 IF(CY+Y1>122)AND(CY+Y1<198)ANDY1THENCY=CY+Y1:XZ=1 475 GOTO499 480 IFY1=0THEN499 490 IF(CY+Y1>122)AND(CY+Y1<198)THENCY=CY+Y1:T=T+((NOTT)AND1)*2-1:POKE2042,T:XZ=1 499 IFXZ=1ANDBP=1THENG=1:XZ=0 500 POKE53252,CXAND255:POKE53253,CY 501 IFCX<256THENPOKE53264,PEEK(53264)AND251 502 IFCX>255THENPOKE53264,PEEK(53264)OR4 510 IFABS(CY-QY)<20ANDABS(CX-QX)<22THENCY=CY-Y1:CX=CX-X1:X1=0:Y1=0:GOTO500 520 IF(BP=1)AND(G=1)THENPOKE53256,(CX+15AND255):POKE53257,CY+13 521 IF(BP=1)AND(G=1)AND(CX+15<256)THENPOKE53264,PEEK(53264)AND239 522 IF(BP=1)AND(G=1)AND(CX+15>255)THENPOKE53264,PEEK(53264)OR16 523 IF(BP=2)THENPOKE53256,(QX+15)AND255:POKE53257,QY+10 524 IF(BP=2)AND(QX+15<256)THENPOKE53264,PEEK(53264)AND239:G=0 525 IF(BP=2)AND(QX+15>255)THENPOKE53264,PEEK(53264)OR16:G=0 540 IFX2=0THEN560 550 IF(QX+X2>79)AND(QX+X2<263)THENQX=QX+X2:U=U+((NOTU)AND1)*2-1:POKE2043,U:ZE=1 553 IF(QY+Y2>122)AND(QY+Y2<198)ANDY2THENQY=QY+Y2:ZE=1 555 GOTO579 560 IFY2=0THEN579 570 IF(QY+Y2>122)AND(QY+Y2<198)THENQY=QY+Y2:U=U+((NOTU)AND1)*2-1:POKE2043,U:ZE=1 579 IFZE=1ANDBP=2THENG=2:ZE=0 580 POKE53254,(QXAND255):POKE53255,QY 581 IFQX<256THENPOKE53264,PEEK(53264)AND247 582 IFQX>255THENPOKE53264,PEEK(53264)OR8 590 IFABS(QY-CY)<20ANDABS(QX-CX)<22THENQY=QY-Y2:QX=QX-X2:X2=0:Y2=0:GOTO580 600 IF(BP=1)THENPOKE53256,(CX+15)AND255:POKE53257,CY+10 601 IF(BP=1)AND(CX+15<256)THENPOKE53264,PEEK(53264)AND239:G=0 602 IF(BP=1)AND(CX+15>255)THENPOKE53264,PEEK(53264)OR16:G=0 603 IF(BP=2)AND(G=2)THENPOKE53256,(QX+15AND255):POKE53257,QY+13 604 IF(BP=2)AND(G=2)AND(QX+15<256)THENPOKE53264,PEEK(53264)AND239 605 IF(BP=2)AND(G=2)AND(QX+15>255)THENPOKE53264,PEEK(53264)OR16 606 IFM1=1THEN650 607 IFM2=1THEN700 610 GOTO370 650 IFBP=1THEN740 660 IFCX-QX>0ANDCX-QX<25ANDCY-QY>-9ANDCY-QY<9THENBP=1:POKE53256,(CX+15)AND255 670 IFBP=1ANDCX>255THENPOKE53264,PEEK(53264)OR16 680 GOTO607 700 IFBP=2THEN1000 710 IFQX-CX>0ANDQX-CX<25ANDQY-CY>-9ANDQY-CY<9THENBP=2:POKE53256,(QX+15)AND255 720 IFBP=2ANDQX>255THENPOKE53264,PEEK(53264)OR16 730 GOTO610 740 POKE53257,CY:POKE2042,252 750 FORI=1TO3:POKE53253,PEEK(53253)-1:POKE53257,PEEK(53257)-1 760 FORQ=1TO3:IF(PEEK(56320)AND16)<>0THENSM=5:POKE53253,PEEK(53253)+I:GOTO890 770 NEXT:IF(PEEK(56321)AND16)=0THENBA=2:POKE2043,253:POKE53255,PEEK(53255)-4 780 IF(PEEK(56321)AND16)=0THENRW=RW+1 790 NEXT 800 POKE53257,CY:POKE2042,252 810 IF(PEEK(56320)AND16)<>0THENSM=0:GOTO850 814 SM=5:POKE53253,PEEK(53253)+4:GOTO890 820 IF(PEEK(56321)AND16)=0THENBA=2:POKE2043,253:POKE53255,PEEK(53255)-3 830 IF(PEEK(56321)AND16)=0THENRW=RW+1 850 POKE53253,PEEK(53253)+4:EX=179:EY=106 860 IFRW>3THENBA=0:GOTO871 870 IF(BA=2)AND(ABS(CX-QX)<16)AND(ABS(CY-QY-12)/2<9)THENSD=1 871 RW=0:IFSD=1THENEX=QX:EY=QY:TP=0:SD=0:GOTO895 885 WF=1:IFSM=0THENP1=P1+1:FT=1 890 IFSM=5THENEX=189:EY=120 895 AU=INT((CX+CY)/70) 897 BX=PEEK(53256)+16*(PEEK(53264)AND16):MX=(EX-BX)/AU 900 BY=PEEK(53257):MY=(EY-BY)/AU-5 905 BP=2:FORJ=1TOAU:BY=BY+MY:MY=MY+(10/AU):POKE53257,BY 910 BX=BX+MX:POKE53256,BXAND255:POKE53257,PEEK(53257)AND239-16*(BX>255) 913 IFBX<255THENPOKE53264,PEEK(53264)AND239 915 NEXT 920 IFFT=1THENGOSUB1500 930 FORI=1TO4:POKE53257,PEEK(53257)+1:NEXT 935 IFWF=1ORSM=5THENQX=174:QY=194:CX=174:CY=162:WF=0 940 GOSUB1504:BA=0:SM=0:POKE2042,251:POKE2043,250:M1=0:M2=0:GOTO520 1000 POKE53257,QY:POKE2043,252 1010 FORI=1TO3:POKE53255,PEEK(53255)-1:POKE53257,PEEK(53257)-1 1020 FORQ=1TO3:IF(PEEK(56321)AND16)<>0THENSM=5:POKE53255,PEEK(53255)+I:GOTO1160 1030 NEXT:IF(PEEK(56320)AND16)=0THENBA=1:POKE2042,253:POKE53253,PEEK(53253)-3 1040 IF(PEEK(56320)AND16)=0THENRW=RW+1 1050 NEXT 1060 POKE53255,PEEK(53255)-1:POKE53257,PEEK(53257)-1:QA=0 1070 IF(PEEK(56321)AND16)<>0THENSM=0:GOTO1120 1077 SM=5:POKE53255,PEEK(53255)+4:GOTO1160 1120 POKE53255,PEEK(53255)+4:EX=179:EY=106 1130 IFRW>3THENBA=0:GOTO1141 1140 IF(BA=1)AND(ABS(QX-CX)<16)AND(ABS(QY-CY-12)/2<9)THENSD=1 1141 RW=0:IFSD=1THENEX=CX:EY=CY:TP=0:SD=0:GOTO1165 1155 WF=1:IFSM=0THENP2=P2+1:FT=1 1160 IFSM=5THENEX=169:EY=120 1165 AU=INT((QX+QY)/70) 1167 BX=PEEK(53256)+16*(PEEK(53264)AND16):MX=(EX-BX)/AU 1170 BY=PEEK(53257):MY=(EY-BY)/AU-5 1175 BP=1:FORJ=1TOAU:BY=BY+MY:MY=MY+(10/AU):POKE53257,BY 1180 BX=BX+MX:POKE53256,BXAND255:POKE53257,PEEK(53257)AND239-16*(BX>255) 1183 IFBX<255THENPOKE53264,PEEK(53264)AND239 1185 NEXT 1190 IFFT=1THENGOSUB1500 1200 FORI=1TO4:POKE53257,PEEK(53257)+1:NEXT 1215 IFWF=1ORSM=5THENCX=174:CY=194:QX=174:QY=162:WF=0 1220 GOSUB1504:BA=0:SM=0:POKE2043,251:POKE2042,250:M1=0:M2=0:GOTO520 1500 N=54272:FORI=NTON+24:POKEI,.:NEXT:POKEN+24,.:POKEN+6,.:POKEN+5,10 1501 POKEN+1,15:POKEN,127:POKEN+4,129 1502 FORI=1TO8:POKE53257,PEEK(53257)+1:POKEN+24,PEEK(N+24)+1:NEXT:POKEN+4,128 1503 FORI=1TO8:POKE53257,PEEK(53257)+1:NEXT:RETURN 1504 POKE53252,CXAND255:POKE53253,CY 1505 POKE53254,(QXAND255):POKE53255,QY 1506 POKE53264,0 1507 FT=0:RETURN 2000 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD -ALL RIGHTS RESERVED