home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / chemie / period_2 / periodic.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1986-11-12  |  22.1 KB  |  721 lines
  1. $m60000
  2. id&=APPL_INIT()
  3. IF id&=0
  4.   ALERT 1,"This utility runs only|as a desk accessory.",1," O.K ",z|
  5.   END
  6. ENDIF
  7. IF RSRC_LOAD("PERIODIC.RSC")=FALSE
  8.   DO
  9.     ~EVNT_TIMER(-1)
  10.   LOOP
  11. ENDIF
  12. form1#=0
  13. quit|=1
  14. constants|=2
  15. showinfo|=3
  16. form2#=1
  17. outerbox%=0
  18. titlestr%=1
  19. okbutton%=2
  20. ele_name%=3
  21. symbol%=4
  22. innerbox%=5
  23. inntitle%=6
  24. s1%=7
  25. s2%=8
  26. p2%=9
  27. s3%=10
  28. p3%=11
  29. s4%=12
  30. d3%=13
  31. p4%=14
  32. s5%=15
  33. d4%=16
  34. p5%=17
  35. s6%=18
  36. f4%=19
  37. d5%=20
  38. p6%=21
  39. s7%=22
  40. f5%=23
  41. d6%=24
  42. seconion%=25
  43. atnumber%=26
  44. mass%=27
  45. electneg%=28
  46. atradius%=29
  47. ionfirst%=30
  48. affinity%=31
  49. thirdion%=32
  50. form3#=2
  51. exit3%=36
  52. OPTION BASE 0
  53. DIM r%(104)
  54. r%(0)=11
  55. r%(1)=12
  56. x%=19
  57. FOR z%=2 TO 76
  58.   r%(z%)=x%
  59.   x%=x%+1
  60. NEXT z%
  61. x%=95
  62. FOR z%=77 TO 90
  63.   r%(z%)=x%
  64.   x%=x%+1
  65. NEXT z%
  66. x%=110
  67. FOR z%=91 TO 104
  68.   r%(z%)=x%
  69.   x%=x%+1
  70. NEXT z%
  71. ~RSRC_GADDR(0,form1#,table_add%)
  72. ~RSRC_GADDR(0,form2#,info_add%)
  73. ~RSRC_GADDR(0,form3#,constant_add%)
  74. entry&=MENU_REGISTER(id&,"  Periodic Table ")
  75. @main
  76. PROCEDURE main
  77.   DO
  78.     ~EVNT_MESAG(0)
  79.     IF MENU(1)=40
  80.       ~FORM_CENTER(table_add%,x&,y&,w&,h&)
  81.       ~WIND_UPDATE(1)
  82.       GET x&-4,y&-4,x&+w&+1,y&+h&+1,screen$
  83.     again:
  84.       ~OBJC_DRAW(table_add%,0,999,x&,y&,w&,h&)
  85.       ex%=FORM_DO(table_add%,0)
  86.       SELECT ex%
  87.       CASE showinfo|
  88.         OB_STATE(table_add%,ex%)=0
  89.         ~OBJC_DRAW(table_add%,3,0,x&,y&,w&,h&)
  90.         @showinfo
  91.       CASE constants|
  92.         OB_STATE(table_add%,ex%)=0
  93.         ~OBJC_DRAW(table_add%,3,0,x&,y&,w&,h&)
  94.         @show_constants
  95.       CASE quit|
  96.         OB_STATE(table_add%,ex%)=0
  97.         ~OBJC_DRAW(table_add%,3,0,x&,y&,w&,h&)
  98.         GOTO end
  99.       ENDSELECT
  100.     end:
  101.       PUT x&-4,y&-4,screen$
  102.       ~WIND_UPDATE(0)
  103.     ENDIF
  104.   LOOP
  105. RETURN
  106. PROCEDURE showinfo
  107.   LOCAL z%
  108.   FOR z%=0 TO 104
  109.     IF BTST(OB_STATE(table_add%,r%(z%)),0)
  110.       rad%=r%(z%)
  111.     ENDIF
  112.   NEXT z%
  113.   OB_STATE(table_add%,rad%)=0
  114.   @change_strings(rad%)
  115. RETURN
  116. PROCEDURE change_strings(rad%)
  117.   SELECT rad%
  118.   CASE 11
  119.     RESTORE hydrogen
  120.   CASE 12
  121.     RESTORE helium
  122.   CASE 19
  123.     RESTORE lithium
  124.   CASE 20
  125.     RESTORE beryllium
  126.   CASE 21
  127.     RESTORE boron
  128.   CASE 22
  129.     RESTORE carbon
  130.   CASE 23
  131.     RESTORE nitrogen
  132.   CASE 24
  133.     RESTORE oxygen
  134.   CASE 25
  135.     RESTORE fluorine
  136.   CASE 26
  137.     RESTORE neon
  138.   CASE 27
  139.     RESTORE sodium
  140.   CASE 28
  141.     RESTORE magnesium
  142.   CASE 29
  143.     RESTORE aluminium
  144.   CASE 30
  145.     RESTORE silicon
  146.   CASE 31
  147.     RESTORE phosphorus
  148.   CASE 32
  149.     RESTORE sulphur
  150.   CASE 33
  151.     RESTORE chlorine
  152.   CASE 34
  153.     RESTORE argon
  154.   CASE 35
  155.     RESTORE potassium
  156.   CASE 36
  157.     RESTORE calcium
  158.   CASE 37
  159.     RESTORE scandium
  160.   CASE 38
  161.     RESTORE titanium
  162.   CASE 39
  163.     RESTORE vanadium
  164.   CASE 40
  165.     RESTORE chromium
  166.   CASE 41
  167.     RESTORE manganese
  168.   CASE 42
  169.     RESTORE iron
  170.   CASE 43
  171.     RESTORE cobalt
  172.   CASE 44
  173.     RESTORE nickel
  174.   CASE 45
  175.     RESTORE copper
  176.   CASE 46
  177.     RESTORE zinc
  178.   CASE 47
  179.     RESTORE gallium
  180.   CASE 48
  181.     RESTORE germanium
  182.   CASE 49
  183.     RESTORE arsenic
  184.   CASE 50
  185.     RESTORE selenium
  186.   CASE 51
  187.     RESTORE bromine
  188.   CASE 52
  189.     RESTORE krypton
  190.   CASE 53
  191.     RESTORE rubidium
  192.   CASE 54
  193.     RESTORE strontium
  194.   CASE 55
  195.     RESTORE yttrium
  196.   CASE 56
  197.     RESTORE zirconium
  198.   CASE 57
  199.     RESTORE niobium
  200.   CASE 58
  201.     RESTORE molybdenum
  202.   CASE 59
  203.     RESTORE technetium
  204.   CASE 60
  205.     RESTORE ruthenium
  206.   CASE 61
  207.     RESTORE rhodium
  208.   CASE 62
  209.     RESTORE palladium
  210.   CASE 63
  211.     RESTORE silver
  212.   CASE 64
  213.     RESTORE cadmium
  214.   CASE 65
  215.     RESTORE indium
  216.   CASE 66
  217.     RESTORE tin
  218.   CASE 67
  219.     RESTORE antimony
  220.   CASE 68
  221.     RESTORE tellurium
  222.   CASE 69
  223.     RESTORE iodine
  224.   CASE 70
  225.     RESTORE xenon
  226.   CASE 71
  227.     RESTORE caesium
  228.   CASE 72
  229.     RESTORE barium
  230.   CASE 73
  231.     RESTORE lanthanum
  232.   CASE 74
  233.     RESTORE hafnium
  234.   CASE 75
  235.     RESTORE tantalum
  236.   CASE 76
  237.     RESTORE tungsten
  238.   CASE 77
  239.     RESTORE rhenium
  240.   CASE 78
  241.     RESTORE osmium
  242.   CASE 79
  243.     RESTORE iridium
  244.   CASE 80
  245.     RESTORE platinum
  246.   CASE 81
  247.     RESTORE gold
  248.   CASE 82
  249.     RESTORE mercury
  250.   CASE 83
  251.     RESTORE thallium
  252.   CASE 84
  253.     RESTORE lead
  254.   CASE 85
  255.     RESTORE bismuth
  256.   CASE 86
  257.     RESTORE polonium
  258.   CASE 87
  259.     RESTORE astatine
  260.   CASE 88
  261.     RESTORE radon
  262.   CASE 89
  263.     RESTORE francium
  264.   CASE 90
  265.     RESTORE radium
  266.   CASE 91
  267.     RESTORE actinium
  268.   CASE 92
  269.     RESTORE rutherfordium
  270.   CASE 93
  271.     RESTORE hahnium
  272.   CASE 95
  273.     RESTORE cerium
  274.   CASE 96
  275.     RESTORE praseodymium
  276.   CASE 97
  277.     RESTORE neodymium
  278.   CASE 98
  279.     RESTORE promethium
  280.   CASE 99
  281.     RESTORE samarium
  282.   CASE 100
  283.     RESTORE europium
  284.   CASE 101
  285.     RESTORE gadolinium
  286.   CASE 102
  287.     RESTORE terbium
  288.   CASE 103
  289.     RESTORE dysprosium
  290.   CASE 104
  291.     RESTORE holmium
  292.   CASE 105
  293.     RESTORE erbium
  294.   CASE 106
  295.     RESTORE thulium
  296.   CASE 107
  297.     RESTORE ytterbium
  298.   CASE 108
  299.     RESTORE lutetium
  300.   CASE 110
  301.     RESTORE thorium
  302.   CASE 111
  303.     RESTORE protactinium
  304.   CASE 112
  305.     RESTORE uranium
  306.   CASE 113
  307.     RESTORE neptunium
  308.   CASE 114
  309.     RESTORE plutonium
  310.   CASE 115
  311.     RESTORE americium
  312.   CASE 116
  313.     RESTORE curium
  314.   CASE 117
  315.     RESTORE berkelium
  316.   CASE 118
  317.     RESTORE californium
  318.   CASE 119
  319.     RESTORE einsteinium
  320.   CASE 120
  321.     RESTORE fermium
  322.   CASE 121
  323.     RESTORE mendelevium
  324.   CASE 122
  325.     RESTORE nobelium
  326.   CASE 123
  327.     RESTORE lawrencium
  328.   ENDSELECT
  329.   @get_data
  330.   CHAR{{OB_SPEC(info_add%,ele_name%)}}=ele_name$
  331.   CHAR{{OB_SPEC(info_add%,symbol%)}}=symbol$
  332.   CHAR{{OB_SPEC(info_add%,atnumber%)}}=atom_num$
  333.   CHAR{{OB_SPEC(info_add%,mass%)}}=mass_num$
  334.   CHAR{{OB_SPEC(info_add%,electneg%)}}=elec_neg$
  335.   CHAR{{OB_SPEC(info_add%,atradius%)}}=radius_num$
  336.   CHAR{{OB_SPEC(info_add%,affinity%)}}=affinity$
  337.   CHAR{{OB_SPEC(info_add%,ionfirst%)}}=ionfirst$
  338.   CHAR{{OB_SPEC(info_add%,seconion%)}}=seconion$
  339.   CHAR{{OB_SPEC(info_add%,thirdion%)}}=thirdion$
  340.   CHAR{{OB_SPEC(info_add%,s1%)}}=s1_num$
  341.   CHAR{{OB_SPEC(info_add%,s2%)}}=s2_num$
  342.   CHAR{{OB_SPEC(info_add%,p2%)}}=p2_num$
  343.   CHAR{{OB_SPEC(info_add%,s3%)}}=s3_num$
  344.   CHAR{{OB_SPEC(info_add%,p3%)}}=p3_num$
  345.   CHAR{{OB_SPEC(info_add%,s4%)}}=s4_num$
  346.   CHAR{{OB_SPEC(info_add%,d3%)}}=d3_num$
  347.   CHAR{{OB_SPEC(info_add%,p4%)}}=p4_num$
  348.   CHAR{{OB_SPEC(info_add%,s5%)}}=s5_num$
  349.   CHAR{{OB_SPEC(info_add%,d4%)}}=d4_num$
  350.   CHAR{{OB_SPEC(info_add%,p5%)}}=p5_num$
  351.   CHAR{{OB_SPEC(info_add%,s6%)}}=s6_num$
  352.   CHAR{{OB_SPEC(info_add%,f4%)}}=f4_num$
  353.   CHAR{{OB_SPEC(info_add%,d5%)}}=d5_num$
  354.   CHAR{{OB_SPEC(info_add%,p6%)}}=p6_num$
  355.   CHAR{{OB_SPEC(info_add%,s7%)}}=s7_num$
  356.   CHAR{{OB_SPEC(info_add%,f5%)}}=f5_num$
  357.   CHAR{{OB_SPEC(info_add%,d6%)}}=d6_num$
  358.   @second_dialog
  359. RETURN
  360. PROCEDURE get_data
  361.   READ ele_name$
  362.   READ symbol$
  363.   READ atom_num$
  364.   READ mass_num$
  365.   READ elec_neg$
  366.   READ radius_num$
  367.   READ affinity$
  368.   READ ionfirst$
  369.   READ seconion$
  370.   READ thirdion$
  371.   READ s1_num$
  372.   READ s2_num$
  373.   READ p2_num$
  374.   READ s3_num$
  375.   READ p3_num$
  376.   READ s4_num$
  377.   READ d3_num$
  378.   READ p4_num$
  379.   READ s5_num$
  380.   READ d4_num$
  381.   READ p5_num$
  382.   READ s6_num$
  383.   READ f4_num$
  384.   READ d5_num$
  385.   READ p6_num$
  386.   READ s7_num$
  387.   READ f5_num$
  388.   READ d6_num$
  389. RETURN
  390. PROCEDURE second_dialog
  391.   OB_STATE(info_add%,okbutton%)=0
  392.   ~FORM_CENTER(info_add%,x#,y#,w#,h#)
  393.   ~OBJC_DRAW(info_add%,0,999,x#,y#,w#,h#)
  394.   ex2%=FORM_DO(info_add%,0)
  395.   OB_STATE(info_add%,2)=0
  396.   ~OBJC_DRAW(info_add%,2,999,x#,y#,w#,h#)
  397.   GOTO again
  398. RETURN
  399. PROCEDURE show_constants
  400.   OB_STATE(constant_add%,exit3%)=0
  401.   ~FORM_CENTER(constant_add%,x#,y#,w#,h#)
  402.   ~OBJC_DRAW(constant_add%,0,99,x#,y#,w#,h#)
  403.   ex3%=FORM_DO(constant_add%,0)
  404.   GOTO again
  405. RETURN
  406. hydrogen:
  407. DATA "hydrogen","H","1","1.008","2.1","148(-1)","73","1314","",""
  408. DATA "1","","","","","","","","","","","","","","","","",""
  409. helium:
  410. DATA "helium","He","2","4.003","","","-21","2373","5250",""
  411. DATA "2","","","","","","","","","","","","","","","","",""
  412. lithium:
  413. DATA "Lithium","Li","3","6.941","1.0","68(+1)","60","519","7279","11811"
  414. DATA "2","1","","","","","","","","","","","","","","","",""
  415. beryllium:
  416. DATA "Beryllium","Be","4","9.013","1.5","31(+2)","-241","899","1760","14800"
  417. DATA "2","2","","","","","","","","","","","","","","","",""
  418. boron:
  419. DATA "Boron","B","5","10.81","2.0","20(+3)","83","801","2420","3660"
  420. DATA "2","2","1","","","","","","","","","","","","","","",""
  421. carbon:
  422. DATA "Carbon","C","6","12.011","2.5","260(-4) 15(+4)","123","1086","2350","4610"
  423. DATA "2","2","2","","","","","","","","","","","","","","",""
  424. nitrogen:
  425. DATA "Nitrogen","N","7","14.007","3.0","171(-3)","0","1402","2860","4590"
  426. DATA "2","2","3","","","","","","","","","","","","","","",""
  427. oxygen:
  428. DATA "Oxygen","O","8","15.999","3.5","142(-2)","141","1314","3390","5320"
  429. DATA "2","2","4","","","","","","","","","","","","","","",""
  430. fluorine:
  431. DATA "Fluorine","F","9","18.998","4.0","133(-1)","322","1681","3370","6040"
  432. DATA "2","2","5","","","","","","","","","","","","","","",""
  433. neon:
  434. DATA "Neon","Ne","10","20.179","","","-29","2081","3952","6123"
  435. DATA "2","2","6","","","","","","","","","","","","","","",""
  436. sodium:
  437. DATA "Sodium","Na","11","22.989","0.9","100(+1)","53","449","4565","6912"
  438. DATA "2","2","6","1","","","","","","","","","","","","","",""
  439. magnesium:
  440. DATA "Magnesium","Mg","12","24.305","1.2","68(+2)","-232","736","1452","7732"
  441. DATA "2","2","6","2","","","","","","","","","","","","","",""
  442. aluminium:
  443. DATA "Aluminium","Al","13","26.982","1.5","50(+3)","50","577","1816","2745"
  444. DATA "2","2","6","2","1","","","","","","","","","","","","",""
  445. silicon:
  446. DATA "Silicon","Si","14","28.086","1.8","271(-4) 41(+4)","120","786","1580","3230"
  447. DATA "2","2","6","2","2","","","","","","","","","","","","",""
  448. phosphorus:
  449. DATA "Phosphorus","P","15","30.974","2.1","212(-3)","74","1059","1900","2920"
  450. DATA "2","2","6","2","3","","","","","","","","","","","","",""
  451. sulphur:
  452. DATA "Sulphur","S","16","32.06","2.5","184(-2)","200","999","2260","3390"
  453. DATA "2","2","6","2","4","","","","","","","","","","","","",""
  454. chlorine:
  455. DATA "Chlorine","Cl","17","35.453","3.0","182(-1)","349","1256","2300","3850"
  456. DATA "2","2","6","2","5","","","","","","","","","","","","",""
  457. argon:
  458. DATA "Argon","Ar","18","39.948","","","-35","1520","2665","3928"
  459. DATA "2","2","6","2","6","","","","","","","","","","","","",""
  460. potassium:
  461. DATA "Potassium","K","19","39.098","0.8","133(+1)","48","418","3071","4439"
  462. DATA "2","2","6","2","6","1","","","","","","","","","","","",""
  463. calcium:
  464. DATA "Calcium","Ca","20","40.08","1.0","99(+2)","-156","590","1146","4941"
  465. DATA "2","2","6","2","6","2","","","","","","","","","","","",""
  466. scandium:
  467. DATA "Scandium","Sc","21","44.956","1.3","69(+3)","","","",""
  468. DATA "2","2","6","2","6","2","1","","","","","","","","","","",""
  469. titanium:
  470. DATA "Titanium","Ti","22","47.90","1.5","63(+3)","","","",""
  471. DATA "2","2","6","2","6","2","2","","","","","","","","","","",""
  472. vanadium:
  473. DATA "Vanadium","V","23","50.942","1.6","59(+3)","","","",""
  474. DATA "2","2","6","2","6","2","3","","","","","","","","","","",""
  475. chromium:
  476. DATA "Chromium","Cr","24","51.996","1.6","58(+3)","","","",""
  477. DATA "2","2","6","2","6","1","5","","","","","","","","","","",""
  478. manganese:
  479. DATA "Manganese","Mn","25","54.938","1.5","80(+2) 60(+3)","","","",""
  480. DATA "2","2","6","2","6","2","5","","","","","","","","","","",""
  481. iron:
  482. DATA "Iron","Fe","26","55.847","1.8","75(+2) 61(+3)","","","",""
  483. DATA "2","2","6","2","6","2","6","","","","","","","","","","",""
  484. cobalt:
  485. DATA "Cobalt","Co","27","58.933","1.8","71(+2) 58(+3)","","","",""
  486. DATA "2","2","6","2","6","2","7","","","","","","","","","","",""
  487. nickel:
  488. DATA "Nickel","Ni","28","58.70","1.8","67(+2)","","","",""
  489. DATA "2","2","6","2","6","2","8","","","","","","","","","","",""
  490. copper:
  491. DATA "Copper","Cu","29","63.546","1.9","96(+1)","","","",""
  492. DATA "2","2","6","2","6","1","10","","","","","","","","","","",""
  493. zinc:
  494. DATA "Zinc","Zn","30","65.38","1.6","70(+2)","","","",""
  495. DATA "2","2","6","2","6","2","10","","","","","","","","","","",""
  496. gallium:
  497. DATA "Gallium","Ga","31","69.72","1.6","62(+3)","36","579","1979","2963"
  498. DATA "2","2","6","2","6","2","10","1","","","","","","","","","",""
  499. germanium:
  500. DATA "Germanium","Ge","32","72.59","1.8","93(+2) 53(+4)","116","761","1537","3302"
  501. DATA "2","2","6","2","6","2","10","2","","","","","","","","","",""
  502. arsenic:
  503. DATA "Arsenic","As","33","74.922","2.0","222(-3)","77","947","1798","2735"
  504. DATA "2","2","6","2","6","2","10","3","","","","","","","","","",""
  505. selenium:
  506. DATA "Selenium","Se","34","78.96","2.4","197(-2)","195","941","2076","3086"
  507. DATA "2","2","6","2","6","2","10","4","","","","","","","","","",""
  508. bromine:
  509. DATA "Bromine","Br","35","79.904","2.8","198(-1)","324","1143","2014","3463"
  510. DATA "2","2","6","2","6","2","10","5","","","","","","","","","",""
  511. krypton:
  512. DATA "Krypton","Kr","36","83.80","","","-39","1351","2371","3565"
  513. DATA "2","2","6","2","6","2","10","6","","","","","","","","","",""
  514. rubidium:
  515. DATA "Rubidium","Rb","37","85.468","0.8","147(+1)","47","401","2653","3858"
  516. DATA "2","2","6","2","6","2","10","6","1","","","","","","","","",""
  517. strontium:
  518. DATA "Strontium","Sr","38","86.72","1.0","116(+2)","-168","548","1063","4000"
  519. DATA "2","2","6","2","6","2","10","6","2","","","","","","","","",""
  520. yttrium:
  521. DATA "Yttrium","Y","39","88.906","1.2","","","","",""
  522. DATA "2","2","6","2","6","2","10","6","2","1","","","","","","","",""
  523. zirconium:
  524. DATA "Zirconium","Zr","40","91.22","1.4","","","","",""
  525. DATA "2","2","6","2","6","2","10","6","2","2","","","","","","","",""
  526. niobium:
  527. DATA "Niobium","Nb","41","92.906","1.6","","","","",""
  528. DATA "2","2","6","2","6","2","10","6","1","4","","","","","","","",""
  529. molybdenum:
  530. DATA "Molybdenum","Mo","42","95.94","1.8","","","","",""
  531. DATA "2","2","6","2","6","2","10","6","1","5","","","","","","","",""
  532. technetium:
  533. DATA "Technetium","Tc","43","97","1.9","","","","",""
  534. DATA "2","2","6","2","6","2","10","6","1","6","","","","","","","",""
  535. ruthenium:
  536. DATA "Ruthenium","Ru","44","101.07","2.2","","","","",""
  537. DATA "2","2","6","2","6","2","10","6","1","7","","","","","","","",""
  538. rhodium:
  539. DATA "Rhodium","Rh","45","102.905","2.2","","","","",""
  540. DATA "2","2","6","2","6","2","10","6","1","8","","","","","","","",""
  541. palladium:
  542. DATA "Palladium","Pd","46","106.4","2.2","","","","",""
  543. DATA "2","2","6","2","6","2","10","6","0","10","","","","","","","",""
  544. silver:
  545. DATA "Silver","Ag","47","107.868","1.9","113(+1)","","","",""
  546. DATA "2","2","6","2","6","2","10","6","1","10","","","","","","","",""
  547. cadmium:
  548. DATA "Cadmium","Cd","48","112.41","1.7","97(+2)","","","",""
  549. DATA "2","2","6","2","6","2","10","6","2","10","","","","","","","",""
  550. indium:
  551. DATA "Indium","In","49","114.82","1.7","76(+3)","34","558","1802","2704"
  552. DATA "2","2","6","2","6","2","10","6","2","10","1","","","","","","",""
  553. tin:
  554. DATA "Tin","Sn","50","118.69","1.8","112(+2) 71(+4)","121","707","1410","2941"
  555. DATA "2","2","6","2","6","2","10","6","2","10","2","","","","","","",""
  556. antimony:
  557. DATA "Antimony","Sb","51","121.75","1.9","245(-2)","101","834","1794","2443"
  558. DATA "2","2","6","2","6","2","10","6","2","10","3","","","","","","",""
  559. tellurium:
  560. DATA "Tellurium","Te","52","127.60","2.1","217(-2)","183","869","1312","2954"
  561. DATA "2","2","6","2","6","2","10","6","2","10","4","","","","","","",""
  562. iodine:
  563. DATA "Iodine","I","53","126.905","2.5","220(-1)","295","1009","1843","2992"
  564. DATA "2","2","6","2","6","2","10","6","2","10","5","","","","","","",""
  565. xenon:
  566. DATA "Xenon","Xe","54","131.30","","","-39","1170","2046","3099"
  567. DATA "2","2","6","2","6","2","10","6","2","10","6","","","","","","",""
  568. caesium:
  569. DATA "Caesium","Cs","55","132.905","0.7","198(+1)","46","377","2423","3339"
  570. DATA "2","2","6","2","6","2","10","6","2","10","6","1","","","","","",""
  571. barium:
  572. DATA "Barium","Ba","56","137.33","0.9","134(+2)","-52","502","967","3500"
  573. DATA "2","2","6","2","6","2","10","6","2","10","6","2","","","","","",""
  574. lanthanum:
  575. DATA "Lanthanum","La","57","138.906","1.1","","","","",""
  576. DATA "2","2","6","2","6","2","10","6","2","10","6","2","1","","","","",""
  577. hafnium:
  578. DATA "Hafnium","Hf","72","178.49","1.3","","","","",""
  579. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","2","","","",""
  580. tantalum:
  581. DATA "Tantalum","Ta","73","180.948","1.5","","","","",""
  582. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","3","","","",""
  583. tungsten:
  584. DATA "Tungsten","W","74","183.85","1.7","","","","",""
  585. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","4","","","",""
  586. rhenium:
  587. DATA "Rhenium","Re","75","186.2","1.9","","","","",""
  588. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","5","","","",""
  589. osmium:
  590. DATA "Osmium","Os","76","190.2","2.2","","","","",""
  591. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","6","","","",""
  592. iridium:
  593. DATA "Iridium","Ir","77","192.22","2.2","","","","",""
  594. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","7","","","",""
  595. platinum:
  596. DATA "Platinum","Pt","78","195.09","2.2","","","","",""
  597. DATA "2","2","6","2","6","2","10","6","2","10","6","1","14","9","","","",""
  598. gold:
  599. DATA "Gold","Au","79","196.967","2.4","137(+1)","","","",""
  600. DATA "2","2","6","2","6","2","10","6","2","10","6","1","14","10","","","",""
  601. mercury:
  602. DATA "Mercury","Hg","80","200.59","1.9","103(+2)","","","",""
  603. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","","","",""
  604. thallium:
  605. DATA "Thallium","Tl","81","204.37","1.8","84(+3)","48","589","1971","2878"
  606. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","1","","",""
  607. lead:
  608. DATA "Lead","Pb","82","207.2","1.8","121(+2) 84(+4)","101","715","1452","3079"
  609. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","2","","",""
  610. bismuth:
  611. DATA "Bismuth","Bi","83","208.980","1.9","120(+3)","101","703","1610","2466"
  612. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","3","","",""
  613. polonium:
  614. DATA "Polonium","Po","84","209","2.0","","174","813","1834","2668"
  615. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","4","","",""
  616. astatine:
  617. DATA "Astatine","At","85","210","2.2","","270","926","1737","2895"
  618. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","5","","",""
  619. radon:
  620. DATA "Radon","Rn","86","222","","","-41","1037","1930","2895"
  621. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","","",""
  622. francium:
  623. DATA "Francium","Fr","87","223","","176(+1)","44","","",""
  624. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","1","",""
  625. radium:
  626. DATA "Radium","Ra","88","226.025","0.9","143(+2)","","","",""
  627. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","",""
  628. actinium:
  629. DATA "Actinium","Ac","89","227.028","","","","","",""
  630. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","0","1"
  631. rutherfordium:
  632. DATA "Rutherfordium","Rf","104","260","","","","","",""
  633. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","14","3"
  634. hahnium:
  635. DATA "Hahnium","Ha","105","262","","","","","",""
  636. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","14","4"
  637. cerium:
  638. DATA "Cerium","Ce","58","140.12","1.1","","","","",""
  639. DATA "2","2","6","2","6","2","10","6","2","10","6","2","2","","","","",""
  640. praseodymium:
  641. DATA "Praseodymium","Pr","59","140.908","1.1","","","","",""
  642. DATA "2","2","6","2","6","2","10","6","2","10","6","2","3","","","","",""
  643. neodymium:
  644. DATA "Neodymium","Nd","60","144.24","1.1","","","","",""
  645. DATA "2","2","6","2","6","2","10","6","2","10","6","2","4","","","","",""
  646. promethium:
  647. DATA "Promethium","Pm","61","145","1.1","","","","",""
  648. DATA "2","2","6","2","6","2","10","6","2","10","6","2","5","","","","",""
  649. samarium:
  650. DATA "Samarium","Sm","62","150.4","1.1","","","","",""
  651. DATA "2","2","6","2","6","2","10","6","2","10","6","2","6","","","","",""
  652. europium:
  653. DATA "Europium","Eu","63","151.96","1.2","","","","",""
  654. DATA "2","2","6","2","6","2","10","6","2","10","6","2","7","","","","",""
  655. gadolinium:
  656. DATA "Gadolinium","Gd","64","157.25","1.2","","","","",""
  657. DATA "2","2","6","2","6","2","10","6","2","10","6","2","7","1","","","",""
  658. terbium:
  659. DATA "Terbium","Tb","65","158.925","1.2","","","","",""
  660. DATA "2","2","6","2","6","2","10","6","2","10","6","2","9","","","","",""
  661. dysprosium:
  662. DATA "Dysprosium","Dy","66","162.50","1.2","","","","",""
  663. DATA "2","2","6","2","6","2","10","6","2","10","6","2","10","","","","",""
  664. holmium:
  665. DATA "Holmium","Ho","67","164.930","1.2","","","","",""
  666. DATA "2","2","6","2","6","2","10","6","2","10","6","2","11","","","","",""
  667. erbium:
  668. DATA "Erbium","Er","68","167.26","1.2","","","","",""
  669. DATA "2","2","6","2","6","2","10","6","2","10","6","2","12","","","","",""
  670. thulium:
  671. DATA "Thulium","Tm","69","168.934","1.2","","","","",""
  672. DATA "2","2","6","2","6","2","10","6","2","10","6","2","13","","","","",""
  673. ytterbium:
  674. DATA "Ytterbium","Yb","70","173.04","1.2","","","","",""
  675. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","","","","",""
  676. lutetium:
  677. DATA "Lutetium","Lu","71","174.97","1.2","","","","",""
  678. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","1","","","",""
  679. thorium:
  680. DATA "Thorium","Th","90","232.038","","","","","",""
  681. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","0","2"
  682. protactinium:
  683. DATA "Protactinium","Pa","91","231.036","","","","","",""
  684. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","2","1"
  685. uranium:
  686. DATA "Uranium","U","92","238.029","","","","","",""
  687. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","3","1"
  688. neptunium:
  689. DATA "Neptunium","Np","93","237.048","","","","","",""
  690. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","4","1"
  691. plutonium:
  692. DATA "Plutonium","Pu","94","244","","","","","",""
  693. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","6",""
  694. americium:
  695. DATA "Americium","Am","95","243","","","","","",""
  696. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","7",""
  697. curium:
  698. DATA "Curium","Cm","96","247","","","","","",""
  699. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","7","1"
  700. berkelium:
  701. DATA "Berkelium","Bk","97","247","","","","","",""
  702. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","9",""
  703. californium:
  704. DATA "Californium","Cf","98","251","","","","","",""
  705. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","10",""
  706. einsteinium:
  707. DATA "Einsteinium","Es","99","254","","","","","",""
  708. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","11",""
  709. fermium:
  710. DATA "Fermium","Fm","100","257","","","","","",""
  711. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","12",""
  712. mendelevium:
  713. DATA "Mendelevium","Md","101","258","","","","","",""
  714. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","13",""
  715. nobelium:
  716. DATA "Nobelium","No","102","259","","","","","",""
  717. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","14",""
  718. lawrencium:
  719. DATA "Lawrencium","Lr","103","260","","","","","",""
  720. DATA "2","2","6","2","6","2","10","6","2","10","6","2","14","10","6","2","14","1"
  721.