Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
229 heavyiron 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;   Periodic Table for KolibriOS
3
;;
4
;;   Периодическая система химических элементов
5
;;         Дмитрия Ивановича Менделеева
6
;;     Авторы:
7
;;       navanax [violetlab+rambler.ru]
8
;;      Johnny_B [john+kolibrios.org]
9
;;
10
;; макрос для создания массива указателей на ASCIIZ-строки
11
 
12
include 'macros.inc'
13
macro strtbl name,[string]
14
{
15
 common
16
  label name dword
17
 forward
18
  local lbl
19
  dd lbl
20
 forward
21
  lbl db string,0
22
}
23
 
24
use32
25
 
26
 org	0x0
27
 db	'MENUET01'    ; стандартный 8-байтовый заголовок для исполняемых файлов MeOS
28
 dd	0x01	      ; версия заголовка
29
 dd	START	      ; указатель на начало исполняемого кода
30
 dd	I_END	      ; размер образа
31
 dd	I_END+0x1000   ; требуемая память для приложения
32
 dd	I_END+0x1000   ; указатель на начала стека
33
 dd	0x0 , 0x0     ; I_Param , I_Icon
34
 
35
;ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ И КОНСТАНТЫ
36
re_ID  dd  0x00000001	;для хранения номера текущего выводимого элемента
37
 
38
START:
39
red:
40
      call draw_window
41
 
42
still:		      ;основной цикл программы
43
	push 10   ;ожидание события
44
      pop  eax
45
	int  0x40
46
	dec  eax
47
      je   red
48
      dec  eax
49
      jne  button
50
 
51
key:
52
	mov  al,2
53
	int  0x40
54
	jmp  still
55
 
56
button:
57
	mov  al,17   ;получаем ID нажатой кнопки
58
	int  0x40
59
	shr  eax,8    ; eax=24-битный ButtonID
60
 
61
	cmp  eax,1    ;нажата ли "Закрыть" [x]
62
	jne  noclose
63
	or   eax,-1
64
	int  0x40
65
 
66
noclose:
67
      cmp eax,200
68
      jne no_H
69
      mov eax,1
70
no_H:
71
	mov [re_ID],eax
72
;; 
73
	call VYVOD
74
;; 
75
	jmp still
76
 
77
draw_window:
78
 
79
      mov  eax,48
80
      mov  ebx,3
81
      mov  ecx,sc
82
      mov  edx,sizeof.system_colors
83
      int  0x40
84
 
85
      mov  eax,12   ;begin drawing
86
	xor  ebx,ebx
87
	inc  ebx
88
	int  0x40
89
				       ; DRAW WINDOW
90
	xor  eax,eax
91
	mov  ebx,50*65536+550  ;x
92
	mov  ecx,30*65536+450  ;y
93
      mov  edx,[sc.work]
94
	or   edx,0x13000000    ;style
95
	mov  edi,Caption
96
	int  0x40
97
 
98
Nadpisi_v_okne:
99
	mov  eax,4	     ;вывод текста
100
	mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
101
 
102
	mov  ebx,40*65536+225	      ;лантаноиды
103
	mov  edx,Lantanoid_text
104
	int  0x40
105
 
106
	add  ebx,20		       ;актиноиды
107
	mov  edx,Actinoid_text
108
	int  0x40
109
 
110
	mov  ebx,150*65536+280
111
	mov  edx,Por_nomer
112
	int  0x40
113
 
114
	add  ebx,15
115
	mov  edx,Nazvanie
116
	int  0x40
117
 
118
	add ebx,15
119
	mov edx,Angl_nazv
120
	int 0x40
121
 
122
	add ebx,15
123
	mov edx,Atomic_massa
124
	int 0x40
125
 
126
	add ebx,15
127
	mov edx,Plotnost_caption
128
	int 0x40
129
 
130
	add ebx,15
131
	mov edx,Step_okisl
132
	int 0x40
133
 
134
	add ebx,15
135
	mov edx,Electrootr
136
	int 0x40
137
 
138
	add ebx,15
139
	mov edx,T_pl
140
	int 0x40
141
 
142
	add ebx,15
143
	mov edx,T_kip
144
	int 0x40
145
 
146
	add ebx,15
147
	mov edx,Raspr
148
	int 0x40
149
 
150
	add ebx,15
151
	mov edx,Otkrytie
152
	int 0x40
153
 
154
	; ВЫВОД НОМЕРОВ ПЕРИОДОВ
155
	mov ebx,30*65536+68
156
	mov edx,Period_text  ;1
157
	int 0x40
158
 
159
	call @f 	     ;2
160
	call @f 	     ;3
161
	call @f 	     ;4
162
	call @f 	     ;5
163
	call @f 	     ;6
164
	call @f 	     ;7
165
	jmp  Table
166
 
167
      @@:
168
	add ebx,20
169
	add edx,4   ;т.к. строка = 4 байтам(с нулём)
170
	int 0x40
171
       ret
172
 
173
Table:		       ;Отрисовка таблицы в виде конопочек
174
	table_rjad_1:
175
			shl eax,1
176
			mov  ebx,50*65536+25
177
			mov  ecx,60*65536+20
178
			mov  edx,200
179
			mov  esi,0xE19123
180
			int  0x40
181
		He_:
182
			mov  ebx,491*65536+25
183
			mov  esi,0x0f0c314
184
			mov  edx,2
185
			int  0x40
186
	table_rjad_2:
187
		Li:
188
		      mov  ebx,50*65536+25
189
			mov  ecx,81*65536+20
190
			mov  esi,0xE19123
191
			inc edx
192
			int  0x40
193
		Be:
194
			mov  ebx,76*65536+25
195
			inc edx
196
			int  0x40
197
		B_:
198
			mov  ebx,361*65536+25
199
			inc edx
200
			mov esi,0x0f0c314
201
			int  0x40
202
			mov edi,4
203
		table_rjad_2_loop:
204
			add ebx,26*65536
205
			inc edx
206
			int 0x40
207
			dec edi
208
			jns table_rjad_2_loop
209
	table_rjad_3:
210
		Na:
211
		       mov  ebx,50*65536+25
212
			mov  ecx,102*65536+20
213
			mov  esi,0xE19123
214
			inc edx
215
			int  0x40
216
 
217
			mov  ebx,76*65536+25
218
			inc edx
219
			int  0x40
220
 
221
			mov  ebx,361*65536+25
222
			inc edx
223
			mov esi,0x0f0c314
224
			int  0x40
225
			mov edi,4
226
		table_rjad_3_loop:
227
			add ebx,26*65536
228
			inc edx
229
			int 0x40
230
			dec edi
231
			jns table_rjad_3_loop
232
 
233
	Table_rjad_4:
234
		K_:
235
		       mov  ebx,50*65536+25
236
			mov  ecx,123*65536+20
237
			mov  esi,0xE19123
238
			inc edx
239
			int  0x40
240
		Ca:
241
		       mov  ebx,76*65536+25
242
			inc edx
243
			int  0x40
244
		Sc:
245
			mov  ebx,102*65536+25
246
			inc edx
247
			mov  esi,0x559beb
248
			int  0x40
249
			mov edi,8
250
		Table_rjad_4_loop1:
251
			add ebx,26*65536
252
			inc edx
253
			int 0x40
254
			dec edi
255
			jns Table_rjad_4_loop1
256
 
257
			mov  ebx,361*65536+25
258
			inc edx
259
			mov esi,0x0f0c314
260
			int  0x40
261
			mov edi,4
262
		table_rjad_4_loop2:
263
			add ebx,26*65536
264
			inc edx
265
			int 0x40
266
			dec edi
267
			jns table_rjad_4_loop2
268
 
269
	 Table_rjad_5:
270
		Rb_:
271
		       mov  ebx,50*65536+25
