Gury's Atari 8-bit Forever Portal - Site dedicated to Atari 8-bit home computers by Bostjan Gorisek (Gury)

Listing 1
1 REM 
2 REM |Program | | |
3 REM || | |
4 REM |Autor: Libor KLUBAL |
5 REM | |
6 REM |Producent: P & L Soft | | |
7 REM | 11.87 |
8 REM 
15 DIM A$(79),PR$(30),B$(20),C$(20),P$(20)
20 GRAPHICS 0:SETCOLOR 1,1,1:POKE 710,10:?:?:?
25 ? "       "
27 ? "        "
30 ? "        "
32 ? "      "
34 ? "       "
36 ? "        "
38 ? "       "
40 ?:?
42 ? "    | Libor KLUBAL |   | |"
43 ? "  | c P L Soft 1988 |  | |  "
44 ? "  "
45 ?:?:?:? "Prosim cekej":GOSUB 30000:? "Stiskni mezernik":GOSUB 31100
50 REM
54 GRAPHICS 0:SETCOLOR 1,1,1:POKE 710,10
55 ?:?:?:? "1______Periodicka soustava prvku 2______Vybrane skupiny prvku"
60 ? "3______Vlastnosti prvku 4______Oxidacni cislo"
64 ? "5______Konec"
65 ?:? "Vase volba:";:INPUT #16,KEY:GOSUB 32000
67 IF KEY<1 OR KEY>5 THEN ? "Chybne zadani!":FOR PA=1 TO 100:NEXT PA:GOTO 65
70 ON KEY GOTO 100,770,420,1050,32500
100 REM
105 GRAPHICS 8+16:COLOR 3:SETCOLOR 1,1,1:POKE 710,10
110 FOR K=0 TO 319 STEP 16
120 PLOT K,0:DRAWTO K,128
130 NEXT K
140 FOR K=0 TO 128 STEP 16
150 PLOT 0,K:DRAWTO 303,K
160 NEXT K
170 COLOR 0
180 FOR K=17 TO 31:PLOT 43,K:DRAWTO 286,K:NEXT K
190 FOR K=31 TO 63:PLOT 49,K:DRAWTO 207,K:NEXT K
200 COLOR 3:PLOT 15,0:DRAWTO 15,128:PLOT 14,0:DRAWTO 14,128
210 PLOT 0,17:DRAWTO 303,17:PLOT 0,18:DRAWTO 303,18
220 FOR K=64 TO 288 STEP 16
230 PLOT K,140:DRAWTO K,172
240 NEXT K
250 FOR K=140 TO 172 STEP 16
260 PLOT 64,K:DRAWTO 288,K
270 NEXT K
271 COLOR 0
272 FOR K=1 TO 15
273 PLOT 140,K:DRAWTO 161,K
274 NEXT K
275 COLOR 0
280 XX=6:YY=20:RESTORE 10000
290 PLOT XX,YY
300 READ A$:IF A$="!" THEN GOTO 319
304 IF A$="-" THEN XX=XX+16:YY=-11:GOTO 310
305 U=USR(1536,ADR(A$),LEN(A$),128)
310 YY=YY+16
315 GOTO 290
319 XX=69:YY=147:RESTORE 10035
320 PLOT XX,YY:READ A$:IF A$="!" THEN 351
330 IF A$="-" THEN XX=69-16:YY=YY+16:GOTO 345
340 U=USR(1536,ADR(A$),LEN(A$),128)
345 XX=XX+16
350 GOTO 320
351 PLOT 10,180:U=USR(1536,ADR("Stiskni mezernik"),16,0)
352 GOSUB 31100
354 GRAPHICS 0:SETCOLOR 1,1,1:POKE 710,10
355 ?:?:?
356 ? "Periodickou soustavu sestavil rusky vedec D.I. Mendelejev.Prvky v tabulce usporadal podle rostouci ";
357 ? "relativni atomove hmotnosti. Po usporadani prvkuzjistil, ze se po urcitych intervalechopakuji prvky ";
358 ? "podobnych vlastnosti.Svepozorovani zhrnul v periodickem zakone"
359 ? "  Vlastnosti prvku jsou periodic-  kou funkci jejich protonoveho  cisla."
360 ?:? "Periodicky zakon patri k nejvyznamej- sim prirodnim zakonum."
361 ?:?:?:? "Stiskni mezernik":POKE 764,255
362 GOSUB 31100
363 ? "":?:?
364 ? "Zakladni fakta o periodicke soustave prvku:":?
365 ? "-Prvky jsou podle stoupajiciho proto- noveho cisla usporadany do 7 vodorov- nych rad - period":?
366 ? "-Podobne prvky jsou umisteny v 16 svislych skupinach, ktere oznacujeme rimskymi cisly I az VIII":?
367 ?:?:?:?:? "Stiskni mezernik"
368 GOSUB 31100
370 GOTO 50
419 GOTO 419
420 REM
421 ? ""
425 ? " "
430 ? " ||"
435 ? " "
437 RESTORE 15005:SETCOLOR 1,1,1:POKE 710,10
438 ?:? "1_____Vyhledavani prvku 2_____Konec"
439 ?:?:?:?:? "Vase volba:";:INPUT #16,KEY:GOSUB 32000:IF KEY<1 OR KEY>2 THEN 439
440 IF KEY=2 THEN 50
445 ?:? "Zadejte nazev nebo znacku hledaneho prvku ";:INPUT P$:GOSUB 32000:GOSUB 31000
450 READ A$,B$,C$,RE:IF A$="!" THEN 500
451 IF RE>366 THEN RE=RE+10
455 IF A$=P$ OR B$=P$ OR C$=P$ THEN GOTO 520
460 GOTO 450
500 PRINT " Hledany prvek nemam nadefinovan":FOR PA=1 TO 600:NEXT PA:GOTO 420
520 GRAPHICS 8+16:COLOR 3:SETCOLOR 1,1,1:POKE 710,10
530 PLOT 5,20:DRAWTO 315,20
535 FOR K=20 TO 130 STEP 12
540 PLOT 5,K:DRAWTO 315,K
550 NEXT K
553 PLOT 5,20:DRAWTO 5,127:PLOT 315,20:DRAWTO 315,127
554 PLOT 95,20:DRAWTO 95,127
560 COLOR 0:PLOT 10,2:U=USR(1536,ADR(A$),LEN(A$),64)
570 PLOT LEN(A$)*8.2+10+20,2:U=USR(1536,ADR(B$),LEN(B$),64)
575 PLOT LEN(B$)*8.2+10+LEN(A$)*8.2+40,2:U=USR(1536,ADR(C$),LEN(C$),64):RESTORE 19000
580 X=10:Y=24
590 READ A$:IF A$="!" THEN 650
600 PLOT X,Y
610 U=USR(1536,ADR(A$),LEN(A$),128)
620 Y=Y+12
630 GOTO 590
650 RESTORE 16000+RE
660 X=100:Y=24
665 READ A$:GOSUB 29000:IF A$="!" THEN GOTO 700
670 PLOT X,Y:Y=Y+12
675 U=USR(1536,ADR(A$),LEN(A$),128)
680 GOTO 665
700 REM
710 X=5:Y=160:PLOT X,Y
720 X=USR(1536,ADR("Stiskni mezernik"),16,0)
730 POKE 764,255
740 GOSUB 31100
750 GOTO 420
770 REM
780 GRAPHICS 0:SETCOLOR 1,1,1:POKE 710,10
790 ? " "
800 ? " ||"
810 ? " "
811 ?:?:? "1______vzacne plyny"
812 ? "2______halogeny"
815 ? "3______chalkogeny"
820 ? "4______prvky V.A skupiny"
825 ? "5______prvky IV.A skupiny"
830 ? "6______prvky III.A skupiny"
832 ? "7______konec"
835 ?:?:? "Vase volba:";:INPUT #16,KEY:GOSUB 32000
836 IF KEY=7 THEN GOTO 50
837 IF KEY<1 OR KEY>7 THEN ? " Cislo neni v danem rozsahu!!!":GOTO 835
840 RESTORE 17100+(KEY*10)
850 REM ** T I S K **
855 GRAPHICS 8+16:SETCOLOR 1,1,1:POKE 710,10:COLOR 3
860 PLOT 10,10:DRAWTO 300,10:PLOT 10,80:DRAWTO 300,80:PLOT 10,19:DRAWTO 300,19
865 PLOT 10,10:DRAWTO 10,80:PLOT 35,10:DRAWTO 35,80:PLOT 75,10:DRAWTO 75,80
870 PLOT 200,10:DRAWTO 200,80:PLOT 250,10:DRAWTO 250,80:PLOT 300,10:DRAWTO 300,80
875 FOR K=10 TO 80 STEP 10
880 PLOT 10,K:DRAWTO 300,K
885 NEXT K
890 COLOR 0:X=15:Y=11:PLOT X,Y
895 READ A$:GOSUB 29000:IF A$="!" THEN 950
900 IF A$="-" THEN READ X:Y=1:GOTO 915
910 U=USR(1536,ADR(A$),LEN(A$),128)
915 Y=Y+10:PLOT X,Y
920 GOTO 895
950 Y=100:X=10:PLOT X,Y
960 READ A$:U=USR(1536,ADR(A$),LEN(A$),196)
970 X=LEN(A$)*4+14:Y=107:PLOT X,Y
975 READ A$:IF A$="!" THEN 1000
985 U=USR(1536,ADR(A$),LEN(A$),128)
990 X=10:Y=Y+8:PLOT X,Y
995 GOTO 975
1000 PLOT 10,160:U=USR(1536,ADR("Stiskni mezernik"),16,0):POKE 764,255
1010 GOSUB 31100
1020 GOTO 770
1050 REM
1055 GRAPHICS 0:SETCOLOR 1,1,1:POKE 710,10:?:?:?:POKE 752,1
1060 ? "Nazvoslovi anorganickych sloucenin je zalozeno na .Oxidacnicislo nahradilo drive ";
1065 ? "pouzivane pojmy napr.mocenstvi, valence, atd.":?
1070 ? "  Oxidacni cislo prvku ve sloucenine  je rovno vyslednemu naboji, ktery  by jeho atom ziskal pri ";
1075 ? "uplne po-  larizaci vsech svych vazeb v iontu  ci v molekule":?
1080 ? "Prislusny naboj ziskame prirazenim vsech vazebnych elektronu atomu, kteryma vetsi "
1085 ?:? "  Elektronegativita je schopnost va-  zaneho atomu pritahovat vazebny  elektronovy par"
1090 ?:? "Stiskni mezernik"
1095 GOSUB 31100
1100 ? "":?:?
1105 ? "Pravidla pro urcovani oxidacniho cisla"
1110 ?:? "-volne atomy v molekulach i krystalechmaji oxidacni cislo 0":?
1115 ? "-soucet oxid. cisel vsech atomu je ro-ven 0, ve vicejadernem iontu je soucetroven naboji tohoto iontu":?
1120 ? "-ve slouceninach je temer vzdy oxid. cislo vodiku H rovno 1":?
1125 ?:?:?:?:? "Stiskni mezernik":POKE 764,255
1130 GOSUB 31100
1140 GRAPHICS 8+16:SETCOLOR 1,1,1:POKE 710,10:COLOR 0
1150 X=10:Y=10:PLOT X,Y
1155 U=USR(1536,ADR("Nasledujici prvky maji ve slouceninach vzdy tyto oxid. cisla"),60,128)
1160 COLOR 3:PLOT 10,20:DRAWTO 10,190:PLOT 110,20:DRAWTO 110,190:PLOT 210,30:DRAWTO 210,190
1165 PLOT 310,20:DRAWTO 310,190:PLOT 10,20:DRAWTO 310,20:PLOT 110,30:DRAWTO 310,30
1170 FOR K=40 TO 190 STEP 10
1175 PLOT 10,K:DRAWTO 310,K
1180 NEXT K:X=18:Y=21:COLOR 0:PLOT X,Y
1181 RESTORE 18000
1185 READ A$:IF A$="!" THEN 1225
1190 IF A$="-" THEN READ X:Y=11
1195 IF A$="=" THEN 1205
1200 U=USR(1536,ADR(A$),LEN(A$),128)
1205 Y=Y+10:PLOT X,Y
1210 GOTO 1185
1225 GOSUB 31100
1300 GOTO 50
10000 REM
10010 DATA 1,2,3,4,5,6,7, ,Lanthanoidy',Aktinoidy",-
10015 DATA 1A,H,Li,Na,K,Rb,Cs,Fr,-,2A, ,Be,Mg,Ca,Sr,Ba,Ra,-,3B, , , ,Se,Y,La',Ac",-,4B, , , ,Ti,Zr,Hf,Ku,-
10020 DATA 5B, , , ,V,Nb,Ta,-,6B, , , ,Cr,Mo,W,-,7B, , , ,Mn,Te,Re,-, , , , ,Fe,Ru,Os,-,8B, , , ,Co,Rh,Ir
10025 DATA -, , , , ,Ni,Pd,Pt,-,1B, , , ,Cu,Ag,Au,-,2B, , , ,Zn,Cd,Hg
10027 DATA -,3A, ,B,Al,Ga,In,Tl,-,4A, ,C,Si,Ge,Sn,Pb,-,5A, ,N,P,As,Sb,Bi
10030 DATA -,6A, ,O,S,Se,Te,Po,-,7A, ,F,Cl,Br,I,At,-,8A,He,Ne,Ar,Kr,Xe,Rn,!
10035 DATA Ce,Pr,Nd,Pm,Sm,Eu,Gd,Tb,Dy,Ho,Er,Tm,Yb,Lu,-,Th,Pa,U,Np,Pu,Am,Cm,Bk,Cf,Es,Fm,Md,No,Lr,!
15000 REM 
15005 DATA aktinium,actinium,Ac,0,americium,americium,Am,10,antimon,stibium,Sb,20,argon,argonum,Ar,30
15010 DATA arsen,arsenicum,As,40,astat,astatium,At,50,baryum,baryum,Ba,60,berkelium,berkelium,Bk,70,beryllium
15015 DATA beryllium,Be,80,bismut,bismuthum,Bi,90,bor,borum,B,100,brom,bromum,Br,110,cer,cerium,Ce,120
15020 DATA cesium,caesium,Cs,130,cin,stannum,Sn,140,curium,curium,Cm,150,draslik,kalium,K,160,dusik,nitrogenium,N
15025 DATA 170,dysprosium,dysprosium,Dy,180,einsteinium,eisteinium,Es,190,erbium,erbium,Er,200,europium,europium
15030 DATA Eu,210,fermium,fermium,Fm,220,fluor,fluorum,F,230,fosfor,phosporus,P,240,francium,francium,Fr,250
15035 DATA gadolinium,gadolinium,Gd,260,gallium,gallium,Ga,270,germanium,germanium,Ge,280,hafnium,hafnium,Hf,290
15040 DATA helium,helium,He,300,hlinik,aluminium,Al,310,holmium,holmium,Ho,320,horcik,magnesium,Mg,330,chlor
15045 DATA chlorum,Cl,340,chrom,chromium,Cr,350,indium,indium,In,360,jod,iodum,I,370,kadmium,cadmium,Cd,380
15047 DATA iridium,iridium,Ir,365
15050 DATA kalifornium,californium,Cf,390,kobalt,cobaltum,Co,400,krypton,krypton,Kr,410,kremik,silicium,Si,420
15055 DATA kyslik,oxygenium,O,430,lanthan,lanthanum,La,440,lawrencium,laurentium,Lr,450,lithium,lithium,Li,460
15060 DATA lutecium,lutecium,Lu,470,mangan,manganum,Mn,480,med,cuprum,Cu,490,mendelevium,mendelevium,Md,500
15065 DATA molybden,molybdaneum,Mo,510,neodym,neodymium,Nd,520,neon,neon,Ne,530,neptunium,neptunium,Np,540,nikl
15070 DATA niccolum,Ni,550,niob,niobium,Nb,560,nobelium,nobelium,No,570,olovo,plumbum,Pb,580,osmium,osmium,Os,590
15075 DATA palladium,palladium,Pd,600,platina,platinum,Pt,610,plutonium,plutonium,Pu,620,polonium,polonium,Po,630
15080 DATA praseodym,praseodymium,Pr,640,promethium,promhethium,Pm,650,protaktinium,protactinium,Pa,660
15083 DATA radium,radium,Ra
15085 DATA 670,radon,radon,Rn,680,rhenium,rhenium,Re,690,rhodium,rhodium,Rh,700,rtut,hydrargyrum,Hg,710,rubidium
15090 DATA rubidium,Rb,720,ruthenium,ruthenium,Ru,730,samarium,samarium,Sm,740,selen,selenium,Se,750,sira,sulfur,S
15095 DATA 760,skandium,scandium,Sc,770,sodik,natrium,Na,780,stroncium,strontium,Sr,790,stribro,argentum,Ag,800
15100 DATA tantal,tantalum,Ta,810,technecium,technecium,Tc,820,tellur,tellurium,Te,830,terbium,terbium,Tb,840
15105 DATA thallium,thallium,Tl,850,thorium,thorium,Th,860,thulium,thulium,Tm,870,titan,titanium,Ti,880,uhlik
15110 DATA carboneum,C,890,uran,uranium,U,900,vanad,vanadium,V,910,vapnik,calcium,Ca,920,vodik,hydrogenium,H,930
15115 DATA wolfram,wolframium,W,940,xenon,xenon,Xe,950,ytterbium,ytterbium,Yb,960,yttrium,yttrium,Y,970,zinek
15120 DATA zincum,Zn,980,zirkonium,zirconium,Zr,990,zlato,aurum,Au,1000,zelezo,ferrum,Fe,1010,!,0,0,0,0
15999 REM 
16000 DATA 89,227,1.O,1O7OO,1O5O,[Rn]6d1 7s2,1899 A.Debierne, ,Radioaktivni prvek,!
16010 DATA 95,243,1.2,117OO,-,[Rn]5f7 5d1 7s2,1944 G.T.Seabog, ,Radioaktivni prvek,!
16020 DATA 51,122,1.8,669O,631,[Kr]4d10 5s2 5p3,15.st Basilius Valentinus,Stribrnobily leskly prach,!
16030 DATA 18,39.9,-,1.64,-189,[Ne]3s2 3p6,1894 W.Ramsay a lord Rayleigh,Barevny plyn,Vyroba reklamnich trubic,!
16040 DATA 33,74.9,2.2,572O,817,[Ar]3d10 4s2 4p3,13.st Albertus Magnus,Kovovy leskly,Jedovaty,!
16050 DATA 85,210,1.9,-,302,[Xe]4f14 5d10 6s2 6p5,1940 D.R.Corson a K.R.Mackenzie, ,Radioaktivni prvek,!
16060 DATA 56,137,O.97,3510,714,[Xe]6s2,1602,Stribrobily kov,Na vzduchu hori,!
16070 DATA 97,247,1.2,-,-,[Rn]5f9 6d0 7s2,1949 S.G.Thompson, ,Radioaktivni prvek,!
16080 DATA 4,9.O1,1.5,185O,1280,[He]2s2,1797 L.N.Vauquelin,Stribrobily a tvrdy kov,Odolne proti korozi,!
16090 DATA 83,209,1.7,9800,271,[Xe]4f14 5p10 6s2 6p3,15.st Basilius Valentinus,Bily kov s ruzovym nadechem,!
16100 DATA 5,10.8,2.0,2340,2180,[He]2s2 2p1,1808 J.L.Gay-Lussac a L.J.Thenard,Hnedocerny prasek,!
16110 DATA 35,79.9,2.7,3130,-7.25,[Ar]3d10 4s2 4p5,1825 A.J.Balard,Hnedocervena kapalina,Ostry zapach,!
16120 DATA 58,140,1.1,6670,795,[Xe]4f2 5d0 6s2,1803 J.J.Berzelius a M.H.Klaproth,Ocelove leskly kov,Primes zeleza,!
16130 DATA 55,133,0.86,1870,28.4,[Xe]6s1,R.W.Bunsen a G.R.Kirchhof,Stribrnobily kov,Pri reakci s vodou se vzniti,!
16140 DATA 50,119,1.7,7280,232,[Kr]4d10 5s2 5p2,Starovek,Stribrnobyli leskly a mekky kov,!
16150 DATA 96,247,1.2,-,-,[Rn]5f7 6d1 7s2,1944 G.T.Seaborg, ,Radioaktivni prvek,!
16160 DATA 19,39.1,0.91,860,63.2,[Ar]4s1,1807 H.Davy,Stribrnobily leskly kov,Pri reakci s vodou se vzniti,!
16170 DATA 7,14.0,3.1,1.15,-210,[He]2s2 2p3,1772 D.Rutherford,Bezbarvy plyn bez chuti a zapachu,Vetsina vzduchu,!
16180 DATA 66,163,1.1,8540,1410,[Xe]4f10 5d0 6s2,P.E.Lecoq de Boisbaudran,!
16190 DATA 99,254,1.2,-,-,[Rn]5f11 6d0 7s2,1952 A.Ghiorso, ,Radioaktivni prvek,!
16200 DATA 68,167,1.1,8540,1410,[Xe]4f12 5d0 6s2,C.G.Mosander, ,!
16210 DATA 63,152,1.0,5260,826,[Xe]4f7 5d0 6s2,E.Demarcay,!
16220 DATA 100,257,1.2,-,-,[Rn]5f12 6d0 7s2,1953 A.Ghiorso, ,Radioaktivni prvek,!
16230 DATA 9,19,4.1,1.56,-220,[He]2s2 2p5,1886 H.Moissan,Zlutozeleny plyn,Nejreaktivnejsi prvek,!
16240 DATA 15,31,2.1,1820,44.2,[Ne]3s2 3p3,1674 H.Brand,Mnoho forem (bily;cerny;cerveny...),Svetelkuje,!
16250 DATA 87,223,0.86,-,27,[Rn]7s1,1939 M.Pereyova, ,Radioaktivni prvek,!
16260 DATA 64,157,1.1,7890,1310,[Xe]4f7 5d1 6s2,G. de Marignac,!
16270 DATA 31,69.7,1.8,3910,29.8,[Ar]3d10 4s2 4p1,1875 P.E.Lecoq de Boisbaudran,Bily leskly kov,Elektronika,!
16280 DATA 32,72.6,2.0,10200,2620,[Kr]4d5 5s1,1885 C.Winkler,Tmave sedy prasek,Polokov,!
16290 DATA 72,178,1.2,13100,2220,[Xe]4f14 5d2 6s2,1922 G.von Hevesy a D.Coster,Leskly kov,Je podobny zirkoniu,!
16300 DATA 2,4.0,-,0.164,271,1s2,1894 W.Ramsay, ,Nejobtizneji zkapalnitelny plyn,!
16310 DATA 13,27.0,1.5,2700,660,[Ne]3s2 3p1,1754 A.S.Marggraf,Stribrnobily kov,Dobry vodic tepla a elektriny,!
16320 DATA 67,165,1.1,8800,1460,[Xe]4f11 5d0 6s2,P.Th.Cleve,!
16330 DATA 12,24.3,1.2,1740,649,[Ne]3s2,17.st,Stribrnobily leskly kov,!
16340 DATA 17,35.5,2.8,2.96,-101,[Ne]3s2 3p5,1774 K.W.Scheele,Zlutozelena kapalina,Jedovaty,!
16350 DATA 24,52.0,1.6,7190,1860,[Ar]4s2 3d4,1797 L.N.Vauquelin,Bily leskly tvrdy kov,Jedovaty,!
16360 DATA 49,115,1.5,7310,157,[Kr]4d10 5s2 5p1,1863 F.Reich a H.Th.Richter,Stribrnobily leskly kov,Barveni skla,!
16365 DATA 77,192,1.5,22500,2450,[Xe]4f14 5d7 6s2,1804 S.Tennant,Bily leskly kov,Odolava kyselinam a hydroxidum,!
16380 DATA 53,127,2.2,4940,114,[Kr]4d10 5s2 5p5,1811 B.Courtois,Krystalicka kovove leskla latka,Sublimuje,!
16390 DATA 48,112,1.5,8650,321,[Kr]4d10 5s2,1817 F.Stromeyer,Bily leskly kov,Jedovaty,!
16400 DATA 98,251,1.2,-,-,[Rn]5f10 6d0 7s2,1950 S.G.Thompson, ,Radioaktivni prvek,!
16410 DATA 27,58.9,1.7,8830,1490,[Ar]3d7 4s2,1735 G.Brandt,Sedy leskly kov,!
16420 DATA 36,83.8,-,3.44,-157,[Ar]3d10 4s2 4p6,1898 W.Ramsay a M.W.Traves,Barevny plyn,!
16430 DATA 14,28.1,1.7,2330,1410,[Ne]3s2 3p3,1823 J.J.Berzelius,Hneda cerna krystalicka latka,Velmi tvrdy,!
16440 DATA 8,16.0,3.5,1.31,-219,[He]2s2 2p4,1774 J.Preistleyem,Plyn bez barvy a zapachu,Nejrozsirenejsi prvek,!
16450 DATA 57,139,1.1,6170,920,[Xe]5d1 6s2,1839 C.G.Mosander,Leskly ocelove modre barvy,!
16460 DATA 103,260,1.2,-,-,[Rn]5f14 6d1 7s2,1961 A.Ghiorso, ,Radioaktivni prvek,!
16470 DATA 3,6.94,0.97,534,181,[He]2s1,1817 J.A.Arfvendson,Stribrnoleskly kov,!
16480 DATA 71,175,1.1,9840,1650,[Xe]4f14 5d1 6s2,C.Auer v.Welsbach a G.Urbain,!
16490 DATA 25,54.9,1.6,7430,1240,[Ar]3d5 4s2,1744 J.G.Gahn,Sedobily kov podobny zelezu,Je paromagneticky,!
16500 DATA 29,63.5,1.7,8930,1080,[Ar]3d10 4s1,Egypt;Babylonie,Cerveny kov,Soucast mincovniho stribra,!
16510 DATA 101,258,1.2,-,-,[Rn]5f13 6d10 7s2,1955 A.Ghiorso, ,Radioaktivni prvek,!
16520 DATA 42,95.9,1.2,10200,4650,[Kr]4d5 5s1,1778 K.W.Scheele,Stribrnobily leskly kov,Primes do oceli,!
16530 DATA 60,144.24,1.1,7000,1020,[Xe]5f4 5d0 6s2,C.Auer v.Welsbach,!
16540 DATA 10,20.2,-,0.828,-249,[He]2s2 2p6,1898 W.Ramsay a M.W.Travers,Plyn,Napln vybojek,!
16550 DATA 93,237,1.2,19500,637,[Rn]5f4 6d1 7s2,1940 E.M.McMillan a P.H.Abelson, ,Radioaktivni prvek,!
16560 DATA 28,58.7,1.7,8900,1450,[Ar]3d8 4s2,1751 A.F.Cronstedt,Stribrnobily leskly kov,!
16570 DATA 41,92.9,1.2,8570,2480,[Kr]4d4 5s1,1802 H.Rose,Sedobily leskly kov,Odolny lucavce kralovske,!
16580 DATA 102,259,1.2,-,-,[Rn]5f14 6d0 7s2,1958 A.Ghiorso, ,Radioaktivni prvek,!
16590 DATA 82,207,1.5,11300,328,[Xe]4f14 5d10 6s2 6p2,Starovek,Sedomodre bily leskly kov,Castecne odrazi zareni,!
16600 DATA 76,190,1.5,22600,2730,[Xe]4f14 5d6 6s2,1804 S.Tennant,Modrave sedy kov,Nejvetsi hustota z kovu,!
16610 DATA 46,106,1.3,12000,1550,[Kr]4d10 5s0,1803 W.H.Wollaston,Stribrnobily kov;vysoky lesk,Vyroba sperku,!
16620 DATA 78,195,1.4,21400,1770,[Xe]4f14 5d9 6s1,1748 Don Antonio de Ulloa,Leskly sedobily kov,Odolna kyselinam,!
16630 DATA 94,244,1.2,19800,640,[Rn]5f6 6d0 7s2,1940 G.TSeaborg, ,Radioaktivni prvek,!
16640 DATA 84,209,1.8,9200,254,[Xe]4f14 5d10 6s2 6p4,1898 M.Curie-Sklodowska, ,Radioaktivni prvek,!
16650 DATA 59,141,1.1,6770,935,[Xe]4f3 5d0 6s2,C.Auer v.Welsbah,!
16660 DATA 61,145,1.1,-,1030,[Xe]4f5 5d0 6s2,H.B.Law a M.L.Pool a J.D.Kurbatov,!
16670 DATA 91,231,1.1,15400,12300,[Rn]5f2 6d1 7s2, , ,Radioaktivni prvek,!
16680 DATA 88,226,0.97,5000,700,[Rn]7s2,1898 M.Curie-Sklodovska,Leskly kov.Na vzduchu zcerna,Radioaktivni prvek,!
16690 DATA 86,222,-,8.95,-71,[Xe]4f14 5d10 6s2 6p6,1900 E.Rutherford a F.soddy, ,Radioaktivni,!
16700 DATA 75,186,1.5,21000,3180,[Xe]4f14 5d5 6s2,1925 W.Noddack a I.Tackeova,Sedobily kov,!
16710 DATA 45,103,1.4,12400,1960,[Kr]4d8 5s1,1803 W.H.Wollaston,Nasedly leskly kov,Odolava kyselinam,!
16720 DATA 80,201,1.4,13500,-38.8,[Xe]4f14 5d10 6f2,Starovek,Kapalny stribrnobily leskly kov,Jedovata,!
16730 DATA 37,85.5,0.89,15300,38.9,[Kr]5s1,1861 R.W.Bunsen a G.R.Kirchhoff,Stribrnobily leskly kov,!
16740 DATA 44,101,1.4,12200,2500,[Kr]4d7 5s1,1845 C.Claus,Sedobily krehky kov,!
16750 DATA 62,150,1.1,7540,1070,[Xe]4f6 5d0 6s2,P.E.Lecoq de Boisbaudran,!
16760 DATA 34,79,2.5,4790,217,[Ar]3d10 4s2 4p4,1817 J.J.Berzelius,Cerveny,!
16770 DATA 16,32.1,2.4,2070,115,[Ne]3s2 3p4,Starovek,Tuha zluta latka bez chuti a zapachu,!
16780 DATA 21,45,1.2,3100,1540,[Ar]3d1 4s2,1879 L.F.Nilson,Svetle sedy leskly kov,!
16790 DATA 11,23.0,1.0,966,97.8,[Ne]3s1,1807 H.Davy,Stribrite bily leskly kov,Na vzduchu zhori,!
16800 DATA 38,87.6,0.99,2600,768,[Kr]5s2,1790 A.Crawford,Bily kov,Na vzduchu shori,!
16810 DATA 47,108,1.4,10500,962,[Kr]4d10 5s2,Starovek,Bily leskly kov,Nejlepe vodi el.proud,!
16820 DATA 73,181,1.3,16600,2980,[Xe]4f14 5d4 6s2,1802 A.G.Ekeberg,Leskly tezky kov,Odolny kyselinam,!
16830 DATA 43,97.9,1.4,11500,2140,[Kr]4d5 5s2,1937 C.Perrier a E.Segre,!
16840 DATA 52,128,2.0,6240,450,[Kr]4d10 5s2 5p4,1782 J.F.Muller von Reichenstein,Stribrnobily leskly kov,!
16850 DATA 65,159,1.1,8270,1360,[Xe]4f9 5d0 6s2,C.G.Mosander,!
16860 DATA 81,204,1.4,11800,303,[Xe]4f14 5d10 6s2 6p1,1861 sir William Crookes,!Podobne olovu,!
16870 DATA 90,232,1.1,11700,1750,[Rn]5f0 6d2 7s2,1828 J.J.Berzelius,Bily leskly kov,!
16880 DATA 69,169,1.1,9330,1540,[Xe]4f13 5d0 6s2,P.Th.Cleve,!
16890 DATA 22,47.9,1.3,4500,1660,[Ar]3d2 4s2,1789 W.Gregor,Kov oceloveho lesku,!
16900 DATA 6,12.0,2.5,2250,3730,[He]2s2 2p2,Starovek,Mnoho forem,!
16910 DATA 92,238,1.2,19000,1130,[Rn]5f3 6d1 7s2,1789 M.H.Klaproth,Leskly bily kov,Radioaktivni prvek,!
16920 DATA 23,50.9,1.5,6110,1920,[Ar]3d3 4s2,1801 A.M.del Rio,Sedy ocelove leskly kov,!
16930 DATA 20,40.1,1.0,1550,939,[Ar]4s2,1808 H.Davy,Stribrnobily leskly kov,!
16940 DATA 1,1.01,2.2,0.0826,-259,1s1,16.st.,Bezbarvy bez chuti a zapachu,Nejlehci prvek,!
16950 DATA 74,184,1.4,19300,3420,[[Xe]4f14 5d4 6s2,1781,K.W.Scheele,Leskly bily kov,!
16960 DATA 54,131,-,5.42,-112,[Kr]4d10 5s2 5p6,1898 W.Ramsay a M.W.Traves,Pod napetim sviti modre ci zelene,!
16970 DATA 70,173,1.1,6980,824,[Xe]4f14 5d0 6s2,G.de Marignac,!
16980 DATA 39,88.9,1.1,4470,1510,[Kr]4d1 5s2,1794 J.Gadolin,Sede stale,!
16990 DATA 30,65.4,1.7,7130,420,[Ar]3d10 4s2,Starovek,Leskly modrobily kov,Kationt zinku je jedovaty,!
17000 DATA 40,91.2,1.2,6510,1850,[Kr]4d2 5s2,1787 M.H.Klaproth,Sedy leskly kov,!
17010 DATA 79,197,1.4,19300,1060,[Xe]4f14 5d10 6s1,Starovek,Svetle zluty leskly kov,Mincovni kov,!
17020 DATA 26,55.8,1.6,7870,1540,[Ar]3d6 4s2,Starovek-Egypt,Bily leskly kov,!
17110 DATA Z,2,10,18,36,54,80,-,39,Znacka,He,Ne,Ar,Kr,Xe,Rn,-,79,Konfigurace,1s2,[He]2s2 2p6,[Ne]3s2 3p6
17115 DATA [Ar]4d10 4s2 4p6,[Kr]4d10 5s2 5p6,[Xe]4f14 5d10 6s2 6p6,-,205,T.tani,-272,-249,-189,-157,-112,-71
17116 DATA -,255,T.varu,-269,-246,-186,-153,-108,-62,!,VZACNE PLYNY
17117 DATA jsou v malem pomeru soucasti vzduchu.Nejznamejsi - Helium,se pouziva jako vodic nebo ochranny plyn.
17118 DATA Ostatni vzacne plyny se pouzivaji jako napln osvetlovacich trubic.
17119 DATA Radioaktivni RADON se v silne zredenych roztocich pouziva k lecebnym ucelum.,!
17120 DATA Z,9,17,35,53,85,-,39,Znacka,F,Cl,Br,I,At,-,79,Konfigurace,[He]2s2 2p5,[Ne]3s2 3p5,[Ar]3d10 4s2 4p
17121 DATA [Kr]4d10 5s2 5p5,[Xe]4f14 5d10 6s2 6p5,-,205,T.tani,-219.6,-101,-7.3,113.6,382,-,255,T.varu,-188,-35,58.8
17122 DATA 184.4,/,!,HALOGENY, maji 7 valencnich elektronu.Za beznych podminek existuji jako,dvouatomove molekuly.
17123 DATA Nejvice se pouziva CHLOR napr. na vyrobu plastu a HCl.BROM a JOD se pouziva
17124 DATA k vyrobe jodove tinktury.Vsechny halogeny jsou jedovate.,!
17130 DATA Z,16,34,52,8,84,-,45,Znacka,S,Se,Te,O,Po,-,83,Konfigurace,[Ne]3s2 3p4,[Ar]3d10 4s2 4p4,[Kr]4d10 5s2 5p4
17131 DATA [He]2s2 2p4,[Xe]4f14 5d10 6s2 6p4,-,207,T.tani,119,220,452,-219,254,-,257,T.varu,445,688,1390,-183, /,!
17132 DATA CHALKOGENY,mali 6 valencnich elektronu.S vyjimkou O jsou vsechny pevne latky.
17133 DATA Sira je zakladni surovinou pro chemicky prumysl.Dovazime ji z PLR.
17134 DATA Selen a tellur jsou v prirode vzacne. Radioaktivni polonium je velmi vzacny,kov.(obsazen ve smolinci),!
17140 DATA Z,7,15,33,51,83,-,43,Znacka,N,P,As,Sb,Bi,-,83,Konfigurace,[He]2s2 2p3,[Ne]3s2 3p3,[Ar]3d10 4s2 4p3
17141 DATA [Kr]4d10 5s2 5p3,[Xe]4f14 5p10 6s2 6p3,-,207,T.tani,-210,44.1,817,630,271,-,257,T.varu,-196,280,633
17142 DATA 1640,1560,!,PRVKY V.A SKUPINY,maji 5 valencnich elektronu.N je plyn.P je nekovova pevna
17143 DATA latka.As a Sb jsou polokovy a Bi je kov.N a P jsou dulezite biogenni latky.
17144 DATA N se vyrabi frakcni destilaci zkapalneneho vzduchu.Uskladnuje se v tlakovych
17145 DATA lahvich oznacenych zelenym pruhem.,!
17150 DATA Z,6,14,32,50,82,-,45,Znacka,C,Si,Ge,Sn,Pb,-,83,konfigurace,[He]2s2 2p2,[Ne]3s2 3p2
17151 DATA [Ar]3d10 4s2 4p2,[Kr]4d10 5s2 5p2,[Xe]4f14 5d10 6s2 6p2,-,207,T.tani, /,1414,958,232,327,-,257
17152 DATA T.varu, /,2680,2830,2270,1725,!,PRVKY IV.A SKUPINY
17153 DATA jsou pevne latky.C a Si jsou nekovy.Ge je polokov,a Sn a Pb jsou kovy.
17154 DATA V prirode se volny vyskytuje jen uhlik a ostatni prvky pouze ve slouceninach.
17155 DATA Si je druhym nejrozsirenejsim prvkem v prirode.Tvori zaklad zemske kury.
17156 DATA Ge se vyskytuje velmi vzacne.,!
17160 DATA Z,5,13,31,49,81,-,43,Znacka,B,Al,Ga,In,Tl,-,83,Konfigurace,[He]2s2 2p1,[Ne]3s2 3p1,[Ar]3d10 4s2 4p1
17161 DATA [Kr]4d10 5s2 5p1,[Xe]4f14 5d10 6s2 6p1,-,206,T.tani,2027,660,30,156,303,-,255,T.varu,3927,2447,2237
17162 DATA 2047,1470,!,PRVKY III.A SKUPINY,maji 3 valencni elektrony a jsou kovy.Vyskytuji se jen
17163 DATA ve slouceninach.Al je tretim nejrozsirenejsim prvkem v zemske kure.
17164 DATA Atomy prvku III.A skupiny maji odlisne vlastnosti.,!
18000 DATA =,Znacka,H,O,Li;Na;K;Rb;Cs;Ag,Mg;Ca;Sr;Ba;Zn,Cu;Hg,Au,Fe;Co,Al,Cr,C,Si,Sn;Pb,N,S,P;As;Sb
18005 DATA -,115, Hodnota oxidacniho cisla,zaporna,-I,-I;-II, , , , , , , ,-IV,-IV, ,-III,-II,-III
18010 DATA -,215, ,kladna,I, ,I,II,I;II,III,II;III,III,III;VI,II;IV,IV,II;IV,I;II;III;IV;V;,IV;VI,III;V,!
19000 DATA Proton.c.,Molarni m,Elektroneg.,Hustota,Teplota tani,Elektron.konfig.,Rok objevu,Vzhled,Poznamky,!
29000 REM
29010 FOR EE=1 TO LEN(A$)
29015 IF A$(EE,EE)="0" THEN A$(EE,EE)="O"
29020 NEXT EE
29030 RETURN
29999 GOTO 29999
30000 REM
30010 S=0:RESTORE 30100
30020 FOR A=1536 TO 1746:READ D:POKE A,D:S=S+D:NEXT A:RETURN
30030 IF S<>25816 THEN ? "DATEN-FEHLER!":STOP
30100 DATA 104,104,133,209,104,133,208,104,104,133,210,104,104,133
30110 DATA 214,169,0,133,211,133,205,133,213,165,92,133,216,165,91
30120 DATA 102,216,106,102,216,106,133,212,165,212,201,80,176,103
30130 DATA 106,102,213,165,94,133,203,165,95,133,204,160,0,132,207
30140 DATA 164,211,177,208,41,127,201,96,176,11,201,32,176,4,9,64
30150 DATA 208,3,56,233,32,10,10,38,207,10,38,207,133,206,24,165,207
30160 DATA 109,244,2,133,207,162,8,160,0,177,206,36,214,16,3,32,147
30170 DATA 6,32,191,6,36,214,80,3,32,191,6,230,206,202,208,230,230
30180 DATA 212,36,214,16,6,36,213,48,4,16,4,230,212,230,205,230,211
30190 DATA 198,210,208,147,96,133,215,169,0,133,216,160,3,185,183
30200 DATA 6,36,215,240,7,185,187,6,5,216,133,216,136,16,239,165,216
30210 DATA 36,213,48,4,10,10,10,10,96,1,4,16,32,1,2,4,8,72,164,205
30220 DATA 17,203,145,203,24,165,203,105,40,133,203,144,2,230,204,104,96
31000 REM
31005 IF LEN(P$)<=2 THEN 31040
31010 FOR W=1 TO LEN(P$)
31015 IF ASC(P$(W,W))>=97 THEN NEXT W:GOTO 31035
31020 AS=ASC(P$(W,W))
31025 P$(W,W)=CHR$(AS+32)
31030 NEXT W
31035 RETURN
31040 IF ASC(P$(1,1))>=97 THEN AS=ASC(P$(1,1)):P$(1,1)=CHR$(AS-32)
31043 IF LEN(P$)=1 THEN RETURN
31045 IF ASC(P$(2,2))<97 THEN AS=ASC(P$(2,2)):P$(2,2)=CHR$(AS+32)
31050 RETURN
31100 REM
31105 FOR SO=1 TO 6:SOUND 0,50,10,10:NEXT SO:SOUND 0,0,0,0:POKE 764,255
31110 IF PEEK(764)<>33 THEN 31110
31120 POKE 764,255
32000 REM
32005 FOR SO=1 TO 6:SOUND 0,50,10,10:NEXT SO:SOUND 0,0,0,0
32010 RETURN
32500 GRAPHICS 0:SETCOLOR 1,1,1:POKE 710,10:?:?:? " Nashledanou":END
References
http://flop.atariportal.cz/dir1_27.htm
Listing downloads
Atari 8-bit Source code
