10 REM Periodic Table
   20 REM (c) M.Bobrowski 11'1989
   30 MODE4:HIMEM=&5800:LOMEM=PAGE+&2800:ON ERROR MODE6:@%=&90A:OSCLI"FX4":END
   40 PROCchar:PROCass:PROCinit
   50 REPEAT:CALL T%:PROCtitle:PROCchoice:PROCproperties:UNTIL FALSE
   60 :
   70 DEF PROCinit
   80 DIM S$(105),N$(105),M(105),O$(6)
   90 FORI%=1TO105:READ S$(I%),N$(I%),M(I%):NEXT
  100 O$(1)="1s�":O$(2)=O$(1)+"2s�2p�":O$(3)=O$(2)+"3s�3p�":O$(4)=O$(3)+"3d��4s�4p�":O$(5)=O$(4)+"4d��5s�5p�":O$(6)=O$(5)+"4f��5d��6s�6p�":*FX4,1
  110 T%=PAGE+&1F74:T%?5=(PAGE+&1F90)DIV256:T%?9=(PAGE+&1F90)MOD256:T%?23=LOMEM DIV256:S%=PAGE+&1C8B:D%=S%+&6A:U%=S%+&D4:H%=S%+&13E:G%=H%+1:V%=S%+&212:W%=V%+1:N%=19+RND(34):ENDPROC
  120 :
  130 DEFPROCchoice:PROCcursor(N%):PROCwindow
  140 REPEAT:M%=N%:PROCget:PROCcursor(M%):PROCcursor(N%):PROCwindow:UNTIL K%=13:ENDPROC
  150 DEFPROCget:REPEAT:SOUND1,-15,200,2:*FX21
  160 K%=GET:IF K%=136 N%=N%-1:IF N%=0 N%=1
  170 IF K%=137 N%=N%+1:IF N%=106 N%=105
  180 IF K%=138 N%=N%?D% ELSE IF K%=139 N%=N%?U%
  190 UNTIL(K%>135 AND K%<140)ORK%=13:ENDPROC
  200 DEFPROCcursor(N%):J%=2*N%:X%=256*J%?H%+J%?G%:Y%=256*J%?V%+J%?W%:MOVEX%,Y%:GCOL4,1:PLOT0,-26,35:PLOT0,56,0:PLOT81,0,-70:PLOT0,-4,0:PLOT0,-56,0:PLOT81,0,70:ENDPROC
  210 DEFPROCwindow:GCOL0,1:MOVE280,692:DRAW280,895:DRAW760,895:DRAW760,692:DRAW280,692:VDU24,320;700;756;860;16
  220 Z%=@%:VDU5:L%=478-32*LENSTR$N%:MOVEL%,860:PRINT;N%:@%=&20307:MOVE520,860:PRINT;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:ENDPROC
  230 :
  240 DEFPROCproperties:RESTORE550:FORQ%=1TON%:READQ$,U$:NEXT
  250 CLS:VDU19,0,0;0;19,1,7;0;23,1,0;0;0;0;:MOVE0,260:DRAW0,990:DRAW1279,990:DRAW1279,260:DRAW0,260:MOVE0,910:DRAW1279,910:MOVE0,490:DRAW1279,490
  260 PRINTTAB(19-(LENN$(N%))DIV2,2);N$(N%)'TAB(2,4)"chemical symbol";TAB(23);S$(N%)'TAB(2,6)"atomic number";TAB(23);N%'TAB(2,8)"atomic mass";TAB(23);M(N%)'TAB(2,10);"properties";TAB(23);
  270 IF N%?S%=0 OR N%?S%=4 PRINT"metal" ELSE IF N%?S%=2 PRINT"amphoteric" ELSE PRINT"non-metal"
  280 PRINTTAB(2,12);"state of aggregation   ";:IF N%?S%<3 PRINT"solid" ELSEIF N%?S%=3 PRINT"gas" ELSE PRINT"liquid"
  290 PRINTTAB(2,14);"oxidation states";TAB(19);U$'TAB(4,18)"electron configuration of atoms"
  300 IF N%<3THEN310 ELSEIFN%>2ANDN%<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$
  310 IF N%<55 PRINTTAB((39-LENQ$)DIV2,20);Q$ ELSE PRINTTAB(2,20)LEFT$(Q$,35)TAB(2,22)RIGHT$(Q$,LENQ$-35)
  320 SOUND1,-10,60,2:SOUND1,-10,76,2:SOUND1,-10,88,2:SOUND1,-10,108,2:PRINTTAB(12,30)"Press Space Bar";:REPEATUNTILGET=32:ENDPROC
  330 :
  340 DEFPROCtitle
  350 GCOL0,129:GCOL0,0:VDU5,24,4;935;1275;1019;16:MOVE76,1003:PROCdbl("Periodic Table of Chemical Elements"):VDU24,4;4;1275;100;16:MOVE64,88:PRINT"To select an element use cursor keys":MOVE368,44:PRINT"then press RETURN"
  360 GCOL0,128:GCOL0,1:VDU26,4:ENDPROC
  370 DEFPROCdbl(A$):LOCALA%,CH%:FORCH%=1TOLENA$:A%=ASCMID$(A$,CH%,1):CALLd:NEXT:ENDPROC
  380 :
  390 DEFPROCass DIMMC%100:oswrch=&FFEE:osword=&FFF1:FORI%=0TO2STEP2:P%=MC%:[OPTI%:.d STAb:LDA#10:LDX#b AND255:LDY#b DIV256:JSRosword:LDA#0:STAj:.d1 LDA#23:JSRoswrch:LDAj:ORA#254:JSRoswrch:LDAj:ASLA:ASLA:TAX:LDY#4:.d2 INX:LDAb,X:JSRoswrch
  400 JSRoswrch:DEY:BNEd2:INCj:LDAj:CMP#2:BNEd1:LDX#4:.d3 LDAs,X:JSRoswrch:DEX:BPLd3:RTS:.b:]:j=b+9:s=j+1:$s=CHR$11+CHR$255+CHR$8+CHR$10+CHR$254:NEXT:ENDPROC
  410 :
  420 DEFPROCchar:VDU23,128,26172;26214;60;0;23,129,14360;6168;24;0;23,130,26172;12300;126;0;23,131,26172;26124;60;0;23,132,27756;3198;12;0;23,133,24702;1660;124;0;23,134,24636;26236;60;0;23,135,3198;12312;96;0;23,136,26172;26172;60;0;
  430 VDU23,137,26172;1598;60;0;:ENDPROC
  440 :
  450 DATA H,Hydrogen,1.008,He,Helium,4.003,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,Magnesium,24.305,Al,Aluminium,26.982
  460 DATA Si,Silicon,28.086,P,Phosphorus,30.974,S,Sulphur,32.06,Cl,Chlorine,35.453,Ar,Argon,39.948,K,Potassium,39.098,Ca,Calcium,40.08,Sc,Scandium,44.956,Ti,Titanium,47.9,V,Vanadium,50.941,Cr,Chromium,51.996,Mn,Manganese,54.938
  470 DATA Fe,Iron,55.847,Co,Cobalt,58.933,Ni,Nickel,58.7,Cu,Copper,63.546,Zn,Zinc,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,Rubidium,85.468,Sr,Strontium,87.62
  480 DATA Y,Yttrium,88.906,Zr,Zirconium,91.22,Nb,Niobium,92.906,Mo,Molybdenum,95.94,Tc,Technetium,96.906,Ru,Ruthenium,101.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
  490 DATA Sb,Antimony,121.75,Te,Tellurium,127.6,I,Iodine,126.905,Xe,Xenon,131.3,Cs,Caesium,132.905,Ba,Barium,137.34,La,Lanthanum,138.906,Ce,Cerium,140.12,Pr,Praseodymium,140.908,Nd,Neodymium,144.24,Pm,Promethium,144.913,Sm,Samarium,150.4
  500 DATA Eu,Europium,151.96,Gd,Gadolinium,157.25,Tb,Terbium,158.925,Dy,Dysprosium,162.5,Ho,Holmium,164.930,Er,Erbium,167.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
  510 DATA Re,Rhenium,186.207,Os,Osmium,190.2,Ir,Iridium,192.22,Pt,Platinum,195.09,Au,Gold,196.967,Hg,Mercury,200.59,Tl,Thallium,204.37,Pb,Lead,207.2,Bi,Bismuth,208.98,Po,Polonium,208.982,At,Astatine,209.987,Rn,Radon,222.018
  520 DATA Fr,Francium,223.019,Ra,Radium,226.025,Ac,Actinium,227.028,Th,Thorium,232.038,Pa,Protactinium,231.036,U,Uranium,238.029,Np,Neptunium,237.048,Pu,Plutonium,244.064,Am,Americium,243.061,Cm,Curium,247.07,Bk,Berkelium,247.07
  530 DATA Cf,Californium,251.08,Es,Einsteinium,254.088,Fm,Fermium,257.095,Md,Mendelevium,258.1,No,Nobelium,255.093,Lr,Lawrencium,260.1,Ku,Kurchatovium,261.1,Ha,Hahnium,260
  540 :
  550 DATA "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)"
  560 DATA "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","3d�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)"
  570 DATA "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)"
  580 DATA "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)"
  590 DATA "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)","6s�","+1","6s�","+2","5d�6s�","+3"
  600 DATA "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"
  610 DATA "4f��5d�6s�","+3,(+2)","4f��5d�6s�","+3,(+2)","4f��5d�6s�","+3","4f��5d�6s�","+4","4f��5d�6s�","+5,(+3,+4)","4f��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)"
  620 DATA "4f��5d�6s�","+2,+4,(+3,+6)","4f��5d��6s�","+3,(+1)","4f��5d��6s�","+2,(+1)","4f��5d��6s�6p�","+3,(+1)","4f��5d��6s�6p�","+2,+4","4f��5d��6s�6p�","+3,(+5)","4f��5d��6s�6p�","(+2,+4)","4f��5d��6s�6p�","(+1,+5,+7)"
  630 DATA "4f��5d��6s�6p�","0,(+4)","7s�","+1","7s�","+2","6d�7s�","+3","5f�6d�7s�","+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�6d�7s�","+3,(+4,+5,+6)"
  640 DATA "5f�6d�7s�","+3,(+4)","5f�6d�7s�","+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"