� *** QUIZ ***
�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
�=�"What is the electronic arrangement"'"of ";:�1:� NUM$(r)
��2
��'"E.G.  2 8 1"
��": "answer$
�#� answer$=CHEM$(r) � �YES � �NO
�� X
��7
��''"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$="N" � �EXIT

J� A$="Y" � �

T	�TvA

^�1

h� 1,Hydrogen (H)

r� 2,Helium (He)

|� 2 1,Lithium (Li)

�� 2 2,Beryllium (Be)

�� 2 3,Boron (B)

�� 2 4,Carbon (C)

�� 2 5,Nitrogen (N)

�� 2 6,Oxygen (O)

�� 2 7,Fluorine (F)

�� 2 8,Neon (Ne)

�� 2 8 1,Sodium (Na)

�� 2 8 2,Magnesium (Mg)

�� 2 8 3,Aluminium (Al)

�� 2 8 4,Silicon (Si)

�� 2 8 5,Phosphuros (P)

�� 2 8 6,Sulphur (S)
� 2 8 7,Chlorine (Cl)
� 2 8 8,Argon (Ar)
� 2 8 8 1,Potassium (K)
&� 2 8 8 2,Calcium (Ca)
0
� �YES
:�7
D�'"W e l l   D o n e !!!"
N�1,-15,150,3
X	R=R+1
b�=0:� � �>200:�
l�2
v�
�	� �NO
��7
�*�'"W r o n g.  Do you want the answer"
��0,-15,50,3
�4A$=�:� A$="Y" � �'"The answer is ";:�1:�CHEM$(r)
�	�DbB
��
�� �EXIT
��
��"MENU"
��
�

