1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        AVOGA:   AVOGADRA'S NUMBER
4  REM
5  REM        36614 REV  A   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
50  REM AVOGA - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN
100  REM  JOHM MARCHISOTTO  PIB SUMMER '69  7/2/69
103  REM  REVISED BY C.LOSIK  7-27-70 
105  REM  A,B=AT NO, AT WT OF FIRST,  C,D=AT NO, AT WT OF SECOND
106  REM  E,F=# ATOMS FIRST, # ATOMS SECOND 
110  PRINT "IF INSTRUCTIONS DESIRED, TYPE 1,  IF NOT, TYPE 0";
112  REM  G=PROTON MASS, H=NEUTRON MASS 
113  LET G=1.602E-19/95810.
116  LET H=1.0086*G/1.0072
120  INPUT N
130  IF N=0 THEN 220
131  IF N <> 1 THEN 110
135  PRINT 
140  PRINT "THIS PROGRAM WILL CALCULATE AVOGADRO'S NUMBER BY USING"
150  PRINT "ANY PURE GASEOUS ELEMENT OR BINARY COMPOUND."
151  PRINT 
152  PRINT "THIS VALUE WILL BE CALCULATED BY USING THE MASS IN GRAMS"
153  PRINT "OF THE NEUTRON, WHICH IS :";H
154  PRINT "AND THE MASS OF THE PROTON, WHICH IS :";G
155  PRINT 
156  PRINT "YOU MUST SUPPLY THE ATOMIC NUMBER AND THE ATOMIC WEIGHT OF"
157  PRINT "INPUT EACH ELEMENT USED.  CARRY DIGITS UP TO 6 PLACES IF YOU"
158  PRINT "WISH.  WHEN THE MACHINE ASKS (?) INPUT THE ATOMIC NUMBER"
159  PRINT "AND THE ATOMIIC WEIGHT OF THE FIRST ELEMENT, THEN THE"
160  PRINT "ATOMIC NUMBER AND THE ATOMIC WEIGHT OF THE SECOND IN THE"
161  PRINT "FORM A,B,C,D.  IF USING SINGLE ELEMENTS, BE SURE TO"
162  PRINT "PUT IN 0 FOR VALUES C AND D."
220  PRINT 
222  PRINT " ","***************"
224  PRINT 
230  PRINT "NOW INPUT THE VALUES FOR YOUR COMPOUND"
240  INPUT A,B,C,D
250  PRINT "INPUT THE NUMBER OF ATOMS FOR EACH ELEMENT."
260  PRINT "(CO2 WOULD BE 1,2)  :";
270  INPUT E,F
339  PRINT 
340  PRINT "*** THE NUMBER OF PARTICLES PER MOLE OF THIS GAS IS";
350  PRINT ((E*B)+(F*D))/((((E*A)+(F*C))*G)+((E*(B-A))+(F*(D-C)))*H)
355  PRINT 
360  PRINT "WOULD YOU LIKE TO TRY ANOTHER PROBLEM ?"
370  PRINT "TYPE 1 IF YES, TYPE 0 IF NO  ";
380  INPUT N
390  IF N=1 THEN 220
395  IF N <> 0 THEN 370
400  END 