272
			mov  ecx,144*65536+20
273
			mov  esi,0xE19123
274
			inc edx
275
			int  0x40
276
		Sr_:
277
		       mov  ebx,76*65536+25
278
			inc edx
279
			int  0x40
280
		Y_:
281
			mov  ebx,102*65536+25
282
			inc edx
283
			mov  esi,0x559beb
284
			int  0x40
285
			mov edi,8
286
		Table_rjad_5_loop1:
287
			add ebx,26*65536
288
			inc edx
289
			int 0x40
290
			dec edi
291
			jns Table_rjad_5_loop1
292
 
293
			mov  ebx,361*65536+25
294
			inc edx
295
			mov esi,0x0f0c314
296
			int  0x40
297
			mov edi,4
298
		table_rjad_5_loop2:
299
			add ebx,26*65536
300
			inc edx
301
			int 0x40
302
			dec edi
303
			jns table_rjad_5_loop2
304
 
305
	 Table_rjad_6:
306
		Cs_:
307
		       mov  ebx,50*65536+25
308
			mov  ecx,165*65536+20
309
			mov  esi,0xE19123
310
			inc edx
311
			int  0x40
312
		Ba_:
313
		       mov  ebx,76*65536+25
314
			inc edx
315
			int  0x40
316
		La_:
317
			mov  ebx,102*65536+25
318
			inc edx
319
			mov  esi,0x559beb
320
			int  0x40
321
			mov edx,71
322
			mov edi,8
323
		Table_rjad_6_loop1:
324
			add ebx,26*65536
325
			inc edx
326
			int 0x40
327
			dec edi
328
			jns Table_rjad_6_loop1
329
 
330
			mov  ebx,361*65536+25
331
			inc edx
332
			mov esi,0x0f0c314
333
			int  0x40
334
			mov edi,4
335
		table_rjad_6_loop2:
336
			add ebx,26*65536
337
			inc edx
338
			int 0x40
339
			dec edi
340
			jns table_rjad_6_loop2
341
 
342
	 Table_rjad_7:
343
		Fr_:
344
		       mov  ebx,50*65536+25
345
			mov  ecx,186*65536+20
346
			mov  esi,0xE19123
347
			inc edx
348
			int  0x40
349
		Ra_:
350
		       mov  ebx,76*65536+25
351
			inc edx
352
			int  0x40
353
		Ac_:
354
			mov  ebx,102*65536+25
355
			inc edx
356
			mov  esi,0x559beb
357
			int  0x40
358
			mov edx,103
359
			mov edi,8
360
		Table_rjad_7_loop1:
361
			add ebx,26*65536
362
			inc edx
363
			int 0x40
364
			dec edi
365
			jns Table_rjad_7_loop1
366
 
367
			mov  ebx,361*65536+25
368
			inc edx
369
			mov esi,0x0f0c314
370
			int  0x40
371
			mov edi,2
372
		table_rjad_7_loop2:
373
			add ebx,26*65536
374
			inc edx
375
			int 0x40
376
			dec edi
377
			jns table_rjad_7_loop2
378
 
379
	Rjad_1:
380
		Cerium_:
381
			mov  ebx,102*65536+25
382
			mov  ecx,215*65536+20
383
			mov  edx,58
384
			mov  esi,0x73beeb
385
			int  0x40
386
			mov edi,12
387
 
388
		Rjad_1_loop:
389
			add ebx,26*65536
390
			inc edx
391
			dec edi
392
			int  0x40
393
			jns Rjad_1_loop
394
	Rjad_2:
395
		dgfsfHe_:
396
			mov  ebx,102*65536+25
397
			mov  ecx,236*65536+20
398
			mov  edx,90
399
			int  0x40
400
			mov edi,12
401
		Rjad_2_loop:
402
 
403
			add ebx,26*65536
404
			inc edx
405
			dec edi
406
			int  0x40
407
			jns Rjad_2_loop
408
 
409
Nadpisi_na_knopkah:
410
	nadp_rjad1:
411
		;H
412
			shr eax,1
413
			mov ebx,62*65536+68
414
			mov ecx,0x00000000
415
			mov edx,Symbols
416
			mov esi,3
417
			int 0x40
418
		;Ne
419
			mov ebx,500*65536+68
420
			add edx,3
421
			int 0x40
422
	nadp_rjad2_1:
423
			mov ebx,60*65536+88
424
			add edx,3
425
			int 0x40
426
 
427
			mov ebx,85*65536+88
428
			add edx,3
429
			int 0x40
430
	nadp_rjad2_2:
431
			mov ebx,374*65536+88
432
			add edx,3
433
			int 0x40
434
			mov edi,4
435
 
436
	nadp_rjad2_2_loop:
437
			add ebx,25*65536
438
			add edx,3
439
			int 0x40
440
 
441
			dec edi
442
			jns nadp_rjad2_2_loop
443
	nadp_rjad3_1:
444
			mov ebx,60*65536+108
445
			add edx,3
446
			int 0x40
447
 
448
			mov ebx,85*65536+108
449
			add edx,3
450
			int 0x40
451
	nadp_rjad3_2:
452
			mov ebx,374*65536+108
453
			add edx,3
454
			int 0x40
455
			mov edi,4
456
	nadp_rjad3_2_loop:
457
			add ebx,25*65536
458
			add edx,3
459
			int 0x40
460
 
461
			dec edi
462
			jns nadp_rjad3_2_loop
463
	nadp_rjad4:
464
			mov ebx,60*65536+129
465
			add edx,3
466
			int 0x40
467
			mov edi,16
468
	nadp_rjad4_loop:
469
			add ebx,26*65536
470
			add edx,3
471
			int 0x40
472
 
473
			dec edi
474
			jns nadp_rjad4_loop
475
	nadp_rjad5:
476
			mov ebx,60*65536+150
477
			add edx,3
478
			int 0x40
479
			mov edi,16
480
	nadp_rjad5_loop:
481
			add ebx,26*65536
482
			add edx,3
483
			int 0x40
484
 
485
			dec edi
486
			jns nadp_rjad5_loop
487
	nadp_rjad6:
488
			mov ebx,60*65536+171
489
			add edx,3
490
			int 0x40
491
			mov edi,16
492
	nadp_rjad6_loop:
493
			add ebx,26*65536
494
			add edx,3
495
			int 0x40
496
			dec edi
497
			jns nadp_rjad6_loop
498
	nadp_rjad7:
499
			mov ebx,60*65536+192
500
			add edx,3
501
			int 0x40
502
			mov edi,9
503
	nadp_rjad7_loop:
504
			add ebx,26*65536
505
			add edx,3
506
			int 0x40
507
 
508
			dec edi
509
			jns nadp_rjad7_loop
510
			mov edi,4
511
	nadp_rjad7_loop2:
512
			add ebx,24*65536
513
			add edx,3
514
			int 0x40
515
			dec edi
516
			jns nadp_rjad7_loop2
517
 
518
	nadp_rjad8:
519
			mov ebx,111*65536+222
520
			add edx,3
521
			int 0x40
522
			mov edi,12
523
 
524
	nadp_rjad8_loop:
525
			add ebx,26*65536
526
			add edx,3
527
			int 0x40
528
 
529
			dec edi
530
			jns nadp_rjad8_loop
531
 
532
	nadp_rjad9:
533
			mov ebx,111*65536+242
534
			add edx,3
535
			int 0x40
536
			mov edi,12
537
 
538
	nadp_rjad9_loop:
539
			add ebx,26*65536
540
			add edx,3
541
			int 0x40
542
 
543
			dec edi
544
			jns nadp_rjad9_loop
545
 
546
;;  - короче выносим в отдельную процедуру
547
	call VYVOD
548
;; 
549
 
550
  finish:
551
	mov eax,12  ;end drawing
