10CLEAR :CLS :RANDOMIZE
20LOCATE 5,3:PRINT "»²ÀÞ² 11"
30LOCATE 5,2:INPUT "µµ·»¦²ÚøÀÞ»²";B
40IF B>11 OR B<2 GOTO 30 ELSE B=B-1
50DIM M(B+2,B+2)
60CLS
70LOCATE 5,0:PRINT STR$ (B+1); CHR$ 240; STR$ (B+1)
80FOR J=0 TO B
90FOR I=0 TO B
100LINE (J*3+12,I*3+12)-(J*3+15,I*3+15),B:M(J+1,I+1)=0
110NEXT :NEXT
120LINE (X*3+12,Y*3+12)-(X*3+15,Y*3+15),X,B
130*MAIN BEEP 1,30,5:IF C=(B+1)^2 END
140CALL 48381
150K= ASC INKEY$
160GOSUB *D
170SWITCH K
180CASE 4:IF Y<>0 LET Y=Y-1
190CASE 5:IF Y<>B LET Y=Y+1
200CASE 14:IF X<>B LET X=X+1
210CASE 15:IF X<>0 LET X=X-1
220CASE 32:T=T+1:GOSUB *S
230ENDSWITCH
240GOSUB *D
250GOTO *MAIN
260*D LINE (X*3+12,Y*3+12)-(X*3+15,Y*3+15),X,B:RETURN
270*S RESTORE :FOR J=1 TO 5:READ AX,AY
280IF X+AX=B+1 OR X+AX=-1 OR Y+AY=B+1 OR Y+AY=-1 GOTO 310
290LINE ((X+AX)*3+13,(Y+AY)*3+13)-((X+AX)*3+14,(Y+AY)*3+14),X,B
300IF M(X+AX+1,Y+AY+1)=0 LET M(X+AX+1,Y+AY+1)=1,C=C+1 ELSE M(X+AX+1,Y+AY+1)=0,C=C-1
310NEXT :LOCATE 12,1:PRINT STR$ T:RETURN
320DATA 0,0,0,1,0,-1,1,0,-1,0