10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 POKE53280,6:POKE53281,6:PRINT"[147][159]  COPYRIGHT 1988 COMPUTE! PUB., INC."
30 PRINTTAB(11)"ALL RIGHTS RESERVED"
40 FORI=1TO345:READA:X=X+A:NEXT:IFX<>34871THENPRINT"DATA STATEMENT ERROR":STOP
50 RESTORE
60 ONLO+1GOTO320,630
70 IFSX(1)=SX(2)ANDSY(1)=SY(2)THEN1010
80 IFK$<>""ANDPL=2THENPL=1:GOTO150
90 IFLM<MAANDMA<97THENPOKEKA(INT(MA)),160:LM=LM+1:POKE254,0:POKE255,3:GOTO90
100 MA=MA+.04:IFMA>97THENPOKE173,0:POKEKA(97),160:GOTO1310
110 X=PEEK(653):GETK$:IF(ASC(K$+CHR$(0))AND127)<>A1ANDX=0THEN90
120 PL=1:MA=MA+.25:IFX>0THENPL=2
130 E(1)=PEEK((40*DN(1)+1024+AC(1))):E(2)=PEEK((40*DN(2)+1024+AC(2))):GOTO150
140 GOTO1010
150 PI=(E(PL)-128)/4+1
160 POKE254,PL*16:POKE255,15:ONPIGOTO180,210,250,280
170 REM ** UP **
180 IFSY(PL)-16<69THEN70
190 DN(PL)=DN(PL)-2:SY(PL)=SY(PL)-16:GOSUB1110:GOSUB300:GOTO70
200 REM ** LEFT **
210 IFA(PL)=1THENSX(PL)=SX(PL)+255
220 IFSX(PL)-16<57THEN70
230 AC(PL)=AC(PL)-2:SX(PL)=SX(PL)-16:GOSUB1110:GOSUB300:GOTO70
240 REM ** DOWN **
250 IFSY(PL)+16>213THEN70
260 DN(PL)=DN(PL)+2:SY(PL)=SY(PL)+16:GOSUB1110:GOSUB300:GOTO70
270 REM ** RIGHT **
280 IFSX(PL)+16>249THEN70
290 AC(PL)=AC(PL)+2:SX(PL)=SX(PL)+16:GOSUB1110:GOSUB300:GOTO70
300 IFPL=CHTHENSC(PL)=SC(PL)+1
310 PRINT""SPC(32)SC(1)" ":PRINT""SPC(32)SC(2)" ":RETURN
320 PA$="PLAYER":POKE53269,0:PRINT"":GOSUB1450
330 PRINT"[159]   PLAYER 1'S KEY  "+CHR$(142)+CHR$(8);:GOSUB1430:P1$=P$:PRINTP$
340 PRINT"[159]   PLAYER 2 USES [159]SHIFT"
350 PRINT"[159]   ARROW SPEED (1-5)  ";
360 GOSUB1430:IFP$<"1"ORP$>"5"ORP$=""THEN360
370 AS=VAL(P$)*50:PRINTP$:PRINT:PRINTSPC(14)"[159]PLEASE WAIT"
380 A1=ASC(P1$)AND127:GOSUB1260
390 A$(1)="@A[157][157]BC[146][145]":A$(2)="DE[157][157]FG[146][145]":A$(3)="HI[157][157]JK[146][145]":A$(4)="LM[157][157]NO[146][145]"
400 A$(5)="[151]  [157][157]  [146][145]"
410 CH=1
420 CL(1)=3:CL(2)=7:FORI=54272TO54296:POKEI,0:NEXT:POKE54278,192:POKE54276,32
430 POKE54276,33:POKE54296,15:GOSUB460:IFAGTHEN600
440 GOTO570
450 REM ** CHOOSE RANDOM POSITION **
460 IFRNTHEN480
470 PO(1)=1:PO(2)=130:RN=1:GOTO500
480 PO(1)=INT(130*RND(0))+1
490 PO(2)=INT(130*RND(1))+1:IFPO(1)=PO(2)THEN490
500 FORMT=1TO2
510 SY(MT)=69:SX(MT)=57
520 DN=13:FORI=1TO9:IFPO(MT)>DNTHENSY(MT)=SY(MT)+16:DN=DN+13
530 NEXT
540 AB=DN-PO(MT):AC=12-AB:AA=16*AC+SX(MT)
550 SX(MT)=AA
560 AC(MT)=5+(2*AC):DN(MT)=1+(2*(DN/13)):NEXTMT:RETURN
570 ML$="[162]"+CHR$(8)+"[189]<"+CHR$(3)+"[149]X[202]"+CHR$(16)+CHR$(248)+"L[191][163]":POKE835,0
580 POKE836,208:POKE830,0:POKE831,216:POKE828,0:POKE829,56:POKE56334,0
590 POKE1,51:ML$=ML$:SYS(PEEK(51)+256*PEEK(52)):POKE1,55:POKE56334,1
600 FORI=13312TO13312+128:READJ:POKEI,J:NEXT
610 GOSUB1070
620 FORI=0TO152:READJ:POKE49152+I,J:NEXT
630 IFPEEK(789)=0THEN650
640 POKE53265,27:POKE56333,127:POKE788,0:POKE789,192:POKE53274,129
650 POKE53272,28:POKE53280,11:POKE53281,11
660 REM ** ^ **
670 DATA 255,128,128,128,128,129,131,135
680 DATA 255,1,1,1,1,129,193,225
690 DATA 129,129,129,129,128,128,128,255
700 DATA 129,129,129,129,1,1,1,255
710 REM ** _ **
720 DATA 255,128,128,128,128,130,134,143
730 DATA 255,1,1,1,1,1,1,241
740 DATA 143,134,130,128,128,128,128,255
750 DATA 241,1,1,1,1,1,1,255
760 DATA 255,128,128,128,129,129,129,129
770 DATA 255,1,1,1,129,129,129,129
780 DATA 135,131,129,128,128,128,128,255
790 DATA 225,193,129,1,1,1,1,255
800 REM ** /////// **
810 DATA 255,128,128,128,128,128,128,143
820 DATA 255,1,1,1,1,65,97,241
830 DATA 143,128,128,128,128,128,128,255
840 DATA 241,97,65,1,1,1,1,255
850 POKE173,0
860 PRINT"[147]":GOSUB870:GOTO920
870 PRINT"[151]";:FORI=1TO2:PRINT"                                        ";
880 NEXT:PRINT"    [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]       "
890 FORI=1TO20:PRINT"    [180][170]       ":NEXT
900 PRINT"    [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]       "
910 PRINT"                                       ":RETURN
920 FORZ=1TO10:PRINT"";:FORI=1TO13:X=INT(4*RND(1))+1
930 PRINTA$(X);:NEXT:PRINT""
940 NEXT
950 FORI=1063TO2023STEP40:POKEI,160:POKEI+54272,11:NEXT
960 POKE53281,12
970 GOSUB310:POKEV+21,255
980 POKE172,0:POKE173,AS:POKE160,256-AS
990 GOTO70
1000 REM ** PLAYER TAGGED **
1010 POKE173,0:POKEV+40,CL(CH):IFCH=1THENCH=2:HC=1:GOTO1030
1020 CH=1:HC=2
1030 CZ$=STR$(HC):PRINT""SPC(12)"PLAYER "CZ$" IS NOW IT":GOSUB1440
1040 PRINT""SPC(12)"[151]                   "
1050 FORI=1TO500:NEXT:POKEV+21,0:GOSUB460:GOSUB1090:GOTO970
1060 REM ** SPRITE **
1070 V=53248:POKE2042,13:POKE2041,13
1080 FORN=0TO62:READI:POKE832+N,I:NEXT
1090 POKEV+40,3
1100 POKEV+41,7:POKE53275,7
1110 GOSUB1220
1120 POKEV+2,SX(1):POKEV+3,SY(1)
1130 POKEV+4,SX(2):POKEV+5,SY(2):RETURN
1140 DATA0,0,0,0,0,0,0,0,0
1150 DATA0,0,0,0,0,0,0,0
1160 DATA0,0,0,0,0,0,127,248
1170 DATA0,127,248,0,127,248,0,127
1180 DATA248,0,127,248,0,127,248,0
1190 DATA127,248,0,127,248,0,127,248
1200 DATA0,127,248,0,127,248,0,127
1210 DATA248,0,0,0,0,0,0
1220 A(1)=0:A(2)=0
1230 IFPEEK(V+16)=4ORPEEK(V+16)=6THENA(2)=1
1240 IFPEEK(V+16)=2ORPEEK(V+16)=6THENA(1)=1
1250 RETURN
1260 DIMKA(101):KA(1)=1108:FORI=2TO21:KA(I)=KA(1)+40*(I-1):NEXT
1270 KA(22)=1948:FORI=23TO49:KA(I)=KA(22)+(I-22):NEXT
1280 KA(50)=1974:FORI=51TO70:KA(I)=KA(49)-40*(I-50):NEXT
1290 KA(71)=1135:FORI=72TO97:KA(I)=KA(I-1)-1:NEXT
1300 RETURN
1310 PRINT"";:IFGM=1THEN1340
1320 GM=1:PRINT""SPC(10)"ROUND 1 OVER":GOSUB1440:GOSUB470:MA=0:LM=0:GOSUB870
1330 GOSUB1120:PRINT"            ":GOSUB310:GOTO980
1340 PRINT"[147]"SPC(12)"G A M E   O V E R":POKE53280,6:POKE53281,6:POKE53269,0
1350 PRINT"[159]      PLAYER ONE SCORED"SC(1)
1360 PRINT"[158]      PLAYER TWO SCORED"SC(2)
1370 P$="1":IFSC(2)>SC(1)THENP$="2"
1380 IFSC(1)<>SC(2)THENPRINT"[129]PLAYER "P$" WINS BY"ABS(SC(1)-SC(2))"POINTS"
1390 IFSC(1)=SC(2)THENPRINTSPC(10)"[153]IT'S A TIE GAME"
1400 PRINT"      PRESS ANY KEY TO PLAY AGAIN"
1410 GOSUB1430
1420 CLR:AG=-1:PRINT"[147]":GOTO60
1430 POKE198,0:WAIT198,1:GETP$:RETURN
1440 FORDELAY=1TO4000:NEXT:RETURN
1450 PRINT"  [213][195][195][201][213][195][195][201][213][201]  [213][201][213][195][195][201][213][201][213][201][213][195][195][195][195][201][213][195][195][201][213][195][195][201]"
1460 PRINT"  [194][213][195][203][194][213][201][194][194][202][201][213][203][194][194][213][201][194][194][194][194][194][202][195][201][213][195][203][194][213][201][194][194][213][195][203]"
1470 PRINT"  [194][194]  [194][194][194][194][194][213][201][213][201][194][194][202][203][194][194][221][221][194]  [194][194]  [194][202][203][194][194][194][213][201]"
1480 PRINT"  [194][202][195][201][194][202][203][194][194][194][202][203][194][194][194][213][195][203][194][202][203][194]  [194][194]  [194][213][201][194][194][202][203][194]"
1490 PRINT"  [202][195][195][203][202][195][195][203][202][203]  [202][203][202][203]  [202][195][195][203]  [202][203]  [202][203][202][203][202][195][195][203]":RETURN
1500 DATA 165,173,240,60,165,162,197,172,208,54,169,4,133,175,169,0
1510 DATA 133,174,168,177,174,201,128,144,10,201,144,176,6,105,4,41
1520 DATA 143,145,174,200,192,231,208,16,165,175,201,7,144,10,165,172
1530 DATA 24,101,173,133,172,56,176,8,192,0,208,215,230,175,208,211
1540 DATA 165,255,48,14,198,255,41,15,24,101,254,170,189,105,192,141
1550 DATA 1,212,169,1,141,25,208,169,0,141,18,208,173,13,220,41
1560 DATA 1,240,3,76,49,234,76,188,254,0,128,104,88,76,68,62
1570 DATA 56,52,49,47,45,44,43,42,42,0,16,24,40,8,16,32
1580 DATA 48,24,32,48,64,4,8,16,24,0,122,0,80,0,52,0,20,0,18,0,14,0,12,0,11