�     >Whitehouse
�     Ominoes Challenge
� By  Stuart Whithouse
(� For 32-bit machines
2� (C) BAU June 1993
<:
Fmain_seed=281283
Pboards%=100
Zminx=7:maxx=15
dminy=7:maxy=15
n:
x1� � � 20,31,0,30:� �=17 � � �"Disqualified":�
�,� �>&10000 � 9:colours=8 � � 4:colours=2
�� 23;10,32;0;0;0;0;
�	�init
��read_paths
��user_init
�total%=0
�� 5:�24,9);"Shape:"
�*�box(26,12+tallest%-1,26+widest%-1,12)
�start%=�
�� board%=1 � boards%
�% seed=(main_seed*board%) � 714025
� board$=�random_board
� �user_newboard(board$)

 fitted%=0

 �stats(15)

 then%=�

" �

,  pick=�rnd(pieces*8)-1

6  �show_piece(pick)

@%  params$=�user_fit(piece$(pick))

JD  � params$="" � fit%=� � fit%=�("FNtry("+�pick+","+params$+")")

T(  � fit% fitted%=fitted%+1:�stats(5)

^
 � � fit%

h- � �-then%>30000 �0,30);"Disqualified":�

r total%=total%+fitted%

| �stats(3)

��

��

�:

�� �stats(bits)

�4� bits � 8 � 5:�24,1);"Board:  ";:� 3:�;board%;

�=� bits � 4 � 5:�24,3);"Pieces: ";:� 3:�;fitted%;�(39-�);

�4� bits � 2 � 5:�24,5);"Total:  ";:� 3:�;total%;

�>� bits � 1 � 5:�24,7);"Time:   ";:� 3:�;�-start%;�(39-�);

��

�:

�� �init

�6� dx(3),dy(3),b(maxx-1,maxy-1),xflip(15),yflip(15)

�
� d=0 � 3
 � dx(d),dy(d)
�
� c=0 � 15
& � 23,224+c,�bit(c,0)*&7E
0 � i=1 � 6
:'  � &7E � �bit(c,1) � 128*�bit(c,3)
D �
N � �bit(c,2)*&7E
X�
b,� 23,254,&81,&42,&24,&18,&18,&24,&42,&81
l$� 23,255,&AA,0,&55,0,&AA,0,&55,0
v� i=0 � 15
�1 xflip(i)=8*�bit(i,1) � 2*�bit(i,3) � (i � 5)
�2 yflip(i)=4*�bit(i,0) � 1*�bit(i,2) � (i � 10)
��
��
�:
�� �bit(c,b)=�(c � 2^b)
�:
�� �read_paths
�� pieces
�� piece$(pieces*8-1)
�
widest%=0
�tallest%=0
�� i=0 � pieces-1
 � path$
 � j=0 � 7
+  piece=i*8+j:rot=j � 4:flip=3*�(j � 4)
 0  x=8:y=8:xl=x:xh=x:yl=y:yh=y:b(x,y)=piece+1
*  � k=1 � �path$
4$   d=((��path$,k,1)+rot)�4)�flip
>)   x=x+dx(d):y=y+dy(d):b(x,y)=piece+1
H    � x<xl xl=x � � x>xh xh=x
R    � y<yl yl=y � � y>yh yh=y
\  �
f!  xsize=xh-xl+1:ysize=yh-yl+1
p#  � xsize>widest% widest%=xsize
z%  � ysize>tallest% tallest%=ysize
�  p$=�xsize+�ysize
�  � y=yl � yh
�   � x=xl � xh
�5    � b(x,y)=piece+1 p$=p$+�char(x,y) � p$=p$+" "
�   �
�  �
�  piece$(piece)=p$
� �
��
��
�:
�� �char(x,y)
�_=�(224-1*(b(x,y-1)=piece+1)-2*(b(x+1,y)=piece+1)-4*(b(x,y+1)=piece+1)-8*(b(x-1,y)=piece+1))
:
� �rnd(mod)
$seed=(seed*1366+150889) � 714025
$=1+(seed � 64) � mod
.:
8� �random_board
B�
L$ width%=minx-1+�rnd(maxx-minx+1)
V% height%=miny-1+�rnd(maxy-miny+1)
` area%=width%*height%
j� area%<256
t � 28,0,maxx+1,maxy+1,0,12,26
~� y=0 � height%-1
� � x=0 � width%-1
�  b(x,y)=0
� �
��
�N� �rnd(2)=1 � i=1 � �rnd(area% � 10):b(�rnd(width%)-1,�rnd(height%)-1)=1:�
��box(1,height%,width%,1)
�	b$=""
�� y=0 � height%-1
� � x=0 � width%-1
�  b$=b$+�(32+b(x,y)*223)
�  � 31,x+1,y+1,b(x,y)*255
� �
�

=b$
:
� �box(x0,y1,x1,y0)
(� 7
2/� y=y0 � y1:� 31,x0-1,y,229,31,x1+1,y,229:�
</� x=x0 � x1:� 31,x,y0-1,234,31,x,y1+1,234:�
FI� 31,x0-1,y0-1,230,31,x0-1,y1+1,227,31,x1+1,y0-1,236,31,x1+1,y1+1,233
P�
Z:
d� �show_piece(piece)
n,� 28,26,12+tallest%-1,26+widest%-1,12,12
x� colours>2 � �(colours-2)
�4p$=piece$(piece):xs=��p$,1,1):ys=��p$,2,1):mid=3
�� y=0 � ys-1
� � x=0 � xs-1
�  �x,y);�p$,mid,1);
�  mid=mid+1
� �
��
�� 26
��
�:
�� �try(piece,xpos,ypos,rot)
�p$=piece$(piece)
�xs=��p$,1,1):ys=��p$,2,1)
xstep=�xpos:xpos=�xpos
ystep=�ypos:ypos=�ypos
mid=3:fitted=�
"� y=0 � ys-1
, xx=xpos:yy=ypos
6 � x=0 � xs-1
@  � 31,xx,yy
J   char=��p$,mid,1):mid=mid+1
T  solid=(char<>32)
^6  onboard=(xx>0 � yy>0 � xx<=width% � yy<=height%)
h2  � � onboard empty=� � empty=(b(xx-1,yy-1)=0)
r
  ok=�
|@  � onboard � solid � empty ok=�:� �rot(char):b(xx-1,yy-1)=2
�  � � solid ok=�
�  � � ok � 254
�  fitted=fitted � ok
�  xx=xx+xstep*dx(rot)
�  yy=yy+ystep*dy(rot)
� �
�" xpos=xpos+xstep*dx((rot+3)�4)
�" ypos=ypos+ystep*dy((rot+3)�4)
��
�=fitted
�:
�
� �rot(c)
�c=((c-224)*16) � (2^rot)
c=(c � 16) � (c � 16)
� xstep<0 c=xflip(c)
� ystep<0 c=yflip(c)
&
=c+224
0:
:� 1,0, 0,-1, -1,0, 0,1
D:
N� 2+5+12+4
X� 00,01
b� 000,001,0130,010,012
lF� 0000,0001,00130,0011,0010,0101,01021,002311,0112,00311,0110,0012
v!� 00000,2221130,001122,012210
�:
�"� Append your routines here...
�:
���user_init
�+� bo%(19,19):� board at 3>>17 (or less)
�� boj%(19,19):� board joins
�� item%(10,10)
�� item2%(10,10)
�� item3%(10,10)
�� sctab%(55,2),zbo%(19,19)
�:
�+x%=0:y%=0:px%=0:py%=0:xs%=0:ys%=0:sc%=0
�:
�+0
� y%=1 � 2:� x%=0 � 55
� sctab%(x%,y%)
 �:�
*:
4=� tallest%>widest% � biggest%=tallest% � biggest%=widest%
>E� c_obj%(19,8,biggest%,biggest%),c_xs%(19,8),c_ys%(19,8),c_n%(19)
H:
R�startcontin
\�
f:
pu� 0,3,6,8,8,7,7,6,6,6,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
zv� 0,4,8,10,9,8,8,8,7,7,7,7,6,6,6,6,5,5,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
�:
���user_newboard(board$)
�bo%()=�
�:
�togo%=width%*height%
�� x%=1 � width%
�� y%=1 � height%
�E� �board$,x%+width%*(y%-1),1)=" " bo%(2+x%,2+y%)=� �togo%=togo%-1
��:�
�0� width%*height%-togo%>2 messy%=� � messy%=�
�:
�� x%=2 � 18
�� y%=2 � 18
	Eboj%(x%,y%)=4+bo%(x%-1,y%)+bo%(x%+1,y%)+bo%(x%,y%+1)+bo%(x%,y%-1)
	� bo%(x%,y%) boj%(x%,y%)=0
	�:�
	$6bestx%=0:zscore%=0:dscore%=0:xcog%=0:ycog%=0:cs%=0
	.b_top%=1:b_bottom%=height%
	8b_left%=1:b_right%=width%
	B�
	L:
	Vݤuser_fit(shape$)
	`xs%=��shape$,1,1)
	jys%=��shape$,2,1)
	t:
	~
item%()=0
	�� x%=1 � xs%
	�� y%=1 � ys%
	�2item%(x%,y%)=(�shape$,2+x%+(y%-1)*xs%,1)<>" ")
	�/� sets item% = (item is solid) (TRUE/FALSE)
	��:�
	�>bestx%=0:besty%=0:bestxf%=1:bestyf%=1:bestr%=0:bestsc%=800
	�:
	�;� togo%>70 cost%=11 � cost%=7:� leave NO holes early on
	�� togo%>120 cost%=15
	�"� togo%<20 scost%=3 � scost%=4
	�!�test:� checks for symmetries
	�#�cog:� calcs COG of empty areas
:

#� � rsym% � rot%=0 � 1 � rot%=0
'� � ysym% � yf%=1 � -1 � -2 � yf%=1
'� � xsym% � xf%=1 � -1 � -2 � xf%=1
(!� y%=b_top% � b_bottom%+1-ys%
2!� x%=b_left% � b_right%+1-xs%
<	sc%=0
F>� togo%>200 �do2 � �do2:� sc%<bestsc% � togo%>54 �fastscan
P
�disperse
Z&� togo%<55 � sc%<bestsc% �fullscan
d$� togo%<14 � sc%<bestsc% �contin
n�� sc%<bestsc% � bestx%=x%:besty%=y%:bestxf%=xf%:bestyf%=yf%:bestr%=rot%:bestsc%=sc%:�0,25);x%;",";y%;",";xf%;",";yf%;",";bestr%;"/";bestsc%;"(";dscore%;",";xcog%/4;",";ycog%/4;")";zscore%;"/";cs%;�(10);
x�:�
�� � xsym% �flipx:�
�� � ysym% �flipy:�
�� � rsym% � rot%=0 �rot
�� � rsym% �
�:
�� bestx%=0 � =""
�� � rsym% � bestr%=0 �unrot
�� bestxf%=-1 �flipx
�K� bestyf%=-1 �flipy:� put piece back right way round for rememing board
�:
� � first put piece into board
�� px%=1 � xs%
�� py%=1 � ys%
� item%(px%,py%) �
togo%=togo%-1
$bo%(1+px%+bestx%,1+besty%+py%)=�
"Fboj%(1+px%+bestx%,1+py%+besty%)=boj%(1+px%+bestx%,1+py%+besty%)-10
,Aboj%(px%+bestx%,1+py%+besty%)=boj%(px%+bestx%,1+py%+besty%)-1
6Aboj%(1+px%+bestx%,py%+besty%)=boj%(1+px%+bestx%,py%+besty%)-1
@Eboj%(1+px%+bestx%,2+py%+besty%)=boj%(1+px%+bestx%,2+py%+besty%)-1
JEboj%(2+px%+bestx%,1+py%+besty%)=boj%(2+px%+bestx%,1+py%+besty%)-1
T�
^�:�
h:
r3� (bestr%=1) � (bestyf%=-1) besty%=besty%+ys%-1
|)� still using new s values if rotated
�$� bestxf%=-1 bestx%=bestx%+xs%-1
�N� take account of fact that OMINO wants the pos of the orig. TL not new TL
��cement:�"Fill" any holes
�#�25,19);"Togo : ";togo%;"   ";
�:=�(bestx%*bestxf%)+","+�(besty%*bestyf%)+","+�(bestr%)
�:
���flipx
�
� xs%<2 �
�� y%=1 � ys%
�� x%=1 � (xs% � 2)
�t%=item%(x%,y%)
�#item%(x%,y%)=item%(xs%+1-x%,y%)
�item%(xs%+1-x%,y%)=t%
�:�
�
:
&��flipy
0
� ys%<2 �
:� x%=1 � xs%
D� y%=1 � (ys% � 2)
Nt%=item%(x%,y%)
X#item%(x%,y%)=item%(x%,ys%+1-y%)
bitem%(x%,ys%+1-y%)=t%
l�:�
v�
�:
�	��rot
�� x%=1 � xs%
�� y%=1 � ys%
�$item2%(y%,xs%+1-x%)=item%(x%,y%)
�item3%(x%,y%)=item%(x%,y%)
��:�
�t%=xs%:xs%=ys%:ys%=t%
�� x%=1 � xs%
�� y%=1 � ys%
�item%(x%,y%)=item2%(x%,y%)
��:�
�!t%=xsym%:xsym%=ysym%:ysym%=t%

�

:

��unrot

 t%=xs%:xs%=ys%:ys%=t%

*� x%=1 � xs%

4� y%=1 � ys%

>item%(x%,y%)=item3%(x%,y%)

H�:�

R!t%=xsym%:xsym%=ysym%:ysym%=t%

\�

f:

pC� xsym is TRUE IF xflipping has no effect (IE Y-AXIS symmentry)

z
��test

�rsym%=�

�xsym%=�

�ysym%=�

�Adsym%=�:� flag for the general sym that disquals any 1 reflec

�� x%=1 � xs%

�� y%=1 � ys%

�.� item%(x%,y%)<>item%(xs%+1-x%,y%) xsym%=�

�.� item%(x%,y%)<>item%(x%,ys%+1-y%) ysym%=�

�4� item%(x%,y%)<>item%(xs%+1-x%,ys%+1-y%) dsym%=�

��:�

�%� xsym%+ysym%=0 � dsym% � xsym%=�

�0� xsym% � ysym% � xs%=ys% rsym%=�:� xyr syms

