0 POKE53280,5:POKE53281,5:PRINT""
1 DIMVT$(24):DIMHT$(40):VT$(1)="":HT$(1)=""
2 FORI=2TO24:VT$(I)=VT$(I-1)+"":NEXT
3 FORI=2TO40:HT$(I)=HT$(I-1)+"":NEXT
770 PRINTCHR$(147);
853 REMPOKE-16302,0
856 REMCALL37888
890 REMSCALE=1
893 REMHCOLOR=3
896 TX=10:TY=1:BX=31:BY=4
897 PRINT"[147]";:IFPEEK(2)=232THEN1339
898 IFPEEK(2)<>232THENPOKE2,232
900 GOSUB4000
930 PRINTVT$(2)HT$(12);
933 PRINT"[212]HE [208]ERIODIC [212]ABLE"
936 PRINTVT$(3)HT$(15);
939 PRINT"OF [197]LEMENTS"
970 PRINTVT$(6)HT$(19);
973 PRINT"BY"
974 PRINT"             [211]UZIE [196]E[205]OSS"
1010 PRINTVT$(10)HT$(5);
1013 PRINT"[193]N INFORMATIVE PROGRAM ABOUT THE"
1050 PRINTVT$(11)HT$(5);
1053 PRINT"PERIODIC TABLE AND ITS CHEMICAL"
1090 PRINTVT$(12)HT$(5);
1093 PRINT"ELEMENTS."
1130 PRINTVT$(16)HT$(6);
1133 PRINT"[204]OADSTAR IS NOT PUBLIC DOMAIN."
1170 PRINTVT$(18)HT$(3);
1173 PRINT"[208]LEASE RESPECT THE AUTHOR'S RIGHTS."
1210 PRINTVT$(22)HT$(5);
1213 PRINT"[195]OPYRIGHT 1986 BY [211]UZIE [196]E[205]OSS"
1250 PRINTVT$(24)HT$(8);
1253 PRINT"[208]RESS A KEY FOR THE MENU";
1256 POKE198,0:WAIT198,1:GETA$
1290 REM*PAGE2
1330 PRINT"[147]";
1333 REMPOKE-16302,0
1336 REMSCALE=3
1339 TX=17:BX=22:TY=1:BY=3:GOSUB4000
1342 PRINTVT$(2)HT$(18);
1345 PRINT"[205]ENU"
1370 REMSCALE=1
1373 PRINTVT$(5)HT$(6);
1376 PRINT"1. [194]ACKGROUND INFORMATION"
1410 PRINTVT$(7)HT$(6);
1413 PRINT"2. [208]ERIODIC TABLE"
1450 PRINTVT$(9)HT$(6);
1453 PRINT"3. [194]REAKDOWN OF TABLE 1[193]-6[193]"
1490 PRINTVT$(11)HT$(6);
1493 PRINT"4. [194]REAKDOWN OF TABLE 7[193],8[193],3[194]-8[194]"
1530 PRINTVT$(13)HT$(6);
1533 PRINT"5. [194]REAKDOWN OF TABLE 1[194],2[194],[210]ARE"
1536 PRINTVT$(14)HT$(9);
1539 PRINT"EARTH METALS"
1570 PRINTVT$(16)HT$(6);
1573 PRINT"6. [209]UIT"
1610 REMSCALE=2
1613 PRINTVT$(21)HT$(7);
1616 PRINT"[195]HOOSE ONE [?]";
1619 GETA$
1650 IFA$<"1"ORA$>"6"THEN1619
1690 IFA$>"1"ANDA$<"6"THENPRINT:PRINTA$"  [204]OADING..."
1730 IFA$="1"THEN2170
1770 IFA$="2"THENF$="PT2":GOTO5000
1810 IFA$="3"THENF$="PT3":GOTO5000
1850 IFA$="4"THENF$="PT4":GOTO5000
1890 IFA$="5"THENF$="PT5":GOTO5000
1930 PRINT"[147]";
1933 REMPOKE-16302,0
1970 TX=9:BX=31:TY=11:BY=13:GOSUB4000
1973 PRINTVT$(12)HT$(10);
1976 PRINT"[210]ETURNING TO [204]OADSTAR"
2053 PRINT
2054 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
2055 IFER<>63THENEND
2056 PRINT"[147]":LOAD"HELLO CONNECT",8
2090 END
2130 REM*BACKGROUNDINFO
2170 PRINT"[147]";
2173 REMPOKE-16302,0
2176 REMSCALE=1
2179 REMHCOLOR=3
2210 PRINTVT$(2)HT$(1);
2213 PRINT"[212]HE PERIODIC TABLE OF ELEMENTS, CREATED"
2250 PRINTVT$(3)HT$(1);
2253 PRINT"BY [196]MITRI [201]VANOVICH [205]ENDELEEV, A"
2290 PRINTVT$(4)HT$(1);
2293 PRINT"[210]USSIAN CHEMIST, ARRANGES THE CHEMICAL"
2330 PRINTVT$(5)HT$(1);
2333 PRINT"ELEMENTS ACCORDING TO THEIR ATOMIC"
2370 PRINTVT$(6)HT$(1);
2373 PRINT"NUMBERS.  [212]O UNDERSTAND THE INFORMATION"
2410 PRINTVT$(7)HT$(1);
2413 PRINT"IN THIS PROGRAM, A FEW TERMS MUST BE"
2450 PRINTVT$(8)HT$(1);
2453 PRINT"DEFINED."
2490 PRINTCHR$(18);
2493 PRINTVT$(11)HT$(1);
2496 PRINT"[193][212][207][205][201][195] [206][213][205][194][197][210][146]";
2499 REM
2502 PRINT"-IS EQUAL TO THE NUMBER OF"
2530 PRINTVT$(12)HT$(6);
2533 PRINT"PROTONS."
2570 PRINTCHR$(18);
2573 PRINTVT$(15);
2576 PRINT"[208][210][207][212][207][206][211][146]";
2579 REM
2582 PRINT"-POSITIVELY CHARGED PARTICLES."
2610 PRINTCHR$(18);
2613 PRINTVT$(18);
2616 PRINT"[197][204][197][195][212][210][207][206][211][146]";
2619 REM
2622 PRINT"-NEGATIVELY CHARGED PARTICLES."
2650 PRINTVT$(19)HT$(6);
2653 PRINT"[213]SUALLY (BUT NOT ALWAYS) THE SAME"
2690 PRINTVT$(20)HT$(6);
2693 PRINT"NUMBER AS PROTONS."
2730 PRINTVT$(24)HT$(9);
2733 PRINT"[208]RESS A KEY TO CONTINUE";
2736 POKE198,0:WAIT198,1:GETA$
2770 PRINT"[147]";
2773 REMPOKE-16302,0
2810 PRINTCHR$(18);
2813 PRINTVT$(2)HT$(1);
2816 PRINT"[207][216][201][196][193][212][201][207][206] [206][213][205][194][197][210][146]";
2819 REM
2822 PRINT"-TELLS THE POSSIBLE"
2850 PRINTVT$(3)HT$(6);
2853 PRINT"NUMBER OF ELECTRONS IN THE OUTER"
2890 PRINTVT$(4)HT$(6);
2893 PRINT"LEVEL (POSITIVE) OR NUMBER OF"
2930 PRINTVT$(5)HT$(6);
2933 PRINT"ELECTRONS NEEDED IN THE OUTER"
2970 PRINTVT$(6)HT$(6);
2973 PRINT"LEVEL (NEGATIVE)."
3010 PRINTCHR$(18);
3013 PRINTVT$(9)HT$(1);
3016 PRINT"[193][212][207][205][201][195] [215][197][201][199][200][212][146]";
3019 REM
3022 PRINT"-THE WEIGHT OF THE ATOM"
3050 PRINTHT$(6);
3053 PRINT"COMPARED TO AN ATOM OF CARBON 12."
3090 PRINTHT$(6);
3093 PRINT"[193]LSO, IT IS EQUAL TO THE NUMBER OF"
3130 PRINTHT$(6);
3133 PRINT"PROTONS AND NEUTRONS ADDED"
3170 PRINTHT$(6);
3173 PRINT"TOGETHER."
3210 PRINTVT$(18);
3213 PRINT"[201]F AT ANY TIME YOU FIND YOURSELF BORED,"
3250 REMHPLOT0,147
3253 PRINT"CONFUSED, OR JUST WANTING TO QUIT,"
3290 REMHPLOT0,157
3293 PRINT"PRESS <[209]>."
3330 PRINTVT$(24)HT$(9);
3333 PRINT"[208]RESS A KEY FOR THE MENU";
3336 POKE198,0:WAIT198,1:GETA$
3370 GOTO1330
4000 FORI=TX+1TOBX-1
4005 PRINTVT$(TY)HT$(I)"[162][146]"
4010 PRINTVT$(BY)HT$(BX-I+TX)"[162]"
4020 NEXT:PRINTVT$(TY)HT$(BX)"[187][146]"
4030 PRINTVT$(BY)HT$(TX)"[188][146]"
4040 FORI=TY+1TOBY-1
4050 PRINTVT$(I)HT$(BX)"[161][146]"
4060 PRINTVT$(BY-I+TY)HT$(TX)"[161]"
4070 NEXT:PRINTVT$(TY)HT$(TX)"[172][146]"
4080 PRINTVT$(BY)HT$(BX)"[190][146]"
4090 RETURN
5000 REM LOADER
5010 POKE53280,5:POKE53281,5:PRINT"[147]"
5020 PRINT"LOAD"CHR$(34)F$CHR$(34)",8":PRINT"RUN"
5030 POKE631,13:POKE632,13:POKE198,2:END