10 _TURBO ON 20 DEFINTA-Z:COLOR15,11,0:WT=70:WS=11 30 SCREEN5:CLS:COLOR=(1,1,0,0):COLOR=(2,1,0,0) 40 COLOR=(8,7,6,4):COLOR=(9,7,5,1):COLOR=(11,5,3,0) 50 LINE(2,2)-(253,209),1,BF:SPRITE$(1)="à à":SPRITE$(2)="`ðð`" 60 R=7:G=0:F=1:XX=124:YX=1:X1=8:Y1=7:X2=116:Y2=115:M1=1:M2=2:S=1 70 PUTSPRITE1,(XX-1,YX-2),8,1:GOTO210 80 IFSTRIG(0)GOTO720ELSEK=STICK(0):IF(KAND1)=0GOTO210 90 ONSGOTO100,150 100 IFK=3THENIFPOINT(XX+1,YX)=FTHENS=2:A1=XX+1:B1=YX:GOTO150ELSEIFXX<254THEN XX=XX+1:GOTO70ELSE210 110 IFK=7THENIFPOINT(XX-1,YX)=FTHENS=2:A1=XX-1:B1=YX:GOTO160ELSEIFXX>1THEN XX=XX-1:GOTO70ELSE210 120 IFK=1THENIFPOINT(XX,YX-1)=FTHENS=2:A1=XX:B1=YX-1:GOTO170ELSEIFYX>1THENYX=YX-1:GOTO70ELSE210 130 IFK=5THENIFPOINT(XX,YX+1)=FTHENS=2:A1=XX:B1=YX+1:GOTO180ELSEIFYX<210THENYX=YX+1:GOTO70ELSE210 140 PUTSPRITE1,(XX-1,YX-2),8,1:PSET(XX,YX),9:GOTO210 150 IFK=3THENXX=XX+1:IFPOINT(XX,YX)=9THEN690ELSEIFPOINT(XX,YX)=11THENS=1:A2=XX-1:B2=YX:GOTO580ELSE140 160 IFK=7THENXX=XX-1:IFPOINT(XX,YX)=9THEN690ELSEIFPOINT(XX,YX)=11THENS=1:A2=XX+1:B2=YX:GOTO580ELSE140 170 IFK=1THENYX=YX-1:IFPOINT(XX,YX)=9THEN690ELSEIFPOINT(XX,YX)=11THENS=1:B2=YX+1:A2=XX:GOTO580ELSE140 180 IFK=5THENYX=YX+1:IFPOINT(XX,YX)=9THEN690ELSEIFPOINT(XX,YX)=11THENS=1:B2=YX:A2=XX:GOTO580ELSE140 190 PUTSPRITE2,(X1,Y1-1),7,2:ONM1GOTO250,290,330,370 200 PUTSPRITE 2,(X1,Y1-1),7,2:GOTO410 210 IF(VDP(-2)AND64)=0GOTO210 220 ONM1GOTO230,270,310,350 230 IFPOINT(X1+4,Y1+4)=9GOTO690 240 IFPOINT(X1+4,Y1+4)=11GOTO190ELSEX1=X1+1:Y1=Y1+1:GOTO200 250 IFPOINT(X1+4,Y1)=11THENM1=4ELSEM1=2 260 GOTO410 270 IFPOINT(X1+4,Y1-1)=9GOTO690 280 IFPOINT(X1+4,Y1-1)=11GOTO190ELSEX1=X1+1:Y1=Y1-1:GOTO200 290 IFPOINT(X1+4,Y1+1)=11THENM1=3ELSEM1=1 300 GOTO410 310 IFPOINT(X1-1,Y1-1)=9GOTO690 320 IFPOINT(X1-1,Y1-1)=11GOTO190ELSEX1=X1-1:Y1=Y1-1:GOTO200 330 IFPOINT(X1-1,Y1+1)=11THENM1=2ELSEM1=4 340 GOTO410 350 IFPOINT(X1-1,Y1+4)=9GOTO690 360 IFPOINT(X1-1,Y1+4)=11GOTO190ELSEX1=X1-1:Y1=Y1+1:GOTO200 370 IFPOINT(X1-1,Y1)=11THENM1=1ELSEM1=3 380 GOTO410 390 PUTSPRITE3,(X2,Y2-1),7,2:ONM2GOTO440,480,520,560 400 PUTSPRITE3,(X2,Y2-1),7,2:GOTO80 410 ONM2GOTO420,460,500,540 420 IFPOINT(X2+4,Y2+4)=9GOTO690 430 IFPOINT(X2+4,Y2+4)=11GOTO390ELSEX2=X2+1:Y2=Y2+1:GOTO400 440 IFPOINT(X2+4,Y2)=11THENM2=4ELSEM2=2 450 GOTO80 460 IFPOINT(X2+4,Y2-1)=9GOTO690 470 IFPOINT(X2+4,Y2-1)=11GOTO390ELSEX2=X2+1:Y2=Y2-1:GOTO400 480 IFPOINT(X2+4,Y2+1)=11THENM2=3ELSEM2=1 490 GOTO80 500 IFPOINT(X2-1,Y2-1)=9GOTO690 510 IFPOINT(X2-1,Y2-1)=11GOTO390ELSEX2=X2-1:Y2=Y2-1:GOTO400 520 IFPOINT(X2-1,Y2+1)=11THENM2=2ELSEM2=4 530 GOTO80 540 IFPOINT(X2-1,Y2+4)=9GOTO690 550 IFPOINT(X2-1,Y2+4)=11GOTO390ELSE X2=X2-1:Y2=Y2+1:GOTO400 560 IFPOINT(X2-1,Y2)=11THENM2=1ELSEM2=3 570 GOTO80 580 PUTSPRITE 1,(XX-1,YX-2),8,1:A=A2:B=B2:TIME=0:PSET(A,B),9:PAINT(A,B),11,F 590 PAINT(X1+1,Y1+1),FXOR3,11:IFPOINT(X2+1,Y2+1)=FTHENPAINT(X2+1,Y2+1),FXOR3,11 600 IFPOINT(A1+1,B1)=FTHENPAINT(A1+1,B1),11,11:GOTO680 610 IFPOINT(A1-1,B1)=FTHENPAINT(A1-1,B1),11,11:GOTO680 620 IFPOINT(A1,B1+1)=FTHENPAINT(A1,B1+1),11,11:GOTO680 630 IFPOINT(A1,B1-1)=FTHENPAINT(A1,B1-1),11,11:GOTO680 640 IFPOINT(A2+1,B2)=FTHENPAINT(A2+1,B2),11,11:GOTO680 650 IFPOINT(A2-1,B2)=FTHENPAINT(A2-1,B2),11,11:GOTO680 660 IFPOINT(A2,B2+1)=FTHENPAINT(A2,B2+1),11,11:GOTO680 670 IFPOINT(A2,B2-1)=FTHENPAINT(A2,B2-1),11,11:GOTO680 680 F=FXOR3:IFTIME