552
	mov ebx,2
553
	int 0x40
554
ret
555
 
556
VYVOD:
557
 
558
   ; 1 вывод порядкового номера [optmzd-mem]
559
   ; 2 вывод русского названия [optmzd-mem]
560
   ; 3 вывод английского названия [optmzd-spd]
561
   ; 4 вывод атомной массы [optmzd-spd]
562
   ; 5 вывод плотность [optmzd-mem]
563
   ; 6 вывод степень окисления [optmzd-mem]
564
   ; 7 вывод электроотрицательности [optmzd-spd]
565
   ; 8 вывод температура плавления [optmzd-mem]
566
   ; 9 вывод температура кипения [optmzd-mem]
567
   ;10 вывод распределение в земной коре [optmzd-mem]
568
   ;11 вывод имён первооткрывателей [optmzd-mem]
569
 
570
;;  - закраска, что-бы не было наложения при прорисовке текста
571
	mov eax,13
572
	mov ebx,320*65536+210
573
	mov ecx,280*65536+(15*11)
574
	mov edx,[sc.work]
575
	int 0x40
576
;; 
577
 
578
 
579
  push edi  ; чтобы оптимизировать изменения ebx
580
 
581
	; 1 вывод порядкового номера [optmzd-mem]
582
	xor ebx,ebx
583
	or ebx,00000000000000110000000000000000b
584
	mov ecx,[re_ID]
585
	mov edx,320*65536+280+15*0
586
	xor esi,esi
587
	mov eax,47
588
	int 0x40
589
 
590
;ВНИМАНИЕ! ЗДЕСЬ ЗАДАЁТСЯ ЦВЕТ ВСЕГО ОСТАЛЬНОГО ТЕКСТА! [сделано для сокращения кода на 20 байт :)))]
591
	mov ecx,[sc.work_text]  ; ЦВЕТ
592
      or  ecx,0x80000000      ; asciiz
593
	mov eax,4  ; эта функция вызывается 10 раз! так что запишем 1 раз
594
 
595
	; 2 вывод РУССКОЕ НАЗВАНИЕ [optmzd-mem]
596
	mov edi,Rus_nazv	 ;указатель на начало массива указателей ;)
597
	mov ebx,320*65536+280+15*0 ;здесь вносятся координаты, дальше будет лишь add ebx,15
598
	call out_asciiz_item
599
 
600
	xor ecx,ecx   ;color
601
	; 3 вывод английского названия [optmzd-spd]
602
	mov edx,Elements
603
	mov edi,[re_ID]
604
	dec edi
605
	mov esi,12	 ;длина строки
606
	imul edi,esi	 ;считаем указатель на нужную строку
607
	add edx,edi
608
	add ebx,15	 ; увеличиваем y-координату текста на 15 пикселей
609
	int 0x40
610
 
611
	; 4 вывод атомной массы [optmzd-spd]
612
	mov edx,MassNo
613
	mov edi,[re_ID]
614
	dec edi
615
	mov esi,7	 ;длина строки
616
	imul edi,esi	 ;считаем указатель на нужную строку
617
	add edx,edi
618
	add ebx,15
619
	int 0x40
620
 
621
	mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
622
	; 5 вывод ПЛОТНОСТЬ [optmzd-mem]
623
	mov edi,Plotnost
624
	call out_asciiz_item
625
 
626
	; 6 вывод СТЕПЕНЬ ОКИСЛЕНИЯ [optmzd-mem]
627
	mov edi,Step_ok
628
	call out_asciiz_item
629
 
630
	xor ecx,ecx  ;color
631
	; 7 вывод ЭЛЕКТРООТРИЦАТЕЛЬНОСТЬ [optmzd-spd]
632
	mov edx,Electr
633
	mov edi,[re_ID]
634
	dec edi
635
	mov esi,4	 ;длина строки
636
	shl edi,2
637
	add edx,edi
638
	add ebx,15
639
	int 0x40
640
 
641
	mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
642
	; 8 вывод ТЕМПЕРАТУРА ПЛАВЛЕНИЯ [optmzd-mem]
643
	mov edi,T_plavl
644
	call out_asciiz_item
645
 
646
	; 9 вывод ТЕМПЕРАТУРА КИПЕНИЯ [optmzd-mem]
647
	mov edi,T_kipen
648
	call out_asciiz_item
649
 
650
	;10 вывод РАСПРЕДЕЛЕНИЕ В ЗЕМНОЙ КОРЕ [optmzd-mem]
651
	mov edi,Rasprostr
652
	call out_asciiz_item
653
 
654
	;11 вывод имён первооткрывателей [optmzd-mem]
655
	mov edi,First_Explore
656
	call out_asciiz_item
657
 
658
  pop edi   ; он был сохранён в начале :)
659
  ret
660
 
661
;функция выполняет набор действий для вывода информации
662
out_asciiz_item:
663
	mov edx,[re_ID]
664
	dec edx
665
	shl edx,2		 ;умножить на 4 (размер указателя)
666
	mov edx,[edx+edi]	 ;указатель на строку в edx
667
	add ebx,15
668
	int 0x40
669
ret
670
 
671
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
672
;;                                      ;;
673
;;          ОБЛАСТЬ ДАННЫХ              ;;
674
;;                                      ;;
675
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
676
;---- begin ---- Данные для ГЛАВНОГО окна --------------------------
677
Caption 	  db  'Периодическая система Д.И.Менделеева by [navanax] & [Johnny_B]',0
678
Plotnost_caption  db  'Плотность',0
679
Atomic_massa	  db  'Атомная масса',0
680
Nazvanie	  db  'Название',0
681
Angl_nazv	  db  'Англ. название',0
682
T_pl		  db  'Температура пл.',0
683
T_kip		  db  'Температура кип.',0
684
Electrootr	  db  'Электроотрицательность',0
685
Raspr		  db  'Распределение в земн. коре',0
686
Step_okisl	  db  'Степень окисления',0
687
Otkrytie	  db  'Открытие',0
688
Por_nomer	  db  'Порядковый номер',0
689
Period_text:
690
 db '  I',0
691
 db ' II',0
692
 db 'III',0
693
 db ' IV',0
694
 db '  V',0
695
 db ' VI',0
696
 db 'VII',0
697
Lantanoid_text db 'Лантаноиды',0
698
Actinoid_text  db ' Актиноиды',0
699
;---- end ------ Данные для ГЛАВНОГО окна --------------------------
700
 
701
 
702
;*********************************************
703
;    БАЗА ДАННЫХ ПО ХИМИЧЕСКИМ ЭЛЕМЕНТАМ
704
;*********************************************
705
;определимся, что кол-во элементов = 116. Ни больше, ни меньше!
706
;Каждый массив должен содержать 116 элементов,
707
;чтобы не было выхода за его пределы
708
 
