home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 114 / CMDX200.ZIP / ELEMENT.UTL < prev    next >
Encoding:
Text File  |  1993-10-26  |  15.2 KB  |  369 lines
  1.  
  2. | ELEMENT.UTL file
  3.   Copyright 1993 by
  4.   David W. Denker  |
  5.  
  6. Z=INFO:Y=int((z-int(z/1e4)*1e4)/1e3):if Y<>4}500
  7. Y=INT(Z*.0001):IF Y<110}501
  8. TITLE= PERIODIC TABLE 
  9. M=z-int(z*.1) 
  10. V=0
  11. BC14:FC0:CLS
  12. DSP"   1a  2a  3b  4b  5b  6b  7b       8      1b  2b  3a  4a  5a  6a  7a   0
  13.   ┌───┐                                                               ┌───┐
  14.   │ 1 │                                                               │ 2 │
  15.   │ H │                                                               │He │
  16.   ├───┼───┐                                       ┌───┬───┬───┬───┬───┼───┤
  17.   │ 3 │ 4 │                                       │ 5 │ 6 │ 7 │ 8 │ 9 │10 │
  18.   │Li │Be │                                       │ B │ C │ N │ O │ F │Ne │
  19.   ├───┼───┤                                       ├───┼───┼───┼───┼───┼───┤
  20.   │11 │12 │                                       │13 │14 │15 │16 │17 │18 │
  21.   │Na │Mg │                                       │Al │Si │ P │ S │Cl │Ar │
  22.   ├───┼───┼───┬───┬───┬───┬───┬───┬───┬───┬───┬───┼───┼───┼───┼───┼───┼───┤
  23.   │19 │20 │21 │22 │23 │24 │25 │26 │27 │28 │29 │30 │31 │32 │33 │34 │35 │36 │
  24.   │ K │Ca │Sc │Ti │ V │Cr │Mn │Fe │Co │Ni │Cu │Zn │Ga │Ge │As │Se │Br │Kr │
  25.   ├───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┤
  26.   │37 │38 │39 │40 │41 │42 │43 │44 │45 │46 │47 │48 │49 │50 │51 │52 │53 │54 │
  27.   │Rb │Sr │ Y │Zr │Nb │Mo │Tc │Ru │Rh │Pd │Ag │Cd │In │Sn │Sb │Te │ I │Xe │
  28.   ├───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┤
  29.   │55 │56 │57 │72 │73 │74 │75 │76 │77 │78 │79 │80 │81 │82 │83 │84 │85 │86 │
  30.   │Cs │Ba │La │Hf │Ta │ W │Re │Os │Ir │Pt │Au │Hg │Tl │Pb │Bi │Po │At │Rn │
  31.   ├───┼───┼───┼───┼───┼───┼───┼───┼───┼───┴───┴───┴───┴───┴───┴───┴───┴───┘
  32.   │87 │88 │89 │104│105│106│107│108│109│  ┌───────────────────╖ ┌──────────╖
  33.   │Fr │Ra │Ac │Unq│Unp│Unh│Uns│Uno│Une│  │PgDn (68-71,90-103)║ │ESC (quit)║
  34.   └───┴───┴───┴───┴───┴───┴───┴───┴───┘  ╘═══════════════════╝ ╘══════════╝"
  35. GO9
  36. #7
  37. WINDD NNNNNNT3BB1BF15B15" Hit any key to continue!   "xwr8r2c14
  38. V=1:IF W=0}8
  39. wdsp l1$al2$bl3" ATOMIC NUMBER "U3(N)l4" ATOMIC WEIGHT "U3.6(W)
  40. GO6
  41. #8
  42. wdsp l1$al2$bl3" ATOMIC NUMBER "U3(N)l4" ATOMIC WEIGHT "$C
  43. go6
  44. #9
  45. IF M=0}20
  46. mon2:WINDD T1BB1BF15B3"
  47.  Select element with mouse or
  48.  enter its number:            "xr4c14
  49. #6
  50. J=2:GOS98:IF I=281}30:IF I=0}9:IF I<110}22
  51. #10
  52. I=I-INT(I*.0001)*1E4-1
  53. IF I>800}11
  54. IF I>162}}IF I<166}201:IF I>242}}IF I<246}201
  55. IF I>230}}IF I<234}202:IF I>310}}IF I<314}202
  56.  
  57. IF I>402}}IF I<406}203:IF I>482}}IF I<486}203
  58. IF I>406}}IF I<410}204:IF I>486}}IF I<490}204
  59. IF I>450}}IF I<454}205:IF I>530}}IF I<534}205
  60. IF I>454}}IF I<458}206:IF I>534}}IF I<538}206
  61. IF I>458}}IF I<462}207:IF I>538}}IF I<542}207
  62. IF I>462}}IF I<466}208:IF I>542}}IF I<546}208
  63. IF I>466}}IF I<470}209:IF I>546}}IF I<550}209
  64. IF I>470}}IF I<474}210:IF I>550}}IF I<554}210
  65.  
  66. IF I>642}}IF I<646}211:IF I>722}}IF I<726}211
  67. IF I>646}}IF I<650}212:IF I>726}}IF I<730}212
  68. IF I>690}}IF I<694}213:IF I>770}}IF I<774}213
  69. IF I>694}}IF I<698}214:IF I>774}}IF I<778}214
  70. IF I>698}}IF I<702}215:IF I>778}}IF I<782}215
  71. IF I>702}}IF I<706}216:IF I>782}}IF I<786}216
  72. IF I>706}}IF I<710}217:IF I>786}}IF I<790}217
  73. IF I>710}}IF I<714}218:IF I>790}}IF I<794}218
  74. GO9
  75. #11:IF I>1100}12
  76. IF I>882}}IF I<886}219:IF I>962}}IF I<966}219
  77. IF I>886}}IF I<890}220:IF I>966}}IF I<970}220
  78. IF I>890}}IF I<894}221:IF I>970}}IF I<974}221
  79. IF I>894}}IF I<898}222:IF I>974}}IF I<978}222
  80. IF I>898}}IF I<902}223:IF I>978}}IF I<982}223
  81. IF I>902}}IF I<906}224:IF I>982}}IF I<986}224
  82. IF I>906}}IF I<910}225:IF I>986}}IF I<990}225
  83. IF I>910}}IF I<914}226:IF I>990}}IF I<994}226
  84. IF I>914}}IF I<918}227:IF I>994}}IF I<998}227
  85. IF I>918}}IF I<922}228:IF I>998}}IF I<1002}228
  86. IF I>922}}IF I<926}229:IF I>1002}}IF I<1006}229
  87. IF I>926}}IF I<930}230:IF I>1006}}IF I<1010}230
  88. IF I>930}}IF I<934}231:IF I>1010}}IF I<1014}231
  89. IF I>934}}IF I<938}232:IF I>1014}}IF I<1018}232
  90. IF I>938}}IF I<942}233:IF I>1018}}IF I<1022}233
  91. IF I>942}}IF I<946}234:IF I>1022}}IF I<1026}234
  92. IF I>946}}IF I<950}235:IF I>1026}}IF I<1030}235
  93. IF I>950}}IF I<954}236:IF I>1030}}IF I<1034}236
  94. GO9
  95. #12:IF I>1300}13
  96. IF I>1122}}IF I<1126}237:IF I>1202}}IF I<1206}237
  97. IF I>1126}}IF I<1130}238:IF I>1206}}IF I<1210}238
  98. IF I>1130}}IF I<1134}239:IF I>1210}}IF I<1214}239
  99. IF I>1134}}IF I<1138}240:IF I>1214}}IF I<1218}240
  100. IF I>1138}}IF I<1142}241:IF I>1218}}IF I<1222}241
  101. IF I>1142}}IF I<1146}242:IF I>1222}}IF I<1226}242
  102. IF I>1146}}IF I<1150}243:IF I>1226}}IF I<1230}243
  103. IF I>1150}}IF I<1154}244:IF I>1230}}IF I<1234}244
  104. IF I>1154}}IF I<1158}245:IF I>1234}}IF I<1238}245
  105. IF I>1158}}IF I<1162}246:IF I>1238}}IF I<1242}246
  106. IF I>1162}}IF I<1166}247:IF I>1242}}IF I<1246}247
  107. IF I>1166}}IF I<1170}248:IF I>1246}}IF I<1250}248
  108. IF I>1170}}IF I<1174}249:IF I>1250}}IF I<1254}249
  109. IF I>1174}}IF I<1178}250:IF I>1254}}IF I<1258}250
  110. IF I>1178}}IF I<1182}251:IF I>1258}}IF I<1262}251
  111. IF I>1182}}IF I<1186}252:IF I>1262}}IF I<1266}252
  112. IF I>1186}}IF I<1190}253:IF I>1266}}IF I<1270}253
  113. IF I>1190}}IF I<1194}254:IF I>1270}}IF I<1274}254
  114. GO9
  115. #13:IF I>1600}14
  116. IF I>1362}}IF I<1366}255:IF I>1442}}IF I<1446}255
  117. IF I>1366}}IF I<1370}256:IF I>1446}}IF I<1450}256
  118. IF I>1370}}IF I<1374}257:IF I>1450}}IF I<1454}257
  119. IF I>1374}}IF I<1378}272:IF I>1454}}IF I<1458}272
  120. IF I>1378}}IF I<1382}273:IF I>1458}}IF I<1462}273
  121. IF I>1382}}IF I<1386}274:IF I>1462}}IF I<1466}274
  122. IF I>1386}}IF I<1390}275:IF I>1466}}IF I<1470}275
  123. IF I>1390}}IF I<1394}276:IF I>1470}}IF I<1474}276
  124. IF I>1394}}IF I<1398}277:IF I>1474}}IF I<1478}277
  125. IF I>1398}}IF I<1402}278:IF I>1478}}IF I<1482}278
  126. IF I>1402}}IF I<1406}279:IF I>1482}}IF I<1486}279
  127. IF I>1406}}IF I<1410}280:IF I>1486}}IF I<1490}280
  128. IF I>1410}}IF I<1414}281:IF I>1490}}IF I<1494}281
  129. IF I>1414}}IF I<1418}282:IF I>1494}}IF I<1498}282
  130. IF I>1418}}IF I<1422}283:IF I>1498}}IF I<1502}283
  131. IF I>1422}}IF I<1426}284:IF I>1502}}IF I<1506}284
  132. IF I>1426}}IF I<1430}285:IF I>1506}}IF I<1510}285
  133. IF I>1430}}IF I<1434}286:IF I>1510}}IF I<1514}286
  134. GO9
  135. #14
  136. IF I>1602}}IF I<1606}287:IF I>1682}}IF I<1686}287
  137. IF I>1606}}IF I<1610}288:IF I>1686}}IF I<1690}288
  138. IF I>1610}}IF I<1614}289:IF I>1690}}IF I<1694}289
  139. IF I>1614}}IF I<1618}304:IF I>1694}}IF I<1698}304
  140. IF I>1618}}IF I<1622}305:IF I>1698}}IF I<1702}305
  141. IF I>1622}}IF I<1626}306:IF I>1702}}IF I<1706}306
  142. IF I>1626}}IF I<1630}307:IF I>1706}}IF I<1710}307
  143. IF I>1630}}IF I<1634}308:IF I>1710}}IF I<1714}308
  144. IF I>1634}}IF I<1638}309:IF I>1714}}IF I<1718}309
  145.  
  146. IF I>1721}}IF I<1741}30
  147. IF I>1743}}IF I<1754}Q
  148. GO9
  149.  
  150. #20
  151. WINDD T1"
  152.  To select the element
  153.  enter its number:            "xr4c14
  154. J=2:GOS98:IF I=281}20:IF I=0}20:IF I>109}20
  155. #22
  156. ON(I)G{201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,
  157. 217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,
  158. 235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,
  159. 253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,
  160. 271,272,273,274,275,276,277,278,279,280,281,282,283,284,285,286,287,288,
  161. 289,290,291,292,293,294,295,296,297,298,299,300,301,302,303,304,305,306,
  162. 307,308,309}:GO20
  163.  
  164. #30
  165. WINDD T3B15"
  166.   ┌───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┐
  167.   │58 │59 │60 │61 │62 │63 │64 │65 │66 │67 │68 │69 │70 │71 │
  168.   │Ce │Pr │Nd │Pm │Sm │Eu │Gd │Tb │Dy │Ho │Er │Tm │Yb │Lu │
  169.   ├───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┤
  170.   │90 │91 │92 │93 │94 │95 │96 │97 │98 │99 │100│101│102│103│
  171.   │Th │Pa │ U │Np │Pu │Am │Cm │Bk │Cf │Es │Fm │Md │No │Lr │
  172.   └───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┘ 
  173.                                         ┌────────╖  ┌─────╖
  174.                                         │  PgDn  ║  │ ESC ║
  175.                                         ╘════════╝  ╘═════╝  "XR9C7
  176. #31
  177. V=0
  178. IF M=0}33
  179. WDSP L9o" Select element with mouse or 
  180.  enter its number:            "
  181. J=10:GOS98:IF I=281}9:IF I=0}31:IF I<110}22:IF I<10000}31:GO35
  182. #33
  183. WDSP L9o"
  184.  To select the element
  185.  enter its number:            "
  186. J=10:GOS98:IF I=281}9:IF I=0}33:IF I>106}33:GO22
  187.  
  188. #35
  189. I=I-INT(I*.0001)*1E4-1
  190. IF I>1100}36
  191. IF I>890}}IF I<894}258:IF I>970}}IF I<974}258
  192. IF I>894}}IF I<898}259:IF I>974}}IF I<978}259
  193. IF I>898}}IF I<902}260:IF I>978}}IF I<982}260
  194. IF I>902}}IF I<906}261:IF I>982}}IF I<986}261
  195. IF I>906}}IF I<910}262:IF I>986}}IF I<990}262
  196. IF I>910}}IF I<914}263:IF I>990}}IF I<994}263
  197. IF I>914}}IF I<918}264:IF I>994}}IF I<998}264
  198. IF I>918}}IF I<922}265:IF I>998}}IF I<1002}265
  199. IF I>922}}IF I<926}266:IF I>1002}}IF I<1006}266
  200. IF I>926}}IF I<930}267:IF I>1006}}IF I<1010}267
  201. IF I>930}}IF I<934}268:IF I>1010}}IF I<1014}268
  202. IF I>934}}IF I<938}269:IF I>1014}}IF I<1018}269
  203. IF I>938}}IF I<942}270:IF I>1018}}IF I<1022}270
  204. IF I>942}}IF I<946}271:IF I>1022}}IF I<1026}271
  205. GO31
  206. #36
  207. IF I>1600}31
  208. IF I>1130}}IF I<1134}290:IF I>1210}}IF I<1214}290
  209. IF I>1134}}IF I<1138}291:IF I>1214}}IF I<1218}291
  210. IF I>1138}}IF I<1142}292:IF I>1218}}IF I<1222}292
  211. IF I>1142}}IF I<1146}293:IF I>1222}}IF I<1226}293
  212. IF I>1146}}IF I<1150}294:IF I>1226}}IF I<1230}294
  213. IF I>1150}}IF I<1154}295:IF I>1230}}IF I<1234}295
  214. IF I>1154}}IF I<1158}296:IF I>1234}}IF I<1238}296
  215. IF I>1158}}IF I<1162}297:IF I>1238}}IF I<1242}297
  216. IF I>1162}}IF I<1166}298:IF I>1242}}IF I<1246}298
  217. IF I>1166}}IF I<1170}299:IF I>1246}}IF I<1250}299
  218. IF I>1170}}IF I<1174}300:IF I>1250}}IF I<1254}300
  219. IF I>1174}}IF I<1178}301:IF I>1254}}IF I<1258}301
  220. IF I>1178}}IF I<1182}302:IF I>1258}}IF I<1262}302
  221. IF I>1182}}IF I<1186}303:IF I>1262}}IF I<1266}303
  222. IF I>1488}}IF I<1497}9
  223. IF I>1500}}IF I<1506}Q
  224. GO31
  225.  
  226. #98
  227. A=0,B=0,C=0:GO100
  228. #100
  229. I=KYIN
  230. IF I=281}R:IF I>47}}IF I<58}101:IF I=13}103:IF I=8}102:IF I=27}Q
  231. IF I=283}98:IF I<10000}100:RET
  232. #101
  233. I=I-48:IF C<>0}100:C=B:B=A:A=I:if V=1}c400
  234. WDSP L(J)o" enter its number:"U3(C*100+B*10+A):GO100
  235. #102
  236. if V=1}c400
  237. A=B:B=C:C=0:WDSP L(J)o" enter its number:"U3(B*10+A):GO100
  238. #103
  239. I=C*100+B*10+A:RET
  240.  
  241. #201:$A=" H":$B=" HYDROGEN":N=1:W=1.0079:GO7
  242. #202:$A=" He":$B=" HELIUM":N=2:W=4.0026:GO7
  243. #203:$A=" Li":$B=" LITHIUM":N=3:W=6.94:GO7
  244. #204:$A=" Be":$B=" BERYLLIUM":N=4:W=9.01218:GO7
  245. #205:$A=" B":$B=" BORON":N=5:W=10.81:GO7
  246. #206:$A=" C":$B=" CARBON":N=6:W=12.011:GO7
  247. #207:$A=" N":$B=" NITROGEN":N=7:W=14.0067:GO7
  248. #208:$A=" O":$B=" OXYGEN":N=8:W=15.9994:GO7
  249. #209:$A=" F":$B=" FLUORINE":N=9:W=18.998403:GO7
  250. #210:$A=" Ne":$B=" NEON":N=10:W=20.17:GO7
  251. #211:$A=" Na":$B=" SODIUM":N=11:W=22.98977:GO7
  252. #212:$A=" Mg":$B=" MAGNESIUM":N=12:W=24.305:GO7
  253. #213:$A=" Al":$B=" ALUMINUM":N=13:W=26.98154:GO7
  254. #214:$A=" Si":$B=" SILICON":N=14:W=28.0855:GO7
  255. #215:$A=" P":$B=" PHOSPHOROUS":N=15:W=30.97376:GO7
  256. #216:$A=" S":$B=" SULFUR":N=16:W=32.06:GO7
  257. #217:$A=" Cl":$B=" CHLORINE":N=17:W=35.453:GO7
  258. #218:$A=" Ar":$B=" ARGON":N=18:W=39.948:GO7
  259. #219:$A=" K":$B=" POTASSIUM":N=19:W=39.0983:GO7
  260. #220:$A=" Ca":$B=" CALCIUM":N=20:W=40.08:GO7
  261. #221:$A=" Sc":$B=" SCANDIUM":N=21:W=44.9559:GO7
  262. #222:$A=" Ti":$B=" TITANIUM":N=22:W=47.9:GO7
  263. #223:$A=" V":$B=" VANADIUM":N=23:W=50.9415:GO7
  264. #224:$A=" Cr":$B=" CHROMIUM":N=24:W=51.996:GO7
  265. #225:$A=" Mn":$B=" MANGANESE":N=25:W=54.938:GO7
  266. #226:$A=" Fe":$B=" IRON":N=26:W=55.847:GO7
  267. #227:$A=" Co":$B=" COBALT":N=27:W=58.9332:GO7
  268. #228:$A=" Ni":$B=" NICKEL":N=28:W=58.71:GO7
  269. #229:$A=" Cu":$B=" COPPER":N=29:W=63.546:GO7
  270. #230:$A=" Zn":$B=" ZINC":N=30:W=65.38:GO7
  271. #231:$A=" Ga":$B=" GALLIUM":N=31:W=69.735:GO7
  272. #232:$A=" Ge":$B=" GERMANIUM":N=32:W=72.59:GO7
  273. #233:$A=" As":$B=" ARSENIC":N=33:W=74.9216:GO7
  274. #234:$A=" Se":$B=" SELENIUM":N=34:W=78.96:GO7
  275. #235:$A=" Br":$B=" BROMIUM":N=35:W=79.904:GO7
  276. #236:$A=" Kr":$B=" KRYPTON":N=36:W=83.8:GO7
  277. #237:$A=" Rb":$B=" RUBIDIUM":N=37:W=85.467:GO7
  278. #238:$A=" Sr":$B=" STRONTIUM":N=38:W=87.62:GO7
  279. #239:$A=" Y":$B=" YTTRIUM":N=39:W=88.9059:GO7
  280. #240:$A=" Zr":$B=" ZIRCONIUM":N=40:W=91.22:GO7
  281. #241:$A=" Nb":$B=" NIOBIUM":N=41:W=92.9064:GO7
  282. #242:$A=" Mo":$B=" MOLYBDENUM":N=42:W=95.94:GO7
  283. #243:$A=" Tc":$B=" TECHNETIUM":N=43:W=98.9062:GO7
  284. #244:$A=" Ru":$B=" RUTHENIUM":N=44:W=101.07:GO7
  285. #245:$A=" Rh":$B=" RHODIUM":N=45:W=102.9055:GO7
  286. #246:$A=" Pd":$B=" PALLADIUM":N=46:W=106.4:GO7
  287. #247:$A=" Ag":$B=" SILVER":N=47:W=107.868:GO7
  288. #248:$A=" Cd":$B=" CADMIUM":N=48:W=112.41:GO7
  289. #249:$A=" In":$B=" INDIUM":N=49:W=114.82:GO7
  290. #250:$A=" Sn":$B=" TIN":N=50:W=118.69:GO7
  291. #251:$A=" Sb":$B=" ANTIMONY":N=51:W=121.75:GO7
  292. #252:$A=" Te":$B=" TELLURIUM":N=52:W=127.6:GO7
  293. #253:$A=" I":$B=" IODINE":N=53:W=126.9045:GO7
  294. #254:$A=" Xe":$B=" XENON":N=54:W=131.3:GO7
  295. #255:$A=" Cs":$B=" CESIUM":N=55:W=132.9054:GO7
  296. #256:$A=" Ba":$B=" BARIUM":N=56:W=137.33:GO7
  297. #257:$A=" La":$B=" LANTHANUM":N=57:W=138.9055:GO7
  298. #258:$A=" Ce":$B=" CERIUM":N=58:W=140.12:GO7
  299. #259:$A=" Pr":$B=" PRAESEODYMIUM":N=59:W=140.9077:GO7
  300. #260:$A=" Nd":$B=" NEODYMIUM":N=60:W=144.24:GO7
  301. #261:$A=" Pm":$B=" PROMETHIUM":N=61:W=0:$C=" (145)":GO7
  302. #262:$A=" Sm":$B=" SAMARIUM":N=62:W=150.4:GO7
  303. #263:$A=" Eu":$B=" EUROPIUM":N=63:W=151.96:GO7
  304. #264:$A=" Gd":$B=" GADOLINIUM":N=64:W=157.25:GO7
  305. #265:$A=" Tb":$B=" TERBIUM":N=65:W=158.9254:GO7
  306. #266:$A=" Dy":$B=" DYSPROSIUM":N=66:W=162.5:GO7
  307. #267:$A=" Ho":$B=" HOLMIUM":N=67:W=164.9304:GO7
  308. #268:$A=" Er":$B=" ERBIUM":N=68:W=167.26:GO7
  309. #269:$A=" Tm":$B=" THULIUM":N=69:W=168.9342:GO7
  310. #270:$A=" Yb":$B=" YTTERBIUM":N=70:W=173.04:GO7
  311. #271:$A=" Lu":$B=" LUTETIUM":N=71:W=174.96:GO7
  312. #272:$A=" Hf":$B=" HAFNIUM":N=72:W=178.49:GO7
  313. #273:$A=" Ta":$B=" TANTALUM":N=73:W=180.947:GO7
  314. #274:$A=" W":$B=" TUNGSTEN":N=74:W=183.85:GO7
  315. #275:$A=" Re":$B=" RHENIUM":N=75:W=186.207:GO7
  316. #276:$A=" Os":$B=" OSMIUM":N=76:W=190.2:GO7
  317. #277:$A=" Ir":$B=" IRIDIUM":N=77:W=192.22:GO7
  318. #278:$A=" Pt":$B=" PLATINUM":N=78:W=195.09:GO7
  319. #279:$A=" Au":$B=" GOLD":N=79:W=196.9665:GO7
  320. #280:$A=" Hg":$B=" MERCURY":N=80:W=200.59:GO7
  321. #281:$A=" Tl":$B=" THALLIUM":N=81:W=204.37:GO7
  322. #282:$A=" Pb":$B=" LEAD":N=82:W=207.2:GO7
  323. #283:$A=" Bi":$B=" BISMUTH":N=83:W=208.9804:GO7
  324. #284:$A=" Po":$B=" POLONIUM":N=84:W=0:$C=" (209)":GO7
  325. #285:$A=" At":$B=" ASTATINE":N=85:W=0:$C=" (210)":GO7
  326. #286:$A=" Rn":$B=" RADON":N=86:W=0:$C=" (222)":GO7
  327. #287:$A=" Fr":$B=" FRANCIUM":N=87:W=0:$C=" (223)":GO7
  328. #288:$A=" Ra":$B=" RADIUM":N=88:W=226.0254:GO7
  329. #289:$A=" Ac":$B=" ACTINIUM":N=89:W=0:$C=" (227)":GO7
  330. #290:$A=" Th":$B=" THORIUM":N=90:W=232.0381:GO7
  331. #291:$A=" Pa":$B=" PROTACTINIUM":N=91:W=231.0359:GO7
  332. #292:$A=" U":$B=" URANIUM":N=92:W=238.029:GO7
  333. #293:$A=" Np":$B=" NEPRUNIUM":N=93:W=237.0482:GO7
  334. #294:$A=" Pu":$B=" PLUTONIUM":N=94:W=0:$C=" (244)":GO7
  335. #295:$A=" Am":$B=" AMERICIUM":N=95:W=0:$C=" (243)":GO7
  336. #296:$A=" Cm":$B=" CURIUM":N=96:W=0:$C=" (247)":GO7
  337. #297:$A=" Bk":$B=" BERKELIUM":N=97:W=0:$C=" (247)":GO7
  338. #298:$A=" Cf":$B=" CALFORNIUM":N=98:W=0:$C=" (251)":GO7
  339. #299:$A=" Es":$B=" EINSTEINIUM":N=99:W=0:$C=" (254)":GO7
  340. #300:$A=" Fm":$B=" FERMIUM":N=100:W=0:$C=" (257)":GO7
  341. #301:$A=" Md":$B=" MENDELEVIUM":N=101:W=0:$C=" (258)":GO7
  342. #302:$A=" No":$B=" NOBELIUM":N=102:W=0:$C=" (259)":GO7
  343. #303:$A=" Lr":$B=" LAWRENCIUM":N=103:W=0:$C=" (260)":GO7
  344. #304:$A=" Unq":$B=" UNNILQUADIUM":N=104:W=261::GO7
  345. #305:$A=" Unp":$B=" UNNILPENTIUM":N=105:W=262:GO7
  346. #306:$A=" Unh":$B=" UNNILHEXIUM":N=106:W=263:GO7
  347. #307:$A=" Uns":$B="":N=107:W=0:$C="":GO7
  348. #308:$A=" Uno":$B="":N=108:W=0:$C="":GO7
  349. #309:$A=" Une":$B="":N=109:W=0:$C="":GO7
  350.  
  351. #400
  352. V=0
  353. IF M=0}401
  354. WINDD T1BB1BF15B3"
  355.  Select element with mouse or
  356.  enter its number:            "xr4c14:ret
  357. #401
  358. WDSP L9o"
  359.  To select the element
  360.  enter its number:            ":ret
  361.  
  362. #500
  363. DSP N" SORRY, THIS FILE CAN ONLY BE RUN ON COMMAND EXTRA!"N
  364. BEEP:WAIT10:QUIT
  365. #501
  366. DSP n;
  367.  Sorry, this file must be used with COMMANDX Version 1.10 or greater!;n
  368. BEEP:wait10:quit
  369.