"� � � �$+" at line "+�(�/10):�
� e%(1,5,15)
� em%(1,5,15)
(� ne%(1,5,15)
2� ns%(1,5,15)
<
� m%(1,5)
F� forms$(1,5)
P� sym$(110)
Z� name$(110)
d� atno%(110)
n� atms%(110)
xmax_comps1=5
�max_elements=15
�
�setup
� �breakdown(0,"Cu(SO4)2.H2O")
��analysis(0)
��compoundicons
��
�
�� �setup
�F=� "<Chem$Dir>.ChemData"
�n=1
�
space%=68
��
�
L$=�#F

p1=�L$,"!")+1:p2=�L$,"@")+1

p3=�L$,"#")+1:p4=�L$,"$")+1

p5=�L$,"%")+1:p6=�L$,"^")+1

"'x=�(�L$,0,p1))-1:y=�(�L$,p1,p2-p1))

,,Sym$=�L$,p2,p3-p2-1):Nm$=�L$,p3,p4-p3-1)

6+n1=�(�L$,p4,p5-p4)):n2=�(�L$,p5,p6-p5))

@� p1>1 �

J8sym$(n)=Sym$:name$(n)=Nm$:atms%(n)=n1*10:atno%(n)=n2

Tn+=1

^�

h	� �#F

r�#F

|�

�

�� �breakdown(s,W$)