709
;Английское название
710
Elements:	     ;116 элементов
711
db 'Hydrogen    '    ; 1
712
db 'Helium      '
713
db 'Lithium     '
714
db 'Beryllium   '
715
db 'Boron       '
716
db 'Carbon      '
717
db 'Nitrogen    '
718
db 'Oxygen      '
719
db 'Fluorine    '
720
db 'Neon        '
721
db 'Sodium      '
722
db 'Magnesium   '
723
db 'Aluminum    '
724
db 'Silicon     '
725
db 'Phosphorus  '
726
db 'Sulfur      '
727
db 'Chlorine    '
728
db 'Argon       '
729
db 'Potassium   '
730
db 'Calcium     '  ;20
731
db 'Scandium    '
732
db 'Titanium    '
733
db 'Vandium     '
734
db 'Chromium    '
735
db 'Manganese   '
736
db 'Iron        '
737
db 'Cobalt      '
738
db 'Nickel      '
739
db 'Copper      '
740
db 'Zinc        ' ;30
741
db 'Gallium     '
742
db 'Germanium   '
743
db 'Arsenic     '
744
db 'Selenium    '
745
db 'Bromine     '
746
db 'Krypton     '
747
db 'Rubidium    '
748
db 'Strontium   '
749
db 'Yttrium     '
750
db 'Zirconium   '
751
db 'Niobium     '
752
db 'Molybdenum  '
753
db 'Technetium  '
754
db 'Ruthenium   '
755
db 'Rhodium     '
756
db 'Palladium   '
757
db 'Silver      '
758
db 'Cadmium     '
759
db 'Indium      '
760
db 'Tin         '  ;50
761
db 'Antimony    '
762
db 'Tellurium   '
763
db 'Iodine      '
764
db 'Xenon       '
765
db 'Cesium      '
766
db 'Barium      '
767
db 'Lanthanum   '
768
db 'Cerium      '
769
db 'Praseodymium'
770
db 'Neodymium   '
771
db 'Promethium  '
772
db 'Samarium    '
773
db 'Europium    '
774
db 'Gadolinium  '
775
db 'Terbium     '
776
db 'Dysprosium  '
777
db 'Homium      '
778
db 'Erbium      '
779
db 'Thulium     '
780
db 'Ytterbium   '  ;70
781
db 'Lutetium    '
782
db 'Hafnium     '
783
db 'Tantalum    '
784
db 'Tungsten    '
785
db 'Rhenium     '
786
db 'Osmium      '
787
db 'Iridum      '
788
db 'Platinum    '
789
db 'Gold        '
790
db 'Mercury     '  ;80
791
db 'Thallium    '
792
db 'Lead        '
793
db 'Bismuth     '
794
db 'Polonium    '
795
db 'Astatine    '
796
db 'Radon       '
797
db 'Francium    '
798
db 'Radium      '
799
db 'Actinum     '
800
db 'Thorium     '  ;90
801
db 'Protactinium'
802
db 'Uranium     '
803
db 'Neptunium   '
804
db 'Plutonium   '
805
db 'Americium   '
806
db 'Curium      '
807
db 'Berkelium   '
808
db 'Californium '
809
db 'Einsteinium '
810
db 'Fermium     '  ;100
811
db 'Mendelevium '
812
db 'Nobelium    '
813
db 'Lawrencium  '
814
db 'Reserfordium'
815
db 'Dubnium     '
816
db 'Siborgovium '
817
db 'Boronium    '
818
db 'Hassium     '
819
db 'Meithnerium '
820
db 'Darmstadium '  ;110
821
db 'Roentgenium '
822
db 'Ununbium    '
823
db 'Ununtrium   '
824
db 'Ununquadium '
825
db 'Ununpentium '
826
db 'Ununhexium  '  ;116
827
 
828
 
829
;---------------------------------
830
 
831
Symbols:   ;116 элементов
832
db 'H  '
833
db 'He '
834
db 'Li '
835
db 'Be '
836
db 'B  '
837
db 'C  '
838
db 'N  '
839
db 'O  '
840
db 'F  '
841
db 'Ne '
842
db 'Na '
843
db 'Mg '
844
db 'Al '
845
db 'Si '
846
db 'P  '
847
db 'S  '
848
db 'Cl '
849
db 'Ar '
850
db 'K  '
851
db 'Ca '
852
db 'Sc '
853
db 'Ti '
854
db 'V  '
855
db 'Cr '
856
db 'Mn '
857
db 'Fe '
858
db 'Co '
859
db 'Ni '
860
db 'Cu '
861
db 'Zn '
862
db 'Ga '
863
db 'Ge '
864
db 'As '
865
db 'Se '
866
db 'Br '
867
db 'Kr '
868
db 'Rb '
869
db 'Sr '
870
db 'Y  '
871
db 'Zr '
872
db 'Nb '
873
db 'Mo '
874
db 'Tc '
875
db 'Ru '
876
db 'Rh '
877
db 'Pd '
878
db 'Ag '
879
db 'Cd '
880
db 'In '
881
db 'Sn '
882
db 'Sb '
883
db 'Te '
884
db 'I  '
885
db 'Xe '
886
db 'Cs '
887
db 'Ba '
888
db 'La '
889
db 'Hf '
890
db 'Ta '
891
db 'W  '
892
db 'Re '
893
db 'Os '
894
db 'Ir '
895
db 'Pt '
896
db 'Au '
897
db 'Hg '
898
db 'Tl '
899
db 'Pb '
900
db 'Bi '
901
db 'Po '
902
db 'At '
903
db 'Rn '
904
db 'Fr '
905
db 'Ra '
906
db 'Ac '
907
db 'Rf '
908
db 'Db '
909
db 'Sg '
910
db 'Bh '
911
db 'Hs '
912
db 'Mt '
913
db 'Ds '
914
db 'Rg '
915
db 'Uub'
916
db 'Uut'
917
db 'Uuq'
918
db 'Uup'
919
db 'Uuh'
920
db 'Ce '
921
db 'Pr '
922
db 'Nd '
923
db 'Pm '
924
db 'Sm '
925
db 'Eu '
926
db 'Gd '
927
db 'Tb '
928
db 'Dy '
929
db 'Ho '
930
db 'Er '
931
db 'Tm '
932
db 'Yb '
933
db 'Lu '
934
db 'Th '
935
db 'Pa '
936
db 'U  '
937
db 'Np '
938
db 'Pu '
939
db 'Am '
940
db 'Cm '
941
db 'Bk '
942
db 'Cf '
943
db 'Es '
944
db 'Fm '
945
db 'Md '
946
db 'No '
947
db 'Lr '
948
 
949
;АТОМНАЯ МАССА
950
MassNo: 	 ;116 элементов
951
db '1.00797'	 ; 1
952
db '4.0026 '
953
db '6.939  '
954
db '9.0122 '
955
db '10.811 '
956
db '12.0112'
957
db '14.0067'
958
db '15.9994'
959
db '18.9984'
960
db '20.179 '	 ; 10
961
db '22.9898'
962
db '24.305 '
963
db '26.9815'
964
db '28.086 '
965
db '30.9738'
966
db '32.066 '
967
db '35.453 '
968
db '39.948 '
969
db '39.102 '
970
db '40.08  '	 ; 20
971
db '44.958 '
972
db '47.88  '
973
db '50.942 '
974
db '51.996 '
975
db '54.938 '
976
db '55.847 '
977
db '58.9332'
978
db '58.69  '
979
db '63.546 '
980
db '65.39  '	 ; 30
981
db '69.723 '
982
db '72.61  '
983
db '74.922 '
984
db '78.96  '
985
db '79.904 '
986
db '83.80  '
987
db '85.47  '
988
db '87.62  '
989
db '88.906 '
990
db '91.224 '	 ; 40
991
db '92.906 '
992
db '95.94  '
993
db '(98)   '
994
db '101.07 '
995
db '102.905'
996
db '106.42 '
997
db '107.868'
998
db '112.41 '
999
db '114.82 '
1000
db '118.71 '	 ; 50
1001
db '121.75 '
1002
db '127.60 '
1003
db '126.90 '
1004
db '131.29 '
1005
db '132.90 '
1006
db '137.33 '
1007
db '138.91 '
1008
db '140.12 '
1009
db '140.91 '
1010
db '144.24 '	 ; 60
1011
db '(147)  '
1012
db '150.36 '
1013
db '151.96 '
1014
db '157.25 '
1015
db '158.92 '
1016
db '162.50 '
1017
db '164.93 '
1018
db '167.26 '
1019
db '168.93 '
1020
db '173.04 '	 ; 70
1021
db '174.97 '
1022
db '178.49 '
1023
db '180.95 '
1024
db '183.85 '
1025
db '186.21 '
1026
db '190.2  '
1027
db '192.22 '
1028
db '195.08 '
1029
db '196.97 '
1030
db '200.59 '	 ; 80
1031
db '204.38 '
1032
db '207.19 '
1033
db '208.98 '
1034
db '(209)  '
1035
db '(210)  '
1036
db '(222)  '
1037
db '(223)  '
1038
db '(226)  '
1039
db '(227)  '
1040
db '232.04 '	 ; 90
1041
db '(231)  '
1042
db '238.029'
1043
db '(237)  '
1044
db '(244)  '
1045
db '(243)  '
1046
db '(247)  '
1047
db '(247)  '
1048
db '(251)  '
1049
db '(254)  '
1050
db '(257)  '	 ; 100
1051
db '(258)  '
1052
db '(259)  '
1053
db '(262)  ' ;103
1054
db '(261)  '
1055
db '(262)  '
1056
db '(266)  '
1057
db '(264)  '
1058
db '(269)  '
1059
db '(268)  '
1060
db '(271)  '	 ; 110
1061
db '(272)  '
1062
db '(285)  '
1063
db '(284)  '
1064
db '(289)  '
1065
db '(288)  '
1066
db '(292)  '	 ;116
1067
 
