1  REM  ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM        ELMENT: DRILL ON SYMBOLS FOR ELEMENTS
3  REM        36267  REV A  --  2/73
4  REM  ****  CONTRIBUTED PROGRAM  ***********************************
5  DIM A$[30],B$[10],C$[5],D$[5],A[100],B[20]
6  PRINT 
7  PRINT " NAMING ELEMENTS"
8  PRINT 
10  PRINT "WHAT IS YOUR NAME";
15  INPUT A$
20  LET X0=52
25  LET N0=10
30  LET T0=20
35  FOR A=1 TO X0
40  LET A[A]=A
45  NEXT A
50  FOR A=1 TO N0
55  LET B=INT(RND(1)*(X0+1-A)+1)
60  LET B[A]=A[B]
65  LET A[B]=A[X0+1-A]
70  NEXT A
71  LET C1=C2=C3=0
75  FOR A=1 TO N0
80  RESTORE 
85  FOR B=1 TO B[A]
90  READ B$,C$
95  NEXT B
100  PRINT 
105  PRINT "WHAT IS THE SYMBOL FOR ";B$;" ?"
110  ENTER T0,X,D$
115  PRINT 
120  IF X=-256 THEN 160
130  IF D$ <> C$ THEN 150
135  PRINT "CORRECT!!"
140  LET C1=C1+1
145  GOTO 190
150  PRINT "NO. YOU ARE WRONG"'7'7
155  LET C2=C2+1
156  GOTO 170
160  PRINT "YOU ARE TOO SLOW."
165  LET C3=C3+1
170  PRINT "THE ANSWER IS  ";C$;"  ."
190  NEXT A
195  PRINT 
200  PRINT "-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
205  PRINT 
210  PRINT TAB(40);A$
215  PRINT 
220  PRINT "YOU GOT ";C1;"RIGHT."
225  PRINT 
230  PRINT "YOU WERE TOO SLOW ";C3;"TIMES."
235  PRINT 
240  PRINT "YOU WERE WRONG ";C2;"TIMES."
245  PRINT 
250  PRINT "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
255  END 
300  DATA "ALUMINUM","AL","ARGON","AR","ASTATINE","AT","BORON","B"
301  DATA "BROMINE","BR","CHROMIUM","CR","CARBON","C","CHLORINE","CL"
302  DATA "FLUORINE","F","CALCIUM","CA","BERYLLIUM","BE","LITHIUM","LI"
303  DATA "BARIUM","BA","COPPER","CU","GERMANIUM","GE","HAFNIUM","HF"
304  DATA "HYDROGEN","H","HELIUM","HE","IRON","FE","IODINE","I"
305  DATA "POTASSIUM","K","LEAD","PB","MAGNESIUM","MG","MANGANESE","MN"
306  DATA "MERCURY","HG","NICKEL","NI","NITROGEN","N","NEON","NE"
307  DATA "OXYGEN","O","GOLD","AU","PHOSPHORUS","P","PLATINUM","PT"
308  DATA "KRYPTON","KR","RADIUM","RA","RADON","RN","SELENIUM","SE"
309  DATA "SILICON","SI","SILVER","AG","SODIUM","NA","STRONTIUM","SR"
310  DATA "SULFUR","S","THORIUM","TH","TIN","SN","TITANIUM","TI"
311  DATA "TUNGSTEN","W","URANIUM","U","XENON","XE","ZINC","ZN"
312  DATA "ZIRCONIUM","ZR","COBALT","CO","CADNITL","CD","IRIDIUM","IR"
400  END 
