Loadstar 30/030.d81/pt5

Commodore BASIC | 2022-08-26 | 9KB | 454 lines

2 dimvt$(24),ht$(40)
3 vt$(1)="":fori=2to24:vt$(i)=vt$(i-1)+"":next
4 ht$(1)="[145]"+chr$(13):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]";
250 print"[147]";
295 prints1$"1[194]"
375 prints1$"[195]u"
415 prints1$"[193]g"
455 prints1$"[193]u"
490 tx=2:ty=3:nu=3:gosub10000
495 print""s2$"  [206]ame"
535 prints2$"[195]opper"
545 prints2$"[211]ilver"
555 prints2$"[199]old"
575 print""s3$"[193]t.#"
615 prints3$" 29"
625 prints3$" 47"
635 prints3$" 79"
655 print""s4$"[193]t. [215]t."
695 prints4$"63.54"
705 prints4$"107.87"
715 prints4$"196.967"
735 printvt$(11)s1$"2[194]"
815 prints1$"[218]n"
855 prints1$"[195]d"
895 prints1$"[200]g"
930 tx=2:ty=13:nu=3:gosub10000
935 printvt$(13)s2$"[218]inc"
945 prints2$"[195]admium"
955 prints2$"[205]ercury"
975 printvt$(13)s3$" 30"
985 prints3$" 48"
995 prints3$" 80"
1015 printvt$(13)s4$"65.37"
1025 prints4$"112.41"
1030 remhplot206,126
1035 prints4$"200.59"
1050 remhplot70,150
1055 print:print:printht$(10)"[207]xidation number: +2"
1090 gosub4890
1130 rem*page14(lanthanide)
1170 print"[147]"
1175 rempoke-16302,0
1210 remhplot80,7
1215 printht$(12)"[204]anthanide series"
1250 remhplot7,27
1255 print:printsx$"[212]his group of elements, consisting of"
1290 remhplot7,37
1295 printsx$"fourteen metals, follows the element"
1330 remhplot7,47
1335 printsx$"lanthanum in the periodic chart, but"
1370 remhplot7,57
1375 printsx$"for simplicity is placed at the"
1410 remhplot7,67
1415 printsx$"bottom. [197]ach element has two electrons"
1450 remhplot7,77
1455 printsx$"in the outer-most shell, though some"
1490 remhplot7,87
1495 printsx$"sources say there are three."
1530 remhplot14,130to266,130to266,144to14,144to14,130
1570 remhplot16,133
1575 printvt$(16)"  [195]e ";
1580 remhplot32,130to32,144
1610 remhplot34,133
1615 print"[208]r ";
1620 remhplot50,130to50,144
1650 remhplot52,133
1655 print"[206]d ";
1660 remhplot68,130to68,144
1690 remhplot70,133
1695 print"[208]m ";
1700 remhplot86,130to86,144
1730 remhplot88,133
1735 print"[211]m ";
1740 remhplot104,130to104,144
1770 remhplot106,133
1775 print"[197]u ";
1780 remhplot122,130to122,144
1810 remhplot124,133
1815 print"[199]d[157][157][157][157]";
1820 remhplot140,130to140,144
1850 remhplot142,133
1855 print"[212]b ";
1860 remhplot158,130to158,144
1890 remhplot160,133
1895 print"[196]y";
1900 remhplot176,130to176,144
1930 remhplot178,133
1935 print"[200]o ";
1940 remhplot194,130to194,144
1970 remhplot196,133
1975 print"[197]r ";
1980 remhplot212,130to212,144
2010 remhplot214,133
2015 print"[212]m ";
2020 remhplot230,130to230,144
2050 remhplot232,133
2055 print"[217]b ";
2060 remhplot248,130to248,144
2090 remhplot250,133
2095 print"[204]u"
2100 tx=2:ty=15:nu=7:gosub10100
2105 tx=18:ty=18:nu=7:gosub10100
2130 gosub4890
2170 rem*page15(lan.2)
2180 s1$=ht$(3):s2$=ht$(9):s3$=ht$(22):s4$=ht$(30):sx$=ht$(3)
2210 print"[147]";
2215 rempoke-16302,0
2250 remhplot16,7
2255 print"[211]ymbol";
2260 remhplot73,7
2265 print"    [206]ame"
2270 remhplot172,7
2275 print""s3$"[193]t.#"
2280 remhplot215,7
2285 print""s4$"[193]t. [215]t."
2290 remhplot30,20
2295 prints1$"[195]e";
2300 remhplot73,20
2305 prints2$"[195]erium";
2310 remhplot172,20
2315 prints3$" 58";
2320 remhplot215,20
2325 prints4$"140.12"
2330 remhplot30,30
2335 prints1$"[208]r";
2340 remhplot73,30
2345 prints2$"[208]raseodymium";
2350 remhplot172,30
2355 prints3$" 59";
2360 remhplot215,30
2365 prints4$"140.907"
2370 remhplot30,40
2375 prints1$"[206]d";
2380 remhplot73,40
2385 prints2$"[206]eodymium";
2390 remhplot172,40
2395 prints3$" 60";
2400 remhplot215,40
2405 prints4$"144.24"
2410 remhplot30,50
2415 prints1$"[208]m";
2420 remhplot73,50
2425 prints2$"[208]romethium";
2430 remhplot172,50
2435 prints3$" 61";
2440 remhplot215,50
2445 prints4$"145"
2450 remhplot30,60
2455 prints1$"[211]m";
2460 remhplot73,60
2465 prints2$"[211]amarium";
2470 remhplot172,60
2475 prints3$" 62";
2480 remhplot215,60
2485 prints4$"150.35"
2490 remhplot30,70
2495 prints1$"[197]u" ;
2500 remhplot73,70
2505 prints2$"[197]uropium";
2510 remhplot172,70
2515 prints3$" 63";
2520 remhplot215,70
2525 prints4$"151.96"
2530 remhplot30,80
2535 prints1$"[199]d";
2540 remhplot73,80
2545 prints2$"[199]adolinium";
2550 remhplot172,80
2555 prints3$" 64";
2560 remhplot215,80
2565 prints4$"157.25"
2570 remhplot30,90
2575 prints1$"[212]b";
2580 remhplot73,90
2585 prints2$"[212]erbium";
2590 remhplot172,90
2595 prints3$" 65";
2600 remhplot215,90
2605 prints4$"158.924"
2610 remhplot30,100
2615 prints1$"[196]y";
2620 remhplot73,100
2625 prints2$"[196]ysprosium";
2630 remhplot172,100
2635 prints3$" 66";
2640 remhplot215,100
2645 prints4$"162.5"
2650 remhplot30,110
2655 prints1$"[200]o";
2660 remhplot73,110
2665 prints2$"[200]olmium";
2670 remhplot172,110
2675 prints3$" 67";
2680 remhplot215,110
2685 prints4$"164.93"
2690 remhplot30,120
2695 prints1$"[197]r";
2700 remhplot73,120
2705 prints2$"[197]rbium";
2710 remhplot172,120
2715 prints3$" 68";
2720 remhplot215,120
2725 prints4$"167.26"
2730 remhplot30,130
2735 prints1$"[212]m";
2740 remhplot73,130
2745 prints2$"[212]hulium";
2750 remhplot172,130
2755 prints3$" 69";
2760 remhplot215,130
2765 prints4$"168.934"
2770 remhplot30,140
2775 prints1$"[217]b";
2780 remhplot73,140
2785 prints2$"[217]tterbium";
2790 remhplot172,140
2795 prints3$" 70";
2800 remhplot215,140
2805 prints4$"173.04"
2810 remhplot30,150
2815 prints1$"[204]u";
2820 remhplot73,150
2825 prints2$"[204]utetium";
2830 remhplot172,150
2835 prints3$" 71";
2840 remhplot215,150
2845 prints4$"174.97"
2850 gosub4890
2890 rem*page16(actinide)
2930 print"[147]"
2935 rempoke-16302,0
2970 remhplot87,7
2975 printht$(13)"[193]ctinide series"
3010 remhplot7,27
3015 printsx$"[212]his group of elements follows the"
3050 remhplot7,37
3055 printsx$"element actinium, from which it gets"
3090 remhplot7,47
3095 printsx$"its name. [212]he [193]ctinides, like the "
3130 remhplot7,57
3135 printsx$"[204]anthanides, number fourteen and are"
3170 remhplot7,67
3175 printsx$"placed at the bottom of the periodic"
3210 remhplot7,77
3215 printsx$"table."
3250 remhplot14,130to266,130to266,144to14,144to14,130
3290 remhplot16,133
3295 printvt$(16)"  [212]h";
3300 remhplot32,130to32,144
3330 remhplot34,133
3335 print"[208]a";
3340 remhplot50,130to50,144
3370 remhplot55,133
3375 print"[213]";
3380 remhplot68,130to68,144
3410 remhplot70,133
3415 print"[206]p";
3420 remhplot86,130to86,144
3450 remhplot88,133
3455 print"[208]u";
3460 remhplot104,130to104,144
3490 remhplot106,133
3495 print"[193]m";
3500 remhplot122,130to122,144
3530 remhplot124,133
3535 print"[195]m[157][157][157][157]";
3540 remhplot140,130to140,144
3570 remhplot142,133
3575 print"[194]k";
3580 remhplot158,130to158,144
3610 remhplot160,133
3615 print"[195]f";
3620 remhplot176,130to176,144
3650 remhplot178,133
3655 print"[197]s";
3660 remhplot194,130to194,144
3690 remhplot196,133
3695 print"[198]m";
3700 remhplot212,130to212,144
3730 remhplot214,133
3735 print"[205]d";
3740 remhplot230,130to230,144
3770 remhplot232,133
3775 print"[206]o";
3780 remhplot248,130to248,144
3810 remhplot250,133
3815 print"[204]r";
3820 tx=2:ty=15:nu=7:gosub10100
3830 tx=18:ty=18:nu=7:gosub10100
3850 gosub4890
3890 rem*page17(act2)
3930 print"[147]"
3935 rempoke-16302,0
3970 remhplot16,7
3975 print"[211]ymbol";
3980 remhplot73,7
3985 print"    [206]ame";
3990 remhplot172,7
3995 prints3$"[193]t.#";
4000 remhplot215,7
4005 prints4$"[193]t. [215]t."
4010 remhplot30,20
4015 prints1$"[212]h";
4020 remhplot73,20
4025 prints2$"[212]horium";
4030 remhplot172,20
4035 prints3$" 90";
4040 remhplot215,20
4045 prints4$"232.038"
4050 remhplot30,30
4055 prints1$"[208]a";
4060 remhplot73,30
4065 prints2$"[208]rotactinium";
4070 remhplot172,30
4075 prints3$" 91";
4080 remhplot215,30
4085 prints4$"231"
4090 remhplot30,40
4095 prints1$"[213]";
4100 remhplot73,40
4105 prints2$"[213]ranium";
4110 remhplot172,40
4115 prints3$" 92";
4120 remhplot215,40
4125 prints4$"238.03"
4130 remhplot30,50
4135 prints1$"[206]p";
4140 remhplot73,50
4145 prints2$"[206]eptunium";
4150 remhplot172,50
4155 prints3$" 93";
4160 remhplot215,50
4165 prints4$"237"
4170 remhp