Home » Archimedes archive » Acorn User » AU 1994-05.adf » !BasicProg_BasicProg » Listing3
Listing3
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-05.adf » !BasicProg_BasicProg |
| Filename: | Listing3 |
| Read OK: | ✔ |
| File size: | 0D44 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >Listing3 20 REM This is more extensive than either of the listings 30 REM in the magazine. 35 ON ERROR REPORT: PRINT " at line ";ERL:END 40 : 50 score% = 0 : total% = 0 : i% = 1 60 PRINT "Do you want to be tested upon:" 70 PRINT "1 - Atomic numbers of elements" 80 PRINT "2 - Characteristics of certain elements" 90 PRINT "3 - Recognising elements from their symbols" 100 REPEAT 110 INPUT choice% 120 UNTIL choice%>0 AND choice%<4 130 IF choice%=1 RESTORE 1000 140 IF choice%=2 RESTORE 2000 150 IF choice%=3 RESTORE 3000 160 READ ask$, end$, no_possible_responses% 165 : 170 REM Use 120 as an reasonable upper bound on 175 REM the number of elements and therefore the 177 REM the number of questions. 180 DIM response$(120, no_possible_responses%) 190 DIM question$(120), order%(120) 192 : 196 REM Read in all the questions and answers. 200 REPEAT 210 READ question$(i%) 220 FOR j% = 1 TO no_possible_responses% 230 READ response$(i%,j%) 240 NEXT j% 250 i% = i% + 1 260 UNTIL i% >= 120 OR question$(i%-1) = end$ 263 : 267 REM Randomise the asking order of the questions. 270 PROCRandomise(i%-2) 273 : 277 REM Ask all the questions. 280 FOR k% = 1 TO i%-2 290 correct% = FALSE 300 PRINT ask$;question$(order%(k%));"?"; 310 INPUT " "answer$ 320 FOR j% = 1 TO no_possible_responses% 330 IF answer$ = response$(order%(k%),j%) THEN correct% = TRUE 340 NEXT j% 350 IF NOT correct% THEN 360 PRINT "Wrong, it is ";response$(order%(k%),1);"."' 370 ELSE 380 PRINT "Correct."' 390 score% += 1 400 ENDIF 410 total% += 1 420 NEXT k% 425 : 430 PRINT "You scored ";score%;" out of ";total%;"." 440 END 450 : 460 DEF PROCRandomise(num%) 470 REM This procedure sets up pointers in the array 480 REM order%() in a random order, which is the order 490 REM in which the questions will be asked. 510 LOCAL i%,j% 520 FOR i% = 1 TO num% 525 j% = RND(num%) - 1 530 WHILE order%(j%+1) <> 0 540 j% = (j% + 1) MOD num% 550 ENDWHILE 560 order%(j%+1) = i% 565 NEXT i% 570 ENDPROC 580 : 1000 DATA "Which element has the atomic number ", 0, 2 1010 DATA 1, Hydrogen, H, 2, Helium, He, 3, Lithium, Li 1020 DATA 4, Beryllium, Be, 5, B, Boron, 6, Carbon, C 1030 DATA 7, Nitrogen, N, 8, Oxygen, O, 9, Fluorine, F 1040 DATA 10, Neon, Ne, 11, Sodium, Na, 12, Magnesium, Mg 1050 DATA 13, Alumimium, Al, 14, Silicon, Si, 15, Phosphorus, P 1060 DATA 16, Sulphur, S, 17, Chlorine, Cl, 18, Argon, Ar 1070 DATA 19, Potassium, K, 20, Calcium, Ca 1999 DATA 0, Nothing, Nil 2000 DATA "Which element ", "End of test", 2 2010 DATA "is a brown liquid at room temperature", Bromine, Br 2020 DATA "has an oxide known as sapphire", Aluminium, Al 2030 DATA "was discovered by Joseph Priestly", Oxygen, O 2040 DATA "has forms called diamond and graphite", Carbon, C 2050 DATA "is a liquid used in thermometers", Mercury, Hg 2060 DATA "is the most abundant in the universe", Hydrogen, H 2070 DATA "makes up 78% of air", Nitrogen, N 2080 DATA "is alloyed with copper to make brass", Zinc, Zn 2090 DATA "is the main constituent of steel", Iron, Fe 2100 DATA "is the lightest inert gas", Helium, He 2999 DATA "End of test", is, here 3000 DATA "Which element has the symbol ", End, 1 3010 DATA H, Hydrogen, He, Helium, Li, Lithium, B, Boron 3020 DATA Ag, Silver, Al, Aluminium, Ar, Argon, As, Arsenic 3030 DATA Au, Gold, Ba, Barium, Bi, Bismuth, Br, Bromine 3040 DATA C, Carbon, Ca, Calcium, Cd, Cadmium, Cl, Chlorine 3050 DATA Co, Cobalt, Cr, Chromium, Cu, Copper, F, Fluorine 3060 DATA Fe, Iron, Ga, Gallium, Ge, Germanium, Hg, Mercury 3070 DATA I, Iodine, K, Potassium, Mg, Magnesium, Mn, Manganese 3080 DATA Na, Sodium, N, Nitrogen, Ne, Neon, Ni, Nickel 3090 DATA O, Oxygen, P, Phosphorus, S, Sulphur, U, Uranium 3100 DATA W, Tungsten 3999 DATA End, E
� >Listing3
9 � This is more extensive than either of the listings
� in the magazine.
# � � �: � " at line ";�:�
( :
2% score% = 0 : total% = 0 : i% = 1
<' � "Do you want to be tested upon:"
F' � "1 - Atomic numbers of elements"
P0 � "2 - Characteristics of certain elements"
Z4 � "3 - Recognising elements from their symbols"
d �
n � choice%
x � choice%>0 � choice%<4
� � choice%=1 � �dhC
� � choice%=2 � �dPG
� � choice%=3 � �txK
�) � ask$, end$, no_possible_responses%
� :
�. � Use 120 as an reasonable upper bound on
�/ � the number of elements and therefore the
� � the number of questions.
�- � response$(120, no_possible_responses%)
�" � question$(120), order%(120)
� :
�- � Read in all the questions and answers.
� �
� � question$(i%)
�' � j% = 1 � no_possible_responses%
� � response$(i%,j%)
�
� j%
� i% = i% + 1
) � i% >= 120 � question$(i%-1) = end$
:
3 � Randomise the asking order of the questions.
�Randomise(i%-2)
:
� Ask all the questions.
� k% = 1 � i%-2
" correct% = �
,' � ask$;question$(order%(k%));"?";
6 � " "answer$
@' � j% = 1 � no_possible_responses%
J: � answer$ = response$(order%(k%),j%) � correct% = �
T
� j%
^ � � correct% �
h6 � "Wrong, it is ";response$(order%(k%),1);"."'
r �
| � "Correct."'
� score% += 1
� �
� total% += 1
� � k%
� :
�1 � "You scored ";score%;" out of ";total%;"."
� �
� :
� � �Randomise(num%)
�3 � This procedure sets up pointers in the array
�5 � order%() in a random order, which is the order
�, � in which the questions will be asked.
� � i%,j%
� i% = 1 � num%
j% = �(num%) - 1
ȕ order%(j%+1) <> 0
j% = (j% + 1) � num%
& �
0 order%(j%+1) = i%
5 � i%
: �
D :
�3 � "Which element has the atomic number ", 0, 2
�4 � 1, Hydrogen, H, 2, Helium, He, 3, Lithium, Li
�2 � 4, Beryllium, Be, 5, B, Boron, 6, Carbon, C
3 � 7, Nitrogen, N, 8, Oxygen, O, 9, Fluorine, F
6 � 10, Neon, Ne, 11, Sodium, Na, 12, Magnesium, Mg
< � 13, Alumimium, Al, 14, Silicon, Si, 15, Phosphorus, P
$6 � 16, Sulphur, S, 17, Chlorine, Cl, 18, Argon, Ar
.( � 19, Potassium, K, 20, Calcium, Ca
� � 0, Nothing, Nil
�) � "Which element ", "End of test", 2
�; � "is a brown liquid at room temperature", Bromine, Br
�6 � "has an oxide known as sapphire", Aluminium, Al
�5 � "was discovered by Joseph Priestly", Oxygen, O
�9 � "has forms called diamond and graphite", Carbon, C
6 � "is a liquid used in thermometers", Mercury, Hg
: � "is the most abundant in the universe", Hydrogen, H
) � "makes up 78% of air", Nitrogen, N
7 � "is alloyed with copper to make brass", Zinc, Zn
*3 � "is the main constituent of steel", Iron, Fe
4. � "is the lightest inert gas", Helium, He
� � "End of test", is, here
�. � "Which element has the symbol ", End, 1
�5 � H, Hydrogen, He, Helium, Li, Lithium, B, Boron
�8 � Ag, Silver, Al, Aluminium, Ar, Argon, As, Arsenic
�5 � Au, Gold, Ba, Barium, Bi, Bismuth, Br, Bromine
�8 � C, Carbon, Ca, Calcium, Cd, Cadmium, Cl, Chlorine
�8 � Co, Cobalt, Cr, Chromium, Cu, Copper, F, Fluorine
�8 � Fe, Iron, Ga, Gallium, Ge, Germanium, Hg, Mercury
�< � I, Iodine, K, Potassium, Mg, Magnesium, Mn, Manganese
4 � Na, Sodium, N, Nitrogen, Ne, Neon, Ni, Nickel
7 � O, Oxygen, P, Phosphorus, S, Sulphur, U, Uranium
� W, Tungsten
�
� End, E
� 00000000 0d 00 0a 10 20 f4 20 3e 4c 69 73 74 69 6e 67 33 |.... . >Listing3| 00000010 0d 00 14 39 20 f4 20 54 68 69 73 20 69 73 20 6d |...9 . This is m| 00000020 6f 72 65 20 65 78 74 65 6e 73 69 76 65 20 74 68 |ore extensive th| 00000030 61 6e 20 65 69 74 68 65 72 20 6f 66 20 74 68 65 |an either of the| 00000040 20 6c 69 73 74 69 6e 67 73 0d 00 1e 17 20 f4 20 | listings.... . | 00000050 69 6e 20 74 68 65 20 6d 61 67 61 7a 69 6e 65 2e |in the magazine.| 00000060 0d 00 23 1d 20 ee 20 85 20 f6 3a 20 f1 20 22 20 |..#. . . .: . " | 00000070 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 28 |at line ";.:...(| 00000080 06 20 3a 0d 00 32 25 20 73 63 6f 72 65 25 20 3d |. :..2% score% =| 00000090 20 30 20 3a 20 74 6f 74 61 6c 25 20 3d 20 30 20 | 0 : total% = 0 | 000000a0 3a 20 69 25 20 3d 20 31 0d 00 3c 27 20 f1 20 22 |: i% = 1..<' . "| 000000b0 44 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 62 |Do you want to b| 000000c0 65 20 74 65 73 74 65 64 20 75 70 6f 6e 3a 22 0d |e tested upon:".| 000000d0 00 46 27 20 f1 20 22 31 20 2d 20 41 74 6f 6d 69 |.F' . "1 - Atomi| 000000e0 63 20 6e 75 6d 62 65 72 73 20 6f 66 20 65 6c 65 |c numbers of ele| 000000f0 6d 65 6e 74 73 22 0d 00 50 30 20 f1 20 22 32 20 |ments"..P0 . "2 | 00000100 2d 20 43 68 61 72 61 63 74 65 72 69 73 74 69 63 |- Characteristic| 00000110 73 20 6f 66 20 63 65 72 74 61 69 6e 20 65 6c 65 |s of certain ele| 00000120 6d 65 6e 74 73 22 0d 00 5a 34 20 f1 20 22 33 20 |ments"..Z4 . "3 | 00000130 2d 20 52 65 63 6f 67 6e 69 73 69 6e 67 20 65 6c |- Recognising el| 00000140 65 6d 65 6e 74 73 20 66 72 6f 6d 20 74 68 65 69 |ements from thei| 00000150 72 20 73 79 6d 62 6f 6c 73 22 0d 00 64 06 20 f5 |r symbols"..d. .| 00000160 0d 00 6e 0f 20 20 e8 20 63 68 6f 69 63 65 25 0d |..n. . choice%.| 00000170 00 78 1c 20 fd 20 63 68 6f 69 63 65 25 3e 30 20 |.x. . choice%>0 | 00000180 80 20 63 68 6f 69 63 65 25 3c 34 0d 00 82 17 20 |. choice%<4.... | 00000190 e7 20 63 68 6f 69 63 65 25 3d 31 20 f7 20 8d 64 |. choice%=1 . .d| 000001a0 68 43 0d 00 8c 17 20 e7 20 63 68 6f 69 63 65 25 |hC.... . choice%| 000001b0 3d 32 20 f7 20 8d 64 50 47 0d 00 96 17 20 e7 20 |=2 . .dPG.... . | 000001c0 63 68 6f 69 63 65 25 3d 33 20 f7 20 8d 74 78 4b |choice%=3 . .txK| 000001d0 0d 00 a0 29 20 f3 20 61 73 6b 24 2c 20 65 6e 64 |...) . ask$, end| 000001e0 24 2c 20 6e 6f 5f 70 6f 73 73 69 62 6c 65 5f 72 |$, no_possible_r| 000001f0 65 73 70 6f 6e 73 65 73 25 0d 00 a5 06 20 3a 0d |esponses%.... :.| 00000200 00 aa 2e 20 f4 20 55 73 65 20 31 32 30 20 61 73 |... . Use 120 as| 00000210 20 61 6e 20 72 65 61 73 6f 6e 61 62 6c 65 20 75 | an reasonable u| 00000220 70 70 65 72 20 62 6f 75 6e 64 20 6f 6e 0d 00 af |pper bound on...| 00000230 2f 20 f4 20 74 68 65 20 6e 75 6d 62 65 72 20 6f |/ . the number o| 00000240 66 20 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 74 |f elements and t| 00000250 68 65 72 65 66 6f 72 65 20 74 68 65 0d 00 b1 1f |herefore the....| 00000260 20 f4 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 | . the number of| 00000270 20 71 75 65 73 74 69 6f 6e 73 2e 0d 00 b4 2d 20 | questions....- | 00000280 de 20 72 65 73 70 6f 6e 73 65 24 28 31 32 30 2c |. response$(120,| 00000290 20 6e 6f 5f 70 6f 73 73 69 62 6c 65 5f 72 65 73 | no_possible_res| 000002a0 70 6f 6e 73 65 73 25 29 0d 00 be 22 20 de 20 71 |ponses%)..." . q| 000002b0 75 65 73 74 69 6f 6e 24 28 31 32 30 29 2c 20 6f |uestion$(120), o| 000002c0 72 64 65 72 25 28 31 32 30 29 0d 00 c0 06 20 3a |rder%(120).... :| 000002d0 0d 00 c4 2d 20 f4 20 52 65 61 64 20 69 6e 20 61 |...- . Read in a| 000002e0 6c 6c 20 74 68 65 20 71 75 65 73 74 69 6f 6e 73 |ll the questions| 000002f0 20 61 6e 64 20 61 6e 73 77 65 72 73 2e 0d 00 c8 | and answers....| 00000300 06 20 f5 0d 00 d2 15 20 20 f3 20 71 75 65 73 74 |. ..... . quest| 00000310 69 6f 6e 24 28 69 25 29 0d 00 dc 27 20 20 e3 20 |ion$(i%)...' . | 00000320 6a 25 20 3d 20 31 20 b8 20 6e 6f 5f 70 6f 73 73 |j% = 1 . no_poss| 00000330 69 62 6c 65 5f 72 65 73 70 6f 6e 73 65 73 25 0d |ible_responses%.| 00000340 00 e6 19 20 20 20 f3 20 72 65 73 70 6f 6e 73 65 |... . response| 00000350 24 28 69 25 2c 6a 25 29 0d 00 f0 0a 20 20 ed 20 |$(i%,j%).... . | 00000360 6a 25 0d 00 fa 11 20 20 69 25 20 3d 20 69 25 20 |j%.... i% = i% | 00000370 2b 20 31 0d 01 04 29 20 fd 20 69 25 20 3e 3d 20 |+ 1...) . i% >= | 00000380 31 32 30 20 84 20 71 75 65 73 74 69 6f 6e 24 28 |120 . question$(| 00000390 69 25 2d 31 29 20 3d 20 65 6e 64 24 0d 01 07 06 |i%-1) = end$....| 000003a0 20 3a 0d 01 0b 33 20 f4 20 52 61 6e 64 6f 6d 69 | :...3 . Randomi| 000003b0 73 65 20 74 68 65 20 61 73 6b 69 6e 67 20 6f 72 |se the asking or| 000003c0 64 65 72 20 6f 66 20 74 68 65 20 71 75 65 73 74 |der of the quest| 000003d0 69 6f 6e 73 2e 0d 01 0e 15 20 f2 52 61 6e 64 6f |ions..... .Rando| 000003e0 6d 69 73 65 28 69 25 2d 32 29 0d 01 11 06 20 3a |mise(i%-2).... :| 000003f0 0d 01 15 1d 20 f4 20 41 73 6b 20 61 6c 6c 20 74 |.... . Ask all t| 00000400 68 65 20 71 75 65 73 74 69 6f 6e 73 2e 0d 01 18 |he questions....| 00000410 14 20 e3 20 6b 25 20 3d 20 31 20 b8 20 69 25 2d |. . k% = 1 . i%-| 00000420 32 0d 01 22 12 20 20 63 6f 72 72 65 63 74 25 20 |2..". correct% | 00000430 3d 20 a3 0d 01 2c 27 20 20 f1 20 61 73 6b 24 3b |= ...,' . ask$;| 00000440 71 75 65 73 74 69 6f 6e 24 28 6f 72 64 65 72 25 |question$(order%| 00000450 28 6b 25 29 29 3b 22 3f 22 3b 0d 01 36 12 20 20 |(k%));"?";..6. | 00000460 e8 20 22 20 22 61 6e 73 77 65 72 24 0d 01 40 27 |. " "answer$..@'| 00000470 20 20 e3 20 6a 25 20 3d 20 31 20 b8 20 6e 6f 5f | . j% = 1 . no_| 00000480 70 6f 73 73 69 62 6c 65 5f 72 65 73 70 6f 6e 73 |possible_respons| 00000490 65 73 25 0d 01 4a 3a 20 20 20 e7 20 61 6e 73 77 |es%..J: . answ| 000004a0 65 72 24 20 3d 20 72 65 73 70 6f 6e 73 65 24 28 |er$ = response$(| 000004b0 6f 72 64 65 72 25 28 6b 25 29 2c 6a 25 29 20 8c |order%(k%),j%) .| 000004c0 20 63 6f 72 72 65 63 74 25 20 3d 20 b9 0d 01 54 | correct% = ...T| 000004d0 0a 20 20 ed 20 6a 25 0d 01 5e 14 20 20 e7 20 ac |. . j%..^. . .| 000004e0 20 63 6f 72 72 65 63 74 25 20 8c 0d 01 68 36 20 | correct% ...h6 | 000004f0 20 20 20 f1 20 22 57 72 6f 6e 67 2c 20 69 74 20 | . "Wrong, it | 00000500 69 73 20 22 3b 72 65 73 70 6f 6e 73 65 24 28 6f |is ";response$(o| 00000510 72 64 65 72 25 28 6b 25 29 2c 31 29 3b 22 2e 22 |rder%(k%),1);"."| 00000520 27 0d 01 72 07 20 20 cc 0d 01 7c 14 20 20 20 f1 |'..r. ...|. .| 00000530 20 22 43 6f 72 72 65 63 74 2e 22 27 0d 01 86 12 | "Correct."'....| 00000540 20 20 20 73 63 6f 72 65 25 20 2b 3d 20 31 0d 01 | score% += 1..| 00000550 90 07 20 20 cd 0d 01 9a 11 20 20 74 6f 74 61 6c |.. ..... total| 00000560 25 20 2b 3d 20 31 0d 01 a4 09 20 ed 20 6b 25 0d |% += 1.... . k%.| 00000570 01 a9 06 20 3a 0d 01 ae 31 20 f1 20 22 59 6f 75 |... :...1 . "You| 00000580 20 73 63 6f 72 65 64 20 22 3b 73 63 6f 72 65 25 | scored ";score%| 00000590 3b 22 20 6f 75 74 20 6f 66 20 22 3b 74 6f 74 61 |;" out of ";tota| 000005a0 6c 25 3b 22 2e 22 0d 01 b8 06 20 e0 0d 01 c2 06 |l%;".".... .....| 000005b0 20 3a 0d 01 cc 17 20 dd 20 f2 52 61 6e 64 6f 6d | :.... . .Random| 000005c0 69 73 65 28 6e 75 6d 25 29 0d 01 d6 33 20 f4 20 |ise(num%)...3 . | 000005d0 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 |This procedure s| 000005e0 65 74 73 20 75 70 20 70 6f 69 6e 74 65 72 73 20 |ets up pointers | 000005f0 69 6e 20 74 68 65 20 61 72 72 61 79 0d 01 e0 35 |in the array...5| 00000600 20 f4 20 6f 72 64 65 72 25 28 29 20 69 6e 20 61 | . order%() in a| 00000610 20 72 61 6e 64 6f 6d 20 6f 72 64 65 72 2c 20 77 | random order, w| 00000620 68 69 63 68 20 69 73 20 74 68 65 20 6f 72 64 65 |hich is the orde| 00000630 72 0d 01 ea 2c 20 f4 20 69 6e 20 77 68 69 63 68 |r..., . in which| 00000640 20 74 68 65 20 71 75 65 73 74 69 6f 6e 73 20 77 | the questions w| 00000650 69 6c 6c 20 62 65 20 61 73 6b 65 64 2e 0d 01 fe |ill be asked....| 00000660 0c 20 ea 20 69 25 2c 6a 25 0d 02 08 14 20 e3 20 |. . i%,j%.... . | 00000670 69 25 20 3d 20 31 20 b8 20 6e 75 6d 25 0d 02 0d |i% = 1 . num%...| 00000680 16 20 20 6a 25 20 3d 20 b3 28 6e 75 6d 25 29 20 |. j% = .(num%) | 00000690 2d 20 31 0d 02 12 1a 20 20 c8 95 20 6f 72 64 65 |- 1.... .. orde| 000006a0 72 25 28 6a 25 2b 31 29 20 3c 3e 20 30 0d 02 1c |r%(j%+1) <> 0...| 000006b0 1b 20 20 20 6a 25 20 3d 20 28 6a 25 20 2b 20 31 |. j% = (j% + 1| 000006c0 29 20 83 20 6e 75 6d 25 0d 02 26 07 20 20 ce 0d |) . num%..&. ..| 000006d0 02 30 17 20 20 6f 72 64 65 72 25 28 6a 25 2b 31 |.0. order%(j%+1| 000006e0 29 20 3d 20 69 25 0d 02 35 09 20 ed 20 69 25 0d |) = i%..5. . i%.| 000006f0 02 3a 06 20 e1 0d 02 44 06 20 3a 0d 03 e8 33 20 |.:. ...D. :...3 | 00000700 dc 20 22 57 68 69 63 68 20 65 6c 65 6d 65 6e 74 |. "Which element| 00000710 20 68 61 73 20 74 68 65 20 61 74 6f 6d 69 63 20 | has the atomic | 00000720 6e 75 6d 62 65 72 20 22 2c 20 30 2c 20 32 0d 03 |number ", 0, 2..| 00000730 f2 34 20 dc 20 31 2c 20 48 79 64 72 6f 67 65 6e |.4 . 1, Hydrogen| 00000740 2c 20 48 2c 20 32 2c 20 48 65 6c 69 75 6d 2c 20 |, H, 2, Helium, | 00000750 48 65 2c 20 33 2c 20 4c 69 74 68 69 75 6d 2c 20 |He, 3, Lithium, | 00000760 4c 69 0d 03 fc 32 20 dc 20 34 2c 20 42 65 72 79 |Li...2 . 4, Bery| 00000770 6c 6c 69 75 6d 2c 20 42 65 2c 20 35 2c 20 42 2c |llium, Be, 5, B,| 00000780 20 42 6f 72 6f 6e 2c 20 36 2c 20 43 61 72 62 6f | Boron, 6, Carbo| 00000790 6e 2c 20 43 0d 04 06 33 20 dc 20 37 2c 20 4e 69 |n, C...3 . 7, Ni| 000007a0 74 72 6f 67 65 6e 2c 20 4e 2c 20 38 2c 20 4f 78 |trogen, N, 8, Ox| 000007b0 79 67 65 6e 2c 20 4f 2c 20 39 2c 20 46 6c 75 6f |ygen, O, 9, Fluo| 000007c0 72 69 6e 65 2c 20 46 0d 04 10 36 20 dc 20 31 30 |rine, F...6 . 10| 000007d0 2c 20 4e 65 6f 6e 2c 20 4e 65 2c 20 31 31 2c 20 |, Neon, Ne, 11, | 000007e0 53 6f 64 69 75 6d 2c 20 4e 61 2c 20 31 32 2c 20 |Sodium, Na, 12, | 000007f0 4d 61 67 6e 65 73 69 75 6d 2c 20 4d 67 0d 04 1a |Magnesium, Mg...| 00000800 3c 20 dc 20 31 33 2c 20 41 6c 75 6d 69 6d 69 75 |< . 13, Alumimiu| 00000810 6d 2c 20 41 6c 2c 20 31 34 2c 20 53 69 6c 69 63 |m, Al, 14, Silic| 00000820 6f 6e 2c 20 53 69 2c 20 31 35 2c 20 50 68 6f 73 |on, Si, 15, Phos| 00000830 70 68 6f 72 75 73 2c 20 50 0d 04 24 36 20 dc 20 |phorus, P..$6 . | 00000840 31 36 2c 20 53 75 6c 70 68 75 72 2c 20 53 2c 20 |16, Sulphur, S, | 00000850 31 37 2c 20 43 68 6c 6f 72 69 6e 65 2c 20 43 6c |17, Chlorine, Cl| 00000860 2c 20 31 38 2c 20 41 72 67 6f 6e 2c 20 41 72 0d |, 18, Argon, Ar.| 00000870 04 2e 28 20 dc 20 31 39 2c 20 50 6f 74 61 73 73 |..( . 19, Potass| 00000880 69 75 6d 2c 20 4b 2c 20 32 30 2c 20 43 61 6c 63 |ium, K, 20, Calc| 00000890 69 75 6d 2c 20 43 61 0d 07 cf 16 20 dc 20 30 2c |ium, Ca.... . 0,| 000008a0 20 4e 6f 74 68 69 6e 67 2c 20 4e 69 6c 0d 07 d0 | Nothing, Nil...| 000008b0 29 20 dc 20 22 57 68 69 63 68 20 65 6c 65 6d 65 |) . "Which eleme| 000008c0 6e 74 20 22 2c 20 22 45 6e 64 20 6f 66 20 74 65 |nt ", "End of te| 000008d0 73 74 22 2c 20 32 0d 07 da 3b 20 dc 20 22 69 73 |st", 2...; . "is| 000008e0 20 61 20 62 72 6f 77 6e 20 6c 69 71 75 69 64 20 | a brown liquid | 000008f0 61 74 20 72 6f 6f 6d 20 74 65 6d 70 65 72 61 74 |at room temperat| 00000900 75 72 65 22 2c 20 42 72 6f 6d 69 6e 65 2c 20 42 |ure", Bromine, B| 00000910 72 0d 07 e4 36 20 dc 20 22 68 61 73 20 61 6e 20 |r...6 . "has an | 00000920 6f 78 69 64 65 20 6b 6e 6f 77 6e 20 61 73 20 73 |oxide known as s| 00000930 61 70 70 68 69 72 65 22 2c 20 41 6c 75 6d 69 6e |apphire", Alumin| 00000940 69 75 6d 2c 20 41 6c 0d 07 ee 35 20 dc 20 22 77 |ium, Al...5 . "w| 00000950 61 73 20 64 69 73 63 6f 76 65 72 65 64 20 62 79 |as discovered by| 00000960 20 4a 6f 73 65 70 68 20 50 72 69 65 73 74 6c 79 | Joseph Priestly| 00000970 22 2c 20 4f 78 79 67 65 6e 2c 20 4f 0d 07 f8 39 |", Oxygen, O...9| 00000980 20 dc 20 22 68 61 73 20 66 6f 72 6d 73 20 63 61 | . "has forms ca| 00000990 6c 6c 65 64 20 64 69 61 6d 6f 6e 64 20 61 6e 64 |lled diamond and| 000009a0 20 67 72 61 70 68 69 74 65 22 2c 20 43 61 72 62 | graphite", Carb| 000009b0 6f 6e 2c 20 43 0d 08 02 36 20 dc 20 22 69 73 20 |on, C...6 . "is | 000009c0 61 20 6c 69 71 75 69 64 20 75 73 65 64 20 69 6e |a liquid used in| 000009d0 20 74 68 65 72 6d 6f 6d 65 74 65 72 73 22 2c 20 | thermometers", | 000009e0 4d 65 72 63 75 72 79 2c 20 48 67 0d 08 0c 3a 20 |Mercury, Hg...: | 000009f0 dc 20 22 69 73 20 74 68 65 20 6d 6f 73 74 20 61 |. "is the most a| 00000a00 62 75 6e 64 61 6e 74 20 69 6e 20 74 68 65 20 75 |bundant in the u| 00000a10 6e 69 76 65 72 73 65 22 2c 20 48 79 64 72 6f 67 |niverse", Hydrog| 00000a20 65 6e 2c 20 48 0d 08 16 29 20 dc 20 22 6d 61 6b |en, H...) . "mak| 00000a30 65 73 20 75 70 20 37 38 25 20 6f 66 20 61 69 72 |es up 78% of air| 00000a40 22 2c 20 4e 69 74 72 6f 67 65 6e 2c 20 4e 0d 08 |", Nitrogen, N..| 00000a50 20 37 20 dc 20 22 69 73 20 61 6c 6c 6f 79 65 64 | 7 . "is alloyed| 00000a60 20 77 69 74 68 20 63 6f 70 70 65 72 20 74 6f 20 | with copper to | 00000a70 6d 61 6b 65 20 62 72 61 73 73 22 2c 20 5a 69 6e |make brass", Zin| 00000a80 63 2c 20 5a 6e 0d 08 2a 33 20 dc 20 22 69 73 20 |c, Zn..*3 . "is | 00000a90 74 68 65 20 6d 61 69 6e 20 63 6f 6e 73 74 69 74 |the main constit| 00000aa0 75 65 6e 74 20 6f 66 20 73 74 65 65 6c 22 2c 20 |uent of steel", | 00000ab0 49 72 6f 6e 2c 20 46 65 0d 08 34 2e 20 dc 20 22 |Iron, Fe..4. . "| 00000ac0 69 73 20 74 68 65 20 6c 69 67 68 74 65 73 74 20 |is the lightest | 00000ad0 69 6e 65 72 74 20 67 61 73 22 2c 20 48 65 6c 69 |inert gas", Heli| 00000ae0 75 6d 2c 20 48 65 0d 0b b7 1e 20 dc 20 22 45 6e |um, He.... . "En| 00000af0 64 20 6f 66 20 74 65 73 74 22 2c 20 69 73 2c 20 |d of test", is, | 00000b00 68 65 72 65 0d 0b b8 2e 20 dc 20 22 57 68 69 63 |here.... . "Whic| 00000b10 68 20 65 6c 65 6d 65 6e 74 20 68 61 73 20 74 68 |h element has th| 00000b20 65 20 73 79 6d 62 6f 6c 20 22 2c 20 45 6e 64 2c |e symbol ", End,| 00000b30 20 31 0d 0b c2 35 20 dc 20 48 2c 20 48 79 64 72 | 1...5 . H, Hydr| 00000b40 6f 67 65 6e 2c 20 48 65 2c 20 48 65 6c 69 75 6d |ogen, He, Helium| 00000b50 2c 20 4c 69 2c 20 4c 69 74 68 69 75 6d 2c 20 42 |, Li, Lithium, B| 00000b60 2c 20 42 6f 72 6f 6e 0d 0b cc 38 20 dc 20 41 67 |, Boron...8 . Ag| 00000b70 2c 20 53 69 6c 76 65 72 2c 20 41 6c 2c 20 41 6c |, Silver, Al, Al| 00000b80 75 6d 69 6e 69 75 6d 2c 20 41 72 2c 20 41 72 67 |uminium, Ar, Arg| 00000b90 6f 6e 2c 20 41 73 2c 20 41 72 73 65 6e 69 63 0d |on, As, Arsenic.| 00000ba0 0b d6 35 20 dc 20 41 75 2c 20 47 6f 6c 64 2c 20 |..5 . Au, Gold, | 00000bb0 42 61 2c 20 42 61 72 69 75 6d 2c 20 42 69 2c 20 |Ba, Barium, Bi, | 00000bc0 42 69 73 6d 75 74 68 2c 20 42 72 2c 20 42 72 6f |Bismuth, Br, Bro| 00000bd0 6d 69 6e 65 0d 0b e0 38 20 dc 20 43 2c 20 43 61 |mine...8 . C, Ca| 00000be0 72 62 6f 6e 2c 20 43 61 2c 20 43 61 6c 63 69 75 |rbon, Ca, Calciu| 00000bf0 6d 2c 20 43 64 2c 20 43 61 64 6d 69 75 6d 2c 20 |m, Cd, Cadmium, | 00000c00 43 6c 2c 20 43 68 6c 6f 72 69 6e 65 0d 0b ea 38 |Cl, Chlorine...8| 00000c10 20 dc 20 43 6f 2c 20 43 6f 62 61 6c 74 2c 20 43 | . Co, Cobalt, C| 00000c20 72 2c 20 43 68 72 6f 6d 69 75 6d 2c 20 43 75 2c |r, Chromium, Cu,| 00000c30 20 43 6f 70 70 65 72 2c 20 46 2c 20 46 6c 75 6f | Copper, F, Fluo| 00000c40 72 69 6e 65 0d 0b f4 38 20 dc 20 46 65 2c 20 49 |rine...8 . Fe, I| 00000c50 72 6f 6e 2c 20 47 61 2c 20 47 61 6c 6c 69 75 6d |ron, Ga, Gallium| 00000c60 2c 20 47 65 2c 20 47 65 72 6d 61 6e 69 75 6d 2c |, Ge, Germanium,| 00000c70 20 48 67 2c 20 4d 65 72 63 75 72 79 0d 0b fe 3c | Hg, Mercury...<| 00000c80 20 dc 20 49 2c 20 49 6f 64 69 6e 65 2c 20 4b 2c | . I, Iodine, K,| 00000c90 20 50 6f 74 61 73 73 69 75 6d 2c 20 4d 67 2c 20 | Potassium, Mg, | 00000ca0 4d 61 67 6e 65 73 69 75 6d 2c 20 4d 6e 2c 20 4d |Magnesium, Mn, M| 00000cb0 61 6e 67 61 6e 65 73 65 0d 0c 08 34 20 dc 20 4e |anganese...4 . N| 00000cc0 61 2c 20 53 6f 64 69 75 6d 2c 20 4e 2c 20 4e 69 |a, Sodium, N, Ni| 00000cd0 74 72 6f 67 65 6e 2c 20 4e 65 2c 20 4e 65 6f 6e |trogen, Ne, Neon| 00000ce0 2c 20 4e 69 2c 20 4e 69 63 6b 65 6c 0d 0c 12 37 |, Ni, Nickel...7| 00000cf0 20 dc 20 4f 2c 20 4f 78 79 67 65 6e 2c 20 50 2c | . O, Oxygen, P,| 00000d00 20 50 68 6f 73 70 68 6f 72 75 73 2c 20 53 2c 20 | Phosphorus, S, | 00000d10 53 75 6c 70 68 75 72 2c 20 55 2c 20 55 72 61 6e |Sulphur, U, Uran| 00000d20 69 75 6d 0d 0c 1c 12 20 dc 20 57 2c 20 54 75 6e |ium.... . W, Tun| 00000d30 67 73 74 65 6e 0d 0f 9f 0d 20 dc 20 45 6e 64 2c |gsten.... . End,| 00000d40 20 45 0d ff | E..| 00000d44
.