------------------------ ------------------------ (c) Bengt Werstén & JEFA ------------------------ ------------------------ PrgmX:JEFAPOH :Lbl A :ClrHome :Disp "1) POH" :Disp "2) CONC." :Input B :If B=1 :Goto P :If B=2 :Goto C :Goto A :Lbl P :ClrHome :Disp "|OH-|=" :Input P :Disp "POH=" :-log P->A :Disp A :End :Lbl C :ClrHome :Disp "POH=" :Input P :10^-P->A :Disp A :End