1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        ATOM:   DERIVES THE ELECTRONIC CONFIGURATION OF ANY 
4  REM                ELEMENT
5  REM        36705 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
9000  DIM Q$[3]
9010  DIM E$[72],E[24]
9020  PRINT "THIS PROGRAM DERIVES THE ELECTRONIC CONFIGURATION OF ANY"
9030  PRINT "ELEMENT ACCORDING TO THE ATOMIC ORBITAL THEORY."
9040  PRINT 
9050  REM ; READING ORBITALS AND NUMBER OF ELECTRONS IN ORBITALS
9060  FOR I=1 TO 72 STEP 3
9070  READ E$[I,I+2]
9080  NEXT I
9090  MAT  READ E
9100  PRINT 
9110  PRINT 
9120  PRINT "WHAT IS THE ATOMIC NUMBER OF YOUR ELEMENT";
9130  INPUT N
9140  REM ; DERIVING ELECTRONIC CONFIGURATION 
9150  IF N<1 THEN 9120
9160  IF N<169 THEN 9190
9170  PRINT "SORRY , I CAN'T HANDLE ELEMENTS THAT BIG"
9180  GOTO 9120
9190  PRINT 
9200  N=INT(N)
9210  IF N<104 THEN 9250
9220  PRINT "NO SUCH ELEMENT IS KNOWN TO EXIST.  IF IT DID EXIST, IT'S"
9230  PRINT "ELECTRONIC CONFIGURATION WOULD BE:"
9240  GOTO 9260
9250  PRINT "THE ELECTRONIC CONFIGURATION IS:"
9260  S=0
9270  FOR K=1 TO 500
9280  S=S+E[K]
9290  I=3*(K-1)+1
9300  IF S >= N THEN 9340
9310  PRINT E$[I,I+1];
9320  PRINT E[K];
9330  NEXT K
9340  PRINT E$[I,I+1];E[K]+N-S
9350  PRINT 
9360  REM ; REPEAT?
9370  PRINT 
9380  PRINT 
9390  PRINT "DO YOU WANT ME TO DO ANOTHER ELEMENT";
9400  INPUT Q$
9410  IF Q$="YES" THEN 9100
9420  REM ; PRINCIPLE QUANTUM NO., ORBITAL, N0. OF ELECTRONS IN ORBITAL
9430  DATA "1S","2S","2P","3S","3P","4S","3D","4P","5S","4D","5P"
9440  DATA "6S","4F","5D","6P","7S","5F","6D","7P","8S","5G","6F","7D","8P"
9450  DATA 2,2,6,2,6,2,10,6,2,10,6,2,14,10,6,2,14,10,6,2,18,14,10,6
9460  END 
