!� ### chemistry utilities ###
� W$=string to break down
� c=character counter
(*� C$=individual character (position c)
2"� E$=string that gets built up
<#� s=input/ouput compounds (0/1)
F� n=compound no.
P%� n2=element number (in compound)
Z_� t=type of character (-1=unidientified, 0=no caps, 1=caps, 2=numbers, 3="(", 4=")", 5=".")
d
n� �breakdown(s,W$)
x
E$="":n=0
�� c=1 � �(W$)
�C$=�W$,c,1)
�� C$="+" �
�forms$(s,n)=E$:E$="":n+=1
��
�E$=E$+C$
��
�(� n>=max_comps1 � err=2:err1=s:c=�W$
��c
�$� n<=max_comps1 � forms$(s,n)=E$
��
�
�
� �decode

�clearvars

�breakdown(0,in$)

�breakdown(1,out$)

"� err=0 � �analysis(0)

,�

6

@� �analysis(what%)

Jfinished=0

T&err=0:err1=0:err2=0:err3=0:err$=""

^
� s=0 � 1

h� n=0 � max_comps1

r� what%=1 � n=max_comps1+1

|W$=forms$(s,n)

�
� W$>"" �

�� c=1 � �W$

�� �type=4 �

�c+=1

�)� �type<>2 � W$=�W$,c-2)+�W$,�W$-c+1)

��

�� c

�c=1

�� �type=2 �

�	E$=""

��

�c+=1

�
E$+=C$
%� �type<2 � �type=3 � c>�W$ � err
m%(s,n)=��E$,10)
� m%(s,n)>999 � err=4
&�
03n2=0:b=0:brst=0:r=0:nomult=0:cryst=0:crystpos=0
:�
DE$="":lastc=0
Nloopcheck2=0
X�
b � �type=3 � b=1:c+=1:brst=n2
l� �type<2 � E$+=C$:c+=1
v� loopcheck2=c � c=256
�loopcheck2=c
�&� �type=-1 � �type>0 � c>�W$ � err
�id=�sym_to_id(E$)
�
� id=-1 �
�7� E$>"" � err=1:err$=E$:err1=s:err2=n:err3=n2:E$=""
��
�F� n2>max_elements � err=5:err$=E$:err1=s � E$="":r=0:e%(s,n,n2)=id
��
�loopcheck1=0:check=0
��
�� �type=2 � E$+=C$:c+=1
�� b=-1 � b=0:r=1:check=1
�&� �type=4 � b=-1:�stopdotmult:c+=1
� loopcheck1=c � c=256
loopcheck1=c
,� �type=1 � c>�W$ � �type>2 � b=-1 � err
 �stopdotmult
*� �type=-1 � c+=1
4� ��E$,10)=0 � r=1 � c-=1
>� r=1 � ��E$,10)>0 �
Hr=0
R� c2=brst � n2-1
\ns%(s,n,c2)=��E$,10)
f� c2
pns%(s,n,c2-1)=-��E$,10)
z	n2-=1
��
�9� n2<max_elements � ��E$,10)>0 � em%(s,n,n2)=��E$,10)
��
�	n2+=1
�)� �type=5 � v=c:�stopdotmult:�dotmult
�� c=lastc � c=256
�lastc=c
�)� c>�W$ � err � c<0 � n2>max_elements
�� n2>max_elements � err=6
��stopdotmult
��
�� n
�� s
�

� �stopdotmult
$=� (�type=5 � �type=3 � c>�W$ � n2>max_elements) � cryst �
.� c2=crystpos � n2-1
8ns%(s,n,c2)=cryst
B� c2
Lns%(s,n,n2)=-cryst
Vcryst=0
`crystpos=0
j�
t�
~
�� �dotmult
�� �type=5 �
�c+=1:x=�type:c-=1
�� x=2 �
�	E$=""
�c+=1
��
�null=�type
�
E$+=C$
�c+=1
�� �type<>2 � c>�W$ � err
�cryst=��E$,10):E$=""
crystpos=n2

�
c+=1
�
(�
2�
<
F� �percentcomp
P� w1=0 � 1
Zm%(w1,max_comps1+1)=0
d� w2=0 � max_elements
ne%(w1,max_comps1+1,w2)=0
xem%(w1,max_comps1+1,w2)=0
�ns%(w1,max_comps1+1,w2)=0
�� w2
�� w1
�]forms$(0,max_comps1+1)=�readicon(percent%,2):forms$(1,max_comps1+1)=�readicon(percent%,3)
�=� forms$(0,max_comps1+1)="" � forms$(1,max_comps1+1)="" �
�pnogo=1:�usermessage("Sorry I need a component","and an original compound","to calculate % compostion","","")
�� nogo=0
��analysis(1)
��errorcheck
��
�� err=0 � nogo=0 �
�e=0
�� �
_� � � �usermessage("Sorry I cannot calculate the","weight of the compounds",�$,�(�),""):e=1
E� e=0 � T=��showcalc(0,max_comps1+1):B=��showcalc(1,max_comps1+1)
� �
"� e=0 �
,J� e%(0,max_comps1+1,1)=0 � �balance(1):T=T*ne%(1,e%(0,max_comps1+1,0))
69�icontext(percent%,6,�(T)):�icontext(percent%,7,�(B))
@5�icontext(percent%,9,�(�round((100*T/B),dp_opt)))
J�openwin(percent%)
T�
^�
h�
r
|� �round(num,deps%)
�X=�("1"+�deps%,"0"))
�num=�((num*X)+0.5)
�
=num/X
�
�� �errorcheck
�� err �
�5� err1=0 � err2$="Reactants " � err2$="Products "
̜� err=1 � �usermessage("Sorry I can't understand element "+err$,"( "+err2$+"section )","( Compound no."+�(err2+1)+")","( Element no."+�(err3+1)+" )","")
�d� err=2 � �usermessage("Sorry there are two many ",err2$,"(Maximum is "+�(max_comps1)+")","","")
�}� err=3 � �usermessage("Sorry this formula cannot be balanced","because the elements","on either side do not","match","")
�T� err=4 � �usermessage("The compound multipier is greater than 999","","","","")
�� err=5 � �usermessage("Sorry only "+�(max_elements+1)+" elements are allowed","per compound","-please alter the start up settings","(icon bar menu)","")
�c� err=6 � �usermessage("Sorry this program cannot","understand what you have entered","","","")
�
�

&� �type
0C$=�W$,c,1)
:tt=-1:A=�(C$)
D� A>=97 � A<=122 � tt=0
N� A>=65 � A<=90 � tt=1
X� A>=48 � A<=57 � tt=2
b� A=40 � tt=3
l� A=41 � tt=4
v� A=46 � tt=5
�=tt
�
�� �sym_to_id(ch$)
�	fb=-1
�� fd=0 � 107
�*� ch$=sym$(fd) � ch$>"" � fb=fd:fd=107
�� fd
�� ch$="" � fb=-1
�=fb
�
�@� �usermessage(mess$(0),mess$(1),mess$(2),mess$(3),mess$(4))
�I� c2=1 � 5:�icontext(message%,c2,mess$(c2-1)):� c2:�openwin(message%)
��

� �compoundicons
*height=-80:pos=0:pos2=0:pos3=0:ram$=""
 
� s=0 � 1
*#� s=0 � v%=valid2% � v%=valid3%
4,� �ram$,3)=" + " � ram$=�ram$,�(ram$)-3)
>� s=1 � ram$+=" =====> "
H� n=0 � max_comps1
R� forms$(s,n)>"" �
\calc$=�showcalc(s,n)
fAFG1=�icon_flags(1,0,1,1,1,1,1,1,1,0,0,0,3,0,0,0,0,0,0,font1%)
pAFG2=�icon_flags(1,0,1,0,1,1,1,1,1,0,0,0,3,0,0,0,0,0,0,font1%)
z$(eqtext%+pos)=forms$(s,n)
�$(calctext%+pos2)=calc$
�
nogo=0
�� �
�g� � � �usermessage("Sorry I cannot calculate the","weight of "+forms$(s,n),"","",""):nogo=1:nogo2=1
�C� nogo=0 � tot$=�(�(calc$))+" g":ram$=ram$+tot$+" + " � tot$=""
�� �
�$(total%+pos3)=tot$
�Snull=�create_icon(weights%,20,height,300,50,FG1,"",eqtext%+pos,v%,�forms$(s,n))
�Qnull=�create_icon(weights%,350,height,700,50,FG2,"",calctext%+pos2,v%,�calc$)
�Nnull=�create_icon(weights%,1100,height,150,50,FG2,"",total%+pos3,v%,�tot$)
�?height-=80:pos+=�forms$(s,n)+1:pos2+=�calc$+1:pos3+=�tot$+1
�i+=1
��
	� n
	 � ram$="" � s=0 � ram$="0 g"
	� s
	$,� �ram$,3)=" + " � ram$=�ram$,�(ram$)-3)
	.%� �ram$,2)="> " � ram$=ram$+" 0g"
	8�icontext(ram%,0,ram$)
	B�
	L
	V� �showcalc(s1,n1)
	`out$="":cm=0:bs=0:mult=0
	j� c=0 � max_elements
	te=e%(s1,n1,c)
	~	� e �
	� � c=0 � plus$="" � plus$="+"
	�4� c=0 � m%(s1,n1) � out$+=�(m%(s1,n1))+"*(":cm=1
	�� ns%(s1,n1,c) � bs=0 �
	�!out$+=plus$+"(":bs=1:plus$=""
	�=� ns%(s1,n1,c)<0 � mult=-ns%(s1,n1,c) � mult=ns%(s1,n1,c)
	��
	�p� em%(s1,n1,c) � out$+=plus$+"("+��(atms%(e)/10),4)+"*"+�(em%(s1,n1,c))+")" � out$+=plus$+��(atms%(e)/10),4)
	��
	�0� bs=1 � (ns%(s1,n1,c)<0 � ns%(s1,n1,c)=0) �
	�-� mult>0 � out$+=")*"+�(mult) � out$+=")"
	�bs=0:mult=0
	��
� c

� cm=1 � out$+=")"
	=out$

(� �balance(what%)
2,� s=0 � 1:� n=0 � 110:ne%(s,n)=0:� n:� s
<cn1=0:cn2=0
F
� s=0 � 1
P
tot%=0
Z� n=0 � max_comps1
d� what%=1 � n=max_comps1+1
n� forms$(s,n)>"" �
x� n2=0 � max_elements
�e=e%(s,n,n2)
�� e%(s,n,n2) �
�+� em%(s,n,n2)>0 � ne=em%(s,n,n2) � ne=1
�mult=ns%(s,n,n2)
�� mult<0 � mult=-mult
�� mult � ne=ne*mult
�� m%(s,n)>0 � ne=ne*m%(s,n)
�� e>0 � e<110 �
�ne%(s,e)+=ne
�tot%+=ne
��
��
�� n2
�
� n
� s=0 � cn1=tot% � cn2=tot%
"� s
,�
6
@� �balance_checkelements
J� e=0 � 110
T?� (ne%(0,e) � ne%(1,e)=0) � (ne%(1,e) � ne%(0,e)=0) � err=3
^� e
h�errorcheck
r�
|
�� �showcomponents(what%)
�in$="":out$="":inw=0:outw=0
�� n=0 � 110
�P� ne%(0,n) � in$+=�(ne%(0,n))+" x "+sym$(n)+", ":inw+=(atms%(n)/10)*ne%(0,n)
�R� ne%(1,n) � out$+=�(ne%(1,n))+" x "+sym$(n)+", ":outw+=(atms%(n)/10)*ne%(1,n)
�� n
�3in$+="("+�(cn1)+" elements )"+"  ="+�(inw)+" g"
�5out$+="("+�(cn2)+" elements )"+"  ="+�(outw)+" g"
�8�icontext(numbers%,0,in$):�icontext(numbers%,1,out$)
�4� what% � �closewin(numbers%):�openwin(numbers%)
��
�
�� �workoutformula
Ln=0:out$="":n$="":err1=0:err2=0:err3=0:err4=0:c2=0:err5=0:an$="":cat$=""
�
n+=1
&C$=�comp$,n,1)
0!� C$=" " � C$="(" � n>=�comp$
:2� n<�comp$ � metal$=�comp$,n-1) � metal$=comp$
Dpos=n:end=n
N�
XC$=�comp$,n,1)
b� C$="(" �
ln+=1:n$=""
v�
�C$=�comp$,n,1)
�
n$+=C$
�n+=1
�� C$=")" � n>�comp$
�	end=n
�n$=�n$,�n$-1)
��
�n+=1
�� n>�comp$
�� end<�comp$ �
� nonmetal$=�comp$,�comp$-end)
�� nonmetal$="" � err5=1
�"nonmetal$=�upcase(nonmetal$,1)

$c2=�whatcharge_file(nonmetal$,2)

an$=sym$

� c2=0 � err4=1

 �

*metal$=�upcase(metal$,2)

4cat$=�findelement(metal$)

>"� n$>"" � c1=�roman(n$) � c1=0

H� c1=0 � err1=1 �

R!c1=�whatcharge_periodic(cat$)

\?� c1=0 � c1=�whatcharge_file(�upcase(metal$,1),1):cat$=sym$

f� c1=1 � err1=0

p�

z� err1 � err2 �

�}�usermessage("Sorry I cannot find any reference of",metal$+" in cat-ion file, the item may","be incorrectly spelt","","")

��

��� c1=0 � �usermessage("Sorry the item "+metal$+" has multiple","valancies (or is a nonmetal), please specify","which valency eg. copper (II) Nitrate","","")

��� err3=1 � �usermessage("Sorry an error has been made in the","entry of the valancy","( the valancy should be in brackets,","and in roman numerals)","")

��

�� err4 � �usermessage("Sorry no reference of "+nonmetal$,"can be found in an-ion file","(please check the spelling)","","")

�result$=""

�X� an$="" � �usermessage("Compounds must contain more","than one component","","","")

�� an$="" � err5=1 � err5=0

�2� err1=0 � err2=0 � err3=0 � err4=0 � err5=0 �

�� c1<>c2 �

�� c2>1 �

�type=�compound_type(cat$)
>� type=2 � result$="("+cat$+")"+�(c2) � result$=cat$+�(c2)
� result$=cat$
�
$� c1>1 �
.type=�compound_type(an$)
8>� type=2 � result$+="("+an$+")"+�(c1) � result$+=an$+�(c1)
B� result$+=an$
L�
V�
`result$=cat$+an$
j�
t�
~!result$="<< Can't process >>"
��
�"�icontext(namecomp%,3,result$)
��
�
�� �compound_type(what$)
�n=0
�� c=1 � �what$
�C=�(�what$,c,1))
�� C>64 � C<91 � n+=1
�� c
�� n=1 � =1
�� n>1 � =2


#� �whatcharge_file(what$,what%)
sym$=""
B� what%=1 � F=� "<Chem$Dir>.Cations" � F=� "<Chem$Dir>.Anions"
(�
2
L$=�#F
<name$=�L$,�L$,"#")-1)
F� �#F � what$=name$
P�#F
Z� what$<>name$ � err2=1
d� what$=name$ �
n,sym$=�L$,�L$,"#")+1,�L$,"@")-�L$,"#")-1)
x=�(�L$,1))
��
�
�!� �whatcharge_periodic(what$)
�F=� "<Chem$Dir>.ChemData"
�x=0
��
�
L$=�#F
�p1=�L$,"!")+1
�p2=�L$,"@")+1
�p3=�L$,"#")+1
�� p1>1 �
�x=�(�L$,1))
�sym$=�L$,p2,p3-p2-1)
�
� �#F � sym$=what$
�#F
"� sym$=what$ �
,� x<3 � =x � =0
6�
@=0
J�
T
^� �findelement(find$)
hn=0
r�
|n+=1
�� n>109 � name$(n)=find$
�
� n<109 �
�=sym$(n)
��
�
err1=1
�=""
�
�� �roman(text$)
�text$=�upcase(text$,1)
�n=0
�� text$="I" � n=1
�� text$="II" � n=2
�� text$="III" � n=3
� text$="IV" � n=4
� text$="V" � n=5
� text$="VI" � n=6
&� text$="VII" � n=7
0� text$="VIII" � n=8
:� n=0 � err3=1
D=n
N
X
b� �upcase(text$,what%)
l	C$=""
v� n=1 � �text$
�C=�(�text$,n,1))
�� what%=1 �
�� C>96 � C<123 � C-=32
��
�� what%=2 �
� � n=1 � C>96 � C<123 � C-=32
�� n>1 � C>64 � C<91 � C+=32
��
�C$=C$+�(C)
�� n
�=C$
�
�� �drawbalancewindow
�balance(0)
	err=0
�balance_checkelements
  � err=0 � in$>"" � out$>"" �
*� nicons �
4!b%=balance%
>� w4=0 � nicons
Hb%!4=w4
Rș "Wimp_GetIconState",,b%
\ș "Wimp_DeleteIcon",,b%
f� w4
p�
znicons=0:n=0
�Cflag1=�icon_flags(1,0,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,font1%)
�Cflag2=�icon_flags(1,0,1,1,1,1,1,1,1,0,0,0,6,0,0,0,0,0,0,font1%)
�Dflag3=�icon_flags(1,0,1,1,1,1,1,1,1,0,0,0,15,0,0,0,0,0,0,font1%)
�Cflag4=�icon_flags(1,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,font1%)
�
�
� s=0 � 1
�n=0
��
�m2%(s,n)=m%(s,n)
�bnull=�create_icon(balance%,50+(nicons*200),-100,180,50,flag1,"",btext%+(nicons*15),valid2%,16)
�Unull=�create_icon(balance%,50+(nicons*200),-160,48,44,flag2,"",btext2%,valid4%,3)
�dnull=�create_icon(balance%,108+(nicons*200),-160,68,44,flag3,"",btext%+(nicons*15)+11,valid5%,4)
��displaybalancestuff(null)
Xnull=�create_icon(balance%,180+(nicons*200),-160,48,44,flag2,"",btext2%+3,valid4%,3)
n+=1:nicons+=1
#� forms$(s,n)="" � n=max_comps1
$� s=0 � nin=n-1 � nout=n-1
.� s=0 �
8]null=�create_icon(balance%,50+(nicons*200),-100,180,50,flag4,"",btext%+(nicons*15),-1,16)
B)$(btext%+(nicons*15))=">>>":nicons+=1
L�
V� s
`
j]b1=�create_icon(balance%,50,-460,350,50,flag1,"",btext%+(nicons*25),valid6%,25):nicons+=1
t]b2=�create_icon(balance%,50,-380,350,50,flag1,"",btext%+(nicons*25),valid3%,25):nicons+=1
~]b3=�create_icon(balance%,50,-300,350,50,flag1,"",btext%+(nicons*25),valid2%,25):nicons+=1
�gbalance_P%=�create_icon(balance%,420,-380,1050,50,flag1,"",btext%+(nicons*45),valid3%,85):nicons+=1
�gbalance_R%=�create_icon(balance%,420,-300,1050,50,flag1,"",btext%+(nicons*85),valid2%,85):nicons+=1
�fbalance_S%=�create_icon(balance%,420,-460,300,50,flag1,"",btext%+(nicons*85),valid6%,85):nicons+=1
�breset%=�create_icon(balance%,750,-460,200,48,flag2,"",btext%+(nicons*85),valid1%,25):nicons+=1
�eokbutton%=�create_icon(balance%,980,-460,200,48,flag2,"",btext%+(nicons*45),valid1%,15):nicons+=1
�
�+�icontext(balance%,b1,"Equation state")
�/�icontext(balance%,b2,"Products breakdown")
�0�icontext(balance%,b3,"Reactants breakdown")
�%�icontext(balance%,balance_R%,"")
�%�icontext(balance%,balance_P%,"")
�%�icontext(balance%,balance_S%,"")
&�icontext(balance%,reset%,"Reset")

