!� ### Data base functions ###

� �index_load
(#F=� "<chem$dir>.Database.Index"
2$� n=0 � max_grp-1:ind$(n)="":� n
<n=0
F�
Pind$(n)=�#F
Zn+=1
d	� �#F
n�#F
x=n
�
�� �group_load(f)
�%file$="<chem$dir>.Database."+�(f)
�
F=� file$
�7� n=0 � max_comps2-1:comps$(n)="":comps2$(n)="":� n
�n=0
��
�
W$=�#F
�comps$(n)=�W$,�W$,"#")-1)
� comps2$(n)=�W$,�W$-�W$,"#"))
�n+=1
�	� �#F
��#F

=n



� �menusetupdims

"� index% 30*max_grp-1

,� n=0 � max_grp-1

6s%=�readfile + (line*50)

@� mu% s%

Jind%(n)=mu%

T� n

^�

h

r� �readfile

|� �

�nogo3=1

�� � � nogo3=0

�
� nogo3 �

�"f$="<Chem$Dir>.Database."+�(n)

�
F=� f$

�count=0

�
line=0

��

�
null$=�#F

�count+=�null$

�line+=1

�	� �#F

��
�#F

=count

&� �compoundmenus(what%)
0n1=�index_load
:� c=0 � n1-1
D� what%<>88 � c=what%
Nn2=�group_load(c)
X �menuheader(ind%(c),ind$(c))
b� n=1 � n2
l� n=n2 � mf=&80 � mf=0
v(�menuitem(ind%(c),mf,-1,comps$(n-1))
�� n
�� what%<>88 � c=n1-1
�� c
� �menuheader(index%,"Topics")
�� n=1 � n1
�� n=n1 � mf=&80 � mf=0
�,�menuitem(index%,mf,ind%(n-1),ind$(n-1))
�� n
��
�
�� �showdatabase
�$�icontext(dbase%,1,ind$(group%))
�$�icontext(dbase%,4,comps$(com%))
V� comps2$(com%)>"" �icontext(dbase%,0,comps2$(com%)) � �icontext(dbase%,0,notent$)
�setcaret(dbase%,0)
�setcaret(dbase%,1)
 �setcaret(dbase%,4)
*�
4
>� �file_error
H��usermessage("Sorry the file you are trying to alter","to is protected or does exist","E.g. a protected floppy disc","[ Line "+�(�)+" ]",""):err=1
R�
\
f� �save
p*file$="<chem$dir>.Database."+�(group%)
z	err=0
�� �
�� � � �file_error
�
� err=0 �
�
F=� file$
��sortAZ
�� n=0 � max_comps2-1
�1� comps$(n)>"" � �#F,comps$(n)+"#"+comps2$(n)
�� n
�� "SetType "+file$+" &BED"
��
��#F
�	err=0
��

� �delete(n)
comps$(n)="":comps2$(n)=""
$�
.comps$(n)=comps$(n+1)
8comps2$(n)=comps2$(n+1)
Bn+=1
L#� comps$(n)="" � n>max_comps2-1
V�
`
j
� �sortAZ
t3c=0:�:c+=1:� comps$(c)="" � c>max_comps2-1:c-=1
~� n2=0 � c
�� n=0 � c-1
�Q� comps$(n)>comps$(n+1) � Ȕ comps$(n),comps$(n+1):Ȕ comps2$(n),comps2$(n+1)
�� n
�� n2
��
�
�� �creategroup
�g$=�readicon(dbase%,1)
�)c=0:�:c+=1:�ind$(c)="" � c>=max_grp-1
�K� g$="" � c=20:�usermessage("Sorry, new groups nead names","","","","")
�\� c>max_grp-1 � �usermessage("Sorry only "+�(max_grp)+" groups are allowed","","","","")
�� c<11 �
ind$(c)=g$

group%=c
�indexsave
�compoundmenus(0)
(6� n=0 � max_comps2-1:comps2$(n)="":comps$(n)="":�n
2�showdatabase
<�closewin(sure%)
F�
P�
Z
d� �deletegroup(n)
n�closewin(sure%)
x	err=0
�� �
�� � � �file_error
�
� err=0 �
�ind$(n)=""
�� ind$(n+1)="" �
�(� "DELETE <Chem$Dir>.Database."+�(n)
��
��
�ind$(n)=ind$(n+1)
�M� "COPY <Chem$Dir>.Database."+�(n+1)+"  <Chem$Dir>.Database."+�(n)+"  ~C"
�n+=1
�� ind$(n)="" � n>=max_grp-1
��
�indexsave
�sortAZ
�compoundmenus(0)
"group%=0
,�showdatabase
6�
@	err=0
J�
T
^� �indexsave
h	err=0
r� � � �file_error
|
� err=0 �
�#F=� "<chem$dir>.Database.Index"
�)c=0:�:c+=1:�ind$(c)="" � c>=max_grp-1
�
� n=1 � c
��#F,ind$(n-1)
�� n
��#F
��
�
� "CLOSE"
��
�� �
�� �
��
�
� �add(item$)
0c=-1:�:c+=1:� comps$(c)="" � c>=max_comps2-1
	ng%=1
&s� item$="" � �usermessage("If you want to add a chemical please","enter one and click on O.K.","","","") :ng%=0
0�� c>max_comps2-1 � �usermessage("Sorry you can only have "+�(max_comps2)+" compounds","per group and only 11 groups","","",""):ng%=0
:� ng% �
Dcomps$(c)=item$
N	�save
Xnull%=�group_load(group%)
b�compoundmenus(group%)
l�closewin(add%)
v2c=-1:�:c+=1:� comps$(c)=item$ � c>max_comps2-1
�
com%=c
��showdatabase
��
��
�

00000000  0d 00 0a 21 f4 20 23 23  23 20 44 61 74 61 20 62  |...!. ### Data b|
00000010  61 73 65 20 66 75 6e 63  74 69 6f 6e 73 20 23 23  |ase functions ##|
00000020  23 0d 00 14 04 0d 00 1e  11 dd 20 a4 69 6e 64 65  |#......... .inde|
00000030  78 5f 6c 6f 61 64 0d 00  28 23 46 3d 8e 20 22 3c  |x_load..(#F=. "<|
00000040  63 68 65 6d 24 64 69 72  3e 2e 44 61 74 61 62 61  |chem$dir>.Databa|
00000050  73 65 2e 49 6e 64 65 78  22 0d 00 32 24 e3 20 6e  |se.Index"..2$. n|
00000060  3d 30 20 b8 20 6d 61 78  5f 67 72 70 2d 31 3a 69  |=0 . max_grp-1:i|
00000070  6e 64 24 28 6e 29 3d 22  22 3a ed 20 6e 0d 00 3c  |nd$(n)="":. n..<|
00000080  07 6e 3d 30 0d 00 46 05  f5 0d 00 50 0f 69 6e 64  |.n=0..F....P.ind|
00000090  24 28 6e 29 3d be 23 46  0d 00 5a 08 6e 2b 3d 31  |$(n)=.#F..Z.n+=1|
000000a0  0d 00 64 09 fd 20 c5 23  46 0d 00 6e 07 d9 23 46  |..d.. .#F..n..#F|
000000b0  0d 00 78 06 3d 6e 0d 00  82 04 0d 00 8c 14 dd 20  |..x.=n......... |
000000c0  a4 67 72 6f 75 70 5f 6c  6f 61 64 28 66 29 0d 00  |.group_load(f)..|
000000d0  96 25 66 69 6c 65 24 3d  22 3c 63 68 65 6d 24 64  |.%file$="<chem$d|
000000e0  69 72 3e 2e 44 61 74 61  62 61 73 65 2e 22 2b c3  |ir>.Database."+.|
000000f0  28 66 29 0d 00 a0 0d 46  3d 8e 20 66 69 6c 65 24  |(f)....F=. file$|
00000100  0d 00 aa 37 e3 20 6e 3d  30 20 b8 20 6d 61 78 5f  |...7. n=0 . max_|
00000110  63 6f 6d 70 73 32 2d 31  3a 63 6f 6d 70 73 24 28  |comps2-1:comps$(|
00000120  6e 29 3d 22 22 3a 63 6f  6d 70 73 32 24 28 6e 29  |n)="":comps2$(n)|
00000130  3d 22 22 3a ed 20 6e 0d  00 b4 07 6e 3d 30 0d 00  |="":. n....n=0..|
00000140  be 05 f5 0d 00 c8 0a 57  24 3d be 23 46 0d 00 d2  |.......W$=.#F...|
00000150  1d 63 6f 6d 70 73 24 28  6e 29 3d c0 57 24 2c a7  |.comps$(n)=.W$,.|
00000160  57 24 2c 22 23 22 29 2d  31 29 0d 00 dc 20 63 6f  |W$,"#")-1)... co|
00000170  6d 70 73 32 24 28 6e 29  3d c2 57 24 2c a9 57 24  |mps2$(n)=.W$,.W$|
00000180  2d a7 57 24 2c 22 23 22  29 29 0d 00 e6 08 6e 2b  |-.W$,"#"))....n+|
00000190  3d 31 0d 00 f0 09 fd 20  c5 23 46 0d 00 fa 07 d9  |=1..... .#F.....|
000001a0  23 46 0d 01 04 06 3d 6e  0d 01 0e 04 0d 01 18 14  |#F....=n........|
000001b0  dd 20 f2 6d 65 6e 75 73  65 74 75 70 64 69 6d 73  |. .menusetupdims|
000001c0  0d 01 22 19 de 20 69 6e  64 65 78 25 20 33 30 2a  |..".. index% 30*|
000001d0  6d 61 78 5f 67 72 70 2d  31 0d 01 2c 15 e3 20 6e  |max_grp-1..,.. n|
000001e0  3d 30 20 b8 20 6d 61 78  5f 67 72 70 2d 31 0d 01  |=0 . max_grp-1..|
000001f0  36 1c 73 25 3d a4 72 65  61 64 66 69 6c 65 20 2b  |6.s%=.readfile +|
00000200  20 28 6c 69 6e 65 2a 35  30 29 0d 01 40 0c de 20  | (line*50)..@.. |
00000210  6d 75 25 20 73 25 0d 01  4a 0f 69 6e 64 25 28 6e  |mu% s%..J.ind%(n|
00000220  29 3d 6d 75 25 0d 01 54  07 ed 20 6e 0d 01 5e 05  |)=mu%..T.. n..^.|
00000230  e1 0d 01 68 04 0d 01 72  0f dd 20 a4 72 65 61 64  |...h...r.. .read|
00000240  66 69 6c 65 0d 01 7c 07  ea 20 85 0d 01 86 0b 6e  |file..|.. .....n|
00000250  6f 67 6f 33 3d 31 0d 01  90 11 ee 20 85 20 ea 20  |ogo3=1..... . . |
00000260  6e 6f 67 6f 33 3d 30 0d  01 9a 0d e7 20 6e 6f 67  |nogo3=0..... nog|
00000270  6f 33 20 8c 0d 01 a4 22  66 24 3d 22 3c 43 68 65  |o3 ...."f$="<Che|
00000280  6d 24 44 69 72 3e 2e 44  61 74 61 62 61 73 65 2e  |m$Dir>.Database.|
00000290  22 2b c3 28 6e 29 0d 01  ae 0a 46 3d 8e 20 66 24  |"+.(n)....F=. f$|
000002a0  0d 01 b8 0b 63 6f 75 6e  74 3d 30 0d 01 c2 0a 6c  |....count=0....l|
000002b0  69 6e 65 3d 30 0d 01 cc  05 f5 0d 01 d6 0d 6e 75  |ine=0.........nu|
000002c0  6c 6c 24 3d be 23 46 0d  01 e0 11 63 6f 75 6e 74  |ll$=.#F....count|
000002d0  2b 3d a9 6e 75 6c 6c 24  0d 01 ea 0b 6c 69 6e 65  |+=.null$....line|
000002e0  2b 3d 31 0d 01 f4 09 fd  20 c5 23 46 0d 01 fe 05  |+=1..... .#F....|
000002f0  cd 0d 02 08 07 d9 23 46  0d 02 12 0a 3d 63 6f 75  |......#F....=cou|
00000300  6e 74 0d 02 1c 04 0d 02  26 1b dd 20 f2 63 6f 6d  |nt......&.. .com|
00000310  70 6f 75 6e 64 6d 65 6e  75 73 28 77 68 61 74 25  |poundmenus(what%|
00000320  29 0d 02 30 12 6e 31 3d  a4 69 6e 64 65 78 5f 6c  |)..0.n1=.index_l|
00000330  6f 61 64 0d 02 3a 10 e3  20 63 3d 30 20 b8 20 6e  |oad..:.. c=0 . n|
00000340  31 2d 31 0d 02 44 19 e7  20 77 68 61 74 25 3c 3e  |1-1..D.. what%<>|
00000350  38 38 20 8c 20 63 3d 77  68 61 74 25 0d 02 4e 15  |88 . c=what%..N.|
00000360  6e 32 3d a4 67 72 6f 75  70 5f 6c 6f 61 64 28 63  |n2=.group_load(c|
00000370  29 0d 02 58 20 f2 6d 65  6e 75 68 65 61 64 65 72  |)..X .menuheader|
00000380  28 69 6e 64 25 28 63 29  2c 69 6e 64 24 28 63 29  |(ind%(c),ind$(c)|
00000390  29 0d 02 62 0e e3 20 6e  3d 31 20 b8 20 6e 32 0d  |)..b.. n=1 . n2.|
000003a0  02 6c 1a e7 20 6e 3d 6e  32 20 8c 20 6d 66 3d 26  |.l.. n=n2 . mf=&|
000003b0  38 30 20 8b 20 6d 66 3d  30 0d 02 76 28 f2 6d 65  |80 . mf=0..v(.me|
000003c0  6e 75 69 74 65 6d 28 69  6e 64 25 28 63 29 2c 6d  |nuitem(ind%(c),m|
000003d0  66 2c 2d 31 2c 63 6f 6d  70 73 24 28 6e 2d 31 29  |f,-1,comps$(n-1)|
000003e0  29 0d 02 80 07 ed 20 6e  0d 02 8a 18 e7 20 77 68  |)..... n..... wh|
000003f0  61 74 25 3c 3e 38 38 20  8c 20 63 3d 6e 31 2d 31  |at%<>88 . c=n1-1|
00000400  0d 02 94 07 ed 20 63 0d  02 9e 20 f2 6d 65 6e 75  |..... c... .menu|
00000410  68 65 61 64 65 72 28 69  6e 64 65 78 25 2c 22 54  |header(index%,"T|
00000420  6f 70 69 63 73 22 29 0d  02 a8 0e e3 20 6e 3d 31  |opics")..... n=1|
00000430  20 b8 20 6e 31 0d 02 b2  1a e7 20 6e 3d 6e 31 20  | . n1..... n=n1 |
00000440  8c 20 6d 66 3d 26 38 30  20 8b 20 6d 66 3d 30 0d  |. mf=&80 . mf=0.|
00000450  02 bc 2c f2 6d 65 6e 75  69 74 65 6d 28 69 6e 64  |..,.menuitem(ind|
00000460  65 78 25 2c 6d 66 2c 69  6e 64 25 28 6e 2d 31 29  |ex%,mf,ind%(n-1)|
00000470  2c 69 6e 64 24 28 6e 2d  31 29 29 0d 02 c6 07 ed  |,ind$(n-1)).....|
00000480  20 6e 0d 02 d0 05 e1 0d  02 da 04 0d 02 e4 13 dd  | n..............|
00000490  20 f2 73 68 6f 77 64 61  74 61 62 61 73 65 0d 02  | .showdatabase..|
000004a0  ee 24 f2 69 63 6f 6e 74  65 78 74 28 64 62 61 73  |.$.icontext(dbas|
000004b0  65 25 2c 31 2c 69 6e 64  24 28 67 72 6f 75 70 25  |e%,1,ind$(group%|
000004c0  29 29 0d 02 f8 24 f2 69  63 6f 6e 74 65 78 74 28  |))...$.icontext(|
000004d0  64 62 61 73 65 25 2c 34  2c 63 6f 6d 70 73 24 28  |dbase%,4,comps$(|
000004e0  63 6f 6d 25 29 29 0d 03  02 56 e7 20 63 6f 6d 70  |com%))...V. comp|
000004f0  73 32 24 28 63 6f 6d 25  29 3e 22 22 20 f2 69 63  |s2$(com%)>"" .ic|
00000500  6f 6e 74 65 78 74 28 64  62 61 73 65 25 2c 30 2c  |ontext(dbase%,0,|
00000510  63 6f 6d 70 73 32 24 28  63 6f 6d 25 29 29 20 8b  |comps2$(com%)) .|
00000520  20 f2 69 63 6f 6e 74 65  78 74 28 64 62 61 73 65  | .icontext(dbase|
00000530  25 2c 30 2c 6e 6f 74 65  6e 74 24 29 0d 03 0c 17  |%,0,notent$)....|
00000540  f2 73 65 74 63 61 72 65  74 28 64 62 61 73 65 25  |.setcaret(dbase%|
00000550  2c 30 29 0d 03 16 17 f2  73 65 74 63 61 72 65 74  |,0).....setcaret|
00000560  28 64 62 61 73 65 25 2c  31 29 0d 03 20 17 f2 73  |(dbase%,1).. ..s|
00000570  65 74 63 61 72 65 74 28  64 62 61 73 65 25 2c 34  |etcaret(dbase%,4|
00000580  29 0d 03 2a 05 e1 0d 03  34 04 0d 03 3e 11 dd 20  |)..*....4...>.. |
00000590  f2 66 69 6c 65 5f 65 72  72 6f 72 0d 03 48 96 f2  |.file_error..H..|
000005a0  75 73 65 72 6d 65 73 73  61 67 65 28 22 53 6f 72  |usermessage("Sor|
000005b0  72 79 20 74 68 65 20 66  69 6c 65 20 79 6f 75 20  |ry the file you |
000005c0  61 72 65 20 74 72 79 69  6e 67 20 74 6f 20 61 6c  |are trying to al|
000005d0  74 65 72 22 2c 22 74 6f  20 69 73 20 70 72 6f 74  |ter","to is prot|
000005e0  65 63 74 65 64 20 6f 72  20 64 6f 65 73 20 65 78  |ected or does ex|
000005f0  69 73 74 22 2c 22 45 2e  67 2e 20 61 20 70 72 6f  |ist","E.g. a pro|
00000600  74 65 63 74 65 64 20 66  6c 6f 70 70 79 20 64 69  |tected floppy di|
00000610  73 63 22 2c 22 5b 20 4c  69 6e 65 20 22 2b c3 28  |sc","[ Line "+.(|
00000620  9e 29 2b 22 20 5d 22 2c  22 22 29 3a 65 72 72 3d  |.)+" ]",""):err=|
00000630  31 0d 03 52 05 e1 0d 03  5c 04 0d 03 66 0b dd 20  |1..R....\...f.. |
00000640  f2 73 61 76 65 0d 03 70  2a 66 69 6c 65 24 3d 22  |.save..p*file$="|
00000650  3c 63 68 65 6d 24 64 69  72 3e 2e 44 61 74 61 62  |<chem$dir>.Datab|
00000660  61 73 65 2e 22 2b c3 28  67 72 6f 75 70 25 29 0d  |ase."+.(group%).|
00000670  03 7a 09 65 72 72 3d 30  0d 03 84 07 ea 20 85 0d  |.z.err=0..... ..|
00000680  03 8e 15 ee 20 85 20 ea  20 f2 66 69 6c 65 5f 65  |.... . . .file_e|
00000690  72 72 6f 72 0d 03 98 0d  e7 20 65 72 72 3d 30 20  |rror..... err=0 |
000006a0  8c 0d 03 a2 0d 46 3d ae  20 66 69 6c 65 24 0d 03  |.....F=. file$..|
000006b0  ac 0b f2 73 6f 72 74 41  5a 0d 03 b6 18 e3 20 6e  |...sortAZ..... n|
000006c0  3d 30 20 b8 20 6d 61 78  5f 63 6f 6d 70 73 32 2d  |=0 . max_comps2-|
000006d0  31 0d 03 c0 31 e7 20 63  6f 6d 70 73 24 28 6e 29  |1...1. comps$(n)|
000006e0  3e 22 22 20 8c 20 d5 23  46 2c 63 6f 6d 70 73 24  |>"" . .#F,comps$|
000006f0  28 6e 29 2b 22 23 22 2b  63 6f 6d 70 73 32 24 28  |(n)+"#"+comps2$(|
00000700  6e 29 0d 03 ca 07 ed 20  6e 0d 03 d4 1e ff 20 22  |n)..... n..... "|
00000710  53 65 74 54 79 70 65 20  22 2b 66 69 6c 65 24 2b  |SetType "+file$+|
00000720  22 20 26 42 45 44 22 0d  03 de 05 cd 0d 03 e8 07  |" &BED".........|
00000730  d9 23 46 0d 03 f2 09 65  72 72 3d 30 0d 03 fc 05  |.#F....err=0....|
00000740  e1 0d 04 06 04 0d 04 10  10 dd 20 f2 64 65 6c 65  |.......... .dele|
00000750  74 65 28 6e 29 0d 04 1a  1e 63 6f 6d 70 73 24 28  |te(n)....comps$(|
00000760  6e 29 3d 22 22 3a 63 6f  6d 70 73 32 24 28 6e 29  |n)="":comps2$(n)|
00000770  3d 22 22 0d 04 24 05 f5  0d 04 2e 19 63 6f 6d 70  |=""..$......comp|
00000780  73 24 28 6e 29 3d 63 6f  6d 70 73 24 28 6e 2b 31  |s$(n)=comps$(n+1|
00000790  29 0d 04 38 1b 63 6f 6d  70 73 32 24 28 6e 29 3d  |)..8.comps2$(n)=|
000007a0  63 6f 6d 70 73 32 24 28  6e 2b 31 29 0d 04 42 08  |comps2$(n+1)..B.|
000007b0  6e 2b 3d 31 0d 04 4c 23  fd 20 63 6f 6d 70 73 24  |n+=1..L#. comps$|
000007c0  28 6e 29 3d 22 22 20 84  20 6e 3e 6d 61 78 5f 63  |(n)="" . n>max_c|
000007d0  6f 6d 70 73 32 2d 31 0d  04 56 05 e1 0d 04 60 04  |omps2-1..V....`.|
000007e0  0d 04 6a 0d dd 20 f2 73  6f 72 74 41 5a 0d 04 74  |..j.. .sortAZ..t|
000007f0  33 63 3d 30 3a f5 3a 63  2b 3d 31 3a fd 20 63 6f  |3c=0:.:c+=1:. co|
00000800  6d 70 73 24 28 63 29 3d  22 22 20 84 20 63 3e 6d  |mps$(c)="" . c>m|
00000810  61 78 5f 63 6f 6d 70 73  32 2d 31 3a 63 2d 3d 31  |ax_comps2-1:c-=1|
00000820  0d 04 7e 0e e3 20 6e 32  3d 30 20 b8 20 63 0d 04  |..~.. n2=0 . c..|
00000830  88 0f e3 20 6e 3d 30 20  b8 20 63 2d 31 0d 04 92  |... n=0 . c-1...|
00000840  51 e7 20 63 6f 6d 70 73  24 28 6e 29 3e 63 6f 6d  |Q. comps$(n)>com|
00000850  70 73 24 28 6e 2b 31 29  20 8c 20 c8 94 20 63 6f  |ps$(n+1) . .. co|
00000860  6d 70 73 24 28 6e 29 2c  63 6f 6d 70 73 24 28 6e  |mps$(n),comps$(n|
00000870  2b 31 29 3a c8 94 20 63  6f 6d 70 73 32 24 28 6e  |+1):.. comps2$(n|
00000880  29 2c 63 6f 6d 70 73 32  24 28 6e 2b 31 29 0d 04  |),comps2$(n+1)..|
00000890  9c 07 ed 20 6e 0d 04 a6  08 ed 20 6e 32 0d 04 b0  |... n..... n2...|
000008a0  05 e1 0d 04 ba 04 0d 04  c4 12 dd 20 f2 63 72 65  |........... .cre|
000008b0  61 74 65 67 72 6f 75 70  0d 04 ce 1a 67 24 3d a4  |ategroup....g$=.|
000008c0  72 65 61 64 69 63 6f 6e  28 64 62 61 73 65 25 2c  |readicon(dbase%,|
000008d0  31 29 0d 04 d8 29 63 3d  30 3a f5 3a 63 2b 3d 31  |1)...)c=0:.:c+=1|
000008e0  3a fd 69 6e 64 24 28 63  29 3d 22 22 20 84 20 63  |:.ind$(c)="" . c|
000008f0  3e 3d 6d 61 78 5f 67 72  70 2d 31 0d 04 e2 4b e7  |>=max_grp-1...K.|
00000900  20 67 24 3d 22 22 20 8c  20 63 3d 32 30 3a f2 75  | g$="" . c=20:.u|
00000910  73 65 72 6d 65 73 73 61  67 65 28 22 53 6f 72 72  |sermessage("Sorr|
00000920  79 2c 20 6e 65 77 20 67  72 6f 75 70 73 20 6e 65  |y, new groups ne|
00000930  61 64 20 6e 61 6d 65 73  22 2c 22 22 2c 22 22 2c  |ad names","","",|
00000940  22 22 2c 22 22 29 0d 04  ec 5c e7 20 63 3e 6d 61  |"","")...\. c>ma|
00000950  78 5f 67 72 70 2d 31 20  8c 20 f2 75 73 65 72 6d  |x_grp-1 . .userm|
00000960  65 73 73 61 67 65 28 22  53 6f 72 72 79 20 6f 6e  |essage("Sorry on|
00000970  6c 79 20 22 2b c3 28 6d  61 78 5f 67 72 70 29 2b  |ly "+.(max_grp)+|
00000980  22 20 67 72 6f 75 70 73  20 61 72 65 20 61 6c 6c  |" groups are all|
00000990  6f 77 65 64 22 2c 22 22  2c 22 22 2c 22 22 2c 22  |owed","","","","|
000009a0  22 29 0d 04 f6 0c e7 20  63 3c 31 31 20 8c 0d 05  |")..... c<11 ...|
000009b0  00 0e 69 6e 64 24 28 63  29 3d 67 24 0d 05 0a 0c  |..ind$(c)=g$....|
000009c0  67 72 6f 75 70 25 3d 63  0d 05 14 0e f2 69 6e 64  |group%=c.....ind|
000009d0  65 78 73 61 76 65 0d 05  1e 15 f2 63 6f 6d 70 6f  |exsave.....compo|
000009e0  75 6e 64 6d 65 6e 75 73  28 30 29 0d 05 28 36 e3  |undmenus(0)..(6.|
000009f0  20 6e 3d 30 20 b8 20 6d  61 78 5f 63 6f 6d 70 73  | n=0 . max_comps|
00000a00  32 2d 31 3a 63 6f 6d 70  73 32 24 28 6e 29 3d 22  |2-1:comps2$(n)="|
00000a10  22 3a 63 6f 6d 70 73 24  28 6e 29 3d 22 22 3a ed  |":comps$(n)="":.|
00000a20  6e 0d 05 32 11 f2 73 68  6f 77 64 61 74 61 62 61  |n..2..showdataba|
00000a30  73 65 0d 05 3c 14 f2 63  6c 6f 73 65 77 69 6e 28  |se..<..closewin(|
00000a40  73 75 72 65 25 29 0d 05  46 05 cd 0d 05 50 05 e1  |sure%)..F....P..|
00000a50  0d 05 5a 04 0d 05 64 15  dd 20 f2 64 65 6c 65 74  |..Z...d.. .delet|
00000a60  65 67 72 6f 75 70 28 6e  29 0d 05 6e 14 f2 63 6c  |egroup(n)..n..cl|
00000a70  6f 73 65 77 69 6e 28 73  75 72 65 25 29 0d 05 78  |osewin(sure%)..x|
00000a80  09 65 72 72 3d 30 0d 05  82 07 ea 20 85 0d 05 8c  |.err=0..... ....|
00000a90  15 ee 20 85 20 ea 20 f2  66 69 6c 65 5f 65 72 72  |.. . . .file_err|
00000aa0  6f 72 0d 05 96 0d e7 20  65 72 72 3d 30 20 8c 0d  |or..... err=0 ..|
00000ab0  05 a0 0e 69 6e 64 24 28  6e 29 3d 22 22 0d 05 aa  |...ind$(n)=""...|
00000ac0  14 e7 20 69 6e 64 24 28  6e 2b 31 29 3d 22 22 20  |.. ind$(n+1)="" |
00000ad0  8c 0d 05 b4 28 ff 20 22  44 45 4c 45 54 45 20 3c  |....(. "DELETE <|
00000ae0  43 68 65 6d 24 44 69 72  3e 2e 44 61 74 61 62 61  |Chem$Dir>.Databa|
00000af0  73 65 2e 22 2b c3 28 6e  29 0d 05 be 05 cc 0d 05  |se."+.(n).......|
00000b00  c8 05 f5 0d 05 d2 15 69  6e 64 24 28 6e 29 3d 69  |.......ind$(n)=i|
00000b10  6e 64 24 28 6e 2b 31 29  0d 05 dc 4d ff 20 22 43  |nd$(n+1)...M. "C|
00000b20  4f 50 59 20 3c 43 68 65  6d 24 44 69 72 3e 2e 44  |OPY <Chem$Dir>.D|
00000b30  61 74 61 62 61 73 65 2e  22 2b c3 28 6e 2b 31 29  |atabase."+.(n+1)|
00000b40  2b 22 20 20 3c 43 68 65  6d 24 44 69 72 3e 2e 44  |+"  <Chem$Dir>.D|
00000b50  61 74 61 62 61 73 65 2e  22 2b c3 28 6e 29 2b 22  |atabase."+.(n)+"|
00000b60  20 20 7e 43 22 0d 05 e6  08 6e 2b 3d 31 0d 05 f0  |  ~C"....n+=1...|
00000b70  1f fd 20 69 6e 64 24 28  6e 29 3d 22 22 20 84 20  |.. ind$(n)="" . |
00000b80  6e 3e 3d 6d 61 78 5f 67  72 70 2d 31 0d 05 fa 05  |n>=max_grp-1....|
00000b90  cd 0d 06 04 0e f2 69 6e  64 65 78 73 61 76 65 0d  |......indexsave.|
00000ba0  06 0e 0b f2 73 6f 72 74  41 5a 0d 06 18 15 f2 63  |....sortAZ.....c|
00000bb0  6f 6d 70 6f 75 6e 64 6d  65 6e 75 73 28 30 29 0d  |ompoundmenus(0).|
00000bc0  06 22 0c 67 72 6f 75 70  25 3d 30 0d 06 2c 11 f2  |.".group%=0..,..|
00000bd0  73 68 6f 77 64 61 74 61  62 61 73 65 0d 06 36 05  |showdatabase..6.|
00000be0  cd 0d 06 40 09 65 72 72  3d 30 0d 06 4a 05 e1 0d  |...@.err=0..J...|
00000bf0  06 54 04 0d 06 5e 10 dd  20 f2 69 6e 64 65 78 73  |.T...^.. .indexs|
00000c00  61 76 65 0d 06 68 09 65  72 72 3d 30 0d 06 72 15  |ave..h.err=0..r.|
00000c10  ee 20 85 20 ea 20 f2 66  69 6c 65 5f 65 72 72 6f  |. . . .file_erro|
00000c20  72 0d 06 7c 0d e7 20 65  72 72 3d 30 20 8c 0d 06  |r..|.. err=0 ...|
00000c30  86 23 46 3d ae 20 22 3c  63 68 65 6d 24 64 69 72  |.#F=. "<chem$dir|
00000c40  3e 2e 44 61 74 61 62 61  73 65 2e 49 6e 64 65 78  |>.Database.Index|
00000c50  22 0d 06 90 29 63 3d 30  3a f5 3a 63 2b 3d 31 3a  |"...)c=0:.:c+=1:|
00000c60  fd 69 6e 64 24 28 63 29  3d 22 22 20 84 20 63 3e  |.ind$(c)="" . c>|
00000c70  3d 6d 61 78 5f 67 72 70  2d 31 0d 06 9a 0d e3 20  |=max_grp-1..... |
00000c80  6e 3d 31 20 b8 20 63 0d  06 a4 11 d5 23 46 2c 69  |n=1 . c.....#F,i|
00000c90  6e 64 24 28 6e 2d 31 29  0d 06 ae 07 ed 20 6e 0d  |nd$(n-1)..... n.|
00000ca0  06 b8 07 d9 23 46 0d 06  c2 05 cc 0d 06 cc 0d ff  |....#F..........|
00000cb0  20 22 43 4c 4f 53 45 22  0d 06 d6 05 cd 0d 06 e0  | "CLOSE"........|
00000cc0  07 ea 20 85 0d 06 ea 07  f7 20 85 0d 06 f4 05 e1  |.. ...... ......|
00000cd0  0d 06 fe 04 0d 07 08 11  dd 20 f2 61 64 64 28 69  |......... .add(i|
00000ce0  74 65 6d 24 29 0d 07 12  30 63 3d 2d 31 3a f5 3a  |tem$)...0c=-1:.:|
00000cf0  63 2b 3d 31 3a fd 20 63  6f 6d 70 73 24 28 63 29  |c+=1:. comps$(c)|
00000d00  3d 22 22 20 84 20 63 3e  3d 6d 61 78 5f 63 6f 6d  |="" . c>=max_com|
00000d10  70 73 32 2d 31 0d 07 1c  09 6e 67 25 3d 31 0d 07  |ps2-1....ng%=1..|
00000d20  26 73 e7 20 69 74 65 6d  24 3d 22 22 20 8c 20 f2  |&s. item$="" . .|
00000d30  75 73 65 72 6d 65 73 73  61 67 65 28 22 49 66 20  |usermessage("If |
00000d40  79 6f 75 20 77 61 6e 74  20 74 6f 20 61 64 64 20  |you want to add |
00000d50  61 20 63 68 65 6d 69 63  61 6c 20 70 6c 65 61 73  |a chemical pleas|
00000d60  65 22 2c 22 65 6e 74 65  72 20 6f 6e 65 20 61 6e  |e","enter one an|
00000d70  64 20 63 6c 69 63 6b 20  6f 6e 20 4f 2e 4b 2e 22  |d click on O.K."|
00000d80  2c 22 22 2c 22 22 2c 22  22 29 20 3a 6e 67 25 3d  |,"","","") :ng%=|
00000d90  30 0d 07 30 88 e7 20 63  3e 6d 61 78 5f 63 6f 6d  |0..0.. c>max_com|
00000da0  70 73 32 2d 31 20 8c 20  f2 75 73 65 72 6d 65 73  |ps2-1 . .usermes|
00000db0  73 61 67 65 28 22 53 6f  72 72 79 20 79 6f 75 20  |sage("Sorry you |
00000dc0  63 61 6e 20 6f 6e 6c 79  20 68 61 76 65 20 22 2b  |can only have "+|
00000dd0  c3 28 6d 61 78 5f 63 6f  6d 70 73 32 29 2b 22 20  |.(max_comps2)+" |
00000de0  63 6f 6d 70 6f 75 6e 64  73 22 2c 22 70 65 72 20  |compounds","per |
00000df0  67 72 6f 75 70 20 61 6e  64 20 6f 6e 6c 79 20 31  |group and only 1|
00000e00  31 20 67 72 6f 75 70 73  22 2c 22 22 2c 22 22 2c  |1 groups","","",|
00000e10  22 22 29 3a 6e 67 25 3d  30 0d 07 3a 0b e7 20 6e  |""):ng%=0..:.. n|
00000e20  67 25 20 8c 0d 07 44 13  63 6f 6d 70 73 24 28 63  |g% ...D.comps$(c|
00000e30  29 3d 69 74 65 6d 24 0d  07 4e 09 f2 73 61 76 65  |)=item$..N..save|
00000e40  0d 07 58 1d 6e 75 6c 6c  25 3d a4 67 72 6f 75 70  |..X.null%=.group|
00000e50  5f 6c 6f 61 64 28 67 72  6f 75 70 25 29 0d 07 62  |_load(group%)..b|
00000e60  1a f2 63 6f 6d 70 6f 75  6e 64 6d 65 6e 75 73 28  |..compoundmenus(|
00000e70  67 72 6f 75 70 25 29 0d  07 6c 13 f2 63 6c 6f 73  |group%)..l..clos|
00000e80  65 77 69 6e 28 61 64 64  25 29 0d 07 76 32 63 3d  |ewin(add%)..v2c=|
00000e90  2d 31 3a f5 3a 63 2b 3d  31 3a fd 20 63 6f 6d 70  |-1:.:c+=1:. comp|
00000ea0  73 24 28 63 29 3d 69 74  65 6d 24 20 84 20 63 3e  |s$(c)=item$ . c>|
00000eb0  6d 61 78 5f 63 6f 6d 70  73 32 2d 31 0d 07 80 0a  |max_comps2-1....|
00000ec0  63 6f 6d 25 3d 63 0d 07  8a 11 f2 73 68 6f 77 64  |com%=c.....showd|
00000ed0  61 74 61 62 61 73 65 0d  07 94 05 cd 0d 07 9e 05  |atabase.........|
00000ee0  e1 0d ff                                          |...|
00000ee3