� > <Rubix$Dir>.!RunImage
7ș "Wimp_Initialise",200,&4B534154,"Rubix" � ,task%
!� � �close:�:�" at line ";�:�
(	�init
2�createicon
<� � � �error � �close:�
F�
P	�poll
Z� quit%
d
�close
n�
x:
�� *** WIMP ROUTINES ***
�:
���createicon
�6!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002
�3$(b%+24)="!Rubix":ș "Wimp_CreateIcon",,b% � i%
��
�:
���close
�'ș "Wimp_CloseDown",task%,&4B534154
�*Unset Rubix$On
��
�:
�
��poll

ș "Wimp_Poll",,b% � r%

Ȏ r% �

� 1:�redraw

" � 2:ș "Wimp_OpenWindow",,b%

,!� 3:ș "Wimp_CloseWindow",,b%

6� 6:�mouseclick

@� 9:�menuclick

J� 17,18:�receive

T�

^�

h:

rݤerror

|	!b%=�

�Ȏ !b% �

�� 1<<30:err_str$="":box%=3

�"� (1<<30)+1:err_str$="":box%=1

�"� (1<<30)+2:err_str$="":box%=2

�$:err_str$=" at line "+Þ:box%=2

��

�$(b%+4)=�$+err_str$+�0

�6ș "Wimp_ReportError",b%,box%,"Rubix" � ,response%

�=(response%=2)

�:

�
��receive

�Ȏ b%!16 �

�� 0:quit%=�
� 9:�redraw
�
�
&:
0
��init
:A� b% 1000,ws% 1000,menspc% 1000,x%(26,3),y%(26,3),rgb%(6,2,1)
D8wsend%=ws%+1000:menend%=menspc%+1000:rgb%()=255:p%=0
N;� ind1% 53,ind2% 53,ind3% 53,ind4% 53,ind5% 53,ind6% 53
XC� M(16,4),X(4),Y(4),C(53),D(53),R(5,4,3),A$(4),S(5),P(6),B$(11)
b0P(1)=11:P(2)=10:P(3)=9:P(4)=8:P(5)=0:P(6)=14
l$fast%=0:� +2:� U=0 � 5:� V=0 � 4
v%� W=0 � 3:� R(U,V,W):�:�:�:SS$=""
�<� 0,2,8,6, 1,5,7,3, 38,29,20,11, 37,28,19,10, 36,27,18,9
�A� 9,11,17,15, 10,14,16,12, 0,18,45,44, 3,21,48,41, 6,24,51,38
�B� 18,20,26,24, 19,23,25,21, 6,27,47,17, 7,30,46,14, 8,33,45,11
�B� 27,29,35,33, 28,32,34,30, 8,36,53,26, 5,39,50,23, 2,42,47,20
�A� 36,38,44,42, 37,41,43,39, 2,9,51,35, 1,12,52,32, 0,15,53,29
�E� 45,47,53,51, 46,50,52,48, 24,33,42,15, 25,34,43,16, 26,35,44,17
�0� +1:� V=1 � 16:� W=1 � 4:� M:M(V,W)=M/9:�:�
�(� 9,0,0,0, 6,3,0,0, 3,6,0,0, 0,9,0,0
�(� 6,0,3,0, 4,2,2,1, 2,4,1,2, 0,6,0,3
�(� 3,0,6,0, 2,1,4,2, 1,2,2,4, 0,3,0,6
�(� 0,0,9,0, 0,0,6,3, 0,0,3,6, 0,0,0,9
�.� +1:� V=1 � 6:� W=0 � 2:� rgb%(V,W,0):�:�
�B� &D0,0,0, 0,&B0,0, &E0,&E0,0, 0,0,&C0, &F0,&F0,&F0, &F0,&A0,0
5file%=�("<Rubix$Dir>.3Dmap"):� V=0 � 26:� W=0 � 3
/�#file%,x%(V,W),y%(V,W):�:�:�#file%:quit%=�
%�load_templates:*Set Rubix$On Yes
 "�main_menu:�not_menu:�pal_menu
*!�attach(mainmenu%,1,notmenu%)
4!�attach(mainmenu%,2,palmenu%)
> �attach(mainmenu%,0,info%):�
H:
R��mouseclick
\Ȏ b%!12 �
f� -2:Ȏ b%!8 �
p+� 2:�showmenu(mainmenu%,!b%-64,96+5*44)
z� 4:�main_program
�� 1:�show_solution
��
�� sol%:Ȏ b%!8 �
�(� 2:�showmenu(mainmenu%,!b%-64,b%!4)
��
��
��
�:
���load_templates
�3ș "Wimp_OpenTemplate",,"<Rubix$Dir>.Templates"
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Info",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � info%
�Aș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"Solution",0 � ,,ws%
1ind1%=!(b%+88+32*1+20):ind2%=!(b%+88+32*2+20)
1ind3%=!(b%+88+32*3+20):ind4%=!(b%+88+32*4+20)
1ind5%=!(b%+88+32*5+20):ind6%=!(b%+88+32*6+20)
$%ș "Wimp_CreateWindow",,b% � sol%
.ș "Wimp_CloseTemplate"
8�
B:
L9��load_pal:file%=�("<Rubix$Dir>.!Help.Docs.!Palette")
V*� file%=0 �select(palmenu%,0):�display
`4� file%=0 � (1<<30)+1,"Palette file not found":�
jA� V=0 � 6:� W=0 � 5:ch%=�#file%:� V>0 � W>2 rgb%(V,W-3,1)=ch%
t�:�:�#file%:�
~:
�ݤmake_menu
�<� menspc%+28>menend% � (1<<30)+2,"Not enough menu space"
�start%=menspc%
�� title$
�$(start%)=title$
�start%?12=7
�start%?13=2
�start%?14=7
�start%?15=0
�start%!20=44
�start%!24=0
�width%=�(title$)-3
menspc%+=28

�
� item$
� item$<>"*" �
(<� menspc%+24>menend% � (1<<30)+2,"Not enough menu space"
2!menspc%=0
<writeable%=�
Ful%=�item$,"_")
P� ul% �
Ztail$=�item$,�(item$)-ul%)
d'� �tail$,"T") !menspc%=!menspc% � 1
n'� �tail$,"D") !menspc%=!menspc% � 2
xH� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%
�'� �tail$,"M") !menspc%=!menspc% � 8
�item$=�item$,ul%-1)
��
�!� �item$>width% width%=�item$
�menspc%!4=-1
�� writeable% �
�Zmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
��
�� �item$<12 �
�+menspc%!8=&07000021:$(menspc%+12)=item$
��
�Hmenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=�item$+1
�$ws%=item$:ws%+=�item$+1
�
�
menspc%+=24
"�
,� item$="*"
6start%!16=width%*16+32
@%!(menspc%-24)=!(menspc%-24) � &80
Jmptr%=menspc%
T=start%
^:
h��attach(menu%,item%,sub%)
r!(menu%+28+item%*24+4)=sub%
|�
�:
���showmenu(menu%,x%,y%)
�$topmenu%=menu%:topx%=x%:topy%=y%
�%ș "Wimp_CreateMenu",,menu%,x%,y%
��
�:
���menuclick
�� c%
�
c%=b%+900
� ș "Wimp_GetPointerInfo",,c%
�adj%=(c%!8 � 1)
�(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
�Ȏ $c% �
+� "Notation.Nourse":�select(notmenu%,0)
/� "Notation.Singmaster":�select(notmenu%,1)
=� "Fast rotation":�toggle_tick(mainmenu%,3):fast%=1-fast%
&+� "Palette.Default":�select(palmenu%,0)
07� "Palette.From file":�select(palmenu%,1):�load_pal
:� "Quit":quit%=�
D�
N*� adj% �showmenu(topmenu%,topx%,topy%)
X�
b:
l��main_menu
v� +1
�6� Rubix,Info,Notation,Palette,Fast rotation,Quit,*
�mainmenu%=�make_menu
��
�:
���not_menu
�� +1
�$� Notation,Nourse_T,Singmaster,*
�notmenu%=�make_menu
��
�:
���pal_menu
�� +1
�#� Palette,Default_T,From file,*
palmenu%=�make_menu
�
:
 ��redraw:� c%:c%=b%+800
*)!c%=sol%:ș "Wimp_GetWindowState",,c%
4&ș "Wimp_RedrawWindow",,c% � more%
>ȕ more%
H	�draw
R&ș "Wimp_GetRectangle",,c% � more%
\�
f�
p:
z��term(a%)
�� n%
�ȕ a%?n%>31
�	n%+=1
��
�a%?n%=13
��
�:
�ݤicon_state(window%,icon%)
�� c%
�
c%=b%+900
�!c%=window%
�c%!4=icon%
�ș "Wimp_GetIconState",,c%
	=((c%!24) � (1<<21))<>0
	:
	��force_redraw(window%)
	$� c%
	.
c%=b%+900
	8!c%=window%
	B ș "Wimp_GetWindowState",,c%
	L2ș "Wimp_ForceRedraw",-1,c%!4,c%!8,c%!12,c%!16
	V�
	`:
	jݤtick(menu%,item%)
	t!=(menu%!(28+item%*24) � 1)<>0
	~:
	���toggle_tick(menu%,item%)
	�/menu%!(28+item%*24)=menu%!(28+item%*24) � 1
	��
	�:
	���select(menu%,item%)
	�� �tick(menu%,item%)=0 �
	��toggle_tick(menu%,0)
	��toggle_tick(menu%,1)
	��:�display:�
	�:
	�2��display:� n%:� �tick(notmenu%,0) n%=0 � n%=6
	�:$ind1%=B$(n%)+�0:$ind2%=B$(n%+1)+�0:$ind3%=B$(n%+2)+�0
<$ind4%=B$(n%+3)+�0:$ind5%=B$(n%+4)+�0:$ind6%=B$(n%+5)+�0

D�23,134,3076;1252;14|23,178,1080;8216;60|:p%=1+�tick(palmenu%,0)
�force_redraw(sol%):�
:
(4��draw:� i%:xorig%=c%!4-c%!20:yorig%=c%!16-c%!24
24� i%=0 � 26:ș "ColourTrans_SetGCOL",�rgb(D(i%))
<+� �a(i%,0),�b(i%,0):� �a(i%,1),�b(i%,1)
F1� 85,�a(i%,3),�b(i%,3):� 85,�a(i%,2),�b(i%,2)
P2ș "ColourTrans_SetGCOL",0:� �a(i%,3),�b(i%,3)
Z(� j%=0 � 3:� �a(i%,j%),�b(i%,j%):�:�
d%� xorig%+1040,yorig%-68:�5,�top,4
n$� xorig%+1106,yorig%-228:�5,70,4
x%� xorig%+934,yorig%-198:�5,76,4:�
�:
�ݤa(i%,j%)=xorig%+x%(i%,j%)
�ݤb(i%,j%)=yorig%+y%(i%,j%)
�)ݤtop:� �tick(notmenu%,0) � =84 � =85
�Hݤrgb(c%)=(rgb%(c%,0,p%)<<8)+(rgb%(c%,1,p%)<<16)+(rgb%(c%,2,p%)<<24)
�:
���show_solution
�B!b%=sol%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
��
�:
�� *** MAIN PROGRAM ***
�:
�!��main_program:mode=�:turn%=0
6�23,218,0;7936;6175;6168;23,191,0;63488;6392;6168;
3�23,192,6168;7960;31;0;23,217,6168;63512;248;0;
5�23,179,6168;6168;6168;6168;23,196,0;65280;255;0;
"#ș "XWimp_SetMode",12 � ;flags%
,O� (flags% � 1) � �<>12 � (1<<30)+1,"I need at least 80k of screen memory":�
6.�12:�9:view=1:mess=1:P=315:S=30:Q=1:ȗ �:�
@=�pal:ș "XOS_CLI","RMEnsure UtilityModule 3.00" � ;flags%
J8�29,400;440;:� (flags% � 1) ș "OS_UpdateMEMC",64,64
T(� I=0 � 53:C(I)=8:�:CL=0:CR=0:�:�136
^)�3d_draw:�15:CC=0:PP=15:Ȑ -200,200:�
h(�mouse(0):�mouse(4):� C=8 A=0:SS$=""
r� A>720 � PP>0 � PP<7 �
|-�draw_col:� CC � 9=0 mess=2:�text:� �ok �
�;� CC=27� CC=36�rotate:�3d_draw � � CC=45 �tilt:�3d_draw
�
�:CR=1
�7�:PP=15:� CC<54 �draw_col:CC-=1:� CC � 9=0 � �flush
�:�:� A>451� A<668� B>-389� B<-300� CC>CL � CR=0 �rem_sq
� CR=0:� CC=54 � C=8:� CC=54 �
�"mess=5:�text:�solve_cube:�text
�%�show_solution:B$()="":� mess=6 �
�<B$(1)="Solution failed: arrangement of colours invalid."
�:B$(2)="For possible causes, see the !Rubix Help file."
�<B$(7)="Solution failed: arrangement of colours invalid."
�:B$(8)="For possible causes, see the !Rubix Help file."
�0�:R$=" T+T2T-B+B2B-L+L2L-R+R2R-F+F2F-P+P2P-"
�.� I=0 � 5:B$(I)=�extend(�SS$,I*25+1,25)):�
.R$=" U U�U�D D�D�L L�L�R R�R�F F�F�B B�B�"
0� I=0 � 5:B$(I+6)=�extend(�SS$,I*25+1,25)):�
8� SS$="" B$(1)="Now that's just stupid.":B$(7)=B$(1)
&�:�display
05�:ș "OS_UpdateMEMC",,64:ș "Wimp_SetMode",mode:�
::
D#��flush:� "FX21,0":� "FX21,9":�
N:
X+ݤextend(S$):� I,J,T$:T$="":� S$="" =T$
b/� I=1 � �(S$):J=�(�S$,I))-65:T$+=�R$,J*2,2)
l� �T$)=" " T$=�T$)
v	�:=T$
�:
�*��draw_col:� A,B:A=CC � 3:B=(CC/3) � 3
�,C(CC)=PP:� CC<9 L=40-B*40:W=A*40-40:H=60
�,� CC>8 � CC<18 L=40-A*40:W=-60:H=40-B*40
�-� CC>17 � CC<27 L=-60:W=A*40-40:H=40-B*40
�,� CC>26 � CC<36 L=A*40-40:W=60:H=40-B*40
�,� CC>35 � CC<45 L=60:W=40-A*40:H=40-B*40
�+CC+=1:� CC>45 L=B*40-40:W=A*40-40:H=-60
�5�3d_point(0):� 128+�X(0),Y(0)):�PP:Ȑ X(0),Y(0):�
�:
�9��rem_sq:PP=8:�draw_col:CC-=2:PP=15:�draw_col:CC-=1:�
�:
���3d_draw:� �-113 �

3Q=3-Q:ș 6,112,Q:Ȗ:� turn%=1 � fast%=1 turn%=2

 � I:�136:�:� view=2 �face(7)

� �(S)>359 S=S-360*�(S)

 � �(P)>359 P=P-360*�(P)

*%� P<45 �face(4):�face(3):�face(1)

4,� P>44 � P<90 �face(3):�face(4):�face(1)

>-� P>89 � P<135 �face(5):�face(4):�face(1)

H.� P>134 � P<180 �face(4):�face(5):�face(1)

R.� P>179 � P<225 �face(2):�face(5):�face(1)

\.� P>224 � P<270 �face(5):�face(2):�face(1)

f.� P>269 � P<315 �face(3):�face(2):�face(1)

p)�0:� P>314 �face(2):�face(3):�face(1)

z8�28,26,31,33,27:�"������Ŀ�Remove��Square���������";

�4�28,21,31,24,28:�"��Ŀ�OK�����";:�26,29,400;440;

��draw_pal:�text:�

�:

�1��text:�30:� I=1 � 5:�(40+5*(I>2)):�:� +mess

��� "Hold your cube in a position matching","that on the screen. Click Select","on the colour corresponding to the","highlighted square. If you make a","mistake, click on Remove Square.","",""

��� "Click on OK to continue, or on Remove","Square if you have made a mistake.","If you click on OK, you will not","be able to go back.",""

�T� "Rotate your cube to match the rotation","of the cube on the screen.","","",""

ʆ� "Click Select on the colour corresponding`","to the highlighted square. If you make a`","mistake, click on Remove Square.","",""

�)� "Working...","","Please wait","",""

�]� "Solution failed - colour arrangement","invalid. See Help file for more info.","","",""

��30:�0:� I=1 � 5:� Q$

�� Q$;:� �Q$)="`" �127 � �

��:ș 6,113,Q:�
:
0��face(LL):� G,H,L,M,R,V,W:� view=2 � LL=1 �
*� LL=7 � S>0 LL=1 � � LL=7 � S<=0 LL=6
$� +1:G=LL*9-9:� LL<>1 �
.0� 60,-60,60, 60,60,60, -60,-60,60, -60,60,60
84� 60,-60,60, -60,-60,60, 60,-60,-60, -60,-60,-60
B4� -60,-60,60, -60,60,60, -60,-60,-60, -60,60,-60
L0� -60,60,60, 60,60,60, -60,60,-60, 60,60,-60
V0� 60,60,60, 60,-60,60, 60,60,-60, 60,-60,-60
`4� 60,60,-60, 60,-60,-60, -60,60,-60, -60,-60,-60
j$� M=13 � 12*LL:� V:�:� G=45 G=53
t&�:� M=1 � 4:� L,W,H:�3d_point(M):�
~� turn%=2 �
��8:� X(1),Y(1):� X(2),Y(2)
�!� 85,X(3),Y(3):� 85,X(4),Y(4)
��0:� X(1),Y(1):� X(2),Y(2)
�'� X(4),Y(4):� X(3),Y(3):� X(1),Y(1)
�#�:� W=1 � 9 � 4:� V=0 � 2:R=V+W
�*� C(G):� �x(R),�y(R):� �x(R+1),�y(R+1)
�-� 85,�x(R+4),�y(R+4):� 85,�x(R+5),�y(R+5)
��0:� �x(R),�y(R)
�'� �x(R+1),�y(R+1):� �x(R+5),�y(R+5)
�&� �x(R+4),�y(R+4):� �x(R),�y(R):�9
�G+=1+2*(LL=6):�:�
�
�:�9:�
:

:ݤx(Q)=M(Q,1)*X(1)+M(Q,2)*X(2)+M(Q,3)*X(3)+M(Q,4)*X(4)
:
:ݤy(Q)=M(Q,1)*Y(1)+M(Q,2)*Y(2)+M(Q,3)*Y(3)+M(Q,4)*Y(4)
(:
2)ݤok:� CH:mess=4:�:�mouse(4):� C=8 =0
</CH=0:� A>291 � A<380 � B>-389 � B<-332 CH=1
F*� A>451 � A<668 � B>-389 � B<-300 CH=2
P � CH>0:� CH=1 CL=CC:�text:=1
Z"PP=15:CC-=1:�draw_col:CC-=1:=0
d:
n��adjust:� SS$="" � �
x� I,P,S$:�:P=�SS$,"C-")
�S$="":� P �
�� I=P � �(SS$) � 2
�Ȏ �SS$,I,1) �
�� "F":S$+="L"
�� "L":S$+="P"
�� "P":S$+="R"
�� "R":S$+="F"
�:S$+=�SS$,I,1)
��:S$+=�SS$,I+1,1)
��:SS$=�SS$,P-1)+�S$,3)
�
�:� P=0:�
�:
�7��mouse(K):�:ȗ A,B,C:� �-113 C=8:K=8:ȗ � 336,-360
0N=�(0)-48:� C=K � (N>0 � N<7) � N=79 � N=-35
2� N=79 A=500:B=-360:� � � N=-35 A=300:B=-360:�
'� C=K PP=�A,B) � 8:� � PP=N:A=800:�
":
,)��3d_point(N):� B9,V,K,L9,BA,T,Y1,J,F
6F=0-(L=0)-2*(W=0):Ȏ F �
@!� 0:B9=�((W)/(L)):V=(W)/�(B9)
J� 1:B9=�/2:V=W
T� 2:B9=0:V=L
^� 3:B9=0:V=0
h$�:K=V*�((�P)+B9):L9=V*�((�P)+B9)
rF=0-(H=0)-2*(L9=0):Ȏ F �
| � 0:BA=�((H)/L9):T=(H)/�(BA)
�� 1,3:BA=0:T=L9
�� 2:BA=�/2:T=H
�$�:Y1=T*�(BA+(�S)):J=T*�(BA+(�S))
�,X(N)=K*1600/(400+J):Y(N)=Y1*1600/(400+J)
��
�:
�&��rotate:mess=3:� I=1 � 18:turn%=1
�$P+=5:�3d_draw:�:mess=4:turn%=0:�
�:
�+��tilt:mess=3:view=2:� I=1 � 12:turn%=1
�$S-=5:�3d_draw:�:mess=4:turn%=0:�
�:
�%��solve_cube:BE$="":SR$="":SS$=""
)D()=C():� A,B,C,D,F,I,J,T,A$,B$,F$,V$
"�:A$(0)="":T+=1:� T>5 mess=6:�
�adjust:� J=1 � 4:� +7
& A$(J)="":� I=1 � 24:� A,B,A$
0%� C(A)=C(22) � C(B)=C(4) A$(J)=A$
:�:�spin:�:V$=�9," ")
D-F=0:� A$(1)+A$(2)+A$(3)+A$(4)<>"" �choose
N$� A$(1)+A$(2)+A$(3)+A$(4)="":T=0
X�    *** Top Edges ***
bC� 1,37,T-L+T+F+,  3,10,L+F+,      5,28,R-F-,      7,19,T+L+T-F+
l@� 10,3,L2B+F2,    12,41,T+L+T-,   14,21,T+L-T-,   16,48,B+F2
v>� 19,7,"",        21,14,F+,       23,30,F-,       25,46,F2
�@� 28,5,R2B-F2,    30,23,T-R+T+,   32,39,T-R-T+,   34,50,B-F2
�@� 37,1,P2B2F2,    39,32,T2P+T2,   41,12,T2P-T2,   43,52,B2F2
�D� 46,25,B-L-F+L+, 48,16,L-F+L+,   50,34,R+F-R-,   52,43,B+L-F+L+
��:T+=1:� T>5 mess=6:�
��adjust:� J=1 � 4:� +7
�"A$(J)="":� I=1 � 24:� A,B,C,A$
�2� C(A)=C(22) � C(B)=C(31) � C(C)=C(4) A$(J)=A$
��:�spin:�:V$=�13," ")
�-F=0:� A$(1)+A$(2)+A$(3)+A$(4)<>"" �choose
�$� A$(1)+A$(2)+A$(3)+A$(4)="":T=0
��    *** Top Corners ***
�2� 0,38,9,L-F+B2F-L+,      2,29,36,P-B-P+R-B-R+
�2� 6,11,18,F-B-F2B2F-,     8,20,27,F+B-F-R-B-R+
2� 9,0,38,P+R-B2R+P-,      11,18,6,L+B+L-R-B-R+
/� 15,44,51,F+B+F-R-B-R+,  17,45,24,B-F+B2F-
(� 18,6,11,L+R-B+L-R+,     20,27,8,""
 /� 24,17,45,R-B2R+F+B+F-,  26,47,33,B2F+B2F-
*2� 27,8,20,F+B2F-R-B2R+,   29,36,2,P-B-P+F+B+F-
4-� 33,26,47,F+B-F-R-B2R+,  35,53,42,F+B-F-
>/� 36,2,29,R+B2R2B+R+,     38,9,0,L-R-B2L+R+
H-� 42,35,53,F+B2F-R-B-R+,  44,51,15,F+B2F-
R-� 45,24,17,B+F+B+F-,      47,33,26,F+B+F-
\/� 51,15,44,B2F+B+F-,      53,42,35,B-F+B+F-
f�:T+=1:� T>5 mess=6:�
p�adjust:� J=1 � 4:� +7
z A$(J)="":� I=1 � 16:� A,B,A$
�&� C(A)=C(22) � C(B)=C(31) A$(J)=A$
��:�spin:�:V$=�27," ")
�-F=0:� A$(1)+A$(2)+A$(3)+A$(4)<>"" �choose
�$� A$(1)+A$(2)+A$(3)+A$(4)="":T=0
��    *** Vertical Edges ***
�C� 12,41,L-F-B+R+L-F2R-L+B+F+L+,      14,21,L+F+L-T-R-B-F-B+R+T+
�?� 16,48,R-B+R+B+F+B-F-,              21,14,F+B2L-R+F2L+R-F-
�?� 23,30,"",                          25,46,B-R-B+R+B+F+B-F-
�C� 30,23,R-F2R2F+R-F-R-F2L+B+R+B-L-,  32,39,T-P-B-R+B+P+T+F+R-F-
�?� 34,50,B2R-B+R+B+F+B-F-,            39,32,R+F-P+R2F+P-B2R-
�?� 41,12,L2F-L-R+F2L+R-B2F+L2,        43,52,B+R-B+R+B+F+B-F-
�?� 46,25,B2F+B-F-B-R-B+R+,            48,16,B-F+B-F-B-R-B+R+
�=� 50,34,B+F+B-F-B-R-B+R+,            52,43,F+B-F-B-R-B+R+
:�adjust:SR$=SS$:A$=�corner(45,17,24)+�corner(47,26,33)
0A$+=�corner(51,44,15)+�corner(53,35,42):� +4
0�:� B$,V$:� A$=B$ � B$="*":� B$="*" mess=6:�
$ �sequence(V$):SS$=V$:�adjust
.(�    *** Bottom Corner Positions ***
8=� 1234,"",                      1243,B2R-B-R+F+B+F-R-B+R+
B=� 1324,B+F-B-R-B+R+F+,          1342,R-B-R+F+B+F-R-B+R+B+
L?� 1423,B+R-B-R+F+B+F-R-B+R+B2,  1432,B-R-B-R+F+B+F-R-B+R+B-
V5� 2134,R-B-R+F+B+F-R-B+R+B2,    2143,F-B-R-B+R+F+
`?� 2314,B-R-B-R+F+B+F-R-B+R+,    2341,B+R-B-R+F+B+F-R-B+R+B-
j=� 2413,B+,                      2431,L-B-L+P+B+P-L-B+L+B-
t+� 3124,L-B-L+P+B+P-L-B+L+B+,    3142,B-
~?� 3214,B+R-B-R+F+B+F-R-B+R+B+,  3241,B-R-B-R+F+B+F-R-B+R+B2
�;� 3412,B2F-B-R-B+R+F+,          3421,R-B-R+F+B+F-R-B+R+
�=� 4123,B-R-B-R+F+B+F-R-B+R+B+,  4132,B+R-B-R+F+B+F-R-B+R+
�7� 4213,R-B-R+F+B+F-R-B+R+B-,    4231,B-F-B-R-B+R+F+
�/� 4312,L-B-L+P+B+P-L-B+L+,      4321,B2,*,*
��:� +9:A$="":� I=1 � 12:� A
�� C(A)=C(49) A$+=�A
�1�:�:� B$,F:� A$=B$ � B$="*":� B$="*" mess=6:�
�7� F<4 B$="R-B-R+B-R-B2R+B2" � B$="B2R-B2R+B+R-B+R+"
�� F=8 B$="":F=4 � F=F � 4
� A$(0)=�4-F,"C-")+B$+�F,"C-")
�-�sequence(A$(0)):SS$+=A$(0):� F<4 �adjust
�/� F=4:�adjust:� I=4 � 49 � 9:BE$+=�(C(I)):�
+�    *** Bottom Corner Orientations ***

)� 15,17,24,26,33,35,42,44,45,47,51,53
7� 26354445,0,  17263551,3,  17264453,2,  17354447,1
7� 15334245,4,  24334251,7,  15243353,6,  15244247,5
(7� 17334244,0,  24333544,3,  15242635,2,  15172642,1
27� 24444753,0,  15354547,3,  26424551,2,  17335153,1
<7� 24265153,0,  15174753,3,  42444547,2,  33354551,1
F7� 24354751,0,  15264553,3,  17424751,2,  33444553,1
P.� 15173335,0,  24264244,3,  45475153,8,*,0
Z8A$=�edge(16)+�edge(25)+�edge(34)+�edge(43)+�edge(46)
d*A$+=�edge(48)+�edge(50)+�edge(52):� +4
n0�:� B$,F$:� A$=B$ � B$="*":� B$="*" mess=6:�
x!SS$+=F$:�adjust:�sequence(F$)
�)�    *** Bottom Edge Permutations ***
�� 23456666,""
�)� 23666645,R-B2R2B+R-B-R-B2L+P+R+P-L-
�!� 24536666,R2B+P+F-R2P-F+B+R2
�#� 24666653,P+B+P-L-F-R-B-R+F+L+
�!� 25346666,R2B-P+F-R2P-F+B-R2
�!� 25666634,R+T2L2F+L2T2R2P+R+
�#� 26365664,L-F-R-B+R+F+L+P+B-P-
�+� 26463665,L+P-B+L-P+F-B+R-P+B-R+P-F+B-
�#� 26564663,L+P+R+B-R-P-L-F-B+F+
�!� 26634656,R-P-R2T2L2F-L2T2R-
�#� 26645636,F-B-F+L+P+R+B+R-P-L-
�)� 26653646,F-B2F2B+F-B-F-B2P+R+F+R-P-
3� 32546666,F2B+R+L-F2R-L+B+F2P2B-L+R-P2L-R+B-P2
3� 32666654,F2B+R+L-F2R-L+B+F2P+T2F2R+F2T2P2L+P+
!� 34256666,F2B+R+L-F2R-L+B+F2
"5� 34666625,L2B+F+P-L2F-P+B+L2F-R-P-B+P+R+F+L+B-L-
,!� 35426666,L2B+F+P-L2F-P+B+L2
63� 35666642,P-L-P2T2F2R-F2T2P-R2B-P+F-R2P-F+B-R2
@3� 36264665,L2B+F+P-L2F-P+B+L2P+T2F2R+F2T2P2L+P+
J#� 36465662,R+F+L+B-L-F-R-P-B+P+
T5� 36562664,F2B+R+L-F2R-L+B+F2R-B-R+F+L+P+B+P-L-F-
^3� 36625646,F2B+R+L-F2R-L+B+F-L+P+B-P-L-F-R-B+R+
h3� 36642656,L2B+F+P-L2F-P+B+L2P-L-P2T2F2R-F2T2P-
r#� 36654626,R+B+R-P-L-F-B-F+L+P+
|!� 42356666,F2B-R+L-F2R-L+B-F2
�3� 42666635,R+T2L2F+L2T2R2P+R+P2B+L+R-P2L-R+B+P2
�!� 43526666,P2B+L+R-P2L-R+B+P2
�!� 43666652,P-L-P2T2F2R-F2T2P-
�3� 45236666,R-P-R2T2L2F-L2T2R-P-L-P2T2F2R-F2T2P-
�3� 45666623,R2B-P+F-R2P-F+B-R2F+T2P2L+P2T2F2R+F+
�5� 46265663,P+B+P-L-F-R-B-R+F+L+P-L-P2T2F2R-F2T2P-
�3� 46362665,R2B-P+F-R2P-F+B-R2P-L-P2T2F2R-F2T2P-
�3� 46563662,R2B+P+F-R2P-F+B+R2F+T2P2L+P2T2F2R+F+
�3� 46623656,R-P-R2T2L2F-L2T2R-F2B-R+L-F2R-L+B-F2
�3� 46635626,R2B+P+F-R2P-F+B+R2P-L-P2T2F2R-F2T2P-
�!� 46652636,F+T2P2L+P2T2F2R+F+
�!� 52436666,L2B-F+P-L2F-P+B-L2
�5� 52666643,P+B+P-L-F-R-B-R+F+L+P2B-L+R-P2L-R+B-P2
!� 53246666,P2B-L+R-P2L-R+B-P2
#� 53666624,R-B-R+F+L+P+B+P-L-F-
3� 54326666,R2B-P+F-R2P-F+B-R2P2B-L+R-P2L-R+B-P2
&3� 54666632,R+T2L2F+L2T2R2P+R+P2B-L+R-P2L-R+B-P2
03� 56263664,F2B+R+L-F2R-L+B+F2R+T2L2F+L2T2R2P+R+
:3� 56364662,R2B-P+F-R2P-F+B-R+B-R+F+L+P+B+P-L-F-
D#� 56462663,R-P-L-B+L+P+R+F+B-F-
N3� 56624636,F+T2P2L+P2T2F2R+F+P2B+L+R-P2L-R+B+P2
X3� 56632646,R-P-R2T2L2F-L2T2R-P2B-L+R-P2L-R+B-P2
b5� 56643626,R+B+R-P-L-F-B-F+L+P+R2B-P+F-R2P-F+B-R2
l5� 62366465,R2B-P+F-R2P-F+B-R2F+L+P+B-P-L-F-R-B+R+
v#� 62466563,P-B-P+R+F+L+B+L-F-R-
�3� 62566364,L-F-L2T2R2P-R2T2L-P2B+L+R-P2L-R+B+P2
�3� 62636546,R2B+P+F-R2P-F+B+R2P+T2F2R+F2T2P2L+P+
�3� 62646356,F-R-F2T2P2L-P2T2F2R-P-B+P+R+F+L+B-L-
�#� 62656436,P-L-F-B+F+L+P+R+B-R-
�!� 63266564,P+T2F2R+F2T2P2L+P+
�)� 63466265,P-B2P2B+P-B-P-B2F+L+P+L-F-
�#� 63566462,L+B+L-F-R-P-B-P+R+F+
�#� 63626456,F+L+P+B-P-L-F-R-B+R+
�#� 63646526,F-R-P-B+P+R+F+L+B-L-
�+� 63656246,F+L-B+F-L+R-B+P-L+B-P+L-R+B-
�3� 64266365,L-F-L2T2R2P-R2T2L-P2B-L+R-P2L-R+B-P2
�3� 64366562,F2B-R+L-F2R-L+B-F2P-L-P2T2F2R-F2T2P-
�5� 64566263,P-B-P+R+F+L+B+L-F-R-P2B+L+R-P2L-R+B+P2
5� 64626536,R+T2L2F+L2T2R2P+R+F-R-P-B+P+R+F+L+B-L-
3� 64636256,L2B-F+P-L2F-P+B-L2P-L-P2T2F2R-F2T2P-
#� 64656326,P+R+F+B-F-R-P-L-B+L+
 3� 65266463,P2B-L+R-P2L-R+B-P2R+T2L2F+L2T2R2P+R+
