10REM Periodic Table 20REM (c) M.Bobrowski 5'91 30MODE132:HIMEM=&5800:LOMEM=PAGE+&260 0:ONERRORMODE7:@%=&90A:OSCLI"FX4":END 40PROCinit:CALLT%:PROCtitle 50REPEAT:PROCchoice:PROCproperties:UN TIL FALSE 60: 70DEF PROCinit 80DIM S$(105),N$(105),M(105),O$(6):FO RI%=1TO105:READ S$(I%),N$(I%),M(I%):NEXT :Q$=STRING$(64," "):U$=STRING$(20," ") 90O$(1)="1s ":O$(2)=O$(1)+"2s 2p ":O$ (3)=O$(2)+"3s 3p ":O$(4)=O$(3)+"3d 4s 4 p ":O$(5)=O$(4)+"4d 5s 5p ":O$(6)=O$(5) +"4f 5d 6s 6p ":*FX4,1 100T%=PAGE+&1D11:T%?5=(PAGE+&1D2C)DIV2 56:T%?9=(PAGE+&1D2C)MOD256:T%?23=LOMEM D IV256:S%=PAGE+&1A28:D%=S%+&6A:U%=S%+&D4: H%=S%+&13E:G%=H%+1:V%=S%+&212:W%=V%+1:N% =19+RND(34):d%=S%-&41:!&82=&A08FF0B:!&86 =&DFE:ENDPROC 110: 120DEFPROCchoice:PROCcursor(N%):PROCwi ndow 130REPEAT:M%=N%:PROCget:PROCcursor(M%) :PROCcursor(N%):PROCwindow:UNTIL K%=13:P ROCcursor(N%):ENDPROC 140DEFPROCget:REPEAT:SOUND1,-8,200,2:* FX21 150K%=GET:IF K%=136 N%=N%-1:IF N%=0 N% =1 160IF K%=137 N%=N%+1:IF N%=106 N%=105 170IF K%=138 N%=N%?D% ELSE IF K%=139 N %=N%?U% 180UNTIL(K%>135 AND K%<140)ORK%=13:END PROC 190DEFPROCcursor(N%):J%=2*N%:X%=256*J% ?H%+J%?G%:Y%=256*J%?V%+J%?W%:MOVEX%,Y%:G COL4,1:PLOT0,-26,35:PLOT0,56,0:PLOT81,0, -70:PLOT0,-4,0:PLOT0,-56,0:PLOT81,0,70:E NDPROC 200DEFPROCwindow:GCOL0,1:MOVE280,692:D RAW280,895:DRAW760,895:DRAW760,692:DRAW2 80,692:VDU24,320;700;756;860;16 210Z%=@%:VDU5:L%=478-32*LENSTR$N%:MOVE L%,860:PRINT;N%:@%=&20307:MOVE520,860:PR INT;M(N%):@%=Z%:L%=2-LENS$(N%):MOVE474+L %*16,812:PROCdbl(S$(N%)):L%=13-LENN$(N%) :MOVE320+L%*14,740:PRINTN$(N%):VDU4,26:E NDPROC 220: 230DEFPROCproperties:RESTORE460:FORQ%= 1TON%:READQ$,U$:NEXT 240OSCLI"FX112,2":OSCLI"FX113,2":CLS:V DU20:MOVE0,200:DRAW0,990:DRAW1279,990:DR AW1279,200:DRAW0,200:MOVE0,910:DRAW1279, 910:MOVE0,460:DRAW1279,460 250PRINTTAB(19-(LENN$(N%))DIV2,2)N$(N% )'TAB(2,5)"chemical symbol";TAB(23)S$(N% )'TAB(2,7)"atomic number";TAB(23);N%'TAB (2,9)"atomic mass";TAB(23);M(N%)'TAB(2,1 1)"properties";TAB(23); 260IF N%?S%=0 OR N%?S%=4 PRINT"metal" ELSE IF N%?S%=2 PRINT"amphoteric" ELSE P RINT"non-metal" 270PRINTTAB(2,13)"state of aggregation ";:IF N%?S%<3 PRINT"solid" ELSEIF N%? S%=3 PRINT"gas" ELSE PRINT"liquid" 280PRINTTAB(2,15)"oxidation states";:I FLENU$>14 PRINT" "U$ ELSEPRINTTAB(23)U$ 290PRINTTAB(4,19)"electron configurati on of atoms":IF N%<3THEN300 ELSEIFN%>2AN DN%<11Q$=O$(1)+Q$ ELSEIFN%>10ANDN%<19Q$= O$(2)+Q$ ELSEIFN%>18ANDN%<37Q$=O$(3)+Q$ ELSEIFN%>36ANDN%<55Q$=O$(4)+Q$ ELSEIFN%> 54ANDN%<87Q$=O$(5)+Q$ ELSEQ$=O$(6)+Q$ 300IF N%<55 PRINTTAB((39-LENQ$)DIV2,21 );Q$ ELSE PRINTTAB(2,21)LEFT$(Q$,35)TAB( 2,23)RIGHT$(Q$,LENQ$-35) 310SOUND1,-10,60,2:SOUND1,-10,76,2:SOU ND1,-10,88,2:SOUND1,-10,108,2:PRINTTAB(1 2,30)"Press Space Bar";:REPEATUNTILGET=3 2:OSCLI"FX112,1":OSCLI"FX113,1":VDU19,0, 7;0;19,1,0|:ENDPROC 320: 330DEFPROCtitle:GCOL0,129:GCOL0,0:VDU5 ,24,4;935;1275;1019;16:MOVE76,1003:PROCd bl("Periodic Table of Chemical Elements" ):VDU24,4;4;1275;100;16:MOVE64,88:PRINT" To select an element use cursor keys":MO VE368,44:PRINT"then press RETURN" 331GCOL0,128:GCOL0,1:VDU26,4:ENDPROC 340DEFPROCdbl(A$):LOCALA%,I%:FORI%=1TO LENA$:A%=ASCMID$(A$,I%,1):CALLd%:NEXT:EN DPROC 350: 360DATA H,Hydrogen,1.008,He,Helium,4.0 03,Li,Lithium,6.941,Be,Beryllium,9.012,B ,Boron,10.81,C,Carbon,12.012,N,Nitrogen, 14.007,O,Oxygen,15.999,F,Fluorine,18.998 ,Ne,Neon,20.179,Na,Sodium,22.990,Mg,Magn esium,24.305,Al,Aluminium,26.982 370DATA Si,Silicon,28.086,P,Phosphorus ,30.974,S,Sulphur,32.06,Cl,Chlorine,35.4 53,Ar,Argon,39.948,K,Potassium,39.098,Ca ,Calcium,40.08,Sc,Scandium,44.956,Ti,Tit anium,47.9,V,Vanadium,50.941,Cr,Chromium ,51.996,Mn,Manganese,54.938 380DATA Fe,Iron,55.847,Co,Cobalt,58.93 3,Ni,Nickel,58.7,Cu,Copper,63.546,Zn,Zin c,65.38,Ga,Gallium,69.72,Ge,Germanium,72 .59,As,Arsenic,74.922,Se,Selenium,78.96, Br,Bromine,79.904,Kr,Krypton,83.8,Rb,Rub idium,85.468,Sr,Strontium,87.62 390DATA Y,Yttrium,88.906,Zr,Zirconium, 91.22,Nb,Niobium,92.906,Mo,Molybdenum,95 .94,Tc,Technetium,96.906,Ru,Ruthenium,10 1.07,Rh,Rhodium,102.906,Pd,Palladium,106 .4,Ag,Silver,107.868,Cd,Cadmium,112.4,In ,Indium,114.82,Sn,Tin,118.69 400DATA Sb,Antimony,121.75,Te,Telluriu m,127.6,I,Iodine,126.905,Xe,Xenon,131.3, Cs,Caesium,132.905,Ba,Barium,137.34,La,L anthanum,138.906,Ce,Cerium,140.12,Pr,Pra seodymium,140.908,Nd,Neodymium,144.24,Pm ,Promethium,144.913,Sm,Samarium,150.4 410DATA Eu,Europium,151.96,Gd,Gadolini um,157.25,Tb,Terbium,158.925,Dy,Dysprosi um,162.5,Ho,Holmium,164.930,Er,Erbium,16 7.26,Tm,Thulium,168.934,Yb,Ytterbium,173 .04,Lu,Lutetium,174.97,Hf,Hafnium,178.49 ,Ta,Tantalum,180.948,W,Tungsten,183.85 420DATA Re,Rhenium,186.207,Os,Osmium,1 90.2,Ir,Iridium,192.22,Pt,Platinum,195.0 9,Au,Gold,196.967,Hg,Mercury,200.59,Tl,T hallium,204.37,Pb,Lead,207.2,Bi,Bismuth, 208.98,Po,Polonium,208.982,At,Astatine,2 09.987,Rn,Radon,222.018 430DATA Fr,Francium,223.019,Ra,Radium, 226.025,Ac,Actinium,227.028,Th,Thorium,2 32.038,Pa,Protactinium,231.036,U,Uranium ,238.029,Np,Neptunium,237.048,Pu,Plutoni um,244.064,Am,Americium,243.061,Cm,Curiu m,247.07,Bk,Berkelium,247.07 440DATA Cf,Californium,251.08,Es,Einst einium,254.088,Fm,Fermium,257.095,Md,Men delevium,258.1,No,Nobelium,255.093,Lr,La wrencium,260.1,Ku,Kurchatovium,261.1,Ha, Hahnium,260 450: 460DATA "1s ","+1,(-1)","1s ",0,"2s ", "+1","2s ","+2","2s 2p ","+3","2s 2p "," -4,+4,(+2)","2s 2p ","-3,+3,+5,(+1,+2,+4 )","2s 2p ","-2,(-1)","2s 2p ","-1","2s 2p ",0,"3s ","+1","3s ","+2","3s 3p ","+ 3","3s 3p ","-4,+4,(+2)" 470DATA "3s 3p ","+3,+5,(-3)","3s 3p " ,"-2,+6,(+4)","3s 3p ","-1,+7,(+1,+3,+5, +6)","3s 3p ",0,"4s ","+1","4s ","+2","3 d 4s ","+3","3d 4s ","+4,(+2,+3)","3d 4s ","+5,(+1,+2,+3,+4)","3d 4s ","+3,+6,(+ 2)","3d 4s ","+2,+7,(+3,+4,+6)" 480DATA "3d 4s ","+2,+3","3d 4s ","+2, (+3)","3d 4s ","+2,(+1,+3)","3d 4s ","+ 2,(+1)","3d 4s ","+2","3d 4s 4p ","+3" ,"3d 4s 4p ","+4,(+2)","3d 4s 4p ","+3 ,+5,(-3)","3d 4s 4p ","-2,+6,(+4)","3d 4s 4p ","-1,(+1,+4,+5,+7)" 490DATA "3d 4s 4p ","0,(+2,+4)","5s " ,"+1","5s ","+2","4d 5s ","+3","4d 5s ", "+4","4d 5s ","+5,(+2,+3)","4d 5s ","+6, (+2,+3,+4)","4d 5s ","+4,+7,(+6)","4d 5s ","+4,(+2,+3,+6,+8)","4d 5s ","+3,(+2,+ 4,+5,+6)","4d ","+2,(+4)" 500DATA "4d 5s ","+1,(+2)","4d 5s ", "+2","4d 5s 5p ","+3","4d 5s 5p ","+4, (+2)","4d 5s 5p ","+3,+5,(-3)","4d 5s 5p ","-2,+6,(+4)","4d 5s 5p ","-1,(+1,+ 5,+7)","4d 5s 5p ","0,(+1,+2,+4,+6)","6 s ","+1","6s ","+2","5d 6s ","+3" 510DATA "4f 5d 6s ","+3,+4","4f 5d 6s ","+3,(+4)","4f 5d 6s ","+3","4f 5d 6s " ,"+3","4f 5d 6s ","+2,+3","4f 5d 6s ","+ 2,+3","4f 5d 6s ","+3","4f 5d 6s ","+3,( +4)","4f 5d 6s ","+3","4f 5d 6s ","+3", "4f 5d 6s ","+3" 520DATA "4f 5d 6s ","+3,(+2)","4f 5d 6s ","+3,(+2)","4f 5d 6s ","+3","4f 5 d 6s ","+4","4f 5d 6s ","+5,(+3,+4)","4 f 5d 6s ","+6,(+2,+3,+4,+5)","4f 5d 6s ","+4,+7,(+6)","4f 5d 6s ","+6,+8,(+3, +4)","4f 5d 6s ","+3,+4,(+6)" 530DATA "4f 5d 6s ","+2,+4,(+3,+6)"," 4f 5d 6s ","+3,(+1)","4f 5d 6s ","+2 ,(+1)","4f 5d 6s 6p ","+3,(+1)","4f 5 d 6s 6p ","+2,+4","4f 5d 6s 6p ","+3, (+5)","4f 5d 6s 6p ","(+2,+4)","4f 5d 6s 6p ","(+1,+5,+7)" 540DATA "4f 5d 6s 6p ","0,(+4)","7s ","+1","7s ","+2","6d 7s ","+3","5f 6d 7 s ","+4","5f 6d 7s ","+5,(+4)","5f 6d 7s ","+6,(+3,+4,+5)","5f 6d 7s ","+5,(+3,+ 4,+6)","5f 6d 7s ","+4,(+3,+5,+6)","5f 6 d 7s ","+3,(+4,+5,+6)" 550DATA "5f 6d 7s ","+3,(+4)","5f 6d 7 s ","+3","5f 6d 7s ","+3","5f 6d 7s "," +3","5f 6d 7s ","+3","5f 6d 7s ","+3,( +2)","5f 6d 7s ","+3,(+2)","5f 6d 7s " ,"+3","5f 6d 7s ","+4","5f 6d 7s ","+5 "