1068
 
1069
;-----------------------
1070
 
1071
;ЭЛЕКТРООТРИЦАТЕЛЬНОСТЬ
1072
Electr:        ; 116 элементов
1073
db '2,1 '     ; 1
1074
db '5,5 '
1075
db '0,97'
1076
db '1,47'
1077
db '2,01'
1078
db '2,50'
1079
db '3,07'
1080
db '3,50'
1081
db '4,10'
1082
db '4,84'     ; 10
1083
db '0,93'
1084
db '1,23'
1085
db '1,47'
1086
db '2,25'
1087
db '2,32'
1088
db '2,60'
1089
db '2,83'
1090
db '3,20'
1091
db '0,91'
1092
db '1,04'	  ; 20
1093
db '1,20'
1094
db '1,32'
1095
db '1,45'
1096
db '1,56'
1097
db '1,60'
1098
db '1,64'
1099
db '1,70'
1100
db '1,75'
1101
db '1,75'
1102
db '1,66'     ; 30
1103
db '1,82'
1104
db '2,02'
1105
db '2,11'
1106
db '2,48'
1107
db '2,74'
1108
db '2,94'
1109
db '0,89'
1110
db '0,99'
1111
db '1,11'
1112
db '1,22'	;40
1113
db '1,6 '
1114
db '2,16'
1115
db '1,9 '
1116
db '2.2 '
1117
db '2.28'
1118
db '2,2 '
1119
db '1,93'
1120
db '1,69'
1121
db '1,78'
1122
db '1,96'
1123
db '2,05'
1124
db '2,1 '
1125
db '2,66'
1126
db '??? '
1127
db '0,79'
1128
db '0,89'
1129
db '1,1 '
1130
db '1,12'
1131
db '1,13'
1132
db '1,14'    ;60
1133
db '1,13'
1134
db '1,17'
1135
db '1,2 '
1136
db '1,2 '
1137
db '1,2 '
1138
db '1,22'
1139
db '1,23'
1140
db '1,24'
1141
db '1,25'
1142
db '1,1 '     ; 70
1143
db '1,27'
1144
db '1,3 '
1145
db '1,5 '
1146
db '1,36'
1147
db '1,46'
1148
db '1,52'
1149
db '1,55'
1150
db '1,44'
1151
db '1,42'
1152
db '1,42'     ; 80
1153
db '1,42'
1154
db '1,55'
1155
db '1,67'
1156
db '1,76'
1157
db '1,90'
1158
db '2,06'
1159
db '0,86'
1160
db '0,97'
1161
db '1,00'
1162
db '1,11'  ;90
1163
db '1,14'
1164
db '1,22'
1165
db '1,22'
1166
db '1,2 '
1167
db '1,1 '
1168
db '1,2 '
1169
db '1,1 '
1170
db '1,2 '
1171
db '??? '
1172
db '??? '     ; 100
1173
db '1,2 '
1174
db '??? '
1175
db '??? '
1176
db '??? '
1177
db '??? '
1178
db '??? '
1179
db '??? '
1180
db '??? '
1181
db '??? '
1182
db '??? '     ; 110
1183
db '??? '
1184
db '??? '
1185
db '??? '
1186
db '??? '
1187
db '??? '
1188
db '??? '     ; 116
1189
 
1190
;-----------------------
1191
 
1192
;ТЕМПЕРАТУРА ПЛАВЛЕНИЯ    116 элементов
1193
strtbl T_plavl, \
1194
"- 259,19", \
1195
"- 271,15", \
1196
"180,5", \
1197
"1287", \
1198
"2075", \
1199
"4000(графит)", \
1200
"-210,0", \
1201
"-218,7", \
1202
"-219,699", \
1203
"-248,6", \
1204
"97,83", \
1205
"648", \
1206
"660,37", \
1207
"1415", \
1208
"44,14(белый)  593(красный)", \
1209
"119,3", \
1210
"-101,03", \
1211
"-189,34", \
1212
"63,51", \
1213
"842", \	   ;20
1214
"1541", \
1215
"1658", \
1216
"1920", \
1217
"1890", \
1218
"1245", \
1219
"1539", \
1220
"1494", \
1221
"1455", \
1222
"1084,5", \
1223
"419,5", \
1224
"29,78", \
1225
"937", \
1226
"817 (под давлением)", \
1227
"217", \
1228
"-7,25", \
1229
"-157,37", \
1230
"39,3", \
1231
"768", \
1232
"1528", \
1233
"1855", \	   ;40
1234
"2470", \
1235
"2620", \
1236
"2250", \
1237
"2607", \
1238
"1963", \
1239
"1554", \
1240
"961,93", \
1241
"321,108", \
1242
"156,634", \
1243
"231,9681", \
1244
"630,74", \
1245
"449,8", \
1246
"113,5", \
1247
"-111,85", \
1248
"28,7", \
1249
"727", \
1250
"920", \
1251
"804", \
1252
"931", \
1253
"1024", \   ;60
1254
"1170", \
1255
"1072", \
1256
"826", \
1257
"1312", \
1258
"1356", \
1259
"1409", \
1260
"1470", \
1261
"1522", \
1262
"1545", \
1263
"824", \
1264
"1663", \
1265
"2230", \
1266
"3270", \
1267
"3660", \
1268
"3190", \
1269
"3027", \
1270
"2443", \
1271
"1772", \
1272
"1064,43", \
1273
"-38,862", \	;80
1274
"303,6", \
1275
"327,502", \
1276
"271,44", \
1277
"254", \
1278
"575", \
1279
"-71,0", \
1280
"21", \
1281
"969", \
1282
"1050", \
1283
"1750", \
1284
"1580", \
1285
"1134", \
1286
"637", \
1287
"640", \
1288
"1292", \
1289
"1345", \
1290
"1050", \
1291
"900", \
1292
"860", \
1293
"???", \   ;100
1294
"???", \
1295
"???", \
1296
"???", \
1297
"???", \
1298
"???", \
1299
"???", \
1300
"???", \
1301
"???", \
1302
"???", \
1303
"???", \    ;110
1304
"???", \
1305
"???", \
1306
"???", \
1307
"???", \
1308
"???", \
1309
"???"	     ; 116
1310
 
1311
 
1312
 
1313
;-----------------------
1314
 
