9 clear ;NT=0
  10 FC=8;BC=50
  20 &(9)=82;&(1)=8;&(0)=8;&(2)=50;&(3)=50
  30 F=0;K=0
 500 B=30
 510 A=0
 516 for B=150to 90step -10
 520 for A=0to 70step 10
 530 @(A)=A
 531 @(B)=B
 540 box A,B-120,2,2,1
 550 next A
 560 next B
 570 if B-120=-40goto 580
 580 D=5;E=-30;G=65;H=-30
 590 D=D+(JX(1)mul 5)
 591 CY=30;print "#1",#3,F
 600 E=E+(JY(1)mul 5)
 610 if D>70D=70
 620 if D<0D=0
 630 if E>30E=30
 640 if E<-30E=-30
 650 box D,E,3,3,3;box D,E,3,3,3
 660 if PX(D,E)=1goto 590
 670 if TR(1)=0goto 590
 680 if TR(1)=1goto 5000
 700 G=G+(JX(2)mul 5)
 701 CY=10;print "#2",#3,K
 710 H=H+(JY(2)mul 5)
 720 if G>70G=70
 730 if G<0G=0
 740 if H>30H=30
 750 if H<-30H=-30
 760 box G,H,3,3,3;box G,H,3,3,3
 770 if PX(G,H)=1goto 700
 780 if TR(2)=0goto 700
 790 if TR(2)=1goto 9000
5000 C=Ddiv 2;if RMgoto 5020
5010 box D,E,2,10,1;goto 7000
5020 Z=Ediv 2;if RMgoto 590
5030 box D,E,10,2,1;goto 7000
7000 C=Ddiv 2;if RMgoto 8000
7010 if PX(D-10,E)if PX(D-5,E-5)if PX(D-5,E+5)box D-5,E,10,10,1;F=F+1
7020 CY=30;print "#1",#3,F
7030 if PX(D+10,E)if PX(D+5,E-5)if PX(D+5,E+5)box D+5,E,10,10,1;F=F+1
7040 CY=30;print "#1",#3,F
7050 if (PX(D+5,E)=1)+(PX(D-5,E)=1)goto 590
7060 goto 700
8000 if PX(D,E-10)if PX(D-5,E-5)if PX(D+5,E-5)box D,E-5,10,10,1;F=F+1
8010 CY=30;print "#1",#3,F
8020 if PX(D,E+10)if PX(D-5,E+5)if PX(D+5,E+5)box D,E+5,10,10,1;F=F+1
8030 CY=30;print "#1",#3,F
8040 if (PX(D,E-5)=1)+(PX(D,E+5)=1)goto 590
8050 goto 700
9000 I=Gdiv 2;if RMgoto 9020
9010 box G,H,2,10,1;goto 10000
9020 J=Hdiv 2;if RMgoto 700
9030 box G,H,10,2,1
10000 I=Gdiv 2;if RMgoto 11000
10010 if PX(G-10,H)if PX(G-5,H-5)if PX(G-5,H+5)box G-5,H,8,8,1;K=K+1
10020 CY=10;print "#2",#3,K
10030 if PX(G+10,H)if PX(G+5,H-5)if PX(G+5,H+5)box G+5,E,8,8,1;K=K+1
10040 CY=10;print "#2",#3,K
10050 if (PX(G+5,H)=1)+(PX(G-5,H)=1)goto 700
10060 goto 590
11000 if PX(G,H-10)if PX(G-5,H-5)if PX(G+5,H-5)box G,H-5,8,8,1;K=K+1
11010 CY=10;print "#2",#3,K
11020 if PX(G,H+10)if PX(G-5,H+5)if PX(G+5,H+5)box G,H+5,8,8,1;K=K+1
11030 CY=10;print "#2",#3,K
11040 if (PX(G,H+5)=1)+(PX(G,H-5)=1)goto 700
11050 goto 590