'� This program scans the data files
�"CLOSE":ș&406C2:�:�:�
&�'"Scanning files- please wait..."
(�T%(109)
2�D%(109)
<ș"Hourglass_On"
FR�:�LA%=1�109:ș&406C4,LA%*0.23:�F$:FI%=�("Elements:Draw."+F$):�FI%>0:D%(LA%)=1
P�#FI%:�LA%
ZV�:�LA%=1�109:ș&406C4,LA%*0.23+25:�F$:FI%=�("Elements:Draw+."+F$):�FI%>0:D%(LA%)=1
d�#FI%:�LA%
nU�:�LA%=1�109:ș&406C4,LA%*0.23+50:�F$:FI%=�("Elements:Text."+F$):�FI%>0:T%(LA%)=1
x�#FI%:�LA%
�V�:�LA%=1�109:ș&406C4,LA%*0.23+75:�F$:FI%=�("Elements:Text+."+F$):�FI%>0:T%(LA%)=1
��#FI%:�LA%
�ș"Hourglass_Smash"
�FI%=�("Elements:Drawfiles")
�P�#FI%,"Draw files exist for the elements with the following atomic numbers:"
�,�LA%=1�109:�D%(LA%)=1:X$=�(LA%):�#FI%,X$
��LA%:�#FI%
�%�"SetType Elements:Drawfiles FFF"
�FI%=�("Elements:Textfiles")
�P�#FI%,"Text files exist for the elements with the following atomic numbers:"
�,�LA%=1�109:�T%(LA%)=1:X$=�(LA%):�#FI%,X$
��LA%:�#FI%
�%�"SetType Elements:Textfiles FFF"

�


�Hydrogen

�Helium

"�Lithium

,�Beryllium

6
�Boron

@�Carbon

J
�Nitrogen

T�Oxygen

^
�Fluorine

h	�Neon

r�Sodium

|�Magnesium

��Aluminium

��Silicon

��Phosphorus

��Sulphur

�
�Chlorine

�
�Argon

��Potassium

��Calcium

�
�Scandium

�
�Titanium

�
�Vanadium

�
�Chromium

��Manganese
	�Iron
�Cobalt
�Nickel
&�Copper
0	�Zinc
:�Gallium
D�Germanium
N�Arsenic
X
�Selenium
b�Bromine
l�Krypton
v
�Rubidium
��Strontium
��Yttrium
��Zirconium
��Niobium
��Molybdenum
��Technetium
��Ruthenium
��Rhodium
��Palladium
��Silver
��Cadmium
��Indium
��Tin

�Antimony
�Tellurium
�Iodine
 
�Xenon
*�Caesium
4�Barium
>�Lanthanum
H�Cerium
R�Praseodymium
\�Neodymium
f�Promethium
p
�Samarium
z
�Europium
��Gadolinium
��Terbium
��Dysprosium
��Holmium
��Erbium
��Thulium
��Ytterbium
�
�Lutetium
��Hafnium
�
�Tantalum
�
�Tungsten
��Rhenium
��Osmium
�Iridium

�Platinum
	�Gold
$�Mercury
.
�Thallium
8	�Lead
B�Bismuth
L
�Polonium
V
�Astatine
`
�Radon
j
�Francium
t�Radium
~
�Actinium
��Thorium
��Protactinium
��Uranium
��Neptunium
��Plutonium
��Americium
��Curium
��Berkelium
��Californium
��Einsteinium
��Fermium
��Mendelevium

�Nobelium

�Lawrencium
�Unnilquadium
�Unnilpentium
(�Unnilhexium
2�Unnilseptium
<�Unniloctium
F�Unnilennium
�

00000000  0d 00 0a 27 f4 20 54 68  69 73 20 70 72 6f 67 72  |...'. This progr|
00000010  61 6d 20 73 63 61 6e 73  20 74 68 65 20 64 61 74  |am scans the dat|
00000020  61 20 66 69 6c 65 73 0d  00 14 1d ee 85 ff 22 43  |a files......."C|
00000030  4c 4f 53 45 22 3a c8 99  26 34 30 36 43 32 3a f6  |LOSE":..&406C2:.|
00000040  3a f1 3a e0 0d 00 1e 26  f1 27 22 53 63 61 6e 6e  |:.:....&.'"Scann|
00000050  69 6e 67 20 66 69 6c 65  73 2d 20 70 6c 65 61 73  |ing files- pleas|
00000060  65 20 77 61 69 74 2e 2e  2e 22 0d 00 28 0c de 54  |e wait..."..(..T|
00000070  25 28 31 30 39 29 0d 00  32 0c de 44 25 28 31 30  |%(109)..2..D%(10|
00000080  39 29 0d 00 3c 14 c8 99  22 48 6f 75 72 67 6c 61  |9)..<..."Hourgla|
00000090  73 73 5f 4f 6e 22 0d 00  46 52 f7 3a e3 4c 41 25  |ss_On"..FR.:.LA%|
000000a0  3d 31 b8 31 30 39 3a c8  99 26 34 30 36 43 34 2c  |=1.109:..&406C4,|
000000b0  4c 41 25 2a 30 2e 32 33  3a f3 46 24 3a 46 49 25  |LA%*0.23:.F$:FI%|
000000c0  3d 8e 28 22 45 6c 65 6d  65 6e 74 73 3a 44 72 61  |=.("Elements:Dra|
000000d0  77 2e 22 2b 46 24 29 3a  e7 46 49 25 3e 30 3a 44  |w."+F$):.FI%>0:D|
000000e0  25 28 4c 41 25 29 3d 31  0d 00 50 0e d9 23 46 49  |%(LA%)=1..P..#FI|
000000f0  25 3a ed 4c 41 25 0d 00  5a 56 f7 3a e3 4c 41 25  |%:.LA%..ZV.:.LA%|
00000100  3d 31 b8 31 30 39 3a c8  99 26 34 30 36 43 34 2c  |=1.109:..&406C4,|
00000110  4c 41 25 2a 30 2e 32 33  2b 32 35 3a f3 46 24 3a  |LA%*0.23+25:.F$:|
00000120  46 49 25 3d 8e 28 22 45  6c 65 6d 65 6e 74 73 3a  |FI%=.("Elements:|
00000130  44 72 61 77 2b 2e 22 2b  46 24 29 3a e7 46 49 25  |Draw+."+F$):.FI%|
00000140  3e 30 3a 44 25 28 4c 41  25 29 3d 31 0d 00 64 0e  |>0:D%(LA%)=1..d.|
00000150  d9 23 46 49 25 3a ed 4c  41 25 0d 00 6e 55 f7 3a  |.#FI%:.LA%..nU.:|
00000160  e3 4c 41 25 3d 31 b8 31  30 39 3a c8 99 26 34 30  |.LA%=1.109:..&40|
00000170  36 43 34 2c 4c 41 25 2a  30 2e 32 33 2b 35 30 3a  |6C4,LA%*0.23+50:|
00000180  f3 46 24 3a 46 49 25 3d  8e 28 22 45 6c 65 6d 65  |.F$:FI%=.("Eleme|
00000190  6e 74 73 3a 54 65 78 74  2e 22 2b 46 24 29 3a e7  |nts:Text."+F$):.|
000001a0  46 49 25 3e 30 3a 54 25  28 4c 41 25 29 3d 31 0d  |FI%>0:T%(LA%)=1.|
000001b0  00 78 0e d9 23 46 49 25  3a ed 4c 41 25 0d 00 82  |.x..#FI%:.LA%...|
000001c0  56 f7 3a e3 4c 41 25 3d  31 b8 31 30 39 3a c8 99  |V.:.LA%=1.109:..|
000001d0  26 34 30 36 43 34 2c 4c  41 25 2a 30 2e 32 33 2b  |&406C4,LA%*0.23+|
000001e0  37 35 3a f3 46 24 3a 46  49 25 3d 8e 28 22 45 6c  |75:.F$:FI%=.("El|
000001f0  65 6d 65 6e 74 73 3a 54  65 78 74 2b 2e 22 2b 46  |ements:Text+."+F|
00000200  24 29 3a e7 46 49 25 3e  30 3a 54 25 28 4c 41 25  |$):.FI%>0:T%(LA%|
00000210  29 3d 31 0d 00 8c 0e d9  23 46 49 25 3a ed 4c 41  |)=1.....#FI%:.LA|
00000220  25 0d 00 96 17 c8 99 22  48 6f 75 72 67 6c 61 73  |%......"Hourglas|
00000230  73 5f 53 6d 61 73 68 22  0d 00 a0 1f 46 49 25 3d  |s_Smash"....FI%=|
00000240  ae 28 22 45 6c 65 6d 65  6e 74 73 3a 44 72 61 77  |.("Elements:Draw|
00000250  66 69 6c 65 73 22 29 0d  00 aa 50 d5 23 46 49 25  |files")...P.#FI%|
00000260  2c 22 44 72 61 77 20 66  69 6c 65 73 20 65 78 69  |,"Draw files exi|
00000270  73 74 20 66 6f 72 20 74  68 65 20 65 6c 65 6d 65  |st for the eleme|
00000280  6e 74 73 20 77 69 74 68  20 74 68 65 20 66 6f 6c  |nts with the fol|
00000290  6c 6f 77 69 6e 67 20 61  74 6f 6d 69 63 20 6e 75  |lowing atomic nu|
000002a0  6d 62 65 72 73 3a 22 0d  00 b4 2c e3 4c 41 25 3d  |mbers:"...,.LA%=|
000002b0  31 b8 31 30 39 3a e7 44  25 28 4c 41 25 29 3d 31  |1.109:.D%(LA%)=1|
000002c0  3a 58 24 3d c3 28 4c 41  25 29 3a d5 23 46 49 25  |:X$=.(LA%):.#FI%|
000002d0  2c 58 24 0d 00 be 0e ed  4c 41 25 3a d9 23 46 49  |,X$.....LA%:.#FI|
000002e0  25 0d 00 c8 25 ff 22 53  65 74 54 79 70 65 20 45  |%...%."SetType E|
000002f0  6c 65 6d 65 6e 74 73 3a  44 72 61 77 66 69 6c 65  |lements:Drawfile|
00000300  73 20 46 46 46 22 0d 00  d2 1f 46 49 25 3d ae 28  |s FFF"....FI%=.(|
00000310  22 45 6c 65 6d 65 6e 74  73 3a 54 65 78 74 66 69  |"Elements:Textfi|
00000320  6c 65 73 22 29 0d 00 dc  50 d5 23 46 49 25 2c 22  |les")...P.#FI%,"|
00000330  54 65 78 74 20 66 69 6c  65 73 20 65 78 69 73 74  |Text files exist|
00000340  20 66 6f 72 20 74 68 65  20 65 6c 65 6d 65 6e 74  | for the element|
00000350  73 20 77 69 74 68 20 74  68 65 20 66 6f 6c 6c 6f  |s with the follo|
00000360  77 69 6e 67 20 61 74 6f  6d 69 63 20 6e 75 6d 62  |wing atomic numb|
00000370  65 72 73 3a 22 0d 00 e6  2c e3 4c 41 25 3d 31 b8  |ers:"...,.LA%=1.|
00000380  31 30 39 3a e7 54 25 28  4c 41 25 29 3d 31 3a 58  |109:.T%(LA%)=1:X|
00000390  24 3d c3 28 4c 41 25 29  3a d5 23 46 49 25 2c 58  |$=.(LA%):.#FI%,X|
000003a0  24 0d 00 f0 0e ed 4c 41  25 3a d9 23 46 49 25 0d  |$.....LA%:.#FI%.|
000003b0  00 fa 25 ff 22 53 65 74  54 79 70 65 20 45 6c 65  |..%."SetType Ele|
000003c0  6d 65 6e 74 73 3a 54 65  78 74 66 69 6c 65 73 20  |ments:Textfiles |
000003d0  46 46 46 22 0d 01 04 05  e0 0d 01 0e 0d dc 48 79  |FFF"..........Hy|
000003e0  64 72 6f 67 65 6e 0d 01  18 0b dc 48 65 6c 69 75  |drogen.....Heliu|
000003f0  6d 0d 01 22 0c dc 4c 69  74 68 69 75 6d 0d 01 2c  |m.."..Lithium..,|
00000400  0e dc 42 65 72 79 6c 6c  69 75 6d 0d 01 36 0a dc  |..Beryllium..6..|
00000410  42 6f 72 6f 6e 0d 01 40  0b dc 43 61 72 62 6f 6e  |Boron..@..Carbon|
00000420  0d 01 4a 0d dc 4e 69 74  72 6f 67 65 6e 0d 01 54  |..J..Nitrogen..T|
00000430  0b dc 4f 78 79 67 65 6e  0d 01 5e 0d dc 46 6c 75  |..Oxygen..^..Flu|
00000440  6f 72 69 6e 65 0d 01 68  09 dc 4e 65 6f 6e 0d 01  |orine..h..Neon..|
00000450  72 0b dc 53 6f 64 69 75  6d 0d 01 7c 0e dc 4d 61  |r..Sodium..|..Ma|
00000460  67 6e 65 73 69 75 6d 0d  01 86 0e dc 41 6c 75 6d  |gnesium.....Alum|
00000470  69 6e 69 75 6d 0d 01 90  0c dc 53 69 6c 69 63 6f  |inium.....Silico|
00000480  6e 0d 01 9a 0f dc 50 68  6f 73 70 68 6f 72 75 73  |n.....Phosphorus|
00000490  0d 01 a4 0c dc 53 75 6c  70 68 75 72 0d 01 ae 0d  |.....Sulphur....|
000004a0  dc 43 68 6c 6f 72 69 6e  65 0d 01 b8 0a dc 41 72  |.Chlorine.....Ar|
000004b0  67 6f 6e 0d 01 c2 0e dc  50 6f 74 61 73 73 69 75  |gon.....Potassiu|
000004c0  6d 0d 01 cc 0c dc 43 61  6c 63 69 75 6d 0d 01 d6  |m.....Calcium...|
000004d0  0d dc 53 63 61 6e 64 69  75 6d 0d 01 e0 0d dc 54  |..Scandium.....T|
000004e0  69 74 61 6e 69 75 6d 0d  01 ea 0d dc 56 61 6e 61  |itanium.....Vana|
000004f0  64 69 75 6d 0d 01 f4 0d  dc 43 68 72 6f 6d 69 75  |dium.....Chromiu|
00000500  6d 0d 01 fe 0e dc 4d 61  6e 67 61 6e 65 73 65 0d  |m.....Manganese.|
00000510  02 08 09 dc 49 72 6f 6e  0d 02 12 0b dc 43 6f 62  |....Iron.....Cob|
00000520  61 6c 74 0d 02 1c 0b dc  4e 69 63 6b 65 6c 0d 02  |alt.....Nickel..|
00000530  26 0b dc 43 6f 70 70 65  72 0d 02 30 09 dc 5a 69  |&..Copper..0..Zi|
00000540  6e 63 0d 02 3a 0c dc 47  61 6c 6c 69 75 6d 0d 02  |nc..:..Gallium..|
00000550  44 0e dc 47 65 72 6d 61  6e 69 75 6d 0d 02 4e 0c  |D..Germanium..N.|
00000560  dc 41 72 73 65 6e 69 63  0d 02 58 0d dc 53 65 6c  |.Arsenic..X..Sel|
00000570  65 6e 69 75 6d 0d 02 62  0c dc 42 72 6f 6d 69 6e  |enium..b..Bromin|
00000580  65 0d 02 6c 0c dc 4b 72  79 70 74 6f 6e 0d 02 76  |e..l..Krypton..v|
00000590  0d dc 52 75 62 69 64 69  75 6d 0d 02 80 0e dc 53  |..Rubidium.....S|
000005a0  74 72 6f 6e 74 69 75 6d  0d 02 8a 0c dc 59 74 74  |trontium.....Ytt|
000005b0  72 69 75 6d 0d 02 94 0e  dc 5a 69 72 63 6f 6e 69  |rium.....Zirconi|
000005c0  75 6d 0d 02 9e 0c dc 4e  69 6f 62 69 75 6d 0d 02  |um.....Niobium..|
000005d0  a8 0f dc 4d 6f 6c 79 62  64 65 6e 75 6d 0d 02 b2  |...Molybdenum...|
000005e0  0f dc 54 65 63 68 6e 65  74 69 75 6d 0d 02 bc 0e  |..Technetium....|
000005f0  dc 52 75 74 68 65 6e 69  75 6d 0d 02 c6 0c dc 52  |.Ruthenium.....R|
00000600  68 6f 64 69 75 6d 0d 02  d0 0e dc 50 61 6c 6c 61  |hodium.....Palla|
00000610  64 69 75 6d 0d 02 da 0b  dc 53 69 6c 76 65 72 0d  |dium.....Silver.|
00000620  02 e4 0c dc 43 61 64 6d  69 75 6d 0d 02 ee 0b dc  |....Cadmium.....|
00000630  49 6e 64 69 75 6d 0d 02  f8 08 dc 54 69 6e 0d 03  |Indium.....Tin..|
00000640  02 0d dc 41 6e 74 69 6d  6f 6e 79 0d 03 0c 0e dc  |...Antimony.....|
00000650  54 65 6c 6c 75 72 69 75  6d 0d 03 16 0b dc 49 6f  |Tellurium.....Io|
00000660  64 69 6e 65 0d 03 20 0a  dc 58 65 6e 6f 6e 0d 03  |dine.. ..Xenon..|
00000670  2a 0c dc 43 61 65 73 69  75 6d 0d 03 34 0b dc 42  |*..Caesium..4..B|
00000680  61 72 69 75 6d 0d 03 3e  0e dc 4c 61 6e 74 68 61  |arium..>..Lantha|
00000690  6e 75 6d 0d 03 48 0b dc  43 65 72 69 75 6d 0d 03  |num..H..Cerium..|
000006a0  52 11 dc 50 72 61 73 65  6f 64 79 6d 69 75 6d 0d  |R..Praseodymium.|
000006b0  03 5c 0e dc 4e 65 6f 64  79 6d 69 75 6d 0d 03 66  |.\..Neodymium..f|
000006c0  0f dc 50 72 6f 6d 65 74  68 69 75 6d 0d 03 70 0d  |..Promethium..p.|
000006d0  dc 53 61 6d 61 72 69 75  6d 0d 03 7a 0d dc 45 75  |.Samarium..z..Eu|
000006e0  72 6f 70 69 75 6d 0d 03  84 0f dc 47 61 64 6f 6c  |ropium.....Gadol|
000006f0  69 6e 69 75 6d 0d 03 8e  0c dc 54 65 72 62 69 75  |inium.....Terbiu|
00000700  6d 0d 03 98 0f dc 44 79  73 70 72 6f 73 69 75 6d  |m.....Dysprosium|
00000710  0d 03 a2 0c dc 48 6f 6c  6d 69 75 6d 0d 03 ac 0b  |.....Holmium....|
00000720  dc 45 72 62 69 75 6d 0d  03 b6 0c dc 54 68 75 6c  |.Erbium.....Thul|
00000730  69 75 6d 0d 03 c0 0e dc  59 74 74 65 72 62 69 75  |ium.....Ytterbiu|
00000740  6d 0d 03 ca 0d dc 4c 75  74 65 74 69 75 6d 0d 03  |m.....Lutetium..|
00000750  d4 0c dc 48 61 66 6e 69  75 6d 0d 03 de 0d dc 54  |...Hafnium.....T|
00000760  61 6e 74 61 6c 75 6d 0d  03 e8 0d dc 54 75 6e 67  |antalum.....Tung|
00000770  73 74 65 6e 0d 03 f2 0c  dc 52 68 65 6e 69 75 6d  |sten.....Rhenium|
00000780  0d 03 fc 0b dc 4f 73 6d  69 75 6d 0d 04 06 0c dc  |.....Osmium.....|
00000790  49 72 69 64 69 75 6d 0d  04 10 0d dc 50 6c 61 74  |Iridium.....Plat|
000007a0  69 6e 75 6d 0d 04 1a 09  dc 47 6f 6c 64 0d 04 24  |inum.....Gold..$|
000007b0  0c dc 4d 65 72 63 75 72  79 0d 04 2e 0d dc 54 68  |..Mercury.....Th|
000007c0  61 6c 6c 69 75 6d 0d 04  38 09 dc 4c 65 61 64 0d  |allium..8..Lead.|
000007d0  04 42 0c dc 42 69 73 6d  75 74 68 0d 04 4c 0d dc  |.B..Bismuth..L..|
000007e0  50 6f 6c 6f 6e 69 75 6d  0d 04 56 0d dc 41 73 74  |Polonium..V..Ast|
000007f0  61 74 69 6e 65 0d 04 60  0a dc 52 61 64 6f 6e 0d  |atine..`..Radon.|
00000800  04 6a 0d dc 46 72 61 6e  63 69 75 6d 0d 04 74 0b  |.j..Francium..t.|
00000810  dc 52 61 64 69 75 6d 0d  04 7e 0d dc 41 63 74 69  |.Radium..~..Acti|
00000820  6e 69 75 6d 0d 04 88 0c  dc 54 68 6f 72 69 75 6d  |nium.....Thorium|
00000830  0d 04 92 11 dc 50 72 6f  74 61 63 74 69 6e 69 75  |.....Protactiniu|
00000840  6d 0d 04 9c 0c dc 55 72  61 6e 69 75 6d 0d 04 a6  |m.....Uranium...|
00000850  0e dc 4e 65 70 74 75 6e  69 75 6d 0d 04 b0 0e dc  |..Neptunium.....|
00000860  50 6c 75 74 6f 6e 69 75  6d 0d 04 ba 0e dc 41 6d  |Plutonium.....Am|
00000870  65 72 69 63 69 75 6d 0d  04 c4 0b dc 43 75 72 69  |ericium.....Curi|
00000880  75 6d 0d 04 ce 0e dc 42  65 72 6b 65 6c 69 75 6d  |um.....Berkelium|
00000890  0d 04 d8 10 dc 43 61 6c  69 66 6f 72 6e 69 75 6d  |.....Californium|
000008a0  0d 04 e2 10 dc 45 69 6e  73 74 65 69 6e 69 75 6d  |.....Einsteinium|
000008b0  0d 04 ec 0c dc 46 65 72  6d 69 75 6d 0d 04 f6 10  |.....Fermium....|
000008c0  dc 4d 65 6e 64 65 6c 65  76 69 75 6d 0d 05 00 0d  |.Mendelevium....|
000008d0  dc 4e 6f 62 65 6c 69 75  6d 0d 05 0a 0f dc 4c 61  |.Nobelium.....La|
000008e0  77 72 65 6e 63 69 75 6d  0d 05 14 11 dc 55 6e 6e  |wrencium.....Unn|
000008f0  69 6c 71 75 61 64 69 75  6d 0d 05 1e 11 dc 55 6e  |ilquadium.....Un|
00000900  6e 69 6c 70 65 6e 74 69  75 6d 0d 05 28 10 dc 55  |nilpentium..(..U|
00000910  6e 6e 69 6c 68 65 78 69  75 6d 0d 05 32 11 dc 55  |nnilhexium..2..U|
00000920  6e 6e 69 6c 73 65 70 74  69 75 6d 0d 05 3c 10 dc  |nnilseptium..<..|
00000930  55 6e 6e 69 6c 6f 63 74  69 75 6d 0d 05 46 10 dc  |Unniloctium..F..|
00000940  55 6e 6e 69 6c 65 6e 6e  69 75 6d 0d ff           |Unnilennium..|
0000094d