1315
;ТЕМПЕРАТУРА КИПЕНИЯ     116 элементов
1316
strtbl T_kipen, \
1317
"- 252,87", \
1318
"- 268,935", \
1319
"1336,6", \
1320
"2471", \
1321
"3700", \
1322
"4200(графит)", \
1323
"-195,802", \
1324
"-182,962", \
1325
"-188,2", \
1326
"-246,048", \
1327
"886", \
1328
"1095", \
1329
"2500", \
1330
"3250", \
1331
"287,3 - белый ", \
1332
"444,674", \
1333
"-34,1", \
1334
"-185,86", \
1335
"760", \
1336
"1495", \	  ;20
1337
"2850", \
1338
"3260", \
1339
"3450", \
1340
"2680", \
1341
"2080", \
1342
"3200", \
1343
"2960", \
1344
"2900", \
1345
"2540", \
1346
"906,2", \
1347
"2403", \
1348
"2850", \
1349
"-", \
1350
"685,3", \
1351
"59,82", \
1352
"153,35", \
1353
"696", \
1354
"1390", \
1355
"3320", \
1356
"4340", \	   ;40
1357
"4927", \
1358
"4630", \
1359
"4630", \
1360
"4900", \
1361
"3700", \
1362
"2940", \
1363
"2170", \
1364
"766,5", \
1365
"2024", \
1366
"2620", \
1367
"1634", \
1368
"990", \
1369
"184,35", \
1370
"-108,12", \
1371
"667,6", \
1372
"1860", \
1373
"3450", \
1374
"3450", \
1375
"3510", \
1376
"3080", \    ;60
1377
"3000", \
1378
"1800", \
1379
"1440", \
1380
"3272", \
1381
"3073", \
1382
"2587", \
1383
"2707", \
1384
"2857", \
1385
"1947", \
1386
"1211", \
1387
"3412", \
1388
"4620", \
1389
"5425", \
1390
"6000", \
1391
"5900", \
1392
"5000", \
1393
"4380", \
1394
"3800", \
1395
"2947", \
1396
"356,66", \  ;80
1397
"1457", \
1398
"1745", \
1399
"1564", \
1400
"962", \
1401
"309", \
1402
"-61,9", \
1403
"669", \
1404
"1536", \
1405
"3300", \
1406
"4200", \
1407
"4500", \
1408
"4200", \
1409
"4100", \
1410
"3350", \
1411
"2880", \
1412
"3200", \
1413
"2630", \
1414
"1227", \
1415
"???", \
1416
"???", \  ;100
1417
"???", \
1418
"???", \
1419
"???", \
1420
"???", \
1421
"???", \
1422
"???", \
1423
"???", \
1424
"???", \
1425
"???", \
1426
"???", \	; 110
1427
"???", \
1428
"???", \
1429
"???", \
1430
"???", \
1431
"???", \
1432
"???"		  ; 116
1433
 
1434
 
1435
;Русское название           ; 116 элементов
1436
strtbl Rus_nazv, \
1437
"Водород", \		    ;1
1438
"Гелий", \
1439
"Литий", \
1440
"Бериллий", \
1441
"Бор", \
1442
"Углерод", \
1443
"Азот", \
1444
"Кислород", \
1445
"Фтор", \
1446
"Неон", \		   ;10
1447
"Натрий", \
1448
"Магний", \
1449
"Алюминий", \
1450
"Кремний", \
1451
"Фосфор", \
1452
"Сера", \
1453
"Хлор", \
1454
"Аргон", \
1455
"Калий", \
1456
"Кальций", \
1457
"Скандий", \
1458
"Титан", \
1459
"Ванадий", \
1460
"Хром", \
1461
"Марганец", \
1462
"Железо", \
1463
"Кобальт", \
1464
"Никель", \
1465
"Медь", \
1466
"Цинк", \		   ;30
1467
"Галлий", \
1468
"Германий", \
1469
"Мышьяк", \
1470
"Селен", \
1471
"Бром", \
1472
"Криптон", \
1473
"Рубидий", \
1474
"Стронций", \
1475
"Иттрий", \
1476
"Цирконий", \
1477
"Ниобий", \
1478
"Молибден", \
1479
"Технеций", \
1480
"Рутений", \
1481
"Родий", \
1482
"Палладий", \
1483
"Серебро", \
1484
"Кадмий", \
1485
"Индий", \
1486
"Олово", \		    ;50
1487
"Сурьма", \
1488
"Теллур", \
1489
"Йод", \
1490
"Ксенон", \
1491
"Цезий", \
1492
"Барий", \
1493
"Лантан", \
1494
"Церий", \
1495
"Празеодим", \
1496
"Неодим", \
1497
"Прометий", \
1498
"Самарий", \
1499
"Европий", \
1500
"Гадолиний", \
1501
"Тербий", \
1502
"Диспрозий", \
1503
"Гольмий", \
1504
"Эрбий", \
1505
"Тулий", \
1506
"Иттербий", \		       ;70
1507
"Лютеций", \
1508
"Гафний", \
1509
"Тантал", \
1510
"Вольфрам", \
1511
"Рений", \
1512
"Осмий", \
1513
"Иридий", \
1514
"Платина", \
1515
"Золото", \
1516
"Ртуть", \
1517
"Таллий", \
1518
"Свинец", \
1519
"Висмут", \
1520
"Полоний", \
1521
"Астат", \
1522
"Радон", \
1523
"Франций", \
1524
"Радий", \
1525
"Актиний", \
1526
"Торий",\
1527
"Протактиний",\
1528
"Уран",\
1529
"Нептуний", \		       ;90
1530
"Плутоний", \
1531
"Америций", \
1532
"Кюрий", \
1533
"Берклий", \
1534
"Калифорний", \
1535
"Эйнштейний", \
1536
"Фермий", \
1537
"Менделевий", \
1538
"Нобелий", \
1539
"Лоуренсий", \
1540
"Резерфордий", \
1541
"Дубний", \
1542
"Сиборговий", \
1543
"Борий", \
1544
"Гассий", \
1545
"Мейтнерий", \
1546
"?Дармстадий?", \
1547
"Рентгений", \
1548
"нет названия", \
1549
"нет названия", \	    ;110
1550
"нет названия", \
1551
"нет названия", \
1552
"нет названия"		    ;116
1553
 
1554
 
