... <X2)THENBEGINK1:=X2-X1;K2:=Y2-Y1;REPEATG:=RANDOM(30);SOUND(G*200);PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);X2:=X2-D;X1:=X1+D;K1:=K1-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL ... K1=0;REPEATG:=RANDOM(10);SOUND(G*400);PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);Y1:=Y1+D;Y2:=Y2-D;K2:=K2-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL ... <X2)THENBEGINK1:=X2-X1;K2:=Y2-Y1;REPEATG:=RANDOM(30);SOUND(G*200);PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);X2:=X2-D;X1:=X1+D;K1:=K1-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL K1=0;REPEATG:=RANDOM(20);SOUND(G*300);PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);Y1:=Y1+D;Y2:=Y2-D;K2:=K2-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL...