10CLS :CLEAR :E=0
20RANDOMIZE :RESTORE
30DIM M$(3,3),H(3,1),L(10)
40FOR J=0 TO 10:READ L(J):NEXT
50DATA 5,10,20,30,50,60,70,80,90,100,200
60FOR J=0 TO 3
70FOR I=0 TO 3
80A=A+1,M$(I,J)= HEX$ A
90NEXT :NEXT
100FOR J=0 TO 3
110FOR I=0 TO 1
120READ H(J,I)
130NEXT :NEXT
140DATA 1,0,-1,0,0,1,0,-1
150M$(3,3)=" ",X=3,Y=3
160LOCATE 8,0:PRINT "16¼ÝÊßÈÙ"
170LOCATE 5,2:PRINT "É-ÏÙ   »ÊÞ²ÊÞÙ"
180LOCATE 4+SF*7,2:PRINT ">"
190LOCATE 4-(SF=0)*7,2:PRINT " "
200CALL 48381:K= ASC INKEY$
210IF K=15 LET SF=0
220IF K=14 LET SF=1
230IF K<>13 GOTO 180
240CLS
250IF SF=1 THEN
260LOCATE 9,1:PRINT "ʼÞÒ¶×"
270LOCATE 9,2:PRINT "ÂÂÞ·¶×"
280LOCATE 8,FF+1:PRINT ">"
290LOCATE 8,-(FF=0)+1:PRINT " "
300CALL 48381:K= ASC INKEY$
310IF K=4 LET FF=0
320IF K=5 LET FF=1
330IF K<>13 GOTO 280
340IF FF=1 LET ST= PEEK &HF3
350L=L(ST)
360ELSE
370INPUT "Я¸½:";L
380ENDIF
390*STAGE
400S=0
410CLS :PRINT "Я¸½:"; STR$ L
420LOCATE 9,2:PRINT "»¸¾²"
430LOCATE 9,3:PRINT "Á­³!"
440FOR J=1 TO L
450H= 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 450
460NX=X+H(H,0),NY=Y+H(H,1),M$(X,Y)=M$(NX,NY),M$(NX,NY)=" ",X=NX,Y=NY
470NEXT
480FOR J=0 TO 3
490FOR I=0 TO 3
500LOCATE I+9,J+1
510PRINT M$(I,J)
520NEXT :NEXT
530BEEP 1,50,70
540*MAIN
550F=0
560LOCATE 2,2
570PRINT STR$ S;"¶²"
580CALL 48381
590K= ASC INKEY$
600SWITCH K
610CASE 14+E:IF X>0 LET H=1,F=1
620CASE 15-E:IF X<3 LET H=0,F=1
630CASE 5-E:IF Y>0 LET H=3,F=1
640CASE 4+E:IF Y<3 LET H=2,F=1
650ENDSWITCH
660IF K=13 GOTO *FIN
670IF F=0 GOTO *MAIN
680BEEP 1,70,20
690NX=X+H(H,0),NY=Y+H(H,1),M$(X,Y)=M$(NX,NY),M$(NX,NY)=" "
700LOCATE X+9,Y+1
710PRINT M$(X,Y)
720LOCATE NX+9,NY+1
730PRINT " "
740X=NX,Y=NY,S=S+1
750GOTO *MAIN
760*FIN
770A=0,C=0
780FOR J=0 TO 3
790FOR I=0 TO 3
800A=A+1
810IF M$(I,J)= HEX$ A LET C=C+1
820NEXT :NEXT
830IF C=15 GOTO *END
840GOTO *MAIN
850*END LOCATE 15,2:PRINT "¶Ý¾²!"
860IF SF=0 CALL 48381:GOTO 10
870IF ST=10 LOCATE 13,2:PRINT "¶Ý¾Þݸر":END
880IF L>=S LOCATE 15,3:PRINT "¸Ø±!!":ST=ST+1,L=L(ST):POKE &HF3,ST:CALL 48381:GOTO *STAGE ELSE LOCATE 15,3:PRINT "ÀÞÒ!!":CALL 48381:GOTO *STAGE