*3� 65366264,L-F-L2T2R2P-R2T2L-F2B-R+L-F2R-L+B-F2
4!� 65466362,L-F-L2T2R2P-R2T2L-
>3� 65626346,P2B+L+R-P2L-R+B+P2R+T2L2F+L2T2R2P+R+
H5� 65636426,R-P-R2T2L2F-L2T2R-F+L+P+B-P-L-F-R-B+R+
R3� 65646236,L2B+F+P-L2F-P+B+L2F+T2P2L+P2T2F2R+F+
\3� 66235466,L2B-F+P-L2F-P+B-L2P+T2F2R+F2T2P2L+P+
f3� 66243566,F-R-F2T2P2L-P2T2F-R2B-P+F-R2P-F+B-R2
p!� 66254366,F-R-F2T2P2L-P2T2F-
z3� 66324566,R2B-P+F-R2P-F+B-R2P+T2F2R+F2T2P2L+P+
�3� 66345266,F2B-R+L-F2R-L+B-F+R-P-B+P+R+F+L+B-L-
�#� 66352466,L-B-L+P+R+F+B+F-R-P-
�#� 66425366,F+B+F-R-P-L-B-L+P+R+
�!� 66432566,L+T2R2P+R2T2L2F+L+
�1� 66453266,C-C-R-B2R2B+R-B-R-B2L+P+R+P-L-C-C-
�3� 66523466,L2B+F+P-L2F-P+B+L-P+R+B-R-P-L-F-B+F+
�3� 66534266,L+T2R2P+R2T2L2F+L+P2B+L+R-P2L-R+B+P2
�3� 66542366,F-R-F2T2P2L-P2T2F-P2B-L+R-P2L-R+B-P2
�3� 66662354,F-R-F2T2P2L-P2T2F-P+T2F2R+F2T2P2L+P+
�5� 66662435,R+T2L2F+L2T2R2P+R+L+B+L-F-R-P-B-P+R+F+
�5� 66662543,L+P+R+B-R-P-L-F-B+F+P+T2F2R+F2T2P2L+P+
�3� 66663245,L-R+F2L+R-B2L-R+F+L+R-B2L-R+F2L+R-B-
�5� 66663452,L-F-L2T2R2P-R2T2L-P+B+P-L-F-R-B-R+F+L+
5� 66663524,P+R+F+B-F-R-P-L-B+L+R+T2L2F+L2T2R2P+R+
5� 66664253,R-P-L-B+L+P+R+F+B-F-P-L-P2T2F2R-F2T2P-
5� 66664325,L-F-L2T2R2P-R2T2L-R-B-R+F+L+P+B+P-L-F-
$3� 66664532,R+T2L2F+L2T2R2P+R+P+T2F2R+F2T2P2L+P+
.5� 66665234,F+T2P2L+P2T2F2R+F+R-B-R+F+L+P+B+P-L-F-
85� 66665342,F-R-F2T2P2L-P2T2F-L+B+L-F-R-P-B-P+R+F+
B;� 66665423,P+B+P-L-F-R-B-R+F+L+F+L+P+B-P-L-F-R-B+R+,*,*
L3T=0:� I=0 � 45 � 9:� J=1 � 8:� C(I)<>C(I+J) T=1
V4�:�:� T mess=6:� � SS$=�encode(SR$)+�encode(SS$)
`SS$=�compress(SS$):mess=5:�
j:
tݤcorner(AA,BB,DD)
~!� C(AA)=C(49) A=C(BB):B=C(DD)
�!� C(BB)=C(49) A=C(DD):B=C(AA)
�!� C(DD)=C(49) A=C(AA):B=C(BB)
�� A=C(13) � B=C(22) ="1"
�� A=C(22) � B=C(31) ="2"
�� A=C(40) � B=C(13) ="3"
�#� A=C(31) � B=C(40) ="4" � ="0"
�:
� ݤedge(AA)=�(�BE$,�(C(AA))))
�:
�ݤencode(P$):� P$="" =""
�� I,J,I$:I$=""
�� I=1 � �(P$) � 2
:J=�" T+T2T-B+B2B-L+L2L-R+R2R-F+F2F-P+P2P-",�P$,I,2))/2

I$+=�(J+65):�:=I$
:
ݤcompress(P$):� P$="" =""
(� A,B,C,D,F,I,J
2�:F=0:� I=1 � �(P$)-1
<!A=�(�P$,I,1)):B=�(�P$,I+1,1))
F/� (A � 6)=(B � 6) � (A � 6)>2 � (B � 6)<3 �
P"F=1:P$=�P$,I-1)+�B+�A+�P$,I+2)
Z
�:�:� F=0
d�:F=0:� I=1 � �(P$)-1
n!A=�(�P$,I,1)):B=�(�P$,I+1,1))
x� (A � 3)=(B � 3) � A>32 �
�)C=((A � 3)+(B � 3)+1) � 4:D=A-(A � 3)
�
Ȏ C �
�+� 0,1,2:P$=�P$,I-1)+�(D+C)+�P$,I+2)+" "
�!� 3:P$=�P$,I-1)+�P$,I+2)+"  "
�	�:F=1
�
�:�:� F=0
�ȕ �P$)=" ":P$=�P$):�:=P$
�:
���choose
�-� A$(1)<>"" � �(A$(1))<�(V$) V$=A$(1):F=0
�-� A$(2)<>"" � �(A$(2))<�(V$) V$=A$(2):F=1
�-� A$(3)<>"" � �(A$(3))<�(V$) V$=A$(3):F=2
�-� A$(4)<>"" � �(A$(4))<�(V$) V$=A$(4):F=3
A$=�F,"C-")+V$+�4-F,"C-")
�sequence(A$):SS$+=A$:�
:
"��sequence(S$):� S$="" �
,� H,I,J,O:� I=1 � �(S$) � 2
6� H=1 � �"-2+",�S$,I+1,1))
@O=�"TLFRPBC",�S$,I,1))-1
J� J=0 � 4:� O=6 �
T
�spin:J=4
^ �:Ȕ C(R(O,J,0)),C(R(O,J,1))
hȔ C(R(O,J,1)),C(R(O,J,2))
rȔ C(R(O,J,2)),C(R(O,J,3))
|
�:�:�:�:�
�:
�=��spin:�sequence("T-B+"):� I:� I=3 � 5:Ȕ C(I+27),C(I+36)
�,Ȕ C(I+18),C(I+27):Ȕ C(I+9),C(I+18):�:�
�:
�6��pal:� I:�19,0,24,112,112,112,19,8,16,112,112,112
�!� I=9 � 15:� I,15:�:� I=1 � 6
�2� I,rgb%(I,0,p%),rgb%(I,1,p%),rgb%(I,2,p%):�:�
�:
�4��draw_pal:� I=1 � 6:� I:ȓ Ȑ 720,520-I*160,159
�#� 0:� 784,612-I*160:�5,I+48,4:�
� � 0:ȓ 720,520-I*160,159:�:�
�

00000000  0d 00 0a 1d f4 20 3e 20  3c 52 75 62 69 78 24 44  |..... > <Rubix$D|
00000010  69 72 3e 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |ir>.!RunImage...|
00000020  37 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |7.. "Wimp_Initia|
00000030  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00000040  31 35 34 2c 22 52 75 62  69 78 22 20 b8 20 2c 74  |154,"Rubix" . ,t|
00000050  61 73 6b 25 0d 00 1e 21  ee 20 85 20 f2 63 6c 6f  |ask%...!. . .clo|
00000060  73 65 3a f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  |se:.:." at line |
00000070  22 3b 9e 3a e0 0d 00 28  09 f2 69 6e 69 74 0d 00  |";.:...(..init..|
00000080  32 0f f2 63 72 65 61 74  65 69 63 6f 6e 0d 00 3c  |2..createicon..<|
00000090  1b ee 20 85 20 e7 20 a4  65 72 72 6f 72 20 8c 20  |.. . . .error . |
000000a0  f2 63 6c 6f 73 65 3a e0  0d 00 46 05 f5 0d 00 50  |.close:...F....P|
000000b0  09 f2 70 6f 6c 6c 0d 00  5a 0b fd 20 71 75 69 74  |..poll..Z.. quit|
000000c0  25 0d 00 64 0a f2 63 6c  6f 73 65 0d 00 6e 05 e0  |%..d..close..n..|
000000d0  0d 00 78 05 3a 0d 00 82  1b f4 20 2a 2a 2a 20 57  |..x.:..... *** W|
000000e0  49 4d 50 20 52 4f 55 54  49 4e 45 53 20 2a 2a 2a  |IMP ROUTINES ***|
000000f0  0d 00 8c 05 3a 0d 00 96  10 dd f2 63 72 65 61 74  |....:......creat|
00000100  65 69 63 6f 6e 0d 00 a0  36 21 62 25 3d 2d 31 3a  |eicon...6!b%=-1:|
00000110  62 25 21 34 3d 30 3a 62  25 21 38 3d 30 3a 62 25  |b%!4=0:b%!8=0:b%|
00000120  21 31 32 3d 36 38 3a 62  25 21 31 36 3d 36 38 3a  |!12=68:b%!16=68:|
00000130  62 25 21 32 30 3d 26 33  30 30 32 0d 00 aa 33 24  |b%!20=&3002...3$|
00000140  28 62 25 2b 32 34 29 3d  22 21 52 75 62 69 78 22  |(b%+24)="!Rubix"|
00000150  3a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |:.. "Wimp_Create|
00000160  49 63 6f 6e 22 2c 2c 62  25 20 b8 20 69 25 0d 00  |Icon",,b% . i%..|
00000170  b4 05 e1 0d 00 be 05 3a  0d 00 c8 0b dd f2 63 6c  |.......:......cl|
00000180  6f 73 65 0d 00 d2 27 c8  99 20 22 57 69 6d 70 5f  |ose...'.. "Wimp_|
00000190  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 25  |CloseDown",task%|
000001a0  2c 26 34 42 35 33 34 31  35 34 0d 00 dc 13 2a 55  |,&4B534154....*U|
000001b0  6e 73 65 74 20 52 75 62  69 78 24 4f 6e 0d 00 e6  |nset Rubix$On...|
000001c0  05 e1 0d 00 f0 05 3a 0d  00 fa 0a dd f2 70 6f 6c  |......:......pol|
000001d0  6c 0d 01 04 1b c8 99 20  22 57 69 6d 70 5f 50 6f  |l...... "Wimp_Po|
000001e0  6c 6c 22 2c 2c 62 25 20  b8 20 72 25 0d 01 0e 0b  |ll",,b% . r%....|
000001f0  c8 8e 20 72 25 20 ca 0d  01 18 0f c9 20 31 3a f2  |.. r% ...... 1:.|
00000200  72 65 64 72 61 77 0d 01  22 20 c9 20 32 3a c8 99  |redraw.." . 2:..|
00000210  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000220  77 22 2c 2c 62 25 0d 01  2c 21 c9 20 33 3a c8 99  |w",,b%..,!. 3:..|
00000230  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00000240  6f 77 22 2c 2c 62 25 0d  01 36 13 c9 20 36 3a f2  |ow",,b%..6.. 6:.|
00000250  6d 6f 75 73 65 63 6c 69  63 6b 0d 01 40 12 c9 20  |mouseclick..@.. |
00000260  39 3a f2 6d 65 6e 75 63  6c 69 63 6b 0d 01 4a 14  |9:.menuclick..J.|
00000270  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
00000280  0d 01 54 05 cb 0d 01 5e  05 e1 0d 01 68 05 3a 0d  |..T....^....h.:.|
00000290  01 72 0b dd a4 65 72 72  6f 72 0d 01 7c 09 21 62  |.r...error..|.!b|
000002a0  25 3d 9f 0d 01 86 0c c8  8e 20 21 62 25 20 ca 0d  |%=....... !b% ..|
000002b0  01 90 1e c9 20 31 3c 3c  33 30 3a 65 72 72 5f 73  |.... 1<<30:err_s|
000002c0  74 72 24 3d 22 22 3a 62  6f 78 25 3d 33 0d 01 9a  |tr$="":box%=3...|
000002d0  22 c9 20 28 31 3c 3c 33  30 29 2b 31 3a 65 72 72  |". (1<<30)+1:err|
000002e0  5f 73 74 72 24 3d 22 22  3a 62 6f 78 25 3d 31 0d  |_str$="":box%=1.|
000002f0  01 a4 22 c9 20 28 31 3c  3c 33 30 29 2b 32 3a 65  |..". (1<<30)+2:e|
00000300  72 72 5f 73 74 72 24 3d  22 22 3a 62 6f 78 25 3d  |rr_str$="":box%=|
00000310  32 0d 01 ae 24 7f 3a 65  72 72 5f 73 74 72 24 3d  |2...$.:err_str$=|
00000320  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 3a 62  |" at line "+..:b|
00000330  6f 78 25 3d 32 0d 01 b8  05 cb 0d 01 c2 1a 24 28  |ox%=2.........$(|
00000340  62 25 2b 34 29 3d f6 24  2b 65 72 72 5f 73 74 72  |b%+4)=.$+err_str|
00000350  24 2b bd 30 0d 01 cc 36  c8 99 20 22 57 69 6d 70  |$+.0...6.. "Wimp|
00000360  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
00000370  2c 62 6f 78 25 2c 22 52  75 62 69 78 22 20 b8 20  |,box%,"Rubix" . |
00000380  2c 72 65 73 70 6f 6e 73  65 25 0d 01 d6 12 3d 28  |,response%....=(|
00000390  72 65 73 70 6f 6e 73 65  25 3d 32 29 0d 01 e0 05  |response%=2)....|
000003a0  3a 0d 01 ea 0d dd f2 72  65 63 65 69 76 65 0d 01  |:......receive..|
000003b0  f4 0e c8 8e 20 62 25 21  31 36 20 ca 0d 01 fe 0f  |.... b%!16 .....|
000003c0  c9 20 30 3a 71 75 69 74  25 3d b9 0d 02 08 0f c9  |. 0:quit%=......|
000003d0  20 39 3a f2 72 65 64 72  61 77 0d 02 12 05 cb 0d  | 9:.redraw......|
000003e0  02 1c 05 e1 0d 02 26 05  3a 0d 02 30 0a dd f2 69  |......&.:..0...i|
000003f0  6e 69 74 0d 02 3a 41 de  20 62 25 20 31 30 30 30  |nit..:A. b% 1000|
00000400  2c 77 73 25 20 31 30 30  30 2c 6d 65 6e 73 70 63  |,ws% 1000,menspc|
00000410  25 20 31 30 30 30 2c 78  25 28 32 36 2c 33 29 2c  |% 1000,x%(26,3),|
00000420  79 25 28 32 36 2c 33 29  2c 72 67 62 25 28 36 2c  |y%(26,3),rgb%(6,|
00000430  32 2c 31 29 0d 02 44 38  77 73 65 6e 64 25 3d 77  |2,1)..D8wsend%=w|
00000440  73 25 2b 31 30 30 30 3a  6d 65 6e 65 6e 64 25 3d  |s%+1000:menend%=|
00000450  6d 65 6e 73 70 63 25 2b  31 30 30 30 3a 72 67 62  |menspc%+1000:rgb|
00000460  25 28 29 3d 32 35 35 3a  70 25 3d 30 0d 02 4e 3b  |%()=255:p%=0..N;|
00000470  de 20 69 6e 64 31 25 20  35 33 2c 69 6e 64 32 25  |. ind1% 53,ind2%|
00000480  20 35 33 2c 69 6e 64 33  25 20 35 33 2c 69 6e 64  | 53,ind3% 53,ind|
00000490  34 25 20 35 33 2c 69 6e  64 35 25 20 35 33 2c 69  |4% 53,ind5% 53,i|
000004a0  6e 64 36 25 20 35 33 0d  02 58 43 de 20 4d 28 31  |nd6% 53..XC. M(1|
000004b0  36 2c 34 29 2c 58 28 34  29 2c 59 28 34 29 2c 43  |6,4),X(4),Y(4),C|
000004c0  28 35 33 29 2c 44 28 35  33 29 2c 52 28 35 2c 34  |(53),D(53),R(5,4|
000004d0  2c 33 29 2c 41 24 28 34  29 2c 53 28 35 29 2c 50  |,3),A$(4),S(5),P|
000004e0  28 36 29 2c 42 24 28 31  31 29 0d 02 62 30 50 28  |(6),B$(11)..b0P(|
000004f0  31 29 3d 31 31 3a 50 28  32 29 3d 31 30 3a 50 28  |1)=11:P(2)=10:P(|
00000500  33 29 3d 39 3a 50 28 34  29 3d 38 3a 50 28 35 29  |3)=9:P(4)=8:P(5)|
00000510  3d 30 3a 50 28 36 29 3d  31 34 0d 02 6c 24 66 61  |=0:P(6)=14..l$fa|
00000520  73 74 25 3d 30 3a f7 20  2b 32 3a e3 20 55 3d 30  |st%=0:. +2:. U=0|
00000530  20 b8 20 35 3a e3 20 56  3d 30 20 b8 20 34 0d 02  | . 5:. V=0 . 4..|
00000540  76 25 e3 20 57 3d 30 20  b8 20 33 3a f3 20 52 28  |v%. W=0 . 3:. R(|
00000550  55 2c 56 2c 57 29 3a ed  3a ed 3a ed 3a 53 53 24  |U,V,W):.:.:.:SS$|
00000560  3d 22 22 0d 02 80 3c dc  20 30 2c 32 2c 38 2c 36  |=""...<. 0,2,8,6|
00000570  2c 20 31 2c 35 2c 37 2c  33 2c 20 33 38 2c 32 39  |, 1,5,7,3, 38,29|
00000580  2c 32 30 2c 31 31 2c 20  33 37 2c 32 38 2c 31 39  |,20,11, 37,28,19|
00000590  2c 31 30 2c 20 33 36 2c  32 37 2c 31 38 2c 39 0d  |,10, 36,27,18,9.|
000005a0  02 8a 41 dc 20 39 2c 31  31 2c 31 37 2c 31 35 2c  |..A. 9,11,17,15,|
000005b0  20 31 30 2c 31 34 2c 31  36 2c 31 32 2c 20 30 2c  | 10,14,16,12, 0,|
000005c0  31 38 2c 34 35 2c 34 34  2c 20 33 2c 32 31 2c 34  |18,45,44, 3,21,4|
000005d0  38 2c 34 31 2c 20 36 2c  32 34 2c 35 31 2c 33 38  |8,41, 6,24,51,38|
000005e0  0d 02 94 42 dc 20 31 38  2c 32 30 2c 32 36 2c 32  |...B. 18,20,26,2|
000005f0  34 2c 20 31 39 2c 32 33  2c 32 35 2c 32 31 2c 20  |4, 19,23,25,21, |
00000600  36 2c 32 37 2c 34 37 2c  31 37 2c 20 37 2c 33 30  |6,27,47,17, 7,30|
00000610  2c 34 36 2c 31 34 2c 20  38 2c 33 33 2c 34 35 2c  |,46,14, 8,33,45,|
00000620  31 31 0d 02 9e 42 dc 20  32 37 2c 32 39 2c 33 35  |11...B. 27,29,35|
00000630  2c 33 33 2c 20 32 38 2c  33 32 2c 33 34 2c 33 30  |,33, 28,32,34,30|
00000640  2c 20 38 2c 33 36 2c 35  33 2c 32 36 2c 20 35 2c  |, 8,36,53,26, 5,|
00000650  33 39 2c 35 30 2c 32 33  2c 20 32 2c 34 32 2c 34  |39,50,23, 2,42,4|
00000660  37 2c 32 30 0d 02 a8 41  dc 20 33 36 2c 33 38 2c  |7,20...A. 36,38,|
00000670  34 34 2c 34 32 2c 20 33  37 2c 34 31 2c 34 33 2c  |44,42, 37,41,43,|
00000680  33 39 2c 20 32 2c 39 2c  35 31 2c 33 35 2c 20 31  |39, 2,9,51,35, 1|
00000690  2c 31 32 2c 35 32 2c 33  32 2c 20 30 2c 31 35 2c  |,12,52,32, 0,15,|
000006a0  35 33 2c 32 39 0d 02 b2  45 dc 20 34 35 2c 34 37  |53,29...E. 45,47|
000006b0  2c 35 33 2c 35 31 2c 20  34 36 2c 35 30 2c 35 32  |,53,51, 46,50,52|
000006c0  2c 34 38 2c 20 32 34 2c  33 33 2c 34 32 2c 31 35  |,48, 24,33,42,15|
000006d0  2c 20 32 35 2c 33 34 2c  34 33 2c 31 36 2c 20 32  |, 25,34,43,16, 2|
000006e0  36 2c 33 35 2c 34 34 2c  31 37 0d 02 bc 30 f7 20  |6,35,44,17...0. |
000006f0  2b 31 3a e3 20 56 3d 31  20 b8 20 31 36 3a e3 20  |+1:. V=1 . 16:. |
00000700  57 3d 31 20 b8 20 34 3a  f3 20 4d 3a 4d 28 56 2c  |W=1 . 4:. M:M(V,|
00000710  57 29 3d 4d 2f 39 3a ed  3a ed 0d 02 c6 28 dc 20  |W)=M/9:.:....(. |
00000720  39 2c 30 2c 30 2c 30 2c  20 36 2c 33 2c 30 2c 30  |9,0,0,0, 6,3,0,0|
00000730  2c 20 33 2c 36 2c 30 2c  30 2c 20 30 2c 39 2c 30  |, 3,6,0,0, 0,9,0|
00000740  2c 30 0d 02 d0 28 dc 20  36 2c 30 2c 33 2c 30 2c  |,0...(. 6,0,3,0,|
00000750  20 34 2c 32 2c 32 2c 31  2c 20 32 2c 34 2c 31 2c  | 4,2,2,1, 2,4,1,|
00000760  32 2c 20 30 2c 36 2c 30  2c 33 0d 02 da 28 dc 20  |2, 0,6,0,3...(. |
00000770  33 2c 30 2c 36 2c 30 2c  20 32 2c 31 2c 34 2c 32  |3,0,6,0, 2,1,4,2|
00000780  2c 20 31 2c 32 2c 32 2c  34 2c 20 30 2c 33 2c 30  |, 1,2,2,4, 0,3,0|
00000790  2c 36 0d 02 e4 28 dc 20  30 2c 30 2c 39 2c 30 2c  |,6...(. 0,0,9,0,|
000007a0  20 30 2c 30 2c 36 2c 33  2c 20 30 2c 30 2c 33 2c  | 0,0,6,3, 0,0,3,|
000007b0  36 2c 20 30 2c 30 2c 30  2c 39 0d 02 ee 2e f7 20  |6, 0,0,0,9..... |
000007c0  2b 31 3a e3 20 56 3d 31  20 b8 20 36 3a e3 20 57  |+1:. V=1 . 6:. W|
000007d0  3d 30 20 b8 20 32 3a f3  20 72 67 62 25 28 56 2c  |=0 . 2:. rgb%(V,|
000007e0  57 2c 30 29 3a ed 3a ed  0d 02 f8 42 dc 20 26 44  |W,0):.:....B. &D|
000007f0  30 2c 30 2c 30 2c 20 30  2c 26 42 30 2c 30 2c 20  |0,0,0, 0,&B0,0, |
00000800  26 45 30 2c 26 45 30 2c  30 2c 20 30 2c 30 2c 26  |&E0,&E0,0, 0,0,&|
00000810  43 30 2c 20 26 46 30 2c  26 46 30 2c 26 46 30 2c  |C0, &F0,&F0,&F0,|
00000820  20 26 46 30 2c 26 41 30  2c 30 0d 03 02 35 66 69  | &F0,&A0,0...5fi|
00000830  6c 65 25 3d 8e 28 22 3c  52 75 62 69 78 24 44 69  |le%=.("<Rubix$Di|
00000840  72 3e 2e 33 44 6d 61 70  22 29 3a e3 20 56 3d 30  |r>.3Dmap"):. V=0|
00000850  20 b8 20 32 36 3a e3 20  57 3d 30 20 b8 20 33 0d  | . 26:. W=0 . 3.|
00000860  03 0c 2f e8 23 66 69 6c  65 25 2c 78 25 28 56 2c  |../.#file%,x%(V,|
00000870  57 29 2c 79 25 28 56 2c  57 29 3a ed 3a ed 3a d9  |W),y%(V,W):.:.:.|
00000880  23 66 69 6c 65 25 3a 71  75 69 74 25 3d a3 0d 03  |#file%:quit%=...|
00000890  16 25 f2 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |.%.load_template|
000008a0  73 3a 2a 53 65 74 20 52  75 62 69 78 24 4f 6e 20  |s:*Set Rubix$On |
000008b0  59 65 73 0d 03 20 22 f2  6d 61 69 6e 5f 6d 65 6e  |Yes.. ".main_men|
000008c0  75 3a f2 6e 6f 74 5f 6d  65 6e 75 3a f2 70 61 6c  |u:.not_menu:.pal|
000008d0  5f 6d 65 6e 75 0d 03 2a  21 f2 61 74 74 61 63 68  |_menu..*!.attach|
000008e0  28 6d 61 69 6e 6d 65 6e  75 25 2c 31 2c 6e 6f 74  |(mainmenu%,1,not|
000008f0  6d 65 6e 75 25 29 0d 03  34 21 f2 61 74 74 61 63  |menu%)..4!.attac|
00000900  68 28 6d 61 69 6e 6d 65  6e 75 25 2c 32 2c 70 61  |h(mainmenu%,2,pa|
00000910  6c 6d 65 6e 75 25 29 0d  03 3e 20 f2 61 74 74 61  |lmenu%)..> .atta|
00000920  63 68 28 6d 61 69 6e 6d  65 6e 75 25 2c 30 2c 69  |ch(mainmenu%,0,i|
00000930  6e 66 6f 25 29 3a e1 0d  03 48 05 3a 0d 03 52 10  |nfo%):...H.:..R.|
00000940  dd f2 6d 6f 75 73 65 63  6c 69 63 6b 0d 03 5c 0e  |..mouseclick..\.|
00000950  c8 8e 20 62 25 21 31 32  20 ca 0d 03 66 12 c9 20  |.. b%!12 ...f.. |
00000960  2d 32 3a c8 8e 20 62 25  21 38 20 ca 0d 03 70 2b  |-2:.. b%!8 ...p+|
00000970  c9 20 32 3a f2 73 68 6f  77 6d 65 6e 75 28 6d 61  |. 2:.showmenu(ma|
00000980  69 6e 6d 65 6e 75 25 2c  21 62 25 2d 36 34 2c 39  |inmenu%,!b%-64,9|
00000990  36 2b 35 2a 34 34 29 0d  03 7a 15 c9 20 34 3a f2  |6+5*44)..z.. 4:.|
000009a0  6d 61 69 6e 5f 70 72 6f  67 72 61 6d 0d 03 84 16  |main_program....|
000009b0  c9 20 31 3a f2 73 68 6f  77 5f 73 6f 6c 75 74 69  |. 1:.show_soluti|
000009c0  6f 6e 0d 03 8e 05 cb 0d  03 98 14 c9 20 73 6f 6c  |on.......... sol|
000009d0  25 3a c8 8e 20 62 25 21  38 20 ca 0d 03 a2 28 c9  |%:.. b%!8 ....(.|
000009e0  20 32 3a f2 73 68 6f 77  6d 65 6e 75 28 6d 61 69  | 2:.showmenu(mai|
000009f0  6e 6d 65 6e 75 25 2c 21  62 25 2d 36 34 2c 62 25  |nmenu%,!b%-64,b%|
00000a00  21 34 29 0d 03 ac 05 cb  0d 03 b6 05 cb 0d 03 c0  |!4).............|
00000a10  05 e1 0d 03 ca 05 3a 0d  03 d4 14 dd f2 6c 6f 61  |......:......loa|
00000a20  64 5f 74 65 6d 70 6c 61  74 65 73 0d 03 de 33 c8  |d_templates...3.|
00000a30  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000a40  6c 61 74 65 22 2c 2c 22  3c 52 75 62 69 78 24 44  |late",,"<Rubix$D|
00000a50  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 03  |ir>.Templates"..|
00000a60  e8 3d c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.=.. "Wimp_LoadT|
00000a70  65 6d 70 6c 61 74 65 22  2c 2c 62 25 2c 77 73 25  |emplate",,b%,ws%|
00000a80  2c 77 73 65 6e 64 25 2c  2d 31 2c 22 49 6e 66 6f  |,wsend%,-1,"Info|
00000a90  22 2c 30 20 b8 20 2c 2c  77 73 25 0d 03 f2 26 c8  |",0 . ,,ws%...&.|
00000aa0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000ab0  6e 64 6f 77 22 2c 2c 62  25 20 b8 20 69 6e 66 6f  |ndow",,b% . info|
00000ac0  25 0d 03 fc 41 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...A.. "Wimp_Lo|
00000ad0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 25 2c  |adTemplate",,b%,|
00000ae0  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 53  |ws%,wsend%,-1,"S|
00000af0  6f 6c 75 74 69 6f 6e 22  2c 30 20 b8 20 2c 2c 77  |olution",0 . ,,w|
00000b00  73 25 0d 04 06 31 69 6e  64 31 25 3d 21 28 62 25  |s%...1ind1%=!(b%|
00000b10  2b 38 38 2b 33 32 2a 31  2b 32 30 29 3a 69 6e 64  |+88+32*1+20):ind|
00000b20  32 25 3d 21 28 62 25 2b  38 38 2b 33 32 2a 32 2b  |2%=!(b%+88+32*2+|
00000b30  32 30 29 0d 04 10 31 69  6e 64 33 25 3d 21 28 62  |20)...1ind3%=!(b|
00000b40  25 2b 38 38 2b 33 32 2a  33 2b 32 30 29 3a 69 6e  |%+88+32*3+20):in|
00000b50  64 34 25 3d 21 28 62 25  2b 38 38 2b 33 32 2a 34  |d4%=!(b%+88+32*4|
00000b60  2b 32 30 29 0d 04 1a 31  69 6e 64 35 25 3d 21 28  |+20)...1ind5%=!(|
00000b70  62 25 2b 38 38 2b 33 32  2a 35 2b 32 30 29 3a 69  |b%+88+32*5+20):i|
00000b80  6e 64 36 25 3d 21 28 62  25 2b 38 38 2b 33 32 2a  |nd6%=!(b%+88+32*|
00000b90  36 2b 32 30 29 0d 04 24  25 c8 99 20 22 57 69 6d  |6+20)..$%.. "Wim|
00000ba0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000bb0  2c 62 25 20 b8 20 73 6f  6c 25 0d 04 2e 1b c8 99  |,b% . sol%......|
00000bc0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00000bd0  6c 61 74 65 22 0d 04 38  05 e1 0d 04 42 05 3a 0d  |late"..8....B.:.|
00000be0  04 4c 39 dd f2 6c 6f 61  64 5f 70 61 6c 3a 66 69  |.L9..load_pal:fi|
00000bf0  6c 65 25 3d 8e 28 22 3c  52 75 62 69 78 24 44 69  |le%=.("<Rubix$Di|
00000c00  72 3e 2e 21 48 65 6c 70  2e 44 6f 63 73 2e 21 50  |r>.!Help.Docs.!P|
00000c10  61 6c 65 74 74 65 22 29  0d 04 56 2a e7 20 66 69  |alette")..V*. fi|
00000c20  6c 65 25 3d 30 20 f2 73  65 6c 65 63 74 28 70 61  |le%=0 .select(pa|
00000c30  6c 6d 65 6e 75 25 2c 30  29 3a f2 64 69 73 70 6c  |lmenu%,0):.displ|
00000c40  61 79 0d 04 60 34 e7 20  66 69 6c 65 25 3d 30 20  |ay..`4. file%=0 |
00000c50  85 20 28 31 3c 3c 33 30  29 2b 31 2c 22 50 61 6c  |. (1<<30)+1,"Pal|
00000c60  65 74 74 65 20 66 69 6c  65 20 6e 6f 74 20 66 6f  |ette file not fo|
00000c70  75 6e 64 22 3a e1 0d 04  6a 41 e3 20 56 3d 30 20  |und":...jA. V=0 |
00000c80  b8 20 36 3a e3 20 57 3d  30 20 b8 20 35 3a 63 68  |. 6:. W=0 . 5:ch|
00000c90  25 3d 9a 23 66 69 6c 65  25 3a e7 20 56 3e 30 20  |%=.#file%:. V>0 |
00000ca0  80 20 57 3e 32 20 72 67  62 25 28 56 2c 57 2d 33  |. W>2 rgb%(V,W-3|
00000cb0  2c 31 29 3d 63 68 25 0d  04 74 11 ed 3a ed 3a d9  |,1)=ch%..t..:.:.|
00000cc0  23 66 69 6c 65 25 3a e1  0d 04 7e 05 3a 0d 04 88  |#file%:...~.:...|
00000cd0  0f dd a4 6d 61 6b 65 5f  6d 65 6e 75 0d 04 92 3c  |...make_menu...<|
00000ce0  e7 20 6d 65 6e 73 70 63  25 2b 32 38 3e 6d 65 6e  |. menspc%+28>men|
00000cf0  65 6e 64 25 20 85 20 28  31 3c 3c 33 30 29 2b 32  |end% . (1<<30)+2|
00000d00  2c 22 4e 6f 74 20 65 6e  6f 75 67 68 20 6d 65 6e  |,"Not enough men|
00000d10  75 20 73 70 61 63 65 22  0d 04 9c 12 73 74 61 72  |u space"....star|
00000d20  74 25 3d 6d 65 6e 73 70  63 25 0d 04 a6 0c f3 20  |t%=menspc%..... |
00000d30  74 69 74 6c 65 24 0d 04  b0 14 24 28 73 74 61 72  |title$....$(star|
00000d40  74 25 29 3d 74 69 74 6c  65 24 0d 04 ba 0f 73 74  |t%)=title$....st|
00000d50  61 72 74 25 3f 31 32 3d  37 0d 04 c4 0f 73 74 61  |art%?12=7....sta|
00000d60  72 74 25 3f 31 33 3d 32  0d 04 ce 0f 73 74 61 72  |rt%?13=2....star|
00000d70  74 25 3f 31 34 3d 37 0d  04 d8 0f 73 74 61 72 74  |t%?14=7....start|
00000d80  25 3f 31 35 3d 30 0d 04  e2 10 73 74 61 72 74 25  |%?15=0....start%|
00000d90  21 32 30 3d 34 34 0d 04  ec 0f 73 74 61 72 74 25  |!20=44....start%|
00000da0  21 32 34 3d 30 0d 04 f6  16 77 69 64 74 68 25 3d  |!24=0....width%=|
00000db0  a9 28 74 69 74 6c 65 24  29 2d 33 0d 05 00 0f 6d  |.(title$)-3....m|
00000dc0  65 6e 73 70 63 25 2b 3d  32 38 0d 05 0a 05 f5 0d  |enspc%+=28......|
00000dd0  05 14 0b f3 20 69 74 65  6d 24 0d 05 1e 12 e7 20  |.... item$..... |
00000de0  69 74 65 6d 24 3c 3e 22  2a 22 20 8c 0d 05 28 3c  |item$<>"*" ...(<|
00000df0  e7 20 6d 65 6e 73 70 63  25 2b 32 34 3e 6d 65 6e  |. menspc%+24>men|
00000e00  65 6e 64 25 20 85 20 28  31 3c 3c 33 30 29 2b 32  |end% . (1<<30)+2|
00000e10  2c 22 4e 6f 74 20 65 6e  6f 75 67 68 20 6d 65 6e  |,"Not enough men|
00000e20  75 20 73 70 61 63 65 22  0d 05 32 0e 21 6d 65 6e  |u space"..2.!men|
00000e30  73 70 63 25 3d 30 0d 05  3c 10 77 72 69 74 65 61  |spc%=0..<.writea|
00000e40  62 6c 65 25 3d a3 0d 05  46 13 75 6c 25 3d a7 69  |ble%=...F.ul%=.i|
00000e50  74 65 6d 24 2c 22 5f 22  29 0d 05 50 0b e7 20 75  |tem$,"_")..P.. u|
00000e60  6c 25 20 8c 0d 05 5a 1e  74 61 69 6c 24 3d c2 69  |l% ...Z.tail$=.i|
00000e70  74 65 6d 24 2c a9 28 69  74 65 6d 24 29 2d 75 6c  |tem$,.(item$)-ul|
00000e80  25 29 0d 05 64 27 e7 20  a7 74 61 69 6c 24 2c 22  |%)..d'. .tail$,"|
00000e90  54 22 29 20 21 6d 65 6e  73 70 63 25 3d 21 6d 65  |T") !menspc%=!me|
00000ea0  6e 73 70 63 25 20 84 20  31 0d 05 6e 27 e7 20 a7  |nspc% . 1..n'. .|
00000eb0  74 61 69 6c 24 2c 22 44  22 29 20 21 6d 65 6e 73  |tail$,"D") !mens|
00000ec0  70 63 25 3d 21 6d 65 6e  73 70 63 25 20 84 20 32  |pc%=!menspc% . 2|
00000ed0  0d 05 78 48 e7 20 a7 74  61 69 6c 24 2c 22 57 22  |..xH. .tail$,"W"|
00000ee0  29 20 21 6d 65 6e 73 70  63 25 3d 21 6d 65 6e 73  |) !menspc%=!mens|
00000ef0  70 63 25 20 84 20 34 3a  77 72 69 74 65 61 62 6c  |pc% . 4:writeabl|
00000f00  65 25 3d b9 3a f3 20 62  75 66 66 65 72 25 3a f3  |e%=.:. buffer%:.|
00000f10  20 62 75 66 6c 65 6e 25  0d 05 82 27 e7 20 a7 74  | buflen%...'. .t|
00000f20  61 69 6c 24 2c 22 4d 22  29 20 21 6d 65 6e 73 70  |ail$,"M") !mensp|
00000f30  63 25 3d 21 6d 65 6e 73  70 63 25 20 84 20 38 0d  |c%=!menspc% . 8.|
00000f40  05 8c 17 69 74 65 6d 24  3d c0 69 74 65 6d 24 2c  |...item$=.item$,|
00000f50  75 6c 25 2d 31 29 0d 05  96 05 cd 0d 05 a0 21 e7  |ul%-1)........!.|
00000f60  20 a9 69 74 65 6d 24 3e  77 69 64 74 68 25 20 77  | .item$>width% w|
00000f70  69 64 74 68 25 3d a9 69  74 65 6d 24 0d 05 aa 10  |idth%=.item$....|
00000f80  6d 65 6e 73 70 63 25 21  34 3d 2d 31 0d 05 b4 12  |menspc%!4=-1....|
00000f90  e7 20 77 72 69 74 65 61  62 6c 65 25 20 8c 0d 05  |. writeable% ...|
00000fa0  be 5a 6d 65 6e 73 70 63  25 21 38 3d 26 30 37 30  |.Zmenspc%!8=&070|
00000fb0  30 46 31 32 31 3a 6d 65  6e 73 70 63 25 21 31 32  |0F121:menspc%!12|
00000fc0  3d 62 75 66 66 65 72 25  3a 6d 65 6e 73 70 63 25  |=buffer%:menspc%|
00000fd0  21 31 36 3d 2d 31 3a 6d  65 6e 73 70 63 25 21 32  |!16=-1:menspc%!2|
00000fe0  30 3d 62 75 66 6c 65 6e  25 3a 24 62 75 66 66 65  |0=buflen%:$buffe|
00000ff0  72 25 3d 69 74 65 6d 24  0d 05 c8 05 cc 0d 05 d2  |r%=item$........|
00001000  11 e7 20 a9 69 74 65 6d  24 3c 31 32 20 8c 0d 05  |.. .item$<12 ...|
00001010  dc 2b 6d 65 6e 73 70 63  25 21 38 3d 26 30 37 30  |.+menspc%!8=&070|
00001020  30 30 30 32 31 3a 24 28  6d 65 6e 73 70 63 25 2b  |00021:$(menspc%+|
00001030  31 32 29 3d 69 74 65 6d  24 0d 05 e6 05 cc 0d 05  |12)=item$.......|
00001040  f0 48 6d 65 6e 73 70 63  25 21 38 3d 26 30 37 30  |.Hmenspc%!8=&070|
00001050  30 30 31 32 31 3a 6d 65  6e 73 70 63 25 21 31 32  |00121:menspc%!12|
00001060  3d 77 73 25 3a 6d 65 6e  73 70 63 25 21 31 36 3d  |=ws%:menspc%!16=|
00001070  2d 31 3a 6d 65 6e 73 70  63 25 21 32 30 3d a9 69  |-1:menspc%!20=.i|
00001080  74 65 6d 24 2b 31 0d 05  fa 1c 24 77 73 25 3d 69  |tem$+1....$ws%=i|
00001090  74 65 6d 24 3a 77 73 25  2b 3d a9 69 74 65 6d 24  |tem$:ws%+=.item$|
000010a0  2b 31 0d 06 04 05 cd 0d  06 0e 05 cd 0d 06 18 0f  |+1..............|
000010b0  6d 65 6e 73 70 63 25 2b  3d 32 34 0d 06 22 05 cd  |menspc%+=24.."..|
000010c0  0d 06 2c 0f fd 20 69 74  65 6d 24 3d 22 2a 22 0d  |..,.. item$="*".|
000010d0  06 36 1a 73 74 61 72 74  25 21 31 36 3d 77 69 64  |.6.start%!16=wid|
000010e0  74 68 25 2a 31 36 2b 33  32 0d 06 40 25 21 28 6d  |th%*16+32..@%!(m|
000010f0  65 6e 73 70 63 25 2d 32  34 29 3d 21 28 6d 65 6e  |enspc%-24)=!(men|
00001100  73 70 63 25 2d 32 34 29  20 84 20 26 38 30 0d 06  |spc%-24) . &80..|
00001110  4a 11 6d 70 74 72 25 3d  6d 65 6e 73 70 63 25 0d  |J.mptr%=menspc%.|
00001120  06 54 0b 3d 73 74 61 72  74 25 0d 06 5e 05 3a 0d  |.T.=start%..^.:.|
00001130  06 68 1e dd f2 61 74 74  61 63 68 28 6d 65 6e 75  |.h...attach(menu|
00001140  25 2c 69 74 65 6d 25 2c  73 75 62 25 29 0d 06 72  |%,item%,sub%)..r|
00001150  1f 21 28 6d 65 6e 75 25  2b 32 38 2b 69 74 65 6d  |.!(menu%+28+item|
00001160  25 2a 32 34 2b 34 29 3d  73 75 62 25 0d 06 7c 05  |%*24+4)=sub%..|.|
00001170  e1 0d 06 86 05 3a 0d 06  90 1b dd f2 73 68 6f 77  |.....:......show|
00001180  6d 65 6e 75 28 6d 65 6e  75 25 2c 78 25 2c 79 25  |menu(menu%,x%,y%|
00001190  29 0d 06 9a 24 74 6f 70  6d 65 6e 75 25 3d 6d 65  |)...$topmenu%=me|
000011a0  6e 75 25 3a 74 6f 70 78  25 3d 78 25 3a 74 6f 70  |nu%:topx%=x%:top|
000011b0  79 25 3d 79 25 0d 06 a4  25 c8 99 20 22 57 69 6d  |y%=y%...%.. "Wim|
000011c0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
000011d0  65 6e 75 25 2c 78 25 2c  79 25 0d 06 ae 05 e1 0d  |enu%,x%,y%......|
000011e0  06 b8 05 3a 0d 06 c2 0f  dd f2 6d 65 6e 75 63 6c  |...:......menucl|
000011f0  69 63 6b 0d 06 cc 08 ea  20 63 25 0d 06 d6 0d 63  |ick..... c%....c|
00001200  25 3d 62 25 2b 39 30 30  0d 06 e0 20 c8 99 20 22  |%=b%+900... .. "|
00001210  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00001220  6e 66 6f 22 2c 2c 63 25  0d 06 ea 13 61 64 6a 25  |nfo",,c%....adj%|
00001230  3d 28 63 25 21 38 20 80  20 31 29 0d 06 f4 28 c8  |=(c%!8 . 1)...(.|
00001240  99 20 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |. "Wimp_DecodeMe|
00001250  6e 75 22 2c 2c 74 6f 70  6d 65 6e 75 25 2c 62 25  |nu",,topmenu%,b%|
00001260  2c 63 25 0d 06 fe 0c c8  8e 20 24 63 25 20 ca 0d  |,c%...... $c% ..|
00001270  07 08 2b c9 20 22 4e 6f  74 61 74 69 6f 6e 2e 4e  |..+. "Notation.N|
00001280  6f 75 72 73 65 22 3a f2  73 65 6c 65 63 74 28 6e  |ourse":.select(n|
00001290  6f 74 6d 65 6e 75 25 2c  30 29 0d 07 12 2f c9 20  |otmenu%,0).../. |
000012a0  22 4e 6f 74 61 74 69 6f  6e 2e 53 69 6e 67 6d 61  |"Notation.Singma|
000012b0  73 74 65 72 22 3a f2 73  65 6c 65 63 74 28 6e 6f  |ster":.select(no|
000012c0  74 6d 65 6e 75 25 2c 31  29 0d 07 1c 3d c9 20 22  |tmenu%,1)...=. "|
000012d0  46 61 73 74 20 72 6f 74  61 74 69 6f 6e 22 3a f2  |Fast rotation":.|
000012e0  74 6f 67 67 6c 65 5f 74  69 63 6b 28 6d 61 69 6e  |toggle_tick(main|
000012f0  6d 65 6e 75 25 2c 33 29  3a 66 61 73 74 25 3d 31  |menu%,3):fast%=1|
00001300  2d 66 61 73 74 25 0d 07  26 2b c9 20 22 50 61 6c  |-fast%..&+. "Pal|
00001310  65 74 74 65 2e 44 65 66  61 75 6c 74 22 3a f2 73  |ette.Default":.s|
00001320  65 6c 65 63 74 28 70 61  6c 6d 65 6e 75 25 2c 30  |elect(palmenu%,0|
00001330  29 0d 07 30 37 c9 20 22  50 61 6c 65 74 74 65 2e  |)..07. "Palette.|
00001340  46 72 6f 6d 20 66 69 6c  65 22 3a f2 73 65 6c 65  |From file":.sele|
00001350  63 74 28 70 61 6c 6d 65  6e 75 25 2c 31 29 3a f2  |ct(palmenu%,1):.|
00001360  6c 6f 61 64 5f 70 61 6c  0d 07 3a 14 c9 20 22 51  |load_pal..:.. "Q|
00001370  75 69 74 22 3a 71 75 69  74 25 3d b9 0d 07 44 05  |uit":quit%=...D.|
00001380  cb 0d 07 4e 2a e7 20 61  64 6a 25 20 f2 73 68 6f  |...N*. adj% .sho|
00001390  77 6d 65 6e 75 28 74 6f  70 6d 65 6e 75 25 2c 74  |wmenu(topmenu%,t|
000013a0  6f 70 78 25 2c 74 6f 70  79 25 29 0d 07 58 05 e1  |opx%,topy%)..X..|
000013b0  0d 07 62 05 3a 0d 07 6c  0f dd f2 6d 61 69 6e 5f  |..b.:..l...main_|
000013c0  6d 65 6e 75 0d 07 76 08  f7 20 2b 31 0d 07 80 36  |menu..v.. +1...6|
000013d0  dc 20 52 75 62 69 78 2c  49 6e 66 6f 2c 4e 6f 74  |. Rubix,Info,Not|
000013e0  61 74 69 6f 6e 2c 50 61  6c 65 74 74 65 2c 46 61  |ation,Palette,Fa|
000013f0  73 74 20 72 6f 74 61 74  69 6f 6e 2c 51 75 69 74  |st rotation,Quit|
00001400  2c 2a 0d 07 8a 18 6d 61  69 6e 6d 65 6e 75 25 3d  |,*....mainmenu%=|
00001410  a4 6d 61 6b 65 5f 6d 65  6e 75 0d 07 94 05 e1 0d  |.make_menu......|
00001420  07 9e 05 3a 0d 07 a8 0e  dd f2 6e 6f 74 5f 6d 65  |...:......not_me|
00001430  6e 75 0d 07 b2 08 f7 20  2b 31 0d 07 bc 24 dc 20  |nu..... +1...$. |
00001440  4e 6f 74 61 74 69 6f 6e  2c 4e 6f 75 72 73 65 5f  |Notation,Nourse_|
00001450  54 2c 53 69 6e 67 6d 61  73 74 65 72 2c 2a 0d 07  |T,Singmaster,*..|
00001460  c6 17 6e 6f 74 6d 65 6e  75 25 3d a4 6d 61 6b 65  |..notmenu%=.make|
00001470  5f 6d 65 6e 75 0d 07 d0  05 e1 0d 07 da 05 3a 0d  |_menu.........:.|
00001480  07 e4 0e dd f2 70 61 6c  5f 6d 65 6e 75 0d 07 ee  |.....pal_menu...|
00001490  08 f7 20 2b 31 0d 07 f8  23 dc 20 50 61 6c 65 74  |.. +1...#. Palet|
000014a0  74 65 2c 44 65 66 61 75  6c 74 5f 54 2c 46 72 6f  |te,Default_T,Fro|
000014b0  6d 20 66 69 6c 65 2c 2a  0d 08 02 17 70 61 6c 6d  |m file,*....palm|
000014c0  65 6e 75 25 3d a4 6d 61  6b 65 5f 6d 65 6e 75 0d  |enu%=.make_menu.|
000014d0  08 0c 05 e1 0d 08 16 05  3a 0d 08 20 1b dd f2 72  |........:.. ...r|
000014e0  65 64 72 61 77 3a ea 20  63 25 3a 63 25 3d 62 25  |edraw:. c%:c%=b%|
000014f0  2b 38 30 30 0d 08 2a 29  21 63 25 3d 73 6f 6c 25  |+800..*)!c%=sol%|
00001500  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00001510  64 6f 77 53 74 61 74 65  22 2c 2c 63 25 0d 08 34  |dowState",,c%..4|
00001520  26 c8 99 20 22 57 69 6d  70 5f 52 65 64 72 61 77  |&.. "Wimp_Redraw|
00001530  57 69 6e 64 6f 77 22 2c  2c 63 25 20 b8 20 6d 6f  |Window",,c% . mo|
00001540  72 65 25 0d 08 3e 0c c8  95 20 6d 6f 72 65 25 0d  |re%..>... more%.|
00001550  08 48 09 f2 64 72 61 77  0d 08 52 26 c8 99 20 22  |.H..draw..R&.. "|
00001560  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00001570  65 22 2c 2c 63 25 20 b8  20 6d 6f 72 65 25 0d 08  |e",,c% . more%..|
00001580  5c 05 ce 0d 08 66 05 e1  0d 08 70 05 3a 0d 08 7a  |\....f....p.:..z|
00001590  0e dd f2 74 65 72 6d 28  61 25 29 0d 08 84 08 ea  |...term(a%).....|
000015a0  20 6e 25 0d 08 8e 0f c8  95 20 61 25 3f 6e 25 3e  | n%...... a%?n%>|
000015b0  33 31 0d 08 98 09 6e 25  2b 3d 31 0d 08 a2 05 ce  |31....n%+=1.....|
000015c0  0d 08 ac 0c 61 25 3f 6e  25 3d 31 33 0d 08 b6 05  |....a%?n%=13....|
000015d0  e1 0d 08 c0 05 3a 0d 08  ca 1f dd a4 69 63 6f 6e  |.....:......icon|
000015e0  5f 73 74 61 74 65 28 77  69 6e 64 6f 77 25 2c 69  |_state(window%,i|
000015f0  63 6f 6e 25 29 0d 08 d4  08 ea 20 63 25 0d 08 de  |con%)..... c%...|
00001600  0d 63 25 3d 62 25 2b 39  30 30 0d 08 e8 0f 21 63  |.c%=b%+900....!c|
00001610  25 3d 77 69 6e 64 6f 77  25 0d 08 f2 0e 63 25 21  |%=window%....c%!|
00001620  34 3d 69 63 6f 6e 25 0d  08 fc 1e c8 99 20 22 57  |4=icon%...... "W|
00001630  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001640  22 2c 2c 63 25 0d 09 06  1b 3d 28 28 63 25 21 32  |",,c%....=((c%!2|
00001650  34 29 20 80 20 28 31 3c  3c 32 31 29 29 3c 3e 30  |4) . (1<<21))<>0|
00001660  0d 09 10 05 3a 0d 09 1a  1b dd f2 66 6f 72 63 65  |....:......force|
00001670  5f 72 65 64 72 61 77 28  77 69 6e 64 6f 77 25 29  |_redraw(window%)|
00001680  0d 09 24 08 ea 20 63 25  0d 09 2e 0d 63 25 3d 62  |..$.. c%....c%=b|
00001690  25 2b 39 30 30 0d 09 38  0f 21 63 25 3d 77 69 6e  |%+900..8.!c%=win|
000016a0  64 6f 77 25 0d 09 42 20  c8 99 20 22 57 69 6d 70  |dow%..B .. "Wimp|
000016b0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000016c0  2c 2c 63 25 0d 09 4c 32  c8 99 20 22 57 69 6d 70  |,,c%..L2.. "Wimp|
000016d0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 2d 31  |_ForceRedraw",-1|
000016e0  2c 63 25 21 34 2c 63 25  21 38 2c 63 25 21 31 32  |,c%!4,c%!8,c%!12|
000016f0  2c 63 25 21 31 36 0d 09  56 05 e1 0d 09 60 05 3a  |,c%!16..V....`.:|
00001700  0d 09 6a 17 dd a4 74 69  63 6b 28 6d 65 6e 75 25  |..j...tick(menu%|
00001710  2c 69 74 65 6d 25 29 0d  09 74 21 3d 28 6d 65 6e  |,item%)..t!=(men|
00001720  75 25 21 28 32 38 2b 69  74 65 6d 25 2a 32 34 29  |u%!(28+item%*24)|
00001730  20 80 20 31 29 3c 3e 30  0d 09 7e 05 3a 0d 09 88  | . 1)<>0..~.:...|
00001740  1e dd f2 74 6f 67 67 6c  65 5f 74 69 63 6b 28 6d  |...toggle_tick(m|
00001750  65 6e 75 25 2c 69 74 65  6d 25 29 0d 09 92 2f 6d  |enu%,item%).../m|
00001760  65 6e 75 25 21 28 32 38  2b 69 74 65 6d 25 2a 32  |enu%!(28+item%*2|
00001770  34 29 3d 6d 65 6e 75 25  21 28 32 38 2b 69 74 65  |4)=menu%!(28+ite|
00001780  6d 25 2a 32 34 29 20 82  20 31 0d 09 9c 05 e1 0d  |m%*24) . 1......|
00001790  09 a6 05 3a 0d 09 b0 19  dd f2 73 65 6c 65 63 74  |...:......select|
000017a0  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 09 ba  |(menu%,item%)...|
000017b0  1c e7 20 a4 74 69 63 6b  28 6d 65 6e 75 25 2c 69  |.. .tick(menu%,i|
000017c0  74 65 6d 25 29 3d 30 20  8c 0d 09 c4 19 f2 74 6f  |tem%)=0 ......to|
000017d0  67 67 6c 65 5f 74 69 63  6b 28 6d 65 6e 75 25 2c  |ggle_tick(menu%,|
000017e0  30 29 0d 09 ce 19 f2 74  6f 67 67 6c 65 5f 74 69  |0).....toggle_ti|
000017f0  63 6b 28 6d 65 6e 75 25  2c 31 29 0d 09 d8 10 cd  |ck(menu%,1).....|
00001800  3a f2 64 69 73 70 6c 61  79 3a e1 0d 09 e2 05 3a  |:.display:.....:|
00001810  0d 09 ec 32 dd f2 64 69  73 70 6c 61 79 3a ea 20  |...2..display:. |
00001820  6e 25 3a e7 20 a4 74 69  63 6b 28 6e 6f 74 6d 65  |n%:. .tick(notme|
00001830  6e 75 25 2c 30 29 20 6e  25 3d 30 20 8b 20 6e 25  |nu%,0) n%=0 . n%|
00001840  3d 36 0d 09 f6 3a 24 69  6e 64 31 25 3d 42 24 28  |=6...:$ind1%=B$(|
00001850  6e 25 29 2b bd 30 3a 24  69 6e 64 32 25 3d 42 24  |n%)+.0:$ind2%=B$|
00001860  28 6e 25 2b 31 29 2b bd  30 3a 24 69 6e 64 33 25  |(n%+1)+.0:$ind3%|
00001870  3d 42 24 28 6e 25 2b 32  29 2b bd 30 0d 0a 00 3c  |=B$(n%+2)+.0...<|
00001880  24 69 6e 64 34 25 3d 42  24 28 6e 25 2b 33 29 2b  |$ind4%=B$(n%+3)+|
00001890  bd 30 3a 24 69 6e 64 35  25 3d 42 24 28 6e 25 2b  |.0:$ind5%=B$(n%+|
000018a0  34 29 2b bd 30 3a 24 69  6e 64 36 25 3d 42 24 28  |4)+.0:$ind6%=B$(|
000018b0  6e 25 2b 35 29 2b bd 30  0d 0a 0a 44 ef 32 33 2c  |n%+5)+.0...D.23,|
000018c0  31 33 34 2c 33 30 37 36  3b 31 32 35 32 3b 31 34  |134,3076;1252;14|
000018d0  7c 32 33 2c 31 37 38 2c  31 30 38 30 3b 38 32 31  ||23,178,1080;821|
000018e0  36 3b 36 30 7c 3a 70 25  3d 31 2b a4 74 69 63 6b  |6;60|:p%=1+.tick|
000018f0  28 70 61 6c 6d 65 6e 75  25 2c 30 29 0d 0a 14 19  |(palmenu%,0)....|
00001900  f2 66 6f 72 63 65 5f 72  65 64 72 61 77 28 73 6f  |.force_redraw(so|
00001910  6c 25 29 3a e1 0d 0a 1e  05 3a 0d 0a 28 34 dd f2  |l%):.....:..(4..|
00001920  64 72 61 77 3a ea 20 69  25 3a 78 6f 72 69 67 25  |draw:. i%:xorig%|
00001930  3d 63 25 21 34 2d 63 25  21 32 30 3a 79 6f 72 69  |=c%!4-c%!20:yori|
00001940  67 25 3d 63 25 21 31 36  2d 63 25 21 32 34 0d 0a  |g%=c%!16-c%!24..|
00001950  32 34 e3 20 69 25 3d 30  20 b8 20 32 36 3a c8 99  |24. i%=0 . 26:..|
00001960  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00001970  74 47 43 4f 4c 22 2c a4  72 67 62 28 44 28 69 25  |tGCOL",.rgb(D(i%|
00001980  29 29 0d 0a 3c 2b ec 20  a4 61 28 69 25 2c 30 29  |))..<+. .a(i%,0)|
00001990  2c a4 62 28 69 25 2c 30  29 3a ec 20 a4 61 28 69  |,.b(i%,0):. .a(i|
000019a0  25 2c 31 29 2c a4 62 28  69 25 2c 31 29 0d 0a 46  |%,1),.b(i%,1)..F|
000019b0  31 f0 20 38 35 2c a4 61  28 69 25 2c 33 29 2c a4  |1. 85,.a(i%,3),.|
000019c0  62 28 69 25 2c 33 29 3a  f0 20 38 35 2c a4 61 28  |b(i%,3):. 85,.a(|
000019d0  69 25 2c 32 29 2c a4 62  28 69 25 2c 32 29 0d 0a  |i%,2),.b(i%,2)..|
000019e0  50 32 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |P2.. "ColourTran|
000019f0  73 5f 53 65 74 47 43 4f  4c 22 2c 30 3a ec 20 a4  |s_SetGCOL",0:. .|
00001a00  61 28 69 25 2c 33 29 2c  a4 62 28 69 25 2c 33 29  |a(i%,3),.b(i%,3)|
00001a10  0d 0a 5a 28 e3 20 6a 25  3d 30 20 b8 20 33 3a df  |..Z(. j%=0 . 3:.|
00001a20  20 a4 61 28 69 25 2c 6a  25 29 2c a4 62 28 69 25  | .a(i%,j%),.b(i%|
00001a30  2c 6a 25 29 3a ed 3a ed  0d 0a 64 25 ec 20 78 6f  |,j%):.:...d%. xo|
00001a40  72 69 67 25 2b 31 30 34  30 2c 79 6f 72 69 67 25  |rig%+1040,yorig%|
00001a50  2d 36 38 3a ef 35 2c a4  74 6f 70 2c 34 0d 0a 6e  |-68:.5,.top,4..n|
00001a60  24 ec 20 78 6f 72 69 67  25 2b 31 31 30 36 2c 79  |$. xorig%+1106,y|
00001a70  6f 72 69 67 25 2d 32 32  38 3a ef 35 2c 37 30 2c  |orig%-228:.5,70,|
00001a80  34 0d 0a 78 25 ec 20 78  6f 72 69 67 25 2b 39 33  |4..x%. xorig%+93|
00001a90  34 2c 79 6f 72 69 67 25  2d 31 39 38 3a ef 35 2c  |4,yorig%-198:.5,|
00001aa0  37 36 2c 34 3a e1 0d 0a  82 05 3a 0d 0a 8c 1f dd  |76,4:.....:.....|
00001ab0  a4 61 28 69 25 2c 6a 25  29 3d 78 6f 72 69 67 25  |.a(i%,j%)=xorig%|
00001ac0  2b 78 25 28 69 25 2c 6a  25 29 0d 0a 96 1f dd a4  |+x%(i%,j%)......|
00001ad0  62 28 69 25 2c 6a 25 29  3d 79 6f 72 69 67 25 2b  |b(i%,j%)=yorig%+|
00001ae0  79 25 28 69 25 2c 6a 25  29 0d 0a a0 29 dd a4 74  |y%(i%,j%)...)..t|
00001af0  6f 70 3a e7 20 a4 74 69  63 6b 28 6e 6f 74 6d 65  |op:. .tick(notme|
00001b00  6e 75 25 2c 30 29 20 8c  20 3d 38 34 20 8b 20 3d  |nu%,0) . =84 . =|
00001b10  38 35 0d 0a aa 48 dd a4  72 67 62 28 63 25 29 3d  |85...H..rgb(c%)=|
00001b20  28 72 67 62 25 28 63 25  2c 30 2c 70 25 29 3c 3c  |(rgb%(c%,0,p%)<<|
00001b30  38 29 2b 28 72 67 62 25  28 63 25 2c 31 2c 70 25  |8)+(rgb%(c%,1,p%|
00001b40  29 3c 3c 31 36 29 2b 28  72 67 62 25 28 63 25 2c  |)<<16)+(rgb%(c%,|
00001b50  32 2c 70 25 29 3c 3c 32  34 29 0d 0a b4 05 3a 0d  |2,p%)<<24)....:.|
00001b60  0a be 13 dd f2 73 68 6f  77 5f 73 6f 6c 75 74 69  |.....show_soluti|
00001b70  6f 6e 0d 0a c8 42 21 62  25 3d 73 6f 6c 25 3a c8  |on...B!b%=sol%:.|
00001b80  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00001b90  77 53 74 61 74 65 22 2c  2c 62 25 3a c8 99 20 22  |wState",,b%:.. "|
00001ba0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001bb0  2c 2c 62 25 0d 0a d2 05  e1 0d 0a dc 05 3a 0d 0a  |,,b%.........:..|
00001bc0  e6 1a f4 20 2a 2a 2a 20  4d 41 49 4e 20 50 52 4f  |... *** MAIN PRO|
00001bd0  47 52 41 4d 20 2a 2a 2a  0d 0a f0 05 3a 0d 0a fa  |GRAM ***....:...|
00001be0  21 dd f2 6d 61 69 6e 5f  70 72 6f 67 72 61 6d 3a  |!..main_program:|
00001bf0  6d 6f 64 65 3d eb 3a 74  75 72 6e 25 3d 30 0d 0b  |mode=.:turn%=0..|
00001c00  04 36 ef 32 33 2c 32 31  38 2c 30 3b 37 39 33 36  |.6.23,218,0;7936|
00001c10  3b 36 31 37 35 3b 36 31  36 38 3b 32 33 2c 31 39  |;6175;6168;23,19|
00001c20  31 2c 30 3b 36 33 34 38  38 3b 36 33 39 32 3b 36  |1,0;63488;6392;6|
00001c30  31 36 38 3b 0d 0b 0e 33  ef 32 33 2c 31 39 32 2c  |168;...3.23,192,|
00001c40  36 31 36 38 3b 37 39 36  30 3b 33 31 3b 30 3b 32  |6168;7960;31;0;2|
00001c50  33 2c 32 31 37 2c 36 31  36 38 3b 36 33 35 31 32  |3,217,6168;63512|
00001c60  3b 32 34 38 3b 30 3b 0d  0b 18 35 ef 32 33 2c 31  |;248;0;...5.23,1|
00001c70  37 39 2c 36 31 36 38 3b  36 31 36 38 3b 36 31 36  |79,6168;6168;616|
00001c80  38 3b 36 31 36 38 3b 32  33 2c 31 39 36 2c 30 3b  |8;6168;23,196,0;|
00001c90  36 35 32 38 30 3b 32 35  35 3b 30 3b 0d 0b 22 23  |65280;255;0;.."#|
00001ca0  c8 99 20 22 58 57 69 6d  70 5f 53 65 74 4d 6f 64  |.. "XWimp_SetMod|
00001cb0  65 22 2c 31 32 20 b8 20  3b 66 6c 61 67 73 25 0d  |e",12 . ;flags%.|
00001cc0  0b 2c 4f e7 20 28 66 6c  61 67 73 25 20 80 20 31  |.,O. (flags% . 1|
00001cd0  29 20 84 20 eb 3c 3e 31  32 20 85 20 28 31 3c 3c  |) . .<>12 . (1<<|
00001ce0  33 30 29 2b 31 2c 22 49  20 6e 65 65 64 20 61 74  |30)+1,"I need at|
00001cf0  20 6c 65 61 73 74 20 38  30 6b 20 6f 66 20 73 63  | least 80k of sc|
00001d00  72 65 65 6e 20 6d 65 6d  6f 72 79 22 3a e1 0d 0b  |reen memory":...|
00001d10  36 2e eb 31 32 3a eb 39  3a 76 69 65 77 3d 31 3a  |6..12:.9:view=1:|
00001d20  6d 65 73 73 3d 31 3a 50  3d 33 31 35 3a 53 3d 33  |mess=1:P=315:S=3|
00001d30  30 3a 51 3d 31 3a c8 97  20 ee 3a 87 0d 0b 40 3d  |0:Q=1:.. .:...@=|
00001d40  f2 70 61 6c 3a c8 99 20  22 58 4f 53 5f 43 4c 49  |.pal:.. "XOS_CLI|
00001d50  22 2c 22 52 4d 45 6e 73  75 72 65 20 55 74 69 6c  |","RMEnsure Util|
00001d60  69 74 79 4d 6f 64 75 6c  65 20 33 2e 30 30 22 20  |ityModule 3.00" |
00001d70  b8 20 3b 66 6c 61 67 73  25 0d 0b 4a 38 ef 32 39  |. ;flags%..J8.29|
00001d80  2c 34 30 30 3b 34 34 30  3b 3a e7 20 28 66 6c 61  |,400;440;:. (fla|
00001d90  67 73 25 20 80 20 31 29  20 c8 99 20 22 4f 53 5f  |gs% . 1) .. "OS_|
00001da0  55 70 64 61 74 65 4d 45  4d 43 22 2c 36 34 2c 36  |UpdateMEMC",64,6|
00001db0  34 0d 0b 54 28 e3 20 49  3d 30 20 b8 20 35 33 3a  |4..T(. I=0 . 53:|
00001dc0  43 28 49 29 3d 38 3a ed  3a 43 4c 3d 30 3a 43 52  |C(I)=8:.:CL=0:CR|
00001dd0  3d 30 3a 87 3a e6 31 33  36 0d 0b 5e 29 f2 33 64  |=0:.:.136..^).3d|
00001de0  5f 64 72 61 77 3a e6 31  35 3a 43 43 3d 30 3a 50  |_draw:.15:CC=0:P|
00001df0  50 3d 31 35 3a c8 90 20  2d 32 30 30 2c 32 30 30  |P=15:.. -200,200|
00001e00  3a f5 0d 0b 68 28 f2 6d  6f 75 73 65 28 30 29 3a  |:...h(.mouse(0):|
00001e10  f2 6d 6f 75 73 65 28 34  29 3a e7 20 43 3d 38 20  |.mouse(4):. C=8 |
00001e20  41 3d 30 3a 53 53 24 3d  22 22 0d 0b 72 1b e7 20  |A=0:SS$=""..r.. |
00001e30  41 3e 37 32 30 20 80 20  50 50 3e 30 20 80 20 50  |A>720 . PP>0 . P|
00001e40  50 3c 37 20 8c 0d 0b 7c  2d f2 64 72 61 77 5f 63  |P<7 ...|-.draw_c|
00001e50  6f 6c 3a e7 20 43 43 20  83 20 39 3d 30 20 6d 65  |ol:. CC . 9=0 me|
00001e60  73 73 3d 32 3a f2 74 65  78 74 3a e7 20 a4 6f 6b  |ss=2:.text:. .ok|
00001e70  20 8c 0d 0b 86 3b e7 20  43 43 3d 32 37 84 20 43  | ....;. CC=27. C|
00001e80  43 3d 33 36 f2 72 6f 74  61 74 65 3a f2 33 64 5f  |C=36.rotate:.3d_|
00001e90  64 72 61 77 20 8b 20 e7  20 43 43 3d 34 35 20 f2  |draw . . CC=45 .|
00001ea0  74 69 6c 74 3a f2 33 64  5f 64 72 61 77 0d 0b 90  |tilt:.3d_draw...|
00001eb0  0a cc 3a 43 52 3d 31 0d  0b 9a 37 cd 3a 50 50 3d  |..:CR=1...7.:PP=|
00001ec0  31 35 3a e7 20 43 43 3c  35 34 20 f2 64 72 61 77  |15:. CC<54 .draw|
00001ed0  5f 63 6f 6c 3a 43 43 2d  3d 31 3a e7 20 43 43 20  |_col:CC-=1:. CC |
00001ee0  83 20 39 3d 30 20 8c 20  f2 66 6c 75 73 68 0d 0b  |. 9=0 . .flush..|
00001ef0  a4 3a cd 3a e7 20 41 3e  34 35 31 80 20 41 3c 36  |.:.:. A>451. A<6|
00001f00  36 38 80 20 42 3e 2d 33  38 39 80 20 42 3c 2d 33  |68. B>-389. B<-3|
00001f10  30 30 80 20 43 43 3e 43  4c 20 80 20 43 52 3d 30  |00. CC>CL . CR=0|
00001f20  20 f2 72 65 6d 5f 73 71  0d 0b ae 20 43 52 3d 30  | .rem_sq... CR=0|
00001f30  3a fd 20 43 43 3d 35 34  20 84 20 43 3d 38 3a e7  |:. CC=54 . C=8:.|
00001f40  20 43 43 3d 35 34 20 8c  0d 0b b8 22 6d 65 73 73  | CC=54 ...."mess|
00001f50  3d 35 3a f2 74 65 78 74  3a f2 73 6f 6c 76 65 5f  |=5:.text:.solve_|
00001f60  63 75 62 65 3a f2 74 65  78 74 0d 0b c2 25 f2 73  |cube:.text...%.s|
00001f70  68 6f 77 5f 73 6f 6c 75  74 69 6f 6e 3a 42 24 28  |how_solution:B$(|
00001f80  29 3d 22 22 3a e7 20 6d  65 73 73 3d 36 20 8c 0d  |)="":. mess=6 ..|
00001f90  0b cc 3c 42 24 28 31 29  3d 22 53 6f 6c 75 74 69  |..<B$(1)="Soluti|
00001fa0  6f 6e 20 66 61 69 6c 65  64 3a 20 61 72 72 61 6e  |on failed: arran|
00001fb0  67 65 6d 65 6e 74 20 6f  66 20 63 6f 6c 6f 75 72  |gement of colour|
00001fc0  73 20 69 6e 76 61 6c 69  64 2e 22 0d 0b d6 3a 42  |s invalid."...:B|
00001fd0  24 28 32 29 3d 22 46 6f  72 20 70 6f 73 73 69 62  |$(2)="For possib|
00001fe0  6c 65 20 63 61 75 73 65  73 2c 20 73 65 65 20 74  |le causes, see t|
00001ff0  68 65 20 21 52 75 62 69  78 20 48 65 6c 70 20 66  |he !Rubix Help f|
00002000  69 6c 65 2e 22 0d 0b e0  3c 42 24 28 37 29 3d 22  |ile."...<B$(7)="|
00002010  53 6f 6c 75 74 69 6f 6e  20 66 61 69 6c 65 64 3a  |Solution failed:|
00002020  20 61 72 72 61 6e 67 65  6d 65 6e 74 20 6f 66 20  | arrangement of |
00002030  63 6f 6c 6f 75 72 73 20  69 6e 76 61 6c 69 64 2e  |colours invalid.|
00002040  22 0d 0b ea 3a 42 24 28  38 29 3d 22 46 6f 72 20  |"...:B$(8)="For |
00002050  70 6f 73 73 69 62 6c 65  20 63 61 75 73 65 73 2c  |possible causes,|
00002060  20 73 65 65 20 74 68 65  20 21 52 75 62 69 78 20  | see the !Rubix |
00002070  48 65 6c 70 20 66 69 6c  65 2e 22 0d 0b f4 30 cc  |Help file."...0.|
00002080  3a 52 24 3d 22 20 54 2b  54 32 54 2d 42 2b 42 32  |:R$=" T+T2T-B+B2|
00002090  42 2d 4c 2b 4c 32 4c 2d  52 2b 52 32 52 2d 46 2b  |B-L+L2L-R+R2R-F+|
000020a0  46 32 46 2d 50 2b 50 32  50 2d 22 0d 0b fe 2e e3  |F2F-P+P2P-".....|
000020b0  20 49 3d 30 20 b8 20 35  3a 42 24 28 49 29 3d a4  | I=0 . 5:B$(I)=.|
000020c0  65 78 74 65 6e 64 28 c1  53 53 24 2c 49 2a 32 35  |extend(.SS$,I*25|
000020d0  2b 31 2c 32 35 29 29 3a  ed 0d 0c 08 2e 52 24 3d  |+1,25)):.....R$=|
000020e0  22 20 55 20 55 b2 55 86  44 20 44 b2 44 86 4c 20  |" U U.U.D D.D.L |
000020f0  4c b2 4c 86 52 20 52 b2  52 86 46 20 46 b2 46 86  |L.L.R R.R.F F.F.|
00002100  42 20 42 b2 42 86 22 0d  0c 12 30 e3 20 49 3d 30  |B B.B."...0. I=0|
00002110  20 b8 20 35 3a 42 24 28  49 2b 36 29 3d a4 65 78  | . 5:B$(I+6)=.ex|
00002120  74 65 6e 64 28 c1 53 53  24 2c 49 2a 32 35 2b 31  |tend(.SS$,I*25+1|
00002130  2c 32 35 29 29 3a ed 0d  0c 1c 38 e7 20 53 53 24  |,25)):....8. SS$|
00002140  3d 22 22 20 42 24 28 31  29 3d 22 4e 6f 77 20 74  |="" B$(1)="Now t|
00002150  68 61 74 27 73 20 6a 75  73 74 20 73 74 75 70 69  |hat's just stupi|
00002160  64 2e 22 3a 42 24 28 37  29 3d 42 24 28 31 29 0d  |d.":B$(7)=B$(1).|
00002170  0c 26 0e cd 3a f2 64 69  73 70 6c 61 79 0d 0c 30  |.&..:.display..0|
00002180  35 cd 3a c8 99 20 22 4f  53 5f 55 70 64 61 74 65  |5.:.. "OS_Update|
00002190  4d 45 4d 43 22 2c 2c 36  34 3a c8 99 20 22 57 69  |MEMC",,64:.. "Wi|
000021a0  6d 70 5f 53 65 74 4d 6f  64 65 22 2c 6d 6f 64 65  |mp_SetMode",mode|
000021b0  3a e1 0d 0c 3a 05 3a 0d  0c 44 23 dd f2 66 6c 75  |:...:.:..D#..flu|
000021c0  73 68 3a ff 20 22 46 58  32 31 2c 30 22 3a ff 20  |sh:. "FX21,0":. |
000021d0  22 46 58 32 31 2c 39 22  3a e1 0d 0c 4e 05 3a 0d  |"FX21,9":...N.:.|
000021e0  0c 58 2b dd a4 65 78 74  65 6e 64 28 53 24 29 3a  |.X+..extend(S$):|
000021f0  ea 20 49 2c 4a 2c 54 24  3a 54 24 3d 22 22 3a e7  |. I,J,T$:T$="":.|
00002200  20 53 24 3d 22 22 20 3d  54 24 0d 0c 62 2f e3 20  | S$="" =T$..b/. |
00002210  49 3d 31 20 b8 20 a9 28  53 24 29 3a 4a 3d 97 28  |I=1 . .(S$):J=.(|
00002220  c1 53 24 2c 49 29 29 2d  36 35 3a 54 24 2b 3d c1  |.S$,I))-65:T$+=.|
00002230  52 24 2c 4a 2a 32 2c 32  29 0d 0c 6c 16 e7 20 c2  |R$,J*2,2)..l.. .|
00002240  54 24 29 3d 22 20 22 20  54 24 3d c0 54 24 29 0d  |T$)=" " T$=.T$).|
00002250  0c 76 09 ed 3a 3d 54 24  0d 0c 80 05 3a 0d 0c 8a  |.v..:=T$....:...|
00002260  2a dd f2 64 72 61 77 5f  63 6f 6c 3a ea 20 41 2c  |*..draw_col:. A,|
00002270  42 3a 41 3d 43 43 20 83  20 33 3a 42 3d 28 43 43  |B:A=CC . 3:B=(CC|
00002280  2f 33 29 20 83 20 33 0d  0c 94 2c 43 28 43 43 29  |/3) . 3...,C(CC)|
00002290  3d 50 50 3a e7 20 43 43  3c 39 20 4c 3d 34 30 2d  |=PP:. CC<9 L=40-|
000022a0  42 2a 34 30 3a 57 3d 41  2a 34 30 2d 34 30 3a 48  |B*40:W=A*40-40:H|
000022b0  3d 36 30 0d 0c 9e 2c e7  20 43 43 3e 38 20 80 20  |=60...,. CC>8 . |
000022c0  43 43 3c 31 38 20 4c 3d  34 30 2d 41 2a 34 30 3a  |CC<18 L=40-A*40:|
000022d0  57 3d 2d 36 30 3a 48 3d  34 30 2d 42 2a 34 30 0d  |W=-60:H=40-B*40.|
000022e0  0c a8 2d e7 20 43 43 3e  31 37 20 80 20 43 43 3c  |..-. CC>17 . CC<|
000022f0  32 37 20 4c 3d 2d 36 30  3a 57 3d 41 2a 34 30 2d  |27 L=-60:W=A*40-|
00002300  34 30 3a 48 3d 34 30 2d  42 2a 34 30 0d 0c b2 2c  |40:H=40-B*40...,|
00002310  e7 20 43 43 3e 32 36 20  80 20 43 43 3c 33 36 20  |. CC>26 . CC<36 |
00002320  4c 3d 41 2a 34 30 2d 34  30 3a 57 3d 36 30 3a 48  |L=A*40-40:W=60:H|
00002330  3d 34 30 2d 42 2a 34 30  0d 0c bc 2c e7 20 43 43  |=40-B*40...,. CC|
00002340  3e 33 35 20 80 20 43 43  3c 34 35 20 4c 3d 36 30  |>35 . CC<45 L=60|
00002350  3a 57 3d 34 30 2d 41 2a  34 30 3a 48 3d 34 30 2d  |:W=40-A*40:H=40-|
00002360  42 2a 34 30 0d 0c c6 2b  43 43 2b 3d 31 3a e7 20  |B*40...+CC+=1:. |
00002370  43 43 3e 34 35 20 4c 3d  42 2a 34 30 2d 34 30 3a  |CC>45 L=B*40-40:|
00002380  57 3d 41 2a 34 30 2d 34  30 3a 48 3d 2d 36 30 0d  |W=A*40-40:H=-60.|
00002390  0c d0 35 f2 33 64 5f 70  6f 69 6e 74 28 30 29 3a  |..5.3d_point(0):|
000023a0  e6 20 31 32 38 2b b0 58  28 30 29 2c 59 28 30 29  |. 128+.X(0),Y(0)|
000023b0  29 3a e6 50 50 3a c8 90  20 58 28 30 29 2c 59 28  |):.PP:.. X(0),Y(|
000023c0  30 29 3a e1 0d 0c da 05  3a 0d 0c e4 39 dd f2 72  |0):.....:...9..r|
000023d0  65 6d 5f 73 71 3a 50 50  3d 38 3a f2 64 72 61 77  |em_sq:PP=8:.draw|
000023e0  5f 63 6f 6c 3a 43 43 2d  3d 32 3a 50 50 3d 31 35  |_col:CC-=2:PP=15|
000023f0  3a f2 64 72 61 77 5f 63  6f 6c 3a 43 43 2d 3d 31  |:.draw_col:CC-=1|
00002400  3a e1 0d 0c ee 05 3a 0d  0c f8 17 dd f2 33 64 5f  |:.....:......3d_|
00002410  64 72 61 77 3a e7 20 a6  2d 31 31 33 20 e1 0d 0d  |draw:. .-113 ...|
00002420  02 33 51 3d 33 2d 51 3a  c8 99 20 36 2c 31 31 32  |.3Q=3-Q:.. 6,112|
00002430  2c 51 3a c8 96 3a e7 20  74 75 72 6e 25 3d 31 20  |,Q:..:. turn%=1 |
00002440  80 20 66 61 73 74 25 3d  31 20 74 75 72 6e 25 3d  |. fast%=1 turn%=|
00002450  32 0d 0d 0c 20 ea 20 49  3a fb 31 33 36 3a db 3a  |2... . I:.136:.:|
00002460  e7 20 76 69 65 77 3d 32  20 f2 66 61 63 65 28 37  |. view=2 .face(7|
00002470  29 0d 0d 16 1b e7 20 94  28 53 29 3e 33 35 39 20  |)..... .(S)>359 |
00002480  53 3d 53 2d 33 36 30 2a  b4 28 53 29 0d 0d 20 1b  |S=S-360*.(S).. .|
00002490  e7 20 94 28 50 29 3e 33  35 39 20 50 3d 50 2d 33  |. .(P)>359 P=P-3|
000024a0  36 30 2a b4 28 50 29 0d  0d 2a 25 e7 20 50 3c 34  |60*.(P)..*%. P<4|
000024b0  35 20 f2 66 61 63 65 28  34 29 3a f2 66 61 63 65  |5 .face(4):.face|
000024c0  28 33 29 3a f2 66 61 63  65 28 31 29 0d 0d 34 2c  |(3):.face(1)..4,|
000024d0  e7 20 50 3e 34 34 20 80  20 50 3c 39 30 20 f2 66  |. P>44 . P<90 .f|
000024e0  61 63 65 28 33 29 3a f2  66 61 63 65 28 34 29 3a  |ace(3):.face(4):|
000024f0  f2 66 61 63 65 28 31 29  0d 0d 3e 2d e7 20 50 3e  |.face(1)..>-. P>|
00002500  38 39 20 80 20 50 3c 31  33 35 20 f2 66 61 63 65  |89 . P<135 .face|
00002510  28 35 29 3a f2 66 61 63  65 28 34 29 3a f2 66 61  |(5):.face(4):.fa|
00002520  63 65 28 31 29 0d 0d 48  2e e7 20 50 3e 31 33 34  |ce(1)..H.. P>134|
00002530  20 80 20 50 3c 31 38 30  20 f2 66 61 63 65 28 34  | . P<180 .face(4|
00002540  29 3a f2 66 61 63 65 28  35 29 3a f2 66 61 63 65  |):.face(5):.face|
00002550  28 31 29 0d 0d 52 2e e7  20 50 3e 31 37 39 20 80  |(1)..R.. P>179 .|
00002560  20 50 3c 32 32 35 20 f2  66 61 63 65 28 32 29 3a  | P<225 .face(2):|
00002570  f2 66 61 63 65 28 35 29  3a f2 66 61 63 65 28 31  |.face(5):.face(1|
00002580  29 0d 0d 5c 2e e7 20 50  3e 32 32 34 20 80 20 50  |)..\.. P>224 . P|
00002590  3c 32 37 30 20 f2 66 61  63 65 28 35 29 3a f2 66  |<270 .face(5):.f|
000025a0  61 63 65 28 32 29 3a f2  66 61 63 65 28 31 29 0d  |ace(2):.face(1).|
000025b0  0d 66 2e e7 20 50 3e 32  36 39 20 80 20 50 3c 33  |.f.. P>269 . P<3|
000025c0  31 35 20 f2 66 61 63 65  28 33 29 3a f2 66 61 63  |15 .face(3):.fac|
000025d0  65 28 32 29 3a f2 66 61  63 65 28 31 29 0d 0d 70  |e(2):.face(1)..p|
000025e0  29 fb 30 3a e7 20 50 3e  33 31 34 20 f2 66 61 63  |).0:. P>314 .fac|
000025f0  65 28 32 29 3a f2 66 61  63 65 28 33 29 3a f2 66  |e(2):.face(3):.f|
00002600  61 63 65 28 31 29 0d 0d  7a 38 ef 32 38 2c 32 36  |ace(1)..z8.28,26|
00002610  2c 33 31 2c 33 33 2c 32  37 3a f1 22 da c4 c4 c4  |,31,33,27:."....|
00002620  c4 c4 c4 bf b3 52 65 6d  6f 76 65 b3 b3 53 71 75  |.....Remove..Squ|
00002630  61 72 65 b3 c0 c4 c4 c4  c4 c4 c4 d9 22 3b 0d 0d  |are.........";..|
00002640  84 34 ef 32 38 2c 32 31  2c 33 31 2c 32 34 2c 32  |.4.28,21,31,24,2|
00002650  38 3a f1 22 da c4 c4 bf  b3 4f 4b b3 c0 c4 c4 d9  |8:.".....OK.....|
00002660  22 3b 3a ef 32 36 2c 32  39 2c 34 30 30 3b 34 34  |";:.26,29,400;44|
00002670  30 3b 0d 0d 8e 15 f2 64  72 61 77 5f 70 61 6c 3a  |0;.....draw_pal:|
00002680  f2 74 65 78 74 3a e1 0d  0d 98 05 3a 0d 0d a2 31  |.text:.....:...1|
00002690  dd f2 74 65 78 74 3a ef  33 30 3a e3 20 49 3d 31  |..text:.30:. I=1|
000026a0  20 b8 20 35 3a f1 89 28  34 30 2b 35 2a 28 49 3e  | . 5:..(40+5*(I>|
000026b0  32 29 29 3a ed 3a f7 20  2b 6d 65 73 73 0d 0d ac  |2)):.:. +mess...|
000026c0  c2 dc 20 22 48 6f 6c 64  20 79 6f 75 72 20 63 75  |.. "Hold your cu|
000026d0  62 65 20 69 6e 20 61 20  70 6f 73 69 74 69 6f 6e  |be in a position|
000026e0  20 6d 61 74 63 68 69 6e  67 22 2c 22 74 68 61 74  | matching","that|
000026f0  20 6f 6e 20 74 68 65 20  73 63 72 65 65 6e 2e 20  | on the screen. |
00002700  43 6c 69 63 6b 20 53 65  6c 65 63 74 22 2c 22 6f  |Click Select","o|
00002710  6e 20 74 68 65 20 63 6f  6c 6f 75 72 20 63 6f 72  |n the colour cor|
00002720  72 65 73 70 6f 6e 64 69  6e 67 20 74 6f 20 74 68  |responding to th|
00002730  65 22 2c 22 68 69 67 68  6c 69 67 68 74 65 64 20  |e","highlighted |
00002740  73 71 75 61 72 65 2e 20  49 66 20 79 6f 75 20 6d  |square. If you m|
00002750  61 6b 65 20 61 22 2c 22  6d 69 73 74 61 6b 65 2c  |ake a","mistake,|
00002760  20 63 6c 69 63 6b 20 6f  6e 20 52 65 6d 6f 76 65  | click on Remove|
00002770  20 53 71 75 61 72 65 2e  22 2c 22 22 2c 22 22 0d  | Square.","","".|
00002780  0d b6 8e dc 20 22 43 6c  69 63 6b 20 6f 6e 20 4f  |.... "Click on O|
00002790  4b 20 74 6f 20 63 6f 6e  74 69 6e 75 65 2c 20 6f  |K to continue, o|
000027a0  72 20 6f 6e 20 52 65 6d  6f 76 65 22 2c 22 53 71  |r on Remove","Sq|
000027b0  75 61 72 65 20 69 66 20  79 6f 75 20 68 61 76 65  |uare if you have|
000027c0  20 6d 61 64 65 20 61 20  6d 69 73 74 61 6b 65 2e  | made a mistake.|
000027d0  22 2c 22 49 66 20 79 6f  75 20 63 6c 69 63 6b 20  |","If you click |
000027e0  6f 6e 20 4f 4b 2c 20 79  6f 75 20 77 69 6c 6c 20  |on OK, you will |
000027f0  6e 6f 74 22 2c 22 62 65  20 61 62 6c 65 20 74 6f  |not","be able to|
00002800  20 67 6f 20 62 61 63 6b  2e 22 2c 22 22 0d 0d c0  | go back.",""...|
00002810  54 dc 20 22 52 6f 74 61  74 65 20 79 6f 75 72 20  |T. "Rotate your |
00002820  63 75 62 65 20 74 6f 20  6d 61 74 63 68 20 74 68  |cube to match th|
00002830  65 20 72 6f 74 61 74 69  6f 6e 22 2c 22 6f 66 20  |e rotation","of |
00002840  74 68 65 20 63 75 62 65  20 6f 6e 20 74 68 65 20  |the cube on the |
00002850  73 63 72 65 65 6e 2e 22  2c 22 22 2c 22 22 2c 22  |screen.","","","|
00002860  22 0d 0d ca 86 dc 20 22  43 6c 69 63 6b 20 53 65  |"..... "Click Se|
00002870  6c 65 63 74 20 6f 6e 20  74 68 65 20 63 6f 6c 6f  |lect on the colo|
00002880  75 72 20 63 6f 72 72 65  73 70 6f 6e 64 69 6e 67  |ur corresponding|
00002890  60 22 2c 22 74 6f 20 74  68 65 20 68 69 67 68 6c  |`","to the highl|
000028a0  69 67 68 74 65 64 20 73  71 75 61 72 65 2e 20 49  |ighted square. I|
000028b0  66 20 79 6f 75 20 6d 61  6b 65 20 61 60 22 2c 22  |f you make a`","|
000028c0  6d 69 73 74 61 6b 65 2c  20 63 6c 69 63 6b 20 6f  |mistake, click o|
000028d0  6e 20 52 65 6d 6f 76 65  20 53 71 75 61 72 65 2e  |n Remove Square.|
000028e0  22 2c 22 22 2c 22 22 0d  0d d4 29 dc 20 22 57 6f  |","",""...). "Wo|
000028f0  72 6b 69 6e 67 2e 2e 2e  22 2c 22 22 2c 22 50 6c  |rking...","","Pl|
00002900  65 61 73 65 20 77 61 69  74 22 2c 22 22 2c 22 22  |ease wait","",""|
00002910  0d 0d de 5d dc 20 22 53  6f 6c 75 74 69 6f 6e 20  |...]. "Solution |
00002920  66 61 69 6c 65 64 20 2d  20 63 6f 6c 6f 75 72 20  |failed - colour |
00002930  61 72 72 61 6e 67 65 6d  65 6e 74 22 2c 22 69 6e  |arrangement","in|
00002940  76 61 6c 69 64 2e 20 53  65 65 20 48 65 6c 70 20  |valid. See Help |
00002950  66 69 6c 65 20 66 6f 72  20 6d 6f 72 65 20 69 6e  |file for more in|
00002960  66 6f 2e 22 2c 22 22 2c  22 22 2c 22 22 0d 0d e8  |fo.","","",""...|
00002970  19 ef 33 30 3a fb 30 3a  e3 20 49 3d 31 20 b8 20  |..30:.0:. I=1 . |
00002980  35 3a f3 20 51 24 0d 0d  f2 1d f1 20 51 24 3b 3a  |5:. Q$..... Q$;:|
00002990  e7 20 c2 51 24 29 3d 22  60 22 20 ef 31 32 37 20  |. .Q$)="`" .127 |
000029a0  8b 20 f1 0d 0d fc 12 ed  3a c8 99 20 36 2c 31 31  |. ......:.. 6,11|
000029b0  33 2c 51 3a e1 0d 0e 06  05 3a 0d 0e 10 30 dd f2  |3,Q:.....:...0..|
000029c0  66 61 63 65 28 4c 4c 29  3a ea 20 47 2c 48 2c 4c  |face(LL):. G,H,L|
000029d0  2c 4d 2c 52 2c 56 2c 57  3a e7 20 76 69 65 77 3d  |,M,R,V,W:. view=|
000029e0  32 20 80 20 4c 4c 3d 31  20 e1 0d 0e 1a 2a e7 20  |2 . LL=1 ....*. |
000029f0  4c 4c 3d 37 20 80 20 53  3e 30 20 4c 4c 3d 31 20  |LL=7 . S>0 LL=1 |
00002a00  8b 20 e7 20 4c 4c 3d 37  20 80 20 53 3c 3d 30 20  |. . LL=7 . S<=0 |
00002a10  4c 4c 3d 36 0d 0e 24 1b  f7 20 2b 31 3a 47 3d 4c  |LL=6..$.. +1:G=L|
00002a20  4c 2a 39 2d 39 3a e7 20  4c 4c 3c 3e 31 20 8c 0d  |L*9-9:. LL<>1 ..|
00002a30  0e 2e 30 dc 20 36 30 2c  2d 36 30 2c 36 30 2c 20  |..0. 60,-60,60, |
00002a40  36 30 2c 36 30 2c 36 30  2c 20 2d 36 30 2c 2d 36  |60,60,60, -60,-6|
00002a50  30 2c 36 30 2c 20 2d 36  30 2c 36 30 2c 36 30 0d  |0,60, -60,60,60.|
00002a60  0e 38 34 dc 20 36 30 2c  2d 36 30 2c 36 30 2c 20  |.84. 60,-60,60, |
00002a70  2d 36 30 2c 2d 36 30 2c  36 30 2c 20 36 30 2c 2d  |-60,-60,60, 60,-|
00002a80  36 30 2c 2d 36 30 2c 20  2d 36 30 2c 2d 36 30 2c  |60,-60, -60,-60,|
00002a90  2d 36 30 0d 0e 42 34 dc  20 2d 36 30 2c 2d 36 30  |-60..B4. -60,-60|
00002aa0  2c 36 30 2c 20 2d 36 30  2c 36 30 2c 36 30 2c 20  |,60, -60,60,60, |
00002ab0  2d 36 30 2c 2d 36 30 2c  2d 36 30 2c 20 2d 36 30  |-60,-60,-60, -60|
00002ac0  2c 36 30 2c 2d 36 30 0d  0e 4c 30 dc 20 2d 36 30  |,60,-60..L0. -60|
00002ad0  2c 36 30 2c 36 30 2c 20  36 30 2c 36 30 2c 36 30  |,60,60, 60,60,60|
00002ae0  2c 20 2d 36 30 2c 36 30  2c 2d 36 30 2c 20 36 30  |, -60,60,-60, 60|
00002af0  2c 36 30 2c 2d 36 30 0d  0e 56 30 dc 20 36 30 2c  |,60,-60..V0. 60,|
00002b00  36 30 2c 36 30 2c 20 36  30 2c 2d 36 30 2c 36 30  |60,60, 60,-60,60|
00002b10  2c 20 36 30 2c 36 30 2c  2d 36 30 2c 20 36 30 2c  |, 60,60,-60, 60,|
00002b20  2d 36 30 2c 2d 36 30 0d  0e 60 34 dc 20 36 30 2c  |-60,-60..`4. 60,|
00002b30  36 30 2c 2d 36 30 2c 20  36 30 2c 2d 36 30 2c 2d  |60,-60, 60,-60,-|
00002b40  36 30 2c 20 2d 36 30 2c  36 30 2c 2d 36 30 2c 20  |60, -60,60,-60, |
00002b50  2d 36 30 2c 2d 36 30 2c  2d 36 30 0d 0e 6a 24 e3  |-60,-60,-60..j$.|
00002b60  20 4d 3d 31 33 20 b8 20  31 32 2a 4c 4c 3a f3 20  | M=13 . 12*LL:. |
00002b70  56 3a ed 3a e7 20 47 3d  34 35 20 47 3d 35 33 0d  |V:.:. G=45 G=53.|
00002b80  0e 74 26 cd 3a e3 20 4d  3d 31 20 b8 20 34 3a f3  |.t&.:. M=1 . 4:.|
00002b90  20 4c 2c 57 2c 48 3a f2  33 64 5f 70 6f 69 6e 74  | L,W,H:.3d_point|
00002ba0  28 4d 29 3a ed 0d 0e 7e  0f e7 20 74 75 72 6e 25  |(M):...~.. turn%|
00002bb0  3d 32 20 8c 0d 0e 88 1e  e6 38 3a ec 20 58 28 31  |=2 ......8:. X(1|
00002bc0  29 2c 59 28 31 29 3a ec  20 58 28 32 29 2c 59 28  |),Y(1):. X(2),Y(|
00002bd0  32 29 0d 0e 92 21 f0 20  38 35 2c 58 28 33 29 2c  |2)...!. 85,X(3),|
00002be0  59 28 33 29 3a f0 20 38  35 2c 58 28 34 29 2c 59  |Y(3):. 85,X(4),Y|
00002bf0  28 34 29 0d 0e 9c 1e e6  30 3a ec 20 58 28 31 29  |(4).....0:. X(1)|
00002c00  2c 59 28 31 29 3a df 20  58 28 32 29 2c 59 28 32  |,Y(1):. X(2),Y(2|
00002c10  29 0d 0e a6 27 df 20 58  28 34 29 2c 59 28 34 29  |)...'. X(4),Y(4)|
00002c20  3a df 20 58 28 33 29 2c  59 28 33 29 3a df 20 58  |:. X(3),Y(3):. X|
00002c30  28 31 29 2c 59 28 31 29  0d 0e b0 23 cc 3a e3 20  |(1),Y(1)...#.:. |
00002c40  57 3d 31 20 b8 20 39 20  88 20 34 3a e3 20 56 3d  |W=1 . 9 . 4:. V=|
00002c50  30 20 b8 20 32 3a 52 3d  56 2b 57 0d 0e ba 2a e6  |0 . 2:R=V+W...*.|
00002c60  20 43 28 47 29 3a ec 20  a4 78 28 52 29 2c a4 79  | C(G):. .x(R),.y|
00002c70  28 52 29 3a ec 20 a4 78  28 52 2b 31 29 2c a4 79  |(R):. .x(R+1),.y|
00002c80  28 52 2b 31 29 0d 0e c4  2d f0 20 38 35 2c a4 78  |(R+1)...-. 85,.x|
00002c90  28 52 2b 34 29 2c a4 79  28 52 2b 34 29 3a f0 20  |(R+4),.y(R+4):. |
00002ca0  38 35 2c a4 78 28 52 2b  35 29 2c a4 79 28 52 2b  |85,.x(R+5),.y(R+|
00002cb0  35 29 0d 0e ce 14 e6 30  3a ec 20 a4 78 28 52 29  |5).....0:. .x(R)|
00002cc0  2c a4 79 28 52 29 0d 0e  d8 27 df 20 a4 78 28 52  |,.y(R)...'. .x(R|
00002cd0  2b 31 29 2c a4 79 28 52  2b 31 29 3a df 20 a4 78  |+1),.y(R+1):. .x|
00002ce0  28 52 2b 35 29 2c a4 79  28 52 2b 35 29 0d 0e e2  |(R+5),.y(R+5)...|
00002cf0  26 df 20 a4 78 28 52 2b  34 29 2c a4 79 28 52 2b  |&. .x(R+4),.y(R+|
00002d00  34 29 3a df 20 a4 78 28  52 29 2c a4 79 28 52 29  |4):. .x(R),.y(R)|
00002d10  3a e6 39 0d 0e ec 15 47  2b 3d 31 2b 32 2a 28 4c  |:.9....G+=1+2*(L|
00002d20  4c 3d 36 29 3a ed 3a ed  0d 0e f6 0a cd 3a e6 39  |L=6):.:......:.9|
00002d30  3a e1 0d 0f 00 05 3a 0d  0f 0a 3a dd a4 78 28 51  |:.....:...:..x(Q|
00002d40  29 3d 4d 28 51 2c 31 29  2a 58 28 31 29 2b 4d 28  |)=M(Q,1)*X(1)+M(|
00002d50  51 2c 32 29 2a 58 28 32  29 2b 4d 28 51 2c 33 29  |Q,2)*X(2)+M(Q,3)|
00002d60  2a 58 28 33 29 2b 4d 28  51 2c 34 29 2a 58 28 34  |*X(3)+M(Q,4)*X(4|
00002d70  29 0d 0f 14 05 3a 0d 0f  1e 3a dd a4 79 28 51 29  |)....:...:..y(Q)|
00002d80  3d 4d 28 51 2c 31 29 2a  59 28 31 29 2b 4d 28 51  |=M(Q,1)*Y(1)+M(Q|
00002d90  2c 32 29 2a 59 28 32 29  2b 4d 28 51 2c 33 29 2a  |,2)*Y(2)+M(Q,3)*|
00002da0  59 28 33 29 2b 4d 28 51  2c 34 29 2a 59 28 34 29  |Y(3)+M(Q,4)*Y(4)|
00002db0  0d 0f 28 05 3a 0d 0f 32  29 dd a4 6f 6b 3a ea 20  |..(.:..2)..ok:. |
00002dc0  43 48 3a 6d 65 73 73 3d  34 3a f5 3a f2 6d 6f 75  |CH:mess=4:.:.mou|
00002dd0  73 65 28 34 29 3a e7 20  43 3d 38 20 3d 30 0d 0f  |se(4):. C=8 =0..|
00002de0  3c 2f 43 48 3d 30 3a e7  20 41 3e 32 39 31 20 80  |</CH=0:. A>291 .|
00002df0  20 41 3c 33 38 30 20 80  20 42 3e 2d 33 38 39 20  | A<380 . B>-389 |
00002e00  80 20 42 3c 2d 33 33 32  20 43 48 3d 31 0d 0f 46  |. B<-332 CH=1..F|
00002e10  2a e7 20 41 3e 34 35 31  20 80 20 41 3c 36 36 38  |*. A>451 . A<668|
00002e20  20 80 20 42 3e 2d 33 38  39 20 80 20 42 3c 2d 33  | . B>-389 . B<-3|
00002e30  30 30 20 43 48 3d 32 0d  0f 50 20 fd 20 43 48 3e  |00 CH=2..P . CH>|
00002e40  30 3a e7 20 43 48 3d 31  20 43 4c 3d 43 43 3a f2  |0:. CH=1 CL=CC:.|
00002e50  74 65 78 74 3a 3d 31 0d  0f 5a 22 50 50 3d 31 35  |text:=1..Z"PP=15|
00002e60  3a 43 43 2d 3d 31 3a f2  64 72 61 77 5f 63 6f 6c  |:CC-=1:.draw_col|
00002e70  3a 43 43 2d 3d 31 3a 3d  30 0d 0f 64 05 3a 0d 0f  |:CC-=1:=0..d.:..|
00002e80  6e 19 dd f2 61 64 6a 75  73 74 3a e7 20 53 53 24  |n...adjust:. SS$|
00002e90  3d 22 22 20 8c 20 e1 0d  0f 78 1b ea 20 49 2c 50  |="" . ...x.. I,P|
00002ea0  2c 53 24 3a f5 3a 50 3d  a7 53 53 24 2c 22 43 2d  |,S$:.:P=.SS$,"C-|
00002eb0  22 29 0d 0f 82 0f 53 24  3d 22 22 3a e7 20 50 20  |")....S$="":. P |
00002ec0  8c 0d 0f 8c 16 e3 20 49  3d 50 20 b8 20 a9 28 53  |...... I=P . .(S|
00002ed0  53 24 29 20 88 20 32 0d  0f 96 12 c8 8e 20 c1 53  |S$) . 2...... .S|
00002ee0  53 24 2c 49 2c 31 29 20  ca 0d 0f a0 11 c9 20 22  |S$,I,1) ...... "|
00002ef0  46 22 3a 53 24 2b 3d 22  4c 22 0d 0f aa 11 c9 20  |F":S$+="L"..... |
00002f00  22 4c 22 3a 53 24 2b 3d  22 50 22 0d 0f b4 11 c9  |"L":S$+="P".....|
00002f10  20 22 50 22 3a 53 24 2b  3d 22 52 22 0d 0f be 11  | "P":S$+="R"....|
00002f20  c9 20 22 52 22 3a 53 24  2b 3d 22 46 22 0d 0f c8  |. "R":S$+="F"...|
00002f30  13 7f 3a 53 24 2b 3d c1  53 53 24 2c 49 2c 31 29  |..:S$+=.SS$,I,1)|
00002f40  0d 0f d2 15 cb 3a 53 24  2b 3d c1 53 53 24 2c 49  |.....:S$+=.SS$,I|
00002f50  2b 31 2c 31 29 0d 0f dc  1a ed 3a 53 53 24 3d c0  |+1,1).....:SS$=.|
00002f60  53 53 24 2c 50 2d 31 29  2b c1 53 24 2c 33 29 0d  |SS$,P-1)+.S$,3).|
00002f70  0f e6 0d cd 3a fd 20 50  3d 30 3a e1 0d 0f f0 05  |....:. P=0:.....|
00002f80  3a 0d 0f fa 37 dd f2 6d  6f 75 73 65 28 4b 29 3a  |:...7..mouse(K):|
00002f90  f5 3a c8 97 20 41 2c 42  2c 43 3a e7 20 a6 2d 31  |.:.. A,B,C:. .-1|
00002fa0  31 33 20 43 3d 38 3a 4b  3d 38 3a c8 97 20 b8 20  |13 C=8:K=8:.. . |
00002fb0  33 33 36 2c 2d 33 36 30  0d 10 04 30 4e 3d a6 28  |336,-360...0N=.(|
00002fc0  30 29 2d 34 38 3a fd 20  43 3d 4b 20 84 20 28 4e  |0)-48:. C=K . (N|
00002fd0  3e 30 20 80 20 4e 3c 37  29 20 84 20 4e 3d 37 39  |>0 . N<7) . N=79|
00002fe0  20 84 20 4e 3d 2d 33 35  0d 10 0e 32 e7 20 4e 3d  | . N=-35...2. N=|
00002ff0  37 39 20 41 3d 35 30 30  3a 42 3d 2d 33 36 30 3a  |79 A=500:B=-360:|
00003000  e1 20 8b 20 e7 20 4e 3d  2d 33 35 20 41 3d 33 30  |. . . N=-35 A=30|
00003010  30 3a 42 3d 2d 33 36 30  3a e1 0d 10 18 27 e7 20  |0:B=-360:....'. |
00003020  43 3d 4b 20 50 50 3d b0  41 2c 42 29 20 83 20 38  |C=K PP=.A,B) . 8|
00003030  3a e1 20 8b 20 50 50 3d  4e 3a 41 3d 38 30 30 3a  |:. . PP=N:A=800:|
00003040  e1 0d 10 22 05 3a 0d 10  2c 29 dd f2 33 64 5f 70  |...".:..,)..3d_p|
00003050  6f 69 6e 74 28 4e 29 3a  ea 20 42 39 2c 56 2c 4b  |oint(N):. B9,V,K|
00003060  2c 4c 39 2c 42 41 2c 54  2c 59 31 2c 4a 2c 46 0d  |,L9,BA,T,Y1,J,F.|
00003070  10 36 1c 46 3d 30 2d 28  4c 3d 30 29 2d 32 2a 28  |.6.F=0-(L=0)-2*(|
00003080  57 3d 30 29 3a c8 8e 20  46 20 ca 0d 10 40 21 c9  |W=0):.. F ...@!.|
00003090  20 30 3a 42 39 3d 99 28  28 57 29 2f 28 4c 29 29  | 0:B9=.((W)/(L))|
000030a0  3a 56 3d 28 57 29 2f b5  28 42 39 29 0d 10 4a 12  |:V=(W)/.(B9)..J.|
000030b0  c9 20 31 3a 42 39 3d af  2f 32 3a 56 3d 57 0d 10  |. 1:B9=./2:V=W..|
000030c0  54 10 c9 20 32 3a 42 39  3d 30 3a 56 3d 4c 0d 10  |T.. 2:B9=0:V=L..|
000030d0  5e 10 c9 20 33 3a 42 39  3d 30 3a 56 3d 30 0d 10  |^.. 3:B9=0:V=0..|
000030e0  68 24 cb 3a 4b 3d 56 2a  b5 28 28 b2 50 29 2b 42  |h$.:K=V*.((.P)+B|
000030f0  39 29 3a 4c 39 3d 56 2a  9b 28 28 b2 50 29 2b 42  |9):L9=V*.((.P)+B|
00003100  39 29 0d 10 72 1d 46 3d  30 2d 28 48 3d 30 29 2d  |9)..r.F=0-(H=0)-|
00003110  32 2a 28 4c 39 3d 30 29  3a c8 8e 20 46 20 ca 0d  |2*(L9=0):.. F ..|
00003120  10 7c 20 c9 20 30 3a 42  41 3d 99 28 28 48 29 2f  |.| . 0:BA=.((H)/|
00003130  4c 39 29 3a 54 3d 28 48  29 2f b5 28 42 41 29 0d  |L9):T=(H)/.(BA).|
00003140  10 86 13 c9 20 31 2c 33  3a 42 41 3d 30 3a 54 3d  |.... 1,3:BA=0:T=|
00003150  4c 39 0d 10 90 12 c9 20  32 3a 42 41 3d af 2f 32  |L9..... 2:BA=./2|
00003160  3a 54 3d 48 0d 10 9a 24  cb 3a 59 31 3d 54 2a b5  |:T=H...$.:Y1=T*.|
00003170  28 42 41 2b 28 b2 53 29  29 3a 4a 3d 54 2a 9b 28  |(BA+(.S)):J=T*.(|
00003180  42 41 2b 28 b2 53 29 29  0d 10 a4 2c 58 28 4e 29  |BA+(.S))...,X(N)|
00003190  3d 4b 2a 31 36 30 30 2f  28 34 30 30 2b 4a 29 3a  |=K*1600/(400+J):|
000031a0  59 28 4e 29 3d 59 31 2a  31 36 30 30 2f 28 34 30  |Y(N)=Y1*1600/(40|
000031b0  30 2b 4a 29 0d 10 ae 05  e1 0d 10 b8 05 3a 0d 10  |0+J).........:..|
000031c0  c2 26 dd f2 72 6f 74 61  74 65 3a 6d 65 73 73 3d  |.&..rotate:mess=|
000031d0  33 3a e3 20 49 3d 31 20  b8 20 31 38 3a 74 75 72  |3:. I=1 . 18:tur|
000031e0  6e 25 3d 31 0d 10 cc 24  50 2b 3d 35 3a f2 33 64  |n%=1...$P+=5:.3d|
000031f0  5f 64 72 61 77 3a ed 3a  6d 65 73 73 3d 34 3a 74  |_draw:.:mess=4:t|
00003200  75 72 6e 25 3d 30 3a e1  0d 10 d6 05 3a 0d 10 e0  |urn%=0:.....:...|
00003210  2b dd f2 74 69 6c 74 3a  6d 65 73 73 3d 33 3a 76  |+..tilt:mess=3:v|
00003220  69 65 77 3d 32 3a e3 20  49 3d 31 20 b8 20 31 32  |iew=2:. I=1 . 12|
00003230  3a 74 75 72 6e 25 3d 31  0d 10 ea 24 53 2d 3d 35  |:turn%=1...$S-=5|
00003240  3a f2 33 64 5f 64 72 61  77 3a ed 3a 6d 65 73 73  |:.3d_draw:.:mess|
00003250  3d 34 3a 74 75 72 6e 25  3d 30 3a e1 0d 10 f4 05  |=4:turn%=0:.....|
00003260  3a 0d 10 fe 25 dd f2 73  6f 6c 76 65 5f 63 75 62  |:...%..solve_cub|
00003270  65 3a 42 45 24 3d 22 22  3a 53 52 24 3d 22 22 3a  |e:BE$="":SR$="":|
00003280  53 53 24 3d 22 22 0d 11  08 29 44 28 29 3d 43 28  |SS$=""...)D()=C(|
00003290  29 3a ea 20 41 2c 42 2c  43 2c 44 2c 46 2c 49 2c  |):. A,B,C,D,F,I,|
000032a0  4a 2c 54 2c 41 24 2c 42  24 2c 46 24 2c 56 24 0d  |J,T,A$,B$,F$,V$.|
000032b0  11 12 22 f5 3a 41 24 28  30 29 3d 22 22 3a 54 2b  |..".:A$(0)="":T+|
000032c0  3d 31 3a e7 20 54 3e 35  20 6d 65 73 73 3d 36 3a  |=1:. T>5 mess=6:|
000032d0  e1 0d 11 1c 1a f2 61 64  6a 75 73 74 3a e3 20 4a  |......adjust:. J|
000032e0  3d 31 20 b8 20 34 3a f7  20 2b 37 0d 11 26 20 41  |=1 . 4:. +7..& A|
000032f0  24 28 4a 29 3d 22 22 3a  e3 20 49 3d 31 20 b8 20  |$(J)="":. I=1 . |
00003300  32 34 3a f3 20 41 2c 42  2c 41 24 0d 11 30 25 e7  |24:. A,B,A$..0%.|
00003310  20 43 28 41 29 3d 43 28  32 32 29 20 80 20 43 28  | C(A)=C(22) . C(|
00003320  42 29 3d 43 28 34 29 20  41 24 28 4a 29 3d 41 24  |B)=C(4) A$(J)=A$|
00003330  0d 11 3a 18 ed 3a f2 73  70 69 6e 3a ed 3a 56 24  |..:..:.spin:.:V$|
00003340  3d c4 39 2c 22 20 22 29  0d 11 44 2d 46 3d 30 3a  |=.9," ")..D-F=0:|
00003350  e7 20 41 24 28 31 29 2b  41 24 28 32 29 2b 41 24  |. A$(1)+A$(2)+A$|
00003360  28 33 29 2b 41 24 28 34  29 3c 3e 22 22 20 f2 63  |(3)+A$(4)<>"" .c|
00003370  68 6f 6f 73 65 0d 11 4e  24 fd 20 41 24 28 31 29  |hoose..N$. A$(1)|
00003380  2b 41 24 28 32 29 2b 41  24 28 33 29 2b 41 24 28  |+A$(2)+A$(3)+A$(|
00003390  34 29 3d 22 22 3a 54 3d  30 0d 11 58 1a f4 20 20  |4)="":T=0..X..  |
000033a0  20 20 2a 2a 2a 20 54 6f  70 20 45 64 67 65 73 20  |  *** Top Edges |
000033b0  2a 2a 2a 0d 11 62 43 dc  20 31 2c 33 37 2c 54 2d  |***..bC. 1,37,T-|
000033c0  4c 2b 54 2b 46 2b 2c 20  20 33 2c 31 30 2c 4c 2b  |L+T+F+,  3,10,L+|
000033d0  46 2b 2c 20 20 20 20 20  20 35 2c 32 38 2c 52 2d  |F+,      5,28,R-|
000033e0  46 2d 2c 20 20 20 20 20  20 37 2c 31 39 2c 54 2b  |F-,      7,19,T+|
000033f0  4c 2b 54 2d 46 2b 0d 11  6c 40 dc 20 31 30 2c 33  |L+T-F+..l@. 10,3|
00003400  2c 4c 32 42 2b 46 32 2c  20 20 20 20 31 32 2c 34  |,L2B+F2,    12,4|
00003410  31 2c 54 2b 4c 2b 54 2d  2c 20 20 20 31 34 2c 32  |1,T+L+T-,   14,2|
00003420  31 2c 54 2b 4c 2d 54 2d  2c 20 20 20 31 36 2c 34  |1,T+L-T-,   16,4|
00003430  38 2c 42 2b 46 32 0d 11  76 3e dc 20 31 39 2c 37  |8,B+F2..v>. 19,7|
00003440  2c 22 22 2c 20 20 20 20  20 20 20 20 32 31 2c 31  |,"",        21,1|
00003450  34 2c 46 2b 2c 20 20 20  20 20 20 20 32 33 2c 33  |4,F+,       23,3|
00003460  30 2c 46 2d 2c 20 20 20  20 20 20 20 32 35 2c 34  |0,F-,       25,4|
00003470  36 2c 46 32 0d 11 80 40  dc 20 32 38 2c 35 2c 52  |6,F2...@. 28,5,R|
00003480  32 42 2d 46 32 2c 20 20  20 20 33 30 2c 32 33 2c  |2B-F2,    30,23,|
00003490  54 2d 52 2b 54 2b 2c 20  20 20 33 32 2c 33 39 2c  |T-R+T+,   32,39,|
000034a0  54 2d 52 2d 54 2b 2c 20  20 20 33 34 2c 35 30 2c  |T-R-T+,   34,50,|
000034b0  42 2d 46 32 0d 11 8a 40  dc 20 33 37 2c 31 2c 50  |B-F2...@. 37,1,P|
000034c0  32 42 32 46 32 2c 20 20  20 20 33 39 2c 33 32 2c  |2B2F2,    39,32,|
000034d0  54 32 50 2b 54 32 2c 20  20 20 34 31 2c 31 32 2c  |T2P+T2,   41,12,|
000034e0  54 32 50 2d 54 32 2c 20  20 20 34 33 2c 35 32 2c  |T2P-T2,   43,52,|
000034f0  42 32 46 32 0d 11 94 44  dc 20 34 36 2c 32 35 2c  |B2F2...D. 46,25,|
00003500  42 2d 4c 2d 46 2b 4c 2b  2c 20 34 38 2c 31 36 2c  |B-L-F+L+, 48,16,|
00003510  4c 2d 46 2b 4c 2b 2c 20  20 20 35 30 2c 33 34 2c  |L-F+L+,   50,34,|
00003520  52 2b 46 2d 52 2d 2c 20  20 20 35 32 2c 34 33 2c  |R+F-R-,   52,43,|
00003530  42 2b 4c 2d 46 2b 4c 2b  0d 11 9e 19 f5 3a 54 2b  |B+L-F+L+.....:T+|
00003540  3d 31 3a e7 20 54 3e 35  20 6d 65 73 73 3d 36 3a  |=1:. T>5 mess=6:|
00003550  e1 0d 11 a8 1a f2 61 64  6a 75 73 74 3a e3 20 4a  |......adjust:. J|
00003560  3d 31 20 b8 20 34 3a f7  20 2b 37 0d 11 b2 22 41  |=1 . 4:. +7..."A|
00003570  24 28 4a 29 3d 22 22 3a  e3 20 49 3d 31 20 b8 20  |$(J)="":. I=1 . |
00003580  32 34 3a f3 20 41 2c 42  2c 43 2c 41 24 0d 11 bc  |24:. A,B,C,A$...|
00003590  32 e7 20 43 28 41 29 3d  43 28 32 32 29 20 80 20  |2. C(A)=C(22) . |
000035a0  43 28 42 29 3d 43 28 33  31 29 20 80 20 43 28 43  |C(B)=C(31) . C(C|
000035b0  29 3d 43 28 34 29 20 41  24 28 4a 29 3d 41 24 0d  |)=C(4) A$(J)=A$.|
000035c0  11 c6 19 ed 3a f2 73 70  69 6e 3a ed 3a 56 24 3d  |....:.spin:.:V$=|
000035d0  c4 31 33 2c 22 20 22 29  0d 11 d0 2d 46 3d 30 3a  |.13," ")...-F=0:|
000035e0  e7 20 41 24 28 31 29 2b  41 24 28 32 29 2b 41 24  |. A$(1)+A$(2)+A$|
000035f0  28 33 29 2b 41 24 28 34  29 3c 3e 22 22 20 f2 63  |(3)+A$(4)<>"" .c|
00003600  68 6f 6f 73 65 0d 11 da  24 fd 20 41 24 28 31 29  |hoose...$. A$(1)|
00003610  2b 41 24 28 32 29 2b 41  24 28 33 29 2b 41 24 28  |+A$(2)+A$(3)+A$(|
00003620  34 29 3d 22 22 3a 54 3d  30 0d 11 e4 1c f4 20 20  |4)="":T=0.....  |
00003630  20 20 2a 2a 2a 20 54 6f  70 20 43 6f 72 6e 65 72  |  *** Top Corner|
00003640  73 20 2a 2a 2a 0d 11 ee  32 dc 20 30 2c 33 38 2c  |s ***...2. 0,38,|
00003650  39 2c 4c 2d 46 2b 42 32  46 2d 4c 2b 2c 20 20 20  |9,L-F+B2F-L+,   |
00003660  20 20 20 32 2c 32 39 2c  33 36 2c 50 2d 42 2d 50  |   2,29,36,P-B-P|
00003670  2b 52 2d 42 2d 52 2b 0d  11 f8 32 dc 20 36 2c 31  |+R-B-R+...2. 6,1|
00003680  31 2c 31 38 2c 46 2d 42  2d 46 32 42 32 46 2d 2c  |1,18,F-B-F2B2F-,|
00003690  20 20 20 20 20 38 2c 32  30 2c 32 37 2c 46 2b 42  |     8,20,27,F+B|
000036a0  2d 46 2d 52 2d 42 2d 52  2b 0d 12 02 32 dc 20 39  |-F-R-B-R+...2. 9|
000036b0  2c 30 2c 33 38 2c 50 2b  52 2d 42 32 52 2b 50 2d  |,0,38,P+R-B2R+P-|
000036c0  2c 20 20 20 20 20 20 31  31 2c 31 38 2c 36 2c 4c  |,      11,18,6,L|
000036d0  2b 42 2b 4c 2d 52 2d 42  2d 52 2b 0d 12 0c 2f dc  |+B+L-R-B-R+.../.|
000036e0  20 31 35 2c 34 34 2c 35  31 2c 46 2b 42 2b 46 2d  | 15,44,51,F+B+F-|
000036f0  52 2d 42 2d 52 2b 2c 20  20 31 37 2c 34 35 2c 32  |R-B-R+,  17,45,2|
00003700  34 2c 42 2d 46 2b 42 32  46 2d 0d 12 16 28 dc 20  |4,B-F+B2F-...(. |
00003710  31 38 2c 36 2c 31 31 2c  4c 2b 52 2d 42 2b 4c 2d  |18,6,11,L+R-B+L-|
00003720  52 2b 2c 20 20 20 20 20  32 30 2c 32 37 2c 38 2c  |R+,     20,27,8,|
00003730  22 22 0d 12 20 2f dc 20  32 34 2c 31 37 2c 34 35  |"".. /. 24,17,45|
00003740  2c 52 2d 42 32 52 2b 46  2b 42 2b 46 2d 2c 20 20  |,R-B2R+F+B+F-,  |
00003750  32 36 2c 34 37 2c 33 33  2c 42 32 46 2b 42 32 46  |26,47,33,B2F+B2F|
00003760  2d 0d 12 2a 32 dc 20 32  37 2c 38 2c 32 30 2c 46  |-..*2. 27,8,20,F|
00003770  2b 42 32 46 2d 52 2d 42  32 52 2b 2c 20 20 20 32  |+B2F-R-B2R+,   2|
00003780  39 2c 33 36 2c 32 2c 50  2d 42 2d 50 2b 46 2b 42  |9,36,2,P-B-P+F+B|
00003790  2b 46 2d 0d 12 34 2d dc  20 33 33 2c 32 36 2c 34  |+F-..4-. 33,26,4|
000037a0  37 2c 46 2b 42 2d 46 2d  52 2d 42 32 52 2b 2c 20  |7,F+B-F-R-B2R+, |
000037b0  20 33 35 2c 35 33 2c 34  32 2c 46 2b 42 2d 46 2d  | 35,53,42,F+B-F-|
000037c0  0d 12 3e 2f dc 20 33 36  2c 32 2c 32 39 2c 52 2b  |..>/. 36,2,29,R+|
000037d0  42 32 52 32 42 2b 52 2b  2c 20 20 20 20 20 33 38  |B2R2B+R+,     38|
000037e0  2c 39 2c 30 2c 4c 2d 52  2d 42 32 4c 2b 52 2b 0d  |,9,0,L-R-B2L+R+.|
000037f0  12 48 2d dc 20 34 32 2c  33 35 2c 35 33 2c 46 2b  |.H-. 42,35,53,F+|
00003800  42 32 46 2d 52 2d 42 2d  52 2b 2c 20 20 34 34 2c  |B2F-R-B-R+,  44,|
00003810  35 31 2c 31 35 2c 46 2b  42 32 46 2d 0d 12 52 2d  |51,15,F+B2F-..R-|
00003820  dc 20 34 35 2c 32 34 2c  31 37 2c 42 2b 46 2b 42  |. 45,24,17,B+F+B|
00003830  2b 46 2d 2c 20 20 20 20  20 20 34 37 2c 33 33 2c  |+F-,      47,33,|
00003840  32 36 2c 46 2b 42 2b 46  2d 0d 12 5c 2f dc 20 35  |26,F+B+F-..\/. 5|
00003850  31 2c 31 35 2c 34 34 2c  42 32 46 2b 42 2b 46 2d  |1,15,44,B2F+B+F-|
00003860  2c 20 20 20 20 20 20 35  33 2c 34 32 2c 33 35 2c  |,      53,42,35,|
00003870  42 2d 46 2b 42 2b 46 2d  0d 12 66 19 f5 3a 54 2b  |B-F+B+F-..f..:T+|
00003880  3d 31 3a e7 20 54 3e 35  20 6d 65 73 73 3d 36 3a  |=1:. T>5 mess=6:|
00003890  e1 0d 12 70 1a f2 61 64  6a 75 73 74 3a e3 20 4a  |...p..adjust:. J|
000038a0  3d 31 20 b8 20 34 3a f7  20 2b 37 0d 12 7a 20 41  |=1 . 4:. +7..z A|
000038b0  24 28 4a 29 3d 22 22 3a  e3 20 49 3d 31 20 b8 20  |$(J)="":. I=1 . |
000038c0  31 36 3a f3 20 41 2c 42  2c 41 24 0d 12 84 26 e7  |16:. A,B,A$...&.|
000038d0  20 43 28 41 29 3d 43 28  32 32 29 20 80 20 43 28  | C(A)=C(22) . C(|
000038e0  42 29 3d 43 28 33 31 29  20 41 24 28 4a 29 3d 41  |B)=C(31) A$(J)=A|
000038f0  24 0d 12 8e 19 ed 3a f2  73 70 69 6e 3a ed 3a 56  |$.....:.spin:.:V|
00003900  24 3d c4 32 37 2c 22 20  22 29 0d 12 98 2d 46 3d  |$=.27," ")...-F=|
00003910  30 3a e7 20 41 24 28 31  29 2b 41 24 28 32 29 2b  |0:. A$(1)+A$(2)+|
00003920  41 24 28 33 29 2b 41 24  28 34 29 3c 3e 22 22 20  |A$(3)+A$(4)<>"" |
00003930  f2 63 68 6f 6f 73 65 0d  12 a2 24 fd 20 41 24 28  |.choose...$. A$(|
00003940  31 29 2b 41 24 28 32 29  2b 41 24 28 33 29 2b 41  |1)+A$(2)+A$(3)+A|
00003950  24 28 34 29 3d 22 22 3a  54 3d 30 0d 12 ac 1f f4  |$(4)="":T=0.....|
00003960  20 20 20 20 2a 2a 2a 20  56 65 72 74 69 63 61 6c  |    *** Vertical|
00003970  20 45 64 67 65 73 20 2a  2a 2a 0d 12 b6 43 dc 20  | Edges ***...C. |
00003980  31 32 2c 34 31 2c 4c 2d  46 2d 42 2b 52 2b 4c 2d  |12,41,L-F-B+R+L-|
00003990  46 32 52 2d 4c 2b 42 2b  46 2b 4c 2b 2c 20 20 20  |F2R-L+B+F+L+,   |
000039a0  20 20 20 31 34 2c 32 31  2c 4c 2b 46 2b 4c 2d 54  |   14,21,L+F+L-T|
000039b0  2d 52 2d 42 2d 46 2d 42  2b 52 2b 54 2b 0d 12 c0  |-R-B-F-B+R+T+...|
000039c0  3f dc 20 31 36 2c 34 38  2c 52 2d 42 2b 52 2b 42  |?. 16,48,R-B+R+B|
000039d0  2b 46 2b 42 2d 46 2d 2c  20 20 20 20 20 20 20 20  |+F+B-F-,        |
000039e0  20 20 20 20 20 20 32 31  2c 31 34 2c 46 2b 42 32  |      21,14,F+B2|
000039f0  4c 2d 52 2b 46 32 4c 2b  52 2d 46 2d 0d 12 ca 3f  |L-R+F2L+R-F-...?|
00003a00  dc 20 32 33 2c 33 30 2c  22 22 2c 20 20 20 20 20  |. 23,30,"",     |
00003a10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003a20  20 20 20 20 20 32 35 2c  34 36 2c 42 2d 52 2d 42  |     25,46,B-R-B|
00003a30  2b 52 2b 42 2b 46 2b 42  2d 46 2d 0d 12 d4 43 dc  |+R+B+F+B-F-...C.|
00003a40  20 33 30 2c 32 33 2c 52  2d 46 32 52 32 46 2b 52  | 30,23,R-F2R2F+R|
00003a50  2d 46 2d 52 2d 46 32 4c  2b 42 2b 52 2b 42 2d 4c  |-F-R-F2L+B+R+B-L|
00003a60  2d 2c 20 20 33 32 2c 33  39 2c 54 2d 50 2d 42 2d  |-,  32,39,T-P-B-|
00003a70  52 2b 42 2b 50 2b 54 2b  46 2b 52 2d 46 2d 0d 12  |R+B+P+T+F+R-F-..|
00003a80  de 3f dc 20 33 34 2c 35  30 2c 42 32 52 2d 42 2b  |.?. 34,50,B2R-B+|
00003a90  52 2b 42 2b 46 2b 42 2d  46 2d 2c 20 20 20 20 20  |R+B+F+B-F-,     |
00003aa0  20 20 20 20 20 20 20 33  39 2c 33 32 2c 52 2b 46  |       39,32,R+F|
00003ab0  2d 50 2b 52 32 46 2b 50  2d 42 32 52 2d 0d 12 e8  |-P+R2F+P-B2R-...|
00003ac0  3f dc 20 34 31 2c 31 32  2c 4c 32 46 2d 4c 2d 52  |?. 41,12,L2F-L-R|
00003ad0  2b 46 32 4c 2b 52 2d 42  32 46 2b 4c 32 2c 20 20  |+F2L+R-B2F+L2,  |
00003ae0  20 20 20 20 20 20 34 33  2c 35 32 2c 42 2b 52 2d  |      43,52,B+R-|
00003af0  42 2b 52 2b 42 2b 46 2b  42 2d 46 2d 0d 12 f2 3f  |B+R+B+F+B-F-...?|
00003b00  dc 20 34 36 2c 32 35 2c  42 32 46 2b 42 2d 46 2d  |. 46,25,B2F+B-F-|
00003b10  42 2d 52 2d 42 2b 52 2b  2c 20 20 20 20 20 20 20  |B-R-B+R+,       |
00003b20  20 20 20 20 20 34 38 2c  31 36 2c 42 2d 46 2b 42  |     48,16,B-F+B|
00003b30  2d 46 2d 42 2d 52 2d 42  2b 52 2b 0d 12 fc 3d dc  |-F-B-R-B+R+...=.|
00003b40  20 35 30 2c 33 34 2c 42  2b 46 2b 42 2d 46 2d 42  | 50,34,B+F+B-F-B|
00003b50  2d 52 2d 42 2b 52 2b 2c  20 20 20 20 20 20 20 20  |-R-B+R+,        |
00003b60  20 20 20 20 35 32 2c 34  33 2c 46 2b 42 2d 46 2d  |    52,43,F+B-F-|
00003b70  42 2d 52 2d 42 2b 52 2b  0d 13 06 3a f2 61 64 6a  |B-R-B+R+...:.adj|
00003b80  75 73 74 3a 53 52 24 3d  53 53 24 3a 41 24 3d a4  |ust:SR$=SS$:A$=.|
00003b90  63 6f 72 6e 65 72 28 34  35 2c 31 37 2c 32 34 29  |corner(45,17,24)|
00003ba0  2b a4 63 6f 72 6e 65 72  28 34 37 2c 32 36 2c 33  |+.corner(47,26,3|
00003bb0  33 29 0d 13 10 30 41 24  2b 3d a4 63 6f 72 6e 65  |3)...0A$+=.corne|
00003bc0  72 28 35 31 2c 34 34 2c  31 35 29 2b a4 63 6f 72  |r(51,44,15)+.cor|
00003bd0  6e 65 72 28 35 33 2c 33  35 2c 34 32 29 3a f7 20  |ner(53,35,42):. |
00003be0  2b 34 0d 13 1a 30 f5 3a  f3 20 42 24 2c 56 24 3a  |+4...0.:. B$,V$:|
00003bf0  fd 20 41 24 3d 42 24 20  84 20 42 24 3d 22 2a 22  |. A$=B$ . B$="*"|
00003c00  3a e7 20 42 24 3d 22 2a  22 20 6d 65 73 73 3d 36  |:. B$="*" mess=6|
00003c10  3a e1 0d 13 24 20 f2 73  65 71 75 65 6e 63 65 28  |:...$ .sequence(|
00003c20  56 24 29 3a 53 53 24 3d  56 24 3a f2 61 64 6a 75  |V$):SS$=V$:.adju|
00003c30  73 74 0d 13 2e 28 f4 20  20 20 20 2a 2a 2a 20 42  |st...(.    *** B|
00003c40  6f 74 74 6f 6d 20 43 6f  72 6e 65 72 20 50 6f 73  |ottom Corner Pos|
00003c50  69 74 69 6f 6e 73 20 2a  2a 2a 0d 13 38 3d dc 20  |itions ***..8=. |
00003c60  31 32 33 34 2c 22 22 2c  20 20 20 20 20 20 20 20  |1234,"",        |
00003c70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 32  |              12|
00003c80  34 33 2c 42 32 52 2d 42  2d 52 2b 46 2b 42 2b 46  |43,B2R-B-R+F+B+F|
00003c90  2d 52 2d 42 2b 52 2b 0d  13 42 3d dc 20 31 33 32  |-R-B+R+..B=. 132|
00003ca0  34 2c 42 2b 46 2d 42 2d  52 2d 42 2b 52 2b 46 2b  |4,B+F-B-R-B+R+F+|
00003cb0  2c 20 20 20 20 20 20 20  20 20 20 31 33 34 32 2c  |,          1342,|
00003cc0  52 2d 42 2d 52 2b 46 2b  42 2b 46 2d 52 2d 42 2b  |R-B-R+F+B+F-R-B+|
00003cd0  52 2b 42 2b 0d 13 4c 3f  dc 20 31 34 32 33 2c 42  |R+B+..L?. 1423,B|
00003ce0  2b 52 2d 42 2d 52 2b 46  2b 42 2b 46 2d 52 2d 42  |+R-B-R+F+B+F-R-B|
00003cf0  2b 52 2b 42 32 2c 20 20  31 34 33 32 2c 42 2d 52  |+R+B2,  1432,B-R|
00003d00  2d 42 2d 52 2b 46 2b 42  2b 46 2d 52 2d 42 2b 52  |-B-R+F+B+F-R-B+R|
00003d10  2b 42 2d 0d 13 56 35 dc  20 32 31 33 34 2c 52 2d  |+B-..V5. 2134,R-|
00003d20  42 2d 52 2b 46 2b 42 2b  46 2d 52 2d 42 2b 52 2b  |B-R+F+B+F-R-B+R+|
00003d30  42 32 2c 20 20 20 20 32  31 34 33 2c 46 2d 42 2d  |B2,    2143,F-B-|
00003d40  52 2d 42 2b 52 2b 46 2b  0d 13 60 3f dc 20 32 33  |R-B+R+F+..`?. 23|
00003d50  31 34 2c 42 2d 52 2d 42  2d 52 2b 46 2b 42 2b 46  |14,B-R-B-R+F+B+F|
00003d60  2d 52 2d 42 2b 52 2b 2c  20 20 20 20 32 33 34 31  |-R-B+R+,    2341|
00003d70  2c 42 2b 52 2d 42 2d 52  2b 46 2b 42 2b 46 2d 52  |,B+R-B-R+F+B+F-R|
00003d80  2d 42 2b 52 2b 42 2d 0d  13 6a 3d dc 20 32 34 31  |-B+R+B-..j=. 241|
00003d90  33 2c 42 2b 2c 20 20 20  20 20 20 20 20 20 20 20  |3,B+,           |
00003da0  20 20 20 20 20 20 20 20  20 20 20 32 34 33 31 2c  |           2431,|
00003db0  4c 2d 42 2d 4c 2b 50 2b  42 2b 50 2d 4c 2d 42 2b  |L-B-L+P+B+P-L-B+|
00003dc0  4c 2b 42 2d 0d 13 74 2b  dc 20 33 31 32 34 2c 4c  |L+B-..t+. 3124,L|
00003dd0  2d 42 2d 4c 2b 50 2b 42  2b 50 2d 4c 2d 42 2b 4c  |-B-L+P+B+P-L-B+L|
00003de0  2b 42 2b 2c 20 20 20 20  33 31 34 32 2c 42 2d 0d  |+B+,    3142,B-.|
00003df0  13 7e 3f dc 20 33 32 31  34 2c 42 2b 52 2d 42 2d  |.~?. 3214,B+R-B-|
00003e00  52 2b 46 2b 42 2b 46 2d  52 2d 42 2b 52 2b 42 2b  |R+F+B+F-R-B+R+B+|
00003e10  2c 20 20 33 32 34 31 2c  42 2d 52 2d 42 2d 52 2b  |,  3241,B-R-B-R+|
00003e20  46 2b 42 2b 46 2d 52 2d  42 2b 52 2b 42 32 0d 13  |F+B+F-R-B+R+B2..|
00003e30  88 3b dc 20 33 34 31 32  2c 42 32 46 2d 42 2d 52  |.;. 3412,B2F-B-R|
00003e40  2d 42 2b 52 2b 46 2b 2c  20 20 20 20 20 20 20 20  |-B+R+F+,        |
00003e50  20 20 33 34 32 31 2c 52  2d 42 2d 52 2b 46 2b 42  |  3421,R-B-R+F+B|
00003e60  2b 46 2d 52 2d 42 2b 52  2b 0d 13 92 3d dc 20 34  |+F-R-B+R+...=. 4|
00003e70  31 32 33 2c 42 2d 52 2d  42 2d 52 2b 46 2b 42 2b  |123,B-R-B-R+F+B+|
00003e80  46 2d 52 2d 42 2b 52 2b  42 2b 2c 20 20 34 31 33  |F-R-B+R+B+,  413|
00003e90  32 2c 42 2b 52 2d 42 2d  52 2b 46 2b 42 2b 46 2d  |2,B+R-B-R+F+B+F-|
00003ea0  52 2d 42 2b 52 2b 0d 13  9c 37 dc 20 34 32 31 33  |R-B+R+...7. 4213|
00003eb0  2c 52 2d 42 2d 52 2b 46  2b 42 2b 46 2d 52 2d 42  |,R-B-R+F+B+F-R-B|
00003ec0  2b 52 2b 42 2d 2c 20 20  20 20 34 32 33 31 2c 42  |+R+B-,    4231,B|
00003ed0  2d 46 2d 42 2d 52 2d 42  2b 52 2b 46 2b 0d 13 a6  |-F-B-R-B+R+F+...|
00003ee0  2f dc 20 34 33 31 32 2c  4c 2d 42 2d 4c 2b 50 2b  |/. 4312,L-B-L+P+|
00003ef0  42 2b 50 2d 4c 2d 42 2b  4c 2b 2c 20 20 20 20 20  |B+P-L-B+L+,     |
00003f00  20 34 33 32 31 2c 42 32  2c 2a 2c 2a 0d 13 b0 1f  | 4321,B2,*,*....|
00003f10  f5 3a f7 20 2b 39 3a 41  24 3d 22 22 3a e3 20 49  |.:. +9:A$="":. I|
00003f20  3d 31 20 b8 20 31 32 3a  f3 20 41 0d 13 ba 17 e7  |=1 . 12:. A.....|
00003f30  20 43 28 41 29 3d 43 28  34 39 29 20 41 24 2b 3d  | C(A)=C(49) A$+=|
00003f40  c3 41 0d 13 c4 31 ed 3a  f5 3a f3 20 42 24 2c 46  |.A...1.:.:. B$,F|
00003f50  3a fd 20 41 24 3d 42 24  20 84 20 42 24 3d 22 2a  |:. A$=B$ . B$="*|
00003f60  22 3a e7 20 42 24 3d 22  2a 22 20 6d 65 73 73 3d  |":. B$="*" mess=|
00003f70  36 3a e1 0d 13 ce 37 e7  20 46 3c 34 20 42 24 3d  |6:....7. F<4 B$=|
00003f80  22 52 2d 42 2d 52 2b 42  2d 52 2d 42 32 52 2b 42  |"R-B-R+B-R-B2R+B|
00003f90  32 22 20 8b 20 42 24 3d  22 42 32 52 2d 42 32 52  |2" . B$="B2R-B2R|
00003fa0  2b 42 2b 52 2d 42 2b 52  2b 22 0d 13 d8 1d e7 20  |+B+R-B+R+"..... |
00003fb0  46 3d 38 20 42 24 3d 22  22 3a 46 3d 34 20 8b 20  |F=8 B$="":F=4 . |
00003fc0  46 3d 46 20 83 20 34 0d  13 e2 20 41 24 28 30 29  |F=F . 4... A$(0)|
00003fd0  3d c4 34 2d 46 2c 22 43  2d 22 29 2b 42 24 2b c4  |=.4-F,"C-")+B$+.|
00003fe0  46 2c 22 43 2d 22 29 0d  13 ec 2d f2 73 65 71 75  |F,"C-")...-.sequ|
00003ff0  65 6e 63 65 28 41 24 28  30 29 29 3a 53 53 24 2b  |ence(A$(0)):SS$+|
00004000  3d 41 24 28 30 29 3a e7  20 46 3c 34 20 f2 61 64  |=A$(0):. F<4 .ad|
00004010  6a 75 73 74 0d 13 f6 2f  fd 20 46 3d 34 3a f2 61  |just.../. F=4:.a|
00004020  64 6a 75 73 74 3a e3 20  49 3d 34 20 b8 20 34 39  |djust:. I=4 . 49|
00004030  20 88 20 39 3a 42 45 24  2b 3d c3 28 43 28 49 29  | . 9:BE$+=.(C(I)|
00004040  29 3a ed 0d 14 00 2b f4  20 20 20 20 2a 2a 2a 20  |):....+.    *** |
00004050  42 6f 74 74 6f 6d 20 43  6f 72 6e 65 72 20 4f 72  |Bottom Corner Or|
00004060  69 65 6e 74 61 74 69 6f  6e 73 20 2a 2a 2a 0d 14  |ientations ***..|
00004070  0a 29 dc 20 31 35 2c 31  37 2c 32 34 2c 32 36 2c  |.). 15,17,24,26,|
00004080  33 33 2c 33 35 2c 34 32  2c 34 34 2c 34 35 2c 34  |33,35,42,44,45,4|
00004090  37 2c 35 31 2c 35 33 0d  14 14 37 dc 20 32 36 33  |7,51,53...7. 263|
000040a0  35 34 34 34 35 2c 30 2c  20 20 31 37 32 36 33 35  |54445,0,  172635|
000040b0  35 31 2c 33 2c 20 20 31  37 32 36 34 34 35 33 2c  |51,3,  17264453,|
000040c0  32 2c 20 20 31 37 33 35  34 34 34 37 2c 31 0d 14  |2,  17354447,1..|
000040d0  1e 37 dc 20 31 35 33 33  34 32 34 35 2c 34 2c 20  |.7. 15334245,4, |
000040e0  20 32 34 33 33 34 32 35  31 2c 37 2c 20 20 31 35  | 24334251,7,  15|
000040f0  32 34 33 33 35 33 2c 36  2c 20 20 31 35 32 34 34  |243353,6,  15244|
00004100  32 34 37 2c 35 0d 14 28  37 dc 20 31 37 33 33 34  |247,5..(7. 17334|
00004110  32 34 34 2c 30 2c 20 20  32 34 33 33 33 35 34 34  |244,0,  24333544|
00004120  2c 33 2c 20 20 31 35 32  34 32 36 33 35 2c 32 2c  |,3,  15242635,2,|
00004130  20 20 31 35 31 37 32 36  34 32 2c 31 0d 14 32 37  |  15172642,1..27|
00004140  dc 20 32 34 34 34 34 37  35 33 2c 30 2c 20 20 31  |. 24444753,0,  1|
00004150  35 33 35 34 35 34 37 2c  33 2c 20 20 32 36 34 32  |5354547,3,  2642|
00004160  34 35 35 31 2c 32 2c 20  20 31 37 33 33 35 31 35  |4551,2,  1733515|
00004170  33 2c 31 0d 14 3c 37 dc  20 32 34 32 36 35 31 35  |3,1..<7. 2426515|
00004180  33 2c 30 2c 20 20 31 35  31 37 34 37 35 33 2c 33  |3,0,  15174753,3|
00004190  2c 20 20 34 32 34 34 34  35 34 37 2c 32 2c 20 20  |,  42444547,2,  |
000041a0  33 33 33 35 34 35 35 31  2c 31 0d 14 46 37 dc 20  |33354551,1..F7. |
000041b0  32 34 33 35 34 37 35 31  2c 30 2c 20 20 31 35 32  |24354751,0,  152|
000041c0  36 34 35 35 33 2c 33 2c  20 20 31 37 34 32 34 37  |64553,3,  174247|
000041d0  35 31 2c 32 2c 20 20 33  33 34 34 34 35 35 33 2c  |51,2,  33444553,|
000041e0  31 0d 14 50 2e dc 20 31  35 31 37 33 33 33 35 2c  |1..P.. 15173335,|
000041f0  30 2c 20 20 32 34 32 36  34 32 34 34 2c 33 2c 20  |0,  24264244,3, |
00004200  20 34 35 34 37 35 31 35  33 2c 38 2c 2a 2c 30 0d  | 45475153,8,*,0.|
00004210  14 5a 38 41 24 3d a4 65  64 67 65 28 31 36 29 2b  |.Z8A$=.edge(16)+|
00004220  a4 65 64 67 65 28 32 35  29 2b a4 65 64 67 65 28  |.edge(25)+.edge(|
00004230  33 34 29 2b a4 65 64 67  65 28 34 33 29 2b a4 65  |34)+.edge(43)+.e|
00004240  64 67 65 28 34 36 29 0d  14 64 2a 41 24 2b 3d a4  |dge(46)..d*A$+=.|
00004250  65 64 67 65 28 34 38 29  2b a4 65 64 67 65 28 35  |edge(48)+.edge(5|
00004260  30 29 2b a4 65 64 67 65  28 35 32 29 3a f7 20 2b  |0)+.edge(52):. +|
00004270  34 0d 14 6e 30 f5 3a f3  20 42 24 2c 46 24 3a fd  |4..n0.:. B$,F$:.|
00004280  20 41 24 3d 42 24 20 84  20 42 24 3d 22 2a 22 3a  | A$=B$ . B$="*":|
00004290  e7 20 42 24 3d 22 2a 22  20 6d 65 73 73 3d 36 3a  |. B$="*" mess=6:|
000042a0  e1 0d 14 78 21 53 53 24  2b 3d 46 24 3a f2 61 64  |...x!SS$+=F$:.ad|
000042b0  6a 75 73 74 3a f2 73 65  71 75 65 6e 63 65 28 46  |just:.sequence(F|
000042c0  24 29 0d 14 82 29 f4 20  20 20 20 2a 2a 2a 20 42  |$)...).    *** B|
000042d0  6f 74 74 6f 6d 20 45 64  67 65 20 50 65 72 6d 75  |ottom Edge Permu|
000042e0  74 61 74 69 6f 6e 73 20  2a 2a 2a 0d 14 8c 11 dc  |tations ***.....|
000042f0  20 32 33 34 35 36 36 36  36 2c 22 22 0d 14 96 29  | 23456666,""...)|
00004300  dc 20 32 33 36 36 36 36  34 35 2c 52 2d 42 32 52  |. 23666645,R-B2R|
00004310  32 42 2b 52 2d 42 2d 52  2d 42 32 4c 2b 50 2b 52  |2B+R-B-R-B2L+P+R|
00004320  2b 50 2d 4c 2d 0d 14 a0  21 dc 20 32 34 35 33 36  |+P-L-...!. 24536|
00004330  36 36 36 2c 52 32 42 2b  50 2b 46 2d 52 32 50 2d  |666,R2B+P+F-R2P-|
00004340  46 2b 42 2b 52 32 0d 14  aa 23 dc 20 32 34 36 36  |F+B+R2...#. 2466|
00004350  36 36 35 33 2c 50 2b 42  2b 50 2d 4c 2d 46 2d 52  |6653,P+B+P-L-F-R|
00004360  2d 42 2d 52 2b 46 2b 4c  2b 0d 14 b4 21 dc 20 32  |-B-R+F+L+...!. 2|
00004370  35 33 34 36 36 36 36 2c  52 32 42 2d 50 2b 46 2d  |5346666,R2B-P+F-|
00004380  52 32 50 2d 46 2b 42 2d  52 32 0d 14 be 21 dc 20  |R2P-F+B-R2...!. |
00004390  32 35 36 36 36 36 33 34  2c 52 2b 54 32 4c 32 46  |25666634,R+T2L2F|
000043a0  2b 4c 32 54 32 52 32 50  2b 52 2b 0d 14 c8 23 dc  |+L2T2R2P+R+...#.|
000043b0  20 32 36 33 36 35 36 36  34 2c 4c 2d 46 2d 52 2d  | 26365664,L-F-R-|
000043c0  42 2b 52 2b 46 2b 4c 2b  50 2b 42 2d 50 2d 0d 14  |B+R+F+L+P+B-P-..|
000043d0  d2 2b dc 20 32 36 34 36  33 36 36 35 2c 4c 2b 50  |.+. 26463665,L+P|
000043e0  2d 42 2b 4c 2d 50 2b 46  2d 42 2b 52 2d 50 2b 42  |-B+L-P+F-B+R-P+B|
000043f0  2d 52 2b 50 2d 46 2b 42  2d 0d 14 dc 23 dc 20 32  |-R+P-F+B-...#. 2|
00004400  36 35 36 34 36 36 33 2c  4c 2b 50 2b 52 2b 42 2d  |6564663,L+P+R+B-|
00004410  52 2d 50 2d 4c 2d 46 2d  42 2b 46 2b 0d 14 e6 21  |R-P-L-F-B+F+...!|
00004420  dc 20 32 36 36 33 34 36  35 36 2c 52 2d 50 2d 52  |. 26634656,R-P-R|
00004430  32 54 32 4c 32 46 2d 4c  32 54 32 52 2d 0d 14 f0  |2T2L2F-L2T2R-...|
00004440  23 dc 20 32 36 36 34 35  36 33 36 2c 46 2d 42 2d  |#. 26645636,F-B-|
00004450  46 2b 4c 2b 50 2b 52 2b  42 2b 52 2d 50 2d 4c 2d  |F+L+P+R+B+R-P-L-|
00004460  0d 14 fa 29 dc 20 32 36  36 35 33 36 34 36 2c 46  |...). 26653646,F|
00004470  2d 42 32 46 32 42 2b 46  2d 42 2d 46 2d 42 32 50  |-B2F2B+F-B-F-B2P|
00004480  2b 52 2b 46 2b 52 2d 50  2d 0d 15 04 33 dc 20 33  |+R+F+R-P-...3. 3|
00004490  32 35 34 36 36 36 36 2c  46 32 42 2b 52 2b 4c 2d  |2546666,F2B+R+L-|
000044a0  46 32 52 2d 4c 2b 42 2b  46 32 50 32 42 2d 4c 2b  |F2R-L+B+F2P2B-L+|
000044b0  52 2d 50 32 4c 2d 52 2b  42 2d 50 32 0d 15 0e 33  |R-P2L-R+B-P2...3|
000044c0  dc 20 33 32 36 36 36 36  35 34 2c 46 32 42 2b 52  |. 32666654,F2B+R|
000044d0  2b 4c 2d 46 32 52 2d 4c  2b 42 2b 46 32 50 2b 54  |+L-F2R-L+B+F2P+T|
000044e0  32 46 32 52 2b 46 32 54  32 50 32 4c 2b 50 2b 0d  |2F2R+F2T2P2L+P+.|
000044f0  15 18 21 dc 20 33 34 32  35 36 36 36 36 2c 46 32  |..!. 34256666,F2|
00004500  42 2b 52 2b 4c 2d 46 32  52 2d 4c 2b 42 2b 46 32  |B+R+L-F2R-L+B+F2|
00004510  0d 15 22 35 dc 20 33 34  36 36 36 36 32 35 2c 4c  |.."5. 34666625,L|
00004520  32 42 2b 46 2b 50 2d 4c  32 46 2d 50 2b 42 2b 4c  |2B+F+P-L2F-P+B+L|
00004530  32 46 2d 52 2d 50 2d 42  2b 50 2b 52 2b 46 2b 4c  |2F-R-P-B+P+R+F+L|
00004540  2b 42 2d 4c 2d 0d 15 2c  21 dc 20 33 35 34 32 36  |+B-L-..,!. 35426|
00004550  36 36 36 2c 4c 32 42 2b  46 2b 50 2d 4c 32 46 2d  |666,L2B+F+P-L2F-|
00004560  50 2b 42 2b 4c 32 0d 15  36 33 dc 20 33 35 36 36  |P+B+L2..63. 3566|
00004570  36 36 34 32 2c 50 2d 4c  2d 50 32 54 32 46 32 52  |6642,P-L-P2T2F2R|
00004580  2d 46 32 54 32 50 2d 52  32 42 2d 50 2b 46 2d 52  |-F2T2P-R2B-P+F-R|
00004590  32 50 2d 46 2b 42 2d 52  32 0d 15 40 33 dc 20 33  |2P-F+B-R2..@3. 3|
000045a0  36 32 36 34 36 36 35 2c  4c 32 42 2b 46 2b 50 2d  |6264665,L2B+F+P-|
000045b0  4c 32 46 2d 50 2b 42 2b  4c 32 50 2b 54 32 46 32  |L2F-P+B+L2P+T2F2|
000045c0  52 2b 46 32 54 32 50 32  4c 2b 50 2b 0d 15 4a 23  |R+F2T2P2L+P+..J#|
000045d0  dc 20 33 36 34 36 35 36  36 32 2c 52 2b 46 2b 4c  |. 36465662,R+F+L|
000045e0  2b 42 2d 4c 2d 46 2d 52  2d 50 2d 42 2b 50 2b 0d  |+B-L-F-R-P-B+P+.|
000045f0  15 54 35 dc 20 33 36 35  36 32 36 36 34 2c 46 32  |.T5. 36562664,F2|
00004600  42 2b 52 2b 4c 2d 46 32  52 2d 4c 2b 42 2b 46 32  |B+R+L-F2R-L+B+F2|
00004610  52 2d 42 2d 52 2b 46 2b  4c 2b 50 2b 42 2b 50 2d  |R-B-R+F+L+P+B+P-|
00004620  4c 2d 46 2d 0d 15 5e 33  dc 20 33 36 36 32 35 36  |L-F-..^3. 366256|
00004630  34 36 2c 46 32 42 2b 52  2b 4c 2d 46 32 52 2d 4c  |46,F2B+R+L-F2R-L|
00004640  2b 42 2b 46 2d 4c 2b 50  2b 42 2d 50 2d 4c 2d 46  |+B+F-L+P+B-P-L-F|
00004650  2d 52 2d 42 2b 52 2b 0d  15 68 33 dc 20 33 36 36  |-R-B+R+..h3. 366|
00004660  34 32 36 35 36 2c 4c 32  42 2b 46 2b 50 2d 4c 32  |42656,L2B+F+P-L2|
00004670  46 2d 50 2b 42 2b 4c 32  50 2d 4c 2d 50 32 54 32  |F-P+B+L2P-L-P2T2|
00004680  46 32 52 2d 46 32 54 32  50 2d 0d 15 72 23 dc 20  |F2R-F2T2P-..r#. |
00004690  33 36 36 35 34 36 32 36  2c 52 2b 42 2b 52 2d 50  |36654626,R+B+R-P|
000046a0  2d 4c 2d 46 2d 42 2d 46  2b 4c 2b 50 2b 0d 15 7c  |-L-F-B-F+L+P+..||
000046b0  21 dc 20 34 32 33 35 36  36 36 36 2c 46 32 42 2d  |!. 42356666,F2B-|
000046c0  52 2b 4c 2d 46 32 52 2d  4c 2b 42 2d 46 32 0d 15  |R+L-F2R-L+B-F2..|
000046d0  86 33 dc 20 34 32 36 36  36 36 33 35 2c 52 2b 54  |.3. 42666635,R+T|
000046e0  32 4c 32 46 2b 4c 32 54  32 52 32 50 2b 52 2b 50  |2L2F+L2T2R2P+R+P|
000046f0  32 42 2b 4c 2b 52 2d 50  32 4c 2d 52 2b 42 2b 50  |2B+L+R-P2L-R+B+P|
00004700  32 0d 15 90 21 dc 20 34  33 35 32 36 36 36 36 2c  |2...!. 43526666,|
00004710  50 32 42 2b 4c 2b 52 2d  50 32 4c 2d 52 2b 42 2b  |P2B+L+R-P2L-R+B+|
00004720  50 32 0d 15 9a 21 dc 20  34 33 36 36 36 36 35 32  |P2...!. 43666652|
00004730  2c 50 2d 4c 2d 50 32 54  32 46 32 52 2d 46 32 54  |,P-L-P2T2F2R-F2T|
00004740  32 50 2d 0d 15 a4 33 dc  20 34 35 32 33 36 36 36  |2P-...3. 4523666|
00004750  36 2c 52 2d 50 2d 52 32  54 32 4c 32 46 2d 4c 32  |6,R-P-R2T2L2F-L2|
00004760  54 32 52 2d 50 2d 4c 2d  50 32 54 32 46 32 52 2d  |T2R-P-L-P2T2F2R-|
00004770  46 32 54 32 50 2d 0d 15  ae 33 dc 20 34 35 36 36  |F2T2P-...3. 4566|
00004780  36 36 32 33 2c 52 32 42  2d 50 2b 46 2d 52 32 50  |6623,R2B-P+F-R2P|
00004790  2d 46 2b 42 2d 52 32 46  2b 54 32 50 32 4c 2b 50  |-F+B-R2F+T2P2L+P|
000047a0  32 54 32 46 32 52 2b 46  2b 0d 15 b8 35 dc 20 34  |2T2F2R+F+...5. 4|
000047b0  36 32 36 35 36 36 33 2c  50 2b 42 2b 50 2d 4c 2d  |6265663,P+B+P-L-|
000047c0  46 2d 52 2d 42 2d 52 2b  46 2b 4c 2b 50 2d 4c 2d  |F-R-B-R+F+L+P-L-|
000047d0  50 32 54 32 46 32 52 2d  46 32 54 32 50 2d 0d 15  |P2T2F2R-F2T2P-..|
000047e0  c2 33 dc 20 34 36 33 36  32 36 36 35 2c 52 32 42  |.3. 46362665,R2B|
000047f0  2d 50 2b 46 2d 52 32 50  2d 46 2b 42 2d 52 32 50  |-P+F-R2P-F+B-R2P|
00004800  2d 4c 2d 50 32 54 32 46  32 52 2d 46 32 54 32 50  |-L-P2T2F2R-F2T2P|
00004810  2d 0d 15 cc 33 dc 20 34  36 35 36 33 36 36 32 2c  |-...3. 46563662,|
00004820  52 32 42 2b 50 2b 46 2d  52 32 50 2d 46 2b 42 2b  |R2B+P+F-R2P-F+B+|
00004830  52 32 46 2b 54 32 50 32  4c 2b 50 32 54 32 46 32  |R2F+T2P2L+P2T2F2|
00004840  52 2b 46 2b 0d 15 d6 33  dc 20 34 36 36 32 33 36  |R+F+...3. 466236|
00004850  35 36 2c 52 2d 50 2d 52  32 54 32 4c 32 46 2d 4c  |56,R-P-R2T2L2F-L|
00004860  32 54 32 52 2d 46 32 42  2d 52 2b 4c 2d 46 32 52  |2T2R-F2B-R+L-F2R|
00004870  2d 4c 2b 42 2d 46 32 0d  15 e0 33 dc 20 34 36 36  |-L+B-F2...3. 466|
00004880  33 35 36 32 36 2c 52 32  42 2b 50 2b 46 2d 52 32  |35626,R2B+P+F-R2|
00004890  50 2d 46 2b 42 2b 52 32  50 2d 4c 2d 50 32 54 32  |P-F+B+R2P-L-P2T2|
000048a0  46 32 52 2d 46 32 54 32  50 2d 0d 15 ea 21 dc 20  |F2R-F2T2P-...!. |
000048b0  34 36 36 35 32 36 33 36  2c 46 2b 54 32 50 32 4c  |46652636,F+T2P2L|
000048c0  2b 50 32 54 32 46 32 52  2b 46 2b 0d 15 f4 21 dc  |+P2T2F2R+F+...!.|
000048d0  20 35 32 34 33 36 36 36  36 2c 4c 32 42 2d 46 2b  | 52436666,L2B-F+|
000048e0  50 2d 4c 32 46 2d 50 2b  42 2d 4c 32 0d 15 fe 35  |P-L2F-P+B-L2...5|
000048f0  dc 20 35 32 36 36 36 36  34 33 2c 50 2b 42 2b 50  |. 52666643,P+B+P|
00004900  2d 4c 2d 46 2d 52 2d 42  2d 52 2b 46 2b 4c 2b 50  |-L-F-R-B-R+F+L+P|
00004910  32 42 2d 4c 2b 52 2d 50  32 4c 2d 52 2b 42 2d 50  |2B-L+R-P2L-R+B-P|
00004920  32 0d 16 08 21 dc 20 35  33 32 34 36 36 36 36 2c  |2...!. 53246666,|
00004930  50 32 42 2d 4c 2b 52 2d  50 32 4c 2d 52 2b 42 2d  |P2B-L+R-P2L-R+B-|
00004940  50 32 0d 16 12 23 dc 20  35 33 36 36 36 36 32 34  |P2...#. 53666624|
00004950  2c 52 2d 42 2d 52 2b 46  2b 4c 2b 50 2b 42 2b 50  |,R-B-R+F+L+P+B+P|
00004960  2d 4c 2d 46 2d 0d 16 1c  33 dc 20 35 34 33 32 36  |-L-F-...3. 54326|
00004970  36 36 36 2c 52 32 42 2d  50 2b 46 2d 52 32 50 2d  |666,R2B-P+F-R2P-|
00004980  46 2b 42 2d 52 32 50 32  42 2d 4c 2b 52 2d 50 32  |F+B-R2P2B-L+R-P2|
00004990  4c 2d 52 2b 42 2d 50 32  0d 16 26 33 dc 20 35 34  |L-R+B-P2..&3. 54|
000049a0  36 36 36 36 33 32 2c 52  2b 54 32 4c 32 46 2b 4c  |666632,R+T2L2F+L|
000049b0  32 54 32 52 32 50 2b 52  2b 50 32 42 2d 4c 2b 52  |2T2R2P+R+P2B-L+R|
000049c0  2d 50 32 4c 2d 52 2b 42  2d 50 32 0d 16 30 33 dc  |-P2L-R+B-P2..03.|
000049d0  20 35 36 32 36 33 36 36  34 2c 46 32 42 2b 52 2b  | 56263664,F2B+R+|
000049e0  4c 2d 46 32 52 2d 4c 2b  42 2b 46 32 52 2b 54 32  |L-F2R-L+B+F2R+T2|
000049f0  4c 32 46 2b 4c 32 54 32  52 32 50 2b 52 2b 0d 16  |L2F+L2T2R2P+R+..|
00004a00  3a 33 dc 20 35 36 33 36  34 36 36 32 2c 52 32 42  |:3. 56364662,R2B|
00004a10  2d 50 2b 46 2d 52 32 50  2d 46 2b 42 2d 52 2b 42  |-P+F-R2P-F+B-R+B|
00004a20  2d 52 2b 46 2b 4c 2b 50  2b 42 2b 50 2d 4c 2d 46  |-R+F+L+P+B+P-L-F|
00004a30  2d 0d 16 44 23 dc 20 35  36 34 36 32 36 36 33 2c  |-..D#. 56462663,|
00004a40  52 2d 50 2d 4c 2d 42 2b  4c 2b 50 2b 52 2b 46 2b  |R-P-L-B+L+P+R+F+|
00004a50  42 2d 46 2d 0d 16 4e 33  dc 20 35 36 36 32 34 36  |B-F-..N3. 566246|
00004a60  33 36 2c 46 2b 54 32 50  32 4c 2b 50 32 54 32 46  |36,F+T2P2L+P2T2F|
00004a70  32 52 2b 46 2b 50 32 42  2b 4c 2b 52 2d 50 32 4c  |2R+F+P2B+L+R-P2L|
00004a80  2d 52 2b 42 2b 50 32 0d  16 58 33 dc 20 35 36 36  |-R+B+P2..X3. 566|
00004a90  33 32 36 34 36 2c 52 2d  50 2d 52 32 54 32 4c 32  |32646,R-P-R2T2L2|
00004aa0  46 2d 4c 32 54 32 52 2d  50 32 42 2d 4c 2b 52 2d  |F-L2T2R-P2B-L+R-|
00004ab0  50 32 4c 2d 52 2b 42 2d  50 32 0d 16 62 35 dc 20  |P2L-R+B-P2..b5. |
00004ac0  35 36 36 34 33 36 32 36  2c 52 2b 42 2b 52 2d 50  |56643626,R+B+R-P|
00004ad0  2d 4c 2d 46 2d 42 2d 46  2b 4c 2b 50 2b 52 32 42  |-L-F-B-F+L+P+R2B|
00004ae0  2d 50 2b 46 2d 52 32 50  2d 46 2b 42 2d 52 32 0d  |-P+F-R2P-F+B-R2.|
00004af0  16 6c 35 dc 20 36 32 33  36 36 34 36 35 2c 52 32  |.l5. 62366465,R2|
00004b00  42 2d 50 2b 46 2d 52 32  50 2d 46 2b 42 2d 52 32  |B-P+F-R2P-F+B-R2|
00004b10  46 2b 4c 2b 50 2b 42 2d  50 2d 4c 2d 46 2d 52 2d  |F+L+P+B-P-L-F-R-|
00004b20  42 2b 52 2b 0d 16 76 23  dc 20 36 32 34 36 36 35  |B+R+..v#. 624665|
00004b30  36 33 2c 50 2d 42 2d 50  2b 52 2b 46 2b 4c 2b 42  |63,P-B-P+R+F+L+B|
00004b40  2b 4c 2d 46 2d 52 2d 0d  16 80 33 dc 20 36 32 35  |+L-F-R-...3. 625|
00004b50  36 36 33 36 34 2c 4c 2d  46 2d 4c 32 54 32 52 32  |66364,L-F-L2T2R2|
00004b60  50 2d 52 32 54 32 4c 2d  50 32 42 2b 4c 2b 52 2d  |P-R2T2L-P2B+L+R-|
00004b70  50 32 4c 2d 52 2b 42 2b  50 32 0d 16 8a 33 dc 20  |P2L-R+B+P2...3. |
00004b80  36 32 36 33 36 35 34 36  2c 52 32 42 2b 50 2b 46  |62636546,R2B+P+F|
00004b90  2d 52 32 50 2d 46 2b 42  2b 52 32 50 2b 54 32 46  |-R2P-F+B+R2P+T2F|
00004ba0  32 52 2b 46 32 54 32 50  32 4c 2b 50 2b 0d 16 94  |2R+F2T2P2L+P+...|
00004bb0  33 dc 20 36 32 36 34 36  33 35 36 2c 46 2d 52 2d  |3. 62646356,F-R-|
00004bc0  46 32 54 32 50 32 4c 2d  50 32 54 32 46 32 52 2d  |F2T2P2L-P2T2F2R-|
00004bd0  50 2d 42 2b 50 2b 52 2b  46 2b 4c 2b 42 2d 4c 2d  |P-B+P+R+F+L+B-L-|
00004be0  0d 16 9e 23 dc 20 36 32  36 35 36 34 33 36 2c 50  |...#. 62656436,P|
00004bf0  2d 4c 2d 46 2d 42 2b 46  2b 4c 2b 50 2b 52 2b 42  |-L-F-B+F+L+P+R+B|
00004c00  2d 52 2d 0d 16 a8 21 dc  20 36 33 32 36 36 35 36  |-R-...!. 6326656|
00004c10  34 2c 50 2b 54 32 46 32  52 2b 46 32 54 32 50 32  |4,P+T2F2R+F2T2P2|
00004c20  4c 2b 50 2b 0d 16 b2 29  dc 20 36 33 34 36 36 32  |L+P+...). 634662|
00004c30  36 35 2c 50 2d 42 32 50  32 42 2b 50 2d 42 2d 50  |65,P-B2P2B+P-B-P|
00004c40  2d 42 32 46 2b 4c 2b 50  2b 4c 2d 46 2d 0d 16 bc  |-B2F+L+P+L-F-...|
00004c50  23 dc 20 36 33 35 36 36  34 36 32 2c 4c 2b 42 2b  |#. 63566462,L+B+|
00004c60  4c 2d 46 2d 52 2d 50 2d  42 2d 50 2b 52 2b 46 2b  |L-F-R-P-B-P+R+F+|
00004c70  0d 16 c6 23 dc 20 36 33  36 32 36 34 35 36 2c 46  |...#. 63626456,F|
00004c80  2b 4c 2b 50 2b 42 2d 50  2d 4c 2d 46 2d 52 2d 42  |+L+P+B-P-L-F-R-B|
00004c90  2b 52 2b 0d 16 d0 23 dc  20 36 33 36 34 36 35 32  |+R+...#. 6364652|
00004ca0  36 2c 46 2d 52 2d 50 2d  42 2b 50 2b 52 2b 46 2b  |6,F-R-P-B+P+R+F+|
00004cb0  4c 2b 42 2d 4c 2d 0d 16  da 2b dc 20 36 33 36 35  |L+B-L-...+. 6365|
00004cc0  36 32 34 36 2c 46 2b 4c  2d 42 2b 46 2d 4c 2b 52  |6246,F+L-B+F-L+R|
00004cd0  2d 42 2b 50 2d 4c 2b 42  2d 50 2b 4c 2d 52 2b 42  |-B+P-L+B-P+L-R+B|
00004ce0  2d 0d 16 e4 33 dc 20 36  34 32 36 36 33 36 35 2c  |-...3. 64266365,|
00004cf0  4c 2d 46 2d 4c 32 54 32  52 32 50 2d 52 32 54 32  |L-F-L2T2R2P-R2T2|
00004d00  4c 2d 50 32 42 2d 4c 2b  52 2d 50 32 4c 2d 52 2b  |L-P2B-L+R-P2L-R+|
00004d10  42 2d 50 32 0d 16 ee 33  dc 20 36 34 33 36 36 35  |B-P2...3. 643665|
00004d20  36 32 2c 46 32 42 2d 52  2b 4c 2d 46 32 52 2d 4c  |62,F2B-R+L-F2R-L|
00004d30  2b 42 2d 46 32 50 2d 4c  2d 50 32 54 32 46 32 52  |+B-F2P-L-P2T2F2R|
00004d40  2d 46 32 54 32 50 2d 0d  16 f8 35 dc 20 36 34 35  |-F2T2P-...5. 645|
00004d50  36 36 32 36 33 2c 50 2d  42 2d 50 2b 52 2b 46 2b  |66263,P-B-P+R+F+|
00004d60  4c 2b 42 2b 4c 2d 46 2d  52 2d 50 32 42 2b 4c 2b  |L+B+L-F-R-P2B+L+|
00004d70  52 2d 50 32 4c 2d 52 2b  42 2b 50 32 0d 17 02 35  |R-P2L-R+B+P2...5|
00004d80  dc 20 36 34 36 32 36 35  33 36 2c 52 2b 54 32 4c  |. 64626536,R+T2L|
00004d90  32 46 2b 4c 32 54 32 52  32 50 2b 52 2b 46 2d 52  |2F+L2T2R2P+R+F-R|
00004da0  2d 50 2d 42 2b 50 2b 52  2b 46 2b 4c 2b 42 2d 4c  |-P-B+P+R+F+L+B-L|
00004db0  2d 0d 17 0c 33 dc 20 36  34 36 33 36 32 35 36 2c  |-...3. 64636256,|
00004dc0  4c 32 42 2d 46 2b 50 2d  4c 32 46 2d 50 2b 42 2d  |L2B-F+P-L2F-P+B-|
00004dd0  4c 32 50 2d 4c 2d 50 32  54 32 46 32 52 2d 46 32  |L2P-L-P2T2F2R-F2|
00004de0  54 32 50 2d 0d 17 16 23  dc 20 36 34 36 35 36 33  |T2P-...#. 646563|
00004df0  32 36 2c 50 2b 52 2b 46  2b 42 2d 46 2d 52 2d 50  |26,P+R+F+B-F-R-P|
00004e00  2d 4c 2d 42 2b 4c 2b 0d  17 20 33 dc 20 36 35 32  |-L-B+L+.. 3. 652|
00004e10  36 36 34 36 33 2c 50 32  42 2d 4c 2b 52 2d 50 32  |66463,P2B-L+R-P2|
00004e20  4c 2d 52 2b 42 2d 50 32  52 2b 54 32 4c 32 46 2b  |L-R+B-P2R+T2L2F+|
00004e30  4c 32 54 32 52 32 50 2b  52 2b 0d 17 2a 33 dc 20  |L2T2R2P+R+..*3. |
00004e40  36 35 33 36 36 32 36 34  2c 4c 2d 46 2d 4c 32 54  |65366264,L-F-L2T|
00004e50  32 52 32 50 2d 52 32 54  32 4c 2d 46 32 42 2d 52  |2R2P-R2T2L-F2B-R|
00004e60  2b 4c 2d 46 32 52 2d 4c  2b 42 2d 46 32 0d 17 34  |+L-F2R-L+B-F2..4|
00004e70  21 dc 20 36 35 34 36 36  33 36 32 2c 4c 2d 46 2d  |!. 65466362,L-F-|
00004e80  4c 32 54 32 52 32 50 2d  52 32 54 32 4c 2d 0d 17  |L2T2R2P-R2T2L-..|
00004e90  3e 33 dc 20 36 35 36 32  36 33 34 36 2c 50 32 42  |>3. 65626346,P2B|
00004ea0  2b 4c 2b 52 2d 50 32 4c  2d 52 2b 42 2b 50 32 52  |+L+R-P2L-R+B+P2R|
00004eb0  2b 54 32 4c 32 46 2b 4c  32 54 32 52 32 50 2b 52  |+T2L2F+L2T2R2P+R|
00004ec0  2b 0d 17 48 35 dc 20 36  35 36 33 36 34 32 36 2c  |+..H5. 65636426,|
00004ed0  52 2d 50 2d 52 32 54 32  4c 32 46 2d 4c 32 54 32  |R-P-R2T2L2F-L2T2|
00004ee0  52 2d 46 2b 4c 2b 50 2b  42 2d 50 2d 4c 2d 46 2d  |R-F+L+P+B-P-L-F-|
00004ef0  52 2d 42 2b 52 2b 0d 17  52 33 dc 20 36 35 36 34  |R-B+R+..R3. 6564|
00004f00  36 32 33 36 2c 4c 32 42  2b 46 2b 50 2d 4c 32 46  |6236,L2B+F+P-L2F|
00004f10  2d 50 2b 42 2b 4c 32 46  2b 54 32 50 32 4c 2b 50  |-P+B+L2F+T2P2L+P|
00004f20  32 54 32 46 32 52 2b 46  2b 0d 17 5c 33 dc 20 36  |2T2F2R+F+..\3. 6|
00004f30  36 32 33 35 34 36 36 2c  4c 32 42 2d 46 2b 50 2d  |6235466,L2B-F+P-|
00004f40  4c 32 46 2d 50 2b 42 2d  4c 32 50 2b 54 32 46 32  |L2F-P+B-L2P+T2F2|
00004f50  52 2b 46 32 54 32 50 32  4c 2b 50 2b 0d 17 66 33  |R+F2T2P2L+P+..f3|
00004f60  dc 20 36 36 32 34 33 35  36 36 2c 46 2d 52 2d 46  |. 66243566,F-R-F|
00004f70  32 54 32 50 32 4c 2d 50  32 54 32 46 2d 52 32 42  |2T2P2L-P2T2F-R2B|
00004f80  2d 50 2b 46 2d 52 32 50  2d 46 2b 42 2d 52 32 0d  |-P+F-R2P-F+B-R2.|
00004f90  17 70 21 dc 20 36 36 32  35 34 33 36 36 2c 46 2d  |.p!. 66254366,F-|
00004fa0  52 2d 46 32 54 32 50 32  4c 2d 50 32 54 32 46 2d  |R-F2T2P2L-P2T2F-|
00004fb0  0d 17 7a 33 dc 20 36 36  33 32 34 35 36 36 2c 52  |..z3. 66324566,R|
00004fc0  32 42 2d 50 2b 46 2d 52  32 50 2d 46 2b 42 2d 52  |2B-P+F-R2P-F+B-R|
00004fd0  32 50 2b 54 32 46 32 52  2b 46 32 54 32 50 32 4c  |2P+T2F2R+F2T2P2L|
00004fe0  2b 50 2b 0d 17 84 33 dc  20 36 36 33 34 35 32 36  |+P+...3. 6634526|
00004ff0  36 2c 46 32 42 2d 52 2b  4c 2d 46 32 52 2d 4c 2b  |6,F2B-R+L-F2R-L+|
00005000  42 2d 46 2b 52 2d 50 2d  42 2b 50 2b 52 2b 46 2b  |B-F+R-P-B+P+R+F+|
00005010  4c 2b 42 2d 4c 2d 0d 17  8e 23 dc 20 36 36 33 35  |L+B-L-...#. 6635|
00005020  32 34 36 36 2c 4c 2d 42  2d 4c 2b 50 2b 52 2b 46  |2466,L-B-L+P+R+F|
00005030  2b 42 2b 46 2d 52 2d 50  2d 0d 17 98 23 dc 20 36  |+B+F-R-P-...#. 6|
00005040  36 34 32 35 33 36 36 2c  46 2b 42 2b 46 2d 52 2d  |6425366,F+B+F-R-|
00005050  50 2d 4c 2d 42 2d 4c 2b  50 2b 52 2b 0d 17 a2 21  |P-L-B-L+P+R+...!|
00005060  dc 20 36 36 34 33 32 35  36 36 2c 4c 2b 54 32 52  |. 66432566,L+T2R|
00005070  32 50 2b 52 32 54 32 4c  32 46 2b 4c 2b 0d 17 ac  |2P+R2T2L2F+L+...|
00005080  31 dc 20 36 36 34 35 33  32 36 36 2c 43 2d 43 2d  |1. 66453266,C-C-|
00005090  52 2d 42 32 52 32 42 2b  52 2d 42 2d 52 2d 42 32  |R-B2R2B+R-B-R-B2|
000050a0  4c 2b 50 2b 52 2b 50 2d  4c 2d 43 2d 43 2d 0d 17  |L+P+R+P-L-C-C-..|
000050b0  b6 33 dc 20 36 36 35 32  33 34 36 36 2c 4c 32 42  |.3. 66523466,L2B|
000050c0  2b 46 2b 50 2d 4c 32 46  2d 50 2b 42 2b 4c 2d 50  |+F+P-L2F-P+B+L-P|
000050d0  2b 52 2b 42 2d 52 2d 50  2d 4c 2d 46 2d 42 2b 46  |+R+B-R-P-L-F-B+F|
000050e0  2b 0d 17 c0 33 dc 20 36  36 35 33 34 32 36 36 2c  |+...3. 66534266,|
000050f0  4c 2b 54 32 52 32 50 2b  52 32 54 32 4c 32 46 2b  |L+T2R2P+R2T2L2F+|
00005100  4c 2b 50 32 42 2b 4c 2b  52 2d 50 32 4c 2d 52 2b  |L+P2B+L+R-P2L-R+|
00005110  42 2b 50 32 0d 17 ca 33  dc 20 36 36 35 34 32 33  |B+P2...3. 665423|
00005120  36 36 2c 46 2d 52 2d 46  32 54 32 50 32 4c 2d 50  |66,F-R-F2T2P2L-P|
00005130  32 54 32 46 2d 50 32 42  2d 4c 2b 52 2d 50 32 4c  |2T2F-P2B-L+R-P2L|
00005140  2d 52 2b 42 2d 50 32 0d  17 d4 33 dc 20 36 36 36  |-R+B-P2...3. 666|
00005150  36 32 33 35 34 2c 46 2d  52 2d 46 32 54 32 50 32  |62354,F-R-F2T2P2|
00005160  4c 2d 50 32 54 32 46 2d  50 2b 54 32 46 32 52 2b  |L-P2T2F-P+T2F2R+|
00005170  46 32 54 32 50 32 4c 2b  50 2b 0d 17 de 35 dc 20  |F2T2P2L+P+...5. |
00005180  36 36 36 36 32 34 33 35  2c 52 2b 54 32 4c 32 46  |66662435,R+T2L2F|
00005190  2b 4c 32 54 32 52 32 50  2b 52 2b 4c 2b 42 2b 4c  |+L2T2R2P+R+L+B+L|
000051a0  2d 46 2d 52 2d 50 2d 42  2d 50 2b 52 2b 46 2b 0d  |-F-R-P-B-P+R+F+.|
000051b0  17 e8 35 dc 20 36 36 36  36 32 35 34 33 2c 4c 2b  |..5. 66662543,L+|
000051c0  50 2b 52 2b 42 2d 52 2d  50 2d 4c 2d 46 2d 42 2b  |P+R+B-R-P-L-F-B+|
000051d0  46 2b 50 2b 54 32 46 32  52 2b 46 32 54 32 50 32  |F+P+T2F2R+F2T2P2|
000051e0  4c 2b 50 2b 0d 17 f2 33  dc 20 36 36 36 36 33 32  |L+P+...3. 666632|
000051f0  34 35 2c 4c 2d 52 2b 46  32 4c 2b 52 2d 42 32 4c  |45,L-R+F2L+R-B2L|
00005200  2d 52 2b 46 2b 4c 2b 52  2d 42 32 4c 2d 52 2b 46  |-R+F+L+R-B2L-R+F|
00005210  32 4c 2b 52 2d 42 2d 0d  17 fc 35 dc 20 36 36 36  |2L+R-B-...5. 666|
00005220  36 33 34 35 32 2c 4c 2d  46 2d 4c 32 54 32 52 32  |63452,L-F-L2T2R2|
00005230  50 2d 52 32 54 32 4c 2d  50 2b 42 2b 50 2d 4c 2d  |P-R2T2L-P+B+P-L-|
00005240  46 2d 52 2d 42 2d 52 2b  46 2b 4c 2b 0d 18 06 35  |F-R-B-R+F+L+...5|
00005250  dc 20 36 36 36 36 33 35  32 34 2c 50 2b 52 2b 46  |. 66663524,P+R+F|
00005260  2b 42 2d 46 2d 52 2d 50  2d 4c 2d 42 2b 4c 2b 52  |+B-F-R-P-L-B+L+R|
00005270  2b 54 32 4c 32 46 2b 4c  32 54 32 52 32 50 2b 52  |+T2L2F+L2T2R2P+R|
00005280  2b 0d 18 10 35 dc 20 36  36 36 36 34 32 35 33 2c  |+...5. 66664253,|
00005290  52 2d 50 2d 4c 2d 42 2b  4c 2b 50 2b 52 2b 46 2b  |R-P-L-B+L+P+R+F+|
000052a0  42 2d 46 2d 50 2d 4c 2d  50 32 54 32 46 32 52 2d  |B-F-P-L-P2T2F2R-|
000052b0  46 32 54 32 50 2d 0d 18  1a 35 dc 20 36 36 36 36  |F2T2P-...5. 6666|
000052c0  34 33 32 35 2c 4c 2d 46  2d 4c 32 54 32 52 32 50  |4325,L-F-L2T2R2P|
000052d0  2d 52 32 54 32 4c 2d 52  2d 42 2d 52 2b 46 2b 4c  |-R2T2L-R-B-R+F+L|
000052e0  2b 50 2b 42 2b 50 2d 4c  2d 46 2d 0d 18 24 33 dc  |+P+B+P-L-F-..$3.|
000052f0  20 36 36 36 36 34 35 33  32 2c 52 2b 54 32 4c 32  | 66664532,R+T2L2|
00005300  46 2b 4c 32 54 32 52 32  50 2b 52 2b 50 2b 54 32  |F+L2T2R2P+R+P+T2|
00005310  46 32 52 2b 46 32 54 32  50 32 4c 2b 50 2b 0d 18  |F2R+F2T2P2L+P+..|
00005320  2e 35 dc 20 36 36 36 36  35 32 33 34 2c 46 2b 54  |.5. 66665234,F+T|
00005330  32 50 32 4c 2b 50 32 54  32 46 32 52 2b 46 2b 52  |2P2L+P2T2F2R+F+R|
00005340  2d 42 2d 52 2b 46 2b 4c  2b 50 2b 42 2b 50 2d 4c  |-B-R+F+L+P+B+P-L|
00005350  2d 46 2d 0d 18 38 35 dc  20 36 36 36 36 35 33 34  |-F-..85. 6666534|
00005360  32 2c 46 2d 52 2d 46 32  54 32 50 32 4c 2d 50 32  |2,F-R-F2T2P2L-P2|
00005370  54 32 46 2d 4c 2b 42 2b  4c 2d 46 2d 52 2d 50 2d  |T2F-L+B+L-F-R-P-|
00005380  42 2d 50 2b 52 2b 46 2b  0d 18 42 3b dc 20 36 36  |B-P+R+F+..B;. 66|
00005390  36 36 35 34 32 33 2c 50  2b 42 2b 50 2d 4c 2d 46  |665423,P+B+P-L-F|
000053a0  2d 52 2d 42 2d 52 2b 46  2b 4c 2b 46 2b 4c 2b 50  |-R-B-R+F+L+F+L+P|
000053b0  2b 42 2d 50 2d 4c 2d 46  2d 52 2d 42 2b 52 2b 2c  |+B-P-L-F-R-B+R+,|
000053c0  2a 2c 2a 0d 18 4c 33 54  3d 30 3a e3 20 49 3d 30  |*,*..L3T=0:. I=0|
000053d0  20 b8 20 34 35 20 88 20  39 3a e3 20 4a 3d 31 20  | . 45 . 9:. J=1 |
000053e0  b8 20 38 3a e7 20 43 28  49 29 3c 3e 43 28 49 2b  |. 8:. C(I)<>C(I+|
000053f0  4a 29 20 54 3d 31 0d 18  56 34 ed 3a ed 3a e7 20  |J) T=1..V4.:.:. |
00005400  54 20 6d 65 73 73 3d 36  3a e1 20 8b 20 53 53 24  |T mess=6:. . SS$|
00005410  3d a4 65 6e 63 6f 64 65  28 53 52 24 29 2b a4 65  |=.encode(SR$)+.e|
00005420  6e 63 6f 64 65 28 53 53  24 29 0d 18 60 1f 53 53  |ncode(SS$)..`.SS|
00005430  24 3d a4 63 6f 6d 70 72  65 73 73 28 53 53 24 29  |$=.compress(SS$)|
00005440  3a 6d 65 73 73 3d 35 3a  e1 0d 18 6a 05 3a 0d 18  |:mess=5:...j.:..|
00005450  74 16 dd a4 63 6f 72 6e  65 72 28 41 41 2c 42 42  |t...corner(AA,BB|
00005460  2c 44 44 29 0d 18 7e 21  e7 20 43 28 41 41 29 3d  |,DD)..~!. C(AA)=|
00005470  43 28 34 39 29 20 41 3d  43 28 42 42 29 3a 42 3d  |C(49) A=C(BB):B=|
00005480  43 28 44 44 29 0d 18 88  21 e7 20 43 28 42 42 29  |C(DD)...!. C(BB)|
00005490  3d 43 28 34 39 29 20 41  3d 43 28 44 44 29 3a 42  |=C(49) A=C(DD):B|
000054a0  3d 43 28 41 41 29 0d 18  92 21 e7 20 43 28 44 44  |=C(AA)...!. C(DD|
000054b0  29 3d 43 28 34 39 29 20  41 3d 43 28 41 41 29 3a  |)=C(49) A=C(AA):|
000054c0  42 3d 43 28 42 42 29 0d  18 9c 1c e7 20 41 3d 43  |B=C(BB)..... A=C|
000054d0  28 31 33 29 20 80 20 42  3d 43 28 32 32 29 20 3d  |(13) . B=C(22) =|
000054e0  22 31 22 0d 18 a6 1c e7  20 41 3d 43 28 32 32 29  |"1"..... A=C(22)|
000054f0  20 80 20 42 3d 43 28 33  31 29 20 3d 22 32 22 0d  | . B=C(31) ="2".|
00005500  18 b0 1c e7 20 41 3d 43  28 34 30 29 20 80 20 42  |.... A=C(40) . B|
00005510  3d 43 28 31 33 29 20 3d  22 33 22 0d 18 ba 23 e7  |=C(13) ="3"...#.|
00005520  20 41 3d 43 28 33 31 29  20 80 20 42 3d 43 28 34  | A=C(31) . B=C(4|
00005530  30 29 20 3d 22 34 22 20  8b 20 3d 22 30 22 0d 18  |0) ="4" . ="0"..|
00005540  c4 05 3a 0d 18 ce 20 dd  a4 65 64 67 65 28 41 41  |..:... ..edge(AA|
00005550  29 3d c3 28 a7 42 45 24  2c c3 28 43 28 41 41 29  |)=.(.BE$,.(C(AA)|
00005560  29 29 29 0d 18 d8 05 3a  0d 18 e2 1c dd a4 65 6e  |)))....:......en|
00005570  63 6f 64 65 28 50 24 29  3a e7 20 50 24 3d 22 22  |code(P$):. P$=""|
00005580  20 3d 22 22 0d 18 ec 12  ea 20 49 2c 4a 2c 49 24  | =""..... I,J,I$|
00005590  3a 49 24 3d 22 22 0d 18  f6 15 e3 20 49 3d 31 20  |:I$=""..... I=1 |
000055a0  b8 20 a9 28 50 24 29 20  88 20 32 0d 19 00 3a 4a  |. .(P$) . 2...:J|
000055b0  3d a7 22 20 54 2b 54 32  54 2d 42 2b 42 32 42 2d  |=." T+T2T-B+B2B-|
000055c0  4c 2b 4c 32 4c 2d 52 2b  52 32 52 2d 46 2b 46 32  |L+L2L-R+R2R-F+F2|
000055d0  46 2d 50 2b 50 32 50 2d  22 2c c1 50 24 2c 49 2c  |F-P+P2P-",.P$,I,|
000055e0  32 29 29 2f 32 0d 19 0a  15 49 24 2b 3d bd 28 4a  |2))/2....I$+=.(J|
000055f0  2b 36 35 29 3a ed 3a 3d  49 24 0d 19 14 05 3a 0d  |+65):.:=I$....:.|
00005600  19 1e 1e dd a4 63 6f 6d  70 72 65 73 73 28 50 24  |.....compress(P$|
00005610  29 3a e7 20 50 24 3d 22  22 20 3d 22 22 0d 19 28  |):. P$="" =""..(|
00005620  13 ea 20 41 2c 42 2c 43  2c 44 2c 46 2c 49 2c 4a  |.. A,B,C,D,F,I,J|
00005630  0d 19 32 19 f5 3a 46 3d  30 3a e3 20 49 3d 31 20  |..2..:F=0:. I=1 |
00005640  b8 20 a9 28 50 24 29 2d  31 0d 19 3c 21 41 3d 97  |. .(P$)-1..<!A=.|
00005650  28 c1 50 24 2c 49 2c 31  29 29 3a 42 3d 97 28 c1  |(.P$,I,1)):B=.(.|
00005660  50 24 2c 49 2b 31 2c 31  29 29 0d 19 46 2f e7 20  |P$,I+1,1))..F/. |
00005670  28 41 20 81 20 36 29 3d  28 42 20 81 20 36 29 20  |(A . 6)=(B . 6) |
00005680  80 20 28 41 20 83 20 36  29 3e 32 20 80 20 28 42  |. (A . 6)>2 . (B|
00005690  20 83 20 36 29 3c 33 20  8c 0d 19 50 22 46 3d 31  | . 6)<3 ...P"F=1|
000056a0  3a 50 24 3d c0 50 24 2c  49 2d 31 29 2b bd 42 2b  |:P$=.P$,I-1)+.B+|
000056b0  bd 41 2b c1 50 24 2c 49  2b 32 29 0d 19 5a 0d cd  |.A+.P$,I+2)..Z..|
000056c0  3a ed 3a fd 20 46 3d 30  0d 19 64 19 f5 3a 46 3d  |:.:. F=0..d..:F=|
000056d0  30 3a e3 20 49 3d 31 20  b8 20 a9 28 50 24 29 2d  |0:. I=1 . .(P$)-|
000056e0  31 0d 19 6e 21 41 3d 97  28 c1 50 24 2c 49 2c 31  |1..n!A=.(.P$,I,1|
000056f0  29 29 3a 42 3d 97 28 c1  50 24 2c 49 2b 31 2c 31  |)):B=.(.P$,I+1,1|
00005700  29 29 0d 19 78 1e e7 20  28 41 20 81 20 33 29 3d  |))..x.. (A . 3)=|
00005710  28 42 20 81 20 33 29 20  80 20 41 3e 33 32 20 8c  |(B . 3) . A>32 .|
00005720  0d 19 82 29 43 3d 28 28  41 20 83 20 33 29 2b 28  |...)C=((A . 3)+(|
00005730  42 20 83 20 33 29 2b 31  29 20 83 20 34 3a 44 3d  |B . 3)+1) . 4:D=|
00005740  41 2d 28 41 20 83 20 33  29 0d 19 8c 0a c8 8e 20  |A-(A . 3)...... |
00005750  43 20 ca 0d 19 96 2b c9  20 30 2c 31 2c 32 3a 50  |C ....+. 0,1,2:P|
00005760  24 3d c0 50 24 2c 49 2d  31 29 2b bd 28 44 2b 43  |$=.P$,I-1)+.(D+C|
00005770  29 2b c1 50 24 2c 49 2b  32 29 2b 22 20 22 0d 19  |)+.P$,I+2)+" "..|
00005780  a0 21 c9 20 33 3a 50 24  3d c0 50 24 2c 49 2d 31  |.!. 3:P$=.P$,I-1|
00005790  29 2b c1 50 24 2c 49 2b  32 29 2b 22 20 20 22 0d  |)+.P$,I+2)+"  ".|
000057a0  19 aa 09 cb 3a 46 3d 31  0d 19 b4 0d cd 3a ed 3a  |....:F=1.....:.:|
000057b0  fd 20 46 3d 30 0d 19 be  1d c8 95 20 c2 50 24 29  |. F=0...... .P$)|
000057c0  3d 22 20 22 3a 50 24 3d  c0 50 24 29 3a ce 3a 3d  |=" ":P$=.P$):.:=|
000057d0  50 24 0d 19 c8 05 3a 0d  19 d2 0c dd f2 63 68 6f  |P$....:......cho|
000057e0  6f 73 65 0d 19 dc 2d e7  20 41 24 28 31 29 3c 3e  |ose...-. A$(1)<>|
000057f0  22 22 20 80 20 a9 28 41  24 28 31 29 29 3c a9 28  |"" . .(A$(1))<.(|
00005800  56 24 29 20 56 24 3d 41  24 28 31 29 3a 46 3d 30  |V$) V$=A$(1):F=0|
00005810  0d 19 e6 2d e7 20 41 24  28 32 29 3c 3e 22 22 20  |...-. A$(2)<>"" |
00005820  80 20 a9 28 41 24 28 32  29 29 3c a9 28 56 24 29  |. .(A$(2))<.(V$)|
00005830  20 56 24 3d 41 24 28 32  29 3a 46 3d 31 0d 19 f0  | V$=A$(2):F=1...|
00005840  2d e7 20 41 24 28 33 29  3c 3e 22 22 20 80 20 a9  |-. A$(3)<>"" . .|
00005850  28 41 24 28 33 29 29 3c  a9 28 56 24 29 20 56 24  |(A$(3))<.(V$) V$|
00005860  3d 41 24 28 33 29 3a 46  3d 32 0d 19 fa 2d e7 20  |=A$(3):F=2...-. |
00005870  41 24 28 34 29 3c 3e 22  22 20 80 20 a9 28 41 24  |A$(4)<>"" . .(A$|
00005880  28 34 29 29 3c a9 28 56  24 29 20 56 24 3d 41 24  |(4))<.(V$) V$=A$|
00005890  28 34 29 3a 46 3d 33 0d  1a 04 1d 41 24 3d c4 46  |(4):F=3....A$=.F|
000058a0  2c 22 43 2d 22 29 2b 56  24 2b c4 34 2d 46 2c 22  |,"C-")+V$+.4-F,"|
000058b0  43 2d 22 29 0d 1a 0e 1b  f2 73 65 71 75 65 6e 63  |C-").....sequenc|
000058c0  65 28 41 24 29 3a 53 53  24 2b 3d 41 24 3a e1 0d  |e(A$):SS$+=A$:..|
000058d0  1a 18 05 3a 0d 1a 22 1c  dd f2 73 65 71 75 65 6e  |...:.."...sequen|
000058e0  63 65 28 53 24 29 3a e7  20 53 24 3d 22 22 20 e1  |ce(S$):. S$="" .|
000058f0  0d 1a 2c 1f ea 20 48 2c  49 2c 4a 2c 4f 3a e3 20  |..,.. H,I,J,O:. |
00005900  49 3d 31 20 b8 20 a9 28  53 24 29 20 88 20 32 0d  |I=1 . .(S$) . 2.|
00005910  1a 36 1e e3 20 48 3d 31  20 b8 20 a7 22 2d 32 2b  |.6.. H=1 . ."-2+|
00005920  22 2c c1 53 24 2c 49 2b  31 2c 31 29 29 0d 1a 40  |",.S$,I+1,1))..@|
00005930  1c 4f 3d a7 22 54 4c 46  52 50 42 43 22 2c c1 53  |.O=."TLFRPBC",.S|
00005940  24 2c 49 2c 31 29 29 2d  31 0d 1a 4a 15 e3 20 4a  |$,I,1))-1..J.. J|
00005950  3d 30 20 b8 20 34 3a e7  20 4f 3d 36 20 8c 0d 1a  |=0 . 4:. O=6 ...|
00005960  54 0d f2 73 70 69 6e 3a  4a 3d 34 0d 1a 5e 20 cc  |T..spin:J=4..^ .|
00005970  3a c8 94 20 43 28 52 28  4f 2c 4a 2c 30 29 29 2c  |:.. C(R(O,J,0)),|
00005980  43 28 52 28 4f 2c 4a 2c  31 29 29 0d 1a 68 1e c8  |C(R(O,J,1))..h..|
00005990  94 20 43 28 52 28 4f 2c  4a 2c 31 29 29 2c 43 28  |. C(R(O,J,1)),C(|
000059a0  52 28 4f 2c 4a 2c 32 29  29 0d 1a 72 1e c8 94 20  |R(O,J,2))..r... |
000059b0  43 28 52 28 4f 2c 4a 2c  32 29 29 2c 43 28 52 28  |C(R(O,J,2)),C(R(|
000059c0  4f 2c 4a 2c 33 29 29 0d  1a 7c 0d cd 3a ed 3a ed  |O,J,3))..|..:.:.|
000059d0  3a ed 3a e1 0d 1a 86 05  3a 0d 1a 90 3d dd f2 73  |:.:.....:...=..s|
000059e0  70 69 6e 3a f2 73 65 71  75 65 6e 63 65 28 22 54  |pin:.sequence("T|
000059f0  2d 42 2b 22 29 3a ea 20  49 3a e3 20 49 3d 33 20  |-B+"):. I:. I=3 |
00005a00  b8 20 35 3a c8 94 20 43  28 49 2b 32 37 29 2c 43  |. 5:.. C(I+27),C|
00005a10  28 49 2b 33 36 29 0d 1a  9a 2c c8 94 20 43 28 49  |(I+36)...,.. C(I|
00005a20  2b 31 38 29 2c 43 28 49  2b 32 37 29 3a c8 94 20  |+18),C(I+27):.. |
00005a30  43 28 49 2b 39 29 2c 43  28 49 2b 31 38 29 3a ed  |C(I+9),C(I+18):.|
00005a40  3a e1 0d 1a a4 05 3a 0d  1a ae 36 dd f2 70 61 6c  |:.....:...6..pal|
00005a50  3a ea 20 49 3a ef 31 39  2c 30 2c 32 34 2c 31 31  |:. I:.19,0,24,11|
00005a60  32 2c 31 31 32 2c 31 31  32 2c 31 39 2c 38 2c 31  |2,112,112,19,8,1|
00005a70  36 2c 31 31 32 2c 31 31  32 2c 31 31 32 0d 1a b8  |6,112,112,112...|
00005a80  21 e3 20 49 3d 39 20 b8  20 31 35 3a fb 20 49 2c  |!. I=9 . 15:. I,|
00005a90  31 35 3a ed 3a e3 20 49  3d 31 20 b8 20 36 0d 1a  |15:.:. I=1 . 6..|
00005aa0  c2 32 fb 20 49 2c 72 67  62 25 28 49 2c 30 2c 70  |.2. I,rgb%(I,0,p|
00005ab0  25 29 2c 72 67 62 25 28  49 2c 31 2c 70 25 29 2c  |%),rgb%(I,1,p%),|
00005ac0  72 67 62 25 28 49 2c 32  2c 70 25 29 3a ed 3a e1  |rgb%(I,2,p%):.:.|
00005ad0  0d 1a cc 05 3a 0d 1a d6  34 dd f2 64 72 61 77 5f  |....:...4..draw_|
00005ae0  70 61 6c 3a e3 20 49 3d  31 20 b8 20 36 3a e6 20  |pal:. I=1 . 6:. |
00005af0  49 3a c8 93 20 c8 90 20  37 32 30 2c 35 32 30 2d  |I:.. .. 720,520-|
00005b00  49 2a 31 36 30 2c 31 35  39 0d 1a e0 23 e6 20 30  |I*160,159...#. 0|
00005b10  3a ec 20 37 38 34 2c 36  31 32 2d 49 2a 31 36 30  |:. 784,612-I*160|
00005b20  3a ef 35 2c 49 2b 34 38  2c 34 3a 87 0d 1a ea 20  |:.5,I+48,4:.... |
00005b30  e6 20 30 3a c8 93 20 37  32 30 2c 35 32 30 2d 49  |. 0:.. 720,520-I|
00005b40  2a 31 36 30 2c 31 35 39  3a ed 3a e1 0d ff        |*160,159:.:...|
00005b4e