;Jefa pH
;© Bengt and Jefa
; "->" is the STO>-button
:Prgm1:JEFAPH
:ClrHome
:Disp "!H3O+!="
:Input P 
:Disp "PH="
:-log P->A
:Disp A