Program for Casio fx-7700 - 9800.
(I have a fx-9700GE).
By: B. Rasmus Anthin  (anthin@algonet.se)
Homepage: http://www.algonet.se/~anthin
Exponations:

->   :"Into"
_    :Disp
10^x :(Shift log)


'ATOMS
"QUANTITY OF ATOMS!"
" "
"MASS IN GRAM:"?->A
"--------------------
-"
"C:"?->C
"H:"?->H
"O:"?->O
"S:"?->S
"N:"?->N
"P:"?->P
"CL:"?->L
"SI:"?->I                   ;Here you can add more atoms.
"--------------------
-"
"MOLES="
A/(12C+1.008H+16O+32.
1S+14N+31P+35.5L+28.1       ;------------------ | | --------------
I)->Z_
" "
"QUANTITY OF ATOMS="
Z*6.02*10^23_               ;Instead of 10^23, just push the 10-potence button (shift log)
" "