� � xsym%+ysym%<0 � xs%<>ys% �
M� xsym% AND ysym% now used in a representational manner for the two diags
xsym%=�:ysym%=�
� x%=1 � xs%
$� y%=1 � ys%
.(� item%(x%,y%)<>item%(y%,x%) xsym%=�
84� item%(x%,y%)<>item%(ys%+1-y%,xs%+1-x%) ysym%=�
B�:�
L� xsym% � ysym% � rsym%=�
Vxsym%=�:ysym%=�
`�
j:
t	��do2
~� px%=1 � xs%
�� py%=1 � ys%
�� item%(px%,py%) �
�T� bo%(1+x%+px%,1+y%+py%) � sc%=sc%+1000 � sc%=sc%+scost%*boj%(1+x%+px%,1+y%+py%)
��
�-� scost%(3or4) added per empty it touches
�5� sc%>=bestsc% px%=xs%:py%=ys%:� abort this piece
��:�
��
�:
�	��put
� � first put piece into board
�� px%=1 � xs%
� py%=1 � ys%

� item%(px%,py%) �
bo%(1+px%+x%,1+y%+py%)=�
6boj%(1+px%+x%,1+py%+y%)=boj%(1+px%+x%,1+py%+y%)-10
(1boj%(px%+x%,1+py%+y%)=boj%(px%+x%,1+py%+y%)-1
21boj%(1+px%+x%,py%+y%)=boj%(1+px%+x%,py%+y%)-1
<5boj%(1+px%+x%,2+py%+y%)=boj%(1+px%+x%,2+py%+y%)-1
F5boj%(2+px%+x%,1+py%+y%)=boj%(2+px%+x%,1+py%+y%)-1
P�
Z�:�
d�
n:
x��fastscan
��put
�� now count holes
�dead%=�
�� px%=b_left% � b_right%
�� py%=b_top% � b_bottom%
�a%=boj%(2+px%,2+py%)
�/� a%=0 � � bo%(2+px%,2+py%) � sc%=sc%+cost%
�� a%=1 �
�#� messy% sc%=sc%+1:� anti ender
�+� boj%(3+px%,2+py%)=1 sc%=sc%+2*cost%-3
�+� boj%(2+px%,3+py%)=1 sc%=sc%+2*cost%-3
��
�� a%=2 � togo%<80 �
b%=0
0� � bo%(1+px%,2+py%) b%=b%+boj%(1+px%,2+py%)
0� � bo%(2+px%,1+py%) b%=b%+boj%(2+px%,1+py%)
"0� � bo%(2+px%,3+py%) b%=b%+boj%(2+px%,3+py%)
,0� � bo%(3+px%,2+py%) b%=b%+boj%(3+px%,2+py%)
6� b%=2 sc%=sc%+2*cost%
@*� � dead% � b%=3 sc%=sc%+cost%:dead%=�
J�
T�:�
^	�pull
h�
r:
|
��pull
�� now lift piece
�� px%=1 � xs%
�� py%=1 � ys%
�� item%(px%,py%) �
�bo%(1+px%+x%,1+y%+py%)=�
�6boj%(1+px%+x%,1+py%+y%)=boj%(1+px%+x%,1+py%+y%)+10
�1boj%(px%+x%,1+py%+y%)=boj%(px%+x%,1+py%+y%)+1
�1boj%(1+px%+x%,py%+y%)=boj%(1+px%+x%,py%+y%)+1
�5boj%(1+px%+x%,2+py%+y%)=boj%(1+px%+x%,2+py%+y%)+1
�5boj%(2+px%+x%,1+py%+y%)=boj%(2+px%+x%,1+py%+y%)+1
��
��:�
��
:
��cement
� y%=b_top% � b_bottom%
&� x%=b_left% � b_right%
0a%=boj%(2+x%,2+y%)
:Q� a%=0 � � bo%(2+x%,2+y%) � bo%(2+x%,2+y%)=�:boj%(2+x%,2+y%)=-1:togo%=togo%-1
D� a%=1 �
N'� boj%(1+x%,2+y%)=1 �cementin(-1,0)
X'� boj%(2+x%,1+y%)=1 �cementin(0,-1)
b&� boj%(3+x%,2+y%)=1 �cementin(1,0)
l&� boj%(2+x%,3+y%)=1 �cementin(0,1)
v�
��:�
�:
�*� set b_top and b_bottom to trim scans
�a%=�
�b%=�
�� x%=b_left% � b_right%
�a%=a% � bo%(2+x%,2+b_top%)
�!b%=b% � bo%(2+x%,2+b_bottom%)
��
�� a% b_top%=b_top%+1
�� b% b_bottom%=b_bottom%-1
�#� b_bottom%-b_top%+1<biggest% �
�'� b_top%>1 b_top%-=1 � b_bottom%+=1
�
:
a%=�
 b%=�
*� y%=b_top% � b_bottom%
4a%=a% � bo%(2+b_left%,2+y%)
> b%=b% � bo%(2+b_right%,2+y%)
H�
R� a% b_left%=b_left%+1
\� b% b_right%=b_right%-1
f#� b_right%-b_left%+1<biggest% �
p(� b_left%>1 b_left%-=1 � b_right%+=1
z�
��
�:
���cementin(delx%,dely%)
�bo%(2+x%,2+y%)=�
�boj%(2+x%,2+y%)=-1
� bo%(2+x%+delx%,2+y%+dely%)=�
�"boj%(2+x%+delx%,2+y%+dely%)=-1
�togo%=togo%-2
��
�:
�	��cog
�� togo%>60 �
�xtot%=0:ytot%=0:totl%=0
� x%=b_left% � b_right%
� y%=b_top% � b_bottom%
3� � bo%(2+x%,2+y%) xtot%+=x%:ytot%+=y%:totl%+=1
$�:�
.� totl%<>togo% �
8.� totl%=0 xcog%=width%/2:ycog%=height%/2:�
Bxcog%=�(0.5+4*xtot%/totl%)
Lycog%=�(0.5+4*ytot%/totl%)
V:
`xmax%=0:ymax%=0
j� x%=b_left% � b_right%
t� y%=b_top% � b_bottom%
~� � bo%(2+x%,2+y%) �
�-� �(4*x%-xcog%)>xmax% xmax%=�(4*x%-xcog%)
�-� �(4*y%-ycog%)>ymax% ymax%=�(4*y%-ycog%)
��
��:�
��
�:
���disperse
�� sc%>bestsc% � togo%>60 �
�totl%=0
�� px%=1 � xs%
�� py%=1 � ys%
�\� item%(px%,py%) totl%=totl%+(xmax%-�(4*x%+4*px%-xcog%-4))+(ymax%-�(4*y%+4*py%-ycog%-4))
�:�

R� togo%<20 totl%=totl%*4 � � togo%<30 totl%=totl%*3 � � togo%<40 totl%=totl%*2
dscore%=(totl% � 24)
sc%=sc%+dscore%
(�
2:
<��fullscan
F�put
Pzbo%()=bo%()
Z
zscore%=0
d"� togo%<32 index%=1 � index%=2
n� px%=b_left% � b_right%
x� py%=b_top% � b_bottom%
�`� zbo%(2+px%,2+py%)=0 totl%=0:d%=0:�dozone(2+px%,2+py%):zscore%=zscore%+sctab%(totl%,index%)
��:�
�	�pull
�sc%=sc%+zscore%
��
�:
���dozone(zx%,zy%)
�)� zbo%(zx%,zy%) �:� TRUE means filled
�zbo%(zx%,zy%)=�
�totl%=totl%+1
��dozone(zx%,zy%-1)
��dozone(zx%-1,zy%)
��dozone(zx%+1,zy%)
�dozone(zx%,zy%+1)
�
:
"��startcontin
,�+0
6� a%=1 � 19
@� c_n%(a%)
J� b%=1 � c_n%(a%)
T� c_xs%(a%,b%),c_ys%(a%,b%)
^� y%=1 � c_ys%(a%,b%)
h� w$
r� x%=1 � c_xs%(a%,b%)
|#c_obj%(a%,b%,x%,y%)=-��w$,x%,1)
��:�:�:�
��
�:
���contin
��put
�	cs%=0
�� a%=1 � 19
�c%=�
�� b%=1 � c_n%(a%)
�+� px%=b_left% � b_right%-c_xs%(a%,b%)+1
�+� py%=b_top% � b_bottom%-c_ys%(a%,b%)+1
�d%=�
�� ppx%=1 � c_xs%(a%,b%)
� ppy%=1 � c_ys%(a%,b%)
S� c_obj%(a%,b%,ppx%,ppy%) � bo%(1+px%+ppx%,1+py%+ppy%) � d%=�:ppx%=c_xs%(a%,b%)
�:�
&F� d% px%=b_right%-c_xs%(a%,b%)+1:py%=b_bottom%-c_ys%(a%,b%)+1:c%=�
0�:�
:�
D� � c% � cs%+=4
N�
Xsc%=sc%+cs%
b	�pull
l�
v:
�� 2
�� 1,3,1,1,1
�
� 3,1,111
�:
�� 4
�� 2,2,10,11
�� 2,2,11,10
�� 2,2,11,01
�� 2,2,01,11
�:
�� 2
�� 1,4,1,1,1,1
�� 4,1,1111
:
� 8
� 2,3,10,10,11
 � 2,3,0100,0100,1100
*� 2,3,1100,1000,1000
4� 2,3,1100,0100,0100
>� 3,2,1110,1000
H� 3,2,1110,0010
R� 3,2,1000,1110
\� 3,2,0010,1110
f:
p� 4
z� 2,3,1000,1100,1000
�� 3,2,1110,0100
�� 2,3,0100,1100,0100
�� 3,2,0100,1110
�:
�� 4
�� 2,3,0100,1100,1000
�� 2,3,1000,1100,0100
�� 3,2,1100,0110
�� 3,2,0110,1100
�:
�� 1
�� 2,2,1100,1100
�:
� 2
� 1,5,1,1,1,1,1
� 5,1,11111
$:
.� 8
8� 2,4,1000,1000,1000,1100
B� 2,4,0100,0100,0100,1100
L� 2,4,1100,1000,1000,1000
V� 2,4,1100,0100,0100,0100
`� 4,2,1111,1000
j� 4,2,1111,0001
t� 4,2,1000,1111
~� 4,2,0001,1111
�:
�� 8
�!� 2,4,10000,11000,10000,10000
�!� 2,4,01000,11000,01000,01000
�!� 2,4,10000,10000,11000,10000
�!� 2,4,01000,01000,11000,01000
�� 4,2,11110,01000
�� 4,2,11110,00100
�� 4,2,01000,11110
�� 4,2,00100,11110
�:
�� 8
!� 2,4,01000,11000,10000,10000

!� 2,4,10000,11000,01000,01000
!� 2,4,10000,10000,11000,01000
!� 2,4,01000,01000,11000,10000
(� 4,2,11100,00110
2� 4,2,01110,11000
<� 4,2,00110,11100
F� 4,2,11000,01110
P:
Z� 4
d� 3,3,100,100,111
n� 3,3,111,100,100
x� 3,3,111,001,001
�� 3,3,001,001,111
�:
�� 4
�� 3,3,111,010,010
�� 3,3,010,010,111
�� 3,3,100,111,100
�� 3,3,001,111,001
�:
�� 8
�� 3,3,010,011,110
�� 3,3,010,110,011
�� 3,3,110,011,010
�� 3,3,011,110,010
� 3,3,010,111,100
� 3,3,010,111,001
� 3,3,100,111,010
"� 3,3,001,111,010
,:
6� 4
@� 3,3,011,010,110
J� 3,3,110,010,011
T� 3,3,100,111,001
^� 3,3,001,111,100
h:
r� 1
|� 3,3,010,111,010
�:
�� 4
�� 2,3,110,100,110
�� 3,2,111,101
�� 2,3,110,010,110
�� 3,2,101,111
�:
�� 4
�� 3,3,100,110,011
�� 3,3,011,110,100
�� 3,3,110,011,001
�� 3,3,001,011,110
�:
� 8
� 2,3,100,110,110
� 2,3,010,110,110
&� 2,3,110,110,100
0� 2,3,110,110,010
:� 3,2,111,110
D� 3,2,110,111
N� 3,2,111,011
X� 3,2,011,111
�

00000000  0d 00 0a 15 f4 20 20 20  20 20 3e 57 68 69 74 65  |.....     >White|
00000010  68 6f 75 73 65 0d 00 14  1b f4 20 20 20 20 20 4f  |house.....     O|
00000020  6d 69 6e 6f 65 73 20 43  68 61 6c 6c 65 6e 67 65  |minoes Challenge|
00000030  0d 00 1e 1a f4 20 42 79  20 20 53 74 75 61 72 74  |..... By  Stuart|
00000040  20 57 68 69 74 68 6f 75  73 65 0d 00 28 19 f4 20  | Whithouse..(.. |
00000050  46 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |For 32-bit machi|
00000060  6e 65 73 0d 00 32 17 f4  20 28 43 29 20 42 41 55  |nes..2.. (C) BAU|
00000070  20 4a 75 6e 65 20 31 39  39 33 0d 00 3c 05 3a 0d  | June 1993..<.:.|
00000080  00 46 14 6d 61 69 6e 5f  73 65 65 64 3d 32 38 31  |.F.main_seed=281|
00000090  32 38 33 0d 00 50 0f 62  6f 61 72 64 73 25 3d 31  |283..P.boards%=1|
000000a0  30 30 0d 00 5a 12 6d 69  6e 78 3d 37 3a 6d 61 78  |00..Z.minx=7:max|
000000b0  78 3d 31 35 0d 00 64 12  6d 69 6e 79 3d 37 3a 6d  |x=15..d.miny=7:m|
000000c0  61 78 79 3d 31 35 0d 00  6e 05 3a 0d 00 78 31 ee  |axy=15..n.:..x1.|
000000d0  20 85 20 ef 20 32 30 2c  33 31 2c 30 2c 33 30 3a  | . . 20,31,0,30:|
000000e0  e7 20 9f 3d 31 37 20 e0  20 8b 20 f1 22 44 69 73  |. .=17 . . ."Dis|
000000f0  71 75 61 6c 69 66 69 65  64 22 3a e0 0d 00 82 2c  |qualified":....,|
00000100  e7 20 93 3e 26 31 30 30  30 30 20 eb 20 39 3a 63  |. .>&10000 . 9:c|
00000110  6f 6c 6f 75 72 73 3d 38  20 8b 20 eb 20 34 3a 63  |olours=8 . . 4:c|
00000120  6f 6c 6f 75 72 73 3d 32  0d 00 8c 17 ef 20 32 33  |olours=2..... 23|
00000130  3b 31 30 2c 33 32 3b 30  3b 30 3b 30 3b 30 3b 0d  |;10,32;0;0;0;0;.|
00000140  00 96 09 f2 69 6e 69 74  0d 00 a0 0f f2 72 65 61  |....init.....rea|
00000150  64 5f 70 61 74 68 73 0d  00 aa 0e f2 75 73 65 72  |d_paths.....user|
00000160  5f 69 6e 69 74 0d 00 b4  0c 74 6f 74 61 6c 25 3d  |_init....total%=|
00000170  30 0d 00 be 18 fb 20 35  3a f1 8a 32 34 2c 39 29  |0..... 5:..24,9)|
00000180  3b 22 53 68 61 70 65 3a  22 0d 00 c8 2a f2 62 6f  |;"Shape:"...*.bo|
00000190  78 28 32 36 2c 31 32 2b  74 61 6c 6c 65 73 74 25  |x(26,12+tallest%|
000001a0  2d 31 2c 32 36 2b 77 69  64 65 73 74 25 2d 31 2c  |-1,26+widest%-1,|
000001b0  31 32 29 0d 00 d2 0c 73  74 61 72 74 25 3d 91 0d  |12)....start%=..|
000001c0  00 dc 18 e3 20 62 6f 61  72 64 25 3d 31 20 b8 20  |.... board%=1 . |
000001d0  62 6f 61 72 64 73 25 0d  00 e6 25 20 73 65 65 64  |boards%...% seed|
000001e0  3d 28 6d 61 69 6e 5f 73  65 65 64 2a 62 6f 61 72  |=(main_seed*boar|
000001f0  64 25 29 20 83 20 37 31  34 30 32 35 0d 00 f0 19  |d%) . 714025....|
00000200  20 62 6f 61 72 64 24 3d  a4 72 61 6e 64 6f 6d 5f  | board$=.random_|
00000210  62 6f 61 72 64 0d 00 fa  1b 20 f2 75 73 65 72 5f  |board.... .user_|
00000220  6e 65 77 62 6f 61 72 64  28 62 6f 61 72 64 24 29  |newboard(board$)|
00000230  0d 01 04 0e 20 66 69 74  74 65 64 25 3d 30 0d 01  |.... fitted%=0..|
00000240  0e 0f 20 f2 73 74 61 74  73 28 31 35 29 0d 01 18  |.. .stats(15)...|
00000250  0c 20 74 68 65 6e 25 3d  91 0d 01 22 06 20 f5 0d  |. then%=...". ..|
00000260  01 2c 1b 20 20 70 69 63  6b 3d a4 72 6e 64 28 70  |.,.  pick=.rnd(p|
00000270  69 65 63 65 73 2a 38 29  2d 31 0d 01 36 17 20 20  |ieces*8)-1..6.  |
00000280  f2 73 68 6f 77 5f 70 69  65 63 65 28 70 69 63 6b  |.show_piece(pick|
00000290  29 0d 01 40 25 20 20 70  61 72 61 6d 73 24 3d a4  |)..@%  params$=.|
000002a0  75 73 65 72 5f 66 69 74  28 70 69 65 63 65 24 28  |user_fit(piece$(|
000002b0  70 69 63 6b 29 29 0d 01  4a 44 20 20 e7 20 70 61  |pick))..JD  . pa|
000002c0  72 61 6d 73 24 3d 22 22  20 8c 20 66 69 74 25 3d  |rams$="" . fit%=|
000002d0  a3 20 8b 20 66 69 74 25  3d a0 28 22 46 4e 74 72  |. . fit%=.("FNtr|
000002e0  79 28 22 2b c3 70 69 63  6b 2b 22 2c 22 2b 70 61  |y("+.pick+","+pa|
000002f0  72 61 6d 73 24 2b 22 29  22 29 0d 01 54 28 20 20  |rams$+")")..T(  |
00000300  e7 20 66 69 74 25 20 66  69 74 74 65 64 25 3d 66  |. fit% fitted%=f|
00000310  69 74 74 65 64 25 2b 31  3a f2 73 74 61 74 73 28  |itted%+1:.stats(|
00000320  35 29 0d 01 5e 0d 20 fd  20 ac 20 66 69 74 25 0d  |5)..^. . . fit%.|
00000330  01 68 2d 20 e7 20 91 2d  74 68 65 6e 25 3e 33 30  |.h- . .-then%>30|
00000340  30 30 30 20 f1 8a 30 2c  33 30 29 3b 22 44 69 73  |000 ..0,30);"Dis|
00000350  71 75 61 6c 69 66 69 65  64 22 3a e0 0d 01 72 1a  |qualified":...r.|
00000360  20 74 6f 74 61 6c 25 3d  74 6f 74 61 6c 25 2b 66  | total%=total%+f|
00000370  69 74 74 65 64 25 0d 01  7c 0e 20 f2 73 74 61 74  |itted%..|. .stat|
00000380  73 28 33 29 0d 01 86 05  ed 0d 01 90 05 e0 0d 01  |s(3)............|
00000390  9a 05 3a 0d 01 a4 12 dd  20 f2 73 74 61 74 73 28  |..:..... .stats(|
000003a0  62 69 74 73 29 0d 01 ae  34 e7 20 62 69 74 73 20  |bits)...4. bits |
000003b0  80 20 38 20 fb 20 35 3a  f1 8a 32 34 2c 31 29 3b  |. 8 . 5:..24,1);|
000003c0  22 42 6f 61 72 64 3a 20  20 22 3b 3a fb 20 33 3a  |"Board:  ";:. 3:|
000003d0  f1 3b 62 6f 61 72 64 25  3b 0d 01 b8 3d e7 20 62  |.;board%;...=. b|
000003e0  69 74 73 20 80 20 34 20  fb 20 35 3a f1 8a 32 34  |its . 4 . 5:..24|
000003f0  2c 33 29 3b 22 50 69 65  63 65 73 3a 20 22 3b 3a  |,3);"Pieces: ";:|
00000400  fb 20 33 3a f1 3b 66 69  74 74 65 64 25 3b 89 28  |. 3:.;fitted%;.(|
00000410  33 39 2d b1 29 3b 0d 01  c2 34 e7 20 62 69 74 73  |39-.);...4. bits|
00000420  20 80 20 32 20 fb 20 35  3a f1 8a 32 34 2c 35 29  | . 2 . 5:..24,5)|
00000430  3b 22 54 6f 74 61 6c 3a  20 20 22 3b 3a fb 20 33  |;"Total:  ";:. 3|
00000440  3a f1 3b 74 6f 74 61 6c  25 3b 0d 01 cc 3e e7 20  |:.;total%;...>. |
00000450  62 69 74 73 20 80 20 31  20 fb 20 35 3a f1 8a 32  |bits . 1 . 5:..2|
00000460  34 2c 37 29 3b 22 54 69  6d 65 3a 20 20 20 22 3b  |4,7);"Time:   ";|
00000470  3a fb 20 33 3a f1 3b 91  2d 73 74 61 72 74 25 3b  |:. 3:.;.-start%;|
00000480  89 28 33 39 2d b1 29 3b  0d 01 d6 05 e1 0d 01 e0  |.(39-.);........|
00000490  05 3a 0d 01 ea 0b dd 20  f2 69 6e 69 74 0d 01 f4  |.:..... .init...|
000004a0  36 de 20 64 78 28 33 29  2c 64 79 28 33 29 2c 62  |6. dx(3),dy(3),b|
000004b0  28 6d 61 78 78 2d 31 2c  6d 61 78 79 2d 31 29 2c  |(maxx-1,maxy-1),|
000004c0  78 66 6c 69 70 28 31 35  29 2c 79 66 6c 69 70 28  |xflip(15),yflip(|
000004d0  31 35 29 0d 01 fe 0d e3  20 64 3d 30 20 b8 20 33  |15)..... d=0 . 3|
000004e0  0d 02 08 12 20 f3 20 64  78 28 64 29 2c 64 79 28  |.... . dx(d),dy(|
000004f0  64 29 0d 02 12 05 ed 0d  02 1c 0e e3 20 63 3d 30  |d).......... c=0|
00000500  20 b8 20 31 35 0d 02 26  1d 20 ef 20 32 33 2c 32  | . 15..&. . 23,2|
00000510  32 34 2b 63 2c a4 62 69  74 28 63 2c 30 29 2a 26  |24+c,.bit(c,0)*&|
00000520  37 45 0d 02 30 0e 20 e3  20 69 3d 31 20 b8 20 36  |7E..0. . i=1 . 6|
00000530  0d 02 3a 27 20 20 ef 20  26 37 45 20 84 20 a4 62  |..:'  . &7E . .b|
00000540  69 74 28 63 2c 31 29 20  84 20 31 32 38 2a a4 62  |it(c,1) . 128*.b|
00000550  69 74 28 63 2c 33 29 0d  02 44 06 20 ed 0d 02 4e  |it(c,3)..D. ...N|
00000560  14 20 ef 20 a4 62 69 74  28 63 2c 32 29 2a 26 37  |. . .bit(c,2)*&7|
00000570  45 0d 02 58 05 ed 0d 02  62 2c ef 20 32 33 2c 32  |E..X....b,. 23,2|
00000580  35 34 2c 26 38 31 2c 26  34 32 2c 26 32 34 2c 26  |54,&81,&42,&24,&|
00000590  31 38 2c 26 31 38 2c 26  32 34 2c 26 34 32 2c 26  |18,&18,&24,&42,&|
000005a0  38 31 0d 02 6c 24 ef 20  32 33 2c 32 35 35 2c 26  |81..l$. 23,255,&|
000005b0  41 41 2c 30 2c 26 35 35  2c 30 2c 26 41 41 2c 30  |AA,0,&55,0,&AA,0|
000005c0  2c 26 35 35 2c 30 0d 02  76 0e e3 20 69 3d 30 20  |,&55,0..v.. i=0 |
000005d0  b8 20 31 35 0d 02 80 31  20 78 66 6c 69 70 28 69  |. 15...1 xflip(i|
000005e0  29 3d 38 2a a4 62 69 74  28 69 2c 31 29 20 84 20  |)=8*.bit(i,1) . |
000005f0  32 2a a4 62 69 74 28 69  2c 33 29 20 84 20 28 69  |2*.bit(i,3) . (i|
00000600  20 80 20 35 29 0d 02 8a  32 20 79 66 6c 69 70 28  | . 5)...2 yflip(|
00000610  69 29 3d 34 2a a4 62 69  74 28 69 2c 30 29 20 84  |i)=4*.bit(i,0) .|
00000620  20 31 2a a4 62 69 74 28  69 2c 32 29 20 84 20 28  | 1*.bit(i,2) . (|
00000630  69 20 80 20 31 30 29 0d  02 94 05 ed 0d 02 9e 05  |i . 10).........|
00000640  e1 0d 02 a8 05 3a 0d 02  b2 1a dd 20 a4 62 69 74  |.....:..... .bit|
00000650  28 63 2c 62 29 3d b4 28  63 20 80 20 32 5e 62 29  |(c,b)=.(c . 2^b)|
00000660  0d 02 bc 05 3a 0d 02 c6  11 dd 20 f2 72 65 61 64  |....:..... .read|
00000670  5f 70 61 74 68 73 0d 02  d0 0c f3 20 70 69 65 63  |_paths..... piec|
00000680  65 73 0d 02 da 18 de 20  70 69 65 63 65 24 28 70  |es..... piece$(p|
00000690  69 65 63 65 73 2a 38 2d  31 29 0d 02 e4 0d 77 69  |ieces*8-1)....wi|
000006a0  64 65 73 74 25 3d 30 0d  02 ee 0e 74 61 6c 6c 65  |dest%=0....talle|
000006b0  73 74 25 3d 30 0d 02 f8  14 e3 20 69 3d 30 20 b8  |st%=0..... i=0 .|
000006c0  20 70 69 65 63 65 73 2d  31 0d 03 02 0c 20 f3 20  | pieces-1.... . |
000006d0  70 61 74 68 24 0d 03 0c  0e 20 e3 20 6a 3d 30 20  |path$.... . j=0 |
000006e0  b8 20 37 0d 03 16 2b 20  20 70 69 65 63 65 3d 69  |. 7...+  piece=i|
000006f0  2a 38 2b 6a 3a 72 6f 74  3d 6a 20 83 20 34 3a 66  |*8+j:rot=j . 4:f|
00000700  6c 69 70 3d 33 2a b4 28  6a 20 81 20 34 29 0d 03  |lip=3*.(j . 4)..|
00000710  20 30 20 20 78 3d 38 3a  79 3d 38 3a 78 6c 3d 78  | 0  x=8:y=8:xl=x|
00000720  3a 78 68 3d 78 3a 79 6c  3d 79 3a 79 68 3d 79 3a  |:xh=x:yl=y:yh=y:|
00000730  62 28 78 2c 79 29 3d 70  69 65 63 65 2b 31 0d 03  |b(x,y)=piece+1..|
00000740  2a 14 20 20 e3 20 6b 3d  31 20 b8 20 a9 70 61 74  |*.  . k=1 . .pat|
00000750  68 24 0d 03 34 24 20 20  20 64 3d 28 28 bb c1 70  |h$..4$   d=((..p|
00000760  61 74 68 24 2c 6b 2c 31  29 2b 72 6f 74 29 83 34  |ath$,k,1)+rot).4|
00000770  29 82 66 6c 69 70 0d 03  3e 29 20 20 20 78 3d 78  |).flip..>)   x=x|
00000780  2b 64 78 28 64 29 3a 79  3d 79 2b 64 79 28 64 29  |+dx(d):y=y+dy(d)|
00000790  3a 62 28 78 2c 79 29 3d  70 69 65 63 65 2b 31 0d  |:b(x,y)=piece+1.|
000007a0  03 48 20 20 20 20 e7 20  78 3c 78 6c 20 78 6c 3d  |.H    . x<xl xl=|
000007b0  78 20 8b 20 e7 20 78 3e  78 68 20 78 68 3d 78 0d  |x . . x>xh xh=x.|
000007c0  03 52 20 20 20 20 e7 20  79 3c 79 6c 20 79 6c 3d  |.R    . y<yl yl=|
000007d0  79 20 8b 20 e7 20 79 3e  79 68 20 79 68 3d 79 0d  |y . . y>yh yh=y.|
000007e0  03 5c 07 20 20 ed 0d 03  66 21 20 20 78 73 69 7a  |.\.  ...f!  xsiz|
000007f0  65 3d 78 68 2d 78 6c 2b  31 3a 79 73 69 7a 65 3d  |e=xh-xl+1:ysize=|
00000800  79 68 2d 79 6c 2b 31 0d  03 70 23 20 20 e7 20 78  |yh-yl+1..p#  . x|
00000810  73 69 7a 65 3e 77 69 64  65 73 74 25 20 77 69 64  |size>widest% wid|
00000820  65 73 74 25 3d 78 73 69  7a 65 0d 03 7a 25 20 20  |est%=xsize..z%  |
00000830  e7 20 79 73 69 7a 65 3e  74 61 6c 6c 65 73 74 25  |. ysize>tallest%|
00000840  20 74 61 6c 6c 65 73 74  25 3d 79 73 69 7a 65 0d  | tallest%=ysize.|
00000850  03 84 16 20 20 70 24 3d  c3 78 73 69 7a 65 2b c3  |...  p$=.xsize+.|
00000860  79 73 69 7a 65 0d 03 8e  11 20 20 e3 20 79 3d 79  |ysize....  . y=y|
00000870  6c 20 b8 20 79 68 0d 03  98 12 20 20 20 e3 20 78  |l . yh....   . x|
00000880  3d 78 6c 20 b8 20 78 68  0d 03 a2 35 20 20 20 20  |=xl . xh...5    |
00000890  e7 20 62 28 78 2c 79 29  3d 70 69 65 63 65 2b 31  |. b(x,y)=piece+1|
000008a0  20 70 24 3d 70 24 2b a4  63 68 61 72 28 78 2c 79  | p$=p$+.char(x,y|
000008b0  29 20 8b 20 70 24 3d 70  24 2b 22 20 22 0d 03 ac  |) . p$=p$+" "...|
000008c0  08 20 20 20 ed 0d 03 b6  07 20 20 ed 0d 03 c0 16  |.   .....  .....|
000008d0  20 20 70 69 65 63 65 24  28 70 69 65 63 65 29 3d  |  piece$(piece)=|
000008e0  70 24 0d 03 ca 06 20 ed  0d 03 d4 05 ed 0d 03 de  |p$.... .........|
000008f0  05 e1 0d 03 e8 05 3a 0d  03 f2 10 dd 20 a4 63 68  |......:..... .ch|
00000900  61 72 28 78 2c 79 29 0d  03 fc 5f 3d bd 28 32 32  |ar(x,y)..._=.(22|
00000910  34 2d 31 2a 28 62 28 78  2c 79 2d 31 29 3d 70 69  |4-1*(b(x,y-1)=pi|
00000920  65 63 65 2b 31 29 2d 32  2a 28 62 28 78 2b 31 2c  |ece+1)-2*(b(x+1,|
00000930  79 29 3d 70 69 65 63 65  2b 31 29 2d 34 2a 28 62  |y)=piece+1)-4*(b|
00000940  28 78 2c 79 2b 31 29 3d  70 69 65 63 65 2b 31 29  |(x,y+1)=piece+1)|
00000950  2d 38 2a 28 62 28 78 2d  31 2c 79 29 3d 70 69 65  |-8*(b(x-1,y)=pie|
00000960  63 65 2b 31 29 29 0d 04  06 05 3a 0d 04 10 0f dd  |ce+1))....:.....|
00000970  20 a4 72 6e 64 28 6d 6f  64 29 0d 04 1a 24 73 65  | .rnd(mod)...$se|
00000980  65 64 3d 28 73 65 65 64  2a 31 33 36 36 2b 31 35  |ed=(seed*1366+15|
00000990  30 38 38 39 29 20 83 20  37 31 34 30 32 35 0d 04  |0889) . 714025..|
000009a0  24 18 3d 31 2b 28 73 65  65 64 20 81 20 36 34 29  |$.=1+(seed . 64)|
000009b0  20 83 20 6d 6f 64 0d 04  2e 05 3a 0d 04 38 13 dd  | . mod....:..8..|
000009c0  20 a4 72 61 6e 64 6f 6d  5f 62 6f 61 72 64 0d 04  | .random_board..|
000009d0  42 05 f5 0d 04 4c 24 20  77 69 64 74 68 25 3d 6d  |B....L$ width%=m|
000009e0  69 6e 78 2d 31 2b a4 72  6e 64 28 6d 61 78 78 2d  |inx-1+.rnd(maxx-|
000009f0  6d 69 6e 78 2b 31 29 0d  04 56 25 20 68 65 69 67  |minx+1)..V% heig|
00000a00  68 74 25 3d 6d 69 6e 79  2d 31 2b a4 72 6e 64 28  |ht%=miny-1+.rnd(|
00000a10  6d 61 78 79 2d 6d 69 6e  79 2b 31 29 0d 04 60 19  |maxy-miny+1)..`.|
00000a20  20 61 72 65 61 25 3d 77  69 64 74 68 25 2a 68 65  | area%=width%*he|
00000a30  69 67 68 74 25 0d 04 6a  0f fd 20 61 72 65 61 25  |ight%..j.. area%|
00000a40  3c 32 35 36 0d 04 74 20  ef 20 32 38 2c 30 2c 6d  |<256..t . 28,0,m|
00000a50  61 78 78 2b 31 2c 6d 61  78 79 2b 31 2c 30 2c 31  |axx+1,maxy+1,0,1|
00000a60  32 2c 32 36 0d 04 7e 15  e3 20 79 3d 30 20 b8 20  |2,26..~.. y=0 . |
00000a70  68 65 69 67 68 74 25 2d  31 0d 04 88 15 20 e3 20  |height%-1.... . |
00000a80  78 3d 30 20 b8 20 77 69  64 74 68 25 2d 31 0d 04  |x=0 . width%-1..|
00000a90  92 0e 20 20 62 28 78 2c  79 29 3d 30 0d 04 9c 06  |..  b(x,y)=0....|
00000aa0  20 ed 0d 04 a6 05 ed 0d  04 b0 4e e7 20 a4 72 6e  | .........N. .rn|
00000ab0  64 28 32 29 3d 31 20 e3  20 69 3d 31 20 b8 20 a4  |d(2)=1 . i=1 . .|
00000ac0  72 6e 64 28 61 72 65 61  25 20 81 20 31 30 29 3a  |rnd(area% . 10):|
00000ad0  62 28 a4 72 6e 64 28 77  69 64 74 68 25 29 2d 31  |b(.rnd(width%)-1|
00000ae0  2c a4 72 6e 64 28 68 65  69 67 68 74 25 29 2d 31  |,.rnd(height%)-1|
00000af0  29 3d 31 3a ed 0d 04 ba  1c f2 62 6f 78 28 31 2c  |)=1:......box(1,|
00000b00  68 65 69 67 68 74 25 2c  77 69 64 74 68 25 2c 31  |height%,width%,1|
00000b10  29 0d 04 c4 09 62 24 3d  22 22 0d 04 ce 15 e3 20  |)....b$=""..... |
00000b20  79 3d 30 20 b8 20 68 65  69 67 68 74 25 2d 31 0d  |y=0 . height%-1.|
00000b30  04 d8 15 20 e3 20 78 3d  30 20 b8 20 77 69 64 74  |... . x=0 . widt|
00000b40  68 25 2d 31 0d 04 e2 1c  20 20 62 24 3d 62 24 2b  |h%-1....  b$=b$+|
00000b50  bd 28 33 32 2b 62 28 78  2c 79 29 2a 32 32 33 29  |.(32+b(x,y)*223)|
00000b60  0d 04 ec 1d 20 20 ef 20  33 31 2c 78 2b 31 2c 79  |....  . 31,x+1,y|
00000b70  2b 31 2c 62 28 78 2c 79  29 2a 32 35 35 0d 04 f6  |+1,b(x,y)*255...|
00000b80  06 20 ed 0d 05 00 05 ed  0d 05 0a 07 3d 62 24 0d  |. ..........=b$.|
00000b90  05 14 05 3a 0d 05 1e 17  dd 20 f2 62 6f 78 28 78  |...:..... .box(x|
00000ba0  30 2c 79 31 2c 78 31 2c  79 30 29 0d 05 28 07 fb  |0,y1,x1,y0)..(..|
00000bb0  20 37 0d 05 32 2f e3 20  79 3d 79 30 20 b8 20 79  | 7..2/. y=y0 . y|
00000bc0  31 3a ef 20 33 31 2c 78  30 2d 31 2c 79 2c 32 32  |1:. 31,x0-1,y,22|
00000bd0  39 2c 33 31 2c 78 31 2b  31 2c 79 2c 32 32 39 3a  |9,31,x1+1,y,229:|
00000be0  ed 0d 05 3c 2f e3 20 78  3d 78 30 20 b8 20 78 31  |...</. x=x0 . x1|
00000bf0  3a ef 20 33 31 2c 78 2c  79 30 2d 31 2c 32 33 34  |:. 31,x,y0-1,234|
00000c00  2c 33 31 2c 78 2c 79 31  2b 31 2c 32 33 34 3a ed  |,31,x,y1+1,234:.|
00000c10  0d 05 46 49 ef 20 33 31  2c 78 30 2d 31 2c 79 30  |..FI. 31,x0-1,y0|
00000c20  2d 31 2c 32 33 30 2c 33  31 2c 78 30 2d 31 2c 79  |-1,230,31,x0-1,y|
00000c30  31 2b 31 2c 32 32 37 2c  33 31 2c 78 31 2b 31 2c  |1+1,227,31,x1+1,|
00000c40  79 30 2d 31 2c 32 33 36  2c 33 31 2c 78 31 2b 31  |y0-1,236,31,x1+1|
00000c50  2c 79 31 2b 31 2c 32 33  33 0d 05 50 05 e1 0d 05  |,y1+1,233..P....|
00000c60  5a 05 3a 0d 05 64 18 dd  20 f2 73 68 6f 77 5f 70  |Z.:..d.. .show_p|
00000c70  69 65 63 65 28 70 69 65  63 65 29 0d 05 6e 2c ef  |iece(piece)..n,.|
00000c80  20 32 38 2c 32 36 2c 31  32 2b 74 61 6c 6c 65 73  | 28,26,12+talles|
00000c90  74 25 2d 31 2c 32 36 2b  77 69 64 65 73 74 25 2d  |t%-1,26+widest%-|
00000ca0  31 2c 31 32 2c 31 32 0d  05 78 1e e7 20 63 6f 6c  |1,12,12..x.. col|
00000cb0  6f 75 72 73 3e 32 20 fb  20 b3 28 63 6f 6c 6f 75  |ours>2 . .(colou|
00000cc0  72 73 2d 32 29 0d 05 82  34 70 24 3d 70 69 65 63  |rs-2)...4p$=piec|
00000cd0  65 24 28 70 69 65 63 65  29 3a 78 73 3d bb c1 70  |e$(piece):xs=..p|
00000ce0  24 2c 31 2c 31 29 3a 79  73 3d bb c1 70 24 2c 32  |$,1,1):ys=..p$,2|
00000cf0  2c 31 29 3a 6d 69 64 3d  33 0d 05 8c 10 e3 20 79  |,1):mid=3..... y|
00000d00  3d 30 20 b8 20 79 73 2d  31 0d 05 96 11 20 e3 20  |=0 . ys-1.... . |
00000d10  78 3d 30 20 b8 20 78 73  2d 31 0d 05 a0 18 20 20  |x=0 . xs-1....  |
00000d20  f1 8a 78 2c 79 29 3b c1  70 24 2c 6d 69 64 2c 31  |..x,y);.p$,mid,1|
00000d30  29 3b 0d 05 aa 0f 20 20  6d 69 64 3d 6d 69 64 2b  |);....  mid=mid+|
00000d40  31 0d 05 b4 06 20 ed 0d  05 be 05 ed 0d 05 c8 08  |1.... ..........|
00000d50  ef 20 32 36 0d 05 d2 05  e1 0d 05 dc 05 3a 0d 05  |. 26.........:..|
00000d60  e6 1f dd 20 a4 74 72 79  28 70 69 65 63 65 2c 78  |... .try(piece,x|
00000d70  70 6f 73 2c 79 70 6f 73  2c 72 6f 74 29 0d 05 f0  |pos,ypos,rot)...|
00000d80  14 70 24 3d 70 69 65 63  65 24 28 70 69 65 63 65  |.p$=piece$(piece|
00000d90  29 0d 05 fa 1d 78 73 3d  bb c1 70 24 2c 31 2c 31  |)....xs=..p$,1,1|
00000da0  29 3a 79 73 3d bb c1 70  24 2c 32 2c 31 29 0d 06  |):ys=..p$,2,1)..|
00000db0  04 1a 78 73 74 65 70 3d  b4 78 70 6f 73 3a 78 70  |..xstep=.xpos:xp|
00000dc0  6f 73 3d 94 78 70 6f 73  0d 06 0e 1a 79 73 74 65  |os=.xpos....yste|
00000dd0  70 3d b4 79 70 6f 73 3a  79 70 6f 73 3d 94 79 70  |p=.ypos:ypos=.yp|
00000de0  6f 73 0d 06 18 12 6d 69  64 3d 33 3a 66 69 74 74  |os....mid=3:fitt|
00000df0  65 64 3d b9 0d 06 22 10  e3 20 79 3d 30 20 b8 20  |ed=...".. y=0 . |
00000e00  79 73 2d 31 0d 06 2c 14  20 78 78 3d 78 70 6f 73  |ys-1..,. xx=xpos|
00000e10  3a 79 79 3d 79 70 6f 73  0d 06 36 11 20 e3 20 78  |:yy=ypos..6. . x|
00000e20  3d 30 20 b8 20 78 73 2d  31 0d 06 40 10 20 20 ef  |=0 . xs-1..@.  .|
00000e30  20 33 31 2c 78 78 2c 79  79 0d 06 4a 20 20 20 63  | 31,xx,yy..J   c|
00000e40  68 61 72 3d 97 c1 70 24  2c 6d 69 64 2c 31 29 3a  |har=..p$,mid,1):|
00000e50  6d 69 64 3d 6d 69 64 2b  31 0d 06 54 16 20 20 73  |mid=mid+1..T.  s|
00000e60  6f 6c 69 64 3d 28 63 68  61 72 3c 3e 33 32 29 0d  |olid=(char<>32).|
00000e70  06 5e 36 20 20 6f 6e 62  6f 61 72 64 3d 28 78 78  |.^6  onboard=(xx|
00000e80  3e 30 20 80 20 79 79 3e  30 20 80 20 78 78 3c 3d  |>0 . yy>0 . xx<=|
00000e90  77 69 64 74 68 25 20 80  20 79 79 3c 3d 68 65 69  |width% . yy<=hei|
00000ea0  67 68 74 25 29 0d 06 68  32 20 20 e7 20 ac 20 6f  |ght%)..h2  . . o|
00000eb0  6e 62 6f 61 72 64 20 65  6d 70 74 79 3d a3 20 8b  |nboard empty=. .|
00000ec0  20 65 6d 70 74 79 3d 28  62 28 78 78 2d 31 2c 79  | empty=(b(xx-1,y|
00000ed0  79 2d 31 29 3d 30 29 0d  06 72 0a 20 20 6f 6b 3d  |y-1)=0)..r.  ok=|
00000ee0  a3 0d 06 7c 40 20 20 e7  20 6f 6e 62 6f 61 72 64  |...|@  . onboard|
00000ef0  20 80 20 73 6f 6c 69 64  20 80 20 65 6d 70 74 79  | . solid . empty|
00000f00  20 6f 6b 3d b9 3a ef 20  a4 72 6f 74 28 63 68 61  | ok=.:. .rot(cha|
00000f10  72 29 3a 62 28 78 78 2d  31 2c 79 79 2d 31 29 3d  |r):b(xx-1,yy-1)=|
00000f20  32 0d 06 86 14 20 20 e7  20 ac 20 73 6f 6c 69 64  |2....  . . solid|
00000f30  20 6f 6b 3d b9 0d 06 90  12 20 20 e7 20 ac 20 6f  | ok=.....  . . o|
00000f40  6b 20 ef 20 32 35 34 0d  06 9a 18 20 20 66 69 74  |k . 254....  fit|
00000f50  74 65 64 3d 66 69 74 74  65 64 20 80 20 6f 6b 0d  |ted=fitted . ok.|
00000f60  06 a4 19 20 20 78 78 3d  78 78 2b 78 73 74 65 70  |...  xx=xx+xstep|
00000f70  2a 64 78 28 72 6f 74 29  0d 06 ae 19 20 20 79 79  |*dx(rot)....  yy|
00000f80  3d 79 79 2b 79 73 74 65  70 2a 64 79 28 72 6f 74  |=yy+ystep*dy(rot|
00000f90  29 0d 06 b8 06 20 ed 0d  06 c2 22 20 78 70 6f 73  |).... ...." xpos|
00000fa0  3d 78 70 6f 73 2b 78 73  74 65 70 2a 64 78 28 28  |=xpos+xstep*dx((|
00000fb0  72 6f 74 2b 33 29 83 34  29 0d 06 cc 22 20 79 70  |rot+3).4)..." yp|
00000fc0  6f 73 3d 79 70 6f 73 2b  79 73 74 65 70 2a 64 79  |os=ypos+ystep*dy|
00000fd0  28 28 72 6f 74 2b 33 29  83 34 29 0d 06 d6 05 ed  |((rot+3).4).....|
00000fe0  0d 06 e0 0b 3d 66 69 74  74 65 64 0d 06 ea 05 3a  |....=fitted....:|
00000ff0  0d 06 f4 0d dd 20 a4 72  6f 74 28 63 29 0d 06 fe  |..... .rot(c)...|
00001000  1c 63 3d 28 28 63 2d 32  32 34 29 2a 31 36 29 20  |.c=((c-224)*16) |
00001010  81 20 28 32 5e 72 6f 74  29 0d 07 08 19 63 3d 28  |. (2^rot)....c=(|
00001020  63 20 83 20 31 36 29 20  84 20 28 63 20 81 20 31  |c . 16) . (c . 1|
00001030  36 29 0d 07 12 18 e7 20  78 73 74 65 70 3c 30 20  |6)..... xstep<0 |
00001040  63 3d 78 66 6c 69 70 28  63 29 0d 07 1c 18 e7 20  |c=xflip(c)..... |
00001050  79 73 74 65 70 3c 30 20  63 3d 79 66 6c 69 70 28  |ystep<0 c=yflip(|
00001060  63 29 0d 07 26 0a 3d 63  2b 32 32 34 0d 07 30 05  |c)..&.=c+224..0.|
00001070  3a 0d 07 3a 1a dc 20 31  2c 30 2c 20 30 2c 2d 31  |:..:.. 1,0, 0,-1|
00001080  2c 20 2d 31 2c 30 2c 20  30 2c 31 0d 07 44 05 3a  |, -1,0, 0,1..D.:|
00001090  0d 07 4e 0e dc 20 32 2b  35 2b 31 32 2b 34 0d 07  |..N.. 2+5+12+4..|
000010a0  58 0b dc 20 30 30 2c 30  31 0d 07 62 1a dc 20 30  |X.. 00,01..b.. 0|
000010b0  30 30 2c 30 30 31 2c 30  31 33 30 2c 30 31 30 2c  |00,001,0130,010,|
000010c0  30 31 32 0d 07 6c 46 dc  20 30 30 30 30 2c 30 30  |012..lF. 0000,00|
000010d0  30 31 2c 30 30 31 33 30  2c 30 30 31 31 2c 30 30  |01,00130,0011,00|
000010e0  31 30 2c 30 31 30 31 2c  30 31 30 32 31 2c 30 30  |10,0101,01021,00|
000010f0  32 33 31 31 2c 30 31 31  32 2c 30 30 33 31 31 2c  |2311,0112,00311,|
00001100  30 31 31 30 2c 30 30 31  32 0d 07 76 21 dc 20 30  |0110,0012..v!. 0|
00001110  30 30 30 30 2c 32 32 32  31 31 33 30 2c 30 30 31  |0000,2221130,001|
00001120  31 32 32 2c 30 31 32 32  31 30 0d 07 80 05 3a 0d  |122,012210....:.|
00001130  07 8a 22 f4 20 41 70 70  65 6e 64 20 79 6f 75 72  |..". Append your|
00001140  20 72 6f 75 74 69 6e 65  73 20 68 65 72 65 2e 2e  | routines here..|
00001150  2e 0d 07 94 05 3a 0d 07  9e 0f dd f2 75 73 65 72  |.....:......user|
00001160  5f 69 6e 69 74 0d 07 a8  2b de 20 62 6f 25 28 31  |_init...+. bo%(1|
00001170  39 2c 31 39 29 3a f4 20  62 6f 61 72 64 20 61 74  |9,19):. board at|
00001180  20 33 3e 3e 31 37 20 28  6f 72 20 6c 65 73 73 29  | 3>>17 (or less)|
00001190  0d 07 b2 1f de 20 62 6f  6a 25 28 31 39 2c 31 39  |..... boj%(19,19|
000011a0  29 3a f4 20 62 6f 61 72  64 20 6a 6f 69 6e 73 0d  |):. board joins.|
000011b0  07 bc 12 de 20 69 74 65  6d 25 28 31 30 2c 31 30  |.... item%(10,10|
000011c0  29 0d 07 c6 13 de 20 69  74 65 6d 32 25 28 31 30  |)..... item2%(10|
000011d0  2c 31 30 29 0d 07 d0 13  de 20 69 74 65 6d 33 25  |,10)..... item3%|
000011e0  28 31 30 2c 31 30 29 0d  07 da 1e de 20 73 63 74  |(10,10)..... sct|
000011f0  61 62 25 28 35 35 2c 32  29 2c 7a 62 6f 25 28 31  |ab%(55,2),zbo%(1|
00001200  39 2c 31 39 29 0d 07 e4  05 3a 0d 07 ee 2b 78 25  |9,19)....:...+x%|
00001210  3d 30 3a 79 25 3d 30 3a  70 78 25 3d 30 3a 70 79  |=0:y%=0:px%=0:py|
00001220  25 3d 30 3a 78 73 25 3d  30 3a 79 73 25 3d 30 3a  |%=0:xs%=0:ys%=0:|
00001230  73 63 25 3d 30 0d 07 f8  05 3a 0d 08 02 07 f7 2b  |sc%=0....:.....+|
00001240  30 0d 08 0c 1a e3 20 79  25 3d 31 20 b8 20 32 3a  |0..... y%=1 . 2:|
00001250  e3 20 78 25 3d 30 20 b8  20 35 35 0d 08 16 13 f3  |. x%=0 . 55.....|
00001260  20 73 63 74 61 62 25 28  78 25 2c 79 25 29 0d 08  | sctab%(x%,y%)..|
00001270  20 07 ed 3a ed 0d 08 2a  05 3a 0d 08 34 3d e7 20  | ..:...*.:..4=. |
00001280  74 61 6c 6c 65 73 74 25  3e 77 69 64 65 73 74 25  |tallest%>widest%|
00001290  20 8c 20 62 69 67 67 65  73 74 25 3d 74 61 6c 6c  | . biggest%=tall|
000012a0  65 73 74 25 20 8b 20 62  69 67 67 65 73 74 25 3d  |est% . biggest%=|
000012b0  77 69 64 65 73 74 25 0d  08 3e 45 de 20 63 5f 6f  |widest%..>E. c_o|
000012c0  62 6a 25 28 31 39 2c 38  2c 62 69 67 67 65 73 74  |bj%(19,8,biggest|
000012d0  25 2c 62 69 67 67 65 73  74 25 29 2c 63 5f 78 73  |%,biggest%),c_xs|
000012e0  25 28 31 39 2c 38 29 2c  63 5f 79 73 25 28 31 39  |%(19,8),c_ys%(19|
000012f0  2c 38 29 2c 63 5f 6e 25  28 31 39 29 0d 08 48 05  |,8),c_n%(19)..H.|
00001300  3a 0d 08 52 10 f2 73 74  61 72 74 63 6f 6e 74 69  |:..R..startconti|
00001310  6e 0d 08 5c 05 e1 0d 08  66 05 3a 0d 08 70 75 dc  |n..\....f.:..pu.|
00001320  20 30 2c 33 2c 36 2c 38  2c 38 2c 37 2c 37 2c 36  | 0,3,6,8,8,7,7,6|
00001330  2c 36 2c 36 2c 35 2c 35  2c 35 2c 34 2c 34 2c 34  |,6,6,5,5,5,4,4,4|
00001340  2c 34 2c 34 2c 34 2c 34  2c 34 2c 34 2c 34 2c 34  |,4,4,4,4,4,4,4,4|
*
00001390  0d 08 7a 76 dc 20 30 2c  34 2c 38 2c 31 30 2c 39  |..zv. 0,4,8,10,9|
000013a0  2c 38 2c 38 2c 38 2c 37  2c 37 2c 37 2c 37 2c 36  |,8,8,8,7,7,7,7,6|
000013b0  2c 36 2c 36 2c 36 2c 35  2c 35 2c 35 2c 35 2c 34  |,6,6,6,5,5,5,5,4|
000013c0  2c 34 2c 34 2c 34 2c 34  2c 34 2c 34 2c 34 2c 34  |,4,4,4,4,4,4,4,4|
*
00001400  2c 34 2c 34 2c 34 0d 08  84 05 3a 0d 08 8e 1b dd  |,4,4,4....:.....|
00001410  f2 75 73 65 72 5f 6e 65  77 62 6f 61 72 64 28 62  |.user_newboard(b|
00001420  6f 61 72 64 24 29 0d 08  98 0b 62 6f 25 28 29 3d  |oard$)....bo%()=|
00001430  b9 0d 08 a2 05 3a 0d 08  ac 18 74 6f 67 6f 25 3d  |.....:....togo%=|
00001440  77 69 64 74 68 25 2a 68  65 69 67 68 74 25 0d 08  |width%*height%..|
00001450  b6 13 e3 20 78 25 3d 31  20 b8 20 77 69 64 74 68  |... x%=1 . width|
00001460  25 0d 08 c0 14 e3 20 79  25 3d 31 20 b8 20 68 65  |%..... y%=1 . he|
00001470  69 67 68 74 25 0d 08 ca  45 e7 20 c1 62 6f 61 72  |ight%...E. .boar|
00001480  64 24 2c 78 25 2b 77 69  64 74 68 25 2a 28 79 25  |d$,x%+width%*(y%|
00001490  2d 31 29 2c 31 29 3d 22  20 22 20 62 6f 25 28 32  |-1),1)=" " bo%(2|
000014a0  2b 78 25 2c 32 2b 79 25  29 3d a3 20 8b 74 6f 67  |+x%,2+y%)=. .tog|
000014b0  6f 25 3d 74 6f 67 6f 25  2d 31 0d 08 d4 07 ed 3a  |o%=togo%-1.....:|
000014c0  ed 0d 08 de 30 e7 20 77  69 64 74 68 25 2a 68 65  |....0. width%*he|
000014d0  69 67 68 74 25 2d 74 6f  67 6f 25 3e 32 20 6d 65  |ight%-togo%>2 me|
000014e0  73 73 79 25 3d b9 20 8b  20 6d 65 73 73 79 25 3d  |ssy%=. . messy%=|
000014f0  a3 0d 08 e8 05 3a 0d 08  f2 0f e3 20 78 25 3d 32  |.....:..... x%=2|
00001500  20 b8 20 31 38 0d 08 fc  0f e3 20 79 25 3d 32 20  | . 18..... y%=2 |
00001510  b8 20 31 38 0d 09 06 45  62 6f 6a 25 28 78 25 2c  |. 18...Eboj%(x%,|
00001520  79 25 29 3d 34 2b 62 6f  25 28 78 25 2d 31 2c 79  |y%)=4+bo%(x%-1,y|
00001530  25 29 2b 62 6f 25 28 78  25 2b 31 2c 79 25 29 2b  |%)+bo%(x%+1,y%)+|
00001540  62 6f 25 28 78 25 2c 79  25 2b 31 29 2b 62 6f 25  |bo%(x%,y%+1)+bo%|
00001550  28 78 25 2c 79 25 2d 31  29 0d 09 10 1e e7 20 62  |(x%,y%-1)..... b|
00001560  6f 25 28 78 25 2c 79 25  29 20 62 6f 6a 25 28 78  |o%(x%,y%) boj%(x|
00001570  25 2c 79 25 29 3d 30 0d  09 1a 07 ed 3a ed 0d 09  |%,y%)=0.....:...|
00001580  24 36 62 65 73 74 78 25  3d 30 3a 7a 73 63 6f 72  |$6bestx%=0:zscor|
00001590  65 25 3d 30 3a 64 73 63  6f 72 65 25 3d 30 3a 78  |e%=0:dscore%=0:x|
000015a0  63 6f 67 25 3d 30 3a 79  63 6f 67 25 3d 30 3a 63  |cog%=0:ycog%=0:c|
000015b0  73 25 3d 30 0d 09 2e 1e  62 5f 74 6f 70 25 3d 31  |s%=0....b_top%=1|
000015c0  3a 62 5f 62 6f 74 74 6f  6d 25 3d 68 65 69 67 68  |:b_bottom%=heigh|
000015d0  74 25 0d 09 38 1d 62 5f  6c 65 66 74 25 3d 31 3a  |t%..8.b_left%=1:|
000015e0  62 5f 72 69 67 68 74 25  3d 77 69 64 74 68 25 0d  |b_right%=width%.|
000015f0  09 42 05 e1 0d 09 4c 05  3a 0d 09 56 16 dd a4 75  |.B....L.:..V...u|
00001600  73 65 72 5f 66 69 74 28  73 68 61 70 65 24 29 0d  |ser_fit(shape$).|
00001610  09 60 15 78 73 25 3d bb  c1 73 68 61 70 65 24 2c  |.`.xs%=..shape$,|
00001620  31 2c 31 29 0d 09 6a 15  79 73 25 3d bb c1 73 68  |1,1)..j.ys%=..sh|
00001630  61 70 65 24 2c 32 2c 31  29 0d 09 74 05 3a 0d 09  |ape$,2,1)..t.:..|
00001640  7e 0d 69 74 65 6d 25 28  29 3d 30 0d 09 88 10 e3  |~.item%()=0.....|
00001650  20 78 25 3d 31 20 b8 20  78 73 25 0d 09 92 10 e3  | x%=1 . xs%.....|
00001660  20 79 25 3d 31 20 b8 20  79 73 25 0d 09 9c 32 69  | y%=1 . ys%...2i|
00001670  74 65 6d 25 28 78 25 2c  79 25 29 3d 28 c1 73 68  |tem%(x%,y%)=(.sh|
00001680  61 70 65 24 2c 32 2b 78  25 2b 28 79 25 2d 31 29  |ape$,2+x%+(y%-1)|
00001690  2a 78 73 25 2c 31 29 3c  3e 22 20 22 29 0d 09 a6  |*xs%,1)<>" ")...|
000016a0  2f f4 20 73 65 74 73 20  69 74 65 6d 25 20 3d 20  |/. sets item% = |
000016b0  28 69 74 65 6d 20 69 73  20 73 6f 6c 69 64 29 20  |(item is solid) |
000016c0  28 54 52 55 45 2f 46 41  4c 53 45 29 0d 09 b0 07  |(TRUE/FALSE)....|
000016d0  ed 3a ed 0d 09 ba 3e 62  65 73 74 78 25 3d 30 3a  |.:....>bestx%=0:|
000016e0  62 65 73 74 79 25 3d 30  3a 62 65 73 74 78 66 25  |besty%=0:bestxf%|
000016f0  3d 31 3a 62 65 73 74 79  66 25 3d 31 3a 62 65 73  |=1:bestyf%=1:bes|
00001700  74 72 25 3d 30 3a 62 65  73 74 73 63 25 3d 38 30  |tr%=0:bestsc%=80|
00001710  30 0d 09 c4 05 3a 0d 09  ce 3b e7 20 74 6f 67 6f  |0....:...;. togo|
00001720  25 3e 37 30 20 63 6f 73  74 25 3d 31 31 20 8b 20  |%>70 cost%=11 . |
00001730  63 6f 73 74 25 3d 37 3a  f4 20 6c 65 61 76 65 20  |cost%=7:. leave |
00001740  4e 4f 20 68 6f 6c 65 73  20 65 61 72 6c 79 20 6f  |NO holes early o|
00001750  6e 0d 09 d8 18 e7 20 74  6f 67 6f 25 3e 31 32 30  |n..... togo%>120|
00001760  20 63 6f 73 74 25 3d 31  35 0d 09 e2 22 e7 20 74  | cost%=15...". t|
00001770  6f 67 6f 25 3c 32 30 20  73 63 6f 73 74 25 3d 33  |ogo%<20 scost%=3|
00001780  20 8b 20 73 63 6f 73 74  25 3d 34 0d 09 ec 21 f2  | . scost%=4...!.|
00001790  74 65 73 74 3a f4 20 63  68 65 63 6b 73 20 66 6f  |test:. checks fo|
000017a0  72 20 73 79 6d 6d 65 74  72 69 65 73 0d 09 f6 23  |r symmetries...#|
000017b0  f2 63 6f 67 3a f4 20 63  61 6c 63 73 20 43 4f 47  |.cog:. calcs COG|
000017c0  20 6f 66 20 65 6d 70 74  79 20 61 72 65 61 73 0d  | of empty areas.|
000017d0  0a 00 05 3a 0d 0a 0a 23  e7 20 ac 20 72 73 79 6d  |...:...#. . rsym|
000017e0  25 20 e3 20 72 6f 74 25  3d 30 20 b8 20 31 20 8b  |% . rot%=0 . 1 .|
000017f0  20 72 6f 74 25 3d 30 0d  0a 14 27 e7 20 ac 20 79  | rot%=0...'. . y|
00001800  73 79 6d 25 20 e3 20 79  66 25 3d 31 20 b8 20 2d  |sym% . yf%=1 . -|
00001810  31 20 88 20 2d 32 20 8b  20 79 66 25 3d 31 0d 0a  |1 . -2 . yf%=1..|
00001820  1e 27 e7 20 ac 20 78 73  79 6d 25 20 e3 20 78 66  |.'. . xsym% . xf|
00001830  25 3d 31 20 b8 20 2d 31  20 88 20 2d 32 20 8b 20  |%=1 . -1 . -2 . |
00001840  78 66 25 3d 31 0d 0a 28  21 e3 20 79 25 3d 62 5f  |xf%=1..(!. y%=b_|
00001850  74 6f 70 25 20 b8 20 62  5f 62 6f 74 74 6f 6d 25  |top% . b_bottom%|
00001860  2b 31 2d 79 73 25 0d 0a  32 21 e3 20 78 25 3d 62  |+1-ys%..2!. x%=b|
00001870  5f 6c 65 66 74 25 20 b8  20 62 5f 72 69 67 68 74  |_left% . b_right|
00001880  25 2b 31 2d 78 73 25 0d  0a 3c 09 73 63 25 3d 30  |%+1-xs%..<.sc%=0|
00001890  0d 0a 46 3e e7 20 74 6f  67 6f 25 3e 32 30 30 20  |..F>. togo%>200 |
000018a0  f2 64 6f 32 20 8b 20 f2  64 6f 32 3a e7 20 73 63  |.do2 . .do2:. sc|
000018b0  25 3c 62 65 73 74 73 63  25 20 80 20 74 6f 67 6f  |%<bestsc% . togo|
000018c0  25 3e 35 34 20 f2 66 61  73 74 73 63 61 6e 0d 0a  |%>54 .fastscan..|
000018d0  50 0d f2 64 69 73 70 65  72 73 65 0d 0a 5a 26 e7  |P..disperse..Z&.|
000018e0  20 74 6f 67 6f 25 3c 35  35 20 80 20 73 63 25 3c  | togo%<55 . sc%<|
000018f0  62 65 73 74 73 63 25 20  f2 66 75 6c 6c 73 63 61  |bestsc% .fullsca|
00001900  6e 0d 0a 64 24 e7 20 74  6f 67 6f 25 3c 31 34 20  |n..d$. togo%<14 |
00001910  80 20 73 63 25 3c 62 65  73 74 73 63 25 20 f2 63  |. sc%<bestsc% .c|
00001920  6f 6e 74 69 6e 0d 0a 6e  cf e7 20 73 63 25 3c 62  |ontin..n.. sc%<b|
00001930  65 73 74 73 63 25 20 8c  20 62 65 73 74 78 25 3d  |estsc% . bestx%=|
00001940  78 25 3a 62 65 73 74 79  25 3d 79 25 3a 62 65 73  |x%:besty%=y%:bes|
00001950  74 78 66 25 3d 78 66 25  3a 62 65 73 74 79 66 25  |txf%=xf%:bestyf%|
00001960  3d 79 66 25 3a 62 65 73  74 72 25 3d 72 6f 74 25  |=yf%:bestr%=rot%|
00001970  3a 62 65 73 74 73 63 25  3d 73 63 25 3a f1 8a 30  |:bestsc%=sc%:..0|
00001980  2c 32 35 29 3b 78 25 3b  22 2c 22 3b 79 25 3b 22  |,25);x%;",";y%;"|
00001990  2c 22 3b 78 66 25 3b 22  2c 22 3b 79 66 25 3b 22  |,";xf%;",";yf%;"|
000019a0  2c 22 3b 62 65 73 74 72  25 3b 22 2f 22 3b 62 65  |,";bestr%;"/";be|
000019b0  73 74 73 63 25 3b 22 28  22 3b 64 73 63 6f 72 65  |stsc%;"(";dscore|
000019c0  25 3b 22 2c 22 3b 78 63  6f 67 25 2f 34 3b 22 2c  |%;",";xcog%/4;",|
000019d0  22 3b 79 63 6f 67 25 2f  34 3b 22 29 22 3b 7a 73  |";ycog%/4;")";zs|
000019e0  63 6f 72 65 25 3b 22 2f  22 3b 63 73 25 3b 89 28  |core%;"/";cs%;.(|
000019f0  31 30 29 3b 0d 0a 78 07  ed 3a ed 0d 0a 82 16 e7  |10);..x..:......|
00001a00  20 ac 20 78 73 79 6d 25  20 f2 66 6c 69 70 78 3a  | . xsym% .flipx:|
00001a10  ed 0d 0a 8c 16 e7 20 ac  20 79 73 79 6d 25 20 f2  |...... . ysym% .|
00001a20  66 6c 69 70 79 3a ed 0d  0a 96 1b e7 20 ac 20 72  |flipy:...... . r|
00001a30  73 79 6d 25 20 80 20 72  6f 74 25 3d 30 20 f2 72  |sym% . rot%=0 .r|
00001a40  6f 74 0d 0a a0 0f e7 20  ac 20 72 73 79 6d 25 20  |ot..... . rsym% |
00001a50  ed 0d 0a aa 05 3a 0d 0a  b4 14 e7 20 62 65 73 74  |.....:..... best|
00001a60  78 25 3d 30 20 8c 20 3d  22 22 0d 0a be 1f e7 20  |x%=0 . =""..... |
00001a70  ac 20 72 73 79 6d 25 20  80 20 62 65 73 74 72 25  |. rsym% . bestr%|
00001a80  3d 30 20 f2 75 6e 72 6f  74 0d 0a c8 17 e7 20 62  |=0 .unrot..... b|
00001a90  65 73 74 78 66 25 3d 2d  31 20 f2 66 6c 69 70 78  |estxf%=-1 .flipx|
00001aa0  0d 0a d2 4b e7 20 62 65  73 74 79 66 25 3d 2d 31  |...K. bestyf%=-1|
00001ab0  20 f2 66 6c 69 70 79 3a  f4 20 70 75 74 20 70 69  | .flipy:. put pi|
00001ac0  65 63 65 20 62 61 63 6b  20 72 69 67 68 74 20 77  |ece back right w|
00001ad0  61 79 20 72 6f 75 6e 64  20 66 6f 72 20 72 65 6d  |ay round for rem|
00001ae0  65 6d 69 6e 67 20 62 6f  61 72 64 0d 0a dc 05 3a  |eming board....:|
00001af0  0d 0a e6 20 f4 20 66 69  72 73 74 20 70 75 74 20  |... . first put |
00001b00  70 69 65 63 65 20 69 6e  74 6f 20 62 6f 61 72 64  |piece into board|
00001b10  0d 0a f0 11 e3 20 70 78  25 3d 31 20 b8 20 78 73  |..... px%=1 . xs|
00001b20  25 0d 0a fa 11 e3 20 70  79 25 3d 31 20 b8 20 79  |%..... py%=1 . y|
00001b30  73 25 0d 0b 04 16 e7 20  69 74 65 6d 25 28 70 78  |s%..... item%(px|
00001b40  25 2c 70 79 25 29 20 8c  0d 0b 0e 11 74 6f 67 6f  |%,py%) .....togo|
00001b50  25 3d 74 6f 67 6f 25 2d  31 0d 0b 18 24 62 6f 25  |%=togo%-1...$bo%|
00001b60  28 31 2b 70 78 25 2b 62  65 73 74 78 25 2c 31 2b  |(1+px%+bestx%,1+|
00001b70  62 65 73 74 79 25 2b 70  79 25 29 3d b9 0d 0b 22  |besty%+py%)=..."|
00001b80  46 62 6f 6a 25 28 31 2b  70 78 25 2b 62 65 73 74  |Fboj%(1+px%+best|
00001b90  78 25 2c 31 2b 70 79 25  2b 62 65 73 74 79 25 29  |x%,1+py%+besty%)|
00001ba0  3d 62 6f 6a 25 28 31 2b  70 78 25 2b 62 65 73 74  |=boj%(1+px%+best|
00001bb0  78 25 2c 31 2b 70 79 25  2b 62 65 73 74 79 25 29  |x%,1+py%+besty%)|
00001bc0  2d 31 30 0d 0b 2c 41 62  6f 6a 25 28 70 78 25 2b  |-10..,Aboj%(px%+|
00001bd0  62 65 73 74 78 25 2c 31  2b 70 79 25 2b 62 65 73  |bestx%,1+py%+bes|
00001be0  74 79 25 29 3d 62 6f 6a  25 28 70 78 25 2b 62 65  |ty%)=boj%(px%+be|
00001bf0  73 74 78 25 2c 31 2b 70  79 25 2b 62 65 73 74 79  |stx%,1+py%+besty|
00001c00  25 29 2d 31 0d 0b 36 41  62 6f 6a 25 28 31 2b 70  |%)-1..6Aboj%(1+p|
00001c10  78 25 2b 62 65 73 74 78  25 2c 70 79 25 2b 62 65  |x%+bestx%,py%+be|
00001c20  73 74 79 25 29 3d 62 6f  6a 25 28 31 2b 70 78 25  |sty%)=boj%(1+px%|
00001c30  2b 62 65 73 74 78 25 2c  70 79 25 2b 62 65 73 74  |+bestx%,py%+best|
00001c40  79 25 29 2d 31 0d 0b 40  45 62 6f 6a 25 28 31 2b  |y%)-1..@Eboj%(1+|
00001c50  70 78 25 2b 62 65 73 74  78 25 2c 32 2b 70 79 25  |px%+bestx%,2+py%|
00001c60  2b 62 65 73 74 79 25 29  3d 62 6f 6a 25 28 31 2b  |+besty%)=boj%(1+|
00001c70  70 78 25 2b 62 65 73 74  78 25 2c 32 2b 70 79 25  |px%+bestx%,2+py%|
00001c80  2b 62 65 73 74 79 25 29  2d 31 0d 0b 4a 45 62 6f  |+besty%)-1..JEbo|
00001c90  6a 25 28 32 2b 70 78 25  2b 62 65 73 74 78 25 2c  |j%(2+px%+bestx%,|
00001ca0  31 2b 70 79 25 2b 62 65  73 74 79 25 29 3d 62 6f  |1+py%+besty%)=bo|
00001cb0  6a 25 28 32 2b 70 78 25  2b 62 65 73 74 78 25 2c  |j%(2+px%+bestx%,|
00001cc0  31 2b 70 79 25 2b 62 65  73 74 79 25 29 2d 31 0d  |1+py%+besty%)-1.|
00001cd0  0b 54 05 cd 0d 0b 5e 07  ed 3a ed 0d 0b 68 05 3a  |.T....^..:...h.:|
00001ce0  0d 0b 72 33 e7 20 28 62  65 73 74 72 25 3d 31 29  |..r3. (bestr%=1)|
00001cf0  20 82 20 28 62 65 73 74  79 66 25 3d 2d 31 29 20  | . (bestyf%=-1) |
00001d00  62 65 73 74 79 25 3d 62  65 73 74 79 25 2b 79 73  |besty%=besty%+ys|
00001d10  25 2d 31 0d 0b 7c 29 f4  20 73 74 69 6c 6c 20 75  |%-1..|). still u|
00001d20  73 69 6e 67 20 6e 65 77  20 73 20 76 61 6c 75 65  |sing new s value|
00001d30  73 20 69 66 20 72 6f 74  61 74 65 64 0d 0b 86 24  |s if rotated...$|
00001d40  e7 20 62 65 73 74 78 66  25 3d 2d 31 20 62 65 73  |. bestxf%=-1 bes|
00001d50  74 78 25 3d 62 65 73 74  78 25 2b 78 73 25 2d 31  |tx%=bestx%+xs%-1|
00001d60  0d 0b 90 4e f4 20 74 61  6b 65 20 61 63 63 6f 75  |...N. take accou|
00001d70  6e 74 20 6f 66 20 66 61  63 74 20 74 68 61 74 20  |nt of fact that |
00001d80  4f 4d 49 4e 4f 20 77 61  6e 74 73 20 74 68 65 20  |OMINO wants the |
00001d90  70 6f 73 20 6f 66 20 74  68 65 20 6f 72 69 67 2e  |pos of the orig.|
00001da0  20 54 4c 20 6e 6f 74 20  6e 65 77 20 54 4c 0d 0b  | TL not new TL..|
00001db0  9a 1d f2 63 65 6d 65 6e  74 3a f4 22 46 69 6c 6c  |...cement:."Fill|
00001dc0  22 20 61 6e 79 20 68 6f  6c 65 73 0d 0b a4 23 f1  |" any holes...#.|
00001dd0  8a 32 35 2c 31 39 29 3b  22 54 6f 67 6f 20 3a 20  |.25,19);"Togo : |
00001de0  22 3b 74 6f 67 6f 25 3b  22 20 20 20 22 3b 0d 0b  |";togo%;"   ";..|
00001df0  ae 3a 3d c3 28 62 65 73  74 78 25 2a 62 65 73 74  |.:=.(bestx%*best|
00001e00  78 66 25 29 2b 22 2c 22  2b c3 28 62 65 73 74 79  |xf%)+","+.(besty|
00001e10  25 2a 62 65 73 74 79 66  25 29 2b 22 2c 22 2b c3  |%*bestyf%)+","+.|
00001e20  28 62 65 73 74 72 25 29  0d 0b b8 05 3a 0d 0b c2  |(bestr%)....:...|
00001e30  0b dd f2 66 6c 69 70 78  0d 0b cc 0d e7 20 78 73  |...flipx..... xs|
00001e40  25 3c 32 20 fa 0d 0b d6  10 e3 20 79 25 3d 31 20  |%<2 ...... y%=1 |
00001e50  b8 20 79 73 25 0d 0b e0  16 e3 20 78 25 3d 31 20  |. ys%..... x%=1 |
00001e60  b8 20 28 78 73 25 20 81  20 32 29 0d 0b ea 13 74  |. (xs% . 2)....t|
00001e70  25 3d 69 74 65 6d 25 28  78 25 2c 79 25 29 0d 0b  |%=item%(x%,y%)..|
00001e80  f4 23 69 74 65 6d 25 28  78 25 2c 79 25 29 3d 69  |.#item%(x%,y%)=i|
00001e90  74 65 6d 25 28 78 73 25  2b 31 2d 78 25 2c 79 25  |tem%(xs%+1-x%,y%|
00001ea0  29 0d 0b fe 19 69 74 65  6d 25 28 78 73 25 2b 31  |)....item%(xs%+1|
00001eb0  2d 78 25 2c 79 25 29 3d  74 25 0d 0c 08 07 ed 3a  |-x%,y%)=t%.....:|
00001ec0  ed 0d 0c 12 05 e1 0d 0c  1c 05 3a 0d 0c 26 0b dd  |..........:..&..|
00001ed0  f2 66 6c 69 70 79 0d 0c  30 0d e7 20 79 73 25 3c  |.flipy..0.. ys%<|
00001ee0  32 20 fa 0d 0c 3a 10 e3  20 78 25 3d 31 20 b8 20  |2 ...:.. x%=1 . |
00001ef0  78 73 25 0d 0c 44 16 e3  20 79 25 3d 31 20 b8 20  |xs%..D.. y%=1 . |
00001f00  28 79 73 25 20 81 20 32  29 0d 0c 4e 13 74 25 3d  |(ys% . 2)..N.t%=|
00001f10  69 74 65 6d 25 28 78 25  2c 79 25 29 0d 0c 58 23  |item%(x%,y%)..X#|
00001f20  69 74 65 6d 25 28 78 25  2c 79 25 29 3d 69 74 65  |item%(x%,y%)=ite|
00001f30  6d 25 28 78 25 2c 79 73  25 2b 31 2d 79 25 29 0d  |m%(x%,ys%+1-y%).|
00001f40  0c 62 19 69 74 65 6d 25  28 78 25 2c 79 73 25 2b  |.b.item%(x%,ys%+|
00001f50  31 2d 79 25 29 3d 74 25  0d 0c 6c 07 ed 3a ed 0d  |1-y%)=t%..l..:..|
00001f60  0c 76 05 e1 0d 0c 80 05  3a 0d 0c 8a 09 dd f2 72  |.v......:......r|
00001f70  6f 74 0d 0c 94 10 e3 20  78 25 3d 31 20 b8 20 78  |ot..... x%=1 . x|
00001f80  73 25 0d 0c 9e 10 e3 20  79 25 3d 31 20 b8 20 79  |s%..... y%=1 . y|
00001f90  73 25 0d 0c a8 24 69 74  65 6d 32 25 28 79 25 2c  |s%...$item2%(y%,|
00001fa0  78 73 25 2b 31 2d 78 25  29 3d 69 74 65 6d 25 28  |xs%+1-x%)=item%(|
00001fb0  78 25 2c 79 25 29 0d 0c  b2 1e 69 74 65 6d 33 25  |x%,y%)....item3%|
00001fc0  28 78 25 2c 79 25 29 3d  69 74 65 6d 25 28 78 25  |(x%,y%)=item%(x%|
00001fd0  2c 79 25 29 0d 0c bc 07  ed 3a ed 0d 0c c6 19 74  |,y%).....:.....t|
00001fe0  25 3d 78 73 25 3a 78 73  25 3d 79 73 25 3a 79 73  |%=xs%:xs%=ys%:ys|
00001ff0  25 3d 74 25 0d 0c d0 10  e3 20 78 25 3d 31 20 b8  |%=t%..... x%=1 .|
00002000  20 78 73 25 0d 0c da 10  e3 20 79 25 3d 31 20 b8  | xs%..... y%=1 .|
00002010  20 79 73 25 0d 0c e4 1e  69 74 65 6d 25 28 78 25  | ys%....item%(x%|
00002020  2c 79 25 29 3d 69 74 65  6d 32 25 28 78 25 2c 79  |,y%)=item2%(x%,y|
00002030  25 29 0d 0c ee 07 ed 3a  ed 0d 0c f8 21 74 25 3d  |%).....:....!t%=|
00002040  78 73 79 6d 25 3a 78 73  79 6d 25 3d 79 73 79 6d  |xsym%:xsym%=ysym|
00002050  25 3a 79 73 79 6d 25 3d  74 25 0d 0d 02 05 e1 0d  |%:ysym%=t%......|
00002060  0d 0c 05 3a 0d 0d 16 0b  dd f2 75 6e 72 6f 74 0d  |...:......unrot.|
00002070  0d 20 19 74 25 3d 78 73  25 3a 78 73 25 3d 79 73  |. .t%=xs%:xs%=ys|
00002080  25 3a 79 73 25 3d 74 25  0d 0d 2a 10 e3 20 78 25  |%:ys%=t%..*.. x%|
00002090  3d 31 20 b8 20 78 73 25  0d 0d 34 10 e3 20 79 25  |=1 . xs%..4.. y%|
000020a0  3d 31 20 b8 20 79 73 25  0d 0d 3e 1e 69 74 65 6d  |=1 . ys%..>.item|
000020b0  25 28 78 25 2c 79 25 29  3d 69 74 65 6d 33 25 28  |%(x%,y%)=item3%(|
000020c0  78 25 2c 79 25 29 0d 0d  48 07 ed 3a ed 0d 0d 52  |x%,y%)..H..:...R|
000020d0  21 74 25 3d 78 73 79 6d  25 3a 78 73 79 6d 25 3d  |!t%=xsym%:xsym%=|
000020e0  79 73 79 6d 25 3a 79 73  79 6d 25 3d 74 25 0d 0d  |ysym%:ysym%=t%..|
000020f0  5c 05 e1 0d 0d 66 05 3a  0d 0d 70 43 f4 20 78 73  |\....f.:..pC. xs|
00002100  79 6d 20 69 73 20 54 52  55 45 20 49 46 20 78 66  |ym is TRUE IF xf|
00002110  6c 69 70 70 69 6e 67 20  68 61 73 20 6e 6f 20 65  |lipping has no e|
00002120  66 66 65 63 74 20 28 49  45 20 59 2d 41 58 49 53  |ffect (IE Y-AXIS|
00002130  20 73 79 6d 6d 65 6e 74  72 79 29 0d 0d 7a 0a dd  | symmentry)..z..|
00002140  f2 74 65 73 74 0d 0d 84  0b 72 73 79 6d 25 3d a3  |.test....rsym%=.|
00002150  0d 0d 8e 0b 78 73 79 6d  25 3d b9 0d 0d 98 0b 79  |....xsym%=.....y|
00002160  73 79 6d 25 3d b9 0d 0d  a2 41 64 73 79 6d 25 3d  |sym%=....Adsym%=|
00002170  b9 3a f4 20 66 6c 61 67  20 66 6f 72 20 74 68 65  |.:. flag for the|
00002180  20 67 65 6e 65 72 61 6c  20 73 79 6d 20 74 68 61  | general sym tha|
00002190  74 20 64 69 73 71 75 61  6c 73 20 61 6e 79 20 31  |t disquals any 1|
000021a0  20 72 65 66 6c 65 63 0d  0d ac 10 e3 20 78 25 3d  | reflec..... x%=|
000021b0  31 20 b8 20 78 73 25 0d  0d b6 10 e3 20 79 25 3d  |1 . xs%..... y%=|
000021c0  31 20 b8 20 79 73 25 0d  0d c0 2e e7 20 69 74 65  |1 . ys%..... ite|
000021d0  6d 25 28 78 25 2c 79 25  29 3c 3e 69 74 65 6d 25  |m%(x%,y%)<>item%|
000021e0  28 78 73 25 2b 31 2d 78  25 2c 79 25 29 20 78 73  |(xs%+1-x%,y%) xs|
000021f0  79 6d 25 3d a3 0d 0d ca  2e e7 20 69 74 65 6d 25  |ym%=...... item%|
00002200  28 78 25 2c 79 25 29 3c  3e 69 74 65 6d 25 28 78  |(x%,y%)<>item%(x|
00002210  25 2c 79 73 25 2b 31 2d  79 25 29 20 79 73 79 6d  |%,ys%+1-y%) ysym|
00002220  25 3d a3 0d 0d d4 34 e7  20 69 74 65 6d 25 28 78  |%=....4. item%(x|
00002230  25 2c 79 25 29 3c 3e 69  74 65 6d 25 28 78 73 25  |%,y%)<>item%(xs%|
00002240  2b 31 2d 78 25 2c 79 73  25 2b 31 2d 79 25 29 20  |+1-x%,ys%+1-y%) |
00002250  64 73 79 6d 25 3d a3 0d  0d de 07 ed 3a ed 0d 0d  |dsym%=......:...|
00002260  e8 25 e7 20 78 73 79 6d  25 2b 79 73 79 6d 25 3d  |.%. xsym%+ysym%=|
00002270  30 20 80 20 64 73 79 6d  25 20 8c 20 78 73 79 6d  |0 . dsym% . xsym|
00002280  25 3d b9 0d 0d f2 30 e7  20 78 73 79 6d 25 20 80  |%=....0. xsym% .|
00002290  20 79 73 79 6d 25 20 80  20 78 73 25 3d 79 73 25  | ysym% . xs%=ys%|
000022a0  20 72 73 79 6d 25 3d b9  3a f4 20 78 79 72 20 73  | rsym%=.:. xyr s|
000022b0  79 6d 73 0d 0d fc 20 e7  20 78 73 79 6d 25 2b 79  |yms... . xsym%+y|
000022c0  73 79 6d 25 3c 30 20 84  20 78 73 25 3c 3e 79 73  |sym%<0 . xs%<>ys|
000022d0  25 20 e1 0d 0e 06 4d f4  20 78 73 79 6d 25 20 41  |% ....M. xsym% A|
000022e0  4e 44 20 79 73 79 6d 25  20 6e 6f 77 20 75 73 65  |ND ysym% now use|
000022f0  64 20 69 6e 20 61 20 72  65 70 72 65 73 65 6e 74  |d in a represent|
00002300  61 74 69 6f 6e 61 6c 20  6d 61 6e 6e 65 72 20 66  |ational manner f|
00002310  6f 72 20 74 68 65 20 74  77 6f 20 64 69 61 67 73  |or the two diags|
00002320  0d 0e 10 13 78 73 79 6d  25 3d b9 3a 79 73 79 6d  |....xsym%=.:ysym|
00002330  25 3d b9 0d 0e 1a 10 e3  20 78 25 3d 31 20 b8 20  |%=...... x%=1 . |
00002340  78 73 25 0d 0e 24 10 e3  20 79 25 3d 31 20 b8 20  |xs%..$.. y%=1 . |
00002350  79 73 25 0d 0e 2e 28 e7  20 69 74 65 6d 25 28 78  |ys%...(. item%(x|
00002360  25 2c 79 25 29 3c 3e 69  74 65 6d 25 28 79 25 2c  |%,y%)<>item%(y%,|
00002370  78 25 29 20 78 73 79 6d  25 3d a3 0d 0e 38 34 e7  |x%) xsym%=...84.|
00002380  20 69 74 65 6d 25 28 78  25 2c 79 25 29 3c 3e 69  | item%(x%,y%)<>i|
00002390  74 65 6d 25 28 79 73 25  2b 31 2d 79 25 2c 78 73  |tem%(ys%+1-y%,xs|
000023a0  25 2b 31 2d 78 25 29 20  79 73 79 6d 25 3d a3 0d  |%+1-x%) ysym%=..|
000023b0  0e 42 07 ed 3a ed 0d 0e  4c 1d e7 20 78 73 79 6d  |.B..:...L.. xsym|
000023c0  25 20 84 20 79 73 79 6d  25 20 8c 20 72 73 79 6d  |% . ysym% . rsym|
000023d0  25 3d b9 0d 0e 56 13 78  73 79 6d 25 3d a3 3a 79  |%=...V.xsym%=.:y|
000023e0  73 79 6d 25 3d a3 0d 0e  60 05 e1 0d 0e 6a 05 3a  |sym%=...`....j.:|
000023f0  0d 0e 74 09 dd f2 64 6f  32 0d 0e 7e 11 e3 20 70  |..t...do2..~.. p|
00002400  78 25 3d 31 20 b8 20 78  73 25 0d 0e 88 11 e3 20  |x%=1 . xs%..... |
00002410  70 79 25 3d 31 20 b8 20  79 73 25 0d 0e 92 16 e7  |py%=1 . ys%.....|
00002420  20 69 74 65 6d 25 28 70  78 25 2c 70 79 25 29 20  | item%(px%,py%) |
00002430  8c 0d 0e 9c 54 e7 20 62  6f 25 28 31 2b 78 25 2b  |....T. bo%(1+x%+|
00002440  70 78 25 2c 31 2b 79 25  2b 70 79 25 29 20 8c 20  |px%,1+y%+py%) . |
00002450  73 63 25 3d 73 63 25 2b  31 30 30 30 20 8b 20 73  |sc%=sc%+1000 . s|
00002460  63 25 3d 73 63 25 2b 73  63 6f 73 74 25 2a 62 6f  |c%=sc%+scost%*bo|
00002470  6a 25 28 31 2b 78 25 2b  70 78 25 2c 31 2b 79 25  |j%(1+x%+px%,1+y%|
00002480  2b 70 79 25 29 0d 0e a6  05 cd 0d 0e b0 2d f4 20  |+py%)........-. |
00002490  73 63 6f 73 74 25 28 33  6f 72 34 29 20 61 64 64  |scost%(3or4) add|
000024a0  65 64 20 70 65 72 20 65  6d 70 74 79 20 69 74 20  |ed per empty it |
000024b0  74 6f 75 63 68 65 73 0d  0e ba 35 e7 20 73 63 25  |touches...5. sc%|
000024c0  3e 3d 62 65 73 74 73 63  25 20 70 78 25 3d 78 73  |>=bestsc% px%=xs|
000024d0  25 3a 70 79 25 3d 79 73  25 3a f4 20 61 62 6f 72  |%:py%=ys%:. abor|
000024e0  74 20 74 68 69 73 20 70  69 65 63 65 0d 0e c4 07  |t this piece....|
000024f0  ed 3a ed 0d 0e ce 05 e1  0d 0e d8 05 3a 0d 0e e2  |.:..........:...|
00002500  09 dd f2 70 75 74 0d 0e  ec 20 f4 20 66 69 72 73  |...put... . firs|
00002510  74 20 70 75 74 20 70 69  65 63 65 20 69 6e 74 6f  |t put piece into|
00002520  20 62 6f 61 72 64 0d 0e  f6 11 e3 20 70 78 25 3d  | board..... px%=|
00002530  31 20 b8 20 78 73 25 0d  0f 00 11 e3 20 70 79 25  |1 . xs%..... py%|
00002540  3d 31 20 b8 20 79 73 25  0d 0f 0a 16 e7 20 69 74  |=1 . ys%..... it|
00002550  65 6d 25 28 70 78 25 2c  70 79 25 29 20 8c 0d 0f  |em%(px%,py%) ...|
00002560  14 1c 62 6f 25 28 31 2b  70 78 25 2b 78 25 2c 31  |..bo%(1+px%+x%,1|
00002570  2b 79 25 2b 70 79 25 29  3d b9 0d 0f 1e 36 62 6f  |+y%+py%)=....6bo|
00002580  6a 25 28 31 2b 70 78 25  2b 78 25 2c 31 2b 70 79  |j%(1+px%+x%,1+py|
00002590  25 2b 79 25 29 3d 62 6f  6a 25 28 31 2b 70 78 25  |%+y%)=boj%(1+px%|
000025a0  2b 78 25 2c 31 2b 70 79  25 2b 79 25 29 2d 31 30  |+x%,1+py%+y%)-10|
000025b0  0d 0f 28 31 62 6f 6a 25  28 70 78 25 2b 78 25 2c  |..(1boj%(px%+x%,|
000025c0  31 2b 70 79 25 2b 79 25  29 3d 62 6f 6a 25 28 70  |1+py%+y%)=boj%(p|
000025d0  78 25 2b 78 25 2c 31 2b  70 79 25 2b 79 25 29 2d  |x%+x%,1+py%+y%)-|
000025e0  31 0d 0f 32 31 62 6f 6a  25 28 31 2b 70 78 25 2b  |1..21boj%(1+px%+|
000025f0  78 25 2c 70 79 25 2b 79  25 29 3d 62 6f 6a 25 28  |x%,py%+y%)=boj%(|
00002600  31 2b 70 78 25 2b 78 25  2c 70 79 25 2b 79 25 29  |1+px%+x%,py%+y%)|
00002610  2d 31 0d 0f 3c 35 62 6f  6a 25 28 31 2b 70 78 25  |-1..<5boj%(1+px%|
00002620  2b 78 25 2c 32 2b 70 79  25 2b 79 25 29 3d 62 6f  |+x%,2+py%+y%)=bo|
00002630  6a 25 28 31 2b 70 78 25  2b 78 25 2c 32 2b 70 79  |j%(1+px%+x%,2+py|
00002640  25 2b 79 25 29 2d 31 0d  0f 46 35 62 6f 6a 25 28  |%+y%)-1..F5boj%(|
00002650  32 2b 70 78 25 2b 78 25  2c 31 2b 70 79 25 2b 79  |2+px%+x%,1+py%+y|
00002660  25 29 3d 62 6f 6a 25 28  32 2b 70 78 25 2b 78 25  |%)=boj%(2+px%+x%|
00002670  2c 31 2b 70 79 25 2b 79  25 29 2d 31 0d 0f 50 05  |,1+py%+y%)-1..P.|
00002680  cd 0d 0f 5a 07 ed 3a ed  0d 0f 64 05 e1 0d 0f 6e  |...Z..:...d....n|
00002690  05 3a 0d 0f 78 0e dd f2  66 61 73 74 73 63 61 6e  |.:..x...fastscan|
000026a0  0d 0f 82 08 f2 70 75 74  0d 0f 8c 15 f4 20 6e 6f  |.....put..... no|
000026b0  77 20 63 6f 75 6e 74 20  68 6f 6c 65 73 0d 0f 96  |w count holes...|
000026c0  0b 64 65 61 64 25 3d a3  0d 0f a0 1c e3 20 70 78  |.dead%=...... px|
000026d0  25 3d 62 5f 6c 65 66 74  25 20 b8 20 62 5f 72 69  |%=b_left% . b_ri|
000026e0  67 68 74 25 0d 0f aa 1c  e3 20 70 79 25 3d 62 5f  |ght%..... py%=b_|
000026f0  74 6f 70 25 20 b8 20 62  5f 62 6f 74 74 6f 6d 25  |top% . b_bottom%|
00002700  0d 0f b4 18 61 25 3d 62  6f 6a 25 28 32 2b 70 78  |....a%=boj%(2+px|
00002710  25 2c 32 2b 70 79 25 29  0d 0f be 2f e7 20 61 25  |%,2+py%).../. a%|
00002720  3d 30 20 80 20 ac 20 62  6f 25 28 32 2b 70 78 25  |=0 . . bo%(2+px%|
00002730  2c 32 2b 70 79 25 29 20  8c 20 73 63 25 3d 73 63  |,2+py%) . sc%=sc|
00002740  25 2b 63 6f 73 74 25 0d  0f c8 0c e7 20 61 25 3d  |%+cost%..... a%=|
00002750  31 20 8c 0d 0f d2 23 e7  20 6d 65 73 73 79 25 20  |1 ....#. messy% |
00002760  73 63 25 3d 73 63 25 2b  31 3a f4 20 61 6e 74 69  |sc%=sc%+1:. anti|
00002770  20 65 6e 64 65 72 0d 0f  dc 2b e7 20 62 6f 6a 25  | ender...+. boj%|
00002780  28 33 2b 70 78 25 2c 32  2b 70 79 25 29 3d 31 20  |(3+px%,2+py%)=1 |
00002790  73 63 25 3d 73 63 25 2b  32 2a 63 6f 73 74 25 2d  |sc%=sc%+2*cost%-|
000027a0  33 0d 0f e6 2b e7 20 62  6f 6a 25 28 32 2b 70 78  |3...+. boj%(2+px|
000027b0  25 2c 33 2b 70 79 25 29  3d 31 20 73 63 25 3d 73  |%,3+py%)=1 sc%=s|
000027c0  63 25 2b 32 2a 63 6f 73  74 25 2d 33 0d 0f f0 05  |c%+2*cost%-3....|
000027d0  cd 0d 0f fa 17 e7 20 61  25 3d 32 20 80 20 74 6f  |...... a%=2 . to|
000027e0  67 6f 25 3c 38 30 20 8c  0d 10 04 08 62 25 3d 30  |go%<80 .....b%=0|
000027f0  0d 10 0e 30 e7 20 ac 20  62 6f 25 28 31 2b 70 78  |...0. . bo%(1+px|
00002800  25 2c 32 2b 70 79 25 29  20 62 25 3d 62 25 2b 62  |%,2+py%) b%=b%+b|
00002810  6f 6a 25 28 31 2b 70 78  25 2c 32 2b 70 79 25 29  |oj%(1+px%,2+py%)|
00002820  0d 10 18 30 e7 20 ac 20  62 6f 25 28 32 2b 70 78  |...0. . bo%(2+px|
00002830  25 2c 31 2b 70 79 25 29  20 62 25 3d 62 25 2b 62  |%,1+py%) b%=b%+b|
00002840  6f 6a 25 28 32 2b 70 78  25 2c 31 2b 70 79 25 29  |oj%(2+px%,1+py%)|
00002850  0d 10 22 30 e7 20 ac 20  62 6f 25 28 32 2b 70 78  |.."0. . bo%(2+px|
00002860  25 2c 33 2b 70 79 25 29  20 62 25 3d 62 25 2b 62  |%,3+py%) b%=b%+b|
00002870  6f 6a 25 28 32 2b 70 78  25 2c 33 2b 70 79 25 29  |oj%(2+px%,3+py%)|
00002880  0d 10 2c 30 e7 20 ac 20  62 6f 25 28 33 2b 70 78  |..,0. . bo%(3+px|
00002890  25 2c 32 2b 70 79 25 29  20 62 25 3d 62 25 2b 62  |%,2+py%) b%=b%+b|
000028a0  6f 6a 25 28 33 2b 70 78  25 2c 32 2b 70 79 25 29  |oj%(3+px%,2+py%)|
000028b0  0d 10 36 1a e7 20 62 25  3d 32 20 73 63 25 3d 73  |..6.. b%=2 sc%=s|
000028c0  63 25 2b 32 2a 63 6f 73  74 25 0d 10 40 2a e7 20  |c%+2*cost%..@*. |
000028d0  ac 20 64 65 61 64 25 20  80 20 62 25 3d 33 20 73  |. dead% . b%=3 s|
000028e0  63 25 3d 73 63 25 2b 63  6f 73 74 25 3a 64 65 61  |c%=sc%+cost%:dea|
000028f0  64 25 3d b9 0d 10 4a 05  cd 0d 10 54 07 ed 3a ed  |d%=...J....T..:.|
00002900  0d 10 5e 09 f2 70 75 6c  6c 0d 10 68 05 e1 0d 10  |..^..pull..h....|
00002910  72 05 3a 0d 10 7c 0a dd  f2 70 75 6c 6c 0d 10 86  |r.:..|...pull...|
00002920  14 f4 20 6e 6f 77 20 6c  69 66 74 20 70 69 65 63  |.. now lift piec|
00002930  65 0d 10 90 11 e3 20 70  78 25 3d 31 20 b8 20 78  |e..... px%=1 . x|
00002940  73 25 0d 10 9a 11 e3 20  70 79 25 3d 31 20 b8 20  |s%..... py%=1 . |
00002950  79 73 25 0d 10 a4 16 e7  20 69 74 65 6d 25 28 70  |ys%..... item%(p|
00002960  78 25 2c 70 79 25 29 20  8c 0d 10 ae 1c 62 6f 25  |x%,py%) .....bo%|
00002970  28 31 2b 70 78 25 2b 78  25 2c 31 2b 79 25 2b 70  |(1+px%+x%,1+y%+p|
00002980  79 25 29 3d a3 0d 10 b8  36 62 6f 6a 25 28 31 2b  |y%)=....6boj%(1+|
00002990  70 78 25 2b 78 25 2c 31  2b 70 79 25 2b 79 25 29  |px%+x%,1+py%+y%)|
000029a0  3d 62 6f 6a 25 28 31 2b  70 78 25 2b 78 25 2c 31  |=boj%(1+px%+x%,1|
000029b0  2b 70 79 25 2b 79 25 29  2b 31 30 0d 10 c2 31 62  |+py%+y%)+10...1b|
000029c0  6f 6a 25 28 70 78 25 2b  78 25 2c 31 2b 70 79 25  |oj%(px%+x%,1+py%|
000029d0  2b 79 25 29 3d 62 6f 6a  25 28 70 78 25 2b 78 25  |+y%)=boj%(px%+x%|
000029e0  2c 31 2b 70 79 25 2b 79  25 29 2b 31 0d 10 cc 31  |,1+py%+y%)+1...1|
000029f0  62 6f 6a 25 28 31 2b 70  78 25 2b 78 25 2c 70 79  |boj%(1+px%+x%,py|
00002a00  25 2b 79 25 29 3d 62 6f  6a 25 28 31 2b 70 78 25  |%+y%)=boj%(1+px%|
00002a10  2b 78 25 2c 70 79 25 2b  79 25 29 2b 31 0d 10 d6  |+x%,py%+y%)+1...|
00002a20  35 62 6f 6a 25 28 31 2b  70 78 25 2b 78 25 2c 32  |5boj%(1+px%+x%,2|
00002a30  2b 70 79 25 2b 79 25 29  3d 62 6f 6a 25 28 31 2b  |+py%+y%)=boj%(1+|
00002a40  70 78 25 2b 78 25 2c 32  2b 70 79 25 2b 79 25 29  |px%+x%,2+py%+y%)|
00002a50  2b 31 0d 10 e0 35 62 6f  6a 25 28 32 2b 70 78 25  |+1...5boj%(2+px%|
00002a60  2b 78 25 2c 31 2b 70 79  25 2b 79 25 29 3d 62 6f  |+x%,1+py%+y%)=bo|
00002a70  6a 25 28 32 2b 70 78 25  2b 78 25 2c 31 2b 70 79  |j%(2+px%+x%,1+py|
00002a80  25 2b 79 25 29 2b 31 0d  10 ea 05 cd 0d 10 f4 07  |%+y%)+1.........|
00002a90  ed 3a ed 0d 10 fe 05 e1  0d 11 08 05 3a 0d 11 12  |.:..........:...|
00002aa0  0c dd f2 63 65 6d 65 6e  74 0d 11 1c 1b e3 20 79  |...cement..... y|
00002ab0  25 3d 62 5f 74 6f 70 25  20 b8 20 62 5f 62 6f 74  |%=b_top% . b_bot|
00002ac0  74 6f 6d 25 0d 11 26 1b  e3 20 78 25 3d 62 5f 6c  |tom%..&.. x%=b_l|
00002ad0  65 66 74 25 20 b8 20 62  5f 72 69 67 68 74 25 0d  |eft% . b_right%.|
00002ae0  11 30 16 61 25 3d 62 6f  6a 25 28 32 2b 78 25 2c  |.0.a%=boj%(2+x%,|
00002af0  32 2b 79 25 29 0d 11 3a  51 e7 20 61 25 3d 30 20  |2+y%)..:Q. a%=0 |
00002b00  80 20 ac 20 62 6f 25 28  32 2b 78 25 2c 32 2b 79  |. . bo%(2+x%,2+y|
00002b10  25 29 20 8c 20 62 6f 25  28 32 2b 78 25 2c 32 2b  |%) . bo%(2+x%,2+|
00002b20  79 25 29 3d b9 3a 62 6f  6a 25 28 32 2b 78 25 2c  |y%)=.:boj%(2+x%,|
00002b30  32 2b 79 25 29 3d 2d 31  3a 74 6f 67 6f 25 3d 74  |2+y%)=-1:togo%=t|
00002b40  6f 67 6f 25 2d 31 0d 11  44 0c e7 20 61 25 3d 31  |ogo%-1..D.. a%=1|
00002b50  20 8c 0d 11 4e 27 e7 20  62 6f 6a 25 28 31 2b 78  | ...N'. boj%(1+x|
00002b60  25 2c 32 2b 79 25 29 3d  31 20 f2 63 65 6d 65 6e  |%,2+y%)=1 .cemen|
00002b70  74 69 6e 28 2d 31 2c 30  29 0d 11 58 27 e7 20 62  |tin(-1,0)..X'. b|
00002b80  6f 6a 25 28 32 2b 78 25  2c 31 2b 79 25 29 3d 31  |oj%(2+x%,1+y%)=1|
00002b90  20 f2 63 65 6d 65 6e 74  69 6e 28 30 2c 2d 31 29  | .cementin(0,-1)|
00002ba0  0d 11 62 26 e7 20 62 6f  6a 25 28 33 2b 78 25 2c  |..b&. boj%(3+x%,|
00002bb0  32 2b 79 25 29 3d 31 20  f2 63 65 6d 65 6e 74 69  |2+y%)=1 .cementi|
00002bc0  6e 28 31 2c 30 29 0d 11  6c 26 e7 20 62 6f 6a 25  |n(1,0)..l&. boj%|
00002bd0  28 32 2b 78 25 2c 33 2b  79 25 29 3d 31 20 f2 63  |(2+x%,3+y%)=1 .c|
00002be0  65 6d 65 6e 74 69 6e 28  30 2c 31 29 0d 11 76 05  |ementin(0,1)..v.|
00002bf0  cd 0d 11 80 07 ed 3a ed  0d 11 8a 05 3a 0d 11 94  |......:.....:...|
00002c00  2a f4 20 73 65 74 20 62  5f 74 6f 70 20 61 6e 64  |*. set b_top and|
00002c10  20 62 5f 62 6f 74 74 6f  6d 20 74 6f 20 74 72 69  | b_bottom to tri|
00002c20  6d 20 73 63 61 6e 73 0d  11 9e 08 61 25 3d b9 0d  |m scans....a%=..|
00002c30  11 a8 08 62 25 3d b9 0d  11 b2 1b e3 20 78 25 3d  |...b%=...... x%=|
00002c40  62 5f 6c 65 66 74 25 20  b8 20 62 5f 72 69 67 68  |b_left% . b_righ|
00002c50  74 25 0d 11 bc 1e 61 25  3d 61 25 20 80 20 62 6f  |t%....a%=a% . bo|
00002c60  25 28 32 2b 78 25 2c 32  2b 62 5f 74 6f 70 25 29  |%(2+x%,2+b_top%)|
00002c70  0d 11 c6 21 62 25 3d 62  25 20 80 20 62 6f 25 28  |...!b%=b% . bo%(|
00002c80  32 2b 78 25 2c 32 2b 62  5f 62 6f 74 74 6f 6d 25  |2+x%,2+b_bottom%|
00002c90  29 0d 11 d0 05 ed 0d 11  da 18 e7 20 61 25 20 62  |).......... a% b|
00002ca0  5f 74 6f 70 25 3d 62 5f  74 6f 70 25 2b 31 0d 11  |_top%=b_top%+1..|
00002cb0  e4 1e e7 20 62 25 20 62  5f 62 6f 74 74 6f 6d 25  |... b% b_bottom%|
00002cc0  3d 62 5f 62 6f 74 74 6f  6d 25 2d 31 0d 11 ee 23  |=b_bottom%-1...#|
00002cd0  e7 20 62 5f 62 6f 74 74  6f 6d 25 2d 62 5f 74 6f  |. b_bottom%-b_to|
00002ce0  70 25 2b 31 3c 62 69 67  67 65 73 74 25 20 8c 0d  |p%+1<biggest% ..|
00002cf0  11 f8 27 e7 20 62 5f 74  6f 70 25 3e 31 20 62 5f  |..'. b_top%>1 b_|
00002d00  74 6f 70 25 2d 3d 31 20  8b 20 62 5f 62 6f 74 74  |top%-=1 . b_bott|
00002d10  6f 6d 25 2b 3d 31 0d 12  02 05 cd 0d 12 0c 05 3a  |om%+=1.........:|
00002d20  0d 12 16 08 61 25 3d b9  0d 12 20 08 62 25 3d b9  |....a%=... .b%=.|
00002d30  0d 12 2a 1b e3 20 79 25  3d 62 5f 74 6f 70 25 20  |..*.. y%=b_top% |
00002d40  b8 20 62 5f 62 6f 74 74  6f 6d 25 0d 12 34 1f 61  |. b_bottom%..4.a|
00002d50  25 3d 61 25 20 80 20 62  6f 25 28 32 2b 62 5f 6c  |%=a% . bo%(2+b_l|
00002d60  65 66 74 25 2c 32 2b 79  25 29 0d 12 3e 20 62 25  |eft%,2+y%)..> b%|
00002d70  3d 62 25 20 80 20 62 6f  25 28 32 2b 62 5f 72 69  |=b% . bo%(2+b_ri|
00002d80  67 68 74 25 2c 32 2b 79  25 29 0d 12 48 05 ed 0d  |ght%,2+y%)..H...|
00002d90  12 52 1a e7 20 61 25 20  62 5f 6c 65 66 74 25 3d  |.R.. a% b_left%=|
00002da0  62 5f 6c 65 66 74 25 2b  31 0d 12 5c 1c e7 20 62  |b_left%+1..\.. b|
00002db0  25 20 62 5f 72 69 67 68  74 25 3d 62 5f 72 69 67  |% b_right%=b_rig|
00002dc0  68 74 25 2d 31 0d 12 66  23 e7 20 62 5f 72 69 67  |ht%-1..f#. b_rig|
00002dd0  68 74 25 2d 62 5f 6c 65  66 74 25 2b 31 3c 62 69  |ht%-b_left%+1<bi|
00002de0  67 67 65 73 74 25 20 8c  0d 12 70 28 e7 20 62 5f  |ggest% ...p(. b_|
00002df0  6c 65 66 74 25 3e 31 20  62 5f 6c 65 66 74 25 2d  |left%>1 b_left%-|
00002e00  3d 31 20 8b 20 62 5f 72  69 67 68 74 25 2b 3d 31  |=1 . b_right%+=1|
00002e10  0d 12 7a 05 cd 0d 12 84  05 e1 0d 12 8e 05 3a 0d  |..z...........:.|
00002e20  12 98 1b dd f2 63 65 6d  65 6e 74 69 6e 28 64 65  |.....cementin(de|
00002e30  6c 78 25 2c 64 65 6c 79  25 29 0d 12 a2 14 62 6f  |lx%,dely%)....bo|
00002e40  25 28 32 2b 78 25 2c 32  2b 79 25 29 3d b9 0d 12  |%(2+x%,2+y%)=...|
00002e50  ac 16 62 6f 6a 25 28 32  2b 78 25 2c 32 2b 79 25  |..boj%(2+x%,2+y%|
00002e60  29 3d 2d 31 0d 12 b6 20  62 6f 25 28 32 2b 78 25  |)=-1... bo%(2+x%|
00002e70  2b 64 65 6c 78 25 2c 32  2b 79 25 2b 64 65 6c 79  |+delx%,2+y%+dely|
00002e80  25 29 3d b9 0d 12 c0 22  62 6f 6a 25 28 32 2b 78  |%)=...."boj%(2+x|
00002e90  25 2b 64 65 6c 78 25 2c  32 2b 79 25 2b 64 65 6c  |%+delx%,2+y%+del|
00002ea0  79 25 29 3d 2d 31 0d 12  ca 11 74 6f 67 6f 25 3d  |y%)=-1....togo%=|
00002eb0  74 6f 67 6f 25 2d 32 0d  12 d4 05 e1 0d 12 de 05  |togo%-2.........|
00002ec0  3a 0d 12 e8 09 dd f2 63  6f 67 0d 12 f2 10 e7 20  |:......cog..... |
00002ed0  74 6f 67 6f 25 3e 36 30  20 e1 0d 12 fc 1b 78 74  |togo%>60 .....xt|
00002ee0  6f 74 25 3d 30 3a 79 74  6f 74 25 3d 30 3a 74 6f  |ot%=0:ytot%=0:to|
00002ef0  74 6c 25 3d 30 0d 13 06  1b e3 20 78 25 3d 62 5f  |tl%=0..... x%=b_|
00002f00  6c 65 66 74 25 20 b8 20  62 5f 72 69 67 68 74 25  |left% . b_right%|
00002f10  0d 13 10 1b e3 20 79 25  3d 62 5f 74 6f 70 25 20  |..... y%=b_top% |
00002f20  b8 20 62 5f 62 6f 74 74  6f 6d 25 0d 13 1a 33 e7  |. b_bottom%...3.|
00002f30  20 ac 20 62 6f 25 28 32  2b 78 25 2c 32 2b 79 25  | . bo%(2+x%,2+y%|
00002f40  29 20 78 74 6f 74 25 2b  3d 78 25 3a 79 74 6f 74  |) xtot%+=x%:ytot|
00002f50  25 2b 3d 79 25 3a 74 6f  74 6c 25 2b 3d 31 0d 13  |%+=y%:totl%+=1..|
00002f60  24 07 ed 3a ed 0d 13 2e  14 e7 20 74 6f 74 6c 25  |$..:...... totl%|
00002f70  3c 3e 74 6f 67 6f 25 20  fa 0d 13 38 2e e7 20 74  |<>togo% ...8.. t|
00002f80  6f 74 6c 25 3d 30 20 78  63 6f 67 25 3d 77 69 64  |otl%=0 xcog%=wid|
00002f90  74 68 25 2f 32 3a 79 63  6f 67 25 3d 68 65 69 67  |th%/2:ycog%=heig|
00002fa0  68 74 25 2f 32 3a e1 0d  13 42 1e 78 63 6f 67 25  |ht%/2:...B.xcog%|
00002fb0  3d a8 28 30 2e 35 2b 34  2a 78 74 6f 74 25 2f 74  |=.(0.5+4*xtot%/t|
00002fc0  6f 74 6c 25 29 0d 13 4c  1e 79 63 6f 67 25 3d a8  |otl%)..L.ycog%=.|
00002fd0  28 30 2e 35 2b 34 2a 79  74 6f 74 25 2f 74 6f 74  |(0.5+4*ytot%/tot|
00002fe0  6c 25 29 0d 13 56 05 3a  0d 13 60 13 78 6d 61 78  |l%)..V.:..`.xmax|
00002ff0  25 3d 30 3a 79 6d 61 78  25 3d 30 0d 13 6a 1b e3  |%=0:ymax%=0..j..|
00003000  20 78 25 3d 62 5f 6c 65  66 74 25 20 b8 20 62 5f  | x%=b_left% . b_|
00003010  72 69 67 68 74 25 0d 13  74 1b e3 20 79 25 3d 62  |right%..t.. y%=b|
00003020  5f 74 6f 70 25 20 b8 20  62 5f 62 6f 74 74 6f 6d  |_top% . b_bottom|
00003030  25 0d 13 7e 18 e7 20 ac  20 62 6f 25 28 32 2b 78  |%..~.. . bo%(2+x|
00003040  25 2c 32 2b 79 25 29 20  8c 0d 13 88 2d e7 20 94  |%,2+y%) ....-. .|
00003050  28 34 2a 78 25 2d 78 63  6f 67 25 29 3e 78 6d 61  |(4*x%-xcog%)>xma|
00003060  78 25 20 78 6d 61 78 25  3d 94 28 34 2a 78 25 2d  |x% xmax%=.(4*x%-|
00003070  78 63 6f 67 25 29 0d 13  92 2d e7 20 94 28 34 2a  |xcog%)...-. .(4*|
00003080  79 25 2d 79 63 6f 67 25  29 3e 79 6d 61 78 25 20  |y%-ycog%)>ymax% |
00003090  79 6d 61 78 25 3d 94 28  34 2a 79 25 2d 79 63 6f  |ymax%=.(4*y%-yco|
000030a0  67 25 29 0d 13 9c 05 cd  0d 13 a6 07 ed 3a ed 0d  |g%)..........:..|
000030b0  13 b0 05 e1 0d 13 ba 05  3a 0d 13 c4 0e dd f2 64  |........:......d|
000030c0  69 73 70 65 72 73 65 0d  13 ce 1e e7 20 73 63 25  |isperse..... sc%|
000030d0  3e 62 65 73 74 73 63 25  20 84 20 74 6f 67 6f 25  |>bestsc% . togo%|
000030e0  3e 36 30 20 e1 0d 13 d8  0b 74 6f 74 6c 25 3d 30  |>60 .....totl%=0|
000030f0  0d 13 e2 11 e3 20 70 78  25 3d 31 20 b8 20 78 73  |..... px%=1 . xs|
00003100  25 0d 13 ec 11 e3 20 70  79 25 3d 31 20 b8 20 79  |%..... py%=1 . y|
00003110  73 25 0d 13 f6 5c e7 20  69 74 65 6d 25 28 70 78  |s%...\. item%(px|
00003120  25 2c 70 79 25 29 20 74  6f 74 6c 25 3d 74 6f 74  |%,py%) totl%=tot|
00003130  6c 25 2b 28 78 6d 61 78  25 2d 94 28 34 2a 78 25  |l%+(xmax%-.(4*x%|
00003140  2b 34 2a 70 78 25 2d 78  63 6f 67 25 2d 34 29 29  |+4*px%-xcog%-4))|
00003150  2b 28 79 6d 61 78 25 2d  94 28 34 2a 79 25 2b 34  |+(ymax%-.(4*y%+4|
00003160  2a 70 79 25 2d 79 63 6f  67 25 2d 34 29 29 0d 14  |*py%-ycog%-4))..|
00003170  00 07 ed 3a ed 0d 14 0a  52 e7 20 74 6f 67 6f 25  |...:....R. togo%|
00003180  3c 32 30 20 74 6f 74 6c  25 3d 74 6f 74 6c 25 2a  |<20 totl%=totl%*|
00003190  34 20 8b 20 e7 20 74 6f  67 6f 25 3c 33 30 20 74  |4 . . togo%<30 t|
000031a0  6f 74 6c 25 3d 74 6f 74  6c 25 2a 33 20 8b 20 e7  |otl%=totl%*3 . .|
000031b0  20 74 6f 67 6f 25 3c 34  30 20 74 6f 74 6c 25 3d  | togo%<40 totl%=|
000031c0  74 6f 74 6c 25 2a 32 0d  14 14 18 64 73 63 6f 72  |totl%*2....dscor|
000031d0  65 25 3d 28 74 6f 74 6c  25 20 81 20 32 34 29 0d  |e%=(totl% . 24).|
000031e0  14 1e 13 73 63 25 3d 73  63 25 2b 64 73 63 6f 72  |...sc%=sc%+dscor|
000031f0  65 25 0d 14 28 05 e1 0d  14 32 05 3a 0d 14 3c 0e  |e%..(....2.:..<.|
00003200  dd f2 66 75 6c 6c 73 63  61 6e 0d 14 46 08 f2 70  |..fullscan..F..p|
00003210  75 74 0d 14 50 10 7a 62  6f 25 28 29 3d 62 6f 25  |ut..P.zbo%()=bo%|
00003220  28 29 0d 14 5a 0d 7a 73  63 6f 72 65 25 3d 30 0d  |()..Z.zscore%=0.|
00003230  14 64 22 e7 20 74 6f 67  6f 25 3c 33 32 20 69 6e  |.d". togo%<32 in|
00003240  64 65 78 25 3d 31 20 8b  20 69 6e 64 65 78 25 3d  |dex%=1 . index%=|
00003250  32 0d 14 6e 1c e3 20 70  78 25 3d 62 5f 6c 65 66  |2..n.. px%=b_lef|
00003260  74 25 20 b8 20 62 5f 72  69 67 68 74 25 0d 14 78  |t% . b_right%..x|
00003270  1c e3 20 70 79 25 3d 62  5f 74 6f 70 25 20 b8 20  |.. py%=b_top% . |
00003280  62 5f 62 6f 74 74 6f 6d  25 0d 14 82 60 e7 20 7a  |b_bottom%...`. z|
00003290  62 6f 25 28 32 2b 70 78  25 2c 32 2b 70 79 25 29  |bo%(2+px%,2+py%)|
000032a0  3d 30 20 74 6f 74 6c 25  3d 30 3a 64 25 3d 30 3a  |=0 totl%=0:d%=0:|
000032b0  f2 64 6f 7a 6f 6e 65 28  32 2b 70 78 25 2c 32 2b  |.dozone(2+px%,2+|
000032c0  70 79 25 29 3a 7a 73 63  6f 72 65 25 3d 7a 73 63  |py%):zscore%=zsc|
000032d0  6f 72 65 25 2b 73 63 74  61 62 25 28 74 6f 74 6c  |ore%+sctab%(totl|
000032e0  25 2c 69 6e 64 65 78 25  29 0d 14 8c 07 ed 3a ed  |%,index%).....:.|
000032f0  0d 14 96 09 f2 70 75 6c  6c 0d 14 a0 13 73 63 25  |.....pull....sc%|
00003300  3d 73 63 25 2b 7a 73 63  6f 72 65 25 0d 14 aa 05  |=sc%+zscore%....|
00003310  e1 0d 14 b4 05 3a 0d 14  be 15 dd f2 64 6f 7a 6f  |.....:......dozo|
00003320  6e 65 28 7a 78 25 2c 7a  79 25 29 0d 14 c8 29 e7  |ne(zx%,zy%)...).|
00003330  20 7a 62 6f 25 28 7a 78  25 2c 7a 79 25 29 20 e1  | zbo%(zx%,zy%) .|
00003340  3a f4 20 54 52 55 45 20  6d 65 61 6e 73 20 66 69  |:. TRUE means fi|
00003350  6c 6c 65 64 0d 14 d2 13  7a 62 6f 25 28 7a 78 25  |lled....zbo%(zx%|
00003360  2c 7a 79 25 29 3d b9 0d  14 dc 11 74 6f 74 6c 25  |,zy%)=.....totl%|
00003370  3d 74 6f 74 6c 25 2b 31  0d 14 e6 16 f2 64 6f 7a  |=totl%+1.....doz|
00003380  6f 6e 65 28 7a 78 25 2c  7a 79 25 2d 31 29 0d 14  |one(zx%,zy%-1)..|
00003390  f0 16 f2 64 6f 7a 6f 6e  65 28 7a 78 25 2d 31 2c  |...dozone(zx%-1,|
000033a0  7a 79 25 29 0d 14 fa 16  f2 64 6f 7a 6f 6e 65 28  |zy%).....dozone(|
000033b0  7a 78 25 2b 31 2c 7a 79  25 29 0d 15 04 16 f2 64  |zx%+1,zy%).....d|
000033c0  6f 7a 6f 6e 65 28 7a 78  25 2c 7a 79 25 2b 31 29  |ozone(zx%,zy%+1)|
000033d0  0d 15 0e 05 e1 0d 15 18  05 3a 0d 15 22 11 dd f2  |.........:.."...|
000033e0  73 74 61 72 74 63 6f 6e  74 69 6e 0d 15 2c 07 f7  |startcontin..,..|
000033f0  2b 30 0d 15 36 0f e3 20  61 25 3d 31 20 b8 20 31  |+0..6.. a%=1 . 1|
00003400  39 0d 15 40 0e f3 20 63  5f 6e 25 28 61 25 29 0d  |9..@.. c_n%(a%).|
00003410  15 4a 15 e3 20 62 25 3d  31 20 b8 20 63 5f 6e 25  |.J.. b%=1 . c_n%|
00003420  28 61 25 29 0d 15 54 1f  f3 20 63 5f 78 73 25 28  |(a%)..T.. c_xs%(|
00003430  61 25 2c 62 25 29 2c 63  5f 79 73 25 28 61 25 2c  |a%,b%),c_ys%(a%,|
00003440  62 25 29 0d 15 5e 19 e3  20 79 25 3d 31 20 b8 20  |b%)..^.. y%=1 . |
00003450  63 5f 79 73 25 28 61 25  2c 62 25 29 0d 15 68 08  |c_ys%(a%,b%)..h.|
00003460  f3 20 77 24 0d 15 72 19  e3 20 78 25 3d 31 20 b8  |. w$..r.. x%=1 .|
00003470  20 63 5f 78 73 25 28 61  25 2c 62 25 29 0d 15 7c  | c_xs%(a%,b%)..||
00003480  23 63 5f 6f 62 6a 25 28  61 25 2c 62 25 2c 78 25  |#c_obj%(a%,b%,x%|
00003490  2c 79 25 29 3d 2d bb c1  77 24 2c 78 25 2c 31 29  |,y%)=-..w$,x%,1)|
000034a0  0d 15 86 0b ed 3a ed 3a  ed 3a ed 0d 15 90 05 e1  |.....:.:.:......|
000034b0  0d 15 9a 05 3a 0d 15 a4  0c dd f2 63 6f 6e 74 69  |....:......conti|
000034c0  6e 0d 15 ae 08 f2 70 75  74 0d 15 b8 09 63 73 25  |n.....put....cs%|
000034d0  3d 30 0d 15 c2 0f e3 20  61 25 3d 31 20 b8 20 31  |=0..... a%=1 . 1|
000034e0  39 0d 15 cc 08 63 25 3d  a3 0d 15 d6 15 e3 20 62  |9....c%=...... b|
000034f0  25 3d 31 20 b8 20 63 5f  6e 25 28 61 25 29 0d 15  |%=1 . c_n%(a%)..|
00003500  e0 2b e3 20 70 78 25 3d  62 5f 6c 65 66 74 25 20  |.+. px%=b_left% |
00003510  b8 20 62 5f 72 69 67 68  74 25 2d 63 5f 78 73 25  |. b_right%-c_xs%|
00003520  28 61 25 2c 62 25 29 2b  31 0d 15 ea 2b e3 20 70  |(a%,b%)+1...+. p|
00003530  79 25 3d 62 5f 74 6f 70  25 20 b8 20 62 5f 62 6f  |y%=b_top% . b_bo|
00003540  74 74 6f 6d 25 2d 63 5f  79 73 25 28 61 25 2c 62  |ttom%-c_ys%(a%,b|
00003550  25 29 2b 31 0d 15 f4 08  64 25 3d b9 0d 15 fe 1b  |%)+1....d%=.....|
00003560  e3 20 70 70 78 25 3d 31  20 b8 20 63 5f 78 73 25  |. ppx%=1 . c_xs%|
00003570  28 61 25 2c 62 25 29 0d  16 08 1b e3 20 70 70 79  |(a%,b%)..... ppy|
00003580  25 3d 31 20 b8 20 63 5f  79 73 25 28 61 25 2c 62  |%=1 . c_ys%(a%,b|
00003590  25 29 0d 16 12 53 e7 20  63 5f 6f 62 6a 25 28 61  |%)...S. c_obj%(a|
000035a0  25 2c 62 25 2c 70 70 78  25 2c 70 70 79 25 29 20  |%,b%,ppx%,ppy%) |
000035b0  80 20 62 6f 25 28 31 2b  70 78 25 2b 70 70 78 25  |. bo%(1+px%+ppx%|
000035c0  2c 31 2b 70 79 25 2b 70  70 79 25 29 20 8c 20 64  |,1+py%+ppy%) . d|
000035d0  25 3d a3 3a 70 70 78 25  3d 63 5f 78 73 25 28 61  |%=.:ppx%=c_xs%(a|
000035e0  25 2c 62 25 29 0d 16 1c  07 ed 3a ed 0d 16 26 46  |%,b%).....:...&F|
000035f0  e7 20 64 25 20 70 78 25  3d 62 5f 72 69 67 68 74  |. d% px%=b_right|
00003600  25 2d 63 5f 78 73 25 28  61 25 2c 62 25 29 2b 31  |%-c_xs%(a%,b%)+1|
00003610  3a 70 79 25 3d 62 5f 62  6f 74 74 6f 6d 25 2d 63  |:py%=b_bottom%-c|
00003620  5f 79 73 25 28 61 25 2c  62 25 29 2b 31 3a 63 25  |_ys%(a%,b%)+1:c%|
00003630  3d b9 0d 16 30 07 ed 3a  ed 0d 16 3a 05 ed 0d 16  |=...0..:...:....|
00003640  44 13 e7 20 ac 20 63 25  20 8c 20 63 73 25 2b 3d  |D.. . c% . cs%+=|
00003650  34 0d 16 4e 05 ed 0d 16  58 0f 73 63 25 3d 73 63  |4..N....X.sc%=sc|
00003660  25 2b 63 73 25 0d 16 62  09 f2 70 75 6c 6c 0d 16  |%+cs%..b..pull..|
00003670  6c 05 e1 0d 16 76 05 3a  0d 16 80 07 dc 20 32 0d  |l....v.:..... 2.|
00003680  16 8a 0f dc 20 31 2c 33  2c 31 2c 31 2c 31 0d 16  |.... 1,3,1,1,1..|
00003690  94 0d dc 20 33 2c 31 2c  31 31 31 0d 16 9e 05 3a  |... 3,1,111....:|
000036a0  0d 16 a8 07 dc 20 34 0d  16 b2 0f dc 20 32 2c 32  |..... 4..... 2,2|
000036b0  2c 31 30 2c 31 31 0d 16  bc 0f dc 20 32 2c 32 2c  |,10,11..... 2,2,|
000036c0  31 31 2c 31 30 0d 16 c6  0f dc 20 32 2c 32 2c 31  |11,10..... 2,2,1|
000036d0  31 2c 30 31 0d 16 d0 0f  dc 20 32 2c 32 2c 30 31  |1,01..... 2,2,01|
000036e0  2c 31 31 0d 16 da 05 3a  0d 16 e4 07 dc 20 32 0d  |,11....:..... 2.|
000036f0  16 ee 11 dc 20 31 2c 34  2c 31 2c 31 2c 31 2c 31  |.... 1,4,1,1,1,1|
00003700  0d 16 f8 0e dc 20 34 2c  31 2c 31 31 31 31 0d 17  |..... 4,1,1111..|
00003710  02 05 3a 0d 17 0c 07 dc  20 38 0d 17 16 12 dc 20  |..:..... 8..... |
00003720  32 2c 33 2c 31 30 2c 31  30 2c 31 31 0d 17 20 18  |2,3,10,10,11.. .|
00003730  dc 20 32 2c 33 2c 30 31  30 30 2c 30 31 30 30 2c  |. 2,3,0100,0100,|
00003740  31 31 30 30 0d 17 2a 18  dc 20 32 2c 33 2c 31 31  |1100..*.. 2,3,11|
00003750  30 30 2c 31 30 30 30 2c  31 30 30 30 0d 17 34 18  |00,1000,1000..4.|
00003760  dc 20 32 2c 33 2c 31 31  30 30 2c 30 31 30 30 2c  |. 2,3,1100,0100,|
00003770  30 31 30 30 0d 17 3e 13  dc 20 33 2c 32 2c 31 31  |0100..>.. 3,2,11|
00003780  31 30 2c 31 30 30 30 0d  17 48 13 dc 20 33 2c 32  |10,1000..H.. 3,2|
00003790  2c 31 31 31 30 2c 30 30  31 30 0d 17 52 13 dc 20  |,1110,0010..R.. |
000037a0  33 2c 32 2c 31 30 30 30  2c 31 31 31 30 0d 17 5c  |3,2,1000,1110..\|
000037b0  13 dc 20 33 2c 32 2c 30  30 31 30 2c 31 31 31 30  |.. 3,2,0010,1110|
000037c0  0d 17 66 05 3a 0d 17 70  07 dc 20 34 0d 17 7a 18  |..f.:..p.. 4..z.|
000037d0  dc 20 32 2c 33 2c 31 30  30 30 2c 31 31 30 30 2c  |. 2,3,1000,1100,|
000037e0  31 30 30 30 0d 17 84 13  dc 20 33 2c 32 2c 31 31  |1000..... 3,2,11|
000037f0  31 30 2c 30 31 30 30 0d  17 8e 18 dc 20 32 2c 33  |10,0100..... 2,3|
00003800  2c 30 31 30 30 2c 31 31  30 30 2c 30 31 30 30 0d  |,0100,1100,0100.|
00003810  17 98 13 dc 20 33 2c 32  2c 30 31 30 30 2c 31 31  |.... 3,2,0100,11|
00003820  31 30 0d 17 a2 05 3a 0d  17 ac 07 dc 20 34 0d 17  |10....:..... 4..|
00003830  b6 18 dc 20 32 2c 33 2c  30 31 30 30 2c 31 31 30  |... 2,3,0100,110|
00003840  30 2c 31 30 30 30 0d 17  c0 18 dc 20 32 2c 33 2c  |0,1000..... 2,3,|
00003850  31 30 30 30 2c 31 31 30  30 2c 30 31 30 30 0d 17  |1000,1100,0100..|
00003860  ca 13 dc 20 33 2c 32 2c  31 31 30 30 2c 30 31 31  |... 3,2,1100,011|
00003870  30 0d 17 d4 13 dc 20 33  2c 32 2c 30 31 31 30 2c  |0..... 3,2,0110,|
00003880  31 31 30 30 0d 17 de 05  3a 0d 17 e8 07 dc 20 31  |1100....:..... 1|
00003890  0d 17 f2 13 dc 20 32 2c  32 2c 31 31 30 30 2c 31  |..... 2,2,1100,1|
000038a0  31 30 30 0d 17 fc 05 3a  0d 18 06 07 dc 20 32 0d  |100....:..... 2.|
000038b0  18 10 13 dc 20 31 2c 35  2c 31 2c 31 2c 31 2c 31  |.... 1,5,1,1,1,1|
000038c0  2c 31 0d 18 1a 0f dc 20  35 2c 31 2c 31 31 31 31  |,1..... 5,1,1111|
000038d0  31 0d 18 24 05 3a 0d 18  2e 07 dc 20 38 0d 18 38  |1..$.:..... 8..8|
000038e0  1d dc 20 32 2c 34 2c 31  30 30 30 2c 31 30 30 30  |.. 2,4,1000,1000|
000038f0  2c 31 30 30 30 2c 31 31  30 30 0d 18 42 1d dc 20  |,1000,1100..B.. |
00003900  32 2c 34 2c 30 31 30 30  2c 30 31 30 30 2c 30 31  |2,4,0100,0100,01|
00003910  30 30 2c 31 31 30 30 0d  18 4c 1d dc 20 32 2c 34  |00,1100..L.. 2,4|
00003920  2c 31 31 30 30 2c 31 30  30 30 2c 31 30 30 30 2c  |,1100,1000,1000,|
00003930  31 30 30 30 0d 18 56 1d  dc 20 32 2c 34 2c 31 31  |1000..V.. 2,4,11|
00003940  30 30 2c 30 31 30 30 2c  30 31 30 30 2c 30 31 30  |00,0100,0100,010|
00003950  30 0d 18 60 13 dc 20 34  2c 32 2c 31 31 31 31 2c  |0..`.. 4,2,1111,|
00003960  31 30 30 30 0d 18 6a 13  dc 20 34 2c 32 2c 31 31  |1000..j.. 4,2,11|
00003970  31 31 2c 30 30 30 31 0d  18 74 13 dc 20 34 2c 32  |11,0001..t.. 4,2|
00003980  2c 31 30 30 30 2c 31 31  31 31 0d 18 7e 13 dc 20  |,1000,1111..~.. |
00003990  34 2c 32 2c 30 30 30 31  2c 31 31 31 31 0d 18 88  |4,2,0001,1111...|
000039a0  05 3a 0d 18 92 07 dc 20  38 0d 18 9c 21 dc 20 32  |.:..... 8...!. 2|
000039b0  2c 34 2c 31 30 30 30 30  2c 31 31 30 30 30 2c 31  |,4,10000,11000,1|
000039c0  30 30 30 30 2c 31 30 30  30 30 0d 18 a6 21 dc 20  |0000,10000...!. |
000039d0  32 2c 34 2c 30 31 30 30  30 2c 31 31 30 30 30 2c  |2,4,01000,11000,|
000039e0  30 31 30 30 30 2c 30 31  30 30 30 0d 18 b0 21 dc  |01000,01000...!.|
000039f0  20 32 2c 34 2c 31 30 30  30 30 2c 31 30 30 30 30  | 2,4,10000,10000|
00003a00  2c 31 31 30 30 30 2c 31  30 30 30 30 0d 18 ba 21  |,11000,10000...!|
00003a10  dc 20 32 2c 34 2c 30 31  30 30 30 2c 30 31 30 30  |. 2,4,01000,0100|
00003a20  30 2c 31 31 30 30 30 2c  30 31 30 30 30 0d 18 c4  |0,11000,01000...|
00003a30  15 dc 20 34 2c 32 2c 31  31 31 31 30 2c 30 31 30  |.. 4,2,11110,010|
00003a40  30 30 0d 18 ce 15 dc 20  34 2c 32 2c 31 31 31 31  |00..... 4,2,1111|
00003a50  30 2c 30 30 31 30 30 0d  18 d8 15 dc 20 34 2c 32  |0,00100..... 4,2|
00003a60  2c 30 31 30 30 30 2c 31  31 31 31 30 0d 18 e2 15  |,01000,11110....|
00003a70  dc 20 34 2c 32 2c 30 30  31 30 30 2c 31 31 31 31  |. 4,2,00100,1111|
00003a80  30 0d 18 ec 05 3a 0d 18  f6 07 dc 20 38 0d 19 00  |0....:..... 8...|
00003a90  21 dc 20 32 2c 34 2c 30  31 30 30 30 2c 31 31 30  |!. 2,4,01000,110|
00003aa0  30 30 2c 31 30 30 30 30  2c 31 30 30 30 30 0d 19  |00,10000,10000..|
00003ab0  0a 21 dc 20 32 2c 34 2c  31 30 30 30 30 2c 31 31  |.!. 2,4,10000,11|
00003ac0  30 30 30 2c 30 31 30 30  30 2c 30 31 30 30 30 0d  |000,01000,01000.|
00003ad0  19 14 21 dc 20 32 2c 34  2c 31 30 30 30 30 2c 31  |..!. 2,4,10000,1|
00003ae0  30 30 30 30 2c 31 31 30  30 30 2c 30 31 30 30 30  |0000,11000,01000|
00003af0  0d 19 1e 21 dc 20 32 2c  34 2c 30 31 30 30 30 2c  |...!. 2,4,01000,|
00003b00  30 31 30 30 30 2c 31 31  30 30 30 2c 31 30 30 30  |01000,11000,1000|
00003b10  30 0d 19 28 15 dc 20 34  2c 32 2c 31 31 31 30 30  |0..(.. 4,2,11100|
00003b20  2c 30 30 31 31 30 0d 19  32 15 dc 20 34 2c 32 2c  |,00110..2.. 4,2,|
00003b30  30 31 31 31 30 2c 31 31  30 30 30 0d 19 3c 15 dc  |01110,11000..<..|
00003b40  20 34 2c 32 2c 30 30 31  31 30 2c 31 31 31 30 30  | 4,2,00110,11100|
00003b50  0d 19 46 15 dc 20 34 2c  32 2c 31 31 30 30 30 2c  |..F.. 4,2,11000,|
00003b60  30 31 31 31 30 0d 19 50  05 3a 0d 19 5a 07 dc 20  |01110..P.:..Z.. |
00003b70  34 0d 19 64 15 dc 20 33  2c 33 2c 31 30 30 2c 31  |4..d.. 3,3,100,1|
00003b80  30 30 2c 31 31 31 0d 19  6e 15 dc 20 33 2c 33 2c  |00,111..n.. 3,3,|
00003b90  31 31 31 2c 31 30 30 2c  31 30 30 0d 19 78 15 dc  |111,100,100..x..|
00003ba0  20 33 2c 33 2c 31 31 31  2c 30 30 31 2c 30 30 31  | 3,3,111,001,001|
00003bb0  0d 19 82 15 dc 20 33 2c  33 2c 30 30 31 2c 30 30  |..... 3,3,001,00|
00003bc0  31 2c 31 31 31 0d 19 8c  05 3a 0d 19 96 07 dc 20  |1,111....:..... |
00003bd0  34 0d 19 a0 15 dc 20 33  2c 33 2c 31 31 31 2c 30  |4..... 3,3,111,0|
00003be0  31 30 2c 30 31 30 0d 19  aa 15 dc 20 33 2c 33 2c  |10,010..... 3,3,|
00003bf0  30 31 30 2c 30 31 30 2c  31 31 31 0d 19 b4 15 dc  |010,010,111.....|
00003c00  20 33 2c 33 2c 31 30 30  2c 31 31 31 2c 31 30 30  | 3,3,100,111,100|
00003c10  0d 19 be 15 dc 20 33 2c  33 2c 30 30 31 2c 31 31  |..... 3,3,001,11|
00003c20  31 2c 30 30 31 0d 19 c8  05 3a 0d 19 d2 07 dc 20  |1,001....:..... |
00003c30  38 0d 19 dc 15 dc 20 33  2c 33 2c 30 31 30 2c 30  |8..... 3,3,010,0|
00003c40  31 31 2c 31 31 30 0d 19  e6 15 dc 20 33 2c 33 2c  |11,110..... 3,3,|
00003c50  30 31 30 2c 31 31 30 2c  30 31 31 0d 19 f0 15 dc  |010,110,011.....|
00003c60  20 33 2c 33 2c 31 31 30  2c 30 31 31 2c 30 31 30  | 3,3,110,011,010|
00003c70  0d 19 fa 15 dc 20 33 2c  33 2c 30 31 31 2c 31 31  |..... 3,3,011,11|
00003c80  30 2c 30 31 30 0d 1a 04  15 dc 20 33 2c 33 2c 30  |0,010..... 3,3,0|
00003c90  31 30 2c 31 31 31 2c 31  30 30 0d 1a 0e 15 dc 20  |10,111,100..... |
00003ca0  33 2c 33 2c 30 31 30 2c  31 31 31 2c 30 30 31 0d  |3,3,010,111,001.|
00003cb0  1a 18 15 dc 20 33 2c 33  2c 31 30 30 2c 31 31 31  |.... 3,3,100,111|
00003cc0  2c 30 31 30 0d 1a 22 15  dc 20 33 2c 33 2c 30 30  |,010..".. 3,3,00|
00003cd0  31 2c 31 31 31 2c 30 31  30 0d 1a 2c 05 3a 0d 1a  |1,111,010..,.:..|
00003ce0  36 07 dc 20 34 0d 1a 40  15 dc 20 33 2c 33 2c 30  |6.. 4..@.. 3,3,0|
00003cf0  31 31 2c 30 31 30 2c 31  31 30 0d 1a 4a 15 dc 20  |11,010,110..J.. |
00003d00  33 2c 33 2c 31 31 30 2c  30 31 30 2c 30 31 31 0d  |3,3,110,010,011.|
00003d10  1a 54 15 dc 20 33 2c 33  2c 31 30 30 2c 31 31 31  |.T.. 3,3,100,111|
00003d20  2c 30 30 31 0d 1a 5e 15  dc 20 33 2c 33 2c 30 30  |,001..^.. 3,3,00|
00003d30  31 2c 31 31 31 2c 31 30  30 0d 1a 68 05 3a 0d 1a  |1,111,100..h.:..|
00003d40  72 07 dc 20 31 0d 1a 7c  15 dc 20 33 2c 33 2c 30  |r.. 1..|.. 3,3,0|
00003d50  31 30 2c 31 31 31 2c 30  31 30 0d 1a 86 05 3a 0d  |10,111,010....:.|
00003d60  1a 90 07 dc 20 34 0d 1a  9a 15 dc 20 32 2c 33 2c  |.... 4..... 2,3,|
00003d70  31 31 30 2c 31 30 30 2c  31 31 30 0d 1a a4 11 dc  |110,100,110.....|
00003d80  20 33 2c 32 2c 31 31 31  2c 31 30 31 0d 1a ae 15  | 3,2,111,101....|
00003d90  dc 20 32 2c 33 2c 31 31  30 2c 30 31 30 2c 31 31  |. 2,3,110,010,11|
00003da0  30 0d 1a b8 11 dc 20 33  2c 32 2c 31 30 31 2c 31  |0..... 3,2,101,1|
00003db0  31 31 0d 1a c2 05 3a 0d  1a cc 07 dc 20 34 0d 1a  |11....:..... 4..|
00003dc0  d6 15 dc 20 33 2c 33 2c  31 30 30 2c 31 31 30 2c  |... 3,3,100,110,|
00003dd0  30 31 31 0d 1a e0 15 dc  20 33 2c 33 2c 30 31 31  |011..... 3,3,011|
00003de0  2c 31 31 30 2c 31 30 30  0d 1a ea 15 dc 20 33 2c  |,110,100..... 3,|
00003df0  33 2c 31 31 30 2c 30 31  31 2c 30 30 31 0d 1a f4  |3,110,011,001...|
00003e00  15 dc 20 33 2c 33 2c 30  30 31 2c 30 31 31 2c 31  |.. 3,3,001,011,1|
00003e10  31 30 0d 1a fe 05 3a 0d  1b 08 07 dc 20 38 0d 1b  |10....:..... 8..|
00003e20  12 15 dc 20 32 2c 33 2c  31 30 30 2c 31 31 30 2c  |... 2,3,100,110,|
00003e30  31 31 30 0d 1b 1c 15 dc  20 32 2c 33 2c 30 31 30  |110..... 2,3,010|
00003e40  2c 31 31 30 2c 31 31 30  0d 1b 26 15 dc 20 32 2c  |,110,110..&.. 2,|
00003e50  33 2c 31 31 30 2c 31 31  30 2c 31 30 30 0d 1b 30  |3,110,110,100..0|
00003e60  15 dc 20 32 2c 33 2c 31  31 30 2c 31 31 30 2c 30  |.. 2,3,110,110,0|
00003e70  31 30 0d 1b 3a 11 dc 20  33 2c 32 2c 31 31 31 2c  |10..:.. 3,2,111,|
00003e80  31 31 30 0d 1b 44 11 dc  20 33 2c 32 2c 31 31 30  |110..D.. 3,2,110|
00003e90  2c 31 31 31 0d 1b 4e 11  dc 20 33 2c 32 2c 31 31  |,111..N.. 3,2,11|
00003ea0  31 2c 30 31 31 0d 1b 58  11 dc 20 33 2c 32 2c 30  |1,011..X.. 3,2,0|
00003eb0  31 31 2c 31 31 31 0d ff                           |11,111..|
00003eb8