1190 "A" CLEAR : CLS : DIM A$(0)*9: ON  ERROR  GOTO 1191
 1191 WAIT 0: PRINT "1.Buchstabe ": WAIT 
 1192 B$= INKEY$ : IF B$="" THEN 1192
 1193 B= ASC B$: RESTORE  STR$ B: READ Z: IF Z=.5 END 
 1194 FOR I=1 TO Z: READ A$(0): WAIT 0: PRINT A$(0): WAIT 
 1195 B$= INKEY$ : IF B$="" THEN 1195
 1196 B= ASC B$: IF B=13 NEXT I: GOTO 1191
 1197 I=Z: NEXT I:B$= CHR$ B: GOTO 1193
 1198 GOTO 1193
 1199 "65" DATA 7,"Ac 227","Al 26.98","Am 243","Sb 121.8","Ar 39.95","As 74.92"
 1200 DATA "At 210"
 1201 "66" DATA 7,"Ba 137.3","Bk 247","Be 9.012","Pb 207.2","Bo 262","B 10.81"
 1202 DATA "Br 79.9"
 1203 "67" DATA 4,"Cl 35.45","Cr 52","Cm 247","Dy 162.5","Es 252"
 1204 "68" DATA 1,"Dy 162.5"
 1205 "69" DATA 4,"Es 252","Fe 55.85","Er 167.3","Eu 152"
 1206 "70" DATA 3,"Fm 257","F 19","Fr 223"
 1207 "71" DATA 4,"Gd 157.3","Ga 69.72","Ge 72.59","Au 197"
 1208 "72" DATA 3,"Hf 178.5","He 4.003","Ho 164.9"
 1209 "73" DATA 2,"In 114.8","Ir 192.2"
 1210 "74" DATA 1,"I 126.9"
 1211 "75" DATA 9,"Cd 112.4","Cf 251","K 39.1","Ca 40.08","Co 58.93","C 12.01"
 1212 DATA "Kr 83.8","Cu 63.55","Ku 261"
 1213 "76" DATA 4,"La 138.9","Lr 260","Li 6.941","Lu 175"
 1214 "77" DATA 4,"Mg 24.31","Mn 54.94","Md 258","Mo 95.94"
 1215 "78" DATA 7,"Na 22.99","Nd 144.2","Ne 20.18","Np 237","Ni 58.69","Nb 92.91"
 1216 DATA "No 259"
 1217 "79" DATA 1,"Os 190.2"
 1218 "80" DATA 8,"Pd 106.4","P 30.97","Pt 195.1","Pu 244","Po 209","Pr 140.9"
 1219 DATA "Pm 145","Pa 231"
 1220 "81" DATA 1,"Hg 200.6"
 1221 "82" DATA 6,"Ra 226","Rn 222","Re 186.2","Rh 102.9","Rb 85.47","Ru 101.1"
 1222 "83" DATA 9,"Sm 150.4","O 16","S 32.06","Se 78.96","Ag 107.9","Si 28.09"
 1223 DATA "Sc 44.96","N 14.01","Sr 87.62"
 1224 "84" DATA 8,"Ta 180.9","Tc 98","Te 127.6","Tb 158.9","Tl 204.4","Th 232"
 1225 DATA "Tm 168.9","Ti 47.88"
 1226 "85" DATA 1,"U 238"
 1227 "86" DATA 1,"V 50.94"
 1228 "87" DATA 3,"H 1.008","Bi 209","W 183.9"
 1229 "88" DATA 1,"Xe 131.3"
 1230 "89" DATA 2,"Yb 173","Y 88.91"
 1231 "90" DATA 5,"Cs 132.9","Ce 140.1","Zn 65.38","Sn 118.7","Zr 91.22"
 1232 "2" DATA .5