Sharp PC-E500/E500S Technikersoftware

PERIOD.221

Periodensystem der Elemente

PERIOD.221 (8.196 Bytes)

10 ' PERIODIC.221 (Periodic table)
15 CLEAR
20 MERGE "G:COMN.00$"
30 GOSUB *CG
40 GOTO 1020
100 DATA "H","  Hydrogen     ","(1-1a)"," 1.00794"
101 DATA "He"," Helium       ","(1-0) "," 4.002602"
102 DATA "Li"," Lithium      ","(2-1a)"," 6.941"
103 DATA "Be"," Beryllium    ","(2-2a)"," 9.012182"
104 DATA "B","  Boron        ","(2-3b)"," 10.811"
105 DATA "C","  Carbon       ","(2-4b)"," 12.011"
106 DATA "N","  Nitrogen     ","(2-5b)"," 14.00674"
107 DATA "O","  Oxygen       ","(2-6b)"," 15.9994"
108 DATA "F","  Fluorine     ","(2-7b)"," 18.9984032"
109 DATA "Ne"," Neon         ","(2-0) "," 20.179"
110 DATA "Na"," Sodium       ","(3-1a)"," 22.989768"
111 DATA "Mg"," Magnesium    ","(3-2a)"," 24.3050"
112 DATA "Al"," Aluminium    ","(3-3b)"," 26.981539"
113 DATA "Si"," Silicon      ","(3-4b)"," 28.0855"
114 DATA "P","  Phosphorus   ","(3-5b)"," 30.973762"
115 DATA "S","  Sulfur       ","(3-6b)"," 32.066"
116 DATA "Cl"," Chlorine     ","(3-7b)"," 35.4527"
117 DATA "Ar"," Argon        ","(3-0) "," 39.948"
118 DATA "K","  Potassium    ","(4-1a)"," 39.0983"
119 DATA "Ca"," Calcium      ","(4-2a)"," 40.078"
120 DATA "Sc"," Scandium     ","(4-3a)"," 44.955910"
121 DATA "Ti"," Titanium     ","(4-4a)"," 47.88"
122 DATA "V","  Vanadium     ","(4-5a)"," 50.9415"
123 DATA "Cr"," Chromium     ","(4-6a)"," 51.9961"
124 DATA "Mn"," Manganese    ","(4-7a)"," 54.93805"
125 DATA "Fe"," Iron         ","(4-8) "," 55.847"
126 DATA "Co"," Cobalt       ","(4-8) "," 58.93320"
127 DATA "Ni"," Nickel       ","(4-8) "," 58.69"
128 DATA "Cu"," Copper       ","(4-1b)"," 63.546"
129 DATA "Zn"," Zinc         ","(4-2b)"," 65.39"
130 DATA "Ga"," Gallium      ","(4-3b)"," 69.723"
131 DATA "Ge"," Germanium    ","(4-4b)"," 72.61"
132 DATA "As"," Arsenic      ","(4-5b)"," 74.92159"
133 DATA "Se"," Selenium     ","(4-6b)"," 78.96"
134 DATA "Br"," Bromine      ","(4-7b)"," 79.904"
135 DATA "Kr"," Krypton      ","(4-0) "," 83.80"
136 DATA "Rb"," Rubidium     ","(5-1a)"," 85.4678"
137 DATA "Sr"," Strontium    ","(5-2a)"," 87.62"
138 DATA "Y","  Yttrium      ","(5-3a)"," 88.90585"
139 DATA "Zr"," Zirconium    ","(5-4a)"," 91.224"
140 DATA "Nb"," Niobium      ","(5-5a)"," 92.90638"
141 DATA "Mo"," Molybdenum   ","(5-6a)"," 95.94"
142 DATA "Tc"," Technetium   ","(5-7a)"," [98]"
143 DATA "Ru"," Ruthenium    ","(5-8) "," 101.07"
144 DATA "Rh"," Rhodium      ","(5-8) "," 102.90550"
145 DATA "Pd"," Palladium    ","(5-8) "," 106.42"
146 DATA "Ag"," Silver       ","(5-1b)"," 107.8682"
147 DATA "Cd"," Cadmium      ","(5-2b)"," 112.411"
148 DATA "In"," Indium       ","(5-3b)"," 114.82"
149 DATA "Sn"," Tin          ","(5-4b)"," 118.710"
150 DATA "Sb"," Antimony     ","(5-5b)"," 121.75"
151 DATA "Te"," Tellurium    ","(5-6b)"," 127.60"
152 DATA "I","  Iodine       ","(5-7b)"," 126.90447"
153 DATA "Xe"," Xenon        ","(5-0) "," 131.29"
154 DATA "Cs"," Caesium      ","(6-1a)"," 132.90543"
155 DATA "Ba"," Barium       ","(6-2a)"," 137.327"
156 DATA "La"," Lanthanum    ","(6-3a)"," 138.9055"
157 DATA "Ce"," Cerium       ","(6-3a)"," 140.115"
158 DATA "Pr"," Praseodymium ","(6-3a)"," 140.90765"
159 DATA "Nd"," Neodymium    ","(6-3a)"," 144.24"
160 DATA "Pm"," Promethium   ","(6-3a)"," [145]"
161 DATA "Sm"," Samarium     ","(6-3a)"," 150.36"
162 DATA "Eu"," Europium     ","(6-3a)"," 151.965"
163 DATA "Gd"," Gadolinium   ","(6-3a)"," 157.25"
164 DATA "Tb"," Terbium      ","(6-3a)"," 158.92534"
165 DATA "Dy"," Dysprosium   ","(6-3a)"," 162.50"
166 DATA "Ho"," Holmium      ","(6-3a)"," 164.93032"
167 DATA "Er"," Erbium       ","(6-3a)"," 167.26"
168 DATA "Tm"," Thulium      ","(6-3a)"," 168.93421"
169 DATA "Yb"," Ytterbium    ","(6-3a)"," 173.04"
170 DATA "Lu"," Lutetium     ","(6-3a)"," 174.967"
171 DATA "Hf"," Hafnium      ","(6-4a)"," 178.49"
172 DATA "Ta"," Tantalum     ","(6-5a)"," 180.9479"
173 DATA "W","  Tungsten     ","(6-6a)"," 183.85"
174 DATA "Re"," Rhenium      ","(6-7a)"," 186.207"
175 DATA "Os"," Osmium       ","(6-8) "," 190.2"
176 DATA "Ir"," Iridium      ","(6-8) "," 192.22"
177 DATA "Pt"," Platinum     ","(6-8) "," 195.08"
178 DATA "Au"," Gold         ","(6-1b)"," 196.96654"
179 DATA "Hg"," Mercury      ","(6-2b)"," 200.59"
180 DATA "Tl"," Thallium     ","(6-3b)"," 204.3833"
181 DATA "Pb"," Lead         ","(6-4b)"," 207.2"
182 DATA "Bi"," Bismuth      ","(6-5b)"," 208.98037"
183 DATA "Po"," Polonium     ","(6-6b)"," [209]"
184 DATA "At"," Astatine     ","(6-7b)"," [210]"
185 DATA "Rn"," Radon        ","(6-0) "," [222]"
186 DATA "Fr"," Francium     ","(7-1a)"," [223]"
187 DATA "Ra"," Radium       ","(7-2a)"," [226]"
188 DATA "Ac"," Actinium     ","(7-3a)"," [227]"
189 DATA "Th"," Thorium      ","(7-3a)"," 232.0381"
190 DATA "Pa"," Protactinium ","(7-3a)"," 231.03588"
191 DATA "U","  Uranium      ","(7-3a)"," 238.0289"
192 DATA "Np"," Neptunium    ","(7-3a)"," [237]"
193 DATA "Pu"," Plutonium    ","(7-3a)"," [244]"
194 DATA "Am"," Americium    ","(7-3a)"," [243]"
195 DATA "Cm"," Curium       ","(7-3a)"," [247]"
196 DATA "Bk"," Berkelium    ","(7-3a)"," [247]"
197 DATA "Cf"," Californium  ","(7-3a)"," [251]"
198 DATA "Es"," Einsteinium  ","(7-3a)"," [252]"
199 DATA "Fm"," Fermium      ","(7-3a)"," [257]"
200 DATA "Md"," Mendelevium  ","(7-3a)"," [258]"
201 DATA "No"," Nobelium     ","(7-3a)"," [259]"
202 DATA "Lr"," Lawrencium   ","(7-3a)"," [260]"
250 DATA "6:Lanthanoid: La Ce Pr Nd Pm Sm Eu Gd Tb"
251 DATA "              Dy Ho Er Tm Yb Lu         "
252 DATA "7:Actinoid  : Ac Th Pa U  Np Pu Am Cm Bk"
253 DATA "              Cf Es Fm Md No Lr         "
300 DATA "  1a 2a 3a 4a 5a 6a 7a 8  8  8  1b 2b 3b"
301 DATA "  6a 7a 8  8  8  1b 2b 3b 4b 5b 6b 7b 0 "
350 DATA "1:H                                     "
351 DATA "2:Li Be                               B "
352 DATA "3:Na Mg                               Al"
353 DATA "4:K  Ca Sc Ti V  Cr Mn Fe Co Ni Cu Zn Ga"
354 DATA "5:Rb Sr Y  Zr Nb Mo Tc Ru Rh Pd Ag Cd In"
355 DATA "6:Cs Ba  * Hf Ta W  Re Os Ir Pt Au Hg Tl"
356 DATA "7:Fr Ra **                              "
360 DATA "1:                                    He"
361 DATA "2:                     B  C  N  O  F  Ne"
362 DATA "3:                     Al Si P  S  Cl Ar"
363 DATA "4:Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Kr"
364 DATA "5:Mo Tc Ru Rh Pd Ag Cd In Sn Sb Te I  Xe"
365 DATA "6:W  Re Os Ir Pt Au Hg Tl Pb Bi Po At Rn"
366 DATA "7:                                      "
1020 QMS$="          *  PERIODIC TABLE  *"
1030 CLS :PRINT QMS$
1040 LOCATE 2,2:PRINT "Display table...1  Atomic weight...2"
1050 Q4$=INKEY$ &1:P1=ASC Q4$
1060 IF P1=&31 GOSUB 1090:GOTO 1030
1070 IF P1=&32 GOSUB 1390:GOTO 1030
1080 GOTO 1050
1090 'display table
1100 QMI=350:QMA=356:R6=QMI:QDS=0
1110 RESTORE 300+QDS:READ QW1$:LOCATE 0,0:PRINT QW1$
1120 RESTORE R6
1130 FOR QI=0 TO 2:READ QW1$:PRINT QW1$:NEXT
1140 '
1150 '
1160 Q4$=INKEY$ &1:P1=ASC Q4$
1170 IF P1=4 THEN IF R6>QMI+1 THEN R6=R6-2:GOTO 1110
1180 IF P1=5 THEN IF R6>QMA-3 THEN 1290 ELSE R6=R6+2:GOTO 1110
1190 IF QDS=0 AND P1=14 THEN 1230
1200 IF QDS=1 AND P1=15 THEN 1260
1210 IF P1=13 RETURN
1220 GOTO 1160
1230 QDS=1:QMI=360:QMA=366
1240 R6=R6-350+QMI
1250 GOTO 1110
1260 QDS=0:QMI=350:QMA=356
1270 R6=R6-360+QMI
1280 GOTO 1110
1290 'Lanthanoid & Actionoid disp
1300 QMI=250:QMA=253:R6=QMI:LOCATE 0,0
1310 RESTORE R6
1320 FOR QI=QMI TO QMA:READ QW1$:PRINT QW1$:NEXT
1330 '
1340 '
1350 Q4$=INKEY$ &1:P1=ASC Q4$
1360 IF P1=13 RETURN
1370 IF P1=4 THEN 1090 ELSE 1350
1380 '
1390 'periodic table
1400 QMI=100:QMA=202:R6=QMI
1410 CLS :PRINT QMS$:Q4$=""
1420 LOCATE 4,2:PRINT "Atomic Symbol= ";:INPUT Q4$
1430 IF Q4$="" THEN R6=QMI:GOTO 1570 ELSE QLN=LEN Q4$
1440 IF QLN=1 THEN 1480 ELSE IF QLN>=3 THEN 1770
1450 QK1$=LEFT$ (Q4$,1):QK2$=RIGHT$ (Q4$,1)
1460 IF QK2$<"A" OR QK2$>"Z" THEN 1480
1470 Q4$=QK1$+(CHR$ (ASC QK2$+32))
1480 R1=300:R6=QMI:RESTORE R6
1490 '
1500 FOR QI=QMI TO QMA
1510 READ QW1$,QW2$,QW3$,QW4$
1520 IF Q4$=QW1THEN R1=QI
1530 NEXT
1540 IF R1>QMA THEN 1770
1550 IF R1>QMA-3 THEN R1=QMA-3
1560 R6=R1
1570 RESTORE R6:QCT=R6-99:LOCATE 0,0
1580 FOR QI=0 TO 3
1590 READ QW1$,QW2$,QW3$,QW4$

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net