home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / pt3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  269 lines
  1. 2 dimvt$(24),ht$(40)
  2. 3 vt$(1)="":fori=2to24:vt$(i)=vt$(i-1)+"":next
  3. 4 ht$(1)="":fori=2to40:ht$(i)=ht$(i-1)+"":next
  4. 5 s1$=""+ht$(3):s2$=""+ht$(10):s3$=""+ht$(22):s4$=""+ht$(30):sx$=ht$(3)
  5. 170 print"[147]";
  6. 255 print""s1$"1[193]"
  7. 335 prints1$"[200]"
  8. 375 prints1$"[204]i"
  9. 415 prints1$"[206]a"
  10. 455 prints1$"[203]"
  11. 495 prints1$"[210]b"
  12. 535 prints1$"[195]s"
  13. 575 prints1$"[198]r"
  14. 615 print""s2$"  [206]ame"
  15. 655 prints2$"[200]ydrogen"
  16. 665 prints2$"[204]ithium"
  17. 695 prints2$"[211]odium"
  18. 705 prints2$"[208]otassium"
  19. 715 prints2$"[210]ubidium"
  20. 735 prints2$"[195]esium"
  21. 745 prints2$"[198]rancium"
  22. 775 print""s3$"[193]t.#"
  23. 815 prints3$"  1"
  24. 825 prints3$"  3"
  25. 835 prints3$" 11"
  26. 855 prints3$" 19"
  27. 865 prints3$" 37"
  28. 875 prints3$" 55"
  29. 885 prints3$" 87"
  30. 895 print""s4$"[193]t. [215]t."
  31. 935 prints4$"1.00797"
  32. 945 prints4$"6.939"
  33. 975 prints4$"22.9898"
  34. 985 prints4$"39.0983"
  35. 1015 prints4$"85.47"
  36. 1025 prints4$"132.905"
  37. 1035 prints4$"223"
  38. 1050 tx=2:ty=3:nu=7:gosub10000
  39. 1055 print:printsx$"[212]his group is known as the ";
  40. 1060 printchr$(18);
  41. 1065 print"[193][204][203][193][204][201]"
  42. 1095 printsx$"[205][197][212][193][204][211][146]";
  43. 1105 print". [197]ach metal has one electron"
  44. 1135 printsx$"in its outer shell, which gives this"
  45. 1175 printsx$"group an oxidation number of +1."
  46. 1210 gosub7010
  47. 1290 print"[147]";
  48. 1335 prints1$"2[193]"
  49. 1415 prints1$"[194]e"
  50. 1455 prints1$"[205]g"
  51. 1495 prints1$"[195]a"
  52. 1535 prints1$"[211]r"
  53. 1575 prints1$"[194]a"
  54. 1615 prints1$"[210]a"
  55. 1655 print""s2$"  [206]ame"
  56. 1695 prints2$"[194]eryllium"
  57. 1705 prints2$"[205]agnesium"
  58. 1735 prints2$"[195]alcium"
  59. 1745 prints2$"[211]trontium"
  60. 1755 prints2$"[194]arium"
  61. 1775 prints2$"[210]adium"
  62. 1815 print""s3$"[193]t.#"
  63. 1855 prints3$"  4"
  64. 1865 prints3$" 12"
  65. 1875 prints3$" 20"
  66. 1895 prints3$ 38"
  67. 1905 [153]s3$" 56"
  68. 1915 [153]s3$" 88"
  69. 1935 [153]""s4$"atnt. (NULL)t."
  70. 1975 [153]s4$"9.0122"
  71. 1985 [153]s4$"24.312"
  72. 2015 [153]s4$"40.08"
  73. 2025 [153]s4$"87.62"
  74. 2055 [153]s4$"137.33"
  75. 2065 [153]s4$"226"
  76. 2090 nu[178]6:[141]10000
  77. 2095 [153]:[153]sx$"(NULL)his is the ";
  78. 2100 [153][199](18);
  79. 2105 [153]"atn(NULL)(NULL)atn(NULL)right$(NULL)val valatn(NULL)(NULL)left$ (NULL)val(NULL)atn(NULL)(NULL)wait"
  80. 2135 [153]sx$"group. (NULL)hese elements have two"
  81. 2175 [153]sx$"electrons in their outer shells and"
  82. 2215 [153]sx$"they have an oxidation number of +2."
  83. 2255 [153]sx$"(NULL)hey also react with oxygen to form"
  84. 2295 [153]sx$"oxides."
  85. 2330 [141]7010
  86. 2410 [153]"load";
  87. 2455 [153]s1$"3atn"
  88. 2535 [153]s1$"peek"
  89. 2575 [153]s1$"atnl"
  90. 2615 [153]s1$"chr$a"
  91. 2655 [153]s1$"right$n"
  92. 2695 [153]s1$"(NULL)l"
  93. 2735 [153]""s2$"  (NULL)ame"
  94. 2775 [153]s2$"peekoron"
  95. 2785 [153]s2$"atnluminum"
  96. 2815 [153]s2$"chr$allium"
  97. 2825 [153]s2$"right$ndium"
  98. 2835 [153]s2$"(NULL)hallium"
  99. 2855 [153]""s3$"atnt.#"
  100. 2895 [153]s3$"  5"
  101. 2905 [153]s3$" 13"
  102. 2915 [153]s3$" 31"
  103. 2935 [153]s3$" 49"
  104. 2945 [153]s3$" 81"
  105. 2975 [153]""s4$"atnt. (NULL)t."
  106. 3015 [153]s4$"10.811"
  107. 3025 [153]s4$"26.9815"
  108. 3055 [153]s4$"69.72"
  109. 3065 [153]s4$"114.82"
  110. 3095 [153]s4$"204.37"
  111. 3130 nu[178]5:[141]10000
  112. 3135 [153]:[153]sx$"(NULL)his group of elements has no special"
  113. 3175 [153]sx$"name. left$owever, it is the first group"
  114. 3215 [153]sx$"with both metals and non-metals. (NULL)he"
  115. 3255 [153]sx$"one non-metal is ";
  116. 3260 [153][199](18);
  117. 3265 [153]"peek(NULL)(NULL)(NULL)(NULL)wait";
  118. 3275 [153]". right$t has three"
  119. 3295 [153]sx$"oxidation numbers: -5,+1,+3.  (NULL)he re-"
  120. 3335 [153]sx$"maining four elements are metals and"
  121. 3375 [153]sx$"have oxidation numbers of +1 and +3."
  122. 3410 [141]7010
  123. 3490 [153]"load";
  124. 3535 [153]s1$"4atn"
  125. 3615 [153]s1$"len"
  126. 3655 [153]s1$"(NULL)i"
  127. 3695 [153]s1$"chr$e"
  128. 3735 [153]s1$"(NULL)n"
  129. 3775 [153]s1$"(NULL)b"
  130. 3815 [153]""s2$"  (NULL)ame"
  131. 3855 [153]s2$"lenarbon"
  132. 3865 [153]s2$"(NULL)ilicon"
  133. 3895 [153]s2$"chr$ermanium"
  134. 3905 [153]s2$"(NULL)in"
  135. 3915 [153]s2$"(NULL)ead"
  136. 3935 [153]""s3$"atnt.#"
  137. 3975 [153]s3$"  6"
  138. 3985 [153]s3$" 14"
  139. 3995 [153]s3$" 32"
  140. 4015 [153]s3$" 50"
  141. 4025 [153]s3$" 82"
  142. 4055 [153]""s4$"atnt. (NULL)t."
  143. 4095 [153]s4$"12.01115"
  144. 4105 [153]s4$"28.0855"
  145. 4135 [153]s4$"72.59"
  146. 4145 [153]s4$"118.69"
  147. 4175 [153]s4$"207.19"
  148. 4210 [141]10000
  149. 4215 [153]:[153]sx$"(NULL)ike 3atn, this group also hasn't any"
  150. 4255 [153]sx$"name and has both metals and non-"
  151. 4295 [153]sx$"metals. ";
  152. 4300 [153][199](18);
  153. 4305 [153]"lenatn(NULL)peek(NULL)(NULL)wait";
  154. 4315 [153]" and ";
  155. 4320 [153][199](18);
  156. 4325 [153]"(NULL)right$(NULL)right$len(NULL)(NULL)wait are the"
  157. 4335 [153]sx$"non-metals with oxidation numbers of"
  158. 4375 [153]sx$"-4,+2, and +4. (NULL)he metals have two"
  159. 4415 [153]sx$"oxidation numbers: +2 and +4. (NULL)hese"
  160. 4455 [153]sx$"elements have four electrons in the"
  161. 4495 [153]sx$"outer shell."
  162. 4530 [141]7010
  163. 4570 [153]"load";
  164. 4615 [153]s1$"5atn"
  165. 4695 [153]s1$"(NULL)"
  166. 4735 [153]s1$"(NULL)"
  167. 4775 [153]s1$"atns"
  168. 4815 [153]s1$"(NULL)b"
  169. 4855 [153]s1$"peeki"
  170. 4895 [153]""s2$"   (NULL)ame"
  171. 4935 [153]s2$"(NULL)itrogen"
  172. 4945 [153]s2$"(NULL)hosphorus"
  173. 4975 [153]s2$"atnrsenic"
  174. 4985 [153]s2$"atnntimony"
  175. 4995 [153]s2$"peekismuth"
  176. 5015 [153]""s3$"atnt.#"
  177. 5055 [153]s3$"  7"
  178. 5065 [153]s3$" 15"
  179. 5075 [153]s3$" 33"
  180. 5095 [153]s3$" 51"
  181. 5105 [153]s3$" 83"
  182. 5135 [153]""s4$"atnt. (NULL)t."
  183. 5175 [153]s4$"14.0067"
  184. 5185 [153]s4$"30.9738"
  185. 5215 [153]s4$"74.9216"
  186. 5225 [153]s4$"121.75"
  187. 5255 [153]s4$"208.98"
  188. 5290 [141]10000
  189. 5295 [153]:[153]sx$"(NULL)ike the previous two groups, 5atn is"
  190. 5335 [153]sx$"nameless. all the elements are non-"
  191. 5375 [153]sx$"metals except ";
  192. 5380 [153][199](18);
  193. 5385 [153]"atn(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)wait";
  194. 5395 [153]" and ";
  195. 5400 [153][199](18);
  196. 5405 [153]"peekright$(NULL)(NULL)(NULL)(NULL)left$wait."
  197. 5415 [153]sx$"(NULL)heir oxidation numbers are +3 and +5,";
  198. 5455 [153]sx$"while the non-metal oxidation number"
  199. 5495 [153]sx$"is -3. (NULL)his group has five electrons"
  200. 5535 [153]sx$"in the outer-most shell."
  201. 5570 [141]7010
  202. 5650 [153]"load";
  203. 5695 [153]s1$"6atn"
  204. 5775 [153]s1$"(NULL)"
  205. 5815 [153]s1$"(NULL)"
  206. 5855 [153]s1$"(NULL)e"
  207. 5895 [153]s1$"(NULL)e"
  208. 5935 [153]s1$"(NULL)o"
  209. 5975 [153]""s2$"  (NULL)ame"
  210. 6015 [153]s2$"(NULL)xygen"
  211. 6025 [153]s2$"(NULL)ulfur"
  212. 6055 [153]s2$"(NULL)elenium"
  213. 6065 [153]s2$"(NULL)ellurium"
  214. 6075 [153]s2$"(NULL)olonium"
  215. 6095 [153]""s3$"atnt.#"
  216. 6135 [153]s3$"  8"
  217. 6145 [153]s3$" 16"
  218. 6155 [153]s3$" 34"
  219. 6175 [153]s3$" 52"
  220. 6185 [153]s3$" 84"
  221. 6215 [153]""s4$"atnt. (NULL)t."
  222. 6255 [153]s4$"15.9994"
  223. 6265 [153]s4$"32.064"
  224. 6295 [153]s4$"78.96"
  225. 6305 [153]s4$"127.6"
  226. 6335 [153]s4$"210"
  227. 6370 [141]10000
  228. 6375 [153]:[153]sx$"6atn, called ";
  229. 6380 [153][199](18);
  230. 6385 [153]"lenleft$atn(NULL)len(NULL)chr$val(NULL)(NULL)wait";
  231. 6395 [153]", is the last"
  232. 6415 [153]sx$"group with both non-metals and metals.";
  233. 6455 [153]sx$"(NULL)he lone metal, ";
  234. 6460 [153][199](18);
  235. 6465 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)(NULL)wait";
  236. 6475 [153]", has +4 and"
  237. 6495 [153]sx$"+6 for oxidation numbers. (NULL)he non-"
  238. 6535 [153]sx$"metals have an oxidation number of -2.";
  239. 6575 [153]sx$"(NULL)hese elements have a total of six"
  240. 6615 [153]sx$"electrons in the outer shell."
  241. 6650 [141]7010
  242. 6730 [153]"load";
  243. 6770 [153]vt$(10)ht$(10);
  244. 6775 [153]"(NULL)eturning to the menu"
  245. 6810 [153]vt$(13)ht$(13);
  246. 6815 [153]"(NULL)lease stand by"
  247. 6895 [153]
  248. 6900 [147]"periodic table",8
  249. 6930 [128]
  250. 7010 :
  251. 7015 [153]vt$(24)"'q' quits.  atnny other key continues."
  252. 7020 [151]198,0:[146]198,1:[161]a$
  253. 7050 [139]a$[179][177]"(NULL)"[175]a$[179][177]"q"[167][142]
  254. 7090 [153]"load";
  255. 7105 [153]"str$o you really want to quit?";
  256. 7110 [151]198,0:[146]198,1:[161]a$
  257. 7130 [139]a$[179][177]"(NULL)"[175]a$[179][177]"y"[167][142]
  258. 7185 [137]6730
  259. 7290 [128]
  260. 10000 [143] vertical boxes
  261. 10010 [153]vt$(ty)ht$(tx)"ortantan^"
  262. 10020 [129]i[178]1[164]nu[171]1
  263. 10030 [153]vt$(ty[170]i[172]2[171]1)ht$(tx)"(NULL)(NULL)"
  264. 10040 [153]vt$(ty[170]i[172]2)ht$(tx)"-tantan<"
  265. 10050 [130]
  266. 10060 [153]vt$(ty[170]nu[172]2[171]1)ht$(tx)"(NULL)(NULL)"
  267. 10070 [153]vt$(ty[170]nu[172]2)ht$(tx)"/tantanexp"
  268. 10080 [142]
  269.