Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » S/M/ATOMIC/Symbols
S/M/ATOMIC/Symbols
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF |
| Filename: | S/M/ATOMIC/Symbols |
| Read OK: | ✔ |
| File size: | 04CE bytes |
| Load address: | FFFFFB43 |
| Exec address: | 8ABCDE84 |
Duplicates
There are 5 duplicate copies of this file in the archive:
- AEW website » bbc_pd » bbc_pd_5_25_discs_d-bbc136_D-BBC136.dsd » B.QUIZ2
- AEW website » mu » mu_5_25_discs_Micro_User_09_11_D-MU09_11.ssd » Symbols
- AEW website » mu » mu_Micro_User_09_11_MU9-11_B.uef » Symbols
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » S/M/ATOMIC/Symbols
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape31a_acorn_eu_1992_january.wav » Symbols
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape31b_acorn_eu_1992_january.wav » Symbols
File contents
10REM *** QUIZ 2 *** 20MODE1 30PRINT'" Atomic Number Quiz" 40PRINT" ~~~~~~~~~~~~~~~~~~~~" 50VDU28,2,20,36,5 60DIM CHEM$(20) 70DIM NUM$(20) 80FOR X=1 TO 20 90READ CHEM$(X) 100READ NUM$(X) 110NEXTX 120R=0 130FOR X=1TO 15 140r=RND(20) 150COLOUR2 160PRINT"What is the chemical symbol"'"of ";:COLOUR1:PRINT NUM$(r) 170COLOUR2 180INPUT": "answer$ 190IF answer$=CHEM$(r) THEN PROCYES ELSE PROCNO 200NEXT X 210COLOUR7 220VDU19,0,1;0; 230PRINT''"You got ";R; 240PRINT" out of 15" 250IF R>=10 THEN PRINT'"Exellent" 260IF R<10 AND R>6 THEN PRINT'"Very Good" 270IF R>=1 AND R<=6 THEN PRINT'"Not Too Good" 280IF R<1 THEN PRINT'"BLOODY AWFUL!!!" 290COLOUR1:COLOUR999 300PRINT'''"Do you want another go (Y/N)?" 310A$=GET$ 320IF A$="Y" THEN RUN 330IF A$="N" THEN PROCEXIT 340GOTO310 350COLOUR1 360DATA H,Hydrogen 370DATA He,Helium 380DATA Li,Lithium 390DATA Be,Beryllium 400DATA B,Boron 410DATA C,Carbon 420DATA N,Nitrogen 430DATA O,Oxygen 440DATA F,Fluorine 450DATA Ne,Neon 460DATA Na,Sodium 470DATA Mg,Magnesium 480DATA Al,Aluminium 490DATA Si,Silicon 500DATA P,Phosphuros 510DATA S,Sulphur 520DATA Cl,Chlorine 530DATA Ar,Argon 540DATA K,Potassium 550DATA Ca,Calcium 560DEF PROCYES 570COLOUR7 580PRINT'"W e l l D o n e !!!" 590SOUND1,-15,150,3 600R=R+1 610TIME=0:REPEAT UNTIL TIME>150:CLS 620COLOUR2 630ENDPROC 640DEF PROCNO 650COLOUR7 660PRINT'"W r o n g. Do you want the answer" 670SOUND0,-15,50,3 680A$=GET$:IF A$="Y" OR A$="y" THEN PRINT'"The answer is ";:COLOUR1:PRINTCHEM$(r) 690GOTO610 700ENDPROC 710DEF PROCEXIT 720CLS 730CHAIN"MENU" 740ENDPROC
� *** QUIZ 2 ***
�1
"�'" Atomic Number Quiz"
("�" ~~~~~~~~~~~~~~~~~~~~"
2�28,2,20,36,5
<� CHEM$(20)
F� NUM$(20)
P� X=1 � 20
Z� CHEM$(X)
d
� NUM$(X)
n�X
xR=0
�
� X=1� 15
� r=�(20)
��2
�6�"What is the chemical symbol"'"of ";:�1:� NUM$(r)
��2
��": "answer$
�#� answer$=CHEM$(r) � �YES � �NO
�� X
��7
��19,0,1;0;
��''"You got ";R;
��" out of 15"
�� R>=10 � �'"Exellent"
� R<10 � R>6 � �'"Very Good"
$� R>=1 � R<=6 � �'"Not Too Good"
� R<1 � �'"BLOODY AWFUL!!!"
" �1:�999
,'�'''"Do you want another go (Y/N)?"
6A$=�
@� A$="Y" � �
J� A$="N" � �EXIT
T �TvA
^�1
h� H,Hydrogen
r� He,Helium
|� Li,Lithium
�� Be,Beryllium
�
� B,Boron
�� C,Carbon
�� N,Nitrogen
�� O,Oxygen
�� F,Fluorine
�
� Ne,Neon
�� Na,Sodium
�� Mg,Magnesium
�� Al,Aluminium
�� Si,Silicon
�� P,Phosphuros
�� S,Sulphur
� Cl,Chlorine
� Ar,Argon
� K,Potassium
&� Ca,Calcium
0
� �YES
:�7
D �'"W e l l D o n e !!!"
N�1,-15,150,3
X R=R+1
b�=0:� � �>150:�
l�2
v�
� � �NO
��7
�*�'"W r o n g. Do you want the answer"
��0,-15,50,3
�=A$=�:� A$="Y" � A$="y" � �'"The answer is ";:�1:�CHEM$(r)
� �DbB
��
� � �EXIT
��
� �"MENU"
��
� 00000000 0d 00 0a 14 f4 20 2a 2a 2a 20 51 55 49 5a 20 32 |..... *** QUIZ 2|
00000010 20 2a 2a 2a 0d 00 14 06 eb 31 0d 00 1e 22 f1 27 | ***.....1...".'|
00000020 22 20 20 20 20 20 20 20 20 41 74 6f 6d 69 63 20 |" Atomic |
00000030 4e 75 6d 62 65 72 20 51 75 69 7a 22 0d 00 28 22 |Number Quiz"..("|
00000040 f1 22 20 20 20 20 20 20 20 7e 7e 7e 7e 7e 7e 7e |." ~~~~~~~|
00000050 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 22 0d 00 |~~~~~~~~~~~~~"..|
00000060 32 12 ef 32 38 2c 32 2c 32 30 2c 33 36 2c 35 20 |2..28,2,20,36,5 |
00000070 0d 00 3c 0f de 20 43 48 45 4d 24 28 32 30 29 0d |..<.. CHEM$(20).|
00000080 00 46 0e de 20 4e 55 4d 24 28 32 30 29 0d 00 50 |.F.. NUM$(20)..P|
00000090 0e e3 20 58 3d 31 20 b8 20 32 30 0d 00 5a 0e f3 |.. X=1 . 20..Z..|
000000a0 20 43 48 45 4d 24 28 58 29 0d 00 64 0d f3 20 4e | CHEM$(X)..d.. N|
000000b0 55 4d 24 28 58 29 0d 00 6e 06 ed 58 0d 00 78 07 |UM$(X)..n..X..x.|
000000c0 52 3d 30 0d 00 82 0d e3 20 58 3d 31 b8 20 31 35 |R=0..... X=1. 15|
000000d0 0d 00 8c 0b 72 3d b3 28 32 30 29 0d 00 96 06 fb |....r=.(20).....|
000000e0 32 0d 00 a0 36 f1 22 57 68 61 74 20 69 73 20 74 |2...6."What is t|
000000f0 68 65 20 63 68 65 6d 69 63 61 6c 20 73 79 6d 62 |he chemical symb|
00000100 6f 6c 22 27 22 6f 66 20 22 3b 3a fb 31 3a f1 20 |ol"'"of ";:.1:. |
00000110 4e 55 4d 24 28 72 29 0d 00 aa 06 fb 32 0d 00 b4 |NUM$(r).....2...|
00000120 10 e8 22 3a 20 22 61 6e 73 77 65 72 24 0d 00 be |..": "answer$...|
00000130 23 e7 20 61 6e 73 77 65 72 24 3d 43 48 45 4d 24 |#. answer$=CHEM$|
00000140 28 72 29 20 8c 20 f2 59 45 53 20 8b 20 f2 4e 4f |(r) . .YES . .NO|
00000150 0d 00 c8 07 ed 20 58 0d 00 d2 06 fb 37 0d 00 dc |..... X.....7...|
00000160 0e ef 31 39 2c 30 2c 31 3b 30 3b 0d 00 e6 14 f1 |..19,0,1;0;.....|
00000170 27 27 22 59 6f 75 20 67 6f 74 20 22 3b 52 3b 0d |''"You got ";R;.|
00000180 00 f0 11 f1 22 20 6f 75 74 20 6f 66 20 31 35 22 |...." out of 15"|
00000190 0d 00 fa 1a e7 20 52 3e 3d 31 30 20 8c 20 f1 27 |..... R>=10 . .'|
000001a0 22 45 78 65 6c 6c 65 6e 74 22 0d 01 04 20 e7 20 |"Exellent"... . |
000001b0 52 3c 31 30 20 80 20 52 3e 36 20 8c 20 f1 27 22 |R<10 . R>6 . .'"|
000001c0 56 65 72 79 20 47 6f 6f 64 22 0d 01 0e 24 e7 20 |Very Good"...$. |
000001d0 52 3e 3d 31 20 80 20 52 3c 3d 36 20 8c 20 f1 27 |R>=1 . R<=6 . .'|
000001e0 22 4e 6f 74 20 54 6f 6f 20 47 6f 6f 64 22 0d 01 |"Not Too Good"..|
000001f0 18 1f e7 20 52 3c 31 20 8c 20 f1 27 22 42 4c 4f |... R<1 . .'"BLO|
00000200 4f 44 59 20 41 57 46 55 4c 21 21 21 22 0d 01 22 |ODY AWFUL!!!".."|
00000210 0b fb 31 3a fb 39 39 39 0d 01 2c 27 f1 27 27 27 |..1:.999..,'.'''|
00000220 22 44 6f 20 79 6f 75 20 77 61 6e 74 20 61 6e 6f |"Do you want ano|
00000230 74 68 65 72 20 67 6f 20 28 59 2f 4e 29 3f 22 0d |ther go (Y/N)?".|
00000240 01 36 08 41 24 3d be 0d 01 40 10 e7 20 41 24 3d |.6.A$=...@.. A$=|
00000250 22 59 22 20 8c 20 f9 0d 01 4a 14 e7 20 41 24 3d |"Y" . ...J.. A$=|
00000260 22 4e 22 20 8c 20 f2 45 58 49 54 0d 01 54 09 e5 |"N" . .EXIT..T..|
00000270 8d 54 76 41 0d 01 5e 06 fb 31 0d 01 68 10 dc 20 |.TvA..^..1..h.. |
00000280 48 2c 48 79 64 72 6f 67 65 6e 0d 01 72 0f dc 20 |H,Hydrogen..r.. |
00000290 48 65 2c 48 65 6c 69 75 6d 0d 01 7c 10 dc 20 4c |He,Helium..|.. L|
000002a0 69 2c 4c 69 74 68 69 75 6d 0d 01 86 12 dc 20 42 |i,Lithium..... B|
000002b0 65 2c 42 65 72 79 6c 6c 69 75 6d 0d 01 90 0d dc |e,Beryllium.....|
000002c0 20 42 2c 42 6f 72 6f 6e 0d 01 9a 0e dc 20 43 2c | B,Boron..... C,|
000002d0 43 61 72 62 6f 6e 0d 01 a4 10 dc 20 4e 2c 4e 69 |Carbon..... N,Ni|
000002e0 74 72 6f 67 65 6e 0d 01 ae 0e dc 20 4f 2c 4f 78 |trogen..... O,Ox|
000002f0 79 67 65 6e 0d 01 b8 10 dc 20 46 2c 46 6c 75 6f |ygen..... F,Fluo|
00000300 72 69 6e 65 0d 01 c2 0d dc 20 4e 65 2c 4e 65 6f |rine..... Ne,Neo|
00000310 6e 0d 01 cc 0f dc 20 4e 61 2c 53 6f 64 69 75 6d |n..... Na,Sodium|
00000320 0d 01 d6 12 dc 20 4d 67 2c 4d 61 67 6e 65 73 69 |..... Mg,Magnesi|
00000330 75 6d 0d 01 e0 12 dc 20 41 6c 2c 41 6c 75 6d 69 |um..... Al,Alumi|
00000340 6e 69 75 6d 0d 01 ea 10 dc 20 53 69 2c 53 69 6c |nium..... Si,Sil|
00000350 69 63 6f 6e 0d 01 f4 12 dc 20 50 2c 50 68 6f 73 |icon..... P,Phos|
00000360 70 68 75 72 6f 73 0d 01 fe 0f dc 20 53 2c 53 75 |phuros..... S,Su|
00000370 6c 70 68 75 72 0d 02 08 11 dc 20 43 6c 2c 43 68 |lphur..... Cl,Ch|
00000380 6c 6f 72 69 6e 65 0d 02 12 0e dc 20 41 72 2c 41 |lorine..... Ar,A|
00000390 72 67 6f 6e 0d 02 1c 11 dc 20 4b 2c 50 6f 74 61 |rgon..... K,Pota|
000003a0 73 73 69 75 6d 0d 02 26 10 dc 20 43 61 2c 43 61 |ssium..&.. Ca,Ca|
000003b0 6c 63 69 75 6d 0d 02 30 0a dd 20 f2 59 45 53 0d |lcium..0.. .YES.|
000003c0 02 3a 06 fb 37 0d 02 44 1d f1 27 22 57 20 65 20 |.:..7..D..'"W e |
000003d0 6c 20 6c 20 20 20 44 20 6f 20 6e 20 65 20 21 21 |l l D o n e !!|
000003e0 21 22 0d 02 4e 10 d4 31 2c 2d 31 35 2c 31 35 30 |!"..N..1,-15,150|
000003f0 2c 33 0d 02 58 09 52 3d 52 2b 31 0d 02 62 13 d1 |,3..X.R=R+1..b..|
00000400 3d 30 3a f5 20 fd 20 91 3e 31 35 30 3a db 0d 02 |=0:. . .>150:...|
00000410 6c 06 fb 32 0d 02 76 05 e1 0d 02 80 09 dd 20 f2 |l..2..v....... .|
00000420 4e 4f 0d 02 8a 06 fb 37 0d 02 94 2a f1 27 22 57 |NO.....7...*.'"W|
00000430 20 72 20 6f 20 6e 20 67 2e 20 20 44 6f 20 79 6f | r o n g. Do yo|
00000440 75 20 77 61 6e 74 20 74 68 65 20 61 6e 73 77 65 |u want the answe|
00000450 72 22 0d 02 9e 0f d4 30 2c 2d 31 35 2c 35 30 2c |r".....0,-15,50,|
00000460 33 0d 02 a8 3d 41 24 3d be 3a e7 20 41 24 3d 22 |3...=A$=.:. A$="|
00000470 59 22 20 84 20 41 24 3d 22 79 22 20 8c 20 f1 27 |Y" . A$="y" . .'|
00000480 22 54 68 65 20 61 6e 73 77 65 72 20 69 73 20 22 |"The answer is "|
00000490 3b 3a fb 31 3a f1 43 48 45 4d 24 28 72 29 0d 02 |;:.1:.CHEM$(r)..|
000004a0 b2 09 e5 8d 44 62 42 0d 02 bc 05 e1 0d 02 c6 0b |....DbB.........|
000004b0 dd 20 f2 45 58 49 54 0d 02 d0 05 db 0d 02 da 0b |. .EXIT.........|
000004c0 d7 22 4d 45 4e 55 22 0d 02 e4 05 e1 0d ff |."MENU".......|
000004ce 
S/M/ATOMIC/Symbols.m0
S/M/ATOMIC/Symbols.m1
S/M/ATOMIC/Symbols.m2
S/M/ATOMIC/Symbols.m4
S/M/ATOMIC/Symbols.m5
.