10CLS :CLEAR :E=0
20RANDOMIZE
30DIM M$(3,3),H(3,1)
40FOR J=0 TO 3
50FOR I=0 TO 3
60A=A+1,M$(I,J)= HEX$ A
70NEXT :NEXT
80FOR J=0 TO 3
90FOR I=0 TO 1
100READ H(J,I)
110NEXT :NEXT
120DATA 1,0,-1,0,0,1,0,-1
130M$(3,3)=" ",X=3,Y=3
140INPUT "Я¸½:";L
150LOCATE 9,2:PRINT "»¸¾²"
160LOCATE 9,3:PRINT "Á­³!"
170FOR J=1 TO L
180H= RND 4-1:IF (X=0 AND H=1) OR (X=3 AND H=0) OR (Y=0 AND H=3) OR (Y=3 AND H=2) GOTO 180
190NX=X+H(H,0),NY=Y+H(H,1),M$(X,Y)=M$(NX,NY),M$(NX,NY)=" ",X=NX,Y=NY
200NEXT
210FOR J=0 TO 3
220FOR I=0 TO 3
230LOCATE I+9,J+1
240PRINT M$(I,J)
250NEXT :NEXT
260BEEP 1,50,70
270*MAIN
280F=0
290LOCATE 2,2
300PRINT STR$ S;"¶²"
310CALL 48381
320K= ASC INKEY$
330SWITCH K
340CASE 14+E:IF X>0 LET H=1,F=1
350CASE 15-E:IF X<3 LET H=0,F=1
360CASE 5-E:IF Y>0 LET H=3,F=1
370CASE 4+E:IF Y<3 LET H=2,F=1
380ENDSWITCH
390IF K=13 GOTO *FIN
400IF F=0 GOTO *MAIN
410BEEP 1,70,20
420NX=X+H(H,0),NY=Y+H(H,1),M$(X,Y)=M$(NX,NY),M$(NX,NY)=" "
430LOCATE X+9,Y+1
440PRINT M$(X,Y)
450LOCATE NX+9,NY+1
460PRINT " "
470X=NX,Y=NY,S=S+1
480GOTO *MAIN
490*FIN
500A=0,C=0
510FOR J=0 TO 3
520FOR I=0 TO 3
530A=A+1
540IF M$(I,J)= HEX$ A LET C=C+1
550NEXT :NEXT
560IF C=15 LOCATE 15,2:PRINT "¶Ý¾²!":END
570GOTO *MAIN