"� � � �$+" at line "+�(�/10):�
#ț "<Chem$Dir>.PROCS.IconPROCs"
#ț "<Chem$Dir>.PROCS.MenuPROCs"
(#ț "<Chem$Dir>.PROCS.MiscPROCs"
2#ț "<Chem$Dir>.PROCS.WindPROCs"
<#ț "<Chem$Dir>.PROCS.HelpPROCs"
F#ț "<Chem$Dir>.PROCS.ChemUtils"
P"ț "<Chem$Dir>.PROCS.Database"
Z�loadoptions
d�initialise
n'� � �error(�$+" at line "+ �(�/10))
xȕ � quit%
�	�poll
��
�ș "Wimp_CloseDown"
��
�
�� �receive(m%)
�Ȏ m% �
�� 0:quit%=�
�*� &502:help$=�helpmessage(b%!32,b%!36)
�� help$>"" �
�!b%=256
�b%!12=b%!8
�b%!16=&503

$(b%+20)=help$

ș "Wimp_SendMessage",17,b%

�

"�

,�

6

@� �initialise

J� ### data blocks ###

T
� b% 6500

^� t% 500

h� menutext% 4096

r� name% 11

|� text% 640

�� decode% 200

�� i_menu% 200

�!� valid1% 8:$valid1%="F18;R5"

�!� valid2% 8:$valid2%="F18;R2"

�!� valid3% 8:$valid3%="F1B;R2"

�!� valid4% 8:$valid4%="F1D;R5"

�2� valid5% 23:$valid5%="F1B;R2;a0-9;Pptr_write"

�!� valid6% 8:$valid6%="F1D;R2"

�� col1% 8:$col1%="R5;F18"

�� col2% 8:$col2%="R5;F1D"

�� col3% 8:$col3%="R5;F1B"

�� col4% 8:$col4%="R5;F17"

�� col5% 8:$col5%="R5;F1E"
� col6% 8:$col6%="R5;F14"
� col7% 8:$col7%="R5;F1A"
� col8% 8:$col8%="R5;F1F"
&/� btext2% 6:$(btext2%)="<":$(btext2%+3)=">"
0� eqtext% 300
:� calctext% 300
D� total% 300
N� btext% 1024
X� ### processing ###
b� forms$(1,max_comps1+1)
l%� e%(1,max_comps1+1,max_elements)
v&� em%(1,max_comps1+1,max_elements)
�&� ns%(1,max_comps1+1,max_elements)
�� m%(1,max_comps1+1)
�� m2%(1,max_comps1+1)
�� ne%(1,110)
�� mess$(4)
�� ### database ###
�� comps$(max_comps2-1)
�� comps2$(max_comps2-1)
�� ind$(max_grp-1)
�� ind%(max_grp-1)
�� ### storage ###
�� name$(110)
�� sym$(110)
� atno%(110)
� atms%(110)
�menusetupdims
 quit%=�
*notent$="<Not entered>"
4Bwindow$=�65+�100+�97+�109+�32+�71+�114+�97+�110+�103+�101+�114
>
pos%=0
Hnicons=0
R	err=0
\	ng%=0
fgroup%=0
p
com%=0
zi=0:cn1=0:cn2=0
�errclick%=0
�openmenu%=0
�app$="Chemistry"
��fontarray
�5ș "Wimp_Initialise",200,&4B534154,app$ � ,taskh%
�2ș "Wimp_OpenTemplate",,"<Chem$Dir>.Templates"
�add%=�window("add")
�balance%=�window("balance")
� data%=�window("Elementinfo")
�dbase%=�window("chemdbase")
�!equation%=�window("Equation")
�expand%=�window("expand")
�info%=�window("info")
intro%=�window("intro")
key%=�window("key")
message%=�window("Message")
$!namecomp%=�window("namecomp")
.numbers%=�window("numbers")
8options%=�window("options")
Bpercent%=�window("%comp")
L!periodic%=�window("Periodic")
Vram%=�window("RAM's")
`sure%=�window("sure")
jweights%=�window("weights")
t
~
�Jiconbar%=�create_icon(-1,0,0,68,68,%11000000011010,"!Chemistry",0,0,0)
�ș "Wimp_CloseTemplate"
��openwin(intro%)
�
� x=0 � 8
�	�poll
�� x
��setupmenu(i_menu%)
��compoundmenus(88)
�
�setup
��clearvars
��closewin(intro%)
��


� �setup
F=� "<Chem$Dir>.ChemData"
n=1
(
space%=68
2�
<
L$=�#F
Fp1=�L$,"!")+1:p2=�L$,"@")+1
Pp3=�L$,"#")+1:p4=�L$,"$")+1
Zp5=�L$,"%")+1:p6=�L$,"^")+1
d'x=�(�L$,0,p1))-1:y=�(�L$,p1,p2-p1))
n,Sym$=�L$,p2,p3-p2-1):Nm$=�L$,p3,p4-p3-1)
x+n1=�(�L$,p4,p5-p4)):n2=�(�L$,p5,p6-p5))
�col=�(�L$,1))
�� p1>1 �
�$(text%+(n*5))=Sym$
�@FG=�icon_flags(1,0,1,1,1,1,1,1,1,0,0,0,4,0,0,0,0,0,0,font1%)
�8sym$(n)=Sym$:name$(n)=Nm$:atms%(n)=n1*10:atno%(n)=n2
�
col%=0
�.� col>0 � col<8 � col%=�("col"+�(col)+"%")
�� col%=0 � col%=col8%
�]null=�create_icon(periodic%,20+space%*x,-20-space%*y,64,64,FG,"",text%+(n*5),col%,5):n+=1
��
�	� �#F
��#F
��icontext(info%,6,window$)
�

� �display(id%)
" �icontext(data%,3,sym$(id%))
,!�icontext(data%,4,name$(id%))
6$�icontext(data%,6,�(atno%(id%)))
@+�icontext(data%,7,��(atms%(id%)/10),4))
J$�icontext(data%,9,�(atno%(id%)))
T8�icontext(data%,12,�(�((atms%(id%)/10))-atno%(id%)))
^%�icontext(data%,13,�(atno%(id%)))
hcount=atno%(id%)
r9� count=1 � conf$="1:":count-=1 � conf$="2:":count-=2
|�
� � count>=8 � p1=8 � p1=count
�count=count-p1
�"� p1>0 � conf$=conf$+�(p1)+":"
�
� count=0
�conf$=�conf$,�(conf$)-1)
��icontext(data%,15,conf$)
��
�
�� �displayoptions
�+�icontext(options%,6,�(max_elements+1))
�)�icontext(options%,9,�(max_comps1-1))
�%�icontext(options%,10,�(max_grp))
�(�icontext(options%,11,�(max_comps2))
$�icontext(options%,12,�(dp_opt))
�

&� �saveoptions
0F=� "<Chem$Dir>.Options"
:	err=0
D� � � �file_error
N
� err=0 �
X%�#F,�(�(�readicon(options%,6))-1)
b�#F,�readicon(options%,9)
l�#F,�readicon(options%,10)
v�#F,�readicon(options%,11)
��#F,�readicon(options%,12)
��
��#F
�$dp_opt=�(�readicon(options%,12))
��
�
�� �loadoptions
�F=� "<Chem$Dir>.Options"
�max_elements=��#F
�max_comps1=��#F+1
�max_grp=��#F
�max_comps2=��#F
�dp_opt=��#F
�#F
�

 � �poll
*!ș "Wimp_Poll",0,b% � reason%
4Ȏ reason% �
> � 2:ș "Wimp_OpenWindow",,b%
H!� 3:ș "Wimp_CloseWindow",,b%
R � 6:�mouse(b%!8,b%!16,b%!12)
\� 8:�keypress(b%!24)
f� 9:�menuselect
p� 17,18:�receive(b%!16)
z�
��
�
� � �mouse(button%,icon%,win%)
�� win%=-2 �
�;� button%=2 � openmenu%=1:�showmenu(i_menu%,!b%-64,340)
�@� button%=1 � button%=4 � �openwin(periodic%):�openwin(key%)
��
�� win%=options% �
�� icon%=14 � �saveoptions
�$� icon%=15 � �closewin(options%)
��
� � win%=balance% � icon%>=0 �
�� icon%=reset% �
	0� s=0 � 1:� n=0 � 5:m%(s,n)=m2%(s,n):� n:� s
	�drawbalancewindow
	�
	$� icon%=okbutton% �
	.
� s=0 � 1
	8	T$=""
	B
� n=0 � 5
	L� forms$(s,n)>"" �
	V'� m%(s,n)=0 � m$="" � m$=�(m%(s,n))
	`)T$+=m$+�removenumber(forms$(s,n))+"+"
	j�
	t� n
	~T$=�T$,�(T$)-1)
	�A� s=0 � �icontext(equation%,0,T$) � �icontext(equation%,2,T$)
	�� s
	��closewin(balance%)
	��
	�(� icon%<>okbutton% � icon%<>reset% �
	��iconcalculate(icon%)
	�� I=3 � write=orig+1
	�� I=1 � write=orig-1
	�6� I=3 � I=1 � m%(s,n)=�(�readicon(balance%,write))
	�"� I=3 � m%(s,n)>1 � m%(s,n)-=1
	�$� I=1 � m%(s,n)<999 � m%(s,n)+=1
	�� (I=1 � I=3) � write �
(�icontext(balance%,write,�(m%(s,n)))

�displaybalancestuff(write)
�updatebalance
�
(�
2�
<
FC� win%=periodic% � icon%>=0 � �openwin(data%):�display(icon%+1)
P3� win%=message% � icon%=0 � �closewin(message%)
Z.� icon%=1 � win%=ram% � �openwin(weights%)
d� win%=weights% �
ni%=icon%
xA�icontext(expand%,0,�readicon(weights%,i%)):�openwin(expand%)
��
�� win%=equation% �
�"� icon%>3 � icon%<7 � �process
�x%=b%!0:y%=b%!4
�E� icon%=3 � openmenu%=2:�arrows(index%,1):�showmenu(index%,x%,y%)
�� err=0 � ng% �
�"� icon%=4 � �drawbalancewindow
�� icon%=5 �
�nogo2=0
��compoundicons
�� nogo2=0 � �openwin(ram%)
��
�=� icon%=6 � �balance(0):�showcomponents(1):�compoundicons
�
8� icon%=8 � �openwin(percent%):�newcaret(percent%,2)
\� icon%=9 � null%=�group_load(group%):�showdatabase:�openwin(dbase%):�newcaret(dbase%,4)
":� icon%=7 � �openwin(namecomp%):�newcaret(namecomp%,2)
,�
6-� win%=percent% � icon%=11 � �percentcomp
@� win%=dbase% �
Jx%=b%!0:y%=b%!4
T� icon%=0 �
^N� �readicon(dbase%,0)=notent$ � �icontext(dbase%,0,""):�setcaret(dbase%,0)
h�
r� icon%=2 �
|L� �readicon(dbase%,0)<>notent$ � comps2$(com%)=�readicon(dbase%,0):�save
�9openmenu%=3:�arrows(index%,0):�showmenu(index%,x%,y%)
��
�� icon%=5 �
�E� �readicon(dbase%,0)>notent$ � comps2$(com%)=�readicon(dbase%,0)
�>� comps$(0)>"" � openmenu%=4:�showmenu(ind%(group%),x%,y%)
��
�%� icon%=8 � op%=1:�openwin(sure%)
�%� icon%=9 � op%=2:�openwin(sure%)
�F� icon%=10 � �icontext(add%,1,""):�openwin(add%):�newcaret(add%,1)
�� icon%=11 �
�.�delete(com%):�save:�compoundmenus(group%)
�2null%=�group_load(group%):com%=0:�showdatabase
��
� icon%=12 � �save
�
� win%=add% �
&� icon%=3 � �closewin(add%)
0'� icon%=2 � �add(�readicon(add%,1))
:�
D� win%=sure% �
N� icon%=1 �
X1� op%=1 � �creategroup � �deletegroup(group%)
b�
l � icon%=2 � �closewin(sure%)
v�
��
�
�� �iconcalculate(icon%)
�&� icon%<=((nin+1)*4)-1 � s=0 � s=1
�orig=icon%
�%� s=1 � icon%=icon%-(4*(nin+1))-1
�n=�(((icon%+3)/4))-1
�I=((icon%+1)�4)+1
�write=0
�� m%(s,n)=0 � m%(s,n)=1
��
�
�� �keypress(key%)


Ȏ � �

� key%<>&1CC

� key%=13 �

 "ș "Wimp_GetCaretPosition",,b%

*win%=!b%

4icon%=b%!4

>#�readicon(dbase%,0)<>notent$ �

H� win%=dbase% �

R6� icon%=4 � comps$(com%)=�readicon(dbase%,4):�save

\7� icon%=0 � comps2$(com%)=�readicon(dbase%,0):�save

f�

p�

z� win%=namecomp% �

� comp$=�readicon(namecomp%,2)

� � comp$>"" � �workoutformula

��

�� win%=balance% �

��iconcalculate(icon%)

�(m%(s,n)=�(�readicon(balance%,icon%))

��displaybalancestuff(icon%)

��updatebalance

��

��

�:ș "Wimp_ProcessKey",key%

��

��

� �process
:in$=�readicon(equation%,0):out$=�readicon(equation%,2)
$&� in$="" � out$="" � ng%=0 � ng%=1
.� ng% �
8�decode
B�errorcheck
L�
V�
`
j� �menuselect
t� openmenu%=1 �
~null%=�decode(i_menu%)
�� $decode%="Quit" � quit%=�
�<� �$decode%,2)="Pe" � �openwin(periodic%):�openwin(key%)
�D� �$decode%,2)="Eq" � �openwin(equation%):�newcaret(equation%,0)
�R� �$decode%,2)="Op" � �openwin(options%):�displayoptions:�newcaret(options%,6)
��
�� openmenu%=2 �
�+ș "Wimp_DecodeMenu",,index%,b%,decode%
�d$=$decode%
�0c=-1:�:c+=1:� �d$,�d$,".")-1)=ind$(c) � c=10
�r1=c
�null%=�group_load(r1)
�	r2=-1
2�:r2+=1:� r2=25 � �d$,�d$-�d$,"."))=comps$(r2)

"ș "Wimp_GetCaretPosition",,b%
� !b%=equation% �
icon%=b%!4
(p=b%!20
2 d$=�readicon(equation%,b%!4)
<<�icontext(equation%,icon%,�d$,p)+comps2$(r2)+�d$,�d$-p))
F8ș "Wimp_SetCaretPosition",equation%,icon%,0,-1,-1,p
P�
Znull%=�group_load(group%)
d�
n� openmenu%=3 �
x!group%=�decode(index%):com%=0
� �icontext(dbase%,1,$decode%)
�null%=�group_load(group%)
�p%=ind%(group%)+28
��showdatabase
��
�� openmenu%=4 �
�com%=�decode(ind%(group%))
��showdatabase
��
��
�
�� ## Icon bar menu ##
�� Menu,5
� 0,info%,Info
� 0,-1,Periodic table
� 0,-1,Equation utility
"� 0,-1,Options
,� &80,-1,Quit
�

00000000  0d 00 0a 22 ee 20 85 20  f1 20 f6 24 2b 22 20 61  |...". . . .$+" a|
00000010  74 20 6c 69 6e 65 20 22  2b c3 28 9e 2f 31 30 29  |t line "+.(./10)|
00000020  3a e0 0d 00 14 23 c8 9b  20 22 3c 43 68 65 6d 24  |:....#.. "<Chem$|
00000030  44 69 72 3e 2e 50 52 4f  43 53 2e 49 63 6f 6e 50  |Dir>.PROCS.IconP|
00000040  52 4f 43 73 22 0d 00 1e  23 c8 9b 20 22 3c 43 68  |ROCs"...#.. "<Ch|
00000050  65 6d 24 44 69 72 3e 2e  50 52 4f 43 53 2e 4d 65  |em$Dir>.PROCS.Me|
00000060  6e 75 50 52 4f 43 73 22  0d 00 28 23 c8 9b 20 22  |nuPROCs"..(#.. "|
00000070  3c 43 68 65 6d 24 44 69  72 3e 2e 50 52 4f 43 53  |<Chem$Dir>.PROCS|
00000080  2e 4d 69 73 63 50 52 4f  43 73 22 0d 00 32 23 c8  |.MiscPROCs"..2#.|
00000090  9b 20 22 3c 43 68 65 6d  24 44 69 72 3e 2e 50 52  |. "<Chem$Dir>.PR|
000000a0  4f 43 53 2e 57 69 6e 64  50 52 4f 43 73 22 0d 00  |OCS.WindPROCs"..|
000000b0  3c 23 c8 9b 20 22 3c 43  68 65 6d 24 44 69 72 3e  |<#.. "<Chem$Dir>|
000000c0  2e 50 52 4f 43 53 2e 48  65 6c 70 50 52 4f 43 73  |.PROCS.HelpPROCs|
000000d0  22 0d 00 46 23 c8 9b 20  22 3c 43 68 65 6d 24 44  |"..F#.. "<Chem$D|
000000e0  69 72 3e 2e 50 52 4f 43  53 2e 43 68 65 6d 55 74  |ir>.PROCS.ChemUt|
000000f0  69 6c 73 22 0d 00 50 22  c8 9b 20 22 3c 43 68 65  |ils"..P".. "<Che|
00000100  6d 24 44 69 72 3e 2e 50  52 4f 43 53 2e 44 61 74  |m$Dir>.PROCS.Dat|
00000110  61 62 61 73 65 22 0d 00  5a 10 f2 6c 6f 61 64 6f  |abase"..Z..loado|
00000120  70 74 69 6f 6e 73 0d 00  64 0f f2 69 6e 69 74 69  |ptions..d..initi|
00000130  61 6c 69 73 65 0d 00 6e  27 ee 20 85 20 f2 65 72  |alise..n'. . .er|
00000140  72 6f 72 28 f6 24 2b 22  20 61 74 20 6c 69 6e 65  |ror(.$+" at line|
00000150  20 22 2b 20 c3 28 9e 2f  31 30 29 29 0d 00 78 0e  | "+ .(./10))..x.|
00000160  c8 95 20 ac 20 71 75 69  74 25 0d 00 82 09 f2 70  |.. . quit%.....p|
00000170  6f 6c 6c 0d 00 8c 05 ce  0d 00 96 17 c8 99 20 22  |oll........... "|
00000180  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00000190  00 a0 05 e0 0d 00 aa 04  0d 00 b4 12 dd 20 f2 72  |............. .r|
000001a0  65 63 65 69 76 65 28 6d  25 29 0d 00 be 0b c8 8e  |eceive(m%)......|
000001b0  20 6d 25 20 ca 0d 00 c8  0f c9 20 30 3a 71 75 69  | m% ...... 0:qui|
000001c0  74 25 3d b9 0d 00 d2 2a  c9 20 26 35 30 32 3a 68  |t%=....*. &502:h|
000001d0  65 6c 70 24 3d a4 68 65  6c 70 6d 65 73 73 61 67  |elp$=.helpmessag|
000001e0  65 28 62 25 21 33 32 2c  62 25 21 33 36 29 0d 00  |e(b%!32,b%!36)..|
000001f0  dc 10 e7 20 68 65 6c 70  24 3e 22 22 20 8c 0d 00  |... help$>"" ...|
00000200  e6 0b 21 62 25 3d 32 35  36 0d 00 f0 0e 62 25 21  |..!b%=256....b%!|
00000210  31 32 3d 62 25 21 38 0d  00 fa 0e 62 25 21 31 36  |12=b%!8....b%!16|
00000220  3d 26 35 30 33 0d 01 04  12 24 28 62 25 2b 32 30  |=&503....$(b%+20|
00000230  29 3d 68 65 6c 70 24 0d  01 0e 1f c8 99 20 22 57  |)=help$...... "W|
00000240  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000250  2c 31 37 2c 62 25 0d 01  18 05 cd 0d 01 22 05 cb  |,17,b%......."..|
00000260  0d 01 2c 05 e1 0d 01 36  04 0d 01 40 11 dd 20 f2  |..,....6...@.. .|
00000270  69 6e 69 74 69 61 6c 69  73 65 0d 01 4a 19 f4 20  |initialise..J.. |
00000280  23 23 23 20 64 61 74 61  20 62 6c 6f 63 6b 73 20  |### data blocks |
00000290  23 23 23 0d 01 54 0d de  20 62 25 20 36 35 30 30  |###..T.. b% 6500|
000002a0  0d 01 5e 0c de 20 74 25  20 35 30 30 0d 01 68 14  |..^.. t% 500..h.|
000002b0  de 20 6d 65 6e 75 74 65  78 74 25 20 34 30 39 36  |. menutext% 4096|
000002c0  0d 01 72 0e de 20 6e 61  6d 65 25 20 31 31 0d 01  |..r.. name% 11..|
000002d0  7c 0f de 20 74 65 78 74  25 20 36 34 30 0d 01 86  ||.. text% 640...|
000002e0  11 de 20 64 65 63 6f 64  65 25 20 32 30 30 0d 01  |.. decode% 200..|
000002f0  90 11 de 20 69 5f 6d 65  6e 75 25 20 32 30 30 0d  |... i_menu% 200.|
00000300  01 9a 21 de 20 76 61 6c  69 64 31 25 20 38 3a 24  |..!. valid1% 8:$|
00000310  76 61 6c 69 64 31 25 3d  22 46 31 38 3b 52 35 22  |valid1%="F18;R5"|
00000320  0d 01 a4 21 de 20 76 61  6c 69 64 32 25 20 38 3a  |...!. valid2% 8:|
00000330  24 76 61 6c 69 64 32 25  3d 22 46 31 38 3b 52 32  |$valid2%="F18;R2|
00000340  22 0d 01 ae 21 de 20 76  61 6c 69 64 33 25 20 38  |"...!. valid3% 8|
00000350  3a 24 76 61 6c 69 64 33  25 3d 22 46 31 42 3b 52  |:$valid3%="F1B;R|
00000360  32 22 0d 01 b8 21 de 20  76 61 6c 69 64 34 25 20  |2"...!. valid4% |
00000370  38 3a 24 76 61 6c 69 64  34 25 3d 22 46 31 44 3b  |8:$valid4%="F1D;|
00000380  52 35 22 0d 01 c2 32 de  20 76 61 6c 69 64 35 25  |R5"...2. valid5%|
00000390  20 32 33 3a 24 76 61 6c  69 64 35 25 3d 22 46 31  | 23:$valid5%="F1|
000003a0  42 3b 52 32 3b 61 30 2d  39 3b 50 70 74 72 5f 77  |B;R2;a0-9;Pptr_w|
000003b0  72 69 74 65 22 0d 01 cc  21 de 20 76 61 6c 69 64  |rite"...!. valid|
000003c0  36 25 20 38 3a 24 76 61  6c 69 64 36 25 3d 22 46  |6% 8:$valid6%="F|
000003d0  31 44 3b 52 32 22 0d 01  d6 1d de 20 63 6f 6c 31  |1D;R2"..... col1|
000003e0  25 20 38 3a 24 63 6f 6c  31 25 3d 22 52 35 3b 46  |% 8:$col1%="R5;F|
000003f0  31 38 22 0d 01 e0 1d de  20 63 6f 6c 32 25 20 38  |18"..... col2% 8|
00000400  3a 24 63 6f 6c 32 25 3d  22 52 35 3b 46 31 44 22  |:$col2%="R5;F1D"|
00000410  0d 01 ea 1d de 20 63 6f  6c 33 25 20 38 3a 24 63  |..... col3% 8:$c|
00000420  6f 6c 33 25 3d 22 52 35  3b 46 31 42 22 0d 01 f4  |ol3%="R5;F1B"...|
00000430  1d de 20 63 6f 6c 34 25  20 38 3a 24 63 6f 6c 34  |.. col4% 8:$col4|
00000440  25 3d 22 52 35 3b 46 31  37 22 0d 01 fe 1d de 20  |%="R5;F17"..... |
00000450  63 6f 6c 35 25 20 38 3a  24 63 6f 6c 35 25 3d 22  |col5% 8:$col5%="|
00000460  52 35 3b 46 31 45 22 0d  02 08 1d de 20 63 6f 6c  |R5;F1E"..... col|
00000470  36 25 20 38 3a 24 63 6f  6c 36 25 3d 22 52 35 3b  |6% 8:$col6%="R5;|
00000480  46 31 34 22 0d 02 12 1d  de 20 63 6f 6c 37 25 20  |F14"..... col7% |
00000490  38 3a 24 63 6f 6c 37 25  3d 22 52 35 3b 46 31 41  |8:$col7%="R5;F1A|
000004a0  22 0d 02 1c 1d de 20 63  6f 6c 38 25 20 38 3a 24  |"..... col8% 8:$|
000004b0  63 6f 6c 38 25 3d 22 52  35 3b 46 31 46 22 0d 02  |col8%="R5;F1F"..|
000004c0  26 2f de 20 62 74 65 78  74 32 25 20 36 3a 24 28  |&/. btext2% 6:$(|
000004d0  62 74 65 78 74 32 25 29  3d 22 3c 22 3a 24 28 62  |btext2%)="<":$(b|
000004e0  74 65 78 74 32 25 2b 33  29 3d 22 3e 22 0d 02 30  |text2%+3)=">"..0|
000004f0  11 de 20 65 71 74 65 78  74 25 20 33 30 30 0d 02  |.. eqtext% 300..|
00000500  3a 13 de 20 63 61 6c 63  74 65 78 74 25 20 33 30  |:.. calctext% 30|
00000510  30 0d 02 44 10 de 20 74  6f 74 61 6c 25 20 33 30  |0..D.. total% 30|
00000520  30 0d 02 4e 11 de 20 62  74 65 78 74 25 20 31 30  |0..N.. btext% 10|
00000530  32 34 0d 02 58 18 f4 20  23 23 23 20 70 72 6f 63  |24..X.. ### proc|
00000540  65 73 73 69 6e 67 20 23  23 23 0d 02 62 1c de 20  |essing ###..b.. |
00000550  66 6f 72 6d 73 24 28 31  2c 6d 61 78 5f 63 6f 6d  |forms$(1,max_com|
00000560  70 73 31 2b 31 29 0d 02  6c 25 de 20 65 25 28 31  |ps1+1)..l%. e%(1|
00000570  2c 6d 61 78 5f 63 6f 6d  70 73 31 2b 31 2c 6d 61  |,max_comps1+1,ma|
00000580  78 5f 65 6c 65 6d 65 6e  74 73 29 0d 02 76 26 de  |x_elements)..v&.|
00000590  20 65 6d 25 28 31 2c 6d  61 78 5f 63 6f 6d 70 73  | em%(1,max_comps|
000005a0  31 2b 31 2c 6d 61 78 5f  65 6c 65 6d 65 6e 74 73  |1+1,max_elements|
000005b0  29 0d 02 80 26 de 20 6e  73 25 28 31 2c 6d 61 78  |)...&. ns%(1,max|
000005c0  5f 63 6f 6d 70 73 31 2b  31 2c 6d 61 78 5f 65 6c  |_comps1+1,max_el|
000005d0  65 6d 65 6e 74 73 29 0d  02 8a 18 de 20 6d 25 28  |ements)..... m%(|
000005e0  31 2c 6d 61 78 5f 63 6f  6d 70 73 31 2b 31 29 0d  |1,max_comps1+1).|
000005f0  02 94 19 de 20 6d 32 25  28 31 2c 6d 61 78 5f 63  |.... m2%(1,max_c|
00000600  6f 6d 70 73 31 2b 31 29  0d 02 9e 10 de 20 6e 65  |omps1+1)..... ne|
00000610  25 28 31 2c 31 31 30 29  0d 02 a8 0e de 20 6d 65  |%(1,110)..... me|
00000620  73 73 24 28 34 29 0d 02  b2 16 f4 20 23 23 23 20  |ss$(4)..... ### |
00000630  64 61 74 61 62 61 73 65  20 23 23 23 0d 02 bc 1a  |database ###....|
00000640  de 20 63 6f 6d 70 73 24  28 6d 61 78 5f 63 6f 6d  |. comps$(max_com|
00000650  70 73 32 2d 31 29 0d 02  c6 1b de 20 63 6f 6d 70  |ps2-1)..... comp|
00000660  73 32 24 28 6d 61 78 5f  63 6f 6d 70 73 32 2d 31  |s2$(max_comps2-1|
00000670  29 0d 02 d0 15 de 20 69  6e 64 24 28 6d 61 78 5f  |)..... ind$(max_|
00000680  67 72 70 2d 31 29 0d 02  da 15 de 20 69 6e 64 25  |grp-1)..... ind%|
00000690  28 6d 61 78 5f 67 72 70  2d 31 29 0d 02 e4 15 f4  |(max_grp-1).....|
000006a0  20 23 23 23 20 73 74 6f  72 61 67 65 20 23 23 23  | ### storage ###|
000006b0  0d 02 ee 10 de 20 6e 61  6d 65 24 28 31 31 30 29  |..... name$(110)|
000006c0  0d 02 f8 0f de 20 73 79  6d 24 28 31 31 30 29 0d  |..... sym$(110).|
000006d0  03 02 10 de 20 61 74 6e  6f 25 28 31 31 30 29 0d  |.... atno%(110).|
000006e0  03 0c 10 de 20 61 74 6d  73 25 28 31 31 30 29 0d  |.... atms%(110).|
000006f0  03 16 12 f2 6d 65 6e 75  73 65 74 75 70 64 69 6d  |....menusetupdim|
00000700  73 0d 03 20 0b 71 75 69  74 25 3d a3 0d 03 2a 1b  |s.. .quit%=...*.|
00000710  6e 6f 74 65 6e 74 24 3d  22 3c 4e 6f 74 20 65 6e  |notent$="<Not en|
00000720  74 65 72 65 64 3e 22 0d  03 34 42 77 69 6e 64 6f  |tered>"..4Bwindo|
00000730  77 24 3d bd 36 35 2b bd  31 30 30 2b bd 39 37 2b  |w$=.65+.100+.97+|
00000740  bd 31 30 39 2b bd 33 32  2b bd 37 31 2b bd 31 31  |.109+.32+.71+.11|
00000750  34 2b bd 39 37 2b bd 31  31 30 2b bd 31 30 33 2b  |4+.97+.110+.103+|
00000760  bd 31 30 31 2b bd 31 31  34 0d 03 3e 0a 70 6f 73  |.101+.114..>.pos|
00000770  25 3d 30 0d 03 48 0c 6e  69 63 6f 6e 73 3d 30 0d  |%=0..H.nicons=0.|
00000780  03 52 09 65 72 72 3d 30  0d 03 5c 09 6e 67 25 3d  |.R.err=0..\.ng%=|
00000790  30 0d 03 66 0c 67 72 6f  75 70 25 3d 30 0d 03 70  |0..f.group%=0..p|
000007a0  0a 63 6f 6d 25 3d 30 0d  03 7a 13 69 3d 30 3a 63  |.com%=0..z.i=0:c|
000007b0  6e 31 3d 30 3a 63 6e 32  3d 30 0d 03 84 0f 65 72  |n1=0:cn2=0....er|
000007c0  72 63 6c 69 63 6b 25 3d  30 0d 03 8e 0f 6f 70 65  |rclick%=0....ope|
000007d0  6e 6d 65 6e 75 25 3d 30  0d 03 98 14 61 70 70 24  |nmenu%=0....app$|
000007e0  3d 22 43 68 65 6d 69 73  74 72 79 22 0d 03 a2 0e  |="Chemistry"....|
000007f0  f2 66 6f 6e 74 61 72 72  61 79 0d 03 ac 35 c8 99  |.fontarray...5..|
00000800  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000810  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000820  2c 61 70 70 24 20 b8 20  2c 74 61 73 6b 68 25 0d  |,app$ . ,taskh%.|
00000830  03 b6 32 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..2.. "Wimp_Open|
00000840  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 43 68 65  |Template",,"<Che|
00000850  6d 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |m$Dir>.Templates|
00000860  22 0d 03 c0 17 61 64 64  25 3d a4 77 69 6e 64 6f  |"....add%=.windo|
00000870  77 28 22 61 64 64 22 29  0d 03 ca 1f 62 61 6c 61  |w("add")....bala|
00000880  6e 63 65 25 3d a4 77 69  6e 64 6f 77 28 22 62 61  |nce%=.window("ba|
00000890  6c 61 6e 63 65 22 29 0d  03 d4 20 64 61 74 61 25  |lance")... data%|
000008a0  3d a4 77 69 6e 64 6f 77  28 22 45 6c 65 6d 65 6e  |=.window("Elemen|
000008b0  74 69 6e 66 6f 22 29 0d  03 de 1f 64 62 61 73 65  |tinfo")....dbase|
000008c0  25 3d a4 77 69 6e 64 6f  77 28 22 63 68 65 6d 64  |%=.window("chemd|
000008d0  62 61 73 65 22 29 0d 03  e8 21 65 71 75 61 74 69  |base")...!equati|
000008e0  6f 6e 25 3d a4 77 69 6e  64 6f 77 28 22 45 71 75  |on%=.window("Equ|
000008f0  61 74 69 6f 6e 22 29 0d  03 f2 1d 65 78 70 61 6e  |ation")....expan|
00000900  64 25 3d a4 77 69 6e 64  6f 77 28 22 65 78 70 61  |d%=.window("expa|
00000910  6e 64 22 29 0d 03 fc 19  69 6e 66 6f 25 3d a4 77  |nd")....info%=.w|
00000920  69 6e 64 6f 77 28 22 69  6e 66 6f 22 29 0d 04 06  |indow("info")...|
00000930  1b 69 6e 74 72 6f 25 3d  a4 77 69 6e 64 6f 77 28  |.intro%=.window(|
00000940  22 69 6e 74 72 6f 22 29  0d 04 10 17 6b 65 79 25  |"intro")....key%|
00000950  3d a4 77 69 6e 64 6f 77  28 22 6b 65 79 22 29 0d  |=.window("key").|
00000960  04 1a 1f 6d 65 73 73 61  67 65 25 3d a4 77 69 6e  |...message%=.win|
00000970  64 6f 77 28 22 4d 65 73  73 61 67 65 22 29 0d 04  |dow("Message")..|
00000980  24 21 6e 61 6d 65 63 6f  6d 70 25 3d a4 77 69 6e  |$!namecomp%=.win|
00000990  64 6f 77 28 22 6e 61 6d  65 63 6f 6d 70 22 29 0d  |dow("namecomp").|
000009a0  04 2e 1f 6e 75 6d 62 65  72 73 25 3d a4 77 69 6e  |...numbers%=.win|
000009b0  64 6f 77 28 22 6e 75 6d  62 65 72 73 22 29 0d 04  |dow("numbers")..|
000009c0  38 1f 6f 70 74 69 6f 6e  73 25 3d a4 77 69 6e 64  |8.options%=.wind|
000009d0  6f 77 28 22 6f 70 74 69  6f 6e 73 22 29 0d 04 42  |ow("options")..B|
000009e0  1d 70 65 72 63 65 6e 74  25 3d a4 77 69 6e 64 6f  |.percent%=.windo|
000009f0  77 28 22 25 63 6f 6d 70  22 29 0d 04 4c 21 70 65  |w("%comp")..L!pe|
00000a00  72 69 6f 64 69 63 25 3d  a4 77 69 6e 64 6f 77 28  |riodic%=.window(|
00000a10  22 50 65 72 69 6f 64 69  63 22 29 0d 04 56 19 72  |"Periodic")..V.r|
00000a20  61 6d 25 3d a4 77 69 6e  64 6f 77 28 22 52 41 4d  |am%=.window("RAM|
00000a30  27 73 22 29 0d 04 60 19  73 75 72 65 25 3d a4 77  |'s")..`.sure%=.w|
00000a40  69 6e 64 6f 77 28 22 73  75 72 65 22 29 0d 04 6a  |indow("sure")..j|
00000a50  1f 77 65 69 67 68 74 73  25 3d a4 77 69 6e 64 6f  |.weights%=.windo|
00000a60  77 28 22 77 65 69 67 68  74 73 22 29 0d 04 74 04  |w("weights")..t.|
00000a70  0d 04 7e 04 0d 04 88 4a  69 63 6f 6e 62 61 72 25  |..~....Jiconbar%|
00000a80  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 28 2d 31  |=.create_icon(-1|
00000a90  2c 30 2c 30 2c 36 38 2c  36 38 2c 25 31 31 30 30  |,0,0,68,68,%1100|
00000aa0  30 30 30 30 30 31 31 30  31 30 2c 22 21 43 68 65  |0000011010,"!Che|
00000ab0  6d 69 73 74 72 79 22 2c  30 2c 30 2c 30 29 0d 04  |mistry",0,0,0)..|
00000ac0  92 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
00000ad0  54 65 6d 70 6c 61 74 65  22 0d 04 9c 14 f2 6f 70  |Template".....op|
00000ae0  65 6e 77 69 6e 28 69 6e  74 72 6f 25 29 0d 04 a6  |enwin(intro%)...|
00000af0  0d e3 20 78 3d 30 20 b8  20 38 0d 04 b0 09 f2 70  |.. x=0 . 8.....p|
00000b00  6f 6c 6c 0d 04 ba 07 ed  20 78 0d 04 c4 17 f2 73  |oll..... x.....s|
00000b10  65 74 75 70 6d 65 6e 75  28 69 5f 6d 65 6e 75 25  |etupmenu(i_menu%|
00000b20  29 0d 04 ce 16 f2 63 6f  6d 70 6f 75 6e 64 6d 65  |).....compoundme|
00000b30  6e 75 73 28 38 38 29 0d  04 d8 0a f2 73 65 74 75  |nus(88).....setu|
00000b40  70 0d 04 e2 0e f2 63 6c  65 61 72 76 61 72 73 0d  |p.....clearvars.|
00000b50  04 ec 15 f2 63 6c 6f 73  65 77 69 6e 28 69 6e 74  |....closewin(int|
00000b60  72 6f 25 29 0d 04 f6 05  e1 0d 05 00 04 0d 05 0a  |ro%)............|
00000b70  0c dd 20 f2 73 65 74 75  70 0d 05 14 1d 46 3d 8e  |.. .setup....F=.|
00000b80  20 22 3c 43 68 65 6d 24  44 69 72 3e 2e 43 68 65  | "<Chem$Dir>.Che|
00000b90  6d 44 61 74 61 22 0d 05  1e 07 6e 3d 31 0d 05 28  |mData"....n=1..(|
00000ba0  0d 73 70 61 63 65 25 3d  36 38 0d 05 32 05 f5 0d  |.space%=68..2...|
00000bb0  05 3c 0a 4c 24 3d be 23  46 0d 05 46 1f 70 31 3d  |.<.L$=.#F..F.p1=|
00000bc0  a7 4c 24 2c 22 21 22 29  2b 31 3a 70 32 3d a7 4c  |.L$,"!")+1:p2=.L|
00000bd0  24 2c 22 40 22 29 2b 31  0d 05 50 1f 70 33 3d a7  |$,"@")+1..P.p3=.|
00000be0  4c 24 2c 22 23 22 29 2b  31 3a 70 34 3d a7 4c 24  |L$,"#")+1:p4=.L$|
00000bf0  2c 22 24 22 29 2b 31 0d  05 5a 1f 70 35 3d a7 4c  |,"$")+1..Z.p5=.L|
00000c00  24 2c 22 25 22 29 2b 31  3a 70 36 3d a7 4c 24 2c  |$,"%")+1:p6=.L$,|
00000c10  22 5e 22 29 2b 31 0d 05  64 27 78 3d bb 28 c1 4c  |"^")+1..d'x=.(.L|
00000c20  24 2c 30 2c 70 31 29 29  2d 31 3a 79 3d bb 28 c1  |$,0,p1))-1:y=.(.|
00000c30  4c 24 2c 70 31 2c 70 32  2d 70 31 29 29 0d 05 6e  |L$,p1,p2-p1))..n|
00000c40  2c 53 79 6d 24 3d c1 4c  24 2c 70 32 2c 70 33 2d  |,Sym$=.L$,p2,p3-|
00000c50  70 32 2d 31 29 3a 4e 6d  24 3d c1 4c 24 2c 70 33  |p2-1):Nm$=.L$,p3|
00000c60  2c 70 34 2d 70 33 2d 31  29 0d 05 78 2b 6e 31 3d  |,p4-p3-1)..x+n1=|
00000c70  bb 28 c1 4c 24 2c 70 34  2c 70 35 2d 70 34 29 29  |.(.L$,p4,p5-p4))|
00000c80  3a 6e 32 3d bb 28 c1 4c  24 2c 70 35 2c 70 36 2d  |:n2=.(.L$,p5,p6-|
00000c90  70 35 29 29 0d 05 82 11  63 6f 6c 3d bb 28 c2 4c  |p5))....col=.(.L|
00000ca0  24 2c 31 29 29 0d 05 8c  0c e7 20 70 31 3e 31 20  |$,1))..... p1>1 |
00000cb0  8c 0d 05 96 17 24 28 74  65 78 74 25 2b 28 6e 2a  |.....$(text%+(n*|
00000cc0  35 29 29 3d 53 79 6d 24  0d 05 a0 40 46 47 3d a4  |5))=Sym$...@FG=.|
00000cd0  69 63 6f 6e 5f 66 6c 61  67 73 28 31 2c 30 2c 31  |icon_flags(1,0,1|
00000ce0  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 30 2c 30  |,1,1,1,1,1,1,0,0|
00000cf0  2c 30 2c 34 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,4,0,0,0,0,0,0|
00000d00  2c 66 6f 6e 74 31 25 29  0d 05 aa 38 73 79 6d 24  |,font1%)...8sym$|
00000d10  28 6e 29 3d 53 79 6d 24  3a 6e 61 6d 65 24 28 6e  |(n)=Sym$:name$(n|
00000d20  29 3d 4e 6d 24 3a 61 74  6d 73 25 28 6e 29 3d 6e  |)=Nm$:atms%(n)=n|
00000d30  31 2a 31 30 3a 61 74 6e  6f 25 28 6e 29 3d 6e 32  |1*10:atno%(n)=n2|
00000d40  0d 05 b4 0a 63 6f 6c 25  3d 30 0d 05 be 2e e7 20  |....col%=0..... |
00000d50  63 6f 6c 3e 30 20 80 20  63 6f 6c 3c 38 20 8c 20  |col>0 . col<8 . |
00000d60  63 6f 6c 25 3d a0 28 22  63 6f 6c 22 2b c3 28 63  |col%=.("col"+.(c|
00000d70  6f 6c 29 2b 22 25 22 29  0d 05 c8 19 e7 20 63 6f  |ol)+"%")..... co|
00000d80  6c 25 3d 30 20 8c 20 63  6f 6c 25 3d 63 6f 6c 38  |l%=0 . col%=col8|
00000d90  25 0d 05 d2 5d 6e 75 6c  6c 3d a4 63 72 65 61 74  |%...]null=.creat|
00000da0  65 5f 69 63 6f 6e 28 70  65 72 69 6f 64 69 63 25  |e_icon(periodic%|
00000db0  2c 32 30 2b 73 70 61 63  65 25 2a 78 2c 2d 32 30  |,20+space%*x,-20|
00000dc0  2d 73 70 61 63 65 25 2a  79 2c 36 34 2c 36 34 2c  |-space%*y,64,64,|
00000dd0  46 47 2c 22 22 2c 74 65  78 74 25 2b 28 6e 2a 35  |FG,"",text%+(n*5|
00000de0  29 2c 63 6f 6c 25 2c 35  29 3a 6e 2b 3d 31 0d 05  |),col%,5):n+=1..|
00000df0  dc 05 cd 0d 05 e6 09 fd  20 c5 23 46 0d 05 f0 07  |........ .#F....|
00000e00  d9 23 46 0d 05 fa 1e f2  69 63 6f 6e 74 65 78 74  |.#F.....icontext|
00000e10  28 69 6e 66 6f 25 2c 36  2c 77 69 6e 64 6f 77 24  |(info%,6,window$|
00000e20  29 0d 06 04 05 e1 0d 06  0e 04 0d 06 18 13 dd 20  |).............. |
00000e30  f2 64 69 73 70 6c 61 79  28 69 64 25 29 0d 06 22  |.display(id%).."|
00000e40  20 f2 69 63 6f 6e 74 65  78 74 28 64 61 74 61 25  | .icontext(data%|
00000e50  2c 33 2c 73 79 6d 24 28  69 64 25 29 29 0d 06 2c  |,3,sym$(id%))..,|
00000e60  21 f2 69 63 6f 6e 74 65  78 74 28 64 61 74 61 25  |!.icontext(data%|
00000e70  2c 34 2c 6e 61 6d 65 24  28 69 64 25 29 29 0d 06  |,4,name$(id%))..|
00000e80  36 24 f2 69 63 6f 6e 74  65 78 74 28 64 61 74 61  |6$.icontext(data|
00000e90  25 2c 36 2c c3 28 61 74  6e 6f 25 28 69 64 25 29  |%,6,.(atno%(id%)|
00000ea0  29 29 0d 06 40 2b f2 69  63 6f 6e 74 65 78 74 28  |))..@+.icontext(|
00000eb0  64 61 74 61 25 2c 37 2c  c0 c3 28 61 74 6d 73 25  |data%,7,..(atms%|
00000ec0  28 69 64 25 29 2f 31 30  29 2c 34 29 29 0d 06 4a  |(id%)/10),4))..J|
00000ed0  24 f2 69 63 6f 6e 74 65  78 74 28 64 61 74 61 25  |$.icontext(data%|
00000ee0  2c 39 2c c3 28 61 74 6e  6f 25 28 69 64 25 29 29  |,9,.(atno%(id%))|
00000ef0  29 0d 06 54 38 f2 69 63  6f 6e 74 65 78 74 28 64  |)..T8.icontext(d|
00000f00  61 74 61 25 2c 31 32 2c  c3 28 a8 28 28 61 74 6d  |ata%,12,.(.((atm|
00000f10  73 25 28 69 64 25 29 2f  31 30 29 29 2d 61 74 6e  |s%(id%)/10))-atn|
00000f20  6f 25 28 69 64 25 29 29  29 0d 06 5e 25 f2 69 63  |o%(id%)))..^%.ic|
00000f30  6f 6e 74 65 78 74 28 64  61 74 61 25 2c 31 33 2c  |ontext(data%,13,|
00000f40  c3 28 61 74 6e 6f 25 28  69 64 25 29 29 29 0d 06  |.(atno%(id%)))..|
00000f50  68 14 63 6f 75 6e 74 3d  61 74 6e 6f 25 28 69 64  |h.count=atno%(id|
00000f60  25 29 0d 06 72 39 e7 20  63 6f 75 6e 74 3d 31 20  |%)..r9. count=1 |
00000f70  8c 20 63 6f 6e 66 24 3d  22 31 3a 22 3a 63 6f 75  |. conf$="1:":cou|
00000f80  6e 74 2d 3d 31 20 8b 20  63 6f 6e 66 24 3d 22 32  |nt-=1 . conf$="2|
00000f90  3a 22 3a 63 6f 75 6e 74  2d 3d 32 0d 06 7c 05 f5  |:":count-=2..|..|
00000fa0  0d 06 86 20 e7 20 63 6f  75 6e 74 3e 3d 38 20 8c  |... . count>=8 .|
00000fb0  20 70 31 3d 38 20 8b 20  70 31 3d 63 6f 75 6e 74  | p1=8 . p1=count|
00000fc0  0d 06 90 12 63 6f 75 6e  74 3d 63 6f 75 6e 74 2d  |....count=count-|
00000fd0  70 31 0d 06 9a 22 e7 20  70 31 3e 30 20 8c 20 63  |p1...". p1>0 . c|
00000fe0  6f 6e 66 24 3d 63 6f 6e  66 24 2b c3 28 70 31 29  |onf$=conf$+.(p1)|
00000ff0  2b 22 3a 22 0d 06 a4 0d  fd 20 63 6f 75 6e 74 3d  |+":"..... count=|
00001000  30 0d 06 ae 1c 63 6f 6e  66 24 3d c0 63 6f 6e 66  |0....conf$=.conf|
00001010  24 2c a9 28 63 6f 6e 66  24 29 2d 31 29 0d 06 b8  |$,.(conf$)-1)...|
00001020  1d f2 69 63 6f 6e 74 65  78 74 28 64 61 74 61 25  |..icontext(data%|
00001030  2c 31 35 2c 63 6f 6e 66  24 29 0d 06 c2 05 e1 0d  |,15,conf$)......|
00001040  06 cc 04 0d 06 d6 15 dd  20 f2 64 69 73 70 6c 61  |........ .displa|
00001050  79 6f 70 74 69 6f 6e 73  0d 06 e0 2b f2 69 63 6f  |yoptions...+.ico|
00001060  6e 74 65 78 74 28 6f 70  74 69 6f 6e 73 25 2c 36  |ntext(options%,6|
00001070  2c c3 28 6d 61 78 5f 65  6c 65 6d 65 6e 74 73 2b  |,.(max_elements+|
00001080  31 29 29 0d 06 ea 29 f2  69 63 6f 6e 74 65 78 74  |1))...).icontext|
00001090  28 6f 70 74 69 6f 6e 73  25 2c 39 2c c3 28 6d 61  |(options%,9,.(ma|
000010a0  78 5f 63 6f 6d 70 73 31  2d 31 29 29 0d 06 f4 25  |x_comps1-1))...%|
000010b0  f2 69 63 6f 6e 74 65 78  74 28 6f 70 74 69 6f 6e  |.icontext(option|
000010c0  73 25 2c 31 30 2c c3 28  6d 61 78 5f 67 72 70 29  |s%,10,.(max_grp)|
000010d0  29 0d 06 fe 28 f2 69 63  6f 6e 74 65 78 74 28 6f  |)...(.icontext(o|
000010e0  70 74 69 6f 6e 73 25 2c  31 31 2c c3 28 6d 61 78  |ptions%,11,.(max|
000010f0  5f 63 6f 6d 70 73 32 29  29 0d 07 08 24 f2 69 63  |_comps2))...$.ic|
00001100  6f 6e 74 65 78 74 28 6f  70 74 69 6f 6e 73 25 2c  |ontext(options%,|
00001110  31 32 2c c3 28 64 70 5f  6f 70 74 29 29 0d 07 12  |12,.(dp_opt))...|
00001120  05 e1 0d 07 1c 04 0d 07  26 12 dd 20 f2 73 61 76  |........&.. .sav|
00001130  65 6f 70 74 69 6f 6e 73  0d 07 30 1c 46 3d ae 20  |eoptions..0.F=. |
00001140  22 3c 43 68 65 6d 24 44  69 72 3e 2e 4f 70 74 69  |"<Chem$Dir>.Opti|
00001150  6f 6e 73 22 0d 07 3a 09  65 72 72 3d 30 0d 07 44  |ons"..:.err=0..D|
00001160  15 ee 20 85 20 ea 20 f2  66 69 6c 65 5f 65 72 72  |.. . . .file_err|
00001170  6f 72 0d 07 4e 0d e7 20  65 72 72 3d 30 20 8c 0d  |or..N.. err=0 ..|
00001180  07 58 25 d5 23 46 2c c3  28 bb 28 a4 72 65 61 64  |.X%.#F,.(.(.read|
00001190  69 63 6f 6e 28 6f 70 74  69 6f 6e 73 25 2c 36 29  |icon(options%,6)|
000011a0  29 2d 31 29 0d 07 62 1d  d5 23 46 2c a4 72 65 61  |)-1)..b..#F,.rea|
000011b0  64 69 63 6f 6e 28 6f 70  74 69 6f 6e 73 25 2c 39  |dicon(options%,9|
000011c0  29 0d 07 6c 1e d5 23 46  2c a4 72 65 61 64 69 63  |)..l..#F,.readic|
000011d0  6f 6e 28 6f 70 74 69 6f  6e 73 25 2c 31 30 29 0d  |on(options%,10).|
000011e0  07 76 1e d5 23 46 2c a4  72 65 61 64 69 63 6f 6e  |.v..#F,.readicon|
000011f0  28 6f 70 74 69 6f 6e 73  25 2c 31 31 29 0d 07 80  |(options%,11)...|
00001200  1e d5 23 46 2c a4 72 65  61 64 69 63 6f 6e 28 6f  |..#F,.readicon(o|
00001210  70 74 69 6f 6e 73 25 2c  31 32 29 0d 07 8a 05 cd  |ptions%,12).....|
00001220  0d 07 94 07 d9 23 46 0d  07 9e 24 64 70 5f 6f 70  |.....#F...$dp_op|
00001230  74 3d bb 28 a4 72 65 61  64 69 63 6f 6e 28 6f 70  |t=.(.readicon(op|
00001240  74 69 6f 6e 73 25 2c 31  32 29 29 0d 07 a8 05 e1  |tions%,12)).....|
00001250  0d 07 b2 04 0d 07 bc 12  dd 20 f2 6c 6f 61 64 6f  |......... .loado|
00001260  70 74 69 6f 6e 73 0d 07  c6 1c 46 3d 8e 20 22 3c  |ptions....F=. "<|
00001270  43 68 65 6d 24 44 69 72  3e 2e 4f 70 74 69 6f 6e  |Chem$Dir>.Option|
00001280  73 22 0d 07 d0 15 6d 61  78 5f 65 6c 65 6d 65 6e  |s"....max_elemen|
00001290  74 73 3d bb be 23 46 0d  07 da 15 6d 61 78 5f 63  |ts=..#F....max_c|
000012a0  6f 6d 70 73 31 3d bb be  23 46 2b 31 0d 07 e4 10  |omps1=..#F+1....|
000012b0  6d 61 78 5f 67 72 70 3d  bb be 23 46 0d 07 ee 13  |max_grp=..#F....|
000012c0  6d 61 78 5f 63 6f 6d 70  73 32 3d bb be 23 46 0d  |max_comps2=..#F.|
000012d0  07 f8 0f 64 70 5f 6f 70  74 3d bb be 23 46 0d 08  |...dp_opt=..#F..|
000012e0  02 07 d9 23 46 0d 08 0c  05 e1 0d 08 16 04 0d 08  |...#F...........|
000012f0  20 0b dd 20 f2 70 6f 6c  6c 0d 08 2a 21 c8 99 20  | .. .poll..*!.. |
00001300  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 30 2c 62 25  |"Wimp_Poll",0,b%|
00001310  20 b8 20 72 65 61 73 6f  6e 25 0d 08 34 10 c8 8e  | . reason%..4...|
00001320  20 72 65 61 73 6f 6e 25  20 ca 0d 08 3e 20 c9 20  | reason% ...> . |
00001330  32 3a c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |2:.. "Wimp_OpenW|
00001340  69 6e 64 6f 77 22 2c 2c  62 25 0d 08 48 21 c9 20  |indow",,b%..H!. |
00001350  33 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |3:.. "Wimp_Close|
00001360  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 08 52 20 c9  |Window",,b%..R .|
00001370  20 36 3a f2 6d 6f 75 73  65 28 62 25 21 38 2c 62  | 6:.mouse(b%!8,b|
00001380  25 21 31 36 2c 62 25 21  31 32 29 0d 08 5c 18 c9  |%!16,b%!12)..\..|
00001390  20 38 3a f2 6b 65 79 70  72 65 73 73 28 62 25 21  | 8:.keypress(b%!|
000013a0  32 34 29 0d 08 66 13 c9  20 39 3a f2 6d 65 6e 75  |24)..f.. 9:.menu|
000013b0  73 65 6c 65 63 74 0d 08  70 1b c9 20 31 37 2c 31  |select..p.. 17,1|
000013c0  38 3a f2 72 65 63 65 69  76 65 28 62 25 21 31 36  |8:.receive(b%!16|
000013d0  29 0d 08 7a 05 cb 0d 08  84 05 e1 0d 08 8e 04 0d  |)..z............|
000013e0  08 98 20 dd 20 f2 6d 6f  75 73 65 28 62 75 74 74  |.. . .mouse(butt|
000013f0  6f 6e 25 2c 69 63 6f 6e  25 2c 77 69 6e 25 29 0d  |on%,icon%,win%).|
00001400  08 a2 0f e7 20 77 69 6e  25 3d 2d 32 20 8c 0d 08  |.... win%=-2 ...|
00001410  ac 3b e7 20 62 75 74 74  6f 6e 25 3d 32 20 8c 20  |.;. button%=2 . |
00001420  6f 70 65 6e 6d 65 6e 75  25 3d 31 3a f2 73 68 6f  |openmenu%=1:.sho|
00001430  77 6d 65 6e 75 28 69 5f  6d 65 6e 75 25 2c 21 62  |wmenu(i_menu%,!b|
00001440  25 2d 36 34 2c 33 34 30  29 0d 08 b6 40 e7 20 62  |%-64,340)...@. b|
00001450  75 74 74 6f 6e 25 3d 31  20 84 20 62 75 74 74 6f  |utton%=1 . butto|
00001460  6e 25 3d 34 20 8c 20 f2  6f 70 65 6e 77 69 6e 28  |n%=4 . .openwin(|
00001470  70 65 72 69 6f 64 69 63  25 29 3a f2 6f 70 65 6e  |periodic%):.open|
00001480  77 69 6e 28 6b 65 79 25  29 0d 08 c0 05 cd 0d 08  |win(key%).......|
00001490  ca 15 e7 20 77 69 6e 25  3d 6f 70 74 69 6f 6e 73  |... win%=options|
000014a0  25 20 8c 0d 08 d4 1d e7  20 69 63 6f 6e 25 3d 31  |% ...... icon%=1|
000014b0  34 20 8c 20 f2 73 61 76  65 6f 70 74 69 6f 6e 73  |4 . .saveoptions|
000014c0  0d 08 de 24 e7 20 69 63  6f 6e 25 3d 31 35 20 8c  |...$. icon%=15 .|
000014d0  20 f2 63 6c 6f 73 65 77  69 6e 28 6f 70 74 69 6f  | .closewin(optio|
000014e0  6e 73 25 29 0d 08 e8 05  cd 0d 08 f2 20 e7 20 77  |ns%)........ . w|
000014f0  69 6e 25 3d 62 61 6c 61  6e 63 65 25 20 80 20 69  |in%=balance% . i|
00001500  63 6f 6e 25 3e 3d 30 20  8c 0d 08 fc 14 e7 20 69  |con%>=0 ...... i|
00001510  63 6f 6e 25 3d 72 65 73  65 74 25 20 8c 0d 09 06  |con%=reset% ....|
00001520  30 e3 20 73 3d 30 20 b8  20 31 3a e3 20 6e 3d 30  |0. s=0 . 1:. n=0|
00001530  20 b8 20 35 3a 6d 25 28  73 2c 6e 29 3d 6d 32 25  | . 5:m%(s,n)=m2%|
00001540  28 73 2c 6e 29 3a ed 20  6e 3a ed 20 73 0d 09 10  |(s,n):. n:. s...|
00001550  16 f2 64 72 61 77 62 61  6c 61 6e 63 65 77 69 6e  |..drawbalancewin|
00001560  64 6f 77 0d 09 1a 05 cd  0d 09 24 17 e7 20 69 63  |dow.......$.. ic|
00001570  6f 6e 25 3d 6f 6b 62 75  74 74 6f 6e 25 20 8c 0d  |on%=okbutton% ..|
00001580  09 2e 0d e3 20 73 3d 30  20 b8 20 31 0d 09 38 09  |.... s=0 . 1..8.|
00001590  54 24 3d 22 22 0d 09 42  0d e3 20 6e 3d 30 20 b8  |T$=""..B.. n=0 .|
000015a0  20 35 0d 09 4c 16 e7 20  66 6f 72 6d 73 24 28 73  | 5..L.. forms$(s|
000015b0  2c 6e 29 3e 22 22 20 8c  0d 09 56 27 e7 20 6d 25  |,n)>"" ...V'. m%|
000015c0  28 73 2c 6e 29 3d 30 20  8c 20 6d 24 3d 22 22 20  |(s,n)=0 . m$="" |
000015d0  8b 20 6d 24 3d c3 28 6d  25 28 73 2c 6e 29 29 0d  |. m$=.(m%(s,n)).|
000015e0  09 60 29 54 24 2b 3d 6d  24 2b a4 72 65 6d 6f 76  |.`)T$+=m$+.remov|
000015f0  65 6e 75 6d 62 65 72 28  66 6f 72 6d 73 24 28 73  |enumber(forms$(s|
00001600  2c 6e 29 29 2b 22 2b 22  0d 09 6a 05 cd 0d 09 74  |,n))+"+"..j....t|
00001610  07 ed 20 6e 0d 09 7e 13  54 24 3d c0 54 24 2c a9  |.. n..~.T$=.T$,.|
00001620  28 54 24 29 2d 31 29 0d  09 88 41 e7 20 73 3d 30  |(T$)-1)...A. s=0|
00001630  20 8c 20 f2 69 63 6f 6e  74 65 78 74 28 65 71 75  | . .icontext(equ|
00001640  61 74 69 6f 6e 25 2c 30  2c 54 24 29 20 8b 20 f2  |ation%,0,T$) . .|
00001650  69 63 6f 6e 74 65 78 74  28 65 71 75 61 74 69 6f  |icontext(equatio|
00001660  6e 25 2c 32 2c 54 24 29  0d 09 92 07 ed 20 73 0d  |n%,2,T$)..... s.|
00001670  09 9c 17 f2 63 6c 6f 73  65 77 69 6e 28 62 61 6c  |....closewin(bal|
00001680  61 6e 63 65 25 29 0d 09  a6 05 cd 0d 09 b0 28 e7  |ance%)........(.|
00001690  20 69 63 6f 6e 25 3c 3e  6f 6b 62 75 74 74 6f 6e  | icon%<>okbutton|
000016a0  25 20 80 20 69 63 6f 6e  25 3c 3e 72 65 73 65 74  |% . icon%<>reset|
000016b0  25 20 8c 0d 09 ba 19 f2  69 63 6f 6e 63 61 6c 63  |% ......iconcalc|
000016c0  75 6c 61 74 65 28 69 63  6f 6e 25 29 0d 09 c4 18  |ulate(icon%)....|
000016d0  e7 20 49 3d 33 20 8c 20  77 72 69 74 65 3d 6f 72  |. I=3 . write=or|
000016e0  69 67 2b 31 0d 09 ce 18  e7 20 49 3d 31 20 8c 20  |ig+1..... I=1 . |
000016f0  77 72 69 74 65 3d 6f 72  69 67 2d 31 0d 09 d8 36  |write=orig-1...6|
00001700  e7 20 49 3d 33 20 84 20  49 3d 31 20 8c 20 6d 25  |. I=3 . I=1 . m%|
00001710  28 73 2c 6e 29 3d bb 28  a4 72 65 61 64 69 63 6f  |(s,n)=.(.readico|
00001720  6e 28 62 61 6c 61 6e 63  65 25 2c 77 72 69 74 65  |n(balance%,write|
00001730  29 29 0d 09 e2 22 e7 20  49 3d 33 20 80 20 6d 25  |))...". I=3 . m%|
00001740  28 73 2c 6e 29 3e 31 20  8c 20 6d 25 28 73 2c 6e  |(s,n)>1 . m%(s,n|
00001750  29 2d 3d 31 0d 09 ec 24  e7 20 49 3d 31 20 80 20  |)-=1...$. I=1 . |
00001760  6d 25 28 73 2c 6e 29 3c  39 39 39 20 8c 20 6d 25  |m%(s,n)<999 . m%|
00001770  28 73 2c 6e 29 2b 3d 31  0d 09 f6 1b e7 20 28 49  |(s,n)+=1..... (I|
00001780  3d 31 20 84 20 49 3d 33  29 20 80 20 77 72 69 74  |=1 . I=3) . writ|
00001790  65 20 8c 0d 0a 00 28 f2  69 63 6f 6e 74 65 78 74  |e ....(.icontext|
000017a0  28 62 61 6c 61 6e 63 65  25 2c 77 72 69 74 65 2c  |(balance%,write,|
000017b0  c3 28 6d 25 28 73 2c 6e  29 29 29 0d 0a 0a 1f f2  |.(m%(s,n))).....|
000017c0  64 69 73 70 6c 61 79 62  61 6c 61 6e 63 65 73 74  |displaybalancest|
000017d0  75 66 66 28 77 72 69 74  65 29 0d 0a 14 12 f2 75  |uff(write).....u|
000017e0  70 64 61 74 65 62 61 6c  61 6e 63 65 0d 0a 1e 05  |pdatebalance....|
000017f0  cd 0d 0a 28 05 cd 0d 0a  32 05 cd 0d 0a 3c 04 0d  |...(....2....<..|
00001800  0a 46 43 e7 20 77 69 6e  25 3d 70 65 72 69 6f 64  |.FC. win%=period|
00001810  69 63 25 20 80 20 69 63  6f 6e 25 3e 3d 30 20 8c  |ic% . icon%>=0 .|
00001820  20 f2 6f 70 65 6e 77 69  6e 28 64 61 74 61 25 29  | .openwin(data%)|
00001830  3a f2 64 69 73 70 6c 61  79 28 69 63 6f 6e 25 2b  |:.display(icon%+|
00001840  31 29 0d 0a 50 33 e7 20  77 69 6e 25 3d 6d 65 73  |1)..P3. win%=mes|
00001850  73 61 67 65 25 20 80 20  69 63 6f 6e 25 3d 30 20  |sage% . icon%=0 |
00001860  8c 20 f2 63 6c 6f 73 65  77 69 6e 28 6d 65 73 73  |. .closewin(mess|
00001870  61 67 65 25 29 0d 0a 5a  2e e7 20 69 63 6f 6e 25  |age%)..Z.. icon%|
00001880  3d 31 20 80 20 77 69 6e  25 3d 72 61 6d 25 20 8c  |=1 . win%=ram% .|
00001890  20 f2 6f 70 65 6e 77 69  6e 28 77 65 69 67 68 74  | .openwin(weight|
000018a0  73 25 29 0d 0a 64 15 e7  20 77 69 6e 25 3d 77 65  |s%)..d.. win%=we|
000018b0  69 67 68 74 73 25 20 8c  0d 0a 6e 0c 69 25 3d 69  |ights% ...n.i%=i|
000018c0  63 6f 6e 25 0d 0a 78 41  f2 69 63 6f 6e 74 65 78  |con%..xA.icontex|
000018d0  74 28 65 78 70 61 6e 64  25 2c 30 2c a4 72 65 61  |t(expand%,0,.rea|
000018e0  64 69 63 6f 6e 28 77 65  69 67 68 74 73 25 2c 69  |dicon(weights%,i|
000018f0  25 29 29 3a f2 6f 70 65  6e 77 69 6e 28 65 78 70  |%)):.openwin(exp|
00001900  61 6e 64 25 29 0d 0a 82  05 cd 0d 0a 8c 16 e7 20  |and%).......... |
00001910  77 69 6e 25 3d 65 71 75  61 74 69 6f 6e 25 20 8c  |win%=equation% .|
00001920  0d 0a 96 22 e7 20 69 63  6f 6e 25 3e 33 20 80 20  |...". icon%>3 . |
00001930  69 63 6f 6e 25 3c 37 20  8c 20 f2 70 72 6f 63 65  |icon%<7 . .proce|
00001940  73 73 0d 0a a0 13 78 25  3d 62 25 21 30 3a 79 25  |ss....x%=b%!0:y%|
00001950  3d 62 25 21 34 0d 0a aa  45 e7 20 69 63 6f 6e 25  |=b%!4...E. icon%|
00001960  3d 33 20 8c 20 6f 70 65  6e 6d 65 6e 75 25 3d 32  |=3 . openmenu%=2|
00001970  3a f2 61 72 72 6f 77 73  28 69 6e 64 65 78 25 2c  |:.arrows(index%,|
00001980  31 29 3a f2 73 68 6f 77  6d 65 6e 75 28 69 6e 64  |1):.showmenu(ind|
00001990  65 78 25 2c 78 25 2c 79  25 29 0d 0a b4 13 e7 20  |ex%,x%,y%)..... |
000019a0  65 72 72 3d 30 20 80 20  6e 67 25 20 8c 0d 0a be  |err=0 . ng% ....|
000019b0  22 e7 20 69 63 6f 6e 25  3d 34 20 8c 20 f2 64 72  |". icon%=4 . .dr|
000019c0  61 77 62 61 6c 61 6e 63  65 77 69 6e 64 6f 77 0d  |awbalancewindow.|
000019d0  0a c8 0f e7 20 69 63 6f  6e 25 3d 35 20 8c 0d 0a  |.... icon%=5 ...|
000019e0  d2 0b 6e 6f 67 6f 32 3d  30 0d 0a dc 12 f2 63 6f  |..nogo2=0.....co|
000019f0  6d 70 6f 75 6e 64 69 63  6f 6e 73 0d 0a e6 1e e7  |mpoundicons.....|
00001a00  20 6e 6f 67 6f 32 3d 30  20 8c 20 f2 6f 70 65 6e  | nogo2=0 . .open|
00001a10  77 69 6e 28 72 61 6d 25  29 0d 0a f0 05 cd 0d 0a  |win(ram%).......|
00001a20  fa 3d e7 20 69 63 6f 6e  25 3d 36 20 8c 20 f2 62  |.=. icon%=6 . .b|
00001a30  61 6c 61 6e 63 65 28 30  29 3a f2 73 68 6f 77 63  |alance(0):.showc|
00001a40  6f 6d 70 6f 6e 65 6e 74  73 28 31 29 3a f2 63 6f  |omponents(1):.co|
00001a50  6d 70 6f 75 6e 64 69 63  6f 6e 73 0d 0b 04 05 cd  |mpoundicons.....|
00001a60  0d 0b 0e 38 e7 20 69 63  6f 6e 25 3d 38 20 8c 20  |...8. icon%=8 . |
00001a70  f2 6f 70 65 6e 77 69 6e  28 70 65 72 63 65 6e 74  |.openwin(percent|
00001a80  25 29 3a f2 6e 65 77 63  61 72 65 74 28 70 65 72  |%):.newcaret(per|
00001a90  63 65 6e 74 25 2c 32 29  0d 0b 18 5c e7 20 69 63  |cent%,2)...\. ic|
00001aa0  6f 6e 25 3d 39 20 8c 20  6e 75 6c 6c 25 3d a4 67  |on%=9 . null%=.g|
00001ab0  72 6f 75 70 5f 6c 6f 61  64 28 67 72 6f 75 70 25  |roup_load(group%|
00001ac0  29 3a f2 73 68 6f 77 64  61 74 61 62 61 73 65 3a  |):.showdatabase:|
00001ad0  f2 6f 70 65 6e 77 69 6e  28 64 62 61 73 65 25 29  |.openwin(dbase%)|
00001ae0  3a f2 6e 65 77 63 61 72  65 74 28 64 62 61 73 65  |:.newcaret(dbase|
00001af0  25 2c 34 29 0d 0b 22 3a  e7 20 69 63 6f 6e 25 3d  |%,4)..":. icon%=|
00001b00  37 20 8c 20 f2 6f 70 65  6e 77 69 6e 28 6e 61 6d  |7 . .openwin(nam|
00001b10  65 63 6f 6d 70 25 29 3a  f2 6e 65 77 63 61 72 65  |ecomp%):.newcare|
00001b20  74 28 6e 61 6d 65 63 6f  6d 70 25 2c 32 29 0d 0b  |t(namecomp%,2)..|
00001b30  2c 05 cd 0d 0b 36 2d e7  20 77 69 6e 25 3d 70 65  |,....6-. win%=pe|
00001b40  72 63 65 6e 74 25 20 80  20 69 63 6f 6e 25 3d 31  |rcent% . icon%=1|
00001b50  31 20 8c 20 f2 70 65 72  63 65 6e 74 63 6f 6d 70  |1 . .percentcomp|
00001b60  0d 0b 40 13 e7 20 77 69  6e 25 3d 64 62 61 73 65  |..@.. win%=dbase|
00001b70  25 20 8c 0d 0b 4a 13 78  25 3d 62 25 21 30 3a 79  |% ...J.x%=b%!0:y|
00001b80  25 3d 62 25 21 34 0d 0b  54 0f e7 20 69 63 6f 6e  |%=b%!4..T.. icon|
00001b90  25 3d 30 20 8c 0d 0b 5e  4e e7 20 a4 72 65 61 64  |%=0 ...^N. .read|
00001ba0  69 63 6f 6e 28 64 62 61  73 65 25 2c 30 29 3d 6e  |icon(dbase%,0)=n|
00001bb0  6f 74 65 6e 74 24 20 8c  20 f2 69 63 6f 6e 74 65  |otent$ . .iconte|
00001bc0  78 74 28 64 62 61 73 65  25 2c 30 2c 22 22 29 3a  |xt(dbase%,0,""):|
00001bd0  f2 73 65 74 63 61 72 65  74 28 64 62 61 73 65 25  |.setcaret(dbase%|
00001be0  2c 30 29 0d 0b 68 05 cd  0d 0b 72 0f e7 20 69 63  |,0)..h....r.. ic|
00001bf0  6f 6e 25 3d 32 20 8c 0d  0b 7c 4c e7 20 a4 72 65  |on%=2 ...|L. .re|
00001c00  61 64 69 63 6f 6e 28 64  62 61 73 65 25 2c 30 29  |adicon(dbase%,0)|
00001c10  3c 3e 6e 6f 74 65 6e 74  24 20 8c 20 63 6f 6d 70  |<>notent$ . comp|
00001c20  73 32 24 28 63 6f 6d 25  29 3d a4 72 65 61 64 69  |s2$(com%)=.readi|
00001c30  63 6f 6e 28 64 62 61 73  65 25 2c 30 29 3a f2 73  |con(dbase%,0):.s|
00001c40  61 76 65 0d 0b 86 39 6f  70 65 6e 6d 65 6e 75 25  |ave...9openmenu%|
00001c50  3d 33 3a f2 61 72 72 6f  77 73 28 69 6e 64 65 78  |=3:.arrows(index|
00001c60  25 2c 30 29 3a f2 73 68  6f 77 6d 65 6e 75 28 69  |%,0):.showmenu(i|
00001c70  6e 64 65 78 25 2c 78 25  2c 79 25 29 0d 0b 90 05  |ndex%,x%,y%)....|
00001c80  cd 0d 0b 9a 0f e7 20 69  63 6f 6e 25 3d 35 20 8c  |...... icon%=5 .|
00001c90  0d 0b a4 45 e7 20 a4 72  65 61 64 69 63 6f 6e 28  |...E. .readicon(|
00001ca0  64 62 61 73 65 25 2c 30  29 3e 6e 6f 74 65 6e 74  |dbase%,0)>notent|
00001cb0  24 20 8c 20 63 6f 6d 70  73 32 24 28 63 6f 6d 25  |$ . comps2$(com%|
00001cc0  29 3d a4 72 65 61 64 69  63 6f 6e 28 64 62 61 73  |)=.readicon(dbas|
00001cd0  65 25 2c 30 29 0d 0b ae  3e e7 20 63 6f 6d 70 73  |e%,0)...>. comps|
00001ce0  24 28 30 29 3e 22 22 20  8c 20 6f 70 65 6e 6d 65  |$(0)>"" . openme|
00001cf0  6e 75 25 3d 34 3a f2 73  68 6f 77 6d 65 6e 75 28  |nu%=4:.showmenu(|
00001d00  69 6e 64 25 28 67 72 6f  75 70 25 29 2c 78 25 2c  |ind%(group%),x%,|
00001d10  79 25 29 0d 0b b8 05 cd  0d 0b c2 25 e7 20 69 63  |y%)........%. ic|
00001d20  6f 6e 25 3d 38 20 8c 20  6f 70 25 3d 31 3a f2 6f  |on%=8 . op%=1:.o|
00001d30  70 65 6e 77 69 6e 28 73  75 72 65 25 29 0d 0b cc  |penwin(sure%)...|
00001d40  25 e7 20 69 63 6f 6e 25  3d 39 20 8c 20 6f 70 25  |%. icon%=9 . op%|
00001d50  3d 32 3a f2 6f 70 65 6e  77 69 6e 28 73 75 72 65  |=2:.openwin(sure|
00001d60  25 29 0d 0b d6 46 e7 20  69 63 6f 6e 25 3d 31 30  |%)...F. icon%=10|
00001d70  20 8c 20 f2 69 63 6f 6e  74 65 78 74 28 61 64 64  | . .icontext(add|
00001d80  25 2c 31 2c 22 22 29 3a  f2 6f 70 65 6e 77 69 6e  |%,1,""):.openwin|
00001d90  28 61 64 64 25 29 3a f2  6e 65 77 63 61 72 65 74  |(add%):.newcaret|
00001da0  28 61 64 64 25 2c 31 29  0d 0b e0 10 e7 20 69 63  |(add%,1)..... ic|
00001db0  6f 6e 25 3d 31 31 20 8c  0d 0b ea 2e f2 64 65 6c  |on%=11 ......del|
00001dc0  65 74 65 28 63 6f 6d 25  29 3a f2 73 61 76 65 3a  |ete(com%):.save:|
00001dd0  f2 63 6f 6d 70 6f 75 6e  64 6d 65 6e 75 73 28 67  |.compoundmenus(g|
00001de0  72 6f 75 70 25 29 0d 0b  f4 32 6e 75 6c 6c 25 3d  |roup%)...2null%=|
00001df0  a4 67 72 6f 75 70 5f 6c  6f 61 64 28 67 72 6f 75  |.group_load(grou|
00001e00  70 25 29 3a 63 6f 6d 25  3d 30 3a f2 73 68 6f 77  |p%):com%=0:.show|
00001e10  64 61 74 61 62 61 73 65  0d 0b fe 05 cd 0d 0c 08  |database........|
00001e20  16 e7 20 69 63 6f 6e 25  3d 31 32 20 8c 20 f2 73  |.. icon%=12 . .s|
00001e30  61 76 65 0d 0c 12 05 cd  0d 0c 1c 11 e7 20 77 69  |ave.......... wi|
00001e40  6e 25 3d 61 64 64 25 20  8c 0d 0c 26 1f e7 20 69  |n%=add% ...&.. i|
00001e50  63 6f 6e 25 3d 33 20 8c  20 f2 63 6c 6f 73 65 77  |con%=3 . .closew|
00001e60  69 6e 28 61 64 64 25 29  0d 0c 30 27 e7 20 69 63  |in(add%)..0'. ic|
00001e70  6f 6e 25 3d 32 20 8c 20  f2 61 64 64 28 a4 72 65  |on%=2 . .add(.re|
00001e80  61 64 69 63 6f 6e 28 61  64 64 25 2c 31 29 29 0d  |adicon(add%,1)).|
00001e90  0c 3a 05 cd 0d 0c 44 12  e7 20 77 69 6e 25 3d 73  |.:....D.. win%=s|
00001ea0  75 72 65 25 20 8c 0d 0c  4e 0f e7 20 69 63 6f 6e  |ure% ...N.. icon|
00001eb0  25 3d 31 20 8c 0d 0c 58  31 e7 20 6f 70 25 3d 31  |%=1 ...X1. op%=1|
00001ec0  20 8c 20 f2 63 72 65 61  74 65 67 72 6f 75 70 20  | . .creategroup |
00001ed0  8b 20 f2 64 65 6c 65 74  65 67 72 6f 75 70 28 67  |. .deletegroup(g|
00001ee0  72 6f 75 70 25 29 0d 0c  62 05 cd 0d 0c 6c 20 e7  |roup%)..b....l .|
00001ef0  20 69 63 6f 6e 25 3d 32  20 8c 20 f2 63 6c 6f 73  | icon%=2 . .clos|
00001f00  65 77 69 6e 28 73 75 72  65 25 29 0d 0c 76 05 cd  |ewin(sure%)..v..|
00001f10  0d 0c 80 05 e1 0d 0c 8a  04 0d 0c 94 1b dd 20 f2  |.............. .|
00001f20  69 63 6f 6e 63 61 6c 63  75 6c 61 74 65 28 69 63  |iconcalculate(ic|
00001f30  6f 6e 25 29 0d 0c 9e 26  e7 20 69 63 6f 6e 25 3c  |on%)...&. icon%<|
00001f40  3d 28 28 6e 69 6e 2b 31  29 2a 34 29 2d 31 20 8c  |=((nin+1)*4)-1 .|
00001f50  20 73 3d 30 20 8b 20 73  3d 31 0d 0c a8 0e 6f 72  | s=0 . s=1....or|
00001f60  69 67 3d 69 63 6f 6e 25  0d 0c b2 25 e7 20 73 3d  |ig=icon%...%. s=|
00001f70  31 20 8c 20 69 63 6f 6e  25 3d 69 63 6f 6e 25 2d  |1 . icon%=icon%-|
00001f80  28 34 2a 28 6e 69 6e 2b  31 29 29 2d 31 0d 0c bc  |(4*(nin+1))-1...|
00001f90  18 6e 3d a8 28 28 28 69  63 6f 6e 25 2b 33 29 2f  |.n=.(((icon%+3)/|
00001fa0  34 29 29 2d 31 0d 0c c6  15 49 3d 28 28 69 63 6f  |4))-1....I=((ico|
00001fb0  6e 25 2b 31 29 83 34 29  2b 31 0d 0c d0 0b 77 72  |n%+1).4)+1....wr|
00001fc0  69 74 65 3d 30 0d 0c da  1b e7 20 6d 25 28 73 2c  |ite=0..... m%(s,|
00001fd0  6e 29 3d 30 20 8c 20 6d  25 28 73 2c 6e 29 3d 31  |n)=0 . m%(s,n)=1|
00001fe0  0d 0c e4 05 e1 0d 0c ee  04 0d 0c f8 15 dd 20 f2  |.............. .|
00001ff0  6b 65 79 70 72 65 73 73  28 6b 65 79 25 29 0d 0d  |keypress(key%)..|
00002000  02 0a c8 8e 20 b9 20 ca  0d 0d 0c 10 c9 20 6b 65  |.... . ...... ke|
00002010  79 25 3c 3e 26 31 43 43  0d 0d 16 0f e7 20 6b 65  |y%<>&1CC..... ke|
00002020  79 25 3d 31 33 20 8c 0d  0d 20 22 c8 99 20 22 57  |y%=13 ... ".. "W|
00002030  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
00002040  74 69 6f 6e 22 2c 2c 62  25 0d 0d 2a 0c 77 69 6e  |tion",,b%..*.win|
00002050  25 3d 21 62 25 0d 0d 34  0e 69 63 6f 6e 25 3d 62  |%=!b%..4.icon%=b|
00002060  25 21 34 0d 0d 3e 23 e7  a4 72 65 61 64 69 63 6f  |%!4..>#..readico|
00002070  6e 28 64 62 61 73 65 25  2c 30 29 3c 3e 6e 6f 74  |n(dbase%,0)<>not|
00002080  65 6e 74 24 20 8c 0d 0d  48 13 e7 20 77 69 6e 25  |ent$ ...H.. win%|
00002090  3d 64 62 61 73 65 25 20  8c 0d 0d 52 36 e7 20 69  |=dbase% ...R6. i|
000020a0  63 6f 6e 25 3d 34 20 8c  20 63 6f 6d 70 73 24 28  |con%=4 . comps$(|
000020b0  63 6f 6d 25 29 3d a4 72  65 61 64 69 63 6f 6e 28  |com%)=.readicon(|
000020c0  64 62 61 73 65 25 2c 34  29 3a f2 73 61 76 65 0d  |dbase%,4):.save.|
000020d0  0d 5c 37 e7 20 69 63 6f  6e 25 3d 30 20 8c 20 63  |.\7. icon%=0 . c|
000020e0  6f 6d 70 73 32 24 28 63  6f 6d 25 29 3d a4 72 65  |omps2$(com%)=.re|
000020f0  61 64 69 63 6f 6e 28 64  62 61 73 65 25 2c 30 29  |adicon(dbase%,0)|
00002100  3a f2 73 61 76 65 0d 0d  66 05 cd 0d 0d 70 05 cd  |:.save..f....p..|
00002110  0d 0d 7a 16 e7 20 77 69  6e 25 3d 6e 61 6d 65 63  |..z.. win%=namec|
00002120  6f 6d 70 25 20 8c 0d 0d  84 20 63 6f 6d 70 24 3d  |omp% .... comp$=|
00002130  a4 72 65 61 64 69 63 6f  6e 28 6e 61 6d 65 63 6f  |.readicon(nameco|
00002140  6d 70 25 2c 32 29 0d 0d  8e 20 e7 20 63 6f 6d 70  |mp%,2)... . comp|
00002150  24 3e 22 22 20 8c 20 f2  77 6f 72 6b 6f 75 74 66  |$>"" . .workoutf|
00002160  6f 72 6d 75 6c 61 0d 0d  98 05 cd 0d 0d a2 15 e7  |ormula..........|
00002170  20 77 69 6e 25 3d 62 61  6c 61 6e 63 65 25 20 8c  | win%=balance% .|
00002180  0d 0d ac 19 f2 69 63 6f  6e 63 61 6c 63 75 6c 61  |.....iconcalcula|
00002190  74 65 28 69 63 6f 6e 25  29 0d 0d b6 28 6d 25 28  |te(icon%)...(m%(|
000021a0  73 2c 6e 29 3d bb 28 a4  72 65 61 64 69 63 6f 6e  |s,n)=.(.readicon|
000021b0  28 62 61 6c 61 6e 63 65  25 2c 69 63 6f 6e 25 29  |(balance%,icon%)|
000021c0  29 0d 0d c0 1f f2 64 69  73 70 6c 61 79 62 61 6c  |).....displaybal|
000021d0  61 6e 63 65 73 74 75 66  66 28 69 63 6f 6e 25 29  |ancestuff(icon%)|
000021e0  0d 0d ca 12 f2 75 70 64  61 74 65 62 61 6c 61 6e  |.....updatebalan|
000021f0  63 65 0d 0d d4 05 cd 0d  0d de 05 cd 0d 0d e8 1f  |ce..............|
00002200  7f 3a c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |.:.. "Wimp_Proce|
00002210  73 73 4b 65 79 22 2c 6b  65 79 25 0d 0d f2 05 cb  |ssKey",key%.....|
00002220  0d 0d fc 05 e1 0d 0e 06  04 0d 0e 10 0e dd 20 f2  |.............. .|
00002230  70 72 6f 63 65 73 73 0d  0e 1a 3a 69 6e 24 3d a4  |process...:in$=.|
00002240  72 65 61 64 69 63 6f 6e  28 65 71 75 61 74 69 6f  |readicon(equatio|
00002250  6e 25 2c 30 29 3a 6f 75  74 24 3d a4 72 65 61 64  |n%,0):out$=.read|
00002260  69 63 6f 6e 28 65 71 75  61 74 69 6f 6e 25 2c 32  |icon(equation%,2|
00002270  29 0d 0e 24 26 e7 20 69  6e 24 3d 22 22 20 80 20  |)..$&. in$="" . |
00002280  6f 75 74 24 3d 22 22 20  8c 20 6e 67 25 3d 30 20  |out$="" . ng%=0 |
00002290  8b 20 6e 67 25 3d 31 0d  0e 2e 0b e7 20 6e 67 25  |. ng%=1..... ng%|
000022a0  20 8c 0d 0e 38 0b f2 64  65 63 6f 64 65 0d 0e 42  | ...8..decode..B|
000022b0  0f f2 65 72 72 6f 72 63  68 65 63 6b 0d 0e 4c 05  |..errorcheck..L.|
000022c0  cd 0d 0e 56 05 e1 0d 0e  60 04 0d 0e 6a 11 dd 20  |...V....`...j.. |
000022d0  f2 6d 65 6e 75 73 65 6c  65 63 74 0d 0e 74 13 e7  |.menuselect..t..|
000022e0  20 6f 70 65 6e 6d 65 6e  75 25 3d 31 20 8c 0d 0e  | openmenu%=1 ...|
000022f0  7e 1a 6e 75 6c 6c 25 3d  a4 64 65 63 6f 64 65 28  |~.null%=.decode(|
00002300  69 5f 6d 65 6e 75 25 29  0d 0e 88 1f e7 20 24 64  |i_menu%)..... $d|
00002310  65 63 6f 64 65 25 3d 22  51 75 69 74 22 20 8c 20  |ecode%="Quit" . |
00002320  71 75 69 74 25 3d b9 0d  0e 92 3c e7 20 c0 24 64  |quit%=....<. .$d|
00002330  65 63 6f 64 65 25 2c 32  29 3d 22 50 65 22 20 8c  |ecode%,2)="Pe" .|
00002340  20 f2 6f 70 65 6e 77 69  6e 28 70 65 72 69 6f 64  | .openwin(period|
00002350  69 63 25 29 3a f2 6f 70  65 6e 77 69 6e 28 6b 65  |ic%):.openwin(ke|
00002360  79 25 29 0d 0e 9c 44 e7  20 c0 24 64 65 63 6f 64  |y%)...D. .$decod|
00002370  65 25 2c 32 29 3d 22 45  71 22 20 8c 20 f2 6f 70  |e%,2)="Eq" . .op|
00002380  65 6e 77 69 6e 28 65 71  75 61 74 69 6f 6e 25 29  |enwin(equation%)|
00002390  3a f2 6e 65 77 63 61 72  65 74 28 65 71 75 61 74  |:.newcaret(equat|
000023a0  69 6f 6e 25 2c 30 29 0d  0e a6 52 e7 20 c0 24 64  |ion%,0)...R. .$d|
000023b0  65 63 6f 64 65 25 2c 32  29 3d 22 4f 70 22 20 8c  |ecode%,2)="Op" .|
000023c0  20 f2 6f 70 65 6e 77 69  6e 28 6f 70 74 69 6f 6e  | .openwin(option|
000023d0  73 25 29 3a f2 64 69 73  70 6c 61 79 6f 70 74 69  |s%):.displayopti|
000023e0  6f 6e 73 3a f2 6e 65 77  63 61 72 65 74 28 6f 70  |ons:.newcaret(op|
000023f0  74 69 6f 6e 73 25 2c 36  29 0d 0e b0 05 cd 0d 0e  |tions%,6).......|
00002400  ba 13 e7 20 6f 70 65 6e  6d 65 6e 75 25 3d 32 20  |... openmenu%=2 |
00002410  8c 0d 0e c4 2b c8 99 20  22 57 69 6d 70 5f 44 65  |....+.. "Wimp_De|
00002420  63 6f 64 65 4d 65 6e 75  22 2c 2c 69 6e 64 65 78  |codeMenu",,index|
00002430  25 2c 62 25 2c 64 65 63  6f 64 65 25 0d 0e ce 0f  |%,b%,decode%....|
00002440  64 24 3d 24 64 65 63 6f  64 65 25 0d 0e d8 30 63  |d$=$decode%...0c|
00002450  3d 2d 31 3a f5 3a 63 2b  3d 31 3a fd 20 c0 64 24  |=-1:.:c+=1:. .d$|
00002460  2c a7 64 24 2c 22 2e 22  29 2d 31 29 3d 69 6e 64  |,.d$,".")-1)=ind|
00002470  24 28 63 29 20 84 20 63  3d 31 30 0d 0e e2 08 72  |$(c) . c=10....r|
00002480  31 3d 63 0d 0e ec 19 6e  75 6c 6c 25 3d a4 67 72  |1=c....null%=.gr|
00002490  6f 75 70 5f 6c 6f 61 64  28 72 31 29 0d 0e f6 09  |oup_load(r1)....|
000024a0  72 32 3d 2d 31 0d 0f 00  32 f5 3a 72 32 2b 3d 31  |r2=-1...2.:r2+=1|
000024b0  3a fd 20 72 32 3d 32 35  20 84 20 c2 64 24 2c a9  |:. r2=25 . .d$,.|
000024c0  64 24 2d a7 64 24 2c 22  2e 22 29 29 3d 63 6f 6d  |d$-.d$,"."))=com|
000024d0  70 73 24 28 72 32 29 0d  0f 0a 22 c8 99 20 22 57  |ps$(r2)...".. "W|
000024e0  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
000024f0  74 69 6f 6e 22 2c 2c 62  25 0d 0f 14 15 e7 20 21  |tion",,b%..... !|
00002500  62 25 3d 65 71 75 61 74  69 6f 6e 25 20 8c 0d 0f  |b%=equation% ...|
00002510  1e 0e 69 63 6f 6e 25 3d  62 25 21 34 0d 0f 28 0b  |..icon%=b%!4..(.|
00002520  70 3d 62 25 21 32 30 0d  0f 32 20 64 24 3d a4 72  |p=b%!20..2 d$=.r|
00002530  65 61 64 69 63 6f 6e 28  65 71 75 61 74 69 6f 6e  |eadicon(equation|
00002540  25 2c 62 25 21 34 29 0d  0f 3c 3c f2 69 63 6f 6e  |%,b%!4)..<<.icon|
00002550  74 65 78 74 28 65 71 75  61 74 69 6f 6e 25 2c 69  |text(equation%,i|
00002560  63 6f 6e 25 2c c0 64 24  2c 70 29 2b 63 6f 6d 70  |con%,.d$,p)+comp|
00002570  73 32 24 28 72 32 29 2b  c2 64 24 2c a9 64 24 2d  |s2$(r2)+.d$,.d$-|
00002580  70 29 29 0d 0f 46 38 c8  99 20 22 57 69 6d 70 5f  |p))..F8.. "Wimp_|
00002590  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
000025a0  22 2c 65 71 75 61 74 69  6f 6e 25 2c 69 63 6f 6e  |",equation%,icon|
000025b0  25 2c 30 2c 2d 31 2c 2d  31 2c 70 0d 0f 50 05 cd  |%,0,-1,-1,p..P..|
000025c0  0d 0f 5a 1d 6e 75 6c 6c  25 3d a4 67 72 6f 75 70  |..Z.null%=.group|
000025d0  5f 6c 6f 61 64 28 67 72  6f 75 70 25 29 0d 0f 64  |_load(group%)..d|
000025e0  05 cd 0d 0f 6e 13 e7 20  6f 70 65 6e 6d 65 6e 75  |....n.. openmenu|
000025f0  25 3d 33 20 8c 0d 0f 78  21 67 72 6f 75 70 25 3d  |%=3 ...x!group%=|
00002600  a4 64 65 63 6f 64 65 28  69 6e 64 65 78 25 29 3a  |.decode(index%):|
00002610  63 6f 6d 25 3d 30 0d 0f  82 20 f2 69 63 6f 6e 74  |com%=0... .icont|
00002620  65 78 74 28 64 62 61 73  65 25 2c 31 2c 24 64 65  |ext(dbase%,1,$de|
00002630  63 6f 64 65 25 29 0d 0f  8c 1d 6e 75 6c 6c 25 3d  |code%)....null%=|
00002640  a4 67 72 6f 75 70 5f 6c  6f 61 64 28 67 72 6f 75  |.group_load(grou|
00002650  70 25 29 0d 0f 96 16 70  25 3d 69 6e 64 25 28 67  |p%)....p%=ind%(g|
00002660  72 6f 75 70 25 29 2b 32  38 0d 0f a0 11 f2 73 68  |roup%)+28.....sh|
00002670  6f 77 64 61 74 61 62 61  73 65 0d 0f aa 05 cd 0d  |owdatabase......|
00002680  0f b4 13 e7 20 6f 70 65  6e 6d 65 6e 75 25 3d 34  |.... openmenu%=4|
00002690  20 8c 0d 0f be 1e 63 6f  6d 25 3d a4 64 65 63 6f  | .....com%=.deco|
000026a0  64 65 28 69 6e 64 25 28  67 72 6f 75 70 25 29 29  |de(ind%(group%))|
000026b0  0d 0f c8 11 f2 73 68 6f  77 64 61 74 61 62 61 73  |.....showdatabas|
000026c0  65 0d 0f d2 05 cd 0d 0f  dc 05 e1 0d 0f e6 04 0d  |e...............|
000026d0  0f f0 19 f4 20 23 23 20  49 63 6f 6e 20 62 61 72  |.... ## Icon bar|
000026e0  20 6d 65 6e 75 20 23 23  0d 0f fa 0c dc 20 4d 65  | menu ##..... Me|
000026f0  6e 75 2c 35 0d 10 04 12  dc 20 30 2c 69 6e 66 6f  |nu,5..... 0,info|
00002700  25 2c 49 6e 66 6f 0d 10  0e 19 dc 20 30 2c 2d 31  |%,Info..... 0,-1|
00002710  2c 50 65 72 69 6f 64 69  63 20 74 61 62 6c 65 0d  |,Periodic table.|
00002720  10 18 1b dc 20 30 2c 2d  31 2c 45 71 75 61 74 69  |.... 0,-1,Equati|
00002730  6f 6e 20 75 74 69 6c 69  74 79 0d 10 22 12 dc 20  |on utility..".. |
00002740  30 2c 2d 31 2c 4f 70 74  69 6f 6e 73 0d 10 2c 11  |0,-1,Options..,.|
00002750  dc 20 26 38 30 2c 2d 31  2c 51 75 69 74 0d ff     |. &80,-1,Quit..|
0000275f