%%HP: T(1)A(R)F(.);
« ¨ P
  «
    IF 'P>.1 AND P<
13.9'
    THEN P "pH" ¨TAG
      IF 'P<7'
      THEN "Acide"
¨TAG
      END
      IF 'P>7'
      THEN "Base"
¨TAG
      END
      IF 'P==7'
      THEN "Neutre"
¨TAG
      END P NEG ALOG
"[H3O+]" ¨TAG P 14 -
ALOG "[HO-]" ¨TAG
    ELSE
"Erreur: pH en dehors de [0,14]"
MSGBOX
    END
  »
»