(�icontext(balance%,okbutton%,"O.K.")
nicons=nicons+(3*nicons)
�openwin(balance%)
(�updatebalance
2�
<�
F
P&� �displaybalancestuff(plusminus%)
Z(� m%(s,n)=0 � m$="1" � m$=�(m%(s,n))
d0T$=�m$,3)+" "+��removenumber(forms$(s,n)),8)
n'�icontext(balance%,plusminus%-2,T$)
x%�icontext(balance%,plusminus%,m$)
��
�
�� �removenumber(text$)
�C=�(�text$,1))
�� C>47 � C<58 �
�c=0
��
�c+=1
�C=�(�text$,c,1))
�� C<47 � C>58 � c>=�text$
�=�text$,�text$-c+1)
��
�
=text$
�

� �updatebalance
"�balance(0)
,�showcomponents(0)
6&�icontext(balance%,balance_R%,in$)
@'�icontext(balance%,balance_P%,out$)
J:� in$=out$ � state$="Balanced" � state$="Not Balanced"
T)�icontext(balance%,balance_S%,state$)
^�
h
r� �clearvars
|� w1=0 � 1
�� w2=0 � max_comps1
�forms$(w1,w2)=""
�m%(w1,w2)=0
�� w3=0 � max_elements
�2e%(w1,w2,w3)=0:em%(w1,w2,w3)=0:ns%(w1,w2,w3)=0
�� w3
�� w2
�� w1
�� w1=2 � i*3
�!b%=weights%:b%!4=w1
�ș "Wimp_GetIconState",,b%
�ș "Wimp_DeleteIcon",,b%
�� w1
2� w1=0 � 1:� w2=0 � 110:ne%(w1,w2)=0:� w2:� w1
&err=0:err1=0:err2=0:err3=0:err$=""
�
�

