0 WIDTH32:POKE65497,0:PCLEAR8:CLEAR2000:GOSUB1000 250 IF C THEN PUT(X,Y)-(X+11,Y+11),P1,PSET:PUT(Y,X)-(Y+11,X+11),P2,PSET:C=0 ELSE PUT(X,Y)-(X+11,Y+11),P2,PSET:PUT(Y,X)-(Y+11,X+11),P1,PSET:C=1 260 IF C THEN PUT(H,V)-(H+11,V+11),J1,PSET ELSE PUT(H,V)-(H+11,V+11),J2,PSET 270 IF C THEN PUT(X1,Y1)-(X1+11,Y1+11),C1,PSET ELSE PUT(X1,Y1)-(X1+11,Y1+11),C2,PSET 274 FOR P=1TO4:PCOPYP TO P+4:NEXT:PMODE3,5:SCREEN1,0:PMODE3,1:PCLS 350 X=X+6:IF X>180 THEN X=0:Y=Y+12:IF Y=168 THEN 590 360 A=JOYSTK(0):B=JOYSTK(1) 370 IF A>50 THEN H=H+6:IF H>180 THEN H=180 380 IF A<10 THEN H=H-6:IF H<0 THEN H=0 390 IF B>50 THEN V=V+6:IF V>174 THEN V=174 400 IF B<10 THEN V=V-6:IF V<0 THEN V=0 410 IF RND(6)=1 THEN CP=RND(4) 420 ON CP GOSUB 490,510,530,550 430 IF (H>X-12 AND HY-12 AND VY-12 AND HX-12 AND VX1-12 AND HY1-12 AND V180 THEN X1=180:CP=RND(4) 500 RETURN 510 X1=X1-6:IF X1<0 THEN X1=0:CP=RND(4) 520 RETURN 530 Y1=Y1+6:IF Y1>174 THEN Y1=174:CP=RND(4) 540 RETURN 550 Y1=Y1-6:IF Y1<0 THEN Y1=0:CP=RND(4) 560 RETURN 570 SC=SC+15:X1=RND(30)*6:Y1=RND(30)*6:PLAY"L20;FAFA":GOTO 585 580 H=0:V=0:SC=SC-10:PLAY"L64;ACEF":IF SC<0 THEN SC=0:GOTO 590 585 SCREEN0,0:PRINT@234,"SCORE="SC:EXEC 44539:SCREEN1,0:RETURN 590 CLS:SCREEN0,0:PRINT@170,"GAME OVER":PRINT @234,"SCORE="SC:PRINT@322,"PRESS ANY KEY TO PLAY AGAIN":EXEC44539:RUN 1000 PMODE3,1:SCREEN1,0:PCLS 1015 DIMP1(12,12),P2(12,12),C1(12,12),C2(12,12),J1(12,12),J2(12,12),X,Y,H,V,X1,H1 1020 COLOR3:LINE(0,0)-(11,11),PSET,BF:LINE(4,6)-(11,9),PRESET,BF:DRAW"BM8,0;C1R2DBD5C4DBL3L1UBU3U1BR2BD7RC3":LINE(20,2)-(31,11),PSET,BF:LINE(24,8)-(31,9),PRESET,BF:DRAW"BM28,2C1R2DC4BL3BDD":PSET(26,8):PSET(31,8):PSET(28,9) 1050 GET(0,0)-(11,11),P1,G:GET(20,0)-(31,11),P2,G 1055 LINE(44,3)-(47,7),PSET,BF:LINE(64,2)-(67,6),PSET,BF:LINE(40,11)-(51,6),PSET:LINE(40,6)-(51,11),PSET:LINE(40,4)-(43,5),PSET:LINE(48,5)-(51,4),PSET:PSET(42,2):PSET(48,2) 1057 DRAW"BM60,11;M63,10;BM68,10M71,11;BM60,8;M63,7;BM68,7;M71,8;BM60,5;M63,4;BM68,4;M71,5":PSET(62,1):PSET(68,1):COLOR2:LINE(44,8)-(47,10),PSET,BF:LINE(64,7)-(67,9),PSET,BF:DRAW"BM40,0D1BM51,0D1;BM60,0D1;BM71,0D1" 1070 GET(40,0)-(51,11),C1,G:GET(60,0)-(71,11),C2,G 1080 DRAW"BM80,4;M86,1;L2;BM80,5;M83,4;BM88,3;D2;BM87,10U2L3D1;BM6,21;L2;M11,24;D1M8,24;BM3,23D1BM4,30U2R3D1":DRAW"C4BM85,0R3;BM3,20;R3":PSET(86,11):PSET(4,31) 1095 COLOR3:LINE(84,2)-(87,7),PSET,BF:LINE(4,22)-(7,27),PSET,BF:PSET(86,5,2):PSET(4,25,2) 1100 GET(80,0)-(91,11),J1,G:GET(0,20)-(11,32),J2,G 1190 H=102:V=90:X=00:Y=0:X1=RND(28)*6:Y1=RND(28)*6:CP=RND(4):T=255:PCLS:RETURN