�
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
0�breakdown(0,in$)
:�breakdown(1,out$)
D� err=0 � �analysis(0)
N�
X
b� �analysis(what%)
l&err=0:err1=0:err2=0:err3=0:err$=""
v
� s=0 � 1
�� n=0 � max_comps1
�� 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$
4� m%(s,n)>999 � err=4
>�
H3n2=0:b=0:brst=0:r=0:nomult=0:cryst=0:crystpos=0
R�
\E$="":lastc=0
floopcheck2=0
p�
z � �type=3 � b=1:c+=1:brst=n2
�� �type<2 � E$+=C$:c+=1
�� 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
8�stopdotmult
B� �type=-1 � c+=1
L� �E$=0 � r=1 � c-=1
V� r=1 � �E$>0 �
`r=0
j� c2=brst � n2-1
tns%(s,n,c2)=�E$
~� c2
�ns%(s,n,c2-1)=�E$+8888
�	n2-=1
��
�/� n2<max_elements � �E$>0 � em%(s,n,n2)=�E$
��
�	n2+=1
�)� �type=5 � v=c:�stopdotmult:�dotmult
�� c=lastc � c=256
�lastc=c
�)� c>�W$ � err � c<0 � n2>max_elements
��stopdotmult
��
� n

� s
�

(� �stopdotmult
2=� (�type=5 � �type=3 � c>�W$ � n2>max_elements) � cryst �
<� c2=crystpos � n2-1
Fns%(s,n,c2)=cryst
P� c2
Zns%(s,n,n2)=cryst+8888
dcryst=0
ncrystpos=0
x�
��
�
�� �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$:E$=""
crystpos=n2
�
"c+=1
,�
6�
@�
J
T� �type
^C$=�W$,c,1)
htt=-1:A=�(C$)
r� A>=97 � A<=122 � tt=0
|� A>=65 � A<=90 � tt=1
�� A>=48 � A<=57 � tt=2
�� A=40 � tt=3
�� A=41 � tt=4
�� 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

� �compoundicons
*height=-80:pos=0:pos2=0:pos3=0:ram$=""
&
� s=0 � 1
0,� �ram$,3)=" + " � ram$=�ram$,�(ram$)-3)
:� s=1 � ram$+=" =====> "
D� n=0 � max_comps1
N� forms$(s,n)>"" �
Xcalc$=�showcalc(s,n)
b
nogo=0
l� �
v� � � � "EVAL error":nogo=1
�� nogo=0 �
�tot$=�(�(calc$))+" g"
�� forms$(s,n)
�� calc$+" = "+tot$
�ram$=ram$+tot$+" + "
��
�� �
��
�� n
� � ram$="" � s=0 � ram$="0 g"
�� s
�,� �ram$,3)=" + " � ram$=�ram$,�(ram$)-3)
�%� �ram$,2)="> " � ram$=ram$+" 0g"
�

� �showcalc(s1,n1)
 out$="":cm=0:bs=0:mult=0
*� c=0 � max_elements
4e=e%(s1,n1,c)
>	� e �
H � c=0 � plus$="" � plus$="+"
R4� c=0 � m%(s1,n1) � out$+=�(m%(s1,n1))+"*(":cm=1
\� ns%(s1,n1,c) � bs=0 �
f!out$+=plus$+"(":bs=1:plus$=""
pD� ns%(s1,n1,c)>8000 � mult=ns%(s1,n1,c)-8888 � mult=ns%(s1,n1,c)
z�
�p� em%(s1,n1,c) � out$+=plus$+"("+��(atms%(e)/10),4)+"*"+�(em%(s1,n1,c))+")" � out$+=plus$+��(atms%(e)/10),4)
��
�
�3� bs=1 � (ns%(s1,n1,c)>8000 � ns%(s1,n1,c)=0) �
�-� mult>0 � out$+=")*"+�(mult) � out$+=")"
�bs=0:mult=0
��
�� c
�� cm=1 � out$+=")"
�	=out$
�

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 10 de 20  65 25 28 31 2c 35 2c 31  |:...... e%(1,5,1|
00000030  35 29 0d 00 1e 11 de 20  65 6d 25 28 31 2c 35 2c  |5)..... em%(1,5,|
00000040  31 35 29 0d 00 28 11 de  20 6e 65 25 28 31 2c 35  |15)..(.. ne%(1,5|
00000050  2c 31 35 29 0d 00 32 11  de 20 6e 73 25 28 31 2c  |,15)..2.. ns%(1,|
00000060  35 2c 31 35 29 0d 00 3c  0d de 20 6d 25 28 31 2c  |5,15)..<.. m%(1,|
00000070  35 29 0d 00 46 11 de 20  66 6f 72 6d 73 24 28 31  |5)..F.. forms$(1|
00000080  2c 35 29 0d 00 50 0f de  20 73 79 6d 24 28 31 31  |,5)..P.. sym$(11|
00000090  30 29 0d 00 5a 10 de 20  6e 61 6d 65 24 28 31 31  |0)..Z.. name$(11|
000000a0  30 29 0d 00 64 10 de 20  61 74 6e 6f 25 28 31 31  |0)..d.. atno%(11|
000000b0  30 29 0d 00 6e 10 de 20  61 74 6d 73 25 28 31 31  |0)..n.. atms%(11|
000000c0  30 29 0d 00 78 10 6d 61  78 5f 63 6f 6d 70 73 31  |0)..x.max_comps1|
000000d0  3d 35 0d 00 82 13 6d 61  78 5f 65 6c 65 6d 65 6e  |=5....max_elemen|
000000e0  74 73 3d 31 35 0d 00 8c  0a f2 73 65 74 75 70 0d  |ts=15.....setup.|
000000f0  00 96 20 f2 62 72 65 61  6b 64 6f 77 6e 28 30 2c  |.. .breakdown(0,|
00000100  22 43 75 28 53 4f 34 29  32 2e 48 32 4f 22 29 0d  |"Cu(SO4)2.H2O").|
00000110  00 a0 10 f2 61 6e 61 6c  79 73 69 73 28 30 29 0d  |....analysis(0).|
00000120  00 aa 12 f2 63 6f 6d 70  6f 75 6e 64 69 63 6f 6e  |....compoundicon|
00000130  73 0d 00 b4 05 e0 0d 00  be 04 0d 00 c8 0c dd 20  |s.............. |
00000140  f2 73 65 74 75 70 0d 00  d2 1d 46 3d 8e 20 22 3c  |.setup....F=. "<|
00000150  43 68 65 6d 24 44 69 72  3e 2e 43 68 65 6d 44 61  |Chem$Dir>.ChemDa|
00000160  74 61 22 0d 00 dc 07 6e  3d 31 0d 00 e6 0d 73 70  |ta"....n=1....sp|
00000170  61 63 65 25 3d 36 38 0d  00 f0 05 f5 0d 00 fa 0a  |ace%=68.........|
00000180  4c 24 3d be 23 46 0d 01  04 1f 70 31 3d a7 4c 24  |L$=.#F....p1=.L$|
00000190  2c 22 21 22 29 2b 31 3a  70 32 3d a7 4c 24 2c 22  |,"!")+1:p2=.L$,"|
000001a0  40 22 29 2b 31 0d 01 0e  1f 70 33 3d a7 4c 24 2c  |@")+1....p3=.L$,|
000001b0  22 23 22 29 2b 31 3a 70  34 3d a7 4c 24 2c 22 24  |"#")+1:p4=.L$,"$|
000001c0  22 29 2b 31 0d 01 18 1f  70 35 3d a7 4c 24 2c 22  |")+1....p5=.L$,"|
000001d0  25 22 29 2b 31 3a 70 36  3d a7 4c 24 2c 22 5e 22  |%")+1:p6=.L$,"^"|
000001e0  29 2b 31 0d 01 22 27 78  3d bb 28 c1 4c 24 2c 30  |)+1.."'x=.(.L$,0|
000001f0  2c 70 31 29 29 2d 31 3a  79 3d bb 28 c1 4c 24 2c  |,p1))-1:y=.(.L$,|
00000200  70 31 2c 70 32 2d 70 31  29 29 0d 01 2c 2c 53 79  |p1,p2-p1))..,,Sy|
00000210  6d 24 3d c1 4c 24 2c 70  32 2c 70 33 2d 70 32 2d  |m$=.L$,p2,p3-p2-|
00000220  31 29 3a 4e 6d 24 3d c1  4c 24 2c 70 33 2c 70 34  |1):Nm$=.L$,p3,p4|
00000230  2d 70 33 2d 31 29 0d 01  36 2b 6e 31 3d bb 28 c1  |-p3-1)..6+n1=.(.|
00000240  4c 24 2c 70 34 2c 70 35  2d 70 34 29 29 3a 6e 32  |L$,p4,p5-p4)):n2|
00000250  3d bb 28 c1 4c 24 2c 70  35 2c 70 36 2d 70 35 29  |=.(.L$,p5,p6-p5)|
00000260  29 0d 01 40 0c e7 20 70  31 3e 31 20 8c 0d 01 4a  |)..@.. p1>1 ...J|
00000270  38 73 79 6d 24 28 6e 29  3d 53 79 6d 24 3a 6e 61  |8sym$(n)=Sym$:na|
00000280  6d 65 24 28 6e 29 3d 4e  6d 24 3a 61 74 6d 73 25  |me$(n)=Nm$:atms%|
00000290  28 6e 29 3d 6e 31 2a 31  30 3a 61 74 6e 6f 25 28  |(n)=n1*10:atno%(|
000002a0  6e 29 3d 6e 32 0d 01 54  08 6e 2b 3d 31 0d 01 5e  |n)=n2..T.n+=1..^|
000002b0  05 cd 0d 01 68 09 fd 20  c5 23 46 0d 01 72 07 d9  |....h.. .#F..r..|
000002c0  23 46 0d 01 7c 05 e1 0d  01 86 04 0d 01 90 16 dd  |#F..|...........|
000002d0  20 f2 62 72 65 61 6b 64  6f 77 6e 28 73 2c 57 24  | .breakdown(s,W$|
000002e0  29 0d 01 9a 0d 45 24 3d  22 22 3a 6e 3d 30 0d 01  |)....E$="":n=0..|
000002f0  a4 11 e3 20 63 3d 31 20  b8 20 a9 28 57 24 29 0d  |... c=1 . .(W$).|
00000300  01 ae 0f 43 24 3d c1 57  24 2c 63 2c 31 29 0d 01  |...C$=.W$,c,1)..|
00000310  b8 0e e7 20 43 24 3d 22  2b 22 20 8c 0d 01 c2 1d  |... C$="+" .....|
00000320  66 6f 72 6d 73 24 28 73  2c 6e 29 3d 45 24 3a 45  |forms$(s,n)=E$:E|
00000330  24 3d 22 22 3a 6e 2b 3d  31 0d 01 cc 05 cc 0d 01  |$="":n+=1.......|
00000340  d6 0c 45 24 3d 45 24 2b  43 24 0d 01 e0 05 cd 0d  |..E$=E$+C$......|
00000350  01 ea 28 e7 20 6e 3e 3d  6d 61 78 5f 63 6f 6d 70  |..(. n>=max_comp|
00000360  73 31 20 8c 20 65 72 72  3d 32 3a 65 72 72 31 3d  |s1 . err=2:err1=|
00000370  73 3a 63 3d a9 57 24 0d  01 f4 06 ed 63 0d 01 fe  |s:c=.W$.....c...|
00000380  24 e7 20 6e 3c 3d 6d 61  78 5f 63 6f 6d 70 73 31  |$. n<=max_comps1|
00000390  20 8c 20 66 6f 72 6d 73  24 28 73 2c 6e 29 3d 45  | . forms$(s,n)=E|
000003a0  24 0d 02 08 05 e1 0d 02  12 04 0d 02 1c 0d dd 20  |$.............. |
000003b0  f2 64 65 63 6f 64 65 0d  02 26 0e f2 63 6c 65 61  |.decode..&..clea|
000003c0  72 76 61 72 73 0d 02 30  15 f2 62 72 65 61 6b 64  |rvars..0..breakd|
000003d0  6f 77 6e 28 30 2c 69 6e  24 29 0d 02 3a 16 f2 62  |own(0,in$)..:..b|
000003e0  72 65 61 6b 64 6f 77 6e  28 31 2c 6f 75 74 24 29  |reakdown(1,out$)|
000003f0  0d 02 44 1a e7 20 65 72  72 3d 30 20 8c 20 f2 61  |..D.. err=0 . .a|
00000400  6e 61 6c 79 73 69 73 28  30 29 0d 02 4e 05 e1 0d  |nalysis(0)..N...|
00000410  02 58 04 0d 02 62 16 dd  20 f2 61 6e 61 6c 79 73  |.X...b.. .analys|
00000420  69 73 28 77 68 61 74 25  29 0d 02 6c 26 65 72 72  |is(what%)..l&err|
00000430  3d 30 3a 65 72 72 31 3d  30 3a 65 72 72 32 3d 30  |=0:err1=0:err2=0|
00000440  3a 65 72 72 33 3d 30 3a  65 72 72 24 3d 22 22 0d  |:err3=0:err$="".|
00000450  02 76 0d e3 20 73 3d 30  20 b8 20 31 0d 02 80 16  |.v.. s=0 . 1....|
00000460  e3 20 6e 3d 30 20 b8 20  6d 61 78 5f 63 6f 6d 70  |. n=0 . max_comp|
00000470  73 31 0d 02 8a 1e e7 20  77 68 61 74 25 3d 31 20  |s1..... what%=1 |
00000480  8c 20 6e 3d 6d 61 78 5f  63 6f 6d 70 73 31 2b 31  |. n=max_comps1+1|
00000490  0d 02 94 12 57 24 3d 66  6f 72 6d 73 24 28 73 2c  |....W$=forms$(s,|
000004a0  6e 29 0d 02 9e 0d e7 20  57 24 3e 22 22 20 8c 0d  |n)..... W$>"" ..|
000004b0  02 a8 0f e3 20 63 3d 31  20 b8 20 a9 57 24 0d 02  |.... c=1 . .W$..|
000004c0  b2 0f e7 20 a4 74 79 70  65 3d 34 20 8c 0d 02 bc  |... .type=4 ....|
000004d0  08 63 2b 3d 31 0d 02 c6  29 e7 20 a4 74 79 70 65  |.c+=1...). .type|
000004e0  3c 3e 32 20 8c 20 57 24  3d c0 57 24 2c 63 2d 32  |<>2 . W$=.W$,c-2|
000004f0  29 2b c2 57 24 2c a9 57  24 2d 63 2b 31 29 0d 02  |)+.W$,.W$-c+1)..|
00000500  d0 05 cd 0d 02 da 07 ed  20 63 0d 02 e4 07 63 3d  |........ c....c=|
00000510  31 0d 02 ee 0f e7 20 a4  74 79 70 65 3d 32 20 8c  |1..... .type=2 .|
00000520  0d 02 f8 09 45 24 3d 22  22 0d 03 02 05 f5 0d 03  |....E$="".......|
00000530  0c 08 63 2b 3d 31 0d 03  16 0a 45 24 2b 3d 43 24  |..c+=1....E$+=C$|
00000540  0d 03 20 25 fd 20 a4 74  79 70 65 3c 32 20 84 20  |.. %. .type<2 . |
00000550  a4 74 79 70 65 3d 33 20  84 20 63 3e a9 57 24 20  |.type=3 . c>.W$ |
00000560  84 20 65 72 72 0d 03 2a  0f 6d 25 28 73 2c 6e 29  |. err..*.m%(s,n)|
00000570  3d bb 45 24 0d 03 34 19  e7 20 6d 25 28 73 2c 6e  |=.E$..4.. m%(s,n|
00000580  29 3e 39 39 39 20 8c 20  65 72 72 3d 34 0d 03 3e  |)>999 . err=4..>|
00000590  05 cd 0d 03 48 33 6e 32  3d 30 3a 62 3d 30 3a 62  |....H3n2=0:b=0:b|
000005a0  72 73 74 3d 30 3a 72 3d  30 3a 6e 6f 6d 75 6c 74  |rst=0:r=0:nomult|
000005b0  3d 30 3a 63 72 79 73 74  3d 30 3a 63 72 79 73 74  |=0:cryst=0:cryst|
000005c0  70 6f 73 3d 30 0d 03 52  05 f5 0d 03 5c 11 45 24  |pos=0..R....\.E$|
000005d0  3d 22 22 3a 6c 61 73 74  63 3d 30 0d 03 66 10 6c  |="":lastc=0..f.l|
000005e0  6f 6f 70 63 68 65 63 6b  32 3d 30 0d 03 70 05 f5  |oopcheck2=0..p..|
000005f0  0d 03 7a 20 e7 20 a4 74  79 70 65 3d 33 20 8c 20  |..z . .type=3 . |
00000600  62 3d 31 3a 63 2b 3d 31  3a 62 72 73 74 3d 6e 32  |b=1:c+=1:brst=n2|
00000610  0d 03 84 1b e7 20 a4 74  79 70 65 3c 32 20 8c 20  |..... .type<2 . |
00000620  45 24 2b 3d 43 24 3a 63  2b 3d 31 0d 03 8e 1a e7  |E$+=C$:c+=1.....|
00000630  20 6c 6f 6f 70 63 68 65  63 6b 32 3d 63 20 8c 20  | loopcheck2=c . |
00000640  63 3d 32 35 36 0d 03 98  10 6c 6f 6f 70 63 68 65  |c=256....loopche|
00000650  63 6b 32 3d 63 0d 03 a2  26 fd 20 a4 74 79 70 65  |ck2=c...&. .type|
00000660  3d 2d 31 20 84 20 a4 74  79 70 65 3e 30 20 84 20  |=-1 . .type>0 . |
00000670  63 3e a9 57 24 20 84 20  65 72 72 0d 03 ac 15 69  |c>.W$ . err....i|
00000680  64 3d a4 73 79 6d 5f 74  6f 5f 69 64 28 45 24 29  |d=.sym_to_id(E$)|
00000690  0d 03 b6 0d e7 20 69 64  3d 2d 31 20 8c 0d 03 c0  |..... id=-1 ....|
000006a0  37 e7 20 45 24 3e 22 22  20 8c 20 65 72 72 3d 31  |7. E$>"" . err=1|
000006b0  3a 65 72 72 24 3d 45 24  3a 65 72 72 31 3d 73 3a  |:err$=E$:err1=s:|
000006c0  65 72 72 32 3d 6e 3a 65  72 72 33 3d 6e 32 3a 45  |err2=n:err3=n2:E|
000006d0  24 3d 22 22 0d 03 ca 05  cc 0d 03 d4 46 e7 20 6e  |$=""........F. n|
000006e0  32 3e 6d 61 78 5f 65 6c  65 6d 65 6e 74 73 20 8c  |2>max_elements .|
000006f0  20 65 72 72 3d 35 3a 65  72 72 24 3d 45 24 3a 65  | err=5:err$=E$:e|
00000700  72 72 31 3d 73 20 8b 20  45 24 3d 22 22 3a 72 3d  |rr1=s . E$="":r=|
00000710  30 3a 65 25 28 73 2c 6e  2c 6e 32 29 3d 69 64 0d  |0:e%(s,n,n2)=id.|
00000720  03 de 05 cd 0d 03 e8 18  6c 6f 6f 70 63 68 65 63  |........loopchec|
00000730  6b 31 3d 30 3a 63 68 65  63 6b 3d 30 0d 03 f2 05  |k1=0:check=0....|
00000740  f5 0d 03 fc 1b e7 20 a4  74 79 70 65 3d 32 20 8c  |...... .type=2 .|
00000750  20 45 24 2b 3d 43 24 3a  63 2b 3d 31 0d 04 06 1c  | E$+=C$:c+=1....|
00000760  e7 20 62 3d 2d 31 20 8c  20 62 3d 30 3a 72 3d 31  |. b=-1 . b=0:r=1|
00000770  3a 63 68 65 63 6b 3d 31  0d 04 10 26 e7 20 a4 74  |:check=1...&. .t|
00000780  79 70 65 3d 34 20 8c 20  62 3d 2d 31 3a f2 73 74  |ype=4 . b=-1:.st|
00000790  6f 70 64 6f 74 6d 75 6c  74 3a 63 2b 3d 31 0d 04  |opdotmult:c+=1..|
000007a0  1a 1a e7 20 6c 6f 6f 70  63 68 65 63 6b 31 3d 63  |... loopcheck1=c|
000007b0  20 8c 20 63 3d 32 35 36  0d 04 24 10 6c 6f 6f 70  | . c=256..$.loop|
000007c0  63 68 65 63 6b 31 3d 63  0d 04 2e 2c fd 20 a4 74  |check1=c...,. .t|
000007d0  79 70 65 3d 31 20 84 20  63 3e a9 57 24 20 84 20  |ype=1 . c>.W$ . |
000007e0  a4 74 79 70 65 3e 32 20  84 20 62 3d 2d 31 20 84  |.type>2 . b=-1 .|
000007f0  20 65 72 72 0d 04 38 10  f2 73 74 6f 70 64 6f 74  | err..8..stopdot|
00000800  6d 75 6c 74 0d 04 42 15  e7 20 a4 74 79 70 65 3d  |mult..B.. .type=|
00000810  2d 31 20 8c 20 63 2b 3d  31 0d 04 4c 18 e7 20 bb  |-1 . c+=1..L.. .|
00000820  45 24 3d 30 20 80 20 72  3d 31 20 8c 20 63 2d 3d  |E$=0 . r=1 . c-=|
00000830  31 0d 04 56 13 e7 20 72  3d 31 20 80 20 bb 45 24  |1..V.. r=1 . .E$|
00000840  3e 30 20 8c 0d 04 60 07  72 3d 30 0d 04 6a 14 e3  |>0 ...`.r=0..j..|
00000850  20 63 32 3d 62 72 73 74  20 b8 20 6e 32 2d 31 0d  | c2=brst . n2-1.|
00000860  04 74 13 6e 73 25 28 73  2c 6e 2c 63 32 29 3d bb  |.t.ns%(s,n,c2)=.|
00000870  45 24 0d 04 7e 08 ed 20  63 32 0d 04 88 1a 6e 73  |E$..~.. c2....ns|
00000880  25 28 73 2c 6e 2c 63 32  2d 31 29 3d bb 45 24 2b  |%(s,n,c2-1)=.E$+|
00000890  38 38 38 38 0d 04 92 09  6e 32 2d 3d 31 0d 04 9c  |8888....n2-=1...|
000008a0  05 cc 0d 04 a6 2f e7 20  6e 32 3c 6d 61 78 5f 65  |...../. n2<max_e|
000008b0  6c 65 6d 65 6e 74 73 20  80 20 bb 45 24 3e 30 20  |lements . .E$>0 |
000008c0  8c 20 65 6d 25 28 73 2c  6e 2c 6e 32 29 3d bb 45  |. em%(s,n,n2)=.E|
000008d0  24 0d 04 b0 05 cd 0d 04  ba 09 6e 32 2b 3d 31 0d  |$.........n2+=1.|
000008e0  04 c4 29 e7 20 a4 74 79  70 65 3d 35 20 8c 20 76  |..). .type=5 . v|
000008f0  3d 63 3a f2 73 74 6f 70  64 6f 74 6d 75 6c 74 3a  |=c:.stopdotmult:|
00000900  f2 64 6f 74 6d 75 6c 74  0d 04 ce 15 e7 20 63 3d  |.dotmult..... c=|
00000910  6c 61 73 74 63 20 8c 20  63 3d 32 35 36 0d 04 d8  |lastc . c=256...|
00000920  0b 6c 61 73 74 63 3d 63  0d 04 e2 29 fd 20 63 3e  |.lastc=c...). c>|
00000930  a9 57 24 20 84 20 65 72  72 20 84 20 63 3c 30 20  |.W$ . err . c<0 |
00000940  84 20 6e 32 3e 6d 61 78  5f 65 6c 65 6d 65 6e 74  |. n2>max_element|
00000950  73 0d 04 ec 10 f2 73 74  6f 70 64 6f 74 6d 75 6c  |s.....stopdotmul|
00000960  74 0d 04 f6 05 cd 0d 05  00 07 ed 20 6e 0d 05 0a  |t.......... n...|
00000970  07 ed 20 73 0d 05 14 05  e1 0d 05 1e 04 0d 05 28  |.. s...........(|
00000980  12 dd 20 f2 73 74 6f 70  64 6f 74 6d 75 6c 74 0d  |.. .stopdotmult.|
00000990  05 32 3d e7 20 28 a4 74  79 70 65 3d 35 20 84 20  |.2=. (.type=5 . |
000009a0  a4 74 79 70 65 3d 33 20  84 20 63 3e a9 57 24 20  |.type=3 . c>.W$ |
000009b0  84 20 6e 32 3e 6d 61 78  5f 65 6c 65 6d 65 6e 74  |. n2>max_element|
000009c0  73 29 20 80 20 63 72 79  73 74 20 8c 0d 05 3c 18  |s) . cryst ...<.|
000009d0  e3 20 63 32 3d 63 72 79  73 74 70 6f 73 20 b8 20  |. c2=crystpos . |
000009e0  6e 32 2d 31 0d 05 46 15  6e 73 25 28 73 2c 6e 2c  |n2-1..F.ns%(s,n,|
000009f0  63 32 29 3d 63 72 79 73  74 0d 05 50 08 ed 20 63  |c2)=cryst..P.. c|
00000a00  32 0d 05 5a 1a 6e 73 25  28 73 2c 6e 2c 6e 32 29  |2..Z.ns%(s,n,n2)|
00000a10  3d 63 72 79 73 74 2b 38  38 38 38 0d 05 64 0b 63  |=cryst+8888..d.c|
00000a20  72 79 73 74 3d 30 0d 05  6e 0e 63 72 79 73 74 70  |ryst=0..n.crystp|
00000a30  6f 73 3d 30 0d 05 78 05  cd 0d 05 82 05 e1 0d 05  |os=0..x.........|
00000a40  8c 04 0d 05 96 0e dd 20  f2 64 6f 74 6d 75 6c 74  |....... .dotmult|
00000a50  0d 05 a0 0f e7 20 a4 74  79 70 65 3d 35 20 8c 0d  |..... .type=5 ..|
00000a60  05 aa 15 63 2b 3d 31 3a  78 3d a4 74 79 70 65 3a  |...c+=1:x=.type:|
00000a70  63 2d 3d 31 0d 05 b4 0b  e7 20 78 3d 32 20 8c 0d  |c-=1..... x=2 ..|
00000a80  05 be 09 45 24 3d 22 22  0d 05 c8 08 63 2b 3d 31  |...E$=""....c+=1|
00000a90  0d 05 d2 05 f5 0d 05 dc  0e 6e 75 6c 6c 3d a4 74  |.........null=.t|
00000aa0  79 70 65 0d 05 e6 0a 45  24 2b 3d 43 24 0d 05 f0  |ype....E$+=C$...|
00000ab0  08 63 2b 3d 31 0d 05 fa  1c fd 20 a4 74 79 70 65  |.c+=1..... .type|
00000ac0  3c 3e 32 20 84 20 63 3e  a9 57 24 20 84 20 65 72  |<>2 . c>.W$ . er|
00000ad0  72 0d 06 04 13 63 72 79  73 74 3d bb 45 24 3a 45  |r....cryst=.E$:E|
00000ae0  24 3d 22 22 0d 06 0e 0f  63 72 79 73 74 70 6f 73  |$=""....crystpos|
00000af0  3d 6e 32 0d 06 18 05 cc  0d 06 22 08 63 2b 3d 31  |=n2.......".c+=1|
00000b00  0d 06 2c 05 cd 0d 06 36  05 cd 0d 06 40 05 e1 0d  |..,....6....@...|
00000b10  06 4a 04 0d 06 54 0b dd  20 a4 74 79 70 65 0d 06  |.J...T.. .type..|
00000b20  5e 0f 43 24 3d c1 57 24  2c 63 2c 31 29 0d 06 68  |^.C$=.W$,c,1)..h|
00000b30  11 74 74 3d 2d 31 3a 41  3d 97 28 43 24 29 0d 06  |.tt=-1:A=.(C$)..|
00000b40  72 1b e7 20 41 3e 3d 39  37 20 80 20 41 3c 3d 31  |r.. A>=97 . A<=1|
00000b50  32 32 20 8c 20 74 74 3d  30 0d 06 7c 1a e7 20 41  |22 . tt=0..|.. A|
00000b60  3e 3d 36 35 20 80 20 41  3c 3d 39 30 20 8c 20 74  |>=65 . A<=90 . t|
00000b70  74 3d 31 0d 06 86 1a e7  20 41 3e 3d 34 38 20 80  |t=1..... A>=48 .|
00000b80  20 41 3c 3d 35 37 20 8c  20 74 74 3d 32 0d 06 90  | A<=57 . tt=2...|
00000b90  11 e7 20 41 3d 34 30 20  8c 20 74 74 3d 33 0d 06  |.. A=40 . tt=3..|
00000ba0  9a 11 e7 20 41 3d 34 31  20 8c 20 74 74 3d 34 0d  |... A=41 . tt=4.|
00000bb0  06 a4 11 e7 20 41 3d 34  36 20 8c 20 74 74 3d 35  |.... A=46 . tt=5|
00000bc0  0d 06 ae 07 3d 74 74 0d  06 b8 04 0d 06 c2 15 dd  |....=tt.........|
00000bd0  20 a4 73 79 6d 5f 74 6f  5f 69 64 28 63 68 24 29  | .sym_to_id(ch$)|
00000be0  0d 06 cc 09 66 62 3d 2d  31 0d 06 d6 10 e3 20 66  |....fb=-1..... f|
00000bf0  64 3d 30 20 b8 20 31 30  37 0d 06 e0 2a e7 20 63  |d=0 . 107...*. c|
00000c00  68 24 3d 73 79 6d 24 28  66 64 29 20 80 20 63 68  |h$=sym$(fd) . ch|
00000c10  24 3e 22 22 20 8c 20 66  62 3d 66 64 3a 66 64 3d  |$>"" . fb=fd:fd=|
00000c20  31 30 37 0d 06 ea 08 ed  20 66 64 0d 06 f4 14 e7  |107..... fd.....|
00000c30  20 63 68 24 3d 22 22 20  8c 20 66 62 3d 2d 31 0d  | ch$="" . fb=-1.|
00000c40  06 fe 07 3d 66 62 0d 07  08 04 0d 07 12 14 dd 20  |...=fb......... |
00000c50  f2 63 6f 6d 70 6f 75 6e  64 69 63 6f 6e 73 0d 07  |.compoundicons..|
00000c60  1c 2a 68 65 69 67 68 74  3d 2d 38 30 3a 70 6f 73  |.*height=-80:pos|
00000c70  3d 30 3a 70 6f 73 32 3d  30 3a 70 6f 73 33 3d 30  |=0:pos2=0:pos3=0|
00000c80  3a 72 61 6d 24 3d 22 22  0d 07 26 0d e3 20 73 3d  |:ram$=""..&.. s=|
00000c90  30 20 b8 20 31 0d 07 30  2c e7 20 c2 72 61 6d 24  |0 . 1..0,. .ram$|
00000ca0  2c 33 29 3d 22 20 2b 20  22 20 8c 20 72 61 6d 24  |,3)=" + " . ram$|
00000cb0  3d c0 72 61 6d 24 2c a9  28 72 61 6d 24 29 2d 33  |=.ram$,.(ram$)-3|
00000cc0  29 0d 07 3a 1c e7 20 73  3d 31 20 8c 20 72 61 6d  |)..:.. s=1 . ram|
00000cd0  24 2b 3d 22 20 3d 3d 3d  3d 3d 3e 20 22 0d 07 44  |$+=" =====> "..D|
00000ce0  16 e3 20 6e 3d 30 20 b8  20 6d 61 78 5f 63 6f 6d  |.. n=0 . max_com|
00000cf0  70 73 31 0d 07 4e 16 e7  20 66 6f 72 6d 73 24 28  |ps1..N.. forms$(|
00000d00  73 2c 6e 29 3e 22 22 20  8c 0d 07 58 18 63 61 6c  |s,n)>"" ...X.cal|
00000d10  63 24 3d a4 73 68 6f 77  63 61 6c 63 28 73 2c 6e  |c$=.showcalc(s,n|
00000d20  29 0d 07 62 0a 6e 6f 67  6f 3d 30 0d 07 6c 07 ea  |)..b.nogo=0..l..|
00000d30  20 85 0d 07 76 1f ee 20  85 20 ea 20 f1 20 22 45  | ...v.. . . . "E|
00000d40  56 41 4c 20 65 72 72 6f  72 22 3a 6e 6f 67 6f 3d  |VAL error":nogo=|
00000d50  31 0d 07 80 0e e7 20 6e  6f 67 6f 3d 30 20 8c 0d  |1..... nogo=0 ..|
00000d60  07 8a 19 74 6f 74 24 3d  c3 28 a0 28 63 61 6c 63  |...tot$=.(.(calc|
00000d70  24 29 29 2b 22 20 67 22  0d 07 94 11 f1 20 66 6f  |$))+" g"..... fo|
00000d80  72 6d 73 24 28 73 2c 6e  29 0d 07 9e 16 f1 20 63  |rms$(s,n)..... c|
00000d90  61 6c 63 24 2b 22 20 3d  20 22 2b 74 6f 74 24 0d  |alc$+" = "+tot$.|
00000da0  07 a8 18 72 61 6d 24 3d  72 61 6d 24 2b 74 6f 74  |...ram$=ram$+tot|
00000db0  24 2b 22 20 2b 20 22 0d  07 b2 05 cd 0d 07 bc 07  |$+" + ".........|
00000dc0  f7 20 85 0d 07 c6 05 cd  0d 07 d0 07 ed 20 6e 0d  |. ........... n.|
00000dd0  07 da 20 e7 20 72 61 6d  24 3d 22 22 20 80 20 73  |.. . ram$="" . s|
00000de0  3d 30 20 8c 20 72 61 6d  24 3d 22 30 20 67 22 0d  |=0 . ram$="0 g".|
00000df0  07 e4 07 ed 20 73 0d 07  ee 2c e7 20 c2 72 61 6d  |.... s...,. .ram|
00000e00  24 2c 33 29 3d 22 20 2b  20 22 20 8c 20 72 61 6d  |$,3)=" + " . ram|
00000e10  24 3d c0 72 61 6d 24 2c  a9 28 72 61 6d 24 29 2d  |$=.ram$,.(ram$)-|
00000e20  33 29 0d 07 f8 25 e7 20  c2 72 61 6d 24 2c 32 29  |3)...%. .ram$,2)|
00000e30  3d 22 3e 20 22 20 8c 20  72 61 6d 24 3d 72 61 6d  |="> " . ram$=ram|
00000e40  24 2b 22 20 30 67 22 0d  08 02 05 e1 0d 08 0c 04  |$+" 0g".........|
00000e50  0d 08 16 16 dd 20 a4 73  68 6f 77 63 61 6c 63 28  |..... .showcalc(|
00000e60  73 31 2c 6e 31 29 0d 08  20 1c 6f 75 74 24 3d 22  |s1,n1).. .out$="|
00000e70  22 3a 63 6d 3d 30 3a 62  73 3d 30 3a 6d 75 6c 74  |":cm=0:bs=0:mult|
00000e80  3d 30 0d 08 2a 18 e3 20  63 3d 30 20 b8 20 6d 61  |=0..*.. c=0 . ma|
00000e90  78 5f 65 6c 65 6d 65 6e  74 73 0d 08 34 11 65 3d  |x_elements..4.e=|
00000ea0  65 25 28 73 31 2c 6e 31  2c 63 29 0d 08 3e 09 e7  |e%(s1,n1,c)..>..|
00000eb0  20 65 20 8c 0d 08 48 20  e7 20 63 3d 30 20 8c 20  | e ...H . c=0 . |
00000ec0  70 6c 75 73 24 3d 22 22  20 8b 20 70 6c 75 73 24  |plus$="" . plus$|
00000ed0  3d 22 2b 22 0d 08 52 34  e7 20 63 3d 30 20 80 20  |="+"..R4. c=0 . |
00000ee0  6d 25 28 73 31 2c 6e 31  29 20 8c 20 6f 75 74 24  |m%(s1,n1) . out$|
00000ef0  2b 3d c3 28 6d 25 28 73  31 2c 6e 31 29 29 2b 22  |+=.(m%(s1,n1))+"|
00000f00  2a 28 22 3a 63 6d 3d 31  0d 08 5c 1b e7 20 6e 73  |*(":cm=1..\.. ns|
00000f10  25 28 73 31 2c 6e 31 2c  63 29 20 80 20 62 73 3d  |%(s1,n1,c) . bs=|
00000f20  30 20 8c 0d 08 66 21 6f  75 74 24 2b 3d 70 6c 75  |0 ...f!out$+=plu|
00000f30  73 24 2b 22 28 22 3a 62  73 3d 31 3a 70 6c 75 73  |s$+"(":bs=1:plus|
00000f40  24 3d 22 22 0d 08 70 44  e7 20 6e 73 25 28 73 31  |$=""..pD. ns%(s1|
00000f50  2c 6e 31 2c 63 29 3e 38  30 30 30 20 8c 20 6d 75  |,n1,c)>8000 . mu|
00000f60  6c 74 3d 6e 73 25 28 73  31 2c 6e 31 2c 63 29 2d  |lt=ns%(s1,n1,c)-|
00000f70  38 38 38 38 20 8b 20 6d  75 6c 74 3d 6e 73 25 28  |8888 . mult=ns%(|
00000f80  73 31 2c 6e 31 2c 63 29  0d 08 7a 05 cd 0d 08 84  |s1,n1,c)..z.....|
00000f90  70 e7 20 65 6d 25 28 73  31 2c 6e 31 2c 63 29 20  |p. em%(s1,n1,c) |
00000fa0  8c 20 6f 75 74 24 2b 3d  70 6c 75 73 24 2b 22 28  |. out$+=plus$+"(|
00000fb0  22 2b c0 c3 28 61 74 6d  73 25 28 65 29 2f 31 30  |"+..(atms%(e)/10|
00000fc0  29 2c 34 29 2b 22 2a 22  2b c3 28 65 6d 25 28 73  |),4)+"*"+.(em%(s|
00000fd0  31 2c 6e 31 2c 63 29 29  2b 22 29 22 20 8b 20 6f  |1,n1,c))+")" . o|
00000fe0  75 74 24 2b 3d 70 6c 75  73 24 2b c0 c3 28 61 74  |ut$+=plus$+..(at|
00000ff0  6d 73 25 28 65 29 2f 31  30 29 2c 34 29 0d 08 8e  |ms%(e)/10),4)...|
00001000  05 cd 0d 08 98 04 0d 08  a2 33 e7 20 62 73 3d 31  |.........3. bs=1|
00001010  20 80 20 28 6e 73 25 28  73 31 2c 6e 31 2c 63 29  | . (ns%(s1,n1,c)|
00001020  3e 38 30 30 30 20 84 20  6e 73 25 28 73 31 2c 6e  |>8000 . ns%(s1,n|
00001030  31 2c 63 29 3d 30 29 20  8c 0d 08 ac 2d e7 20 6d  |1,c)=0) ....-. m|
00001040  75 6c 74 3e 30 20 8c 20  6f 75 74 24 2b 3d 22 29  |ult>0 . out$+=")|
00001050  2a 22 2b c3 28 6d 75 6c  74 29 20 8b 20 6f 75 74  |*"+.(mult) . out|
00001060  24 2b 3d 22 29 22 0d 08  b6 0f 62 73 3d 30 3a 6d  |$+=")"....bs=0:m|
00001070  75 6c 74 3d 30 0d 08 c0  05 cd 0d 08 ca 07 ed 20  |ult=0.......... |
00001080  63 0d 08 d4 16 e7 20 63  6d 3d 31 20 8c 20 6f 75  |c..... cm=1 . ou|
00001090  74 24 2b 3d 22 29 22 0d  08 de 09 3d 6f 75 74 24  |t$+=")"....=out$|
000010a0  0d ff                                             |..|
000010a2