00000000  0d 00 0a 21 f4 20 23 23  23 20 63 68 65 6d 69 73  |...!. ### chemis|
00000010  74 72 79 20 75 74 69 6c  69 74 69 65 73 20 23 23  |try utilities ##|
00000020  23 0d 00 14 1d f4 20 57  24 3d 73 74 72 69 6e 67  |#..... W$=string|
00000030  20 74 6f 20 62 72 65 61  6b 20 64 6f 77 6e 0d 00  | to break down..|
00000040  1e 19 f4 20 63 3d 63 68  61 72 61 63 74 65 72 20  |... c=character |
00000050  63 6f 75 6e 74 65 72 0d  00 28 2a f4 20 43 24 3d  |counter..(*. C$=|
00000060  69 6e 64 69 76 69 64 75  61 6c 20 63 68 61 72 61  |individual chara|
00000070  63 74 65 72 20 28 70 6f  73 69 74 69 6f 6e 20 63  |cter (position c|
00000080  29 0d 00 32 22 f4 20 45  24 3d 73 74 72 69 6e 67  |)..2". E$=string|
00000090  20 74 68 61 74 20 67 65  74 73 20 62 75 69 6c 74  | that gets built|
000000a0  20 75 70 0d 00 3c 23 f4  20 73 3d 69 6e 70 75 74  | up..<#. s=input|
000000b0  2f 6f 75 70 75 74 20 63  6f 6d 70 6f 75 6e 64 73  |/ouput compounds|
000000c0  20 28 30 2f 31 29 0d 00  46 14 f4 20 6e 3d 63 6f  | (0/1)..F.. n=co|
000000d0  6d 70 6f 75 6e 64 20 6e  6f 2e 0d 00 50 25 f4 20  |mpound no...P%. |
000000e0  6e 32 3d 65 6c 65 6d 65  6e 74 20 6e 75 6d 62 65  |n2=element numbe|
000000f0  72 20 28 69 6e 20 63 6f  6d 70 6f 75 6e 64 29 0d  |r (in compound).|
00000100  00 5a 5f f4 20 74 3d 74  79 70 65 20 6f 66 20 63  |.Z_. t=type of c|
00000110  68 61 72 61 63 74 65 72  20 28 2d 31 3d 75 6e 69  |haracter (-1=uni|
00000120  64 69 65 6e 74 69 66 69  65 64 2c 20 30 3d 6e 6f  |dientified, 0=no|
00000130  20 63 61 70 73 2c 20 31  3d 63 61 70 73 2c 20 32  | caps, 1=caps, 2|
00000140  3d 6e 75 6d 62 65 72 73  2c 20 33 3d 22 28 22 2c  |=numbers, 3="(",|
00000150  20 34 3d 22 29 22 2c 20  35 3d 22 2e 22 29 0d 00  | 4=")", 5=".")..|
00000160  64 04 0d 00 6e 16 dd 20  f2 62 72 65 61 6b 64 6f  |d...n.. .breakdo|
00000170  77 6e 28 73 2c 57 24 29  0d 00 78 0d 45 24 3d 22  |wn(s,W$)..x.E$="|
00000180  22 3a 6e 3d 30 0d 00 82  11 e3 20 63 3d 31 20 b8  |":n=0..... c=1 .|
00000190  20 a9 28 57 24 29 0d 00  8c 0f 43 24 3d c1 57 24  | .(W$)....C$=.W$|
000001a0  2c 63 2c 31 29 0d 00 96  0e e7 20 43 24 3d 22 2b  |,c,1)..... C$="+|
000001b0  22 20 8c 0d 00 a0 1d 66  6f 72 6d 73 24 28 73 2c  |" .....forms$(s,|
000001c0  6e 29 3d 45 24 3a 45 24  3d 22 22 3a 6e 2b 3d 31  |n)=E$:E$="":n+=1|
000001d0  0d 00 aa 05 cc 0d 00 b4  0c 45 24 3d 45 24 2b 43  |.........E$=E$+C|
000001e0  24 0d 00 be 05 cd 0d 00  c8 28 e7 20 6e 3e 3d 6d  |$........(. n>=m|
000001f0  61 78 5f 63 6f 6d 70 73  31 20 8c 20 65 72 72 3d  |ax_comps1 . err=|
00000200  32 3a 65 72 72 31 3d 73  3a 63 3d a9 57 24 0d 00  |2:err1=s:c=.W$..|
00000210  d2 06 ed 63 0d 00 dc 24  e7 20 6e 3c 3d 6d 61 78  |...c...$. n<=max|
00000220  5f 63 6f 6d 70 73 31 20  8c 20 66 6f 72 6d 73 24  |_comps1 . forms$|
00000230  28 73 2c 6e 29 3d 45 24  0d 00 e6 05 e1 0d 00 f0  |(s,n)=E$........|
00000240  04 0d 00 fa 0d dd 20 f2  64 65 63 6f 64 65 0d 01  |...... .decode..|
00000250  04 0e f2 63 6c 65 61 72  76 61 72 73 0d 01 0e 15  |...clearvars....|
00000260  f2 62 72 65 61 6b 64 6f  77 6e 28 30 2c 69 6e 24  |.breakdown(0,in$|
00000270  29 0d 01 18 16 f2 62 72  65 61 6b 64 6f 77 6e 28  |).....breakdown(|
00000280  31 2c 6f 75 74 24 29 0d  01 22 1a e7 20 65 72 72  |1,out$)..".. err|
00000290  3d 30 20 8c 20 f2 61 6e  61 6c 79 73 69 73 28 30  |=0 . .analysis(0|
000002a0  29 0d 01 2c 05 e1 0d 01  36 04 0d 01 40 16 dd 20  |)..,....6...@.. |
000002b0  f2 61 6e 61 6c 79 73 69  73 28 77 68 61 74 25 29  |.analysis(what%)|
000002c0  0d 01 4a 0e 66 69 6e 69  73 68 65 64 3d 30 0d 01  |..J.finished=0..|
000002d0  54 26 65 72 72 3d 30 3a  65 72 72 31 3d 30 3a 65  |T&err=0:err1=0:e|
000002e0  72 72 32 3d 30 3a 65 72  72 33 3d 30 3a 65 72 72  |rr2=0:err3=0:err|
000002f0  24 3d 22 22 0d 01 5e 0d  e3 20 73 3d 30 20 b8 20  |$=""..^.. s=0 . |
00000300  31 0d 01 68 16 e3 20 6e  3d 30 20 b8 20 6d 61 78  |1..h.. n=0 . max|
00000310  5f 63 6f 6d 70 73 31 0d  01 72 1e e7 20 77 68 61  |_comps1..r.. wha|
00000320  74 25 3d 31 20 8c 20 6e  3d 6d 61 78 5f 63 6f 6d  |t%=1 . n=max_com|
00000330  70 73 31 2b 31 0d 01 7c  12 57 24 3d 66 6f 72 6d  |ps1+1..|.W$=form|
00000340  73 24 28 73 2c 6e 29 0d  01 86 0d e7 20 57 24 3e  |s$(s,n)..... W$>|
00000350  22 22 20 8c 0d 01 90 0f  e3 20 63 3d 31 20 b8 20  |"" ...... c=1 . |
00000360  a9 57 24 0d 01 9a 0f e7  20 a4 74 79 70 65 3d 34  |.W$..... .type=4|
00000370  20 8c 0d 01 a4 08 63 2b  3d 31 0d 01 ae 29 e7 20  | .....c+=1...). |
00000380  a4 74 79 70 65 3c 3e 32  20 8c 20 57 24 3d c0 57  |.type<>2 . W$=.W|
00000390  24 2c 63 2d 32 29 2b c2  57 24 2c a9 57 24 2d 63  |$,c-2)+.W$,.W$-c|
000003a0  2b 31 29 0d 01 b8 05 cd  0d 01 c2 07 ed 20 63 0d  |+1).......... c.|
000003b0  01 cc 07 63 3d 31 0d 01  d6 0f e7 20 a4 74 79 70  |...c=1..... .typ|
000003c0  65 3d 32 20 8c 0d 01 e0  09 45 24 3d 22 22 0d 01  |e=2 .....E$=""..|
000003d0  ea 05 f5 0d 01 f4 08 63  2b 3d 31 0d 01 fe 0a 45  |.......c+=1....E|
000003e0  24 2b 3d 43 24 0d 02 08  25 fd 20 a4 74 79 70 65  |$+=C$...%. .type|
000003f0  3c 32 20 84 20 a4 74 79  70 65 3d 33 20 84 20 63  |<2 . .type=3 . c|
00000400  3e a9 57 24 20 84 20 65  72 72 0d 02 12 14 6d 25  |>.W$ . err....m%|
00000410  28 73 2c 6e 29 3d bb c0  45 24 2c 31 30 29 0d 02  |(s,n)=..E$,10)..|
00000420  1c 19 e7 20 6d 25 28 73  2c 6e 29 3e 39 39 39 20  |... m%(s,n)>999 |
00000430  8c 20 65 72 72 3d 34 0d  02 26 05 cd 0d 02 30 33  |. err=4..&....03|
00000440  6e 32 3d 30 3a 62 3d 30  3a 62 72 73 74 3d 30 3a  |n2=0:b=0:brst=0:|
00000450  72 3d 30 3a 6e 6f 6d 75  6c 74 3d 30 3a 63 72 79  |r=0:nomult=0:cry|
00000460  73 74 3d 30 3a 63 72 79  73 74 70 6f 73 3d 30 0d  |st=0:crystpos=0.|
00000470  02 3a 05 f5 0d 02 44 11  45 24 3d 22 22 3a 6c 61  |.:....D.E$="":la|
00000480  73 74 63 3d 30 0d 02 4e  10 6c 6f 6f 70 63 68 65  |stc=0..N.loopche|
00000490  63 6b 32 3d 30 0d 02 58  05 f5 0d 02 62 20 e7 20  |ck2=0..X....b . |
000004a0  a4 74 79 70 65 3d 33 20  8c 20 62 3d 31 3a 63 2b  |.type=3 . b=1:c+|
000004b0  3d 31 3a 62 72 73 74 3d  6e 32 0d 02 6c 1b e7 20  |=1:brst=n2..l.. |
000004c0  a4 74 79 70 65 3c 32 20  8c 20 45 24 2b 3d 43 24  |.type<2 . E$+=C$|
000004d0  3a 63 2b 3d 31 0d 02 76  1a e7 20 6c 6f 6f 70 63  |:c+=1..v.. loopc|
000004e0  68 65 63 6b 32 3d 63 20  8c 20 63 3d 32 35 36 0d  |heck2=c . c=256.|
000004f0  02 80 10 6c 6f 6f 70 63  68 65 63 6b 32 3d 63 0d  |...loopcheck2=c.|
00000500  02 8a 26 fd 20 a4 74 79  70 65 3d 2d 31 20 84 20  |..&. .type=-1 . |
00000510  a4 74 79 70 65 3e 30 20  84 20 63 3e a9 57 24 20  |.type>0 . c>.W$ |
00000520  84 20 65 72 72 0d 02 94  15 69 64 3d a4 73 79 6d  |. err....id=.sym|
00000530  5f 74 6f 5f 69 64 28 45  24 29 0d 02 9e 0d e7 20  |_to_id(E$)..... |
00000540  69 64 3d 2d 31 20 8c 0d  02 a8 37 e7 20 45 24 3e  |id=-1 ....7. E$>|
00000550  22 22 20 8c 20 65 72 72  3d 31 3a 65 72 72 24 3d  |"" . err=1:err$=|
00000560  45 24 3a 65 72 72 31 3d  73 3a 65 72 72 32 3d 6e  |E$:err1=s:err2=n|
00000570  3a 65 72 72 33 3d 6e 32  3a 45 24 3d 22 22 0d 02  |:err3=n2:E$=""..|
00000580  b2 05 cc 0d 02 bc 46 e7  20 6e 32 3e 6d 61 78 5f  |......F. n2>max_|
00000590  65 6c 65 6d 65 6e 74 73  20 8c 20 65 72 72 3d 35  |elements . err=5|
000005a0  3a 65 72 72 24 3d 45 24  3a 65 72 72 31 3d 73 20  |:err$=E$:err1=s |
000005b0  8b 20 45 24 3d 22 22 3a  72 3d 30 3a 65 25 28 73  |. E$="":r=0:e%(s|
000005c0  2c 6e 2c 6e 32 29 3d 69  64 0d 02 c6 05 cd 0d 02  |,n,n2)=id.......|
000005d0  d0 18 6c 6f 6f 70 63 68  65 63 6b 31 3d 30 3a 63  |..loopcheck1=0:c|
000005e0  68 65 63 6b 3d 30 0d 02  da 05 f5 0d 02 e4 1b e7  |heck=0..........|
000005f0  20 a4 74 79 70 65 3d 32  20 8c 20 45 24 2b 3d 43  | .type=2 . E$+=C|
00000600  24 3a 63 2b 3d 31 0d 02  ee 1c e7 20 62 3d 2d 31  |$:c+=1..... b=-1|
00000610  20 8c 20 62 3d 30 3a 72  3d 31 3a 63 68 65 63 6b  | . b=0:r=1:check|
00000620  3d 31 0d 02 f8 26 e7 20  a4 74 79 70 65 3d 34 20  |=1...&. .type=4 |
00000630  8c 20 62 3d 2d 31 3a f2  73 74 6f 70 64 6f 74 6d  |. b=-1:.stopdotm|
00000640  75 6c 74 3a 63 2b 3d 31  0d 03 02 1a e7 20 6c 6f  |ult:c+=1..... lo|
00000650  6f 70 63 68 65 63 6b 31  3d 63 20 8c 20 63 3d 32  |opcheck1=c . c=2|
00000660  35 36 0d 03 0c 10 6c 6f  6f 70 63 68 65 63 6b 31  |56....loopcheck1|
00000670  3d 63 0d 03 16 2c fd 20  a4 74 79 70 65 3d 31 20  |=c...,. .type=1 |
00000680  84 20 63 3e a9 57 24 20  84 20 a4 74 79 70 65 3e  |. c>.W$ . .type>|
00000690  32 20 84 20 62 3d 2d 31  20 84 20 65 72 72 0d 03  |2 . b=-1 . err..|
000006a0  20 10 f2 73 74 6f 70 64  6f 74 6d 75 6c 74 0d 03  | ..stopdotmult..|
000006b0  2a 15 e7 20 a4 74 79 70  65 3d 2d 31 20 8c 20 63  |*.. .type=-1 . c|
000006c0  2b 3d 31 0d 03 34 1d e7  20 bb c0 45 24 2c 31 30  |+=1..4.. ..E$,10|
000006d0  29 3d 30 20 80 20 72 3d  31 20 8c 20 63 2d 3d 31  |)=0 . r=1 . c-=1|
000006e0  0d 03 3e 18 e7 20 72 3d  31 20 80 20 bb c0 45 24  |..>.. r=1 . ..E$|
000006f0  2c 31 30 29 3e 30 20 8c  0d 03 48 07 72 3d 30 0d  |,10)>0 ...H.r=0.|
00000700  03 52 14 e3 20 63 32 3d  62 72 73 74 20 b8 20 6e  |.R.. c2=brst . n|
00000710  32 2d 31 0d 03 5c 18 6e  73 25 28 73 2c 6e 2c 63  |2-1..\.ns%(s,n,c|
00000720  32 29 3d bb c0 45 24 2c  31 30 29 0d 03 66 08 ed  |2)=..E$,10)..f..|
00000730  20 63 32 0d 03 70 1b 6e  73 25 28 73 2c 6e 2c 63  | c2..p.ns%(s,n,c|
00000740  32 2d 31 29 3d 2d bb c0  45 24 2c 31 30 29 0d 03  |2-1)=-..E$,10)..|
00000750  7a 09 6e 32 2d 3d 31 0d  03 84 05 cc 0d 03 8e 39  |z.n2-=1........9|
00000760  e7 20 6e 32 3c 6d 61 78  5f 65 6c 65 6d 65 6e 74  |. n2<max_element|
00000770  73 20 80 20 bb c0 45 24  2c 31 30 29 3e 30 20 8c  |s . ..E$,10)>0 .|
00000780  20 65 6d 25 28 73 2c 6e  2c 6e 32 29 3d bb c0 45  | em%(s,n,n2)=..E|
00000790  24 2c 31 30 29 0d 03 98  05 cd 0d 03 a2 09 6e 32  |$,10).........n2|
000007a0  2b 3d 31 0d 03 ac 29 e7  20 a4 74 79 70 65 3d 35  |+=1...). .type=5|
000007b0  20 8c 20 76 3d 63 3a f2  73 74 6f 70 64 6f 74 6d  | . v=c:.stopdotm|
000007c0  75 6c 74 3a f2 64 6f 74  6d 75 6c 74 0d 03 b6 15  |ult:.dotmult....|
000007d0  e7 20 63 3d 6c 61 73 74  63 20 8c 20 63 3d 32 35  |. c=lastc . c=25|
000007e0  36 0d 03 c0 0b 6c 61 73  74 63 3d 63 0d 03 ca 29  |6....lastc=c...)|
000007f0  fd 20 63 3e a9 57 24 20  84 20 65 72 72 20 84 20  |. c>.W$ . err . |
00000800  63 3c 30 20 84 20 6e 32  3e 6d 61 78 5f 65 6c 65  |c<0 . n2>max_ele|
00000810  6d 65 6e 74 73 0d 03 d4  1d e7 20 6e 32 3e 6d 61  |ments..... n2>ma|
00000820  78 5f 65 6c 65 6d 65 6e  74 73 20 8c 20 65 72 72  |x_elements . err|
00000830  3d 36 0d 03 de 10 f2 73  74 6f 70 64 6f 74 6d 75  |=6.....stopdotmu|
00000840  6c 74 0d 03 e8 05 cd 0d  03 f2 07 ed 20 6e 0d 03  |lt.......... n..|
00000850  fc 07 ed 20 73 0d 04 06  05 e1 0d 04 10 04 0d 04  |... s...........|
00000860  1a 12 dd 20 f2 73 74 6f  70 64 6f 74 6d 75 6c 74  |... .stopdotmult|
00000870  0d 04 24 3d e7 20 28 a4  74 79 70 65 3d 35 20 84  |..$=. (.type=5 .|
00000880  20 a4 74 79 70 65 3d 33  20 84 20 63 3e a9 57 24  | .type=3 . c>.W$|
00000890  20 84 20 6e 32 3e 6d 61  78 5f 65 6c 65 6d 65 6e  | . n2>max_elemen|
000008a0  74 73 29 20 80 20 63 72  79 73 74 20 8c 0d 04 2e  |ts) . cryst ....|
000008b0  18 e3 20 63 32 3d 63 72  79 73 74 70 6f 73 20 b8  |.. c2=crystpos .|
000008c0  20 6e 32 2d 31 0d 04 38  15 6e 73 25 28 73 2c 6e  | n2-1..8.ns%(s,n|
000008d0  2c 63 32 29 3d 63 72 79  73 74 0d 04 42 08 ed 20  |,c2)=cryst..B.. |
000008e0  63 32 0d 04 4c 16 6e 73  25 28 73 2c 6e 2c 6e 32  |c2..L.ns%(s,n,n2|
000008f0  29 3d 2d 63 72 79 73 74  0d 04 56 0b 63 72 79 73  |)=-cryst..V.crys|
00000900  74 3d 30 0d 04 60 0e 63  72 79 73 74 70 6f 73 3d  |t=0..`.crystpos=|
00000910  30 0d 04 6a 05 cd 0d 04  74 05 e1 0d 04 7e 04 0d  |0..j....t....~..|
00000920  04 88 0e dd 20 f2 64 6f  74 6d 75 6c 74 0d 04 92  |.... .dotmult...|
00000930  0f e7 20 a4 74 79 70 65  3d 35 20 8c 0d 04 9c 15  |.. .type=5 .....|
00000940  63 2b 3d 31 3a 78 3d a4  74 79 70 65 3a 63 2d 3d  |c+=1:x=.type:c-=|
00000950  31 0d 04 a6 0b e7 20 78  3d 32 20 8c 0d 04 b0 09  |1..... x=2 .....|
00000960  45 24 3d 22 22 0d 04 ba  08 63 2b 3d 31 0d 04 c4  |E$=""....c+=1...|
00000970  05 f5 0d 04 ce 0e 6e 75  6c 6c 3d a4 74 79 70 65  |......null=.type|
00000980  0d 04 d8 0a 45 24 2b 3d  43 24 0d 04 e2 08 63 2b  |....E$+=C$....c+|
00000990  3d 31 0d 04 ec 1c fd 20  a4 74 79 70 65 3c 3e 32  |=1..... .type<>2|
000009a0  20 84 20 63 3e a9 57 24  20 84 20 65 72 72 0d 04  | . c>.W$ . err..|
000009b0  f6 18 63 72 79 73 74 3d  bb c0 45 24 2c 31 30 29  |..cryst=..E$,10)|
000009c0  3a 45 24 3d 22 22 0d 05  00 0f 63 72 79 73 74 70  |:E$=""....crystp|
000009d0  6f 73 3d 6e 32 0d 05 0a  05 cc 0d 05 14 08 63 2b  |os=n2.........c+|
000009e0  3d 31 0d 05 1e 05 cd 0d  05 28 05 cd 0d 05 32 05  |=1.......(....2.|
000009f0  e1 0d 05 3c 04 0d 05 46  12 dd 20 f2 70 65 72 63  |...<...F.. .perc|
00000a00  65 6e 74 63 6f 6d 70 0d  05 50 0e e3 20 77 31 3d  |entcomp..P.. w1=|
00000a10  30 20 b8 20 31 0d 05 5a  19 6d 25 28 77 31 2c 6d  |0 . 1..Z.m%(w1,m|
00000a20  61 78 5f 63 6f 6d 70 73  31 2b 31 29 3d 30 0d 05  |ax_comps1+1)=0..|
00000a30  64 19 e3 20 77 32 3d 30  20 b8 20 6d 61 78 5f 65  |d.. w2=0 . max_e|
00000a40  6c 65 6d 65 6e 74 73 0d  05 6e 1c 65 25 28 77 31  |lements..n.e%(w1|
00000a50  2c 6d 61 78 5f 63 6f 6d  70 73 31 2b 31 2c 77 32  |,max_comps1+1,w2|
00000a60  29 3d 30 0d 05 78 1d 65  6d 25 28 77 31 2c 6d 61  |)=0..x.em%(w1,ma|
00000a70  78 5f 63 6f 6d 70 73 31  2b 31 2c 77 32 29 3d 30  |x_comps1+1,w2)=0|
00000a80  0d 05 82 1d 6e 73 25 28  77 31 2c 6d 61 78 5f 63  |....ns%(w1,max_c|
00000a90  6f 6d 70 73 31 2b 31 2c  77 32 29 3d 30 0d 05 8c  |omps1+1,w2)=0...|
00000aa0  08 ed 20 77 32 0d 05 96  08 ed 20 77 31 0d 05 a0  |.. w2..... w1...|
00000ab0  5d 66 6f 72 6d 73 24 28  30 2c 6d 61 78 5f 63 6f  |]forms$(0,max_co|
00000ac0  6d 70 73 31 2b 31 29 3d  a4 72 65 61 64 69 63 6f  |mps1+1)=.readico|
00000ad0  6e 28 70 65 72 63 65 6e  74 25 2c 32 29 3a 66 6f  |n(percent%,2):fo|
00000ae0  72 6d 73 24 28 31 2c 6d  61 78 5f 63 6f 6d 70 73  |rms$(1,max_comps|
00000af0  31 2b 31 29 3d a4 72 65  61 64 69 63 6f 6e 28 70  |1+1)=.readicon(p|
00000b00  65 72 63 65 6e 74 25 2c  33 29 0d 05 aa 3d e7 20  |ercent%,3)...=. |
00000b10  66 6f 72 6d 73 24 28 30  2c 6d 61 78 5f 63 6f 6d  |forms$(0,max_com|
00000b20  70 73 31 2b 31 29 3d 22  22 20 84 20 66 6f 72 6d  |ps1+1)="" . form|
00000b30  73 24 28 31 2c 6d 61 78  5f 63 6f 6d 70 73 31 2b  |s$(1,max_comps1+|
00000b40  31 29 3d 22 22 20 8c 0d  05 b4 70 6e 6f 67 6f 3d  |1)="" ....pnogo=|
00000b50  31 3a f2 75 73 65 72 6d  65 73 73 61 67 65 28 22  |1:.usermessage("|
00000b60  53 6f 72 72 79 20 49 20  6e 65 65 64 20 61 20 63  |Sorry I need a c|
00000b70  6f 6d 70 6f 6e 65 6e 74  22 2c 22 61 6e 64 20 61  |omponent","and a|
00000b80  6e 20 6f 72 69 67 69 6e  61 6c 20 63 6f 6d 70 6f  |n original compo|
00000b90  75 6e 64 22 2c 22 74 6f  20 63 61 6c 63 75 6c 61  |und","to calcula|
00000ba0  74 65 20 25 20 63 6f 6d  70 6f 73 74 69 6f 6e 22  |te % compostion"|
00000bb0  2c 22 22 2c 22 22 29 0d  05 be 0c cc 20 6e 6f 67  |,"","")..... nog|
00000bc0  6f 3d 30 0d 05 c8 10 f2  61 6e 61 6c 79 73 69 73  |o=0.....analysis|
00000bd0  28 31 29 0d 05 d2 0f f2  65 72 72 6f 72 63 68 65  |(1).....errorche|
00000be0  63 6b 0d 05 dc 05 cd 0d  05 e6 16 e7 20 65 72 72  |ck.......... err|
00000bf0  3d 30 20 80 20 6e 6f 67  6f 3d 30 20 8c 0d 05 f0  |=0 . nogo=0 ....|
00000c00  07 65 3d 30 0d 05 fa 07  ea 20 85 0d 06 04 5f ee  |.e=0..... ...._.|
00000c10  20 85 20 ea 20 f2 75 73  65 72 6d 65 73 73 61 67  | . . .usermessag|
00000c20  65 28 22 53 6f 72 72 79  20 49 20 63 61 6e 6e 6f  |e("Sorry I canno|
00000c30  74 20 63 61 6c 63 75 6c  61 74 65 20 74 68 65 22  |t calculate the"|
00000c40  2c 22 77 65 69 67 68 74  20 6f 66 20 74 68 65 20  |,"weight of the |
00000c50  63 6f 6d 70 6f 75 6e 64  73 22 2c f6 24 2c c3 28  |compounds",.$,.(|
00000c60  9e 29 2c 22 22 29 3a 65  3d 31 0d 06 0e 45 e7 20  |.),""):e=1...E. |
00000c70  65 3d 30 20 8c 20 54 3d  a0 a4 73 68 6f 77 63 61  |e=0 . T=..showca|
00000c80  6c 63 28 30 2c 6d 61 78  5f 63 6f 6d 70 73 31 2b  |lc(0,max_comps1+|
00000c90  31 29 3a 42 3d a0 a4 73  68 6f 77 63 61 6c 63 28  |1):B=..showcalc(|
00000ca0  31 2c 6d 61 78 5f 63 6f  6d 70 73 31 2b 31 29 0d  |1,max_comps1+1).|
00000cb0  06 18 07 f7 20 85 0d 06  22 0b e7 20 65 3d 30 20  |.... ...".. e=0 |
00000cc0  8c 0d 06 2c 4a e7 20 65  25 28 30 2c 6d 61 78 5f  |...,J. e%(0,max_|
00000cd0  63 6f 6d 70 73 31 2b 31  2c 31 29 3d 30 20 8c 20  |comps1+1,1)=0 . |
00000ce0  f2 62 61 6c 61 6e 63 65  28 31 29 3a 54 3d 54 2a  |.balance(1):T=T*|
00000cf0  6e 65 25 28 31 2c 65 25  28 30 2c 6d 61 78 5f 63  |ne%(1,e%(0,max_c|
00000d00  6f 6d 70 73 31 2b 31 2c  30 29 29 0d 06 36 39 f2  |omps1+1,0))..69.|
00000d10  69 63 6f 6e 74 65 78 74  28 70 65 72 63 65 6e 74  |icontext(percent|
00000d20  25 2c 36 2c c3 28 54 29  29 3a f2 69 63 6f 6e 74  |%,6,.(T)):.icont|
00000d30  65 78 74 28 70 65 72 63  65 6e 74 25 2c 37 2c c3  |ext(percent%,7,.|
00000d40  28 42 29 29 0d 06 40 35  f2 69 63 6f 6e 74 65 78  |(B))..@5.icontex|
00000d50  74 28 70 65 72 63 65 6e  74 25 2c 39 2c c3 28 a4  |t(percent%,9,.(.|
00000d60  72 6f 75 6e 64 28 28 31  30 30 2a 54 2f 42 29 2c  |round((100*T/B),|
00000d70  64 70 5f 6f 70 74 29 29  29 0d 06 4a 16 f2 6f 70  |dp_opt)))..J..op|
00000d80  65 6e 77 69 6e 28 70 65  72 63 65 6e 74 25 29 0d  |enwin(percent%).|
00000d90  06 54 05 cd 0d 06 5e 05  cd 0d 06 68 05 e1 0d 06  |.T....^....h....|
00000da0  72 04 0d 06 7c 17 dd 20  a4 72 6f 75 6e 64 28 6e  |r...|.. .round(n|
00000db0  75 6d 2c 64 65 70 73 25  29 0d 06 86 18 58 3d bb  |um,deps%)....X=.|
00000dc0  28 22 31 22 2b c4 64 65  70 73 25 2c 22 30 22 29  |("1"+.deps%,"0")|
00000dd0  29 0d 06 90 16 6e 75 6d  3d a8 28 28 6e 75 6d 2a  |)....num=.((num*|
00000de0  58 29 2b 30 2e 35 29 0d  06 9a 0a 3d 6e 75 6d 2f  |X)+0.5)....=num/|
00000df0  58 0d 06 a4 04 0d 06 ae  11 dd 20 f2 65 72 72 6f  |X......... .erro|
00000e00  72 63 68 65 63 6b 0d 06  b8 0b e7 20 65 72 72 20  |rcheck..... err |
00000e10  8c 0d 06 c2 35 e7 20 65  72 72 31 3d 30 20 8c 20  |....5. err1=0 . |
00000e20  65 72 72 32 24 3d 22 52  65 61 63 74 61 6e 74 73  |err2$="Reactants|
00000e30  20 22 20 8b 20 65 72 72  32 24 3d 22 50 72 6f 64  | " . err2$="Prod|
00000e40  75 63 74 73 20 22 0d 06  cc 9c e7 20 65 72 72 3d  |ucts "..... err=|
00000e50  31 20 8c 20 f2 75 73 65  72 6d 65 73 73 61 67 65  |1 . .usermessage|
00000e60  28 22 53 6f 72 72 79 20  49 20 63 61 6e 27 74 20  |("Sorry I can't |
00000e70  75 6e 64 65 72 73 74 61  6e 64 20 65 6c 65 6d 65  |understand eleme|
00000e80  6e 74 20 22 2b 65 72 72  24 2c 22 28 20 22 2b 65  |nt "+err$,"( "+e|
00000e90  72 72 32 24 2b 22 73 65  63 74 69 6f 6e 20 29 22  |rr2$+"section )"|
00000ea0  2c 22 28 20 43 6f 6d 70  6f 75 6e 64 20 6e 6f 2e  |,"( Compound no.|
00000eb0  22 2b c3 28 65 72 72 32  2b 31 29 2b 22 29 22 2c  |"+.(err2+1)+")",|
00000ec0  22 28 20 45 6c 65 6d 65  6e 74 20 6e 6f 2e 22 2b  |"( Element no."+|
00000ed0  c3 28 65 72 72 33 2b 31  29 2b 22 20 29 22 2c 22  |.(err3+1)+" )","|
00000ee0  22 29 0d 06 d6 64 e7 20  65 72 72 3d 32 20 8c 20  |")...d. err=2 . |
00000ef0  f2 75 73 65 72 6d 65 73  73 61 67 65 28 22 53 6f  |.usermessage("So|
00000f00  72 72 79 20 74 68 65 72  65 20 61 72 65 20 74 77  |rry there are tw|
00000f10  6f 20 6d 61 6e 79 20 22  2c 65 72 72 32 24 2c 22  |o many ",err2$,"|
00000f20  28 4d 61 78 69 6d 75 6d  20 69 73 20 22 2b c3 28  |(Maximum is "+.(|
00000f30  6d 61 78 5f 63 6f 6d 70  73 31 29 2b 22 29 22 2c  |max_comps1)+")",|
00000f40  22 22 2c 22 22 29 0d 06  e0 7d e7 20 65 72 72 3d  |"","")...}. err=|
00000f50  33 20 8c 20 f2 75 73 65  72 6d 65 73 73 61 67 65  |3 . .usermessage|
00000f60  28 22 53 6f 72 72 79 20  74 68 69 73 20 66 6f 72  |("Sorry this for|
00000f70  6d 75 6c 61 20 63 61 6e  6e 6f 74 20 62 65 20 62  |mula cannot be b|
00000f80  61 6c 61 6e 63 65 64 22  2c 22 62 65 63 61 75 73  |alanced","becaus|
00000f90  65 20 74 68 65 20 65 6c  65 6d 65 6e 74 73 22 2c  |e the elements",|
00000fa0  22 6f 6e 20 65 69 74 68  65 72 20 73 69 64 65 20  |"on either side |
00000fb0  64 6f 20 6e 6f 74 22 2c  22 6d 61 74 63 68 22 2c  |do not","match",|
00000fc0  22 22 29 0d 06 ea 54 e7  20 65 72 72 3d 34 20 8c  |"")...T. err=4 .|
00000fd0  20 f2 75 73 65 72 6d 65  73 73 61 67 65 28 22 54  | .usermessage("T|
00000fe0  68 65 20 63 6f 6d 70 6f  75 6e 64 20 6d 75 6c 74  |he compound mult|
00000ff0  69 70 69 65 72 20 69 73  20 67 72 65 61 74 65 72  |ipier is greater|
00001000  20 74 68 61 6e 20 39 39  39 22 2c 22 22 2c 22 22  | than 999","",""|
00001010  2c 22 22 2c 22 22 29 0d  06 f4 9d e7 20 65 72 72  |,"","")..... err|
00001020  3d 35 20 8c 20 f2 75 73  65 72 6d 65 73 73 61 67  |=5 . .usermessag|
00001030  65 28 22 53 6f 72 72 79  20 6f 6e 6c 79 20 22 2b  |e("Sorry only "+|
00001040  c3 28 6d 61 78 5f 65 6c  65 6d 65 6e 74 73 2b 31  |.(max_elements+1|
00001050  29 2b 22 20 65 6c 65 6d  65 6e 74 73 20 61 72 65  |)+" elements are|
00001060  20 61 6c 6c 6f 77 65 64  22 2c 22 70 65 72 20 63  | allowed","per c|
00001070  6f 6d 70 6f 75 6e 64 22  2c 22 2d 70 6c 65 61 73  |ompound","-pleas|
00001080  65 20 61 6c 74 65 72 20  74 68 65 20 73 74 61 72  |e alter the star|
00001090  74 20 75 70 20 73 65 74  74 69 6e 67 73 22 2c 22  |t up settings","|
000010a0  28 69 63 6f 6e 20 62 61  72 20 6d 65 6e 75 29 22  |(icon bar menu)"|
000010b0  2c 22 22 29 0d 06 fe 63  e7 20 65 72 72 3d 36 20  |,"")...c. err=6 |
000010c0  8c 20 f2 75 73 65 72 6d  65 73 73 61 67 65 28 22  |. .usermessage("|
000010d0  53 6f 72 72 79 20 74 68  69 73 20 70 72 6f 67 72  |Sorry this progr|
000010e0  61 6d 20 63 61 6e 6e 6f  74 22 2c 22 75 6e 64 65  |am cannot","unde|
000010f0  72 73 74 61 6e 64 20 77  68 61 74 20 79 6f 75 20  |rstand what you |
00001100  68 61 76 65 20 65 6e 74  65 72 65 64 22 2c 22 22  |have entered",""|
00001110  2c 22 22 2c 22 22 29 0d  07 08 05 cd 0d 07 12 05  |,"","").........|
00001120  e1 0d 07 1c 04 0d 07 26  0b dd 20 a4 74 79 70 65  |.......&.. .type|
00001130  0d 07 30 0f 43 24 3d c1  57 24 2c 63 2c 31 29 0d  |..0.C$=.W$,c,1).|
00001140  07 3a 11 74 74 3d 2d 31  3a 41 3d 97 28 43 24 29  |.:.tt=-1:A=.(C$)|
00001150  0d 07 44 1b e7 20 41 3e  3d 39 37 20 80 20 41 3c  |..D.. A>=97 . A<|
00001160  3d 31 32 32 20 8c 20 74  74 3d 30 0d 07 4e 1a e7  |=122 . tt=0..N..|
00001170  20 41 3e 3d 36 35 20 80  20 41 3c 3d 39 30 20 8c  | A>=65 . A<=90 .|
00001180  20 74 74 3d 31 0d 07 58  1a e7 20 41 3e 3d 34 38  | tt=1..X.. A>=48|
00001190  20 80 20 41 3c 3d 35 37  20 8c 20 74 74 3d 32 0d  | . A<=57 . tt=2.|
000011a0  07 62 11 e7 20 41 3d 34  30 20 8c 20 74 74 3d 33  |.b.. A=40 . tt=3|
000011b0  0d 07 6c 11 e7 20 41 3d  34 31 20 8c 20 74 74 3d  |..l.. A=41 . tt=|
000011c0  34 0d 07 76 11 e7 20 41  3d 34 36 20 8c 20 74 74  |4..v.. A=46 . tt|
000011d0  3d 35 0d 07 80 07 3d 74  74 0d 07 8a 04 0d 07 94  |=5....=tt.......|
000011e0  15 dd 20 a4 73 79 6d 5f  74 6f 5f 69 64 28 63 68  |.. .sym_to_id(ch|
000011f0  24 29 0d 07 9e 09 66 62  3d 2d 31 0d 07 a8 10 e3  |$)....fb=-1.....|
00001200  20 66 64 3d 30 20 b8 20  31 30 37 0d 07 b2 2a e7  | fd=0 . 107...*.|
00001210  20 63 68 24 3d 73 79 6d  24 28 66 64 29 20 80 20  | ch$=sym$(fd) . |
00001220  63 68 24 3e 22 22 20 8c  20 66 62 3d 66 64 3a 66  |ch$>"" . fb=fd:f|
00001230  64 3d 31 30 37 0d 07 bc  08 ed 20 66 64 0d 07 c6  |d=107..... fd...|
00001240  14 e7 20 63 68 24 3d 22  22 20 8c 20 66 62 3d 2d  |.. ch$="" . fb=-|
00001250  31 0d 07 d0 07 3d 66 62  0d 07 da 04 0d 07 e4 40  |1....=fb.......@|
00001260  dd 20 f2 75 73 65 72 6d  65 73 73 61 67 65 28 6d  |. .usermessage(m|
00001270  65 73 73 24 28 30 29 2c  6d 65 73 73 24 28 31 29  |ess$(0),mess$(1)|
00001280  2c 6d 65 73 73 24 28 32  29 2c 6d 65 73 73 24 28  |,mess$(2),mess$(|
00001290  33 29 2c 6d 65 73 73 24  28 34 29 29 0d 07 ee 49  |3),mess$(4))...I|
000012a0  e3 20 63 32 3d 31 20 b8  20 35 3a f2 69 63 6f 6e  |. c2=1 . 5:.icon|
000012b0  74 65 78 74 28 6d 65 73  73 61 67 65 25 2c 63 32  |text(message%,c2|
000012c0  2c 6d 65 73 73 24 28 63  32 2d 31 29 29 3a ed 20  |,mess$(c2-1)):. |
000012d0  63 32 3a f2 6f 70 65 6e  77 69 6e 28 6d 65 73 73  |c2:.openwin(mess|
000012e0  61 67 65 25 29 0d 07 f8  05 e1 0d 08 02 04 0d 08  |age%)...........|
000012f0  0c 14 dd 20 f2 63 6f 6d  70 6f 75 6e 64 69 63 6f  |... .compoundico|
00001300  6e 73 0d 08 16 2a 68 65  69 67 68 74 3d 2d 38 30  |ns...*height=-80|
00001310  3a 70 6f 73 3d 30 3a 70  6f 73 32 3d 30 3a 70 6f  |:pos=0:pos2=0:po|
00001320  73 33 3d 30 3a 72 61 6d  24 3d 22 22 0d 08 20 0d  |s3=0:ram$="".. .|
00001330  e3 20 73 3d 30 20 b8 20  31 0d 08 2a 23 e7 20 73  |. s=0 . 1..*#. s|
00001340  3d 30 20 8c 20 76 25 3d  76 61 6c 69 64 32 25 20  |=0 . v%=valid2% |
00001350  8b 20 76 25 3d 76 61 6c  69 64 33 25 0d 08 34 2c  |. v%=valid3%..4,|
00001360  e7 20 c2 72 61 6d 24 2c  33 29 3d 22 20 2b 20 22  |. .ram$,3)=" + "|
00001370  20 8c 20 72 61 6d 24 3d  c0 72 61 6d 24 2c a9 28  | . ram$=.ram$,.(|
00001380  72 61 6d 24 29 2d 33 29  0d 08 3e 1c e7 20 73 3d  |ram$)-3)..>.. s=|
00001390  31 20 8c 20 72 61 6d 24  2b 3d 22 20 3d 3d 3d 3d  |1 . ram$+=" ====|
000013a0  3d 3e 20 22 0d 08 48 16  e3 20 6e 3d 30 20 b8 20  |=> "..H.. n=0 . |
000013b0  6d 61 78 5f 63 6f 6d 70  73 31 0d 08 52 16 e7 20  |max_comps1..R.. |
000013c0  66 6f 72 6d 73 24 28 73  2c 6e 29 3e 22 22 20 8c  |forms$(s,n)>"" .|
000013d0  0d 08 5c 18 63 61 6c 63  24 3d a4 73 68 6f 77 63  |..\.calc$=.showc|
000013e0  61 6c 63 28 73 2c 6e 29  0d 08 66 41 46 47 31 3d  |alc(s,n)..fAFG1=|
000013f0  a4 69 63 6f 6e 5f 66 6c  61 67 73 28 31 2c 30 2c  |.icon_flags(1,0,|
00001400  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 30 2c  |1,1,1,1,1,1,1,0,|
00001410  30 2c 30 2c 33 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,3,0,0,0,0,0,|
00001420  30 2c 66 6f 6e 74 31 25  29 0d 08 70 41 46 47 32  |0,font1%)..pAFG2|
00001430  3d a4 69 63 6f 6e 5f 66  6c 61 67 73 28 31 2c 30  |=.icon_flags(1,0|
00001440  2c 31 2c 30 2c 31 2c 31  2c 31 2c 31 2c 31 2c 30  |,1,0,1,1,1,1,1,0|
00001450  2c 30 2c 30 2c 33 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,3,0,0,0,0,0|
00001460  2c 30 2c 66 6f 6e 74 31  25 29 0d 08 7a 1e 24 28  |,0,font1%)..z.$(|
00001470  65 71 74 65 78 74 25 2b  70 6f 73 29 3d 66 6f 72  |eqtext%+pos)=for|
00001480  6d 73 24 28 73 2c 6e 29  0d 08 84 1b 24 28 63 61  |ms$(s,n)....$(ca|
00001490  6c 63 74 65 78 74 25 2b  70 6f 73 32 29 3d 63 61  |lctext%+pos2)=ca|
000014a0  6c 63 24 0d 08 8e 0a 6e  6f 67 6f 3d 30 0d 08 98  |lc$....nogo=0...|
000014b0  07 ea 20 85 0d 08 a2 67  ee 20 85 20 ea 20 f2 75  |.. ....g. . . .u|
000014c0  73 65 72 6d 65 73 73 61  67 65 28 22 53 6f 72 72  |sermessage("Sorr|
000014d0  79 20 49 20 63 61 6e 6e  6f 74 20 63 61 6c 63 75  |y I cannot calcu|
000014e0  6c 61 74 65 20 74 68 65  22 2c 22 77 65 69 67 68  |late the","weigh|
000014f0  74 20 6f 66 20 22 2b 66  6f 72 6d 73 24 28 73 2c  |t of "+forms$(s,|
00001500  6e 29 2c 22 22 2c 22 22  2c 22 22 29 3a 6e 6f 67  |n),"","",""):nog|
00001510  6f 3d 31 3a 6e 6f 67 6f  32 3d 31 0d 08 ac 43 e7  |o=1:nogo2=1...C.|
00001520  20 6e 6f 67 6f 3d 30 20  8c 20 74 6f 74 24 3d c3  | nogo=0 . tot$=.|
00001530  28 a0 28 63 61 6c 63 24  29 29 2b 22 20 67 22 3a  |(.(calc$))+" g":|
00001540  72 61 6d 24 3d 72 61 6d  24 2b 74 6f 74 24 2b 22  |ram$=ram$+tot$+"|
00001550  20 2b 20 22 20 8b 20 74  6f 74 24 3d 22 22 0d 08  | + " . tot$=""..|
00001560  b6 07 f7 20 85 0d 08 c0  17 24 28 74 6f 74 61 6c  |... .....$(total|
00001570  25 2b 70 6f 73 33 29 3d  74 6f 74 24 0d 08 ca 53  |%+pos3)=tot$...S|
00001580  6e 75 6c 6c 3d a4 63 72  65 61 74 65 5f 69 63 6f  |null=.create_ico|
00001590  6e 28 77 65 69 67 68 74  73 25 2c 32 30 2c 68 65  |n(weights%,20,he|
000015a0  69 67 68 74 2c 33 30 30  2c 35 30 2c 46 47 31 2c  |ight,300,50,FG1,|
000015b0  22 22 2c 65 71 74 65 78  74 25 2b 70 6f 73 2c 76  |"",eqtext%+pos,v|
000015c0  25 2c a9 66 6f 72 6d 73  24 28 73 2c 6e 29 29 0d  |%,.forms$(s,n)).|
000015d0  08 d4 51 6e 75 6c 6c 3d  a4 63 72 65 61 74 65 5f  |..Qnull=.create_|
000015e0  69 63 6f 6e 28 77 65 69  67 68 74 73 25 2c 33 35  |icon(weights%,35|
000015f0  30 2c 68 65 69 67 68 74  2c 37 30 30 2c 35 30 2c  |0,height,700,50,|
00001600  46 47 32 2c 22 22 2c 63  61 6c 63 74 65 78 74 25  |FG2,"",calctext%|
00001610  2b 70 6f 73 32 2c 76 25  2c a9 63 61 6c 63 24 29  |+pos2,v%,.calc$)|
00001620  0d 08 de 4e 6e 75 6c 6c  3d a4 63 72 65 61 74 65  |...Nnull=.create|
00001630  5f 69 63 6f 6e 28 77 65  69 67 68 74 73 25 2c 31  |_icon(weights%,1|
00001640  31 30 30 2c 68 65 69 67  68 74 2c 31 35 30 2c 35  |100,height,150,5|
00001650  30 2c 46 47 32 2c 22 22  2c 74 6f 74 61 6c 25 2b  |0,FG2,"",total%+|
00001660  70 6f 73 33 2c 76 25 2c  a9 74 6f 74 24 29 0d 08  |pos3,v%,.tot$)..|
00001670  e8 3f 68 65 69 67 68 74  2d 3d 38 30 3a 70 6f 73  |.?height-=80:pos|
00001680  2b 3d a9 66 6f 72 6d 73  24 28 73 2c 6e 29 2b 31  |+=.forms$(s,n)+1|
00001690  3a 70 6f 73 32 2b 3d a9  63 61 6c 63 24 2b 31 3a  |:pos2+=.calc$+1:|
000016a0  70 6f 73 33 2b 3d a9 74  6f 74 24 2b 31 0d 08 f2  |pos3+=.tot$+1...|
000016b0  08 69 2b 3d 31 0d 08 fc  05 cd 0d 09 06 07 ed 20  |.i+=1.......... |
000016c0  6e 0d 09 10 20 e7 20 72  61 6d 24 3d 22 22 20 80  |n... . ram$="" .|
000016d0  20 73 3d 30 20 8c 20 72  61 6d 24 3d 22 30 20 67  | s=0 . ram$="0 g|
000016e0  22 0d 09 1a 07 ed 20 73  0d 09 24 2c e7 20 c2 72  |"..... s..$,. .r|
000016f0  61 6d 24 2c 33 29 3d 22  20 2b 20 22 20 8c 20 72  |am$,3)=" + " . r|
00001700  61 6d 24 3d c0 72 61 6d  24 2c a9 28 72 61 6d 24  |am$=.ram$,.(ram$|
00001710  29 2d 33 29 0d 09 2e 25  e7 20 c2 72 61 6d 24 2c  |)-3)...%. .ram$,|
00001720  32 29 3d 22 3e 20 22 20  8c 20 72 61 6d 24 3d 72  |2)="> " . ram$=r|
00001730  61 6d 24 2b 22 20 30 67  22 0d 09 38 1a f2 69 63  |am$+" 0g"..8..ic|
00001740  6f 6e 74 65 78 74 28 72  61 6d 25 2c 30 2c 72 61  |ontext(ram%,0,ra|
00001750  6d 24 29 0d 09 42 05 e1  0d 09 4c 04 0d 09 56 16  |m$)..B....L...V.|
00001760  dd 20 a4 73 68 6f 77 63  61 6c 63 28 73 31 2c 6e  |. .showcalc(s1,n|
00001770  31 29 0d 09 60 1c 6f 75  74 24 3d 22 22 3a 63 6d  |1)..`.out$="":cm|
00001780  3d 30 3a 62 73 3d 30 3a  6d 75 6c 74 3d 30 0d 09  |=0:bs=0:mult=0..|
00001790  6a 18 e3 20 63 3d 30 20  b8 20 6d 61 78 5f 65 6c  |j.. c=0 . max_el|
000017a0  65 6d 65 6e 74 73 0d 09  74 11 65 3d 65 25 28 73  |ements..t.e=e%(s|
000017b0  31 2c 6e 31 2c 63 29 0d  09 7e 09 e7 20 65 20 8c  |1,n1,c)..~.. e .|
000017c0  0d 09 88 20 e7 20 63 3d  30 20 8c 20 70 6c 75 73  |... . c=0 . plus|
000017d0  24 3d 22 22 20 8b 20 70  6c 75 73 24 3d 22 2b 22  |$="" . plus$="+"|
000017e0  0d 09 92 34 e7 20 63 3d  30 20 80 20 6d 25 28 73  |...4. c=0 . m%(s|
000017f0  31 2c 6e 31 29 20 8c 20  6f 75 74 24 2b 3d c3 28  |1,n1) . out$+=.(|
00001800  6d 25 28 73 31 2c 6e 31  29 29 2b 22 2a 28 22 3a  |m%(s1,n1))+"*(":|
00001810  63 6d 3d 31 0d 09 9c 1b  e7 20 6e 73 25 28 73 31  |cm=1..... ns%(s1|
00001820  2c 6e 31 2c 63 29 20 80  20 62 73 3d 30 20 8c 0d  |,n1,c) . bs=0 ..|
00001830  09 a6 21 6f 75 74 24 2b  3d 70 6c 75 73 24 2b 22  |..!out$+=plus$+"|
00001840  28 22 3a 62 73 3d 31 3a  70 6c 75 73 24 3d 22 22  |(":bs=1:plus$=""|
00001850  0d 09 b0 3d e7 20 6e 73  25 28 73 31 2c 6e 31 2c  |...=. ns%(s1,n1,|
00001860  63 29 3c 30 20 8c 20 6d  75 6c 74 3d 2d 6e 73 25  |c)<0 . mult=-ns%|
00001870  28 73 31 2c 6e 31 2c 63  29 20 8b 20 6d 75 6c 74  |(s1,n1,c) . mult|
00001880  3d 6e 73 25 28 73 31 2c  6e 31 2c 63 29 0d 09 ba  |=ns%(s1,n1,c)...|
00001890  05 cd 0d 09 c4 70 e7 20  65 6d 25 28 73 31 2c 6e  |.....p. em%(s1,n|
000018a0  31 2c 63 29 20 8c 20 6f  75 74 24 2b 3d 70 6c 75  |1,c) . out$+=plu|
000018b0  73 24 2b 22 28 22 2b c0  c3 28 61 74 6d 73 25 28  |s$+"("+..(atms%(|
000018c0  65 29 2f 31 30 29 2c 34  29 2b 22 2a 22 2b c3 28  |e)/10),4)+"*"+.(|
000018d0  65 6d 25 28 73 31 2c 6e  31 2c 63 29 29 2b 22 29  |em%(s1,n1,c))+")|
000018e0  22 20 8b 20 6f 75 74 24  2b 3d 70 6c 75 73 24 2b  |" . out$+=plus$+|
000018f0  c0 c3 28 61 74 6d 73 25  28 65 29 2f 31 30 29 2c  |..(atms%(e)/10),|
00001900  34 29 0d 09 ce 05 cd 0d  09 d8 30 e7 20 62 73 3d  |4)........0. bs=|
00001910  31 20 80 20 28 6e 73 25  28 73 31 2c 6e 31 2c 63  |1 . (ns%(s1,n1,c|
00001920  29 3c 30 20 84 20 6e 73  25 28 73 31 2c 6e 31 2c  |)<0 . ns%(s1,n1,|
00001930  63 29 3d 30 29 20 8c 0d  09 e2 2d e7 20 6d 75 6c  |c)=0) ....-. mul|
00001940  74 3e 30 20 8c 20 6f 75  74 24 2b 3d 22 29 2a 22  |t>0 . out$+=")*"|
00001950  2b c3 28 6d 75 6c 74 29  20 8b 20 6f 75 74 24 2b  |+.(mult) . out$+|
00001960  3d 22 29 22 0d 09 ec 0f  62 73 3d 30 3a 6d 75 6c  |=")"....bs=0:mul|
00001970  74 3d 30 0d 09 f6 05 cd  0d 0a 00 07 ed 20 63 0d  |t=0.......... c.|
00001980  0a 0a 16 e7 20 63 6d 3d  31 20 8c 20 6f 75 74 24  |.... cm=1 . out$|
00001990  2b 3d 22 29 22 0d 0a 14  09 3d 6f 75 74 24 0d 0a  |+=")"....=out$..|
000019a0  1e 04 0d 0a 28 15 dd 20  f2 62 61 6c 61 6e 63 65  |....(.. .balance|
000019b0  28 77 68 61 74 25 29 0d  0a 32 2c e3 20 73 3d 30  |(what%)..2,. s=0|
000019c0  20 b8 20 31 3a e3 20 6e  3d 30 20 b8 20 31 31 30  | . 1:. n=0 . 110|
000019d0  3a 6e 65 25 28 73 2c 6e  29 3d 30 3a ed 20 6e 3a  |:ne%(s,n)=0:. n:|
000019e0  ed 20 73 0d 0a 3c 0f 63  6e 31 3d 30 3a 63 6e 32  |. s..<.cn1=0:cn2|
000019f0  3d 30 0d 0a 46 0d e3 20  73 3d 30 20 b8 20 31 0d  |=0..F.. s=0 . 1.|
00001a00  0a 50 0a 74 6f 74 25 3d  30 0d 0a 5a 16 e3 20 6e  |.P.tot%=0..Z.. n|
00001a10  3d 30 20 b8 20 6d 61 78  5f 63 6f 6d 70 73 31 0d  |=0 . max_comps1.|
00001a20  0a 64 1e e7 20 77 68 61  74 25 3d 31 20 8c 20 6e  |.d.. what%=1 . n|
00001a30  3d 6d 61 78 5f 63 6f 6d  70 73 31 2b 31 0d 0a 6e  |=max_comps1+1..n|
00001a40  16 e7 20 66 6f 72 6d 73  24 28 73 2c 6e 29 3e 22  |.. forms$(s,n)>"|
00001a50  22 20 8c 0d 0a 78 19 e3  20 6e 32 3d 30 20 b8 20  |" ...x.. n2=0 . |
00001a60  6d 61 78 5f 65 6c 65 6d  65 6e 74 73 0d 0a 82 10  |max_elements....|
00001a70  65 3d 65 25 28 73 2c 6e  2c 6e 32 29 0d 0a 8c 12  |e=e%(s,n,n2)....|
00001a80  e7 20 65 25 28 73 2c 6e  2c 6e 32 29 20 8c 0d 0a  |. e%(s,n,n2) ...|
00001a90  96 2b e7 20 65 6d 25 28  73 2c 6e 2c 6e 32 29 3e  |.+. em%(s,n,n2)>|
00001aa0  30 20 8c 20 6e 65 3d 65  6d 25 28 73 2c 6e 2c 6e  |0 . ne=em%(s,n,n|
00001ab0  32 29 20 8b 20 6e 65 3d  31 0d 0a a0 14 6d 75 6c  |2) . ne=1....mul|
00001ac0  74 3d 6e 73 25 28 73 2c  6e 2c 6e 32 29 0d 0a aa  |t=ns%(s,n,n2)...|
00001ad0  19 e7 20 6d 75 6c 74 3c  30 20 8c 20 6d 75 6c 74  |.. mult<0 . mult|
00001ae0  3d 2d 6d 75 6c 74 0d 0a  b4 17 e7 20 6d 75 6c 74  |=-mult..... mult|
00001af0  20 8c 20 6e 65 3d 6e 65  2a 6d 75 6c 74 0d 0a be  | . ne=ne*mult...|
00001b00  1f e7 20 6d 25 28 73 2c  6e 29 3e 30 20 8c 20 6e  |.. m%(s,n)>0 . n|
00001b10  65 3d 6e 65 2a 6d 25 28  73 2c 6e 29 0d 0a c8 13  |e=ne*m%(s,n)....|
00001b20  e7 20 65 3e 30 20 80 20  65 3c 31 31 30 20 8c 0d  |. e>0 . e<110 ..|
00001b30  0a d2 10 6e 65 25 28 73  2c 65 29 2b 3d 6e 65 0d  |...ne%(s,e)+=ne.|
00001b40  0a dc 0c 74 6f 74 25 2b  3d 6e 65 0d 0a e6 05 cd  |...tot%+=ne.....|
00001b50  0d 0a f0 05 cd 0d 0a fa  08 ed 20 6e 32 0d 0b 04  |.......... n2...|
00001b60  05 cd 0d 0b 0e 07 ed 20  6e 0d 0b 18 1f e7 20 73  |....... n..... s|
00001b70  3d 30 20 8c 20 63 6e 31  3d 74 6f 74 25 20 8b 20  |=0 . cn1=tot% . |
00001b80  63 6e 32 3d 74 6f 74 25  0d 0b 22 07 ed 20 73 0d  |cn2=tot%..".. s.|
00001b90  0b 2c 05 e1 0d 0b 36 04  0d 0b 40 1c dd 20 f2 62  |.,....6...@.. .b|
00001ba0  61 6c 61 6e 63 65 5f 63  68 65 63 6b 65 6c 65 6d  |alance_checkelem|
00001bb0  65 6e 74 73 0d 0b 4a 0f  e3 20 65 3d 30 20 b8 20  |ents..J.. e=0 . |
00001bc0  31 31 30 0d 0b 54 3f e7  20 28 6e 65 25 28 30 2c  |110..T?. (ne%(0,|
00001bd0  65 29 20 80 20 6e 65 25  28 31 2c 65 29 3d 30 29  |e) . ne%(1,e)=0)|
00001be0  20 84 20 28 6e 65 25 28  31 2c 65 29 20 80 20 6e  | . (ne%(1,e) . n|
00001bf0  65 25 28 30 2c 65 29 3d  30 29 20 8c 20 65 72 72  |e%(0,e)=0) . err|
00001c00  3d 33 0d 0b 5e 07 ed 20  65 0d 0b 68 0f f2 65 72  |=3..^.. e..h..er|
00001c10  72 6f 72 63 68 65 63 6b  0d 0b 72 05 e1 0d 0b 7c  |rorcheck..r....||
00001c20  04 0d 0b 86 1c dd 20 f2  73 68 6f 77 63 6f 6d 70  |...... .showcomp|
00001c30  6f 6e 65 6e 74 73 28 77  68 61 74 25 29 0d 0b 90  |onents(what%)...|
00001c40  1f 69 6e 24 3d 22 22 3a  6f 75 74 24 3d 22 22 3a  |.in$="":out$="":|
00001c50  69 6e 77 3d 30 3a 6f 75  74 77 3d 30 0d 0b 9a 0f  |inw=0:outw=0....|
00001c60  e3 20 6e 3d 30 20 b8 20  31 31 30 0d 0b a4 50 e7  |. n=0 . 110...P.|
00001c70  20 6e 65 25 28 30 2c 6e  29 20 8c 20 69 6e 24 2b  | ne%(0,n) . in$+|
00001c80  3d c3 28 6e 65 25 28 30  2c 6e 29 29 2b 22 20 78  |=.(ne%(0,n))+" x|
00001c90  20 22 2b 73 79 6d 24 28  6e 29 2b 22 2c 20 22 3a  | "+sym$(n)+", ":|
00001ca0  69 6e 77 2b 3d 28 61 74  6d 73 25 28 6e 29 2f 31  |inw+=(atms%(n)/1|
00001cb0  30 29 2a 6e 65 25 28 30  2c 6e 29 0d 0b ae 52 e7  |0)*ne%(0,n)...R.|
00001cc0  20 6e 65 25 28 31 2c 6e  29 20 8c 20 6f 75 74 24  | ne%(1,n) . out$|
00001cd0  2b 3d c3 28 6e 65 25 28  31 2c 6e 29 29 2b 22 20  |+=.(ne%(1,n))+" |
00001ce0  78 20 22 2b 73 79 6d 24  28 6e 29 2b 22 2c 20 22  |x "+sym$(n)+", "|
00001cf0  3a 6f 75 74 77 2b 3d 28  61 74 6d 73 25 28 6e 29  |:outw+=(atms%(n)|
00001d00  2f 31 30 29 2a 6e 65 25  28 31 2c 6e 29 0d 0b b8  |/10)*ne%(1,n)...|
00001d10  07 ed 20 6e 0d 0b c2 33  69 6e 24 2b 3d 22 28 22  |.. n...3in$+="("|
00001d20  2b c3 28 63 6e 31 29 2b  22 20 65 6c 65 6d 65 6e  |+.(cn1)+" elemen|
00001d30  74 73 20 29 22 2b 22 20  20 3d 22 2b c3 28 69 6e  |ts )"+"  ="+.(in|
00001d40  77 29 2b 22 20 67 22 0d  0b cc 35 6f 75 74 24 2b  |w)+" g"...5out$+|
00001d50  3d 22 28 22 2b c3 28 63  6e 32 29 2b 22 20 65 6c  |="("+.(cn2)+" el|
00001d60  65 6d 65 6e 74 73 20 29  22 2b 22 20 20 3d 22 2b  |ements )"+"  ="+|
00001d70  c3 28 6f 75 74 77 29 2b  22 20 67 22 0d 0b d6 38  |.(outw)+" g"...8|
00001d80  f2 69 63 6f 6e 74 65 78  74 28 6e 75 6d 62 65 72  |.icontext(number|
00001d90  73 25 2c 30 2c 69 6e 24  29 3a f2 69 63 6f 6e 74  |s%,0,in$):.icont|
00001da0  65 78 74 28 6e 75 6d 62  65 72 73 25 2c 31 2c 6f  |ext(numbers%,1,o|
00001db0  75 74 24 29 0d 0b e0 34  e7 20 77 68 61 74 25 20  |ut$)...4. what% |
00001dc0  8c 20 f2 63 6c 6f 73 65  77 69 6e 28 6e 75 6d 62  |. .closewin(numb|
00001dd0  65 72 73 25 29 3a f2 6f  70 65 6e 77 69 6e 28 6e  |ers%):.openwin(n|
00001de0  75 6d 62 65 72 73 25 29  0d 0b ea 05 e1 0d 0b f4  |umbers%)........|
00001df0  04 0d 0b fe 15 dd 20 f2  77 6f 72 6b 6f 75 74 66  |...... .workoutf|
00001e00  6f 72 6d 75 6c 61 0d 0c  08 4c 6e 3d 30 3a 6f 75  |ormula...Ln=0:ou|
00001e10  74 24 3d 22 22 3a 6e 24  3d 22 22 3a 65 72 72 31  |t$="":n$="":err1|
00001e20  3d 30 3a 65 72 72 32 3d  30 3a 65 72 72 33 3d 30  |=0:err2=0:err3=0|
00001e30  3a 65 72 72 34 3d 30 3a  63 32 3d 30 3a 65 72 72  |:err4=0:c2=0:err|
00001e40  35 3d 30 3a 61 6e 24 3d  22 22 3a 63 61 74 24 3d  |5=0:an$="":cat$=|
00001e50  22 22 0d 0c 12 05 f5 0d  0c 1c 08 6e 2b 3d 31 0d  |"".........n+=1.|
00001e60  0c 26 12 43 24 3d c1 63  6f 6d 70 24 2c 6e 2c 31  |.&.C$=.comp$,n,1|
00001e70  29 0d 0c 30 21 fd 20 43  24 3d 22 20 22 20 84 20  |)..0!. C$=" " . |
00001e80  43 24 3d 22 28 22 20 84  20 6e 3e 3d a9 63 6f 6d  |C$="(" . n>=.com|
00001e90  70 24 0d 0c 3a 32 e7 20  6e 3c a9 63 6f 6d 70 24  |p$..:2. n<.comp$|
00001ea0  20 8c 20 6d 65 74 61 6c  24 3d c0 63 6f 6d 70 24  | . metal$=.comp$|
00001eb0  2c 6e 2d 31 29 20 8b 20  6d 65 74 61 6c 24 3d 63  |,n-1) . metal$=c|
00001ec0  6f 6d 70 24 0d 0c 44 0f  70 6f 73 3d 6e 3a 65 6e  |omp$..D.pos=n:en|
00001ed0  64 3d 6e 0d 0c 4e 05 f5  0d 0c 58 12 43 24 3d c1  |d=n..N....X.C$=.|
00001ee0  63 6f 6d 70 24 2c 6e 2c  31 29 0d 0c 62 0e e7 20  |comp$,n,1)..b.. |
00001ef0  43 24 3d 22 28 22 20 8c  0d 0c 6c 0e 6e 2b 3d 31  |C$="(" ...l.n+=1|
00001f00  3a 6e 24 3d 22 22 0d 0c  76 05 f5 0d 0c 80 12 43  |:n$=""..v......C|
00001f10  24 3d c1 63 6f 6d 70 24  2c 6e 2c 31 29 0d 0c 8a  |$=.comp$,n,1)...|
00001f20  0a 6e 24 2b 3d 43 24 0d  0c 94 08 6e 2b 3d 31 0d  |.n$+=C$....n+=1.|
00001f30  0c 9e 17 fd 20 43 24 3d  22 29 22 20 84 20 6e 3e  |.... C$=")" . n>|
00001f40  a9 63 6f 6d 70 24 0d 0c  a8 09 65 6e 64 3d 6e 0d  |.comp$....end=n.|
00001f50  0c b2 11 6e 24 3d c0 6e  24 2c a9 6e 24 2d 31 29  |...n$=.n$,.n$-1)|
00001f60  0d 0c bc 05 cd 0d 0c c6  08 6e 2b 3d 31 0d 0c d0  |.........n+=1...|
00001f70  0e fd 20 6e 3e a9 63 6f  6d 70 24 0d 0c da 12 e7  |.. n>.comp$.....|
00001f80  20 65 6e 64 3c a9 63 6f  6d 70 24 20 8c 0d 0c e4  | end<.comp$ ....|
00001f90  20 6e 6f 6e 6d 65 74 61  6c 24 3d c2 63 6f 6d 70  | nonmetal$=.comp|
00001fa0  24 2c a9 63 6f 6d 70 24  2d 65 6e 64 29 0d 0c ee  |$,.comp$-end)...|
00001fb0  1b e7 20 6e 6f 6e 6d 65  74 61 6c 24 3d 22 22 20  |.. nonmetal$="" |
00001fc0  8c 20 65 72 72 35 3d 31  0d 0c f8 22 6e 6f 6e 6d  |. err5=1..."nonm|
00001fd0  65 74 61 6c 24 3d a4 75  70 63 61 73 65 28 6e 6f  |etal$=.upcase(no|
00001fe0  6e 6d 65 74 61 6c 24 2c  31 29 0d 0d 02 24 63 32  |nmetal$,1)...$c2|
00001ff0  3d a4 77 68 61 74 63 68  61 72 67 65 5f 66 69 6c  |=.whatcharge_fil|
00002000  65 28 6e 6f 6e 6d 65 74  61 6c 24 2c 32 29 0d 0d  |e(nonmetal$,2)..|
00002010  0c 0c 61 6e 24 3d 73 79  6d 24 0d 0d 16 13 e7 20  |..an$=sym$..... |
00002020  63 32 3d 30 20 8c 20 65  72 72 34 3d 31 0d 0d 20  |c2=0 . err4=1.. |
00002030  05 cd 0d 0d 2a 1c 6d 65  74 61 6c 24 3d a4 75 70  |....*.metal$=.up|
00002040  63 61 73 65 28 6d 65 74  61 6c 24 2c 32 29 0d 0d  |case(metal$,2)..|
00002050  34 1d 63 61 74 24 3d a4  66 69 6e 64 65 6c 65 6d  |4.cat$=.findelem|
00002060  65 6e 74 28 6d 65 74 61  6c 24 29 0d 0d 3e 22 e7  |ent(metal$)..>".|
00002070  20 6e 24 3e 22 22 20 8c  20 63 31 3d a4 72 6f 6d  | n$>"" . c1=.rom|
00002080  61 6e 28 6e 24 29 20 8b  20 63 31 3d 30 0d 0d 48  |an(n$) . c1=0..H|
00002090  15 e7 20 63 31 3d 30 20  84 20 65 72 72 31 3d 31  |.. c1=0 . err1=1|
000020a0  20 8c 0d 0d 52 21 63 31  3d a4 77 68 61 74 63 68  | ...R!c1=.whatch|
000020b0  61 72 67 65 5f 70 65 72  69 6f 64 69 63 28 63 61  |arge_periodic(ca|
000020c0  74 24 29 0d 0d 5c 3f e7  20 63 31 3d 30 20 8c 20  |t$)..\?. c1=0 . |
000020d0  63 31 3d a4 77 68 61 74  63 68 61 72 67 65 5f 66  |c1=.whatcharge_f|
000020e0  69 6c 65 28 a4 75 70 63  61 73 65 28 6d 65 74 61  |ile(.upcase(meta|
000020f0  6c 24 2c 31 29 2c 31 29  3a 63 61 74 24 3d 73 79  |l$,1),1):cat$=sy|
00002100  6d 24 0d 0d 66 13 e7 20  63 31 3d 31 20 8c 20 65  |m$..f.. c1=1 . e|
00002110  72 72 31 3d 30 0d 0d 70  05 cd 0d 0d 7a 13 e7 20  |rr1=0..p....z.. |
00002120  65 72 72 31 20 80 20 65  72 72 32 20 8c 0d 0d 84  |err1 . err2 ....|
00002130  7d f2 75 73 65 72 6d 65  73 73 61 67 65 28 22 53  |}.usermessage("S|
00002140  6f 72 72 79 20 49 20 63  61 6e 6e 6f 74 20 66 69  |orry I cannot fi|
00002150  6e 64 20 61 6e 79 20 72  65 66 65 72 65 6e 63 65  |nd any reference|
00002160  20 6f 66 22 2c 6d 65 74  61 6c 24 2b 22 20 69 6e  | of",metal$+" in|
00002170  20 63 61 74 2d 69 6f 6e  20 66 69 6c 65 2c 20 74  | cat-ion file, t|
00002180  68 65 20 69 74 65 6d 20  6d 61 79 22 2c 22 62 65  |he item may","be|
00002190  20 69 6e 63 6f 72 72 65  63 74 6c 79 20 73 70 65  | incorrectly spe|
000021a0  6c 74 22 2c 22 22 2c 22  22 29 0d 0d 8e 05 cc 0d  |lt","","")......|
000021b0  0d 98 a0 e7 20 63 31 3d  30 20 8c 20 f2 75 73 65  |.... c1=0 . .use|
000021c0  72 6d 65 73 73 61 67 65  28 22 53 6f 72 72 79 20  |rmessage("Sorry |
000021d0  74 68 65 20 69 74 65 6d  20 22 2b 6d 65 74 61 6c  |the item "+metal|
000021e0  24 2b 22 20 68 61 73 20  6d 75 6c 74 69 70 6c 65  |$+" has multiple|
000021f0  22 2c 22 76 61 6c 61 6e  63 69 65 73 20 28 6f 72  |","valancies (or|
00002200  20 69 73 20 61 20 6e 6f  6e 6d 65 74 61 6c 29 2c  | is a nonmetal),|
00002210  20 70 6c 65 61 73 65 20  73 70 65 63 69 66 79 22  | please specify"|
00002220  2c 22 77 68 69 63 68 20  76 61 6c 65 6e 63 79 20  |,"which valency |
00002230  65 67 2e 20 63 6f 70 70  65 72 20 28 49 49 29 20  |eg. copper (II) |
00002240  4e 69 74 72 61 74 65 22  2c 22 22 2c 22 22 29 0d  |Nitrate","","").|
00002250  0d a2 9c e7 20 65 72 72  33 3d 31 20 8c 20 f2 75  |.... err3=1 . .u|
00002260  73 65 72 6d 65 73 73 61  67 65 28 22 53 6f 72 72  |sermessage("Sorr|
00002270  79 20 61 6e 20 65 72 72  6f 72 20 68 61 73 20 62  |y an error has b|
00002280  65 65 6e 20 6d 61 64 65  20 69 6e 20 74 68 65 22  |een made in the"|
00002290  2c 22 65 6e 74 72 79 20  6f 66 20 74 68 65 20 76  |,"entry of the v|
000022a0  61 6c 61 6e 63 79 22 2c  22 28 20 74 68 65 20 76  |alancy","( the v|
000022b0  61 6c 61 6e 63 79 20 73  68 6f 75 6c 64 20 62 65  |alancy should be|
000022c0  20 69 6e 20 62 72 61 63  6b 65 74 73 2c 22 2c 22  | in brackets,","|
000022d0  61 6e 64 20 69 6e 20 72  6f 6d 61 6e 20 6e 75 6d  |and in roman num|
000022e0  65 72 61 6c 73 29 22 2c  22 22 29 0d 0d ac 05 cd  |erals)","").....|
000022f0  0d 0d b6 7f e7 20 65 72  72 34 20 8c 20 f2 75 73  |..... err4 . .us|
00002300  65 72 6d 65 73 73 61 67  65 28 22 53 6f 72 72 79  |ermessage("Sorry|
00002310  20 6e 6f 20 72 65 66 65  72 65 6e 63 65 20 6f 66  | no reference of|
00002320  20 22 2b 6e 6f 6e 6d 65  74 61 6c 24 2c 22 63 61  | "+nonmetal$,"ca|
00002330  6e 20 62 65 20 66 6f 75  6e 64 20 69 6e 20 61 6e  |n be found in an|
00002340  2d 69 6f 6e 20 66 69 6c  65 22 2c 22 28 70 6c 65  |-ion file","(ple|
00002350  61 73 65 20 63 68 65 63  6b 20 74 68 65 20 73 70  |ase check the sp|
00002360  65 6c 6c 69 6e 67 29 22  2c 22 22 2c 22 22 29 0d  |elling)","","").|
00002370  0d c0 0e 72 65 73 75 6c  74 24 3d 22 22 0d 0d ca  |...result$=""...|
00002380  58 e7 20 61 6e 24 3d 22  22 20 8c 20 f2 75 73 65  |X. an$="" . .use|
00002390  72 6d 65 73 73 61 67 65  28 22 43 6f 6d 70 6f 75  |rmessage("Compou|
000023a0  6e 64 73 20 6d 75 73 74  20 63 6f 6e 74 61 69 6e  |nds must contain|
000023b0  20 6d 6f 72 65 22 2c 22  74 68 61 6e 20 6f 6e 65  | more","than one|
000023c0  20 63 6f 6d 70 6f 6e 65  6e 74 22 2c 22 22 2c 22  | component","","|
000023d0  22 2c 22 22 29 0d 0d d4  1e e7 20 61 6e 24 3d 22  |","")..... an$="|
000023e0  22 20 8c 20 65 72 72 35  3d 31 20 8b 20 65 72 72  |" . err5=1 . err|
000023f0  35 3d 30 0d 0d de 32 e7  20 65 72 72 31 3d 30 20  |5=0...2. err1=0 |
00002400  80 20 65 72 72 32 3d 30  20 80 20 65 72 72 33 3d  |. err2=0 . err3=|
00002410  30 20 80 20 65 72 72 34  3d 30 20 80 20 65 72 72  |0 . err4=0 . err|
00002420  35 3d 30 20 8c 0d 0d e8  0e e7 20 63 31 3c 3e 63  |5=0 ...... c1<>c|
00002430  32 20 8c 0d 0d f2 0c e7  20 63 32 3e 31 20 8c 0d  |2 ...... c2>1 ..|
00002440  0d fc 1d 74 79 70 65 3d  a4 63 6f 6d 70 6f 75 6e  |...type=.compoun|
00002450  64 5f 74 79 70 65 28 63  61 74 24 29 0d 0e 06 3e  |d_type(cat$)...>|
00002460  e7 20 74 79 70 65 3d 32  20 8c 20 72 65 73 75 6c  |. type=2 . resul|
00002470  74 24 3d 22 28 22 2b 63  61 74 24 2b 22 29 22 2b  |t$="("+cat$+")"+|
00002480  c3 28 63 32 29 20 8b 20  72 65 73 75 6c 74 24 3d  |.(c2) . result$=|
00002490  63 61 74 24 2b c3 28 63  32 29 0d 0e 10 12 cc 20  |cat$+.(c2)..... |
000024a0  72 65 73 75 6c 74 24 3d  63 61 74 24 0d 0e 1a 05  |result$=cat$....|
000024b0  cd 0d 0e 24 0c e7 20 63  31 3e 31 20 8c 0d 0e 2e  |...$.. c1>1 ....|
000024c0  1c 74 79 70 65 3d a4 63  6f 6d 70 6f 75 6e 64 5f  |.type=.compound_|
000024d0  74 79 70 65 28 61 6e 24  29 0d 0e 38 3e e7 20 74  |type(an$)..8>. t|
000024e0  79 70 65 3d 32 20 8c 20  72 65 73 75 6c 74 24 2b  |ype=2 . result$+|
000024f0  3d 22 28 22 2b 61 6e 24  2b 22 29 22 2b c3 28 63  |="("+an$+")"+.(c|
00002500  31 29 20 8b 20 72 65 73  75 6c 74 24 2b 3d 61 6e  |1) . result$+=an|
00002510  24 2b c3 28 63 31 29 0d  0e 42 12 cc 20 72 65 73  |$+.(c1)..B.. res|
00002520  75 6c 74 24 2b 3d 61 6e  24 0d 0e 4c 05 cd 0d 0e  |ult$+=an$..L....|
00002530  56 05 cc 0d 0e 60 14 72  65 73 75 6c 74 24 3d 63  |V....`.result$=c|
00002540  61 74 24 2b 61 6e 24 0d  0e 6a 05 cd 0d 0e 74 05  |at$+an$..j....t.|
00002550  cc 0d 0e 7e 21 72 65 73  75 6c 74 24 3d 22 3c 3c  |...~!result$="<<|
00002560  20 43 61 6e 27 74 20 70  72 6f 63 65 73 73 20 3e  | Can't process >|
00002570  3e 22 0d 0e 88 05 cd 0d  0e 92 22 f2 69 63 6f 6e  |>"........".icon|
00002580  74 65 78 74 28 6e 61 6d  65 63 6f 6d 70 25 2c 33  |text(namecomp%,3|
00002590  2c 72 65 73 75 6c 74 24  29 0d 0e 9c 05 e1 0d 0e  |,result$).......|
000025a0  a6 04 0d 0e b0 1b dd 20  a4 63 6f 6d 70 6f 75 6e  |....... .compoun|
000025b0  64 5f 74 79 70 65 28 77  68 61 74 24 29 0d 0e ba  |d_type(what$)...|
000025c0  07 6e 3d 30 0d 0e c4 12  e3 20 63 3d 31 20 b8 20  |.n=0..... c=1 . |
000025d0  a9 77 68 61 74 24 0d 0e  ce 14 43 3d 97 28 c1 77  |.what$....C=.(.w|
000025e0  68 61 74 24 2c 63 2c 31  29 29 0d 0e d8 18 e7 20  |hat$,c,1))..... |
000025f0  43 3e 36 34 20 80 20 43  3c 39 31 20 8c 20 6e 2b  |C>64 . C<91 . n+|
00002600  3d 31 0d 0e e2 07 ed 20  63 0d 0e ec 0e e7 20 6e  |=1..... c..... n|
00002610  3d 31 20 8c 20 3d 31 0d  0e f6 0e e7 20 6e 3e 31  |=1 . =1..... n>1|
00002620  20 8c 20 3d 32 0d 0f 00  04 0d 0f 0a 23 dd 20 a4  | . =2.......#. .|
00002630  77 68 61 74 63 68 61 72  67 65 5f 66 69 6c 65 28  |whatcharge_file(|
00002640  77 68 61 74 24 2c 77 68  61 74 25 29 0d 0f 14 0b  |what$,what%)....|
00002650  73 79 6d 24 3d 22 22 0d  0f 1e 42 e7 20 77 68 61  |sym$=""...B. wha|
00002660  74 25 3d 31 20 8c 20 46  3d 8e 20 22 3c 43 68 65  |t%=1 . F=. "<Che|
00002670  6d 24 44 69 72 3e 2e 43  61 74 69 6f 6e 73 22 20  |m$Dir>.Cations" |
00002680  8b 20 46 3d 8e 20 22 3c  43 68 65 6d 24 44 69 72  |. F=. "<Chem$Dir|
00002690  3e 2e 41 6e 69 6f 6e 73  22 0d 0f 28 05 f5 0d 0f  |>.Anions"..(....|
000026a0  32 0a 4c 24 3d be 23 46  0d 0f 3c 19 6e 61 6d 65  |2.L$=.#F..<.name|
000026b0  24 3d c0 4c 24 2c a7 4c  24 2c 22 23 22 29 2d 31  |$=.L$,.L$,"#")-1|
000026c0  29 0d 0f 46 17 fd 20 c5  23 46 20 84 20 77 68 61  |)..F.. .#F . wha|
000026d0  74 24 3d 6e 61 6d 65 24  0d 0f 50 07 d9 23 46 0d  |t$=name$..P..#F.|
000026e0  0f 5a 1b e7 20 77 68 61  74 24 3c 3e 6e 61 6d 65  |.Z.. what$<>name|
000026f0  24 20 8c 20 65 72 72 32  3d 31 0d 0f 64 13 e7 20  |$ . err2=1..d.. |
00002700  77 68 61 74 24 3d 6e 61  6d 65 24 20 8c 0d 0f 6e  |what$=name$ ...n|
00002710  2c 73 79 6d 24 3d c1 4c  24 2c a7 4c 24 2c 22 23  |,sym$=.L$,.L$,"#|
00002720  22 29 2b 31 2c a7 4c 24  2c 22 40 22 29 2d a7 4c  |")+1,.L$,"@")-.L|
00002730  24 2c 22 23 22 29 2d 31  29 0d 0f 78 0e 3d bb 28  |$,"#")-1)..x.=.(|
00002740  c2 4c 24 2c 31 29 29 0d  0f 82 05 cd 0d 0f 8c 04  |.L$,1)).........|
00002750  0d 0f 96 21 dd 20 a4 77  68 61 74 63 68 61 72 67  |...!. .whatcharg|
00002760  65 5f 70 65 72 69 6f 64  69 63 28 77 68 61 74 24  |e_periodic(what$|
00002770  29 0d 0f a0 1d 46 3d 8e  20 22 3c 43 68 65 6d 24  |)....F=. "<Chem$|
00002780  44 69 72 3e 2e 43 68 65  6d 44 61 74 61 22 0d 0f  |Dir>.ChemData"..|
00002790  aa 07 78 3d 30 0d 0f b4  05 f5 0d 0f be 0a 4c 24  |..x=0.........L$|
000027a0  3d be 23 46 0d 0f c8 11  70 31 3d a7 4c 24 2c 22  |=.#F....p1=.L$,"|
000027b0  21 22 29 2b 31 0d 0f d2  11 70 32 3d a7 4c 24 2c  |!")+1....p2=.L$,|
000027c0  22 40 22 29 2b 31 0d 0f  dc 11 70 33 3d a7 4c 24  |"@")+1....p3=.L$|
000027d0  2c 22 23 22 29 2b 31 0d  0f e6 0c e7 20 70 31 3e  |,"#")+1..... p1>|
000027e0  31 20 8c 0d 0f f0 0f 78  3d bb 28 c2 4c 24 2c 31  |1 .....x=.(.L$,1|
000027f0  29 29 0d 0f fa 18 73 79  6d 24 3d c1 4c 24 2c 70  |))....sym$=.L$,p|
00002800  32 2c 70 33 2d 70 32 2d  31 29 0d 10 04 05 cd 0d  |2,p3-p2-1)......|
00002810  10 0e 16 fd 20 c5 23 46  20 84 20 73 79 6d 24 3d  |.... .#F . sym$=|
00002820  77 68 61 74 24 0d 10 18  07 d9 23 46 0d 10 22 12  |what$.....#F..".|
00002830  e7 20 73 79 6d 24 3d 77  68 61 74 24 20 8c 0d 10  |. sym$=what$ ...|
00002840  2c 13 e7 20 78 3c 33 20  8c 20 3d 78 20 8b 20 3d  |,.. x<3 . =x . =|
00002850  30 0d 10 36 05 cc 0d 10  40 06 3d 30 0d 10 4a 05  |0..6....@.=0..J.|
00002860  cd 0d 10 54 04 0d 10 5e  19 dd 20 a4 66 69 6e 64  |...T...^.. .find|
00002870  65 6c 65 6d 65 6e 74 28  66 69 6e 64 24 29 0d 10  |element(find$)..|
00002880  68 07 6e 3d 30 0d 10 72  05 f5 0d 10 7c 08 6e 2b  |h.n=0..r....|.n+|
00002890  3d 31 0d 10 86 1c fd 20  6e 3e 31 30 39 20 84 20  |=1..... n>109 . |
000028a0  6e 61 6d 65 24 28 6e 29  3d 66 69 6e 64 24 0d 10  |name$(n)=find$..|
000028b0  90 0d e7 20 6e 3c 31 30  39 20 8c 0d 10 9a 0c 3d  |... n<109 .....=|
000028c0  73 79 6d 24 28 6e 29 0d  10 a4 05 cc 0d 10 ae 0a  |sym$(n).........|
000028d0  65 72 72 31 3d 31 0d 10  b8 07 3d 22 22 0d 10 c2  |err1=1....=""...|
000028e0  04 0d 10 cc 13 dd 20 a4  72 6f 6d 61 6e 28 74 65  |...... .roman(te|
000028f0  78 74 24 29 0d 10 d6 1a  74 65 78 74 24 3d a4 75  |xt$)....text$=.u|
00002900  70 63 61 73 65 28 74 65  78 74 24 2c 31 29 0d 10  |pcase(text$,1)..|
00002910  e0 07 6e 3d 30 0d 10 ea  15 e7 20 74 65 78 74 24  |..n=0..... text$|
00002920  3d 22 49 22 20 8c 20 6e  3d 31 0d 10 f4 16 e7 20  |="I" . n=1..... |
00002930  74 65 78 74 24 3d 22 49  49 22 20 8c 20 6e 3d 32  |text$="II" . n=2|
00002940  0d 10 fe 17 e7 20 74 65  78 74 24 3d 22 49 49 49  |..... text$="III|
00002950  22 20 8c 20 6e 3d 33 0d  11 08 16 e7 20 74 65 78  |" . n=3..... tex|
00002960  74 24 3d 22 49 56 22 20  8c 20 6e 3d 34 0d 11 12  |t$="IV" . n=4...|
00002970  15 e7 20 74 65 78 74 24  3d 22 56 22 20 8c 20 6e  |.. text$="V" . n|
00002980  3d 35 0d 11 1c 16 e7 20  74 65 78 74 24 3d 22 56  |=5..... text$="V|
00002990  49 22 20 8c 20 6e 3d 36  0d 11 26 17 e7 20 74 65  |I" . n=6..&.. te|
000029a0  78 74 24 3d 22 56 49 49  22 20 8c 20 6e 3d 37 0d  |xt$="VII" . n=7.|
000029b0  11 30 18 e7 20 74 65 78  74 24 3d 22 56 49 49 49  |.0.. text$="VIII|
000029c0  22 20 8c 20 6e 3d 38 0d  11 3a 12 e7 20 6e 3d 30  |" . n=8..:.. n=0|
000029d0  20 8c 20 65 72 72 33 3d  31 0d 11 44 06 3d 6e 0d  | . err3=1..D.=n.|
000029e0  11 4e 04 0d 11 58 04 0d  11 62 1a dd 20 a4 75 70  |.N...X...b.. .up|
000029f0  63 61 73 65 28 74 65 78  74 24 2c 77 68 61 74 25  |case(text$,what%|
00002a00  29 0d 11 6c 09 43 24 3d  22 22 0d 11 76 12 e3 20  |)..l.C$=""..v.. |
00002a10  6e 3d 31 20 b8 20 a9 74  65 78 74 24 0d 11 80 14  |n=1 . .text$....|
00002a20  43 3d 97 28 c1 74 65 78  74 24 2c 6e 2c 31 29 29  |C=.(.text$,n,1))|
00002a30  0d 11 8a 0f e7 20 77 68  61 74 25 3d 31 20 8c 0d  |..... what%=1 ..|
00002a40  11 94 1a e7 20 43 3e 39  36 20 80 20 43 3c 31 32  |.... C>96 . C<12|
00002a50  33 20 8c 20 43 2d 3d 33  32 0d 11 9e 05 cd 0d 11  |3 . C-=32.......|
00002a60  a8 0f e7 20 77 68 61 74  25 3d 32 20 8c 0d 11 b2  |... what%=2 ....|
00002a70  20 e7 20 6e 3d 31 20 80  20 43 3e 39 36 20 80 20  | . n=1 . C>96 . |
00002a80  43 3c 31 32 33 20 8c 20  43 2d 3d 33 32 0d 11 bc  |C<123 . C-=32...|
00002a90  1f e7 20 6e 3e 31 20 80  20 43 3e 36 34 20 80 20  |.. n>1 . C>64 . |
00002aa0  43 3c 39 31 20 8c 20 43  2b 3d 33 32 0d 11 c6 05  |C<91 . C+=32....|
00002ab0  cd 0d 11 d0 0e 43 24 3d  43 24 2b bd 28 43 29 0d  |.....C$=C$+.(C).|
00002ac0  11 da 07 ed 20 6e 0d 11  e4 07 3d 43 24 0d 11 ee  |.... n....=C$...|
00002ad0  04 0d 11 f8 18 dd 20 f2  64 72 61 77 62 61 6c 61  |...... .drawbala|
00002ae0  6e 63 65 77 69 6e 64 6f  77 0d 12 02 0f f2 62 61  |ncewindow.....ba|
00002af0  6c 61 6e 63 65 28 30 29  0d 12 0c 09 65 72 72 3d  |lance(0)....err=|
00002b00  30 0d 12 16 1a f2 62 61  6c 61 6e 63 65 5f 63 68  |0.....balance_ch|
00002b10  65 63 6b 65 6c 65 6d 65  6e 74 73 0d 12 20 20 e7  |eckelements..  .|
00002b20  20 65 72 72 3d 30 20 80  20 69 6e 24 3e 22 22 20  | err=0 . in$>"" |
00002b30  80 20 6f 75 74 24 3e 22  22 20 8c 0d 12 2a 0e e7  |. out$>"" ...*..|
00002b40  20 6e 69 63 6f 6e 73 20  8c 0d 12 34 10 21 62 25  | nicons ...4.!b%|
00002b50  3d 62 61 6c 61 6e 63 65  25 0d 12 3e 13 e3 20 77  |=balance%..>.. w|
00002b60  34 3d 30 20 b8 20 6e 69  63 6f 6e 73 0d 12 48 0b  |4=0 . nicons..H.|
00002b70  62 25 21 34 3d 77 34 0d  12 52 1e c8 99 20 22 57  |b%!4=w4..R... "W|
00002b80  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002b90  22 2c 2c 62 25 0d 12 5c  1c c8 99 20 22 57 69 6d  |",,b%..\... "Wim|
00002ba0  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 62  |p_DeleteIcon",,b|
00002bb0  25 0d 12 66 08 ed 20 77  34 0d 12 70 05 cd 0d 12  |%..f.. w4..p....|
00002bc0  7a 10 6e 69 63 6f 6e 73  3d 30 3a 6e 3d 30 0d 12  |z.nicons=0:n=0..|
00002bd0  84 43 66 6c 61 67 31 3d  a4 69 63 6f 6e 5f 66 6c  |.Cflag1=.icon_fl|
00002be0  61 67 73 28 31 2c 30 2c  31 2c 30 2c 31 2c 31 2c  |ags(1,0,1,0,1,1,|
00002bf0  31 2c 31 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |1,1,1,0,0,0,0,0,|
00002c00  30 2c 30 2c 30 2c 30 2c  30 2c 66 6f 6e 74 31 25  |0,0,0,0,0,font1%|
00002c10  29 0d 12 8e 43 66 6c 61  67 32 3d a4 69 63 6f 6e  |)...Cflag2=.icon|
00002c20  5f 66 6c 61 67 73 28 31  2c 30 2c 31 2c 31 2c 31  |_flags(1,0,1,1,1|
00002c30  2c 31 2c 31 2c 31 2c 31  2c 30 2c 30 2c 30 2c 36  |,1,1,1,1,0,0,0,6|
00002c40  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 66 6f 6e  |,0,0,0,0,0,0,fon|
00002c50  74 31 25 29 0d 12 98 44  66 6c 61 67 33 3d a4 69  |t1%)...Dflag3=.i|
00002c60  63 6f 6e 5f 66 6c 61 67  73 28 31 2c 30 2c 31 2c  |con_flags(1,0,1,|
00002c70  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 30 2c 30 2c  |1,1,1,1,1,1,0,0,|
00002c80  30 2c 31 35 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |0,15,0,0,0,0,0,0|
00002c90  2c 66 6f 6e 74 31 25 29  0d 12 a2 43 66 6c 61 67  |,font1%)...Cflag|
00002ca0  34 3d a4 69 63 6f 6e 5f  66 6c 61 67 73 28 31 2c  |4=.icon_flags(1,|
00002cb0  30 2c 30 2c 31 2c 31 2c  30 2c 31 2c 31 2c 31 2c  |0,0,1,1,0,1,1,1,|
00002cc0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00002cd0  30 2c 30 2c 66 6f 6e 74  31 25 29 0d 12 ac 04 0d  |0,0,font1%).....|
00002ce0  12 b6 0d e3 20 73 3d 30  20 b8 20 31 0d 12 c0 07  |.... s=0 . 1....|
00002cf0  6e 3d 30 0d 12 ca 05 f5  0d 12 d4 14 6d 32 25 28  |n=0.........m2%(|
00002d00  73 2c 6e 29 3d 6d 25 28  73 2c 6e 29 0d 12 de 62  |s,n)=m%(s,n)...b|
00002d10  6e 75 6c 6c 3d a4 63 72  65 61 74 65 5f 69 63 6f  |null=.create_ico|
00002d20  6e 28 62 61 6c 61 6e 63  65 25 2c 35 30 2b 28 6e  |n(balance%,50+(n|
00002d30  69 63 6f 6e 73 2a 32 30  30 29 2c 2d 31 30 30 2c  |icons*200),-100,|
00002d40  31 38 30 2c 35 30 2c 66  6c 61 67 31 2c 22 22 2c  |180,50,flag1,"",|
00002d50  62 74 65 78 74 25 2b 28  6e 69 63 6f 6e 73 2a 31  |btext%+(nicons*1|
00002d60  35 29 2c 76 61 6c 69 64  32 25 2c 31 36 29 0d 12  |5),valid2%,16)..|
00002d70  e8 55 6e 75 6c 6c 3d a4  63 72 65 61 74 65 5f 69  |.Unull=.create_i|
00002d80  63 6f 6e 28 62 61 6c 61  6e 63 65 25 2c 35 30 2b  |con(balance%,50+|
00002d90  28 6e 69 63 6f 6e 73 2a  32 30 30 29 2c 2d 31 36  |(nicons*200),-16|
00002da0  30 2c 34 38 2c 34 34 2c  66 6c 61 67 32 2c 22 22  |0,48,44,flag2,""|
00002db0  2c 62 74 65 78 74 32 25  2c 76 61 6c 69 64 34 25  |,btext2%,valid4%|
00002dc0  2c 33 29 0d 12 f2 64 6e  75 6c 6c 3d a4 63 72 65  |,3)...dnull=.cre|
00002dd0  61 74 65 5f 69 63 6f 6e  28 62 61 6c 61 6e 63 65  |ate_icon(balance|
00002de0  25 2c 31 30 38 2b 28 6e  69 63 6f 6e 73 2a 32 30  |%,108+(nicons*20|
00002df0  30 29 2c 2d 31 36 30 2c  36 38 2c 34 34 2c 66 6c  |0),-160,68,44,fl|
00002e00  61 67 33 2c 22 22 2c 62  74 65 78 74 25 2b 28 6e  |ag3,"",btext%+(n|
00002e10  69 63 6f 6e 73 2a 31 35  29 2b 31 31 2c 76 61 6c  |icons*15)+11,val|
00002e20  69 64 35 25 2c 34 29 0d  12 fc 1e f2 64 69 73 70  |id5%,4).....disp|
00002e30  6c 61 79 62 61 6c 61 6e  63 65 73 74 75 66 66 28  |laybalancestuff(|
00002e40  6e 75 6c 6c 29 0d 13 06  58 6e 75 6c 6c 3d a4 63  |null)...Xnull=.c|
00002e50  72 65 61 74 65 5f 69 63  6f 6e 28 62 61 6c 61 6e  |reate_icon(balan|
00002e60  63 65 25 2c 31 38 30 2b  28 6e 69 63 6f 6e 73 2a  |ce%,180+(nicons*|
00002e70  32 30 30 29 2c 2d 31 36  30 2c 34 38 2c 34 34 2c  |200),-160,48,44,|
00002e80  66 6c 61 67 32 2c 22 22  2c 62 74 65 78 74 32 25  |flag2,"",btext2%|
00002e90  2b 33 2c 76 61 6c 69 64  34 25 2c 33 29 0d 13 10  |+3,valid4%,3)...|
00002ea0  12 6e 2b 3d 31 3a 6e 69  63 6f 6e 73 2b 3d 31 0d  |.n+=1:nicons+=1.|
00002eb0  13 1a 23 fd 20 66 6f 72  6d 73 24 28 73 2c 6e 29  |..#. forms$(s,n)|
00002ec0  3d 22 22 20 84 20 6e 3d  6d 61 78 5f 63 6f 6d 70  |="" . n=max_comp|
00002ed0  73 31 0d 13 24 1e e7 20  73 3d 30 20 8c 20 6e 69  |s1..$.. s=0 . ni|
00002ee0  6e 3d 6e 2d 31 20 8b 20  6e 6f 75 74 3d 6e 2d 31  |n=n-1 . nout=n-1|
00002ef0  0d 13 2e 0b e7 20 73 3d  30 20 8c 0d 13 38 5d 6e  |..... s=0 ...8]n|
00002f00  75 6c 6c 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  |ull=.create_icon|
00002f10  28 62 61 6c 61 6e 63 65  25 2c 35 30 2b 28 6e 69  |(balance%,50+(ni|
00002f20  63 6f 6e 73 2a 32 30 30  29 2c 2d 31 30 30 2c 31  |cons*200),-100,1|
00002f30  38 30 2c 35 30 2c 66 6c  61 67 34 2c 22 22 2c 62  |80,50,flag4,"",b|
00002f40  74 65 78 74 25 2b 28 6e  69 63 6f 6e 73 2a 31 35  |text%+(nicons*15|
00002f50  29 2c 2d 31 2c 31 36 29  0d 13 42 29 24 28 62 74  |),-1,16)..B)$(bt|
00002f60  65 78 74 25 2b 28 6e 69  63 6f 6e 73 2a 31 35 29  |ext%+(nicons*15)|
00002f70  29 3d 22 3e 3e 3e 22 3a  6e 69 63 6f 6e 73 2b 3d  |)=">>>":nicons+=|
00002f80  31 0d 13 4c 05 cd 0d 13  56 07 ed 20 73 0d 13 60  |1..L....V.. s..`|
00002f90  04 0d 13 6a 5d 62 31 3d  a4 63 72 65 61 74 65 5f  |...j]b1=.create_|
00002fa0  69 63 6f 6e 28 62 61 6c  61 6e 63 65 25 2c 35 30  |icon(balance%,50|
00002fb0  2c 2d 34 36 30 2c 33 35  30 2c 35 30 2c 66 6c 61  |,-460,350,50,fla|
00002fc0  67 31 2c 22 22 2c 62 74  65 78 74 25 2b 28 6e 69  |g1,"",btext%+(ni|
00002fd0  63 6f 6e 73 2a 32 35 29  2c 76 61 6c 69 64 36 25  |cons*25),valid6%|
00002fe0  2c 32 35 29 3a 6e 69 63  6f 6e 73 2b 3d 31 0d 13  |,25):nicons+=1..|
00002ff0  74 5d 62 32 3d a4 63 72  65 61 74 65 5f 69 63 6f  |t]b2=.create_ico|
00003000  6e 28 62 61 6c 61 6e 63  65 25 2c 35 30 2c 2d 33  |n(balance%,50,-3|
00003010  38 30 2c 33 35 30 2c 35  30 2c 66 6c 61 67 31 2c  |80,350,50,flag1,|
00003020  22 22 2c 62 74 65 78 74  25 2b 28 6e 69 63 6f 6e  |"",btext%+(nicon|
00003030  73 2a 32 35 29 2c 76 61  6c 69 64 33 25 2c 32 35  |s*25),valid3%,25|
00003040  29 3a 6e 69 63 6f 6e 73  2b 3d 31 0d 13 7e 5d 62  |):nicons+=1..~]b|
00003050  33 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 62  |3=.create_icon(b|
00003060  61 6c 61 6e 63 65 25 2c  35 30 2c 2d 33 30 30 2c  |alance%,50,-300,|
00003070  33 35 30 2c 35 30 2c 66  6c 61 67 31 2c 22 22 2c  |350,50,flag1,"",|
00003080  62 74 65 78 74 25 2b 28  6e 69 63 6f 6e 73 2a 32  |btext%+(nicons*2|
00003090  35 29 2c 76 61 6c 69 64  32 25 2c 32 35 29 3a 6e  |5),valid2%,25):n|
000030a0  69 63 6f 6e 73 2b 3d 31  0d 13 88 67 62 61 6c 61  |icons+=1...gbala|
000030b0  6e 63 65 5f 50 25 3d a4  63 72 65 61 74 65 5f 69  |nce_P%=.create_i|
000030c0  63 6f 6e 28 62 61 6c 61  6e 63 65 25 2c 34 32 30  |con(balance%,420|
000030d0  2c 2d 33 38 30 2c 31 30  35 30 2c 35 30 2c 66 6c  |,-380,1050,50,fl|
000030e0  61 67 31 2c 22 22 2c 62  74 65 78 74 25 2b 28 6e  |ag1,"",btext%+(n|
000030f0  69 63 6f 6e 73 2a 34 35  29 2c 76 61 6c 69 64 33  |icons*45),valid3|
00003100  25 2c 38 35 29 3a 6e 69  63 6f 6e 73 2b 3d 31 0d  |%,85):nicons+=1.|
00003110  13 92 67 62 61 6c 61 6e  63 65 5f 52 25 3d a4 63  |..gbalance_R%=.c|
00003120  72 65 61 74 65 5f 69 63  6f 6e 28 62 61 6c 61 6e  |reate_icon(balan|
00003130  63 65 25 2c 34 32 30 2c  2d 33 30 30 2c 31 30 35  |ce%,420,-300,105|
00003140  30 2c 35 30 2c 66 6c 61  67 31 2c 22 22 2c 62 74  |0,50,flag1,"",bt|
00003150  65 78 74 25 2b 28 6e 69  63 6f 6e 73 2a 38 35 29  |ext%+(nicons*85)|
00003160  2c 76 61 6c 69 64 32 25  2c 38 35 29 3a 6e 69 63  |,valid2%,85):nic|
00003170  6f 6e 73 2b 3d 31 0d 13  9c 66 62 61 6c 61 6e 63  |ons+=1...fbalanc|
00003180  65 5f 53 25 3d a4 63 72  65 61 74 65 5f 69 63 6f  |e_S%=.create_ico|
00003190  6e 28 62 61 6c 61 6e 63  65 25 2c 34 32 30 2c 2d  |n(balance%,420,-|
000031a0  34 36 30 2c 33 30 30 2c  35 30 2c 66 6c 61 67 31  |460,300,50,flag1|
000031b0  2c 22 22 2c 62 74 65 78  74 25 2b 28 6e 69 63 6f  |,"",btext%+(nico|
000031c0  6e 73 2a 38 35 29 2c 76  61 6c 69 64 36 25 2c 38  |ns*85),valid6%,8|
000031d0  35 29 3a 6e 69 63 6f 6e  73 2b 3d 31 0d 13 a6 62  |5):nicons+=1...b|
000031e0  72 65 73 65 74 25 3d a4  63 72 65 61 74 65 5f 69  |reset%=.create_i|
000031f0  63 6f 6e 28 62 61 6c 61  6e 63 65 25 2c 37 35 30  |con(balance%,750|
00003200  2c 2d 34 36 30 2c 32 30  30 2c 34 38 2c 66 6c 61  |,-460,200,48,fla|
00003210  67 32 2c 22 22 2c 62 74  65 78 74 25 2b 28 6e 69  |g2,"",btext%+(ni|
00003220  63 6f 6e 73 2a 38 35 29  2c 76 61 6c 69 64 31 25  |cons*85),valid1%|
00003230  2c 32 35 29 3a 6e 69 63  6f 6e 73 2b 3d 31 0d 13  |,25):nicons+=1..|
00003240  b0 65 6f 6b 62 75 74 74  6f 6e 25 3d a4 63 72 65  |.eokbutton%=.cre|
00003250  61 74 65 5f 69 63 6f 6e  28 62 61 6c 61 6e 63 65  |ate_icon(balance|
00003260  25 2c 39 38 30 2c 2d 34  36 30 2c 32 30 30 2c 34  |%,980,-460,200,4|
00003270  38 2c 66 6c 61 67 32 2c  22 22 2c 62 74 65 78 74  |8,flag2,"",btext|
00003280  25 2b 28 6e 69 63 6f 6e  73 2a 34 35 29 2c 76 61  |%+(nicons*45),va|
00003290  6c 69 64 31 25 2c 31 35  29 3a 6e 69 63 6f 6e 73  |lid1%,15):nicons|
000032a0  2b 3d 31 0d 13 ba 04 0d  13 c4 2b f2 69 63 6f 6e  |+=1.......+.icon|
000032b0  74 65 78 74 28 62 61 6c  61 6e 63 65 25 2c 62 31  |text(balance%,b1|
000032c0  2c 22 45 71 75 61 74 69  6f 6e 20 73 74 61 74 65  |,"Equation state|
000032d0  22 29 0d 13 ce 2f f2 69  63 6f 6e 74 65 78 74 28  |").../.icontext(|
000032e0  62 61 6c 61 6e 63 65 25  2c 62 32 2c 22 50 72 6f  |balance%,b2,"Pro|
000032f0  64 75 63 74 73 20 62 72  65 61 6b 64 6f 77 6e 22  |ducts breakdown"|
00003300  29 0d 13 d8 30 f2 69 63  6f 6e 74 65 78 74 28 62  |)...0.icontext(b|
00003310  61 6c 61 6e 63 65 25 2c  62 33 2c 22 52 65 61 63  |alance%,b3,"Reac|
00003320  74 61 6e 74 73 20 62 72  65 61 6b 64 6f 77 6e 22  |tants breakdown"|
00003330  29 0d 13 e2 25 f2 69 63  6f 6e 74 65 78 74 28 62  |)...%.icontext(b|
00003340  61 6c 61 6e 63 65 25 2c  62 61 6c 61 6e 63 65 5f  |alance%,balance_|
00003350  52 25 2c 22 22 29 0d 13  ec 25 f2 69 63 6f 6e 74  |R%,"")...%.icont|
00003360  65 78 74 28 62 61 6c 61  6e 63 65 25 2c 62 61 6c  |ext(balance%,bal|
00003370  61 6e 63 65 5f 50 25 2c  22 22 29 0d 13 f6 25 f2  |ance_P%,"")...%.|
00003380  69 63 6f 6e 74 65 78 74  28 62 61 6c 61 6e 63 65  |icontext(balance|
00003390  25 2c 62 61 6c 61 6e 63  65 5f 53 25 2c 22 22 29  |%,balance_S%,"")|
000033a0  0d 14 00 26 f2 69 63 6f  6e 74 65 78 74 28 62 61  |...&.icontext(ba|
000033b0  6c 61 6e 63 65 25 2c 72  65 73 65 74 25 2c 22 52  |lance%,reset%,"R|
000033c0  65 73 65 74 22 29 0d 14  0a 28 f2 69 63 6f 6e 74  |eset")...(.icont|
000033d0  65 78 74 28 62 61 6c 61  6e 63 65 25 2c 6f 6b 62  |ext(balance%,okb|
000033e0  75 74 74 6f 6e 25 2c 22  4f 2e 4b 2e 22 29 0d 14  |utton%,"O.K.")..|
000033f0  14 1c 6e 69 63 6f 6e 73  3d 6e 69 63 6f 6e 73 2b  |..nicons=nicons+|
00003400  28 33 2a 6e 69 63 6f 6e  73 29 0d 14 1e 16 f2 6f  |(3*nicons).....o|
00003410  70 65 6e 77 69 6e 28 62  61 6c 61 6e 63 65 25 29  |penwin(balance%)|
00003420  0d 14 28 12 f2 75 70 64  61 74 65 62 61 6c 61 6e  |..(..updatebalan|
00003430  63 65 0d 14 32 05 cd 0d  14 3c 05 e1 0d 14 46 04  |ce..2....<....F.|
00003440  0d 14 50 26 dd 20 f2 64  69 73 70 6c 61 79 62 61  |..P&. .displayba|
00003450  6c 61 6e 63 65 73 74 75  66 66 28 70 6c 75 73 6d  |lancestuff(plusm|
00003460  69 6e 75 73 25 29 0d 14  5a 28 e7 20 6d 25 28 73  |inus%)..Z(. m%(s|
00003470  2c 6e 29 3d 30 20 8c 20  6d 24 3d 22 31 22 20 8b  |,n)=0 . m$="1" .|
00003480  20 6d 24 3d c3 28 6d 25  28 73 2c 6e 29 29 0d 14  | m$=.(m%(s,n))..|
00003490  64 30 54 24 3d c0 6d 24  2c 33 29 2b 22 20 22 2b  |d0T$=.m$,3)+" "+|
000034a0  c0 a4 72 65 6d 6f 76 65  6e 75 6d 62 65 72 28 66  |..removenumber(f|
000034b0  6f 72 6d 73 24 28 73 2c  6e 29 29 2c 38 29 0d 14  |orms$(s,n)),8)..|
000034c0  6e 27 f2 69 63 6f 6e 74  65 78 74 28 62 61 6c 61  |n'.icontext(bala|
000034d0  6e 63 65 25 2c 70 6c 75  73 6d 69 6e 75 73 25 2d  |nce%,plusminus%-|
000034e0  32 2c 54 24 29 0d 14 78  25 f2 69 63 6f 6e 74 65  |2,T$)..x%.iconte|
000034f0  78 74 28 62 61 6c 61 6e  63 65 25 2c 70 6c 75 73  |xt(balance%,plus|
00003500  6d 69 6e 75 73 25 2c 6d  24 29 0d 14 82 05 e1 0d  |minus%,m$)......|
00003510  14 8c 04 0d 14 96 1a dd  20 a4 72 65 6d 6f 76 65  |........ .remove|
00003520  6e 75 6d 62 65 72 28 74  65 78 74 24 29 0d 14 a0  |number(text$)...|
00003530  12 43 3d 97 28 c0 74 65  78 74 24 2c 31 29 29 0d  |.C=.(.text$,1)).|
00003540  14 aa 13 e7 20 43 3e 34  37 20 80 20 43 3c 35 38  |.... C>47 . C<58|
00003550  20 8c 0d 14 b4 07 63 3d  30 0d 14 be 05 f5 0d 14  | .....c=0.......|
00003560  c8 08 63 2b 3d 31 0d 14  d2 14 43 3d 97 28 c1 74  |..c+=1....C=.(.t|
00003570  65 78 74 24 2c 63 2c 31  29 29 0d 14 dc 1d fd 20  |ext$,c,1))..... |
00003580  43 3c 34 37 20 84 20 43  3e 35 38 20 84 20 63 3e  |C<47 . C>58 . c>|
00003590  3d a9 74 65 78 74 24 0d  14 e6 17 3d c2 74 65 78  |=.text$....=.tex|
000035a0  74 24 2c a9 74 65 78 74  24 2d 63 2b 31 29 0d 14  |t$,.text$-c+1)..|
000035b0  f0 05 cc 0d 14 fa 0a 3d  74 65 78 74 24 0d 15 04  |.......=text$...|
000035c0  05 cd 0d 15 0e 04 0d 15  18 14 dd 20 f2 75 70 64  |........... .upd|
000035d0  61 74 65 62 61 6c 61 6e  63 65 0d 15 22 0f f2 62  |atebalance.."..b|
000035e0  61 6c 61 6e 63 65 28 30  29 0d 15 2c 16 f2 73 68  |alance(0)..,..sh|
000035f0  6f 77 63 6f 6d 70 6f 6e  65 6e 74 73 28 30 29 0d  |owcomponents(0).|
00003600  15 36 26 f2 69 63 6f 6e  74 65 78 74 28 62 61 6c  |.6&.icontext(bal|
00003610  61 6e 63 65 25 2c 62 61  6c 61 6e 63 65 5f 52 25  |ance%,balance_R%|
00003620  2c 69 6e 24 29 0d 15 40  27 f2 69 63 6f 6e 74 65  |,in$)..@'.iconte|
00003630  78 74 28 62 61 6c 61 6e  63 65 25 2c 62 61 6c 61  |xt(balance%,bala|
00003640  6e 63 65 5f 50 25 2c 6f  75 74 24 29 0d 15 4a 3a  |nce_P%,out$)..J:|
00003650  e7 20 69 6e 24 3d 6f 75  74 24 20 8c 20 73 74 61  |. in$=out$ . sta|
00003660  74 65 24 3d 22 42 61 6c  61 6e 63 65 64 22 20 8b  |te$="Balanced" .|
00003670  20 73 74 61 74 65 24 3d  22 4e 6f 74 20 42 61 6c  | state$="Not Bal|
00003680  61 6e 63 65 64 22 0d 15  54 29 f2 69 63 6f 6e 74  |anced"..T).icont|
00003690  65 78 74 28 62 61 6c 61  6e 63 65 25 2c 62 61 6c  |ext(balance%,bal|
000036a0  61 6e 63 65 5f 53 25 2c  73 74 61 74 65 24 29 0d  |ance_S%,state$).|
000036b0  15 5e 05 e1 0d 15 68 04  0d 15 72 10 dd 20 f2 63  |.^....h...r.. .c|
000036c0  6c 65 61 72 76 61 72 73  0d 15 7c 0e e3 20 77 31  |learvars..|.. w1|
000036d0  3d 30 20 b8 20 31 0d 15  86 17 e3 20 77 32 3d 30  |=0 . 1..... w2=0|
000036e0  20 b8 20 6d 61 78 5f 63  6f 6d 70 73 31 0d 15 90  | . max_comps1...|
000036f0  14 66 6f 72 6d 73 24 28  77 31 2c 77 32 29 3d 22  |.forms$(w1,w2)="|
00003700  22 0d 15 9a 0f 6d 25 28  77 31 2c 77 32 29 3d 30  |"....m%(w1,w2)=0|
00003710  0d 15 a4 19 e3 20 77 33  3d 30 20 b8 20 6d 61 78  |..... w3=0 . max|
00003720  5f 65 6c 65 6d 65 6e 74  73 0d 15 ae 32 65 25 28  |_elements...2e%(|
00003730  77 31 2c 77 32 2c 77 33  29 3d 30 3a 65 6d 25 28  |w1,w2,w3)=0:em%(|
00003740  77 31 2c 77 32 2c 77 33  29 3d 30 3a 6e 73 25 28  |w1,w2,w3)=0:ns%(|
00003750  77 31 2c 77 32 2c 77 33  29 3d 30 0d 15 b8 08 ed  |w1,w2,w3)=0.....|
00003760  20 77 33 0d 15 c2 08 ed  20 77 32 0d 15 cc 08 ed  | w3..... w2.....|
00003770  20 77 31 0d 15 d6 10 e3  20 77 31 3d 32 20 b8 20  | w1..... w1=2 . |
00003780  69 2a 33 0d 15 e0 18 21  62 25 3d 77 65 69 67 68  |i*3....!b%=weigh|
00003790  74 73 25 3a 62 25 21 34  3d 77 31 0d 15 ea 1e c8  |ts%:b%!4=w1.....|
000037a0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000037b0  74 61 74 65 22 2c 2c 62  25 0d 15 f4 1c c8 99 20  |tate",,b%...... |
000037c0  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
000037d0  22 2c 2c 62 25 0d 15 fe  08 ed 20 77 31 0d 16 08  |",,b%..... w1...|
000037e0  32 e3 20 77 31 3d 30 20  b8 20 31 3a e3 20 77 32  |2. w1=0 . 1:. w2|
000037f0  3d 30 20 b8 20 31 31 30  3a 6e 65 25 28 77 31 2c  |=0 . 110:ne%(w1,|
00003800  77 32 29 3d 30 3a ed 20  77 32 3a ed 20 77 31 0d  |w2)=0:. w2:. w1.|
00003810  16 12 26 65 72 72 3d 30  3a 65 72 72 31 3d 30 3a  |..&err=0:err1=0:|
00003820  65 72 72 32 3d 30 3a 65  72 72 33 3d 30 3a 65 72  |err2=0:err3=0:er|
00003830  72 24 3d 22 22 0d 16 1c  05 e1 0d ff              |r$="".......|
0000383c