Subversion Repositories Kolibri OS

Rev

Rev 502 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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.  
  40.       mov  eax,48
  41.       mov  ebx,3
  42.       mov  ecx,sc
  43.       mov  edx,sizeof.system_colors
  44.       mcall
  45.  
  46. red:
  47.       call draw_window
  48.  
  49. still:                ;основной цикл программы
  50.       push 10   ;ожидание события
  51.       pop  eax
  52.       mcall
  53.  
  54.       dec  eax
  55.       je   red
  56.       dec  eax
  57.       jne  button
  58.  
  59. key:
  60.         mov  al,2
  61.         mcall
  62.         jmp  still
  63.  
  64. button:
  65.         mov  al,17   ;получаем ID нажатой кнопки
  66.         mcall
  67.         shr  eax,8    ; eax=24-битный ButtonID
  68.  
  69.         cmp  eax,1    ;нажата ли "Закрыть" [x]
  70.         jne  noclose
  71.         or   eax,-1
  72.         mcall
  73.  
  74. noclose:
  75.       cmp eax,200
  76.       jne no_H
  77.       mov eax,1
  78. no_H:
  79.         mov [re_ID],eax
  80. ;; <mistifi(ator>
  81.         call draw_text
  82. ;; </mistifi(ator>
  83.         jmp still
  84.  
  85. draw_window:
  86.        
  87.         mov  eax,12   ;begin drawing
  88.         xor  ebx,ebx
  89.         inc  ebx
  90.         mcall
  91.                                        ; DRAW WINDOW
  92.         xor  eax,eax
  93.         mov  ebx,50*65536+555  ;x
  94.         mov  ecx,30*65536+455  ;y
  95.       mov  edx,[sc.work]
  96.         or   edx,0x34000000    ;style
  97.         mov  edi,caption
  98.         mcall
  99.  
  100. text_in_window:
  101.         mov  eax,4           ;вывод текста
  102.         mov  ecx,0x80000000  ;asciiz, ЦВЕТ !!!
  103.  
  104.         mov  ebx,40*65536+200         ;лантаноиды
  105.         mov  edx,Lantanoid_text
  106.         mcall
  107.  
  108.         add  ebx,20                    ;актиноиды
  109.         mov  edx,Actinoid_text
  110.         mcall
  111.  
  112.         mov  ebx,150*65536+255
  113.         mov  edx,number
  114.         mcall
  115.  
  116.         add  ebx,15
  117.         mov  edx,name
  118.         mcall
  119.  
  120.         add ebx,15
  121.         mov edx,eng_name
  122.         mcall
  123.  
  124.         add ebx,15
  125.         mov edx,Atomic_massa
  126.         mcall
  127.  
  128.         add ebx,15
  129.         mov edx,density
  130.         mcall
  131.  
  132.         add ebx,15
  133.         mov edx,Step_okisl
  134.         mcall
  135.  
  136.         add ebx,15
  137.         mov edx,Electrootr
  138.         mcall
  139.  
  140.         add ebx,15
  141.         mov edx,T_pl
  142.         mcall
  143.  
  144.         add ebx,15
  145.         mov edx,T_kip
  146.         mcall
  147.  
  148.         add ebx,15
  149.         mov edx,Raspr
  150.         mcall
  151.  
  152.         add ebx,15
  153.         mov edx,Otkrytie
  154.         mcall
  155.  
  156.         ; ВЫВОД НОМЕРОВ ПЕРИОДОВ
  157.         mov ebx,30*65536+43
  158.         mov edx,Period_text  ;1
  159.         mcall
  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 байтам(с нулём)
  172.         mcall
  173.        ret
  174.  
  175. Table:                 ;Отрисовка таблицы в виде конопочек
  176.         table_row_1:
  177.                         shl eax,1
  178.                         mov  ebx,50*65536+25
  179.                         mov  ecx,35*65536+20
  180.                         mov  edx,200
  181.                         mov  esi,0xE19123
  182.                         mcall
  183.                 He_:
  184.                         mov  ebx,491*65536+25
  185.                         mov  esi,0x0f0c314
  186.                         mov  edx,2
  187.                         mcall
  188.         table_row_2:
  189.                 Li:
  190.                       mov  ebx,50*65536+25
  191.                         mov  ecx,56*65536+20
  192.                         mov  esi,0xE19123
  193.                         inc edx
  194.                         mcall
  195.                 Be:
  196.                         mov  ebx,76*65536+25
  197.                         inc edx
  198.                         mcall
  199.                 B_:
  200.                         mov  ebx,361*65536+25
  201.                         inc edx
  202.                         mov esi,0x0f0c314
  203.                         mcall
  204.                         mov edi,4
  205.                 table_row_2_loop:
  206.                         add ebx,26*65536
  207.                         inc edx
  208.                         mcall
  209.                         dec edi
  210.                         jns table_row_2_loop
  211.         table_row_3:
  212.                 Na:
  213.                        mov  ebx,50*65536+25
  214.                         mov  ecx,77*65536+20
  215.                         mov  esi,0xE19123
  216.                         inc edx
  217.                         mcall
  218.  
  219.                         mov  ebx,76*65536+25
  220.                         inc edx
  221.                         mcall
  222.  
  223.                         mov  ebx,361*65536+25
  224.                         inc edx
  225.                         mov esi,0x0f0c314
  226.                         mcall
  227.                         mov edi,4
  228.                 table_row_3_loop:
  229.                         add ebx,26*65536
  230.                         inc edx
  231.                         mcall
  232.                         dec edi
  233.                         jns table_row_3_loop
  234.  
  235.         Table_row_4:
  236.                 K_:
  237.                        mov  ebx,50*65536+25
  238.                         mov  ecx,98*65536+20
  239.                         mov  esi,0xE19123
  240.                         inc edx
  241.                         mcall
  242.                 Ca:
  243.                        mov  ebx,76*65536+25
  244.                         inc edx
  245.                         mcall
  246.                 Sc:
  247.                         mov  ebx,102*65536+25
  248.                         inc edx
  249.                         mov  esi,0x559beb
  250.                         mcall
  251.                         mov edi,8
  252.                 Table_row_4_loop1:
  253.                         add ebx,26*65536
  254.                         inc edx
  255.                         mcall
  256.                         dec edi
  257.                         jns Table_row_4_loop1
  258.  
  259.                         mov  ebx,361*65536+25
  260.                         inc edx
  261.                         mov esi,0x0f0c314
  262.                         mcall
  263.                         mov edi,4
  264.                 table_row_4_loop2:
  265.                         add ebx,26*65536
  266.                         inc edx
  267.                         mcall
  268.                         dec edi
  269.                         jns table_row_4_loop2
  270.  
  271.          Table_row_5:
  272.                 Rb_:
  273.                        mov  ebx,50*65536+25
  274.                         mov  ecx,119*65536+20
  275.                         mov  esi,0xE19123
  276.                         inc edx
  277.                         mcall
  278.                 Sr_:
  279.                        mov  ebx,76*65536+25
  280.                         inc edx
  281.                         mcall
  282.                 Y_:
  283.                         mov  ebx,102*65536+25
  284.                         inc edx
  285.                         mov  esi,0x559beb
  286.                         mcall
  287.                         mov edi,8
  288.                 Table_row_5_loop1:
  289.                         add ebx,26*65536
  290.                         inc edx
  291.                         mcall
  292.                         dec edi
  293.                         jns Table_row_5_loop1
  294.  
  295.                         mov  ebx,361*65536+25
  296.                         inc edx
  297.                         mov esi,0x0f0c314
  298.                         mcall
  299.                         mov edi,4
  300.                 table_row_5_loop2:
  301.                         add ebx,26*65536
  302.                         inc edx
  303.                         mcall
  304.                         dec edi
  305.                         jns table_row_5_loop2
  306.  
  307.          Table_row_6:
  308.                 Cs_:
  309.                        mov  ebx,50*65536+25
  310.                         mov  ecx,140*65536+20
  311.                         mov  esi,0xE19123
  312.                         inc edx
  313.                         mcall
  314.                 Ba_:
  315.                        mov  ebx,76*65536+25
  316.                         inc edx
  317.                         mcall
  318.                 La_:
  319.                         mov  ebx,102*65536+25
  320.                         inc edx
  321.                         mov  esi,0x559beb
  322.                         mcall
  323.                         mov edx,71
  324.                         mov edi,8
  325.                 Table_row_6_loop1:
  326.                         add ebx,26*65536
  327.                         inc edx
  328.                         mcall
  329.                         dec edi
  330.                         jns Table_row_6_loop1
  331.  
  332.                         mov  ebx,361*65536+25
  333.                         inc edx
  334.                         mov esi,0x0f0c314
  335.                         mcall
  336.                         mov edi,4
  337.                 table_row_6_loop2:
  338.                         add ebx,26*65536
  339.                         inc edx
  340.                         mcall
  341.                         dec edi
  342.                         jns table_row_6_loop2
  343.  
  344.          Table_row_7:
  345.                 Fr_:
  346.                        mov  ebx,50*65536+25
  347.                         mov  ecx,161*65536+20
  348.                         mov  esi,0xE19123
  349.                         inc edx
  350.                         mcall
  351.                 Ra_:
  352.                        mov  ebx,76*65536+25
  353.                         inc edx
  354.                         mcall
  355.                 Ac_:
  356.                         mov  ebx,102*65536+25
  357.                         inc edx
  358.                         mov  esi,0x559beb
  359.                         mcall
  360.                         mov edx,103
  361.                         mov edi,8
  362.                 Table_row_7_loop1:
  363.                         add ebx,26*65536
  364.                         inc edx
  365.                         mcall
  366.                         dec edi
  367.                         jns Table_row_7_loop1
  368.  
  369.                         mov  ebx,361*65536+25
  370.                         inc edx
  371.                         mov esi,0x0f0c314
  372.                         mcall
  373.                         mov edi,2
  374.                 table_row_7_loop2:
  375.                         add ebx,26*65536
  376.                         inc edx
  377.                         mcall
  378.                         dec edi
  379.                         jns table_row_7_loop2
  380.  
  381.         row_1:
  382.                 Cerium_:
  383.                         mov  ebx,102*65536+25
  384.                         mov  ecx,190*65536+20
  385.                         mov  edx,58
  386.                         mov  esi,0x73beeb
  387.                         mcall
  388.                         mov edi,12
  389.  
  390.                 row_1_loop:
  391.                         add ebx,26*65536
  392.                         inc edx
  393.                         mcall
  394.                         dec edi
  395.                         jns row_1_loop
  396.         row_2:
  397.                 dgfsfHe_:
  398.                         mov  ebx,102*65536+25
  399.                         mov  ecx,211*65536+20
  400.                         mov  edx,90
  401.                         mcall
  402.                         mov edi,12
  403.                 row_2_loop:
  404.  
  405.                         add ebx,26*65536
  406.                         inc edx
  407.                         mcall
  408.                         dec edi
  409.                         jns row_2_loop
  410.  
  411. text_on_buttons:
  412.         text_row1:
  413.                 ;H
  414.                         shr eax,1
  415.                         mov ebx,62*65536+43
  416.                         mov ecx,0x00000000
  417.                         mov edx,Symbols
  418.                         mov esi,3
  419.                         mcall
  420.                 ;Ne
  421.                         mov ebx,500*65536+43
  422.                         add edx,3
  423.                         mcall
  424.         text_row2_1:
  425.                         mov ebx,60*65536+63
  426.                         add edx,3
  427.                         mcall
  428.  
  429.                         mov ebx,85*65536+63
  430.                         add edx,3
  431.                         mcall
  432.         text_row2_2:
  433.                         mov ebx,374*65536+63
  434.                         add edx,3
  435.                         mcall
  436.                         mov edi,4
  437.  
  438.         text_row2_2_loop:
  439.                         add ebx,25*65536
  440.                         add edx,3
  441.                         mcall
  442.  
  443.                         dec edi
  444.                         jns text_row2_2_loop
  445.         text_row3_1:
  446.                         mov ebx,60*65536+83
  447.                         add edx,3
  448.                         mcall
  449.  
  450.                         mov ebx,85*65536+83
  451.                         add edx,3
  452.                         mcall
  453.         text_row3_2:
  454.                         mov ebx,374*65536+83
  455.                         add edx,3
  456.                         mcall
  457.                         mov edi,4
  458.         text_row3_2_loop:
  459.                         add ebx,25*65536
  460.                         add edx,3
  461.                         mcall
  462.  
  463.                         dec edi
  464.                         jns text_row3_2_loop
  465.         text_row4:
  466.                         mov ebx,60*65536+104
  467.                         add edx,3
  468.                         mcall
  469.                         mov edi,16
  470.         text_row4_loop:
  471.                         add ebx,26*65536
  472.                         add edx,3
  473.                         mcall
  474.  
  475.                         dec edi
  476.                         jns text_row4_loop
  477.         text_row5:
  478.                         mov ebx,60*65536+125
  479.                         add edx,3
  480.                         mcall
  481.                         mov edi,16
  482.         text_row5_loop:
  483.                         add ebx,26*65536
  484.                         add edx,3
  485.                         mcall
  486.  
  487.                         dec edi
  488.                         jns text_row5_loop
  489.         text_row6:
  490.                         mov ebx,60*65536+146
  491.                         add edx,3
  492.                         mcall
  493.                         mov edi,16
  494.         text_row6_loop:
  495.                         add ebx,26*65536
  496.                         add edx,3
  497.                         mcall
  498.                         dec edi
  499.                         jns text_row6_loop
  500.         text_row7:
  501.                         mov ebx,60*65536+167
  502.                         add edx,3
  503.                         mcall
  504.                         mov edi,9
  505.         text_row7_loop:
  506.                         add ebx,26*65536
  507.                         add edx,3
  508.                         mcall
  509.  
  510.                         dec edi
  511.                         jns text_row7_loop
  512.                         mov edi,4
  513.         text_row7_loop2:
  514.                         add ebx,24*65536
  515.                         add edx,3
  516.                         mcall
  517.                         dec edi
  518.                         jns text_row7_loop2
  519.  
  520.         text_row8:
  521.                         mov ebx,111*65536+197
  522.                         add edx,3
  523.                         mcall
  524.                         mov edi,12
  525.  
  526.         text_row8_loop:
  527.                         add ebx,26*65536
  528.                         add edx,3
  529.                         mcall
  530.  
  531.                         dec edi
  532.                         jns text_row8_loop
  533.  
  534.         text_row9:
  535.                         mov ebx,111*65536+217
  536.                         add edx,3
  537.                         mcall
  538.                         mov edi,12
  539.  
  540.         text_row9_loop:
  541.                         add ebx,26*65536
  542.                         add edx,3
  543.                         mcall
  544.  
  545.                         dec edi
  546.                         jns text_row9_loop
  547.  
  548. ;; <mistifi(ator> - короче выносим в отдельную процедуру
  549.         call draw_text
  550. ;; </mistifi(ator>
  551.  
  552.   finish:
  553.         mov eax,12  ;end drawing
  554.         mov ebx,2
  555.         mcall
  556. ret
  557.  
  558. draw_text:
  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. ;; <mistifi(ator> - закраска, что-бы не было наложения при прорисовке текста
  573.         mov eax,13
  574.         mov ebx,320*65536+210
  575.         mov ecx,255*65536+(15*11)
  576.         mov edx,[sc.work]
  577.         mcall
  578. ;; </mistifi(ator>
  579.  
  580.  
  581.   push edi  ; чтобы оптимизировать изменения ebx
  582.  
  583.         ; 1 вывод порядкового номера [optmzd-mem]
  584.         mov ebx,0x30000         ;выводить 3 цифры
  585.         mov ecx,[re_ID]
  586.         mov edx,320*65536+255
  587.         xor esi,esi
  588.         mov eax,47
  589.         mcall
  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         ;указатель на начало массива указателей ;)
  598.         mov ebx,320*65536+255    ;здесь вносятся координаты, дальше будет лишь add ebx,15
  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 пикселей
  610.         mcall
  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
  620.         mcall
  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
  640.         mcall
  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
  669.         mcall
  670. ret
  671.  
  672. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  673. ;;                                      ;;
  674. ;;          ОБЛАСТЬ ДАННЫХ              ;;
  675. ;;                                      ;;
  676. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  677. ;---- begin ---- Данные для ГЛАВНОГО окна --------------------------
  678. caption           db  'Периодическая система Д.И.Менделеева by [navanax] & [Johnny_B]',0
  679. density           db  'Плотность',0
  680. Atomic_massa      db  'Атомная масса',0
  681. name              db  'Название',0
  682. eng_name          db  'Англ. название',0
  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
  689. number            db  'Порядковый номер',0
  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 '
  821. db 'Darmstadium '  ;110
  822. db 'Roentgenium '
  823. db 'Ununbium    '
  824. db 'Ununtrium   '
  825. db 'Ununquadium '
  826. db 'Ununpentium '
  827. db 'Ununhexium  '  ;116
  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 '
  916. db 'Uub'
  917. db 'Uut'
  918. db 'Uuq'
  919. db 'Uup'
  920. db 'Uuh'
  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 элементов
  952. db '1.00794'     ; 1
  953. db '4.0026 '
  954. db '6.941  '
  955. db '9.01218'
  956. db '10.811 '
  957. db '12.0107'
  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'
  965. db '28.0855'
  966. db '30.9738'
  967. db '32.066 '
  968. db '35.453 '
  969. db '39.948 '
  970. db '39.0983'
  971. db '40.078 '     ; 20
  972. db '44.9559'
  973. db '47.88  '
  974. db '50.9415'
  975. db '51.996 '
  976. db '54.938 '
  977. db '55.847 '
  978. db '58.9332'
  979. db '58.6934'
  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. "Мейтнерий", \
  1547. "?Дармстадий?", \
  1548. "Рентгений", \
  1549. "нет названия", \
  1550. "нет названия", \           ;110
  1551. "нет названия", \
  1552. "нет названия", \
  1553. "нет названия"              ;116
  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