Loadstar 30/030.d81/pt4

Commodore BASIC | 1986-01-01 | 7.3 KB | 391 lines

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]";
295 prints1$"7[193]"
375 prints1$"[198]"
415 prints1$"[195]l"
455 prints1$"[194]r"
495 prints1$"[201]"
535 prints1$"[193]t"
575 print""s2$"  [206]ame"
615 prints2$"[198]luorine"
625 prints2$"[195]hlorine"
655 prints2$"[194]romine"
665 prints2$"[201]odine"
675 prints2$"[193]statine"
695 print""s3$"[193]t.#"
735 prints3$"  9"
745 prints3$" 17"
755 prints3$" 35"
775 prints3$" 53"
785 prints3$" 85"
815 print""s4$"[193]t. [215]t."
855 prints4$"18.9984"
865 prints4$"35.453"
895 prints4$"79.909"
905 prints4$"126.904"
935 prints4$"210"
970 tx=2:ty=3:nu=5:gosub10000
975 print:printsx$"[212]his group, ";
980 printchr$(18);
985 print"[200][193][204][207][199][197][206][211][146]";
995 print", is entirely"
1015 printsx$"made of non-metals. [212]hey have seven"
1055 printsx$"electrons in the outer shell, and"
1095 printsx$"they have an oxidation number of -1."
1135 printsx$"[193]ll are diatomic, or found in twos,"
1175 printsx$"except astatine."
1210 gosub6530
1290 print"[147]";
1335 prints1$"8[193]"
1415 prints1$"[200]e"
1455 prints1$"[206]e"
1495 prints1$"[193]r"
1535 prints1$"[203]r"
1575 prints1$"[216]e"
1615 prints1$"[210]n"
1655 print""s2$"  [206]ame"
1695 prints2$"[200]elium"
1705 prints2$"[206]eon"
1735 prints2$"[193]rgon"
1745 prints2$"[203]rypton"
1755 prints2$"[216]enon"
1775 prints2$"[210]adon"
1815 print""s3$"[193]t.#"
1855 prints3$"  2"
1865 prints3$" 10"
1875 prints3$" 18"
1895 prints3$" 36"
1905 prints3$" 54"
1915 prints3$" 86"
1935 print""s4$"[193]t. [215]t."
1975 prints4$"4.0026"
1985 prints4$"20.183"
2015 prints4$"39.948"
2025 prints4$"83.8"
2055 prints4$"131.3"
2065 prints4$"222"
2090 tx=2:ty=3:nu=6:gosub10000
2095 print:printsx$"[212]he ";
2100 printchr$(18);
2105 print"[206][207][194][204][197] [199][193][211][197][211][146]";
2115 print" are the most stable"
2135 printsx$"elements known to man. [212]heir outer"
2175 printsx$"shells are completely filled, thus"
2215 printsx$"they have no ionic charge."
2250 gosub6530
2330 print"[147]";
2375 print:printht$(11)"[212]ransition elements"
2415 print:printsx$"[212]his group includes 31 elements. [215]hat"
2455 printsx$"makes these metals special is the"
2495 printsx$"fact that they have multiple oxi-"
2535 printsx$"dation numbers."
2575 printvt$(9)s1$"3[194]"
2655 prints1$"[211]c"
2695 prints1$"[217]"
2735 prints1$"[204]a"
2775 prints1$"[193]c"
2815 printvt$(9)s2$"   [206]ame"
2855 prints2$"[211]candium"
2860 remhplot48,104
2865 prints2$"[217]ttrium"
2870 remhplot48,116
2875 prints2$"[204]anthanium"
2880 remhplot48,128
2885 prints2$"[193]ctinium"
2890 remhplot148,80
2895 printvt$(9)s3$"[193]t.#"
2930 remhplot148,92
2935 prints3$" 21"
2940 remhplot148,104
2945 prints3$" 39"
2950 remhplot148,116
2955 prints3$" 57"
2960 remhplot148,128
2965 prints3$" 89"
2970 remhplot206,80
2975 printvt$(9)s4$"[193]t. [215]t."
3010 remhplot206,92
3015 prints4$"44.956"
3020 remhplot206,104
3025 prints4$"88.905"
3030 remhplot206,116
3035 prints4$"138.91"
3040 remhplot206,128
3045 prints4$"227"
3050 tx=2:ty=11:nu=4:gosub10000
3055 print:print:printht$(8)"[207]xidation numbers: +2,+3"
3090 gosub6530
3130 rem*page10(tran2)
3170 print"[147]";
3175 rempoke-16302,0
3210 remhplot2,6
3215 prints1$"4[194]"
3250 remhplot0,16to18,16to18,52to0,52to0,16
3290 remhplot2,18
3295 prints1$"[212]i"
3300 remhplot0,28to18,28
3330 remhplot2,30
3335 prints1$"[218]r"
3340 remhplot0,40to18,40
3370 remhplot2,42
3375 prints1$"[200]f"
3410 remhplot48,6
3415 print""s2$"   [206]ame"
3450 remhplot48,18
3455 prints2$"[212]itanium"
3460 remhplot48,30
3465 prints2$"[218]irconium"
3470 remhplot48,42
3475 prints2$"[200]afnium"
3490 remhplot148,6
3495 print""s3$"[193]t.#"
3530 remhplot148,18
3535 prints3$" 22"
3540 remhplot148,30
3545 prints3$" 40"
3550 remhplot148,42
3555 prints3$" 72"
3570 remhplot206,6
3575 print""s4$"[193]t. [215]t."
3610 remhplot206,18
3615 prints4$"47.9"
3620 remhplot206,30
3625 prints4$"91.22"
3630 remhplot206,42
3635 prints4$"178.49"
3650 tx=2:ty=3:nu=3:gosub10000
3655 print:printht$(7)"[207]xidation numbers: +2,+3,+4"
3690 remhplot2,90
3695 printvt$(12)s1$"5[194]"
3730 remhplot0,100to18,100to18,136to0,136to0,100
3770 remhplot5,102
3775 prints1$"[214]"
3780 remhplot0,112to18,112
3810 remhplot2,114
3815 prints1$"[206]b"
3820 remhplot0,124to18,124
3850 remhplot2,126
3855 prints1$"[212]a"
3890 remhplot48,102
3895 printvt$(14)s2$"[214]anadium"
3900 remhplot48,114
3905 prints2$"[206]iobium"
3910 remhplot48,126
3915 prints2$"[212]antalum"
3930 remhplot148,102
3935 printvt$(14)s3$" 23"
3940 remhplot148,114
3945 prints3$" 41"
3950 remhplot148,126
3955 prints3$" 73"
3970 remhplot206,102
3975 printvt$(14)s4$"50.942"
3980 remhplot206,114
3985 prints4$"92.906"
3990 remhplot206,126
3995 prints4$"180.948"
4010 ty=14:gosub10000
4015 print:printht$(5)"[207]xidation numbers: +2,+3,+4,+5"
4050 gosub6530
4090 rem*page11(tran3)
4130 print"[147]";
4135 rempoke-16302,0
4170 remhplot2,6
4175 prints1$"6[194]"
4210 remhplot0,16to18,16to18,52to0,52to0,16
4250 remhplot2,18
4255 prints1$"[195]r"
4260 remhplot0,28to18,28
4290 remhplot2,30
4295 prints1$"[205]o"
4300 remhplot0,40to18,40
4330 remhplot5,42
4335 prints1$"[215]"
4370 remhplot48,6
4375 print""s2$"   [206]ame"
4410 remhplot48,18
4415 prints2$"[195]hromium"
4420 remhplot48,30
4425 prints2$"[205]olybdenum"
4430 remhplot48,42
4435 prints2$"[212]ungsten"
4450 remhplot148,6
4455 print""s3$"[193]t.#"
4490 remhplot148,18
4495 prints3$" 24"
4500 remhplot148,30
4505 prints3$" 42"
4510 remhplot148,42
4515 prints3$" 74"
4530 remhplot206,6
4535 print""s4$"[193]t. [215]t."
4570 remhplot206,18
4575 prints4$"51.996"
4580 remhplot206,30
4585 prints4$"95.94"
4590 remhplot206,42
4595 prints4$"183.85"
4610 tx=2:ty=3:nu=3:gosub10000
4615 print:printht$(4)"[207]xidation numbers: +2,+3,+4,+5,+6"
4650 remhplot2,90
4655 printvt$(12)s1$"7[194]"
4690 remhplot0,100to18,100to18,136to0,136to0,100
4730 remhplot2,102
4735 prints1$"[205]n"
4740 remhplot0,112to18,112
4770 remhplot2,114
4775 prints1$"[212]c"
4780 remhplot0,124to18,124
4810 remhplot2,126
4815 prints1$"[210]e"
4850 remhplot48,102
4855 printvt$(14)s2$"[205]anganese"
4860 remhplot48,114
4865 prints2$"[212]echnetium"
4870 remhplot48,126
4875 prints2$"[210]henium"
4890 remhplot148,102
4895 printvt$(14)s3$" 25"
4900 remhplot148,114
4905 prints3$" 43"
4910 remhplot148,126
4915 prints3$" 75"
4930 remhplot206,102
4935 printvt$(14)s4$"54.9380"
4940 remhplot206,114
4945 prints4$"97"
4950 remhplot206,126
4955 prints4$"186.2"
4970 ty=14:gosub10000
4975 print:printht$(3)"[207]xidation numbers: +2,+3,+4,+5,+6,+7"
4980 remhplot169,31
5010 gosub6530
5050 rem*page12(tran4)
5090 print"[147]";
5130 remhplot2,6
5135 prints1$"8[194]"
5170 remhplot0,16to18,16to18,52to0,52to0,16
5210 remhplot2,18
5215 prints1$"[198]e"
5220 remhplot0,28to18,28
5250 remhplot2,30
5255 prints1$"[210]u"
5260 remhplot0,40to18,40
5290 remhplot2,42
5295 prints1$"[207]s"
5330 remhplot48,6
5335 print""s2$"   [206]ame"
5370 remhplot48,18
5375 prints2$"[201]ron"
5380 remhplot48,30
5385 prints2$"[210]uthenium"
5390 remhplot48,42
5395 prints2$"[207]smium"
5410 remhplot148,6
5415 print""s3$"[193]t.#"
5450 remhplot148,18
5455 prints3$" 26"
5460 remhplot148,30
5465 prints3$" 44"
5470 remhplot148,42
5475 prints3$" 76"
5490 remhplot206,6
5495 print""s4$"[193]t. [215]t."
5530 remhplot206,18
5535 prints4$"55.847"
5540 remhplot206,30
5545 prints4$"101.07"
5550 remhplot206,42
5555 prints4$"190.2"
5570 remhplot0,62to18,62to18,98to0,98to0,62
5610 remhplot2,64
5615 printvt$(9)s1$"[195]o"
5620 remhplot0,74to18,74
5650 remhplot2,76
5655 prints1$"[210]h"
5660 remhplot0,86to18,86
5690 remhplot2,88
5695 prints1$"[201]r"
5730 remhplot48,64
5735 printvt$(9)s2$"[195]obalt"
5740 remhplot48,76
5745 prints2$"[210]hodium"
5750 remhplot48,88
5755 prints2$"[201]ridium"
5770 remhplot148,64
5775 printvt$(9)s3$" 27"
5780 remhplot148,76
5785 prints3$" 45"
5790 remhplot148,88
5795 prints3$" 77"
5810 remhplot206,64
5815 printvt$(9)s4$"58.9332"
5820 remhplot206,76
5825 prints4$"102.905"
5830 remhplot206,88
5835 prints4$"192.2"
5850 remhplot0,108to18,108to18,144to0,144to0,108
5890 remhplot2,110
5895 printvt$(15)s1$"[206]i"
5900 remhplot0,120to18,120
5930 remhplot2,122
5935 prints1$"[208]d"
5940 remhplot0,132to18,132
5970 remhplot2,134
5975 prints1$"[208]t"
6010 remhplot48,110
6015 printvt$(15)s2$"[206]ickel"
6020 remhplot48,122
6025 prints2$"[208]alladium"
6030 remhplot48,134
6035 prints2$"[208]latinum"
6050 remhplot148,110
6055 printvt$(15)s3$" 28"
6060 remhplot148,122
6065 prints3$" 46"
6070 remhplot148,134
6075 prints3$" 78"
6090 remhplot206,110
6095 printvt$(15)s4$"58.71"
6100 remhplot206,122
6105 prints4$"106.4"
6110 remhplot206,134
6115 prints4$"195.09"
6130 tx=2:ty=3:nu=9:gosub10000
6135 print:printht$(5)"[207]xidation numbers: +2,+3,+4,+5"
6170 gosub6530
6210 rem*loadpartthree
6250 print"[147]";
6255 rempoke-16302,0
6290 printvt$(10)ht$(10);
6295 print"[210]eturning to the menu"
6330 printvt$(13)ht$(13);
6335 print"[208]lease stand by"
6415 print
6420 load"periodic table",8
6450 end
6490 rem*nextpage
6530 remhplot59,180
6535 printvt$(24)"'q' quits.  [193]ny other key continues.";
6540 poke198,0:wait198,1: geta$
6570 ifa$<>"[209]"anda$<>"q"thenreturn
6610 print"[147]";
6615 rempoke-16302,0
6625 print"[196]o you really want to quit?";
6630 poke198,0:wait198,1:geta$
6650 ifa$<>"[217]"anda$<>"y"thenreturn
6690 goto6290
10000 rem vertical boxes
10010 printvt$(ty)ht$(tx)"[176][192][192][174]"
10020 fori=1tonu-1
10030 printvt$(ty+i*2-1)ht$(tx)"[221][221]"
10040 printvt$(ty+i*2)ht$(tx)"[171][192][192][179]"
10050 next
10060 printvt$(ty+nu*2-1)ht$(tx)"[221][221]"
10070 printvt$(ty+nu*2)ht$(tx)"[173][192][192][189]"
10080 return
60000 fora=2048to3000:printpeek(a),:next