1000 DIM A$(99):DIM AG(99):DIM E(30):DIM F(30) 1101 A$( 1)="H" :AG( 1)= 1.008 1102 A$( 2)="He":AG( 2)= 4.003 1103 A$( 3)="Li":AG( 3)= 6.941 1104 A$( 4)="Be":AG( 4)= 9.012 1105 A$( 5)="B" :AG( 5)= 10.81 1106 A$( 6)="C" :AG( 6)= 12.011 1107 A$( 7)="N" :AG( 7)= 14.007 1108 A$( 8)="O" :AG( 8)= 15.999 1109 A$( 9)="F" :AG( 9)= 18.998 1110 A$(10)="Ne":AG(10)= 20.179 1111 A$(11)="Na":AG(11)= 22.99 1112 A$(12)="Mg":AG(12)= 24.305 1113 A$(13)="Al":AG(13)= 26.982 1114 A$(14)="Si":AG(14)= 28.086 1115 A$(15)="P" :AG(15)= 30.974 1116 A$(16)="S" :AG(16)= 32.06 1117 A$(17)="Cl":AG(17)= 35.453 1118 A$(18)="Ar":AG(18)= 39.948 1119 A$(19)="K" :AG(19)= 39.098 1120 A$(20)="Ca":AG(20)= 40.08 1121 A$(21)="Sc":AG(21)= 44.956 1122 A$(22)="Ti":AG(22)= 47.88 1123 A$(23)="V" :AG(23)= 50.942 1124 A$(24)="Cr":AG(24)= 51.996 1125 A$(25)="Mn":AG(25)= 54.938 1126 A$(26)="Fe":AG(26)= 55.847 1127 A$(27)="Co":AG(27)= 58.933 1128 A$(28)="Ni":AG(28)= 58.69 1129 A$(29)="Cu":AG(29)= 63.546 1130 A$(30)="Zn":AG(30)= 65.38 1131 A$(31)="Ga":AG(31)= 69.72 1132 A$(32)="Ge":AG(32)= 72.59 1133 A$(33)="As":AG(33)= 74.922 1134 A$(34)="Se":AG(34)= 78.96 1135 A$(35)="Br":AG(35)= 79.904 1136 A$(36)="Kr":AG(36)= 83.8 1137 A$(37)="Rb":AG(37)= 85.468 1138 A$(38)="Sr":AG(38)= 87.62 1139 A$(39)="Y" :AG(39)= 88.906 1140 A$(40)="Zr":AG(40)= 91.22 1141 A$(41)="Nb":AG(41)= 92.906 1142 A$(42)="Mo":AG(42)= 95.94 1143 A$(43)="Tc":AG(43)= 98! 1144 A$(44)="Ru":AG(44)=101.07 1145 A$(45)="Rh":AG(45)=102.906 1146 A$(46)="Pd":AG(46)=106.42 1147 A$(47)="Ag":AG(47)=107.868 1148 A$(48)="Cd":AG(48)=112.41 1149 A$(49)="In":AG(49)=114.82 1150 A$(50)="Sn":AG(50)=118.69 1151 A$(51)="Sb":AG(51)=121.75 1152 A$(52)="Te":AG(52)=127.6 1153 A$(53)="I" :AG(53)=126.905 1154 A$(54)="Xe":AG(54)=131.29 1155 A$(55)="Cs":AG(55)=132.905 1156 A$(56)="Ba":AG(56)=137.33 1157 A$(57)="La":AG(57)=138.906 1158 A$(58)="Ce":AG(58)=140.12 1159 A$(59)="Pr":AG(59)=140.908 1160 A$(60)="Nd":AG(60)=144.24 1161 A$(61)="Pm":AG(61)=145! 1162 A$(62)="Sm":AG(62)=150.36 1163 A$(63)="Eu":AG(63)=151.96 1164 A$(64)="Gd":AG(64)=157.25 1165 A$(65)="Tb":AG(65)=158.925 1166 A$(66)="Dy":AG(66)=162.5 1167 A$(67)="Ho":AG(67)=164.93 1168 A$(68)="Er":AG(68)=167.26 1169 A$(69)="Tm":AG(69)=168.934 1170 A$(70)="Yb":AG(70)=173.04 1171 A$(71)="Lu":AG(71)=174.967 1172 A$(72)="Hf":AG(72)=178.49 1173 A$(73)="Ta":AG(73)=180.948 1174 A$(74)="W" :AG(74)=183.85 1175 A$(75)="Re":AG(75)=186.207 1176 A$(76)="Os":AG(76)=190.2 1177 A$(77)="Ir":AG(77)=192.22 1178 A$(78)="Pt":AG(78)=195.08 1179 A$(79)="Au":AG(79)=196.967 1180 A$(80)="Hg":AG(80)=200.59 1181 A$(81)="Tl":AG(81)=204.383 1182 A$(82)="Pb":AG(82)=207.2 1183 A$(83)="Bi":AG(83)=208.98 1184 A$(84)="Po":AG(84)=209! 1185 A$(85)="At":AG(85)=210! 1186 A$(86)="Rn":AG(86)=222! 1187 A$(87)="Fr":AG(87)=223! 1188 A$(88)="Ra":AG(88)=226.025 1189 A$(89)="Ac":AG(89)=227.028 1190 A$(90)="Th":AG(90)=232.038 1191 A$(91)="Pa":AG(91)=231.036 1192 A$(92)="U" :AG(92)=238.029 1193 A$(93)="Np":AG(93)=237.048 1194 A$(94)="Pu":AG(94)=244! 1195 A$(95)="Am":AG(95)=243! 1196 A$(96)="Cm":AG(96)=247! 1197 A$(97)="D" :AG(97)= 2.014 1198 A$(98)="T" :AG(98)= 3.016 1199 A$(99)="J" :AG(99)=126.905 1200 COLOR 9:FOR I=1 TO 99 1210 PRINT USING"##";I;: PRINT TAB(5);"-";A$(I);"-";TAB(10);USING"####.###";AG(I):SOUND 42,1:SOUND 37,1 1220 REM LPRINT USING"##";I;:LPRINT TAB(5);"-";A$(I);"-";TAB(10);USING"####.###";AG(I) 1230 NEXT I:PRINT 1300 COLOR 14:PRINT"Bitte kein 'Mal' verwenden" 1310 COLOR 12:PRINT" FALSCH = Na2CO3*10H2O "; 1320 COLOR 10:PRINT"RICHTIG = Na2CO3H20O10":SOUND 250,5 1330 COLOR 13:INPUT"Haben Sie das registriert ";I$:PRINT 1340 COLOR 14:PRINT"Bitte keine Klammern verwenden" 1350 COLOR 12:PRINT" FALSCH = NH(C2H5)2 "; 1360 COLOR 10:PRINT"RICHTIG = NHC2H5C2H5":SOUND 300,5 1370 COLOR 13:INPUT"Haben Sie das registriert ";I$:PRINT 1380 COLOR 14:PRINT"Bitte nicht 'O' und '0' verwechseln" 1390 COLOR 12:PRINT" FALSCH = Na2CO3H2O010 "; 1400 COLOR 10:PRINT"RICHTIG = Na2CO3H20O10":SOUND 350,5 1410 COLOR 13:INPUT"Haben Sie das registriert ";I$:PRINT 1420 COLOR 14:PRINT"Bitte keine Zwischenraeume verwenden" 1430 COLOR 12:PRINT" FALSCH = NH C2H5 C2H5 "; 1440 COLOR 10:PRINT"RICHTIG = NHC2H5C2H5":SOUND 400,5 1445 COLOR 13:INPUT"Haben Sie das registriert ";I$:PRINT 1450 COLOR 14:PRINT"Es gelten nur die Zeichen :":PRINT TAB(10); 1460 COLOR 10:FOR I= 65 TO 90:PRINT CHR$(I);:NEXT I 1465 FOR I= 97 TO 122:PRINT CHR$(I);:NEXT I 1470 FOR I= 48 TO 57:PRINT CHR$(I);:NEXT I:PRINT:SOUND 450,5 1480 COLOR 13:INPUT"Haben Sie das registriert ";I$:PRINT 1500 COLOR 14:PRINT" Ende = E" 1510 SU$="" :INPUT" Substanz ";SU$ 1515 IF SU$="" THEN 1500 1520 IF SU$="E" THEN END 1530 FOR I=1 TO 30:E(I)=0:F(I)=1:NEXT I:Z=1:C=1 1540 FOR I=1 TO 99:IF LEN(A$(I))<2 THEN 1560 1550 IF MID$(SU$,Z,2)=A$(I) THEN Z=Z+2:GOTO 1600 1560 NEXT I 1570 FOR I=1 TO 99:IF LEN(A$(I))>1 THEN 1585 1580 IF MID$(SU$,Z,1)=A$(I) THEN Z=Z+1:GOTO 1600 1585 NEXT I 1587 COLOR 12:PRINT"FEHLER ----> ";SU$:PRINT:SOUND 600,10:GOTO 1500 1600 E(C)=I:F$="" 1605 IF Z>LEN(SU$) THEN 1650 1610 AA=ASC(MID$(SU$,Z,1)):IF ((AA>64)AND(AA<91)) THEN C=C+1:GOTO 1540 1620 IF ((AA<48)OR (AA>57)) THEN 1587 1630 F$=F$+CHR$(AA):F(C)=VAL(F$):Z=Z+1 :GOTO 1605 1650 MG=0:FOR I=1 TO C 1660 PRINT A$(E(I));TAB(5);F(I);TAB(15);AG(E(I));TAB(30);AG(E(I))*F(I) 1670 MG=MG+AG(E(I))*F(I) 1680 NEXT I:COLOR 13:PRINT STRING$(42,"-"):SOUND 100,2 1690 PRINT SU$;" MolGew = ";TAB(30);MG: PRINT 1700 REM LPRINT SU$;" MolGew = ";TAB(30);MG:LPRINT:LPRINT:GOTO 1500 1710 COLOR 10 :PRINT" Return = Enter =";MG;"d --- "; 1720 COLOR 12 :PRINT"Zahl nur bei Korrektur eingeben" 1730 COLOR 14:I$="":INPUT" MolGew in d ";I$ :IF I$<>"" THEN MG=VAL(I$) 1740 INPUT" Volumen in l ";VOL 1750 INPUT"Konzentration in M ";KONZ:COLOR 13 1760 PRINT SU$;" :";TAB(20);MG;"d *";TAB(35);VOL;"l *";TAB(50);KONZ;"M ="; TAB(65);MG*VOL*KONZ;"g" 1770 REM LPRINT SU$;" :";TAB(20);MG;"d *";TAB(35);VOL;"l *";TAB(50);KONZ;"M ="; TAB(65);MG*VOL*KONZ;"g" 1780 REM PRINT:LPRINT:LPRINT:GOTO 1500 1790 PRINT :GOTO 1500 2000 REM SAVE"C:MOLEINI.BAS",A