10 CONSOLE,,0,0:SCREEN 3,2,2:CLS
20 DIM M(11,12):CD=&HED0D:CC=2:ME=3
100 CLS:CH=1:FOR W=0 TO 11 STEP 11:FOR V=0 TO 10:GOSUB 2000:NEXT:NEXT
110 FOR V=0 TO 9 STEP 9:FOR W=1 TO 10:GOSUB 2000:NEXT:NEXT
120 CN=12
140 CT=0
160 GOSUB 800
200 X=1:Y=1:V=X:W=Y:CH=1:DX=1:DY=0:GOSUB2000
300 S1=STICK(0):CT=CT+1:IF CT=CN THEN GOSUB 700
310 IF(S1<>7)AND(S1<>1)AND(S1<>3)AND(S1<>5)THEN360
340 DX=(S1=7)-(S1=3):DY=(S1=1)-(S1=5)
360 X=X+DX:Y=Y+DY
380 IF M(X,Y)=1 THEN 500
385 IF M(X,Y)>1 THEN 900
390 CH=1:V=X:W=Y:GOSUB 2000
400 GOTO 300
500 ME=ME-1:CC=2:CN=12
510 IF ME=0 THEN 4000
520 GOSUB 1000
550 GOTO 140
700 V=INT(RND(-TIME)*7)+2:W=INT(RND(-TIME)*8)+2:CH=CC:GOSUB2000:RETURN
800 CH=0:W=12:FOR V=0 TO 7:GOSUB 2000:NEXT:CH=1
810 FOR V=0 TO ME-1:GOSUB 2000:NEXT
820 RETURN
900 CC=CC+1:CN=CN+1
910 IF CC>13 THEN 3000
920 GOSUB 1000
930 GOTO 140
1000 CH=0:FOR W=1 TO 10:FOR V=1 TO 8:GOSUB 2000:NEXT:NEXT:RETURN
2000 POKECD,CH:AD=V*4+W*600:M(V,W)=CH:A=USR(AD):RETURN
3000 CLS:LOCATE 5,5:PRINT "CLEARED!!"
3020 IF STRIG(0)=0 THEN 3020
3040 END
4000 CLS:LOCATE 5,5:PRINT "GAME OVER"
4020 IF STRIG(0)=0 THEN 4020
4040 END