liste des éléments chimiques

1 REM ********************************************************************************PARTIE I DE L'AFFICHAGE DE LA TABLE
10 CLS : KEY OFF: RANDOMIZE TIMER
20 COLOR 1, 4, 2: CLS
30 LOCATE 3, 22: PRINT "- Tableau des El‚ments P‚riodiques -"
40 LOCATE 4, 22: PRINT "     - Affichage des Elements -"
41 LOCATE 5, 22: PRINT "      HydrogŠne I … Krypton IV "
50 COLOR 14: A$ = CHR$(205)
60 LOCATE 2, 20: PRINT CHR$(201)
70 LOCATE 2, 59: PRINT CHR$(187)
80 LOCATE 3, 20: PRINT CHR$(186)
90 LOCATE 3, 59: PRINT CHR$(186)
100 LOCATE 4, 20: PRINT CHR$(186)
110 LOCATE 4, 59: PRINT CHR$(186)
111 LOCATE 5, 20: PRINT CHR$(186)
112 LOCATE 5, 59: PRINT CHR$(186)
120 LOCATE 6, 20: PRINT CHR$(200)
130 LOCATE 6, 59: PRINT CHR$(188)
160 FOR A = 1 TO 38
170 LOCATE 2, 20 + A: PRINT A$
180 LOCATE 6, 20 + A: PRINT A$
190 NEXT A
195 PLAY "A": PLAY "A": PLAY "B": PLAY "E"
200 REM **********************************************************************CHOIX
2540 COLOR 2
2550 LOCATE 9, 10: PRINT CHR$(219); " Entrez le nom ou le symbole de l'El‚ment … consulter : "; CHR$(219)
2560 LOCATE 10, 10: PRINT CHR$(219); " (Tout en majuscule) "; CHR$(219)
2561 COLOR 1
2570 COLOR 14: LOCATE 14, 10: INPUT A$
2580 IF A$ = "HYDROGENE" OR A$ = "H" THEN GOTO 3730
2590 IF A$ = "HELIUM" OR A$ = "HE" THEN GOTO 4080
2600 IF A$ = "LITHIUM" OR A$ = "LI" THEN GOTO 4340
2610 IF A$ = "BERYLLIUM" OR A$ = "BE" THEN GOTO 4600
2620 IF A$ = "BORE" OR A$ = "B" THEN GOTO 7990
2630 IF A$ = "CARBONE" OR A$ = "C" THEN GOTO 8250
2640 IF A$ = "AZOTE" OR A$ = "N" THEN GOTO 8510
2650 IF A$ = "OXYGENE" OR A$ = "O" THEN GOTO 5130
2660 IF A$ = "FLUOR" OR A$ = "F" THEN GOTO 5390
2670 IF A$ = "NEON" OR A$ = "NE" THEN GOTO 5650
2680 IF A$ = "SODIUM" OR A$ = "NA" THEN GOTO 5910
2690 IF A$ = "MAGNESIUM" OR A$ = "MG" THEN GOTO 6170
2700 IF A$ = "ALUMINIUM" OR A$ = "AL" THEN GOTO 6430
2710 IF A$ = "SILICIUM" OR A$ = "SI" THEN GOTO 6690
2720 IF A$ = "PHOSPHORE" OR A$ = "P" THEN GOTO 6950
2730 IF A$ = "SOUFRE" OR A$ = "S" THEN GOTO 7210
2740 IF A$ = "CHLORE" OR A$ = "CL" THEN GOTO 7470
2750 IF A$ = "ARGON" OR A$ = "AR" THEN GOTO 7730
2760 IF A$ = "POTASSIUM" OR A$ = "K" THEN GOTO 8770
2770 IF A$ = "CALCIUM" OR A$ = "CA" THEN GOTO 9030
2780 IF A$ = "SCANDIUM" OR A$ = "SC" THEN GOTO 9290
2790 IF A$ = "TITANE" OR A$ = "TI" THEN GOTO 9550
2800 IF A$ = "VANADIUM" OR A$ = "V" THEN GOTO 9810
2810 IF A$ = "CHROME" OR A$ = "CR" THEN GOTO 10070
2820 IF A$ = "MANGANESE" OR A$ = "MN" THEN GOTO 10330
2830 IF A$ = "FER" OR A$ = "FE" THEN GOTO 10590
2840 IF A$ = "COBALT" OR A$ = "CO" THEN GOTO 10850
2850 IF A$ = "NICKEL" OR A$ = "NI" THEN GOTO 11110
2860 IF A$ = "CUIVRE" OR A$ = "CU" THEN GOTO 11370
2870 IF A$ = "ZINC" OR A$ = "ZN" THEN GOTO 11630
2880 IF A$ = "GALLIUM" OR A$ = "GA" THEN GOTO 11890
2890 IF A$ = "GERMANIUM" OR A$ = "GE" THEN GOTO 12150
2900 IF A$ = "ARSENIC" OR A$ = "AS" THEN GOTO 12410
2910 IF A$ = "SELENIUM" OR A$ = "SE" THEN GOTO 12670
2920 IF A$ = "BROME" OR A$ = "BR" THEN GOTO 12930
2930 IF A$ = "KRYPTON" OR A$ = "KR" THEN GOTO 13200
2940 LOCATE 14, 10: PRINT "                                             "
2950 GOTO 2570
3720 REM **********************************************************************AFFICHAGE DES DETAILS SUR LES ELEMENTS
3730 REM ********** HYDROGENE
3740 COLOR 1, 4, 2: CLS
3750 LOCATE 1, 20: PRINT "+---------------+"
3760 LOCATE 2, 20: PRINT "Ý HYDROGENE - H Ý"
3770 LOCATE 3, 20: PRINT "+---------------+"
3780 COLOR 2, 4, 2
3790 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
3800 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
3810 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
3820 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
3830 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
3840 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
3850 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
3860 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
3870 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
3880 COLOR 1, 4, 2
3890 LOCATE 6, 52: PRINT "H"
3900 LOCATE 7, 52: PRINT "1"
3910 LOCATE 8, 52: PRINT "I"
3920 LOCATE 9, 52: PRINT "I"
3930 LOCATE 10, 52: PRINT "m‚taux"
3940 LOCATE 11, 52: PRINT "Z = 1"
3950 LOCATE 12, 52: PRINT "1,0 g.mol-1"
3960 LOCATE 13, 52: PRINT "non"
3970 LOCATE 14, 52: PRINT "gaz"
3980 GOTO 3990
3990 REM **********************************************************************CHOIX DE FIN
4000 COLOR 14, 2: LOCATE 21, 10: PRINT " Retour au sommaire g‚n‚ral : 1         "
4010 COLOR 14, 2: LOCATE 22, 10: PRINT " Retour … la s‚lection : 2  Quitter : 3 "
4020 Z$ = INKEY$: IF Z$ = "" THEN GOTO 4020
4030 IF Z$ = "3" THEN SYSTEM: END
4040 IF Z$ = "1" THEN RUN "Sommaire"
4050 IF Z$ = "2" THEN GOTO 1
4070 PLAY "A": GOTO 4020
4080 REM ********** HELIUM
4090 COLOR 1, 4, 2: CLS
4100 LOCATE 1, 20: PRINT "+-------------+"
4110 LOCATE 2, 20: PRINT "Ý HELIUM - He Ý"
4120 LOCATE 3, 20: PRINT "+-------------+"
4130 COLOR 2, 4, 2
4140 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
4150 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
4160 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
4170 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
4180 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
4190 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
4200 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
4210 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
4220 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
4230 COLOR 1, 4, 2
4240 LOCATE 6, 52: PRINT "He"
4250 LOCATE 7, 52: PRINT "1"
4260 LOCATE 8, 52: PRINT "XVIII"
4270 LOCATE 9, 52: PRINT "gaz nobles"
4280 LOCATE 10, 52: PRINT "gaz nobles"
4290 LOCATE 11, 52: PRINT "Z = 2"
4300 LOCATE 12, 52: PRINT "4,0 g.mol-1"
4310 LOCATE 13, 52: PRINT "non"
4320 LOCATE 14, 52: PRINT "gaz"
4330 GOTO 3990
4340 REM ********** LITHIUM
4350 COLOR 1, 4, 2: CLS
4360 LOCATE 1, 20: PRINT "+--------------+"
4370 LOCATE 2, 20: PRINT "Ý LITHIUM - Li Ý"
4380 LOCATE 3, 20: PRINT "+--------------+"
4390 COLOR 2, 4, 2
4400 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
4410 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
4420 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
4430 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
4440 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
4450 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
4460 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
4470 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
4480 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
4490 COLOR 1, 4, 2
4500 LOCATE 6, 52: PRINT "Li"
4510 LOCATE 7, 52: PRINT "2"
4520 LOCATE 8, 52: PRINT "I"
4530 LOCATE 9, 52: PRINT "alcalin"
4540 LOCATE 10, 52: PRINT "m‚taux"
4550 LOCATE 11, 52: PRINT "Z = 3"
4560 LOCATE 12, 52: PRINT "6,9 g.mol-1"
4570 LOCATE 13, 52: PRINT "non"
4580 LOCATE 14, 52: PRINT "solide"
4590 GOTO 3990
4600 REM ********** BERYLLIUM
4610 COLOR 1, 4, 2: CLS
4620 LOCATE 1, 20: PRINT "+----------------+"
4630 LOCATE 2, 20: PRINT "Ý BERYLLIUM - Be Ý"
4640 LOCATE 3, 20: PRINT "+----------------+"
4650 COLOR 2, 4, 2
4660 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
4670 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
4680 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
4690 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
4700 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
4710 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
4720 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
4730 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
4740 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
4750 COLOR 1, 4, 2
4760 LOCATE 6, 52: PRINT "Be"
4770 LOCATE 7, 52: PRINT "2"
4780 LOCATE 8, 52: PRINT "II"
4790 LOCATE 9, 52: PRINT "II"
4800 LOCATE 10, 52: PRINT "m‚taux"
4810 LOCATE 11, 52: PRINT "Z = 4"
4820 LOCATE 12, 52: PRINT "9,0 g.mol-1"
4830 LOCATE 13, 52: PRINT "non"
4840 LOCATE 14, 52: PRINT "solide"
4850 GOTO 3990
5130 REM ********** OXYGENE
5140 COLOR 1, 4, 2: CLS
5150 LOCATE 1, 20: PRINT "+-------------+"
5160 LOCATE 2, 20: PRINT "Ý OXYGENE - O Ý"
5170 LOCATE 3, 20: PRINT "+-------------+"
5180 COLOR 2, 4, 2
5190 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5200 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5210 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
5220 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
5230 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
5240 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
5250 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
5260 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
5270 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
5280 COLOR 1, 4, 2
5290 LOCATE 6, 52: PRINT "O"
5300 LOCATE 7, 52: PRINT "2"
5310 LOCATE 8, 52: PRINT "XVI"
5320 LOCATE 9, 52: PRINT "XVI"
5330 LOCATE 10, 52: PRINT "non-m‚taux"
5340 LOCATE 11, 52: PRINT "Z = 8"
5350 LOCATE 12, 52: PRINT "16,0 g.mol-1"
5360 LOCATE 13, 52: PRINT "non"
5370 LOCATE 14, 52: PRINT "gaz"
5380 GOTO 3990
5390 REM ********** FLUOR
5400 COLOR 1, 4, 2: CLS
5410 LOCATE 1, 20: PRINT "+-----------+"
5420 LOCATE 2, 20: PRINT "Ý FLUOR - F Ý"
5430 LOCATE 3, 20: PRINT "+-----------+"
5440 COLOR 2, 4, 2
5450 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5460 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5470 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
5480 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
5490 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
5500 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
5510 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
5520 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
5530 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
5540 COLOR 1, 4, 2
5550 LOCATE 6, 52: PRINT "F"
5560 LOCATE 7, 52: PRINT "2"
5570 LOCATE 8, 52: PRINT "XVII"
5580 LOCATE 9, 52: PRINT "halogŠnes"
5590 LOCATE 10, 52: PRINT "non-m‚taux"
5600 LOCATE 11, 52: PRINT "Z = 9"
5610 LOCATE 12, 52: PRINT "19,0 g.mol-1"
5620 LOCATE 13, 52: PRINT "non"
5630 LOCATE 14, 52: PRINT "gaz"
5640 GOTO 3990
5650 REM ********** NEON
5660 COLOR 1, 4, 2: CLS
5670 LOCATE 1, 20: PRINT "+-----------+"
5680 LOCATE 2, 20: PRINT "Ý NEON - Ne Ý"
5690 LOCATE 3, 20: PRINT "+-----------+"
5700 COLOR 2, 4, 2
5710 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5720 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5730 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
5740 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
5750 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
5760 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
5770 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
5780 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
5790 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
5800 COLOR 1, 4, 2
5810 LOCATE 6, 52: PRINT "Ne"
5820 LOCATE 7, 52: PRINT "2"
5830 LOCATE 8, 52: PRINT "XVIII"
5840 LOCATE 9, 52: PRINT "gaz nobles"
5850 LOCATE 10, 52: PRINT "gaz nobles"
5860 LOCATE 11, 52: PRINT "Z = 10"
5870 LOCATE 12, 52: PRINT "20,2 g.mol-1"
5880 LOCATE 13, 52: PRINT "non"
5890 LOCATE 14, 52: PRINT "gaz"
5900 GOTO 3990
5910 REM ********** SODIUM
5920 COLOR 1, 4, 2: CLS
5930 LOCATE 1, 20: PRINT "+-------------+"
5940 LOCATE 2, 20: PRINT "Ý SODIUM - Na Ý"
5950 LOCATE 3, 20: PRINT "+-------------+"
5960 COLOR 2, 4, 2
5970 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5980 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5990 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6000 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6010 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6020 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6030 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6040 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6050 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6060 COLOR 1, 4, 2
6070 LOCATE 6, 52: PRINT "Na"
6080 LOCATE 7, 52: PRINT "3"
6090 LOCATE 8, 52: PRINT "I"
6100 LOCATE 9, 52: PRINT "alcalins"
6110 LOCATE 10, 52: PRINT "m‚taux"
6120 LOCATE 11, 52: PRINT "Z = 11"
6130 LOCATE 12, 52: PRINT "23,0 g.mol-1"
6140 LOCATE 13, 52: PRINT "non"
6150 LOCATE 14, 52: PRINT "solide"
6160 GOTO 3990
6170 REM ********** MAGNESIUM
6180 COLOR 1, 4, 2: CLS
6190 LOCATE 1, 20: PRINT "+----------------+"
6200 LOCATE 2, 20: PRINT "Ý MAGNESIUM - MG Ý"
6210 LOCATE 3, 20: PRINT "+----------------+"
6220 COLOR 2, 4, 2
6230 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
6240 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
6250 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6260 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6270 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6280 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6290 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6300 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6310 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6320 COLOR 1, 4, 2
6330 LOCATE 6, 52: PRINT "Mg"
6340 LOCATE 7, 52: PRINT "3"
6350 LOCATE 8, 52: PRINT "II"
6360 LOCATE 9, 52: PRINT "II"
6370 LOCATE 10, 52: PRINT "m‚taux"
6380 LOCATE 11, 52: PRINT "Z = 12"
6390 LOCATE 12, 52: PRINT "24,3 g.mol-1"
6400 LOCATE 13, 52: PRINT "non"
6410 LOCATE 14, 52: PRINT "solide"
6420 GOTO 3990
6430 REM ********** ALUMINIUM
6440 COLOR 1, 4, 2: CLS
6450 LOCATE 1, 20: PRINT "+----------------+"
6460 LOCATE 2, 20: PRINT "Ý ALUMINIUM - Al Ý"
6470 LOCATE 3, 20: PRINT "+----------------+"
6480 COLOR 2, 4, 2
6490 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
6500 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
6510 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6520 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6530 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6540 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6550 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6560 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6570 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6580 COLOR 1, 4, 2
6590 LOCATE 6, 52: PRINT "Al"
6600 LOCATE 7, 52: PRINT "3"
6610 LOCATE 8, 52: PRINT "XIII"
6620 LOCATE 9, 52: PRINT "XIII"
6630 LOCATE 10, 52: PRINT "m‚taux"
6640 LOCATE 11, 52: PRINT "Z = 13"
6650 LOCATE 12, 52: PRINT "27,0 g.mol-1"
6660 LOCATE 13, 52: PRINT "non"
6670 LOCATE 14, 52: PRINT "solide"
6680 GOTO 3990
6690 REM ********** SILICIUM
6700 COLOR 1, 4, 2: CLS
6710 LOCATE 1, 20: PRINT "+---------------+"
6720 LOCATE 2, 20: PRINT "Ý SILICIUM - Si Ý"
6730 LOCATE 3, 20: PRINT "+---------------+"
6740 COLOR 2, 4, 2
6750 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
6760 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
6770 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6780 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6790 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6800 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6810 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6820 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6830 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6840 COLOR 1, 4, 2
6850 LOCATE 6, 52: PRINT "Si"
6860 LOCATE 7, 52: PRINT "3"
6870 LOCATE 8, 52: PRINT "XIV"
6880 LOCATE 9, 52: PRINT "XIV"
6890 LOCATE 10, 52: PRINT "non-m‚taux"
6900 LOCATE 11, 52: PRINT "Z = 14"
6910 LOCATE 12, 52: PRINT "28,1 g.mol-1"
6920 LOCATE 13, 52: PRINT "non"
6930 LOCATE 14, 52: PRINT "solide"
6940 GOTO 3990
6950 REM ********** PHOSPHORE
6960 COLOR 1, 4, 2: CLS
6970 LOCATE 1, 20: PRINT "+---------------+"
6980 LOCATE 2, 20: PRINT "Ý PHOSPHORE - P Ý"
6990 LOCATE 3, 20: PRINT "+---------------+"
7000 COLOR 2, 4, 2
7010 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7020 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7030 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7040 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7050 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7060 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7070 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7080 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7090 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7100 COLOR 1, 4, 2
7110 LOCATE 6, 52: PRINT "P"
7120 LOCATE 7, 52: PRINT "3"
7130 LOCATE 8, 52: PRINT "XV"
7140 LOCATE 9, 52: PRINT "XV"
7150 LOCATE 10, 52: PRINT "non-m‚taux"
7160 LOCATE 11, 52: PRINT "Z = 15"
7170 LOCATE 12, 52: PRINT "31,0 g.mol-1"
7180 LOCATE 13, 52: PRINT "non"
7190 LOCATE 14, 52: PRINT "solide"
7200 GOTO 3990
7210 REM ********** SOUFRE
7220 COLOR 1, 4, 2: CLS
7230 LOCATE 1, 20: PRINT "+------------+"
7240 LOCATE 2, 20: PRINT "Ý SOUFRE - S Ý"
7250 LOCATE 3, 20: PRINT "+------------+"
7260 COLOR 2, 4, 2
7270 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7280 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7290 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7300 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7310 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7320 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7330 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7340 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7350 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7360 COLOR 1, 4, 2
7370 LOCATE 6, 52: PRINT "S"
7380 LOCATE 7, 52: PRINT "3"
7390 LOCATE 8, 52: PRINT "XVI"
7400 LOCATE 9, 52: PRINT "XVI"
7410 LOCATE 10, 52: PRINT "non-m‚taux"
7420 LOCATE 11, 52: PRINT "Z = 16"
7430 LOCATE 12, 52: PRINT "32,1 g.mol-1"
7440 LOCATE 13, 52: PRINT "non"
7450 LOCATE 14, 52: PRINT "solide"
7460 GOTO 3990
7470 REM ********** CHLORE
7480 COLOR 1, 4, 2: CLS
7490 LOCATE 1, 20: PRINT "+-------------+"
7500 LOCATE 2, 20: PRINT "Ý CHLORE - Cl Ý"
7510 LOCATE 3, 20: PRINT "+-------------+"
7520 COLOR 2, 4, 2
7530 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7540 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7550 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7560 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7570 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7580 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7590 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7600 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7610 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7620 COLOR 1, 4, 2
7630 LOCATE 6, 52: PRINT "Cl"
7640 LOCATE 7, 52: PRINT "3"
7650 LOCATE 8, 52: PRINT "XVII"
7660 LOCATE 9, 52: PRINT "halogŠnes"
7670 LOCATE 10, 52: PRINT "non-m‚taux"
7680 LOCATE 11, 52: PRINT "Z = 17"
7690 LOCATE 12, 52: PRINT "35,5 g.mol-1"
7700 LOCATE 13, 52: PRINT "non"
7710 LOCATE 14, 52: PRINT "gaz"
7720 GOTO 3990
7730 REM ********** ARGON
7740 COLOR 1, 4, 2: CLS
7750 LOCATE 1, 20: PRINT "+------------+"
7760 LOCATE 2, 20: PRINT "Ý ARGON - Ar Ý"
7770 LOCATE 3, 20: PRINT "+------------+"
7780 COLOR 2, 4, 2
7790 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7800 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7810 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7820 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7830 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7840 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7850 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7860 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7870 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7880 COLOR 1, 4, 2
7890 LOCATE 6, 52: PRINT "Ar"
7900 LOCATE 7, 52: PRINT "3"
7910 LOCATE 8, 52: PRINT "XVIII"
7920 LOCATE 9, 52: PRINT "gaz nobles"
7930 LOCATE 10, 52: PRINT "gaz nobles"
7940 LOCATE 11, 52: PRINT "Z = 18"
7950 LOCATE 12, 52: PRINT "39,9 g.mol-1"
7960 LOCATE 13, 52: PRINT "non"
7970 LOCATE 14, 52: PRINT "gaz"
7980 GOTO 3990
7990 REM ********** BORE
8000 COLOR 1, 4, 2: CLS
8010 LOCATE 1, 20: PRINT "+----------+"
8020 LOCATE 2, 20: PRINT "Ý BORE - B Ý"
8030 LOCATE 3, 20: PRINT "+----------+"
8040 COLOR 2, 4, 2
8050 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8060 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8070 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8080 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8090 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8100 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8110 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8120 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8130 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8140 COLOR 1, 4, 2
8150 LOCATE 6, 52: PRINT "B"
8160 LOCATE 7, 52: PRINT "2"
8170 LOCATE 8, 52: PRINT "XIII"
8180 LOCATE 9, 52: PRINT "XIII"
8190 LOCATE 10, 52: PRINT "non-m‚taux"
8200 LOCATE 11, 52: PRINT "Z = 5"
8210 LOCATE 12, 52: PRINT "10,8 g.mol-1"
8220 LOCATE 13, 52: PRINT "non"
8230 LOCATE 14, 52: PRINT "solide"
8240 GOTO 3990
8250 REM ********** CARBONE
8260 COLOR 1, 4, 2: CLS
8270 LOCATE 1, 20: PRINT "+-------------+"
8280 LOCATE 2, 20: PRINT "Ý CARBONE - C Ý"
8290 LOCATE 3, 20: PRINT "+-------------+"
8300 COLOR 2, 4, 2
8310 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8320 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8330 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8340 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8350 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8360 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8370 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8380 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8390 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8400 COLOR 1, 4, 2
8410 LOCATE 6, 52: PRINT "C"
8420 LOCATE 7, 52: PRINT "2"
8430 LOCATE 8, 52: PRINT "XIV"
8440 LOCATE 9, 52: PRINT "XIV"
8450 LOCATE 10, 52: PRINT "non-m‚taux"
8460 LOCATE 11, 52: PRINT "Z = 6"
8470 LOCATE 12, 52: PRINT "12,0 g.mol-1"
8480 LOCATE 13, 52: PRINT "non"
8490 LOCATE 14, 52: PRINT "solide"
8500 GOTO 3990
8510 REM ********** AZOTE
8520 COLOR 1, 4, 2: CLS
8530 LOCATE 1, 20: PRINT "+-----------+"
8540 LOCATE 2, 20: PRINT "Ý AZOTE - N Ý"
8550 LOCATE 3, 20: PRINT "+-----------+"
8560 COLOR 2, 4, 2
8570 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8580 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8590 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8600 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8610 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8620 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8630 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8640 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8650 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8660 COLOR 1, 4, 2
8670 LOCATE 6, 52: PRINT "N"
8680 LOCATE 7, 52: PRINT "2"
8690 LOCATE 8, 52: PRINT "XV"
8700 LOCATE 9, 52: PRINT "XV"
8710 LOCATE 10, 52: PRINT "non-m‚taux"
8720 LOCATE 11, 52: PRINT "Z = 7"
8730 LOCATE 12, 52: PRINT "14,0 g.mol-1"
8740 LOCATE 13, 52: PRINT "non"
8750 LOCATE 14, 52: PRINT "gaz"
8760 GOTO 3990
8770 REM ********** POTASSIUM
8780 COLOR 1, 4, 2: CLS
8790 LOCATE 1, 20: PRINT "+---------------+"
8800 LOCATE 2, 20: PRINT "Ý POTASSIUM - K Ý"
8810 LOCATE 3, 20: PRINT "+---------------+"
8820 COLOR 2, 4, 2
8830 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8840 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8850 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8860 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8870 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8880 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8890 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8900 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8910 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8920 COLOR 1, 4, 2
8930 LOCATE 6, 52: PRINT "K"
8940 LOCATE 7, 52: PRINT "4"
8950 LOCATE 8, 52: PRINT "I"
8960 LOCATE 9, 52: PRINT "alcalins"
8970 LOCATE 10, 52: PRINT "m‚taux"
8980 LOCATE 11, 52: PRINT "Z = 19"
8990 LOCATE 12, 52: PRINT "39,1 g.mol-1"
9000 LOCATE 13, 52: PRINT "non"
9010 LOCATE 14, 52: PRINT "solide"
9020 GOTO 3990
9030 REM ********** CALCIUM
9040 COLOR 1, 4, 2: CLS
9050 LOCATE 1, 20: PRINT "+--------------+"
9060 LOCATE 2, 20: PRINT "Ý CALCIUM - Ca Ý"
9070 LOCATE 3, 20: PRINT "+--------------+"
9080 COLOR 2, 4, 2
9090 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9100 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9110 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9120 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9130 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9140 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9150 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9160 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9170 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9180 COLOR 1, 4, 2
9190 LOCATE 6, 52: PRINT "Ca"
9200 LOCATE 7, 52: PRINT "4"
9210 LOCATE 8, 52: PRINT "II"
9220 LOCATE 9, 52: PRINT "II"
9230 LOCATE 10, 52: PRINT "m‚taux"
9240 LOCATE 11, 52: PRINT "Z = 20"
9250 LOCATE 12, 52: PRINT "40,1 g.mol-1"
9260 LOCATE 13, 52: PRINT "non"
9270 LOCATE 14, 52: PRINT "solide"
9280 GOTO 3990
9290 REM ********** SCANDIUM
9300 COLOR 1, 4, 2: CLS
9310 LOCATE 1, 20: PRINT "+---------------+"
9320 LOCATE 2, 20: PRINT "Ý SCANDIUM - Sc Ý"
9330 LOCATE 3, 20: PRINT "+---------------+"
9340 COLOR 2, 4, 2
9350 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9360 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9370 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9380 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9390 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9400 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9410 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9420 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9430 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9440 COLOR 1, 4, 2
9450 LOCATE 6, 52: PRINT "Sc"
9460 LOCATE 7, 52: PRINT "4"
9470 LOCATE 8, 52: PRINT "III"
9480 LOCATE 9, 52: PRINT "m‚taux de transition"
9490 LOCATE 10, 52: PRINT "m‚taux"
9500 LOCATE 11, 52: PRINT "Z = 21"
9510 LOCATE 12, 52: PRINT "45,0 g.mol-1"
9520 LOCATE 13, 52: PRINT "non"
9530 LOCATE 14, 52: PRINT "solide"
9540 GOTO 3990
9550 REM ********** TITANE
9560 COLOR 1, 4, 2: CLS
9570 LOCATE 1, 20: PRINT "+-------------+"
9580 LOCATE 2, 20: PRINT "Ý TITANE - Ti Ý"
9590 LOCATE 3, 20: PRINT "+-------------+"
9600 COLOR 2, 4, 2
9610 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9620 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9630 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9640 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9650 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9660 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9670 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9680 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9690 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9700 COLOR 1, 4, 2
9710 LOCATE 6, 52: PRINT "Ti"
9720 LOCATE 7, 52: PRINT "4"
9730 LOCATE 8, 52: PRINT "IV"
9740 LOCATE 9, 52: PRINT "m‚taux de transition"
9750 LOCATE 10, 52: PRINT "m‚taux"
9760 LOCATE 11, 52: PRINT "Z = 22"
9770 LOCATE 12, 52: PRINT "47,9 g.mol-1"
9780 LOCATE 13, 52: PRINT "non"
9790 LOCATE 14, 52: PRINT "solide"
9800 GOTO 3990
9810 REM ********** VANADIUM
9820 COLOR 1, 4, 2: CLS
9830 LOCATE 1, 20: PRINT "+--------------+"
9840 LOCATE 2, 20: PRINT "Ý VANADIUM - V Ý"
9850 LOCATE 3, 20: PRINT "+--------------+"
9860 COLOR 2, 4, 2
9870 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9880 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9890 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9900 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9910 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9920 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9930 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9940 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9950 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9960 COLOR 1, 4, 2
9970 LOCATE 6, 52: PRINT "V"
9980 LOCATE 7, 52: PRINT "4"
9990 LOCATE 8, 52: PRINT "V"
10000 LOCATE 9, 52: PRINT "m‚taux de transition"
10010 LOCATE 10, 52: PRINT "m‚taux"
10020 LOCATE 11, 52: PRINT "Z = 23"
10030 LOCATE 12, 52: PRINT "50,9 g.mol-1"
10040 LOCATE 13, 52: PRINT "non"
10050 LOCATE 14, 52: PRINT "solide"
10060 GOTO 3990
10070 REM ********** CHROME
10080 COLOR 1, 4, 2: CLS
10090 LOCATE 1, 20: PRINT "+-------------+"
10100 LOCATE 2, 20: PRINT "Ý CHROME - Cr Ý"
10110 LOCATE 3, 20: PRINT "+-------------+"
10120 COLOR 2, 4, 2
10130 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10140 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10150 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10160 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10170 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10180 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10190 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10200 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10210 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
10220 COLOR 1, 4, 2
10230 LOCATE 6, 52: PRINT "Cr"
10240 LOCATE 7, 52: PRINT "4"
10250 LOCATE 8, 52: PRINT "VI"
10260 LOCATE 9, 52: PRINT "m‚taux de transition"
10270 LOCATE 10, 52: PRINT "m‚taux"
10280 LOCATE 11, 52: PRINT "Z = 24"
10290 LOCATE 12, 52: PRINT "52,0 g.mol-1"
10300 LOCATE 13, 52: PRINT "non"
10310 LOCATE 14, 52: PRINT "solide"
10320 GOTO 3990
10330 REM ********** MANGANESE
10340 COLOR 1, 4, 2: CLS
10350 LOCATE 1, 20: PRINT "+----------------+"
10360 LOCATE 2, 20: PRINT "Ý MANGANESE - Mn Ý"
10370 LOCATE 3, 20: PRINT "+----------------+"
10380 COLOR 2, 4, 2
10390 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10400 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10410 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10420 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10430 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10440 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10450 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10460 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10470 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
10480 COLOR 1, 4, 2
10490 LOCATE 6, 52: PRINT "Mn"
10500 LOCATE 7, 52: PRINT "4"
10510 LOCATE 8, 52: PRINT "VII"
10520 LOCATE 9, 52: PRINT "m‚taux de transition"
10530 LOCATE 10, 52: PRINT "m‚taux"
10540 LOCATE 11, 52: PRINT "Z = 25"
10550 LOCATE 12, 52: PRINT "54,9 g.mol-1"
10560 LOCATE 13, 52: PRINT "non"
10570 LOCATE 14, 52: PRINT "solide"
10580 GOTO 3990
10590 REM ********** FER
10600 COLOR 1, 4, 2: CLS
10610 LOCATE 1, 20: PRINT "+----------+"
10620 LOCATE 2, 20: PRINT "Ý FER - Fe Ý"
10630 LOCATE 3, 20: PRINT "+----------+"
10640 COLOR 2, 4, 2
10650 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10660 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10670 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10680 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10690 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10700 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10710 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10720 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10730 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
10740 COLOR 1, 4, 2
10750 LOCATE 6, 52: PRINT "Fe"
10760 LOCATE 7, 52: PRINT "4"
10770 LOCATE 8, 52: PRINT "VIII"
10780 LOCATE 9, 52: PRINT "m‚taux de transition"
10790 LOCATE 10, 52: PRINT "m‚taux"
10800 LOCATE 11, 52: PRINT "Z = 26"
10810 LOCATE 12, 52: PRINT "55,8 g.mol-1"
10820 LOCATE 13, 52: PRINT "non"
10830 LOCATE 14, 52: PRINT "solide"
10840 GOTO 3990
10850 REM
10860 COLOR 1, 4, 2: CLS
10870 LOCATE 1, 20: PRINT "+-------------+"
10880 LOCATE 2, 20: PRINT "Ý COBALT - Co Ý"
10890 LOCATE 3, 20: PRINT "+-------------+"
10900 COLOR 2, 4, 2
10910 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10920 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10930 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10940 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10950 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10960 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10970 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10980 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10990 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11000 COLOR 1, 4, 2
11010 LOCATE 6, 52: PRINT "Co"
11020 LOCATE 7, 52: PRINT "4"
11030 LOCATE 8, 52: PRINT "IX"
11040 LOCATE 9, 52: PRINT "m‚taux de transition"
11050 LOCATE 10, 52: PRINT "m‚taux"
11060 LOCATE 11, 52: PRINT "Z = 27"
11070 LOCATE 12, 52: PRINT "58,9 g.mol-1"
11080 LOCATE 13, 52: PRINT "non"
11090 LOCATE 14, 52: PRINT "solide"
11100 GOTO 3990
11110 REM ********** NICKEL
11120 COLOR 1, 4, 2: CLS
11130 LOCATE 1, 20: PRINT "+-------------+"
11140 LOCATE 2, 20: PRINT "Ý NICKEL - Ni Ý"
11150 LOCATE 3, 20: PRINT "+-------------+"
11160 COLOR 2, 4, 2
11170 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11180 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11190 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11200 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11210 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
11220 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
11230 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
11240 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
11250 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11260 COLOR 1, 4, 2
11270 LOCATE 6, 52: PRINT "Ni"
11280 LOCATE 7, 52: PRINT "4"
11290 LOCATE 8, 52: PRINT "X"
11300 LOCATE 9, 52: PRINT "m‚taux de transition"
11310 LOCATE 10, 52: PRINT "m‚taux"
11320 LOCATE 11, 52: PRINT "Z = 28"
11330 LOCATE 12, 52: PRINT "58,7 g.mol-1"
11340 LOCATE 13, 52: PRINT "non"
11350 LOCATE 14, 52: PRINT "solide"
11360 GOTO 3990
11370 REM ********** CUIVRE
11380 COLOR 1, 4, 2: CLS
11390 LOCATE 1, 20: PRINT "+-------------+"
11400 LOCATE 2, 20: PRINT "Ý CUIVRE - Cu Ý"
11410 LOCATE 3, 20: PRINT "+-------------+"
11420 COLOR 2, 4, 2
11430 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11440 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11450 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11460 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11470 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
11480 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
11490 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
11500 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
11510 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11520 COLOR 1, 4, 2
11530 LOCATE 6, 52: PRINT "Cu"
11540 LOCATE 7, 52: PRINT "4"
11550 LOCATE 8, 52: PRINT "XI"
11560 LOCATE 9, 52: PRINT "m‚taux de transtion"
11570 LOCATE 10, 52: PRINT "m‚taux"
11580 LOCATE 11, 52: PRINT "Z = 29"
11590 LOCATE 12, 52: PRINT "63,5 g.mol-1"
11600 LOCATE 13, 52: PRINT "non"
11610 LOCATE 14, 52: PRINT "solide"
11620 GOTO 3990
11630 REM ********** ZINC
11640 COLOR 1, 4, 2: CLS
11650 LOCATE 1, 20: PRINT "+-----------+"
11660 LOCATE 2, 20: PRINT "Ý ZINC - Zn Ý"
11670 LOCATE 3, 20: PRINT "+-----------+"
11680 COLOR 2, 4, 2
11690 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11700 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11710 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11720 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11730 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
11740 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
11750 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
11760 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
11770 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11780 COLOR 1, 4, 2
11790 LOCATE 6, 52: PRINT "Zn"
11800 LOCATE 7, 52: PRINT "4"
11810 LOCATE 8, 52: PRINT "XII"
11820 LOCATE 9, 52: PRINT "m‚taux de transition"
11830 LOCATE 10, 52: PRINT "m‚taux"
11840 LOCATE 11, 52: PRINT "Z = 30"
11850 LOCATE 12, 52: PRINT "65,4 g.mol-1"
11860 LOCATE 13, 52: PRINT "non"
11870 LOCATE 14, 52: PRINT "solide"
11880 GOTO 3990
11890 REM ********** GALLIUM
11900 COLOR 1, 4, 2: CLS
11910 LOCATE 1, 20: PRINT "+--------------+"
11920 LOCATE 2, 20: PRINT "Ý GALLIUM - Ga Ý"
11930 LOCATE 3, 20: PRINT "+--------------+"
11940 COLOR 2, 4, 2
11950 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11960 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11970 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11980 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11990 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12000 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12010 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12020 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12030 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12040 COLOR 1, 4, 2
12050 LOCATE 6, 52: PRINT "Ga"
12060 LOCATE 7, 52: PRINT "4"
12070 LOCATE 8, 52: PRINT "XIII"
12080 LOCATE 9, 52: PRINT "XIII"
12090 LOCATE 10, 52: PRINT "m‚taux"
12100 LOCATE 11, 52: PRINT "Z = 31"
12110 LOCATE 12, 52: PRINT "69,7 g.mol-1"
12120 LOCATE 13, 52: PRINT "non"
12130 LOCATE 14, 52: PRINT "solide"
12140 GOTO 3990
12150 REM ********** GERMANIUM
12160 COLOR 1, 4, 2: CLS
12170 LOCATE 1, 20: PRINT "+----------------+"
12180 LOCATE 2, 20: PRINT "Ý GERMANIUM - Ge Ý"
12190 LOCATE 3, 20: PRINT "+----------------+"
12200 COLOR 2, 4, 2
12210 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
12220 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
12230 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
12240 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
12250 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12260 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12270 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12280 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12290 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12300 COLOR 1, 4, 2
12310 LOCATE 6, 52: PRINT "Ge"
12320 LOCATE 7, 52: PRINT "4"
12330 LOCATE 8, 52: PRINT "XIV"
12340 LOCATE 9, 52: PRINT "XIV"
12350 LOCATE 10, 52: PRINT "m‚taux"
12360 LOCATE 11, 52: PRINT "Z = 32"
12370 LOCATE 12, 52: PRINT "72,6 g.mol-1"
12380 LOCATE 13, 52: PRINT "non"
12390 LOCATE 14, 52: PRINT "solide"
12400 GOTO 3990
12410 REM ********** ARSENIC
12420 COLOR 1, 4, 2: CLS
12430 LOCATE 1, 20: PRINT "+--------------+"
12440 LOCATE 2, 20: PRINT "Ý ARSENIC - As Ý"
12450 LOCATE 3, 20: PRINT "+--------------+"
12460 COLOR 2, 4, 2
12470 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
12480 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
12490 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
12500 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
12510 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12520 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12530 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12540 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12550 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12560 COLOR 1, 4, 2
12570 LOCATE 6, 52: PRINT "As"
12580 LOCATE 7, 52: PRINT "4"
12590 LOCATE 8, 52: PRINT "XV"
12600 LOCATE 9, 52: PRINT "XV"
12610 LOCATE 10, 52: PRINT "non-m‚taux"
12620 LOCATE 11, 52: PRINT "Z = 33"
12630 LOCATE 12, 52: PRINT "74,9 g.mol-1"
12640 LOCATE 13, 52: PRINT "non"
12650 LOCATE 14, 52: PRINT "solide"
12660 GOTO 3990
12670 REM ********** SELENIUM
12680 COLOR 1, 4, 2: CLS
12690 LOCATE 1, 20: PRINT "+---------------+"
12700 LOCATE 2, 20: PRINT "Ý SELENIUM - Se Ý"
12710 LOCATE 3, 20: PRINT "+---------------+"
12720 COLOR 2, 4, 2
12730 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
12740 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
12750 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
12760 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
12770 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12780 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12790 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12800 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12810 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12820 COLOR 1, 4, 2
12830 LOCATE 6, 52: PRINT "Se"
12840 LOCATE 7, 52: PRINT "4"
12850 LOCATE 8, 52: PRINT "XVI"
12860 LOCATE 9, 52: PRINT "XVI"
12870 LOCATE 10, 52: PRINT "non-m‚taux"
12880 LOCATE 11, 52: PRINT "Z = 34"
12890 LOCATE 12, 52: PRINT "79,0 g.mol-1"
12900 LOCATE 13, 52: PRINT "non"
12910 LOCATE 14, 52: PRINT "solide"
12920 GOTO 3990
12930 REM ********** BROME
12940 COLOR 1, 4, 2: CLS
12950 LOCATE 1, 20: PRINT "+------------+"
12960 LOCATE 2, 20: PRINT "Ý BROME - Br Ý"
12970 LOCATE 3, 20: PRINT "+------------+"
12980 COLOR 2, 4, 2
12990 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
13000 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
13010 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
13020 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
13030 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
13040 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
13050 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
13060 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
13070 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
13080 COLOR 1, 4, 2
13090 LOCATE 6, 52: PRINT "Br"
13100 LOCATE 7, 52: PRINT "4"
13110 LOCATE 8, 52: PRINT "XVII"
13120 LOCATE 9, 52: PRINT "XVII"
13140 LOCATE 10, 52: PRINT "non-m‚taux"
13150 LOCATE 11, 52: PRINT "Z = 35"
13160 LOCATE 12, 52: PRINT "79,9 g.mol-1"
13170 LOCATE 13, 52: PRINT "non"
13180 LOCATE 14, 52: PRINT "liquide"
13190 GOTO 3990
13200 REM ********** KRYPTON
13210 COLOR 1, 4, 2: CLS
13220 LOCATE 1, 20: PRINT "+--------------+"
13230 LOCATE 2, 20: PRINT "Ý KRYPTON - Kr Ý"
13240 LOCATE 3, 20: PRINT "+--------------+"
13250 COLOR 2, 4, 2
13260 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
13270 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
13280 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
13290 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
13300 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
13310 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
13320 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
13330 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
13340 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
13350 COLOR 1, 4, 2
13360 LOCATE 6, 52: PRINT "Kr"
13370 LOCATE 7, 52: PRINT "4"
13380 LOCATE 8, 52: PRINT "XVIII"
13390 LOCATE 9, 52: PRINT "gaz nobles"
13400 LOCATE 10, 52: PRINT "gaz nobles"
13410 LOCATE 11, 52: PRINT "Z = 36"
13420 LOCATE 12, 52: PRINT "83,8 g.mol-1"
13430 LOCATE 13, 52: PRINT "non"
13440 LOCATE 14, 52: PRINT "gaz"
13450 GOTO 3990