Ph - Utilities
Hidetake Jo (c)1997
-----------------------------------------------------------------------
PH - Utility for 9850 and 9950 model
if you have one of the 4 information either ph,poh,hydronium 
concentration, or hydroxide concentration it will calculate the rest for 
the stuff for you and print it out.
------------------------------------------------------------------------

"KNOWN"
"1:PH"
"2:POH"
"3:[H3O]"
"4:[OH]"?->G
ClrText
G=1=>"PH"?->A
If G=2
Then "POH"?->B
14-B->A
IfEnd
If G=3
Then "[H3O]"?->C
-log C->A
IfEnd
If G=4
Then "[OH]"?->D
14-(-log D)->A
IfEnd
ClrText
14-A->B
10^-A -> C
10^-B -> D
Locate 1,1,"PH:"
Locate 4,1,A
Locate 1,2,"POH:"
Locate 5,2,B
Locate 1,3,"[H3O]:"
Locate 7,3,C
Locate 1,4,"[OH]:"
Locate 6,4,D
C>D=>Locate 1,5,"ACIDIC"
C<D=>Locate 1,5,"BASIC"
C=D=>Locate 1,5,"NEUTRAL"