1555
;Первооткрыватели              ; 116 элементов
1556
strtbl First_Explore, \
1557
"Г.Кавендиш, 1766", \
1558
"Ж.Жансен, Дж.Н.Локьер, 1868", \
1559
"А.Арфедсон, 1817", \
1560
"Л.Воклен, 1798", \
1561
"Л.Ж.Гей-Люссак 1808", \
1562
"известен до н.э.", \
1563
"Д.Резерфорд, 1772", \
1564
"К.В.Шееле, 1772", \
1565
"А.Муассан, 1886", \
1566
"У.Рамзай,М.Траверс     1898", \
1567
"Г.Дэви, 1807",\
1568
"Г.Дэви, 1808",\
1569
"Х.К.Эрстед, 1825",\
1570
"Ж.Л.Гей-Люссак, Л.Ж.Тенар, 1811",\
1571
"Х.Брандт, 1669",\
1572
"известна до н.э.",\
1573
"К.В.Шееле, 1774",\
1574
"У.Рамзай, Дж.Рэлей, 1894",\
1575
"Г.Дэви, 1807",\
1576
"Г.Дэви, 1808",\
1577
"Л.Ф.Нильсон, 1879",\
1578
"У.Грегор, 1790 ",\
1579
"Г.Роско, 1869",\
1580
"Л.Н.Воклен, 1797",\
1581
"Ю.Ган, 1774",\
1582
"известно до н.э.",\
1583
"Ю.Брандт, 1735",\
1584
"А.Кронштедт, 1751",\
1585
"известна до н.э.",\
1586
"известен со средн. веков",\
1587
"П.Э.Лекок де Буабодран, 1875",\
1588
"К.А.Винклер, 1886",\
1589
"известен со средн. веков",\
1590
"Й.Берцелиус, Й.Ган, 1817",\
1591
"Ж.Балар, 1826",\
1592
"У.Рамзай, М.Траверс, 1898",\
1593
"Р.Бунзен, Г.Кирхгоф, 1861",\
1594
"А.Крофорд, 1808",\
1595
"Ю.Гадолин, 1794",\
1596
"М.Клапрот, 1789",\
1597
"Ч.Хатчет, 1801",\
1598
"К.В.Шееле, 1778",\
1599
"Э.Сегре, К.Перье, 1937",\
1600
"К.К.Клаус, 1844",\
1601
"У.Волластон, 1804",\
1602
"У.Волластон, 1803",\
1603
"известно до н.э.",\
1604
"Ф.Штромейер, 1817",\
1605
"Р.Рейх, И.Рихтер, 1863",\
1606
"известно до н.э.",\
1607
"известна до н.э.",\
1608
"Ф.Мюллер, 1782",\
1609
"Б.Куртуа, 1811",\
1610
"У.Рамзай, М.Траверс, 1898",\
1611
"Р.Бунзен, Г.Кирхгоф, 1860",\
1612
"Г.Дэви, 1774",\
1613
"К.Мосандер, 1839",\
1614
"К.Мосандер, 1839",\
1615
"К.Ауэр фон Вельсбах, 1885",\
1616
"К.Ауэр фон Вельсбах, 1842",\
1617
"Л.Гленденин, Ч.Кориэлл и др., 1942",\
1618
"П.Э.Лекок де Буабодран, 1879",\
1619
"Э.Демарсе, 1901",\
1620
"Ж.Мариньяк, 1880",\
1621
"К.Мосандер, 1843",\
1622
"П.Э.Лекок де Буабодран, 1886",\
1623
"П.Клеве, 1879",\
1624
"К.Мосандер, 1843",\
1625
"П.Клеве, 1879",\
1626
"Ж.Мариньяк, 1878",\
1627
"Ж.Урбэн, Ч.Джеймс, 1907",\
1628
"Д.Костер и др., 1922",\
1629
"А.Г.Экеберг, 1802",\
1630
"К.В.Шееле, 1781",\
1631
"И. и В.Ноддак, О.Берг, 1925",\
1632
"С.Теннант, 1804",\
1633
"С.Теннант, 1804",\
1634
"изв. с древности",\
1635
"известно до н.э.",\
1636
"известна до н.э.",\
1637
"У.Крукс, 1861",\
1638
"известен до н.э.",\
1639
"И.Потт, 1739",\
1640
"М. и П.Кюри, 1898",\
1641
"Д.Корсон др., 1940",\
1642
"Э.Дорн, 1940",\
1643
"М.Перей, 1939",\
1644
"М. и П.Кюри, Ж.Бемюн, 1898",\
1645
"А.Дебьерн, 1899",\
1646
"Й.Берцелиус, 1828",\
1647
"О.Ган, Л.Мейтнер, Ф.Содди, 1918",\
1648
"М.Клапрот, 1789",\
1649
"Э.М.Макмиллан, Ф.Х.Эйблсон, 1940",\
1650
"Г.Сиборг и др., 1940",\
1651
"Г.Сиборг и др., 1944",\
1652
"Г.Сиборг и др., 1944",\
1653
"Г.Сиборг и др., 1949",\
1654
"Г.Сиборг и др., 1950",\
1655
"А.Гиорсо, С.Томпсон, 1952",\
1656
"А.Гиорсо, С.Томпсон, 1952",\
1657
"А.Гиорсо и др., 1955",\
1658
"Учёные СССР, 1966",\
1659
"А.Гиорсо и др., 1961",\
1660
"Г.Н.Флеров и др., 1964",\
1661
"Г.Н.Флеров и др., 1967",\
1662
"Г.Н.Флеров и др., 1974",\
1663
"P.Armbruster, G.Munzenber, 1981",\
1664
"P.Armbruster, G.Munzenber, 1984",\
1665
"P.Armbruster, G.Munzenber, 1982",\
1666
"S.Hofmann, V. Ninov, 1994",\
1667
"S.Hofmann, V. Ninov, 1994",\
1668
"S.Hofmann, V. Ninov, 1996",\
1669
"не открыт",\
1670
"Учёные России, 1998",\
1671
"не открыт",\
1672
"Ю.Ц.Оганессян, В.К.Утенков, 2000"
1673
 
1674
 
1675
; Плотность        116 элементов
1676
strtbl Plotnost, \
1677
"-", \		     ; 1
1678
"-", \
1679
"535", \
1680
"1848", \
1681
"2460", \
1682
"2267", \
1683
"-", \
1684
"-", \
1685
"-", \
1686
"0,90035 г/л", \
1687
"968", \	       ; 10
1688
"1738", \
1689
"2700", \
1690
"2330", \
1691
"1823", \
1692
"1960", \
1693
"-", \
1694
"1,7837 г/л", \
1695
"856", \
1696
"1550", \
1697
"2985", \		; 20
1698
"4507", \
1699
"6110", \
1700
"7140", \
1701
"7470", \
1702
"7874", \
1703
"8900", \
1704
"8908", \
1705
"8920", \
1706
"7140", \
1707
"5904", \		; 30
1708
"5323", \
1709
"5727", \
1710
"4819", \
1711
"-", \
1712
"3,745 г/л", \
1713
"1532", \
1714
"2630", \
1715
"4472", \
1716
"6511", \
1717
"8570", \		; 40
1718
"10280", \
1719
"11500", \
1720
"12370", \
1721
"12450", \
1722
"12023", \
1723
"10490", \
1724
"8650", \
1725
"7310", \
1726
"7310", \
1727
"6697", \		; 50
1728
"6240", \
1729
"4940", \
1730
"5,851 г/л", \
1731
"1879", \
1732
"3510", \
1733
"6146", \
1734
"6689", \
1735
"6640", \
1736
"6800", \
1737
"7264", \		; 60
1738
"7353", \
1739
"5244", \
1740
"7901", \
1741
"8219", \
1742
"8551", \
1743
"8795", \
1744
"9066", \
1745
"9321", \
1746
"6570", \
1747
"9841", \		; 70
1748
"13310", \
1749
"16650", \
1750
"19250", \
1751
"21020", \
1752
"22610", \
1753
"22650", \
1754
"21090", \
1755
"19300", \
1756
"-", \
1757
"11850", \		 ; 80
1758
"11340", \
1759
"9780", \
1760
"9196", \
1761
"-", \
1762
"9,73 г/л", \
1763
"2400", \
1764
"5000", \
1765
"10070", \
1766
"11724", \
1767
"15370", \		 ; 90
1768
"19050", \
1769
"20450", \
1770
"19816", \
1771
"-", \
1772
"13510", \
1773
"14780", \
1774
"15100", \
1775
"-", \
1776
"-", \
1777
"-", \		     ; 100
1778
"-", \
1779
"-", \
1780
"-", \
1781
"-", \
1782
"-", \
1783
"-", \
1784
"-", \
1785
"-", \
1786
"-", \
1787
"-", \		     ; 110
1788
"-", \
1789
"-", \
1790
"-", \
1791
"-", \
1792
"-", \
1793
"-"		     ; 116
1794
 
1795
 