00000000  0d 00 0a 12 f4 20 2a 2a  2a 20 51 55 49 5a 20 2a  |..... *** QUIZ *|
00000010  2a 2a 0d 00 14 06 eb 31  0d 00 1e 22 f1 27 22 20  |**.....1...".'" |
00000020  20 20 20 20 20 20 20 41  74 6f 6d 69 63 20 4e 75  |       Atomic Nu|
00000030  6d 62 65 72 20 51 75 69  7a 22 0d 00 28 22 f1 22  |mber Quiz"..("."|
00000040  20 20 20 20 20 20 20 7e  7e 7e 7e 7e 7e 7e 7e 7e  |       ~~~~~~~~~|
00000050  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 22 0d 00 32 12  |~~~~~~~~~~~"..2.|
00000060  ef 32 38 2c 32 2c 32 30  2c 33 36 2c 35 20 0d 00  |.28,2,20,36,5 ..|
00000070  3c 0f de 20 43 48 45 4d  24 28 32 30 29 0d 00 46  |<.. CHEM$(20)..F|
00000080  0e de 20 4e 55 4d 24 28  32 30 29 0d 00 50 0e e3  |.. NUM$(20)..P..|
00000090  20 58 3d 31 20 b8 20 32  30 0d 00 5a 0e f3 20 43  | X=1 . 20..Z.. C|
000000a0  48 45 4d 24 28 58 29 0d  00 64 0d f3 20 4e 55 4d  |HEM$(X)..d.. NUM|
000000b0  24 28 58 29 0d 00 6e 06  ed 58 0d 00 78 07 52 3d  |$(X)..n..X..x.R=|
000000c0  30 0d 00 82 0d e3 20 58  3d 31 b8 20 31 35 0d 00  |0..... X=1. 15..|
000000d0  8c 0b 72 3d b3 28 32 30  29 0d 00 96 06 fb 32 0d  |..r=.(20).....2.|
000000e0  00 a0 3d f1 22 57 68 61  74 20 69 73 20 74 68 65  |..=."What is the|
000000f0  20 65 6c 65 63 74 72 6f  6e 69 63 20 61 72 72 61  | electronic arra|
00000100  6e 67 65 6d 65 6e 74 22  27 22 6f 66 20 22 3b 3a  |ngement"'"of ";:|
00000110  fb 31 3a f1 20 4e 55 4d  24 28 72 29 0d 00 aa 06  |.1:. NUM$(r)....|
00000120  fb 32 0d 00 b4 13 f1 27  22 45 2e 47 2e 20 20 32  |.2.....'"E.G.  2|
00000130  20 38 20 31 22 0d 00 be  10 e8 22 3a 20 22 61 6e  | 8 1".....": "an|
00000140  73 77 65 72 24 0d 00 c8  23 e7 20 61 6e 73 77 65  |swer$...#. answe|
00000150  72 24 3d 43 48 45 4d 24  28 72 29 20 8c 20 f2 59  |r$=CHEM$(r) . .Y|
00000160  45 53 20 8b 20 f2 4e 4f  0d 00 d2 07 ed 20 58 0d  |ES . .NO..... X.|
00000170  00 dc 06 fb 37 0d 00 e6  14 f1 27 27 22 59 6f 75  |....7.....''"You|
00000180  20 67 6f 74 20 22 3b 52  3b 0d 00 f0 11 f1 22 20  | got ";R;....." |
00000190  6f 75 74 20 6f 66 20 31  35 22 0d 00 fa 1a e7 20  |out of 15"..... |
000001a0  52 3e 3d 31 30 20 8c 20  f1 27 22 45 78 65 6c 6c  |R>=10 . .'"Exell|
000001b0  65 6e 74 22 0d 01 04 20  e7 20 52 3c 31 30 20 80  |ent"... . R<10 .|
000001c0  20 52 3e 36 20 8c 20 f1  27 22 56 65 72 79 20 47  | R>6 . .'"Very G|
000001d0  6f 6f 64 22 0d 01 0e 24  e7 20 52 3e 3d 31 20 80  |ood"...$. R>=1 .|
000001e0  20 52 3c 3d 36 20 8c 20  f1 27 22 4e 6f 74 20 54  | R<=6 . .'"Not T|
000001f0  6f 6f 20 47 6f 6f 64 22  0d 01 18 1f e7 20 52 3c  |oo Good"..... R<|
00000200  31 20 8c 20 f1 27 22 42  4c 4f 4f 44 59 20 41 57  |1 . .'"BLOODY AW|
00000210  46 55 4c 21 21 21 22 0d  01 22 0b fb 31 3a fb 39  |FUL!!!".."..1:.9|
00000220  39 39 0d 01 2c 27 f1 27  27 27 22 44 6f 20 79 6f  |99..,'.'''"Do yo|
00000230  75 20 77 61 6e 74 20 61  6e 6f 74 68 65 72 20 67  |u want another g|
00000240  6f 20 28 59 2f 4e 29 3f  22 0d 01 36 08 41 24 3d  |o (Y/N)?"..6.A$=|
00000250  be 0d 01 40 14 e7 20 41  24 3d 22 4e 22 20 8c 20  |...@.. A$="N" . |
00000260  f2 45 58 49 54 0d 01 4a  10 e7 20 41 24 3d 22 59  |.EXIT..J.. A$="Y|
00000270  22 20 8c 20 f9 0d 01 54  09 e5 8d 54 76 41 0d 01  |" . ...T...TvA..|
00000280  5e 06 fb 31 0d 01 68 14  dc 20 31 2c 48 79 64 72  |^..1..h.. 1,Hydr|
00000290  6f 67 65 6e 20 28 48 29  0d 01 72 13 dc 20 32 2c  |ogen (H)..r.. 2,|
000002a0  48 65 6c 69 75 6d 20 28  48 65 29 0d 01 7c 16 dc  |Helium (He)..|..|
000002b0  20 32 20 31 2c 4c 69 74  68 69 75 6d 20 28 4c 69  | 2 1,Lithium (Li|
000002c0  29 0d 01 86 18 dc 20 32  20 32 2c 42 65 72 79 6c  |)..... 2 2,Beryl|
000002d0  6c 69 75 6d 20 28 42 65  29 0d 01 90 13 dc 20 32  |lium (Be)..... 2|
000002e0  20 33 2c 42 6f 72 6f 6e  20 28 42 29 0d 01 9a 14  | 3,Boron (B)....|
000002f0  dc 20 32 20 34 2c 43 61  72 62 6f 6e 20 28 43 29  |. 2 4,Carbon (C)|
00000300  0d 01 a4 16 dc 20 32 20  35 2c 4e 69 74 72 6f 67  |..... 2 5,Nitrog|
00000310  65 6e 20 28 4e 29 0d 01  ae 14 dc 20 32 20 36 2c  |en (N)..... 2 6,|
00000320  4f 78 79 67 65 6e 20 28  4f 29 0d 01 b8 16 dc 20  |Oxygen (O)..... |
00000330  32 20 37 2c 46 6c 75 6f  72 69 6e 65 20 28 46 29  |2 7,Fluorine (F)|
00000340  0d 01 c2 13 dc 20 32 20  38 2c 4e 65 6f 6e 20 28  |..... 2 8,Neon (|
00000350  4e 65 29 0d 01 cc 17 dc  20 32 20 38 20 31 2c 53  |Ne)..... 2 8 1,S|
00000360  6f 64 69 75 6d 20 28 4e  61 29 0d 01 d6 1a dc 20  |odium (Na)..... |
00000370  32 20 38 20 32 2c 4d 61  67 6e 65 73 69 75 6d 20  |2 8 2,Magnesium |
00000380  28 4d 67 29 0d 01 e0 1a  dc 20 32 20 38 20 33 2c  |(Mg)..... 2 8 3,|
00000390  41 6c 75 6d 69 6e 69 75  6d 20 28 41 6c 29 0d 01  |Aluminium (Al)..|
000003a0  ea 18 dc 20 32 20 38 20  34 2c 53 69 6c 69 63 6f  |... 2 8 4,Silico|
000003b0  6e 20 28 53 69 29 0d 01  f4 1a dc 20 32 20 38 20  |n (Si)..... 2 8 |
000003c0  35 2c 50 68 6f 73 70 68  75 72 6f 73 20 28 50 29  |5,Phosphuros (P)|
000003d0  0d 01 fe 17 dc 20 32 20  38 20 36 2c 53 75 6c 70  |..... 2 8 6,Sulp|
000003e0  68 75 72 20 28 53 29 0d  02 08 19 dc 20 32 20 38  |hur (S)..... 2 8|
000003f0  20 37 2c 43 68 6c 6f 72  69 6e 65 20 28 43 6c 29  | 7,Chlorine (Cl)|
00000400  0d 02 12 16 dc 20 32 20  38 20 38 2c 41 72 67 6f  |..... 2 8 8,Argo|
00000410  6e 20 28 41 72 29 0d 02  1c 1b dc 20 32 20 38 20  |n (Ar)..... 2 8 |
00000420  38 20 31 2c 50 6f 74 61  73 73 69 75 6d 20 28 4b  |8 1,Potassium (K|
00000430  29 0d 02 26 1a dc 20 32  20 38 20 38 20 32 2c 43  |)..&.. 2 8 8 2,C|
00000440  61 6c 63 69 75 6d 20 28  43 61 29 0d 02 30 0a dd  |alcium (Ca)..0..|
00000450  20 f2 59 45 53 0d 02 3a  06 fb 37 0d 02 44 1d f1  | .YES..:..7..D..|
00000460  27 22 57 20 65 20 6c 20  6c 20 20 20 44 20 6f 20  |'"W e l l   D o |
00000470  6e 20 65 20 21 21 21 22  0d 02 4e 10 d4 31 2c 2d  |n e !!!"..N..1,-|
00000480  31 35 2c 31 35 30 2c 33  0d 02 58 09 52 3d 52 2b  |15,150,3..X.R=R+|
00000490  31 0d 02 62 13 d1 3d 30  3a f5 20 fd 20 91 3e 32  |1..b..=0:. . .>2|
000004a0  30 30 3a db 0d 02 6c 06  fb 32 0d 02 76 05 e1 0d  |00:...l..2..v...|
000004b0  02 80 09 dd 20 f2 4e 4f  0d 02 8a 06 fb 37 0d 02  |.... .NO.....7..|
000004c0  94 2a f1 27 22 57 20 72  20 6f 20 6e 20 67 2e 20  |.*.'"W r o n g. |
000004d0  20 44 6f 20 79 6f 75 20  77 61 6e 74 20 74 68 65  | Do you want the|
000004e0  20 61 6e 73 77 65 72 22  0d 02 9e 0f d4 30 2c 2d  | answer".....0,-|
000004f0  31 35 2c 35 30 2c 33 0d  02 a8 34 41 24 3d be 3a  |15,50,3...4A$=.:|
00000500  e7 20 41 24 3d 22 59 22  20 8c 20 f1 27 22 54 68  |. A$="Y" . .'"Th|
00000510  65 20 61 6e 73 77 65 72  20 69 73 20 22 3b 3a fb  |e answer is ";:.|
00000520  31 3a f1 43 48 45 4d 24  28 72 29 0d 02 b2 09 e5  |1:.CHEM$(r).....|
00000530  8d 44 62 42 0d 02 bc 05  e1 0d 02 c6 0b dd 20 f2  |.DbB.......... .|
00000540  45 58 49 54 0d 02 d0 05  db 0d 02 da 0b d7 22 4d  |EXIT.........."M|
00000550  45 4e 55 22 0d 02 e4 05  e1 0d ff                 |ENU".......|
0000055b