Subversion Repositories Kolibri OS

Rev

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