2 DIMVT$(24),HT$(40)
3 VT$(1)="":FORI=2TO24:VT$(I)=VT$(I-1)+"":NEXT
4 HT$(1)="":FORI=2TO40:HT$(I)=HT$(I-1)+"":NEXT
5 S1$=""+HT$(3):S2$=""+HT$(10):S3$=""+HT$(22):S4$=""+HT$(30):SX$=HT$(3)
170 PRINT"[147]";
255 PRINT""S1$"1[193]"
335 PRINTS1$"[200]"
375 PRINTS1$"[204]I"
415 PRINTS1$"[206]A"
455 PRINTS1$"[203]"
495 PRINTS1$"[210]B"
535 PRINTS1$"[195]S"
575 PRINTS1$"[198]R"
615 PRINT""S2$"  [206]AME"
655 PRINTS2$"[200]YDROGEN"
665 PRINTS2$"[204]ITHIUM"
695 PRINTS2$"[211]ODIUM"
705 PRINTS2$"[208]OTASSIUM"
715 PRINTS2$"[210]UBIDIUM"
735 PRINTS2$"[195]ESIUM"
745 PRINTS2$"[198]RANCIUM"
775 PRINT""S3$"[193]T.#"
815 PRINTS3$"  1"
825 PRINTS3$"  3"
835 PRINTS3$" 11"
855 PRINTS3$" 19"
865 PRINTS3$" 37"
875 PRINTS3$" 55"
885 PRINTS3$" 87"
895 PRINT""S4$"[193]T. [215]T."
935 PRINTS4$"1.00797"
945 PRINTS4$"6.939"
975 PRINTS4$"22.9898"
985 PRINTS4$"39.0983"
1015 PRINTS4$"85.47"
1025 PRINTS4$"132.905"
1035 PRINTS4$"223"
1050 TX=2:TY=3:NU=7:GOSUB10000
1055 PRINT:PRINTSX$"[212]HIS GROUP IS KNOWN AS THE ";
1060 PRINTCHR$(18);
1065 PRINT"[193][204][203][193][204][201]"
1095 PRINTSX$"[205][197][212][193][204][211][146]";
1105 PRINT". [197]ACH METAL HAS ONE ELECTRON"
1135 PRINTSX$"IN ITS OUTER SHELL, WHICH GIVES THIS"
1175 PRINTSX$"GROUP AN OXIDATION NUMBER OF +1."
1210 GOSUB7010
1290 PRINT"[147]";
1335 PRINTS1$"2[193]"
1415 PRINTS1$"[194]E"
1455 PRINTS1$"[205]G"
1495 PRINTS1$"[195]A"
1535 PRINTS1$"[211]R"
1575 PRINTS1$"[194]A"
1615 PRINTS1$"[210]A"
1655 PRINT""S2$"  [206]AME"
1695 PRINTS2$"[194]ERYLLIUM"
1705 PRINTS2$"[205]AGNESIUM"
1735 PRINTS2$"[195]ALCIUM"
1745 PRINTS2$"[211]TRONTIUM"
1755 PRINTS2$"[194]ARIUM"
1775 PRINTS2$"[210]ADIUM"
1815 PRINT""S3$"[193]T.#"
1855 PRINTS3$"  4"
1865 PRINTS3$" 12"
1875 PRINTS3$" 20"
1895 PRINTS3$ 38"
1905 [153]S3$" 56"
1915 [153]S3$" 88"
1935 [153]""S4$"ATNT. (null)T."
1975 [153]S4$"9.0122"
1985 [153]S4$"24.312"
2015 [153]S4$"40.08"
2025 [153]S4$"87.62"
2055 [153]S4$"137.33"
2065 [153]S4$"226"
2090 NU[178]6:[141]10000
2095 [153]:[153]SX$"(null)HIS IS THE ";
2100 [153][199](18);
2105 [153]"ATN(null)(null)ATN(null)RIGHT$(null)VAL VALATN(null)(null)LEFT$ (null)VAL(null)ATN(null)(null)WAIT"
2135 [153]SX$"GROUP. (null)HESE ELEMENTS HAVE TWO"
2175 [153]SX$"ELECTRONS IN THEIR OUTER SHELLS AND"
2215 [153]SX$"THEY HAVE AN OXIDATION NUMBER OF +2."
2255 [153]SX$"(null)HEY ALSO REACT WITH OXYGEN TO FORM"
2295 [153]SX$"OXIDES."
2330 [141]7010
2410 [153]"LOAD";
2455 [153]S1$"3ATN"
2535 [153]S1$"PEEK"
2575 [153]S1$"ATNL"
2615 [153]S1$"CHR$A"
2655 [153]S1$"RIGHT$N"
2695 [153]S1$"(null)L"
2735 [153]""S2$"  (null)AME"
2775 [153]S2$"PEEKORON"
2785 [153]S2$"ATNLUMINUM"
2815 [153]S2$"CHR$ALLIUM"
2825 [153]S2$"RIGHT$NDIUM"
2835 [153]S2$"(null)HALLIUM"
2855 [153]""S3$"ATNT.#"
2895 [153]S3$"  5"
2905 [153]S3$" 13"
2915 [153]S3$" 31"
2935 [153]S3$" 49"
2945 [153]S3$" 81"
2975 [153]""S4$"ATNT. (null)T."
3015 [153]S4$"10.811"
3025 [153]S4$"26.9815"
3055 [153]S4$"69.72"
3065 [153]S4$"114.82"
3095 [153]S4$"204.37"
3130 NU[178]5:[141]10000
3135 [153]:[153]SX$"(null)HIS GROUP OF ELEMENTS HAS NO SPECIAL"
3175 [153]SX$"NAME. LEFT$OWEVER, IT IS THE FIRST GROUP"
3215 [153]SX$"WITH BOTH METALS AND NON-METALS. (null)HE"
3255 [153]SX$"ONE NON-METAL IS ";
3260 [153][199](18);
3265 [153]"PEEK(null)(null)(null)(null)WAIT";
3275 [153]". RIGHT$T HAS THREE"
3295 [153]SX$"OXIDATION NUMBERS: -5,+1,+3.  (null)HE RE-"
3335 [153]SX$"MAINING FOUR ELEMENTS ARE METALS AND"
3375 [153]SX$"HAVE OXIDATION NUMBERS OF +1 AND +3."
3410 [141]7010
3490 [153]"LOAD";
3535 [153]S1$"4ATN"
3615 [153]S1$"LEN"
3655 [153]S1$"(null)I"
3695 [153]S1$"CHR$E"
3735 [153]S1$"(null)N"
3775 [153]S1$"(null)B"
3815 [153]""S2$"  (null)AME"
3855 [153]S2$"LENARBON"
3865 [153]S2$"(null)ILICON"
3895 [153]S2$"CHR$ERMANIUM"
3905 [153]S2$"(null)IN"
3915 [153]S2$"(null)EAD"
3935 [153]""S3$"ATNT.#"
3975 [153]S3$"  6"
3985 [153]S3$" 14"
3995 [153]S3$" 32"
4015 [153]S3$" 50"
4025 [153]S3$" 82"
4055 [153]""S4$"ATNT. (null)T."
4095 [153]S4$"12.01115"
4105 [153]S4$"28.0855"
4135 [153]S4$"72.59"
4145 [153]S4$"118.69"
4175 [153]S4$"207.19"
4210 [141]10000
4215 [153]:[153]SX$"(null)IKE 3ATN, THIS GROUP ALSO HASN'T ANY"
4255 [153]SX$"NAME AND HAS BOTH METALS AND NON-"
4295 [153]SX$"METALS. ";
4300 [153][199](18);
4305 [153]"LENATN(null)PEEK(null)(null)WAIT";
4315 [153]" AND ";
4320 [153][199](18);
4325 [153]"(null)RIGHT$(null)RIGHT$LEN(null)(null)WAIT ARE THE"
4335 [153]SX$"NON-METALS WITH OXIDATION NUMBERS OF"
4375 [153]SX$"-4,+2, AND +4. (null)HE METALS HAVE TWO"
4415 [153]SX$"OXIDATION NUMBERS: +2 AND +4. (null)HESE"
4455 [153]SX$"ELEMENTS HAVE FOUR ELECTRONS IN THE"
4495 [153]SX$"OUTER SHELL."
4530 [141]7010
4570 [153]"LOAD";
4615 [153]S1$"5ATN"
4695 [153]S1$"(null)"
4735 [153]S1$"(null)"
4775 [153]S1$"ATNS"
4815 [153]S1$"(null)B"
4855 [153]S1$"PEEKI"
4895 [153]""S2$"   (null)AME"
4935 [153]S2$"(null)ITROGEN"
4945 [153]S2$"(null)HOSPHORUS"
4975 [153]S2$"ATNRSENIC"
4985 [153]S2$"ATNNTIMONY"
4995 [153]S2$"PEEKISMUTH"
5015 [153]""S3$"ATNT.#"
5055 [153]S3$"  7"
5065 [153]S3$" 15"
5075 [153]S3$" 33"
5095 [153]S3$" 51"
5105 [153]S3$" 83"
5135 [153]""S4$"ATNT. (null)T."
5175 [153]S4$"14.0067"
5185 [153]S4$"30.9738"
5215 [153]S4$"74.9216"
5225 [153]S4$"121.75"
5255 [153]S4$"208.98"
5290 [141]10000
5295 [153]:[153]SX$"(null)IKE THE PREVIOUS TWO GROUPS, 5ATN IS"
5335 [153]SX$"NAMELESS. ALL THE ELEMENTS ARE NON-"
5375 [153]SX$"METALS EXCEPT ";
5380 [153][199](18);
5385 [153]"ATN(null)(null)RIGHT$(null)(null)(null)(null)WAIT";
5395 [153]" AND ";
5400 [153][199](18);
5405 [153]"PEEKRIGHT$(null)(null)(null)(null)LEFT$WAIT."
5415 [153]SX$"(null)HEIR OXIDATION NUMBERS ARE +3 AND +5,";
5455 [153]SX$"WHILE THE NON-METAL OXIDATION NUMBER"
5495 [153]SX$"IS -3. (null)HIS GROUP HAS FIVE ELECTRONS"
5535 [153]SX$"IN THE OUTER-MOST SHELL."
5570 [141]7010
5650 [153]"LOAD";
5695 [153]S1$"6ATN"
5775 [153]S1$"(null)"
5815 [153]S1$"(null)"
5855 [153]S1$"(null)E"
5895 [153]S1$"(null)E"
5935 [153]S1$"(null)O"
5975 [153]""S2$"  (null)AME"
6015 [153]S2$"(null)XYGEN"
6025 [153]S2$"(null)ULFUR"
6055 [153]S2$"(null)ELENIUM"
6065 [153]S2$"(null)ELLURIUM"
6075 [153]S2$"(null)OLONIUM"
6095 [153]""S3$"ATNT.#"
6135 [153]S3$"  8"
6145 [153]S3$" 16"
6155 [153]S3$" 34"
6175 [153]S3$" 52"
6185 [153]S3$" 84"
6215 [153]""S4$"ATNT. (null)T."
6255 [153]S4$"15.9994"
6265 [153]S4$"32.064"
6295 [153]S4$"78.96"
6305 [153]S4$"127.6"
6335 [153]S4$"210"
6370 [141]10000
6375 [153]:[153]SX$"6ATN, CALLED ";
6380 [153][199](18);
6385 [153]"LENLEFT$ATN(null)LEN(null)CHR$VAL(null)(null)WAIT";
6395 [153]", IS THE LAST"
6415 [153]SX$"GROUP WITH BOTH NON-METALS AND METALS.";
6455 [153]SX$"(null)HE LONE METAL, ";
6460 [153][199](18);
6465 [153]"(null)(null)(null)(null)(null)RIGHT$(null)(null)WAIT";
6475 [153]", HAS +4 AND"
6495 [153]SX$"+6 FOR OXIDATION NUMBERS. (null)HE NON-"
6535 [153]SX$"METALS HAVE AN OXIDATION NUMBER OF -2.";
6575 [153]SX$"(null)HESE ELEMENTS HAVE A TOTAL OF SIX"
6615 [153]SX$"ELECTRONS IN THE OUTER SHELL."
6650 [141]7010
6730 [153]"LOAD";
6770 [153]VT$(10)HT$(10);
6775 [153]"(null)ETURNING TO THE MENU"
6810 [153]VT$(13)HT$(13);
6815 [153]"(null)LEASE STAND BY"
6895 [153]
6900 [147]"PERIODIC TABLE",8
6930 [128]
7010 :
7015 [153]VT$(24)"'Q' QUITS.  ATNNY OTHER KEY CONTINUES."
7020 [151]198,0:[146]198,1:[161]A$
7050 [139]A$[179][177]"(null)"[175]A$[179][177]"Q"[167][142]
7090 [153]"LOAD";
7105 [153]"STR$O YOU REALLY WANT TO QUIT?";
7110 [151]198,0:[146]198,1:[161]A$
7130 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167][142]
7185 [137]6730
7290 [128]
10000 [143] VERTICAL BOXES
10010 [153]VT$(TY)HT$(TX)"ORTANTAN^"
10020 [129]I[178]1[164]NU[171]1
10030 [153]VT$(TY[170]I[172]2[171]1)HT$(TX)"(null)(null)"
10040 [153]VT$(TY[170]I[172]2)HT$(TX)"-TANTAN<"
10050 [130]
10060 [153]VT$(TY[170]NU[172]2[171]1)HT$(TX)"(null)(null)"
10070 [153]VT$(TY[170]NU[172]2)HT$(TX)"/TANTANEXP"
10080 [142]