1796
;РАСПРОСТРАНЕНИЕ В ЗЕМНОЙ КОРЕ            116 элементов
1797
strtbl Rasprostr, \
1798
"0,14 %", \		  ; 1
1799
"менее 0,0015 %", \
1800
"0,0030 %", \
1801
"0,0006 %", \
1802
"0,005 %", \
1803
"0,032 %", \
1804
"0,0046 %", \
1805
"46,60 %", \
1806
"0,070 %", \
1807
"0,00007 г/т", \	       ; 10
1808
"2,83 %", \
1809
"2,09 %", \
1810
"8,13 %", \
1811
"27,72 %", \
1812
"0,118 %", \
1813
"0,052 %", \
1814
"0,020 %", \
1815
"0,000004 %", \
1816
"2,59 %", \
1817
"3,63 %", \		  ; 20
1818
"0,001 %", \
1819
"0,57 %", \
1820
"0,0110 %", \
1821
"0,0200 %", \
1822
"0,100 %", \
1823
"5,00 %", \
1824
"0,0023 %", \
1825
"0,0080 %", \
1826
"0,0045 %", \
1827
"0,0065 %", \		    ; 30
1828
"0,0015 %", \
1829
"0,00015 %", \
1830
"0,00017 %", \
1831
"0,000014 %", \
1832
"0,00016 %", \
1833
"0,000114 % (в атмосфере)", \
1834
"0,0120 %", \
1835
"???", \
1836
"0,0040 %", \
1837
"0,0160 %", \		    ; 40
1838
"0,0024 %", \
1839
"0,0003 %", \
1840
"-", \
1841
"0,0000005 %", \
1842
"0.0000001 %", \
1843
"0,000001 %", \
1844
"0,000007 %", \
1845
"0,0000135 %", \
1846
"0,00001 %", \
1847
"0,008 %", \
1848
"0,00005 %", \		     ; 50
1849
"0,000001 %", \
1850
"0,00004 %", \
1851
"0,000039 % (в атмосфере)", \
1852
"0,00037 %", \
1853
"0,040 %", \
1854
"0,0029 %", \
1855
"0,007 %", \
1856
"0,0007 %", \
1857
"0,0025 %", \
1858
"-", \		     ; 60
1859
"0,0007 %", \
1860
"0,00013 %", \
1861
"0,00054 %", \
1862
"0,00043 %", \
1863
"0,0005 %", \
1864
"0,00013 %", \
1865
"0,00033 %", \
1866
"0,000027 %", \
1867
"0,000033 %", \
1868
"0,00008 %", \		     ; 70
1869
"0,0003 - 0,0004 %", \
1870
"0,00025 %", \
1871
"0,0001 %", \
1872
"0,00000007 %", \
1873
"0,000005 %", \
1874
"0,0000001 %", \
1875
"0,0000005 %", \
1876
"0,00000043 %", \
1877
"0,000007 %", \
1878
"0,0003 %", \		    ; 80
1879
"0,0015 %", \
1880
"0,00002 %", \
1881
"0,00000000000002 %", \
1882
"17 мг в слое коры 1,6 км", \
1883
"-", \
1884
"-", \
1885
"0,0000000001 %", \
1886
"0,0000000006 %", \
1887
"0,0008 %", \
1888
"-", \		     ; 90
1889
"0,0003 %", \
1890
"-", \
1891
"-", \
1892
"0,0003 %", \
1893
"-", \
1894
"-", \
1895
"-", \
1896
"-", \
1897
"-", \
1898
"-", \		     ; 100
1899
"-", \
1900
"-", \
1901
"-", \
1902
"-", \
1903
"-", \
1904
"-", \
1905
"-", \
1906
"-", \
1907
"-", \
1908
"-", \		     ; 110
1909
"-", \
1910
"-", \
1911
"-", \
1912
"-", \
1913
"-"		  ; 116
1914
 
1915
 
1916
; степень окисления   116 элементов
1917
strtbl Step_ok, \
1918
"+1 -1", \		     ; 1
1919
"-", \
1920
"+1", \
1921
"+2 (+1)", \
1922
"+3 (+2)", \
1923
"+4 -4", \
1924
"от +5 до -3 ", \
1925
"+4 -4", \
1926
"-1", \
1927
"-", \			 ; 10
1928
"+1", \
1929
"+2 (+1)", \
1930
"+3 (+1 +2)", \
1931
"+1 +2 +3 +4", \
1932
"-3 +3 +5", \
1933
"-2 +4 +6", \
1934
"-1 +1 +3 +5 +7", \
1935
"-", \
1936
"+1", \
1937
"+2 (+1)", \		       ; 20
1938
"+3 (+1 +2)", \
1939
"+4 +2 +3", \
1940
"от +2 до +5", \
1941
"+2 +3 +6 (+4 +5 +1)", \
1942
"от +2 до +7", \
1943
"+2 +3 (+1 +2 +4 +6 +8)", \
1944
"+2 +3 (+1 +4 +5)", \
1945
"+2 (+1 +3 +4)", \
1946
"+1 +2 (+3 +4)", \
1947
"+2", \ 		  ; 30
1948
"+1 +3", \
1949
"+4 +3 +2 +1", \
1950
"+5 +3 -3", \
1951
"+6 +4 -2 (+2)", \
1952
"-1 +1 +3 +5 +7", \
1953
"+2", \
1954
"+1", \
1955
"+2 (+1)", \
1956
"+3", \
1957
"+4 (+1 +2 +3)", \		     ; 40
1958
"+5 (+1 +2 +3 +4)", \
1959
"от +2 до +6", \
1960
"от -1 до +7", \
1961
"+3 +4 +6 +8", \
1962
"+1 +2 +3 +4 +5 +6", \
1963
"+1 +2 +3 +4 (+5 +6)", \
1964
"+1 +2 +3", \
1965
"+2 (+1)", \
1966
"+3 (+1)", \
1967
"+2 +4", \		     ; 50
1968
"+3 +5 (-3)", \
1969
"-2 +6 +4 (+2)", \
1970
"-1 +1 +3 +5 +7", \
1971
"+2 +4 +6 +8", \
1972
"+1", \
1973
"+2 (+1)", \
1974
"+3", \
1975
"+3 (+4)", \
1976
"+4 +3 (+2)", \
1977
"+4 +3 (+2)", \ 		  ; 60
1978
"+3", \
1979
"+2 +3 (+2)", \
1980
"+3 +2", \
1981
"+3 (+2 +1)", \
1982
"+1 +3 +4", \
1983
"+3 (+2 +4)", \
1984
"+3 (+2)", \
1985
"+3 (+1)", \
1986
"+3 +2 (+4)", \
1987
"+2 +3", \		     ; 70
1988
"+3", \
1989
"+4 (+3 +2)", \
1990
"+5 (+2 +3 +4)", \
1991
"от +2 до +6", \
1992
"от +7 до -1", \
1993
"+4 +6 +8 +1 +3 +5", \
1994
"+4 +3 +1 +2 +6", \
1995
"+4 +3 +2 (+5 +6)", \
1996
"+1 +3 (+5)", \
1997
"+2 +1", \		     ; 80
1998
"+1 +3", \
1999
"+1 +4 +2", \
2000
"+3 +5 -3 (+1 +2)", \
2001
"+6 +4 +2 -2", \
2002
"-1 +1 +5 (+7)", \
2003
"+2 +4 +6", \
2004
"+1", \
2005
"+2", \
2006
"+3", \
2007
"+4 (+2 +3)", \ 		  ; 90
2008
"+4 +5 (+3)", \
2009
"от +2 до +6", \
2010
"+3 +4 +5 (+6 +7)", \
2011
"от +3 до +7", \
2012
"от +2 до +7", \
2013
"+3 (+4 +6)", \
2014
"+3 (+4)", \
2015
"+2 +3 (+4)", \
2016
"+2 +3", \
2017
"+2 +3", \		     ; 100
2018
"+1 +2 +3", \
2019
"+2 +3", \
2020
"+3", \
2021
"-", \
2022
"-", \
2023
"-", \
2024
"-", \
2025
"-", \
2026
"-", \
2027
"-", \			 ; 110
2028
"-", \
2029
"-", \
2030
"-", \
2031
"-", \
2032
"-", \
2033
"-"		      ; 116
2034
I_END:
2035
sc   system_colors